





   

   -










                    

       
                     

                            -    

                   

                 







                            29

























                              1984
  ..
                                                        
 
                             - 2 -








                           



                   
         
       .    
        .















































 
                             - 3 -








                           



                                                    2


   1.                            4

   1.1.                                 4
   1.2.         
                                            5
   1.3.            
                                                   5
   1.4.                              6
   1.5.                                6

   2.                                      8

   2.1.     DISK                                    8
   2.2.                            10
   2.3.                                    12
   2.4.                       13
   2.5.                              16
   2.6.                          17
   2.6.1.                   17
   2.6.2.                19
   2.6.3.                              19

   3.  -                    20

   3.1.                             20
   3.2.            
                                       21
   3.3.             
                                                   21
   3.4.             
                              22
   3.5.          
                               24
   3.6.         
                      
                                        24
   3.7.                           25
   3.7.1.     ""                             26
   3.7.2.     ""                                26
   3.7.3.     ""                                27
   3.7.4.     ""                                27
   3.7.5.      MEH                        27
   3.7.6.      MES                        28





 
                             - 4 -




               1.    




               -
             
    .     "-
   "   :

          -            -4,
               TS-;

          -         
              -3  -4,   
            SJ/FB-.



        1.1.  



           :

          -       -
              ;   -
                   
                   
                   
               TS-;

          -           
                  -
            ;     -
             ,    
                     
             SJ/FB- ;

          -     -
                 ;
                   
                 -
                 
            ;

          -       ;
                 -
                ,  -
                  -
             ;       
                  
             ,   -
                 , 
               ,      
             ;

          -      
                 ;  
 
                             - 5 -




                 -
                   ,
            ,     ,  
              ,      
             .



        1.2.      
              



                -
            
     -4      96   248
   .

              -
     -3  -4      16  
   248 .

                 
          
       -      
     -.      
        
      -.



        1.3.         
             



               
   TS-.   TS-    -
    :

          -          
                 ;

          -            
                      
            280  ;

          -      
              ,    -
               ;   
                128 ;

          -         
            ,        -
             .

             
   SJ/FB-.        
      DD.
 
                             - 6 -




        1.4.   



               
     (   ,   
      ):

   DISK
          -        (
            );

   DD
          -    ( );

   TEM
          -     (  -
            ).

              -
    :

   DET
          -       (-
             );

   MES
          -     (  -
            );

   MEH
          -      (  -
            ).



        1.5.    



              
        "".
         
       .  
         .

             
           -
   .        -
       ,      
   .        -
   ,       .

             -
        , 
         
   .

                    
 
                             - 7 -




    :

          -  ;

          -  .

            , -
      ,    -
    .       -
          
    .

                -
     .     
     ,      
       ,   -
     .

              
    .     -
      ,     
   .

                
        ,  
         -
    "TEM".

                  
       ,   -
             
     .

               
       -  .  
     ,      
   .       -
      .

              
           -
    .

                
        "DISK",    
      -  "DD".

                -
           ,  
            
   ,      .
      DD,        
       DD0:-DD7:.






 
                             - 8 -




                    2.    




               -
     .      -
         
        DD, 
       .

                   
   .SPFUN  DD,      
              -
       DD:.

              , -
      ,        
            DISK  
    .



        2.1.  DISK



                  
      ,  -
    :  DD     -
      DISK     .
    DISK      ,  -
      TS-  -
    ,     .   -
         -
          DISK    
   .

            ,   -
       DISK.SAV      
    SY:  .  
      DISK.

         .   DD:   -
      ,       
    "TEM"        
      DISK:

           .R DISK

       :

           ?DISK-I- 

          .      
       "TEM",   
    <LF><E>.    :


 
                             - 9 -




           ?TEM-I-  

         .   DD:   -
      ,       
    "TEM"    , -
        <LF><D>.    
     "TEM"     
   DISK.    :

           ?DISK-I- 
           ?TEM-I-  

         .   DD:   
     ,      -
    "TEM"    , -
      <LF><>.    
    "TEM"       DISK.
      :

           ?DISK-I- 
           ?TEM-I-  

         .      -
     TS-,    ,  
       DISK:

           R DISK

          <>  
      TS-,  -
          -
    DISK.      
         .

         .      TS-  
   ,    ,      '
    ,      
         DISK.    
            TS-
          
          -
        DISK.    -
   ,        -
   .


            DISK  -
          DD0:, -
         -
    DK:,       
    TS-.        DISK
       DK   
     .

             
         DISK    -
    .   DISK    
     TS-,       
     ,     
 
                             - 10 -




    03,     512    0  -
    DK:.   DISK    
   .

           DISK    -
    .

         .   DD:   -
      ,      
     "TEM"          
   <LF><>.     :

           ?DISK-I-  

         .   DD:   
     ,     -
    "TEM"        
    DISK,      :

           ?TEM-I- 
           ?DISK-I-  

         .   DISK   
       ,    
         ,            
   <><><CTRL/C>.

         .     DISK
              
         KILL      
   .



        2.2.   



             
          
    DD,        -
     .     
     DD:       -
        .

              DD:    
   .     DD:      
    INITIALIZE, COPY, DELETE  ..,   
    .LOOKUP, .ENTER, .WRITW, .CLOSE  ..

         DD       
   ,   ,      
   .            
      SET   DD:

           .SET DD CSR=NNNNNN

     NNNNNN  -    ,    
      .      
 
                             - 11 -




   :

    ?DD-W-  DD.SYS, CSR+4  MMM

    MMM -  ,    
    DD.SYS,     SIPP  
       .

                    
      SET   DD:

           .SET DD VECTOR=NNN

    NNN -  ,    
     .

               
      INSTALL:

           .INST DD

         DD       
    8         DD0:  
   DD7:,          
     .      -
         -
     .

                DISK,  
           
   DD0:,    DK:   -
      .

           DD:   -
    1-7         -
       .    
     .

                 SET  
    DD:

           .SET DD ASSIGN

       "*",      -
            
      ""    
     DD:    ,
     .

        :

           .SET DD ASSIGN
           *RK3:,DD1:
           .SET DD ASSIGN
           *RK1:TEST.VIR,DD5:

      DD1:  DD5:   -
    .

 
                             - 12 -




             
    ,     :

    ?SET-F- ,   

               -
      DD:  ,   -
    .SPFUN  DD:

           .SPFUN  AREA, CHAN, #372, BUF, #-4, #0 [,CRTN]
    :

   AREA
          -    EMT  6 ;

   CHAN
          -  ,        
              DD:,    
            ;

   BUF
          -    4 ,   
                  
             RADIX-50;

   CRTN
          -   .

                -
   ,       
   DD0:  DD7:.

                 
    ,    
   DD: ,     DISK   -
       .



        2.3.  



              -
        "TEM".

           .R TEM

        :

           ?TEM-I- 

           ,     
     ,    -
      ,   ,    -
    ,    -
   .

             
 
                             - 13 -




          -
     TS-.      -
   ,       ,  
          -
    SET.

              "TEM"  
      <LF>     
   :

   <LF><K>
          -      "TEM"    
               DISK,    -
                 DISK;

   <LF><E>
          -      "TEM"
                 ;

   <LF><D>
          -      "TEM"
                     ,  
                -
              DISK;

   <LF><LF>
          -        
              <LF>,     -
             ;       
            <LF>.

          <LF>    -
         .

           DD:      
    ,         "TEM"
         DISK
     ,     
   "TEM"   <LF><E>,    
    DISK.

              "TEM"    
    :

           ?TEM-I-  



        2.4.    



               
       TS-  
       DD.   
            -
     TS-.   -
        .SPFUN    DD
   :
 
                             - 14 -




          -    ;

          -     ;

          -     ;

          -     .

                 
   DD:        ,    
          -
          DD:,
        .  -
            ,
    6   -7.

               -
   :

           .SPFUN AREA, CHAN, #371, BUF, #-3, #0[, CRTN]
    

   AREA
          -    EMT  6 ;

   CHAN
          -  ,     -
                DD:;

   BUF
          -    3 ,   
              ;     6  ,
                ;

   CRTN
          -   .

            ,    -
     ,  :

           .SPFUN AREA, CHAN, #370, BUF, WCNT, #0[, CRTN]
    

   AREA
          -     6 ;

   CHAN
          -  ,     -
                DD:;

   BUF
          -  ,      -
               128 ;

   WCNT
          -  ,    
              ,  ;


 
                             - 15 -




   CRTN
          -   .

                 -
     ,       -
    .

             , 
       DD:,  :

           .SPFUN AREA, CHAN, #367, BUF, WCNT, #0[, CRTN]
    

   AREA
          -     6 ;

   CHAN
          -  ,     -
                DD:;

   BUF
          -   ,        
            ;

   WCNT
          -  ,      -
            ;

   CRTN
          -   .

                 
       128 ,     
     .

                
    ,     
   DD:,  :

           .SPFUN AREA, CHAN, #366, BUF, WCNT, #0[, CRTN]
    

   AREA
          -     6 ;

   CHAN
          -  ,     -
                DD:;

   BUF
          -   ,        
            ;

   WCNT
          -  ,      -
            ;

   CRTN
          -   .
 
                             - 16 -




                
     128 ,        
    .

                    
         DD:,  
              ,  
           ,
           .

         ,     -
      DD:      -
           .  ,
              
       DD:    -
          -
   -    .



        .  ,     -
    DD    .    
            
   ,       DD  (  
        )      
      .



        2.5.   



              
         .
            
      DD:.

            :

           .SPFUN AREA, CHAN, #365, BUF, WCNT, #0[, CRTN]
    

   AREA
          -     6 ;

   CHAN
          -  ,     -
                DD:;

   BUF
          -  ,       
                  -7,  -
              ;      -
                ;

   WCNT
          -  ,    
              ,    
 
                             - 17 -




            ;

   CRTN
          -   .

                
        ,    
     .



        2.6.     



                  
             
      :

          -      
                ;

          -          -
               TS-;

          -       
               .

            .   
            
      :

          -    FB-    
             RK3:

          -    SJ-   
             SYSTEM.VIR.



        2.6.1.   



              -
         
     SJ/FB-.   
       ,    -
    .

             
    :

          -           SJ-   
            FB-;      
               DD;

          -   DD      -
             ,       
 
                             - 18 -




              ;

          -    ;

          -      SWAP.SYS  -
             30 ;

          -        
             ,   DD;

          -      -
               COPY   /BOOT:DD;

          -      
              ;

               -
             
   .        
   TS-.

      1:

        .BO RK0:RAFFB              ! FB-
        .SET DD CSR=176510         ! 
        .SET DD VECTOR=300
        .INIT RK3:                 ! RK3:
        .CRE RK3:SWAP.SYS/ALL:30   ! SWAP.SYS
        .COP/SYS RAFFB.SYS RK3:    ! 
        .COP/SYS DDF.SYS RK3:      ! 
        .COP/SYS PCF.SYS RK3:
        .COP/SYS LPF.SYS RK3:
        .COP/BOOT:DD RK3:RAFFB RK3: ! 
        .COP DIR.SAV RK3:        !  
        .COP DUP.SAV RK3:
        .COP PIP.SAV RK3:
        .COP FORTRA.SAV RK3:
        .COP SYSLIB.OBJ RK3:
        .COP LINK.SAV RK3:
        .COP TEST.SAV RK3:      !  
        .COP TEST3.FOR RK3:

      2:

        .BO RK0:RAFSJ              ! SJ-
        .SET DD CSR=176530         ! 
        .SET DD VECTOR=330
        .CON RK1:SYSTEM.VIR,UY:    ! SYSTEM.VIR
        .INIT UY:                  ! UY:
        .CRE UY:SWAP.SYS/ALL:30    ! SWAP.SYS
        .COP/SYS RAFSJ.SYS UY:     ! 
        .COP/SYS DDS.SYS UY:       ! 
        .COP/SYS PCS.SYS UY:
        .COP/SYS LPS.SYS UY:
        .COP/BOOT:DD UY:RAFSJ UY: ! 
        .COP TEM.SAV UY:       !  
        .COP DIR.SAV UY:
        .COP DUP.SAV UY:
        .COP PIP.SAV UY:
 
                             - 19 -




        .COP TEST.SAV UY:     !  



        2.6.2.    



            ,    
           
     DK:       DISK.  
       ,      
     DISK      LOGON.
       ,    
   DISK.SAV     LOGON.SAV            
   TS-.

    1:

             RK3:    
   ,          STAR05.SYS
    :

           ASS RK3 DK
           DISK

    2:

                          
   RK1:SYSTEM.VIR     ,    
      STAR02.SYS  :

           CON RK1:SYSTEM.VIR DK
           DISK
           LOGON



        2.6.3.   



                TS-,
             
   .           
             
   .         ,  
         ,    -
       .

                   
    .  ,       -
     .   
        2000.        2002
          
              
   .


 
                             - 20 -




               

    002000 012700    MOV     #176500, R0  ;R0- 
    002002 176500 ;    
    002004 005760    TST     2(R0)      ; 
    002006 000002
    002010 012760    MOV     #3, 6(R0)  ; CTRL/C
    002012 000003
    002014 000006
    002016 105710 1$: TSTB    @R0       ;  ?
    002020 100376     BPL     1$        ; - 
    002022 122760     CMPB    #3, 2(R0) ;.   3 ?
    002024 000003
    002026 000002
    002030 001372     BNE     1$        ; -   3
    002032 012701     MOV     #512., R1 ; 512 
    002034 001000
    002036 005002     CLR     R2        ;   0
    002040 105710 2$: TSTB    @R0       ;  ?
    002042 100376     BPL     2$        ; - 
    002044 116022     MOVB    2(R0), (R2)+ ;- 
    002046 000002
    002050 077105     SOB     R1,2$     ;  512 
    002052 005000     CLR     R0        ;  0
    002054 005007     CLR     PC        ;   0

                 
    2000.     1-2 .




             3. - 




        -     
        .



        3.1.  



            :

          -     TS-;

          -       :
                 - DISK.SAV
                 - MEH.SAV

          -     SJ-;

          -       
            :
                 - DD.SYS
 
                             - 21 -




                 - TEM.SAV
                 - MES.SAV
                 - DET.SAV



        3.2.         
              



                
       :

          -     TEM.SAV;

           .R TEM
           ?TEM-I- 

          -   TS-;

          -   TS- :

           .W
           .SH MEM
           .ASS RK3 DK
           .CRE RK1:SYSDEV.VIR/ALL:600.

          -       -
            ;

           <LF>D
           ?DISK-I- 
           ?TEM-I-  

          -   SJ-

           .SH CON

            .



        3.3.          
             



               -
         -
   :

          -    DD0:

           .DIR DD:

                RK3:
    ;

 
                             - 22 -




          -    RK3:  DIR.SAV   -
             ;    ,
               RK3:     -
             DIR.SAV   RK3:

           .COP DIR.SAV DD:
           .DIR DD:
           .RU DD:DIR
           *<>
           DIR     V4.01
           *^C

          -     DD1:

           .DIR DD1:

            ;

          -   DD1:   RK1: -
                    -
            ,    DD1:

           .SET DD ASSIGN
           *RK1:,DD1:
           .DIR DD1:

             RK1:  
   .

             .



        3.4.          
                



                -
            
     :

          -      -
            ;

          -    MEH.SAV

           .R MEH

                 
   ;

          -        ,
              "":

            ? <>
            ? 1<>
             ?  <>
             ? <>
 
                             - 23 -




            ? <>

          -       -
             ,   "":

            ? <>
            ? <>

             .

             -
    :

          -   USR,  :

           .SET USR NOSWAP

          -   DD,  :

           .LOAD DD

          -    MES.SAV:

           .R MES

                 
   ;

          -           ,
              "":

            ? <>
            ? 1<>
            

          -         ,
              "":

            ? <>
            ? 2<>
           ?MES-F-  

          -         ,
              "":

            ? <>
            ? <>
             ?  <>
             ? <>
            ? <>

               
    .

           MEH  MES,  
   ""      .

               
     .
 
                             - 24 -




        3.5.       
                



                 
        -
   :

          -       
            DEMO.COM,   :

           SEND   DEMO.COM
           DIR/PRINT SY:

          -   DEM.COM     RK1:  
            :

           .COP DEMO.COM DD1:

          -    DET.SAV

           .R DET
           *

          -        
              DEMO.COM:

           *RK1:DEMO.COM
           *

          -     DET,    -
             CTRL/C.

            
      :

           "  DEMO.COM"

                 
          -
   .

              -
   .



        3.6.      
                        
              



                
             
     :

          -                  
 
                             - 25 -




            RK1:SYSDEV.VIR   :

           .SET DD ASSIGN
           *RK1:SYSDEV.VIR,DD0:
           .INIT DD0:
           .COP/SYS *.SYS DD0:
           .COP PIP.SAV DD0:
           .COP DIR.SAV DD0:
           .COP DUP.SAV DD0:
           .COP RESORC.SAV DD0:
           .COP/BOOT DD0:RAFSJ DD0:
           .DIR DD0:

          -      DD0:

           .BO DD0:

          -   ,  :

           .SH DEV
           .SH CON
           .DIR

               -
   .



        3.7.   



          MES.SAV  MEH.SAV    
          
   .  MES.SAV        
    ,   MEH.SAV -   
     .    ,     
   MEH.SAV     TS-,    
         MES.SAV       
   SJ/FB/XM-.     ,  
      .

                 
   RUN:

           .RUN MES     

           .RUN MEH     

            MES  MEH .

                
   ,      , 
       :





 
                             - 26 -




             - 
                - 
                - 
                - 

        ?

                ,
     .



        3.7.1.  ""



          ""        
     :

            ?

                 (
    6 )  <>.     
     <>,         
   "  ?".

                
   :

             ?

           (    64
   ),         ,
        <>.  -
      ,   
      .        ,
      " ?"   ,    -
     ,        "  ?"  
      <>.        
       .



        3.7.2.  ""



          ""   -
      ,       
   .

                  
    :

            ?

         .    -
      ,     -
        .   
 
                             - 27 -




       ,     
       .

                <>,
        "  ?".



        3.7.3.  ""



            ""      ,
           
   .   ,       -
         .

                  
    :

            ?

         .   
    <>,        "
   ".



        3.7.4.  ""



          ""    .



        3.7.5.   MEH



             MEH      
         :

   ?MEH-F-   
          - ,     -
                 ;

   ?MEH-F-      
          - ,         
                ;

   ?MEH-F-    
          - ,       -
            ;

   ?MEH-F-    
          - ,    64 ;


 
                             - 28 -




   ?MEH-F-     TS-
          - ,     
              SJ/FB/XM- .



        3.7.6.   MES



             MES      
         :

    ?MES-F-  
          - ,      
            ,          
            ,        ,
                 -
            ;

    ?MES-F-    TS-
          - ,     
              TS-.











































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
