
  
  
  
  
  
   
  
   -
  
  
  
  
  
  
  
  
  
  
                    
  
       
                     
  
                              -    
  
  
               M  
  
                     
  
  
  
  
  
  
                            163
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
                              1984
  ..
                                                        
 
                             - 2 -
  
  
  
  
  
  
  
  
                           
  
  
  
  
   1.                                     6
  
   1.1.     /                        6
   1.2.    /                            7
   1.2.1.                                   8
   1.2.2.                     8
   1.2.3.       (PS)                10
   1.3.             
                     
                                                   11
   1.4.        
                                         14
   1.4.1.                           14
   1.4.2.                   17
   1.5.             
                                                  17
   1.5.1.     .  .PROTECT         17
   1.5.2.                         18
   1.5.3.     .DEVICE                           18
   1.5.4.     .INTEN                            19
   1.5.5.      .SYNCH              20
   1.5.6.               .
              .FORK                             22
   1.5.7.              
             .INTEN, .FORK  .SYNCH                         23
   1.5.8.                                  25
   1.5.9.             
             (INTSET)                                       25
   1.6.                
                                                  25
   1.7.       XM-               26
  
   2.                            33
  
   2.1.                                       34
   2.1.1.     .DRDEF                            34
   2.1.1.1.   .MCALL                               35
   2.1.1.2.                          35
   2.1.1.3.                         36
   2.1.1.4.                 36
   2.1.2.    -                   37
   2.1.3.                           38
   2.1.4.                             39
   2.2.                                      40
   2.2.1.       0                           40
   2.2.2.                             40
   2.2.3.     .DRBEG                            41
   2.2.4.      .  
             .DRVTB                                         41
   2.2.5.      PS                                43
 
                             - 3 -
  
  
  
  
   2.3.      /                    43
   2.4.                            45
   2.4.1.                          45
   2.4.2.            
                                        46
   2.4.3.     .DRAST                            47
   2.4.4.               48
   2.5.      /                   49
   2.5.1.     .DRFIN                            51
   2.6.                             51
   2.6.1.     .DREND                            52
   2.6.2.                                   52
  
   3.                         53
  
  
   4.                            54
  
   4.1.                           54
   4.1.1.                       55
   4.1.2.        
                                          55
   4.1.3.        
                                          56
   4.2.    SET-                                    57
   4.2.1.      SET                         57
   4.2.2.      SET-                  58
   4.2.3.     .DRSET                            59
   4.2.4.                   60
   4.2.5.     SET-                         61
   4.3.    - /                  63
   4.3.1.     .TIMIO                            63
   4.3.2.     .CTIMIO                           66
   4.3.3.     -                  67
   4.3.3.1.                    67
   4.3.3.2.      
                                                       67
   4.3.3.3.                   68
   4.4.                                    70
   4.4.1.                    71
   4.4.1.1.                      72
   4.4.1.2.                          72
   4.4.1.3.                        73
   4.4.1.4.           
                                                    73
   4.4.1.5.                          74
   4.4.2.                                75
   4.4.2.1.   ELBLDR                            75
   4.5.                                   76
   4.5.1.      .SPFUN                  76
   4.5.2.             
                                                    77
   4.5.3.                                 78
   4.5.4.                                 78
   4.5.5.                 78
   4.6.       XM-               79
   4.6.1.         
                                                     79
   4.6.2.      XM-                   80
 
                             - 4 -
  
  
  
  
   4.6.3.       XM-                  83
   4.6.4.                           83
   4.6.5.    -            84
   4.6.5.1.   $GETBYT                           85
   4.6.5.2.   $PUTBYT                           86
   4.6.6.     $PUTWRD                           87
   4.6.7.                       88
  
   5.                93
  
   5.1.                                        93
   5.2.                 93
   5.2.1.                                   94
   5.2.2.                                  94
   5.2.3.                               94
   5.2.4.                       95
   5.2.5.                
                                                  96
   5.2.6.     .DRBOT                            96
   5.3.      DUP        
                                                    97
   5.3.1.     "BOOT DDN:FILNAM"                      97
   5.3.2.     "COPY/BOOT XXN:FILNAM DDM:"            99
   5.3.3.     "BOOT DDN:"                           101
  
   6.  ,        102
  
   6.1.                             102
   6.2.                                  103
   6.3.                                   103
   6.3.1.                103
   6.3.2.       INSTALL             108
   6.3.3.       
             DEV                                           108
   6.3.4.             
                                                 109
   6.3.5.              
                                                 110
   6.3.5.1.                  110
   6.3.5.2.                  111
   6.3.5.3.               111
   6.3.5.4.                         112
   6.3.5.5.   /                   113
   6.3.6.           
                                                 113
  
   7.                    114
  
   7.1.     ODT            114
   7.2.     ODT  XM-                 117
  
   8.           118
  
   8.1.                              118
   8.1.1.                          119
   8.1.1.1.                 119
   8.1.1.2.                               120
   8.1.1.3.                   121
   8.1.1.4.      
 
                             - 5 -
  
  
  
  
                          131
   8.1.2.                        132
   8.1.2.1.    .SPFUN                 133
   8.1.2.2.                   134
   8.1.2.3.   /                        136
   8.1.2.4.     BOT                         138
   8.1.2.5.             
                                           138
   8.1.2.6.                 139
   8.1.2.7.                              139
   8.1.2.8.                         140
   8.1.2.9.    .LOOKUP               140
   8.1.2.10.  .CLOSE                           141
   8.1.2.11.   .WRIT*                141
   8.1.2.12.   .READ*                142
   8.1.3.              .DFN      CRTN
                 ,     
                   ,
                      
             .                                 142
   8.1.3.1.                 143
   8.1.3.2.                              143
   8.1.3.3.                         143
   8.1.3.4.    .LOOKUP               144
   8.1.3.5.   .CLOSE                           145
   8.1.3.6.    .WRIT*                145
   8.1.3.7.    .READ*                146
   8.1.4.                
                                                   146
   8.1.4.1.                      146
   8.1.4.2.      -                147
   8.1.5.        RSX-11D  IAS        147
   8.1.6.                               147
   8.2.        (CT)          149
   8.2.1.                                   150
   8.2.1.1.   .LOOKUP                          151
   8.2.1.2.   .DELETE                          151
   8.2.1.3.   .ENTER                           151
   8.2.1.4.   .CLOSE                           152
   8.2.1.5.   .READ/.WRITE                     152
   8.2.2.                         153
   8.2.2.2.                                   154
   8.2.2.3.                                   154
   8.2.2.4.                                   154
   8.2.2.5.                                   154
   8.2.2.6.                    154
   8.2.3.                    155
   8.3.        (DX  
           DY)                                             156
   8.4.           
           (CR)                                            157
   8.5.           
           / (PC)                               158
   8.6.       (TT)               158
   8.7.        (DM)              159
   8.7.1.                                160
   8.7.2.     .SPFUN                           161
   8.8.    - (NL)                               162
  
 
                             - 6 -
  
  
  
  
                    1.  
  
  
  
  
                
            ,
             
       .   -
       ,  
         /,    
   '    .
  
  
  
        1.1.  /
  
  
  
                -
       -
    /.     ,  
        
             -
     .    
     ,     -
           
       ,       
   .  /    -
           -
   ,       /.  
   ,                
   /.
  
        ,    ,    /
          .  ,
         /
         "?MON-F-SYSTEM HALT".
       RESET,    -
    /.       -
       ().   ,
        ,    
       ,    
      .PRINT,        
   .   ,    -
    /   , -
        .
  
             
    /  ,    
     .       RMON,
     /:
  
    ;  R1    .
    ; TTPS  , 
    ;    .
    ;      
    ;    .
    ; TTPB - , 
 
                             - 7 -
  
  
  
  
    ;   .
    ;     
    ;   "0"
    ;     .
    ;
    5$:    TSTB    @TTPS           ; ?
           BPL     5$              ;, 
           MOVB    (R1)+,@TTPB     ;,  
           BNE     5$              ;   
  
                   DX
         /.
          .  -
      ,   
           -
   .          
             
   /         
      .    -
     (     ) 
     .
  
            DX   -
    /:
  
    ;         R4   
    ;        ;
    ;        R5 -    ;
    ;        R2 -     .
    ;
    TRBYT:  TSTB   @R4             ;  ?
            BPL    TRBYT           ;
    EFBUF:  MOVB   @R5,(R2)+       ;,  
            DEC    @SP             ;  
            BGT    TRBYT           ; 
  
  
  
  
        1.2. /  
  
  
  
          /     
   ,       -
    /   .   
        /    
   .    ,    
     .    -
     ,          :
   ,    .  
     (  , -
       ).  -
    /    ,    
        ,  -
        .
  
  
  
 
                             - 8 -
  
  
  
  
        1.2.1.  
  
  
  
              
        .  -
      (PS)    (PC)
       ,   
        .
  
              PS    PC
       ,   -
    .      -
         PS,      
    .     -
    ,      RTI,  
     PS    PC    ,    
          -
   .
  
  
  
        1.2.2.    
  
  
  
               
     .  . 1   -
     .        
   .     , 
      .  ,    
     6;     5; -
        -    
     4.     -
         -
        /.  -
          
    .    ,  
        ,     
      ,   ,   -
        .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 9 -
  
  
  
  
                   
  
                  
                                        
  
       7 ------                    !     
       6 ------                    !             
       5 ------                    !     
       4 ------                    !        
  
      !---------- FORK ----------  
      !
      !                        /-  
      !                       /   
      !---------- FG --------<
      !                       \    
      !                        \- 
      !
      !                        /-  
      !                       /   
      !---------- BG---------<
      !                       \    
      !                        \- 
      !
    0 ------------ ----   
  
                           . 1
  
                  
    ( 0  7).      
    7,           
     .      
    ,           
     .      
          
       .   
          -
    .        
      PS.    -
      .MTPS, .MFPS, .INTEN  .FORK.
  
                
          
          ,
     .      ,
   ..        
   ,            
    .     
          -
       .
  
  
  
  
  
  
  
  
  
 
                             - 10 -
  
  
  
  
        1.2.3.    (PS)
  
  
  
           (PS)   
     /.      
          -
      ( ),      
    (T-),       
     (       
       ).
  
         . 2   PS.   5  7 -
         .    
   ,    .   -
           0 
   7.       -
        .   -
    7 ,         
   .      
    (    ).
        -
      .INTEN  .FORK.
  
                      (PS)
  
      15 14 13 12 11 10      8  7    5   4   3   2   1   0
     =======================================================
     !     !     !  !         !        ! T ! N ! Z ! V ! C !
     =======================================================
      !   ! !   !  V          !  !  !    V   !   !   !   !
      ----- -----  !          -------    !   -------------
        V     V    !             V       !         V
        !     !    !             !       !         !
        !     !    !             !       !         !    
        !     !    !             !       !         !--> 
        !     !    !             !       !------------>  T
        !     !    !             !
        !     !    !             !-----------------> 
        !     !    !
        !     !    !------------------>   
        !     !
        !     !---------------------------->  
        !
        !------------------------------------->  
  
      *    XM-
  
                           . 2
  
  
  
  
  
  
  
  
  
  
 
                             - 11 -
  
  
  
  
        1.3.          
                       
             
  
  
  
          /,     /  
         .
          (
       ),  :
  
          -      ;
  
          -     .
  
     ,     -
               
   /,     /    .
            
         ,    
               
      /.   
         .
  
         ,       
   ,        -
    .     
            .
    ,      
          .
  
          ,    
   ,      
    ,        .    
       .READ    .WRITE,
         , -
          ,  
    .    SJ-        
   FB-    ,  -
           /.  (..
         ,    
     .)           
   FB-/XM-      ,  
     LOAD,     -
   ,     .
  
        ,         -
   ,         
    .  ,   -
         -
      , ,  -
   .    ,   
       (, ,  
   )   .  
       -     -
    .
  
              
         ' -
 
                             - 12 -
  
  
  
  
     . ..    -
    ,    ,    
          ,
     .    -
      ,    -
        -
   ,     .
  
              
    (,         
      ,  ,   
   - ).       
    .      -
   ,       -
    ,   ' ,    -
      .
  
             -
      ,       -
       ,    -
        ,    
    .      -
        ,   -
           -
   ,    ,     -
    ,    .   -
     ,    
         ,  ,  ,
      . ,   
            -
     ( ,   -
            
       ).    -
    ,      
        .
  
            .   
                  
   /,      .  
       ,      -
      ;    -
   ,         
         .    ,  
          
        .  ,
       ,  
                   
   XM-.
  
        . 3      -
          -
   .
  
         ,     -
      ,     -
     1.4.   ,   
    ,        
   .
  
 
                             - 13 -
  
  
  
  
               
                        
  
     ---------------------------------------------------------
     !                             ------------------------  !
     !                             !    !  !
     !                             !   !  !
     !                             ! - - - - - - - - - - -!  !
     !  --------------             !            !  !
     !  !  !-------------!          !  !
     !  --------------             !             !  !
     !                             !            !  !
     !                             ! - - - - - - - - - - -!  !
     !                             !                      !  !
     !                             !----------------------!  !
     !                                                       !
     !              !
     !                                                       !
     !-------------------------------------------------------!
     !                                !------!  ------------ !
     !                                !      !--!! !
     !                                !      !  ! ! !
     !                !------------!  !      !  ------------ !
     !                !     !  !      !               !
     ! ------------   !  !  !      !  ------------ !
     ! !!---! - - - - -  !--! RMON !--! ! !
     ! ------------   !!  !      !  ! ! !
     !                !   !  !      !  ------------ !
     !                !  !  !      !               !
     !                ! - - - - - -!  !      !  ------------ !
     !                !------------!  !      !--! ! !
     !                                !      !  ------------ !
     !                                !      !               !
     !                                !      !  ------------ !
     !                                !      !--!    ! !
     !                                !      !  ------------ !
     !                                !      !               !
     !                                !      !  ------------ !
     !                                !      !--! -   ! !
     !                                !      !  ! ! !
     !                                !      !  ------------ !
     !                                !      !               !
     !                                !      !  ------------ !
     !                                !      !--!! !
     !                                !      !  ! ! !
     !                                !------!  ------------ !
     !                                                       !
     !                                      !
     ---------------------------------------------------------
  
                           . 3
  
  
  
  
  
  
  
  
 
                             - 14 -
  
  
  
  
        1.4.     
              
  
  
  
               -
          -
   .    :
          -   ;
          -     ,   
            ;
          -     ;
          -   ;
          -   ;
          -   ;
          -    .
  
  
  
        1.4.1.   
  
  
  
              -
          .  
         , -
         .
  
         ,    :  
     ,      
   .      ,    
     .
  
                    .
          ,  
             -
    .    ,  -
        :
  
       1)     ( )
            ?
  
          - ,       .
               ,  -
             ,    ,  -
               ,   
            .   ,  ,  
              ,        
               .      
            ,      500, 
                  
               ;
  
       2)        ?
  
          -   ,        
                    ;
  
  
 
                             - 15 -
  
  
  
  
       3)     ?
  
       4)    DMA (  
          )    (-
           - ) ?
  
       5)     ?
  
          -  ,      -
            ,        ;
  
       6)      ?
  
          - ,    ,  -
                .  -
                   -
            , , ;
  
       7)       ?
  
          -      -
               ;     -
            ,  -     
              .    -
                  -
             ,       
               .   -
             ,   ;
  
       8)        ?
  
          - ,      ,  
               ,            
            /     ,    
            .  ,  ,     
                      
            -,      -
                  -
             ;
  
       9)     
             ?
  
          -      
              .     
            , , ,    -
                ;
  
      10)    ?
  
          -       ,    
            ,   ,   .
              , ,   -
              ,  ,  ,  -
             .     
                 ,  
                  .
               ;      
             ,    
 
                             - 16 -
  
  
  
  
              ,      
                ;
  
      11)    ?
  
          -         
                 .  
                SILO   
             .  ,   -
                 ,  
            ,  ,  ;
  
      12)       ?
  
          -      .  
               ,     
             .   ,    
                    -
            .     ,   -
                  ;
  
      13)  ""    ?
  
          -         
                 .
             ,        
                -
                 ().  ,
                   -
                ;
  
      14)      
           ?
  
          -   ,     
               ,    -
                 .  -
                 -
              ,     
             .  ,   
                  
                 ;
  
      15)    ?
  
          - ,      
              .  ,      
              ,    
                  
             ,        
              .  
                .
  
  
  
  
  
  
  
 
                             - 17 -
  
  
  
  
        1.4.2.    
  
  
  
             
         
         .  
   ,         
       ,     
   .      
     XM-,     -
    1.7.
  
             -  
   ,     ,       
   . ,  -     
         
            .  
   ,           
                  ,  
           
   . (,    
             -
       .)     
    ,     
   , ,       -
      .      -
      .
  
             -
      .      
   ,          -
   ,   .    -
           ,  
       ODT ( VDT)    -
      ,    , -
       .
  
  
  
        1.5.          
             
  
  
  
                 
     .
  
  
  
        1.5.1.  .  .PROTECT
  
  
  
            FB-    XM-,  
             ,   
     .PROTECT     -
     ,       .  
    ,      
 
                             - 18 -
  
  
  
  
     .      
         , -
         .   
    ,   .PROTECT  -
   ;       ,  ..  
    .
  
               SJ-  
   .PROTECT   .          
    ,    ,  ..  
      ,  -
                  
   FB-.
  
  
  
        1.5.2.   
  
  
  
              -
        ,    -
    7 -     .   -
    ,       -
     .  ,  
         ,    
   .    ,    -
     XX       220  
   222.
  
           XXVEC = 220             ; 
           PR7   = 340             ; 7 = 340
    ;
    ; ISREP -     
    ;
           .PROTECT #AREA,#XXVEC   ; 
           BCS     NOVEC           ; 
           MOV     #ISREP,@#XXVEC  ;  
           MOV     #PR7,@#XXVEC+2  ;  
  
  
  
        1.5.3.  .DEVICE
  
  
  
         .DEVICE     -
    FB-  XM-.     -    -
   ,    ,  
      <CTRL/C>.
  
              SJ-  
    .DEVICE   ,     -
         (      
   ,      -
    FB-).
  
           ,          
   SJ-, ,     -
 
                             - 19 -
  
  
  
  
    /,       -
    .  FB-,     ,
           -
      ,      -
       .    -
       <CTRL/C>           
   .HRESET,  SJ-      -
   ,   /     .
             -
     ,      
       .
  
  
  
        1.5.4.  .INTEN
  
  
  
                
       ,   -
         .    
      7,      -
   .    -    -
    ,       .
             
       .    
     ,       
            .INTEN.  
   ,       7  
   ,          .
   ,      50  -
       7.
  
              -
        .   -
          -
         .
           
   .INTEN.       R0  R5  
         .INTEN 
    ,           .
           -
   -  (PIC),      
   :
  
           .INTEN PRIO
  
           :
  
           JSR     R5,@54
           .WORD   ^C<PRIO*40>&340
  
               PIC,
     .INTEN      -
   PIC.
  
           .INTEN PRIO,PIC
  
           - :
 
                             - 20 -
  
  
  
  
  
           MOV     @#54,-(SP)
           JSR     R5,@(SP)+
           .WORD   ^C<PRIO*40>&340
  
                
   INTEN,          FB-  
   XM-      "".
          -
   ,  . R4  R5   -
        .    
   R0-R3,        
     .     
      .INTEN,     -
              
     .  ,   PS -
    (,   ),   -
       .INTEN.      .INTEN
                  FB-   
   XM-,       ,  
        PS   -
   ,     .
  
  
        .       -
        -
    ().      
       ,    -
        .
  
  
  
        1.5.5.   .SYNCH
  
  
  
         .SYNCH     FB-
    XM-.   - ,   
    ,      
     .  -
    .SYNCH  SJ-   ,    -
        (   
   ,        
    FB-).
  
               -
       ,   
     .SYNCH.  ,   -
    .INTEN      "",
           -
    "".  .SYNCH  -
         "".    
      ,  USR,  
         
   .SYNCH.    .SYNCH   .FORK.
      .SYNCH   R0  R3  -
         ,      
      .INTEN.
  
 
                             - 21 -
  
  
  
  
        . 1    , -
       .     
               
     .    ,
      .SYNCH,   -
           -
    0. -        
          .SYNCH,  
           
     .SYNCH.    -
      ,  Q.COMP  (-
    14 OE)  0.     
   ,        .SYNCH.  
        (,  
    .SYNCH),     .
  
                                                    1
                         
    ---------------------------------------------------------
        !     !       !     
    ---------------------------------------------------------
         0      ! Q.LINK !     -      !  
         2      ! Q.CSW  !!   
         4      ! Q.BLKN !     -      !  
         6      ! Q.FUNC !     -      !  
        10      ! Q.BUFF !!   R0 
                !        !            !  
        12      ! Q.WCNT !     !  -1
        14      ! Q.COMP !!   
                !        !            !  -  0; 
                !        !            !   
                !        !            !    
  
         ,    .SYNCH  
       . -,  -
      ""  . , -
   ,        ,
     ,   ,   -
   . ,       ,  
   ,   .SYNCH,  .
  
          ,     .SYNCH,
    R0  R1          
    .    R2    R5,    
   ,  ,      
    R4  R5,          
   .SYNCH.    ,     
        .SYNCH.    
   Q.BUFF        R0 
    .
  
         .SYNCH       
     .      .SYNCH  
      ;     -    
   .
  
         SJ- ,    -
    .SYNCH, ,      
   .    FB-  XM-.   SJ-
 
                             - 22 -
  
  
  
  
       .SYNCH       FB-   
   XM-,    .
  
  
  
        1.5.6.            .
                .FORK
  
  
  
         .FORK     -
     .         
      ,    ,
     :  ,   -
   .   (  ,    
    .FORK)    ""  
     0  ,     -
   ,   ,      -
   .      -
       (. . 1).
  
         R4  R5      -
    .FORK.  , R0  R3   -
      .    .SYNCH,    .FORK
   ,    R0   R3      ,
     .INTEN  .    -
   ,   .FORK     -
    .INTEN .
  
             
     ,       
     R4, R5  PC.      
   ,          -
    .FORK.   .FORK      
   ,      -
        .FORK    ,  
      .FORK (,  -
     ).
  
                  
   ,    .  ,
       ,   ,
    , .    
     . 2.
  
                                                    2
                           FORK
    ---------------------------------------------------------
       !     !      !    
    ---------------------------------------------------------
         0     ! F.BLNK !    !   
         2     ! F.BADR !    !    FORK
         4     ! F.BR5  !    !    R5
         6     ! F.BR4  !    !    R4
  
           .FORK      
   .  ,       
    ,      
   $FKPTR.    -
 
                             - 23 -
  
  
  
  
     :
  
           MOV     @#54,R4
           ADD     402(R4),R4
           MOV     R4,$FKPTR
           .
           .
           .
    $FKPTR:.WORD   0
    FBLK:.WORD   0,0,0,0
  
                    
       .FORK:
  
           .FORK   XXFBLK
  
         .FORK   :
  
           JSR     R5,@$FKPTR
           .WORD   XXFBLK-.
  
        SJ-      .FORK,  
          -
   .          ,  
    R0  R3      -
   .  ,     -
          -
       .INTEN.    .INTEN     
    R4  R5.
  
            .FORK       
    , ..     -
   ,          
    ,       .
  
        ,        -
     80   .      
     ,       
         .    
           (,  
      2,5  ).          
       6, ,   -
               -
   .
  
         .FORK   .  -
        0,   ,  
      ,   ,   
       .
  
  
  
        1.5.7.           
               .INTEN, .FORK  .SYNCH
  
  
  
         . 3        
    .INTEN, .FORK  .SYNCH.
 
                             - 24 -
  
  
  
  
                                                    3
             
    ---------------------------------------------------------
              !    !   ! ,   ! ,
     !!    !    !
                 !         !        ! -!  
                 !         !        !   ! 
                 !         !        ! !    
    ---------------------------------------------------------
       .INTEN    !         ! !  R4,R5      !   
       .FORK     !    0    ! !  R0-R5      !  R4,R5
       .SYNCH    !    0    !- !             !
                 !         !  !  R0,R1      !    R0
  
         . 4        
   .
  
                    
                       .INTEN, .FORK, .SYNCH
                    
  
             R0    R1    R2    R3    R4    R5
    ----------     ------------------------------------------
        !      I---------- ----------I
        !            !     !     !     !     !      !
        V            !     !     !     !     !      !
    -------!-----!-----!-----!-----!------!-----
        !            V     V     V     V     V      V
        !      I-----------/---------I
        !            !     !   ( )    !
        V            !     !     !     !     !      !
    .INTEN    -------!-----!-----!-----!-----V------V-----
        !            !     !     !     ! I-- --I
        !            !     !     !     !    
        !            V     V     V     V     !       !
        !      I--/--I  !<------!<-------
        V            !     !     !     !     !       !       !
    .FORK    --------V-----V-----V-----V-----!-------!-----  !
        !                                    V       V       !
        !      I--------  --------I  !
        !            !     !     !     !     !       !       !
        !            !     !     !     !     !       !       !
    .SYNCH     /->---V-----V-----V-----V-----V-------V-----  !
        !     /                                              !
        !     !I-----I I--/--I  !
        V     !      !     !     !     !     !       !       !
              !      !     !     !     !     !       !       !
            V     V     V     V     V       V       !
                                                      !
                                        !------->!
                                                  
                                                  
                                                  
  
                           . 4
  
  
  
  
 
                             - 25 -
  
  
  
  
        1.5.8.   
  
  
  
         .INTEN     -
       .     
     RTS PC.     
   ,   R4  R5   
    RTI.
  
           .FORK  .SYNCH    -
    RTS PC.           
   .
  
  
  
        1.5.9.          
               (INTSET)
  
  
  
         INTSET       
       ,   -
     .
  
  
  
        1.6.             
             
  
  
  
              ,
          .
         -
   ,   .      
    ,     -
     .     ,  
      ,  
         .
  
           XX   .
  
                   ****   ****
  
           XXVEG = VVV             ; 
           PR7   = 340             ; 7
           DEVPRI= 5               ;  5
           XXCSR = NNNNNN          ;   
           IENABL= 100             ;  
    START: .PROTECT #LIST,#XXVEC   ; 
           BCS     ERROR           ; 
           MOV     #ISREP,@#XXVEC  ;  
                                   ;
           MOV     #PR7,@#XXVEC+2  ;  
                                   ;
           .DEVICE #LIST,#DEVLST   ;  
                                   ;  
    ;
 
                             - 26 -
  
  
  
  
    ;      
    ;     
    ;
    SPND:  BIS     #IENABL,@#XXCSR ; 
           .SPND                   ; 
    ;
    ;  
    ;  
    ;
           BR      SPND            ;  
    DEVLST:.WORD   XXCSR           ;  .DVICE
           .WORD   0
           .WORD   0
    LIST:  .BLKW   3               ;  EMT
    ERROR: .                       ; 
           .                       ;
           .
            ****    ****
    ISREP: .                       ;   
           .                       ; 7
           .
           .INTEN  DEVPRI          ;:  #DEVPRI
                                   ;  
                                   ;.  
                                   ;  R4  R5
    ;
    ;      
    ;
           BR      RETURN
    ;
    ;      
    ;
           .SYNCH  #SYNBLK         ;  
                                   ;  
                                   ;
           BR      SYNERR          ; .SYNCH
           .RSUM                   ; 
                                   ;
    RETURN:RTS     PC              ; 
                                   ;
           .
           .
           .
    SYNBLK:.WORD   0,2,0,0,0,-1,0  ;: 2 -  
                                   ; 
    SYNERR:                        ;  .SYNCH
  
  
  
        1.7.    XM-
  
  
  
                 
   ,         
   XM-.
  
               XM-  (  
   )       
 
                             - 27 -
  
  
  
  
      .   -
           
        /  ,  
            -
         (  )    
    .
  
         ,    -
      ,            
   XM-,        
   .     -
    28       /    
         
        ,  
     .
  
         ,   ,  XM-
       ,    -
   ,             
   XM-,         
   ,     .   -
   ,        
           28  
      /,  ,  
     -        
    .   ,    -
    XM- ,       -
          
     ,   ,   -
     .
  
         . 5         
   ,      28 
      /.     -
       ,      
    .         
         ( -
      ,      
    ).    ,    
    200  202,    ISREP: 
       340,    
    PS.       
    ,      
   .         120000.
          -
      ,    
       ,   
    ,     .
  
  
  
  
  
  
  
  
  
  
  
 
                             - 28 -
  
  
  
  
                
  
                             -
                             -
                  .            -
                  - ->--------<-   .
                  .    ! ! . ! !   -
          -   /  ! /  !  \           
            / ->!------!<- \ -  
    --------------------/  ! !//////! !  \--------------------
    ! 177776! 7 !      !  /  !//////!  \  !      ! 7 ! 177776!
    ! 160000!   !      ! /   !//////!   \ !      !   ! 160000!
    --------------------/----!------!----\--------------------
    ! 157776! 6 !      !     !      !     !      ! 6 ! 157776!
    ! 140000!   !      !---->!      !<----!      !   ! 140000!
    --------------------     !------!     --------------------
    ! 137776! 5 !ISREP:!     ! /  !     !ISREP:! 5 ! 137776!
    !*120000!   !      !---->!..!<----!      !   !*120000!
    -------------------- 120000-----!     --------------------
    ! 117776! 4 !      !     !      !     !      ! 4 ! 117776!
    ! 100000!   !      !---->!      !<----!      !   ! 100000!
    --------------------     !------!     --------------------
    !  77776! 3 !      !     !      !     !      ! 3 !  77776!
    !  60000!   !      !---->!      !<----!      !   !  60000!
    --------------------     !------!     --------------------
    !  57776! 2 !      !     !      !     !      ! 2 !  57776!
    !  40000!   !      !---->!      !<----!      !   !  40000!
    --------------------     !------!     --------------------
    !  37776! 1 !      !     !      !     !      ! 1 !  37776!
    !  20000!   !      !---->!      !<----!      !   !  20000!
    --------------------     !------!     --------------------
    !  17776! 0 !      !     !      !     !      ! 0 !  17776!
    !  00000!   !      !---->!      !<----!      !   !  00000!
    --------------------  !  --------  !  --------------------
                          !            !
                          !            !
                          
                        
                                   
  
    *                              -        
                                          
    - -       -   
                                     
    . - .    -    
                                           
    - .  - -  
                                          
    . /                       -     /
    / ..                     -    
                                     
  
                           . 5
  
          .  6      ,
         -
    (    , 
        ).   
   ,            
 
                             - 29 -
  
  
  
  
         ,  ..
         
   ,    .  ,  -
    ,     -
   .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 30 -
  
  
  
  
           
  
                               -
                               -
                               
                           /-->--------<---\
                           !   ! . !    !
                           !   ! /  !    !
                           ! ->!------!<---!
                           ! ! !      !   !!
    -         .     ! ! !------!<--!!-     
            -  ! ! ! /  !  !!!.        
    -        .     ! ! !..!  !!!      -
              / ! !------!<-!!\-   
    ----------------------/  / !//////! !!! \-----------------
    ! 177776!7!          !  /  !//////! !!!  !      !7! 177776
    ! 160000! !          ! /   !//////! !! \ !      ! ! 160000
    ----------------------/----!------! !\  \-----------------
    ! 157776!6!          !     !//////! ! \  !      !6! 157776
    ! 140000! !          !---->!//////! \  \ !      ! ! 140000
    ----------------------     !------!  \  \-----------------
    ! 137776!5!    ISREP:!     !//////!   \  !ISREP:!5! 137776
    !*120000! !          !---->!//??//!    \ !      ! !*120000
    ----------------------  120000----!     \-----------------
    ! 117776!4!          !     !      !      !      !4! 117776
    ! 100000! !          !---->!      !< ----!      ! ! 100000
    ----------------------     !------!      -----------------
    !  77776!3!          !     !      !      !      !3!  77776
    !  60000! !          !---->!      !< ----!      ! !  60000
    ----------------------     !------!      -----------------
    !  57776!2!          !     !      !      !      !2!  57776
    !  40000! !          !---->!      !< ----!      ! !  40000
    ----------------------     !------!      -----------------
    !  37776!1!          !     !      !      !      !1!  37776
    !  20000! !          !---->!      !<-----!      ! !  20000
    ----------------------     !------!      -----------------
    !  17776!0!202 340   !     !      !      !      !0!  17776
    !  00000! !200 ISREP:!---->!      !<-----!      ! !  00000
    ----------------------  !  --------   !  -----------------
                            !             !
                            !             !
                           
                         
                                    
  
    *                              -        
                                          
    - -       -   
                                     
    . - .    -    
                                           
    - .  - -  
                                          
    . /                       -     /
    / ..                     -    
                                     
  
                           . 6
  
 
                             - 31 -
  
  
  
  
              -
     XM-     -
       () 1    -
   . 1      
     20000  37776.  XM-  -
        ,      
         .  ,  
     1     EMT 
       .  ,      
         
   1    -    
       .   ,  
        ,  
    ,        -
   ,  1. . 7     -
   .        -
   ,     
      ,       
   "*".
  
             
    ,     1    -
   ,    .     -
   ,       
     .         
   .INTEN  ,     .
  
  
        .     -
    MQ     ,   -
     1     2 -   -
     40000  57777.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 32 -
  
  
  
  
         1   
  
                             -
                             -
                  .           -
                  - ->--------<-  .
                  .    ! ! . ! !  -
          -   /  ! /  !  \           
            / ->!------!<- \-   
    --------------------/  ! !//////! !  \--------------------
    ! 177776 ! 7 !     !  /  !//////!  \  !     ! 7 ! 177776 !
    ! 160000 !   !     ! /   !//////!   \ !     !   ! 160000 !
    --------------------/----!------!----\--------------------
    ! 157776 ! 6 !     !     !      !     !     ! 6 ! 157776 !
    ! 140000 !   !     !---->!      !<----!  *  !   ! 140000 !
    --------------------     !------!     --------------------
    ! 137776 ! 5 !     !     !      !     !     ! 5 ! 137776 !
    ! 120000 !   !     !---->!      !<----!  *  !   ! 120000 !
    --------------------     !------!     --------------------
    ! 117776 ! 4 !     !     !      !     !     ! 4 ! 117776 !
    ! 100000 !   !     !---->!      !<----!  *  !   ! 100000 !
    --------------------     !------!     --------------------
    !  77776 ! 3 !     !     !      !     !     ! 3 !  77776 !
    !  60000 !   !     !---->!      !<----!  *  !   !  60000 !
    --------------------     !------!     --------------------
    !  57776 ! 2 !     !     !      !     !     ! 2 !  57776 !
    !  40000 !   !     !---->!      !<----!  *  !   !  40000 !
    --------------------     !------!     --------------------
    !  37776 ! 1 !     !     !      !     !     ! 1 !  37776 !
    !  20000 !   !     !-> 7 !      !<----!     !   !  20000 !
    --------------------     !------!     --------------------
    !  17776 ! 0 !     !     !      !     !     ! 0 !  17776 !
    !  00000 !   !     !---->!      !<----!  *  !   !  00000 !
    --------------------  !  --------  !  --------------------
                          !            !
                          !            !
                          
                        
                                   
  
    *                              -      
                                           
                                     
    - -       -   
                                     
    . - .    -    
                                           
    - .  - -  
                                          
    . /                       -  /
  
                           . 7
  
         (),    
   .SYNCH,   ,   .
      XM-   -
    ,      
   . ,   (), -
     .SYNCH,          
 
                             - 33 -
  
  
  
  
    ,      -
       .  ,    
   ( ),      .SYNCH,  
   XM-       ,      
      :   
            
        .  ,  
       1  2.
  
  
  
  
  
               2.    
  
  
  
  
              
       .   
          -
     ,       ,
     ,   . -
     :     ,
   SET-,          -     
   /,   ,      
     ,        
   XM-.
  
                
             
       .    
      ,  '  -
    , ,     
   .
  
                 
            ,
      , '   -
     .
  
            :
  
          -   ;
          -      -
            ;
          -    ;
          -     ;
          -   ;
          -  -  ;
          -   ;
          - ,    .
  
               -
   :
  
          - ;
          - ;
          -  /;
 
                             - 34 -
  
  
  
  
          -  ;
          -  /;
          -  .
  
                  
     ,     -
    .     
         -
       .
  
  
  
        2.1.  
  
  
  
              
   ,     .MCALL   -
      (,  .DRDEF    .).  
       , 
     .
  
  
  
        2.1.1.  .DRDEF
  
  
  
         .DRDEF         
     :
  
          -   .MCALL      ,
              ;
          -         
             ;
          -   .QELDF    
               ;
          -    ;
          -    (DDDSIZ),  ;
          -    (DD$COD);
          -      -
            ,   DDDSIZ  DD$COD;
          -         
                 DD$CSR    
              DD$VEC;
          -   DD$CSR  DD$VEC .
  
  
        . DD -   .
  
         .DRDEF   :
  
           .DRDEF N,CODE,STAT,SIZE,CSR,VEC
  
    
  
   N   -     (,  RK  
                );
  
 
                             - 35 -
  
  
  
  
   CODE   -   ,   
              (- -
            );
  
   STAT   -    .      STAT
                      
              :
  
                FILST$     WONLY$       HNDLR$
                RONLY$     SPECL$       SPFUN$
  
   SIZE   -    256-  ( -
              0,      -
            );
  
   CSR    -          -
             ;
  
   VEC    -        -
            .
  
  
  
        2.1.1.1.  .MCALL
  
  
  
         .DRDEF   .MCALL    -
    :
  
           .DRAST      .DRBEG       .DRFIN
           .DRBOT      .DREND       .DRSET
           .DRVTB      .FORK        .QELDF
  
         ,      
   TIM$IT=1  .DRDEF   .MCALL   
   :
  
           .TIMIO    .CTIMIO
  
  
  
        2.1.1.2.   
  
  
  
               -
     .    
             
      . ,  
   ,            
    ,        
    ERL$G.
  
         ,       -
   ,     -
         1,        
      0.
  
 
                             - 36 -
  
  
  
  
          .DRDEF      0  
       TIM$IT  (  -  ),
   MMG$T (    )    ERL$G  (
    ),         -
      .  ,  -
     ,  0,     .DRDEF
      1.
  
  
  
        2.1.1.3.    
  
  
  
         .DRDEF   .QELDF    
       .    
        .
  
       Q.LINK = 0      (    )
       Q.CSW  = 2.     (   )
       Q.BLKN = 4.     (  )
       Q.FUNC = 6.     (  )
       Q.JNUM = 7.     ( )
       Q.UNIT = 7.     ( )
       Q.BUFF = ^10   (  )
       Q.WCNT = ^12   ( )
       Q.COMP = ^14   (  )
       Q.ELGH = ^16   (  )
  
           -
       Q.BLKN,      .QELDF
       :
  
       Q$LINK = -4
       Q$CSW  = -2
       Q$BLKN =  0
       Q$FUNC =  2
       Q$JNUM =  3
       Q$UNIT =  3
       Q$BUFF =  4
       Q$WCNT =  6
       Q$COMP = 10
  
  
  
        2.1.1.4.   
  
  
  
              ,    
       ,   -
       .      
       .
  
         :
  
            (    -7    12)
     :
  
 
                             - 37 -
  
  
  
  
           LF = 12        ; 
  
           :
  
           RKDS = RK$CSR    ;  
           RKER = RKDS+2    ; 
           RKCS = RKDS+4    ;  
           RKWC = RKDS+6    ;  
  
         .DRDEF   :
  
           HDERR$ = 1       ;    CSW
           EOF$ = 20000     ;    CSW
  
  
  
        2.1.2. - 
  
  
  
                     (-
   )      .
            CODE
    .DRDEF.  . 4     
    :
  
                                                    4
                     
    ---------------------------------------------------------
        -     !               
     !------------------------------------------
                  !     !         
    ---------------------------------------------------------
           0      !  RK    !    
                  !        !    
         1-2      !   -    ! 
           3      !  LP    !   
           4      ! TT/BA  !    
                  !        !    
           5      !   -    ! 
           6      !  DY    !    
           7      !  PC    !   /
          10      !   -    ! 
          11      !  MT    !  
          12      !  RF    !    
          13      !  CT    !    
          14      !  CR    !    
       15-17      !   -    ! 
          20      !  MM    !    
                  !        !   
          21      !  DP    !   
          22      !  DX    !  
          23      !  DM    !   14 
          24      !   -    ! 
          25      !  NL    ! -
       26-30      !   -    !  (  
       31-40      !   -    ! 
          41      !  LS    !   
          42      !  MQ    !  
 
                             - 38 -
  
  
  
  
                                          . 4
    ---------------------------------------------------------
        -     !               
     !------------------------------------------
                  !     !         
    ---------------------------------------------------------
                  !        ! 
          44      !  XT    !    
                  !        ! 
          60      !UX,UY,UZ!   
                  !        ! SJ/FB/XM- 
         377      !  VM    !   
  
  
        .      -
   ,        ,  
           376,
     - 375   ..        ,
         .
  
  
  
        2.1.3.   
  
  
  
              -
             
   (,      ).
         0   
       $STAT   . -
     .DSTATUS        
   ,  .DRDEF    -
   ,   CODE  STAT.
  
    . 5          
   .  .DRDEF   DDSTS 
      .
  
                                                    5
                  
    ---------------------------------------------------------
      !    !             
    ---------------------------------------------------------
     0-7 !    -     ! - 
     8-9 !    -     ! 
      10 !  SPFUN$  ! 0 =  .SPFUN 
         !          ! 1 =    
         !          !     .SPFUN
      11 !  HNDLR$  ! 0 =    
         !          !        
         !          !     ,   
         !          !     
         !          ! 1 =    
         !          !        
         !          !     
         !          !     SJ-
      12 !  SPECL$  ! 1 =    
         !          !      (, MT, CT)
 
                             - 39 -
  
  
  
  
                                          . 5
    ---------------------------------------------------------
      !    !             
    ---------------------------------------------------------
      13 !  WONLY$  ! 1 =    
      14 !  RONLY$  ! 1 =    
      15 !  FILST$  ! 0 =   
         !          !      (, MT, CT, PC, LP)
         !          ! 1 =    
         !          !     (, RK, DX)
  
  
        .  ,   11-      
           ,
           -
           -
   ,    ,     
   ,     (, :).
  
         ,      15,
            -
     .
  
              
      .      
   STAT,      -
     .
  
    FILST$ == 100000  ;    
    RONLY$ ==  40000  ; 
    WONLY$ ==  20000  ; 
    SPECL$ ==  10000  ; 
    HNDLR$ ==   4000  ;   
                      ;
    SPFUN$ ==   2000  ;   
  
        .   STAT  .DRDEF  
    RK, MT  LP:
  
             RK:  FILST$
             MT:  SPECL$!SPFUN$!HNDLR$
             LP:  WONLY$
  
  
  
        2.1.4.   
  
  
  
         SIZE   .DRDEF    
     256- .  .DRDEF  -
       DDDSIZ.        
      ,    SIZE    0.
     RK  4800    (11300  -
   );    PC  (  
   /)  0,      .
  
         .DSTATUS      
     .
 
                             - 40 -
  
  
  
  
        2.2.  
  
  
  
              .  
       .DRBEG    -
       .      
        0       
   52  60       .  ,
      ,     -
        .FETCH    
     LOAD.      176,    ,
         
     .
  
  
  
        2.2.1.    0
  
  
  
         . 6   ( ) 
      0:      
   .DRBEG,   .ASECT,   , -
       -  .DRBOT.  (-
    :     -
    , DD -   .)
  
                                                    6
                      0
    ---------------------------------------------------------
      !                  
    ---------------------------------------------------------
      52    !     
            !    [DDEND-DDSTRT]
      54    !     256- 
            !    [DDDSIZ]
      56    !    
            !    [DDSTS]
      60    !      
            !     
            !    [ERL$G+<MMG$T*2>+<TIM$IT*4>]
      62    !      (.DRBOT)
      64    !    ,   (.DRBOT)
      66    !        
            !     (.DRBOT)
     176    !      
            !    [DD$CSR]
  
  
  
        2.2.2.    
  
  
  
         . 7   ,  
      .DRBEG     P-  
   (DD -   ).
  
 
                             - 41 -
  
  
  
  
                                                    7
                     
    ---------------------------------------------------------
        !     !          
    ---------------------------------------------------------
        1    !  DDSTRT:: !  
             !           ! (  );
             !           !    
             !           ! (  )
        2    !     -     !     
             !           !  
        3    !     -     !  (340)
        4    !  DDLQE::  !   
             !           !   
        5    !  DDCQE::  !    
  
  
  
        2.2.3.  .DRBEG
  
  
  
         .DRBEG      
   0    .      
       .  -
    .DRBEG      .DRDEF  
    DD$CSR, DD$VEC, DDDSIZ    DDSTS.  
   .DRBEG   :
  
           .DRBEG NAME
    
  
   N   -   .
  
          .DRBEG   .
  
  
  
        2.2.4.   .  
               .DRVTB
  
  
  
            ,    
     . ,  PC 
      70 (  )   -
    74 (  ).
  
              ,
             ,
      :
          -   ;
          -      ;
          -     (PS).
  
             -
     ,         
   .DRVTB    .  .DRVTB 
      .     -
 
                             - 42 -
  
  
  
  
       .DRBEG       .DREND   (
   .DRBOT),        .  
           -
       .
  
         .DRVTB   :
  
           .DRVTB NAME,VEC,INT[,PS]
    
  
   NAME   -    (    -
                         
            .DRVTB);
  
   VEC    -   (  0    474).    
              DD$VEC.    -
             ;
  
   INT    -   ()   -
             (        ,
            ,  .DRAST),  
            DDINT,  DD -   ;
  
   PS     -  (),   -
                  -
                    -
            .    ,    -
                 0.
  
            PC,  
    .
  
    ;    /
           .IF EQ PR11$X   ;     / ?
           .DRVTB  PC,PR$VEC,PRINT    ;  
                                      ;  /
           .DRVTB  ,PP$VEC,PPINT      ;  
                                      ;  /
           .ENDC
  
    ,      .DRVTB,
     :
  
        .WORD   PR$VEC,PRINT-.,340!0  ;  
                                      ;  /
        .WORD   PP$VEC,PPINT-.,340!0  ;  
                                      ;  /
        .WORD   0                     ; 
  
            ,      PS  
     7,    PS  .
  
  
  
  
  
  
  
  
 
                             - 43 -
  
  
  
  
        2.2.5.   PS
  
  
  
          .DRVTB      -
    PS  .    , 
         
              -
   ,         .  ,
    PC           
           -
   .    70      PRINT:,
     74 -  PPINT:.
  
         ,   PC      
      ,  PCINT:,    
       PS    .    
      ,     
   ,        .
   ,   PS  "C"  0,   -
      70,    "C"   1,    -  
    74.        -
     .
  
                 
   .DRVTB       PS:
  
    ;    /
           .IF EQ PR11$            ;    / ?
           .DRVTB  PC,PR$VEC,PCINT  ; "C" 
           .DRVTB  ,PP$VEC,PCINT,1  ; "C" 
           .ENDC
  
  
  
  
  
        2.3.   /
  
  
  
          /     -
     .    - 
    .
  
  
        .  ,     -
        - .
  
               
   / (, .READ   .WRITE),    
           ,  
            JSR  PC.
          ,  ..
      .      ,
          
   .   ,   
            -
   , ..       .  
 
                             - 44 -
  
  
  
  
   -          /
       (,  
    ,       ..),
               
   /     () .
  
         /     ""
    0   ,      
      "",   -
          4    10  
     .        -
    .      
   DDCQE     (Q.BLKN)   -
    .
  
             /  ,  
        , .. -
           -
   .          
         ,
      .
  
            /,  -
       ,  
    :
          - ,         
            ,     .  
              ,     -
              .     
             :
  
           MOV    #RKCNT,(PC)+    ; RKCNT   
     RETRY:.WORD  0               ; 
  
          -         
                    
                . :
  
           OV    RKCQE,R5        ; 
           OV    @R5,R2          ; R2  
           OVB   Q$UNIT(R5),R4   ; R4  
           BIC    #^C<7>,R4
  
          -         
                ,   
                :
  
           .
           .
           .
           MOV    R3,(PC)+        ;   DISKAD
    DISKAD:.WORD  0               ;  
  
  
  
        .        
      /     -
   .          -
   ;
 
                             - 45 -
  
  
  
  
          -    (,    )
                  
               .   
             /.
  
           CSIE    =       100     ; 
           FNWRITE =       1*2     ;
           CSGO    =       1
           .
           .
           .
    AGAIN: MOV     RKCQE,R5        ;  
           MOV     #CSIE!FNWRITE!CSGO,R3   ; 
           MOV     #RKDA,R4                ; 
                                           ; 
  
  
                
     .         
             -
    .
  
           RTS     PC      ; 
  
  
  
        2.4.   
  
  
  
          /    -
            
    .    ,  -
        .
  
               
              
    .      -
    .DRAST.  (  )        
       DDINT,  DD  -
    .        -
          -
      . ,    
           
   .    .
  
  
  
        2.4.1.   
  
  
  
          ,    -
     /:
  
          -     <CTRL/C>,     
            ;
  
          -  .HRESET;
 
                             - 46 -
  
  
  
  
          -    4   10      
            ,     
              "?MON-F-".
  
              
      .    ,  
      .  ,   , -
         .  
   FB-  XM-     -
       ,  HNDLR$  (  11)
         .  SJ-
     .        
    R4     .
  
                  
   /    (-
   , ,    /).  
             
   ,     .  
      /. -
       -     
      ;    
            -
   . ,  PC   -
   ,       -
    /.   (   -
    /)   .
  
        .    PC (PRCSR  -      
   ,   CSR):
  
    PRDONE: CLR   @PRCSR  ;  
  
          (, )   -
      /   -
    .      -
              -
   .       -
    .  RTS  PC      
    ,    
   .
  
               
   .FORK,       -
    .   0  F.BADR  (
       2)     .
        ,
       .
  
  
  
        2.4.2.         
                
  
  
  
               
   7.          
            -
 
                             - 47 -
  
  
  
  
   , ,  ,     -
         .      
       ,    
    .INTEN,        
     .DRAST.
  
  
  
        2.4.3.  .DRAST
  
  
  
         .DRAST      
           -
   ,     .    -
        $INPTR, 
      $INTEN    -
   .     ( -
    )       .FETCH
   (  LOAD).
  
         .DRAST   :
  
           .DRAST N,PRI[,ABO]
    
  
   NAME   -   ;
  
   PRI    -  , .. ,   
                -
            ;
  
   ABO    -   (),    
                    .  
             ,       
             RTS PC      ,
              ,  -
                .
  
             PC    
    .DRAST  ,   :
  
           .DRAST  PP,4,PRDONE
  
           .GLOBL  $INPTR      ;  
           BR      PRDONE      ;  
    PPINT::JSR     R5,@$INPTR  ; /  
           .WORD   ^C<4*^O40>&^O340  ; 
  
               RK,    
    :
  
           .DRAST  RK,5
  
           .GLOBL  $INPTR      ;  
           RTS     PC          ;  
    RKINT::JSR     R5,@$INPTR  ; /  
           .WORD   ^C<5*^O40>&^O340  ; 
  
 
                             - 48 -
  
  
  
  
        2.4.4.    
  
  
  
              
       ,      
        -
     .      ,
      ,      ,  
      .
  
               ,    
    ,       .
  
          ,     -
                   
   /.
  
          ,      -
    .          
   .         /
     .     -
       (..   0),    
     ,      -
     /.
  
         ,         
      .     -
    .FORK    , 
      .    
   .FORK        
   R0-R3, ,  ,   -
      .     -
    .FORK,       R4  R5.
  
         .FORK     -
    . ,    .FORK,  -
       (     -
   )  ,       ,
     ,           
    . ,    -
    .FORK,      -
        "". ( 
     ,           
   /.) ,      4    10
     .
  
               RK  ,  
            -
         .
            ,    
          -
   .
  
         .FORK   :
  
           .FORK   RKFBLK    ; .FORK
  
           JSR     R5,@$FKPTR  ;     FORK
 
                             - 49 -
  
  
  
  
           .WORD   RKFBLK-.  ;    FORK
    RKRETR:CLRB    RETRY+1   ; 
           BR      AGAIN     ;    /
  
           ,      
      .   -
          RTS PC 
     .
  
           ,        
               
   /.
  
  
  
        2.5.   /
  
  
  
          /    
     .    ,
       ,     -
      .    
         ,      
   /       -
    ,         
   .        
      .     
     /  :
  
          -   ;
  
          -        -
              ;
  
          -   . ( ,  
                 -
                         
            /    .)
  
           ,    
       /:
  
    () 
          - ,     -
               ;
  
    () 
          - ,      -
            ,        -
                .
  
            
       .
  
        -,         
   ( 0)     (CSW),     -
     / (Q.CSW)     -
    .          
 
                             - 50 -
  
  
  
  
   /   ,      
     .DRFIN,  .
  
             RK.  -
               
   :
  
           BIS     #HDERR$,@-(R5)  ;  
                                   ; (R5 
                                   ;   
                                   ;;  CSW
                                   ;   )
           .DRFIN  RK              ;  
  
         ,      (,
      ),     
       .     -
   ,  .DRFIN        
   .
  
         ,      
   (,   /),  -
      .          
        ,  -
         /.    ,  
     , :    -
         /      
   <CTRL/Z>,   .      -
      EOF ( )   
   ,            EOF,
              
      .    -
     ,       EOF    
   ,      .    
    ,        
    .
  
         PC      
    /     
     EOF.   ,  
    PC       -
     ,      EOF  
     :
  
     PREO1: CLRB    @(R4)+   ;  
                             ;(R4    )
            INC     -(R4)    ;  
            DEC     BYTCNT-BUFF(R4) ; 
            BNE     PREO1    ;,  
    PRDONE: CLR     @PRCSR   ; 
    PRFIN: .DRFIN  PR        ;  
  
                -
       ,       
     EOF. ,   ,  -
      EOF    (  13),
         .     
   ,   ,        
      /   .
 
                             - 51 -
  
  
  
  
          ,   PC  -
      ,      
     EOF,   EOF   
   ,    :
  
           TST     @#PR$CSR   ;   /  ?
           BPL     PRGORD        ;,  
           BIS     #EOF$,@-(R4)  ;,   EOF
           BR      PRDONE        ;  
           .
           .
    PRDONE:CLR     @PRCSR    ; 
    PRFIN: .DRFIN  PR        ;  
  
              ,  
   -     -
        ,   
      .
  
  
  
        2.5.1.  .DRFIN
  
  
  
         .DRFIN     -
   ,    ,    -
           /  .
    '     
       - 
      .     -
   ,      .
  
         .DRFIN   :
  
           .DRFIN NAME
  
     NAME -   .
  
          .DRFIN   .
  
  
  
        2.6.   
  
  
  
            - ' -
            
      .   -
   ,          .  
    ,      
   .FETCH    LOAD.    
       .  .DREND
        .
  
  
  
  
 
                             - 52 -
  
  
  
  
        2.6.1.  .DREND
  
  
  
          .DREND :
  
           .DREND NAME
  
     NAME -   .
  
          .DREND .  .
  
  
  
        2.6.2. 
  
  
  
               (
           )
           -
    / ,  ,      
     .      -
    : NL (-)   MQ  (  
   ).
  
              
      /.  
    ,        
       .DRAST.      
      .DRFIN    -
       .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 53 -
  
  
  
  
              3.    
  
  
  
  
            . 
    XX   .
  
    .TITLE  XX      V02.01
  
    ;        XX
  
    .IDENT  /V02.01/
  
    .SBTTL   
  
    .MCALL  .DRDEF
    .DRDEF  XX,377,WONLY$,0,177514,200
  
    XXBR    = XX$CSR+2     ;  XX
    XXIE    = 100          ;  
  
    .SBTTL   
  
            .DRBEG  XX
  
    .SBTTL    /
  
            MOV     XXCQE,R4       ;R4   
                                   ; 
            ASL     Q$WCNT(R4)     ;   -
                                   ;
            BEQ     XXDONE         ; 
            BCC     XXERR          ;  
                                   ;,   
                                   ;
    RET:    BIS     #XXIE,@#XX$CSR ; 
            RTS     PC             ; 
  
    .SBTTL    
  
            .DRAST  XX,4,XXDONE
            MOV     XXCQ,R4       ;R4   
                                   ; 
            BIT     #100200,@#XX$CSR  ;  ?
            BMI     RET            ; -  
            BEQ     RET            ;  -  
                                   ;
            BIC     #XXIE,@#XX$CSR ; 
            .FORK   XXFBLK         ;  -
            ADD     #Q$WCNT,R4     ;   R4
    XXNEXT: TSTB    @#XX$CSR       ;  . ?
            BPL     RET            ;,  
            TST     @R4            ;?
            BEQ     XXDONE         ;  - 
            MOVB    @-(R4),R5      ; 
            INC     (R4)+          ;  
            INC     @R4            ;  
            BIC     #^C<177>,R5    ;   -7
 
                             - 54 -
  
  
  
  
            MOVB    R5,@#XXBR      ;   -
            BR      XXNEXT         ;   
  
    .SBTTL    /
  
    XXERR:  BIS     #HDERR$,@-(R4) ;    CS
    XXDONE: BIC     #XXIE,@#XX$CSR ; 
            .DRFIN  XX             ;  
  
    XXFBLK: .WORD   0,0,0,0        ;  FORK
  
    .SBTTL    
  
            .DREND  XX
    .END
  
  
  
  
                4.   
  
  
  
  
  
  
        4.1.   
  
  
  
         ,     -
    / /,     
           -
     /.   -
       ,    -
          ,  ..
              -
   .
  
             ,  -
     MQ     .    
       ,    -
       ,   MQ    
    . ,       -
     ,     MQ    .
     ,      
     /,    -
         .
  
         ,      -
     .    
    /,       -
      /.      
   ,         
    DDCQE  DDLQE   ""      
   /.  ,     
   ,    .
  
  
 
                             - 55 -
  
  
  
  
        4.1.1.    
  
  
  
              -
    (  ),      -
     .    -
    .
  
              -
          ,  
     .DRFIN    -
       ,   -
   .    ,    -
       ,     
    ,     .
      0, ..        
       .
  
                ,
      -   ,    
    .        
    ,     ,  
           RTS  PC.  
         ,  
     ,         RTS
   PC.
  
  
  
        4.1.2.     
                
  
  
  
                
     DDINT:.  ,    
   ,   .  
       ,      ,
         .      
   ,           
    .    ,    
              
    / /,   DDCQE
    DDLQE.          
       /,    -
        (      
    )         
     .
  
           ,    -
   ,    .DRFIN    ,
     .
  
         R4      -
    .
  
           MOV     DDCQE,-(SP)   ; ,   
                                 ;  /,
 
                             - 56 -
  
  
  
  
                                 ;  
           MOV     R4,DDCQE      ;  
           MOV     R4,DDLQE      ;   /
                                 ;
           CLR     Q$LINK(R4)
           MOV     PC,R4         ;
           ADD     #DDCQE-.,R4   ;  
           MOV     @#54,R5       ;
           JSR     PC,@270(R5)   ;    .DRFIN
           MOV     @SP,DDCQE     ; 
           MOV     (SP)+,DDLQE   ; 
           .
           .
           .
    (      ,
     )
           .
           .
           .
           RTS     PC                      ;
  
  
  
        4.1.3.     
                
  
  
  
            ,            
   /    ,    
      /   -
   .      ;  -
     /    .
       ,    .  
    ,     
    / /.
  
        ,         
   /,        
       /.    
   ,      -
     (,        
     ),             11
   (HNDLR$)     DDSTS   -
    .DRDEF.      FB-    XM-  
                
   ,                   
   /. (SJ-     ,  -
         .)
  
               -
    ,          -
   ,      (-
    ,  R4     
   ).       
    ,       -
      / .  
       DDCQE   DDLQE    
       /.   -
 
                             - 57 -
  
  
  
  
      .DRFIN,    -
        , 
   .      
   /.
  
  
  
        4.2. SET-
  
  
  
             SET    
        .  
            DD.SYS
   (DDX.SYS  XM-),  DD -   -
   . ,          
      :
  
           SET LP WIDTH=80 (  - 132 )
  
           SET      
   - .   ,  -
    SET     ( )    
      .
  
           SET LP CR     (  <CR>;  )
           SET LP NOCR   (   <CR>)
  
          -    "NO"
     .    ,    
   ,      
   SET-.  SET-     
    .     -
         .    ,   
   SET-     ,   
     .
  
  
  
        4.2.1.   SET
  
  
  
         SET        0
         (      0),
          0  1 -
   .  ,   0     0 
   776-        1  -
    1000.
  
           SET     
         DD.SYS  (DDX.SYS  
   XM-)   .     -
       .     
   0  1     USR  .   
      0   ,          
      SET-.     
        ,  
        , -
 
                             - 58 -
  
  
  
  
      (, "NO"    -
   ).    ,   
     0  1 .     1    
            -
     SET-.        
     0  1        .
   ,     SET   -
        .
  
  
  
        4.2.2.   SET-
  
  
  
         SET-    
      .     
   400   0     .  
       .DRSET.
  
           -  ,  -
        R3      ,      
   SET-.            
   (,       -
   )          1
   .      0.
  
               -
    (, WIDTH  CR)   RADIX-50.   -
          .
  
                  
   ,    .  
       SET-.    
     100 ,    -
   .  140 ,     
   .     200 ,    
       "NO".
  
            SET-      
    8.
  
      ------------------------------------------------------
      !               R3                !
      !                                        !
      ------------------------------------------------------
      !                                                    !
      !               RADIX-50                !
      !                  ( )                       !
      !                                                    !
      ------------------------------------------------------
      !      !               !
      !        SET      !      SET      !
      ------------------------------------------------------
  
                           . 8
  
  
  
 
                             - 59 -
  
  
  
  
        4.2.3.  .DRSET
  
  
  
              -
    .DRSET.       -
   ,          
     .    .DRSET
     .DRDEF,    .DRBEG.
  
          .DRSET 
  
           .DRSET OPTION,VAL,RTN[,MODE]
  
    
  
   OPTION -  SET- (, WIDTH    CR).  
                 -  -
                     
             ;
  
   VAL    - ,         
             R3.         ,
            ,   ,    -
            ,    ,    
               0  1 .    -
               ;
  
   RTN    -  ,        0
             1 .    
                 0     -
               776;
  
   MODE   -  (),    -
              SET-.     "NO".
                 NUM,
              -  OCT.      MODE
            ,        "NO",  
             .  ' "NO"  -
             .  <NO,NUM> , 
              "NO",   ,  
              .  <NO,OCT> , 
              "NO",     .
              MODE ,  0 -
                  .
  
          .DRSET    .ASECT  
       400   .  -
          .    
         ,  
          
        .DRSET. 
   ,        -
   .
  
  
  
  
  
 
                             - 60 -
  
  
  
  
        4.2.4.    
  
  
  
          SET-      -
   .                  
   SET-,         (-
    "NO"   ).      -
        ,        
    SET,    .
  
              -
          0  (    
     1000).     ,    
   ,      1      
    256 () .
  
          -     (  ).
        ,   -
    ,       ,  
   "NO",      "NO",     
   .    ,    
    "NO",       4.
  
           ,    R3 -
    "VAL"      . -
    ,        -
   ,  R0        
   SET.
  
            ,       
    ,      "C".  -
   ,  "SET WIDTH"    
       30 .   -
    SET-   ,   -
           0  1. ,
           1.
  
                 
   SET- ,        
   ,  ,       -
    :
  
        .IIF GT,<.-1000>, .ERROR.-1000  ;  SET-
                                        ; 
  
            .ASECT,   -
         1000.  
       ,      
   .DRBEG,    .
  
  
  
  
  
  
  
  
  
 
                             - 61 -
  
  
  
  
        4.2.5.  SET-
  
  
  
         ,     -
   ,   SET-.
  
           .SET LP WIDTH = 80
           .SET LP CR
           .SET LP NOCR
  
             .DRSET    
        "WIDTH"  "CR".
  
          ,    
     "WIDTH",    30  ()  
     ,  "O.WIDTH"   -
   ,         "WIDTH",    
   "WIDTH"   :
  
           .DRSET WIDTH,30.,.WIDTH,NUM
  
          ,    -
    "CR"  ,     "NOP"  
      ,    "O.CR"    
   ,       ,  
     "CR"     "NO":
  
           .DRSET CR,NOP,O.CR,NO
  
             :
  
    .ASECT
    . = 400
           .WORD   30.             ;  
           .RAD50  \WIDTH \        ; 
           .BYTE   <O.WIDTH-400>/2
           .BYTE   100
           NOP                     ;  
           .RAD50  \CR    \        ; 
           .BYTE   <O.CR-400>/2
           .BYTE   200
           .WORD   0               ; 
  
            SET- 
     .    -
     O.WIDTH  O.CR.
  
    O.WIDTH: MOV    R0,COLCNT    ; 
             MOV    R0,RSTC+2    ;  
             CMP    R0,R3        ;  
                                 ;   30.
             RTS    PC           ;,   "C
  
          ,          
   O.WIDTH        1 .
  
    O.CR:    MOV    (PC)+,R3     ;   "CR",
                                 ;  
 
                             - 62 -
  
  
  
  
                                 ;  R3
             BEQ    RSTC-CROPT+. ; 
             MOV    R3,CROPT     ;   "NOCR"
                                 ;(O.CR+4);  "NOP"
                                 ; .   CROPT
             RTS    PC           ;
  
         O.CR    :  
   CR     O.CR;     NOCR
     -  O.CR+4.   :
  
          -       1
               ;
  
          -  NOP   CROPT,    
             NOCR;
  
          -   CR,    "BEQ  RSTC-CROPT+."
              CROPT.
  
           BEQ , 
         ,      
   ,    .    -
          
      :
  
           BR      A-B+.
    
  
         -   ;
  
   B      -   ;
  
   .      -   .
  
        ,      ,  
    "NO",    .
  
        , ,   :
  
          -         ,  
                -
            ;
  
          -  ,  ,    -
                   256  (-
            ) .
  
           .
           .
    COLCNT:.WORD   COLSIZ    ;  
           .
           .
    CHRTST:CMPB    R5,#HT    ; <B>?
           BEQ     TABSET    ;,  <B>
           CMPB    R5,#LF    ; <LF>?
           BEQ     RSTC      ;,   
           CMPB    R5,#CR    ; <CR>?
    CROPT: NOP               ;"NOP",  "NOCR",  (
 
                             - 63 -
  
  
  
  
                             ;<CR>) 
                             ;"BEQ RSTC-CROPT+." 
                             ; SET   0
           CMPB    R5,#FF    ; <FF>?
           BNE     IGNORE    ;,   
    RSTC:  MOV     #COLSIZ,COLCNT  ; 
                                   ; 
  
  
  
  
  
  
        4.3. - / 
  
  
  
              -
   ,       -  -
   ,        
   .       
         
     .SYNCH         
   .
  
               -
    -   .  
           -
          -.
     ,      
    ,        
   .        
    ().
  
            ,    
       - -
   .   - .TIMIO  .CTIMIO.   -
       .   -
      TIM$IT=1  .DRDEF  
   .MCALL   .TIMIO  .CTIMIO.
  
  
  
        4.3.1.  .TIMIO
  
  
  
         .TIMIO       
   /       
      .  .TIMIO  
            
    . ,     
        ,      
     .FORK.
  
         .TIMIO    
           .
           ,
       .      XM-
 
                             - 64 -
  
  
  
  
          -
   ,       
   .  ,    
   R0  R1     .    
      R0    -
       -.
  
               -
     (F-)        .TIMIO   
   .CTIMIO,      -
       .FORK       -
         -
   .  ,      
     ,     -
        ,    -
         -
   .
  
          :
  
           .TIMIO TBK,HI,LO
    
  
   TBK    -   ,    -
            .  ,     -
              "#"  TBK;
  
   HI     - ,     
             ;
  
   LO     - ,     
             .
  
             . 8
  
                                                    8
                      
    ---------------------------------------------------------
     !     !   !          
    ---------------------------------------------------------
        0    ! C.HOT  ! .TIMIO !   
        2    ! C.LOT  ! .TIMIO !   
        4    ! C.LINK ! !    
             !        !        ! ; 0 , 
             !        !        !  
        6    ! C.JNUM ! -!   ;
             !        !  !    
             !        !        ! 
       10    ! C.SEQ  ! -!   
             !        !  ! .  
             !        !        !   
             !        !        !  177400  177477
       12    ! C.SYS  ! ! -1
       14    ! C.COMP ! -!   
             !        !  !   
             !        !        !  -.
             !        !        !    
             !        !        !   
             !        !        ! , , 
 
                             - 65 -
  
  
  
  
                                          . 8
    ---------------------------------------------------------
     !     !   !          
    ---------------------------------------------------------
             !        !        !   
             !        !        !   
  
          .TIMIO     
          ,    
        .  -
         .         
   50- ,    50  ()
     .   60 /  60- -
   .    60-     
     "[...]"     
    50 .
  
              
    65535 ,    1310 [1092]      21,8
   [18,2] .       .TIMIO  
     21,8 [18,2]      ,  
    0   HI      LO.
  
              21,8
   [18,2] ,            
    .     21,8  [18,2]
         .  ,  
      ,  21,8 [18,2]   -
   ,   HI   1,   LO  -  0.
     43,6 [36,4]   2   HI   0  
    LO  ..      
     65565   21,8 [18,2]   ,  
     ,    ,
     2,7 [2,3] .
  
           ,    
         -    ,
            .
           
       .   
           177400    177477.
          -
       .   -
               
   - .
  
         .TIMIO   :
  
           .TIMIO  TBK,HI,LO
  
           JSR     R5,@$TIMIT     ;  
           .WORD   TBK-.
           .WORD   0       ;  .TIMIO
           .WORD   HI      ;   
           .WORD   LO      ;   
  
  
  
  
 
                             - 66 -
  
  
  
  
        4.3.2.  .CTIMIO
  
  
  
          ,   -
   ,      -, -
     .       -
        .CTIMIO. -
          .    -
   ,         .CTIMIO  
         -
    .FORK.
  
        ,  LP    -
   ,         .
       /,   -
     /   .
          -
   .        -
   ,    ,  -
    -    .TIMIO,    
       RTS PC    -
    .         
    ,         
      ,   -
    -.       
   RTS PC    .
  
           ,      
   .CTIMIO    .
  
             (  
     -),     .CTIMIO    .
      C.
  
           .CTIMIO :
  
           .CTIMIO TBK
  
    
  
   TBK    -    .     -
             ,    .TIMIO.
  
         .CTIMIO   :
  
           .CTIMIO
  
           JSR     R5,@$TIMIT      ;  
           .WORD   TBK-.
           .WORD   1               ;  .CTIMIO
  
         ,   ,  
           ,    
          .  
       ,  
   ,   .
  
  
 
                             - 67 -
  
  
  
  
        4.3.3.  - 
  
  
  
         -   -
        .    -
   ,         ,
     .    
     ,    
    .
  
  
  
        4.3.3.1.  
  
  
  
               ,
       -,    
         -
    .      
          .  
       -
        :  
    ,   .  
       .TIMIO  -
     .    
          -
   .
  
  
  
        4.3.3.2.     
                 
  
  
  
            -    -
     .    -  
   ,           
    .        -
     ,  ,   
    .
  
            /    ,
     .TIMIO.     -
   ,   : ,   .
         RTS PC 
      .
  
                  
    ,    .TIMIO    
      . ,  
          -
     ,          
     .DRFIN     
   .
  
                   
 
                             - 68 -
  
  
  
  
    ,        
    .        -
    .      
       ,      
    .     -
     ,        ,
       .   -
            -
      .
  
               
          
    :
  
           MOV     @SP,-(SP)  ; 
           CLR     2(SP)      ;  PS=0
           .MTPS   #340       ;  7
           .INTEN  0,PIC      ;  
  
                
        -.  
        .    
   ,     ,   -
                 
   /.       -
   ,       
      RTS PC     -
   .
  
          ,      
   ,       ,      
        .      
           -
             .DRFIN  
         .
  
  
        .  ,    
   .DRFIN      ,    
      ,     -
   .
  
  
  
        4.3.3.3.    
  
  
  
          ,     
      ,    -
     ,    -
      .
  
          /    -
    ( ),      
         CSR.      
       OFFLIN,    -
     .SYNCH        ,
           -
 
                             - 69 -
  
  
  
  
       -.      
       RTS PC   -
    .
  
            ,     -
   ,      .  
    -      .   
   ,     .  -
         OFFLIN.
              ,  
        .  
      ,    -
    -        -
    RTS PC   .
  
                   
  
    ;    /
  
           .DRBEG  LP
           MOV     LPCQE,R4  ;R4    
                             ;
           ASL     6(R4)     ;   
                             ;
           BCC     LPERR     ;   
           BEQ     LPDONE    ;  
    RET:   BIS     #100,@LPS ; , 
                             ;
           RTS     PC
  
    ;   
  
    .ENABL  LSB
  
           .DRAST  LP,4,LPDONE
           TST     TICMPL    ;   ?
           BEQ     1$        ;
           .CTIMIO TIMBLK    ;,  
           BCS     1$        ;
           CLR     TICMPL    ;  
    1$:    MOV     LPCQE,R4  ;R4    
                             ;
           TST     @(PC)+    ; ?
    LPS:   .WORD   LP$CSR    ;  LP
    ERROPT:BMI     OFFLIN    ;,   
      .
      .
      .
    ;   /
  
    LPDONE:CLR     @LPS      ;  
           .DRFIN  LP
      .
      .
      .
    ;     ;
    ;    2 
  
    OFFLIN:MOV     LPCQE,R5  ;  
 
                             - 70 -
  
  
  
  
           MOVB    Q$JNUM(R5),R5   ;  
                             ;
           ASR     R5        ; 
           ASR     R5        ;      
           ASR     R5        ;       
           BIC     #^C<16>,R5 ;  
           MOV     R5,SYJNUM  ;   .SYNCH
           MOV     R5,TIJNUM  ;   .TIMIO
           .SYNCH  SYNBLK,PIC ;  
           RTS     PC        ; 
  
    1$:    CLR     TICMPL
           TST     @LPS      ;   ?
           BPL     2$        ;, 
           MOV     PC,R0     ;  
                             ; 
           ADD     #MESSAG-.,R0    ; 
           .PRINT            ; 
           MOV     PC,R0     ;      PIC
           ADD     #1$-.,R0  ;  .TIMIO
                             ; 
           MOV     R0,TICMPL ; 
           .TIMIO  TIMBLK,0,2*60.*50. ; 
                             ;-
    2$:    RTS     PC        ;
  
    TIMBLK:.WORD   0     ; :   
           .WORD   0     ;                
           .WORD   0     ;    
    TIJNUM:.WORD   0     ; 
           .WORD   177400    ; 
           .WORD   0         ;   -1
    TICMPL:.WORD   0         ;  
    SYNBLK:.WORD   0         ; 
    SYJNUM:.WORD   0         ; 
           .WORD   0,0,0,-1,0 ; ..
    MESSAG:.ASCIZ  "?LP-W-LP    "
           .EVEN
           .DREND  LP
  
  
  
  
        4.4.  
  
  
  
            -       
   ,         .
    ,      
    ,      -
     /.    -
      / , -
         .
  
               
        .   -
        FB-    XM-.  
         ,  
 
                             - 71 -
  
  
  
  
        ;    -
          
    .        
     :
  
   ERL$G  -   .    1, 
               ;
  
   ERL$U  -  ,       
             .      
            10,    30.  
                    .  
                  (,
                 RK:   -
            ).
  
            ,        
    ,     -
              .  ..
          
    /.       
    2K  . ,     
    ,   ,    ,
     ,    ,    
         ,    -
    ,  .    -
         
    .
  
         ,        
        . -
    ,       -
   ,   .
  
         ,     -
    ,       -
   .   ,     ERL$G=1,  
    .  ,    -
          , 
   .
  
  
  
        4.4.1.   
  
  
  
                  
     /    ,      
   .     ,   
           
        .
  
                   
   ,          -
    /     .FORK.
  
             ,    
       .  -
 
                             - 72 -
  
  
  
  
             -
    .
  
  
  
        4.4.1.1.   
  
  
  
              -
        R4  R5:
  
   R5     -       
            ;
  
   R4     -       :      
                 -     
            (DD$COD),    -1.
  
  
  
        4.4.1.2.   
  
  
  
           ()   -
       R2  R5    
   .    -    ,    
     .       
    :  ,    -
      ,    -
   ,         .. -
    ,      -
    ,      .
      :
  
   R5     -       
            ;
  
   R4     -    :   -  
            -    (DD$COD),  
              0;
  
   R3     -    :   -
                ,   
              ,         
              ,      
               ;
  
   R2     -       ,    
             ,  .
  
  
  
  
  
  
  
  
 
                             - 73 -
  
  
  
  
        4.4.1.3.   
  
  
  
           ()   -
       R2  R5   -
    .     -    ,  
         .  -
     :      
    /.
  
              
     ,      .
            
      .     
   0,       -
    .       
           -
   .
  
                ,  
     .         
    .      
        .   
       ,      
      0   .  -
    :
  
   R5     -       
            ;
  
   R4     -       :      
                 -     
            (DD$COD),   -   -
             .        
              ,    
            0.       -
            ;
  
   R3     -    :   -
                ,   
             ,     -
             ,    -
               ;
  
   R2     -       ,    
             ,  .
  
  
  
        4.4.1.4.          
                 
  
  
  
              
      ,     
          .  ,  
   ,  ,     -
 
                             - 74 -
  
  
  
  
   ,   ,      
    ,       
     ,  ,     
   ,  0.
  
              ,
   ,          
   ,    .   
       ,    -
     .
  
  
  
        4.4.1.5.   
  
  
  
           ,  
      :
  
           JSR     PC,@$ELPTR
  
        $ELPTR -     .  -
    .DREND        -
   .          
   (  )      -
    .FETCH    .LOAD  (  
   ).     ,  
      .  
    ,       RMON  
    .    RMON ,   -
      :
  
           $ERLOG:  MOV   (PC)+,-(SP)  ;  
                                       ;   
           $ELHND:: .WORD 0            ;0,  
                                       ;  .
                                       ;   
                                       ;
                    BNE   1$           ;,  
                    TST   (SP)+        ; 
           1$:      RTS   PC           ; 
                                       ;  
                                       ; 
  
          .SRUN  .FRUN    
       ;    UNLOAD  EL  
   $ELHND.
  
                   
     R0  R3   ,  R4  R5
   .
  
  
  
  
  
  
  
 
                             - 75 -
  
  
  
  
        4.4.2.  
  
  
  
              -
         ,  
           
    .   ERRTXT.MAC    
      ,  -
     (ERROUT)   .  
        :
  
           .MACRO/LIST ERRTXT
           .LINK ERROUT,ERRTXT
  
  
  
        4.4.2.1.  ELBLDR
  
  
  
         ELBLDR    
      .    
       ERRTXT.MAC  ELBLDR.
  
          :
  
           ELBLDR XX,<TYPE>,C1,C2,<C3>
  
    
  
   XX     - -    (DD$COD),  
               .DRDEF.    -
              0  377 ();
  
   TYPE   -   ,       
               (,  ).
                 59   
              ;
  
   C1     -    : DISK  TAPE.   -
               ;
  
   C2     -   ;
  
   C3     -     (  
             ),     EL-.
               .  C3    
               .
  
                
   ELBLDR   .     -
     ELBLDR   .
  
        ,  ELBLDR   RK 
   :
  
     ELBLDR 0,<RK//-5402>,DISK,RK,<DS,ER,CS,WC,BA,DA,DB>
  
 
                             - 76 -
  
  
  
  
          ,     
   RK//-5402,         RK,
   -   0   ,  
    , : RKDS,  RKER,  RKCS,  RKWC,
   RKBA, RKDA  RKDB.
  
             ERROUT    
   ERRLOG.DAT.        
   EL-.  ,            
   ERRLOG.DAT,       
     . ,  ERROUT  -
           ,    ERRLOG.DAT.
     ,  .
  
  
  
        4.5.  
  
  
  
             -
     ,           -
           .
   ,   , /  -
         ..  
   .SPFUN       
   .       .SPFUN,  
           -
       .     -
   ,     .  -
   ,        
       MT  372.
  
  
  
        4.5.1.   .SPFUN
  
  
  
           .SPFUN :
  
           .SPFUN AREA,CHAN,FUNC,BUF,WCNT,BLK[,CRTN]
  
                 
   .SPFUN     E " -
     ".
  
               -
     ,  BUF    -
    .      
   WCNT  BLK.          ,
       ..   ,  
         
   .  ,       -
       . ,      
        .
  
  
  
 
                             - 77 -
  
  
  
  
        4.5.2.          
               
  
  
  
               
     STAT   .DRDEF      
   SPFUN$.   ,        
    .
  
                   
      ,   -
    . ,    DY  
      :
  
           SIZ$FN = 373     ;  
           WDD$FN = 375     ;   
                            ;
           WRT$FN = 376     ;  
           RED$FN = 377     ;  
  
         ,         
        (..  -
     200  377 ).
  
            /   -
         ,    
     .    Q.FUNC,
       4-   
   /,    .  
    /    ,    
      = 0.      
         -
   .  ,      -
     ,   ,      
       .
  
                
          RTS  PC.  
          -
      ,      .  
          
     .
  
              
     ,      -
           .SPFUN
       .      -
             -
    .
  
  
  
  
  
  
  
  
  
 
                             - 78 -
  
  
  
  
        4.5.3.   
  
  
  
           ,  
       .  
      DM,     
   RK06  RK07,   DY,     -
        .
  
         ,      
   ,      ( -
   )   SIZE  .DRDEF.   ,
            
     .DSTATUS.
  
         ,        
     ,         
    .SPFUN.       -
                 
     .      
             
   373.
  
         DUP     -
        "  "  ,  
       .
  
  
  
        4.5.4.   
  
  
  
                -
   ,         
    377, 376, 374.     DL.
  
         DUP     -
        "  "  ,  
      .
  
  
  
        4.5.5.    
  
  
  
                 
   ,    (..  ).
          
   .      12  (SPECL$)  
    . USR       
        ;  
            -
   , , .LOOKUP, .ENTER, .CLOSE,  .DELETE,   
    .
  
              ,
 
                             - 79 -
  
  
  
  
           
     .        
      .  :
  
           :          1       2       3       4
           :      CLOSE   DELETE  LOOKUP  ENTER
  
                 
   .CLOSE, .DELETE, .LOOKUP,   .ENTER.    .RENAME
      .
  
                  ,
     ,     
   ,   ,        
    RADIX-50.
  
             (,  
         ),    
              ,
      .       
     .        SPUSR,
          272    
    .    -
    ,   0      ,
       .
  
                  -
        -
   . ,    .LOOKUP   -
           -
   .       -
   ,           
   ,        -
   ,    USR.    -
    ,  ,   -
    .LOOKUP, .ENTER, .CLOSE  .DELETE,   "-
   "  .
  
  
  
  
        4.6.    XM-
  
  
  
         ,     SJ-
    FB-,  XM-     -
   .   ,        
      XM-.
  
  
  
        4.6.1.      
               
  
  
  
              
    ,  ,     -
 
                             - 80 -
  
  
  
  
             
   .       DD.MAC,    DD  -
     .   
   ,         
   ,  MMG$T.     0,    
     .  MMG$T=1,   .
             
    SYCND    XM.MAC.    
   DDX.OBJ  XM-  DD.OBJ  SJ-   FB-.
    ,       -
   .
  
  
  
        4.6.2.   XM-
  
  
  
           XM-     
    28   ,     -
    ,  1,     
     20000  37776.  ,    
    MQ      ,  
          ,    2
   (   40000  57777).      -
   ,  ,     
      LOAD,     
     .
  
             -
   ,         28  
       /  .  ,
    /,      -
    . ,       
     :
  
        1)    ,    
     ;
  
        2)  ,     
       28 ;
  
        3)      .
  
             XM- -
        .   -
   ,  ,   /,  -
    16-       -
   ,             -
      .    
    18-      -
        (  ) .
  
          ,     XM- 
        18-  ,  ,
    ,       
   . ,     , -
          , 
        , -
 
                             - 81 -
  
  
  
  
             .  
       28   -
   ,                 
   16-         
    XM-.  16  17 18-   
   0.
  
        . 8    XM-. ,
     /,     
        28  .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 82 -
  
  
  
  
                    XM-
  
                             -
                             -
                             
                            /--------
                           / ! . !
                          /  ! /  !
                         /  /!------!
                  .  ! / !      !     -
                 -! ! !------!<--- .
                  .  ! ! ! !   ! -
          -  ! ! !------!<- !          
            / ! !      ! ! ! -   
    --------------------/  / .      . ! ! --------------------
    ! 177776 ! 7 !     !  /  .      . ! ! !     ! 7 ! 177776 !
    ! 160000 !   !     ! /   !      ! ! \ !     !   ! 160000 !
    --------------------/ 28-->----! \  \--------------------
    ! 157776 ! 6 !     !     !      !  \  !     ! 6 ! 157776 !
    ! 140000 !   !     !---->!      !   \ !     !   ! 140000 !
    --------------------     !------!    \--------------------
    ! 137776 ! 5 !     !     !      !     !     ! 5 ! 137776 !
    ! 120000 !   !     !---->!      !     !     !   ! 120000 !
    --------------------     !------!     --------------------
    ! 117776 ! 4 !     !     !      !     !     ! 4 ! 117776 !
    ! 100000 !   !     !---->!      !     !     !   ! 100000 !
    --------------------     !------!     --------------------
    !  77776 ! 3 !     !     ! - !     !     ! 3 !  77776 !
    !  60000 !   !     !---->! -!     !     !   !  60000 !
    --------------------     !------!     --------------------
    !  57776 ! 2 !     !     !      !     !     ! 2 !  57776 !
    !  40000 !   !     !---->!      !     !     !   !  40000 !
    --------------------     !------!     --------------------
    !  37776 ! 1 !     !     !      !     !     ! 1 !  37776 !
    !  20000 !   !     !---->!      !     !     !   !  20000 !
    --------------------     !------!     --------------------
    !  17776 ! 0 !     !     !      !     !     ! 0 !  17776 !
    !  00000 !   !     !---->!      !     !     !   !  00000 !
    --------------------  !  --------  !  --------------------
                          !            !
                          !            !
                          
                        
  
    - -       -  
                                     
    . - .    -  
                                      
    - .  - -  
                                      
    . /   -  /
    - - -  
  
                           . 8
  
                
            .
         ,      
   .
 
                             - 83 -
  
  
  
  
        4.6.3.    XM-
  
  
  
         ,      
    ,    
      .    
    1,    '      
         .
              
    XM-,      
       .      -
    20  22      
     .
  
          MMG$T=1,      .QELDF,   
   .DRDEF   ,       -
        XM-. 
    :
  
           Q.LINK = 0   (    )
           Q.CSW  = 2.  (   )
           Q.BLKN = 4.  (  )
           Q.FUNC = 6.  (  )
           Q.JNUM = 7.  ( )
           Q.UNIT = 7.  ( )
           Q.BUFF =^O10 (   
           Q.WCNT =^O12 ( )
           Q.COMP =^O14 (  )
           Q$LINK =-4   (   )
           Q$CSW  = 2
           Q$BLKN = 0
           Q$FUNC = 2
           Q$JNUM = 3
           Q$UNIT = 3
           Q$BUFF = 4
           Q$WCNT = 6
           Q$COMP =^O10
           Q.PAR  =^O16  ( 1)
           Q$PAR  =^O12
           Q.ELGH =^O24 (  )
  
  
  
        4.6.4.   
  
  
  
             -  -
   ,    18-  ,      
         .  
       $MPPHY  -
             .  $MPPHY
     Q.PAR     
     Q.BUFF        18-
      .
  
            $MPPHY :
  
 
                             - 84 -
  
  
  
  
           JSR     PC,@$MPPTR
  
        $MPPTR    $MPPHY   -
    .  .DREND    
       .  
       (  ) 
       LOAD (  ).
  
         :
  
          - R5   Q.BUFF.     -
             .
  
         :
  
          -     [(SP)]    16  
               ;
  
          -     [2(SP)]    2  
                  4  5;
  
          - R5  (Q.WCNT)        
            .   .
  
           RK.
  
           CMP     (R5)+,-(R4)  ;   
                                ;  
           JSR     PC,@$MPPTR   ; 
                                ;  
           MOV     (SP)+,-(R4)  ; . 16 
                                ; RKBA;   -  
           MOV     (R5)+,-(R4)  ;    RKWC
           BEQ     7$           ; 0 - 
           BMI     5$           ; 0 - 
           NEG     @R4          ; 0 - , -
                                ;   
           MOV     #CSIE!FNREAD!CSGO,R3  ;  
    5$:    BIS     (SP)+,R3     ;'  
                                ;   
           MOV     R3,-(R4)     ; 
    6$:    RTS     PC           ; 
  
  
  
        4.6.5. - 
  
  
  
         -    (-
   ,    /    
   )             
     .   
     /   . 
             
   /      -
     - $GETBYT  $PUTBYT.
  
  
 
                             - 85 -
  
  
  
  
        4.6.5.1.  $GETBYT
  
  
  
                  
   $GETBYT         .
           -
            /      
   /.
  
            $GETBYT :
  
           JSR     PC,@$GTBYT
  
        $GETBYT        $GETBYT  
    .   .DREND    
             .  
           (  
   )      LOAD (  -
    ).
  
         :
  
          - R4   Q.BLKN.        
             .
  
         :
  
          -      [(SP)]      
                       .
                ;
  
          - R4  .
  
          (Q.BUFF)     
   1.      
     20000     Q.BUFF    
   200    Q.PAR.
  
           PC ,   
           .
  
           MOV     PRCQE,R4        ;R4   Q.BLKN
           TST     @#PP$CSR        ; ?
           BMI     PPERR           ;  /
           TST     Q$WCNT(R4)      ;    ?
           BEQ     PRDONE          ;,  
           INC     Q$WCNT(R4)      ;  
                                   ;( )
           JSR     PC,@$GTBYT      ;   
                                   ;
           MOVB    (SP)+,@#PPB     ; 
  
  
  
  
  
  
  
 
                             - 86 -
  
  
  
  
        4.6.5.2.  $PUTBYT
  
  
  
               
        ,  
    /,     .   
       $PUTBYT    
           .
  
            $PUTBYT :
  
           JSR     PC,@$PTBYT
  
        $PTBYT    $PUTBYT  -
    .  .DREND    
       .  
       (   )  
       LOAD (  ).
  
         :
  
          - R4   Q.BLKN.        
             .
  
                  
       .    -
   .
  
         :
  
          - ,     ,  
             ;
  
          - R4  .
  
          (Q.BUFF)     
   1.         
     20000     Q.BUFF    
   200    Q.PAR.
  
           PC ,   
             
    .
  
           MOV     PRCQE,R4        ;R4   Q.BLKN
           MOVB    @#PRB,-(SP)     ; 
           JSR     PC,@$PTBYT      ;   
                                   ;
           DEC     Q$WCNT(R4)      ;  
  
  
  
  
  
  
  
  
  
 
                             - 87 -
  
  
  
  
        4.6.6.  $PUTWRD
  
  
  
            $PUTWRD    
   $PUTBYT   ,  $PUTWRD    
   (  )       .  
    ,     -
         ,   
       .    $PUTWRD  
        .
  
            $PUTWRD :
  
           JSR     PC,@$PTWRD
  
        $PTWRD    $PUTWRD  -
    .  .DREND    
       .  
       (  ) 
       LOAD (  ).
  
         :
  
          - R4   Q.BLKN   .
  
                
    .
  
         :
  
          -      ;
  
          - R4  .
  
          (Q.BUFF)     
   2.      
     20000   Q.BUFF    200
      Q.PAR.
  
            DY    ,  
      ,  
    .         
      .    
    $PUTWRD        
    .
  
           MOV     #DDNBLK,-(SP)   ;   
                                   ; 
           MOV     DYCQE,R4        ;R4   Q.BLKN
           JSR     PC,@$PTWRD      ; 
  
  
  
  
  
  
  
  
 
                             - 88 -
  
  
  
  
        4.6.7.    
  
  
  
             
           
     .
  
        ,  DM      
    $MPPHY       
    .       -
      (CRC)   -
          -
       .   -
        .
  
         (,  DX)    -
              
     ,   "SILO".  ,    
      ,    DX 
           $MPPHY.  
   ,               -
    ,    "SILO",  -
       . , 
     DX         
       /,      
         .  
     ,    1.  (
     ,         
   ,   1.)
  
         ,   , -
       1.    -
    Q.PAR     1, ,   -
   ,  .       
        ,  
   16-     Q.BUFF - ,  -
       1     20000  
   37776.  / ,   
     1.
  
           ,      
     . ,  R4 -
         .
  
           KPAR1   =172342         ;  PAR1
           MOV     @#KPAR1,-(SP)   ;  PAR1
                                   ; 
           MOV     Q$PAR(R4),@#KPAR1   ;  
           .                       ; PAR1; /  SILO,
           .                       ;  
           .                       ; ,
                                   ;  Q.BUFF
           MOV     (SP)+,@#KPAR1   ; PAR1
  
               DX  ,  
              
   ,     "SILO". -
   ,  R3  128 ;  R4  
 
                             - 89 -
  
  
  
  
   CSR   ; R1      
   ; BUFRAD          
   Q.BUFF   .
  
           MOV     @#KISAR1,-(SP)  ;  1
           MOV     DXCQE,R2        ;  
                                   ; Q.BLKN
           MOV     Q$PAR(R2),@#KISAR1    ; 
                                   ; 1
           ADD     #2,Q$PAR(R2)    ; 
           CMP     R1,R3           ;,   <
                                   ; = 128
           BLOS    1$              ;  
           MOV     R3,R1           ;   128
    1$:    MOV     BUFRAD,R2       ;  R2 
                                   ;  
    2$:    TSTB    @R4             ; 
                                   ;
           BPL     2$              ;  , 
                                   ;
    3$:    MOVB    @R5,(R2)+       ;
           DEC     R1              ; 
           BGT     2$              ;  
           MOV     (SP)+,@#KISAR1  ; 1
  
                -
   ,   ,  1    
   . . 9   .   -
       XM-    
   ,      28  
   .       
   6.    1,   
   Q.PAR        Q.BUFF  
         .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 90 -
  
  
  
  
              
                          
  
                            -
                            -       -
                  .             .
                  -  ---------      -
                  .     !  .  !     
          -     !  /   !     -      
               !--------!            
    -----------------       !        !      ------------------
    !       ! !     !  !--->!--------!<--!  !     ! !        !
    !       ! !     !  !    !  BUFF: !   !  !     ! !        !
    !       ! !     !  ! !->!--------!<- !--!----------------!
    !       ! !     !  ! !  !        ! !    !     !6! 157776 !
    !       ! !     !  ! !  !        ! !    !     ! ! 140000 !
    !       ! !     !  ! !  !        ! !----!----------------!
    !       ! !     !  ! !  !        !      !     ! !        !
    !       ! !     !  ! !  !--------!      !     ! !        !
    !       ! !     !  ! !  ! -   !      !     ! !        !
    !       ! !     !  ! !  ! -  !      !     ! !        !
    !       ! !     !  ! !  !--------!      !     ! !        !
    !       ! !     !  ! !  !        !      !     ! !        !
    ----------------!--! !  !        !      !     ! !        !
    ! 37776 ! !     !    !  !        !      !     ! !        !
    ! 20000 ! !     !    !  !        !      !     ! !        !
    ----------------!----!  !        !      !     ! !        !
    !       ! !     !       !        !      !     ! !        !
    !       ! !     !       !        !      !     ! !        !
    -----------------       ----------      ------------------
  
    - -       -  
                                     
    . - .    -  
                                      
    - .  - -  
                                      
    . /                       -  /
    - -                     -  
  
                           . 9.
  
        1          32-
           
   4  ( ,    1  
          ).    
         , 
       32 ,  1 
     32-       .  
    1         -
    ,          
    0. ,    1,    
   4   4  31    -
   ,      . 10.
  
  
  
  
  
 
                             - 91 -
  
  
  
  
                          1
  
                      - - 
    O.PAR  = 3317       28  32-     . 
    O.BUFF = 020024                              -
                             --------            = 140224
                             ! . !
                             ! /  !
                             --------
                             !      !
                             .      .
                             .      .
                       351700!      !
                     !------>--------
                     !       !      !
                     !       --------
                     !       !      !
                     ! 351500--------<------!
                     !       !      !       !
                     !       .      .       !
                     !       .      .       !
                     !       --------       !
                     !       !      !       !
                     !       !      !       !
                     !       --------       !
     331724===>BUFF: !       ! BUFF:!       !
                     !       !      !       !            -
                     !  ----->-------331700 !            
                     !  !    !      !       !            .
      -           !  !    !      !       !            -
           !  !    --------331600 !            
      -    -!  !    !      !       !-      -
            !  !    !      !       !      
    ------------------  !    --------331500 !-----------------
    ! 37776 !1! 3317 !  !    !      ! \     ! 3315 !6! 157776
    ! 20000 ! !      !  !    !      !  \    !      ! ! 140000
    -----------------!---    --------   \---!-----------------
                             .      .331400
                             .      .
                             .      .
    - -       -  
                                     
    .  -            -  
                                     
     .  - -  
                                      
    . /                       -  /
  
                           . 10
  
           ,   
   331724   ,   ,  -
       6.     24  
     331700,   32- .  
     Q.PAR, 3317,  1,    
    1   0200.      
   1  4-     ,    
    331700.  ,        
        20000    37776,
 
                             - 92 -
  
  
  
  
            331700  
   351676.       Q.BUFF    20024,   ,
     ,      
        331724.
  
         '  ,    ,  ,  
          
      .     -
     .   -    1
     . ,   32 ,  
     ,  1   1.  
       DX  64    
    ,  2  1      -
     .
  
                 -  
     Q.BUFF,     
   .  ,   ,  -
         ,    
   4-  .  ,        
   Q.BUFF,     40000.    
      40000,   20000    
   200  Q.PAR.      -
   ,        
   .
  
               
    (      )  -
      32-   ,  -
    16-    100 ()  -
      1    Q.BUFF.
  
        ,       
   12345   .  12345  100    
   123   45.  123    Q.PAR,
     3317,  3442        1.
    45   Q.BUFF,   020024, 
   020071     (  ,    
    ).
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 93 -
  
  
  
  
         5.     
  
  
  
  
             . 
   ,        
          -
   .          
          
    ().      
     DUP      
    .
  
  
  
        5.1.  
  
  
  
              -
           ,        
     .SYS.            
   RAFSJ.SYS.        -
       RAFXX.SYG,  XX  SJ,
   FB  XM.     -
      .SYS.
  
          0  4     -
    .       -
        .      
            -
       ( ) DK  SY.
  
                  -
   ,           -
      .  ,  
   ,       -
    ,      
    ,   , -
             
           -
    .          
    0    .
  
  
  
        5.2.    
  
  
  
             
             -
    .
  
                     
   SET-.  SET-   ,
            -
    .
 
                             - 94 -
  
  
  
  
        5.2.1.  
  
  
  
         ,     
     ,    :
          -  ;
          -  ;
          -   ;
          -    .
  
               -
     (BSTRAP)       
   .             
   P- DDBOOT,  DD -     -
   .        0.
  
  
  
        5.2.2.  
  
  
  
              DDBOOT:.
           .
      "NOP"      
     .      
          -
   ,      JMP,   
     .   -
       RK (BOOT1   
   ):
  
    RKBOOT:: NOP
             BR    BOO1
  
               
    P- DDBOOT   0.    -
     DDBOOT::.
  
  
  
        5.2.3.  
  
  
  
          (  
    )    
     .     -
     ,          
   .      
      :
  
   1)     10000;
  
   2)   ,       
    ( -       0    7).  ,
      ,   -
     ;      R0,
 
                             - 95 -
  
  
  
  
        CSR.      
      ,   ,  -    
   ;
  
   3)         
     ;
  
   4)    B$READ   -
   ;
  
   5)         RADIX-50    "B$DNAM"  
   B$DEVN;
  
   6)     B$DEVU;
  
   7)    B$BOOT       -
   .
  
                 
       DDBOOT+64 (  667
    776      ,  
    .DREND).
  
  
  
        5.2.4.   
  
  
  
             
       ,      
   .        ,    
    .
  
        ,      
      , :
          - R0     ;
          - R1     ;
          - R2    ,   -
            
  
        .
  
               
       .
  
               
        ,  
     R0 - R2.         
     BIOERR.      -
      RTS PC    .
  
                 
       DDBOOT+210 (  210  -  
    ,       -
    ).
  
  
  
 
                             - 96 -
  
  
  
  
        5.2.5.             
               
  
  
  
              
    BIOERR::.       -
     .DREND,      
    .
  
  
  
        5.2.6.  .DRBOT
  
  
  
         .DRBOT     
   .     .DREND   -
     ,       
         .    -
         -.  ,
    -    -
    DDBOOT::.  ,    60    206
     .
  
          .DRBOT :
  
           .DRBOT NAME,ENTRY,READ
  
    
  
   NAME   -   ;
  
   ENTRY  -       -
             ;
  
   READ   -     .
  
         .DRBOT     -
       62  ,   
    ( ) -   64.  , -
      ,  
   .DREND,      1000  ()  .
    66       
      .
  
         .DRBOT    .DREND.
              
   .DRBOT  .DREND. ( ,      
            ,  ..
   1000 () ,    
       60  206.)  ,   -
    .DREND      -
   :    .DRBOT     ,  
            .  
    .DREND     -
    ,  ,      
   E.   .DREND   -
      BIOERR     -
 
                             - 97 -
  
  
  
  
   .
  
           BOOT    
      DUP     
      ,   4722,    
   R0.       -
        (  )  -
        ,  
    ,       4722    
   R0.
  
  
  
        5.3.   DUP        
             
  
  
  
           ,    DUP  -
     ,       .  
    :
  
           .BOOT DDN:FILNAM
           .COPY/BOOT XXN:FILNAM DDM:
           .BOOT DDN:
  
  
  
        5.3.1.  "BOOT DDN:FILNAM"
  
  
  
         "BOOT DDN:FILNAM"     
        
     .    DD 
     ; N -  ; FILNAM
   -   .  ,     -
    ,     DD.
  
               DUP  -
   ,    DD    -
   .     FILNAM.SYS   -
   . DUP     ( 0    4)    
   .      .
  
             4      
    ,    .   DUP
              -
    ( DD.SYS  DDX.SYS). DUP      0
        ,   -
     62  64     ,  
       .
  
          DUP     
      ,      
    .   ,   .
   9      .
  
  
 
                             - 98 -
  
  
  
  
                                                    9
                       DUP
    ---------------------------------------------------------
          !          
              !
    ---------------------------------------------------------
           4722           !    
        4724-4726         !      RADIX-50
           5000           !   
        5002-5004         !   
  
        ,  DUP       -
              0  
   5004.  DUP    1000,    -
        DUP.      
             -
    .
  
         .  11        
   .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 99 -
  
  
  
  
                "BOOT DDN:FILNAM"
  
          .           .
          .                 .
          .                 .
          !-----------------!
    !----<! !<-----!
    !     !-----------------!      !
   <4>    !  0  !<---! !
    !     !-----------------!    ! !
    !     !        !    ! !
    ! !--<!        !<-! !<3>
    ! !   !                 !  ! ! !
    ! !   ! - - - - - - - - !  ! ! !
    !-!-->!      0      !  ! ! !          DDN:
      !   !       !  !<2>!   .                  .
      !   !-----------------!  ! ! !   .                  .
      !   !                 !  ! ! !   .                  .
      !   !                 !  ! ! !   !                  !
      !   !                 ! <1>! !   !------------------!
      !   !                 !  ! ! !--<!  !
     <5>  !                 !  ! !     !- - - - - - - - - !
      !   !                 !  ! !     !      !
      !   !                 !  ! !     !  DD.SYS       !
      !   !                 !  ! !     !  DDX.SYS         !
      !   .                 .  ! !     !------------------!
      !   .                 .  ! !----<!  0   !
      !   .                 .  !       !------------------!
      !   !                 !  !       .                  .
      !   !                 !  !       .                  .
      !   !                 !  !       .                  .
      !   !                 !  !       !------------------!
      !   !                 !  !       !      !
      !   !                 !  !       !  "FILNAM.SYS"    !
      !   !                 !  !       ! - - - - - - - - -!
      !   !                 !  !------<!     0-4     !
      !   !-----------------!4777      !     !
      !   !                 !          !------------------!
      !-->!                 !          .                  .
          !                 !          .                  .
          !-----------------!0         .                  .
                           . 11
  
  
  
        5.3.2.  "COPY/BOOT XXN:FILNAM DDM:"
  
  
  
         "COPY/BOOT XXN:FILNAM DDM:"    
          -
    XX   2, 3, 4  5  DD.    
    XX  ,       
   ; N -  ;  DD    -
     ,     -
   ; M -  .
  
                DUP  ,
     XX  DD     .  
 
                             - 100 -
  
  
  
  
   DUP    FILNAM.SYS    XXN:  
         ( 0    4)  
    .         
   .
  
         DUP      
     DD,   0   -
      ,    62   64  
     ,         
   .
  
               
     DD      DD.  DUP
        RADIX-50    FILNAM    
   4724  4726  .    
     0  DD. , , DUP   -
            DD.
  
         . 12     .
  
             "COPY/BOOT XXN:FILNAM DDM:"
  
                           .    .            .   DDM:
                           .          .            .
                           .          .            .
                           !          !            !
                           !----------!            !----------
                       !--<! !<----<3>----! 
                       !   !   !            ! 
    .   XXN:   .      <4>  !----------!            ! - - - - -
    .          .       !   !   0  !<---!       !   
    !          !       !   !  !    !       ! 
    !----------!       !   !----------!   <2>      !  DD.SYS
    ! -!       !   !          !    !       !   
    !      !   !---!-->! !>-! !       ! DDX..SYS
    !FILNAM.SYS!   !   !   ! !  ! !       ! - - - - -
    !- - - - - !  <1>  !   !          !  ! !       !   0
    !          !   !   !   !          !  ! !------<! 
    ! 0-4 !   !   !   !----------!  !         !----------
    !     !---!   !   .          . <5>        .
    !  !       !   .          .  !         .
    !          !       !   .          .  !         !----------
    !----------!       !                 !         ! 2-5
    !          !       !                 !-------->!
    !          !       !                           !
    .          .       !                           !----------
    .          .       !                           !
    .          .       !                           !----------
                       !                           !   0
                       !-------------------------->!
                                                   !----------
  
                           . 12
  
  
  
  
  
  
 
                             - 101 -
  
  
  
  
        5.3.3.  "BOOT DDN:"
  
  
  
         "BOOT DDN:"      
      ,    
        2, 3, 4  5  (
     COPY/BOO).     DD  -
      ,  ;  N
   -  .   (    -
    )     DD.
  
             DUP  -
   ,    DD    -
   .     2, 3, 4  5    .
         .  
         0  776.
  
         DUP       DD.
     ,       
       .
  
         DUP       724  
   726  4      .
  
          DUP  ,  
    . 10      .
  
                                                  10
                     DUP
    --------------------------------------------------------
          !          
              !
    --------------------------------------------------------
           4722           !    
           5000           !   
        5002-5004         !   
  
        ,  DUP     -
           0   4777
       1000,     
      DUP.        
          .
  
        . 13      -
   .
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 102 -
  
  
  
  
                   "BOOT DDN:"
  
         .             .           .        DDN:       .
         .                   .           .                   .
         .                   .           .                   .
         !                   !           !-------------------!
        /!-------------------!           !       !
       ! !                   !           !-------------------!
       ! ! !<-------!  .                   .
    !-<  !                   !       <1> .                   .
    !  ! !                   !        !  !-------------------!
    !  ! ! - - - - - - - - - !        !  !       !
    !  ! !   !<-----! !  !-------------------!
    !   \!-------------------!      ! !  .                   .
    !    !                   !      ! !  .                   .
    !    !                   !      ! !  !-------------------!
    !    .                   .     <1>!  ! !
   <2>   .                   .      ! !-<!                   !
    !    .                   .      !    !    ( 2-5     !
    !    !                   !      !    !    )    !
    !    !-------------------!4777  !    !-------------------!
    !    !                   !      !    !-------------------!
    !--->!                   !      !---<!   !
         !                   !           !( 0 )!
         !-------------------!0          !-------------------!
  
                       . 13
  
  
  
  
      6. ,    
  
  
  
  
        ,     -
        .    
     .
  
  
  
        6.1.  
  
  
  
              
    DD.MAC,  DD -    . 
           -
   ,   .DRBEG  .DRAST,   -
    /SHOW:MEB.
  
                    SJ-  
   FB-   :
  
    .MACRO/CROSSREFERENCE/SHOW:MEB/LIST SYCND+DD/OBJECT
  
    XM- - :
  
 
                             - 103 -
  
  
  
  
    .MACRO/CROSSREFERENCE/SHOW:MEB/LIST XM+SYCND+DD/OBJECT:DD
  
        XM -        ,
               
   / .
  
        SYCND -   ,    
    EE  .      
     ,     
   .
  
  
  
        6.2.  
  
  
  
              ,    
      .          SJ
   FB-   :
  
           .LINK/MAP/EXECUTE:DD.SYS DD
  
      XM- - :
  
           .LINK/MAP/EXECUTE:DDX.SYS DDX
  
  
  
        6.3.  
  
  
  
              -
          . 
       .   -
            
      INSTALL.    
            -
      .   ,  
    ,         
    .
  
             
      .
  
  
  
        6.3.1.   
  
  
  
           () 
        -
   ,      ,      .
           
           
     ,     . 
     ,     
 
                             - 104 -
  
  
  
  
   .
  
                 
   ,    ,   .
            
   ,   .  ,  -
         ,    
      ,   .
    ,     ,  
   . ,      -
    ,      $PNAME  
      .   ,   -
        $PNAME.
  
              
           -
    ,   ,  . 
     ,       -
           -
   ,      .  -
   ,    8    ,    
           
   ,      .
  
                 -
     (..         
   $PNAME),        -
       ,    ,  
     .     ,  
      .  
    ,     $PNAME,  ,
    ,  .
  
         .14  ,     -
       .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 105 -
  
  
  
  
            
  
                               <>
                                !
                                V
            ----------------------------------------
            ! ,       !
            !        ?          !
            ----------------------------------------
                                !
                                V
                   -----------------------------
                   !     $PNAME ?  !
                   -----------------------------
                                I
             ---------------------------------- 
               V                                V
    --------------------   ----------------------------------
    !   ? !   !     $PNAME ? !
    --------------------   ----------------------------------
               !                            !
        -----------------     ------------------ 
          V               !          !                V
    --------------------  !          !    --------------------
    !      !  !          !    !      !
    --------------------  !          !    --------------------
          V               V          V                V
    ---------------     -----------------     ---------------
    !  GO TO  <A> !     !     !     !  GO TO  <A> !
    ---------------     !   ? !     ---------------
                        -----------------
                                V
                ------------------------------ 
                  V                            V
    -------------------------------    -----------------------
    !        !    !   $PNAME,
    ! $PNAME    !    !     
    -------------------------------    !       
                  !                    -----------------------
                  V                               V
           ---------------                  ---------------
           !  GO TO  <> !                  !  GO TO  <> !
           ---------------                  ---------------
  
                           . 14
  
         ,       $PNAME  
       .     
           
   ,      .
  
            ,   
            ,  ..
      ,     
            
   .      ,   -
       ,  (,  -
   )          
   ,        .    
 
                             - 106 -
  
  
  
  
      INSTALL    
   ,     .  (  
       ,    
    -   ,   
     ,     -
      .)    -
   ,    DEV,  -
              
            .  
   . 15   ,    
     .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 107 -
  
  
  
  
                
  
                            <A>
                             V
              --------------------------------
              !               !
              --------------------------------
                             V
        ------------------------------------------------
        !       ? !
        ------------------------------------------------
                             !
             --------------------------------- 
               V                               V
    ------------------   -------------------------------------
    !   !   !      !
    !      ?     !   !            !
    ------------------   -------------------------------------
               !                                     V
      ---------------------              ----------------
        V                   V                 !    
    -----------------   ------------------    !   ?
    !     !   !     !    ----------------
    !        !   !    !           !
    !  !   !    <>!           !
    -----------------   ------------------           !
        !                      !                     !
        !    ------------------!                     !
        !    !            ------------------------------ 
        !    !              V                            V
        !    !       ----------------    --------------------
        !    !       !  !    !      !
        !    !       !   INSTALL    !    ! REMOVE  INSTALL !
        !    !       ----------------    --------------------
        !    !              V                      !
        !    !   -----------------------------     !
        !    !   !       !     !
        !    !   !     !     !
        !    !   !          !     !
        !    !   -----------------------------     !
        !    !               !                     !
        V    V               V                     V
      -------------------------------------------------
      !        ?  !
      -------------------------------------------------
                             !
        -------------------------------------- 
          V                                    V
    -------------------------------   ---------------------
    !     !   !   !
    ! DEV        !   ! REMOVE  INSTALL  !
    !    . !   !         !
    !      !   !      !
    !    !   ---------------------
    !                     !
    -------------------------------
  
                     . 15
  
 
                             - 108 -
  
  
  
  
        6.3.2.    INSTALL
  
  
  
             INSTALL    
        SHOW, -
    ,         -
   .   ,      REMOVE  
              
   ,    INSTALL.
  
              ,    
          .
    ,   REMOVE  INSTALL  
           ,
        .    
    ,     -
       .      -
      .
  
  
  
        6.3.3.    
               DEV
  
  
  
              
   .        .
        SYSTBL.MAC,    
     DEV    .
  
         DEV   SYSTBL.MAC    
        .
  
          DEV :
  
           DEV NAME,S
  
    
  
   NAME   -   ;
  
   S      -     (  -
            ).
  
             SYSTBL:
  
           DEV    RK      ;  RK
           DEV    LP      ;  LP
           DEV    MT      ;  MT
  
               SYSTBL.MAC    DEV
      .   -
     :
  
           .MACRO/OBJECT:TBXX XX+SYCND+SYSTBL
  
            XX   SJ, FB 
 
                             - 109 -
  
  
  
  
   XM. SJ.MAC, FB.MAC   XM.MAC  -      
   ;  ,     /
   .  XM.MAC,  , ,    
     .      
   ,       '
       .    
    ,     .
  
  
  
        6.3.4.          
               
  
  
  
               
      ,    
     .   
   176   0   ,    ,
      CSR  .  
       ,       
   -,     4.    
      ,    INSTALL  
     .    ,    
      INSTALL     
   "?KMON-F-ILLEGAL DEVICE INSTALLATION".
  
        ,    ,  
   CSR   . ,    ,  
    ,  ,   -
     .  ,      
    /        -
      .   -
        /,   
    ,       
      . ,   
    DX  DY             
            /.
           DX,    
    ,        
     DX.  ,        
     DX,       -
      DY.
  
                   
    ,       
     /.         -
   ,   ,     -
         ,  -
       ,   -
   .
  
  
  
  
  
  
  
  
 
                             - 110 -
  
  
  
  
        6.3.5.           
               
  
  
  
            ,    -
       /,    
      ,     -
     ,    (  -
   )   .   -
     ,      
     .
  
         ,       ,
     ,      -
    :
  
          -    ,      
            ,    ,  ;
  
          -            
                       -
            ,                 
            /,    -    -
            ;
  
          -          
            .
  
           ,  -
    ,      
      .   ,  -
         ,
              
    .    "C"    
        -   -
   .
  
         ,     
       .
  
  
  
        6.3.5.1.    
  
  
  
          ,   -
      ,      200  
    0 .       356.
  
         200   ,    
     INSTALL    -
    .
  
         202    ,    
          .  
    INSTALL    .
  
 
                             - 111 -
  
  
  
  
            ,    
          ,
       NOP      200.  
         ,    -
           
      :
  
            .=200           ;   
            BR      ERROR   ;  
            .
            .
            .
    ERROR:  SEC             ;  "C"
            RTS     PC      ; 
  
  
  
        6.3.5.2.   
  
  
  
                  ,
       /   -
   ,   ,   ,
        .   
         , 
    ,     
     .
  
           MOV     176,R0  ;  CSR
           TST     N(R0)   ;  
                           ;  N ?
           RTS     PC      ; ( 
                           ;,  
                           ;
  
                
   .   ,     -, 
        4,      
   .     -
        , ,  
         ,  
        .
  
          ,      
   ,   TST      
   .  ,        
   ,      .
  
  
  
        6.3.5.3.   
  
  
  
               -
   ,  ,           
    /,        
      .   -
 
                             - 112 -
  
  
  
  
      ,      -
     .
  
          ,   :
  
            MOV     176,R0  ;  CSR
            TST     N(R0)   ;  
                            ;  N ?
            BCC     1$      ;,   
            CLC             ;,   "C"
            RTS     PC      ; 
    1$:     SEC             ;  "C"
            RTS     PC      ;  
  
                
     .   ,   -
           -
    .
  
  
  
        6.3.5.4.    
  
  
  
         ,        
   /,     , 
             
     ,    .  ,  
      ,       (
   )   .
  
        ,    DX   DY    CSR.
     11,    CSRX02,  ,    
    DX,  ,     
   DY.       DY, 
     ,    .
  
           .ASECT
           . = 200         ;   
           NOP             ;   
                           ;.  . 
           BIT     #CSRX02,@176    ;  DY ?
           BEQ     1$      ;,  DX.
                           ;   DY
           TST     (PC)+   ;  ,
                           ;  "SEC".
                           ; DY,  
                           ; 
    1$:    SEC             ;  "C",
                           ;   DY
           RTS     PC      ;  
  
  
  
  
  
  
  
 
                             - 113 -
  
  
  
  
        6.3.5.5.  / 
  
  
  
           ,    -
    /,    /    CSR,  
        .      
       ,    
   ,        ,  
    ( )    -
   .    ,    -
      CSR.     
   .    ,    -
    / .      
   ,         .
         -
       .    -
   ,       .    
    ,   .
  
  
  
        6.3.6.        
               
  
  
  
          -    -
    ,        -
     ,   
      INSTALL     -
    SIPP.  176  200   0   
   ,    INSTALL    
        .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 114 -
  
  
  
  
           7.     
  
  
  
  
           ,    -
   ,     .    -
    ,          
            -
    DD(X).SYS.
  
             :
  
   1)    ODT    -
     ;
  
   2)     , -
            -
   .   COPY   PIP,  -
       .    -
    READ  WRITE       
   INPUT  PRINT  .      
       ,    ,  
        ,    -
    DUP      
    . ..      DUP  
     ( INITIALIZE)    '-
        (  SQUEEZE).  
   RESORC       -
          SHOW DEVICES;
  
   3)    ,    
     /      ,  
   /   .
  
              ,   
        .
  
  
  
        7.1.  ODT   
  
  
  
           ODT    -
   ,      ODT      .
        FB-.
  
        ,          
    .     
   ,          
    .     
      GT ON.     GT
          .
  
        ,     ODT    
      :
  
  
 
                             - 115 -
  
  
  
  
           .LINK/MAP/FOREGROUND ODT
  
           ,   -
   :
  
           .LOAD DD[X]
  
            ODT   ODT,  -
       . ,    ,  
      7100,   ODT     6100
   () .
  
         ODT   .  
      ODT   /P:
  
           .FRUN ODT/P
          123532
  
      RESUME   ODT:
  
           .RESUME
             ODT V01.04
  
  
        .  ODT     -
            ,
    ,        -
    ODT.
  
           ODT    0:
  
           123532;0R
  
         ,   ODT   ,  
     ODT    0:
  
           0,6100/  704
  
                 .
       702 ()  .
    704   ,      
    . ,         
      .    
     0   :
  
           0,6102;0R
  
        . 16      
     .
  
  
  
  
  
  
  
  
  
  
 
                             - 116 -
  
  
  
  
            ODT     
  
                -------------------------
                !  / !
                -------------------------
                !      !
                !             !
                -------------------------
                !     !
                -------------------------
                !       GT       !
                -------------------------
                !       DX       !  = 702 
         131634 -------------------------
                !   DX    !  
         131632 -------------------------
                !         ODT           !  = 6100 
         123532 -------------------------
                !         USR           !
                -------------------------
                !       !
                -------------------------
                !                       !
                .                       .
                .                       .
                !                       !
              0 -------------------------
  
                       . 16
  
           ,   -
       .       
   ;       
   .       .
  
           0,12;0B
  
              -
    ,   .   -
         .    
   ,   .    ,  
        DDINT:;    
       .
  
               
    ODT   :
  
           0;G
  
            .  
      DUP     -
      PIP        -
       ,  -
      .      
      ,    ODT    .
   ,  ,  ODT     
       .   ,
     ODT     7;    
     ""   .
 
                             - 117 -
  
  
  
  
            ,      
          -
   :
  
           ;B
           ;P
  
         ,    
    (ODT),         
    .
  
  
  
        7.2.  ODT  XM-
  
  
  
           ,  -
      ODT                
   XM-.
  
               
   ODT.        -
     ,      ,   
     .      
     ,  ODT         
   1 (  20000  37776).     
    ODT -   .
  
           ODT  /   
   .
  
             . 
     ODT      
   (BPT)   14  16  .    -
            ,
    14  15, PS     16.        
   ,        .
     11     00  -  
    .   ,   PIP  
   DUP,        ,    
       11.
  
               ODT  -
    0;G.   ODT    .EXIT,
      BPT. ,        ODT
         ,  
    DEPOSIT:
  
         D 14=(  . 14),(  . 16)
  
               
   ,  ,      
    .
  
  
  
  
  
 
                             - 118 -
  
  
  
  
       8.    
  
  
  
  
             , 
   ,     ,  .  
       :
  
          -   (, MS, MT);
          -    (CT);
          -   (DX, DY);
          -     (CR);
          -   / (PC);
          -   (TT);
          -    (DM);
          - - (NL).
  
  
  
        8.1.   
  
  
  
            ,   -
    .  ,       -
   ,        . 
       ,  -
         ISO,   -
       ,    
   .
  
                  
   :  (HD)   (FS).
  
                MMHD.SYS,   MSHD.SYS,
   MTHD.SYS,      -  MM.SYS,  MS.SYS,
   MT.SYS.      .
  
           MM  MT    
    SET    ,   -
      .   -
        .
  
         MM      
   ,     ,  -
       .
  
           ,   
    :
  
           BOT  -  ;
           EOT  -   ;
           LEOT -   ;
           EOF  -  ;
           FSN  -   .
  
   LEOT    EOF1 (   ), 
       .
 
                             - 119 -
  
  
  
  
        8.1.1.   
  
  
  
                
    ,    ,      
   .       
      .
  
             
     0  1.      -
     (2-7)    -
   .
  
        ,   ,   :
  
           VOL1 HDR1 *  * EOF1 * HDR1 *  * EOF1 **
    
  
   VOL1, HDR1  EOF1
          -   ANSI;
  
   *      -  .
  
  
  
        8.1.1.1.    
  
  
  
               ,  
            
          
     :
  
          1)             
            ,     ,    
                 .  ,
                  -
                1,        
             2,           
                    -
             2;
  
          2)             
                ,      
             / ,      BOT  (
             ),      
                 .  ,
                  2      
               1,   -
              BOT,     -
                 1.  ,  
               9      
              6,    
             BOT,      .
  
  
  
 
                             - 120 -
  
  
  
  
        .     UNLOAD 
    .RELEASE,    .    
          
   ,     BOT  ,     
      .
  
  
  
        8.1.1.2.    
  
  
  
                
   ,    .   -
        ,    
           ,  
     .      
    ,     
   .       , 
     RADIX-50.
  
           :
  
           FILNAM.TYP
  
    
  
   FILNAM -  ,       -
               ,    ,  
            ;
  
   TYP    -  ,        -
             .
  
          :
  
    1)    (CC);
  
    2)      .     
        :
  
          -   ;
  
          -  CC<6,     CC, 
                6;
  
          -  CC>6,     CC   
            ,      6;
  
    3)  CC=6        64    6
        ,      
      ,      CC;
  
    4)          
       ;
  
   5)  CC;
  
   6)  CC<9,     2;
 
                             - 121 -
  
  
  
  
    7)    ;     
      ,      .DAT  
       ;
  
    8)       
        ,        
            (HDR1).
  
  
  
        8.1.1.3.   
  
  
  
                :
   .ENTER, .LOOKUP, .READ*/.WRIT*, .DELETE, .RENAME, .CLOSE, 
   .SPFUN.
  
        1)  .ENTER
  
          .ENTER    (HDR1)  
           .  
           .  
   .ENTER     -
    ,          
        .
  
          .SPFUN     ,
      .ENTER,        
   (    .)  .  
   ,    .ENTER,    -
    .SPFUN.         
   ,        -
    (     512  ).    
    ,      .ENTER,
       .SPFUN.   -
           .CLOSE.
       ,   -
   
  
          .LOOKUP.
  
         .ENTER   :
  
           .ENTER AREA,CHAN,DBLK,,SEGNUM
  
         . 11     -
    ( SEGNUM)       
      .ENTER.
  
                                                   11
               
                     .ENTER
    ---------------------------------------------------------
     FSN  !    !         !     
          !  !            !
    ---------------------------------------------------------
      >0  ! !  !FSN :
          !       !  ! 
 
                             - 122 -
  
  
  
  
                                         . 11
    ---------------------------------------------------------
     FSN  !    !         !     
          !  !            !
    ---------------------------------------------------------
          !       !   -  !  -
          !       ! .ENTER    ! FSN  
          !       !                    !  ;
          !       !                    !FSN  :
          !       !                    ! 
          !       !                    !  .LEO
          !       !                    !    
          !       !                    !
       0  ! ! !FSN :
          !       !  ! ;
          !       ! .  -!FSN  :
          !       !,    !   
          !       !;   -!.
          !       ! -    !
          !       !                    !
      -1  ! !  !   
          !       ! LEOT   !
          !       !                    !
      -2  ! ! !   
          !       !    !
          !       !;    !
          !       !  !
          !       !LEOT (  !
          !       ! ,  - !
          !       ! ) - !
          !       !  -!
          !       !             !
          !       !                    !
       0  !     ! ! 
          ! !   ! BOT
          !       !(  -!
          !       !    !
          !       ! .LOOKUP)           !
  
         .ENTER        
      52  (. 12):
  
                                                   12
                          .ENTER
    ---------------------------------------------------------
           !               
      52  !
    ---------------------------------------------------------
        0      !  
               !
        1      !  ; , 
               !     (EOT)
               !   HDR1;   -
               !    , 
               !   EOF1  
               !
        2      !  ; , 
               !      
               !
 
                             - 123 -
  
  
  
  
                                         . 12
    ---------------------------------------------------------
           !               
      52  !
    ---------------------------------------------------------
        3      !  ,    
               !
        4      !     
               !  ;    , 
               !     (=1)
               !
        5      !  ; 
               !       
               ! -3  -32767     
  
  
        .  .ENTER    -
    ,      ;
  
        2)  .LOOKUP
  
         .LOOKUP     -
     HDR1.     -
         .
  
         .LOOKUP   :
  
           .LOOKUP AREA,CHAN,DBLK,SEGNUM
  
         . 13     -
     ( SEGNUM)     -
       .LOOKUP.
  
                                                   13
               
                      .LOOKUP
    ---------------------------------------------------------
     FSN  !    !  !     
          !  !                     !
    ---------------------------------------------------------
       0  !     ! .LOOKUP  ! 
          ! !  ! BOT
      -1  !     ! .LOOKUP  !  -
          ! !  !
      >0  !     ! .LOOKUP  !FSN :
          ! !    !   -
          !       ! FSN               !  
          !       !                     !;
          !       !                     !FSN  :
          !       !                     ! 
          !       !                     ! LEOT
       0  ! !  BOT,!FSN :
          !       !   !   -
          !       !   !  
          !       !.LOOKUP      !;
          !       !            !FSN  :
          !       !                     !  LEOT
      -1  ! !     !FSN :
          !       !,    !   -
 
                             - 124 -
  
  
  
  
                                         . 13
    ---------------------------------------------------------
     FSN  !    !  !     
          !  !                     !
    ---------------------------------------------------------
          !       !.LOOKUP      !  
          !       !  FSN     !;
          !       !                     !FSN  :
          !       !                     !  LEOT
      >0  ! ! !FSN :
          !       !      !   -
          !       !FSN      !  
          !       !.LOOKUP      !;
          !       !.   !FSN  :
          !       ! ,  -! 
          !       !   -! LEOT
          !       !                   !
  
  
        .     
   .LOOKUP (     FSN=0  -1),  
   .READ, .READC, .READW    , -
             .   
   .WRITE, .WRITEC, .WRITEW      -
       .     
        (512 ),   
   /  .    
             .SPFUN,
         (BLK=0). BLK   
          USR.
  
         .LOOKUP       
      52-  (. 14).
  
                                                   14
                          .LOOKUP
    ---------------------------------------------------------
          !               
      52 !
    ---------------------------------------------------------
         0    !   
              !
         1    !   ;   
              !  ,    EOF1
              !
         2    !  ;    
              !   
              !
         5    !  ; 
              !       
              ! -2  -32767.  .LOOKUP 
              !     -
              !   
  
  
        .        
    ,   .ENTER;
  
        3)  .READ*
 
                             - 125 -
  
  
  
  
         .READ*     
     512  .    -
     ,   .ENTER  
    .LOOKUP.         
    ,  512 ,      
    .       ,
    512 ,        
    .
  
  
        .  .READ*/.WRITE*   -
     : .READ, .READC,  .READW,  .WRITE,
   .WRITEC, .WRITEW.
  
         .READ*   ,  -
     .LOOKUP.      ,
      .ENTER,  ,   -
          -
     (  0   52).
  
           ,   -
        ,      
        .
  
           .CLOSE  , -
     .ENTER,        
     .      -
   ,         
               
   .        .
  
              :
          -   .READ*    -
             .LOOKUP   ,      
                  -
              .   , -
                0 ( ),     -
                ;
          -   .WRIT*   .READ*    
                ,  -
                  
            .   ,       
            ,     0 ( 52).
  
          .READ*:
  
           .READ* AREA,CHAN,BUF,WCNT,BLK[,CRTN]
  
         .READ*        
      52-  (. 15).
  
                                                   15
                           .READ*
    ---------------------------------------------------------
           !                
      52  !
    ---------------------------------------------------------
        0      !     ; 
               !      
 
                             - 126 -
  
  
  
  
                                         . 15
    ---------------------------------------------------------
           !                
      52  !
    ---------------------------------------------------------
               !  (  512 )
               !
        1      !    
               !
        2      !   
  
        4)  .WRIT*
  
         .WRIT*        
      512 .    -
       512 ,       
    512 ,       .  
   ,   .WRIT*,   
   512 ,        -
        512 .
  
         .WRIT*     -
   ,   .ENTER     -
    .LOOKUP.
  
          .WRIT*:
  
           .WRIT* AREA,CHAN,BUF,WCNT,BLK[,CRTN]
  
         .WRIT*         
       52-  (. 16).
  
                                                   16
                         .WRIT*
    ---------------------------------------------------------
          !              
      52 !
    ---------------------------------------------------------
         0    !   (   ,  -
              !        -
              !   .CLOSE)      
              !  
              !
         1    !    
              !
         2    !   
  
                 
      ,     .
             
      .
  
         . 17  . 18    -
         .
  
  
  
  
  
 
                             - 127 -
  
  
  
  
       1                     2
  
      ()              ( /
                                  )
     !---------!                !---------!
     !   ! BOT !                !   ! BOT !
     !---------!                !---------!
     !         !<---->!         !<--
     !---------!      !---------!       
     !     !                !     ! ( -
     !         !                !         !  -
     !    A    !                !    A    !  )
     !---------!                !---------!
     !         !<---->!         !
     !---------!      !---------!
     !     !                !     !
     !         !                !         !
     !    B    !                !    B    !
     !---------!                !---------!
     !         !<---->!         !
     !---------!      !---------!
     !     !                !     !
     !         !                !         !
     !    C    !                !    C    !
     !---------!                !---------!
     !         !<--  !         !
     !         !         !         !
     !         !   (    !         !
     !/\/\/\/\/!          !/\/\/\/\/!
                   )
  
                        . 17
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 128 -
  
  
  
  
                    3
  
              ( 
                )
                  !---------!
                  !   ! BOT !
                  !---------!
                  !         !<--
                  !---------!   
                  !     !
                  !         !
                  !    A    !
                  !---------!
                  !         !<--
                  !---------!   
                  !     !
                  !         !
                  !    B    !
                  !---------!
                  !         !<--
                  !---------!   
                  !     !
                  !         !
                  !    C    !
                  !---------!
                  !         !<-- 
                  !         ! ( ,    1)
                  !/\/\/\/\/!
  
                         . 18
  
         . 17   1  A, B, C    
   .        
   ,       C.  
      ,      -
    ,     (.. -
   ,         ,  
     )     -
   .
  
         . 17   2    -
     BOT    .    
   ,    A, B  C.
  
             ,
      . 18   3.        
        1 (. . 17);
  
        5)  .DELETE  .RENAME
  
         .DELETE  .RENAME   
      ,     
          ( 2  
    52);
  
        6)  .CLOSE
  
         .CLOSE        -
   :
 
                             - 129 -
  
  
  
  
          -      .ENTER,  
               .CLOSE  -
             ,  EOF1     -
            ;      -
                 LEOT;
          -             
            .LOOKUP,       ,
               EOF1;
          -           
            .LOOKUP,           
              .
  
          .CLOSE:
  
           .CLOSE CHAN
  
                .CLOSE,
         .
  
  
        .         
        .SERR;
  
        7)  .SPFUN
  
         .SPFUN    -
     ,   USR.    -
        .      
   -  ,         
    ,     -
    .ENTER  .LOOKUP.   .SPFUN    
       FB-  XM-,   -
     USR.      
   .ENTER    .LOOKUP        
   .LOOKUP,         .  
            ,
             .LOOKUP,
      .
  
          .SPFUN:
  
           .SPFUN AREA,CHAN,#-20.,BUF,,BLK
  
    
  
   -20.   -    ;
  
   BUF    -  7- ,      
            :
  
  
  
  
  
  
  
  
  
  
 
                             - 130 -
  
  
  
  
                    
  
            0-2  -     RADIX-50;
  
            3    -  :
                      3 -  .LOOKUP;
                      4 -  .ENTER;
  
            4    -    
  
            5-6  - ;
  
   BLK    -  4-       ,
                  
            .LOOKUP   .ENTER.          BLK
              .    
                     
              .    BLK  
            0,        .
              BLK             
            XM-.
  
           .
  
    .TITLE     
           .ENABL  LC
           .MCALL  .LOOKUP,.SPFUN,.CLOSE,.PRINT,.EXIT
    ;
    ; 
    ;
           ASYREQ = -20.;   
           LOOKUP = 3   ;  LOKUP  
                        ; 
           ENTER  = 4   ;  ENTER  
                        ; 
           CHAN   = 0   ;   0
           FNF    = 1   ; ,   
           FSN    = 0   ;  0  -
                        ;   
    ;
    ;    
    ;
    START: .LOOKUP #AREA,#CHAN,#NFSBLK ;   
                                       ;  -
                                       ; 
           BCS     LOOKER              ;  
           .SPFUN  #AREA,#CHAN,#ASYREQ,#COMBLK,,#ERRBLK
           BCC     FOUND               ;  , 
                                       ; 
           CMP     #FNF,ERRBLK ; ,  ?
           BEQ     NOTFND      ; 
           MOV     #ASYERR,R0  ; 
           BR      CLOSE
    LOOKER:MOV     #LOOERR,R0  ;   .LOOKUP
           BR      CLOSE
    FOUND: MOV     #OK,R0      ;  " "
           BR      CLOSE
    NOTFND:MOV     #NOK,R0     ;  "  "
    CLOSE: .PRINT              ;  , -
 
                             - 131 -
  
  
  
  
                               ;   R0
           .CLOSE  #CHAN
           .EXIT
    ;
    ;  
    ;
    AREA:  .BLKW   6           ;   EMT
    NFSBLK:.RAD50  /MT/        ;   
                               ;   
                               ; 
           .WORD   0,0,0
    COMBLK:.RAD50  /FILNAMTYP/ ;    
           .WORD   LOOKUP      ;   
                               ;   .LOOKUP
           .WORD   FSN         ;   
                               ;   .LOOKUP
           .WORD   0,0         ;  ( 
                               ; )
    ERRBLK:.WORD   0,0,0,0     ;   
    ;
    ;  
    ;
           .NLIST  BEX
    LOOERR:.ASCIZ  '   .LOOKUP'
    OK:    .ASCIZ  ' '
    NOK:   .ASCIZ  '  '
    ASYERR:.ASCIZ  '  '
           .EVEN
           .LIST   BEX
           .END    START
  
  
  
        8.1.1.4.     
                     
  
  
  
                
       .     
   ,       
      .     -
      (, ,   ..).
             -
          , 
    () .
  
                -
      ,    -
    .  ,    -
        .
  
                 -
      .READ*/.WRIT*      
        ,   
   .  " "      
       ,   ,  -
     .ENTER.
  
 
                             - 132 -
  
  
  
  
          ,  ,   '-
   , ..       
     . ,    :
  
          1)              
                  -
               ,  ,  
                  ,    
                  .CLOSE     
              ;  ,  -
             .CLOSE     ,  
               .ENTER,        
               ,    
               ;    
                 ;    
                     
             , ..       ;
                ;   -
                 ;
  
          2)                
                    
                    
             ( 512   
             .WRIT*);      
                ,    
            EOF1      ,      
              ,  
             .SPFUN;      ,
               .
  
  
                 .   -
             .SPFUN       
            ,  , .
  
  
  
        8.1.2.   
  
  
  
             
        /,    
     .        
          /
    .     -
        .
  
                
   ,    .   -
        , 
               
   ,      
     :
  
                                   
  
      REMOTE MT                          
 
                             - 133 -
  
  
  
  
                                     
      RENAME/SYS MT.SYS MTFS.SYS       
                                     
      RENAME/SYS MTHD.SYS MT.SYS         
                                     
      INSTALL MT                         
  
              -
    .LOOKUP,     .SPFUN,  
     .READ, .READC, .READW, .WRITE,  .WRITEC,
   .WRITEW  .CLOSE.     -
    /   ,  -
      .
  
  
  
        8.1.2.1.   .SPFUN
  
  
  
         .SPFUN,   ,
           
    52-    .  -
   ,     " "   
            
      .    "
   "  0,     .
  
  
        .      ,  
         52.
  
         (BLK)   :
  
          -  1  2   ;
          -  3  4       -
            .
  
   ,    1      (BLK)
    EOF ( 52  0    ), -
     . 17.
  
                                                   17
                      
    ---------------------------------------------------------
        !            
      !
    ---------------------------------------------------------
           1      !   EOF ( )
                  !
           2      !   EOT (  )
                  !
           3      !   EOT  EOF ( )
                  !
           4      !   BOT (  )
  
  
              ,  
        (BLK)  
 
                             - 134 -
  
  
  
  
     ,    ,   -
      .    -
     EOT,    BOT   EOF.
  
        ,      1    
   (BLK)    ,    
   . 18 ( 52  1).
  
                                                   18
                  
    ---------------------------------------------------------
       1     !              
    ---------------------------------------------------------
           0      !    (
                  !     ,
                  !   )
                  !
           1      !    
                  !
           2      !   ;  
                  !     
                  !    
                  !
           3      !   
                  !
           4      !    
                  !
           5      !     
                  ! ,     
                  ! ;    
                  !   (   
                  ! )
                  !
           6      !     ( 
                  !      
                  !    2  BLK).
  
            ,  
    ,     
   .LOOKUP, .CLOSE   .SPFUN,  
    .
  
           XM-      (BLK)  
        .
  
  
  
        8.1.2.2.     
  
  
  
                 
   .        
       .SPFUN.
  
         .SPFUN        
      :
  
  
 
                             - 135 -
  
  
  
  
           .SPFUN AREA,CHAN,#370,BUF,WCNT,BLK[,CRTN]
  
    
  
   370    -   ;
  
   BLK    -         
            ,     
            ;
  
   CRTN   -  ,    -
             ,    -
             ;
  
           ,    -
     ,   . 19. 
            
    (BLK).
  
                                                   19
                         .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!     2   !   EO (  
              !     3   !   EOF  EOT (
              !         ! )
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
              !     3   !   
              !     4   !    
              !     5   !    
              !         !  . 
              !         ! MM   
              !         !  (   )
              !     6   !    .  
              !         !    
              !         !    
  
         .SPFUN        
      :
  
           .SPFUN AREA,CHAN,#371,BUF,WCNT,BLK[,CRTN]
  
    
  
   371    -   .
  
               -
      . 20.    
              
   (BLK).
  
  
  
 
                             - 136 -
  
  
  
  
                                                   20
                         .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!     2   !   EO (  
              !     3   !   EOF  EOT (
              !         ! )
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
              !     3   !   
              !     4   !    
  
  
  
  
        8.1.2.3.  /
  
  
  
              -
              
   .    ,      
            .      
        ,  -
     ,      -
   .           
    .
  
          .SPFUN      
    :
  
        1)   
  
           .SPFUN AREA,CHAN,#376,,WCNT,BLK[,CRTN]
  
    
  
   376    -    ;
  
   WCNT   -     (    
            65534);
  
   CRTN   -  ,    -
             ,    -
             ;
  
                    52
   (. 21)   ,   
         (BLK).
  
  
  
  
  
 
                             - 137 -
  
  
  
  
                                                   21
                           .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!     2   !   EO (  
              !     3   !   EOF  EOT (
              !         ! );
              !         !    
              !         !    
              !         !   (WCNT)  
              !         !  ,  
              !         !   BOT .  
              !         !     
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
  
  
        . -      -
   ,      ,  
       EOT;
  
        2)   
  
              
   :
  
           .SPFUN AREA,CHAN,#375,,WCNT,BLK[,CRTN]
  
    
  
   375    -    .
  
                    52
   (. 22)         
       (BLK).
  
                                                   22
                           .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!     2   !   EO (  
              !     3   !   EOF  EOT (
              !         ! )
              !     4   !   BOT ( 
              !         ! );   
              !         !    
              !         !    (WCNT) 
              !         !   , 
              !         !    BOT . 
              !         !     
              !         ! 
 
                             - 138 -
  
  
  
  
                                         . 22
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
  
  
  
        8.1.2.4.    BOT
  
  
  
               -
     (  ).    MM    MT    
         ,      
       (    
   MS).
  
            :
  
           .SPFUN AREA,CHAN,#373,,,BLK[,CRTN]
  
    
  
   373    -    ;
  
   CRTN   -   (),      
             ,      
             .
  
                    52
   (. 23)       -
    (BLK).
  
                                                   23
                           .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
        !     0   !   
        !         !
    =0!     1   !    
  
  
  
  
        8.1.2.5.            
                  
  
  
  
           ,    -
      ,   ,    -
      ,        
 
                             - 139 -
  
  
  
  
   .          ,  
     .
  
               -
    :
  
           .SPFUN AREA,CHAN,#372,,,BLK[,CRTN]
  
    
  
   372    -       -
            ;
  
   CRTN   -  ,    -
             ,    -
             .
  
                  -
    ,     .
  
  
  
        8.1.2.6.    
  
  
  
              -
        .      
      ,       -
      374.      
       .
  
  
  
        8.1.2.7.   
  
  
  
                 .
      :
  
           .SPFUN AREA,CHAN,#377,,,BLK[,CRTN]
  
    
  
   377    -     .
  
                    52
   (. 24)       
       (BLK).
  
                                                   24
                           .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!         !
 
                             - 140 -
  
  
  
  
                                         . 24
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
              !     4   !    
  
  
  
        8.1.2.8.   
  
  
  
         ,      -
   ,       .
  
             ,   -
           -
     :
  
         1)          ,      
             ;     
              ;
  
          2)      ,      
            4 ,   ;
  
          3)  1  2        
                 .
  
               -
       :
  
          1)      ;
  
          2)         
                      
             ,     -
            ;
  
          3)   1  2     ,      
              .      -
             7.5    ,      
            .
  
  
  
        8.1.2.9.   .LOOKUP
  
  
  
                
    .LOOKUP.        
      ,      
   /.    ,   -
 
                             - 141 -
  
  
  
  
     ,          
          , 
       .CLOSE.
  
         .LOOKUP   :
  
           .LOOKUP AREA,CHAN,DBLK,SEGNUM
  
   
  
   SEGNUM - ,     -
             :
  
                       
                   SEGNUM
  
                     0                  
                    -1                   
  
         .LOOKUP     ,
     . 25.
  
                                                   25
                          .LOOKUP
    ---------------------------------------------------------
                   !          
         52       !
    ---------------------------------------------------------
         0  1       !    
         2             !  
                       !   
                       !     
         3             !    
         4             !   :
                       !      
                       ! SEGNUM    0  -1
  
  
  
        8.1.2.10.  .CLOSE
  
  
  
               .CLOSE  
     .
  
            :
  
           .CLOSE CHAN
  
  
  
        8.1.2.11.   .WRIT*
  
  
  
              ,
           .
      .
 
                             - 142 -
  
  
  
  
            :
  
           .WRIT* AREA,CHAN,BUF,WCNT[,,CRTN]
  
         .WRIT*  ,  
    . 26.   .
  
                                              26
                          .WRIT*
          ----------------------------------------------
               !               
          52  !
          ----------------------------------------------
             0     !     (EOT)
             1     !    
             2     !   
  
  
  
        8.1.2.12.   .READ*
  
  
  
               
     .    EOT,     -
              .  
     .
  
          :
  
           .READ* AREA,CHAN,BUF,WCNT[,,CRTN]
  
             , -
     . 27.   .
  
                                                 27
                            .READ*
         --------------------------------------------------
                !            
           52  !
         --------------------------------------------------
              0     !     ;
                    !     
                    !   
              1     !    
              2     !   
  
  
  
        8.1.3.           .DFN      CRTN
                   ,     
                     ,
                        
               .
  
  
  
                  -
    ,     .
 
                             - 143 -
  
  
  
  
        8.1.3.1.    
  
  
  
              -
        .      
      ,       -
      374.      
       .
  
  
  
        8.1.3.2.   
  
  
  
                 .
      :
  
           .SPFUN AREA,CHAN,#377,,,BLK[,CRTN]
  
    
  
   377    -     .
  
                    52
   (. 24)       
       (BLK).
  
                                                   28
                           .SPFUN
    ---------------------------------------------------------
          !      !        
    52   !  1 !
    ---------------------------------------------------------
      EOF     !     1   !   EOF ( )
    =0!         !
              !         !
        !     0   !   
        !     1   !    
    =1!     2   !    
              !     4   !    
  
  
  
        8.1.3.3.   
  
  
  
         ,      -
   ,       .
  
             ,   -
           -
     :
  
         1)          ,      
             ;     
              ;
 
                             - 144 -
  
  
  
  
          2)      ,      
            4 ,   ;
  
          3)  1  2        
                 .
  
               -
       :
  
          1)      ;
  
          2)         
                      
             ,     -
            ;
  
          3)   1  2     ,      
              .      -
             7.5    ,      
            .
  
  
  
        8.1.3.4.   .LOOKUP
  
  
  
                
    .LOOKUP.        
      ,      
   /.    ,   -
     ,          
          , 
       .CLOSE.
  
         .LOOKUP   :
  
           .LOOKUP AREA,CHAN,DBLK,SEGNUM
  
   
  
   SEGNUM - ,     -
             :
  
                       
                   SEGNUM
  
                     0                  
                    -1                   
  
         .LOOKUP     ,
     . 25.
  
  
  
  
  
  
  
 
                             - 145 -
  
  
  
  
                                                   29
                          .LOOKUP
    ---------------------------------------------------------
                   !          
         52       !
    ---------------------------------------------------------
         0  1       !    
         2             !  
                       !   
                       !     
         3             !    
         4             !   :
                       !      
                       ! SEGNUM    0  -1
  
  
  
        8.1.3.5.  .CLOSE
  
  
  
               .CLOSE  
     .
  
            :
  
           .CLOSE CHAN
  
  
  
        8.1.3.6.   .WRIT*
  
  
  
              ,
           .
      .
  
            :
  
           .WRIT* AREA,CHAN,BUF,WCNT[,,CRTN]
  
         .WRIT*  ,  
    . 26.   .
  
                                              30
                          .WRIT*
          ----------------------------------------------
               !               
          52  !
          ----------------------------------------------
             0     !     (EOT)
             1     !    
             2     !   
  
  
  
  
  
 
                             - 146 -
  
  
  
  
        8.1.3.7.   .READ*
  
  
  
               
     .    EOT,     -
              .  
     .
  
          :
  
           .READ* AREA,CHAN,BUF,WCNT[,,CRTN]
  
             , -
     . 27.   .
  
                                                 31
                            .READ*
         --------------------------------------------------
                !            
           52  !
         --------------------------------------------------
              0     !     ;
                    !     
                    !   
              1     !    
              2     !   
  
  
  
        8.1.4.             
               
  
  
  
           ,      -
    ,   A ANSI. 
       ANSI     
     .  ,     
     ,       (,  -
    ,    ).    
            
         
   .
  
  
  
        8.1.4.1.      
  
  
  
               -
     : DOS  ANSI.    ,  
   , DD        .  
       ANSI       
    :
  
                                  
  
 
                             - 147 -
  
  
  
  
    ASSIGN DDN:.ANSI                   
                                     ,  
                                     -
                                   ANSI;
    RUN $PIP
    DDN:XXXXXX/ZE                 PIP    ;
                                  XXXXXX   -
                                   ;
    REALLY ZERO DDN:? YES         PIP     
                                   ;
    PIP DDN:=PROG1.TXT,PROG2.TXT  PIP    ;
    DEASSIGN DDN:                  
                                  .
  
  
  
        8.1.4.2.     -
  
  
  
          -     
       :
  
                            
  
    ALL DDN:                    N;
    INIT DDN:RAFOS            
                               RAFOS
                               ;
    MOU DDN:RAFOS             ;
    PIP DDN:=[12,17]PROG1.TXT,PROG2.TXT
                               ;
    DMO DDN:RAFOS             ;
    DEA DDN:                  .
  
  
  
        8.1.5.     RSX-11D  IAS
  
  
  
  
  
        8.1.6.  
  
  
  
             
      .   ,      
        .    -
      MT     
        .    
      ,   -
     ;         
      .  ,      
      .   
    200  556 BPI (7,87  21,89 /)    
         .    
        .   800  BPI
 
                             - 148 -
  
  
  
  
   (31,50 /)     
        (SET MT:DENSE=807),    
      ( ). . 19 -
       .
  
                        
                      ---------------------
  
  
    15                       08  07                         00
    ----------------------------------------------------------
    !              B            !              A             !
    ----------------------------------------------------------
                          9- 
                 8- 
  
  
  
     15 14 13                   08 07 06 05                00
    ----------------------------------------------------------
    !  !  !          B            !  !  !        A           !
    ----------------------------------------------------------
               7-  (6- )
               6  
        8- .  6,7,14  15 -  
  
  
     15         12 11         08 07          04 03         00
    ----------------------------------------------------------
    !      D      !      C      !       B      !            !
    ----------------------------------------------------------
               7-  ( )
               8- ,
                  4- 
  
  
                                        !---------------!
                  /---I---I---I---I-----!               !----/
                  >   D   C   B   A     !      !    >
                  \---I---I---I---I-----! / !----\
                                        !               !
                   --------> !---------------!
                   
  
                           . 19
  
           6-      
   6-  ,      ;
         0.      
   6-        6      
      ;        -
   .
  
             -4      
    .       4  
     -4  4     ; 4
      -4     4    
     .      
      .       
 
                             - 149 -
  
  
  
  
    : 4      -
        -4; 4  
         -
     -4.          
   ,        .  
           
         -
     -4  .     ()
      .
  
  
  
        8.2.     (CT)
  
  
  
         CT     :  
   .   -     ,
            
     .       
           
          64 .
  
              
          -
    .         
       .
  
             -
    .FETCH,      LOAD,    
      .     -
             -
   ,       .LOOKUP  (
    .LOOKUP -   .LOOKUP,   
         ,  ..      
   ).
  
         CT    :
  
   .ENTER -     ;
  
   .LOOKUP
          -     /;
  
   .DELETE
          -   ;
  
   .CLOSE -  ,      
            .LOOKUP  .ENTER;
  
   .READ*/.WRITE*
          -    .
  
          .ENTER, .LOOKUP  .DELETE    
      " ":
  
       0  -       ;
  
      >0  -   ;   
 
                             - 150 -
  
  
  
  
              ,        
              (,    -
            ,  2,       2
            ;   ,  1, -
               );
  
      <0  -  ;     -
                  -
            .
  
         ,   ,    -
    ,        -
   .
  
         1:
  
           .LOOKUP #AREA,#0,#PTR,#5
           BCS    A1
           .
           .
           .
    AREA:  .BLKW   10.
    PTR:   .RAD50  /CT0/
           .RAD50  /SAMPLEMAC/
  
                (  +5),
   ,    ,     0:
         (SAMPLE.MAC).
             
       ,     ,  
            (EOT),    
     .   SAMPLE.MAC   
     ,         
    .  EOT  ,    -
      :
  
         2:
  
           .LOOKUP #AREA,#0,#PTR,#-5
  
            ,    -
      5,     .
  
  
  
        8.2.1.  
  
  
  
          ,    
   .
  
  
  
  
  
  
  
  
 
                             - 151 -
  
  
  
  
        8.2.1.1.  .LOOKUP
  
  
  
             (   ), 
      .    -
       ,      -
     .
  
           ,     -
    .   .LOOKUP    
    " ",     .  
      .
  
  
  
        8.2.1.2.  .DELETE
  
  
  
         .DELETE       -
    .  .DELETE    -
            ,      
    .   ,  
   . ,     ,  
              .  
       ,    -
       .    -
   ,    .DELETE,   
   .
  
  
  
        8.2.1.3.  .ENTER
  
  
  
         .ENTER      -
    .         
          .   -
       ,      
     .     ,   -
      ,       
     .
  
  
        .         
     .ENTER,    ,
   ..       (   -
    ).    ,   -
      ,      -
   .           
    .
                  -
   .       .ENTER    
    0,         ,  
              -
   ,      .    -
    .ENTER    ,     
 
                             - 152 -
  
  
  
  
    .LOOKUP,         .
   ..           
    ,      -
         .
  
  
  
        8.2.1.4.  .CLOSE
  
  
  
         .CLOSE         
                
   .LOOKUP, .ENTER  .DELETE   .
  
          .CLOSE        ,
     .ENTER,       
           .   -
             
     .
  
  
  
        8.2.1.5.  .READ/.WRITE
  
  
  
         .READ   .WRITE    ,
         ,    -
    .    (    -
    .LOOKUP  .ENTER)   
    (64 ). ,   , -
      .
  
          .READ    -
      ,        
   '  .
  
               
     .READ  .WRITE:
  
        1)   (BLK)
  
              .  
     0,         .
       ;
  
        2)   (WCNT)
  
            ,      
   :
  
          -       ;  
                "  ",
                 ,     -
              .LOOKUP;    
               (     
              RADIX-50);    
             .LOOKUP ;   -
 
                             - 153 -
  
  
  
  
             .LOOKUP    
               ,     -
             ,     -
                   -
                ;
  
          -   (  "C").
  
  
        .       
    .LOOKUP    " -
   "     ,    
       .
  
  
  
        8.2.2.   
  
  
  
          ,       
    , A  T   .
       .SPFUN. -
     A    . -
     T     .
           -
    .LOOKUP,      
   .
  
          .SPFUN :
  
           .SPFUN AREA,CHAN,FUNC,BUF,WCNT,BLK,CRTN
  
    
  
   FUNC   -  ,  .
  
  
  
  
  
  
  
       8.2.2.1.      -
    ,   .    
       ,        
    .LOOKUP,      
    .     ,
         ,    
      .   -
   :
  
           .SPFUN #AREA,#0,#373,#0,#0,#0,#CRTN
                                       ; ;
                                       ; 0
  
    
  
   CRTN   -     ,      
 
                             - 154 -
  
  
  
  
              .
  
  
  
        8.2.2.2.  
  
  
  
              -
      LEOT (  -
    ).       ,      
    ,   ,    
    377.
  
           .SPFUN #AREA,#0,#377,#0,#0,#0[,#CRTN]
  
  
  
        8.2.2.3.  
  
  
  
                 
      .   :
  
           .SPFUN #AREA,#0,#376,#0,#0,#0[,#CRTN]
  
  
  
        8.2.2.4.  
  
  
  
               -
    .  :
  
           .SPFUN #AREA,#0,#375,#0,#0,#0[,#CRTN]
  
  
  
        8.2.2.5.  
  
  
  
               
    .  :
  
           .SPFUN #AREA,#0,#374,#0,#0,#0[,#CRTN]
  
  
  
        8.2.2.6.    
  
  
  
                 
   ,   ,    -
      .  :
  
 
                             - 155 -
  
  
  
  
           .SPFUN #AREA,#0,#372,#0,#0,#0[,#CRTN]
  
             :
  
           .SPFUN #AREA,#0,#372,#0,#0,#0
  
              -
     :
  
           .SPFUN #AREA,#0,#372,#0,#0,#0,#1
           .SPFUN #AREA,#0,#372,#0,#0,#0,#CRTN
  
  
  
        8.2.3.     
  
  
  
        T K  -       
   ,         
         .      
         -
   .         
     ,          
      .
  
               -
          ,   
          -
    E .     -
         "C"      
   (  52)         
    .
  
                -
    ,          .  
     ,    
       .   -
          -
        .
  
        :
  
           CTCS  = 177500  ;    
                           ; 
           CTEOF =   4000  ;  F   CTCS
           CTEOT =  20000  ;  EOT   CTCS
           .
           .
           .
           .READW #AREA,#CHNL,#BUFF,#400,BLKNUM  ; 
                          ;  
           BCS    EMTERR  ;  
           TST    @#CTCS  ;     CTCS ?
           BPL    NOERR   ;   
           BIT    #CTEOF,@#CTCS ; ,     ?
           BNE    EOF     ; !
           .
           .
 
                             - 156 -
  
  
  
  
           .
    EOF:                  ;     
           .
           .
           .
    ;  ,   EOF  EOT 
    ;  :
    ;
           BIT     #MTSEOF+MTSEO,@MTS   ; MT EOF  EOT ?
           BIT     #CTEOF+CTEO,@#CTEOT  ; CT EOF  EOT ?
  
  
  
        8.3.     (DX  
             DY)
  
  
  
         .SPFUN   ,  -
             
    .  DY    -
        .SPFUN    
    ( 256- ) ,     -
    .        
      128 .    
       2 .    -
        64 .    
           4  -
   .              
     .SPFUN  :
  
           .SPFUN AREA,CHAN,FUNC,BUF,WCNT,BLK,CRTN
  
    
  
   FUNC   -   .  :
  
               377 -   ;
               376 -   ;
               375 -    
                       ;
               374 - ;
               373 -    ()
                      256-   ( DY);
  
   BUF    -          377,   376,   375:   
            129-  (      
            )   65-    (  
                  ).    
             ()     0;  
               1,      
             ,      
            .      
                ;
  
          -    373:   , 
                   -
             (       
             494;    - 988);
 
                             - 157 -
  
  
  
  
   WCNT   -      (0-76),    
               (   377,  376,  375);
              373  -        
              1;
  
   BLK    -      (0-26),    
               (   377,  376,  375);
              373  -        
              0.
  
         ,        -
        .LOOKUP  -
    BUF, WCNT  BLK        
   .
  
        :
  
           .SPFUN #RDLIST,#377,#BUF,#0,#7,#0
                           ;   
                           ;   0  7 
                           ; 65-  
  
         DX  DY    , -
         .  ,  
    DX    ,    -
     : DX0, DX1, DX2, DX3.    
    DX0  DX1       0    1
             264  
          (CSR)  177170,  DX2    DX3
       0  1   .
                  
   /,       .    
       /  -
   .
  
  
  
        8.4.        
             (CR)
  
  
  
               
       (  SET CR: IMAGE).  
    -7 (SET CR: NOIMAGE)   -
          134  (
    ).   IMAGE ()  -
     ;        
   12- ,           
    .          ,
               
                 (
   12-11-0-1-6-7-8-9   ).      
       .      
   " "      ,    
    .      -
            "  ".
          ,  
         ,      
 
                             - 158 -
  
  
  
  
             .
            
     ,   ,   
        ""    -
       .    
     ,         
   .     ,   
       ,      
    "SET CR: HANG/NOHANG".
  
          CR    CRLF   TRIM
        IMAGE,   
    .
  
               -
    BLK     .READ*    ,
       .
  
          :
  
           .READ* AREA,CHAN,BUF,WCNT,BLK
  
         BLK=0,    ,   "-
    "    .    -
            
   .  BLK   ,     "  "
     ,      
         ,  ,     ,
     .
  
  
  
        8.5.        
             / (PC)
  
  
  
               ,
             ,
      .
  
         PC         
   .    , 
      .      
      ,   PC  
      .   -
      PC   EOF   
   52   "C"  PS.
  
  
  
        8.6.    (TT)
  
  
  
             
       TT.   :
  
        1)  (^) ,     -
 
                             - 159 -
  
  
  
  
   ;
  
        2) <CTRL/Z>       
     TT.  <CTRL/Z>       .
    <CTRL/Z>  ,      
     ,      ,  
    ;
  
        3) <CTRL/O>       -
     ;
  
        4)          <CTRL/C>
           
   .     FB-    
    ,       
   <CTRL/C>  .  SJ-    -
     <CTRL/C>   ;
  
        5)        -
    (  )       
   (   ).          ,  
    ,  ;
  
        6)     .    
           
   KMON.  <CTRL/Z>      ;
  
        7)    TT  ,  -
        .TTYIN,    
          .TTYIN,   ;
  
        8)          ,  
      .TTYOUT  .PRINT,    
        ,       
    .         ,  
          
   (..   ),     
       .
  
  
  
        8.7.     (DM)
  
  
  
              (DM)    
   ,       
    .   :
  
          1)    ;
  
          2)   .SPFUN      (
            )     ( );
  
          3)        
              .SPFUN;
  
          4)      .SPFUN;
          5)      .SPFUN,
 
                                 - 160 -
  
  
  
  
               .
  
  
  
        8.7.1.   
  
  
  
             DM    
          .    
        32  .    
          1      0  
   .      0  1 -
    .       
   1   DUP    .  
           -
     ,   DM     
   1      .
  
             (BSE)  -
      (HVRC)      -
   ,  DM          
      .     -
   ,    0-  5-   0  1  
     .        
   /,     -
                
    .
  
           /   ,
            
    .          
     .BAD.         
    ,    .
  
           ,  
       .BAD      
            /.
        
    ,         -
   .   ,   ()    
    .BAD  .   ,  
     ,         
   ,            
   .
  
          BSE  HVRC    DM -
      .      
   ,     BSE  HVRC,    
       ,      
         .    
       , ,  
     (BSE  HVRC),      
        .    
          
    .
  
              ,  
     BSE,       -
 
                             - 161 -
  
  
  
  
   .        
     .          
      ,      -
      BSE.
  
  
  
        8.7.2.  .SPFUN
  
  
  
         DM   .SPFUN  -
     :
  
                                 
            377          
                      ,   
                      
            376          
                      ,   
                      
            374          
                        ( 
                     )
            373          
                      256- 
  
          .SPFUN  ,    -
   :
  
          -    377  376    -
                    , 
              ;
  
          -       ,
              .SPFUN.   
                        
            .SPFUN,      
             .      
             :
  
                             
         100000          /  
         100200               (   BSE
         100001          ECC 
         100002                 
                        
         100004                 
                        
         100010                 
                        
         1774XX            
  
          -    374   BUF,  WCNT    BLK
               ;
  
          -      373  BUF    
            ,      
             256- .  WCNT   1,
 
                             - 162 -
  
  
  
  
              BLK    .
  
  
  
        8.8. - (NL)
  
  
  
        -                  
   /.       -
   .   NL:,       
   , ,   . NL-  -
        .   
   NL:    EOF   ,   
   .      -
   .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
                                                                                                                                                                                                                                                             