                         -2
                    
                      
                        589.7545471.00042-01 32 03

                                 229


                         

1.    
2.  
2.1.  
2.1.1.  .DRDEF
2.1.2.   
2.1.3.   
2.1.4.   
2.2.  
2.2.1.    0
2.2.2.    
2.2.3.  .DRBEG
2.2.4.  :  .DRVTB
2.2.5.   PS
2.3.   -
2.4.   
2.4.1.    
2.4.2.     
2.4.3.  .DRAST
2.4.4.       
2.5.   -
2.5.1.  .DRFIN
2.6.   
2.6.1.  .DREND
2.6.2.  
3.    
3.1.    
3.2. ,    
3.2.1.   
3.2.2.    ,   
3.2.3.     , 
 
3.3.  SET
3.3.1.    SET
3.3.2.   SET
3.3.3.  .DRSET
3.3.4.   
3.3.5.   SET
3.4.      
3.4.1.  ODT   
3.4.2.  ODT  
4.   
4.1.  -
4.2. -,   
4.2.1.   
4.2.2.    
4.2.3.   
4.3.     
   
4.4.     
4.4.1.  
4.4.2.  - 
4.4.3.  
4.4.4.   
4.5.    
4.5.1.  :  .PROTECT
4.5.2.   
4.5.3.  :  .DEVICE
4.5.4.   :  .INTEN
4.5.5.    .SYNCH
4.5.6.   FORK-:  .FORK
4.5.7.   .INTEN, .FORK  .SYNCH
4.5.8.    : RTS PC
4.6.     
5.  
5.1. -  -
5.1.1.  .TIMIO
5.1.2.  .CTIMIO
5.1.3.  - 
5.2.  
5.2.1.      
5.3.  
5.3.1.   .SPFUN
5.3.2.      
5.3.3.   
5.3.4.    
5.4.    XM-
5.4.1.       
5.4.2. XM-
5.4.3.    XM
5.4.4.     : $MPPHY
5.4.5. - :
 $GETBYT  $PUTBYT
5.4.6.  :  $PUTWRD
5.4.7. ,    
  
5.5.      XM
6.   
6.1.      
6.1.1.  
6.1.2.    
6.1.3. DUP    
6.2.  ,     
6.2.1.   
6.2.2.   
6.2.3.   
6.3.   
7.   
7.1.    (MT)
7.1.1.     
7.1.2.    
7.2.    (DX  DY)
7.3.    - (PC)
7.4.    (TT)
7.5.    (NL)
7.6.    (VM)
7.7.     (LD)
7.7.1.     
7.7.2.  LD
7.8.    (LD)
7.8.1.   LD
7.8.2.  ,   LD
7.8.3.   LD (/$)
8.   
     


		1.    
	     
      
,    
( ,   SET, 
- - ,  ,
    ,   
XM)     .   
    (  
     ).
	    :
	-   ;
	-     ;
	-    ;
	-     ;
	-   ;
	-  -  ;
	-   ;
	- ,    .

		2.  
	   -2   
 :
	- ;
	- ;
	-  -;
	-  ;
	-  -;
	-  .
	  -    ,
    .  
  -2  
       , 
  ,    
  .

	2.1.  
	      
,    .MCALL  
.DRDEF   .     
   .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 NAME,CODE,STAT,SIZE,CSR,VEC
 NAME -    (, MT 
	    );
    CODE -  ,   (.
	   .1);
    STAT -     (.
	   .2);
    SIZE -     ( 256 ); 
	     ,  SIZE=0;
     CSR -      ;
     VEC -      .
	 .DRDEF   .MCALL  
:
	.DRAST	.DRBEG	.DRFIN
	.DRBOT	.DREND	.DRSET
	.DRVTB	.FORK	.QELDF

	 ,      
   (TIM$IT=1),  .DRDEF 
 .MCALL   .TIMIO  .CTIMIO.

	2.1.1.1.   
	  -2   
  .    
     ,   
  . , -2 
  ERL$G   -   
    .   
   ,   
  ,   -2.
       
   ,  , 
   1,   ;
-2    0  1;  
   ,  0, TO .DRDEF 
 1.
	 .DRDEF     
TIM$IT ( - ), MMG$T ( 
 )  ERL$G (  ), 
       .

	2.1.1.2.   
	 .DRDEF   .QELDF  
   .  
   :
	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.ELGH=^o16	(  )

	      
   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.3.  
	     
.     
     . 
      -2.
	,     
  ( 12  -7):
	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.
     .1.

 	 		

 RK	0	     5400
	1	
 EL	2	   
 LP	3	- 
 TT,BA	4	  15-00-013    
	5	
 DY	6	     
 PC	7	   (FS 1501)   (-150)
	10	
 MT	11	    5300.01
	12-20	
 DP	21	   (29 )
 DX	22	   " -7012"
	23-24	
 NL	25	 
	26-33	
 DD	34	   
	35-40	
 LS	41	-   
 MQ	42	   
	43-45	
 LD	46	  
 VM	47	  
 DU	50	    - 
 SL	51	  


	    ,  
  -2,  
  377   
, 376 -    .. ,  
   ,    
.

	2.1.3.   
	     
   -2     ,
  :   
  .     
        $STAT,
  ;   .DSTATUS
     . 
.DRDEF      
 CODE  STAT.
	 .2      
.  .DRDEF   DDSTS 
   .

 2

 	                

 0-7	-	  
  8	VARSZ$	0 =  .SPFUN 373  
		 
		1 =   
		 .SPFUN 373 (  )
  9	ABTIO$	0 =        
		     
		1 =       
		     
 10	SPFUN$	0 =  .SPFUN 
		1 =    .SPFUN
 11	HNDLR$	0 =       ,
		       
		1 =       
		    .
		     SJ
 12	SPECL$	1 =   
		 (, MT)
 13	WONLY$	1 =    
 14	RONLY$	1 =    
 15	FILST$	0 =    (, LP)
		1 =    (, RK, DX)

 11      
 ,     
    ,   ,
******************************************************************
******************************************************************
komandoj dlq zameny na drugu` komandu w bloke 1 drajwera.
|to slowo ne dolvno bytx nulewym.
     wtoroe i tretxe slowa tablicy qwlq`tsq naimenowaniem
parametra w kodah RADIX-50 (, CR  WIDTH). 
      .
          
,   .   
   SET.   100
,    . 
 200 ,   NO  
 .  .1    SET.

------------------------------------------------------------
!            ,   R3,                   !
!                SET                        !
------------------------------------------------------------
!                                        !
!                        RADIX-50                          !
!                       ( )                        !
------------------------------------------------------------
!          !                    !
!      SET         !      SET        !
------------------------------------------------------------

                           .1

     3.3.3.  .DRSET
      .DRSET    
       
  ,     
 .    .DRSET
 .DRDEF    .DRBEG.
        .DRSET :
     .DRSET OPTION,VAL,RTN[,MODE]
 OPTION -   SET (, CR  WIDTH);
                  
             -     
               ;
       VAL - ,     R3 
             ;    
             , ,   
             ,   ,  
              ,     0
              1 ;     ;
       RTN -  ,     
             0  1 ;  
                   0, 
                776;
      MODE -      
             SET;    NO  ,
                 ; 
              NUM,    ,
             OCT -  ;  
             MODE ,  OPTION   
              NO,   ; 
             <NO,NUM> ,    
             NO,   ,    ;
              <NO,OCT> ,  
               NO,   , 
               ;   MODE 
                   
              .
       .DRSET   .ASECT 
    400,   . 
      . 
  .DRSET      ,
      
   ,   .DRSET  . 
,      0 .

     3.3.4.   
      
  SET.    NO 
  .    
    ,    SET,
   .
           
,       0  
   1000.    > , 
 ,     1 ,
   256- .
           .
    ,    
 ,   NO,   , 
  NO,       .
   ,   
 NO   ,     
+4.
            
 ,   R0, R1  R3   
 .    
  ,   R0  
,      SET; R1
       
(    ,   
); R3   VAL   SET.
       ,   ,
     .
,  -  SET WIDTH 
   30.   
 ,    
     0  1.   
       1.
           ,
    ,  ,
    :
     .IIF GT,<.1000>, .ERROR .-1000 ; SET  !
         .ASECT,  
     1000.  
    , 
  .DRBEG,    .

     3.3.5.   SET
          
-    
SET,  :
     SET LP WIDTH=80
     SET LP CR
     SET LP NOCR
         .DRSET  
    : WIDTH  CR.
   ,    WIDTH
- ,   30 - 
  ,  O.WIDTH -   ,
    ,   WIDTH - 
:
     .DRSET WIDTH,30.,O.WIDTH,NUM
       ,    CR
- ,  "NOP" 
  ,  O.CR -   ,
    ,     CR
    NO:
     .DRSET CR,NOP,O.CR,NO
          :
 .ASECT
 .=400
        .WORD 30. ;  WIDTH
        .RAD50 \WIDTH \ ; 
        .BYTE <O.WIDTH-400>/2
        .BYTE 100
        NOP ; 
        .RAD50 \CR \ ; 
        .BYTE <O.CR-400>/2
        .BYTE 200
        .WORD 0 ; 

          
   .
     :
O.WIDTH:MOV R0,COLCNT ; 
                                ; 
        MOV R0,RSTC+2 ;   
        CMP R0,R3 ;  
                                ;  
                                ;WIDTH, 30
        RTS PC ;, -
                                ;  

          
 WIDTH.    O.WIDTH 
     1 .
     :
O.CR: MOV (PC)+,R3 ;   "CR";
                          GO
	.
	.
	.
AGAIN:	MOV	RKCQE,R5	;  
	MOV	#CSIE!FNWRITE!CSGO,R3	; 
	MOV	#RKDA,R4	; 
	.			; 
	.
	.

5.	 ,     
	  . ,  
	- ,   , 
	        
	   .

	RTS PC	; 

	2.4.   
	    
,      ,
  -, 
.       ,
    ,    
  ,    
.
           
     
   .DRAST. (  
     
.)       DDINT.
      
,   . , 
      
 .

     2.4.1.    
       ,  
     
 -:
 -   /   
    ;
 -   .HRESET  
   ;
 -   4  10     ,
        
   ()  ?MON-F-.
      ,   , 
  ,    .  
      (
      ), 
   ,  
  .   FB  XM
      
,  HNDLR$ ( 11)   
 .  HNDLR$ , 
     : (1)
     -;
(2)      
.
      SJ   .   , 
  ,      SJ,
 SJ    .RESET.
       ,    ,  R4
     .
 R0-R3     . 
  ,  
   -.
- , , , PC:,
   .   
   , , ,
  -  () . 
  ,     
.  -  
   ; 
   -   
   . ,  PC 
  ,  
    -. 
       -.
     PC:

PCDONE: CLR @#PC$CSR ; 
                                ; 
                                ;
        CLR @#PP$CSR ; 
                                ; 
                                ;

      , , , , 
   -,  
  . , 
     
      
. ,  ,   
  , 
    .
 ,  RTS PC    
    
 .
          .FORK, 
  ,   , 
  .  
0  F.BADR ( .FORK,   2) 
FORK-.   
    
.FORK.

     2.4.2n     
       ,   
 7.  ,     
,     
    , 
       
  .  
 .INTEN,      ,
     .DRAST.

     2.4.3.  .DRAST
      .DRAST     
,      
  .   
   $INPTR,   
 $INTEN   .  
   ( 
)     .FETCH ( 
).

       .DRAST :
     .DRAST NAME,PRI[,ABO]

 NAME -   ;
      PRI -  , .. , 
               
             ;
      ABO -  ,  
                
            ;    ,
               RTS PC   
             ,  
            ,    .
     :
        .DRAST PP,4,PCDONE
        .GLOBL $INPTR ;  
                                ;
        BR PCDONE ; 
                                ;
                                ;
PPINT:: JSR R5,@$INPTR ;  
                                ;  .INTEN
       .WORD ^C<4*^O40>&^O340 ; 

          .DRAST   PC 
,   .

     :

        .DRAST RK,5
        .GLOBL $INPTR ;  
                                ;
        RTS PC ; 
                                ; 
                                ;
RKINT:: JSR R5,@$INPTR ;    
                                ;.INTEN
        .WORD ^C<5*^O40>&^O340; 

           RK,  
   .

     2.4.4.     
 
           
   ,  
    .  , 
 ,    ,   
  .
1.   
             , 
    ,      
   ,  ,   .
          ,  
       
   -.
          ,  
      .   
      . , 
   FORK-,      
    -   .
        
   (   0),   
       .  
         
   -.
          FORK-   
   .   .FORK  ,  
    ,    
   .  .FORK  ,  
     R0-R3,  
        .
     .FORK  ,   
      R4  R5.
2.     FORK-
         .FORK    
   ,    . ,
     .FORK,    , 
      ,  ,   
     ,   ,   
        . ,
     .FORK,   ,   
       ,  
    (   ,    
    -).  , 
         
   FORK-,     4  10 
       .

     :

        .FORK RKFBLK ; .FORK
        JSR R5,@$FKPTR ;   
                                ; .FORK
        .WORD RKFBLK-. ;  
                                ;FORK-
RKRETR: CLRB RETRY+1 ; 
        BR AGAIN ;  
                                ; -

              RK, 
       FORK-  
       
    . FORK-  
     ,     
    .     .FORK  
   .

3.     
          ,  
         .
         
    RTS PC    .
4.    
          ,    
      -.

     2.5.   -
       -   
,     ,  
  , , ,  
   .   
    , 
 - -    
 ,     
 - .     
 -    , 
  ,     
      .
     -,
   ,  
      
     . (
     ,  
      
 -.)
1.   
           ,  
       -:
    ,   
      ,   , 
         
          
    .    
        .
            
     ,  0    
   (CSW).     -,
   Q.CSW,    . 
       
   -   .   
       .DRFIN.
     :
        BIS #HDERR$,@-(R5) ; 
                                ; 
                                ;(R5   
                                ; ;
                                ; CSW 
                                ; )
        .DRFIN RK ;  
           RK. 
   ,    
         .
2.    
         - , , ,
   ,      
     .  .DRFIN   
    .
         - (
   -) , , ,
     -,  
   ,       
    ,    -.
    ,    ,
   :    
       /Z,  
    .   
     EOF   READ,  
      EOF,  
      ,    
    .     
    ,    EOF   ,  
     .  ,   
      EOF .
         PC     
      - 
     EOF.
     :
1$: CLRB @-(R4) ;  (R4 
                                ; )
        INC (R4)+ ;  
        DEC @R4 ; 
                                ; 
        BNE 1$ ;  
PCDONE: CLR @#PC$CSR ; 
; ; 
                                ;
        CLR @#PP$CSR ; 
                                ; 
                                ;
        CLR PCFBLK+2 ; FORK- 
 ; 
PCFIN: .DRFIN PC ;  
                                ;-
           ,   PC 
     ,    
   ,    EOF  
     .
              
       READ,   
     EOF.   , 
     EOF   , 
   13,     .  ,
     ,   ,  
     -   .
     :
        MOV #PC$CSR,R5 ; 
                                ; -,
                                ; CSR
        TST (R5)+ ; ?
        BPL PCGORD ;,  
        BIS #EOF$,@-(R4) ;  ,
 ; EOF
        BR PCFIN ;  

           ,   PC 
     ,    
     EOF,   EOF 
         .
         
   (EOF)   -
         ,
        -2  
   .

     2.5.1.  .DRFIN
      .DRFIN     
       
-.      
    - 
   .    
  ,    
.

       .DRFIN :
     .DRFIN NAME
 NAME -   .

     2.6.   
          '
      
    .  
  ,     .
  ,  ,   
   .FETCH   
LOAD.     
    .  
    .DREND.

     2.6.1.  .DREND
       .DREND :
     .DREND NAME
 NAME -   .

     2.6.2.  
       -2   
    (,  
      ),
     
 -   ,   
   .   
    NL ( 
)  MQ (   ).
           
   -.   
  .DRFIN     
 .     
,      
   .DRAST.

            3.    
     3.1.    
       ,     
   SK.
     :
 .TITLE SK V05.01
 ;  SK
 .IDENT /V05.01/
 .SBTTL  
 .MCALL .DRDEF
 .DRDEF SK,377,WONLY$,0,177514,200
 SKBR =SK$CSR+2 ;  SK
 SKIE =100 ; 
                                ;
 .SBTTL  
        .DRBEG SK
 .SBTTL   -
        MOV SKCQE,R4 ;R4  
                                ; 
        ASL Q$WCNT(R4) ;   
                                ; 
        BEQ SKDONE ;  
                                ;
        BCC SKERR ;   -
                                ;  
RET: BIS #SKIE,@#SK$CSR ; 
        RTS PC ; 
 .SBTTL   
 .DRAST SK,4,SKDONE
        MOV SKCQE,R4 ;R4  
                                ; 
        BIT #100200,@#SK$CSR;  ?
        BMI RET ;, 
                                ;
        BEQ RET ;T - 
                                ;
        BIC #SKIE,@#SK$CSR ; 
        .FORK SKFBLK ;,   
                                ;FORK-
        ADD #Q$WCNT,R4 ; 
                                ; 
SKNEXT: TSTB @#SK$CSR ;  
                                ;?
        BPL RET ; -  
        TST @R4 ;  ?
        BEQ SKDONE ; -  
        MOVB @-(R4),R5 ; 
        INC (R4)+ ;  
        INC @R4 ;  
        BIC #^C<177>,R5 ;7- ASCII
        MOVB R5,@#SKBR ;  
                                ;
        BR SKNEXT ;    
                                ;
 .SBTTL   -
SKERR: BIS #HDERR$,@-(R4) ;  
                                ; CSW
SKDONE: BIC #IE,@#SK$CSR ; 
        .DRFIN SK ;  
SKFBLK: .WORD 0,0,0,0 ; FORK-
 .SBTTL   
        .DREND SK
 .END

     3.2. ,    
           
   ,   
-,    
- -.  
    
, ..      
   .  
   ,     
.    ,   
   ,  
  .
          
-2,    MQ  
 .     
 ,      ,
 MQ .    
  ,   MQ 
.       
  -,     
, ,   .
     ,     
   .  
-   ,    
    -.  
  ,     
   DDCQE  DDLQE  ""  
 -. ,     
 -    .

     3.2.1.   
          ,  
      .
      .
          ,
, ,  ,  
.     .DRFIN  
       
 .  ,  
,       
.
         ,  
 ,      
     .
   0,       
  .
      ,     
,         
 .     
  ,   , 
     RTS PC.   
     ,   
    RTS PC.

     3.2.2.    , 
 

       ,    
  DDINT:.    ,
 ,  ,    
.   ,   
    .   ,
   ,   
,    - -
  DDCQE  DDLQE.   
      
-,       ( 
   ),   
     .
           , 
   .DRFIN.

     :
        MOV DDCQE,-(SP) ; ,   
                                ;- 
                                ;,  
                                ;
        MOV R4,DDCQE ;  
        MOV R4,DDLQE ;  
                                ;-
        CLR Q$LINK(R4)
        MOV PC,R4 ;  
        ADD #DDCQE-.,R4 ;.DRFIN
        MOV @#54,R5 ;
        JSR PC,@270(R5) ; JSR
        MOV @SP,DDCQE ; 
        MOV (SP)+,DDLQE ;  
        .
        .
        .
(       ,
 )
        .
        .
        RTS PC ;

        ,   
 . (R4   
,   .)

     3.2.3.    
,   
       ,     
   , -2  
  -   .
    -  
 .   
,    -
   .  
,     
- -.
          
-,     
   -.  
 ,    , 
  ,   , 
     ,  
 11, HNDLR$,     DDSTS, 
   .DRDEF.   FB  XM 
  ,      
 ,    
-  . ( SJ  
,        
.)
       
,       
,    .
(R4     
.)       
,      
    
-.  R0-R3     
DDCQE   ,  :
 -      
   ;
 -      
    (ELW),     
    ;  DDLQE   
       ;
 -  DDCQE   , 
     , -
   ,    .DRFIN; 
   -  ,   RTS
   PC,  ,   .DRFIN;
    DDCQE    , 
    ,    RTS
     PC.
      DDCQE   ,  :
 -    , 
     ,   ,  
     RTS PC;
 -   ,   ,
    DDCQE     , 
   DDLQE -    (E  
      );
 -   .DRFIN.

     3.3.  SET
        SET  
   . 
       
DD&.SYS (DDX.SYS  XM ),  DD - 
 .

     :

     SET LP WIDTH=80
         
    LP: (  - 132
).
        SET    
.

     :
        SET LP CR (  ;
                           -  )
        SET LP NOCR (   )

        ,     NO
  CR ( NO   
).
          
  .  , 
  SET  .   
   ,    
 . ( SET    
,    .)

     3.3.1.    SET
      SET      
   0     
,    0,    
   0  1 . ( 0   
 0  776,      1,  
1000  .)
        SET   , 
       
  DD.SYS (DDX.SYS  XM ). 
  ,      
 .     0  1
    USR  .  
   0,      
  SET.     
  ,  
    ,  
,   NO   . 
  ,   ,
    0  1 .    1
       
      SET. 
 ,    0  1  
 . ,    SET,
      . 
  ,   ,
.

     3.3.2.   SET
        SET   
   .  
  400  0     .
     .DRSET (.
.3.5.3).
         ,  
  R3   SET,   ,
    .   
   - ,    
  -  - 
        1 .
     .
           
   RADIX-50 (, CR  WIDTH). 
      .
          
,   .   
   SET.   100
,    . 
 200 ,   NO  
 .  .1    SET.

------------------------------------------------------------
!            ,   R3,                   !
!                SET                        !
------------------------------------------------------------
!                                        !
!                        RADIX-50                          !
!                       ( )                        !
------------------------------------------------------------
!          !                    !
!      SET         !      SET        !
------------------------------------------------------------

                           .1

     3.3.3.  .DRSET
      .DRSET    
       
  ,     
 .    .DRSET
 .DRDEF    .DRBEG.
        .DRSET :
     .DRSET OPTION,VAL,RTN[,MODE]
 OPTION -   SET (, CR  WIDTH);
                  
             -     
               ;
       VAL - ,     R3 
             ;    
             , ,   
             ,   ,  
              ,     0
              1 ;     ;
       RTN -  ,     
             0  1 ;  
                   0, 
                776;
      MODE -      
             SET;    NO  ,
                 ; 
              NUM,    ,
             OCT -  ;  
             MODE ,  OPTION   
              NO,   ; 
             <NO,NUM> ,    
             NO,   ,    ;
              <NO,OCT> ,  
               NO,   , 
               ;   MODE 
                   
              .
       .DRSET   .ASECT 
    400,   . 
      . 
  .DRSET      ,
      
   ,   .DRSET  . 
,      0 .

     3.3.4.   
      
  SET.    NO 
  .    
    ,    SET,
   .
           
,       0  
   1000.     , 
 ,     1 ,
   256- .
           .
    ,    
 ,   NO,   , 
  NO,       .
   ,   
 NO   ,     
+4.
            
 ,   R0, R1  R3   
 .    
  ,   R0  
,      SET; R1
       
(    ,   
); R3   VAL   SET.
       ,   ,
     .
,  -  SET WIDTH 
   30.   
 ,    
     0  1.   
       1.
           ,
    ,  ,
    :
     .IIF GT,<.1000>, .ERROR .-1000 ; SET  !
         .ASECT,  
     1000.  
    , 
  .DRBEG,    .

     3.3.5.   SET
          
-    
SET,  :
     SET LP WIDTH=80
     SET LP CR
     SET LP NOCR
         .DRSET  
    : WIDTH  CR.
   ,    WIDTH
- ,   30 - 
  ,  O.WIDTH -   ,
    ,   WIDTH - 
:
     .DRSET WIDTH,30.,O.WIDTH,NUM
       ,    CR
- ,  "NOP" 
  ,  O.CR -   ,
    ,     CR
    NO:
     .DRSET CR,NOP,O.CR,NO
          :
 .ASECT
 .=400
        .WORD 30. ;  WIDTH
        .RAD50 \WIDTH \ ; 
        .BYTE <O.WIDTH-400>/2
        .BYTE 100
        NOP ; 
        .RAD50 \CR \ ; 
        .BYTE <O.CR-400>/2
        .BYTE 200
        .WORD 0 ; 

          
   .
     :
O.WIDTH:MOV R0,COLCNT ; 
                                ; 
        MOV R0,RSTC+2 ;   
        CMP R0,R3 ;  
                                ;  
                                ;WIDTH, 30
        RTS PC ;, -
                                ;  

          
 WIDTH.    O.WIDTH 
     1 .
     :
O.CR: MOV (PC)+,R3 ;   "CR";
                                ;  
                                ;  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.       ,
      1;
2.  NOP   CROPT,   
   "NOCR";
3.  BEQ RSTC-CROPT+.   CROPT, 
    "CR";
4.       
   SET  R4  R5   .
       BEQ ,   
   ,   ,  
  .     
     
 :
        BR A-B+.
  A -    ;
      -   ;
     . -    .

         , 
 NO,    .
     , ,     
,   
.       
 1 ,   256- .

     :
COLCNT: .WORD COLSIZ ; 
        . ; 
        . ;
CHRTST: CMPB R5,#HT ;  ?
        BEQ TABSET ;,  
        CMPB R5,#LF ;  ?
        BEQ RSTC ;,  
                                ;
        CMPB R5,#CR ;  ?
CROPT: NOP ;"NOP",  ;
                                ; "BEQ RSTC-CROPT+."
                                ; 
                                ;SET   0 (
                                ; "CR")
        CMPB R5,#FF ;  ?
        BNE IGNORE ;,   
RSTC: MOV #COLSIZ,COLCNT ; 
                                ;

        ,     0
       1 .

     3.4.      
          ,
     (), 
  .     
  ,      
       
 DD(X).SYS.
           .
1.  ODT      
      (. ..3.4.1  3.4.2).
2.     ,
          
   . ,  COPY (. [2]) 
          
       PIP (. [7]). 
       BASIC INPUT  PRINT.
      FORTRAN READ  WRITE.  
        ,
    ,    
     -2  , DUP
       ,  
   . ..,   DUP 
     (  /Z) 
   '   (  /S).
    RESORC     
          SHOW
   DEVICES.
3.      
   ,    
   -,  -  
   .
          , 
     -2.

     3.4.1.  ODT   
        ODT    -
  ODT   .  
 SJ,       FB  
.      
.
          
,      
 .
       ,   ODT  
 :
     LINK/MAP/FOREGROUND ODT
         , 
 :
     LOAD DD[X]
         SHOW D. 
,    , ,
131634.  6 ()    
:
131634
-       6
------
131626

      ODT   :
     FRUN ODT
     ODT V01.04
     *
     T    0 , 
    SHOW D:
     131626;0R
            
   .   
 ;    
 .      
   :

     0,12;0B

            
,      .
      .
     
 (    DDINT:).
            ODT:
     0;G
         . ,
 DUP     PIP 
   .  
-,     .
     , ODT
 . ODT    
       .
 ODT    7;   
      .
        ,  
        
  :
     ;B
     ;P
         (ODT), 
     .

     3.4.2.  ODT  
          ODT  .
       ,  
   ,     . 
       , ODT
     1 (  20000 
37776).     ODT -  
  (. .3.4.1).
         ODT  -
  .
         . 
 ODT      
 (BPT)   14  16  . 
     
  ,  14  15, PS   16.
   .  11 
  , 00 -   .
     -2,   PIP 
DUP,      , 
    11.
           0;G
   ODT.   ODT  
.EXIT,    BPT.   
 ODT    
    DEPOSIT 
:
D 14=(   14),( 
 16)
     ,       
,       
  .

           4.   
        ,   
      
 .  
 -  ,  
     
 -    
     
 .     
      
,     .  
 ,    
,  .    -
     XM-.

     4.1.  -
           
   
-.      
  ,    
    . 
     
 ,   
  , ,   
     ,   ,
 .  -  
      
 ,   
-.  ,     
 -.
       -    
   . , 
   -  
   : ?MON-F-SYSTEM-HALT.  
  RESET    
 -.       
 ,     
    . ,   , 
   ,     
    ,   
    . 
 .PRINT        
.   , 
-       
.
         
 -    
,      ,
      .

     :

;
;R1   .
;TTPS -   ,    
; ;    -
;        (.7).
;TTPB -   ,    .
;      -
;   
;
5$: TSTB @TTPS ;, TT - -
                                ;?
        BPL 5$ ; ,  
        MOVB (R1)+,@TTPB ; ,  
        BNE 5$ ; ,  -
                                ; 


         RMON  
-.
           
 (    ,   
  ), DX,   
 -.    
        
   .   
  ,   
     .  
    - 
      . 
      
,    .

     :

;
;R4     ;
;R5   ;
;R2     .
;
TRBYT: TSTB @TTPS ;  
        BPL TRBYT ;,   
                                ;
EFBUF: MOVB @R5,(R2)+ ; 
        DEC @SP ;   -
                                ;
        BGT TRBYT ; 

     4.2. -,   
       -   
, ,    
-   .  
      -, 
 .   , 
  .   
,       ,
     (
,    , , 
   ).  
      
 ,    
.

     4.2.1.   
      -   
 -      , 
 -.   
   ,    
     .
     (PS), 
   ,    (PC),
   .
          PS  PC 
     ,
  .    
      ,
 (PS),    
.    
,    RTI, 
  PC  PS  ,  
   .

     4.2.2.    
          
  . .2  
 -2.

    

7 -----------------  
6 ----------------- 
5 -----------------  
4 ----------------- 


      ------------ FORK ---------- FORK-
      !
      !
      ! ----  
      ! ! 
      ------------- FG -----------!
      !                           !    
      !                           ---- 
      !
      !                           ----  
      !                           !    
      ------------- BG -----------!
      !                           !    
      !                           ---- 
      !
      !
 0-------   --------   

                         .2


          
,        
    . 
, ,   6, ,, 5, 
  -  - 4. 
    , , 
     
  -.   
   .   
   ( ) 
  ,   
.
       ()     
  ,  0  7. ( "
60":   0,   7.)      7,
      .  
    ,  
       .
    
  ,   
.   -2  
 ,     PS
.     .MTPS 
.MFPS   .INTEN  .FORK.
         
     
      
 ,   .  
  , ..   
       .
     ,
      
.

     4.2.3.   
        (PS)   
 -. (   "
60",  PS     -.
   PS,   MTPS  MFPS.) 
     . 
    ,  
  ,  ,
     ,
    
(   ).
     .3   PS.   5  7
  . ( " 60" -
  7  : 0  7.) 
 ,    . 
   7, ,  
   .  
  ,   
    ,  
      
 . (  
.) ,     
 PS,     -2, , 
 .INTEN  .FORK,    .

15   14 13   12  11 10     8 7     5  4   3   2   1   0
---------------------------------------------------------
!      !       !   !        !       ! T ! N ! Z ! V ! C !
---------------------------------------------------------
   !       !     !              !     !  \______  ______/
   !       !     !              !     !         \/
   !       !     !              !     !          !
   !       !     !              !     !          !
   !       !     !              !     !          -> 
   !       !     !              !     !            
   !       !     !              !     !
   !       !     !              !     ---------> T-
   !       !     !              !
   !       !     !              --------------> 
   !       !     !                                      *
   !       !     ----------------->   SET
   !       !                                              *
   !       ------------------------->  
   !                                                      *
   ---------------------------------------->  


 * -    XM

                          .3.

     4.3.     
   
     ..   -2  
 (),    ()
-,      
,     , 
 ,   
    .   
 ,    ,  
     -, 
  .    -2 
      
       
     ,   
  -  (. .2).
      
 .
          
,      ,
       
   ,   
     
, ..     
   .
        ,  
     ,   
.     
  .READ  .WRITE,  ,  
   ,   
 ,   .  
SJ      FB   
,     
    -. (..  
   ,     .)
      FB  XM 
 ,    LOAD) 
 ,     .
         
     , , 
- .   
    , ,
 ,     
.      
.
       E  
     
 . ..    
 ,   
     , 
 .     
   ,  
    , 
  - .
         
       .
(       ,  
 ,  .)   
  .   
     
     , 
   .
         
     
,       
    .  
      
-2.      
   ,    ,
    , 
 .   ,
     
-2 ,   .  , 
     
   . ( , 
       
 -2     
.) ,   
     
 .
         . 
    -,
        ,
 -2    
 ;    
       
   .  ,  
      
  . ,   
      
 XM.
     .4    
    .

------------------------------------------------------------
!                                                          !
!                               ----------------------     !
!                               !  !     !
!                               !          !     !
!                               !           !     !
!                               !- - - - - - - - - - !     !
!  --------------               !          !     !
!  !  !---------------!        !     !
!  --------------               !           !     !
!                               !          !     !
!                               !- - - - - - - - - - !     !
!                               !                    !     !
!                               ----------------------     !
!                                                          !
!                 !
!                                                          !
!-----------------------------------------------------------
!                              ---------      ------------ !
!                              !       !   ---!! !
!                              !       !   !  ! ! !
!                              !       !   !  ------------ !
!                              !       !   !               !
!                              !       !   !  ------------ !
!              --------------  !       !   !--!.! !
!              !            !  !       !   !  ! ! !
!              !     !  !       !   !  ------------ !
!              !  !  !       !   !               !
!------------  !            !  !       !   !  -----------  !
!!          !  --------------  ! - !   !--!  !  !
!!!--!            !--!!---!  -----------  !
!!          !  !!  !!   !               !
!------------  !   !  !       !   !  -----------  !
!              !  !  !       !   !--!   !  !
!              !            !  !       !   !  -----------  !
!              !            !  !       !   !               !
!              --------------  !       !   !  -----------  !
!                              !       !   !--!!  !
!                              !       !   !  -----------  !
!                              !       !   !               !
!                              !       !   !  ------------ !
!                              !       !   !--!! !
!                              !       !      ! ! !
!                              ---------      -----------  !
!                                                          !
!                                         !
!                                                          !
------------------------------------------------------------

                        .4.

     4.4.     
          
    .  
.
     1.  .
     2.     .
     3.     .
     4.    .
     5.  - .
     6.  .
     7.    .

     4.4.1.  
           
   . 
    .   
  (    ), 
   ,  
    -2.   
.
      ,   ,   
      . 
      
,     
     .
   ,   
  .   
     : 
    ,  
    .  
   ,  ,   
  .
 1.     ?
     ,    ,
          
    ,   -2,  
      ,  
     ,   . 
     ,  ,  
     ,     
    .   -2    
      500,      
    .  .2   
     .
 2.    ?
     ,      
        .
 3.    ?
 4.      
      (- 
    -).
 5.     ?
     ,     
        .
 6.     ?
     ,    ,
       . 
        , ,
      .
 7.    ?
         , 
      ,   . 
         ,
    ,     .  
    ,    ,  
    ,       
    .
 8.       ?
    , ,    , 
     ,   
    -  : ,  
    . , ,   , 
       , 
          .
 9.      
     ?
        
      .    -   ,
        ()  
      .
10.   ,  ?
      - ,  , 
     ,   ,  
    , ,    
    , ,  ,  ,  
     . (   
       ,  
       . 
     ,     ,
     ,     ,
         
     .)
11.   ?
          
      .     
        .  , 
       , ,  
    ,   ,  .
12.       ?
        . 
       ,   
    .      
      . (  
        .)
13.     ?
         
       ,  - 
          
          
    . , ,    
         
    .
14.      ?
      ,   
    ,     
    ,    ,   
     .   :
      ,   ,
     .  ,  
          
       .
15.       ?
     ,    
    .   
    ,     
        
     , ..     
     .     
     .

     4.4.2.  - 
        -  
    .  -
      . 
, -      
 . (   - , 
      
   ;  ,
  ,     .
      , 
   , 
  .)
         
  :    ,  
,      
.
          
     ; 
    ,   
    .

     4.4.3.  
           
.     , 
      .
  ,   ,
,   .

     4.4.4.   
         
 -   .  
 ,     
  ,      
   .  
,     ODT ( VDT) 
     . 
 ,    
 ,  .

     4.5.    
           
  .  
    ,     .

     4.5.1.  :  .PROTECT
       FB  XM,    
,     .PROTECT
       
.  ,     
     , 
     
       
      (.3 
    .) 
      
 .PROTECT.      
,   .  
 .PROTECT    4.6. .  [1]
   .PROTECT.
       ,   .PROTECT   
 SJ,     .
   ,   
,       
,       FB.

     4.5.2.   
          
      
 .  -2 ,  
     7, 
      
 7-,  .
     :

        XXVEC=220 ; 
        PR7=340 ; 7  340
;
;     
; ISREP:
;
        .PROTECT #AREA,#XXVEC ; 
        BCS NOVEC ; 
        MOV #ISREP,@#XXVEC ;  
        MOV #PR7,@#XXVEC ;  

           
  .   
 ,   .  XX - 
  220  222 -   .

     4.5.3.  :  .DEVICE
       .DEVICE  
   XB  XM.   - 
 (    
),    
  /C    . (
  .DEVICE .  [1],   
4.6 -    .DEVICE.)
          SJ. ,
     .
     
  ,    
 ,  A    
FB.
          SJ,  
  -,    
 .   FB,  
,    ,  
   ,    
      ,   
 .    
  /C       .HRESET,
 SJ     
-   .   
  ,  , 
  ,    
.

     4.5.4.   :  .INTEN
       ,  
  ,    
   .    
  7,     .
    ,  
  .        
   .  
   ,    
       
.INTEN.      7  ,
      (, 
    ).  
   50    7.
          
  .  ,    
     
   .  
    .INTEN. 
    R0-R5    
,       
.INTEN,     
 .INTEN.    
   -  (PIC), 
  :
 .INTEN PRIO
      .INTEN    :

        JSR R5,@54
        .WORD ^C<PRIO*40>&340


         
-  (PIC),  
.INTEN   , PIC. (   
  ,  ,   .)

 .INTEN PRIO,PIC
          --
 :

        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,
    .
          
    . 
     ,
      .

     4.5.5.    .SYNCH
      .SYNCH    FB  XM.   -
,    , 
    
. (  SJ  .)

            
  ,   
 .SYNCH.  .INTEN   
 ,    .SYNCH 
    .  .SYNCH
    .  
     
,  USR,    .SYNCH.
   .SYNCH  .FORK. 
  .SYNCH, R0-R3, SP   
 ,      .INTEN.
      .5   SYNCH-,  
   .   7-
SYNCH-     
 . , , E 
 .SYNCH      
   0.  
     
.SYNCH       ,
      .SYNCH.
SYNCH-    , 
Q.COMP  0.   SYNCH-  
  .SYNCH.    
   (,    .SYNCH),
,  - .

                                                   5
------------------------------------------------------------
!  !       !       !          !
------------------------------------------------------------
!    0     !  Q.LINK  !      --       !     !
!    2     !  Q.CSW   !   !        !
!    4     !  Q.BLKN  !      --       !     !
!    6     !  Q.FUNK  !      --       !     !
!    10    !  Q.BUFF  !   !  R0 -   !
!          !          !               !            !
!    12    !  Q.WCNT  !        !  -1                !
!    14    !  Q.COMP  !   !  0  -  !
!          !          !               !  ;     !
!          !          !               !      !
!          !          !               !     !
!          !          !               !               !
------------------------------------------------------------

     ,       .SYNCH
 .     
,      
  .  
     
  .    
,   ,   .SYNCH, 
.
         .SYNCH R0  R1  
, ..     
.    R2-R5, 
 .SYNCH  . R4  R5  
 . ,    , 
      .SYNCH. 
 Q.BUFF  SYNCH-    
R0  .
      .SYNCH     .
   .SYNCH -    , 
  .SYNCH -    .
       SJ ,    .SYNCH
(  ),  
(..     ).  
  FB  XM.  SJ      FB
 XM,     .

     4.5.6.   FORK-:  .FORK
     M  .FORK  ,  
 .    .FORK,
FORK-   FORK-,  
FIFO ( ,  ). FORK- (
,    .FORK)   
   0    , 
    . 
     FORK-.
     R4  R5     .FORK.  ,
R0-R3     .FORK. 
.SYNCH,  .FORK ,  R0-R3  SP 
     .INTEN 
  .FORK   
.INTEN.
       4-   
 FORK-,     R4, R5 
  PC.   -  , 
  0,    .FORK. ..
 .FORK   , 
,       
  .FORK    
 (,   ).
        FORK-, 
  .FORK. ,  FORK-
 ,  ,   ,
. .6   FORK-.

                                                   6
------------------------------------------------------------
!  !       !       !          !
------------------------------------------------------------
!    0     !  F.BLNK  !        !          !
!    2     !  F.BADR  !        !   !
!          !          !               !  .FORK             !
!    4     !  F.BR5   !        !     !
!          !          !               !  R5                !
!    6     !  F.BR4   !        !     !
!          !          !               !  R4                !
------------------------------------------------------------

       .FORK    .
      ,
   ,  $FKPTR.
      
:

        MOV @#54,R4
        ADD 402(R4),R4
        MOV R4,$FKPTR
        .
        .
        .
$FKPTR: .WORD 0
XXFBLK: .WORD 0,0,0,0

          
    .FORK:
     .FORK XXFBLK
       .FORK  
:

        JSR R5,@$FKPTR
        .WORD XXFBLK-.

       SJ  .FORK  ,  
      .
      
R0-R3     .
      FORK-. 
     
    .INTEN.  
.INTEN    R4  R5.
      .FORK     
 , T.K.    
,      ,  
    .
           
 ,   .
 .SYNCH    ,  SJ
  .SYNCH     0, 
      . 
FB       
.SYNCH   ,   
.   -   
   ,    
.
      .FORK  .   
 0,      
,      
 .

     4.5.7.   .INTEN, .FORK  .SYNCH
     .7    .INTEN, .FORK 
.SYNCH. .5     
.

                                                    7
------------------------------------------------------------
!        !           !         ! ,     ! ,   !
! - !      !    !   ! - !
!   !  !     !  !   !
!        !           !         !    !     !
------------------------------------------------------------
! .INTEN ! ! - !   R4, R5      !        !
!        !           !      !               !           !
! .FORK  !     0     ! - !   R0 - R5     !   R4, R5  !
!        !           !      !               !           !
! .SYNCH !     0     ! - !   R0, R1      !     R0    !
!        !           !   !               !           !
------------------------------------------------------------

        R0       R1      R2      R3     R4     R5
----------    ----------------------------------------------
        !
        !     I-----------   ---------I
        V       !        !       !       !      !      !
  ----!--------!-------!-------!------!------!---
        !       !        !       !       !      !      !
        !       V        V       V       V      V      V
        !     I---------- /, --------I
        !                         !      !
        V       !        !       !       !      V      V
     .INTEN ----!--------!-------!-------!------------------
        !       !        !       !       !  I--  --I
        !       !        !       !       !        
        !       V        V       V       V    
        !     I-- /--I    !  ----!----
        !       !        !       !       !      !  !   !  !!
        !       !        !       !       !      !<-!   !<-!!
        V       V        V       V       V      !      !   !
     .FORK  ------------------------------------!------!-- !
        !                                       !      !   !
        !                                       V      V   !
        !     I-------------    --------------I !
        !       !        !         !      !   !
        !       !        !       !       !      !      !   !
        !       !        !       !       !      !      !   !
        V       V        V       V       V      V      V   !
     .SYNCH ---------------------------------------------- !
        !   /\                                             !
        !   ! I------I I--/--I!
        !   !   !        !       !       !      !      !   !
        !   !   !        !       !       !      !      !   !
        V   !   V        V       V       V      V      V   !
            !                                              !
                                           
                                             
       -                                   -
                                                 

                          .5

     4.5.8.    : RTS PC
      .INTEN    
   .   
,      
 RTS PC,     
,   R4, R5   
RTI.
          
  RTS PC .FORK  .SYNCH.   
 ,    ,    
 .
     4.6.    

      ,  ,  
,    
 .    
    .  
   ,  
  .    ,
    
,      
  ,     . 
      
     ,  
  . ..    
  2-,       ,
   .
       XX -   .
     :
**   **

        XXVEC=VVV ; 
        PR7=340 ; 7
        DEVPRI=5 ; 
                                ; 5
                                ;(0-7,   000-340)
        XXCSR=NNNNN ; 
                                ;
        IENABLE=100 ; 
                                ;
START: .PROTECT #LIST,#XXVEC ; 
        BCS ERROR ;  .PROTECT
        MOV #ISREP,@#XXVEC ;  
                                ;
        MOV #PR7,@#XXVEC+2 ;  
                                ;
        .DEVICE #LIST,#DEVLST ;  
                                ;  
                                ;
;
;      
;;
;    
;
SPND: BIS #IENABL,@#XXCSR ; 
        .SPND ; 
                                ; 
;
;   ;
;  
;
        BR SPND ;  
DEVLST: .WORD XXCSR ;  .DEVICE
        .WORD 0
        .WORD 0
LIST: .BLKW 3 ;  EMT
ERROR: . ;  
                                ;
        .
        .
              **    **

ISPEP: . ;  ;
        . ;  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


              5.  

     5.1. -  -
       , - ,
    , 
 ,      
 .  ,   
      
  .SYNCH    
.
       -   
 . -   
-   -2. 
   ,  
- .   ,  
   ,    
  .
       -    -2
  : .TIMIO  .CTIMIO.  
  .    
   TIM$IT  1,   .DRDEF 
 .MCALL   .TIMIO  .CTIMIO.

     5.1.1.  .TIMIO
      .TIMIO    
-    -.  
     ,  
.      
,      .FORK.
      .TIMIO   
     .
     ,
   .  XM- 
    ,  
     . 
, RO  R1    .
   , RO 
   -.
          .TIMIO  .CTIMIO
   FORK- ( 
),     
  .FORK,    
     .
    ,  
       
,       
.
       .TIMIO :
     .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 ! . !   .     !
!          !       !          !   -!
!          !       !          !    177000  !
!          !       !          !  177377                  !
!    12    ! C.SYS !   ! -1                         !
!    14    !C.COMP ! . !   -!
!          !       !          ! ,   -  !
!          !       !          ! ,       !
!          !       !          ! -.   !
!          !       !          !  ,    !
!          !       !          !  ,   !
!          !       !          ! ,   !
!          !       !          !     - !
!          !       !          !        !
------------------------------------------------------------

       .TIMIO     
   ,    
 .     .
 50  .
           65535 .
   1310 . 
 21,8 ..    
  21,8   ,   HI 
 0,   LO   .TIMIO  
 .
         
,  21,8 .,     
    .  ,
 21,8 .,   1  
. ,   ,  ,
 21,8 .,   1   HI  0
  LO.   43,6 .   HI
 2, 0 -   LO  ..  
     65565 , 
  21,8 .,    ,  
,  2,7 .
       , 
    ,  
,     
.      
 , ,    . 
  ,   177000,  
     ,
177377.      
 ,   . 
     
  .
         .TIMIO:
        .TIMIO TBK,HI,LO
        JSR R5,@$TIMIT ;  
        .WORD TBK-.
        .WORD 0 ;  .TIMIO
        .WORD HI ;  
                                ;
        .WORD LO ;  
                                ;

     5.1.2.  .CTIMIO
       ,   ,
    -, 
  .  .CTIMIO
      -.
     , 
 .  .CTIMINMYV2^X7.O   
,     .FORK.
     ,  - 
    .  
  -,  
-    .
      
 .   ,
-  ,  
 ,   .TIMIO
        RTS
PC    .   
 ,     
 .      
,     
  ,   
       RTS PC  
 (  - 
. .5.1.3.3).
       ,     
 ,    .CTIMIO  
 .
        ,    
  ,    . ..
  ,     
  .   
,    ,  
 .
         -   ,
    -,   .CTIMIO
 .       
,  .CTIMIO    
.     .
       .CTIMIO :
     .CTIMIO TBK
 TBK -    ; , 
            .CTIMIO,    ,  
    .TIMIO.
  .CTIMIO   :

        .CTIMIO
        JSR R5,@$TIMIT ;  
        .WORD TBK-.
        .WORD 1 ;  .CTIMIO

          
      ,
       
.      
 ,    .

     5.1.3.  - 
      -    
-2    .    
  .

     5.1.3.1.  
         -2
 -    
 .     
 ,   
      .TIMIO.

     5.1.3.2.      
           
   .   
     ,
   .   
    , , 
,      .
       -  ,
  .TIMIO.    ,
 :  ,  
.       RTS PC
   .   
   ,    
     
 . ,    
FORK-    , 
    .DRFIN   
 .
           
,    
.      
.      
   ,    
.     
,      ,   
.     
       
    .
         
      
 :

        MOV @SP,-(SP) ;   
        CLR 2(SP) ; 
                                ;PS=0
        .MTPS #340 ;   7
        .INTEN 0,PIC ;  

          , 
    
-.      .
     ,  
FORK-      -.
    -  
,       
 RTS PC    .
       ,  -  
,   ,     , 
       ,
 ,    . 
     
    ,     
 .DRFIN     .
 ,       
   .DRFIN,    
 ,    .

     5.1.3.3.   -

       ,   ,  
 -   -2,
     
   .
        - 
 ,      
     
   CSR.   , 
   OFFLIN,    .SYNCH
    ,   
, , ,   , 
       RTS PC 
  .
        ,  , 
    . 
      , 
,   .   , 
   .   ,
    OFFLIN.   
  2 ,    
 .     ,
      
   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
        CLR @LPS ; 
        .FORK FRKBLK
        TST TICMPL ;  ?
        BEQ 1$ ;
        .CTIMIO TIMBLK ;,  
        BCS 1$ ;
        CLR TICMPL ;   
                                ;
1$: MOV LPCQE,R4 ;R4  
                                ; 
        TST @(PC)+ ; ?
LPS: .WORD LP$CSR ; 
                                ;-
                                ; 
ERROPT: BMI OFFLIN ;,   
   .
   .
   .
 ;  -
LPDONE: CLR @LPS ;  
        .DRFIN LP
   .
   .
   .
 ;-  , 
 ;   

OFFLIN: MOV LPCQE,R5 ;  
        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,RO ;  
                                ; 
                                ;
        ADD #MESSAG-.,RO ; 
                                ; PIC
        .PRINT ; 
        MOV PC,RO ; PIC-,  
        ADD #1$-.,R0 ;.TIMIO 
                                ;
        MOV RO,TICMPL ; 
        .TIMIO TIMBLK,0,2*60.*60. ;
                                ; 
2$: RTS PC ; 
FRKBLK: .WORD 0,0,0,0 ;FORK-
TIMBLK: .WORD 0 ; : 
                                ; 
        .WORD 0 ;  
        .WORD 0 ;  
                                ; 
TIJNUM: .WORD 0 ; 
        .WORD 177000+3 ; 
        .WORD 0 ; 
                                ; -1
TICMPL: .WORD 0 ; 
                                ;
SYNBLK: .WORD 0 ;SYNCH-
SYJNUM: .WORD 0 ; 
        .WORD 0,0,0,-1,0 ;
MESSAG: .ASCIZ "?LP-W-LP OFF LINE - PLEASE CORRECT"
        .EVEN
        .DREND LP

          -
.

     5.2.  
       -   
 -2,    
.  ,  
 ,     
 -.   
    -, 
     .
          
 .     
  XM  FB.   
  ,   
  ;   ,  
   .   
     :
ERL$G -     1,   
           ;
ERL$S -     256- ,
             
         SJ;
ERL$U -    
        ,     
        ;     10,
            30;  
             ; 
             (, 
           -5400   );
             
             .
       , ' 
  ,    , 
     
     
-,       2K
 .      
 ,      
     
   .   
    -  
   ,     
.
       ,    
 ,     
 .     
,   ERL$G=1,     
.  ,    
     ,  .

     5.2.1.      
          
  -,   , 
   .    ,
       
     ,  
    .   
    ,  
      - 
    .FORK.
          
.

     5.2.1.1.   
      R4  R5   
      
:
 R5 -       
      ;
 R4 -    :   
        , DD$COD,  
       -1.

     5.2.1.2.   
          
  R2  R5   
.    :
 ,   ,
       ...
 ,    
,    .
R5 -       
     ;
R4 -    :   
       , DD$COD;  
      0;
R3 -    :   
        ,   
     ;     
     ,     
      ;
R2 -     ,  
        .

     5.2.1.3.   
          
 R2-R5    .
     
   . 
  :   ,
    .
           
 ,    . 
   ,   
   .   
0,      
.     
      
 .
           
  ,    .  
     
.       
     .
      ,  
      , 
0.
R5 -       
     ;
R4 -    :   
       , DD$COD;  
          ;
R3 -    :   
        ,   
     ;     
     ,     
       ;
R2 -    ,   
       .

     5.2.1.4.    (SOFT) 
 (HARD) 
           
        
  .    
   ,    
        
       ,  
  ,       0.
      ,     
, ,    
 ,     .
       
,        
 .

     5.2.1.5.   
  ,     ,
   :
     JSR PC,@$ELPTR
 $ELPTR -     .
      .DREND      
.      (
 )    .FETCH   
 LOAD (  ).  
  ,    
 .    ,  
  RMON    .

     :

$ERLOG: MOV (PC)+,-(SP) ;   ,
                                ;  
                                ; 
$ELHND::.WORD 0 ;0,   
                                ; ; , -
                                ;   -
                                ; 
        BNE 1$ ;,  
        TST (SP)+ ; 
1$: RTS PC ;  
                                ;   

          RMON , 
   .
       SRUN  FRUN  
  ;  UNLOAD EL 
$ELHND.
          , 
R0-R3   , R4  R5 - .

     5.3.  
         
 ,    
  -2.   :
       
   .   .SPFUN
     
 .     .SPFUN,
       
  .    , 
    . , ,
     
  ,  372.

     5.3.1.   .SPFUN
        .SPFUN :
     .SPFUN AREA,CHAN,FUNC,BUF,WCNT,BLK[,CRTN]
         .SPFUN .  [1].
           
     
   .  , 
 BUF, WCNT  BLK    
,   .   
 ,     .
,    ,  BUF
     ,  
,  BUF+WCNT     .
    , 
  .SPFUN   .
           
 ,  BUF    
.   WCNT  BLK   .
     , 
   ..,      
    .  
 ,    . ,  
      .

     5.3.2.     

          
     SPFUN$,  
  STAT,    
.DRDEF.  ,    
 .
          
   ,  
 . ,   
     DY  
  :

        SIZ$FN =373 ;  
        WDD$FN =375 ;   
        WRT$FN =376 ;  
        RED$FN =377 ;  

           
  (..     
200  377); ,   
        
 .     
     (. [1]),
 ,     
    .    , 
   ,    ,
       ,
  200    377.    
       
 .
          -, 
     , 
,      .
Q.FUNC,      
 -,    . 
  -   ,
      0.  
      
  .  ,  
     ,  
,     .
         ,  
       RTS PC.
      , 
,      .
   ,  ,  
,     .
          
 ,     
     .SPFUN,   
  .   
     
 .

     5.3.3.   
        ,  
   ( )  .
     DY,  
       
     .
      ,    
,      
    SIZE  .DRDEF. 
    ,  
   .DSTATUS.
          
    ,   
 .SPFUN.       
      
   .   
   ,  
.      
    373.

     5.3.4.    
      -2    
 ,   (..  
-2) .    
 .     12
(SPECL$)   . USR 
     
-2;     
  ,  .LOOKUP, .ENTER,
 .CLOSE  .DELETE,  ,    .
         
     
    .  
     . 
 :

 :          1           2          3           4
 :                

          .CLOSE,
.DELETE, .LOOKUP  .ENTER (.[1]).  .RENAME 
   .
            
     ,
  ,      RADIX-50.
       (,  "  " 
" "),    
    ,  
.      
 .     
  SPUSR ( USR  ),
    272  
 .   
      
   (   ).
         
   
 . , ,  
.LOOKUP,      
  .   
  ,   
    ,  
    , 
  USR.  
,    .LOOKUP, .ENTER, .CLOSE 
.DELETE   .
         .LOOKUP 
       (Q.WCNT). 
 .ENTER      .

     5.4.    XM-
         SJ  FB 
       XM.
    
   XM.

     5.4.1.     
 
          
    DD.MAC,  DD -  
 ,  ,  
     
.  ,  
     , 
MMG$T,    0,   
  ,  1,    
.
      ,     
 ,  ,   MMG$T,
 1.     
DD.MAC    , SYCND,   XM.MAC,
 DDX.OBJ  XM-  DD.OBJ   SJ 
FB.   ,   
,   ,  
   .

     5.4.2. XM-
       XM     
 28   .    
,      
 .FETCH  XM-.
      XM-   .FETCH, 
       ,
  1 (   1),
,      20000  37776.
  ,   
      LOAD, 
   .
      XM-  .FETCH ( 
  ),  
     ,   
 28 .   .FETCH   
  XM   . , 
  .FETCH,      
    LOAD.
       ,    
,      28 
    - (. 
6).  ,   -,
     ,  
.       
  :
     -  ,  
 ;
     -  ,   
    28 ;
     -      .
           XM
     . 
  ,  , 
 -,  16-  
   ,   ,  
     
 -    . 
    18-  22-
     
      .   
,        
 .
       ,    XM   
   18-  22- ,  ,
       
   . , ,  
 ,       
,    
,       
.        28
  ,     
    16-  
   XM ( 16  17 
18-     16  21 
22- ),    .
      .6  XM-. , 
  -,   
      28 .

                         
                     
                      .-------------
                       !  !
                       !-!
                    . .!-----------!
                       ! !
                       ! !
                   . . !           !
                       !           !
           . .  !           !       
            !-----------!.   
   !           ! .        
    .   !   BUFF:   !   . .  
-----------------.     !-----------!.     .-----------------
!177776!7!      ! .    !           ! .     !      !7!177776!
!160000! !      !      !           !   .   !      ! !160000!
!------!-!------!.  28K!-----------!      .!---------------!
!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!202   !----->!           !       !      !0! 17776!
! 00000! !200   !      !           !       !      ! ! 00000!
-----------------      -------------       -----------------
                  /\                  /\
                   !                   !
                   !                   !
                        
                       

                         .6.

      -2   
       
 .     
,    .

     5.4.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.ELGN=^O24 (  )

     5.4.4.     :
 $MPPHY

         , ,
 , , ,  18- 
22- ,    
    . 
   
 $MPPHY  
    . $MPPHY 
 Q.PAR      
Q.BUFF    18-  22- 
 .
        $MPPHY :
     JSR PC,@$MPPTR
 $MPPTR -    $MPPHY 
              ;  .DREND 
                 ; 
                  (
              )    LOAD (
              ).
      :
R5    Q.BUFF,    .
      :
(SP),    ,   
   ;
2(SP),    ,  2  
     4  5 (
18- )     4  9 (
22- );
R5   Q.WCNT,    ;
  .
     :
        CMP (R5)+,(R5) ;   
                                ;  
        JSR PC,@$MPPTR ; 
                                ; 
                                ; 
        MOV (SP)+,-(R4) ; 16 
                                ;  RKBA, 
                                ; -  
        MOV (R5)+,-(R4) ;  
                                ; RKWC
        BEQ 7$ ;  0 = 
 BMI 5$ ;  =
                                ;   
        NEG @R4 ;  =
                                ;,  
                                ; 
        MOV #CSIE!FNREAD!CSGO,R3 ; 
5$: BIS (SP)+,R3 ; 
                                ;   
        MOV R3,-(R4) ; 
6$: RTS PC ;  

          RK.

     5.4.5. - :
 $GETBYT  $PUTBYT
      - ,  
  - -
,       
  .   
   -    
 .     
 - $GETBYT  $PUTBYT -    
 -    .
     5.4.5.1.  $GETBYT
         
$GETBYT       
  .      
     - 
  -.
        $GETBYT:
     JSR PC,@$GTBYT
 $GTBYT -    $GETBYT 
              ;  .DREND 
                 ; 
                  (
              )    LOAD (
              ).
      :
R4    Q.BLKN,   
.
      :
(SP),    ,    
    ;  
  ;
R4  .
       (Q.BUFF)   
 1.    ,
  20000    Q.BUFF  
200    Q.PAR.   
   .5.4.7.
     :
        MOV PCCQE,R4 ; 
                                ; 
        MOV #PP$CSR,R5 ; 
                                ; 
                                ; -
        TST (RT)+ ;?
        BMI PPERR ;,    
        TST Q$WCNT(R4) ;   
                                ;?
        BEQ PCDONE ;,   
        INC Q$WCNT(R4) ;  
                                ;( )
        JSR PC,@$GTBYT ;   
                                ;
        MOVB (SP)+,@R5 ;   

         PC   
        
.

     5.4.5.2.  $PUTBYT
           
      
-     .   
  $PUTBYT    
     .
        $PUTBYT :
     JSR PC,@$PTBYT
 $PTBYT -    $PUTBYT 
              ;  .DREND 
                 ; 
                  (
              )    LOAD (
              ).

      :
R4    Q.BLKN,   
;       
  ;     
   ;   .
      :
,    ,   .
R4  .
       (Q.BUFF)   
 1.    E,
  20000    Q.BUFF  
200    Q.PAR.   
   .5.4.7.
     :
        MOV PRCQE,R4 ;R4   Q.BLKN
        MOVB @#PRB,-(SP) ; 
        JSR PC,@$PTBYT ;   
                                ;
        DEC Q$WCNT(R4) ;  

         PC ,  
     - 
    .
     5.4.6.  :  $PUTWRD
       $PUTWRD  $PUTBYT,  
,  $PUTWRD    
  ,   .  , 
       
 ,      .
$PUTWRD      .
        $PUTWRD :
     JSR PC,@$PTWRD
 $PTWRD -    $PUTWRD 
              ;  .DREND 
                 ; 
                  (
              )    LOAD (
              ).
      :
R4    Q.BLKN,   
;       
  .
      :
     .
R4  .
       (Q.BUFF)   
 1.    ,
  20000    Q.BUFF  
200    Q.PAR.   
   .5.4.7.
 :
        MOV #DDNBLK,-(SP) ;   
                                ; 
        MOV DYCQE,R4 ;R4   Q.BLKN
        JSR PC,@$PTWRD ; 

         DY   
    ,  
     .   
      . 
 $PUTWRD      
 .
     5.4.7. ,    
  
          ,
 .  ,    
 .     
      
  .
           
.
     ,    ,   
        
 .      
   ,   DX  
   $MPPHY.  ,
    -
,      
,    
. ,  DX   
  ,    
- ,       
   .   
,   1.
     $P1EXT       
   ,  , 
     1. 
$P1EXT    1  
,   .   $P1EXT
 1,      
     .
       $P1EXT   
JSR R0,        
  2,     
   1 (Q.PAR)   .
     :
        MOV @#SYSPTR,R4 ;R4  
                                ; 
        MOV P1EXT(R4),(PC)+ ;  
                                ;$P1EXT
$P1EXT: .WORD P1EXT ; 
        . ;$P1EXT
        .
        .
;---     ,  
;---   
        JSR R0,@#P1EXT ; 
                                ;  
        .WORD PARVAL-. ;  
                                ; + 2
;---
2$: TSTB @R4 ; 
                                ; 
        BPL 2$ ; 
3$: MOVB (R2)+,@R5 ;   
                                ;   
        TSTB @R4 ; CSR 
                                ; 
        DECB R1 ;  
        BNE 2$ ;  0, 
                                ; 
;---    , 
;---   1
PARVAL: .WORD 0 ;, 
                                ;
                                ; 
;---
;   

            DX,
    . R1 - 
 , R2 -   , R4 -
       R5 -
     . P1EXT -
    
$P1EXT  .
       ,   $P1EXT, 
 :
-      ,   
   ,   
     ;
-       
  ,     
           
   ;
-    , R0    
  ;
-       32-
  ,     .
           
,  ,   1
   . .7 
   .   
   -   ,
     28 . 
     6. 
 1,    Q.PAR  
,     Q.BUFF  
     . 1
     32- 
() ,   ,   
 4 . (  1 ( 
)   ,   
.)      
 ,    32- , 1
       , 
32- .   1   
    ,   
   .  , 
 1      4
 4-31  ().

                         
                     
                       -------------
                       !   !
                       !-!
                       !-----------!
                       !           !
                       !           !
                      .!-----------!.
                       !   BUFF:   ! .
                !           !       
          ..!-----------!. . 
   !           !          
        !           ! . . .  
-----------------   .. !           !       -----------------
!      ! !      !      !           !  . .  !      ! !      !
!      ! !      !      !           !   . . !      ! !      !
!      ! !      !  ..  !           !    . .!---------------!
!      ! !      !      !-----------!     . !      !6!157776!
!      ! !      !      !    !      .!      ! !140000!
!      ! !      ! ..   ! !       !---------------!
!      ! !      !      !-----------!       !      ! !      !
!      ! !      !      !           !       !      ! !      !
!---------------!..    !           !       !      ! !      !
! 37776!1!      !      !           !       !      ! !      !
! 20000! !      !      !           !       !      ! !      !
!---------------!.     !           !       !      ! !      !
!      ! !      !      !           !       !      ! !      !
!      ! !      !      !           !       !      ! !      !
-----------------      -------------       -----------------
                        .7.


       .8,    
.

Q.PAR =3317                                 
Q.BUFF=020024                  
                28,  32-      
                       -------------            
                       !   !             140224
                       !-!
                       !-----------!
                       !           !
                       :           :
                       !           !
                 351700!------------
                      .!           !
                       !           !
                       !-----------!
                     . !           !
                       !           !
                 351500!-----------!.
                     . !           !
                       :           :
                       !           ! .
                    .  !-----------!
                       !           !
                       !           !  .
                   .   !-----------!
               331724->!BUFF:      !
                   .   !           !   .
                 331700!-----------!
                  .   .!           !
                  .  . !           !    .           
            331600!-----------!            
    .  !           !          
     . .   !           !     .    .
-----------------331500!-----------!.     .-----------------
! 37776!1! 3317 ! .    !           !  .    ! 3315 !6!157776!
! 20000! !      !.     !           !    .  !      ! !140000!
-----------------331400-------------      .-----------------
                       :           :
                        .8.


      .8   ,   
331724     ,
    6.   24
(O)   331700,  
32- . $P1EXT   Q.PAR, 3317,
 1,   1   (0200). 
  1  4-  
,    331700.  , 
      
  20000  37776,    
  331700  351676.     Q.BUFF
 20024,    ,  
        331724.
           , 
     
    .  
   .    -
  1. ,  32- ,
  ,  1   1.
 DX, ,  64   ,  2 
 1   ,  
 .
          
  Q.BUFF    
  .   
  Q.BUFF     40000.
     40000,    
20000    200  Q.PAR.    
   ,    
 .
     , ,      
,       . 
,    32-  
16-     100 () 
   1,    Q.BUFF. 
      .
     , ,     
12345   ,   .8.  
 12345  100  123,  - 45. 
123    Q.PAR,   3317,  3442
   1.  45   Q.BUFF,
  020024,  020071 -    (
    ).
     5.5.      XM
           XM, 
   ,   
     
(. .4).    
,       
- . ,   
     
   ( )   
.
      ,   
 ,     XM, 
      .
    
28       -  
     
    ,  
 .
         XM,  
   , 
.  ,     
      
 ,   
      28
    -. 
:   XM , 
     
     ,   
   ,   .
     .9     
,      28
     -.   
   ,   
.     , 
 . ( O 
   ,  
 .)  .9   200
 202     
,  ISREP:,   340, 
   PS.   ,
     
  .    
   120000.   
      
,     
      
,      .

                         
                     
                      .-------------.
                       !   !
                     . !-! .
                      .!-----------!.
                    .. !///////////!  .
                       !///////////! .
                   ..  !///////////!   .
                       !///////////!  .
           ..   !///////////!    .  
            !///////////!    
   !///////////!   . .    
        !///////////!     .  
-----------------..    !///////////!    . .-----------------
!177776!7!      !      !///////////!     . !      !7!177776!
!160000! !      !.     !///////////!      .!      ! !160000!
!------!-!------!------!-----------!-------!---------------!
!157776!6!      !----->!           !<------!      !6!157776!
!140000! !      !      !           !       !      ! !140000!
!------!-!------!      !-----------!       !---------------!
!137776!5!      !----->!           !<------!      !5!137776!
!120000! !ISREP:!      !        !       !ISREP:! !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!
-----------------      -------------       -----------------
                   /\                  /\
                    !                   !
                    !                   !
                     
                    
                               

   -   ;
      -   

                        .9.

     .10   , 
    .
(  .10   ,
   .) , 
      , 
  ,   
        
.      
    .

                         
                     
                   ...>-------------<----
                   I   !   !    !
                   I   !-!    !
                   I .>!-----------!<---!
                   I I !           !   !!
                   I I !           !   !!
                   I I !-----------!<--!!
                   I I !           !  !!!
            I I !        !  !!!  
          I !-----------!<-!!
   !///////////! !!!!     
    I I !///////////! !!!!.  
-----------------..I I !///////////! !!!!-------------------
!177776!7!      !    I !///////////! !!!   !      !7!177776!
!160000! !      !....I !///////////! !!!   !      ! !160000!
!------!-!------!------!-----------! !!!---!---------------!
!157776!6!      !----->!///////////! !!    !      !6!157776!
!140000! !      !      !///////////! !!    !      ! !140000!
!------!-!------!      !-----------! !!----!---------------!
!137776!5!      !----->!///////////! !     !      !5!137776!
!120000! !ISREP:!      !/// ??? ///! !     !ISREP:! !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   !----->!           !<------!      !0! 17776!
! 00000! !200   !      !          !       !      ! ! 00000!
-----------------      -------------       -----------------
                   /\                  /\
                    !                   !
                    !                   !
                     
                    
                               

   -   ;
      -   

                        .10.

         
  XM    , 
   1 (1)   .
1      20000 
37776.  XM-   
,       
  .     1
    EMT   
.    , 
 ,   1,  
     ,   
   . , 
     ,  
,     ,
  1. .11   .
    
 ,   
       (
  "*").
           
 ,    1 A ,   
.    ,  
 ,      
 .       .INTEN
 .FORK,   .SYNCH.
         MQ   
 ,     MQH$P2=1
    ,   
1    2 -    40000 
57777 .

                         
                     
                       -------------
                      .!   !.
                       !-!
                     . !-----------!  .
                      .!///////////!.
                    .  !///////////!   .
                     . !///////////! .
                   .   !///////////!    .
             .  !///////////!  .    
            !///////////!    
   !///////////!   . .    
        !///////////!     .  
----------------- .    !///////////!    . .-----------------
!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! !      !      !           !       !      ! ! 20000!
!------!-!------!      !-----------!       !------!-!------!
! 17776!0!202   !----->!           !<------!      !0! 17776!
! 00000! !200   !      !           !       !   *  ! ! 00000!
-----------------      -------------       -----------------
                   /\                  /\
                    !                   !
                    !                   !
                     
                    
                               

   -   ;
      -   

                        .11.

          
 .SYNCH,   ,   .SYNCH,
    . 
   XM   , 
   .  
,   .SYNCH,   
 ,    
,   . 
, ,    .SYNCH,  
XM-,     ,   
    : 
       
,      
 .  ,   
 ,   1  2.
             6.   
     6.1.     

          
 ',    
      
      .
      
    .  
      DUP
  .
     6.1.1.  
           
    ,     
 .SYS.  -2    :
FMONBL.SYS, FMONSJ.SYS  FMONFB.SYS.   
   ,   
 FMONXX.SYG,  XX -   : BL, SJ, FB
 .    
,     .SYS.
       0  4    
 .    
     .  
      
      
 DK  SY.
            ,
         
   .   
 ,     
   ,  
   ,  
,     
      
   .   
    0    
.
     6.1.2.    
         
     
 .    
  SET. ,   SET
  ,     
   .
     6.1.2.1.  
      ,    
      :
     -  ;
     -    ;
     -    ;
     -    .
          
  -2    
.     
  (P-SECT) DDBOOT,  DD - 
  .     0
 .
     6.1.2.2.  
           DDBOOT::.
         
    .
   NOP     
  .   
     
 BR,     JMP, 
   .
     :
RKBOOT::NOP
       BR BOOT1
           
 RK (BOOT1    ).
           P-
DDBOOT     0 .   
  DDBOOT::.
     6.1.2.3.    
        
      . 
      
  ,  
     .
1.     10000.
2.    ,   
     (    0  7).
   ,      
       ;  
      R0,    
   CSR.       ,  
   , -  .
3.      
      .
4.     
     B$READ.
5.   "B$DNAM"  RADIX-50  B$DEVN.
6.      B$DEVU.
7.   B$BOOT     -2
    .
         
       
DDBOOT+664. (  664  776  
,    .DREND).
     6.1.2.4.    
           
 ,     . 
     
   (. .6.1.2.3).
     ,    
     
, :
     R0    ;
     R1    ;
     R2    ,   
 .
         
     .
     
      
  ,   R0-R2. 
     BIOERR.  
,      RTS PC  
 .
         
      DDBOOT+210.
( 210 -   ,   
  ).
     6.1.2.5.    
          BIOERR::.  
     
.DREND,      .
     6.1.2.6.  .DRBOT
      .DRBOT    
.     .DREND   
,       
    . ,   
    - (PIC).
     PIC-   
 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  
      
    .   
.DREND     ,
BIOERR,    .
          
  BOOT, DUP    
  ,   4722,   R0.  
    
   -2,   
      
   4722    R0.
     6.1.3. DUP    
        ,  DUP   ,
   .   :
     BOOT DDN:FILNAM
     COPY/BOOT XXN:FILNAM DDM:
     BOOT DDN:
     6.1.3.1.  BOOT DDN:FILNAM
          
     
.    DD -  
; N -    .  
 ,      
    DD.
         DUP , 
      .
     FILNAM.SYS  
(  .SYS   ,    
). DUP    ,   0 
4,   .     
.
         4  
,    . DUP  
     , 
DD.SYS  DDX.SYS. DUP   0  
   ,    62 
64         
.
             
 ,     
.   ,   .9 
    .

                                         9
          ----------------------------------------
          !   !                        !
          ! !              !
          !       !                        !
          ----------------------------------------
          !             !                        !
          !    4722     !       !
          !             !                        !
          !             !                 !
          !             !                        !
          !  4724-4726  !    !
          !             !                        !
          !             !  RADIX-50             !
          !             !                        !
          !    5000     !            !
          !             !                        !
          !  5002-5004  !           !
          !             !                        !
          ----------------------------------------

       DUP     
        0  5004.
     1000,   
,       
   .
     .12   .

             
        :               :
        !               !
        !---------------!
       /!      !
   ---< !        !<---<3>-
   I   \!---------------!        \            DDN:
   I    !     0     !         \     :               :
  <4>   !      !<-----    \    !               !
   I    !---------------!      \    \  /!---------------!
   I   /!               !       \    -< !      !
   I   :!      !       <2>    \!        !
   I   :!               !<--      \     !- - - - - - - -!
 --I--< !      !   \      \    !   !
 : I   :!               !    \      \   !   DD.SYS   !
 : I   :!- - - - - - - -!     \      \  !     DDX.SYS   !
 : I   \!     0     !      \     I /!---------------!
 : ---->!     !       \    -< !     0     !
 :      !     !       <1>    \!       !
 :      !---------------!         \     -----------------
 :      !               !          \    :               :
<5>     !               !           \   -----------------
 :      !               !            \  !   !
 :      :               :            I  ! ".SYS"  !
 :      !               !            I  !- - - - - - - -!
 :      !               !            I /!               !
 :      !               !            I I!   !
 :      !               !            -< !               !
 :      !---------------!4777          I!  (  0-4) !
 :      !               !              \!               !
 :----->!               !               -----------------
        -----------------0              :               :

                            .12.


     6.1.3.2.  COPY/BOOT XXN:FILNAM DDM:
          
      XX   2, 3,
4  5  DD.    XX - 
 ,     ; N -
  ; DD -   ,
    ; M -  
.
         DUP , 
      .
      FILNAM.SYS 
 XXN:.      
,   0  4,   .  
   .
     DUP      
 DD:.     0  
   ,    62 
64         
.
        DD   
 DD:  ,   
    . DUP
    RADIX-50      4724
 4726  .  DUP   
  0  DD:.  ,  
     2-  5-  DD:.
     .13   .

                          
                     :               :          DDM:
                     !               !    :               :
                     !---------------!    !               !
                    /!      !<-  !---------------!
                  -< !        ! I /!      !
      XXN:        I \!---------------! -< !        !
:               : I  !     0     !   \!- - - - - - - -!
!               ! I  !       !<.  !   !
!---------------! I->!---------------!\ . !   DD.SYS   !
!               ! I: !               !I  .!    DDX.SYS    !
!   ! I: !      !I  .!- - - - - - - -!
! ".SYS"  ! I: !               ! >-.!     0     !
!- - - - - - - -!--- !      !I I.!       !
!               ! I  !               !I I-!---------------!
!   ! I->!---------------!/ I !               !
!               ! I: !               !  I :               :
!  (  0-4) ! I: :               : <5>!               !
!               ! I:                    I !---------------!
!---------------!---                    I !    2-5   !
!               ! I                     ->!               !
:               : I                       !     !
                  I                       !---------------!
                  I                       !---------------!
                  --------<4>------------>!     0     !
                                          !     !
                                          -----------------

                        .13.

     6.1.3.3.  BOOT DDN:
          
  ,   
       2- 
5- (     COPY/BOOT). 
  DD -   
; N -   .    
      
DDN:.
        DUP ,  
DD:      . 
   2, 3, 4, 5   .  
   .  
     0  776.
     DUP      
 DDN:.    , 
    ,   
    .
      DUP       724 
726  4       ,
   ,     .
      DUP  ,   .10
     .

                                         10
          ----------------------------------------
          !   !                        !
          ! !              !
          !       !                        !
          ----------------------------------------
          !             !                        !
          !    4722     !       !
          !             !                        !
          !             !                 !
          !             !                        !
          !    5000     !            !
          !             !                        !
          !  5002-5004  !           !
          !             !                        !
          ----------------------------------------

     DUP       
     0  4777.   
  1000,    ,  
  DUP,    
       .
     .14   .


   :                 :
   !                       !
  /!-----------------------!       :          DDN:         :
  I!                       !       !                       !
  I!              !       !-----------------------!
  I!              !<----  !                       !
-< !                       !    I  !           !
I I!- - - - - - - - - - - -!   <1> !                       !
I I!                       !    I  !-----------------------!
I I!       !<-  I  !                       !
I \!-----------------------! I  I  :                       :
I  !                       ! I  I  !                       !
I  !                       ! I  I  !-----------------------!
I  !                       ! I  I  !                       !
I  !                       ! I  I  !           !
I  !                       ! I  I  !                       !
I  !                       ! I  I  !-----------------------!
I  !                       ! I  I  !                       !
I  :                       : I  I  :                       :
2  !                       ! I  I  !                       !
I  !                       ! I  I  !-----------------------!
I  !                       ! I  I /!                       !
I  !                       ! I  I I!              !
I  !                       ! I  -< !              !
I  !                       ! I    I!                       !
I  !-----------------------! I    \!-----------------------!
I  !4777                   ! I     !                       !
I  !                       !<1>    !                       !
-->!                       ! I    /!-----------------------!
   !                       ! ----< !                       !
   !                       !      \!       !
  0-------------------------       -------------------------

                        .14.

     6.2.  ,   
 
          
: ,    
 .
     6.2.1.   
           DD.MAC, 
DD -   .   
   /SHOW:MEB, 
    .DRBEG 
.DRAST.
          SJ  FB
  :
     MACRO/CROSSREFERENCE/SHOW:MEB/LIST SYCND+DD/OBJECT
         - 
 :
MACRO/CROSSREFERENCE/SHOW:MEB/LIST XM+SYCND+DD/OBJECT:DDX
 XM -     -2,  
              ,
           FB;
 SYCND -   ;    
          ,   
         ,     
              
         ,       ; 
           ,   
         ,    
           -2,  
          SYCND.DIS,   
          .

     6.2.2.   
           ,
   .     SJ  FB
  :
     LINK/MAP/EXECUTE:DD.SYS DD
         XM- 
 :
     LINK/MAP/EXECUTE:DDX.SYS DDX

     6.2.3.   
         
       .
    
.   -2   
,     :
     INSTALL. 
 ,     
      .
( .6.2.3.6     ,
     
.)
     6.2.3.1.    
  
         
     , 
  ,   . 
      
      
 ,     . 
   ,   
 .
          , 
   ,   .
      
,    -2. ,
    ,  
     .
 ,     
 . ,    
 ,    $PNAME 
   .  ,  
$PNAME   .
         
     , 
  ,   , 
.    ,  
     
    , 
    . ,  
   ,  
      
 ,    
.
          
  (..     
$PNAME),      
 ,    
 .    
,    
.     , 
     $PNAME,   
 .
     .15  ,  
     .

                           -----
                           I  I
                           -----
                             I
                             \/
          ----------------------------------------
          !         !
          !   (,      !
          !       )  !
          ----------------------------------------
                             I
                             \/
                -----------------------------
                !      $PNAME?  !
                -----------------------------
                           I               
         ------------------------------------------
         I                                        I
         \/                                      \/
-------------------------    -------------------------------
!    ?   !    ! A   $PNAME?!
-------------------------    -------------------------------
       I                                   I 
     --------------------    --------------------------
     I                   \   I                        I
     \/                   \  I                       \/
------------------         \ I            ------------------
!   !          \I            !   !
------------------          \/            ------------------
     I             ---------------------             I
     \/            !    !             \/
--------=====--    !    ?    !     --------=====--
! GO TO I A I !    ---------------------     ! GO TO I A I !
--------=====--              I               --------=====--
                           I       
         ------------------------------------------
         I                                        I
         \/                                      \/
------------------------------    --------------------------
!        !    !     $PNAME,!
!   $PNAME     !    !         !
!                     !    --------------------------
------------------------------                    I
         I                                        I
         \/                                      \/
--------=====--                              --------=====--
! GO TO I A I !                              ! GO TO I A I !
--------=====--                              --------=====--
                        .15.

        .15,     
$PNAME      .  
    ,  
  ,    
.     
      
   -2,     
    ,  , 
    ,   
   .     
,      (  ) 
       
 .    
 INSTALL (. .6.2.3.2)   
   . (   
  ,     
 -   ,   
     .) ,
     , 
  DEV (. .6.2.3.3)  
       
     .
     .16   ,  
   .

                           -----
                           I  I
                           -----
                             \/
                 -------------------------
                 !        !
                 -------------------------
                             \/
                 -------------------------
                 !     !
                 !  ? !
                 -------------------------
                           I        
                ---------------------------
                \/                       \/
         -----------------   -------------------------------
         ! ?!   !          !
         -----------------   !       !
                I            !               !
              I         -------------------------------
        -----------------                 I
        I               I         -----------------
        \/             \/         ! ?!
---------------- --------------   -----------------
!! !   '  !         I       
!     ! ! !    --------------------
!      ! !   !    I                  I
---------------- !       -----!    \/                \/
        I        ! GO TO I A I! -------------- --------------
        I        --------=====- !! !!
        I               I       !  INSTALL   ! !  REMOVE   !
        I               I       -------------- !  INSTALL   !
        I               I          I           --------------
        I               I          \/                 I
        I               I     --------------------    I
        I               I     !    !    I
        I               I     ! !    I
        I               I     !  !    I
        I               I     !          !    I
        I               I     --------------------    I
        I               I          I                  I
        \/             \/          \/                \/
   -------------------------------------------------------
   !        ?  !
   -------------------------------------------------------
                           I           
              --------------------------------
              I                              I
              \/                            \/
------------------------------ -----------------------------
!  DEV  ! !   REMOVE  !
!    ! !    INSTALL      !
! .   ! !     !
!      ! -----------------------------
!           !
------------------------------

                        .16.

     6.2.3.2.   INSTALL  
 
        INSTALL 
  SHOW    
   .   , 
  REMOVE   
      ,
    INSTALL. ( 
 .  [2].)
         ,  
     
.    REMOVE  INSTALL 
    ,  
       . 
      
,    REMOVE  INSTALL 
   .   
      ,  
 .
     6.2.3.3.   DEV  
 
          , 
       
 $PNAME,    
  .   - 
 SYSTBL.MAC -   ,   
  .
        DEV   SYSTBL.MAC,
      .
       DEV :
     DEV NAME,S
 NAME -   ;
       S -    (  
  ).
     :
        DEV RK ; 
        DEV LP ; -
                        ;
        DEV MT ;  
       
DEV   SYSTBL.MAC.
        SYSTBL.MAC  
 DEV   , 
 ,   :
     MACRO/OBJECT:TBXX XX+SYCND+SYSTBL
 XX -  SJ, FB  XM; SJ.MAC, FB.MAC  XM.MAC - 
         -2,    
         ;   , 
           / ; XM.MAC
          ,    
         .
        , 
 '    
.
     6.2.3.4.  ,  
  
       -2,   , 
  INSTALL,   
  ,      
  .   
176   0      
(    , CSR). 
  ,  -
,     4,  
 .  ,   INSTALL,
      
 .   ,  INSTALL 
:
     ?KMON-F-ILLEGAL DEVICE INSTALLATION
       ,  
   ,  CSR   
.      
   ,  
   . , 
     
-       
.   -2   
  -,   , 
        
 .    
  , ,   
       
-.      DX,
      ,
       
. ,       DX,
       
 .
           
 ,     
-.     
      
  -2, 
       .
     6.2.3.5.   
       -2    
   - 
  ,  ,
     ,  
     . 
       
  .
     ,   , 
     , 
   .
1.   ,   
   ,     , 
   .
2.        
          ,
        /,
        .
3.       
   .
          
   ,   
    .  
  ,   
   -2, 
    ,    
      
       
.
         
 R0  R1;     
 .
     6.2.3.5.1.    

          
 200  0      
 356.  200 -   ,  
    INSTALL  
  .  202 -   ,
     
 .   INSTALL  
  .   ,  
,       ,
   NOP   200.  
      ,
     
    :
        .=200 ;  
        BR ERROR ;   
        .
        .
        .
ERROR: SEC ; -  
                        ;
        RTS PC ;

     6.2.3.5.2.     
 
          ,
     - 
 ,  ,  
  ,     
 .     
    ,  , 
     
:
        MOV 176,R0 ; 
                        ; CSR
        TST N(R0) ;  
                        ;  N  
                        ; CSR
        RTS PC ; (  -
                        ;   )

         .
    ,  ,
    4,   
.     
    , , 
      
   .
       ,    
 ,  TST    
, ,   
      -2  
 .
     6.2.3.5.3.      
 
         , 
   -  
    ,   ,
      
 .    
,     .
     :
        MOV 176,R0 ; 
                        ; CSR
        TST N(R0) ;  
                        ;  N  176. 
                        ;?
        BCC 1$ ;,  
        CLC ;,  -
        RTS PC ;  
1$: SEC ; -
        RTS PC ;   

          
     
.   ,  -2 
 .
     6.2.3.5.4.      
      ,    
-,      
,     
     ,  
   .     
   ,  
 .
      -2, ,  DX:  DY: 
 CSR.  11,  CSRX02, ,
    DX:,   -
 DY:.
     :
        .ASECT
        .=200 ;  
        NOP ;   
                        ;  
        BIT #CSRX02,@176 ;  DY:?
        BEQ 1$ ;,  DX:.  
                        ; DY
        TST (PC)+ ; -,  
                        ; SEC.  DY:,
                        ;  DY
1$: SEC ; -, 
                        ;  DY
        RTS PC ;  

         DY  
   ,     
 DY:.
     6.2.3.5.5.     
/
        ,   
 -,   /  CSR,
      ,
    ,
  ,   
       
    . 
  ,      
CSR.      .
   ,   
   /.  
 ,     
  .   
      . 
  , -2   
.    , -2 
 .
     6.2.3.5.6.   
       -    
,       
 ,     
 INSTALL   SIPP.
   176  200   0 
,     INSTALL 
     .
     6.3.   
      .11    
   . ,   
.11,    .

                                                  11
------------------------------------------------------------
!          !                                               !
!    !                                     !
!          !                                               !
------------------------------------------------------------
!          !                                               !
!     0    !                                               !
!          !                                               !
!    52:   !     (DDEND-DDSTRT)       !
!          !                                               !
!    54:   !     (DDSIZE)           !
!          !                                               !
!    56:   !    (DDSTS)            !
!          !                                               !
!    60:   !   SYSGEN                       !
!          !                                               !
!    62:   !     (       !
!          !                                               !
!          ! .DRBOT)                                       !
!          !                                               !
!    64:   !      (       !
!          !                                               !
!          ! .DRBOT)                                       !
!          !                                               !
!    66:   !       - !
!          !                                               !
!          !     -   !
!          !                                               !
!          !  ( .DRBOT)                          !
!          !                                               !
!    70:   !                 !
!          !                                               !
!   110:   !    RADIX-50                          !
!          !                                               !
!   112:   !  ; -1           !
!          !                                               !
!   176:   !  CSR (DD$CSR)                            !
!          !                                               !
!   200:   !     ,  !
!          !                                               !
!          !  ( 0)                                !
!          !                                               !
!   202:   !     ,  !
!          !                                               !
!          !                                     !
!          !                                               !
!   356:   !                    !
!          !                                               !
!   360:   !   ,  -   !
!          !                                               !
!          !   (360-377)                  !
!          !                                               !
!   400:   !    SET ( .DRSET)        !
!          !                                               !
!   776:   !     SET           !
!          !                                               !
!   1000:  !   (DD$VEC) ( .DRBEG)            !
!          !                                               !
!   1002:  ! DDINT-. ( .DRBEG)                           !
!          !                                               !
!   1004:  !     (PSW) (    !
!          !                                               !
!          ! .DRBEG)                                       !
!          !                                               !
!   1006:  ! DDLQE ( .DRBEG)                             !
!          !                                               !
!   1010:  ! DDCQE ( .DRBEG)                             !
!          !                                               !
!   1012:  !                             !
!          !                                               !
!     N    !         !
!          !                                               !
!          ! ( .DRAST;    1777)            !
!          !                                               !
!    N+2   !     ( .DRAST;    !
!          !                                               !
!          !   1777)                              !
!          !                                               !
!   1776:  !   ,   SET !
!          !                                               !
!          ! DD$END=. ( .DREND;   - !
!          !                                               !
!          ! )                                           !
!          !                                               !
!  DD$END: ! $RLPTR: ( .DREND)                           !
!          !                                               !
!          ! $MPPTR: ( .DREND)                           !
!          !                                               !
!          ! $GTBYT: ( .DREND)                           !
!          !                                               !
!          ! $PTBYT: ( .DREND)                           !
!          !                                               !
!          ! $PTWRD: ( .DREND)                           !
!          !                                               !
!          ! $ELPTR: ( .DREND)                           !
!          !                                               !
!          ! $TIMIT: ( .DREND)                           !
!          !                                               !
!          ! $INPTR: ( .DREND)                           !
!          !                                               !
!          ! $FKPTR: ( .DREND)                           !
!          !                                               !
!          ! DDEND=. ( .DREND)                           !
!          !                                               !
!  DDEND:  !                                               !
!          !                                               !
!  DDBOOT: ! NOP     ( .DRBOT) !
!          !                                               !
!          ! BR     ENTRY  .DRBOT               !
!          !                                               !
!          !                           1                   !
! ENTRY-14 ! 020             ( .DRBOT)                   !
!          !                                               !
! ENTRY-12 !   ( .DRBOT)                   !
!          !                           2                   !
! ENTRY-10 ! 020             ( .DRBOT)                   !
!          !                             3                 !
! ENTRY-6  !   ( .DRBOT)                 !
!          !                                               !
! ENTRY-4  ! 0               ( .DRBOT)                   !
!          !                              4                !
! ENTRY-2  !     ( .DRBOT)                !
!          !                              5                !
!  ENTRY:  ! BR .+2  BMI .+2 ( .DRBOT)                !
!          !                                               !
!          !     -  !
!          !                                               !
!          !                                       !
!          !                                               !
!   662:   !             !
!          !                                               !
!   664:   !           !
!          !                                               !
!   776:   !            !
!          !                                               !
------------------------------------------------------------

     :
1)     .  20 
    -.
2)       .
    20    -2.
3)    -   
    .      
   .
4)       
    0-6      
         7.  
   :
    7=0      
    7=1      
5) ,    
     ENTRY    
   120    .   
          
    .

        7.   
           
     .
     1.   : MT.
     2.   : DX  DY.
     3.    -:
PC.
     4.   : TT.
     5.   : NL.
     6.   : VM.
     7.   : LD.

     7.1.    (MT)
   -     
   .   
 -2   , 
      .  
     
,      .
       -2     
:   (MTHD.SYS)   
 (MT.SYS).  SET  
:  ,   
  .     
  .
      MT   8    
.    
 (    
  ),  , 
     
   -2.  
   .
          
  : BOT -   ; EOT -
   ; LEOT -   
  EOF -   . LEOT    EOF1,
    ,    
 .
     7.1.1.     
          
 ,   .7.1.2,   
.   ,  
      , 
     . 
     
  .   
  E MT.SYS.  
     0  1.  
      
  (2-7).
     ,   ,   :
     VOL1 HDR1**EOF1*HDR1**EOF1***
     VOL1, HDR1, EOF   . 
"*"   .
     7.1.1.1.   
           
,        .
1.      
    ,    , 
     . ,    
        1,  
    - 2,      
      1       
   2.
2.      , 
    ,    , 
        
     ,     .
   ,      
   ,    . , 
    ,    , - 2, 
        - 1. 
      .   
           1. 
     ,   ,  
    ,  9   
      6.    
         .
          UNLOAD 
  .RELEAZE,   . 
       , 
    BOT  ,   
   .
     7.1.1.2.    
           
,     .   
   ,   
        .
    , 
    .   
   ,    RADIX-50.
 :
     FILNAM.TYP
 FILNAM -    -2  ,
                 ( 
                  
             ,  );
       TYP -  ,    
             (      
              ,  ).
     ,   ,  
-2    ,  
   .
     7.1.1.3.  
        ,  
   .
     7.1.1.3.1.   .ENTER
       .ENTER   
 HDR1     ,   
   .  
  ,    
     . ( 
        .)
       
  ,   .SPFUN  
 . ,   .ENTER,  
    ,   ,
     
(   256 ).   
     .ENTER;  
  .SPFUN.    
   .CLOSE.   
 ,     .LOOKUP
 . .12   
 SEQNUM   .ENTER.
       .ENTER   :
     .ENTER AREA,CHAN,DBLK,,SEQNUM

                                                  12
------------------------------------------------------------
!        !       !                       !                 !
!!    !           !        !
! SEQNUM !  !               !            !
!        !       !                       !                 !
------------------------------------------------------------
!        !       !                       !                 !
! 0! !  -!  :    !
!        !       !                       !                 !
!        !       !   -!   .!
!        !       !                       !                 !
!        !       !    -  !   : !
!        !       !                       !                 !
!        !       !  .ENTER           !     !
!        !       !                       !                 !
!        !       !                       !   LEOT!
!        !       !                       !                 !
!        !       !                       ! (LEOT !
!        !       !                       !                 !
!        !       !                       !    !
!        !       !                       !                 !
!        !       !                       !   )   !
!        !       !                       !                 !
!   0    ! !  , !  :    !
!        !       !                       !                 !
!        !       !     -!   .  !
!        !       !                       !                 !
!        !       !  .    !   : !
!        !       !                       !                 !
!        !       !  ,  !    !
!        !       !                       !                 !
!        !       !   ,  !                 !
!        !       !                       !                 !
!        !       !   ,   !                 !
!        !       !                       !                 !
!        !       !       !                 !
!        !       !                       !                 !
!   -1   ! !   !    !
!        !       !                       !                 !
!        !       !  LEOT,   -!                 !
!        !       !                       !                 !
!        !       !                 !                 !
!        !       !                       !                 !
!   -2   ! !  , !    !
!        !       !                       !                 !
!        !       !    - !                 !
!        !       !                       !                 !
!        !       !   . -!                 !
!        !       !                       !                 !
!        !       !    !                 !
!        !       !                       !                 !
!        !       !      !                 !
!        !       !                       !                 !
!        !       !        !                 !
!        !       !                       !                 !
!        !       ! LEOT (   !                 !
!        !       !                       !                 !
!        !       ! )               !                 !
!        !       !                       !                 !
!   0    !     !      !  !
!        !       !                       !                 !
!        ! ! .LOOKUP     !                 !
!        !       !                       !                 !
!        !       !              !                 !
!        !       !                       !                 !
------------------------------------------------------------
      .ENTER  ,    .13.


                                                  13
------------------------------------------------------------
!    !                                                  !
!  !                                          !
!  52   !                                                  !
------------------------------------------------------------
!       !                                                  !
!   0   !                                 !
!       !                                                  !
!   1   !  .    HDR1    !
!       !                                                  !
!       !  EOT.       !
!       !                                                  !
!       !  ,     - !
!       !                                                  !
!       !  EOF1                                  !
!       !                                                  !
!   2   !   .   -!
!       !                                                  !
!       !                  !
!       !                                                  !
!   3   !  ,            !
!       !                                                  !
!   4   !      .  -!
!       !                                                  !
!       !   ,    ,  -!
!       !                                                  !
!       !                                       !
!       !                                                  !
!   5   !   .  SEQNUM  !
!       !                                                  !
!       !         -3  !
!       !                                                  !
!       !   -32767       .ENTER   !
!       !                                                  !
------------------------------------------------------------

      .ENTER    
   .
     7.1.1.3.2.   .LOOKUP
      .LOOKUP     
 HDR1.      
   . .14  
     .LOOKUP, 
  :
     .LOOKUP AREA,CHAN,DBLK,SEQNUM
       .  [1].

                                                  14
------------------------------------------------------------
!          !       !                       !               !
!  !    !           !      !
!  SEQNUM  !  !               !          !
!          !       !                       !               !
------------------------------------------------------------
!          !       !                       !               !
!    0     !     !   .LOOKUP  ! !
!          !       !                       !               !
!          ! !    !               !
!          !       !                       !               !
!          !       !                       !               !
!   -1     !     !   .LOOKUP  !  -!
!          !       !                       !               !
!          ! !    !           !
!          !       !                       !               !
!  0 !     !   .LOOKUP  !  :  !
!          !       !                       !               !
!          ! !      !  - !
!          !       !                       !               !
!          !       !     !     !
!          !       !                       !               !
!          !       !                !   . !
!          !       !                       !               !
!          !       !                       !    - !
!          !       !                       !               !
!          !       !                       ! :   !
!          !       !                       !               !
!          !       !                       ! LEOT          !
!          !       !                       !               !
!    0     ! !    !   : !
!          !       !                       !               !
!          !       !   ,    !  - !
!          !       !                       !               !
!          !       !      !     !
!          !       !                       !               !
!          !       !          !   . !
!          !       !                       !               !
!          !       ! .LOOKUP       !   -  !
!          !       !                       !               !
!          !       !              ! :   !
!          !       !                       !               !
!          !       !                       ! LEOT          !
!          !       !                       !               !
!    -1    ! !   .LOOKUP  !  :  !
!          !       !                       !               !
!          !       !      !  - !
!          !       !                       !               !
!          !       !     !     !
!          !       !                       !               !
!          !       ! .   -!   . !
!          !       !                       !               !
!          !       !             !    - !
!          !       !                       !               !
!          !       !                       ! :   !
!          !       !                       !               !
!          !       !                       ! LEOT          !
!          !       !                       !               !
!  0 ! !   !  :  !
!          !       !                       !               !
!          !       !       !  - !
!          !       !                       !               !
!          !       ! ,   !     !
!          !       !                       !               !
!          !       !   .LOOKUP -  !  .  !
!          !       !                       !               !
!          !       !  .  !     -!
!          !       !                       !               !
!          !       !   ,  -! :   !
!          !       !                       !               !
!          !       !      ! LEOT          !
!          !       !                       !               !
!          !       !                 !               !
!          !       !                       !               !
------------------------------------------------------------

          .LOOKUP
  (   , 
  0  -1), .READ, .READC, .READW, 
  ,    
 ;  .WRITE, .WRITC  .WRITW 
       . 
     
     (512 )  
  .    
     .SPFUN,   
  (BLK=0).       
    USR.
      .LOOKUP  ,   .15.

                                                  15
------------------------------------------------------------
!   !                                                   !
! !                                           !
! 52   !                                                   !
------------------------------------------------------------
!      !                                                   !
!  0   !                                  !
!      !                                                   !
!  1   !     .        !
!      !                                                   !
!      !     ,     !
!      !                                                   !
!      ! EOF1                                       !
!      !                                                   !
!  2   !   .        !
!      !                                                   !
!      !                                  !
!      !                                                   !
!  5   !   .   SEQNUM  !
!      !                                                   !
!      !       -2   -32767. !
!      !                                                   !
!      !   .LOOKUP       !
!      !                                                   !
!      !     SEQNUM     !
!      !                                                   !
------------------------------------------------------------

      .LOOKUP   
   ,    .ENTER.
     7.1.1.3.3.   .READX
      .READX/.WRITX    
 : .READ, .READC, .READW, .WRITE,
.WRITC, .WRITW.
      .READX     
  512  .   
   ,   .ENTER 
.LOOKUP  .     
  .READX  .WRITX,  
.LOOKUP   (. ..7.1.2.11  7.1.2.12).
        ,   512 , 
   .    ,
  512 ,    
 512-  ( 
  ,   512 ).  .READX
  ,    .LOOKUP.
    ,  
 .ENTER,   , 
      
  (  0).  
 ,     ,
      
.   .CLOSE   , 
 .ENTER,     
 .     , 
     , 
,       , 
     .
         :
1. .READX:  .LOOKUP  (  ) 
    ,     
    .   ,
      0 ( EOF),   
       .
2. .WRITEX  .READX:    
     ,    
      .  ,  
   ,     0.
       .READX :
     .READX AREA,CHAN,BUF,WCNT,BLK[,CRTN]
      .16  ,   
.READX.

                                                  16
------------------------------------------------------------
!   !                                                   !
! !                                           !
! 52   !                                                   !
------------------------------------------------------------
!      !                                                   !
!  0   !              !
!      !                                                   !
!      !  ,                !
!      !                                                   !
!  1   !               !
!      !                                                   !
!  2   !                                      !
!      !                                                   !
------------------------------------------------------------

     7.1.1.3.4.   .WRITX
      .WRITX      
  512 .     ,  512
,    512- ,  
 .     ,  512 ,
   512- .
      .WRITX   , 
 .ENTER  .LOOKUP  .
      .WRITX   :
     .WRITX AREA,CHAN,BUF,WCNT,BLK[,CRTN]
      .17  ,   
.WRITX.

                                                  17
------------------------------------------------------------
!   !                                                   !
! !                                           !
! 52   !                                                   !
------------------------------------------------------------
!      !                                                   !
!  0   !   .   ,         !
!      !                                                   !
!      ! ,       .     !
!      !                                                   !
!      !   ,                !
!      !                                                   !
!  1   !                    !
!      !                                                   !
!  2   !                                      !
!      !                                                   !
------------------------------------------------------------

           
 (. .17).

           -------------------------------------------------
           !     !    !######!    !######!    !######!     \
           ! BOT !    !######!    !######!    !######!     /
 1   !-----!  !##!  !##! M !##!     \
()   !     !    !# A  #!    !# B  #!    !# C  #!     /
           !     !    !######!    !######!    !######!     \
           !     !    !######!    !######!    !######!     /
           -------------------------------------------------
                                             !
                                              ---!
                                                        !
                                    ---!
                                   

           -------------------------------------------------
           !     !    !######!    !######!    !######!     \
           ! BOT !    !######!    !######!    !######!     /
 2   !-----!  !##!  !##! M !##!     \
(-  !     !    !# A  #!    !# B  #!    !# C  #!     /
/) !     !    !######!    !######!    !######!     \
           !     !    !######!    !######!    !######!     \
           -------------------------------------------------
                   !    
                   !--- 
                   !
                   !---   
                         

           -------------------------------------------------
           !     !    !######!    !######!    !######!     \
 3   ! BOT !    !######!    !######!    !######!     /
( !-----!  !##!  !##! M !##!     \
!     !    !# A  #!    !# B  #!    !# C  #!     /
    !     !    !######!    !######!    !######!     \
 - !     !    !######!    !######!    !######!     \
    -------------------------------------------------
                                                        !
                                             !
                                              ---!
                                                        !
                               ,    1---!

   -  

                        .17.

       1  .17  A, B  C   
 ,   
 ()     C.   
    ,   
(.. ,      
  ),    
  .
       2  .17  
  BOT    , 
     A, B  C.
      
3.  ,    ,
   1.
     7.1.1.3.5.   .DELETE  .RENAME
      .DELETE  .RENAME    
 ,       
   ( 2),   
  52.
     7.1.1.3.6.   .CLOSE
      .CLOSE     
  ,    .
1.     .ENTER,  
     ,  EOF1   ,  
    .      
    ,      , 
   LEOT.     .
2.     .LOOKUP  ,
       ,  
     EOF1   .
3.     .LOOKUP  ,
      ,  
   .
      .CLOSE   :
     .CLOSE CHAN
          ,
  .    
 .SERR.
     7.1.1.3.7.   .SPFUN
       .SPFUN   
   USR,     
   .    
   ,  
     , 
     .ENTER  .LOOKUP. 
       FB  XM,
    USR.   
 .ENTER  .LOOKUP  ,  .LOOKUP
     
.      ,   
  .LOOKUP  , 
 .  .SPFUN  
:
     .SPFUN AREA,CHAN,#-20.,BUF,,BLK
 -20. -     ;
     BUF -  7-   ,  
           .18.

                                                  18
------------------------------------------------------------
!      !                                                   !
! !                                           !
!      !                                                   !
------------------------------------------------------------
!      !                                                   !
! 0-2  !    RADIX-50                              !
!      !                                                   !
!  3   !       :                       !
!      !                                                   !
!      !  3 -    .LOOKUP                                !
!      !                                                   !
!      !  4 -    .ENTER                                 !
!      !                                                   !
!  4   !    .          !
!      !                                                   !
!      ! .       .LOOKUP     !
!      !                                                   !
!      ! .ENTER                   !
!      !                                                   !
!      !                         !
!      !                                                   !
! 5-6  !                                    !
!      !                                                   !
------------------------------------------------------------

     BLK -  4-    ,
               .LOOKUP 
           .ENTER,      52;
                
           BLK;     
                0; 
             BLK 0,    
           ;    
           ,     
            .
        .
 .TITLE    
       .ENABLE LC ; 
                                ;
        .NLIST BEX ;  
                                ;
        .MCALL .LOOKUP, .SPFUN, .CLOSE, .PRINT, .EXIT
 ;
        ASYREQ= -20. ; 
        LOOKUP= 3 ; LOOKUP 
                                ; 
        ENTER= 4 ; ENTER 
                                ; 
        CHAN= 0 ;  0
        FNF= 1 ;1 =  " 
                                ;"
        FSN= 0 ; 0 
                                ; 
                                ;
 ; ,     
START: .LOOKUP #AREA,#CHAN,#NFSBLK,#0 ; 
                                ;  
        BCS LOOKER ;,  
                                ;
        .SPFUN #AREA,#CHAN,#ASYREQ,#COMBLK,#ERRBLK
                                ; LOOKUP
        BCC FILFND ;,  
                                ;
        CMP #FNF,ERRBLK ; "  "?
        BEQ NOTFND ;,  
        MOV #ASYERR,R0 ;,  
        BR CLOSE
LOOKER: MOV #LOOERR,R0 ; "NFS LOOKUP FAILED"
        BR CLOSE
FILFND: MOV #OK,R0 ;  
                                ;
        BR CLOSE
NOTFND: MOV #FNFERR,R0 ;  ,  
                                ; 
CLOSE: .PRINT ; ,
                                ; R0
        .CLOSE #CHAN ; ...
        .EXIT ;   
 ; 
AREA: .BLKW 5 ;  EMT
NFSBLK: .RAD50 /MT/ ;  
        .WORD 0 ;   
        .WORD 0 ; 
        .WORD 0
COMBLK: .RAD50 /FILNAMTYP/ ; , 
                                ; 
        .WORD LOOKUP ;  
                                ; LOOKUP
        .WORD FSN ; 
                                ;  LOOKUP
        .WORD 0,0 ; (
                                ; 0)
ERRBLK: .WORD 1 ;  
        .WORD 0,0,0 ; 0,  
                                ; 
 ;
LOOERR: .ASCIZ /NON-FILE-STRUCTURED LOOKUP FAILED/
OK: .ASCIZ /FILE FOUND, LOOKUP SUCCESFUL/
FNFERR: .ASCIZ /FILE NOT FOUND/
ASYERR: .ASCIZ /ERROR IN ASINCHRONOUS REQUEST/
        .EVEN
        .END START
SYMBOL TABLE
AREA   000130R        ERRBLK  000170R        LOOKUP= 000003
ASYERR 000317R        FILFND  000104R        NFSBLK  000142R
ASYREQ 177754         FNF     000001         NOTFND  000112R
CHAN  =000000         FNFERR  000300R        OK      000242R
CLOSE  00011GR        FSN    =000000         START   000000R
COMBLK 000152R        LOOERR  000200R        ...V1  =000003
ENTER =000004         LOOKER =00007GR        ...V2  =000027

 .ABS.  000000     000
        000354     001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED: 9472 WORDS (37 PAGES)
DINAMIC MEMORY AVAILABLE FOR 72 PAGES
,SSM012/L:TTM=SSM102

     7.1.1.4.      
 
          
   : -
 (      ; 
     ) 
   , ,  , ,
  ...
          
- ,   
  ,   
. ..,      
  .      
  ,   .READX/.WRITX, 
    ,    
 .     
    
     ,   .ENTER.
      ,  ,   ':
..,      
  .     .
1.      ,
         
      ,  ,   
      ,    
    .CLOSE     . .CLOSE
     ,  ,    
     .ENTER,    
     ,     .
        . 
    ,      
    ,      
   .      0. 
       .
2.   ,  , ,
          
     ,    
      (512 ),  
    .WRITX.     
    ,  EOF1    ,
        ,  
     .SPFUN.    ,
     .
        .SPFUN  
    ,     2.
     7.1.2.    
          
 .     -,
    .   
,     ,
    -  
.   -   
   .  
,     
 .    
  ,    
.      (.
.19),      MT 
  MT.

                                                  19
------------------------------------------------------------
!                             !                            !
!                      !                    !
!                             !                            !
------------------------------------------------------------
!                             !                            !
! REMOVE MT                   !      !
!                             !                            !
!                             !                   !
!                             !                            !
! RENAME/SYS MT.SYS MTFS.SYS  !    !
!                             !                            !
!                             !                   !
!                             !                            !
! RENAME/SYS MTHD.SYS MT.SYS  !      !
!                             !                            !
!                             !                     !
!                             !                            !
! INSTALL MT                  !          !
!                             !                            !
!                             !                     !
------------------------------------------------------------

         
 .LOOKUP  ,  
 .SPFUN   .READ, .READC, .READW, .WRITE,
.WRTIC, .WRITW  .CLOSE.    
 -   , 
    .
     7.1.2.1.   
       .SPFUN,   
,      
    52  
 .  ,   ,
       
4-       
    . 
    0,   
 .    
,      
   .   
:  1  2   ;
 3  4     
  0.    
  3  4   . 
  1  2  ,  
  .
      ,    
  " " (EOF),   .20.
(  ,  52  0.)
           
,     
 2. EOT,    BOT  
  EOF.
      ,     
  ,   .21. (
 ,   52  1.)

                                                  20
------------------------------------------------------------
!    !                                          !
!   !                                  !
!            !                                          !
------------------------------------------------------------
!               !                                          !
!      1        !       EOF (   !
!               !                                          !
!               ! )                               !
!               !                                          !
!      2        !       EOT (   !
!               !                                          !
!               !  )                            !
!               !                                          !
!      3        !     EOT    EOF (   !
!               !                                          !
!               ! )                               !
!               !                                          !
!      4        !     BOT  (        !
!               !                                          !
!               ! )                               !
!               !                                          !
------------------------------------------------------------


                                                  21
------------------------------------------------------------
!    !                                          !
!   !                                  !
!            !                                          !
------------------------------------------------------------
!               !                                          !
!      0        !     ( !
!               !                                          !
!               !      , - !
!               !                                          !
!               !    )               !
!               !                                          !
!      1        !                           !
!               !                                          !
!      2        !       .     !
!               !                                          !
!               !    ,   !
!               !                                          !
!               !                !
!               !                                          !
!               !                          !
!               !                                          !
!      3        !           !
!               !                                          !
!      4        !                 !
!               !                                          !
!      5        !          !
!               !                                          !
!               !                                !
!               !                                          !
!      6        !       .       !
!               !                                          !
!               !            !
!               !                                          !
!               !         !
!               !                                          !
!               !                             !
!               !                                          !
------------------------------------------------------------

         , 
   ,  .LOOKUP  ,
.CLOSE    .SPFUN,  
 .
         -,  
       .
     7.1.2.2.     
           
.      
     
.SPFUN.
      .SPFUN   :
     .SPFUN AREA,CHAN,#370,BUF,WCNT,BLK[,CRTN]
 370 -     ;
    BLK -  4-    ,
              ;
   CRTN -  ,  
           ,   
            .
        ,   .22.
     
       
BLK.

                                                  22
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------
!           !         !                                    !
!EOF        !    1    !       EOF (  !
!=0 !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!           !    2    !       EOT  ( !
!           !         !                                    !
!           !         !     )              !
!           !         !                                    !
!           !    3    !     EOF    EOT  ( !
!           !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!-!    0    !         !
!      !         !                                    !
!     !         ! (   -  !
!=2 !         !                                    !
!           !         !     - !
!           !         !                                    !
!           !         !   )        !
!           !         !                                    !
!           !    1    !                     !
!           !         !                                    !
!           !    2    !       !
!           !         !                                    !
!           !    3    !         !
!           !         !                                    !
!           !    4    !           !
!           !         !                                    !
!           !    5    !          !
!           !         !                                    !
!           !         !                    !
!           !         !                                    !
!           !    6    !      .  !
!           !         !                                    !
!           !         !      !
!           !         !                                    !
!           !         !       !
!           !         !                                    !
!           !         !                       !
!           !         !                                    !
------------------------------------------------------------

      .SPFUN      
  :
     .SPFUN AREA,CHAN,#371,BUF,WCNT,BLK[,CRTN]
 371 -     .
        ,   .23.
     
      .

                                                  23
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------
!           !         !                                    !
!EOF        !    1    !       EOF (  !
!=0 !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!           !    2    !       EOT  ( !
!           !         !                                    !
!           !         !     )              !
!           !         !                                    !
!           !    3    !     EOF    EOT  ( !
!           !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!-!    0    !         !
!      !         !                                    !
!     !         ! (   -  !
!=1 !         !                                    !
!           !         !     - !
!           !         !                                    !
!           !         !   )        !
!           !         !                                    !
!           !    1    !                     !
!           !         !                                    !
!           !    2    !       !
!           !         !                                    !
!           !    3    !         !
!           !         !                                    !
!           !    4    !           !
!           !         !                                    !
------------------------------------------------------------

     7.1.2.3.     
        , 
         
 ,      . 
  ,      
  .    
       
   , , 
    .  
      . 
    .
            
:
     .SPFUN AREA,CHAN,#376,,WCNT,BLK[,CRTN]
 376 -      ;
   WCNT -      ( 
           65534);
   CRTN -  ,  
          ,    
           .
        ,   .24.
     
      .

                                                  24
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------
!           !         !                                    !
!EOF        !    1    !       EOF (  !
!=0 !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!           !    2    !       EOT  ( !
!           !         !                                    !
!           !         !     )              !
!           !         !                                    !
!           !    3    !     EOF    EOT  ( !
!           !         !                                    !
!           !         !   ).                 !
!           !         !                                    !
!           !         !          !
!           !         !                                    !
!           !         !         !
!           !         !                                    !
!           !         !   (WCNT)  - !
!           !         !                                    !
!           !         !   ,  -!
!           !         !                                    !
!           !         !     BOT.     !
!           !         !                                    !
!           !         !             !
!           !         !                                    !
!-!    0    !         !
!      !         !                                    !
!     !         ! (   -  !
!=1 !         !                                    !
!           !         !     - !
!           !         !                                    !
!           !         !   )        !
!           !         !                                    !
!           !    1    !                     !
!           !         !                                    !
!           !    2    !       !
!           !         !                                    !
------------------------------------------------------------

        , 
    ,   
   EOT.
           :
     .SPFUN AREA,CHAN,#375,,WCNT,BLK[,CRTN]
 375 -      .
        ,   .25.
     
      .


                                                  25
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------
!           !         !                                    !
!EOF        !    1    !       EOF (  !
!=0 !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!           !    2    !       EOT  ( !
!           !         !                                    !
!           !         !     )              !
!           !         !                                    !
!           !    3    !     EOF    EOT  ( !
!           !         !                                    !
!           !         !   )                  !
!           !         !                                    !
!           !    4    !     BOT (     !
!           !         !                                    !
!           !         !   ).                    !
!           !         !                                    !
!           !         !          !
!           !         !                                    !
!           !         !         !
!           !         !                                    !
!           !         !    (WCNT)    !
!           !         !                                    !
!           !         !     ,    !
!           !         !                                    !
!           !         !        BOT. !
!           !         !                                    !
!           !         !     ,   !
!           !         !                                    !
!           !         !                        !
!           !         !                                    !
!-!    0    !         !
!      !         !                                    !
!     !         ! (   -  !
!=1 !         !                                    !
!           !         !     - !
!           !         !                                    !
!           !         !   )        !
!           !         !                                    !
!           !    1    !                     !
!           !         !                                    !
!           !    2    !       !
!           !         !                                    !
------------------------------------------------------------


     7.1.2.4. 
          
  BOT.  MT     ,
     .
         :
     .SPFUN AREA,CHAN,#373,,,BLK[,CRTN]
 373 -     ;
   CRTN -  ,  
           ,   
            .
        ,   .26.
     
.


                                                  26
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------
!           !         !                                    !
!-!    0    !         !
!      !         !                                    !
!     !         ! (   -  !
!=1 !         !                                    !
!           !         !     - !
!           !         !                                    !
!           !         !   )        !
!           !         !                                    !
!           !    1    !                     !
!           !         !                                    !
------------------------------------------------------------

     7.1.2.5.     
        ,   ,  
,     ,  
  BOT.     
 .
           
 :
     .SPFUN AREA,CHAN,#372,,,BLK[,CRTN]
 372 -      
            ;
   CRTN -  ,  
          ,     
          .
            , 
 ,     (.
.26).
     7.1.2.6.     
           ,
  .    ,
    374.  
    (. .7.1.2.2).
     7.1.2.7.   
           
.     :
     .SPFUN AREA,CHAN,#377,,,BLK[,CRTN]
 377 -      .
        ,   .27.
     
       (
BLK).

                                                  27
------------------------------------------------------------
!        !      !                                    !
!      !  !              !
!    52     !    !                                    !
------------------------------------------------------------

Last correction : Date 27/01/90  Time 00:01:36
 ..    :
       .CSIGEN
   1000   R,RUN

Last correction : Date 27/01/90  Time 00:01:36
 ..    :
       .CSIGEN
   1000   R,RUN
X1/ P ?
