
  
  
  
  
  
   
  
   -
  
  
  
  
  
  
  
  
  
  
                    
  
       
                     
  
                            -    
  
                    
  
                     
  
  
  
  
  
  
  
                            514
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
                              1984
  ..
                                                        
 
                             - 2 -
  
  
  
  
  
  
  
  
                           
  
  
  
  
             .
  
              
     ' .     -
   ,      ,  
     ,    .
           (-
            
   ).        -
     RM/SJ/FB/XM-      
      XM-.
  
              -
      .      -
           .
  
              
       -7300 (-)  -7306 (-2  ).
           
     -     -
   ,    .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 3 -
  
  
  
  
  
  
  
  
                           
  
  
  
                                                    2
  
  
   1.                  13
  
  
   2.                                14
  
   2.1.                                      14
   2.2.    '                              15
  
   3.                                  18
  
   3.1.                   18
   3.1.1.      "L"                      20
   3.1.2.      "S"                      21
   3.1.3.      "CODE"                       22
   3.1.4.                                22
   3.2.               '
                                                  23
   3.2.1.                   
                                             23
   3.2.2.               
                               24
   3.2.3.      SYSLIB.OBJ     
                                         26
   3.2.4.                    
                     
                                                   28
   3.2.5.                 
             /                       30
   3.2.6.               '
                           33
  
   4.                                 34
  
   4.1.                             34
   4.1.1.                                        34
   4.1.2.                                     34
   4.1.3.     USR                                    35
   4.1.4.                             36
   4.2.     '                    37
   4.2.1.                                        37
   4.2.2.                                     38
   4.2.3.     USR                                    38
   4.2.4.      USR                       38
   4.2.5.      USR                         39
   4.2.6.     USR                        40
   4.2.7.      INTEGER*4                             41
   4.2.8.       
                                             42
 
                             - 4 -
  
  
  
  
   4.2.9.     B                        42
   4.2.10.                   44
  
   5.                                              47
  
  
   6.                                       48
  
   6.1.                                48
   6.1.1.       (USERRB)           50
   6.1.2.       (JSW)                  51
   6.2.             
                                                    53
   6.2.1.       (NFIG)            56
   6.2.2.            
              (NFG2)                               57
   6.2.3.            
             (SYSGN)                                       58
  
   7.                               59
  
   7.1.                                  59
   7.1.1.     .LS                            60
   7.1.2.     .DL                           61
   7.1.3.     .ENTER                            62
   7.1.4.     .RN                           64
   7.1.5.     .LOOKUP                           66
   7.2.     /                            69
   7.2.1.     .RD/.RDC/.RDW               69
   7.2.1.1.   .RD                             70
   7.2.1.2.   .RD                            71
   7.2.1.3.   .RDW                            72
   7.2.2.     .YIN/.INR                     73
   7.2.3.     .TTYOUT/.TTOUTR                   74
   7.2.4.     .WI                             76
   7.2.5.     .WRI/.WRI/.WRIW              77
   7.2.5.1.   .WRI                            77
   7.2.5.2.   .WRI                            78
   7.2.5.3.   .WRIW                            79
   7.2.6.     .RIN                            82
   7.2.7.     .SPFUN                            82
   7.3.                                      86
   7.3.1.     .DFN                             87
   7.3.2.     .Y (FB, XM)                  88
   7.3.3.     .S (F, )                   91
   7.3.4.     .URG                            93
   7.3.5.     .REOPEN                           93
   7.3.6.     .SVSUS                       94
   7.4.                             97
   7.4.1.     .CSIGEN                           98
   7.4.2.     .CSISPC                           99
   7.4.3.     .GLIN                           102
   7.5.                                     103
   7.5.1.     .GTIM                            103
   7.5.2.     .                            104
   7.5.3.     TWAIT (FB, XM)                   105
   7.5.4.     .R                            106
   7.6.                
                                                 108
 
                             - 5 -
  
  
  
  
   7.6.1.     .IN                           108
   7.6.2.     .NFDF                           110
   7.6.3.     .NSW (F, XM, TS)             112
   7.6.4.     .RL                           113
   7.6.5.     .DATE                            114
   7.6.6.     .DBLK                            116
   7.6.7.     .DVI (FB, XM, TS)             116
   7.6.8.     .DIR                             119
   7.6.9.     .DSTATUS                         119
   7.6.10.    .EXIT                            122
   7.6.11.    .F/.RELEAS                   123
   7.6.11.1.  .FETCH                           124
   7.6.11.2.  .RLS                          125
   7.6.12.    .GTJB                            126
   7.6.13.    .GVL                            128
   7.6.14.    .HERR/.SERR                      129
   7.6.14.1.  .HERR                            129
   7.6.14.2.  .SERR                            130
   7.6.15.    .HRESET/.SRESET                  132
   7.6.15.1.  .HRESET                          132
   7.6.15.2.  .SRESET                          133
   7.6.16.    .INN                           133
   7.6.17.    .JSWDF                           134
   7.6.18.    .LOCK/.TLOCK/.UNLOCK             135
   7.6.18.1.  .LOCK                            135
   7.6.18.2.  .TLOCK                           136
   7.6.18.3.  .UNL                          137
   7.6.19.    .MFPS/.MTPS                      138
   7.6.19.1.  .FS                            138
   7.6.19.2.  .S                            139
   7.6.20.    .POP/.PUSH                       140
   7.6.20.1.  .POP                             140
   7.6.20.2.  .PUSH                            140
   7.6.21.     .PROTECT/.UNPROTECT  (FB,
             XM, TS)                                       141
   7.6.21.1.  .PROTECT                         141
   7.6.21.2.  .UNPROTECT                       142
   7.6.22.    .QSET                            143
   7.6.23.    .RRL                          144
   7.6.24.    .RFDF                           145
   7.6.25.    .S                            146
   7.6.26.    .SDF                           148
   7.6.27.    .S                          148
   7.6.27.1.    XM-            149
   7.6.27.2.    TS-            150
   7.6.28.    .SF                            151
   7.6.29.    .SPCPS (FB, XM, TS)              152
   7.6.30.    .SPND/.RSUM (FB, XM, TS)         153
   7.6.30.1.  .SPND                            154
   7.6.30.2.  .RSU                            155
   7.6.31.    .SDTTM                           156
   7.6.32.    .SYNCH                           158
   7.6.33.    .TRPSET                          160
   7.6.34.    .USDF                           161
   7.7.       (FB, XM)                  162
   7.7.1.     .WI                           162
   7.7.2.     .RVD/.RVD/.RVDW              162
   7.7.2.1.   .RVD                            163
   7.7.2.2.   .RCVDC                           164
 
                             - 6 -
  
  
  
  
   7.7.2.3.   .RVDW                           165
   7.7.3.     .SD/.SD/.SDW              166
   7.7.3.1.   .SD                            166
   7.7.3.2.   .SD                           167
   7.7.3.3.   .SDW                           167
   7.8.          
           (RM, SJ, FB, XM)                                169
   7.8.1.    KOMOHEHT MHOOTEPMHAHO CCTEM          169
   7.8.2.                               170
   7.8.3.    KOHCOH TEPMHA                           172
   7.8.4.    COOBAHE  TEPMHAOB
                              174
   7.8.4.1.  KOHCOH       -TEPMHA       
             TEPMHA-ECTKA KO                        174
   7.8.4.2.  EPEKEHE KOHCOHOO TEPMHAA            177
   7.8.4.3.  OTEH TEPMHA  KAOO AAH        178
   7.8.5.                             179
   7.8.6.    CTPKTP AHHX                              180
   7.8.6.1.  OK PABEH TEPMHAA (TCB)               181
   7.8.6.2.  ACHXPOHH CTATC TEPMHAA (S)            189
   7.8.7.             
                                                191
   7.8.7.1.  .MTATCH -AXBAT TEPMHAA                     192
   7.8.7.2.  .MTGET - OEHE CTATCA                    194
   7.8.7.3.  .MTSET - CTAHOBKA XAPAKTEPCTK              196
   7.8.7.4.  .MTIN - BBO CMBOA                          199
   7.8.7.5.  .MTOUT - BBO CMBOA                        200
   7.8.7.6.  .MTPRNT - BBO CTPOK                        202
   7.8.7.7.  .MTRCTO -   <CTRL/O>                203
   7.8.7.8.  .MTSTAT -                     203
   7.8.7.9.  .MTDTCH - OCBOOEHE TEPMHAA              205
   7.8.7.10. PMEP MHOOTEPMHAHO POPAMM            206
   7.8.8.                          208
   7.9.     (TS)                                  208
   7.9.1.     .BLIN                            208
   7.9.2.     .BLOUT                           209
   7.9.3.     .BREAK                           209
   7.9.4.     .DISMO                           210
   7.9.5.     .FRSPL                           211
   7.9.6.     .HIOF                            211
   7.9.7.     .HION                            212
   7.9.8.     .MOUNT                           212
   7.9.9.     .MSEND                           213
   7.9.10.    .SETODT                          214
   7.9.11.    .RSTODT                          214
   7.9.12.    .TRMTYPE                         214
   7.9.13.    .TSLINE                          215
   7.9.14.    .TSTACT                          216
   7.9.15.    .TSTER                           216
   7.9.16.    .TSTOP                           217
   7.9.17.    .TTIME                           218
   7.10.     (TS)                     218
   7.10.1.    .SHARE                           219
   7.10.2.    .SHMAP                           220
   7.11.     (TS)                         221
   7.11.1.    .DJKILL                          222
   7.11.2.    .DJSTART                         222
   7.11.3.    .DJTST                           223
   7.12.     (TS)                             224
 
                             - 7 -
  
  
  
  
   7.12.1.    .MGET                            224
   7.12.2.    .MGETWAIT                        225
   7.12.3.    .MPUT                            226
   7.13.      (TS)                 227
   7.13.1.      /                227
   7.13.2.                              228
   7.13.3.                             229
   7.13.4.    .CONVIR                          230
   7.13.5.    .ENSWAP                          231
   7.13.6.    .IMLOCK                          231
   7.13.7.    .POLOCK                          232
   7.13.8.    .INTCON                          232
   7.13.9.    .INTFRE                          233
   7.13.10.   .IOBIC                           234
   7.13.11.   .IOBIS                           235
   7.13.12.   .IOGET                           235
   7.13.13.   .IOPUT                           236
   7.13.14.   .IOMAP                           237
   7.13.15.   .IOUNMAP                         237
   7.14.     (TS)                          238
   7.14.1.    .SFLOCK                          239
   7.14.2.    .SFOPEN                          240
   7.14.3.    .SFSAVE                          242
   7.14.4.    .SFTLOCK                         243
   7.14.5.    .SFUNALL                         243
   7.14.6.    .SFUNLOCK                        244
   7.14.7.    .SFWCHECK                        245
   7.15.     (TS)                       245
   7.15.1.    .PAINIT                          246
   7.15.2.    .PASTART                         247
   7.15.3.    .PASTOP                          247
   7.15.4.    .PAGET                           248
   7.16.                  249
   7.17.                      249
  
   8.   '                       250
  
   8.1.                                 250
   8.1.1.     CLOSEC/ICLOSE                    250
   8.1.2.     IDELET                                252
   8.1.3.     IENTER                                253
   8.1.4.     IRENAM                                255
   8.1.5.     LOOKUP                                256
   8.2.     /                           259
   8.2.1.     IREAD/IREADC/IREADF/IREADW            259
   8.2.1.1.   IREAD                                 259
   8.2.1.2.   IREADC                                260
   8.2.1.3.   IREADF                                261
   8.2.1.4.   IREADW                                262
   8.2.2.     ITTINR                                263
   8.2.3.     ITTOUR                                265
   8.2.4.     IWAIT                                 266
   8.2.5.     IWRITE/IWRITC/IWRITF/IWRITW           267
   8.2.5.1.   IWRITE                                267
   8.2.5.2.   IWRITC                                268
   8.2.5.3.   IWRITF                                269
   8.2.5.4.   IWRITW                                270
   8.2.6.     PRINT                            271
   8.2.7.     ISPFN/ISPFNC/ISPFNF/ISPFNW            272
 
                             - 8 -
  
  
  
  
   8.2.7.1.   ISPFN                                 272
   8.2.7.2.   ISPFNC                                274
   8.2.7.3.   ISPFNF                                275
   8.2.7.4.   ISPFNW                                277
   8.3.                                     279
   8.3.1.     ICDFN                                 279
   8.3.2.     ICHCPY (FB, XM)                       280
   8.3.3.     ICSTAT (FB, XM)                       281
   8.3.4.     IFREEC                                282
   8.3.5.     IGETC                                 283
   8.3.6.     ILUN                                  283
   8.3.7.     IREOPN                                284
   8.3.8.     ISAVES                                285
   8.3.9.     PURGE                            286
   8.4.                            287
   8.4.1.     GTLIN                            287
   8.4.2.     IASIGN                                288
   8.4.3.     ICSI                                  290
   8.5.                                     293
   8.5.1.     CVTTIM                           293
   8.5.2.     GTIM                             293
   8.5.3.     ICMKT                                 294
   8.5.4.     ISCHED                                295
   8.5.5.     ISLEEP                                296
   8.5.6.     ITIMER                                297
   8.5.7.     ITWAIT (FB, XM)                       299
   8.5.8.     IUNTIL (FB, XM)                       300
   8.5.9.     JTIME                            301
   8.5.10.    MRKT                                  301
   8.5.11.    SECNDS                                302
   8.5.12.    TIMASC                           303
   8.5.13.    TIME                             304
   8.6.                             304
   8.6.1.     CHAIN                            305
   8.6.2.     DEVICE (FB, XM)                  306
   8.6.3.     GTJB/IGTJB                       307
   8.6.4.     IDSTAT                                309
   8.6.5.     IFETCH                                310
   8.6.6.     IQSET                                 311
   8.6.7.     ITLOCK (FB, XM)                       313
   8.6.8.     LOCK                             313
   8.6.9.     RCHAIN                           315
   8.6.10.    RCTRLO                           316
   8.6.11.    RESUME (FB, XM)                  316
   8.6.12.    SCCA                             317
   8.6.13.    SETCMD                           318
   8.6.14.    SUSPND (FB, XM)                  319
   8.6.15.    UNLOCK                           320
   8.7.                                   321
   8.7.1.     IADDR                                 321
   8.7.2.     IGETSP                                321
   8.7.3.     INTSET                                322
   8.7.4.     IPEEK                                 324
   8.7.5.     IPEEKB                                325
   8.7.6.     IPOKE                            325
   8.7.7.     IPOKEB                           326
   8.7.8.     ISPY                                  326
   8.8.                                 327
   8.8.1.     IRCVD/IRCVDC/IRCVDF/IRCVDW (FB,
 
                             - 9 -
  
  
  
  
             XM)                                           327
   8.8.1.1.   IRCVD                                 327
   8.8.1.2.   IRCVDC                                328
   8.8.1.3.   IRCVDF                                329
   8.8.1.4.   IRCVDW                                330
   8.8.2.          ISDAT/ISDATC/ISDATF/ISDATW
             (FB/XM).                                      330
   8.8.2.1.   ISDAT                                 331
   8.8.2.2.   ISDATC                                331
   8.8.2.3.   ISDATF                                332
   8.8.2.4.   ISDATW                                333
   8.8.3.     MWAIT (FB, XM)                   333
   8.9.                   334
   8.9.1.     MTATCH                                334
   8.9.2.     MTDTCH                                335
   8.9.3.     MTGET                                 335
   8.9.4.     MTIN                                  336
   8.9.5.     MTOUT                                 337
   8.9.6.     MTPRNT                                338
   8.9.7.     MTRCTO                                338
   8.9.8.     MTSET                                 339
   8.9.9.     MTSTAT                                342
   8.10.    (TS)                                  342
   8.10.1.    IBLIN                            343
   8.10.2.    IBLOUT                           343
   8.10.3.    IBREAK                           344
   8.10.4.    IDISMO                                345
   8.10.5.    IFRSPL                                345
   8.10.6.    IHIOF                            346
   8.10.7.    IHION                            346
   8.10.8.    IMOUNT                                346
   8.10.9.    IMSEND                           347
   8.10.10.   ISTODT                           348
   8.10.11.   IRSTODT                          348
   8.10.12.   ITRMTYPE                              348
   8.10.13.   ITSLINE                               349
   8.10.14.   ITSACT                                349
   8.10.15.   ITSTER                                350
   8.10.16.   ITSTOP                                350
   8.10.17.   ITTIME                           351
   8.11.     (TS)                     352
   8.11.1.    ISHARE                                352
   8.11.2.    ISHMAP                                353
   8.12.     (TS)                         354
   8.12.1.    IDJKILL                               354
   8.12.2.    IDJSTART                         355
   8.12.3.    IDJTST                                356
   8.13.     (TS)                             356
   8.13.1.    IMGET                            357
   8.13.2.    IMGETWAIT                        358
   8.13.3.    IMPUT                                 359
   8.14.      (TS)                 360
   8.14.1.    ICONVIR                          361
   8.14.2.    IENSWAP                               362
   8.14.3.    IMLOCK                                362
   8.14.4.    IPOLOCK                               363
   8.14.5.    INTCON                                364
   8.14.6.    INTFRE                                365
   8.14.7.    IOBIC                                 365
 
                             - 10 -
  
  
  
  
   8.14.8.    IOBIS                                 366
   8.14.9.    IOGET                            367
   8.14.10.   IOPUT                                 368
   8.14.11.   IOMAP                            368
   8.14.12.   IOUNMAP                          369
   8.15.     (TS)                          369
   8.15.1.    ISFLOCK                               369
   8.15.2.    ISFOPEN                               370
   8.15.3.    ISFSAVE                          371
   8.15.4.    ISFTLOCK                              372
   8.15.5.    ISFUNALL                              373
   8.15.6.    ISFUNLOCK                             374
   8.15.7.    ISFWCHECK                             375
   8.16.      (TS)              375
   8.16.1.    IPAINI                                376
   8.16.2.    IPASTA                                376
   8.16.3.    IPASTO                                377
   8.16.4.    IPAGET                           378
   8.17.   32-                          379
   8.17.1.    AJFLT                                 379
   8.17.2.    DJFLT                                 380
   8.17.3.    IAJFLT                                380
   8.17.4.    IDJFLT                                381
   8.17.5.    IJCVT                                 382
   8.17.6.    JADD                                  382
   8.17.7.    JAFIX                                 383
   8.17.8.    JCMP                                  384
   8.17.9.    JDFIX                                 384
   8.17.10.   JDIV                                  385
   8.17.11.   JICVT                                 386
   8.17.12.   JJCVT                            386
   8.17.13.   JMOV                                  387
   8.17.14.   JMUL                                  387
   8.17.15.   JSUB                                  388
   8.18.                                   389
   8.18.1.    CONCAT                           389
   8.18.2.    GETSTR                           390
   8.18.3.    INDEX                            391
   8.18.4.    INSERT                           392
   8.18.5.    LEN                                   393
   8.18.6.    PUTSTR                           393
   8.18.7.    REPEAT                           394
   8.18.8.    SCOMP/ISCOMP                     395
   8.18.9.    SCOPY                            396
   8.18.10.   STRPAD                           397
   8.18.11.   SUBSTR                           398
   8.18.12.   TRANSL                           399
   8.18.13.   TRIM                             400
   8.18.14.   IVERIF/VERIFY                    401
   8.18.15.   IRAD50                                402
   8.18.16.   R50ASC                           403
   8.18.17.   RAD50                                 403
  
   9.     (XM)               404
  
   9.1.                                     404
   9.1.1.    16-                         404
   9.1.2.              
              (28 )                         404
 
                             - 11 -
  
  
  
  
   9.1.3.                                   405
   9.1.4.    18-                         407
   9.2.                                 409
   9.2.1.                                   410
   9.2.2.                                   410
   9.2.3.                                       412
   9.2.4.       ()                414
   9.2.4.1.     ()                  415
   9.2.4.2.     ()                416
   9.2.5.     16-    
             18-                                  417
   9.2.6.                               418
   9.2.7.           
                                                 419
   9.2.8.                            421
   9.3.                                424
   9.3.1.                               424
   9.3.2.                 425
   9.3.2.1.                        426
   9.3.2.2.                         428
   9.3.2.3.            
              (PLAS)                              430
   9.3.3.                                430
   9.3.3.1.                              430
   9.3.3.2.                        435
   9.3.3.3.                
                                 438
   9.3.3.4.                      440
   9.4.                 441
   9.4.1.                          441
   9.4.2.             
                                          444
   9.4.3.                    445
   9.4.4.                  447
   9.4.4.1.   .SETTOP  XM-           448
   9.4.4.2.                         449
   9.4.4.3.    .SETTOP                  451
   9.4.4.4.    .SETTOP              452
   9.4.4.5.  .SETTOP              454
   9.4.4.6.  .SETTOP                    456
   9.4.4.7.   .SETTOP                           461
   9.4.5.                     463
   9.5.                   464
   9.6.                                     466
   9.6.1.                               466
   9.6.1.1.                           467
   9.6.1.2.   .RDBDF                           468
   9.6.1.3.   .RDBBK                           468
   9.6.2.                            469
   9.6.3.                                  470
   9.6.3.1.                              474
   9.6.3.2.    .WDBDF                 475
   9.6.3.3.    .WDBBK                 476
   9.6.4.                               478
   9.6.5.      /                  479
   9.6.6.                             480
   9.7.                      480
   9.7.1.      - .CRRG                      480
   9.7.2.      - .CRAW                         481
 
                             - 12 -
  
  
  
  
   9.7.3.        - .MAP            483
   9.7.4.      - .GMCX                 484
   9.7.5.       - .UNMAP              485
   9.7.6.      - .ELRG                    485
   9.7.7.      - .ELAW                       486
   9.7.8.                                        487
   9.8.                                         489
   9.8.1.       1             489
   9.8.2.                   490
   9.8.3.       2             490
   9.8.4.                        491
   9.8.4.1.   TRAP, BPT  IOT                    492
   9.8.4.2.   4, 10  FPU                           492
   9.8.4.3.                          493
   9.8.4.4.                            493
   9.9.                                     494
   9.10.                                    494
  
    1.    (TS)    498
  
  
    2.                  504
  
    2.   .
             
  
  
    3.   .
             
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 13 -
  
  
  
  
          1.     
  
  
  
  
              
   ,     ,   -
    ,  /  . .
  
            ,    
    ,     -
   .          
   ,   SYS.SL.  -
           
    .
  
                -
          -
      ' ,   -
    SYSLIB.OBJ.           
          32- -
     .   -
               
        .
  
               
       .
  
              -
      ,      
      ,  
   .
  
             -
        ,  
          ,
        ,  -
      (32 ) .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 14 -
  
  
  
  
                  2.  
  
  
  
  
             -
     (SYSMAC.SML)   '  -
    (SYSLIB.OBJ).
  
  
  
        2.1. 
  
  
  
               
      :
  
   RM-
          -        
             SJ-;   -
              ;
  
   SJ-
          -        
               ,  -
             /,   ,  
                ,      
             ;
  
   FB-
          -        ,
                 -
            ;     -
              ,    -
            ,        
            ,     
            ,    ;  -
             ,   SJ-,
              FB-;
  
   XM-
          -    ,  
                28   124  
            ( 4 K  /)   -
             ,   FB-;
  
   TS-
          -       
            ,   SJ-,   -
                   ,  
            ,    .,  
               " ",  -
                   
              ..;
  
    
          -    ,  
                 16-  ,
 
                             - 15 -
  
  
  
  
               ,   -
                  -
               .
  
             -
      .    -
       .
  
             -
        ,  
       .     
         340  377 ():
  
   377    - ;          
                  -
            ;
  
   376    -  ;      -
             ;
  
   375    -      ;
            R0    ;
  
   374    -         ;  R0
                 ,    
            -    0;
  
   360-373
          -  ;      -
             ;
  
   340-357
          -      
            /  R0.
  
  
        .  EMT     
   ,  .
  
  
  
        2.2. ' 
  
  
  
         '   (SYSLIB.OBJ)  
   ,   ,     
    .       
   ,    .
                
           
   .
  
         SYSLIB :
  
          -   /: ,  -
               ;     
                ;
  
 
                             - 16 -
  
  
  
  
          -        
             ( );
  
          -         -
             ( )  (   FB-  
            XM-);
  
          -   ;
  
          -    ,  -
              ;    -
              ;
  
          -    /,  
              ,  ,  ,
                 ;
  
          -      
               :      ,
                 
              /;
  
          -      (CSI)  
                 ;
  
          -    ,  
                ;
  
          -      INTEGER*4,
                    
               ;
  
          -           
             ;
  
          -      
                 ;
  
          -     .
  
  
        .      -
     , ..  
       , '  -
    VIRTUAL.
  
         IPEEK, IPOKE, IPEEKB, IPOKEB  /  ISPY
      , ,   
          -
   .        -
       :
  
          -     SYSLIB.OBJ   -
               ,        
            ,    . 
               IMPLICIT,  
                     
             ,       
                  SYSLIB.OBJ,      
 
                             - 17 -
  
  
  
  
                .  
                  -
             DOUBLE PRECISION ( REAL*8).  -
                    -
             ;
  
          -     ,      
                  -
             ""  (   ISCHED,
            ITIMER, IREADF  .),    -
             EXTERNAL ,     
            ;
  
          -   (   -
             )   SYSLIB.OBJ   -
              ,     
             USR.   OTS$I     
            2 K,     ,      
            SYSLIB.OBJ,   .  
            ,   USR    (
             "SET USR NOSWAP")   OTS$I  
            10000 () .    
             .PSECT     
              ;
  
          -  ()     
                    -
             ' ;
  
          -      -
               .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 18 -
  
  
  
  
                   3.   
  
  
  
  
             -
             "-
    ".      -
          
    EMT.      
    EMT    .
     " "  ,  -
      ,   -
    SYSMAC.SML,     ,      
    ,      '  
   SYSLIB.OBJ,     , 
     .
  
  
  
        3.1.    
  
  
  
              (.) 
            ,  
   .
  
             -
      , ..    
              
   ""   MOV.
  
          ,    ,
        .MCALL.   -
          
    SYSMAC.SML.
  
            :
  
             1) .PRGREQ   ARG1,ARG2,...,ARGN
  
             2) .PRGREQ   AREA,ARG1,ARG2,...,ARGN
  
               374,
       340-357.
  
         ,      EMT
   374,       R0.      
     ,    -  .
  
              340-357  
   (  )   ,  R0    R0,  
   TEKE.
  
             .
  
                 
   375.         (R)  
 
                             - 19 -
  
  
  
  
         .    
      . 1.
  
                     !--------!--------!
         R0 => AREA: !  CODE  !  CHAN  !
                     !--------!--------!
                     !      ARG 1      !
                     !-----------------!
                     !      ARG 2      !
                     !-----------------!
                     !      . . .      !
                     !-----------------!
                     !      ARG N      !
                     !-----------------!
  
                             . 1
  
          .     -
    AREA,  ,     R0.  
    - A  RG1  RGN,    -
           -
   .
  
        ,  :
  
                .PRGREQ   AREA,ARG1,ARG2
  
       ,  R0   
    .
  
         :
  
                .PRGREQ   AREA
  
          (  ),  
      (    )    .  R0
      .
  
         :
  
                .PRGREQ   ,ARG1
  
   ,  R0       -
   .      ,   -
     (  ).
  
         :
  
                .PRGREQ
  
   ,  R0    ,  
            
     .
  
          EMT    :
  
  
  
  
 
                             - 20 -
  
  
  
  
                MOV      #AREA,R0
                .PRGREQ
                . . .
    AREA:       .BYTE    CHAN
                .BYTE    CODE
                .WORD    ARG1
                .WORD    ARG2
  
    :
  
                .PRGREQ  #AREA,#ARG1,#ARG2
    
                MOV      #AREA,R0
                MOV      #ARG1,2(R0)
                MOV      #ARG2,4(R0)
                MOVB     #CHAN,@R0
                MOVB     #CODE,1(R0)
                .PRGREQ
  
                .
  
              
     ,           
            
   ( 375),     
   , .. ,     -
   .
  
  
  
        3.1.1.   "L"
  
  
  
               
       EMT.    -
            -
     :
  
    LABEL:      .PRGREQ   BLOCK,ARG1,...,ARGN
  
   
  
   RG1,...,RGN
          -     .WRD  .Y.
  
                 -
    EMT,    EMT   .
  
           ,  -
         :
  
  
  
  
  
  
  
  
 
                             - 21 -
  
  
  
  
    1)          .LL   .WRI,.DIR,.I
                .DIR     #WR
                S      RRR
                .EXIT
    RRR:      . . .
    WR:         .WRI   L,N,UF,WN,LN
                .ND
  
    2)          .LL   .WRI,.I
                MOV      #WR,R0
                .WRITE
                S      RRR
                .EXIT
    RRR:      . . .
    WR:         .WRI   L,N,UF,WN,LN
                .ND
  
    3)          .LL   .WRI,.I
                MOV      #WR,R0
                EMT      375
                S      RRR
                .EXIT
    RRR:      . . .
    WR:         .WRI   L,N,UF,WN,LN
                .ND
  
  
  
        3.1.2.   "S"
  
  
  
              -
         .
  
           ,    -
         $$$.
  
        .
  
             .LL   .WRI
             .PSECT   PROG
             .WRI   S,N,UF,WN,LN,SECT=PROG
  
             .S   $$$            ; 
          $$$ = .                       ; -
             .Y    N,D          ; 
             .WRD    UF,WN,LN    ;
             .PSECT   PROG              ;
             V      #$$$,R0           ;
                   375               ;
             BCS      ERROR
  
          "S"      
          
         (  -
    ).
  
  
 
                             - 22 -
  
  
  
  
        3.1.3.   "CODE"
  
  
  
              -
            .  CODE
      : SET -     NOSET
   -    .
  
        .
  
                .MCALL  .WRITE,.READ,.EXIT
                . . .
                .WRITE  #AREA,#CHAN,#BUF,#WCN,#BLOCKN
                . . .
                .WRITE  #AREA,CODE=NOSET
                . . .
                .READ   #AREA,CODE=SET
                . . .
                .WRITE  #AREA,CODE=SET
                . . .
                .EXIT
  
                
        ,    
    ,    .  -
            
    .
  
  
  
        3.1.4.  
  
  
  
                 
   ,    MOV. ,  -
        ,  -
    (#):
  
                .PRGREQ  #AREA,#6
  
         ,  -
   :
  
                .PRGREQ  #AREA,ADDR,R0
  
           ,     -
      .
  
            "BLOCK"  "PSECT" -
              .WORD  
   .BYTE.          -
       .
  
        :
        1.         
   ,  R0,    .  R0  
   ,  .     ,  
 
                             - 23 -
  
  
  
  
     ,  R0  .
        2.   R0        
   ,       
        .
        3.     . 
        (CSI).
  
  
  
        3.2.            '
             
  
  
  
          SYSLIB.OBJ    ,    
   ,  .   '-
        (SUBROUTINE),   
    (FUNCTION).         
     :
  
           I=NAME([ARGUMENTS])
  
        ,    ,      
      ,    -
    .         
     .
  
                CALL  
   :
  
           CALL NAME[(ARGUMENTS)]
  
          SYSLIB.OBJ        -
   ,       
    .
  
        :
  
           CALL  ITWAIT(TIME)
    
           I = ITWAIT(TIME)
  
             ,    
     ,         
     .
  
  
  
        3.2.1.                
               
  
  
  
               ,
       .    
     ,  , 
      .   -
           ,
          ,    
 
                             - 24 -
  
  
  
  
     .
  
            SYSLIB.OBJ  -
      :
  
           JSR PC,SUBR
  
          R5        ,
          -
   ,  -   ,  -  -
      .. (. 2).
  
                   ----------------------------
           R5 =>   I      0      I  I
                   I             I  I
                   I--------------------------I
                   I     1      I
                   I--------------------------I
                   I     2      I
                   I--------------------------I
                   I         . . .            I
                   I--------------------------I
                   I     N      I
                   ----------------------------
                             . 2
  
             CALL    -
      , :
  
           CALL  SUBR(X,,Y)
  
              -
      "-1".
  
             PC,  
      -  R5.     -
       .
  
            ' .
  
  
        .      -
     .
  
                -
      "RTS PC".
  
  
  
        3.2.2.            
                  
  
  
  
               
      ,    
    , :
  
  
 
                             - 25 -
  
  
  
  
           PROGRAMM     FORINT
           CALL         CALMAC
           STOP
           END
  
   CALMAC -     ,    
        .
  
            ,  
          -
       ,    -
      (OTS).
  
            CALMAC      
   MAXMIN,   .
  
            .TITLE  CALMAC
            .GLOBL  MAXMIN
    CALMAC::
            MOV     #ARGBLK,R5 ; . R5   .
            JSR     PC,MAXMIN  ;  MAXMIN
            RTS     PC
    I:      .WORD   28.       ; .  .
    J:      .WORD   78.       ; .  .
    ARGBLK: .WORD   2         ;  
            .WORD   I         ;   .
            .WORD   J         ;   .
            .END
  
                   
        .   
         "JSR  PC,AXMIN"  R5
                
   .
  
                   
    .      STAKEM  
    ,    CALMAC,    -
     .
  
            .TITLE  STAKEM
            .GLOBL  MAXMIN, STAKEM
    STAKEM: MOV     #J, -(SP)
            MOV     #I, -(SP)
            MOV     #2, -(SP)
            MOV     SP, R5
            JSR     PC, MAXMIN
            ADD     #6, SP
            RTS     PC
    I:      .WORD   28.
    J:      .WORD   78.
            .END
  
             ,    
     "RTS PC"   -
   .         -
       ,  ..      
     .     
      .
 
                             - 26 -
  
  
  
  
           ,     -
     MA   '  .
          -
    RETURN.      -
    .
  
            SUBROUTINE MAXMIN (IN1,IN2)
            INTEGER BIG, SMALL
            IF (IN1. LT. IN2) GOTO 10
            BIG=IN1
            SMALL=IN2
     5      TYPE 20, BIG
            TYPE 30, SMALL
            RETURN
    10      BIG=IN2
            SMALL=IN1
            GO TO 5
    20      FORMAT ('  :',I2)
    30      FORMAT ('  :',I2)
            END
  
            ,  
    CALMAC  STAKEM,    .  -
      :
  
      :78
      :28
    STOP --
  
  
  
        3.2.3.   SYSLIB.OBJ     
                
  
  
  
            JMUL    SYSLIB
    ,    .
  
        .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 27 -
  
  
  
  
            .GLOBL JMUL
             . . .
            MOV    #LIST,R5 ;  
            JSR    PC,JMUL  ;  
            CMP    #-2,R0   ; 
            BEQ    ERROR
             . . .
    LIST:   .WORD  3        ; 
            .WORD  OPR1
            .WORD  OPR2
            .WORD  RESULT
    OPR1:   .WORD  100,0    ;
    OPR2:   .WORD  10,10    ;
    RESULT: .BLKW  2        ;
            .END
  
              SYSLIB.OBJ  
        :
  
              GETSTR         IQSET         IASIGN
              IRCVDF         ICDFN         IREADF
              IFETCH         ISCHED        IFREEC
              ISDATF         IGETC         ISPFNF
              IGETSP         ITIMER        ILUN
              IWRITF         INTSET        PUTSTR
              SECNDS
  
         ,    
       SYSLIB.OBJ,    
           -
     SYSLIB.OBJ         
   .
  
                .
         -
    :
  
          -           
               R0;
  
          -   32-   -
                     R0  (
            )   R1 ( );
  
          -     
              R0 ( )    R1 (-
             );
  
          -           -  
             R0-R3,        
              R3;
  
          -     -   
            R0-R3:   R0 -     
            ;   R1  -    
             ;   R2  -    
             ;   R3  -    
             .
  
 
                             - 28 -
  
  
  
  
        .         
         -
   ,        . -
      ,     -
   ,       -
   .
  
        USR,    ,    
    ,    (    -
   )   2 K.         
     ,  ,
    .       -
       ,  ,  USR
           -
          . 
             '
      .    -
   ,   USR .
  
  
  
        3.2.4.                 
                       
                
  
  
  
                
   ,      -
   . ,  INIARR   
   ,       
    .
  
        .
  
            .TITLE  INIARR
            .GLOBL  INIARR
    INIARR: TST  (R5)+          ;  
                                ; 
            OV  (R5)+,R2       ;    R2
            OV  @(R5)+,R1      ; "IVAL"  R1
            OV  @(R5)+,R0      ;   R0
            BLE  RETURN         ; KOE,   <= 0
    1$:     V  R1,(R2)+       ;  
            DEC  R0             ;  
            BNE  1$             ;   
    RETURN: RTS  PC
            .END
  
             
    :
  
           CALL   INIARR  (IAR, IVAL, N)
  
    
  
   INIARR -  ;
  
   IAR    -   ;
 
                             - 29 -
  
  
  
  
   IVAL   - ,  ;
  
   N      -   .
  
         
     .   ' -
   .
  
         R5    . 
      INIARR,    
     . 3.
  
               ----------------
        R5 =>  !   O  !   3   !
               ----------------
               !    IAR  !
               ----------------
               !    IVAL !
               ----------------
               !    N    !
               ----------------
  
                   . 3
  
          R0  R4      ,
       .  -
    ,    R5.
  
                
      RTS PC.
  
             DOFOR -
     INIARR.
  
         PROGRAM  DOFOR
         INTEGER*2     ARRAY
         DIMENSION     ARRAY(2)
         N=2
         DO  20  IVAL = 1, 3
         CALL  INIARR   (ARRAY, IVAL, N)
         WRITE  (5,100) (ARRAY(I), I=1,N)
    20   CONTINUE
    100  FORMAT   (I3)
         STOP
         END
  
         ,      
   ,      -
     :
  
    1
    1
    2
    2
    3
    3
    STOP --
  
  
 
                             - 30 -
  
  
  
  
        3.2.5.              
               / 
  
  
  
               -
   ,    ,   -
          .  
        ,    
   FB/XM-,  .
  
            , 
     ,    
   .       RMON
    USR  KMON,     USR  KMON  
    .
  
           FRUN        
         USR,      
    USR  KMON    .    
              
          /BUFFER:N  
    FRUN (        SRUN),  
    ,         
   .       .
  
                 4  
     USR  KMON.       
    KMON.
  
           USR    ,  
      2      2   
    .  ()  -
    2  ,       '  
    2 ,      '  4
      USR  KMON.
  
               -
    () ,    FRUN
   (SRUN),    , -
       ,   :
  
           X = 0.5*(440+(33*N)+(R-136)+A*512)            (1.1)
  
   
  
         -        -
             ;
  
   N      -     /;  -
              /UNITS:N     ;
              N=6;
  
   R      -      
               /;      
            /RECORDS:R   ;   
            R=136;
  
   A      -          
 
                             - 31 -
  
  
  
  
            /;      "A"  -
              2.
  
             '  
      .
  
          IQSET      -
   ,          
     ( ):
  
           X =  + (10* )                    (1.2)
  
          ICDFN      -
   ,          
    :
  
           X =  + (6* )                     (1.3)
  
          INTSET     -
   ,       -
      INTSET,   :
  
           X =  + (25*INTSET)                           (1.4)
  
                   '    
   SYSLIB.OBJ,   INTSET     -
    ,     64  (OE)  
     ,       
     (    68  ).  
        /R      
    ( /RECORDS   FORTRAN).  
    /R  ,       
   132 (OE) :
  
           X =  + (64+R/2)                              (1.5)
  
                
     OTS    ,    
       FRUN (SRUN)     /BUFFER
          ,  
    :
  
                 ?ERR 0, NON FORTRAN ERROR CALL
  
             ,   
            -
          SJ-
        .   -
       .   -
              
    FB/XM/TS-.
  
               -
   ,          -
   .
  
          BACK  :
  
  
 
                             - 32 -
  
  
  
  
            PROGRAMM BACKGROUND
            IMPLICIT INTEGER (0)
            CALL IPOKE ("44,"10000.OR.IPEEK ("44))
    100     CALL PRINT ('   ')
            ICHAR=ITTINR ()
            OCHAR=ITTOUR (ICHAR)
            GOTO 100
            END
  
            "    
   "        -
     .
  
          FORE  :
  
            PROGRAM FOREGROUND
            IMPLICIT INTEGER (0)
            CALL IPOKE ("44, "10000. OR. IPEEK ("44))
    100     CALL PRINT ('   ')
            ICHAR=ITTINR ()
            OCHAR=ITIOUR (ICHAR)
            GOTO 100
            END
  
                           
   LINK/FOREGROUND.     -
    .REL,          
   . :
  
               .LINK/FOREGROUND FORE
  
        :
  
               .FRUN FORE
  
    :
  
               ?ERR 62 FORTRAN START FAIL
  
         ,     
             /BUFFER  (.   
   1.1-1.5).        -
   ,  :
  
               .FRUN FORE/BUFFER:760
  
                
     :
  
    F>
       
    B>
    .
  
         F>   ,      
    . ,   B>    ,
   ,        -
   .         .
    :
 
                             - 33 -
  
  
  
  
               .RUN BACK
  
       :
  
       
  
                  -
      CTRL/F.      F>,
         . -
    , , "Y",       
    .
  
    F>
    Y    
  
         CTRL/B            
   CTRL/C      .  -
     ,    
   ,      
   .
  
                 
    .
  
  
  
        3.2.6.            '
                  
  
  
  
           SYSLIB.OBJ    
        . -
   :
  
                   .LINK PROG
  
  
        .        -
    SYSLIB.OBJ, ..      -
   .
  
        ,          
        , -
     OTS A.
  
               FORLIB.OBJ      
   SISLIB.OBJ   :
  
                   .LIBRARY/INSERT/REMOVE SISLIB FORLIB
                   GLOBAL? $OVRH
                   GLOBAL?
  
  
  
  
  
  
  
 
                             - 34 -
  
  
  
  
                  4.    
  
  
  
  
           E   -
    ,      '
   .
  
  
  
        4.1.  
  
  
  
           ,   -
      .
  
  
  
        4.1.1.  
  
  
  
          -      
      ,  .  -
      0  377 ().  -
               -
       .   -
             ,  
     .
  
                 16
   .     , -
       .
  
  
  
        4.1.2.  
  
  
  
          -   ,  
          ,
         .RD50.
  
                 
   .    -    (  
   6 ),  -  .
  
              , -
       .
  
        ,      ,      
   Z.   D:,    -
   :
  
  
  
 
                             - 35 -
  
  
  
  
           .RD50   /D/
           .RD50   //
           .RD50   /Z/
           .RD50   /MAC/
    
           .RD50  /D Z /
    
           .DBLK   DK,POKAZ,MAC
  
               -
   ,         .  
       .DBLK.
  
  
  
        4.1.3.  USR
  
  
  
           ,      -
        USR,        
    .
  
           ,    USR,
       USR.    ,  
   ,   ,    
     USR,     -
     .  ,  USR  ,  
    ,   USR  ,   -
   ,     , -
       USR.
  
             USR  
        .
  
         ,       .CLOSE  
      ( ,  -
     ..)     USR    
    .
  
        USR        
            
    . ,    USR  -
     ,    ,    USR,
     .
  
            ,   -
      USR,   ,  -
       USR,    
   SWAP.SYS   ,  USR    -
    .       ,
        SWAP.SYS.
  
          /TS- USR  .
  
            ,   -
           ,    
      :
  
 
                             - 36 -
  
  
  
  
          -      .S -
              ,      
             USR,    USR  -
              ();
  
          -    USR      46  
                  -
             ,          
                USR.    
             46  0, USR    
            ;
  
          -  374     
             USR       -
                      
            ,   .
  
        :
        1.      -
    ,      .
        2.   46 ,      
   .
        3.   ,      -
    USR,      USR
     46.      -
       USR      .
     ,   USR    (  USR
      "S USR NSW").
        4. RM/SJ-     
      46.        
    ,  .
        5.  ,    USR      
    ,         USR,  
    /,      ,    
   ,    USR.
  
  
  
        4.1.4.  
  
  
  
            -    
   ,    /.  
     R0    , R1 -   -
   ,    .  "" .  
   FB/XM/TS-        
   ,         .      
   RM/SJ- - .
  
              -
     :
  
          -    ,  
            USR,     ;
  
          -      ,  -
              USR;
  
 
                             - 37 -
  
  
  
  
          -       -
               RS ;
  
          -   ,    R0    R1,  
                    -
            ,    .
  
  
  
        4.2.  ' 
  
  
  
            ,  
        ' -
   ,  ,      
    .
  
  
  
        4.2.1.  
  
  
  
             
     ,      .  
   ,        ,
        .    
        .
  
        OTS A  16 ()    
    .  IGETC    
          /,    
   .         
    CLOSEC, ICLOSE  PURGE.  
      B    /    
   IFREEC.
  
         ISDFN    255 (-
   ) .        
            .
    ICDFN        
   .  /    
   0  15 (),        
      .
  
                
   .        -
   ,         
   /   ISCHED  ITIMER.
  
  
  
  
  
  
  
  
  
 
                             - 38 -
  
  
  
  
        4.2.2.  
  
  
  
              -
      RAD50,    -
      .      
      :
  
   1)    DIMENSION  DATA.
  
        DIMENSION      IFILE (4)
        DATA           IFILE     /3RSY, 3RFIL, 3RE, 3RXYZ/
  
   2)         
      RAD50,    SYSLIB,    
   IRAD50, R50ASC,  RAD50. :
  
        REAL*8   FILSPC
        CALL     IRAD50    ( 12, 'SY FILE  XYZ', FILSPC )
  
   3)   SYSLIB,   ICSI,    -
        (CSI)   
       .
  
  
  
        4.2.3.  USR
  
  
  
               -
     USR. USR   2  .    USR  
   ,      SYSLIB,  
   USR (  IENTER  LOOKUP),   USR 
   OTS ,    . OTS   -
     ,  USR     .
  
            
      ,      
     USR.      
     ,  .  
        '    
      .
  
  
  
        4.2.4.   USR
  
  
  
           USR,   MON:
  
           SET USR NOSWAP
    
           SET USR SWAP
  
         "SET USR NOSWAP"   USR   -
          RMON      .
 
                             - 39 -
  
  
  
  
    "SET USR SWAP"   USR.
  
                 2  
    ,       
   FORTRAN/NOSWAP.  O    USR
            
     RMON.   /NOSWAP    ,
   USR  2      1000  (-
   )   11000  (),    
        
     USR.
  
               
   USR    LOCK, UNLOCK  ITLOCK.
  
         LOCK  USR  ,      
    .  UNLOCK  USR  -
           .  
   ITLOCK      USR -
    .  ,  ITLOCK      
    .    ,    
   ,   .  LOCK    UNLOCK
             
          ,  
         .
  
  
  
        4.2.5.   USR
  
  
  
                ,   
   '          (PSECT),
      .  ,      
   PSECT,  ,    
            ,
            
    .
  
               
   ,     .   -
       :    
      (,    ),  -
    ,  .
  
              ( - -
    '        '
   )  '        
   :
  
  
  
  
  
  
  
  
  
 
                             - 40 -
  
  
  
  
    -----------------------------------------------
            !          
    -----------------------------------------------
        OTS$I        !      RW, I, LCL, REL, CON
        OTS$P        !      RW, D, GBL, REL, OVR
        SYS$I        !      RW, I, LCL, REL, CON
        USER$I       !      RW, I, LCL, REL, CON
        $CODE        !      RW, I, LCL, REL, CON
        OTS$O        !      RW, I, LCL, REL, CON
        SYS$O        !      RW, I, LCL, REL, CON
        $DATAP       !      RW, D, LCL, REL, CON
        OTS$D        !      RW, D, LCL, REL, CON
        OTS$S        !      RW, D, LCL, REL, CON
        SYS$S        !      RW, D, LCL, REL, CON
        $DATA        !      RW, D, LCL, REL, CON
        USER$D       !      RW, D, LCL, REL, CON
        .$$$$.       !      RW, D, GBL, REL, OVR
    .  COMMON !      RW, D, GBL, REL, OVR
  
  
        USR   ,     -
         ,    
        USR.   -
           -
   . USR     OTS$I, OTS$P,  SYS$I,
   USER$I  CODE.          
     OTS$I.  46    -
    ,     USR.   
   46  ,  USR   2      
   RMON.
  
  
  
        4.2.6.  USR  
  
  
  
            USR,      -
    ,        
   USR.        .    
          -
     ,       .
          -
     :
  
          -        ,
                 ;
          -      
                  
            ,          
             ;
          -          
            USR;
          -     ITLOCK       
            SYSLIB,   USR,    USR    
            .
  
                :  
   ,          
 
                             - 41 -
  
  
  
  
        ,   -
    ,      /
     ,  ,    -
           -
    .        
          USR
      .    -
    USR,   USR      
       /    
    .
  
  
  
        4.2.7.   INTEGER*4
  
  
  
            INTEGER*4  
      :       
   ,    -       .
       -(2**31)+1  (2**31)-1.
  
              -
    ,      -
       ,    -   .
    JJCVT      
   .
  
                 INTEGER*4
     DATA,      -
   ,    .    
    3   INTEGER*4.
  
        .
  
           INTEGER*4 J
           INTEGER*2 I(2)
           EQUIVALENCE (J,I)
           DATA I/3,0/
  
              -
    3   INTEGER*4.
  
        .
  
           INTEGER*4 J
           DATA J/3/
  
            INTEGER*4 -
     (, -4)      (  )
               
    .
  
        .
  
           INTEGER*4 J
           INTEGER*2 I(2)
           EQUIVALENCE (J,I)
           DATA I/-4,-1/
 
                             - 42 -
  
  
  
  
              -
       INTEGER*4:
  
           INTEGER*2 J(2)
           DATA J/3,0/
  
  
  
        4.2.8.    
                
  
  
  
              
   :
  
         IRCVD/IRCVDC/IRCVDF/IRCVDW
         IREAD/IREADC/IREADF/IREADW
         ISCHED
         ISDAT/ ISDATC/ISDATF/ISDATW
         ISLEEP
         ISPFN/ISPFNC/ISPFNF/ISPFNW
         ITIMER
         ITWAIT
         IUNTIL
         IWRITC/IWRITE/IWRITF/IWRITW
         MRKT
         MWAIT
  
              -
   .           
        .  -
              
     IQSET.
  
           TS-    
          .
  
  
  
        4.2.9.  B
  
  
  
               
     .
  
          -    ,  
          
          
   ,     /    
     .      
           -
     .     -
         .
  
                
   RM/SJ-   FB/XM/TS-.    RM/SJ-
             
 
                             - 43 -
  
  
  
  
    .  FB/XM/TS-   
     ,      "-
     -  ".
  
                 
     RETURN    END.      
      '   EXTERNAL -
     ,   .
  
         ,     ,
       , :
  
             SUBROUTINE    CRTN  [(IARG1, IARG2)]
  
   
  
   CRTN   -   ;
  
   IARG1  -  R0     
              ;
  
   IARG2  -  R1     
              .
  
                  ,
            
   .      -
         . 
          
   .
  
         ,   
   :
  
           INTSET      ISDATF      IRCVDC
           ISPFNC      IRCVDF      ISPFNF
           IREADC      ITIMER      IREADF
           IWRITC      ISCHED      IWRITF
           ISDATC      MRKT
  
          :
  
          -   ,   
             ,    -
            ,     ;
  
          -           IGETC  
              IFREEC   -
            ;     
                    COMMON;
  
          -           
            ,   USR;
  
          - ,        ,
                    -
            ;          /,
                 -
            ;          
 
                             - 44 -
  
  
  
  
             ,       
                    
             (   )  
            ISAVES;     
                    
                  IREOPN;      
                 
            ,        /  
               OTS A,    -
                   -
            ;      
            CLOSE    ;
  
          -   ,    
            ;     -
                  -
                 ,  
                  ;
  
          -  RM/SJ-    
                  .
  
  
  
        4.2.10.     
  
  
  
                 ,
      ' ,  -
       .
  
                LOGICAL*1,  
     .     -
                
           (
   ASCIZ).
  
                -
       ,      ,
      .    32767
   () .     -7
      1  127 ().
  
             -7 
          /  
   "A",      ENCODE/DECODE.  ,  
     ' , 
        ,  , -
     ,         
    CALL.       
         ,  
   ,   (LOGICAL) ,    
     FALSE.
  
         ,       
   ,     ,   -
    (SUBROUTINE)       
       .    -
 
                             - 45 -
  
  
  
  
   ,       ,
      LEN.    -
    ,   LEN   -
      .  ,   -
   ,   ,   ,    
    LEN  1.
  
           LEN     -
     ERR,     -
   .  ERR     ,  
        FALSE  
            -
    LEN  ERR,   LEN  
       ,   -
    ERR    TRUE.   LEN
        ,   
   ERR  .
  
         LEN  ERR    -
   .  LEN    ,    
   ERR -    LEN.
  
                .
        ,  
       ,  -
      .     
   ,  .
  
                LOGICAL*1  
         ,    
           ,  
      . :
  
              LOGICAL*1 A(45)
  
    "A"        44
     .
  
        2-   LOGICAL*1,    
       .    -
            -
       LOGICAL*1.   
    ,       -
      LOGICAL*1. :
  
           LOGICAL*1 W(21,10)
  
            "W"  10  ,  
          20  .    
    "I"  "W"        
      W(1,I).
  
                  
   :
  
           LOGICAL*1 T(14, 5, 7)
  
           "T"       
     13 .    "I,J"  
 
                             - 46 -
  
  
  
  
       T(1,I,J).     ,  
   "T"   ,   T(1,1,1).      
         -
       (    
    LOGICAL*1).
  
          LOGICAL*1,  ,  -
      COMMON      ,
       COMMON. ,   -
     LOGICAL*1    COMMON    ,  
        ,   
     COMMON    .
  
          LOGICAL*1        
   ,     .
  
           COMMON     ,
          ,   
    ,      .  -
   :
  
           COMMON A1,A2,A3(10),H(21)
  
   
  
           COMMON A1,A2,H(21),H1(7),A3(10)
  
         
      LOGICAL*1.
  
              -
           -
   .         
         . -
   :
  
           LOGICAL*1 A(21)
           CALL SUBR(A)
  
              
          -
        ,    
      '      
   LOGICAL*1  ,  1, :
  
           LOGICAL*1 ARG(1)
  
          
      ARG  ,     -
   ,          
   .           
        (   
      COMMON).    -
     ,       
       ,      -
    .
  
        ,   ,    
        ,  -
 
                             - 47 -
  
  
  
  
      CALL.      -
     ,    . -
   :
  
           CALL SCOMP(NAME,'FREE CORE',M)
  
         NAME    
    "FREE CORE"    -
      M.
  
  
  
  
                          5. 
  
  
  
  
                
      ,        
   .       
   :
  
          -      ;
  
          -    (  52      
            );
  
          -     .
  
              -
    ,      1,  -
           
      S,        
    .
  
           ,  52   -
      .    52  
       .    
      ,    .
  
          ()   
       , 
      .  
    ,    -
    .SRR.
  
              "  
    ", 2//.00109-01 94 01.
  
  
  
  
  
  
  
  
  
  
 
                             - 48 -
  
  
  
  
                      6.  
  
  
  
  
                  
        ,  
     .     -
              
   ,       
    ()  .
  
                 
      (   -
   )   '  (  
     ).
  
  
  
        6.1.   
  
  
  
         40-57 ( )    
     (SYSCOM).      
     ,    .   -
       ,      .  
       ,   -
    ,      
   .       (
   ,  )    . -
           -
      (..     -
   )           
   .         -
    .
  
     40,41 (USR)
          -   .      -
                  .  
                 FRUN  
              ,    -
              .
  
     42,43 (USRS)
          -       .    
                 
             .S.    1000 (-
            )      .S.  
                 ,
                   128  ()
                   FRUN
               .    
                 .
  
     44,45 (JSW)
          -   .    -
                ,      
              .
 
                             - 49 -
  
  
  
  
     46,47 (UFL)
          -   USR.   ,    0,
                     
                .     
              USR.       0,  USR
              ,      
            266 RN.
  
     50,51 (USR)
          -   .      
              ,   -
              .   -
             .    -
              .S.
  
     52 (RRY)
          -   .       
                 -
               ,      -
             (PS)   .   
                 .
  
     53 (USRR)
          -   .    
                     
                   
            .     .
  
     54,55 (SYSR)
          -   RMON.     -
                      
            ( 56 K).      
                RMON. 
               .
  
     56 (FILL)
          -      -
            -    .
             56      -7,  
               -.
  
     57 (NFIL)
          -     .         -
                 -
            .   56  57  0,    
             .
  
  
        .  52      
   ,    , ..  53   
     .
  
  
  
  
  
  
  
  
 
                             - 50 -
  
  
  
  
        6.1.1.    (USERRB)
  
  
  
             (KMON) -
        .  
          ,
           53  (USERRB),  
   KMON      ()    
       .    ,  
         .   -
    ,      
       .
  
            :
  
   SUCCESS
          -  ;     -
            ,      ;
  
   WARNING
          -   ;      -
            ,          
             ,     -
             ;
  
   ERROR  - ;    ,      
              -    ;    
               ,   -
              ,       
             ; ,     -
                 ,   '
              ,     -
             ;
  
   SEVERE ERROR
          -  ;   ,   -
                 ;   -
               ,   -
            ,       -
            ;  ,       
                 -
             ;
  
   FATAL ERROR
          -  ;   ,   
               ,   
             .
  
           KMON   
            
     .    
   ,       -
    .  .  1        ,
         53.
  
  
  
  
 
                             - 51 -
  
  
  
  
                                                    1
    ----------------------------------------------------------
           !  !         !
      !     !      !       
       ! (- !   !           
           ! )  !         !
    ----------------------------------------------------------
       0   !     1    ! SUCCESS ! ?PROG-I-TEXT  
       1   !     2    ! WARNING ! ?PROG-W-TEXT
       2   !     4    ! ERROR   ! ?PROG-E-TEXT
       3   !    10    ! SEVERE  ! ?PROG-F-TEXT
       4   !    20    ! FATAL   ! ?PROG-U-TEXT
  
  
        .  5-7     
     .        
    53,            
     BISB.   
        53      
        .USBDF.      
          ,    
          .
  
  
  
        6.1.2.    (JSW)
  
  
  
         44  45      (JSW).
       JSW. ,  "*", -
               
   . ,    "+",    
     ( ),    ,  
   "*+",     ,      
   .
  
   15 (USW$)
          -   USR (   SJ-).  -
             ,  USR .
  
   14*+ (L$)
          -    .      ,  
             .    
              ,       
                 
                .
  
   13*+ (RSR$)
          -  .  ,   
                REENTER   ,
                 .
  
   12*+ (S$)
          -   .      
                  12  JSW.
          -   ,       
              :
                 -      -
 
                             - 52 -
  
  
  
  
                    (-);
                 -        
                             
                   <CTRL/U>  <DEL> ;
                 -      
                        -
                    <CTRL/Z>, <CTRL/C>, <CR>  <LF>;   
                          
                    .
          -   ,     -
             :
                 -         -
                        ,      <CTRL/C>   
                   <CTRL/O>;
                 - <CTRL/U>  <DEL>      -
                   ,        
                   ;
                 -     
                   ,      -
                    .
  
   11+ (NIF$)
          -   .     -
            ,       -
             .        -
               (    -
            )   FB/XM-.
  
   10+ (VIR$)
          -         (      -
            ).       -
             .        
              (  JSW -
              .ASECT),   -
              '    -
                    PAT
             SIPP .
  
   9 (VLY$)
          -   .    -
                .
  
   8+ (IN$)
          -         .
                    -
            ,       
              .CHAIN     500  
            777          -
                     
            .      
                        (
            ).      -
              JSW     -
             .CHAIN,        500   777
                (..    
                 -
             R  RUN).
  
  
 
                             - 53 -
  
  
  
  
   7*+ (LR$)
          -      /  (  
            SJ-).        
                     
            /,     .
  
   6*+ (I$)
          -    /    
             (  FB/XM/TS-).  
            ,      
              .      -
                ,    
              .
  
   3*+    -       .GTLIN.
               .GTLIN    
              ,     -
             .      
              LINK, DUP, SRCCOM  LIBR.   -
            ,      
            ^C. ,     
              ^C    :
  
                 RUN LINK
                 TEST,TEST=MOD1,LIB/I
                 ^C
  
         5,4,2,1,0    .
  
  
  
        6.2.          
             
  
  
  
         ,        ,
           RMON.  
        . 
           -
        .GVAL.
  
            RMON.    
             
   .
  
   266 (USRLC, 2)
          -    USR.   -
               USR        ,
              46        0.
                     
                     
             USR ( FB/XM-).
  
   270 (QCOMP, 2)
          -                
            /   .
  
  
 
                             - 54 -
  
  
  
  
   272 (SPUSR, 2)
          -    ,   -
                    ,  
                .
  
   274 (SYUNIT, 2)
          -     ,  
              .
  
   276 (SYSVR, 1)
          -   () .
  
   277 (SYSUD, 1)
          -   .
  
   300 (CONFIG, 2)
          -     .       
                      
                 . 
            370     .
  
   302 (SCROLL, 2)
          -    () -
                -7300  (   )   (   
            SJ/FB/XM-).
  
   304 (S, 2)
          -         
             (  SJ/FB/XM-).
  
   306 (, 2)
          -         
             (  SJ/FB/XM-).
  
   310 (S, 2)
          -       -
             (  SJ/FB/XM-).
  
   312 (T, 2)
          -       -
             (  SJ/FB/XM-).
  
   314 (L, 2)
          -   ,   -
             .NR,    LEN   0.  
                177777, ..  -
                 .    
                     -
                 SIPP.
  
   320 (CNTXT, 2)
          -     ,  -
                            (     
            FB/XM-).
  
   322 (JOBNUM, 2)
          -           (    
            FB/XM/TS-).
  
 
                             - 55 -
  
  
  
  
   320 ($TIME, 4)
          -   (  SJ-).
  
   324 (SYN, 2)
          -     -
             .SYN (  SJ/FB/XM-).
  
   326 (LOWMAP, 24)
          -       ( 0 
            476) (  SJ/FB/XM-).
  
   352 (USRLOC, 2)
          -         USR.    
            ,  USR      .    USR
                 ,     -
                USRBUF.      
                       
                USR.  (  
            SJ/FB/XM-).
  
   354 (GV, 2)
          -       
             -7300 (-).     320.
            (  SJ/FB/XM-).
  
   356 (ERRCNT, 2)
          -       .  -
                .  
             . (  SJ/FB/XM-).
  
   360 ($S, 2)
          -     -
             .S.
  
   362 ($FS, 2)
          -     -
             .FS.
  
   364 (SYINDX, 2)
          -         
             .
  
   370 (NFG2, 2)
          -       .  
                 -
               .
  
   372 (SYSGN, 2)
          -    .
  
   374 (USRR, 2)
          -  USR  .    
                    ,
               USR.
  
   406 (MONAME, 4)
          -            (
             RAD50),   .
  
 
                             - 56 -
  
  
  
  
   412 (SUFFIX, 2)
          - ,     RADIX-50 (-
             ),     -
               .
  
  
  
        6.2.1.    (NFIG)
  
  
  
           CONFIG ( 
    300)     
      .
  
                  
   CONFIG (  ,   ,   
        ).    
      .
  
   0 (FBMON$)
          -    FBMON$=0      FJOB$=0,        
            RM/SJ-.
          -  FBMON$=1  U$=0,   FB-.
          -  FBMON$=1  U$=1,   XM-.
          -  FBMON$=0  FJOB$=1,   TS-.
  
   2 (WDS$)
          -        -7300
            (-).
  
   5 (L50$)
          -  L50$=1,       
             50.
          -  L50$=0,       
             60.
  
   6 (HWFPU$)
          -         (
            -1420).
  
   7 (FJOB$)
          -          
            .  TS- FJOB$=1.
  
   8 (GLN$)
          -    (  G
            N).
  
   9 (USR$)
          - USR       (-
              "S USR NSW").
  
   10     -    QUEUE.
  
   11 (LSI$)
          -      -
              " - 60" (  
             ).
 
                             - 57 -
  
  
  
  
   12 (U$)
          -  -.
  
   13 (LS$)
          -    .
  
   14 (W$P)
          -     
            .
  
   15 (L$)
          -     .
  
  
  
        6.2.2.         
                (NFG2)
  
  
  
            (-
     370)        
       .        
    .
  
   0 ($)
          -            -
            .
  
   1 (Y$)
          -          
             ( ).
  
   2 (SWRG$)
          -      (  -
            ).
  
   3 (LIG$)
          -     ( ).
  
   8 (IS$)
          -           
            (IS).
  
   9 (V6$0)
          -           
            -2,    .
  
   14 (Y70$)
          -   22-   -
             .
  
   15 (Y60$)
          -    -
             .
  
  
  
  
 
                             - 58 -
  
  
  
  
        6.2.3.         
               (SYSGN)
  
  
  
             
    ,    .   -
       .
  
   0 (RL$G)
          -           (
            )   .
  
   1 (G$T)
          -    .
  
   2 (I$I)
          -           
            .
  
   3 (TSG$T)
          -      -
               TS-  (XM-  -
              ).
  
   9 (Y$)
          -    .
  
   10 (IR$)
          -     SJ-.
  
   13 (MTTY$)
          -                 
            SJ/FB/XM-.
  
   14     -      FB/XM-.
  
  
        .         -
    ,     -
     .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 59 -
  
  
  
  
                  7.  
  
  
  
  
              ,  
      ,   
    ,        -
   .
  
                  
        :
  
          -    ;
          -   /;
          -    ;
          -    ;
          -    ;
          -   ;
          -     (FB/XM);
          -      -
            ;
          -    ;
          -      .
  
            , 
     TS-:
  
          - ;
          -  ;
          -  ;
          -  ;
          -   ;
          -  ;
          -  .
  
  
  
        7.1.   
  
  
  
          ,     ,
    USR,    -
   ,    ,  
    .       ,  
         ,  
        .
  
                
   ,         
      .
  
  
  
  
  
  
  
 
                             - 60 -
  
  
  
  
        7.1.1.  .LS
  
  
  
          .LS     -
     ( )       
      .
  
         :
  
           .LS   N
  
   
  
   CHAN   -  ,   .
  
          R0:
  
                     !--------!--------!
         R0 =        !    6   !  CHAN  !
                     !--------!--------!
  
  
             N    ,  
   .
  
         .LS   , 
      .ENTER.      
         ,  -
     ,     -
      (, ,   ).        
     ,     ,  -
    .
  
                  
    ,    ,   -
        .
  
         ,    .LS,  -
      .
  
             .CLOSE  
      USR. , ,    
   .LU,          
    .CLOSE,      -
    USR.
  
         .CLOSE      -
       .
  
        :
  
                        
  
            -3        
                      .
  
  
  
 
                             - 61 -
  
  
  
  
        .  ,     -
       ,  
   .
  
              .SPFUN  (.
   7.2.7).
  
  
  
        7.1.2.  .DL
  
  
  
         .DL         -
     .   ,   -
               
    .         
   .
  
         :
  
           .DL   R,N,DL,SGNU
  
   
  
   R   -       ;
  
   CHAN   -  ;
  
   DBLK   -  ;
  
   SEGNUM -      ,    
             ,    0.
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !    0   !  CHAN  !
                     !--------!--------!
                     !      DBLK       !
                     !-----------------!
                     !      SEGNUM     !
                     !-----------------!
  
  
         .DL ,     -
      .
  
         ,  ,   -
         .
  
  
        . ,     ,  
    .        ,
    .
  
  
  
 
                             - 62 -
  
  
  
  
        :
  
                         
  
             0      ;
  
             1          ;
  
             2      
                     ;
  
             3        .
  
        .
  
           .MCALL  .LOOKUP,.EXIT
           .MCALL  .DELETE,.PRINT
            ERRWD = 52
  
   ST:     .LOOKUP #AREA,#3,#FILE1    ;  
            BCS    NLO                ; 3
           .PRINT  #MSG1
           .DELETE #AREA,#3,#FILE1    ; 
            BCS    NDE1
           .PRINT  #MSG2
           .EXIT
    AREA:  .BLKW   10
    FILE1: .RAD50  /SY ABC   /
           .RAD50  /TXT/
    NLO:   .PRINT  #NOLO
           .EXIT
    NDE:   .PRINT  #NODE
           .EXIT
    NDE1:  .TSTB   @#ERRWD     ;  
            BNE    NDE
           .PRINT  #NODE1
           .EXIT
    NODE:  .ASCIZ  /  /
    SG1:  .ASCIZ  / /
    NOLO:  .ASCIZ  / LOOKUP/
    NODE1: .ASCIZ  / /
    MSG2:  .ASCIZ  / AB.TXT /
           .VEN
           .END    ST
  
  
  
        7.1.3.  .ENTER
  
  
  
         .ENTER     
      .     -
     .
  
                 
    .CLOSE.      
    ,   ,        -
     .          
 
                             - 63 -
  
  
  
  
    .CLOSE.
  
           .ENTER R0   -
      ,   . 
     ,  R0  0.
  
         :
  
           .ENTER   AREA,CHAN,DBLK,LEN,SEGNUM
  
   
  
   AREA   -    EM   ;
  
   CHAN   -  ;
  
   DBLK   -  ;
  
   LEN    -  ,       
            :
  
            0    -   1/2    
                   ,      
                    ;
  
            M
                 -   ""  ;    ""
                    ;
  
            -1   -     ;
  
   SEGNUM -       ;  
             ,   ;  -
                   -
              :
  
            0    -     ,  
                   ,          
                          -
                              
                   (LEOT);
  
            N    -      
                         "N";  
                   :  "N" ,   ""
                   ( ,     
                     ),    
                       LEOT;    "N"  
                   "",      -
                   ,     ;  -
                   ,  "N"       "",
                         
                    ("N"-) ;
  
            -1   -    LEOT   ;
  
            -2   -       -
                       ,      
                        LEOT.
 
                             - 64 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !    2   !  CHAN  !
                     !--------!--------!
                     !      DBLK       !
                     !-----------------!
                     !      LEN        !
                     !-----------------!
                     !      SEGNUM     !
                     !-----------------!
  
            "LEN"    -
    .NTER   ,    -
     , ..,     -
       200 ,   ,
    , 150 ,     
   LEN=0  ,  ..    .ENTER  
     100  .          
   /. ,     LEN=150 -
      150 ,       -
   .         
      ,   ',  -
   , DX:.
  
  
        .  .ENTER ,  
         . 
     .ENTER, ,    
   .FETCH.
  
        :
  
                         
  
             0      ;
  
             1       M 
                     "LEN"  
                   ,    "LEN", 
                      .
  
             .WRITW (-
    7.2.5.3).
  
  
  
        7.1.4.  .RN
  
  
  
                 
   .          -
   ,   .
  
         :
  
           .RN   R,N,DL
  
 
                             - 65 -
  
  
  
  
   
  
   R   -       ;
  
   N   -  ;
  
   DL   - ,    
            ,      
             ,     , -
             -   .
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !    4   !  CHAN  !
                     !--------!--------!
                     !      DBLK       !
                     !-----------------!
  
  
         .RENAME     -
    ;     .
  
  
        .    .RENAME    CHAN  
   .
  
        :
  
                     
  
             0       ;
  
             1        ;
  
             2       
                      ;
  
             3          
                      .
  
            DATA.TMP  DX0: -
      DATA.CNT.
  
        .
  
           .MCALL  .FETCH,.PRINT,.EXIT,.RENAME
    ST:    .FETCH  #HSPACE,#NAMBLK    ;  DX
            BCS    FEER
           .RENAME #AREA,#0,#NAMBLK   ; 
            BCS    RENER
           .EXIT
    FEER:  .PRINT  #FMSG
           .EXIT
    RENER: .PRINT  #RNMSG
           .EXIT
    AREA:  .BLKW    2               ;.  
    NAMBLK:.RAD50  /DX0DATA  TMP/   ; 
 
                             - 66 -
  
  
  
  
           .RAD50  /DX0DATA  CNT/   ; 
    FMSG:  .ASCIZ  / .FETCH/
    RNMSG: .ASCIZ  / .RENAME/
           .VEN
    HSPACE = .
           .END    ST
  
  
  
        7.1.5.  .LOOKUP
  
  
  
         .LOOKUP      -
    /     /.
            ,  
      :
  
           .CLOSE
           .SAVESTATUS
           .SRESET
           .HRESET
           .PURGE
           .CSIGEN (     0-10)
  
         :
  
           .LOOKUP   AREA,CHAN,DBLK[,SEGNUM]    ( 1)
           .LOOKUP   AREA,CHAN,JOBBLK[,SEGNUM]  ( 2)
  
   
  
   AREA   -       ;
  
   CHAN   -  ;
  
   DBLK   -  ;
  
   SEGNUM -          ;
              ,     -
              0;     -
               :
  
            -1   -         ;
                         ,  
                       -
                   ,     -
                   ,   ,     
                   "EOF";
  
            0    -       
                      ,       
                      LEOT;
  
            N    -     ;    
                          -
                    "N";   
                      .ENTER.
  
 
                             - 67 -
  
  
  
  
   JOBBLK -     ,    
             :
  
           .RAD50 /MQ/
  
            .ASCII /NAME/
                 -       
                   1  6 ;    
                     ;      
                    (.  .      ),  
                             
                   .
  
  
                -
      .      
                     
   FB/-.
  
           EMT ( 1):
  
                     !--------!--------!
         R0 => AREA: !    1   !  CHAN  !
                     !--------!--------!
                     !     DBLK        !
                     !-----------------!
                     !     SEGNUM      !
                     !-----------------!
  
  
         ,      
   15-    .   .LOOKUP
       .   -
     R0       
    0   .
  
        :
  
                     
  
             0       ;
  
             1           .
  
             .LOOKUP.
   ,     DK:  ,
          .
      ,      -
    ( ).
  
        .
  
             .TITLE    LOOKUP.MAC
             .MCALL    .LOOKUP,.PRINT,.EXIT
    START:   .LOOKUP   #AREA,#0,#QUSPEC
             BCC       1$
             .PRINT    #NOFIL
             .EXIT
    1$:      MOV       #SIZE,R1
 
                             - 68 -
  
  
  
  
             JSR       PC,CNV10
             .PRINT    #BUFF
             .EXIT
    CNV10:   MOV       R0,-(SP)
             CLR       R0
    1$:      INC       R0
             SUB       #10.,@SP
             BGE       1$
             ADD       #72,@SP
             DEC       R0
             BEQ       2$
             CALL      CNV10
    2$:      MOVB      (SP)+,(R1)+
             RTS       PC
    AREA:    .BLKW     3
    QUESPEC: .RAD50    /DK QUFILE/
             .RAD50    /TMP/
    BUFF:    .ASCII    /DK:QUFILE.TMP = /
    SIZE:    .ASCIZ    /    BLOCKS/
    NOFIL:   .ASCIZ    /?   DK:QUFILE.TMP ?/
             .EVEN
             .END      START
  
  
  
           EMT ( 2):
  
                     !--------!--------!
         R0 => AREA: !    1   !  CHAN  !
                     !--------!--------!
                     !     JOBBLK      !
                     !-----------------!
                     !     SEGNUM      !
                     !-----------------!
  
        :
  
                     
  
             0       ;
  
             1         .
  
  
               .LOOKUP  
       QUEUE.REL,  -
     FB/X-.
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 69 -
  
  
  
  
        .
  
             .TITLE   SJLOOK.MAC
             .MCALL   .LOOKUP,.PRINT,.EXIT
             .MCALL   .WRITW,.READW
     START   .LOOKUP  #AREA,#0,#QMSG
             BCC      1$
             .PRINT   #NOJOB
             .EXIT
     1$:     .WRITW   #AREA,#0,#RMSG,#6
             BCS      2$
             .PRINT   #QRUN
             .EXIT
     2$:     .PRINT   #MSGERR
             .EXIT
     AREA:   .BLKW    5
     QMSG:   .RAD50   /MQ/
             .ASCIZ   /QUEUE/
             .WORD    0,0
     RMSG:   .WORD    0
             .ASCII   /SJLOOK/
     MSGERR: .ASCIZ   /??/
     NOJOB:  .ASCIZ   /?QUEUE  ?/
     QRUN:   .ASCIZ   /!QUEUE !/
             .EVEN
             .END     START
  
  
  
        7.2.  /
  
  
  
  
  
        7.2.1.  .RD/.RDC/.RDW
  
  
  
              
                
    .
  
             .RD 
   R0    .
  
               -
    ,  R0        
    .       R0
      ,   
   (.RD, .RD)    (.RDW).
  
              ,  
       ,     
   (   R0)  ,  .  -
        "",   
     0.      
        ,   
   R0. ,       , 
 
                             - 70 -
  
  
  
  
      0  6      
   512 ,    6,    256 
      "" (  0  ERRWD).
  
             :
  
                         
  
            0         ;
  
            1      ;
  
            2       .
  
  
  
        7.2.1.1.  .RD
  
  
  
         .READ       -
      .  ,    
       ,  -
        .    
       .LU  .NR.
  
         :
  
            .RD   R,N,UF,WN,L
  
   
  
   R   -      5 ;
  
   N   -  ;
  
   UF    -  ,   ;
  
   WN   -    ;
  
   L    -  ,    ;   -
                -   -
              ;     -
              (  ,  ),
                       ;
                     
                 -
            .
  
  
  
  
  
  
  
  
  
  
  
 
                             - 71 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   10   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        1        !
                     !-----------------!
  
  
        .       -
      .WI,    
               
   /.  .WAIT     ,
        .
  
  
  
        7.2.1.2.  .RD
  
  
  
                -
      .    
      ,      -
   .          
     ,      -
    ,   .  -
     RS      -
      .
  
         :
  
            .RD   R,N,UF,WN,RN,L
  
   
  
   R   -    EMT  5 ;
  
   N   -  ;
  
   UF    -  ,   ;
  
   WN   -    ;
  
   RN   -   ;
  
   L    -  ,    ;   -
                -   -
              ;     -
              (  ,  ),
                       ;
                     
                 -
 
                             - 72 -
  
  
  
  
            .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   10   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
            :
  
          - R0    ;  
               0      -
             ;
  
          - R1    ;   
            ,           
                    
            .
  
  
        .        
    ,  USR.
  
  
  
        7.2.1.3.  .RDW
  
  
  
              
         .    
            
       .
  
         :
  
            .RDW   R,N,UF,WN,L
  
   
  
   R   -    EMT  5 ;
  
   N   -  ;
  
   UF    -  ,   ;
  
   WN   -    ;
  
   L    -  ,    ;   -
                -   -
              ;     -
 
                             - 73 -
  
  
  
  
              (  ,  ),
                       ;
                     
                 -
            .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   10   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
            .RDW  
   ,  ,    .   -
       ,      ,   
   /,        (
    ) .
  
             .WRITW (-
    7.2.5.3).
  
  
  
        7.2.2.  .YIN/.INR
  
  
  
              
        . -
       R0,   R0   .
  
         :
  
           .TTYIN   CHAR
           .TTINR
  
   
  
   CHAR   -  ,     R0.
  
     CHAR  ,      
    R0.
  
    .TTYIN   :
  
              340
           BCS   .-2
  
   A .INR 
  
  
 
                             - 74 -
  
  
  
  
               340
  
          .YIN    -
      ,     .  
    .TTINR,       (  12  JSW
    1)   ( 12 JSW  0)  ,  -
            "".
       ,         F,TS   
   XM-  .INR    
   "",      6  JSW.
  
          12  JSW,      -
     (. . 6.1.2)
  
               .  
       .  
   <CTRL/F>  <CTRL/B>     12.
  
         <CTRL/S>  <CTRL/Q>     -
     ,       (  FB-  
   XM-) SET TT NOPAGE.
  
  
        .  .TTYIN    
    .       
     ,   .GTLIN.
  
            :
  
                          
  
             0          .
  
             .TTYOUT  (.
   7.2.3).
  
  
  
        7.2.3.  .TTYOUT/.TTOUTR
  
  
  
           .TTYOUT    .TTOUTR  
      R0   .
  
            ,   ,    
             R0,    
   .TTYOUT     
        ,     
    .TTOUTR    ,  
        R0  .
  
         :
  
           .TTYOUT   CHAR
           .TTOUTR
  
   
  
 
                             - 75 -
  
  
  
  
   CHAR   -  ,    ,    
              R0    .
  
     CHAR  ,       
    R0.
  
              .TTOUTR    ""
   ,  ,     ,   
     .          FB-  
   X-, .TTOUTR     ,  
        ,   
      .       
   , ..      -
      "",      
    6  JSW    .TTOUTR.
  
  
        .      6 
   JSW ,     .TTYIN
    .TTYOUT   .    
      JSW,      -
            -
   .
  
        :
  
                         
  
            0        .
  
        .
  
           .MCALL  .EXIT,.TTYIN,.TTYOUT,.TTINR,.TTOUTR
    ST:     MOV    #BUFF,R1
            CLR    R2
            BIS    #100,@#44        ;  6
    INLOOP:.TTINR                   ; 
                                    ; 
            BCS    NOCHAR
    CHRIN:  MOVB   R0,(R1)+         ;   
            INC    R2               ; 
            CMP    R0,#12
            BNE    INLOOP
            MOV    #BUFF,R1
    OUTLOP: MOVB   (R1),R0          ;   R0
           .TTOUTR                  ; 
            BCS    NOROOM           ;   
                                    ;
    CHROUT: DEC    R2               ; 
            BEQ    ST
            INC    R1               ; 
                                    ;  
            BR     OUTLOP           ; 
    NOCHAR:.TTINR                   ; 
            BCC    CHRIN            ;  
            NOP
            NOP
             .
             .
 
                             - 76 -
  
  
  
  
             .
            NOP
            BR     NOCHAR
    NOROOM: MOVB   (R1),R0          ; 
           .TTOUTR                  ; 
            BCC    CHROUT
    TYPETT: BIC    #100,@#44        ;  6
           .YOUT (R1)             ; 
            BIS    #100,@#44
            BR     CHROUT
    BUFF:  .BLKW   100.
           .END    ST
  
  
  
        7.2.4.  .WI
  
  
  
          .WI  -
        /    -
    .
  
         :
  
            .WI N
  
   
  
   N   -   /.
  
          R0:
  
                     !--------!--------!
         R0 =>       !    0   !  CHAN  !
                     !--------!--------!
  
         .WI,     -
    .RD/.WRI,    -
     /.
  
         .WI    
       /.
  
         F-   .WI  -
    /        
    ( ) .
  
        :
  
                         
  
            0       ;
  
            1       /  
                  .
  
               .MRKT  (.
   7.5.4).
 
                             - 77 -
  
  
  
  
        7.2.5.  .WRI/.WRI/.WRIW
  
  
  
              
         .
  
  
        .               
   .RD/.WRI    /  
          -
    .QS.
  
             :
  
                         
  
            0         ;
  
            1      ;
  
            2       .
  
  
  
        7.2.5.1.  .WRI
  
  
  
              -
      CHAN.     -
      ,        .
              
   .LOOKUP  .ENTER
  
         :
  
            .WRI   R,N,UF,WN,L
  
   
  
   AREA   -    EMT  5 ;
  
   CHAN   -  ;
  
   UF    -   ;
  
   WN   -   ;
  
   L    -   ;     -
              -       
            ;   ,     
             ,        
              .
  
  
  
  
  
 
                             - 78 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   11   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        1        !
                     !-----------------!
  
  
  
        7.2.5.2.  .WRI
  
  
  
               -
    .    -
      ,     .
        
   ,       -
   ,   RS      -
        .
  
         :
  
            .WRI   R,N,UF,WN,RN,L
  
   
  
   AREA   -    EMT  5 ;
  
   CHAN   -  ;
  
   UF    -   ;
  
   WN   -    ;
  
   RN   -   ;
  
   L    -   ;     -
              -       
            ;   ,     
             ,        
              .
  
  
  
  
  
  
  
  
  
  
 
                             - 79 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   11   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
  
        .   .WRITC   
     ,   .READC.
  
  
  
        7.2.5.3.  .WRIW
  
  
  
              
        .      
       .
  
         :
  
            .WRIW   R,N,UF,WN,L
  
   
  
   AREA   -    EMT  5 ;
  
   CHAN   -  ;
  
   UF    -   ;
  
   WN   -    ;
  
   L    -   ;     -
              -       
            ;   ,     
             ,        
              .
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 80 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   11   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
             .READW    .WRITW
     .      
   ,        .
  
        .
  
           .MCALL  .FETCH,.READW,.WRITW,.ENTER,.LOOKUP,.PRINT
           .MCALL  .EXIT,.CLOSE
            ERRWD = 52
    ST:    .FETCH  #HSPACE,#PCNAME    ;  PC
            BCS    FERR
            MOV    #AREA,R5           ;.  
            CLR    R4                 ;R4 =   0
            MOV    #1,R3              ;R3 =   1
           .ENTER  R5,R4,#PCNAME      ; 
            BCS    ENERR
           .LOOKUP R5,R3,#PCNAME
            BCS    LKERR
            CLR    R1                 ;R1 -  
    LOOP:  .READW  R5,R3,#BUFF,#256.,R1 ; 
            BCS    RDERR
           .WRITW  R5,R4,#BUFF,#256.,R1 ; 
            BCS    WTERR
            INC    R1                 ; 
            BR     LOOP
    RDERR:  TSTB   ERRWD              ; EOF ?
            BEQ    1$                 ;
           .PRINT  #RDMSG
    1$:    .EXIT
    WTERR: .PRINT  #WTMSG
           .EXIT
    PCNAME:.RAD50  /PC/               ; PC   
           .WORD   0                  ;,  - 0
    FERR:  .PRINT  #FEMSG
           .EXIT
    NERR: .PRINT  #ENMSG
           .EXIT
    LKERR: .PRINT  #LKMSG
           .EXIT
    FEMSG: .ASCIZ  / "INSTALL PC"/
    ENMSG: .ASCIZ  / ENTER/
    LKMSG: .ASCIZ  / LOOKUP/
    RDMSG: .ASCIZ  / READ/
    WTMSG: .ASCIZ  / WRITE/
           .EVEN
 
                             - 81 -
  
  
  
  
    AREA:  .BLKW   10
    BUFF:  .BLKW   256.
    HSPACE = .
           .END    ST
  
            -
    .READC  .WRITC.     
    /,       
    .
  
           .MCALL  .PRINT,.EXIT,.FETCH,.ENTER,.LOOKUP
           .MCALL  .CLOSE,.READC,.WRITC,.WAIT
            ERRWD = 52
    ST:    .FETCH  #AREA,#PCNAME      ;  PC
            BCS    FERR
    FLNK:   MOV    #AREA,R5           ;O.  
           .ENTER  R5,#1,#PCNAME      ; 
            BCS    ENERR
           .LOOKUP R5,#0,#PCNAME
            BCS    LKERR
            CLR    R1                 ;R1 =  
    LOOP:   CLR    DFLG               ;  ./.
           .READC  R5,#0,#BUFF,#256.,RDCOMP,R1 ; 
            BCS    EOF
    1$:     TST    DFLG               ;  ?
            BEQ    1$                 ;
            BMI    IOERR              ;
    EOF:   .CLOSE  #1
           .EXIT
    RDCOMP: ROR    R0               ;  , 
            BCS    RWERR            ; 
           .WRITC  R5,#0,#BUFF,#256.,#WRCOMP,BLKN ;
                                      ;
            BCC    RTS
    RWERR:  MOV    #-1,DFLG           ; 
    RTS:    RTS    PC
    WRCOMP: ROR    R0
            BCS    RWERR              ; 
            INC    BLKN
           .READC  R5,#1,#BUFF,#256.,#RDCOMP,BLKN
            BCC    3$
            TSTB   ERRWD
            BNE    RWERR              ;
            INC    DFLG
    3$:     RTS    PC
    FERR:   MOV    #FMSG,R0
            BR     TYPIT
    IOERR:  OV    #IOMSG,R0
            BR     TYPIT
    LKERR:  MOV    #LMSG,R0
            BR     TYPIT
    ENERR:  MOV    #EMSG,R0
    TYPIT: .PRINT
           .EXIT
    FMSG:  .ASCIZ  / "INSTALL PC"/
    EMSG:  .ASCIZ  / ENTER/
    LMSG:  .ASCIZ  / LOOKUP/
    IOMSG: .ASCIZ  ! /!
           .EVEN
 
                             - 82 -
  
  
  
  
    DFLG:  .WORD   0
    PCNAME:.RAD50  /PC/
           .WORD   0
    BLKN:  .WORD   0
    AREA:  .BLKW   10
    BUFF:  .BLKW   256.
    HSPACE = .
          .END     ST
  
  
  
        7.2.6.  .RIN
  
  
  
              -
      .
  
         :
  
            .RIN   DDR
  
   
  
   ADDR   -   .
  
        ,   ,    
    ,     <200>.  
     ,     
   <CR><LF>.       <200>,    
   <CR><LF>  .
  
           ()    
             
    F> (>),      .
  
              
         .
  
         ,   -
    .RIN,      -
    .      -
     .RIN,  .OUTR  .YU.
  
         .
  
             .CHCOPY  (.
   7.3.2).
  
  
  
        7.2.7.  .SPFUN
  
  
  
                
       ,   
   . ,    .
  
 
                             - 83 -
  
  
  
  
         :
  
            .SFUN   R,N,FUNC,UF,WN,L,RN
  
   
  
   R   -      ;
  
   N   -  ;
  
   FUN   -  ,   ;
  
   UF    -  ;
  
   WN   -          
              , ,    
              ;
  
   L    -      
            WCNT;
  
   RN   -     ;   
              ,       
            ;  RN=0     .RDW;  
            RN=1   .RD;   RN>500,  
               .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   32   !  CHAN  !
                     !--------!--------!
                     !       BLK       !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !       377       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
         L, N  WCNT     ,
      .RD/.WRI.
  
    .SPFUN        ,
     . 2:
  
  
  
  
  
  
  
  
  
  
  
 
                             - 84 -
  
  
  
  
                                                   2
   ----------------------------------------------------------
                   ! MT  ! CT  ! DX  ! DM  ! DY  ! DL
   ----------------------------------------------------------
         !     !     !     !     !     !
           !     ! 377 !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
           !     ! 376 !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
           !     ! 375 !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
           !     ! 374 !     !     !     !
                          !     !     !     !     !     !
          !     !     !     !     !     !
                  ! 373 ! 373 !     !     !     !
                          !     !     !     !     !     !
       !     !     !     !     !     !
                !     ! 372 !     !     !     !
                          !     !     !     !     !     !
    EOF           ! 377 !     !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
                ! 376 !     !     !     !     !
                          !     !     !     !     !     !
          !     !     !     !     !     !
                ! 375 !     !     !     !     !
                          !     !     !     !     !     !
                    ! 371 !     ! 376 ! 376 ! 376 !
                          !     !     !     !     !     !
                    ! 370 !     ! 377 ! 377 ! 377 !
                          !     !     !     !     !     !
        !     !     !     !     !     !
    ! 374 !     !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
         ! 372 !     !     !     !     !
                          !     !     !     !     !     !
         !     !     !     !     !     !
             !     !     ! 375 !     ! 375 !
                          !     !     !     !     !     !
           !     !     !     !     !     !
       !     !     !     !     !     !
            !     !     !     !     !     !
    1           !     !     !     ! 374 !     ! 374
                          !     !     !     !     !     !
        !     !     !     !     !     !
                  !     !     !     ! 373 ! 373 ! 373
  
           .SPFUN,   -
     ,        -
    .LOOKUP.
  
         .SPFUN        
           ,  
      DUP  COPY/DEVICE    -
    . DUP      .
 
                             - 85 -
  
  
  
  
   ,    ,        
       .   
       BUF      ,       
   BUF+WCNT.    .SPFUN      -
   ,     , 
     ,  '  .
  
            RK06/07 (DM)   
    377  376           
   ,      .      
      ,     
     .SPFUN. ,    -
      ,         
    .
  
    :
  
                        
  
     100000         /  ;
  
     100200           ( BSE);
  
     100001        ECC  ;
  
     100002            
                   ;
  
     100004            ;
  
     100010           ;
  
     1774XX          .
  
  
   :
  
                    
  
       0             ;
  
       1           ;
  
       2         .
  
  
  
        .         .SPFUN
          
   .    :     
     :.
  
         ,      
        .   -
          -1  -128  (
   377  200 ).
  
                 
        256    -
 
                             - 86 -
  
  
  
  
   .
  
        .
  
           .MCALL  .PRINT,.FETCH,.LOOKUP,.SPFUN
           .MCALL  .WRITW,.EXIT,.WAIT,.CLOSE
    ST:    .FETCH  #HSPC,#CT          ;  
            BCS    FERR
           .LOOKUP #AREA,#4,#CT
            BCS    LKERR
           .SPFUN  #AREA,#4,#373,#0   ; 
            BCS    SERR
           .WRITW  #AREA,#4,#BUFF,#256.,BLK
            BCS    WTERR
           .SPFUN  #AREA,#4,#372,#1   ; 
                                      ;
           .PRINT  #DONE
           .WAIT   #4
           .CLOSE  #4
           .EXIT
    AREA:  .BLKW   10
    FERR:  .PRINT  #FMSG
           .EXIT
    LKERR: .PRINT  #LKMSG
           .EXIT
    SERR:  .PRINT  #SMSG
           .EXIT
    WTERR: .PRINT  #WTMSG
           .EXIT
    DONE:  .ASCIZ  / /
    FMSG:  .ASCIZ  / FETCH/
    LKMSG: .ASCIZ  / LOOKUP/
    SMSG:  .ASCIZ  / SPFUN/
    WTMSG: .ASCIZ  / WRITW/
           .EVEN
    CT:    .RAD50  /CT/
           .WORD   0,0,0
    BUFF:  .BLKW   256.
    BLK:   .WORD   0
    HSPC = .
           .END    ST
  
  
  
        7.3.   
  
  
  
               
      ,    
      ,    ,  -
    .
  
  
  
  
  
  
  
 
                             - 87 -
  
  
  
  
        7.3.1.  .DFN
  
  
  
          .DFN   -
      /.
  
         TS-    NOP  (  -
   ).
  
         :
  
                       .DFN R,DDR,NU
  
   
  
   R   -    ,      
            ;
  
   DDR   -      /;
  
   NU    -    /.
  
           :
  
                     !--------!--------!
         R0 => AREA: !   15   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
                     !       NUM       !
                     !-----------------!
  
         ,   , 
    16 ()  /, -
      0  15.      
        256 ().
  
        ,          
   /,    .  -
     /  5    (7    
   XM-).      N,
            5*N  
    (7*N  XM-),    ADDR.
  
           .DFN  
   ,    /.
  
         .DFN        ;
        ,    
       .    -
         .
  
            .DFN,  
                ,
      .
  
               ,  15
       ,  ..    
 
                             - 88 -
  
  
  
  
   .       -
     .
  
         .SRS  .RS    -
    .CDFN    16 ,  -
      .
  
        :
  
                         
  
            0         ,
                    .     XM-
                      
                       
                    .
  
            25. ,   30.
   .    20.   -
   , ..       .
       .
  
        .
  
           .MCALL  .CDFN,.PRINT,.HRESET,.EXIT
    START: .CDFN   #AREA,#CHANL,#25.  ; 25. 
            BCS    ERR
           .PRINT  #MSG               ; 
           .CDFN   #AREA,#CHANL,#30.  ; 30. 
            BCS    ERR
           .PRINT  #MSG               ; 
           .CDFN   #AREA,#CHANL,#20.  ; 20. 
            BCC    ERR1
           .PRINT  #MSG
    CONT:  .HRESET                    ;  16. 
           .CDFN   #AREA,#CHANL,#20.  ; 20. 
            BCS    ERR
           .PRINT  #MSG               ; 
           .EXIT
    ERR:   .PRINT  #MSG1
           .EXIT
    ERR1:  .PRINT  #MSG1
            BR     CONT
    AREA:  .BLKW   3                  ;  
    MSG:   .ASCIZ  / /
    MSG1:  .ASCIZ  / .CDFN/
           .EVEN
    CHANL: .BLKW   30.*5              ;  
           .END    START
  
  
  
        7.3.2.  .Y (FB, XM)
  
  
  
          .Y     
     ,     ,  -
           -
 
                             - 89 -
  
  
  
  
   .
  
         .Y      
   ,    ,      
       .RD  .WRI.
  
         :
  
               .OPY   AREA,CHAN,ON[,JOBBLK]
  
   
  
   AREA   -    ,      
            ;
  
   CHAN   - ,     
             ;
  
   OCHAN  -       ,    
            ;
  
   JOBBLK -       (
             -7),   .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   13   !  CHAN  !
                     !--------!--------!
                     !      OCHAN      !
                     !-----------------!
                     !     JOBBLK      !
                     !-----------------!
  
          N          -
     .NR     FIL1,  
      .Y      
    N     FIL1.
  
                -
    .CLOSE,  FILE1    ( -
   ).  ,    ,  -
        .CLOSE.
  
         .Y      
    ;        -
     .
  
  
        .   ,      
   .CHCOPY,    .LS  .URG.
  
  
  
  
  
  
  
  
 
                             - 90 -
  
  
  
  
        :
  
                         
  
            0           , 
                         
                       (ON)  ;
  
            1          N  .
  
               1      
   PRINT.SAV.      .CHCOPY  -
        0,          
    BUFF     .  -
        2 , ..    
    .
  
            , 
     .
  
        .
  
           .MCALL  .PRINT,.EXIT,.LOOKUP,.CHCOPY,.SDATW
           .MCALL  .PURGE,.READW
    ST:    .PURGE  #0                 ;  0
           .CHCOPY #AREA,#0,#1        ; 
                                      ;  0   1
            BCS    NCH
           .READW  #AREA,#0,#BUFF,#25,#0 ; 
            BCS    NRE
           .PRINT  #BUFF              ; 
           .LOOKUP #AREA,#2,#FILE1    ; 
                                      ;  2
            BCS    NLO
           .CHCOPY #AREA,#2,#1        ; 
                                      ;  1   2
            BCS    NCH
           .PRINT  #MSG1
           .SDATW  #AREA,#MSG,#COUNT  ;  
                                      ; 
            BCS    NSD
           .EXIT
    NSD:   .PRINT  #NOS
           .EXIT
    NCH:   .PRINT  #NOCH
           .EXIT
    NRE:   .PRINT  #NORE
           .EXIT
    NLO:   .PRINT  #NOLO
           .EXIT
    NOS:   .ASCIZ  / /
    NOCH:  .ASCIZ  / .CHCOPY/
    NORE:  .ASCIZ  / .READ/
    NOLO:  .ASCIZ  / .LOOKUP/
    MSG:   .ASCIZ  /-/           ;  
                                       ;
    COUN = .-MSG
    MSG1:  .ASCIZ  / /
           .VEN
 
                             - 91 -
  
  
  
  
    AREA:  .BLKW   10
    FILE1: .RAD50  /SY PRINT SAV/     ;   
    BUFF:  .BLKW   25
           .END    ST
  
   ,    :
  
           .MCALL  .LOOKUP,.RCVDW,.EXIT,.PRINT
    START1:.LOOKUP #AREA,#1,#FILE     ;  
                                      ; 1
            BCS    NLOO
           .RCVDW  #AREA,#TEXT,#20    ; 
            BCS    NRC
           .PRINT  #TEXT+2            ; 
                                      ;
           .EXIT
    NRC:   .PRINT  #MSG               ; .RCVDW
           .EXIT
    NLOO:  .PRINT  #MSG1              ; .LOOKUP
           .EXIT
    FILE:  .RAD50  /SY/
           .RAD50  /PRINT/
           .RAD50  /SAV/
    AREA:  .BLKW   10
    TEXT:  .BLKW   20
    MSG:   .ASCIZ  /  /
    MSG1:  .ASCIZ  / LOOKUP/
           .EVEN
           .END    START1
  
  
  
        7.3.3.  .S (F, )
  
  
  
          .S  6   
     .
  
         :
  
                      .S R,N,DDR
  
   
  
   R   -    ,      
            ;
  
   N   -  ,    ;
  
   DDR   -     ,   
            .
  
  
  
  
  
  
  
 
                             - 92 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   27   !  CHAN  !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
         :
  
         1 -   ;
         2 -    ;
         3 -  ;
         4 -    ;
         5 -  ;
         6 -   ( RDI-50).
  
         2  ,       -
                
   .LU  .NR     .
  
          3  ,      
    ,  ,      -
    .LU  .NR     
   .
  
          4  ,      
    .
  
        :
  
                         
  
            0       .
  
             , -
          .
  
        .
  
           .MCALL  .CSTAT,.CSIGEN,.PRINT,.EXIT
    START: .CSIGEN #DEVSPC,#DEVEXT    ;  
           .CSTAT  #AREA,#0,#ADDR     ; 
                                      ; 0 
            BCS    ERR
            MOV    #ADDR+10,R5
            MOV    (R5)+,R0
            ADD    (PC)+,R0
           .RAD50  /  0/
            ADD    (R5),R0
            MOV    R0,DEVNAM          ;  
           .EXIT
    AREA:  .BLKW   5                  ;  
    ADDR:  .BLKW   6                  ; 
                                      ; 
    DEVNAM:.WORD   0
    DEVEXT:.WORD   0,0,0,0            ; 
                                      ; 
    ERR:   .PRINT  #MSG
 
                             - 93 -
  
  
  
  
           .EXIT
    MSG:   .ASCIZ  /  /
           .EVEN
    DEVSPC = .                        ; 
                                      ;
           .END    START
  
  
  
        7.3.4.  .URG
  
  
  
          .URG     -
                .RS,
   .SRS, .SVSUS  .LS.
  
         :
  
                          .URG  N
  
   
  
   CHAN   -   ().
  
          R0:
  
                     !--------!--------!
         R0 =>       !    3   !  CHAN  !
                     !--------!--------!
  
         .URG    ,    
      (   ).
  
            ,   -
    .PURGE       17  (),
   ..     .
  
              , ..  
     ,   .
  
         .
  
             .CHCOPY (.
   . 7.3.2).
  
  
  
        7.3.5.  .REOPEN
  
  
  
         .RN      -
   ,       .SVSUS,
         .
  
         :
  
                    .REN   R,N,CBLK
 
                             - 94 -
  
  
  
  
   
  
   AREA   -    ,      
            ;
  
   N   -     0-377 ();
  
   CBLK   -         
            .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !    6   !  CHAN  !
                     !--------!--------!
                     !      CBLK       !
                     !-----------------!
  
          .RN  .SVSUS    
    ,        
        . -
         .LOOKUP 
     .SAVESTATUS.   
    ,  .RN     
    ,      .SVSUS,  
        .
  
         .REOPEN      ,
     ,    -
    .LU  .SVSUS.
  
        :
  
                     
  
            0       .
  
              .SAVESTATUS
   (. 2.3.6).
  
  
  
        7.3.6.  .SVSUS
  
  
  
         .SAVESTATUS  5    
           ,  
      .      -
   ,     .
  
         :
  
                  .SVSUS   R,N,CBLK
  
   
  
   AREA   -    ,      
            ;
 
                             - 95 -
  
  
  
  
   N   -  ;
  
   CBLK   -       (5  ),    
               .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !    5   !  CHAN  !
                     !--------!--------!
                     !      CBLK       !
                     !-----------------!
  
              
     .
  
         .SVSUS     -
   ,       .LU.
        .NR,  
    .SVSUS ,      
   .
  
               ,
         .
  
         . 3         .
    <*>  ,     ,  
    .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 96 -
  
  
  
  
                                                    3
   ----------------------------------------------------------
       !    !           
   ----------------------------------------------------------
       1    !       !   
            !-------!----------------------------------------
            !   0*  !     
            !-------!----------------------------------------
            !   1-5 !    . 
            !       !  ,  
            !       !  
            !-------!----------------------------------------
            !    6* !    
            !       ! .RN
            !-------!----------------------------------------
            !    7* !     
            !       !   .LS (..
            !       !   ,  
            !       !  .NR)
            !-------!----------------------------------------
            !  8-12 !     1  37
            !       ! (),   
            !       !    
            !-------!----------------------------------------
            !   13* !   
            !-------!----------------------------------------
            !   14  !  
            !-------!----------------------------------------
            !   15* !      
   ---------!-------!----------------------------------------
       2    !       !    . , 
            !       !   
   ---------!-------!----------------------------------------
       3    !       !   (   256 )
   ---------!-------!----------------------------------------
       4    !       !  
   ---------!-------!----------------------------------------
       5    !       !  :  
            !       !  /  
            !       ! ( )
            !       !  :  ,
            !       !    ( 0  7)
  
  
          .SVSUS/.RN   -
   ,       -
   :
  
        1)     .SVSUS 
       .RN,      
     .NR    
         ;    
      ;
  
        2)    .RN    
        ;
   ,    .RD  .WRI,  
        .
  
 
                             - 97 -
  
  
  
  
        :
  
                     
  
            0          ,
                  ..    .LOOKUP;
  
            1        
                  .ENTER    CT:  MT:.
  
               -
    ,   ,      -
         .REOPEN.
  
        .
  
           .MCALL  .READ,.EXIT,.CSIGEN,.SAVESTATUS,.REOPEN
    ST:     MOV    #AREA,R5
           .CSIGEN #DSPACE,#DEXT     ; 
            MOV    R0,BUFF           ; 
                                     ; 
           .SAVEST R5,#3,#BLOCK1     ; 
                                     ;  . 
           .SAVEST R5,#4,#BLOCK2     ;O 
           .SAVEST R5,#5,#BLOCK3     ;O 
            MOV    #BLOCK1,R4
    PRCS:  .REOPEN R5,#0,R4          ;  
                                     ;  0
           .READ   R5,#0,BUFF,COUNT,BLOCK ;  
    DONE:   ADD    #12,R4           ;   
                                    ;  
            CMP    R4,#BLOCK3       ;.  ?
            BLOS   PRCS             ;,  
           .EXIT
    BLOCK1: .WORD  0,0,0,0,0        ;  
    BLOCK2: .WORD  0,0,0,0,0        ; 
    BLOCK3: .WORD  0,0,0,0,0        ; 
    AREA:   .BLKW  10
    BUFF:   .WORD  0
    BLOCK:  .WORD  0
    COUNT:  .WORD  256.
    DEXT:   .WORD  0,0,0,0
    DSPACE = .
           .END    ST
  
  
  
        7.4.   
  
  
  
  
  
  
  
  
  
  
  
 
                             - 98 -
  
  
  
  
        7.4.1.  .CSIGEN
  
  
  
          .CSIGEN   
     (CSI)   .
  
         :
  
            .CSIGEN DEFSPC,DEFEXT,CSTRNG[,LINBUF]
  
   
  
   DEVSPC -   ,      
            ;
  
   DEFEXT -     ,   -
                  RDI-50;
  
   SRNG -     #0,      
              ;
  
   LINUF - ,     .
  
            ,      -
     ,     <R>,<LF>.
  
         DF :
  
    1
          -     ;
  
    2
          -     ;
  
    3
          -     ;
  
    4
          -     .
  
               ,  -
       .
  
         LINUF ( 81. )  -
   .   ,    -
    .SIZ,       
   .RIN.
  
         .SIGN     
     ,              
   (SRNG=0),       
   .
  
         .SIGN     
      0,1,2      -
    -   3-10 ().   
            
   .
 
                             - 99 -
  
  
  
  
         DVS   ,  
      .    
     ,     
     .        .SIGN  R0
         .
  
                .
  
        :
  
                         
  
            0      ;
  
            1       ;
  
            2      ;
  
            3      ;
  
            4        .
  
  
        .        ,
              -
    .
  
             .CSTAT  (.
   . 7.3.3).
  
  
  
        7.4.2.  .CSISPC
  
  
  
  
          .SIS   
       .
  
         :
  
            .SIS US,DF,SRNG[,LINUF]
  
   
  
   US -    39 ,   -
             ,    .SIS;
  
   DF -     ,   -
                  RDI-50;
  
   SRNG -     #0,      
              ;
  
   LINUF - ,     .
  
               -
          .LS,
 
                             - 100 -
  
  
  
  
   .NR  .LU.
  
          US      15      
     (5   )  24    -
     (4   ).  -    -
   ,     .
  
             :
  
   1 
          -   (RADIX-50);
  
   2-3 
          -   (RADIX-50);
  
   4 
          -    (RADIX-50);
  
   5 
          -   ().
  
             :
  
   1 
          -   (RADIX-50);
  
   2-3 
          -   (RADIX-50);
  
   4 
          -    (RADIX-50).
  
            ,      -
     ,     <R>,<LF>.
  
  
         DF :
  
    1
          -     ;
  
    2
          -     ;
  
    3
          -     ;
  
    4
          -     .
  
               ,  -
       0.
  
         LINUF ( 81. )  -
   .   ,    -
    .SIZ,       
   .RIN.
  
         .SISPC     
 
                             - 101 -
  
  
  
  
     ,              
   (SRNG=0),       
   .
  
              
    (SI)      
    .
  
            (/),      
     (,    ).
  
             ,  -
     (:).         
    ,   ,    
   -  ( 1  3 ),   
      .     -
      .    ,    
    .
  
                   
    :
  
    1 ( )
          -     ;    ,
              ;
  
    2
          -     ,    -
             ,    ;    15  
            ,    ;
  
    3
          -   15   2,   -
             ;  ,    (  
            ).
  
  
        .     ,  
      .
  
         ,   F-     
          -
    .UNL  USR.       -
     .L.
  
        :
  
                         
  
            0      ;
  
            1       .
  
  
        .        ,
              -
    .
  
              CSI    
 
                             - 102 -
  
  
  
  
   .           
      .
  
        .
  
           .MCALL  .CSISPC,.PRINT,.EXIT,.ENTER,.CLOSE
    START: .CSISPC #OUTSP,#DEFEXT,#CSTRNG ; 
                                      ;  
            BCC    1$
           .PRINT  #MSG
           .EXIT
    1$:    .ENTER  #AREA,#0,#OUTSPC,OUTSPC+10 ; 
                                      ; 
            BCC    2$
           .PRINT  #MSG1
           .EXIT
    2$:     JSR    PC,IO              ; 
                                      ;    
                                      ;  
           .CLOSE  #0                 ;  
           .EXIT
    CSTRNG:.ASCIZ  "RK1:RAFOS.MAC=RK2:DOS.MAC" ;
                                      ;
           .EVEN
    DEXT:  .WORD   0,0,0,0            ; 
                                      ; 
    AREA:  .BLKW   5                  ;  
    MSG:   .ASCIZ  / CSI/
    MSG1:  .ASCIZ  / ENTER/
           .EVEN
    IO:     .                         ; 
            .
            RTS    PC
    OUTSP = .                        ; 
           .END    START
  
  
  
        7.4.3.  .GLIN
  
  
  
          .GLIN    -
   ,    SI      
      .
  
         :
  
            .GLIN LINUF[,PROMPT]
  
   
  
   LINUF -  ,   ;
  
   PROMPT -  ;    -,
               .
  
            LINUF  (81.  )  -
       <R><LF>.
 
                             - 103 -
  
  
  
  
         .GLIN  USR       
           
    ,    .
  
            S  QUI,   -
      , -  .  
     -      
    ,    .
  
         .
  
               -
      .
  
        .
  
           .MCALL  .GTLIN,.PRINT,.EXIT
    START: .GTLIN  #BUFF,#PROMPT      ; 
            TSTB   BUFF               ; ?
            BEQ    END                ;
           .PRINT  #BUFF              ;... 
            BR     START
    END:   .EXIT
    PROMPT:.ASCIZ  / /   ;-
    BUFF:  .BLKB   82.                ;  
           .END    START
  
  
  
        7.5.   
  
  
  
  
  
        7.5.1.  .GTIM
  
  
  
          .GTIM   -
      ( )   .
  
         :
  
           .GI R,DDR
  
   
  
   R   -       ;
  
   DDR   -     ,      
                (  
             ,  - ).
  
  
  
  
  
  
 
                             - 104 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   21   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
  
                
       , ,  (1   =  50  
       50 ).
  
    .
  
              TIME  
     .
  
        .
  
           .MCALL  .GTIM,.EXIT
    START: .GTIM   #AREA,#TIME        ; 
           .EXIT
    TIME:  .WORD   0,0
    AREA:  .BLKW   2                  ;  
           .END    START
  
  
  
        7.5.2.  .
  
  
  
          .    
       (.MR).
  
         :
  
           . R,ID[,TIME]
  
   
  
   R   -       ;
  
   ID     -    .R;
  
   TIME   -     ,      
             ,    -
            ;        ,
             - .
  
  
  
  
  
  
  
  
  
 
                             - 105 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   23   !   0    !
                     !--------!--------!
                     !       ID        !
                     !-----------------!
                     !      TIME       !
                     !-----------------!
  
  
          .R   
       .
  
           .R    ID,
           -
   .
  
         ID = 0,     .R  (
    1-177377)        ,  
    TIME .
  
        :
  
                         
  
             0      .R   NU 
                    (    ,
                      ).
  
               .MRKT  (.
   2.5.4).
  
  
  
        7.5.3.  TWAIT (FB, XM)
  
  
  
          .WI   -
        .
  
         :
  
           .WI R,I
  
   
  
   R   -       ;
  
   I   -     ,    
              .
  
  
  
  
  
  
  
 
                             - 106 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   24   !   0    !
                     !--------!--------!
                     !      TIME       !
                     !-----------------!
  
  
          .WI   ,
        .QS.
  
  
        .  .WI   
      .SND  .RSU.   -
    .RSU,         -
     .SPND,     
     ,     -
    .
  
        :
  
                         
  
             0        .
  
  
  
        7.5.4.  .R
  
  
  
          .R    -
         
     ( 1  = 50     50 ).
  
         :
  
           .R R,I,CRTN,ID
  
   
  
   R   -       ;
  
   I   -     ,    
            ;
  
   CRTN   -     ;
  
   ID     -    .R.
  
  
  
  
  
  
  
  
  
 
                             - 107 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   22   !   0    !
                     !--------!--------!
                     !      TIME       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
                     !       ID        !
                     !-----------------!
  
  
          .R    .
        
    .
  
        ID   177400-177777 () -
      .
  
          .R       
   ID.
  
             R0  ID.
  
        :
  
                         
  
             0        .
  
                   
     .
  
        .
  
           .MCALL  .READ,.WAIT,.MRKT,.CMKT
           .MCALL  .QSET,.PRINT,.EXIT,.LOOKUP
    START: .LOOKUP #AREA,#0,#FILE     ; 
            BCS    LKERR
            MOV    #AREA,-(SP)
           .QSET   #QUEUE,#5          ; 5 
                                      ;
           .MRKT   (SP),#INTRVL,#MRTN,#1 ; MRTN
                                      ;  
            BCS    NOMRKT
           .READ   #RDLST             ;
            BCS    RDERR
           .WAIT   #0                 ;
           .CMKT   (SP),#1            ; 
                                      ; ( .MRKT
            BCS    NOTDUN
           .EXIT
    MRTN:                             ; 
           .PRINT  #FAIL1
            RTS    PC
    LKERR: .PRINT  #LM
           .EXIT
    RDERR: .PRINT  #RDMSG
 
                             - 108 -
  
  
  
  
           .EXIT
    NOTDUN:.PRINT  #FAIL
           .EXIT
    NOMRKT:.PRINT  #NOQ
           .EXIT
    NOQ:   .ASCIZ  /  /
    FAIL:  .ASCIZ  / CMKT/
    FAIL1: .ASCIZ  / /
    LM:    .ASCIZ  / LOOKUP/
    RDMSG: .ASCIZ  / READ/
           .EVEN
    INTRVL:.WORD   0,13.              ;
    QUEUE: .BLKW   5*7                ; 
    AREA:  .BLKW   5                  ;  
                                      ; .MRKT
    FILE:  .RAD50  /DK FILE  TST/
    RDLST: .BYTE   0                  ;  
           .BYTE   10                 ; .READ
    BLOCK: .WORD   0
           .WORD   BUFF
           .WORD   256.
           .WORD   1
    BUFF:  .BLKW   256.               ; 
           .END    START
  
  
  
  
        7.6.             
             
  
  
  
                -
       .
  
  
  
        7.6.1.  .IN
  
  
  
          .CHAIN    
   ,     ( FB/XM-)
        RM/SJ/TS-.
  
           .IN    
          
     .    ,  
       "".
  
          500-507      
   (  RDI-50),       
    ,   510-777   -
      .
  
         :
  
  
 
                             - 109 -
  
  
  
  
           .IN
  
          R0:
  
                     !--------!--------!
         R0 =>       !   10   !   0    !
                     !--------!--------!
  
          .IN   
      500-510   .  
    510-777 (  )    -
     CHAIN$ ( 8)     
   .     ,   -
    .CHAIN    .
  
             .IN    
   /    .  
    ,        -
    .IN    16  .  -
   , ,   ,    
     .DFN.  ,    
        .  
            -
         .CHAIN.
  
              
      .IN        
        .F (  
    TS-).
  
          IN$ ( 8)   -
    JSW  ,       -
     .IN    RUN.
  
        :
  
            .IN      
           ,     -
             RUN.       -
            .IN     -
            .
  
              RUN,
   ..    .CHAIN     -
   .
  
  
        .    .CHAIN -
        .    -
           
       1000 ().   -
     ,       
     ,    .
  
        .
  
         PRINT.SAV    GO.SAV  
     .CHAIN.
  
 
                             - 110 -
  
  
  
  
    ;        GO.SAV
    ;      ------------------
    ;
           .MCALL  .CHAIN,.TTYIN,.DBLK,.CTRLT
           .CTRLT                     ; -
                                      ; 
                                      ;( LF)
    START:  MOV    #500,R1
            MOV    #FILE,R2
           .REPT   4
            MOV    (R2)+,(R1)+        ;   500-507
           .ENDR
    1$:    .TTYIN                     ;  
            MOVB   R0,(R1)+           ;TT:   510-777
            CMPB   R0,#LF             ;  ?
            BNE    1$                 ;
            CLRB   -(R1)              ;
           .CHAIN                     ;  PRINT
    FILE:  .DBLK   SY,PRINT,SAV       ;   
           .END    START
  
    ;       PRINT
    ;      ---------------
    ;
           .MCALL  .PRINT,.EXIT
    BUFF=510
    START: .PRINT  #MSG               ; 
           .PRINT  #BUFF              ;  510-777
           .PRINT  #MSG1              ; 
           .EXIT
    MSG:   .ASCII  /    /
           .ASCIZ  / 510-777/
    MSG1:  .ASCIZ  / /
           .EVEN
           .END    START
  
  
  
        7.6.2.  .NFDF
  
  
  
           .NFDF      
        -
   .
  
         :
  
           .NFDF
  
         :
  
    CONFIG  =^O300
    FBMON$  =^O1
    HWDSP$  =^O4
    BATCH$  =^O10
    CLK50$  =^O40
    HWFPU$  =^O100
    FJOB$   =^O200
 
                             - 111 -
  
  
  
  
    GTLNK$  =^O400
    USR$    =^O1000
    LSI$    =^O4000
    MMU$    =^O10000
    LKCS$   =^O20000
    KW$P    =^O40000
    CLOCK$  =^O100000
    CONFG2  =^O370
    CACHE$  =^O1
    MPTY$   =^O2
    SWREG$  =^O4
    LIGHT$  =^O10
    EIS$    =^O400
    VS6$0   =^O1000
    TYP70$  =^O40000
    TYP60$  =^O100000
    SYSGEN  =^O372
    ERLG$   =^O1
    MMGT$   =^O2
    TIMIT$  =^O4
    MPTY$   =^O1000
    TIMER$  =^O2000
    ESCP$   =^O14000
    MTTY$   =^O20000
  
             ,  -
     .
  
         .
  
             USR.
  
        .
  
          .MCALL  .CNFDF,.EXIT,.PRINT,.GVAL
          .CNFDF                     ; 
                                     ; 
                                     ;CONFIG (300)  
                                     ; ( USR$)
   START: .GVAL   #AREA,#CONFIG      ; 
                                     ; CONFIG  R0
           BIT    R0,#USR$           ; USR$ ?
           BEQ    1$                 ;
          .PRINT  #MSG               ;... 
           BR     2$
   1$:    .PRINT  #MSG1              ; 
   2$:    .EXIT
   AREA:  .BLKW   2                  ;  
   MSG:   .ASCIZ  /USR  /
   MSG1:  .ASCIZ  /USR /
          .EVEN
          .END    START
  
  
  
  
  
  
  
 
                             - 112 -
  
  
  
  
        7.6.3.  .NSW (F, XM, TS)
  
  
  
            .NSW     ,
         -
              
       .
  
         TS-  .CNTXSW   
   NOP.
  
         :
  
           .NSW R,DDR
  
   
  
   R   -       ;
  
    DDR  -     ,      
             .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   33   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
               .
              -
    :
  
          -   2 - 476;
  
          -    ;
  
          -   / (160000-177776).
  
                  
      , :
  
          -    R0-R5  R7;
          -     PS;
          -   R ( 34-36);
          -     (40-52);
          - ,   .NSW.
  
          .SF     -
   ,           
      ( -1420).
  
            .NSW, -
        ; 
    .          
      USR        
   .
 
                             - 113 -
  
  
  
  
          DDR=0,      -
   .
  
  
        .  -  .NSW -
      :
  
          -        -
            , ..       
               ;
  
          -  I, R,     
                -.
  
        :
  
                         
  
            0         ADDR  
                     
  
               -
     20, 22, 177302, 177304, 177310.
  
        .
  
          .MCALL  .CNTXSW,.PRINT,.EXIT
   START:  MOV    #LIST,R0
          .CNTXSW ,SWAPLS            ;  
                                     ; 
           BCC    1$
          .PRINT  #MSG
          .EXIT
   1$:    .PRINT  #MSG1
          .EXIT
   SWAPLS:.WORD   20                 ; 
          .WORD   22                 ; 
          .WORD   177302
          .WORD   177304
          .WORD   177310
          .WORD   0                  ; 
   LIST:  .BYTE   0,33               ;  
          .WORD   0
   MSG:   .ASCIZ  / /
   MSG1:  .ASCII  /  /
          .SCIZ  / /
          .EVEN
          .END    START
  
  
  
        7.6.4.  .RL
  
  
  
           .RL    
      (  0-37).
  
         :
 
                             - 114 -
  
  
  
  
           .RL
  
         :
  
    NUL     =^O000
    SOH     =^O001
    STH     =^O002
    ETX     =^O003
    EOT     =^O004
    ENQ     =^O005
    ACK     =^O006
    BEL     =^O007
    BS      =^O010
    HT      =^O011
    LF      =^O012
    VT      =^O013
    FF      =^O014
    CR      =^O015
    SO      =^O016
    SI      =^O017
    DLE     =^O020
    DC1     =^O021
    DC2     =^O022
    DC3     =^O023
    DC4     =^O024
    NAK     =^O025
    SYN     =^O026
    ETB     =^O027
    CAN     =^O030
    EM      =^O031
    SUB$    =^O032
    ESC     =^O033
    FS      =^O034
    GS      =^O035
    RS      =^O036
    US      =^O037
  
             ,  -
     .
  
         .
  
             .CHAIN  (.
   . 7.6.1).
  
  
  
        7.6.5.  .DATE
  
  
  
           .DATE      
      R0:
  
          -  13-10 -   (1-12.);
  
          -  9-5 -   (1-31.);
  
          -  4-0 -  (   -
 
                             - 115 -
  
  
  
  
                 1972).
  
         :
  
           .DATE
  
          R0:
  
                     !--------!--------!
         R0 =>       !   12   !   0    !
                     !--------!--------!
  
            R0=0,    -
   ,      .
  
  
        .      -
      (   ). , -
         31 . 
            -
   .
  
         .
  
             ,  -
       DATE.
  
        .
  
    ;   :
    ;
    ;          JSR    PC,DATE
    ;
    ; : R0 =  (1-12)
    ;            R1 =  (1-31)
    ;            R2 =  (  100)
    ;
    ; : R0=0,     
    ;
           .MCALL  .DATE,.POP,.PUSH
    DATE:
           .PUSH   R2,R1,R0           ; 
           .DATE                      ; 
            MOV    R0,R2              ;?
            BEQ    1$                 ;
            BIC    #^C37,R2           ;   R2
            ADD    #72.,R2
            MOV    R0,R1              ; 
            ASL    R1
            ASL    R1
            ASL    R1
            SWAB   R1
            BIC    #^C37,R1
            SWAB   R0                 ; 
            ASR    R0
            ASR    R0
            BIC    #^C37,R0
    1$:    .POP    R0,R1,R2           ; 
            RTS    PC
 
                             - 116 -
  
  
  
  
           .END
  
  
  
        7.6.6.  .DBLK
  
  
  
          .DL     
        RDI-50.
  
         :
  
           .DL DV,N,Y
  
   
  
   DV    -  ;
  
   N    -  ;
  
   Y    -   .
  
             .
  
         .
  
             .CHAIN  (.
   . 7.6.1).
  
  
  
        7.6.7.  .DVI (FB, XM, TS)
  
  
  
          .DEVICE     -
          ,  
     . ,   
    .EXIT       
   <CTRL/C>         
    .       -
             
   .
  
                (
       REENTER)         
   .DEVICE,  EE      -
      .
  
            .DVI     
   ,        
    .
  
         .DEVICE ,    -
         XM-  
   ,    
    TS-.
  
 
                             - 117 -
  
  
  
  
         :
  
           .DVI R,DDR[,LIN]
  
   
  
   R   -       ;
  
   DDR   -      ;    
            ADDR   "#0",      -
              (         LINK   
            );
  
   LIN   - ,  '   
                -
             .DVI;   ,  
                 ,   
            ';   ,       
               .
  
            ( '):
  
                     !--------!--------!
         R0 => AREA: !   14   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
            ( '):
  
                     !--------!--------!
         R0 => AREA: !   14   !   1    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
               -
     . ,      '-
   ,   '       
   :
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 118 -
  
  
  
  
                    
  
           '                '
  
           !----------!                  !----------!
    ADDR:  !     !           ADDR:  !     0    !
           !----------!                  !----------!
           !  !                  !     !
           !----------!                  !----------!
           !     !                  !  !
           !----------!                  !----------!
           :          :                  :          :
           :          :                  :          :
           !----------!                  !----------!
           !  !                  !     !
           !----------!                  !----------!
           !    0     !                  !  !
           !----------!                  !----------!
                                         !     0    !
                                         !----------!
  
               
   :
  
    1
          - ,    ;
  
    2
          - ,     
            ;
  
    3
          - ;
  
    4
          - ;
  
                     ..
  
        .
  
         .
  
                     
   172570  0.
  
        .
  
           .MCALL  .DEVICE,.EXIT
    START: .DEVICE #AREA              ; 
           .EXIT
    AREA:  .BYTE   0,10               ;  
           .WORD   ATOD
    ATOD:  .WORD   172570             ;  
           .WORD   0                  ;
           .WORD   0
           .END    START
  
  
 
                             - 119 -
  
  
  
  
        7.6.8.  .DIR
  
  
  
           .DIR  B  ,
     B.
  
         :
  
           .DIR DDR
  
   
  
   DDR   -   B B .
  
               -
     .
  
         B.
  
              .SYNCH  (.
   7.6.32).
  
  
  
        7.6.9.  .DSTATUS
  
  
  
            .DSUS    
       .
  
         :
  
           .DSUS DDR,DN
  
   
  
   DDR   -    4       
            ;
  
   DN   -    ,            
            (RDI-50),     -
            .
  
              .  
   ,        
    ,        
             -
   .
  
           :
  
    1
          -   ();
  
    2
          -    ;
  
 
                             - 120 -
  
  
  
  
    3
          -       (   
            +6);  0,       
            ;
  
    4
          -    ;  -   
             .     -
               .
  
  
           :
  
    15 -  ,   
            (, LP, TT, MT   ..),    
              (, RK);
  
    14 -  ,       
            (, PR);
  
    13 -  ,       
            (, LP);
  
    12 -  ,        
              (, MT);
  
    11 -  ,     
                , -
                   -
            ,    ;
  
    10 -  ,     .SPFUN  ,
                 .SPFUN;
  
    0 - 7
          - ,   .
  
           ,   -
   :
  
   0      -       (RK);
  
   3      -     (LP);
  
   4      -   (TT)    -
             (BATCH);
  
   6      -      (DY);
  
   7      -  /   (PC);
  
   11     -   (MT);
  
   12     -     (RF);
  
   13     -     (CT);
  
   14     -     (CR);
  
 
                             - 121 -
  
  
  
  
   20     -      (M);
  
   21     -    20  40 M (DP);
  
   22     -   (DX);
  
   23     -      14 M (DM);
  
   25     - - (NL);
  
   34     -       
             (DD);
  
   41     -     (LS);
  
   42     -     (MQ);
  
   44     -        -
              (XT);
  
   60     -    (UX,UY,UZ);
  
   377    -    (VM).
  
        :
  
                         
  
            0         
                   .
  
                ,  
    ,    .
  
        .
  
           .MCALL  .DSTATUS,.PRINT,.EXIT,.FETCH,.RELEAS
    START: .DSTATUS #CODE,#FTPR       ; 
                                      ; 
            BCC    1$
           .PRINT  #MSG
           .EXIT
    1$:     TST    CODE+4             ; ?
            BNE    3$                 ;
           .FETCH  #DRVR,#FTPR        ;...
                                      ;
            BCC    2$
           .PRINT  #MSG1
           .EXIT
    2$:    .PRINT  #MSG2              ; 
           .EXIT
    3$:    .RELEAS #FTPR              ; 
            BCC    4$
           .PRINT  #MSG3
           .EXIT
    4$:    .PRINT  #MSG4              ; 
           .EXIT
    CODE:  .BLKW   4                  ; 
    FTPR:  .RAD50  /RK0/              ; 
 
                             - 122 -
  
  
  
  
           .RAD50  /FILE  MAC/        ; 
    MSG:   .ASCIZ  / /
    MSG1:  .ASCIZ  / FETCH/
    MSG2:  .ASCIZ  / /
    MSG3:  .ASCIZ  / RELEAS/
    MSG4:  .ASCIZ  / /
           .EVEN
    DRVR   = .                        ; 
                                      ;
           .END    START
  
  
  
        7.6.10.  .EXIT
  
  
  
          .EXIT    -
    .
  
         :
  
           .EXIT
  
           .R . 
    /   , -
      ,  .
  
            .EXIT R0=0,  -
      .RS,   -
       RNR, SR, LS.
  
         .EXIT      
       500-777        KMON,
           .  
     :
  
          -  (,  ) 510   
                 ,    
            N;
          -  ,   512 , -
                .SIZ, :
  
                       .=510
                       .WRD     -
                 A:    .SIZ    /Y . ./
                       .SIZ    /DL ./
                   =  .
  
          -    .EXIT  
                NIF$      
             (JSW)   R0.
  
             KMON   -
    :
  
          -      ,  
                    
              ;          
 
                             - 123 -
  
  
  
  
                   (..
                 );
          -        -
             ;        
                 ,  
             KMON;
          -  .EXIT     
            .DFN  .QS       .UNL,
                    .L;  
            ,   LS   -
            ,    .DFN;
          -   .EXIT       
            .
  
  
        .      
    ,  N     
    .EXIT. ,     -
     .    .EXIT  -
            KMON,  
         1000 (-
   )   .
  
         .
  
               
     .
  
        .
  
           .MCALL  .EXIT,.JSWDF
           .JSWDF                     ; 
                                      ;JSW   
                                      ;( CHNIF$)
    START:  MOV    #510,R0
            MOV    #CMDSTR,R1
    1$:     MOV    (R1)+,(R0)+
            CMP    R1,#CMDEND
            BLO    1$
            BIS    #CHNIF$,@#JSW      ;  CHNIF$
            CLR    R0
           .EXIT
    CMDSTR:.WORD   CMDEND-CMDSTR      ; 
                                      ;
           .ASCIZ  "DIRECT/FULL *.*"  ; 
    CMDEND:
           .EVEN
           .END    START
  
  
  
        7.6.11.  .F/.RELEAS
  
  
  
          .FETCH  (.RELEAS)  
     ()      -
       .
  
 
                             - 124 -
  
  
  
  
          FB-       
     (  )   -
      LOAD.
  
          XM-     -
      LOAD     
     (  ).
  
          XM/TS-     -
     NOP ( ).
  
           RM-      
         (,  
         
        ).
  
  
  
        7.6.11.1.  .FETCH
  
  
  
          .F    -
       .
  
         :
  
           .F DDR,DN
  
   
  
   DDR   - ,     ;
  
   DN   -  ,         
            RDI-50.
  
                  
   .       .F  R0  
        .    
     ,  R0    ,   -
     .     < 400 (),  
       .RLS.
  
              
   :
  
            .CLOSE          .LOOKUP          .ENTER
            .RENAME         .SPFUN           .DELET
            .READ           .READC           .READW
            .WRITE          .WRITC           .WRITW
  
  
        .  /    -
   ,     .
  
  
  
  
  
 
                             - 125 -
  
  
  
  
        :
  
                          
  
            0        
                   ;   
                     .
  
                 .DSTATUS
   (. . 7.6.9).
  
  
  
        7.6.11.2.  .RLS
  
  
  
          .RLS   -
      .
  
         :
  
           .RLS DN
  
   
  
   DN   -  ,         
            RDI-50.
  
          .RLS,     
   ,    .F.
  
  
        .  .RLS     ,
      LD.    -
      UNLOAD   .
  
         .RELEAS , :
  
          -   ;
          -     ;
          -     (),  -
               LOAD;
          -      -
              (    )      
            FB-.
  
        :
  
                               
  
            0        
                    .
  
                 .DSTATUS
   (. . 7.6.9).
  
  
  
 
                             - 126 -
  
  
  
  
        7.6.12.  .GTJB
  
  
  
            .GJ     
      .
  
         :
  
           .GJ R,DDR[,JOBBLK]
  
   
  
   R   -       ;
  
   DDR   -         ,  
             ;
  
   JOBBLK -      ,    
                -7.
  
           :
  
                     !--------!--------!
         R0 => AREA: !   20   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
                     !     JOBBLK      !
                     !-----------------!
  
                  
   ADDR:
  
    1
          -    ;  RM/SJ-  
              ;  FB/XM-  -
                  -  ,
               - 2, 4, 6, 10, 12, 14   
             - 16;  FB/XM-   
                - ,   -
             - ;  TS- -  ;
  
    2
          -     ( +2);
  
    3
          -    ;
  
    4
          -     /;
  
    5
          -                   (
            F/XM/TS-);
  
    6
  
  
 
                             - 127 -
  
  
  
  
  
                 -  ,    -
                       (     
                     ); 
                   ,    ;
  
             
                 - ;
  
    7
          -      
            (   XM-);  ,  
                    -
            ;
  
    8-9
          - ;
  
    10-12
          -       -7  (  
             FB/XM-    -
              TS-);    ,    
               ;      
            RM/SJ-.
  
              ADDR   (      
   /)       
   . ,     .CDFN, 
        /    
    ,     -
   .
  
          JOBBLK       -
     (   0  16)    -
           .  
    JOBBLK  "ME"  "-1",   -
      .    JOBBLK  
     "-3",     8  -
    (..        -
      FB/XM-    -
   ).   TS-   JBBLK    -
     .
  
        :
  
                           
  
           0           .
  
                 ,  
     .
  
        .
  
           .MCALL  .GTJB,.PRINT,.EXIT
    START: .GTJB   #AREA,#JOBARG      ; 
            MOV    #MSG,R0
            TST    JOBARG             ; ?
            BNE    1$                 ;
 
                             - 128 -
  
  
  
  
            MOV    #MSG1,R0           ;
    1$:    .PRINT                     ; 
           .EXIT
    MSG:   .ASCIZ  /   /
    MSG1:  .ASCIZ  /   /
           .EVEN
    AREA:  .BLKW   2                  ;  
    JOBARG:.BLKW   8.                 ; 
           .END    START
  
  
  
        7.6.13.  .GVL
  
  
  
          .GVL   R0  -
      .
  
         :
  
           .GVL R,FFS
  
   
  
   R   -       ;
  
   FFS -      .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   34   !   0    !
                     !--------!--------!
                     !     OFFSET      !
                     !-----------------!
  
         .GVL        
       .
  
  
        .       
   ,     .ROFDF.
  
         TS-,    (-
     .ROFDF),    -
    ():
  
   -2     -   ();
  
   -4     -     ;
                     (
            177);
  
   -6     -  "1" -      (
             ); "0" - -
             (  -
            );
  
 
                             - 129 -
  
  
  
  
   -10    -    "1",   PAR   7         
            /;  "0",      -
            ;
  
   -12    -   ,  ;
  
   -14    -    ;
  
   -16    - .
  
        :
  
                         
  
            0         
                  .
  
               
     MONVER       MONUPD.
  
        .
  
           .MCALL  .GVAL,.EXIT,.ROFDF
           .ROFDF                     ; 
                                      ; 
                                      ;( SYSVER)
    START: .GVAL   #AREA,#SYSVER      ;  R0 -
                                      ;  
            MOVB   R0,MONVER          ;  
            SWAB   R0
            MOVB   R0,MONUPD         ;  
           .EXIT
    MONVER:.BLKB
    MONUPD:.BLKB
    AREA:  .BLKW   2                  ;  
           .END    START
  
  
  
        7.6.14.  .HERR/.SERR
  
  
  
         .HERR/.SERR     
   (  )      
    .
  
  
  
        7.6.14.1.  .HERR
  
  
  
            .HERR      
       .  
     .
  
         :
  
 
                             - 130 -
  
  
  
  
           .HERR
  
          R0:
  
                     !--------!--------!
         R0 =>       !    5   !   0    !
                     !--------!--------!
  
          .HERR   
           -
     .
  
        :
  
              .
  
             .SERR  (-
    7.6.14.2).
  
  
  
        7.6.14.2.  .SERR
  
  
  
          .SERR   -
           
        .
  
         :
  
           .SRR
  
          R0:
  
                     !--------!--------!
         R0 =>       !    4   !   0    !
                     !--------!--------!
  
              -
    . ,      /  
   ,     ,    -
        USR.     
            
      . ,     
       -
    -  .
  
             "",
     52    .
  
          ,     -
    .LOOKUP  .ENTER,  .SERR   -
    .      -
      .PURGE  .CLOSE     -
   .
  
  
  
 
                             - 131 -
  
  
  
  
        :
  
                         
  
           -1      USR   ;
  
           -2       ,  
                     ;
  
           -3      / ;
  
           -4      .F;    
                    ,  
                      RMON  USR;
  
           -5       ;
  
           -6          ;
  
           -7       (  
                  FB-);  
                     ;
  
          -10       ;  ,
                     
                  ;
  
          -11      ;   .
  
          .SRR    -
      4  10,       
    .      -
    .RS, .SF.
  
             .ENTER    
   PC:,     .    -
    .SERR       ,  
       .HERR      
     .
  
        .
  
           .MCALL  .ENTER,.HERR,.SERR,.PRINT,.EXIT,.USBDF
    START: .SERR                      ; 
                                      ;  
           .USBDF                     ; 
                                      ; 
                                      ; USERRB
           .ENTER  #AREA,#1,#FILE     ;   PC:
            BCC    3$
            JSR    PC,ERR             ;  
                                      ;
           .HERR                      ; 
                                      ;  
           .ENTER  #AREA,#1,#FILE     ;   PC:
            BCS    ERR1
    3$:    .EXIT
    ERR1:  .PRINT  #MSG
           .EXIT
 
                             - 132 -
  
  
  
  
    MSG:   .ASCIZ  / .ENTER/
           .EVEN
    ERR:    MOVB   @#52,R0            ; 
            NEG    R0                 ;
            DEC    R0
            ASL    R0
            MOV    COD(R0),R0
           .PRINT
            BISB   #3,@#USERRB        ;  
                                      ; 
            RTS    PC
    COD:           C1
                   C2
                   C3
                   C4
                   C5
                   C6
                   C7
                   C10
                   C11
    C1:    .ASCIZ  /USR?/
    C2:    .ASCIZ  /  /
    C3:    .ASCIZ  /  /
    C4:    .ASCIZ  / .FETCH/
    C5:    .ASCIZ  /?/
    C6:    .ASCIZ  /   /
    C7:    .ASCIZ  / /
    C10:   .ASCIZ  /  /
    C11:   .ASCIZ  /  /
           .EVEN
    AREA:  .BLKW   4                  ;  
    FILE:  .RAD50  /PC/
           .WORD   0,0,0
           .END    START
  
  
  
        7.6.15.  .HRESET/.SRESET
  
  
  
         .HRESET/.SRESET    -
     /,     
   ,     .
  
  
  
        7.6.15.1.  .HRESET
  
  
  
              .HRESET       
   /,   ,  
       .FETCH,   
    /.
  
         :
  
  
 
                             - 133 -
  
  
  
  
           .HRESET
  
           .HRESET      
     .
  
           .HRESET    
     .  /    -
     .
  
         .
  
              .CDFN  (.
   . 7.3.1).
  
  
  
        7.6.15.2.  .SRESET
  
  
  
          .SRESET   -
     ,    :  -
    ,     ,  -
     .
  
         :
  
           .SRESET
  
             ,  
     LD,  .
  
                16  ()
    /.  ,   -
    .DFN, .
  
              16      
   .SRS,    .QS  .CDFN.
  
           .
  
         .
  
             .RCTRLO  (.
   7.6.23).
  
  
  
        7.6.16.  .INN
  
  
  
          .INN    -
    ,     ""
   (  ),    -
          R4    R5  
        .
          
   .
 
                             - 134 -
  
  
  
  
         TS-     
   .INTEN   .
  
         :
  
           .INN RI[,I]
  
   
  
   RI   -       -
            ;
  
   I    -  .
  
         I  ,      
      - ,  
    .      
      .
  
              
    7- .  .INN   -
      .
  
                ,   
     .INN,   RS .
  
         .
  
              .SYNCH  (.
   7.6.32).
  
  
  
        7.6.17.  .JSWDF
  
  
  
           .JSWDF      
        -
   .
  
         :
  
           .JSWDF
  
         :
  
    JSW     =^O44
    USWAP$  =^O100000
    TTLC$   =^O40000
    RSTRT$  =^O20000
    TTSPC$  =^O10000
    CHNIF$  =^O4000
    VIRT$   =^O2000
    OVLY$   =^O1000
    CHAIN$  =^O400
    HLTER$  =^O200
    TCBIT$  =^O100
    ESCFL$  =^O40
 
                             - 135 -
  
  
  
  
    ESCSQ$  =^O20
    GTLIN$  =^O10
  
             ,  -
     .
  
         .
  
              .EXIT  (.
   . 7.6.10).
  
  
  
        7.6.18.  .LOCK/.TLOCK/.UNLOCK
  
  
  
           .LOCK/TLOCK/UNLOCK      
    USR    -   USR  
             -
   ,          
   ,  ,   USR   -
   .
  
          .LOCK/TLOCK/UNLOCK    
     ,  , -
         ,   -
       USR.           
        ,    
   USR.
  
            USR  (      
   )    .L, ..  -
         -
    .UNL.
  
          .LOCK   .UNLOCK    .
       .LOCK,  USR   -
     .     .UNLOCK   -
   ,   .
  
               
     LOCK/UNLOCK  ,    .  
     USR,       
        ,       -
   .
  
         TS-  .LOCK/.TLOCK/.UNLOCK  -
     NOP.
  
  
  
        7.6.18.1.  .LOCK
  
  
  
          .L  USR  (  
    )       .
  
 
                             - 136 -
  
  
  
  
         :
  
           .LOCK
  
          USR   :
  
          - USR           
             ;      
                (SWAP.SYS);  -
               USR;
  
          - USR              
              ;     
            USR;
  
          - USR         -
            ;        
             NOP ( );
  
          - USR          -
            ;    ;
  
          - USR       ;
                      
                 
            ,  USR        
             .
  
          FB-  CSI       
               
   .UNLOCK.
  
         .
  
                  .UNLOCK
   ( 7.6.18.3).
  
  
  
        7.6.18.2.  .TLOCK
  
  
  
          .TLOCK ,  
      USR;  USR ,  
    .LOCK,      
       "C" .
  
         :
  
           .L
  
          R0:
  
                     !--------!--------!
         R0 =>       !    7   !   0    !
                     !--------!--------!
  
            "C" ,  -
 
                             - 137 -
  
  
  
  
    .TLOCK  .
  
        :
  
                         
  
            0     USR    .
  
        .
  
           .MCALL  .TLOCK,.LOOKUP,.UNLOCK,.PRINT,.EXIT
    START: .TLOCK                     ;USR ?
            BCS    SUSPND             ;
           .LOOKUP #AREA,#4,#J1NAM    ;... 
            BCS    LKERR
           .UNLOCK                    ; USR
           .EXIT
    SUSPND: JSR    PC,SPSJOB
            JSR    PC,SCHED
            BR     START
    AREA:  .BLKW   10
    J1NAM: .RAD50  /DK TEST1 TMP/
    LKERR: .PRINT  #LKMSG
           .EXIT
    LKMSG: .ASCIZ  / LOOKUP/
           .EVEN
    SPSJOB: .                          ; 
            .
            RTS    PC
    SCHED:  .                          ; 
            .
            RTS    PC
           .END    START
  
  
  
        7.6.18.3.  .UNL
  
  
  
            .UNL    
    USR,   .LOCK.
  
         :
  
           .UNL
  
          .L  ,   .UNL
        .
  
         USR   ,  .UNL .
  
            .UNL,   -
    .L,    .
  
         .
  
              .SETTOP    
   ,     USR.  
 
                             - 138 -
  
  
  
  
   ,  .LOCK USR     -
    , ..     .LOOKUP
       .       
   .UNLOCK USR   .
  
        .
  
            .MCALL .LOCK,.UNLOCK,.SETTOP,.SCMDF
            .MCALL .LOOKUP,.PRINT,.EXIT
    START:  .SCMDF                    ; 
                                      ;  
                                      ;( SYSPTR)
            .SETTOP @#SYSPTR          ;  
            .LOCK                     ; USR  
            .LOOKUP #AREA,#0,#DEV1    ; USR
            BCS    1$
            .LOOKUP #AREA,#1,#DEV2
            BCS    1$
            .UNLOCK                   ; USR  
            .EXIT
    1$:     .PRINT #MSG
            .EXIT
    MSG:    .ASCIZ / .LOOKUP/
            .EVEN
    AREA:   .BLKW  3                  ;  
    DEV1:   .RAD50 /SY FORTRASAV/
    DEV2:   .RAD50 /SY PATCH SAV/
            .END   START
  
  
  
        7.6.19.  .MFPS/.MTPS
  
  
  
         .MFPS/.MTPS      
           -
   .
  
          XM-        
      ,    -
     .
  
            R0      
     .
  
  
  
        7.6.19.1.  .FS
  
  
  
          .FS   -
         .
  
         :
  
           .FS DDR
  
 
                             - 139 -
  
  
  
  
   
  
   DDR   - ,       .
                ,      
            .
  
  
        .      -
    .      -
       .   
    .
  
         .
  
             .MTPS  (-
    7.6.19.2).
  
  
  
        7.6.19.2.  .S
  
  
  
            .S    
     T-    .
  
         :
  
           .S DDR
  
   
  
   DDR   - ,        
             .   , -
               .   
             ,  ,      
               ,     
             .
  
         .
  
               ,  -
     ,    .
  
        .
  
           .MCALL  .MFPS,.MTPS,.EXIT
    START:  JSR    PC,PICKQ
            NOP
            NOP
            NOP
           .EXIT
    PICKQ: .MFPS                      ; 
                                      ; 
            MOV    #QHEAD,R4
           .MTPS   #340               ;  7
            MOV    @R4,R5
            BEQ    1$
            MOV    @R5,@R4
 
                             - 140 -
  
  
  
  
           .MTPS                      ; 
                                      ; 
            CLZ
    1$:     RTS    PC
    QHEAD: .WORD   Q1
    Q1:    .WORD   Q2,0,0
    Q2:    .WORD   Q3,0,0
    Q3:    .WORD   0,0,0
           .END    START
  
  
  
        7.6.20.  .POP/.PUSH
  
  
  
         .POP/.PUSH      
        .
  
  
  
        7.6.20.1.  .POP
  
  
  
          .    
        .
  
         :
  
           .POP ADDR
  
   
  
   ADDR   - ,     .
  
              .
  
        :
  
                    .POP <ADR1,ADR2,...,ADRN>
  
         .
  
              .DATE  (.
   . 7.6.5).
  
  
  
        7.6.20.2.  .PUSH
  
  
  
          .PUSH     -
      .
  
         :
  
  
 
                             - 141 -
  
  
  
  
           .PUSH ADDR
  
   
  
   ADDR   - ,       
            .
  
             .
  
        :
  
                   .PUSH <ADR1,ADR2,...,ADRN>
  
         .
  
              .DATE  (.
   . 7.6.5).
  
  
  
        7.6.21.   .PROTECT/.UNPROTECT  (FB,
                XM, TS)
  
  
  
         .PROTECT/.UNPROTECT   -
    ()      
     .
  
         TS-  .PROTECT/.UNPROTECT -
     NOP.
  
  
  
        7.6.21.1.  .PROTECT
  
  
  
          .R   -
          -
    0-476 ().
  
         :
  
           .PROTECT AREA,ADDR
  
   
  
   AREA   -       ;
  
   ADDR   -  ,    .
  
  
  
  
  
  
  
  
 
                             - 142 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   31   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
                     !     ADDR+2      !
                     !-----------------!
  
               .R
   ,          -
           -
    .
  
        :
  
                         
  
            0           
                  ;
  
            1      (ADDR) > 476 ()  
                   4.
  
               .UNPROTECT
   ( 7.6.21.2).
  
  
  
        7.6.21.2.  .UNPROTECT
  
  
  
          .UNPROTECT    
      0-476.
  
         :
  
           .UNPROTECT AREA,ADDR
  
   
  
   AREA   -       ;
  
   ADDR   -  ,    .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   31   !   1    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
        :
  
                         
  
 
                             - 143 -
  
  
  
  
            1      (DDR) > 476 ()  
                   4.
  
        .
  
           .MCALL  .PROTECT,.UNPROTECT,.EXIT,.PRINT
    START: .PROTECT #AREA,#234        ;  234, 236
            BCS    INUSE
            .
            .
            .
           .UNPROTECT #AREA,#234      ; 
           .EXIT
    INUSE: .PRINT  #ERR
           .EXIT
    ERR:   .ASCIZ  / PROTECT/
           .EVEN
    AREA:  .BLKW   2                  ;  
           .END    START
  
  
  
        7.6.22.  .QSET
  
  
  
          .QSET   
    /,    ..
  
         TS-   .QSET    
   NOP.
  
         RM-  .QSET     -
           (,  
         
        ).
  
         :
  
           .QSET ADDR,LEN
  
   
  
   ADDR   -       -
            ;
  
   LEN    -    .
  
         RM/SJ/FB-      
    .  XM/TS- -   .  ,
   ,   ,  :
  
          -  RM/SJ/FB- - LEN*7;
  
          -  XM/TS- - LEN*10.
  
     ,    ,  -
          -
    (10 ).     R0  -
 
                             - 144 -
  
  
  
  
        .
  
          .QSET         ,
    .
  
              -
   .  ,     -
   ,    .    -
    R0       -
    .
  
         .SRESET  .HRESET      
   ,  .   
       .QSET,        
      .
  
            .QSET  -
      ,    USR,  
      .
  
          XM-      
       56  , .. 
            .  
   ,        
    ,  PAR1 (  
   20000  37776).
  
             -
   :
  
             .READ           .READC          .READW
             .WRITE          .WRITC          .WRITW
             .RCVD           .RCVDC          .RCVDW
             .SDAT           .SDATC          .SDATW
             .TWAIT          .MRKT
  
        :
  
             XM-   
           ,  PAR1,   -
            ?MON-F-ADDR ERROR.    
               .SERR.
  
              .MRKT  (.
   . 7.5.4).
  
  
  
        7.6.23.  .RRL
  
  
  
          .RRL    -
     (  RL/).
  
         :
  
           .RRL
  
 
                             - 145 -
  
  
  
  
         <RL/>,      ,  
     .        -
     <RL/>       -
    .RRL.
  
         .
  
                -
      .       .RCTRLO
       ,        
     .
  
        .
  
           .MCALL  .RCTRLO,.CSIGEN,.EXIT,.SRESET
    START: .RCTRLO                    ;   :
           .CSIGEN #DSPACE,#DEXT,#0   ; 
                                      ;
            BCS    NSCI
           .READW  #AREA,#3,#BUFF,#256.,#0 ;
            BCS    NRE
           .WRITW  #AREA,#0,#BUFF,#256.,#0 ;
            BCS    NWR
           .SRESET
            JMP    START
    NCSI:  .PRINT  #MSG
           .EXIT
    NRE:   .PRINT  #MSG1
           .EXIT
    NWR:   .PRINT  #MSG2
           .EXIT
    MSG:   .ASCIZ  / CSI/
    MSG1:  .ASCIZ  / READ/
    MSG2:  .ASCIZ  / WRITE/
           .EVEN
    DEXT:  .WORD   0,0,0,0            ; 
    AREA:  .BLKW   5                  ;  
    BUFF:  .BLKW   256.               ; /
    DSPACE  =.                        ; 
                                      ;
           .END    START
  
  
  
        7.6.24.  .RFDF
  
  
  
          .RFDF  
       .
  
         :
  
           .RFDF
  
         :
  
    $USRLC  =^O266
    QCOMP   =^O270
 
                             - 146 -
  
  
  
  
    SPUSR   =^O272
    SYUNIT  =^O275
    SYSVER  =^O276
    SYSUPD  =^O277
    TTKS    =^O304
    TTKB    =^O306
    TTPS    =^O310
    TTPB    =^O312
    MAXBLK  =^O314
    SYSCH   =^O324
    GTVEC   =^O354
    $MTPS   =^O360
    $MFPS   =^O362
    STATWD  =^O366
    USRAREA =^O374
    IFMXNST =^O377
    EMTRTN  =^O400
    FORK    =^O402
  
             ,  -
     .
  
         .
  
               .GVAL  (.
   7.6.13).
  
  
  
        7.6.25.  .S
  
  
  
            .S     
       <RL/>;    
         <RL/>.
  
         RM-     , ..  -
     KMON.
  
         :
  
           .S R,DDR
  
   
  
   R   -       ;
  
   DDR   - ,      -
             ( ).
  
           :
  
                     !--------!--------!
         R0 => AREA: !   35   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
 
                             - 147 -
  
  
  
  
          .S    
      <RL/>,   -
    .  <RL/>    
            
    .
  
         ,         <RL/>
    15        (DDR).
          -
   .
  
         .SCCA    <CTRL/C>  
   .
  
         DDR=0,     .SCCA  .  
        <CTRL/C>,  
     ,    <CTRL/C>      
   .
  
         .
  
                CTRL/C    
    ( CTRL/C)    .    
    CTRL/C   15   -
    .         
    CTRL/C     ADDR=0.
  
        .
  
           .MCALL  .SCCA,.PRINT,.TTYIN,.TTYOUT
    JSW    = 44
    TTSPC$ = 10000
    START:  MOV    #SCCA,R1
           .SCCA   #AREA,R1           ; CTRL/C
            BIS    #TTSPC$,@#JSW
            CLR    (R1)
           .PRINT  #MSG
    1$:     TST    (R1)               ; CTRL/C?
            BNE    2$                 ;
           .TTYIN                     ;... 
           .TTYOUT                    ;-
            BR     1$
    2$:    .PRINT  #CTRLC
           .SCCA   #AREA,#0           ; 
                                      ; CTRL/C
            BR     .
    SCCA:  .BLKW   1                  ; 
                                      ;
    AREA:  .BLKW   2                  ;  
    MSG:   .ASCII  /  .SCCA/<15><12>
           .ASCIZ  " CTRL/C  "
           .EVEN
    CTRLC: .ASCII  "CTRL/C "<15><12>
           .ASCII  "  CTRL/C  "
           .ASCIZ  /  /
           .EVEN
           .END    START
  
  
 
                             - 148 -
  
  
  
  
        7.6.26.  .SDF
  
  
  
          .SDF  
      .
  
         :
  
           .SDF
  
         :
  
    USERPC  =^O40
    USERSP  =^O42
    UFLOAT  =^O46
    USERTOP =^O50
    SYSPTR  =^O54
    TTFILL  =^O56
    TTNFIL  =^O57
  
             ,  -
     .
  
         .
  
             .UNLOCK (.
    7.6.18.3).
  
  
  
        7.6.27.  .S
  
  
  
            .S    
         
    .      
        .
  
         :
  
           .S DDR
  
   
  
   ADDR   -  ,     -
            .  ADDR=-2,      
             .
  
            ,  -
        USR.    
    ,  ,   
     USR,    , .. USR
      .  .S   -
           USR,
     "S USR NSW"     ,    
   .
  
 
                             - 149 -
  
  
  
  
               .S  R0  
    50 ()      -
     .    -
     ,      
    .
  
          R0   50     
      .     -
   ,          
     .
  
                 
              -
    KMON.  .SETTOP     (ADDR=0)
          -
    KMON.       -
   ,       -
    .
  
         .
  
             .UNLOCK (.
    7.6.18.3).
  
  
  
        7.6.27.1.    XM-
  
  
  
           .SETTOP   
   ,        
    LINK   /XM   LINK   /V.
     .SETTOP    -
      .
  
           -     
    ,      -
      (T.E.   PAR, 
    ),     PAR.
  
           -      
       ,  -
     ,   ,  -
       ,    
     177776.         .
          
   ,   32- ,    
   ,   .LIMIT  (  -
     ).     -
      ,      
    .  .SETTOP    
         ,  -
     . T O   -
         . 
    .SETTOP    -
    ,   . ,  -
         ,  
      .      .SETTOP  
 
                             - 150 -
  
  
  
  
      .
  
  
  
        7.6.27.2.    TS-
  
  
  
               
   .      (  
   )     ,  -
       MEMORY    -
   .
  
           :
          -  ,      -
              ;
          -    ,      
             56      
               ;
          -  ,    56,   -
               ;     -
                ,  -
              ,    
              .CHAIN.
  
         :
  
           .SETTOP AREA,ADDR
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -  ,     -
            .  ADDR=-2,      
             .
  
           :
  
                     !--------!--------!
         R0 => AREA: !    0   !  141   !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
           R0   -
      .
  
            ,     
      RUN   /DEBUG   
        .
  
  
  
  
  
  
  
 
                             - 151 -
  
  
  
  
        7.6.28.  .SF
  
  
  
          .SF  -
   ,        (  
   -1420  -4/20),     
    .
  
         :
  
           .SF R,DDR
  
   
  
   REA   -    EMT   ;
  
   ADDR   -    .
  
           :
  
                     !--------!----- --!
         R0 => AREA: !   30   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
        ,             
       ,  
           -
    .
  
           .SF    
      .    DDR  
      .
  
          ADDR=0,     .SFPA  -
   .
  
            FB-,      ADDR=1,  
          -
             
        .  DDR=1,  -
        .     
        .    SJ-  
   ADDR=1  ,  ADDR=0.
  
          .SF   -
    ,      ,    
      , ..   -
       .SFPA.
  
                
   ,   .
  
                  
     RTI.
  
         .
 
                             - 152 -
  
  
  
  
        .
  
           .MCALL  .SFPA,.EXIT
    START:   .
             .
             .
           .SFPA   #AREA,#FPTRAP
             .
             .
             .
           .EXIT
    FPTRAP: MOV    R0,-(SP)
             .
             .
             .
           .SFPA   #AREA,#FPTRAP
             .
             .
             .
            MOV    (SP)+,R0
            RTI
    AREA:  .BLKW   10
           .END    START
  
  
  
        7.6.29.  .SPCPS (FB, XM, TS)
  
  
  
         .SPCPS    
           -
   .   .SPCPS    
        FB/XM/TS-.  
      NOP.
  
         .SPCPS   PC  PS, -
          
     PC   .
  
           ,    -
         -
    .     
        ,      
     .
  
         .SPCPS    ,    
     ,      -
    .SPCPS.  , ,   
         ,      
        .
  
         :
  
           .SPCPS AREA,ADDR
  
   
  
   AREA   -    EMT   ;
 
                             - 153 -
  
  
  
  
   ADDR   -        ,
                 PC,   
             PC  PS.
  
           EMT:
  
                       !--------!--------!
           R0 => AREA: !   41   !    0   !
                       !--------!--------!
                       !      ADDR       !
                       !-----------------!
  
        :
  
                                
  
       0            .SPCPS   ,
                       ;
  
       1             .SPCPS 
                    .
  
              .SYNCH  (.
   7.6.32).
  
  
  
        7.6.30.  .SPND/.RSUM (FB, XM, TS)
  
  
  
         .SPND/.RSUM    
      .
  
               .  
        .SPND  -
        .RSUM.    
       ,    
   . ,       .RSU
     .SPND,   .SPND .
  
               
    .SPND  .RSUM.
  
         .RSUM/.SPND,      ,
             ,
    ,     
   .INTEN/.SYNCH.  ,    .RSUM/.SPND  
    ,      .  
       TS-    
          -
   .
  
  
  
  
  
  
  
 
                             - 154 -
  
  
  
  
        7.6.30.1.  .SPND
  
  
  
          .SPND    
             
      /    .
  
         :
  
           .SPND
  
          R0:
  
                     !--------!--------!
         R0 =>       !    1   !   0    !
                     !--------!--------!
  
          .SPND    -
      ,    -
    .       
     .SPND,        
         ,    
      ,     -
    .RSUM   .
  
         .
  
        .
  
           .MCALL  .SPND,.RSUM,.READC,.EXIT
           .MCALL  .LOOKUP,.PRINT,.WAIT
    START: .LOOKUP #AREA,#2,#FILE2
            BCS    1$
           .LOOKUP #AREA,#3,#FILE3
            BCS    1$
           .LOOKUP #AREA,#4,#FILE4
            BCC    3$
    1$:    .PRINT  #2$
           .EXIT
    2$:    .ASCIZ  / LOOKUP/
           .EVEN
    3$:     MOV    #2,RSVCTR
            MOV    #AREA,R5
           .READC  R5,#2,#BUF1,COUNT1,#CROUTN,BLOK1
            BCS    ERROR
           .READC  R5,#3,#BUF2,COUNT2,#CROUTN,BLOK2
            BCS    ERROR
           .READC  R5,#4,#BUF3,COUNT3,#CROUTN,BLOK3
            BCS    ERROR
           .SPND
           .WAIT   #2
           .WAIT   #3
           .WAIT   #4
           .EXIT
    CROUTN: ASL    R1
            INC    DONFL(R1)
            ROR    R0
            ADC    ERRFLG(R1)
 
                             - 155 -
  
  
  
  
            DEC    RSVCTR
            BNE    1$
           .RSUM
    1$:     RTS    PC
    ERROR: .PRINT  #RDMSG
           .EXIT
    RDMSG: .ASCIZ  / READ/
           .EVEN
    AREA:  .BLKW   10
    RSVCTR:        0
    COUNT1:        256.
    COUNT2:        256.
    COUNT3:        256.
    BLOK1:         0
    BLOK2:         0
    BLOK3:         0
    FILE2: .RAD50  /DK TEST2 TMP/
    FILE3: .RAD50  /DK TEST3 TMP/
    FILE4: .RAD50  /DK TEST4 TMP/
    DONFL:         0,0,0
    ERRFLG:        0,0,0
    BUF1:  .BLKW   256.
    BUF2:  .BLKW   256.
    BUF3:  .BLKW   256.
           .END    START
  
  
  
        7.6.30.2.  .RSU
  
  
  
            .RSUM    
     ,      -
    .SPND.
  
         :
  
           .RSU
  
          R0:
  
                     !--------!--------!
         R0 =>       !    2   !   0    !
                     !--------!--------!
  
         .RSUM       
      .
  
             .WI    
        ,  -
    .RSU,        
    .SND,      
    ,     ,
     .TWAIT.
  
         .
  
              .SPND  (.
 
                             - 156 -
  
  
  
  
    7.6.30.1).
  
  
  
        7.6.31.  .SDTTM
  
  
  
         .SDTTM    -
          .
  
         :
  
          .SDTTM AREA,ADDR
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -        ,
                .
  
           EMT:
  
                       !--------!--------!
           R0 => AREA: !   40   !    0   !
                       !--------!--------!
                       !      ADDR       !
                       !-----------------!
  
                   
   :
  
    1
          -       -
             (. . 7.6.5);        -
              (  -
             ),   ;  -
                      
            ,       
             "";     -
             ,    ; -
             14  15  "  "    
            ;
  
    2  3
          -    ( 2)    -
             ( 3)        
            .  32-     
            ;   3   -
            ,        -
            ;       
             ,        
            ;    ,   -
               ;    
            50   3          101
            (),   2   165400 (-
            ).
  
 
                             - 157 -
  
  
  
  
             , -
    "  "          
   (,    ,     
   -    ).    
         .
  
  
        .  ,     /
             .TWAIT,
   .MRKT  .CMKT      -
   .
  
         .
  
              -
      1     .
  
        .
  
    ;
    ;     CALL ADDR,
    ;  ADDR  OCT   APR  
    ;   
    ;
            .MCALL .SDTTM,.PRINT,.EXIT,.GTIM
            .GLOBL STD,DALITE
    OCT:    COM     HR              ;   -
            NEG     HR+2            ;    1 
    APR:    .GTIM   #AREA,#TIME     ;  . 
            CALL    JADD            ;   
            .SDTTM  #AREA,#NEWDT    ;   
            .GTIM   #AREA,#TIME     ;   
            RETURN
  
    NEWDT:  .WORD   -1              ; 
    TIME:   .WORD   0,0             ; 
    HR:     .WORD   2               ;  1  
            .WORD   137440          ;  
    AREA:   .WORD   0,0             ;
  
    JADD:   MOV     #HR,R4
            MOV     #AREA,R3
            MOV     #HR,R1
            MOV     -(R4),R2        ;  
            ADD     -(R3),R2        ; 
            MOV     -(R4),R5        ;
            ADC     R5              ;   
            ADD     -(R3),R5        ;  . 
            MOV     R2,-(R1)        ;  
            MOV     R5,-(R1)        ; 
            RETURN
            .END
  
  
  
  
  
  
  
 
                             - 158 -
  
  
  
  
        7.6.32.  .SYNCH
  
  
  
          .SYNCH     -
         -
   .  TS-     
   ,          
   .
  
         :
  
           .SYNCH AREA[,PIC]
  
   
  
   AREA   -     ;     -
                  -
              .SYNCH;
  
   PIC    -  ,   
            .SYNCH  - .
  
         AREA :
  
    1
          -   ,        
            ;
  
    2
          -       (),    
             ;    
             .GTJB;
  
    3-4
          -  ;
  
    5
          -    .SYNCH;    
                  R0;
  
    6
          -   -1;
  
    7
          -   0.
  
         .SYNCH     
         ""  (  
   )       -
   .
  
          .SYNCH  .INTEN    
       .
  
           .SYNCH    ,    
        .   -
           -
   ; R4  R5   .
 
                             - 159 -
  
  
  
  
          .SYNCH ,    -
          .  
        .  R0
    ,        AREA.
   R4  R5     
    ,  R0  R1 - .
  
               
    RTS PC.
  
            ,      
   AREA:
  
          -    7  AREA;   
             ,      -
               .SYNCH;
          -    .SYNCH;   
                ,      
            .
  
        :
  
                 :
           -    .SYNCH, 
                AREA;
           -    ;
           -      
             .
  
        .
  
           .MCALL  .GTJB,.INTEN,.WRITC,.SYNCH,SPCPS
           .MCALL  .EXIT,.DIR,.PRINT
    START:  MOV    #JOB,R5            ; 
           .GTJB   #AREA,R5           ;
            MOV    (R5),SYNBLK+2
             .
             .
             .
    INTRPT:.INTEN  5                  ;  
                                      ;, 
                                      ; 5
           .SYNCH  #SYNBLK
           BR     SYNFAIL             ; .SYNCH 
           .DIR    WRITE              ;  
           BCC    1$
           .SPCPS AREA,ADDR
   1$:     RTS    PC                  ;
    SYNBLK:        0,0,0,0,5,-1,0     ; .SYNCH
    SYNFAIL:
            MOV    #SYNER,R0
            BR     ERRM
    WTFAIL: MOV    #MSG,R0
    ERRM:  .PRINT
           .EXIT
    MSG:   .ASCIZ  / /
    SYNER: .ASCIZ  / SYNCH/
           .EVEN
    AREA:  .BLKW   5                  ;  
 
                             - 160 -
  
  
  
  
                                      ; .WRITE
   ADDR:   .WORD WTFAIL,0,0           ;  .SPCPS
  
    JOB:   .BLKW   5                  ;  
                                      ; .SYNCH
    CRTN1:  .                         ; 
            .                         ; 
            RTS    PC
    WRITE: .WRITC  #AREA,CHAN,BUFF,WCNT,#CRTN1,BLK
    CHAN:          0
    BUFF:  .BLKW   256.
    WCNT:          256.
    BLK:           0
           .END    START
  
  
  
        7.6.33.  .TRPSET
  
  
  
          .TRPSET   
        4  10.
  
         :
  
           .TRPSET AREA,ADDR
  
   
  
   AREA   -      ;
  
   ADDR   -    .
  
           :
  
                     !--------!--------!
         R0 => AREA: !    3   !   0    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
         .TRPSET     -
         4  10.
  
                 C
   ,      4,     C
   ,     10.
  
               
    RTI.       -
    .TRPSET.
  
         .TRPSET      
     ,       
      , ..  
      .TRPSET.
  
             
 
                             - 161 -
  
  
  
  
    ,          
     .
  
         ADDR=0,  .TRPSET .
  
               
   .TRPSET   XM-      
   .         -
           
   .TRPSET, ..       .
  
         .
  
           .TRPSET     -
      4  10.
  
        .
  
           .MCALL  .TRPSET,.EXIT,.PRINT
    START: .TRPSET #AREA,#TRPLOC      ; 
                                      ;
            MOV    #101,R0
            TST    (R0)+              ; 
           .WORD   67                 ;  
           .EXIT
    TRPLOC: MOV    R0,-(SP)           ; 
            BCS    1$                 ;
           .PRINT  #TRP4
            BR     2$
    1$:    .PRINT  #TRP10
    2$:    .TRPSET #AREA,#TRPLOC
            MOV    (SP)+,R0
            RTI
    AREA:  .BLKW   10                 ;  
    TRP4:  .ASCIZ  /TRAP TO 4/
    TRP10: .ASCIZ  /TRAP TO 10/
           .EVEN
           .END    START
  
  
  
        7.6.34.  .USDF
  
  
  
          .USDF  
      .
  
         :
  
           .USDF
  
         :
  
    ERRBYT  =^O52
    USERRB  =^O53
    SEVER$  =^O10
    ERROR$  =^O4
    WARN$   =^O2
 
                             - 162 -
  
  
  
  
    SUCCS$  =^O1
  
             ,  -
     .
  
         .
  
              .SERR  (.
    7.6.14.2).
  
  
  
  
        7.7.    (FB, XM)
  
  
  
                
         .
  
  
  
        7.7.1.  .WI
  
  
  
          .WI   -
          -
   .
  
         :
  
                             .WI
  
          R0:
  
                     !--------!--------!
         R0 =>       !   11   !   0    !
                     !--------!--------!
  
                  
    .RVD  .SD,    
       .
  
         .
  
              .SDATW  (-
    7.7.3.3).
  
  
  
        7.7.2.  .RVD/.RVD/.RVDW
  
  
  
                -
      .SDA/.SD/.SDW  -
       .  -
     .RVD     -
 
                             - 163 -
  
  
  
  
     .RD      ,    
       ,  -
   ,     (   )
      .
  
               :  "
    -  ".        
    ,         
   .
  
        ,    .RVD/.SD,
         
   ,     .
  
  
        .        .RVD  
   .RVD       -
      (. . 7.6.22).
  
        :
  
                         
  
            0          .
  
  
  
        7.7.2.1.  .RVD
  
  
  
                   
         .  
          
       .MWAIT.
  
         :
  
                      .RVD   R,UF,WN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
  
   WCNT   -    .
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 164 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   26   !    0   !
                     !--------!--------!
                     !  !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        1        !
                     !-----------------!
  
           ,        "UF"
            
    .RVD.  ,   ,
     ,   ,     ,
       .
  
        WCNT   , ..     
     .RCVD/.SDAT    
      , (  
     ).
  
         .RVD        
    .SD  .
  
              .SDATW  (-
    7.7.3.3).
  
  
  
        7.7.2.2.  .RCVDC
  
  
  
          .RVD    -
   .  ,       -
   ,     .
      ,   
    .
  
         :
  
                   .RVD   R,UF,WN,RN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
  
   WCNT   -    .
  
   CRN   -   .
  
  
  
 
                             - 165 -
  
  
  
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   26   !    0   !
                     !--------!--------!
                     !  !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
      UF    .
  
              .SDATW  (-
    7.7.3.3).
  
  
  
        7.7.2.3.  .RVDW
  
  
  
          .RVDW   -
       , .. ,  
      ,     
     .        
     .        
   ,       ,  -
      .
  
         :
  
                     .RVDW   R,UF,WN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
  
   WCNT   -    .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   26   !    0   !
                     !--------!--------!
                     !  !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
 
                             - 166 -
  
  
  
  
        7.7.3.  .SD/.SD/.SDW
  
  
  
           .SD    -
      .RVD/.RVD/.RVDW   -
     .    -
      .WRI,     
     ,     ,
           
   .RCVD.
  
  
        .     .SD  
       ,      
   .RVD.
  
             :
  
                         
  
            0       .
  
  
  
        7.7.3.1.  .SD
  
  
  
              
   .     
    ,     .
  
         :
  
                      .SD   R,UF,WN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
  
   WCNT   -    .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   25   !    0   !
                     !--------!--------!
                     !   !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        1        !
                     !-----------------!
  
 
                             - 167 -
  
  
  
  
        7.7.3.2.  .SD
  
  
  
            .  -
         
   ,     .   
           ,  
      ,     -
    RTS PC        -
      .
  
         :
  
                   .SD   AR,UF,WN,RN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
  
   WCNT   -    ;
  
   CRTN   -   .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   25   !    0   !
                     !--------!--------!
                     !   !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
  
  
        7.7.3.3.  .SDW
  
  
  
              
   .       
     .
  
         :
  
                     .SDW   AR,UF,WN
  
   
  
   AREA   - A   ,   5 ;
  
   BUF    -     ;
 
                             - 168 -
  
  
  
  
   WCNT   -    .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !   25   !    0   !
                     !--------!--------!
                     !   !
                     !-----------------!
                     !       BUF       !
                     !-----------------!
                     !      WCNT       !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
              -
         .SDAT
    .SDATW.
  
        .
  
   ;   :
           .MCALL  .RCVD,.MWAIT,.EXIT,.RCVDC,.PRINT
    ST:     MOV    #AREA,R5
           .RCVD   R5,#BUFF,#20.      ; 
            BCS    NRC
           .MWAIT
           .PRINT  #BUFF+2            ; 
                                      ;
           .RCVDC  R5,#BUFF1,#20.,#PROG1 ;
                                     ; 
            BCS    NRCC              ;  / 
           .WAIT                    ; 
           .PRINT  #MSG4
           .EXIT
    PROG1: .PRINT  #BUFF1+2          ;/ , 
            RTS    PC                ; 
    NRC:   .PRINT  #NORC
           .EXIT
    NRCC:  .PRINT  #NORCC
           .EXIT
    NORC:  .ASCIZ  /  /
    NORCC: .ASCIZ  / .RCVDC/
           .EVEN
    BUFF:  .WORD   0                 ; 
           .BLKW   20.                ; 
    BUFF1: .WORD   0                  ; 
           .BLKW   20.
    MSG4:  .ASCIZ  / /
           .EVEN
    AREA:  .BLKW   10
           .END    ST
  
  
   ;   :
           .MCALL  .SDAT,.RCVD,.MWAIT,.SDATC,.PRINT,.EXIT
    ST:     MOV    #AREA,R0
           .SDAT   R0,#MSG,#COUNT     ; 
 
                             - 169 -
  
  
  
  
            BCS    NSD
           .SDATC  R5,#MSG1,#COUNT1,#PROG ;
            BCS    NSD1               ; 
           .PRINT  #MSG3
           .EXIT
    PROG:  .PRINT  #MSG2              ;/ , 
            RTS    PC                 ;
    NSD:   .PRINT  #NOSD
           .EXIT
    NSD1:  .PRINT  #NOSD1
           .EXIT
    MSG:   .ASCIZ  //       ;  
    COUNT = .- MSG+1/2
           .EVEN
    MSG1:  .ASCIZ  /  /
    COUNT1 = .- MSG1+1/2
           .EVEN
    MSG2:  .ASCIZ  / /
    MSG3:  .ASCIZ  /  /
    NOSD:  .ASCIZ  /  /
    NOSD1: .ASCIZ  / .SDATC/
           .EVEN
    AREA:  .BLKW   10
           .END    ST
  
  
  
  
  
        7.8.       
             (RM, SJ, FB, XM)
  
  
  
  
               
   RM/SJ/FB/XM-,    ,
          
          -
   .    ,   -
         -
    .
  
  
  
        7.8.1. KOMOHEHT MHOOTEPMHAHO CCTEM
  
  
  
  
        B   PAOC   AOEHA   BOMOHOCT   MHOOTEPMHAHO
   OEPK, KOTOPA MOET T BPAHA  BO  BPEM  EHEPA
   CCTEM  OCTA    RM  SJ,  FB    XM  MOHTOPOB.  O
   CECTB MHOOTEPMHAHA OEPKA OBOET  BOHEMO
   POPAMME PABT OHM  OEE TEPMHAAM.
  
        OEPKA  HECKOKX  TEPMHAOB   OCECTBETC   C
   OMO CEX KOMOHEHT:
  
 
                             - 170 -
  
  
  
  
          - .MTTEMT.MAC,         KOTOPA          OPAATBAET
            MHOOTEPMHAHE ;
  
          - .MTTINT.MAC, KOTOPA COEPT POPAMM  
            PEPBAH  POPAMM OPOCA TEPMHAOB;
  
          - .SYSTBL.MAC, KOTOPA OPEEET PABE  OK
            TEPMHAOB.
  
        MTTEMT, MTTINT  SYSTBL ACCEMPTC    KOMOHTC
   BMECTE    KAK    ACT    PEEHTHOO     MOHTOPA     
   MHOOTEPMHAHO CCTEM.
  
        B MHOOTEPMHAHO CCTEME  METC  TE  HEKOTOPE
   BAHE HOPMAOHHE CTPKTP :
  
          - PABE OK TEPMHAOB, HABAEME TCB (OH
            HA  TEPMHA),  KOTOPE  COEPAT   HOPMA   O
            TEPMHAE  AA; TCB TAKE COEPT BXOHO  
            BXOHO KOEBE EP  TEPMHAA;
  
          - OECKE HOMEPA, HABAEME LUN,  EPE  KOTOPE
             OPAAETC K TEPMHAAM;
  
          - COBA ACHXPOHHOO CTATCA  COCTOH  TEPMHAOB,
            HABAEME COBA AST  (OHO  HA  LUN),  B  KOTOPX
               CTAHABBAET   A   COT,   TO
            OTPAT TEKEE COCTOHE KAOO TEPMHAA.  T
            COBA   AST   BXOT    B    CCOK    CEAHX
            BOMOHOCTE,  KOTOPE  B  P  EHEPA
            CCTEM.
  
  
  
        7.8.2.  
  
  
  
  
        PAOC MOET OEPBAT  OCEOBATEHE  HTEPEC
   KAK TA  -,    DL  (  DL    DLV  
   COBMECTM KBBAEHT), AK  TA  -,    DZ
   (BKA  DZ    DZV).  HTEPEC  AHAOEH   KOHTPOEP
   CTPOCTBA;  OH  HAXOTC  ME      OCEOBATEHO
   HE. PO KOHE H MOET T CBAH C  TEPMHAOM,
   CTPOCTBOM CB, EPEPHM CTPOCTBOM   EE  OH
   .
  
        HTEPEC   DL   CBBAET    BM    C    EHCTBEHHO
   OCEOBATEHO HE. KA  HTEPEC  DL  MEET  CBO
   COCTBEHHE APECA PECTPOB PABEH  COCTOH (CSR) 
   APEC  BEKTOPA  PEPBAH.  MOHO  MET  O   BOCM   DL
   HTEPECOB B CCTEME, BKA KOHCOH  HTEPEC.  T.K.
   KA DL HTEPEC  BETC  OTEHM  KOHTPOEPOM,  TO
   PEAH ECK HOMEP OTCTCTBET; 0 - HAHAAETC  
   OPEEEHHOCT.
  
        CCTEMA  MEET AAPATH KOHCOH  HTEPEC,
   KOTOP COETC AAPATHM  APKOM  P  APKE
 
                             - 171 -
  
  
  
  
   CCTEM,   COOEHE  O  TOM  OMEAETC  HA  KOHCOH
   TEPMHA. AAPATH APK TPEET, TO TOT TEPMHA
     CBAH   O   CTAHAPTHM   KOHCOHM   APECAM   
   AHOCTECKX  EE      CB     OEPATOP   P
   APKE.  AAPATH   HTEPEC   KOHCO   EH   T
   OKAHM DL. EO BEKTOPA PEPBAH PAMEATC B 60   64
   EKAX HHE AMT, A EO LUN BCEA PABEH 0.
  
        HEPEC DZ - MTEKC ; OH CBBAET  HECKOKO
   OCEOBATEHX H EPE EHCTBEHH AP CSR  APECA
   BEKTOPOB.
  
        HTEPEC DZ CBBAET BM C BOCEM HM,  KOTOPE
   MET ECKE HOMEPA OT 0 O 7. DZV OOEH  DZ,  HO  OH
   CBBAET CCTEM TOKO C ETPM HM, KOTOPE  MET
   ECKE HOMEPA OT 0 O 3. B TOM CAE MOHO  -
    B DZ  ETP DZV  16 OOHTEHX H.
  
        HA . 4 OKAAH DL  DZ HTEPEC  X  ECKE
    OECKE HOMEPA.
  
     --------------------------------------------------------
     !                                               !
     --------------------------------------------------------
             !            !                 !
        -----------    -------        -------------
        !   DL    !    !  DL !        !    DZ     !
        !  !    -------        -------------
        -----------       !                 !
            !             !   --------------!--------------
            !             !   !   !   !   !   !   !   !   !
            !             !   !   !   !   !   !   !   !   !
    .: 0             0   0   1   2   3   4   5   6   7
  
    .: 0             1   2   3   4   5   6   7   8   9
  
                             . 4
  
        P EHEPA CCTEM OPEETC, KOKO  DL    DZ
   HTEPECOB  MEET  CCTEMA.  TAKE  KABAETC,   CKOKO
   ECKX EH ECTBTEHO  CBAHO  C  TEPMHAAM  B
   CCTEME.  TX TEPMHAOB HEOXOMO KAAT,  KAKE  
    BTC OKAHM,  KAKE CTAHOHHM  
   HM.  B  OTE   OT   ECKX   HOMEPOB,   
   HAH C 0   ,  OECKE  HOMEPA,
     , HAHATC C 0,    POOATC,
   OKA BCE TEPMHA T EPECTAH.      
   ECK  HOMEPA  HTEPECOB  HAHAAT   POPAMMH
   OECK HOMEPA B CEEM OPKE:
  
          - OKAHE   DL   H   (AAPATH    KOHCOH
            HTEPEC BCEA ECT LUN 0);
  
          - AEHE DL H ;
  
          - OKAHE DZ H ;
  
          - AEHHE DZ H.
  
 
                             - 172 -
  
  
  
  
        OPOK, B  KOTOPOM  PCBABA  ECKM  HM
   OECKE  HOMEPA   COOTBETCTBET   OPK,   B   KOTOPOM
   EHEPPTC PABE OK TEPMHAOB (TCB).  KAO
   H, KOTOP   AO,  EHEPPETC  OH  TCB.
   OK TCB PACOAATC B RMON B  TOM  OPKE,  B  KOTOPOM
   OPEEC H.    O  HECOEMO  H  TCB
   OTCTCTBET.
  
        P  APKE  MHOOTEPMHAHO  CCTEM  POBEPET
   HAE KAOO HTEPECA,   KOTOPOO  CECTBET  TCB.
   EC HTEPEC HE CECTBET, OECK HOMEP, CBAHH C
   TM HTEPECOM, OTMEAETC KAK  HECECTB,    A
   OTKA  OT  TAKO  LUN  PBOT  K  OKE.  MECTO,
   AHMAEMOE TCB HECECTBEO LUN, HE   .
     POBEPK   PABHOCT   HOPMA,   AAHHO   P
   EHEPA CCTEM, MOHO COOBAT KOMAH MOHTOPA SHOW
   TERMINALS.
  
        AMETM, TO CCTEMA HE  TAETC  OPEET,  CBAH
     HET  TEPMHA      MOEM   C   HE   HTEPECA;
   PEOAETC, TO CB CECTBET.  HECBAHHO H
   BXOHE CMBO HE MOT T BBEEH; BXOHE - TEPTC.
  
  
  
        7.8.3. KOHCOH TEPMHA
  
  
  
        C   KOHCOHOO  TEPMHAA.
       OPEEEHO  HAEHE   TEPMHOB:   AAPATH
   KOHCOH HTEPEC, KOHCO APK, OHOBA  KOHCO  
   ACTHA KOHCO.
  
        AAPATH KOHCOH  HTEPEC,  KAK  OCAHO  B,
   PECTABET  COO  HTEPEC  TEPMHAA,  PAMEEHH   B
   BEKTOPAX 60  64, PECTP PABEH   COCTOH  KOTOPX
   HAHATC  C  APECA  177560  CTPAH  BBOA/BBOA.  TO
   OCEOBATEH  (  )  HEH  HTEPEC,
   KOTOP COETC AAPATHM APKOM (OHO,  TO
   APT CCTEM, HEOXOMO MET TEPMHA,  CBAHH  C
   AAPATHM KOHCOHM  HTEPECOM).  OT  BCEA  -  TO
   TEPMHA, HA KOTOPOM  .    -
   , TO AAPATH KOHCOH HTEPEC BCEA MEET  LUN
   0.
  
        KOHCO APK -  TO  TEPMHA,  HA  KOTOPOM  PAOC
   EATAET CBOE HAAHOE COOEHE. TO OT BCEA TOT  E
   TEPMHA,   KOTOP   CBAH   C   AAPATHM    KOHCOHM
   HTEPECOM. B CCTEME E MHOOTEPMHAHO OEPK  CSR
    TOO TEPMHA  -  177560  COEPTC  B  TTKS.  (TTKS
   PAMEAETC     KCPOBAHHO      304   OT   HAAA
   PEEHTHOO MOHTOPA).  B  MHOOTEPMHAHO  CCTEME  CSR
   PAMEAETC    T.CSR  B  EPBOM  TCB  B  PEEHTHOM
   MOHTOPE.
  
        OHOBA KOHCO, HABAEMA TAKE CCTEMHO  KOHCO,
   EPBOHAAHO PECTABET  COO  TO  E,  TO    KOHCO
   APK. OHA OCTAETC B TOM E KAECTBE O TEX  OP,  OKA
 
                             - 173 -
  
  
  
  
   HE COET  SET TT: CONSOL    EPEHAHAEH
   OHOBO  KOHCO.  TO  TEPMHA,  HA  KOTOPOM   HAPA
   KOMAH MOHTOP   CB C OHOBM AAHEM.
    BOHEH OEPATBHOO AAH   CCTEMHX  AAH
   CCTEMHA KOHCO  MOET  T  PAEEHA.  B  TOM  CAE
   CEET COOBAT CTRL/B  CB C  OHOBM  AAHEM,
   CTRL/F -  OEPATBHOO AAH   CTRL/X    CCTEMHX
   AAH. TO  PEPBAT  AAHE  C  PAEEHHO  KOHCO,
   CEET HAPAT  <CTRL/C>.
  
        CCTEMHE  MAKPOKOMAH  .TTYIN,   .TTYOUT,   .CSIGEN,
   .CSISPC, .GTLIN  .PRINT  TOKO C OHOBO  KCO
    OHOBOO AAH, A TAKE  OO  OEPATBHOO  
   CCTEMHOO AAH, APAEMX C TOO TEPMHAA.
  
  
        . O HOMEP, KAAHH C  CTPOCTBOM  TT,
   ET HOPPOBATC. OTOM OPAEH K TT:, TT0:, TT1: 
   T.. BTC KBBAEHTHM  BOCPHMATC O  MOAH
   KAK OPAEHE K OHOBO KOHCO.
  
        B MHOOTEPMHAHO CCTEME  MOHO  HAHAT  OHOB
   KOHCO HA PO TEPMHA, CO    SET
   TT: CONSOL. KABA PO OECK HOMEP B  SET,
   MOHO HAHAT OHOB KOHCO HA O PO TEPMHA  B
   CCTEME, CKA ACTH KOH.
  
          -   , 
       .   -
      ,  FRUN/TERMINAL:N 
   SRUN/TERMINAL:N.
  
          AAHE HE MOET  COOBAT  ACTH
   KOHCO COBMECTHO C EPBOHAAHM AAHEM.
  
        ACTHA KOHCO AAH PECTABET COO TEPMHA, C
   KOTOP   MAKPOKOMAH  .TTYIN,  .TTYOUT,  .CSIGEN,
   .CSISPC, .GTLIN  .PRINT, APOC TA  .READ    .WRITE,
   MEEE OCT K TO ACTHO KOHCO. EC  AAHE  MEET
   CBO  COCTBEHH  ACTH  KOHCO,  HE  OPAATC  K
   AAH  EPE  OHOB  KOHCO.  TAKM  OPAOM,   HE
   COOBAT, ,  <CTRL/F>  C  OHOBO  KOHCO  
   BAMOECTB C OEPATBHM AAHEM, KOTOPOE  MEET  CBO
   COCTBEHH ACTH KOHCO.
  
          ACTH KOHCO HA  PO  TEPMHA,
   CO   SET TT:  CONSOL;  TAK  
   CPABEB   OHOBO KOHCO. TO POCXOT  -A
   TOO,          KAK
   OHOBOE AAHE, A OHO MOET AKATC TOKO  C  OHOBO
   KOHCO.  OHOBA  KOHCO  BETC  ACTHO,   EC   HET
   AAH, PAEX EE.
  
        PAE KOHCO     OHOBO  KOHCO
   OKA  CEE COB:
  
          - B FB/XM- E OEPK CCTEMH  AAH
            OEPATBHOE AAHE BOHETC C ACTHO KOHCO;
  
 
                             - 174 -
  
  
  
  
          - B FB/M- C OEPKO    AAH
            BCE 6  CCTEMHX  AAH    OEPATBHOE  AAHE
            BOHTC  KAOE MEET CBO ACTH KOHCO.
  
          OMHT,  TO  ACTHA  KOHCO  HKOA   HE
   PAEETC. POCTO KOHCO -  TEPMH, KOTOP OTHOCTC
   K TEPMHA, COEMOM KAK OHOBA PAEEMA KOHCO,
     KAK  ACTHA  KOHCO  OEPATBHOO     CCTEMHOO
   AAH.
  
  
  
        7.8.4. COOBAHE  TEPMHAOB
                 
  
  
  
  
        CECTBET HECKOKO CTA, B KOTOPX COOBAHE
   OEE OHOO TEPMHAA MOET T    
   CEAHX MKPOKOMAH.    OCBAT  HEKOTOPE  
   TX CTA  OKABAT,  KAK    TEPMHA
   E MHOOTEPMHAHO OEPK.
  
  
  
        7.8.4.1. KOHCOH       -TEPMHA       
                 TEPMHA-ECTKA KO
  
  
  
  
        THA CTA BOHKAET  TOA,  KOA  EATEHO
   COOBAT BEO-TEPMHA KAK OHOB KOHCOH TEPMHA
    TEPMHA-ECTK KO KAK OCTPOHOE CTPOCTBO.  -
     POEP,  COTC  B  ABCMOCT  OT
   TOO,  KAKO  TEPMHA   BETC   KOHCO   APK   -
   BEO-TEPMHA  TEPMHAECTKA KO.
  
  
        1) KOHCO APK BETC -
  
  
        EC BEO-TEPMHA  BETC  KOHCO  APK,  
   TEPMHA - ECTK  KO  PCTO    COOBAT  KAK
   OCTPOHOE EATAEE CTPOCTBO,    
      CSR  -     
   LS-  SET LS:VECTOR=N  SET LS:CSR=N,  N
   -    ( CSR -    160000,  
    VECTOR -    500).      
    LS , HAHA LP->LS (  ASSIGN  LS
   LP)     COOBAT   TEPMHA-ECTK   KO   KAK
   EATAEE CTPOCTBO.
  
        TO  POCTEEE      MHOOTEPMHAHX   PMEHEH,
   OCKOK OHO HE BKAET EHEPA CCTEM. TA  POEPA
   EKTBHA    , EC TEPMHA- KO
   HAXOTC HA OKAHOM DL-HTEPECE.
  
 
                             - 175 -
  
  
  
  
        B C PA OCTOTECTB MOET T EATEHO, TO
   TEPMHA- KO CTA  KOHCOHM  TEPMHAOM.  TO
   TO CEAT,  CO  POEP,  OCAHH  B
    ;
  
  
        2) KOHCO APK BETC - 
  
  
        KAK CEA TEPMHA- KO CTPOCTBOM  
   B TOM CAE, KOA OH BETC KOHCO APK,  ABCT
   OT  TOO,  HA  KAKOM  HTEPECE  DL      DZ   HAXOTC
   BEO-TEPMHA.   EC    BEO-TEPMHA    HAXOTC    HA
   DL-HTEPECE, CECTBT  BOMOHX METOA,  KOTOPE
   OBOT   COOBAT   TEPMHA-ECTK    KO    KAK
   EATAEE CTPOCTBO.
  
        POEP 1.  BOHT EHEPA  CCTEM  (HE
   BKA   MHOOTEPMHAH   OEPK),   TO   CEAT
   BEO-TEPMHA KOHCO APK.  AMETM,  TO  P  TOM
   TEPMHA-  KO  BCE  EE  OCTAETC    AAPATHOM
   KOHCOHOM  HTEPECE.  OHAKO,  PAOC  PECTABTC   P
   APKE HA BEO-TEPMHA. KOA CCTEMA APEHA,  MO
   COOBAT LS-PABEP,  TO  HAHAT  TEPMHAECTK
   KO B KAECTBE EATAEO CTPOCTBA.
  
        POEP 2. MEHT KOHPA  CCTEM  TAK,  TO
   BEO-TEPMHA  KOHCO APK, A TEPMHA-ECTKA
   KO    HAXOTC  HA  DLHTEPECE.  ATEM  
   COOBAT POEP, OCAHH     ,  
      .
  
        POEP 3. MO COOBAT CEAH POPAMM,
   TO  EPEKT  OHOB  KOHCO   HA   BEO-TEPMHA.
   POEPA 3  AHAOHA  POEPE  1.  MO  COOBAT
   LS-PABEP,  TO  HAHAT  TEPMHA-ECTK  KO  KAK
   EATAEE  CTPOCTBO.         OKABAET
   POPAMM,  KOTOP    AC,   TO   
   POEP 3.
  
        POEPA 4  AHAOHA  POEPE  3  A  CKEHEM
   TOO, TO MEHET OPA MOHTOPA HA  CTPOCTBE  
   AMT.  TA  PEPA  OHA  TOKO  B  CCTEMAX   E
   MHOOTEPMHAHO OEPK.     
   AAT PABHOE HAEHE BEKTOPA, CSR, CMEEHE O  KAPT
   AT APECOB  CAM KO   " -
   .   ", 2//.00109-01  32
   01-3.
  
          
      SIPP.
  
  
  
  
  
  
  
  
 
                             - 176 -
  
  
  
  
    !    CSR  
    !CSR = 175620-175626 / VEC = 310-316
  
     .R SIPP<CR>
     *MONITR.SYS<CR>              !   ,
                                   !  
     BASE?    ;S<CR>
     SEARCH FOR?  60<R>
     START?       5100<R>
     END?         5200<R>
     FOUND AT NNNNNN               !  NNNNNN,
                                   !  "60"
     OFFSET? <R>                 !  NNNNNN
  
  
      BASE       OFFSET        OLD    NEW?
     NNNNNN      000000     000060    310<R>! 
     OFFSET?     6<R>
  
  
      BASE       OFFSET        OLD    NEW?
     NNNNNN      000006     000064    314<R>! 
                                              !+4
     NNNNNN      000010     XXXXXX    ^Z<R>
     OFFSET?     ^Z<R>
     BASE?     $RMON<R>              ! $RMON  
     OFFSET?    340<R>               !
      BASE       OFFSET        OLD    NEW?
     $RMON       000304     177560    175620<R> !. 
     $RMON       000306     177562    175622<R> !
     $RMON       000310     177564    175624<R> !
     $RMON       000312     177566    175626<R> !
     $RMON       000314     177777    ^Z<R>
     OFFSET?    342<R>               !  
                                       !
  
  
      BASE        OFFSET         OLD    NEW?
     $RMON        000342      000000    17<R> !
                                                !
     $RMON        000344      000000    ^Y
     *^C
  
  
        EC BO-TEPMHA OKEH C OMO DZ-,
   TO    H    BOHT    EHEPA    CCTEM     
   MHOOTEPMHAHO   ,       HOPMA    O
   KOHPA  CCTEM  ,  KAK  OHA   CECTBET.   
   AP HOB CCTEM   CTAHOBT  LS-BEKTOP  
   CSR TEPMHA-ECTKO KO, CO   "SET  LS:",
    MEHT A PABEPA  HA  CTPOCTBE    AMT.
   OCE  TOO  HE  ET  COOBAT  TEPMHA-ECTK
   KO  B   OM   MHOOTEPMHAHOM   PMEHEH.   BEKTOP
   PEPBAH  CSR HEOXOMO MOPOBAT TOKO O .
  
        PEE EM COOBAT LS-PABEP, CTAHOBTE SET TT:
   CONSOL, TO HAHAT  OHOB  KOHCO  BEO-TEPMHA.
   OCKOK   TA    CTAHOBKA    BOBPAAETC    K    CBOEM
   EPBOHAAHOM COCTOH OCE KAO  APK,  AHECTE
 
                             - 177 -
  
  
  
  
   T KOMAH SET B CBO CTAPTOB KOMAHH A.
  
  
        .       COOBAT    KOMAH    SET
   TT:CONSOL=0  OPAATC K TEPMHA O LUN 0,  T.K.  TO
   BOBET CO CCTEM.
  
  
  
        7.8.4.2. EPEKEHE KOHCOHOO TEPMHAA
  
  
  
  
                 POPAMM,   KOTOP    MO
   COOBAT,  TO  EPEKT  KOHCOH  TEPMHA  HA
   PO  TEPMHA  CCTEM  E  COOBAH   CEAHX
   MHOOTEPMHAHX    OCOEHHOCTE.             
   OTPEAKTP CXOH A  HAEH  CSR    BEKTOPA
   HOBO  KOHCO,  CO  CMBO  CSRAD    VEC,    
   EPEKEH  KOHCO  ME  BM  TEPMHAAM  (TA   
   OPATHO) CET BE KO POPAMM, O OHO HA TEPMHA.
  
              POPAMMA EPEKEH 
              ------------------------------
  
    ;+
    ;          
    ;          
    ;      
    ;-
  
  
           .MCALL  .MTPS,.PRINT,.EXIT
  
           CSRAD   = 175620       ;** CSR  
                                  ; **
           VEC     = 310          ;  
           SYSGEN  = 372          ;   SYSGEN
           MTTY$   = 20000        ; 
                                  ;   SYSGEN
  
  
           BMASK   = 360/<<15.*<VEC-<20*<VEC/20>>>/8.>+1>
                                  ;-   
                                  ; 
           BITMAP  = 326+<VEC/20> ;   
                                  ;  RMON
  
  
    PROC3: MOV     @#54,R0           ;R0 => RMON
           BIT     #MTTY$,SYSGEN(R0) ; 
                                     ;?
  
  
           BNE     2$                ;, 
           .MTPS   #340              ;  7
  
           BISB    #BMASK,BITMAP(R0) ;  
 
                             - 178 -
  
  
  
  
                                     ;
  
  
           ADD     #304,R0        ; TTKS,  CSR
                                  ;
           MOV     #CSR,R1
           CLR     @(R0)          ;  
                                  ;
    1$:    MOV     (R1)+,(R0)+
           TST     @R1
           BMI     1$
           MOV     #60,R0         ;  
           MOV     @R1,R1         ;R1 =>  
           .REPT   4
           MOV     (R0)+,(R1)+
           .ENDR
           .MTPS   #0             ; 
           .EXIT                  ; 
  
    2$:    .PRINT  #NOMT          ;   
           .EXIT
  
           .NLIST  BEX
    NOMT:  .ASCII  /? ,/
           .ASCIZ /  SET TT CONSOL /
           .EVEN
  
    CSR:   .WORD   CSRAD          ;  CSR,
           .WORD   CSRAD+2        ; ,
           .WORD   CSRAD+4        ;  
           .WORD   CSRAD+6        ;
           .WORD   VEC
           .END    PROC3
  
  
  
        7.8.4.3. OTEH TEPMHA  KAOO AAH
  
  
  
  
        CEHEPPOBAB CCTEM C  MHOOTEPMHAHO  OEPKO,
   EKO MOHO HAHAT  ACTHE  TEPMHA    KAOO  
   BOCM  AAH.  KOHEHO,        HHO   APT
   FB/XM- C OEPKO CCTEMH AA.
  
        KAK OCAHO B,  TOO HAO  POCTO  COOBAT
   KOMAH FRUN/TERMINAL:N    SRUN/TERMINAL:N  P  ACKE
   OEPATBHOO  CCTEMHOO  AAH,  HAHAA  TEM  CAMM
   TEPMHA  HX.   HET HEOXOMOCT  COOBAT
   KAKE-O MHOOTEPMHAHE MAKPOKOMAH. CEET OMHT,
   TO KAA KOHCO BETC ECTBTEHO  ACTO:  HE
   HAHAT OH TEPMHA BM AAHM C OMO KOMAH FRUN
     SRUN/TERMINAL:N.  KAOE  AAHE  MOET  COOBAT
   TOKO COCTBEHH TEPMHA.
  
  
  
  
 
                             - 179 -
  
  
  
  
        7.8.5.   
  
  
  
           ,  
        16,    -
    .
  
  
        B TA. 4  ECTB, KOTOPE  POPAMMA  OHA
   BOHT    TOO,   TO      OOHTEH
   TEPMHA. B HE PBEEH TAKE COOTBETCTBE -
     POPAMMPOBAH TX ECTB.
  
                                                     4
   -------------------!--------------------------------------
          ECTB    !     
   -------------------!--------------------------------------
    OEHE CTATCA !
    MHOOTEPMHAHO ! COTE .MTSTAT
    CCTEM           !
                      !
    AXBAT TEPMHAA  ! COTE .MTATCH  AXBATA
    (OKEHE K    ! TEPMHAA  AKPEH EO A
     POPAMME)       ! POPAMMO. OHO AXBAT BCEX
                      ! HEOXOMX TEPMHAOB OCECTB-
                      ! ETC B HAAE POPAMM. AMETM,
                      ! TO TOKO OHO AAHE MOET
                      ! AXBATT PAEEM KOHCO 
                      ! TOKO BAEE TEPMHAA MOET
                      ! COOBAT MAKPOKOMAH 
                      ! TOO. TEM HE MEHEE BCE AAH,
                      ! COE COBMECTHO OHOB
                      ! KOHCO MOT COOBAT
                      ! .TTYIN,.TTYOUT, .CSIGEN, .CSISPC,
                      ! .GTLIN   .PRINT , TAKE KAK
                      ! .READ   .WRITE   TT:.
                      !  OPEEEH  MEHEH
                      !   O COO-
                      !   -
                      ! MHAHX MAKPOKOMAH  
                      !    
                      ! ().
                      !  OCECTBEH KAOO  KA-
                      !   CEET COOBAT
                      ! PBEEHHE HE MAKPOKOMAH.
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 180 -
  
  
  
  
                                           . 4
    ------------------!--------------------------------------
              !         
   -------------------!--------------------------------------
    POBEPKA XAPAKTE- !  .MTGET
       !
                      !
    MEHEHE XAPAKTE-!  .MTSET
     TEPMHAA  !
                      !
    OEHE CMBOA !  .MTIN
     TEPMHAA C     !
             !
    BOHEH        !
                      !
    OEHE CMBOA ! COTE  .MTSET  
    C TEPMHAA E   ! CTAHOBK COB COCTOH,
      OAH        ! A ATEM  .MTIN (HEOXOMO
                      ! COOBAT .MTSET TOKO
                      ! OH PA)
                      !
    EPEAA CMBOA  !  .MTOUT
     TEPMHA C     !
             !
    BOHEH        !
                      !
    EPEAA CMBOA  ! CTAHOBTE COBO COCTOH
     TEPMHA E   ! C OMO  .MTSET  ATEM
              ! COTE  .MTOUT
                      !
    EPEAA CTPOK   !  .MTPRINT
      C -!
    AHEM BOHEH !
                      !
    CPOC <CTRL/O> !  .MTRCTO
    BOMOHOCT BBOA!
                      !
    OCBOOEHE TEP- !  .MTDTCH
             !
    POO AAH   !
  
  
  
        7.8.6. CTPKTP AHHX
  
  
  
  
        CEE    OCBAT  BE  BAHX   CTPKTP
   AHHX    MHOOTEPMHAHX  CCTEM:   OK   PABEH
   TEPMHAA  COBO ACHXPOHHOO CTATCA TEPMHAA.
  
  
  
  
  
  
  
  
 
                             - 181 -
  
  
  
  
        7.8.6.1. OK PABEH TEPMHAA (TCB)
  
  
  
  
          KAOO  TEPMHAA  COAET  O  OHOM   OK
   PABEH. P EHEPA  CCTEM  KA
   TCB PAMEEH B RMON   COEPT  XAPAKTEPCTK  TEPMHAA,
   CTATC TEPMHAA, BXOHE   BXOHE  KOEBE  EP  
   KAATE  TEPMHAA. HA TCB KOEETC B ABCMOCT
   OT   AAHHX   XAPAKTEPCTK   P   EHEPA    CCTEM.
   AMETM,TO  EPBE  20(ECTH)  COB  B   KAOM   TCB
   KCPOBAH.
  
  
        .  5        TCB,   (*)
   OTMEEH TE PEKBT TCB,   PAMEP, CMEEH  
   CAMO CECTBOBAHE  ABCT  OT  CEAHX  BOMOHOCTE,
   AAHHX B POECCE EHEPA.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 182 -
  
  
  
  
                                                     5
                   TCB
  
   ----------------------------------------------------------
   CMEEHE! M  !        OCAHE
   (AT) !      !
   --------!------!------------------------------------------
        0  !T.CNFG! COBO KOHPA TEPMHAA. POPAMMA
           !      !  MOHTOP OMEHBATC HOPMAE O XA-
           !      ! PAKTEPCTKAX TEPMHAA EPE .MTGET 
           !      ! .MTSET. T MAKPOKOMAH COT -
           !      !  COBA OKA COCTOH BHTP POPAMM
           !      !  OEH HOPMA O TEPMHAE.
           !      ! EPBOE COBO M.TSTS MEET TAK E CTPK-
           !      ! TP, TO  T.CNFG (TA. 6)
   --------!------!-----------------------------------------
        2  !T.CNF2! BTOPOE COBO KOHPA TEPMHAA.
           !      ! CTKTPA EO TAKA E KAK  M.TST2
           !      ! BTOPOO COBA COBHOO OKA CTA-
           !      !   .MTGET  .MTSET (TA. 7)
   --------!------!-----------------------------------------
        4  !T.TFIL! COEPT CMBO, TPE  TOO
           !      ! TEPMHAA AOHTEE. KO TOO A-
           !      ! TA B XCOBHOM OKE CTATCA HA-
           !      !  M.TFIL
   --------!------!------------------------------------------
        5  !T.FCNT! COEPT KOECTBO AOHTEE 
           !      ! ,   T.FIL. 
           !      ! ATA B XCOBHOM OKE 
           !      !  M.FCNT
   --------!------!------------------------------------------
        6  !T.WID ! COEPT PH CTPOK AHHOO TEPMHAA.
           !      ! KO HABAHA M.TWID. MAKCMAHA HA
           !      ! CTPOK 255 CMBOOB (ECTH)
   --------!------!------------------------------------------
       10  !T.OCHR! COEPT CMBO  BBOA
   --------!------!------------------------------------------
       11  !T.LPOS! COEPT TEK O KAPETK
           !      !   
   --------!------!------------------------------------------
       12  !T.OWNR! KAATE CMEAHHO OACT AAH, A-
           !      ! XBATBEO TEPMHA. TO COBO PHMAET
           !      ! HAEHE, EC TEPMHA BETC ACTHM
           !      !  PAOT, , EC  PAEEMA
           !      ! CO  OHO AAHE AXBAT EE. -
           !      ! EHE PABHO , EC TEPMHA BETC
           !      ! PAEEMO KOHCO  OHA HE AXBAEHA
           !      ! AAHEM, , EC TO HE KOHCO 
           !      ! TEPMHA HE AKPEEH  A OH -
           !      ! . HAEHE COBA HE HEBOE B SJ--
           !      ! , EC AAHE COET .MTATCH.
  
  
  
  
  
  
  
  
 
                             - 183 -
  
  
  
  
                                           . 5
   --------!-------!-----------------------------------------
   !    !          
   (AT) !       !
   --------!-------!-----------------------------------------
       14  !T.STAT ! COEPT CTATC TEPMHAA (TA. 8)
   --------!-------!-----------------------------------------
       16  !T.CSR  ! COEPT AEC (CSR) KABATP TEPMHA-
           !       ! A  , EC APK HE OHAP
           !       !  CSR. TO EAET LUN HECOEMM
   --------!-------!-----------------------------------------
       20  ! T.VEC ! COEPT EPB BEKTOP PEPBAH TEPM-
           !       ! HAA
   --------!-------!-----------------------------------------
       22  ! T.PRI ! COEPT POPTET PEPBAH
   --------!-------!-----------------------------------------
       24  ! T.JOB ! COEPT HOMEP AAH, AXBATBEO
           !       ! TEPMHA
   --------!-------!-----------------------------------------
       25  ! T.PUN ! COEPT HOMEP TEPMHAA. TO HAEHE
           !       ! BCEA   TEPMHAOB, OKAEMX
           !       ! EPE DL HTEPEC.  DZ  -
           !       ! HAEH OT 0 O 7 (0 - 3  DZV)
   --------!-------!-----------------------------------------
       26  !T.NFIL ! CETK AOHTEE. TOT AT COEPT
           !       !KOECTBO, O OCTABXC  BBOA
   --------!-------!-----------------------------------------
       27  !T.PTTI ! COEPT OCEH CMBO, BBEEHH C
           !       ! TEPMHAA
   --------!-------!-----------------------------------------
       30  !T.TCTF ! COEPT CEAH CMBO-AOHTE
           !       !  (HAPMEP, AOHTE  TA)
   --------!-------!-----------------------------------------
       31  !T.TNFL ! COEPT CETK  CEAHOO CMBO-
           !       ! A AOHEH. HAEHE B HEM ACBA-
           !       ! ETC KAK OTPATEHOE CO
   --------!-------!-----------------------------------------
       32  ! T.TID ! KAATE CTPOK EHTKA, KOTOPA
           !       ! COEPT M AAH; CO
           !       ! TOKO TOA, KOA MOHTOP EA
           !       ! (BBOT) TOT EHTKATOP. B
           !       ! OCTAHOE BPEM - PABEH 
   --------!-------!-----------------------------------------
       34  !       ! APEEPBPOBAH
   --------!-------!-----------------------------------------
       36  !T.TLC ! COEPT CETK CTPOK TEPMHAA (KO-
           !       ! ECTBO CTPOK BO BXOHOM EPE)
   --------!-------!-----------------------------------------
       40  !T.IRNG ! KAATE  EPB AT BO BXOHOM
           !       ! EBOM EPE
   --------!-------!-----------------------------------------
       42  !T.IPUT ! BXOHO KAATE UT
   --------!-------!-----------------------------------------
       44  !T.ICTR ! CETK BBOMX CMBOO
  
  
  
  
  
 
                             - 184 -
  
  
  
  
                                           . 5
   --------!-------!-----------------------------------------
   !    !           
   (AT) !       !
   --------!-------!-----------------------------------------
       46  !T.IGET ! BXOHO KAATE GET
   --------!-------!-----------------------------------------
       50  !T.ITOP ! KABAET PAH BXOHOO KOEBOO
           !       ! EPA. TO COBO KABAE HA AT, HA-
           !       ! XOC A PEEAM AHHOO EPA
   --------!-------!-----------------------------------------
    *  52  !   -   ! BXOHO KOEBO EP. EO HA AA-
           !       ! ETC P EHEPA CCTEM. HA 
           !       !   (40) COEPTC B TTYIN
   --------!-------!-----------------------------------------
    *      !T.OPUT ! BXOHO KAATE PUT
    *      !T.OCTR ! CETK BBOMX CMBOOB,
           !  -    !  CTRL/O.  , 
           !       ! CTRL/ ,  - 
    *      !T.OGET ! BXOHO KAATE GET
    *      !T.OTOP ! OKABAET PAH BXOHOO KOEBOO
           !       ! EPA
    *      !  -    ! BXOHO KOEBO EP. EO HA A-
           !       ! AETC P EHEPA CCTEM. T HA
           !       ! B ATAX COEPTC B TTYOUT
    *      ! T.RTRY! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA TAM-ATA  MOEMA. TO CO-
           !       ! BO COEPT CETK OBTOPHX APOCOB
           !       ! HA BBO
    *      ! T.TBLK! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA TAM-ATA  MOEMA. TO OK
           !       ! TAM-ATA HO  COB
    *      ! T.AST ! CECTBET, EC P EHEPA AAHO
           !       ! ACHXPOHHOE COBO COCTOH TEPMHAA.
           !       ! BETC KAATEEM COBA S. 
           !       ! XM- A KAATEEM S CEET
           !       ! BTOPOE COBO, COEPAEE  PA1 BEH
           !       !  OTOPAEH B COBO S
    *      ! T.XFLG! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA CCTEMH AAH
           !       ! A MEET HEHEBOE HAEHE, 
           !       !  CTRL/X
    *      ! T.NT! ,    
           !       ! OEPKA CCTEMH AAH. TOT AT
           !       ! COEPT CO CMBOOB, HAPAHHX OCE
           !       ! CTRL/X (HA CTPOK)
    *      ! T.XPRE! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA CCTEMH AAH. COEPT
           !       ! PE CMBO, HAPAHH HA KABA-
           !       ! TPE TEPMHA
    *      ! T.XBUF! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA CCTEMHOO AAH. T TP
           !       ! COBA COEPAT CMBO, BBEEHHE 
           !       ! CCTEMHOO AAH OCE CTRL/X
    *      ! T.CNT ! CECTBET, EC P EHEPA AAHA
           !       ! OEPKA CCTEMHOO AAH. COBO CO-
           !       ! EPT CO AAH, COBMECTHO CO-
           !       ! X OHOB KOHCO
  
 
                             - 185 -
  
  
  
  
                                                     6
                 T.CNFG
  
    ---------------------------------------------------------
          !              HAEHE
    ---------------!-----------------------------------------
        0          !  AAPATHO TA.  CTA-
                   ! HOBEHHM, OH OKABAET, TO AHH
                   ! TEPMHA MEET OEPK AAPATHO TA-
                   ! . MOHTOP HE PEOPAET CMBO
                   ! TA B POE O ACK EO B B-
                   ! XOHO KOEBO EP. POPAMMA MOET
                   ! CTAHOBT TOT BOH PAP  KOH-
                   ! KPETHOO TEPMHAA 
                   ! .MTSET
                   ! KOMAHA SET TT:TAB CTAHABBAET
                   ! TOT BOH PAP   -
                   ! CO
    ---------------!-----------------------------------------
        1          ! KOA TOT T CTAHOBEH, MOHTOP OC-
                   ! AET KOMHA 'BOBPAT KAPETK-EPEBO
                   ! CTPOK' <CR><LF> HA TEPMHA, B TOM C-
                   ! AE, EC HA  CEPAHA. PO-
                   ! PAMMA MOET CTAHOBT TOT T
                   !  OHKPETHOO TEPMHAA 
                   ! .MTSET. KOMAHA SET TT:CRLF CTAHABBA-
                   ! ET TOT T  OHOBO KOHCO
    ---------------!-----------------------------------------
        2          ! T AAPATHOO EPEBOA OPMATA. 
                   ! CTAHOBEHHM, OH OKABAET, TO AHH
                   ! TEPMHA MEET AAPATH OEPK E-
                   !   ( <FF>).
                   !       
                   ! EPEBO OPMATA B EPEBO CTPOK O A-
                   ! CK EO B BXOHO KOEBO EP.
                   ! POPAMMA MOET CTAHOBT TOT T 
                   !   
                   ! .MTSET. KOMAHA SET TT:FORM CTA-
                   ! HABBAET TOT T  OHOBO KOHCO
    ---------------!-----------------------------------------
        3          ! KOA TOT T OAEH, MOHTOP OPAA-
                   ! TBAET <CTRL/F>, <CTRL/B>  <CTRL/X> KAK
                   ! HE CMBO  HOPPET X CEA-
                   !  HAHAEH. KOMAHA SET TT:NOFB
                   ! OAET TOT T   .
                   !      
                   !   ,  PAEEMA
                   ! KOH   
    ---------------!-----------------------------------------
      4-5          ! APEEPBPOBAH
  
  
  
  
  
  
  
  
  
 
                             - 186 -
  
  
  
  
                                           . 6
    ---------------!-----------------------------------------
          !             
    ---------------!-----------------------------------------
        6          ! T APEA OAH TT. AHAOEH 
                   !  B COBE COCTOH AAH (JSW),
                   !  POPAMMA MOET CTAHOBT. B
                   !  AE POPAMMA HE OAET ABEP-
                   !  A-BBOA HA TEPMHA  PO-
                   !   BOHEH. AMETM, TO T
                   !   JSW    
                   !  () 
                   ! . EC  -
                   ! POPAMMA COET PE ,
                   ! OHA MOET CTAHOBT TOT T  
                   ! TCB, CO 
                   ! .TSET. EC  AHH TEPMHA B-
                   ! ETC ACTHO KOHCO  AHHOO AA-
                   ! H, TO AAHE MOET CTAHOBT T
                   !  JSW. B MHOO 
                   ! AAHE MOET
                   ! CTAHOBT T   JSW  B CB
                   ! HOO TEPMHAA. B OM CAE,
                   !  TA  B TCB 
                   ! JSW PBT K  OOX TOB
    ---------------!----------------------------------------
        7          ! T XON/XOFF.  HHM, OH
                   ! CKAET PACOHABAHE XON(CTRL/Q) 
                   ! XOFF(CTRL/S) CMBOOB. KOMAHA SET TT:
                   ! PAGE T TOT T  OHOBO KOH-
                   ! CO
    ---------------!-----------------------------------------
        8-11       ! MACKA CKOPOCT B OAX  TEPMHAOB
                   ! HA DZ-HX. (CKOPOCT B OAX  TEP-
                   ! MHAOB HA DL-HX HEPOPAMMPEMA O
                   ! APOC .MTSET). HAEH CEE:
                   !
                   !   MACKA          CKOPOCT
                   !()  ()
                   !   -----          --------
                   !   0000              50
                   !   0400              75
                   !   1000              110
                   !   1400              134.5
                   !   2000              150
                   !   2400              300
                   !   3000              600
                   !   3400             1200
                   !   4000             1800
                   !   4400               .
                   !   5000               .
                   !     .                .
                   !     .                .
  
  
  
  
  
  
 
                             - 187 -
  
  
  
  
                                           . 6
    ---------------!-----------------------------------------
     !           
    ---------------!-----------------------------------------
        12         ! T CEAHOO PEMA. AHAOEH T
                   ! 12 B JSW, KOTOP BAMOECTBET C KOH-
                   ! CO AAH. EC TOT TEPMHA B-
                   ! ETC ACTHO KOHCO  AHHOO AA-
                   ! ,     12
                   ! JSW,     
                   ! .  MHOOTEPMHAHO 
                   !  MOET T T 12 KAK 
                   ! JSW,    TCB KOHCOHOO TEPMHAA.
                   !   ,  TA 12 B TCB
                   !  JSW PBOT K  OOX -
                   ! . EC POPAMMA  BBOA-BBOA C-
                   ! OET PE TEPMHA, OHA MOET -
                   ! T TOT T B KAOM TCB, CO-
                   !  MAKPOKOMAH .MTSET
    ---------------!-----------------------------------------
        13         !   .  
                   !      
                   ! MOET MEHT EO.  ,
                   ! TOT T KABAET, TO AH 
                   ! BETC AEHHM
    ---------------!-----------------------------------------
        14         ! KOA TOT T H, BOMOHO OTO-
                   ! EHE  BBO KP  ATHCKX
                   ! KB. KOA TOT T OEH, MOHTOP
                   ! PEOPAET CMBO C KOAM 141-172
                   ! B ATHCKE. EC AHH TEPMHA B-
                   ! ETC ACTHO KOHCO AAH, AAHE
                   ! MOET  TOT T B JSW.
                   !    
                   !      JSW,
                   !   TCB KOHCOHOO TEPMHAA.
                   ! B OM CAE,  TA B
                   ! TCB  JSW PBOT K 
                   ! OOX TOB
    ---------------!-----------------------------------------
        15         ! KOA TOT T H, MOHTOP B-
                   ! HET COOTBETCTBEE ECTBE  B-
                   ! TEPMHAA,    <DEL>.
                   ! POPAMMA MOET  TOT T
                   !  KOHKPETHOO TEPMHAA C OMO MA-
                   ! KPOKOMAH .MTSET. KOMAHA SET TT:SCOPE
                   ! T TOT T TOKO  OHOBO
                   ! KOHCO
  
  
  
  
  
  
  
  
  
  
  
 
                             - 188 -
  
  
  
  
                              O                      7
               T.CNF2
  
    -------!-------------------------------------------------
     T   !                     HAEHE
    -------!-------------------------------------------------
     0-1   ! T BA T OKABAT PAMEP (H) CMBOA.
           ! DZ MOET EPEABAT CMBO 
           ! 5, 6, 7  8 TOB. HAEH CE:
           !
           !        HAEH    :     HA CMBOA
           !     ......................................
           !           00       :     5 T
           !           01       :     6 T
           !           10       :     7 T
           !           11       :     8 T
           !
           ! T T HE COTC  HTEPECA DL
    -------!-------------------------------------------------
     2     ! CTO T. B ABCMOCT OT CKOPOCT OH OKABA-
           ! ET KOECTBO EPECAEMX CTO-TOB.
           ! 0 - EPECAETC OH CTO-T
           ! 1 - EPECAETC BA CTO-TA
           ! (OTOPA CTO-TA, EC COTC
           ! THE CMBO.)
           ! T HE COETC  DL
    -------!--------------------------------------------------
     3     !   .   ,
           !    
    -------!-------------------------------------------------
     4     ! OKABAET, ET POBEPKA HA ETHOCT 
           ! HEETHOCT.
           !
           !    HAEH :   KOHTPO
           !    .........:................
           !       0     :  HA ETHOCT
           !       1     :  HA HEETHOCT
           !             :
           !  DL HE COETC
    -------!-------------------------------------------------
     5-6   !   APEEPBPOBAH
    -------!-------------------------------------------------
     7     !  HM, TOT T KABAET PEM
           ! 'TAT BCE'.  TOM PEME  EPEAET 
           ! B TOB KAOO CMBOA E PEOPAOBAH.
           !   OB. ,
           ! '^' POXOT KAK 203 B PEME 'TAT BCE',
           ! EC TEPMHA CTAHABBAET  (15)
           ! T HA EPEA.  CTAHOBEHHM,
           ! TEPMHA OHOCT AXOTC B OHAKOBOM
           ! PEME
    -------!-------------------------------------------------
     8-14  ! APEEPBPOBA
    -------!-------------------------------------------------
     15    !  EHHM, TOT T KABAET PEM
           ! 'EPECAT BCE' (WRITE PASS-ALL). B TOM
           ! PEME  EPEAE    
           !    
  
 
                             - 189 -
  
  
  
  
                                                     8
               T.STAT
  
    -------!-------------------------------------------------
      T  !      HAEHE   
    -------!-------------------------------------------------
     0     ! KABAET, TO OCEOBATEHOCT
           ! POOAETC
    -------!-------------------------------------------------
     1-3   ! APEEPBPOBAH
    -------!-------------------------------------------------
     4     ! KABAET, TO  OEPA 
           ! . BBO C TEPMHAA HOPPETC
    -------!-------------------------------------------------
     5     ! TO T CHXPOHA TT-PABEPA
    -------!-------------------------------------------------
     6     ! KABAET, TO OAETC PEPBAHE BBOA
    -------!-------------------------------------------------
     7     ! KABAET, TO TEPMHA OCA XOFF, TO
           ! ATPEOBAT POCTAHOBK B
    -------!-------------------------------------------------
     8-9   ! APEEPBPOBA
    -------!-------------------------------------------------
     10    ! KABAET, TO AHH TEPMHA BETC PAE-
           ! EMO KOHCO
    -------!-------------------------------------------------
     11    ! KABAET, TO AEHH TEPMHA HE HAXOTC
           ! B COCTOH OTOBHOCT
    -------!-------------------------------------------------
     12    ! KABAET, TO HTEC TEPMHAA - DZ
    -------!-------------------------------------------------
     13    ! 
    -------!-------------------------------------------------
     14    ! KABAET, TO BA <CTRL/C>  BBEEH C AH-
           ! HOO TEPMHAA. TOT T BOBPAAETC B CXO-
           ! HOE COCTOHE  .MTGET
    -------!-------------------------------------------------
     15    ! KABAET, TO AHH TEPMHA ETC KOHCO
           !  HEKOTOPOO AAH. OHA MOET T PAEE-
           ! MO  ACTHO
  
  
  
        7.8.6.2. ACHXPOHH CTATC TEPMHAA (S)
  
  
  
  
        S BETC CEAHO ,  KOTOP  MOHO
   BPAT BO BPEM EHEPA CCTEM. EC  A  BPAHA,
   TO MOHO CTAHOBT OOHTEHO      XPAHEH
   OHOO S  KAOE LUN B POPAMME.    -
         .MTATCH,    KA  KAK
   APMEHT APEC S  TOO  TEPMHAA.  S  
    ,      PABEH  HE  POPAMMA  MOA
   OT HOPMA      E BA
   MAKPOKOMAH.    OET T B S.
   S COEPT HOPMA,   . 9:
  
 
                             - 190 -
  
  
  
  
                                                     9
    ----------------------------------------------------------
    T ! M    ! T   !  
    ----!--------!-----------------!--------------------------
        !        !                 !
     15 ! AS.CTC !    100000       !    -
        !        !                 !  <CTRL/C>.
        !        !                 !   
        !        !                 ! , ..  
        !        !                 !    -
        !        !                 ! 
        !        !                 !
     14 ! AS.INP !     40000       ! C AHHOO TEPMHAA
        !        !                 ! OCTE BBO
        !        !                 !
     13 ! AS.OUT !     20000       ! KOEBO BXOHO
        !        !                 ! EP CT
        !        !                 !
     7  ! AS.CAR !       200       ! H BKEHA  HAXO-
        !        !                 !  B COCTOH
        !        !                 ! TOBHOCT (TOKO 
        !        !                 ! AEHHX H)
        !        !                 !
     6  ! AS.HNG !       100       ! HHA H (AEHHA)
        !        !                 ! TOKO TO OTKEHA 
        !        !                 ! CCTEMA OE HE
        !        !                 ! OEPBAET T H
  
        MOHTOP CTAHABBAET T  15  (AS.CTC),  BCK  PA,
   KOA  BE    OEE  OCEOBATEHX  KOMAH   <CTRL/C>
   HAEATAH HA  KAKOM-O  TEPMHAE.  EAT  BX  KOMAH
   <CTRL/C> HA KOHCOHOM TEPMHAE  AAH  BCEA  OPBAET
   EO, EC AAHE HE COET MAKPOKOMAH .SCCA, KOTOPA
   PTCTBET BOCPT TX CMBOOB KAK CEAHX.  
    AAH   TOT T.
  
        MOHTOP    T  14  (AS.INP),   KOA   C
   TEPMHAA BOMOEH BBO. TO MOET T CTPOKA  CMBOOB  B
   HOPMAHOM PEME   EHCTBEHH  CMBO  B  CEAHOM
   PEME. MOHTOP OHET TOT T, KOA POPAMMA  CTAET
   CMBO.
  
        MOHTOP  T 13 (AS.OUT), KOA  BXOHO
   KOEBO EP TEPMHAA CT. TO POCXOT OCE  TOO,
   KAK OCEH CMBO KOEBOO EPA BBEEH HA TEPMHA.
   MOHTOP OET TOT T, KOA B  KOEBOM  EPE  ECT
   CMBO.
  
        MOHTOP    T  7  (AS.CAR),   KOA   OH
   OTBEAET AEHHO  H.  OH  OHET  TOT  T,  KOA
   AEHHA H ABCAET  AAET HECA ACTOTA.
  
        MOHTOP  T 6 (AS.HNG), KOA OH  -
    AEHH H, KOTOPA TOKO TO ABCA.
  
  
  
  
  
 
                             - 191 -
  
  
  
  
        7.8.7.          
               
  
  
  
  
        POPAMM    MTTEMT,        ACT     RMON,
   CETEPT MHOOTEPMHAHE MAKPOKOMAH    BOHT
   X.  CETEPA  POPAMMA  PHMAET   MAKPOKOMAH,
   KOTOPE TPAHCPTC B HCTPK EMT 375  C  KOOM  37  
   HKOHAHM KOOM OT  O  ().
  
        CHAAA    CETPA    POPAMMA     POBEPET
   OCTOBEPHOCT MAKPOKOMAH. ATEM OHA POBEPET  OECK
   HOMEP  TEPMHAA    EAETC,  TO  OH  OKEH.  EC
   MAKPOKOMAHA BETC KOMAHO AXBATA , POPAMMA
   POBEPET AHTOCT  TEPMHAA.   BCEX  PX
   MAKPOKOMAH POBEPET,     TEPMHA  BBAE
   POPAMMO.
  
             
   ,          
    .
  
              
     RRY (52).    :
  
   0      -     ( IN);    
             ( U);
  
   1      -    (   -
              );
  
   2      -      (-
                );
  
   3      -   (  -
              );
  
   4      -     , -
               ;
  
   5      -    ,    
               AST     -
                  (    -
            ).
  
                   
       . 10.
  
  
  
  
  
  
  
  
  
  
 
                             - 192 -
  
  
  
  
                                                   10
    --------------------------------------------------------
     MAKPOKOMAH !            KO  OOK
                  !            0 1 2 3 4 5
    --------------!-----------------------------------------
     .MTATCH      !                X X X X
     .TGET       !              X X X X X
     .MTSET       !              X X X   X
     .MTIN        !            X X X X   X
     .MTOUT       !            X X X X   X
     .MTPRNT      !              X X     X
     .MTRCT      !              X X X
     .MTSTAT      !                      X
     .MTDTCH      !              X X X
  
  
  
        7.8.7.1. .MTATCH -AXBAT TEPMHAA
  
  
  
  
        .MTATCH COETC  AXBATA  TEPMHAA  AAH.
     POPAMM  BBOT CMBO  HA  TEPMHA,
   BBOT C HEO  MEHT  XAPAKTEPCTK.
  
        OCE AXBATA TEPMHAA AAHEM OH    B  TOM
   COCTOH O TEX OP, OKA HE AA MAKPOKOMAHA .MTDTCH 
   AAHE ABEPEHO. EC TEPMHA  OCBOOAETC  C  OMO
   .MTDTCH, TO AAHE OKPETC  O  ABEPEH  BBOA  HA
   TEPMHA  ATEM MOHTOP OCBOOAET TEPMHA  OT  AAH.
   EC   TEPMHA   OCBOOAETC   P    CPOCE    AAH,
   HEABEPEHH  BBO  HA  TEPMHA  PEPBAETC    MOHTOP
   OCBOOAET TEPMHA HEMEEHHO.
  
          AXBATA    CHAAA   POBEPET,
   BETC  TEPMHA PAEEHHO KOHCO, HO  HE  KOHCO
   AHHOO AAH.EC TO TAK, TO BAET OK C KOOM 4.
   EC TEPMHA E  AXBAEH  PM  AAHEM,  TO  TAK  E
   BAETC OKA   4.
  
        POPAMMA AXBATBAET TEPMHA, CTAHABBA BA -
     B  TCB  TOO   TEPMHAA   (T.JOB      T.OWNR).   B
   FB/XM OHA AHOCT HOMEP AAH B T.JOB. B RM/SJ -
     OCE   AXBATA   TEPMHAA   T.OWNR   PHMAET
   HEHEBOE HAEHE.  FB/XM  -    T.OWNR  COEPT
   KAATE HA CME OACT AAH, KOTOPOE AXBATBAET
   TEPMHA.
  
        EC CCTEMA  CEHEPPOBAHA  C  S,  TO  
   AHOCT B T.AST KAATE COBA S. B XM  -    OHA
   TAKE AHOCT HAEHE B T.AST+2, KOTOPOE COETC  KAK
   HAEHE PA1 P OTOPAEH COBA AST.
  
          ,     -    ,  
   HAEH HEKOTOPX PAPOB EPEHOC   JSW  B  T.CNFG:
   KOP  PAP   14   (   HHEO   PECTPA),   12
   (CEPEM)  6 (APET OAH). EC TEPMHA -  OHOBA
   KOHCO, TO APA T.TFIL  EK 56.
 
                             - 193 -
  
  
  
  
         :
  
             .  R,DDR,UNI
  
    
  
   R   -      ;
  
   DDR   -     ( );
             S  ,  ADDR   0;
  
   UNI   -     ,    
              .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   5    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     !   0    !  UNIT  !
                     !--------!--------!
  
              ,  
      ""   . RRY
   (52)     (   
      ).         
   : 2, 3, 4, 5.
  
            
   .MTATCH         
   S  ,     .
  
        .
  
            .ENABLE LC
            .LL  .,.RN,.MTSTA,.I
    S.R  = 200                  ; , 
                                   ;   
    M.NLUN  = 4                    ;  , -
                                   ; - 
                                   ;()
    SR:
            .MTSTAT #MTA, #MSTAT   ;  -
                                   ; 
            MOV MSTAT+M.NLUN,R4    ;R4=>  
                                   ;()
            BEQ MERR               ; ,   
                                   ; !
            LR     R1             ; .
                                   ;
            V     #S,R2        ;R2-> S
    10$:    . #,R2,R1     ;  .
                 15$            ;  
            LR    I(R1)        ;,  .
                                   ;  
            R      20$            ; 
    15$:    V    #1,I(R1)     ;,  .
 
                             - 194 -
  
  
  
  
                                   ; 
            I     #S.R,@R2    ;  ?
            Q     20$            ;
            .RN #,#LLW,R1; 
    20$:    DD     #2,R2          ;R2->  S
            IN     R1             ;  .
                 R1,R4          ; ?
            L     10$            ; 
            .I
    MERR:   .PRINT #NOMTTY         ; 
                                   ;
            .EXIT
    NOMTTY: .ASCIZ /?   /
    S:    .LW   16.            ;AS  
    :    .LW   3              ; 
    LLW: .SIZ  / ,  !/
    I:    .L   16.            ;1 => . 
                                   ;0 =>  
    MSTAT:  .BLKW   8.             ; 
                                   ;
                                   ;
            .ND    SR
  
  
  
        7.8.7.2. .MTGET - OEHE CTATCA
  
  
  
  
        .MTGET        OEH   XAPAKTEPCTK
   TEPMHAA (P TOM  HEOATEHO  AXBATBAT  TEPMHA).
   .MTGET           TCB
     B  4-      POPAMM.   POCXOT
   CE EPEHOC:
  
          - T.CNFG B M.TSTS;
  
          - T.CNF2 B M.TST2;
  
          - T.TFIL B M.TFIL;
  
          - T.FCNT B M.FCNT;
  
          - T.WID B M.WID;
  
          -  AT      T.STAT  B
            M.TSTW.
  
         ,      -
    :
  
   .SS ()
          -     1  (-
                 7.8.7.3);
  
   .S2 ()
          -     2;
  
 
                             - 195 -
  
  
  
  
   .FIL ()
          - ,    , -
               DL-;  
             ,      ;
  
   .FN ()
          -       ,     
            .FIL;
  
   .WID ()
          -     ;
  
   .SW ()
          -       (     
            7.8.7.3).
  
        EC TEPMHA HE AXBAEH H KAKM AAHEM, POPAMMA
   BAET  KO  OK  1.  EC  TEPMHA   AXBAEH   PM
   AAHEM, TO BAETC KO OK 4  B R0  AHOCTC  HOMEP
   AAH-BAEA TEPMHAA.
  
        EC TEPMHA-PAEEMA  KOHCO,  A  AAHE  MEET
   COCTBEHH ACTH KOHCO, TO R0 COEPT HOMEP  AAH,
   BAEEO KOHCO. HECMOTP HA TO, TO   -
    ABEPAETC C OKO, HOPMA O XAPAKTEPCTKAX
   TEPMHAA BCEA  AHOCTC  B  OK  COCTOH  POPAMM.
   HAKOHE,   EC      ABEPAC   E    OK,
   CPACBAET PAP 14 (<CTRL/C>) B T.STAT.
  
  
         :
  
             .G   R,DDR,UNI
  
    
  
   R   -      ;
  
   DDR   -  4-  ,  
              ;   
              7.8.7.3;
  
   UNI   -   .
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   1    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     !   -    !  UNIT  !
                     !--------!--------!
  
              ,  
      .         
    1, 2, 3, 4, 5.
  
 
                             - 196 -
  
  
  
  
            7.8.7.10.
  
  
  
        7.8.7.3. .MTSET - CTAHOBKA XAPAKTEPCTK
  
  
  
  
          .MTSET      
    () TEPMHAA   ,  
    -    .
  
        .MTSET  EPEHOCT  COEPMOE  M.TSTS  B  T.CNFG,   A
   CKEHEM PAPA 13 (AEHH TEPMHA),   -
     TOKO    TEH.  EC  TEPMHA  -   KOHCO
   AAH, TO POPAMMA EPEHOCT  T.CNFG B JSW PAP: 14
   (HH PECTP), 12 (CEPEM)  6 (APET OAH).
  
        HEABCMO OT  TOO,  BETC    TEPMHA  KOHCO
   AAH    HET,  POPAMMA  EPEAET    TCB   
   CE HOPMA:
  
          - M.TST2 B T.CNF2;
  
          - M.TFIL B T.TFIL;
  
          - M.FCNT B T.FCNT;
  
          - M.TWID B T.WID
  
        EC CCTEMA MEET  DZ  OEPK    AHH  TEPMHA
   OKEH C OMO DZ  HTEPECA,  TO  POPAMMA  OAET
   ABEPEH  BBOA  HA  TEPMHA     ATEM   CTAHABBAET
   APAMETP H DZ.
  
  
        .  BCEA BOH .TGET O .MTSET.
     MEH  TOKO  TE  HAEH,   KOTOPE   HH.   
   OHOPAPHX HAEH COTE KOMAH BIS   BIC.  
   MHOOPAPHX HAEH CHAAA OCTTE X C OMO BIC 
   ATEM APTE C OMO BIS.  COTE  MOVB    MOV
   TOKO  ATHX  COBHX HAEH.  MEHEH  PX
   PAPOB  MOT  PBECT  K  HEPECKAEMM  OKAM,  ,
   HAKOHE,  CO  .MTSET TOT E CAM  OK
   COCTOH, TO   .MTGET.
  
         :
  
             .S   R,DDR,UNI
  
    
  
   R   -      ;
  
   DDR   -       ,  
               , 
              /;
  
 
                             - 197 -
  
  
  
  
   UNI   -   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   1    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     !   -    !  UNIT  !
                     !--------!--------!
  
      :
     DDR: .WRD  .SS   ;  
                           ; 1(T.CNFG)
           .WRD  .S2   ;  
                           ; 2(T.CNF2)
           .Y  .FIL   ;,  
           .Y  .FN   ; 
           .Y  .WID   ;   
           .Y  .SW   ;  
  
        1)  
  
              -  
       (0   1)  
    T.CNFG  T.CNF2.
  
            M.TSTS    
     (    ,    
   ):
  
   W$ = 1      ( 0)
          -     ( <>);
  
   RLF$  = 2      ( 1)
          -    <R><LF>      
             ;
  
   FR$  = 4      ( 2)
          -         (
            <FF>);
  
   FY$ = 10     ( 3)
          -   <RL/F>    <RL/>     
            () ;
  
   SSQ$ = 20     ( 4)
          -   <S>-  (  -
               );
  
   SFL$ = 40     ( 5)
          -  <S>-;
  
   I$ = 100    ( 6)
          -      , 
                   -
            ;   TCBIT$  JSW;
  
 
                             - 198 -
  
  
  
  
   G$  = 200    ( 7)
          -   <RL/S>  <RL/Q>   -
                 ;
  
   LINS$ = 7400   ( 8-11)
          -         (
            );
  
   S$ = 10000  ( 12)
          -       ();
              TTSPC$  JSW;
  
   R$ = 20000  ( 13)
          -    (     -
            );
  
   L$  = 40000  ( 14)
          -      ;
  
   S$  = 100000 ( 15)
          -     <S> (011)   
                 .
  
            "LINS$"   
    (  )   . 5.
  
             T.CNFG  
   T.CNF2   . 5  6;
  
        2)  
  
           M.TSTW    -
     (   ,   -
   ):
  
   SR$ = 2000   ( 10)
          -      
              ;
  
   NGU$ = 4000   ( 11)
          -       -
            ;
  
   LL$ = 10000 ( 12)
          -        -
            ;
  
   CONSL$ = 100000 ( 15)
          -    .
  
              ,  
      "C"   . ERRBYT
   (52)     (   
      ).   : 1, 2, 3, 5.
  
              -
           -
    .MTBDF,       
   .
 
                             - 199 -
  
  
  
  
            7.8.7.10.
  
  
  
        7.8.7.4. .MTIN - BBO CMBOA
  
  
  
        .IN      
   .YIN.        .  
   .IN        
      .    -
      .      ,
        
      R0.
  
         .MTIN     -
     "C"    (  0),
     6   M.TSTS  (.    7.8.7.3)  
     :
  
          -  12  M.TSTS        
                ;
          -  12  M.TSTS        
              .
  
        ,  .IN -
          ,    -
      .
  
          .IN   ,   -
     ,      6    M.TSTS
         ,  
       .   6  
   .SS ,       -
   .   6 - ,     
   ,    .       R0
       , .. -
                
    .       -    
    0.
  
  
        .IN COETC    BBOA  CMBOA  C  TEPMHAA.
   TEPMHA     KOHCO,         (.MTIN)
   EPECAET  JSW  B  T.CNFG    14,  12    6.  EC
   TEPMHA - OHOBA KOHCO, TO POPAMMA  APAET  T.TFIL
    EK 56.
  
        .MTIN OAET CMBO   KOEBOO  EPA  BBOA  
   KOPPEKTPET  EO   KAATE.   EC   TEPMHA   BETC
   KOHCO,  TO  COET  KOEBO  EP  B  CMEAHO
   OACT AAH. EC TEPMHA HE KOHCO, TO  COET
   KOEBO EP TCB TEPMHAA.
  
        EC BB  <CTRL/C> HA KOHCOHOM
   TEPMHAE  .SCCA HE CTAHOBEH, AAHE   -
   .
  
 
                             - 200 -
  
  
  
  
         :
  
             .IN    R,DDR,UNI[,RN]
  
    
  
   R   -      ;
  
   DDR   -     (      
              ,    -
            );
  
   UNI   -   ;
  
   RN -  ,    (  1
             255);    ,   -
              .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   2    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     ! CHRCNT !  UNIT  !
                     !--------!--------!
  
              ,  
          .  RRY
   (52)      .      
      0, 1, 2, 3  5.    (  -
   )   ,    6  M.TSTS  (
    JSW -   ).
  
            7.8.7.10.
  
  
  
        7.8.7.5. .MTOUT - BBO CMBOA
  
  
  
         .U  ,  -
    .IN.       -
    .YU.  .U      
   .  .U     
          . -
        ""  -
   .       ,    R0  
       .
  
         .MTOUT EPECAET  KOHCO AAH  
   JSW B  T.CNFG  PAP  14,  12,  6.    OHOBO  KOHCO
   POPAMMA APAET T.TFIL  EK 56.
  
        POPAMMA EPEHOCT CMBO   EPA  OOBATE  B
   BXOHO KOEBO EP  MEHET KAATE EPA.  EC
   TEPMHA - KOHCO, TO POPAMMA COET KOEBO EP
 
                             - 201 -
  
  
  
  
   B CMEAHHO OACT AAH. EC TEPMHA - HE KOHCO, TO
   POPAMMA COET KOEBO EP B TCB.
  
              6   M.TSTS  -
   ,    C-    .  -
         , 
         .
  
         .U         
   ,          ,  
            
   (  6 .SS ),      
    (  6  .SS  ).    
    R0      (R0
      ,    
   ),     C     
   .
  
         :
  
             .U   R,DDR,UNI[,RN]
  
    
  
   R   -      ;
  
   DDR   -    ,     -
             ;
  
   UNI   -   ;
  
   RN -  ,     (
            1  255);      ,    
              .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   3    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     ! CHRCNT !  UNIT  !
                     !--------!--------!
  
              ,  
          .  RRY
   (52)      .      
      0, 1, 2, 3.
  
            7.8.7.10.
  
  
  
  
  
  
  
  
 
                             - 202 -
  
  
  
  
        7.8.7.6. .MTPRNT - BBO CTPOK
  
  
  
            .RIN.
         
    (     ).    
       .
  
               
        "0",    "200"  (
    .RIN).        
    0,       
       <R>    <LF>.  
      200        
     <R><LF>.
  
        .
  
                 .SIZ //
              .SII //<200>
  
        .MTPRNT EPECAET CTPOK    EPA  OOBATE  B
   BXOHO KOEBO EP    MEHET  EO  KAATE.  
   KOHCO COETC KOEBO EP  B  CMEAHHO  OACT
   AAH.    HE  KOHCO  -   B   TCB   TEPMHAA.   EC
   OCTATOHO MECTA B BXOHOM KOEBOM EPE,   AAHE
   POCTAHABBAETC  O  OBEH   MECTA   HEABCMO   OT
   HAEH PAPA 6 B T.CNFG.
  
         :
  
             .PRNT   R,DDR,UNI
  
    
  
   R   -      ;
  
   DDR   -     ;
  
   UNI   -   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   7    !
                     !--------!--------!
                     !      ADDR       !
                     !--------!--------!
                     !   -    !  UNIT  !
                     !--------!--------!
  
              ,  
         .  -
       : 1, 2, 5.
  
            7.8.7.10.
  
  
 
                             - 203 -
  
  
  
  
        7.8.7.7. .MTRCTO -   <CTRL/O>
  
  
  
  
        .TRCTO COETC    BOCCTAHOBEH  BOMOHOCT
   BBOA  HA  TEPMHA,  HA  KOTOPOM  A   AAHA   
   <CTRL/O>.
  
        .MTRCTO CPACBAET A <CTRL/O> B  TCB    EPECAET
    KOHCO AAH PAP 14, 12, 6  JSW B T.CNFG.  
   OHOBO KOHCO B T.TFIL APAETC EKA 56.
  
        EC  MEHET  COEPMOE  JSW,     PEKOMEHETC
   COOBAT .MTRCTO CPA E OCE TOO,  TOO,  TO
   JSW    TCB  BCE  BPEM  COEPA  OHAKOB  HOPMA.
   HAPMEP, EC HEOXOM      
   .GTLIN,      14    JSW    
   .MTRCTO  RCTRLO EPE .GTLIN.
  
         :
  
             .R  R,UNI
    
  
   R   -      ;
  
   UNI   -   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   4    !
                     !--------!--------!
                     !   !
                     !--------!--------!
                     !   -    !  UNIT  !
                     !--------!--------!
  
              ,  
      .     -
   : 1, 2, 3.
  
            7.8.7.10.
  
  
  
        7.8.7.8. .MTSTAT -  
  
  
  
  
        .MTSTAT  COETC    OEH   HOPMA   O
   COCTOH  MHOOTEPMHAHO  CCTEM.    
   ETPE COBA POPAMM    -
   :
  
          - MEEHE OT HAAA RMON O EPBOO TCB;
  
 
                             - 204 -
  
  
  
  
          - CMEEHE OT HAAA RMON O TCB  TEPMHAA  AHHOO
            AAH;
  
          - OEE CO TCB;
  
          - PAMEP TCB B ATAX (BCE TCB MET OH   TOT  E
            PAMEP).
  
        TCB PAMEEH B RMON B TO OCEOBATEHOCT, B KAKO
    AAH DL  DZ H  : CHAAA  T  TCB
    OKAHX DL, ATEM AEHHX DL, ATM OKAHX DZ  
   AEHHX DZ.
  
        C  OMO  HOPMA,   OEHHO   .MTSTAT   MOHO
   OPEET TCB OO TEPMHAA  POBEPT COEPMOE  TCB
   C OMO  .GVAL (. TA. 4).
  
        .MTSTAT        -
      .
  
         :
  
           .MTSTAT AREA,ADDR
  
   
  
   AREA   -      ;
  
   ADDR   -  8-   ,   -
                , 
             . 11.
  
          :
  
  
       R0 => AREA: !--------!--------!
                   !   37   !   10   !
                   !--------!--------!
                   !      ADDR       !
                   !-----------------!
                   !        0        !
                   !-----------------!
  
                                                  11
               
    -------------------------------------------------------
       !              
     ()   !
    -------------------------------------------------------
         0     !     RMON   TCB
               !
         2     !     RMON  TCB 
               !   
               !
         4     !   TCB ( 1  17 )
               !
         6     !   TCB  
               !
      10 - 17  !   
 
                             - 205 -
  
  
  
  
  
  
            5.
  
              .MTATCH  (.
    7.8.7.1).
  
  
  
        7.8.7.9. .MTDTCH - OCBOOEHE TEPMHAA
  
  
  
  
        .TDTCH  COETC    OCBOOEH  TEPMHAA  
   EAET  EO  OCTHM      P   AAH.   CHAAA
   CTAHABBAET T DTACH$ (T 4 B  T.STAT),  TO  -
   , TO BOHETC OEPA  OTKEH.  TO  CKAET
   KOHKTHE CTA B MOE MTTINT. (KOHKTHA CTA
   -  CTA, KOA BE  OEE  OEPA  OHOBPEMEHHO
   TATC   MEHT   OH      TE   E   AHHE).   ATEM
   CTAHABBAETC XON, EC PAHEE  CTAHOBEH  XOFF.  EC
   TEPMHA - HE  PAEEMA  KOHCO,  AOHETC  BXOHO
   EP. B RM/SJ- POPAMMA KTC O TEX OP, OKA
   T.OUTR HE OCTTC. B  FB/XM-  BOHEHE  AAH
   POCTAHABBAETC  OCTK T.OCTR.
  
        COBA T.OWNR  T.AST CPACBATC B 0   -
    TEPMHAA , HAKOHE, CPACBATC DTACH$.
  
        KOA AAHE AETC, TEPMHA TC  E
   AOHEH EPOB.
  
          ,  ,  
   , .      
   ,  ,      -
   ,      .    
   ,    ,   -
   . ,     -
    .
  
         :
  
             .D  R,UNI
  
    
  
   R   -      ;
  
   UNI   -   .
  
  
  
  
  
  
  
  
  
 
                             - 206 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !   37   !   6    !
                     !--------!--------!
                     !   !
                     !--------!--------!
                     !   -    !  UNIT  !
                     !--------!--------!
  
              ,  
      .     1, 2, 3.
  
        .
  
            .IL  D.
            .LL  .D,.RN,.,.I,.RIN
    SR:  . #,#0,#3      ;  3
            S     1$              ; 
            .RN  #,#SS,#3  ; 
            .D #,#3         ; 
            .I
    1$:     .RIN  #ATTRR         ;  
                                    ; (  )
            .I
    ATTRR: .SIZ  /  #3/
    SS:   .SIZ  /  /
            .VN
    :    .LW   3
            .ND    SR
  
  
  
        7.8.7.10. PMEP MHOOTEPMHAHO POPAMM
  
  
  
                -
   ,    -
   .
  
        .
  
            .IL  S.
            .LL  .,.RN, .G, .IN,.U
            .LL  .S,.I,.RIN, .R
            .MCALL  .MTBDF
            .MTBDF
            .NL  L      ;  
                            ; 
    ;NGU$  = 4000         ;  
    ;S$  = 10000        ;  
    ;L$   = 40000        ;
                            ; -.
    ;S.IN  = 40000        ;   
    .SS  = 0             ;  
    .SW  = 7             ;  
    SR:  LR     R1              ; 
            V     #S,R2         ;R2-> S
 
                             - 207 -
  
  
  
  
    10$:    . #,R2,R1      ; 
                 20$             ; !
            LR    I(R1)         ;  
            R      30$             ;...
    20$:    V    #1,I(R1)      ; 
            V     R1,R3           ; 
            SL     R3              ;   8 
            SL     R3              ;   
            SL     R3              ; - ()
            DD     #S,R3         ;R3-> 
            .G  #, R3,R1     ; 
            IS     #S$+L$,.SS(R3)  ;
                                    ;  :
            .S  #,R3,R1      ; 
            I    #NGU$/400,.SW(R3)  ; ?
            N     30$             ;
            .R #,R1         ; <RL/>-
            .RN #,#LL, R1 ; 
    30$:    DD     #2,R2           ;R2-> . S
            IN     R1              ;   :
                 R1, #16.        ; ?
            L     10$             ; ...
    L:                   ;   ,
                            ;  
            LR     R1      ; 
            V     #S,R2 ;R2-> 
    10$:    S     I(R1)        ;  ?
            Q     20$             ;
            I     #S.IN,(R2)    ;-  ?
            Q     20$             ;
            .IN   #,#R,R1   ; 
            S     RR             ;
            .U  #, #R, R1 ; 
            S     RR             ;
    20$:    DD     #2,R2           ; S
            IN     R1              ; 
                 R1,#16.         ; ?
            L     10$             ;
            R      L            ;  !!!
    RR:    .RIN  #UNR           ;  
            .I
    S:    .LW   16.             ;  S
    I:    .L   16.             ; ..
            .VN
    :    .LW   3               ;  ..
    R:   .Y   0               ;   
    LL:  .SIZ  / /
    UNR:   .SIZ  / ,  /
            .VN
    S:    .LW   16.*4           ;-  
                                    ; 
            .ND    SR
  
  
  
  
  
  
  
 
                             - 208 -
  
  
  
  
        7.8.8.   
  
  
  
         TAK  MHOOTEPMHAH    CO
    VDT.
  
  
  
  
        7.9.  (TS)
  
  
  
             
    ,    TS-.
  
  
  
        7.9.1.  .BLIN
  
  
  
                
            
      .
  
         :
  
           .BLIN AREA,BUFF,BCNT
  
   
  
   AREA   -    EMT,      
            ;
  
   BUFF   -   ,     -
               ;
  
   BCNT   -    .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  115   !   0    !
                     !--------!--------!
                     !      BUFF       !
                     !-----------------!
                     !      BCNT       !
                     !-----------------!
  
               
       ,       
       .    -
    R0     . 
        ,    
       1   "C"    
   .     ,
    .GTLIN.      
 
                             - 209 -
  
  
  
  
       "" .
  
  
  
        7.9.2.  .BLOUT
  
  
  
             
      ().
  
         :
  
           .BLOUT AREA,BUFF,BCNT
  
   
  
   AREA   -    EMT,      
            ;
  
   BUF    -  ,       -
            ;
  
   BCNT   -   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  114   !   0    !
                     !--------!--------!
                     !      BUFF       !
                     !-----------------!
                     !      BCNT       !
                     !-----------------!
  
            -
             
            .TTYOUT.  
    .PRINT,     .
  
  
  
        7.9.3.  .BREAK
  
  
  
           , -
    TS-      -
      .
  
         :
  
           .BREAK AREA,CHAR,CRTN
  
   
  
   AREA   -    EMT,      
            ;
  
 
                             - 210 -
  
  
  
  
   CHAR   -  ,       -
                 -
            ;
  
   CRTN   -   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  133   !   0    !
                     !--------!--------!
                     !      CHAR       !
                     !-----------------!
                     !      CRTN       !
                     !-----------------!
  
                    
      (  BREAK).    
           .
          ,
       .BREAK .
  
         ,       -
     ,      -
            
   .
  
                  
           
    -   .    
             
   .
  
  
  
        7.9.4.  .DISMO
  
  
  
           ,    
    DISMOUNT (    -
    ).
  
         :
  
           .DISMO AREA,DEVICE
  
   
  
   AREA   -    EMT,      
            ;
  
   DEVICE -      .RAD50.
  
  
  
  
  
  
 
                             - 211 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !  135   !   0    !
                     !--------!--------!
                     !     DEVICE      !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
  
  
        7.9.5.  .FRSPL
  
  
  
           R0     
    .
  
         :
  
           .FRSPL AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  107   !   0    !
                     !--------!--------!
  
  
  
        7.9.6.  .HIOF
  
  
  
              -
       .
  
         :
  
           .HIOF AREA
  
   
  
   AREA   -    EMT,    
            .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !  120   !    0   !
                     !--------!--------!
  
  
 
                             - 212 -
  
  
  
  
        7.9.7.  .HION
  
  
  
        TS-    -
      ( ).    
           
   ( )     
    .   
     ,    (
         ).   -
    ("")    -
       ,     -
   ,  ""  .
  
               -
       .
  
         :
  
           .HION AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  120   !    1   !
                     !--------!--------!
  
  
  
        7.9.8.  .MOUNT
  
  
  
           ,    
    MOUNT (       
     ).
  
         :
  
           .MOUNT AREA,DEVICE
  
   
  
   AREA   -    EMT,    
            .
  
   DEVICE -      RADIX-50.
  
  
  
  
  
  
 
                             - 213 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !  134   !   0    !
                     !--------!--------!
                     !      DEVICE     !
                     !-----------------!
                     !        0        !
                     !-----------------!
  
  
        :
  
                         
  
            1      ,  
                  , .
  
  
  
        7.9.9.  .MSEND
  
  
  
                 
     ( ).
  
         :
  
           .MSEND AREA,LINE,ADDR
  
   
  
   AREA   -    EMT,      
            ;
  
   LINE   -     ,      
             ;
  
   ADDR   -     .ASCIZ.
  
           :
  
                     !--------!--------!
         R0 => AREA: !  127   !   0    !
                     !--------!--------!
                     !      LINE       !
                     !-----------------!
                     !      ADDR       !
                     !-----------------!
  
  
  
  
  
  
  
  
  
 
                             - 214 -
  
  
  
  
        7.9.10.  .SETODT
  
  
  
            TS- 
   ,   ODT.       TS-
           -
    , ",", "$"  ";".
  
         :
  
           .SETODT AREA
  
   
  
   AREA   -    EMT,      
            ;
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !  111   !   1    !
                     !--------!--------!
  
  
  
        7.9.11.  .RSTODT
  
  
  
              
    ODT.
  
         :
  
           .RSTODT AREA
  
   
  
   AREA   -    EMT,    
            .
  
           EMT:
  
                     !--------!--------!
         R0 => AREA: !  111   !   0    !
                     !--------!--------!
  
  
  
        7.9.12.  .TRMTYPE
  
  
  
           R0 ,    
   ,    .
  
         :
  
 
                             - 215 -
  
  
  
  
           .TRMTYPE AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  137   !   0    !
                     !--------!--------!
  
         ,   R0:
  
                         
           ---              --------
  
            0             ()
            1              VT-52
            2              VT-100
            3              VT-340
            4              BTA-2000-2
            5              BTA-2000-15
            6              BTA-2000-30
            7              VDT-52100
            8              VDT-52130
  
  
  
        7.9.13.  .TSLINE
  
  
  
           R0  ,   
   .     TS-   1    
   ,       .      
    ,       ,
      .
  
         :
  
           .TSLINE AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  110   !   0    !
                     !--------!--------!
  
  
        .      
      ,        
    TS-  .     
 
                             - 216 -
  
  
  
  
      .SERR,    .TSLINE.  
       ,    -
   ,                 
   TS-.      -      
    RM, SJ, FB, XM.
  
  
  
        7.9.14.  .TSTACT
  
  
  
                 
    ,    .
  
         :
  
           .TSTACT AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !   123  !   0    !
                     !--------!--------!
  
             ( TS-)    
     ,       -
     1  "C"   .   
    -  "C" .
  
  
  
        7.9.15.  .TSTER
  
  
  
               
      ( ).
  
         :
  
           .TSTER AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  116   !   0    !
                     !--------!--------!
  
 
                             - 217 -
  
  
  
  
                   
     1  "C"    -
     .   ,  
     (,         
   ..),   ,        
    TS-.
  
  
  
        7.9.16.  .TSTOP
  
  
  
         TS-  .SETTOP    -
     ,  ,   
      .      
        ,    
   .    ,      
   (  )  ,     
            ,   
          -
       .
  
            ,     ,
           MEMORY.  
   ,        MEMORY,  
         . -
    .TSTOP     -
     ,  .   -
          -
   .
  
         :
  
           .TSTOP AREA,TOPADR
  
   
  
   AREA   -    EMT,      
            ;
  
   TOPADR -       
            ,   .
  
              R0     
     ,  .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  141   !   0    !
                     !--------!--------!
                     !     TOPADR      !
                     !-----------------!
  
             
      (RUN/DEBUG).    -
    .TSTOP,      TS-  
   .          
 
                             - 218 -
  
  
  
  
     .SETTOP.
  
  
        .      .SAV
       SIZE.
  
  
  
        7.9.17.  .TTIME
  
  
  
           -  (  )
        .  -
       ,   -
              
    (,    ).    
     ,     
      .
  
         :
  
           .TTIME AREA,TIME,CHAR
  
   
  
   AREA   -    EMT,      
            ;
  
   TIME   -    0.5 ;
  
   CHAR   - ,     -.
  
           :
  
                     !--------!--------!
         R0 => AREA: !  117   !   0    !
                     !--------!--------!
                     !      TIME       !
                     !-----------------!
                     !      CHAR       !
                     !-----------------!
  
         -,   ,   -
              ,
   ..      .
  
  
  
        7.10.   (TS)
  
  
  
        TS-  ,  
      ,    -
    ,  ( )  -
    .      -
    :
  
 
                             - 219 -
  
  
  
  
          -            
                    ,
                       
            ;
  
          -         
               ,   
                .
  
                
          TS-.  
    TS-      -
       .    -
         TS-,   
         .
  
        ,    ,     
            -
   .       
               
    .
  
  
  
        7.10.1.  .SHARE
  
  
  
             -
    .
  
         :
  
                        .SHARE AREA,NAME
  
   
  
   AREA   -    EMT,      
            ;
  
   NAME   -   ,   -
              ;       
            RAD50;      , 
               ;    
                  TS-;  
              ,      
                  -
                 -
             .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  143   !   0    !
                     !--------!--------!
                     !      NAME       !
                     !-----------------!
  
               
 
                             - 220 -
  
  
  
  
        .   
         
    .         -
     .
  
        :
  
                         
  
            1        
  
  
  
        7.10.2.  .SHMAP
  
  
  
                  
     .SHARE,   -
            
        .SHMAP.
  
         :
  
                    .SHMAP AREA,PAGE,OFF,SIZE
  
   
  
   AREA   -    EMT,   
            ;
  
   PAGE   -     (0-7)    
            ,          
              ;
  
   OFF    -     64    
            ,     ,
               ;   
                  -
            ;
  
   SIZE   -      64 ,  
             ;     -
                ,  -
                -
            .
  
                  -
     :
  
                     
    --------------                ------
          0                  000000 - 017777
          1                  020000 - 037777
          2                  040000 - 057777
          3                  060000 - 077777
          4                  100000 - 117777
          5                  120000 - 137777
          6                  140000 - 157777
 
                             - 221 -
  
  
  
  
          7                  160000 - 177777
  
           :
  
                     !--------!--------!
         R0 => AREA: !  143   !   1    !
                     !--------!--------!
                     !      PAGE       !
                     !-----------------!
                     !       OFF       !
                     !-----------------!
                     !      SIZE       !
                     !-----------------!
  
        :
  
                         
  
            1           
                      .
  
                
   ,    ,    
      ,     .
         
   ,          -
    .  ,   -
         .  -
             7  
    /,    -    
   .
  
             -
    ,  .
  
  
        .  ,        7
   (    160000-177777)    -
       (    
   56 ),   ,     
         .
  
  
  
        7.11.   (TS)
  
  
  
            -
     ,     -
      .
  
  
  
  
  
  
  
  
 
                             - 222 -
  
  
  
  
        7.11.1.  .DJKILL
  
  
  
            
     .
  
         :
  
           .DJKILL AREA,LINE
  
   
  
   AREA   -    EMT,      
            ;
  
   LINE   -   ,        
             .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  132   !   2    !
                     !--------!--------!
                     !      LINE       !
                     !-----------------!
  
        :
  
                         
  
            1        .
  
  
  
        7.11.2.  .DJSTART
  
  
  
              
   (     ).
  
         :
  
           .DJSTART AREA,DJOB
  
   
  
   AREA   -    EMT,      
            ;
  
   DJOB   -     .ASCIZ,  -
              .
  
  
  
  
  
  
 
                             - 223 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !  132   !   0    !
                     !--------!--------!
                     !      DJOB       !
                     !-----------------!
  
               ,
        .    ,
      ,   R0. -
        ,    
     .
  
        :
  
                         
  
            1           
                   .
  
  
  
        7.11.3.  .DJTST
  
  
  
           , -
      .
  
         :
  
           .DJTST AREA,LINE
  
   
  
   AREA   -    EMT,      
            ;
  
   LINE   -  ,     (/)
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  132   !   1    !
                     !--------!--------!
                     !      LINE       !
                     !-----------------!
  
          , ..     
   ,          
   "C".    -  "C"   ( -
   ).
  
  
  
  
  
 
                             - 224 -
  
  
  
  
        7.12.   (TS)
  
  
  
         " "   -
   ,    TS-, -
    .
  
             ""    
   .          -
   .         (-
   )     .
  
                .
           -
       .     -
   , ..      .    
   "",           
        .    -
    "",        
   .
  
  
        .      TS-  
       , -
     ,      ,
      .
  
             (   ), 
      ,     
   ,  TS-   .    
        ,    
     ,  .
  
  
  
        7.12.1.  .MGET
  
  
  
              
        .   -
       ,      
   ,   3.
  
         :
  
           .MGET AREA,BOX,BUFF,BCNT
  
   
  
   AREA   -    EMT,   
            ;
  
   BOX    -     ,    -
                 -7;
  
   BUFF   -  ,     -
            ;
 
                             - 225 -
  
  
  
  
   BCNT   -    .
  
          ,      -
    R0       
   .     ,    -
        ().
  
           :
  
                     !--------!--------!
         R0 => AREA: !  105   !   0    !
                     !--------!--------!
                     !       BOX       !
                     !-----------------!
                     !       BUFF      !
                     !-----------------!
                     !       BCNT      !
                     !-----------------!
  
        :
  
                         
  
            0      ;   ;
  
            3         ;
  
            4         
                  .
  
  
  
  
        7.12.2.  .MGETWAIT
  
  
  
               -
       ,       -
    .
  
         :
  
           .MGETWAIT AREA,BOX,BUFF,BCNT
  
              
     ,    .MGET.
  
        :
  
                         
  
            0      ;   ;
  
            1        ;
  
            4         
                  .
  
 
                             - 226 -
  
  
  
  
        7.12.3.  .MPUT
  
  
  
             .
  
         :
  
           .MPUT AREA,BOX,BUFF,BCNT
  
   
  
   AREA   -    EMT,   
            ;
  
   BOX    -     ,    -
             ;
  
   BUFF   -  ,    ;
  
   BCNT   -    .
  
                (
   ),        -
     .  ,    ,
     ,         
     .      -
           
   .   ,  ,  
       .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  104   !   0    !
                     !--------!--------!
                     !       BOX       !
                     !-----------------!
                     !       BUFF      !
                     !-----------------!
                     !       BCNT      !
                     !-----------------!
  
        :
  
                         
  
            1        ;
  
            2          
                  ;
  
            4        ,
                    .
  
  
               ,  
   ,    .
  
 
                             - 227 -
  
  
  
  
        7.13.    (TS)
  
  
  
        TS-      ,  -
            .  
             -
   :
  
          -      -
             /, ..   ;
  
          - ""    
              ,    
                      
             ;   -
              ,   , 
               ;
  
          -      (..    
            )     ,    -
                ;
  
          -       -
                   -
            ,      .
  
        ,      -
   ,   .
  
        ,        
     TS-,  .  -
        -
   .
  
  
  
        7.13.1.    /
  
  
  
         ,      -
   ,        ,  
        ,  ..    
   /,                 
   760000-777777.  ,      
    ,        .  
                 (    
   160000-177777)    /,   
     ,  RMON,    
   .    ,   ,  -
        RMON,  -
   .
  
                     (
   /)     TS-  -
   :
          -      -
                /;
 
                             - 228 -
  
  
  
  
          -    ;     
                   -
               /  .
  
                   
           
        .  
     ,      
      RMON.    -
       .GVAL    
    RMON.          RMON  
            
      .
  
  
  
        7.13.2.  
  
  
  
  
        TS-  ""   -
               
    .    ,    
   ,  TS-      
   .
  
                 (-
   ),       ,
      TS-.   -
           -
         .  ,
        ,    
     .       
      , R0  
    ,    .
  
               -
    ,    .  -
        0-7.  -
       ,   
           -
      .
  
         1-7    " -
   ".        
     .  , 
    1-7,      ,
         .    ,  
      ,    
      :
  
          -     ;
  
          -      -
                ;    -
                   -
                -
            ;
 
                             - 229 -
  
  
  
  
          -     
            -       ,  ,
                /;     
                    
                  
            .
  
         ,    0,  -
      .   -
          ,      
      .   -
    0     ,  -
               
       QUAN1A  (      
   TS-).
  
        ,    -
    ,       .
     ,        
     ,  TS-     
         
    .
  
              ,  
            
   .       -
     ,     
   .        TS-  
            -
    ,      (-
    ).
  
  
  
        7.13.3.  
  
  
  
          ,     -
            ,  
          ,
       .      
     ,     -
     ,    ,    
        .
  
        TS-      -
      :
  
          -       -
                    
              ;       
                    
                    -
               ;  
                    -
            ,          
              ;
  
 
                             - 230 -
  
  
  
  
          -       -
                 ,   -
               ;     -
              ,  TS-
              ;  -
               ,    -
                  .
  
  
  
        7.13.4.  .CONVIR
  
  
  
               
        .   
         
   .
  
         :
  
           .CONVIR AREA,VADDR,BUFF
  
   
  
   AREA   -    EMT,      
            ;
  
   VADDR  -  ,     -
              ;
  
   BUFF   -     ,    
             .
  
              16  -
     .        
        4  5   -
   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   4    !
                     !--------!--------!
                     !      VADDR      !
                     !-----------------!
                     !      BUFF       !
                     !-----------------!
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
 
                             - 231 -
  
  
  
  
        7.13.5.  .ENSWAP
  
  
  
              
     .
  
         :
  
           .ENSWAP AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   5    !
                     !--------!--------!
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.6.  .IMLOCK
  
  
  
            -
       .
  
         :
  
           .IMLOCK AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   13   !
                     !--------!--------!
  
  
  
  
  
  
 
                             - 232 -
  
  
  
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.7.  .POLOCK
  
  
  
            ,  -
        ,  ..    
          ,  
   .
  
         :
  
           .POLOCK AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   7    !
                     !--------!--------!
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.8.  .INTCON
  
  
  
             -
       .
  
         :
  
           .INTCON AREA,VECT,COMPLT,PRIOR
  
   
  
   AREA   -    EMT,   
            ;
 
                             - 233 -
  
  
  
  
   VECT   -   ;
  
   COMPLT -   ( )    -
            ,       -
            ;
  
   PRIOR  - ,      -
             ;        
               0-7.
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   11   !
                     !--------!--------!
                     !      VECT       !
                     !-----------------!
                     !     COMPLT      !
                     !-----------------!
                     !      PRIOR      !
                     !-----------------!
  
   :
  
                         
  
            0          
                    TS-,   
                   .
  
            1         
                  (  );
  
            2            
                    .
  
  
  
        7.13.9.  .INTFRE
  
  
  
              -
    .      
     .
  
         :
  
           .INTFRE AREA,VECT
  
   
  
   AREA   -    EMT,      
            ;
  
   VECT   -    .
  
  
  
 
                             - 234 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   12   !
                     !--------!--------!
                     !      VECT       !
                     !-----------------!
  
   :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.10.  .IOBIC
  
  
  
          ,   -
     BIC  (  ),      
    .
  
         :
  
           .IOBIC AREA,ADDR,WORD
  
   
  
   AREA   -    EMT,      
            ;
  
   ADDR   -     ;
  
   WORD   - ,        -
              BIC    -
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   4    !
                     !--------!--------!
                     !       ADDR      !
                     !-----------------!
                     !      WORD       !
                     !-----------------!
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
 
                             - 235 -
  
  
  
  
        7.13.11.  .IOBIS
  
  
  
          ,   -
     BIS ( ),      
    .
  
         :
  
           .IOBIS AREA,ADDR,WORD
  
   
  
   AREA   -    EMT,      
            ;
  
   ADDR   -     ;
  
   WORD   - ,        -
              BIS    -
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   3    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
                     !      WORD       !
                     !-----------------!
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.12.  .IOGET
  
  
  
                
   (  ),        /.
           
   .
  
         :
  
           .IOGET AREA,ADDR
  
   
  
   AREA   -    EMT,      
 
                             - 236 -
  
  
  
  
            ;   EMT ( );
  
   ADDR   -       /,   
                  .
  
             R0.
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   1    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
  
        :
  
                         
  
            0           
                    TS-,   
                   .
  
  
  
  
  
        7.13.13.  .IOPUT
  
  
  
               
    /.
  
         :
  
           .IOPUT AREA,ADDR,WORD
  
   
  
   AREA   -    EMT,      
            ;
  
   ADDR   -     /;
  
   WORD   - ,   .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   2    !
                     !--------!--------!
                     !      ADDR       !
                     !-----------------!
                     !      WORD       !
                     !-----------------!
  
  
  
 
                             - 237 -
  
  
  
  
        :
  
                         
  
            0          
                    TS-,   
                   .
  
  
  
        7.13.14.  .IOMAP
  
  
  
            
             (
   160000-177777)    /,    
        .
  
         :
  
           .IOMAP AREA
  
   
  
   AREA   -    EMT,    
            .
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   5    !
                     !--------!--------!
  
         .GVAL         
      ,     -
      /.
  
  
  
        7.13.15.  .IOUNMAP
  
  
  
               -
        /.
  
         :
  
           .IOUNMAP AREA
  
   
  
   AREA   -    EMT,    
            .
  
  
  
  
 
                             - 238 -
  
  
  
  
           :
  
                     !--------!--------!
         R0 => AREA: !  140   !   6    !
                     !--------!--------!
  
  
  
        7.14.   (TS)
  
  
  
        TS-       ,
    ,        
     .     (  -
   )          
      .       
       ,      
        ,     -
    .
  
          TS-    -
   ,    .
  
             ,  
       :
  
          -  ;
          -  ,    -
            ;
          -   ,   ;
          -     ;
          -  ;
          -     ;
          -  ;
          -     ;
          -  .
  
        TS-     -
         .      
          512-
      .
  
                -
     ,    - 
   .  ,         
   , ' ,  , -
        -.   ,    
     -   ,    
     /        .  
    -      -
    .
  
               
     .
  
              -,   -
        ,       
   -,          
 
                             - 239 -
  
  
  
  
   .
  
             ,  -
   ,      . 
       ,  -  -
   .       . -
         .
  
         ,  '    -
    .SFOPEN,      
    ,         ,  
            .
  
  
  
        7.14.1.  .SFLOCK
  
  
  
            
     .         
    ,     
     ,      .
  
         :
  
           .SFLOCK  AREA,CHAN,BLKN
  
   
  
   AREA   -    EMT,      
            ;
  
   CHAN   -  ,    ;
  
   BLKN   -  ,    . TES
            7
  
           :
  
                     !--------!--------!
         R0 => AREA: !   102  !  CHAN  !
                     !--------!--------!
                     !      BLKN       !
                     !-----------------!
  
          ,    -
    .      ,  
        ,  
     .      "-1"  (
   177777)          
      .     -
        ,      -
   ,    .
  
  
  
  
  
 
                             - 240 -
  
  
  
  
        :
  
                         
  
            1            ;
  
            2         
  
  
  
  
        7.14.2.  .SFOPEN
  
  
  
        ,    ,  
        .LOOKUP.  
     ,   -
    .SFOPEN  '  .
  
         :
  
           .SFOPEN  AREA,CHAN,CODE
  
   
  
   AREA   -    EMT,      
            ;
  
   CHAN   -  ;
  
   CODE   - ,     .
  
           EMT:
  
           !--------!---------!
           !  125   !   CHAN  !
           !--------!---------!
           !      CODE        !
           !------------------!
  
            :
  
                        
           ---     ----------      -----------
           0            
           1            
           2             
           3             
           4            
           5            
  
                   
    (   )       
      .      
    :
  
  
  
 
                             - 241 -
  
  
  
  
    
          - ,        -
               ,   ;
  
    
          - ,       
              ;
  
    
          - ,       
             ,    .
  
           .SFOPEN TS- -
              ,  
    '      .  
    ,      
     4.   ,    -
            -
            .
  
              -
     . ,    
     . ,  
           -
         .        -
    .        
         .   -
               
    ,   . ,   
            ,  ,
     ,      .  
            -
     ,        , 
    ' .
  
                
       .  -
           ,  
     ,    TS-.
  
                 
     ,  ..        
   .CLOSE  .PURGE.
  
        :
  
                         
  
            1            ;
  
            2          
                  ;
  
            3         ;
  
            4          
                   .
  
  
 
                             - 242 -
  
  
  
  
        7.14.3.  .SFSAVE
  
  
  
              
                    
   .SAVESTATUS.     ,   -
     ,     ,  
         ,          
   .SFUNLOCK.
  
                
         
   .LOOKUP   ,  '   
     .SFOPEN,    .SAVESTATUS.
  
        ,        ,
                 
    .PURGE,   .REOPEN. , , 
    .PURGE,     TS-,    
             
   (      ,    
       ).
  
                 
   .SFSAVE.
  
         :
  
           .SFSAVE AREA,CHAN
  
   
  
   AREA   -    EMT,      
            ;
  
   CHAN   -  .
  
           EMT:
  
           !--------!---------!
           !   122  !   CHAN  !
           !--------!---------!
  
             ,    -
         -
       /.
  
         ,          
   ,        ,    
           -
    .REOPEN.       -
    .PURGE.
  
  
  
  
  
  
 
                             - 243 -
  
  
  
  
        7.14.4.  .SFTLOCK
  
  
  
           . 
     ,      
    ,    -
    ,   ,    -
     .     ,   -
      .
  
         :
  
           .SFTLOCK AREA,CHAN,BLKN
  
   
  
   AREA   -    EMT,      
            ;
  
   CHAN   -  ;
  
   BLKN   -  ,    .
  
           EMT:
  
           !-----!-----!
           ! 103 ! CHAN!
           !-----!-----!
           !   BLKN    !
           !-----!-----!
  
        :
  
                         
  
            1            ;
  
            2         
                    ;
            3        
                  .
  
  
  
  
        7.14.5.  .SFUNALL
  
  
  
                
    .
  
         :
  
           .SFUNALL AREA,CHAN
    
  
   AREA   -    EMT,    
 
                             - 244 -
  
  
  
  
            .
  
   CHAN   -  ,    .
  
           EMT:
  
           !-----!-----!
           ! 101 ! CHAN!
           !-----!-----!
  
           .SFUNALL  , -
       ,  -
   . ,       -
   ,  ,      ,  
    ,  .
  
        :
  
                         
  
            1            .
  
  
  
  
        7.14.6.  .SFUNLOCK
  
  
  
              
   .
  
         :
  
           .SFUNLOCK AREA,CHAN,BLKN
    
  
   AREA   -    EMT,      
            ;
  
   CHAN   -  ;
  
   BLKN   -  ,    .
  
           EMT:
  
           !-----!-----!
           ! 113 ! CHAN!
           !-----!-----!
           !   BLKN    !
           !-----!-----!
  
  
        :
  
                         
  
            1               .
  
 
                             - 245 -
  
  
  
  
        7.14.7.  .SFWCHECK
  
  
  
              ,
             -  
   .
  
         :
  
           .SFWCHECK AREA,CHAN
    
  
   AREA   -    EMT,    
            .
  
   CHAN   -  ,    .
  
           EMT:
  
           !-----!-----!
           ! 121 ! CHAN!
           !-----!-----!
  
                 -
             ,
           
   ,   "C"      -
       .      
        ,   -
     "C",     2.
  
               -
   ,             
             
   , ..    -   ,
      .     
    :
  
          -  ,    ;
          -   .SFWCHECK,  ,
                 .
  
            ,      
   (       ),    
    ,        -
      .
  
  
  
        7.15.   (TS)
  
  
  
        TS-       ,
            
   ,         
     .
  
 
                             - 246 -
  
  
  
  
        7.15.1.  .PAINIT
  
  
  
                
         -
    (   MONITR).
  
         :
  
           .PAINIT AREA,HIADDR,LOADDR,ICLSIZ,FLAG
    
  
   AREA   -    EMT,      
            ;
  
   HIADDR,LOADDR
          -      ,
                ;
  
   ICLSIZ -     ;
  
   FLAG   -      
             /;  FLAG  0,   -
              ,  FLAG  1,  - -
            .
  
           EMT:
  
                        !--------!--------!
           R0 => AREA:  !  136   !   0    !
                        !--------!--------!
                        !     HIADDR      !
                        !-----------------!
                        !     LOADDR      !
                        !-----------------!
                        !     TCLSIZ      !
                        !-----------------!
                        !      FLAG       !
                        !-----------------!
  
  
        :
  
                        
  
            0         
                      ();
  
            1         
                     .
  
  
  
  
  
  
  
  
 
                             - 247 -
  
  
  
  
        7.15.2.  .PASTART
  
  
  
              -
         ,
          -
    .PASTOP.
  
         :
  
           .PASTART AREA
    
  
   AREA   -    EMT,    
            .
  
           EMT:
  
                        !--------!--------!
           R0 => AREA:  !  136   !   1    !
                        !--------!--------!
  
        :
  
                        
  
            0         
                    .
  
  
  
        7.15.3.  .PASTOP
  
  
  
              
      .   -
         .PASTART.  
   .PASTOP   , ,  
    ,          
   ,         -
   .
  
         :
  
           .PASTOP AREA
    
  
   AREA   -    EMT,    
            .
  
           EMT:
  
                       !--------!--------!
           R0 => AREA  !  136   !   2    !
                       !--------!--------!
  
  
 
                             - 248 -
  
  
  
  
        :
  
                        
  
            0         
                    .
  
  
  
        7.15.4.  .PAGET
  
  
  
             
       .      
         -
            -
   .
  
         :
  
           .PAGET PAR,BUF,BUFSIZE
    
  
   PAR    -      ,  
                 ,   
                   
            .         
            ,      -
            ;    -  ,    
             ;        
                  ;    
             - ,    -
                 /  ;
                :
  
            1    -   /   -
                    ;
  
            100000
                 -         
                      .
  
   BUF    -  ,       
                  
            ;
  
   BUFSIZE
          -     BUF.
  
           EMT:
  
                        !--------!--------!
           R0 => AREA:  !  136   !   3    !
                        !--------!--------!
                        !       PAR       !
                        !-----------------!
                        !       BUF       !
                        !-----------------!
 
                             - 249 -
  
  
  
  
                        !     BUFSIZE     !
                        !-----------------!
  
  
                        
  
            0         ;
            1          .
  
              
      -    
     .
  
  
  
        7.16.    
  
  
  
              
     , 2//.00109-01 33 01-2.
  
  
  
        7.17.   
  
  
  
              4.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 250 -
  
  
  
  
               8.  ' 
  
  
  
  
               ,
      ,    -
      ,      
       .
  
  
  
        8.1.   
  
  
  
  
  
        8.1.1.  CLOSEC/ICLOSE
  
  
  
         CLOSEC    -
            -
   .  ,     ,  -
      .  CLOSEC    -
         .
  
           CLOSEC:
  
        CALL CLOSEC (CHAN[,I])
      
        I=CLOSEC (CHAN)
  
           ICLOSE:
  
        CALL ICLOSE (CHAN[,I])
      
        I=ICLOSE (CHAN)
  
   
  
   CHAN   -   ;  ,  -
               ,   -
               USR;
  
   I      -  0   ,     
                 .
  
         CLOSEC  PURGE      
        ,  
      .          
    ,   CLOSEC .
  
          CLOSEC   , -
      IENTER,      
   ,        .  
    ,       ,  
           ,   
 
                             - 251 -
  
  
  
  
   ,       .    
       ,    -
     .   CLOSEC  , -
     LOOKUP,     .
  
           IENTER    -
    CLOSEC,      -
    . ,        0,
      1,        ,  
      0.      
   ,          IENTER,  
       '  
    <UNUSED>.
  
        :
  
           I= 0 -  ;
  
           I=-4 -      
                    ;
                    CLOSEC; 
                     
                      .
  
               56
   .
  
        .
  
             REAL*4 DBLK (2)
             DATA DBLK/6RSY0NEW,6RFILDAT/
             DATA ISIZE/56/
              . . .
             ICHAN=IGETC()
             IF(ICHAN.LT.0) GOTO 100
             IERR=IENTER(ICHAN,DBLK,ISIZE)
             IF(IERR.GE.0) GOTO 10
             GOTO (110,120,130) IABS(IERR)
         10   . . .
              . . .
             CALL ICLOSE (ICHAN,IERR)
             IF (IERR.EQ.-4) GOTO 140
             CALL IFREEC (ICHAN)
             CALL EXIT
         100 STOP '  '
         110 STOP '  '
         120 STOP '   '
         130 STOP ' '
         140 STOP '   '
             END
  
  
  
  
  
  
  
  
  
 
                             - 252 -
  
  
  
  
        8.1.2.  IDELET
  
  
  
         IDELET      
        .      
      USR,      ,  
     IDELET     ,  
        USR.    IDELET  
           
   .
  
          :
  
           I=IDELET (CHAN,DBLK[,SEGNUM])
  
   
  
   CHAN   -  ,        
             ;      
             IGETC ,  P  
            ICDEN,          16
            ()  ;
  
   DBLK   -     (DEV:FILNAM.TYP),
                  RADIX-50;
  
   SEGNUM -          
            ;     ,    -
               ;     
                 , -
                  :
  
            -1   -         
                   ;       -
                     ;    -
                       ,      
                          ,    
                     EOF;  -
                        -
                   , ..    
                   ;
  
            0    -      -
                     ,      ,
                        ;
  
            N    -     ;  
                         
                    N  ;    
                     (FSN)  ,   -
                        ,  
                     ;     ,  
                       .
  
           IDELET    -
   .  IDELET ,   -
          (  -
       IFETCH   LOAD  -
 
                             - 253 -
  
  
  
  
   ). ,         
   ,    .   
           -
    .DELETE.
  
         :
  
        I=0 -  ;
  
        I=1 -    ;
        I=2 -    ;
        I=3 -  ;
        I=4 -       .
  
             FTN5.DAT      -
    SY0:.
  
        .
  
             REAL*4 FILNAM (2)
             DATA FILNAM /6RSY0FTN,6R5  DAT/
              . . .
             I=IGETC ()
             IF(I.LT.0)STOP  ' '
             CALL IDELET (I,FILNAM)
             CALL IFREEC (I)
  
  
  
        8.1.3.  IENTER
  
  
  
         IENTER     -
               
    .       -
       ,        ,
             
       CLOSEC  ICLOSE.   -
          -
   .  IENTER     USR.
  
          :
  
           I=IENTER (CHAN,DBLK,LENGTH[,SEGNUM])
  
   
  
   CHAN   -   ( ),    
            ;        
            IGETC ,     ISDFN,
                 16  (-
            )  ;
  
   DBLK   -  ,        
             RADIX-50;
  
   LENGTH -    ,      ;  
            ,  ,   ,    
 
                             - 254 -
  
  
  
  
                  -
              <UNUSED>     
              <UNUSED>;   ,  
            ,  -1,        
             <UNUSED>; (. . 7.1.3);
  
   SEGNUM -        
            ;      ,    -
              ;      -
               ;   
              :
  
            -2   -          
                          
                             
                     (LEOT);
  
            -1   -     LEOT  -
                     ;
  
            0    -       -
                             
                            LEOT;
                       ,  
                    ;      ,  
                     .
  
            N    -      -
                        N, 
                      ;    
                      ,   
                       ;  -
                       
                    .
  
        :
        1.   IENTER        
      .
        2.  IENTER ,       
     .
        3.       
     USR.
  
                -
              
   .ENTER.
  
         :
  
        I= N -  : N -   
               (N=0     IENTER,     
                  );
  
        I=-1 -  (CHAN) ;
        I=-2 -          
                <UNUSED>       
                ;
        I=-3 -  ;
        I=-4 -       
 
                             - 255 -
  
  
  
  
               ;
        I=-5 -     
                .
  
              TEMP.TMP  -
    SY0:.       ,    
      .
  
        .
  
              REAL*4 DBLK (2)
              DATA DBLK/6RSY0TEM,6RP TMP/
              ICHAN=IGETC ()
              IF (ICHAN.LT.0) STOP  '  '
    C
    C            
    C
              IF (IENTER(ICHAN,DBLK,20).LT.0)
          *   STOP '  '
                . . .
              CALL PURGE (ICHAN)
              CALL IFREEC (ICHAN)
              END
  
  
  
        8.1.4.  IRENAM
  
  
  
         IRENAM      -
    .     ,    
     .
  
          :
  
           I=IRENAM (CHAN,DBLK)
  
   
  
   CHAN   -   (),      ;
                      IGETC
            ,     ICDFN, 
                16  ()  
            ;      
               ;
  
   DBLK   - 8- ,   -
                    ;    
                         
            INTEGER*2  8 ; DBLK  :
  
           1-4  -   
                       RADIX-50   ;
           5-8  -   
                       RADIX-50   .
  
          IRENAM    
   ,      USR  .
 
                             - 256 -
  
  
  
  
                   
   ,     ,    -
   .        IRENAM     
     (.. ).
  
         IRENAM  ,      
             
      .    ,  -
     .  ,   -
    ,  .
  
                  
      .RENAME.
  
         :
  
        I=0 -  ;
  
        I=1 -    ;
        I=2 -    ;
        I=3 -       
              .
  
        .
  
           REAL*8 NAME (2)
           DATA NAME /12RRK0FTN2  DAT,12RRK0FTN2  LD/
            . . .
  
           ICHAN=IGETC ( )
           IF(ICHAN.LT.0) STOP  ' '
           CALL IRENAM(ICHAN,NAME)  !  
    C                               
           CALL IFREEC (ICHAN)
  
  
  
        8.1.5.  LOOKUP
  
  
  
         LOOKUP      
   /     /.  -
         ,      
       :
  
             CLOSEC  ICLOSE
             ISAVES
             PURGE
  
          :
  
  
        I = LOOKUP (CHAN,DBLK[,COUNT,SEGNUM])
      
        I = LOOKUP (CHAN,JOBDES)
  
   
  
 
                             - 257 -
  
  
  
  
   CHAN   -   (),    
              ;      
                IGETC ,   -
                  ICDFN,    
               16 ()  ;
  
   DBLK   -     ,    
                RADIX-50;    ,  
             USR       ,
              ;
  
   COUNT  - ,        
             ,    0;
  
   SEGNUM -  ;       -
            ,    ,   
             0;       -
              ;   
              ,    ;  -
                 :
  
            -1   -       ,  
                      ;  
                    ,  LOOKUP  
                    (     );    
                    ,    LOOKUP
                   (  );   -
                    ,   -1,  -
                   ;
  
            0    -            
                     ;
  
            N    -     ;  
                          N
                      ;    
                   ,   ;    
                       ,  LOOKUP    
                     ,  SEGNUM;
  
   JOBDES - ,     -
                   ;
                  -
             ,        
               :
  
                   JOBDES: .RAD50 /MQ/
                           .ASCII /LOGNAM/
           
  
            LOGNAM
                 -    6 ;   
                   (T.E.   ),        
                                       
                   (.READ/.READC/.READW),     
                          -
                   .
  
           LOOKUP      ,
 
                             - 258 -
  
  
  
  
        USR  .  -
     LOOKUP       
      .
  
                 0,
          ,  
    ""     -
   .   ,     
   ,      
    .          
   /,      ()
     .       -
   ,                   (,
   LP:FILE.EXT- ),   .
  
         :
  
        I=N -    , N   
               (0  LOOKUP   
                 );
  
        I=-1 -    ;
        I=-2 -      ;
        I=-3 -  ;
        I=-4 -    .
  
        :
  
         INTEGER*2 DBLK (4)
         DATA DBLK /3RRK0,3RFTN,3R44 ,3RDAT/
          . . .
         ICHAN=IGETC ( )
         IF(ICHAN.LT.0)STOP  ' '
         IF(IFETCH(DBLK).NE.0) STOP 'FETCH  '
         IF(LOOKUP(ICHAN,DBLK).LT.0) STOP 'LOOKUP  '
          . . .
         CALL CLOSEC (ICHAN)
         CALL IFREEC (ICHAN)
  
  
   ,  LOOKUP   :
  
         LOGICAL*1 JNAM (6)
         DIMENSION JBLK (4)
         EQUIVALENCEN (JNAM,JBLK(2))
         DATA JNAM /'Q','U','E','U','E',0/
         DATA JBLK (1) /3RMQ /
          . . .
    C
    C        'QUEUE'
    C
         ICHAN=IGETC ( )
         IF (LOOKUP (ICHAN, JBLK).LT.0)
        *  STOP 'QUEUE  '
          . . .
  
  
  
  
 
                             - 259 -
  
  
  
  
        8.2.  /
  
  
  
  
  
        8.2.1.  IREAD/IREADC/IREADF/IREADW
  
  
  
        IREAD/IREADC/IREADF/IREADW -    -
                .
        ,  
       IQSET.
  
  
  
        8.2.1.1.  IREAD
  
  
  
         IREAD     
             -
        .    
        .
  
          :
  
           I=IREAD (WCNT,BUF,BLK,CHAN)
  
   
  
   WCNT   - ;  ,    ;
  
   BUF    - ,    ;   -
                      
            (WCNT);
  
   BLK    -      ;  
               0;     
                 ;  ,  
               ,    -
               BLK  2;
  
   CHAN   -   .
  
         ,        ,
      ,      
   IWAIT.     IREAD.    
      ,     -
     IWAIT.
  
         :
  
       I=N -       , N    
               (0-    -
                      256
             ()     
              ), :
 
                             - 260 -
  
  
  
  
          -     256       
             ,    ,   N  -
                  ;  ,
               512,         256
            ,  I=256;
  
          -      256    
             ,    ,   N  -
                ;  ,  
               312,      
            312 ,   I=512,        312
            ;
  
          -      256    
             ,    ,    N  
            ,  256;
  
       I=-1 -      ;
       I=-2 -     ;
       I=-3 -    .
  
  
        .    (, IREAD)  -
         ,  
   IWAIT   , T.K. IWAIT    
     .      
           
     EOF.
  
        .
  
             INTEGER*2 BUFFER(256),RCODE,BLK
              . . .
             RCODE=IREAD (256,BUFFER,BLK,ICHAN)
             IF(RCODE+1) 1010,1000,10
          10  . . .
             IF(IWAIT(ICHAN).NE.0) GOTO 1010
              . . .
        1000 CONTINUE
       C         
              . . .
             CALL EXIT          !  
        1010 STOP' '
             END
  
  
  
        8.2.1.2.  IREADC
  
  
  
         IREADC       -
               
          -
   :       -
          
       .
  
          :
 
                             - 261 -
  
  
  
  
           I=IREADC (WCNT,BUF,BLK,CHAN,CRTN)
  
   
  
   WCNT   -   ,    ;
  
   BUF    - ,    ;   -
                  ,   -
               WCNT;
  
   BLK    -       ;  
              BLK    -
            ;       
            0;
  
   CHAN   -   ;
  
   CRTN   -     .
  
                 
   IREAD (.  8.2.1.1).
  
        .
  
           INTEGER*2 IBUF (256),RCODE,IBLK
           EXTERNAL RDCMP
            . . .
           RCODE=IREADC (256,IBUF,IBLK,ICHAN,RDCMP)
  
  
  
  
        8.2.1.3.  IREADF
  
  
  
         IREADF       -
               
          -
   :       -
                 
      .
  
          :
  
           I=IREADF (WCNT,BUF,BLK,CHAN,AREA,CRTN)
  
   
  
   WCNT   -   ,    ;
  
   BUF    - ,    ;   -
                  ,   -
               WCNT;
  
   BLK    -       ;  
              BLK    -
            ;       
            0;
 
                             - 262 -
  
  
  
  
   CHAN   -   ;
  
   CRTN   -  ,    -
            ;       
            EXTERNAL ,  IREADF.
  
                 
   IREAD (.  8.2.1.1).
  
        .
  
             INTEGER*2 DBLK (4),BUFFER (256),BLKNO
             DATA DBLK /3RRK0,3RINP,3RUT ,3RDAT/,BLKNO/0/
             EXTERNAL RCMPLT
              . . .
             ICHAN=IGETC ()
             IF (ICHAN.LT.0)STOP  '  '
             IF (IFETCH(DBLK).NE.0)STOP ' FETCH'
             IF (LOOKUP(ICHAN,DBLK).LT.0)STOP ' LOOKUP'
              . . .
          20 IF(IREADF(256,BUFFER,BLKNO,ICHAN,DBLK,RCMPLT)
            * .LT.0) GOTO 100
              . . .
              CALL IWAIT (ICHAN)  !  
       C                          
             BLKNO=BLKN+1        !  
             GOTO 20
              . . .
       C       
         100 CALL CLOSEC (ICHAN)
             CALL IFREEC (ICHAN)
              . . .
             CALL EXIT
             END
             SUBROUTINE RCMPLT (I,J)
       C      
              . . .
             RETURN
             END
  
  
  
        8.2.1.4.  IREADW
  
  
  
         IREADW       -
               
   ;      
       .
  
          :
  
           I=IREADW (WCNT,BUF,BLK,CHAN)
  
   
  
   WCNT   -  ,    ;
  
 
                             - 263 -
  
  
  
  
   BUF    - ,    ;   -
                  ,   -
               WCNT;
  
   BLK    -       ;  
              BLK   -
            ;
  
   CHAN   -   .
  
                 
   IREAD (.  8.2.1.1).
  
        .
  
             INTEGER*2 IBUF (1024)
  
              . . .
             ICODE=IREADW (1024,IBUF,IBLK,ICHAN)
             IF(ICODE.EQ.-1) GOTO 100 !   -
       C                                    100
              . . .
             IF(ICODE.LT.-1)GOTO 200  !  
       C                                 200
       C       
              . . .
       C      ,  
             ICODE=IWRITW (1024,IBUF,IBLK,ICHAN)
  
  
  
  
        8.2.2.  ITTINR
  
  
  
         ITTINR        
       .   -
         ,      
      6    
   (JSW).
  
          :
  
           I=ITTINR ()
  
            ITTINR   ,
     ,      , .. 
      .   XM-    FB-
    ITTINR       ,  
    6         
   ITTINR.
  
             .  -
     12   .    -
      44-       
   SYSCOM.
  
         12-      ,      
 
                             - 264 -
  
  
  
  
   /.      :
  
          -       -
               ;
  
          -  <CTRL/U>    <DEL>    
               ;
  
          -           
                    
                : <CR>,  <LF>,
            <CTRL/Z>  <CTRL/C>.
  
         12-   1,     .
      :
  
          -           
              ,      <CTRL/C>  
            <CTRL/O>;
  
          -  <CTRL/U>  <DEL>    
            ;
  
          -     ;
  
          - <ESC>  .
  
             
     .
  
        12-        -
    ,      -
    . 14-  JSW    -
        .   -
        .
  
             12-    JSW  
    <CR>    ,    -
   : <CR>  <LF>.   12  ,    
      .
  
             -
    14.     ,      
          -
    (  12    )    
   .   14   1,   -
     (  12      )  
    ,    .
  
          /     -
      IPEEK,   IPOKE.   
    ( 12    )  
              
   .
  
         XM-  FB-   <CTRL/F>    <CTRL/B>  (
   <CTRL/X>        )  
      12.        
       ,     
 
                             - 265 -
  
  
  
  
    "SET TT FB".
  
            XM-  FB-   -
   ,       ,      
        -  ,  
       ,      
    .      -
   , .. ,   ITTINR    -
     (I<0),         6
           ITTINR.
    6        .
     ITTINR          
   INTEGER,    .   ,
         ,   
          LOGICAL*1.  
            LOGICAL*1
      ,  ..  15-    (
    )       -
     LOGICAL*1.
  
         :
  
        I>0 -  ;  ;
  
        I<0 -   ,    
              .
  
        .
  
        ICHAR=ITTINR()           !   TT
        IF(ICHAR.LT.0)GOTO 100   ! 
  
  
  
        8.2.3.  ITTOUR
  
  
  
         ITTOUR       
      ,     
      .          
   ,    .
  
          :
  
           I=ITTOUR (CHAR)
  
   
  
   CHAR   -   ;     
            (      LOGICAL*1),  
             .
  
         (I) -    ITTOUR - 
   1,  ,            
      .   XM-    FB-
    ITTOUR   ,   1.  
      ,          
    .      -
 
                             - 266 -
  
  
  
  
    , ..   (I=1),   -
      6-     
    ( 44).
  
               
     ,         
      :
  
          -      ,  -
                ,     
               <LF>.      
             ,      
             ,     
             ,    <LF>;
  
          -     (..    
             KMON),       
              ,       
            <CR>  <LF>.    KMON    -
                     
            ,      -
             .
  
  
        .  ,    -
    PRINT   .
  
         :
  
        I=0 -  ; ;
  
        I=1 -   ,   .
  
        .
  
            DO 10 I =1,5
         10 IF(ITTOUR("007).NE.0) GO TO 10  ! 
     C                                       5 
  
  
  
  
        8.2.4.  IWAIT
  
  
  
          IWAIT      
      ,        
    /      .    
      IREAD, IWRITE  ISPFN. 
     .
  
          :
  
           I=IWAIT (CHAN)
  
   
  
  
 
                             - 267 -
  
  
  
  
   CHAN   -  ()  .
  
             
        .WAIT.
  
         :
  
        I=0 -  ;
  
        I=1 -    ;
        I=2 -     / 
                  .
  
        .
  
        IF(IWAIT(ICHAN).NE.0) CALL IOERR(4)
  
  
  
        8.2.5.  IWRITE/IWRITC/IWRITF/IWRITW
  
  
  
        IWRITE/IWRITC/IWRITF/IWRITW  -      
             
   .       ,    
       IQSET.
  
  
  
        8.2.5.1.  IWRITE
  
  
  
         IWRITE       
               .
         
    ,           .  
        .
  
         :
  
           I=IWRITE (WCNT,BUF,BLK,CHAN)
  
   
  
   WCNT   -  ()  ;
  
   BUF    - ,    ;
  
   BLK    -  ()  ,      
            .      
               BLK;
  
   CHAN   -  ()  ;    
                  IGETC,  ,
                    ICDFN,
                        16
            ()  .
 
                             - 268 -
  
  
  
  
         :
  
        I= N -    ; N  
                ,   
                256 (0  ,  
               );
  
        I=-1 -     ;
        I=-2 -   ;
        I=-3 -    .
  
  
        .          (WCNT)
    ,   ,    
    .
  
        .
  
        INTEGER*2 IBUF (256)
        EXTERNAL CRN
         . . .
        ICODE=IWRITE (256,IBUF,IBLK,ICHAN,CRTN)
  
  
  
        8.2.5.2.  IWRITC
  
  
  
         IWRITC       
          .  -
           
   .       
            
        -
   .
  
          :
  
           I=IWRITC (WCNT,BUF,BLK,CHAN,CRTN)
  
   
  
   WCNT   -  ()  ;
  
   BUF    - ,     ;
  
   BLK    - ;    ,   
             ;    
                  
            BLK (,     , 
             BLK    2);
  
   CHAN   -   ;      
                IGETC, ,  -
                  ICDFN,    
               16 ()  .
  
   CRTN   - ,   , -
 
                             - 269 -
  
  
  
  
                ;  
                EXTERNAL  
              ,  IWRITC.
  
                    
   IWRITE. (M.  8.2.5.1).
  
              IREAD.  (M.  -
    8.2.1.1).
  
  
  
        8.2.5.3.  IWRITF
  
  
  
         IWRITF       -
       .    -
          -
   .       -
          
       .
  
          :
  
           I=IWRITF (WCNT,BUF,BLK,CHAN,AREA,CRTN)
  
   
  
   WCNT   -  ()  ;
  
   BUF    - ,     ;
  
   BLK    -   ()  ,  -
              ;    -
                BLK.
  
   CHAN   -  ()  ;    
                IGETC, ,  -
             ICDFN,      -
             16 ()  ;
  
   AREA   -   4  ,      
            ;         
            ;      -
              USR;    -
                      
              ,     -
            ,    ;
  
   CRTN   -     ,  -
               ;    
                     EXTERNAL    -
            ,  IWRITE.
  
            :
  
           SUBROUTINE CRTN (IARG1,IARG2)
  
 
                             - 270 -
  
  
  
  
   
  
   CRTN   -   ;
  
   IARG1  -        
            ;    ,   -
            ,         
            ;
  
   IARG2  -   ,         
             .
  
              IWRITE
   (.  8.2.5.1).
  
              IREADF  (.  -
    8.2.1.3).
  
  
  
        8.2.5.4.  IWRITW
  
  
  
         IWRITW       
               .
         -
    .
  
          :
  
           I=IWRITW (WCNT,BUF,BLK,CHAN)
  
   
  
   WCNT   -  ()  ;
  
   BUF    - ,     ;
  
   BLK    -  ()   ,      
            ;        
              BLK  ;
  
   CHAN   -  ()  ;    
               IGETC, ,    -
             ICDFN,      
            16 ()  .
  
              IWRITE
   (.  8.2.5.1).
  
              IREADW  (.  -
    8.2.1.4).
  
  
  
  
  
  
 
                             - 271 -
  
  
  
  
        8.2.6.  PRINT
  
  
  
         PRINT       -
    .      
         -
        /. -
           
         .
  
                0  
    200  ().      0  (
   ASCIZ),        <CR><LF>
   (15  12 ()).      
   200,     .
  
         FB-  ,   -
    ,       -
     B>  F> (  NAME>,    NAME-
    ).          -
    ,         
   , '   . -
    PRINT   ,  -
    ,         
   . ..    PRINT  
   ITTOUR.
  
          :
  
           CALL PRINT (STRING)
  
   
  
   STRING -  .
  
  
        .  ,     
    ,      ,  
       ,      ASCIZ.
   ( CONCAT     
    200   ASCIZ)>
  
         .
  
        .
  
         CALL PRINT('   ')
    
         BYTE QUEST(80)
    C      200    <CR><LF>
    C
         CALL CONCAT(' ?', "200, QUEST)
         CALL PRINT(QUEST)
  
  
  
  
  
 
                             - 272 -
  
  
  
  
        8.2.7.  ISPFN/ISPFNC/ISPFNF/ISPFNW
  
  
  
                  
      ( ,   -
   ,   ).      -
     ,     -
   ,       ,    
     .   ISPFN  
     ,   .
  
               -
             
     LOOKUP  . -
         ,    
      IQSET.
  
  
  
        8.2.7.1.  ISPFN
  
  
  
         ISPFN          
        . -
       ,    
    IWAIT.
  
          :
  
           I=ISPFN (CODE,CHAN[,WCNT,BUF,BLK])
  
   
  
   CODE   -   ()  ;
  
   CHAN   -  () ,    ;
                     IGETC,
            ,          ICDFN,  
                 16  ()  
            ;
  
   WCNT   -  ()  ,    -
            ;    ;     
                ISPFN ( -
               );      -
                     ,
               ;   
             ,  ,   
                ; ,  -
               ,  ,  
                  ;
  
   BUF    - ,    ; 
                  ISPFN
            (    );  
             - ;
  
 
                             - 273 -
  
  
  
  
   BLK    -  ()  ,   
            ;    ,  -
             ;       
               ISPFN  (      
            ).
  
          BLK      ,  
     4-          
          .  
             -
     ISPFN.
  
           XM-     -
      (  )    
       USR.    
   ,    :
  
        INTEGER*2  ERRADR,ERRBLK(4)
        DATA ERRBLK/0,0,0,0/
         . . .
        ERRADR=IADDR(ERRBLK)   ! 
   C                            4-  .
        ICODE=ISPFN(CODE,ICHAN,WDCT,BUF,ERRADR)
  
                   ()      
   (WCNT,BUFF,BLK)     :
        ,        
   .
  
              
     :
  
                              MT   CT   DX   DM   DY
     -------                         --   --   --   --   --
                               377  377  377
                               376  376  376
      
                               375       375
      
                          377
      
                          376
      
                          375
      
                          374
       
                        373  373
      
                              372
       
       (EOF)                    377
      
                         376
       
                           375
       
                                   374
       
 
                             - 274 -
  
  
  
  
                          374
                372
      
                                            373  373
       
                                371
       
                                370
  
  
        .       MT
    MM .
  
         :
  
         I=0 -  ;
  
         I=1 -       ;
         I=2 -     ;
         I=3 -    .
  
        .
  
           CALL ISPFN ("373,ICHAN)   !  
  
  
  
        8.2.7.2.  ISPFNC
  
  
  
         ISPFNC         
         .  
           -
            
   ( CRTN)      -
   .
  
          :
  
           I=ISPFNC (CODE,CHAN,WCNT,BUF,BLK,CRTN)
  
   
  
   CODE   -   ()   (. -
             8.2.7.1);
  
   CHAN   -  ,     ;  
                   IGETC,  ,  
                ICDFN,     
               16 ()  ;
  
   WCNT   -  () ,     ;
               ;      
                , -
               ;     -
              ,    
                ;  ,    
            ,    ,  -
 
                             - 275 -
  
  
  
  
                  ;
  
   BUF    - ,     ;  
                 ;
  
   BLK    -   ,     -
            ;          
            ;
  
   CRTN   -    ,  -
               ;    -
               EXTERNAL     
            ,  ISPFNC.
  
          BLK    ,  
       4-         
       .    
         .
  
           XM-       
          
            USR.
         ,    
    :
  
            INTEGER*2 ERRADR,ERRBLK(4)
            EXTERNAL CROU
            DATA ERRBLK/0,0,0,0/
              . . .
            ERRADR=IADDR(ERRBLK)    !  4-
    C                                 
            ICODE=ISPFNC(CODE,ICHAN,WDCT,BUF,ERRADR,CROU)
  
         :
  
         I=0 -  ;
  
         I=1 -  /   ;
         I=2 -     ;
         I=3 -    .
  
  
  
        8.2.7.3.  ISPFNF
  
  
  
         ISPFNF         
         .  
           -
       (  CRTN)    
             
   .
  
          :
  
           I=ISPFNF (CODE,CHAN,WCNT,BUF,BLK,AREA,CRTN)
  
   
 
                             - 276 -
  
  
  
  
   CODE   -   ()   (. -
             8.2.7.1);
  
   CHAN   -  ,     ;  
                  IGETC,  ,  
              ICDFN,      
             16 ()  ;
  
   WCNT   -  () ,     ;
               ;      
                , -
                ;      ,  
               ,      
                ; ,  -
             ,    ,  
                  ;
  
   BUF    - ,     ;  
                 ;
  
   BLK    -  ()  ,   
            ;     
            ;
  
   AREA   - 4- ,     -
              ;     -
             ;    -
                USR;   -
                  
                ;
  
   CRTN   -     ,  KO  -
               ;    -
               EXTERNAL     
            ,  ISPFNF.
  
          BLK    , 
     4-          
        .  
    ISPFNF            
   .
  
           XM-       
          
             USR.
         ,    
    :
  
          INTEGER*2 ERRADR, ERRBLK(4), LINK(4)
          EXTERNAL CROU
          DATA ERRBLK/0,0,0,0/
          . . .
          ERRADR=IADDR(ERRBLK) !  4-
    C                            
          ICODE=ISPFNF(CODE,ICHAN,WDCT,BUF,ERRADR,LINK,CROU)
  
  
  
            :
 
                             - 277 -
  
  
  
  
           SUBROUTINE CRTN (IARG1,IARG2)
  
   
  
   CRTN   -   ;
  
   IARG1  -   ,   -
            ;    ,     
               ;
  
   IARG2  -  ,   .
  
         :
  
         I=0 -  ;
  
         I=1 -  /   ;
         I=2 -     ;
         I=3 -    .
  
        .
  
            REAL*4 MTNAME(2), AREA(2)
            DATA MTNAME/3RMT0,0./
            EXTERNAL DONSUB
             . . .
            I=IGETC()                ! 
            CALL IFETCH(MTNAME)      ! 
            CALL LOOKUP(I,MTNAME)    ! 
            IERR=ISPFNF("373,1,0,0,0,AREA,DONSUB) !
       C                                           
             . . .
            END
            SUBROUTINE DONSUB
       C        0:
             . . .
            END
  
  
  
        8.2.7.4.  ISPFNW
  
  
  
         ISPFNW          
         
   .
  
          :
  
           I=ISPFNW (CODE,CHAN[,WCNT,BUF,BLK])
  
   
  
   CODE   -   ()   (. -
             8.2.7.1);
  
   CHAN   -  ,     ;  
                IGETC, ,  
 
                             - 278 -
  
  
  
  
            ICDFN,            16
            ()  ;
  
   WCNT   -  () ,     ;
                   
            ISPFNW,     ; 
              ;     -
                ,  
              ;   ,   -
              ,      
                ;  ,    
            ,    ,  -
                  ;
  
   BUF    - ,    ; 
             ,   ;    -
               (     )
             ISRFNW;
  
   BLK    -       (  ),    
             ;     
               (        )
             ISPFNW;    ,
             .
  
          BLK    , 
     4-          
       .
  
           XM-       
          
            USR.  
        .  
     ,    -
   :
  
        INTEGER*2 ERRADR, ERRBLK(4)
        DATA ERRBLK/0,0,0,0/
         . . .
        ERRADR=IADDR(ERRBLK)  !  -
        ICODE=ISPFN(CODE,ICHAN,WDCT,BUF,ERRADR)
  
  
        .  BUF    BLK  .  
            -
          .
  
         :
  
           I=0 -  ;
  
           I=1 -  / 
                  ;
           I=2 -     ;
           I=3 -    .
  
        .
  
  
 
                             - 279 -
  
  
  
  
           INTEGER*2 BUF(65),TRACK,SECTOP,DBLK(4)
           DATA DBLK/3RDX0,0,0,0/
            . . .
           ICHAN=IGETC()
           IF (ICHAN.LT.0) STOP  '   '
           IF (LOOKUP(ICHAN,DBLK).LT.0)
          * STOP '   LOOKUP '
            . . .
     C         
     C      
     C
           ICODE=ISPFNW("377,ICHAN,TRACK,BUF,SECTOP)
     C
     C     BUF(1) =   
     C     BUF(2-65) = 
  
  
  
        8.3.   
  
  
  
  
  
        8.3.1.  ICDFN
  
  
  
         ICDFN     /.
    ,   ICDFN      .
   ,      ICDFN,    -
   , ..  ICDFN  20  ()    
   ,   16 ()   ,
     20  /. ,  
      ,  .
  
          :
  
           I=ICDFN (NUM[,AREA])
  
   
  
   NUM    -  ()  ;    
                17 -  256  (-
            );
  
   AREA   -           ,
              ;    -
              ,     -
               .
  
                 
     16          IGETC,    
   /     15 (-
   ) .  16   USR   -
     IGETC.
  
          ICDFN    
    USR.
 
                             - 280 -
  
  
  
  
        :
        1.   ICDFN         
      .
        2.    ICDFN    
             
   /.
        3.   ICDFN      ,
              
    ,      -
     .
        4.  ICDFN ,     -
      .
  
         :
  
        I=0 -  ;
  
        I=1 -     
              ,  ;
        I=2 -      
               .
  
        .
  
        IF(ICDFN(24).NE.0)STOP ' '
  
  
  
        8.3.2.  ICHCPY (FB, XM)
  
  
  
         ICHCPY      ,  
      ,        
         .      
       ,      -
   .  ICHCPY      
       .
  
          :
  
           I=ICHCPY (CHAN,OCHAN[,JOBBLK])
  
   
  
   CHAN   -  ,      -
               ;     
               IGETC, ,    
            ICDFN,       -
              16 ()  .
  
   OCHAN  -    ,   -
            ;
  
   JOBBLK -            
            -7.
  
        :
        1.         -
 
                             - 281 -
  
  
  
  
       IENTER      
   .ENTER,          
        ,    
     ICHCPY ,  .
        2. ,        
   ,   .
        3.      ( 
   )     ,    -
       ,    ,  -
     . ,      -
   ,     .
  
         :
  
        I=0 -  ;
  
        I=1 -        
                 ( "OCHAN");
        I=2 -    ( "CHAN").
  
  
  
        8.3.3.  ICSTAT (FB, XM)
  
  
  
         ICSTAT     
     .      
   FB-  XM-,   SJ-   T
       .
  
          :
  
           I=ICSTAT (CHAN,ADDR)
  
   
  
   CHAN   -  ,     -
            ;
  
   ADDR   - 6-  ,        
               .
  
        ADDR,       6-    
   INTEGER*2,   :
  
   1- 
          -   ;
  
   2- 
          -     , -
                 ;
  
   3- 
          -  ;
  
   4- 
          -   ,     -
                ,    ;
 
                             - 282 -
  
  
  
  
   5- 
          -  ,    ;
  
   6- 
          -   ,          ,   
            RADIX-50.
  
         :
  
        I=0 -  ;
  
        I=1 -    .
  
          ,      -
    .
  
        .
  
             INTEGER*2 AREAL(6)
             I=7
             IF(ICSTAT(I,AREAL).NE.0)TYPE 99,I
        99   FORMAT('',I4,'  ')
  
  
  
  
        8.3.4.  IFREEC
  
  
  
         IFREEC     -
                 
     .   IFREEC  -
        CLOSEC  (  ICLOSE)
      PURGE.  IFREEC    -
          .
    IFREEC          ,
              
               
   IGETC,     .
  
          :
  
           I=IFREEC (CHAN)
  
   
  
   CHAN   -  ()  .
  
         :
  
        I=0 -  ;
  
        I=1 -       .
  
             IGETC (. 8.3.5).
  
  
  
 
                             - 283 -
  
  
  
  
        8.3.5.  IGETC
  
  
  
         IGETC        
       0-17 ()  -
       SYSLIB.   -
         ,  
    , ..  /      
    .  IGETC     -
         .
  
          :
  
           I=IGETC ()
  
         :
  
        I=-1 -   ;
  
        I=N  -  /   N.
  
        .
  
        ICHAN=IGETC() ! 
        IF(ICHAN.LT.0)STOP '  '
         . . .
        CALL IFREEC(ICHAN)  ! 
         . . .
        END
  
  
  
        8.3.6.  ILUN
  
  
  
          ILUN        
   ,     .
  
          :
  
           I=ILUN (LUN)
  
   
  
   LUN    -       1  -  99;
                   -
             .
  
         :
  
        I=N  -    N    -
                 LUN;
  
        I=-1 -    ;
        I=-2 -     -
               .
  
 
                             - 284 -
  
  
  
  
        .
  
             PRINT 99
        99   FORMAT('   '
            *'   6,    '
            *'   LP: ')
             LUNIT=ILUN(6)  !   /
  
  
  
        8.3.7.  IREOPN
  
  
  
         IREOPN    -
        ,   -
      ISAVES.  ,   
      ,   -
       ISAVES/IREOPN.    
         LOOKUP,  -
        ISAVES,       IREOPN
           .
  
          :
  
           I=IREOPN (CHAN,CBLK)
  
   
  
   CHAN   -  ,        
            ;     
              ;
  
   CBLK   - 5- ,     ISAVES  
                .
  
        CBLK      5-     
   INTEGER*2    :
  
   1 
          -   ;
  
   2 
          -        ;  
                O ;
  
   3 
          -   (   256 );
  
   4 
          - ;
  
   5 
          -   ;     -  
            /,     ,  
             ;   -   ,
               .
  
  
 
                             - 285 -
  
  
  
  
         :
  
        I=0 -  ;
  
        I=1 -    .
  
        .
  
        INTEGER*2 SAVES(5,10)
        DATA ISVPTR/1/
         . . .
        CALL ISAVES(ICHAN,SAVES(1,ISVPTR))
         . . .
        CALL IREOPN(ICHAN,SAVES(1,ISVPTR))
  
  
  
        8.3.8.  ISAVES
  
  
  
         ISAVES       -
       .      ,  
    ISAVES,        
   ,          .  
     ISAVES 5-    -
    ,       
     .    
     ,         
   ,   IREOPN.
  
         ISAVES      ,
          LOOKUP.      
     IENTER,   ISAVES 
    .  ISAVES       
      .
  
          :
  
           I=ISAVES (CHAN,CBLK)
  
   
  
   CHAN   -  ,     -
            ;       -
                      IGETC,
            ,         ICDFN,    
                   16  ()  
            ;
  
   CBLK   - 5- ,       
               (. . 8.3.7).
  
         ISAVES/IREOPN,   
   :
  
          -   ISAVES   ,    
                    ,  
                 -
 
                             - 286 -
  
  
  
  
             IENTER;     
             ,   , -
              , ;
  
          -     IREAD  IWRITE   -
                 -
             ,      
               IREOPN,      
             .
  
         :
  
        I=0 -  ;
  
        I=1 -        
              ;
        I=2 -     IENTER,  ISAVES
                .
  
        .
  
        INTEGER*2 BLK(5)
         . . .
        IF(ISAVES(ICHAN,BLK).NE.0)STOP' ISAVES'
  
  
  
        8.3.9.  PURGE
  
  
  
         PURGE     
      ISAVES, CLOSEC  ICLOSE.   
   ,      ,  
   ,      IENTER.   
        -
   ,   IENTER    -
    .ENTER,   .
  
          :
  
           CALL PURGE (CHAN)
  
   
  
   CHAN   -       ,        
            O.
  
         .
  
                IENTER  (.  .
   8.1.3).
  
  
  
  
  
  
  
 
                             - 287 -
  
  
  
  
        8.4.   
  
  
  
  
  
        8.4.1.  GTLIN
  
  
  
         GTLIN     -
              
   .
  
              -
          -
    .  GTLIN  USR.  -
       80  .    
        (JSW)   -
             
      .GTLIN (. . 7.4.3).
  
          :
  
           CALL GTLIN (RESULT[,PROMPT])
  
   
  
   RESULT - ,    ;    
             LOGICAL*1   80   
              -   ( )  
                  ,  
            81;
  
   PROMPT -  ;      LOGICAL*1;
            ,     ; -
               ,       PRINT;
              ,    
                   .
  
         .
  
        .
  
        LOGIKAL*1 INP(81), PROMP(5)
  
        DATA PROMP /'', '', '', '?', "200/
  
        . . .
  
        CALL GTLIN (INP,PROMP)
  
  
  
  
  
  
  
  
 
                             - 288 -
  
  
  
  
        8.4.2.  IASIGN
  
  
  
         IASIGN       
          
   ( ,   )   ,  
         -
   .         
   ICSI       -
      CSI.  IASIGN   
     , ..  ,     -
    (READ, WRITE, PRINT, TYPE, OPEN  ACCEPT),  
      ,  .
  
          :
  
           I=IASIGN (LUN,IDE[,IFILEX[,ISIZE[,ITYPE]]])
  
   
  
   LUN    -      INTEGER*2,    
            ,    -
            ,    ;
  
   IDEV   -   -       RADIX-50,  
                   -
               ICSI;
  
   IFILEX -  ,             
            RADIX-50;    ,    -
                       
             ICSI;
  
   ISIZE  -  (   256 )      
                  
            ;       -
              ICSI;      ,  
                   
              <UNUSED>    -
               <UNUSED>;  , -
             ,    -1,      
            <UNUSED>;
  
   ITYPE  -  ,   -
            ,  .
  
        ITYPE     ,  
    :
  
   1      -     ;
  
   2      -     ;
  
   4      -         
              / (    
                /    
             ; ,      
             ,      IENTER;  -
 
                             - 289 -
  
  
  
  
                LOOKUP);
  
   8      -     ;
  
   16     -      ;
  
   32     -    .
  
        :
        1.       -
            ,
              
          
   .          -
        -7    
     .
        2.        -
   ,             
      (OTS)  <LF>,    
   <CR>.
        3.     ,   OTS  -
           -
      ,     
      -      .
  
         :
  
        I= 0 -  ;
  
        I<>0 -     -
                      -
                    .
  
                  
    3,          
   .        
    4,      .    
            -
    ICSI (       
        CSI).
  
        .
  
        INTEGER*2 SPEC(39)
        REAL*4 EXT(2)
        DATA EXT/6RDATDAT,6RDATDAT/    !  -
    C                                      DAT
         . . .
     10 IF(ICSI(SPEC,EXT,,,0).NE.0) GOTO 10
    C
    C       
    C
        CALL IASIGN(3,SPEC(1),SPEC(2),SPEC(5),1)
        CALL IASIGN(4,SPEC(16),SPEC(17),0,32)
  
  
  
  
  
 
                             - 290 -
  
  
  
  
        8.4.3.  ICSI
  
  
  
         ICSI      
   (CSI)          
         .  
         -
              CLOSE,  ENTER  
   LOOKUP.     ,   -
     .
  
          ICSI          
      .      
    USR.
  
          :
  
           I=ICSI (OUTSPC,TYP[,CSTRING][,SWITCH],NUM)
  
   
  
   OUTSPC -   39 ,    
                RADIX-50;
  
   TYP    -     RADIX-50,    
            ;  ;
  
   CSTRING
          -     ,       
            ASCIZ,        
             CSI;      
            ;       ,    
                (*)     
                ;    -
                   ,
                      ,   
                ;
  
   SWITCH -    INTEGER*2   (4,NUM),
             NUM -  K,    -
            ;     ,  
            ,     NUM,    
            ;
  
   NUM    -  ;  ,    
             SWITCH.
  
         OUTSPC (39-   INTEGER*2),
   :
  
   1-4 
          -    1;
  
   5- 
          -    1;
  
  
  
 
                             - 291 -
  
  
  
  
   6-9 
          -    2;
  
   10- 
          -    2;
  
   11-14 A
          -    3;
  
   15- O
          -    3;
  
   16-19 A
          -    1;
  
   20-23 A
          -    2;
  
   24-27 A
          -    3;
  
   28-31 A
          -    4;
  
   32-35 A
          -    5;
  
   36-39 A
          -    6.
  
                -
        CSI   :
  
   TYPE(1)
          -        ;
  
   TYPE(2)
          -        1;
  
   TYPE(3)
          -        2;
  
   TYPE(4)
          -        3.
  
         SWITCH      J-  ,
     :
  
   SWITCH (1,J)
          -     -7;
  
   SWITCH (2,J)
          -   ICSI  0,   
                 CSI;   1,      
              ;  2,     -
            ;
  
  
  
 
                             - 292 -
  
  
  
  
   SWITCH(3,J)
          -     ,    
               ;   -
            -, ..   
              4;
  
   SWITCH(4,J)
          -   ,    
              CSI,  SWITCH(2,J)  ;
  
        :
        1.  SWITCH      -
    . ,     5      
     :
  
        INTEGER*2 SW(4,5)
        DATA SW(1,1)/'S'/,SW(1,2)/'M'/,SW(1,3)/'I'/
        DATA SW(1,4)/'L'/,SW(1,5)/'E'/
  
    -          
     (          
   ),         SWITCH
    ,       
    .
        2.   ICSI     
   ,      USR  .
  
             
         .CSISPC.
  
         :
  
        I=0 -  ;
  
        I=1 -   ;  
              ;
        I=2 -     
               ;
        I=3 -       
                  ,   
                 SWITCH.
  
            .    -
      ,       -
    .
  
        .
  
        INTEGER*2 SPEC(39)
        REAL*8 EXT
        DATA EXT/12RDATDATDATDAT/
         . . .
     10 TYPE 99
     99 FORMAT  ('   CSI  ')
        IF(ICSI(SPEC,EXT,,,0).NE. 0) GOTO 10
  
  
  
  
 
                             - 293 -
  
  
  
  
        8.5.   
  
  
  
  
  
        8.5.1.  CVTTIM
  
  
  
         CVTTIM   ,    
   2-  ,   ,  ,    
    .
  
          :
  
           CALL CVTTIM (TIME,HRS,MIN,SEC,TICK)
  
   
  
   TIME   - ,   2-   M,
             ;      
            2-   INTEGER*2,   -
              -   , 
            -   ;
  
   HRS    - ;  ;
  
   MIN    - ;  ;
  
   SEC    - ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            ).
  
         .
  
        .
  
        INTEGER*4 ITIME
         . . .
        CALL GTIM(ITIME)     !   
        CALL CVTTIM(ITIME,IHRS,IMIN,ISEC,ITCK)
        IF(IHRS.GE.12.AND.IHRS.LT.13) GOTO 100 ! 
  
  
  
        8.5.2.  GTIM
  
  
  
         GTIM        
    .   ,    
   ,           -
   ,   .       
    ,   ,  .   
          TIME, -
     ,  A   -
 
                             - 294 -
  
  
  
  
    ,     ,  
    .
  
          :
  
           CALL GTIM (ITIME)
  
   
  
   ITIME  -      .
  
                   ,
     -   .  CVTTIM  
     ,    ,  -
     2-    ,    ,  ,
       .  CVTTIM    ,
            (  50-  
   60-  ).   FB-   XM-
        00.00   24:00
     GTIM;   SJ-  -
     .
  
         .
  
        .
  
             INTEGER*4 JTIME
              . . .
             CALL GTIM(JTIME)
  
  
  
        8.5.3.  ICMKT
  
  
  
         ICMKT       -
      ,  -
    ISCHED, ITIMER    MRKT.    
   SJ-,   SJ-    -
      .
  
          :
  
           I=ICMKT (ID,TIME)
  
   
  
   ID     -  ,    -
            ;    0,    -
             ;
  
   TIME   -   ,       
             ,      
             ,     
            .
  
             
      .CMKT.
 
                             - 295 -
  
  
  
  
         :
  
        I=0 -  ;
        I=1 -  ()    0 
                  .
  
        .
  
        INTEGER*4 J
         . . .
        CALL ICMKT(0,J)    !  
    C                       
  
  
  
        8.5.4.  ISCHED
  
  
  
         ISCHED    -
           
       .   
    SJ-   .
  
          :
  
           I=ISCHED (HRS,MIN,SEC,TICK,AREA,ID,CRTN)
  
   
  
   HRS    - ;  ;
  
   MIN    - ;  ;
  
   SEC    - ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            );
  
   AREA   - 4- ,      ;
                    
             USR   ;      
                 
                   
               ;
  
   ID     -  () ;    
             ,    -
            ,   ;
  
   CRTN   -     ,   
                   ;    
                 EXTERNAL  -
            ,    ISCHED;    
              , :
  
                  SUBROUTINE ASUB (ID)
                  INTEGER ID
 
                             - 296 -
  
  
  
  
          ,      -
       ,        ID
     ISCHED.
  
        :
        1.     ISCHED    
        ICMKT.
        2.   ,    ,    
     ,    -
   .
        3.       -
      ,  ISCHED / ITIMER.
        4.  ISCHED   ,   
       IQSET.
  
         :
  
        I=0 -  ;
  
        I=1 -    , 
               .
  
        .
  
           INTEGER*2 LINK(4)   ! 
           EXTERNAL NOON       !  
            . . .
           I=ISCHED(12,0,0,0,LINK,0,NOON)  ! -
    C                                       NOON 
    C                                      12 
           . . .
           END
           SUBROUTINE NOON(ID)
    C
    C         , 
    C            
    C
           STOP  '  - 12 '
           END
  
  
  
        8.5.5.  ISLEEP
  
  
  
         ISLEEP      
       , ..     ,
   ,    ,      ISLEEP.
           -
    .      SJ-
      .
  
          :
  
           I=ISLEEP (HRS,MIN,SEC,TICK)
  
   
  
 
                             - 297 -
  
  
  
  
   HRS    - ;  ;
  
   MIN    - ;  ;
  
   SEC    - ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            ).
  
        :
        1.  ISLEEP   ,  -
        IQSET.
        2.   ,     -
        ,  .
  
         :
  
       I=0 -  ;
  
       I=1 -    .
  
        .
  
            CALL  IQSET (2)
             . . .
            CALL  ISLEEP (0,0,0,4)
  
  
  
        8.5.6.  ITIMER
  
  
  
         ITIMER     -
           
          .  
     SJ-,   
         .
  
          :
  
           I=ITIMER (HRS,MIN,SEC,TICK,AREA,ID,CRTN)
  
   
  
   HRS    - ;  ;
  
   MIN    - ;  ;
  
   SEC    - ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            );
  
   AREA   - 4-    ;  
                   -
                  USR;      
 
                             - 298 -
  
  
  
  
                
               ;
  
   ID     -  () ;  -
             ,   ;  -
             ;
  
   CRTN   -          -
                   ;
                     EXTERNAL
            ,      ITIMER;  
                    ,
            :
  
                  SUBROUTINE PROGR (ID)
                  INTEGER ID
  
               
      ,    ID
     ITIMER.
  
        :
        1.    ITIMER  -
          ICMKT.
        2.    ,      
   ,          
       .
        3.          
     ,  ISCHED  ITIMER.
        4.  ITIMER   ,   
       IQSET.
  
               -
     .MRKT (. . 7.5.4).
  
         :
  
        I=0 -  ;
  
        I=1 -    , 
               .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 299 -
  
  
  
  
        .
  
          INTEGER*2 AREA(4)
          EXTERNAL WATCHD
    C
    C    
    C      ICMKT  12 
    C      ITIMER,  
    C      WATCHD  
    C   ID,  3
    C
          CALL ITIMER(0,12,0,0,R,3,WATCHD)
          . . .
          CALL ICMKT(3,AREA)
          . . .
          END
          SUBROUTINE WATCHD(ID)
    C
    C       12 
    C
          . . .
          RETURN
          END
  
  
  
  
  
        8.5.7.  ITWAIT (FB, XM)
  
  
  
         ITWAIT      
        .    -
      .
  
          :
  
           I=ITWAIT (ITIME)
  
   
  
   ITIME  -    ,          
            2-  :   - -
               ,   - 
              .
  
        :
        1.  ITWAIT   ,   
       IQSET.
        2.    ,      
   ,     ,    
    .
  
         :
  
        I=0 -  ;
  
        I=1 -    .
 
                             - 300 -
  
  
  
  
        .
  
          INTEGER*2 TIME(2)
          . . .
          CALL ITWAIT(TIME)    !    
    C                           TIME
  
  
  
        8.5.8.  IUNTIL (FB, XM)
  
  
  
         IUNTIL      
        .   -
      .
  
          :
  
           I=IUNTIL (HRS,MIN,SEC,TICK)
  
   
  
  
  
  
  
            ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            ).
  
        :
        1.  IUNTIL   ,   
       IQSET.
        2.   ,    ,
      ,     
   .
  
         :
  
        I=0 -  ;
  
        I=1 -    .
  
        .
  
    C      
          CALL IUNTIL(13,0,0,0)   !    
  
  
  
  
  
  
  
  
  
 
                             - 301 -
  
  
  
  
        8.5.9.  JTIME
  
  
  
         JTIME     -
   ,    .
  
          :
  
           CALL JTIME (HRS,MIN,SEC,TICK,TIME)
  
   
  
   HRS    - ;  ;
  
   MIN    - ;  ;
  
   SEC    - ;  ;
  
   TICK   -   (1/60   60-  -
             ; 1/50    50-  
            );
  
   TIME   - 2- ,     -
               :   - 
               ,      -  
            .
  
         .
  
        .
  
          INTEGER*4 J1
    C
    C    3 , 7 , 23  
    C      INTEGER*4
    C
          CALL JTIME(3,7,23,0,J1)
          CALL JJCVT(J1)
  
  
  
        8.5.10.  MRKT
  
  
  
         MRKT      -
    ,     ,  
     .       
   SJ-    .
  
          :
  
           I=MRKT (ID,CRTN,TIME)
  
   
  
   ID     -  ( ),   
              ;
 
                             - 302 -
  
  
  
  
   CRTN   -        ,
                  -
             ;      -
             EXTERNAL     , -
             MRKT;
  
   TIME   -  ,   2-  -
             ;     -
              ;     
            2-   INTEGER*2,   -
             -    ,  -
             -    .
  
        :
        1.  MRKT   ,  -
        IQSET.
        2.   ,   , 
             ,
      .
  
                
       .MRKT.
  
         :
  
        I=0 -  ;
  
        I=1 -    , 
                .
  
        .
  
        INTEGER*2 TINT(2)
        EXTERNAL ARTN
         . . .
        CALL MRKT(4,ARTN,TINT)
  
  
  
        8.5.11.  SECNDS
  
  
  
         SECNDS        
   ,       ,    
   .  SECNDS       
     .           
   REAL*4.
  
          :
  
           A=SECNDS (ATIME)
  
   
  
   ATIME  -   REAL*4 (   ),
                    
            .
  
 
                             - 303 -
  
  
  
  
        .      -
      .     -
   ,   GTIM     
   INTEGER*4.
  
         :
  
       =NNNNNN -   REAL*4.
  
        .
  
          T1=SECNDS(0.)
    C
    C     ,   
    C     
    C
          DELTA=SECNDS(T1) !DELTA =    
  
  
  
  
        8.5.12.  TIMASC
  
  
  
         TIMASC   ,    
   2-         
    8-   -7   :
  
                ::
  
       -   ;
          -   ;
          -   .
  
          :
  
           CALL TIMASC (ITIME,STRING)
  
   
  
   ITIME  - ,   2-   ,
                ;    
             "ITIME"     -
            ,   -  ;
  
   STRING - 8- ,    -7.
  
         .
  
               17.00  
    .
  
        .
  
        INTEGER*4 J1,J2,J3
        LOGICAL*1 STRNG(8)
         . . .
        CALL JTIME(17,0,0,0,J1)
 
                             - 304 -
  
  
  
  
        CALL GTIM(J2)
        CALL JJCVT(J1)
        CALL JJCVT(J2)
        CALL JSUB(J1,J2,J3)
        CALL JJCVT(J3)
        CALL TIMASC(J3,STRNG)
        TYPE 99,STRNG
    99  FORMAT('  ',8A1,'  17.00 ')
  
  
  
        8.5.13.  TIME
  
  
  
         TIME    
      8-   -7  :
  
                 ::
  
   
         - 2-  ;
         - 2-  ;
         - 2-  .
  
          :
  
           CALL TIME (STRING)
  
   
  
   STRING - 8- ,    -7.
  
  
        .   24-  .  ,
       13:00:00.
  
         .
  
        .
  
          LOGICAL*1 STRNG(8)
          . . .
          CALL TIME(STRNG)
          TYPE 99,(STRNG(I),I=1,8)
    99    FORMAT(' : ',8A1)
  
  
  
        8.6.   
  
  
  
  
  
  
  
  
  
 
                             - 305 -
  
  
  
  
        8.6.1.  CHAIN
  
  
  
         CHAIN      (
     SJ/TS-)    -
   ,      . -
    CHAIN         
     .    -
            .
          -
   .
  
         CHAIN   -  
      .    
    CHAIN     -
        O    CLOSE.
   ,      -
     USEREX,   ,   
    CHAIN.
  
          :
  
           CALL CHAIN (DBLK,VAR,WCNT)
  
   
  
   DBLK   - 4-     
             RADIX-50;
  
   VAR    -      
                 -
             ,     -
                 
             (  510 - 777);  
                -
                   COMMON  (
              COMMON)     -
              (  ).
  
   WCNT   -   (  60),   
            (   ),   
              ;    
            ,      .
  
            ,   
    CHAIN       -
   , ,      
   /B   CSI    LINK    /BOTTOM  
     LINK   ,   
   CHAIN,    ,  .
  
               
     RCHAIN.
  
              -
    .CHAIN (. . 7.6.1).
  
         .
 
                             - 306 -
  
  
  
  
                 
   PROG.SAV,    RK1,      
     .
  
        .
  
          REAL*4 PROGNM(2)         !  RADIX-50
    C                                
          COMMON /BLK1/ A,B,C,D    ! 
          DATA PROGNM/6RRK1PRO,6RG  SAV/
          . . .
          CALL CHAIN(PROGNM,A,8)   ! RK1:PROG.SAV
    C                                  
  
  
  
        8.6.2.  DEVICE (FB, XM)
  
  
  
         DEVICE    -
     ,      -
           .    
        <CTRL/C>, 
    ,     
              
   .
  
             -
         
    .  ,    
    ,        
     ,  .
  
                 
      ,    
     DEVICE,    -
     ,    .  -
     DEVICE     -
   .          
     USR.
  
           (LINK)    
     .  LINK    -
   .   ,      -
      .
  
          :
  
           CALL DEVICE (ILIST[,LINK])
  
   
  
   ILIST  -     ,      ,
              "/" (..  
             -       -  ,  
                 ),   -
              ;     
                    
 
                             - 307 -
  
  
  
  
             ;
  
   LINK   -  ,    -
            ; ,     
            ;      -
            , O        
             .
  
                   
             .DEVICE
   (. . 7.6.7).
  
         .
  
        .
  
        INTEGER*2 IUSO(3)     !  
        DATA IUSO(1)/"167770/ !  
        DATA IUSO(2)/0/       ! 
        DATA IUSO(3)/0/       ! 
        CALL DEVICE (IUSO)
  
  
  
  
        8.6.3.  GTJB/IGTJB
  
  
  
          GTJB       
       .
  
           GTJB:
  
           CALL GTJB (ADDR[,JOBBLK[,I]])
         
           I = GTJB (ADDR[,JOBBLK])
  
           IGTJB:
  
           CALL IGTJB (ADDR[,JOBBLK[,I]])
         
           I = IGTJB (ADDR[,JOBBLK])
  
   
  
   ADDR   -   8  12 ,   -
              ;
  
   JOBBLK -         -7,  
                ;  -
                    ,  
               ;
  
   I      -   ,        
              .
  
        ADDR,      INTEGER*2, 
     :
 
                             - 308 -
  
  
  
  
   1- 
          -   =    *2  (0-
            ,   2-          FB-    
            XM-; 0- , 2, 4, 6, 10,  12,
            14-  ,    -16  
                    ;   
            SJ-   - 0);
  
   2- 
          -         (
              2);
  
   3- 
          -     (  
            );
  
   4- 
          -      /;
  
   5- 
          -               FB-   
            XM-;  SJ-  ;
  
   6- 
          -  :  ,  
              (   
            );   SJ-    -
             ;
  
   7- 
          -     , 
               /V  ( 
            XM-);   SJ-   FB-,    
             /V   ;
  
   8-9 
          -    .
  
   10-12 
          -     -7 (  -
               ).
  
          A     -
     .GTJB (. . 7.6.12).
  
               ,   
            
    . :
  
           INTEGER IJPARM (8)
           CALL GTJB (IJPARM)
           I = IGTJB (IJPARM)
  
        12    
             .
   :
  
           INTEGER IJPARM (12)
           CALL GTJB (IJPARM,)
 
                             - 309 -
  
  
  
  
           I = IGTJB (IJPARM,)
  
        :
  
           I=0  -    ;
  
           I=-1 -    
                    .
  
        .
  
    C      
    C         
    C    
    C
           DIMENSION JPAR(12)
             . . .
           IF (IGTJB(JAR, 'F').NE.0) STOP
         *  '    '
  
  
  
        8.6.4.  IDSTAT
  
  
  
         IDSTAT      
    .  IDSTAT     USR    
           
   .
  
          :
  
           I=IDSTAT (DEVNAM,CBLK)
  
   
  
   DEVNAM -    RADIX-50;
  
   CBLK   - 4- ,     -
            .
  
             INTEGER*2,  -
    :
  
   1- 
          -   ;
  
   2- 
          -   ();
  
   3- 
          -    (    
             ,      -
             );
  
   4- 
          -   (   256 )   -
               ;   -
 
                             - 310 -
  
  
  
  
                      
            .
  
  
        .   IDSTAT  -
      ,         
   USR.
  
         IDSTAT      -
       ,   ,   
     .
  
         :
  
        I=0 -  ;
  
        I=1 -      .
  
           ,   -
        .    ,  
          ,  
       .
  
        .
  
          INTEGER*2 CBLK(4)
          DATA IDNAM /3RLP /
          DATA CBLK /4*0/
          CALL IDSTAT(IDNAM,CBLK)
          IF(CBLK(3).EQ.0) STOP'  LP:  '
        * '  '
  
  
  
        8.6.5.  IFETCH
  
  
  
         IFETCH         
       ,  
          /.  
       ,   -
     .   ,    
      ,    ,   
        .  IFETCH
            
   , ..    USR.
  
          :
  
           I=IFETCH (DEVNAM)
  
   
  
   DEVNAM -     RADIX-50,  -
              ;        
                  -
            ,     ICSI;    
                 ,      
 
                             - 311 -
  
  
  
  
                USR.
  
               
       .FETCH.
  
         :
  
        I=0 -  ;
  
        I=1 -    ;
        I=2 -        
              ;
        I=3 -        
               .
  
                    RK.
     ,       
    .
  
        .
  
          REAL*4 IDNAM
          DATA IDNAM /3RRK /
          . . .
          IF(IFETCH(IDNAM).NE.0) STOP  ! 
    C                                     
  
  
  
        8.6.6.  IQSET
  
  
  
         IQSET       -
     .     -
     ,        .
    IQSET        
     .
  
          :
  
           I=IQSET (QLENG[,AREA])
  
   
  
   QLENG  -  (E) ,   
             ;       -
              ,      USR
             ;
  
   AREA   - ,      ;   
               SJ-  FB-  -
             ,           
              USR;     
             ,       
              .
  
           /      -
       . 
 
                             - 312 -
  
  
  
  
     -         
    ,    ,      
   /,      ,    
      .    FB-  
   XM-  ,     
     .   IQSET  -
      ,     -
      FRUN,       -
    .
  
           :  -
            
     /    ,  
     .    -
    ,   ITWAIT  MRKT,   -
    ,      -
      .   ,    
    /  (..      IREADW,
   IWRITW  ..),       -
   ,       -
   .     -
      .
  
          ,     -
    :
  
           IRCVD/IRCVDC/IRCVDF/IRCVDW
           IREAD/IREADC/IREADF/IREADW
           ISCHED
           ISDAT/ISDATC/ISDATF/ISDATW
           ISLEEP
           ISPFM/ISPFNC/ISPFNF/ISPFNW
           ITIMER
           ITWAIT
           IUNTIL
           IWRITE/IWRITC/IWRITF/IWRITW
           MRKT
           MWAIT
  
            
      .QSET (. . 7.6.22).
  
         :
  
        I=0 -  ;
  
        I=1 -      
                ; -
                 .
  
        .
  
         IF(IQSET(5).NE.0) STOP      !  
   C                                   
  
  
  
  
  
 
                             - 313 -
  
  
  
  
        8.6.7.  ITLOCK (FB, XM)
  
  
  
         ITLOCK   ,  -
     USR  .    LOCK 
   , ,  USR    , USR -
           .  ,  
    LOCK,          
    USR,            ,
         ,  
   USR  .      ITLOCK,    USR
     ,   -
      ,     
     .  ITLOCK    -
       .   -
          ITLOCK  
         .TLOCK   (.   
   7.6.18.2).
  
          :
  
           I=ITLOCK ()
  
         :
  
        I=0 -  ;
  
        I=1 - USR   .
  
        .
  
          IF (ITLOCK().NE.0) GOTO 10 !   100,
    C                                  USR 
  
  
  
        8.6.8.  LOCK
  
  
  
         LOCK   ,    
   USR          
    ,       
     .  USR      
   ,      
      .
  
            ,    ,  
             
   SWAP.SYS  USR    .    
    USR    ,     .
   USR      ,        
    UNLOCK (,   FB-    CSI
      UNLOCK).    -
      USR,      USR
   ,    ,    
    ,    ,      
   USR,    USR  UNLOCK.
 
                             - 314 -
  
  
  
  
          FB-  XM-    LOCK
       USR.   ,
   USR         
   .
  
  
        .       LOCK,
   USR       
    . USR  -     -
       .    ,
    USR  ,      ,    
    .        ,
        , 
    -     / .
  
        USR,        
     ,   . -
           
     ,      -
     .       -
    . FB-  XM-  
    ITLOCK,       
      USR.  ,      LOCK
        , 
    USR.  USR ,TO      LOCK  
    /. USR    XM-.
  
          :
  
           CALL LOCK
  
           LOCK    -
        USR      
   UNLOCK.         
      . ..       
     LOCK,  O   
       UNLOCK.    USR
     .    UNLOCK    
   ,  UNLOCK .
  
        :
        1. ,   LOCK    ,  
      USR.    ,    
   USR        -
   ,     USR,  ..  LOCK    
      ,      -
       USR.  ,  -
         ,    
   ,    ,  USR  
      LOCK.
        2.   LOCK ,  -
     ,    USR,     -
   ,      USR. 
        UNLOCK  -
     .
        3.  LOCK      
      .
        4.     "SET USR  NOSWAP"  (..
     USR),   LOCK    UNLOCK  
 
                             - 315 -
  
  
  
  
     ,  LOCK   -
      USR,  UNLOCK -    
   USR.
        5.    USR    ,
         ,    -
      .
  
         .
  
        .
  
           INTEGER*2 DBLK(4)
           DATA DBLK/3RDK1,3RDT1,3RFIL,3RF41/
  
            . . .
  
           CALL LOCK    !  USR  
           ICHN=GETC( ) !  
           IF (LOOKUP(ICHN,DBLK).LT.0)
         *  STOP ' ?LOOKUP   '
           CALL UNLOCK  !  USR
  
  
  
  
        8.6.9.  RCHAIN
  
  
  
         RCHAIN     -
   ,        -
    CHAIN        ,
             .  
     RCHAIN,     
          .
  
          :
  
           CALL RCHAIN (FLAG,VAR,WCNT)
  
   
  
   FLAG   -  ,       -1,
                CHAIN,    -
             -  ;
  
   VAR    -      
             A   ,  
              ,    
            ;
  
   WCNT   -  ,     ,  
              VAR;    RCHAIN  
              (WCNT)       
            (VAR).
  
         .
  
        .
 
                             - 316 -
  
  
  
  
          INTEGER*2 PARMS(50)
          CALL RCHAIN(IFLAG,PARMS,50)
          IF(IFLAG) GOTO 10   !   10, 
    C                             
  
  
  
        8.6.10.  RCTRLO
  
  
  
           RCTRLO          
   <CTRL/O>,        -
   .    RCTRLO     -
        ,       
       <CTRL/O>.
  
          :
  
           CALL RCTRLO
  
         .
  
        .
  
        CALL RCTRLO
        CALL PRINT('   ')
  
  
  
        8.6.11.  RESUME (FB, XM)
  
  
  
             
    .   RESUME      
        ,  -
      (  /   -
      ).
  
          :
  
           CALL RESUME
  
         .
  
        .
  
        SUBROUTINE RDFIN(IARG1,IARG2)
        COMMON/RDBLK/IBUF(256)
         . . .
        CALL RESUME !   
        END
  
  
  
  
  
  
 
                             - 317 -
  
  
  
  
        8.6.12.  SCCA
  
  
  
         SCCA        
     <CTRL/C>;    -
        <CTRL/C>.
  
          :
  
           CALL SCCA [(IFLAG)]
  
   
  
   IFLAG  -    ,    
               INTEGER*2 (   LOGICAL*1);  
                 , 
              ,    
            <CTRL/C>.
  
           SCCA     -
    <CTRL/C>,    <CTRL/C>,   
      .     ,    
   ( "003)       -
   .          <CTRL/C>,
     IFLAG    .  ,  
     ,      
     .
  
          SCCA     
     <CTRL/C>,        
   .
  
             <CTRL/C>,  
      ,      
    SCCA.
  
         .
  
             
    SCCA.
  
        .
  
          PROGRAM SCCA
          CALL PRINT('  ,  ')
          IFLAG=0
          CALL SCCA(IFLAG)
       10 I=ITTINR()       ! 
          IF (I.NE.3) GOTO 10
    C        <CTRL/C>
          CALL PRINT('   <CTRL/C> ')
          IF(IFLAG.EQ.0) GOTO 10
          CALL PRINT('  <CTRL/C>   ')
          TYPE 19,IFLAG
       19 FORMAT (' IFLAG = ',6,/)
          CALL SCCA   !  <CTRL/C>
          CALL PRINT ('   <CTRL/C>   ')
       20 GOTO 20      !,   
 
                             - 318 -
  
  
  
  
    C                    <CTRL/C>
          END
  
  
  
        8.6.13.  SETCMD
  
  
  
         SETCMD    -
     (KMON)  ,  -
       .    
       CHAIN  (500-777,  -
   )  ,    512 ().  -
     ,     
   . ,          
         
     .     
    ,      ,
       .
  
             SETCMD,    
    KMON :
  
           REENTER
           START
           CLOSE
  
          :
  
           CALL SETCMD (STRING)
  
   
  
   STRING -          
             ASCIZ,    <CR>  <LF>.
  
           SETCMD   -
          STOP,    
    EXIT.
  
         .
  
        .
  
         LOGICAL*1 INPUT(134),PROMPT(8)
         DATA PROMPT/'C','O','M','A','N','D','>',"200/
         CALL GTLIN(INPUT,PROMPT)
         CALL SETCMD(INPUT)
         END
  
  
  
  
  
  
  
  
  
 
                             - 319 -
  
  
  
  
        8.6.14.  SUSPND (FB, XM)
  
  
  
         SUSPND   -
          -
        /   -
     .
  
          :
  
           CALL SUSPND
  
        :
        1.       .
        SUSPND    -
     RESUME.     -
   ,    .  ,
     RESUME    SUSPND,
    ,  ,  .
        2.        
     SUSPND  RESUME.
        3.  SUSPND      
    ,      -
     .          
   SUSPND,       
   ,       SUSPND.        
    ,    -
       RESUME.
        4.    SUSPND   RESUME  
      ITWAIT  ,  -
    RESUME,      -
        ,  
        ITWAIT, ,  
         .
  
               
      .SPND (.  7.6.30.1).
  
         .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 320 -
  
  
  
  
        .
  
              INTEGER IAREA(4)
              COMMON /RDBLK/ IBUF(256)
              EXTERNAL RDFIN
               . . .
              IF(IREADF(256,IBUF,IBLK,ICHAN,IAREA,RDFIN)
             1         .NE.0) GOTO 1000
        C
        C            1000
        C
        C         
               . . .
              CALL SUSPND   !   /
        C                    
               . . .
              END
              SUBROUTINE RDFIN (IARG1,IARG2)
              COMMON /RDBLX/ IBUF(256)
               . . .
              CALL RESUME   !  
        C                    
               . . .
              END
  
  
  
        8.6.15.  UNLOCK
  
  
  
         UNLOCK   USR,   
     LOCK   USR,  -
       .  LOCK  
    ,  UNLOCK    -
     .     LOCK   -
   ,  UNLOCK      /.
   USR    XM-.
  
          :
  
           CALL UNLOCK
  
        :
        1. ,   UNLOCK    ,
     LOCK.    LOCK    ,  
    UNLOCK,  USR      
         .      UNLOCK
   ,   ,    UNLOCK
   .
        2.       FB-          ,
   LOCK/UNLOCK       .  
      USR,         
    USR   UNLOCK  .
        3.  FB-  CSI (ICSI)    
        UNLOCK.
  
            USR    -
    .LOCK/.UNLOCK (. . 7.6.18).
 
                             - 321 -
  
  
  
  
         .
  
        .
  
        C          USR
              CALL LOCK     ! 
        C       USR
               . . .
              CALL UNLOCK   ! USR
  
  
  
        8.7.  
  
  
  
  
  
        8.7.1.  IADDR
  
  
  
         IADDR  16-  
        .
  
          :
  
           I=IADDR (ARG)
  
   
  
   ARG    -  (  ),  -
                ;    ,
             ARG  , .
  
          IADDR        
              
   .
  
         :
  
       I -   .
  
        .
  
        EXTERNAL CAREA
        J=IADDR (CAREA)
  
  
  
        8.7.2.  IGETSP
  
  
  
         IGETSP      
   OTS       ( )  -
    ,   .  
           -
   ,    ,   ..
 
                             - 322 -
  
  
  
  
          :
  
           I=IGETSP (MIN,MAX,ADDR)
  
   
  
   MIN    -  ,   ;
  
   MAX    -  ,   ;
  
   ADDR   -  ()        ();
            ADDR     ,
                    ;  
             ,    ;
                    IPEEK  
            IPOKE     .
  
         :
  
        I=-1 -     ;   
                     
                  ;
                    -
                  ;
        I=N  - '   ; 
                  [MIN, MAX];
                (MIN,MAX,N)   .
  
  
        .     -
      ,   -
       . ,  
      IGETSP,     
       . 
     ,      
   ,     (  29,30,42
    ..),     .
  
        .
  
       N=IGETSP(256,256,IBUFF)      !    
       IF (N.LT.0) STOP ' '!    
  
  
  
        8.7.3.  INTSET
  
  
  
         INTSET '    
     ,   -
          .    INTSET
   ,       -
    ,    .
  
          :
  
           I=INTSET (VECT,PRI,ID,CRTN)
  
 
                             - 323 -
  
  
  
  
   
  
   VECT   -  ()   ,    
              CRTN.
  
   PRI    -   (  4  7),    
               ;
  
   ID     -   ;  ,     
                 
             ,     ;  
                   
             INTSET;
  
   CRTN   -     ,   
               ; 
                   
            EXTERNAL      ,  
               INTSET;    
               , :
  
                    SUBROUTINE NAME (ID)
                    INTEGER ID
  
             ,
        ,  
      ID     
   INTSET.
  
        :
        1.  ID     
   ,      ,  
       .
        2.    INTSET      
    FB-  XM-     DEVICE
             -
   ,         ,
   '  INTSET,   .
        3.     (
   CRTN)      ,      
       ,      
     , ,     
     .     -
    :
  
           ?SYSLIB-FATAL INTERRUPT OVERRUN
  
      . ,  
      ,   -
   ,    , -   -
           
     .
        4.         (
   CRTN)            
           
     .SYNCH.    PRI  
     .INTEN.
        5.  VECT      
   .PROTECT,     ,    -
 
                             - 324 -
  
  
  
  
           -
   .           
   .PROTECT.
        6.         (
   CRTN)       USR.
        7.  INTSET       
      .
        8.       
      ,      
   INTSET.
  
         :
  
        I=0 -  ;
  
        I=1 -   ;
        I=2 - ;
        I=3 -     
              .
  
        .
  
        EXTERNAL CLKSUB     !  
         . . .
        I=INTSET ("104,6,0,CLKSUB) ! 
        IF(I.NE.0)GOTO 100  !   
         . . .
        END
        SUBROUTINE CLKSUB(IP)
         . . .
        END
  
  
  
        8.7.4.  IPEEK
  
  
  
         IPEEK   , -
       16-    .
             
     -  .
  
          :
  
           I=IPEEK (ADDR)
  
   
  
   ADDR   -   ()  ;  
                    ,  
             .
  
         :
  
       I -  ,   ADDR.
  
        .
  
 
                             - 325 -
  
  
  
  
        ISWIT=IPEEK("177570)  ! .
  
  
  
        8.7.5.  IPEEKB
  
  
  
         IPEEKB    ,  -
        .  
       ,      
    .      
        .  
      ,      
         .
  
          :
  
           I=IPEEKB (ADDR)
  
   
  
   ADDR   -    ()    ;  
               IPEEK  IPEEKB  
             .
  
         :
  
       I -  ,   ADDR.
  
        .
  
        IERR=IPEEKB ("52)  !  
  
  
  
        8.7.6.  IPOKE
  
  
  
         IPOKE  16-  -
         .    
       .
  
          :
  
           CALL IPOKE (ADDR,IVALUE)
  
   
  
   ADDR   -     ()    
            ;      -
            ,   ;
  
   IVALUE - ,     .
  
         .
  
            IVAL    
 
                             - 326 -
  
  
  
  
   .
  
        .
  
           CALL IPOKE ("17740,IVAL)
  
         ,   12  ,  -
     ,  1,      -
      ,    
   :
  
           CALL IPOKE ("44,"10000.R.IPEEK("44))
  
  
  
        8.7.7.  IPOKEB
  
  
  
         IPOKEB   -
       .   -
      ,     .
           -
     .
  
          :
  
           CALL IPOKEB (ADDR,VALUE)
  
   
  
   ADDR   -   () ,   -
            ;       IPOKE,  
            IPOKEB   ;
  
   VALUE  -  ,     ,
              ADDR.
  
         .
  
        .
  
       CALL IPOKEB ("53,"20)    !  KMON 
                                ! .
  
  
  
        8.7.8.  ISPY
  
  
  
         ISPY      - -
    ,        
   RMON.        .GVAL
   (. . 7.6.13)   ,    -
        .
  
          :
  
 
                             - 327 -
  
  
  
  
           I=ISPY (IOFF)
  
   
  
   IOFF   -      RMON   -
            ,   O.
  
         :
  
       I -  ,    IOFF 
            RMON.
  
        .
  
    C     200,    
    C   FB-
    C
         IF(ISPY ("300.AND.1) GOTO 200
    C
    C  ,    300 (8)
    C      RMON,
    C     
  
  
  
        8.8.   
  
  
  
  
  
        8.8.1.  IRCVD/IRCVDC/IRCVDF/IRCVDW (FB,
               XM)
  
  
  
        IRCVD/IRCVDC/IRCVDF/IRCVDW  -       
    .       
   ISDAT ( )       -
   .      ,    
       IQSET.
  
  
  
        8.8.1.1.  IRCVD
  
  
  
         IRCVD      
           -
   ,  .    -
      ,  ,  ,
         MWAIT.    
       ,      -
   .
  
          :
  
  
 
                             - 328 -
  
  
  
  
           I=IRCVD (BUF,WCNT)
  
   
  
   BUF    - ,       -
             ;          
               ,    -
                      
            IRCVD     ;
  
   WCNT   -    ,    
            .
  
         :
  
        I=0 -  ;
  
        I=1 -     .
  
        .
  
        INTEGER*2 MSG (41)
         . . .
        CALL IRCVD (MSG,40)
         . . .
        CALL MWAIT
  
  
  
        8.8.1.2.  IRCVDC
  
  
  
         IRCVDC     
           -
   ,  .       
      ,   
   .    
     ,  .
  
          :
  
           I=IRCVDC (BUF,WCNT,CRTN)
  
   
  
   BUF    - ,     
            ;        
               ,    
                   IRCVDC
               ;
  
   WCNT   -    ,    
            ;
  
   CRTN   -   ,  
             ;    -
               FORTRAN EXTERNAL  ,
               IRCVDC.
 
                             - 329 -
  
  
  
  
         :
  
       I=0 -  ;
  
       I=1 -     .
  
  
  
        8.8.1.3.  IRCVDF
  
  
  
         IRCVDF     
       ;      
       , -
     .     -
       .    
    ,     -
      .
  
          :
  
           I=IRCVDF (BUF,WCNT,AREA,CRTN)
  
   
  
   BUF    - ,     
            ;          
               ,    -
                     
                IRCVDF;
  
   WCNT   -    ,    
            ;
  
   AREA   -    ,   -
               ;       
              -     
                   -
               USR;       
                  
               ,    
                     
             ;
  
   CRTN   -      -
            ,       -
             EXTERNAL ,  IRCVDF.
  
         :
  
        I=0 -  ;
  
        I=1 -     .
  
        .
  
        INTEGER*2 MSG (41),AREAL(4)
        EXTERNAL RMSGRT
 
                             - 330 -
  
  
  
  
         . . .
        CALL IRCVDF (MSG,40,AREAL,RMSGRT)
  
  
  
        8.8.1.4.  IRCVDW
  
  
  
         IRCVDW     
       ;   -
       , ..  
     .    
      .
  
          :
  
           I=IRCVDW (BUF,WCNT)
  
   
  
   BUF    - ,             
            MAE ;         
                ,   
                  
               IRCVDW;
  
   WCNT   -    ,    
            .
  
         :
  
       I=0 -  ;
  
       I=1 -     .
  
        .
  
       INTEGER*2 MSG (41)
       IF(IRCVDW(MSG,40).NE.0)STOP ' '
  
  
  
        8.8.2.       ISDAT/ISDATC/ISDATF/ISDATW
               (FB/XM).
  
  
  
                      
   IRCVD/IRCVDC/IRCVDF  IRCVDW  ,    
            FB-
    XM-. . , O ,    
            ,
         .   -
      ,        
     IQSET.
  
  
  
 
                             - 331 -
  
  
  
  
        8.8.2.1.  ISDAT
  
  
  
         ISDAT       -
          -
      .   
      MWAIT.
  
          :
  
           I=ISDAT (BUF,WCNT)
  
   
  
   BUF    - ,    ,     
            ;
  
   WCNT   -   ,   .
  
         :
  
        I=0 -  ;
  
        I=1 -       
              .
  
        .
  
          INTEGER*2 MSG (40)
           . . .
          CALL ISDAT (MSG,40)
           . . .
          CALL MWAIT
    C       
  
  
  
        8.8.2.2.  ISDATC
  
  
  
         ISDATC      -
          
     .         
            ,
     .     -
        ,    -
        
       .
  
          :
  
           I=ISDATC (BUF,WCNT,CRTN)
  
   
  
   BUF    - ,    ,     
            ;
 
                             - 332 -
  
  
  
  
   WCNT   -   ,   ;
  
   CRTN   -       -
            ,     
            ;        
            EXTERNAL ,  ISDATC.
  
         :
  
        I=0 -  ;
  
        I=1 -       
              .
  
        .
  
        INTEGER*2 MSG(40)
        EXTERNAL  RTN
         . . .
        CALL ISDATC (MSG,40,RTN)
  
  
  
        8.8.2.3.  ISDATF
  
  
  
         ISDATF      
     .    -
      ,       -
     ,    . KO
             
    ,          
        -
   .
  
          :
  
           I=ISDATF (BUF,WCNT,AREA,CRTN)
  
   
  
   BUF    - ,    ;
  
   WCNT   -   ,   ;
  
   AREA   -       .  
                   
                  USR;  
                     
                     
             ;
  
   CRTN   -  ,        ,
                ; 
                 EXTERNAL  -
            ,  ISDATF.
  
         :
 
                             - 333 -
  
  
  
  
        I=0 -  ;
  
        I=1 -       
              .
  
        .
  
        INTEGER*2 MSG(40),SPOT(4)
        EXTERNAL RTN
         . . .
        CALL ISDATF(MSG,40,SPOT,RTN)
  
  
  
        8.8.2.4.  ISDATW
  
  
  
         ISDATW      
     .    -
     ,        -
      .
  
          :
  
           I=ISDATW (BUF,WCNT)
  
   
  
   BUF    - ,    ,     
            ;
  
   WCNT   -   ,   .
  
         :
  
        I=0 -  ;
  
        I=1 -       
              .
  
        .
  
        INTEGER*2 MSG(40)
         . . .
        IF(ISDATW(MSG.40).NE.0) STOP'  '
  
  
  
        8.8.3.  MWAIT (FB, XM)
  
  
  
          MWAIT       
       ,     
       ,      .  
      .    MWAIT
      IRCVD  ISDAT.   MWAIT
       ,        
 
                             - 334 -
  
  
  
  
     IQSET.
  
          :
  
           CALL MWAIT
  
        : .
  
             ISDAT (. 
   8.8.2.1).
  
  
  
        8.9.    
  
  
  
            
      .   -
       ,    -
         .
  
  
  
        8.9.1.  MTATCH
  
  
  
         MTATCH    -
     ,     .  
          MTDTCH  
              .
             ,
              
      .
  
          :
  
           I=MTATCH (UNIT[,ADDR][,JOBN])
  
   
  
   UNIT   -   ;
  
   ADDR   -   -   
             ;    -
              ,       
            ,   ; :
  
           I=MTATCH (IUN,,JNUM)
  
   JOBN   -      ,    
              ( INTEGER*2)   
             .
  
         :
  
        I=0 -  ;
  
 
                             - 335 -
  
  
  
  
        I=3 -    ;
        I=5 -     ;
                    JOBN;
        I=6 -  XM-   
                  -
                 .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.2.  MTDTCH
  
  
  
         MTDTCH      
    MTATCH.       
      ,       
    .
  
          :
  
           I=MTDTCH (UNIT)
  
   
  
   UNIT   -    .
  
         :
  
        I=0 -  ;
  
        I=2 -  ;   ;
        I=3 -    .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.3.  MTGET
  
  
  
         MTGET      -
       .
  
          :
  
           I=MTGET (UNIT,ADDR[,JOBN])
  
   
  
   UNIT   -  ()   ,  -
             ;
  
   ADDR   - 4-     -
            ;     
              INTEGER*2;  ,   
                  .MTSET
 
                             - 336 -
  
  
  
  
            (.  8.9.8);
  
   JOBN   -  ,   ,   -
               .
  
          ,     
           -
   ,       .MTGET  (.
    7.8.7.2).
  
         :
  
        I=0 -  ;
  
        I=2 -     ;
        I=3 -    ;
        I=4 -    
              (      JOBN);
        I=6 -  XM-    
                 
                .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.4.  MTIN
  
  
  
         MTIN       
    .     -
        ITTINR.
     ,      -
        .   - 
     ,   .
  
          :
  
           I=MTIN (UNIT,CHAR[,CHRCNT][,OCNT])
  
   
  
   UNIT   -  ;
  
   CHAR   -  (),      -
                ();
  
   CHRCNT -  ,    -
               ;
  
   OCNT   -  ,    -
              .
  
             ,   -
    ,   OCNT     6  
    M.TSTS ,  ,   
    OCNT,      -
        .
 
                             - 337 -
  
  
  
  
         :
  
        I=0 -  ;
  
        I=1 -  ;  ;
        I=2 -      ;
        I=3 -    .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.5.  MTOUT
  
  
  
         MTOUT      .
         ,  
     ITTOUR.      -
   ,            
     .      ,
      A 1.
  
          :
  
           I=MTOUT (UNIT,CHAR[,CHRCNT][,OCNT])
  
   
  
   UNIT   -   ;
  
   CHAR   -  ()     
              ();            
            LOGICAL*1,      
               ;
  
   CHRCNT -   ,    
             ;
  
   OCNT   -  ,    -
              .
  
               ,    
       OCNT   6  
    M.TSTS  ,    ,
   ,          OCNT,  
        .
  
         :
  
        I=0 -  ;
  
        I=1 -      ;
        I=2 -     ;
        I=3 -    .
        I=5 -  XM-;   
                 .
  
             MTSET (. 8.9.8).
 
                             - 338 -
  
  
  
  
        8.9.6.  MTPRNT
  
  
  
         MTPRNT    PRINT  
    .      
       .
  
          :
  
           I=MTPRNT (UNIT,ADDR)
  
   
  
   UNIT   -  ;
  
   ADDR   -  ,  ; , 
             ,        
                     
            ASCIZ,     0;  -
              0          MTPRNT
            (      PRINT)      <CR>,
            <LF>;           
              "200.
  
         :
  
        I=0 -  ;
  
        I=2 -     ;
        I=3 -    ;
        I=5 -  XM-;    -
                .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.7.  MTRCTO
  
  
  
         MTRCTO    
   .RCTRLO   .   
      <CTRL/O>,     
    .
  
          :
  
           I=MTRCTO (UNIT)
  
   
  
   UNIT   -  ;
  
         :
  
        I=0 -  ;
  
 
                             - 339 -
  
  
  
  
        I=2 -     ;
        I=3 -    .
  
             MTSET (. 8.9.8).
  
  
  
        8.9.8.  MTSET
  
  
  
         MTSET    
           
   (       .MTSET).
        -
                
          
   -    .MTSET  MTSET.
  
          :
  
           I=MTSET (UNIT,ADDR)
  
   
  
   UNIT   -   ( ),  
             ;
  
   ADDR   -        ;
                 -
              INTEGER*2.
  
         :
  
        I=0 -  ;
  
        I=2 -     ;
        I=3 -    ;
        I=6 -  XM-    
                  .
  
             , -
        .
  
        .
  
    C     SYSLIB   
    C
           INTEGER*2 UNIT,SBLOK(4),STAT(8),ASW,STRING(41),PROM
           LOGICAL*1 TEND(14)
           REAL*4    TESTM(9)
           DATA  PROMPT /'','','',' ','','','','>
           DATA  TEND   /'*','','','','','',' ','','','
         *               '','*',0/
           DATA  TESTM  /'STAT','ATCH','GET','SET',4*",'DTCH'/
    C
    C    MTSTAT    
    C    
    C
 
                             - 340 -
  
  
  
  
           TYPE   106                           ! 
           L      =1                            ! L=  
           IF   (MSTAT(STAT).NE.0) GOTO 999     !  
    5      TYPE   99, STAT(3)                   !  # 
    C
    C      
    C
           TYPE   100                           !  
           ACCEPT 101, UNIT                     !  
           IF   (UNIT.EQ.99) STOP '  
    C
    C           
    C
           TYPE   110                             ! 
           ACCEBT 111, IASW                       !  
           IF   (IASW.EQ.'Y') IER=MTATCH(UNIT,ASW,
         *                               JOB)     ! 
           IF   (IASW.NE.'Y') IER=MTATCH(UNIT,0,
         *                               JOB)     !   AS
           L      =2
           IF   (IER) GOTO 999                    !  
           L      =3
           IF   (MTGET(UNIT,SBLOK).NE.0) GOTO 999 !  
           TYPE   102, UNIT, SBLOK                !  
    C
    C         
    C
           CALL   SETUP(SBLOK,UNIT)             !  
           L      =4
           IF  (MTSET(UNIT,SBLOK).NE.0) GOTO 999!  
           TYPE   102, UNIT, SBLOK              !  
    C
    C      ,  MTIN & MTOUT
    C
    20     TYPE   103                           ! ' 
           TYPE   104                           ! 
           TYPE   105
    30     CALL   MTIN(UNIT,J)                  !  
           CALL   MTOUT(UNIT,J)                 ! O 
           IF  (J.NE.10) GOTO 30                ! LF- 
           CALL   MTRCTO(UNIT)                  !  <CT
    C
    C     MTIN/MTOUT    TTSPC$
    C      
           IF  (SBLOK(1).AND."10000) GOTO 40     !  =1, 
           SBLOK(1)=SBLOK(1).DR."10000           !  
           IF  (MTSET(UNIT,SBLOK).NE.0) GOTO 999 !  
           IF  (IASW.NE.'Y') GOTO 60             !  A
    C
    C        (ASW)
    C
           TYPE   109                            ! ' 
    50     IF  (ASW.AND..NOT."40000) GOTO 50     !  
    55     CALL   MTIN(UNIT,J)                   !  
           CALL   MTOUT(UNIT,J)                  !  
           IF  (J.NE.10) GOTO 55                 !   
           CALL   MTRCTO(UNIT)                   !  <C
    C
    C    MTPRNT   
 
                             - 341 -
  
  
  
  
    C
    60     CALL   GTLIN(STRING,PROMPT)       !  
           CALL   MTPRNT(UNIT,STRING)        !   
           CALL   MTPRNT(UNIT,TEND)         ! '  
    C
    C         
    C
           L      =9
           TYPE   109,UNIT                  !  
           IF  (MTDTCH(UNIT).EQ.0) GOTO 5   !  ...
    C
    C     
    C
    999    TYPE   909,TESTM(L),IER          !  
           GOTO   5                         !   
    C
    99     FORMAT  ('0 ',I3,')
    100    FORMAT  ('$  ?')
    101    FORMAT  (I2)
    102    FORMAT  ('0',I3,'=',408)
    103    FORMAT  ('0 O.     <C
    104    FORMAT  ('  1: - +  
    105    FORMAT  ('  2: -  MTOUT')
    106    FORMAT  ('1    SYS
    108    FORMAT  ('  ',I3)
    109    FORMAT  ('  ASW -   + ')
    110    FORMAT  ('$  ASW ?')
    111    FORMAT  (A1)
    909    FORMAT  ('0MT',A4,' =',I3)
    C
           END
           SUBROUTINE SETUP (SBLOK,UNIT)
    C
    C      
    C
           INTEGER*2 SBLOK(4),UNIT
    C
           TYPE   100                         ! , 
           ACCEPT 101,J                       !  
           IF  (J) SBLOK(1)=J                 !  
           TYPE   102                         !   
           ACCEPT 101,J                       !  
           TYPE   103                         !   
           ACCEPT 101,I                       !  
           IF  (I.OR.J) SBLOK(3)=I*256+J      ! 
    5      TYPE   104                         ! , 
           ACCEPT 105,I                       !  
           IF  (I) SBLOK(4)=SBLOK(4)/256*256+I!  
    C
    100    FORMAT  ('$  :')
    101    FORMAT  (06)
    102    FORMAT  ('$,  :')
    103    FORMAT  ('$ :')
    104    FORMAT  ('$ :')
    105    FORMAT  (I3)
    C
           END
  
  
 
                             - 342 -
  
  
  
  
        8.9.9.  MTSTAT
  
  
  
         MTSTAT      -
        .  
       .
  
          :
  
           I=MTSTAT(ADDR)
  
   
  
   ADDR   -   ,      -
                 -
            ;    :
  
            ADDR(1)
                 -       -
                       (TCB);
  
            ADDR(2)
                 -       -
                     ,   
                    ()  ;
  
            ADDR(3)
                 -      -
                    ( 1  17, );
  
            ADDR(4)
                 - '     ;
  
            ADDR(5)-(8)
                 - .
  
         :
  
        I=0 -    ;
  
        I=5 -  XM-;   
                .
  
                 MTSET  (.  .
   8.9.8).
  
  
  
  
        8.10.  (TS)
  
  
  
              , -
                 
   TS-.
  
  
 
                             - 343 -
  
  
  
  
        8.10.1.  IBLIN
  
  
  
             -
     .
  
          :
  
           CALL IBLIN (BUF,BUFSIZ,BCNT[,IERR])
  
   
  
   BUF    -      ;
  
   BUFSIZ -    ;
  
   BCNT   -    .
  
        :
  
        IERR=0 -  ;
  
        IERR=1 -    .
  
             -
         ,      
     .        ,
       .   -
     ,     -
    ITTINR.       -
   ,    .
  
        .
  
        LOGICAL*1 ICHBUF(24)
        CALL IBLIN (ICHBUF,24,IBCNT,IERR)
        IF (IERR.EQ.1) STOP
            .
            .
  
  
  
        8.10.2.  IBLOUT
  
  
  
               
    .
  
          :
  
           CALL IBLOUT (BUF,BCNT)
  
   
  
   BUF    -  ,    ;
  
   BCNT   -    .
 
                             - 344 -
  
  
  
  
         .
  
               ,
        ITTOUR.  
       PRINT,  
       ,    -
      .
  
        .
  
        LOGICAL*1 ICHSTR(22)
        CALL SCOPY ('    ',ICHSTR,22)
        CALL IBLOUT (ICHSTR,22)
            .
            .
  
  
  
        8.10.3.  IBREAK
  
  
  
            '  -
    ,     
         .
  
          :
  
           CALL IBREAK (CHAR,CRTN)
  
   
  
   CHAR   -   ;
  
   CRTN   -   ,    
               .
  
             -
       '   IBREAK  -
   .      -
    ,   CHAR   .
  
              (    )
          -
   .      '    
    .     
    0,      IBREAK.
  
         ,       -
     ,      -
         IBREAK    -
    .
  
         .
  
              
    "H".
  
        .
 
                             - 345 -
  
  
  
  
        EXTERNAL CRTN              !' 
                                   ! 
            .
            .
        CALL IBREAK ('H',CRTN)     !'  'H'
                                   ! 
            .
            .
        CALL IBREAK (0,0)          ! '
                                   ! 'H'
                                   ! 
  
  
  
        8.10.4.  IDISMO
  
  
  
              -
       (..  -
   ,    DISMOUNT).
  
          :
  
           I=IDISMO (DEVICE)
  
   
  
   DEVICE -     RADIX-50.
  
         .
  
        .
  
        CALL IRAD50 (3,'RK',DEVICE)
        CALL IMOUNT (DEVICE)
            .
            .
        CALL IDISMO (DEVICE)
            .
            .
  
  
  
        8.10.5.  IFRSPL
  
  
  
              -
       .
  
          :
  
           I=IFRSPL ()
  
   
  
   I      -    .
  
 
                             - 346 -
  
  
  
  
         .
  
  
  
        8.10.6.  IHIOF
  
  
  
             "-
   "    .
  
  
           CALL IHIOF ()
  
         .
  
        .
  
        CALL IHION ()
            .
            .
        CALL IHIOF ()
            .
            .
  
  
  
        8.10.7.  IHION
  
  
  
               -
       .
  
          :
  
           CALL IHION ()
  
        TS-    -
      ( ).    
           
   ( )     
    .   
     ,    (
         ).
  
         .
  
  
  
        8.10.8.  IMOUNT
  
  
  
              -
      (..  ,  -
      MOUNT).
  
          :
 
                             - 347 -
  
  
  
  
           I=IMOUNT (DEVICE)
  
   
  
   DEVICE -     RADIX-50.
  
         :
  
        I=0 -  ;
  
        I=1 -     , 
               .
  
        .
  
        CALL IRAD50 (3,'DX3',IDEV)
        I=IMOUNT (IDEV)
        IF (I.EQ.1) STOP
            .
            .
  
  
  
        8.10.9.  IMSEND
  
  
  
              -
      .
  
          :
  
           CALL IMSEND (LINE,ADDR)
  
   
  
   LINE   -   ,    -
             ;
  
   ADDR   -  ,   .
  
            .
  
         .
  
               14.
  
        .
  
        LOGICAL*1 IMSGBF (20)
        CALL SCOPY (' ',IMSGBF)
        CALL IMSEND (14,IMSGBF)
            .
            .
  
  
  
  
  
 
                             - 348 -
  
  
  
  
        8.10.10.  ISTODT
  
  
  
              
   ,   ODT.
  
          :
  
           CALL ISETODT ()
  
           TS-     
       , ",", "$"  ";".
  
         .
  
  
  
        8.10.11.  IRSTODT
  
  
  
                 
   ,   TODT.
  
          :
  
           CALL IRSTODT ()
  
         .
  
  
  
        8.10.12.  ITRMTYPE
  
  
  
               -
   ,   ,    .
  
          :
  
           I=ITRMTYPE ()
  
   
  
   I      -       .
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 349 -
  
  
  
  
         :
  
         I               
       ------------           ---------------
            0                  ()
            1                  VT-52
            2                  VT-100
            3                  VT-340
            4                  BTA-2000-2
            5                  BTA-2000-15
            6                  BTA-2000-30
            7                  VDT-52129
            8                  VDT-52130
  
  
  
  
        8.10.13.  ITSLINE
  
  
  
                  
   ,   .
  
          :
  
           I=ITSLINE ()
  
   
  
   I      -   ,      
            ,  TS;     I  
              .
  
        .
  
        IRET=ITSLINE ()
        IF (IRET.EQ.0) STOP
            .
            .
  
  
  
        8.10.14.  ITSACT
  
  
  
             , 
      ,      -
   .
  
          :
  
           I=ITSACT ()
  
   
  
   I      -    :
  
 
                             - 350 -
  
  
  
  
            0    -        -
                    ;
  
            1    -         
                     .
  
  
  
        8.10.15.  ITSTER
  
  
  
                
        (    -
    ).
  
          :
  
           I=ITSTER ()
  
   
  
   I      -     :
  
            0    -       ;
  
            1    -      .
  
               -
     ,           
   .
  
        .
  
            .
            .
        IERR=ITSTER ()
        IF (IERR.NE.0) STOP
            .
            .
  
  
  
        8.10.16.  ITSTOP
  
  
  
               
   ,    .
  
          :
  
           I=ITSTOP (TOPADR)
  
   
  
   TOPADR -     
            ;
  
 
                             - 351 -
  
  
  
  
   I      -       -
             ,  .
  
         ,   ,    
     (     
   MEMORY)     .
  
                 120000
   ().       
    ,  .
  
        .
  
        DATA IARG/"120000/
        IRET=ITSTOP (IARG)
        IF (IRET.LT.IARG) STOP
            .
            .
  
  
  
        8.10.17.  ITTIME
  
  
  
             -
   ( )      -
   .       
            
    (,   ).
  
          :
  
           CALL ITTIME (TIME,CHAR)
  
   
  
   TIME   -     0.5 ;
  
   CHAR   -   ,        
            -.
  
         ,      
        .  
   -           
   ,     .
  
         .
  
            -,    20
       ,      
    -,  <CTRL/X>.
  
        .
  
  
  
  
  
 
                             - 352 -
  
  
  
  
             .
             .
        CALL ITTIME (40,24)
             .
             .
  
  
  
        8.11.   (TS)
  
  
  
               
      (   -
   )    .
  
  
  
        8.11.1.  ISHARE
  
  
  
                 
      .      
          -
   .
  
          :
  
           I=ISHARE (NAME)
  
   
  
   NAME   -    ,      
             (6    RADIX-50).
  
               
       .    -
             
   .        
      ,     -
     .     -
      ,      -
          -
    .
  
         NAME   0,      
           -
           
    .
  
         :
  
           I=0 -  ;
  
           I=1 -   
                 .
  
  
 
                             - 353 -
  
  
  
  
        .
  
           DIMENSION IRNTIM (2)
           CALL IRAD50 (6,'TSLIB',IRNTIM)
           IERR = ISHARE (IRNTIM)
           IF (IERR .EQ. 1) STOP
              .
              .
  
  
  
        8.11.2.  ISHMAP
  
  
  
              -
       .    -
    ISHARE         
    .
  
          :
  
           I=ISHMAP (PAGE,OFF,SIZE)
  
   
  
   PAGE   -    0  7,   
               ;   
                  
              ,        
             ;    
                    
              :
  
                       
           --------------          ------------------
                0                  000000 - 017777
                1                  020000 - 037777
                2                  040000 - 057777
                3                  060000 - 077777
                4                  100000 - 117777
                5                  120000 - 137777
                6                  140000 - 157777
                7                  160000 - 177777
  
   OFF    -       64    -
              ,      
             ,    -
            ;       -
              ;
  
   SIZE   -         64  ,
              ;    
                  -
            ,      -
             .
  
               ,
      ,    ,    
 
                             - 354 -
  
  
  
  
       . 
         .
    ,          
        .    
         7    
   /,    -    -
   .
  
             -
    ,  .
  
         :
  
           I=0 -  ;
  
           I=1 -      
                   .
  
                ,
          -
   ,           
     , ,     
      .
  
        .
  
           DIMENSION IRNTIM (2)
           CALL IRAD50 (6,'TMPLIB',IRNTIM)
           I=ISHARE (IRNTIM)
           I=ISHMAP (3,1,4)
             .
             .
           I=ISHARE (0)
             .
             .
  
  
  
        8.12.   (TS)
  
  
  
                  
          -
      .
  
  
  
        8.12.1.  IDJKILL
  
  
  
             
    .
  
  
           I=IDJKILL (LINE)
  
   
 
                             - 355 -
  
  
  
  
   LINE   -    .
  
         :
  
        I=0 -  ;
  
        I=1 -    .
  
               ,  
       .      
    .
  
        .
  
        CALL IDJSTART (DJOB,LINE)
            .
            .
        I=IDJKILL (LINE)
        IF (I.EQ.1) STOP
            .
            .
  
  
  
        8.12.2.  IDJSTART
  
  
  
              -
    .
  
          :
  
           CALL IDJSTART (DJOB,LINE[,IERR])
  
   
  
   DJOB   -     -7,    
              ;    
            ;
  
   LINE   -  ,     ,
               .
  
        :
  
        IERR=0 -  ;
  
        IERR=1 -     
                  .
  
               ,  
     (DJOB)     
        LINE.
  
  
  
  
  
 
                             - 356 -
  
  
  
  
        .
  
        LOGICAL*1 JOBNAM (16)
        CALL SCOPY ('DX1:MYJOB1.COM',JOBNAM)
        CALL IDJSTART (JOBNAM,LINE,IERR)
        IF (IERR.EQ.1) STOP
            .
            .
  
  
  
        8.12.3.  IDJTST
  
  
  
              
    .
  
          :
  
           I=IDJTST (LINE)
  
   
  
   LINE   -   .
  
         :
  
        I=0 -  ;
  
        I=1 -  .
  
                -
   ,       IDJTST    
   ,    .
  
        .
  
        CALL IDJSTART (DJOB,LINE)
    10  CONTINUE
        I=IDJTST (LINE)
        IF (I.EQ.1) GOTO 10
           .
           .
  
  
  
        8.13.   (TS)
  
  
  
        TS-    
    .
  
              -
    ,  " ". 
     ""     .    
        .   
             
 
                             - 357 -
  
  
  
  
    .
  
                .
           -
       .     -
   , ..    .    -
    ,           
          .    
     ,     
   .
  
            ,     -
   ,            ,   
   TS-   .    -
       ,     
    ,  .
  
  
        .      TS-  
          ,
     ,       
    ,    .
  
  
  
        8.13.1.  IMGET
  
  
  
              -
      .        -
   ,    ,     
      .
  
          :
  
           CALL IMGET (BOX,BUF,BUFCNT,BCNT[,IERR])
  
   
  
   BOX    -   6    -7,   
             ;
  
   BUF    -  ,    ;
  
   BUFCNT -   BUF  ;
  
   BCNT   -     ;
  
   IERR   -  .
  
        :
  
           IERR=0 -  ;  ;
  
           IERR=3 -     ;
           IERR=4 -    
                     .
  
 
                             - 358 -
  
  
  
  
          ,        
    TEXT.      .
  
        .
  
           LOGICAL*1 ICHNAM (8)
           LOGICAL*1 MSGBUF (72)
           CALL SCOPY ('TEXT  ',ICHNAM)
           CALL IMGET (ICHNAM,MSGBUF,72,MSGSIZ,IERR)
           IF (IERR .NE. 0) STOP
              .
              .
  
  
  
        8.13.2.  IMGETWAIT
  
  
  
             -
      ,        -
   .
  
          :
  
           CALL IMGETWAIT (BOX,BUF,BUFCNT,BCNT[,IERR])
  
   
  
   BOX    -   6    -7,   
             ;
  
   BUF    -  ,    ;
  
   BUFCNT -   BUF  ;
  
   BCNT   -     ;
  
   IERR   -  .
  
        :
  
           IERR=0 -  ;  ;
  
           IERR=1 -    ;
           IERR=4 -    
                     .
  
        .
  
           LOGICAL*1 MSGBUF (72)
           LOGICAL*1 ICHNAM (8)
           CALL SCOPY ('TEXT  ',ICHNAM)
           CALL IMGETWAIT (ICHNAM,MSGBUF,IBUFSIZ,MSGSIZ,IERR)
           IF (IERR .NE. 0) STOP
             .
             .
  
  
 
                             - 359 -
  
  
  
  
        8.13.3.  IMPUT
  
  
  
               
         .   
           ,    
       . , 
   ,     ,  
      .    
        ,    -
             
    ,    .
  
          :
  
           I=IMPUT (BOX,BUF,BCNT)
  
   
  
   BOX    -   6    -7,   
             ;
  
   BUF    -  ,   ;
  
   BCNT   -     .
  
         :
  
           I=0 -  ;
  
           I=1 -    ;
           I=2 -     
                   ;
           I=4 -    ,
                      
                  .
  
           'THIS IS AN EXAMPLE'   
        TEXT.        
    .
  
        .
  
           LOGICAL*1 MSGBUF (18)
           LOGICAL*1 ICHNAM (8)
           CALL SCOPY ('THIS IS AN EXAMPLE',MSGBUF)
           CALL SCOPY ('TEXT  ',ICHNAM)
           IERR = IMPUT (ICHNAM,MSGBUF,18)
           IF (IERR .NE. 0) STOP
             .
             .
  
  
  
  
  
  
  
 
                             - 360 -
  
  
  
  
        8.14.    (TS)
  
  
  
            SYSLIB.OBJ    TS-   
   ,           
            
     .
  
                 
       .     
          
    TS-,     . 
        ,  -
   ,  ,  .
  
         ,      
       ,         
   /.        
    .     -
       /,        
   ,  ""  .    
   ,          
   RMON,  .
  
                 
    /  :
  
          -               
            /;
  
          -         
             IOGET, IOPUT, IOBIS, IOBIC  -
               ,     
            /  .
  
            /    
             .
   ,         ,
             
     RMON.       
     ISPY      
       .     
       ,    -
      /.
  
              "-
   "         .
     ,        
           .
           
     , ,    
        .
  
                
   ,     .     
            .  
          
     0 .   -
 
                             - 361 -
  
  
  
  
            
   .        0    7.
        
        ,    
   ,     
       .
  
         1-7     -
   .   ,      
   .   ,    0,  
        ,      
       .   -
      0    
   .       -
    ,       -
   .   ,   -
    ,        (  
    ).
  
              
   ,          
   .            
    ,    -
   ,   ,       
         .
  
  
  
        8.14.1.  ICONVIR
  
  
  
              -
      .    
        .
  
          :
  
           CALL ICONVIR (VADDR,BUF[,IERR])
  
   
  
   VADDR  -  ,   ;
  
   BUF    -     ,     
             ;  16   
                   ,  
             2      
             4  5   .
  
        :
  
           IERR < 0 -  ;
  
           IERR = 0 -   
                          
                      TS-,  
                        .
  
 
                             - 362 -
  
  
  
  
                  ,
            
   .            
   .
  
        .
  
           DIMENSION IPADR (2)
           I=IMLOCK ()
           CALL ICONVIR ("54720,IPADR,I)
           IF (I .EQ. 0) STOP
              .
              .
  
  
  
        8.14.2.  IENSWAP
  
  
  
                 
     .
  
          :
  
           I=IENSWAP ()
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
                  ,
       .
  
        .
  
           I=IMLOCK ()
             .
             .
           I=IENSWAP ()
             .
             .
  
  
  
        8.14.3.  IMLOCK
  
  
  
               
     , ..      
    ,           
     .
  
 
                             - 363 -
  
  
  
  
          :
  
           I=IMLOCK ()
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
                   ,
        ,    -
     IENSWAP.
  
                -
   .      .
  
        .
  
           IERR=IMLOCK ()
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
        8.14.4.  IPOLOCK
  
  
  
               
    , ..     -
        .    -
            
      ,     -
          .
  
          :
  
           I=IPOLOCK ()
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
                   ,
        ,    -
     IENSWAP.
  
                 
       .
 
                             - 364 -
  
  
  
  
        .
  
           IERR=IPOLOCK ()
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
        8.14.5.  INTCON
  
  
  
               -
       .
  
          :
  
           I=INTCON (VEC,CRTN,PRI)
  
   
  
   VEC    -   ;
  
   CRTN   -   6    -7,   
             ;
  
   PRI    -       0
             7.
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     ;
           I = 1 -    
                   ;
           I = 2 -    
                    .
  
             
     ,          
      INTFRE.
  
                '  
        .   -
       .
  
        .
  
           EXTERNAL CPLRTN
           IERR=INTCON ("320,CPLRTN,3)
           IF (IERR .GE. 0) STOP
             .
             .
  
 
                             - 365 -
  
  
  
  
        8.14.6.  INTFRE
  
  
  
                  
    .      
    ,         
       INTCON.
  
          :
  
           I=INTFRE (VEC)
  
   
  
   VEC    -   .
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
                '  
   ,      ,  
           
   .
  
        .
  
           EXTERNAL CPLRTN
           I=INTCON ("320,CPLRTN,0)
             .
             .
           I=INTFRE ("320)
             .
             .
  
  
  
        8.14.7.  IOBIC
  
  
  
                
         ,       
   /,     -
        /.
  
          :
  
           I=IOBIC (ADDR,WORD)
  
   
  
   ADDR   -     /,    
 
                             - 366 -
  
  
  
  
              ;
  
   WORD   - ,      -
             .
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
             ,   -
     176500    /.    
       .
  
        .
  
           IERR=IOBIC ("176500,"100)
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
        8.14.8.  IOBIS
  
  
  
                
   ,    /,  -
          
     /.
  
          :
  
           I=IOBIS (ADDR,WORD)
  
   
  
   ADDR   -     /,    
              ;
  
   WORD   - ,       -
             .
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
              ,  
     176500   /.   -
 
                             - 367 -
  
  
  
  
        .
  
        .
  
           IERR=IOBIS ("176500,"100)
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
        8.14.9.  IOGET
  
  
  
             -
     ( ),      
   /,       
      /.
  
          :
  
           CALL IOGET (ADDR,VALUE[,IERR])
  
   
  
   ADDR   -     /,    
              ;
  
   VALUE  - ,   ;
  
   IERR   -  .
  
        :
  
           IERR < 0 -  ;
  
           IERR = 0 -   
                          
                      TS-,  
                        .
  
              -
     176502   /.   -
       .
  
        .
  
           CALL IOGET ("176502,IRET,IERR)
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
  
  
  
  
 
                             - 368 -
  
  
  
  
        8.14.10.  IOPUT
  
  
  
              
       /    
            
   /.
  
          :
  
           I=IOPUT (ADDR,WORD)
  
   
  
   ADDR   -     /,    
              ;
  
   WORD   - ,      
              /.
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                       
                   TS-,  
                     .
  
                
   /    176506.   
      .
  
        .
  
           IERR=IOPUT ("176506,"101)
           IF (IERR .EQ. 0) STOP
             .
             .
  
  
  
        8.14.11.  IOMAP
  
  
  
             -
          (-
     160000-177777)   /.
  
          :
  
           CALL IOMAP
  
        ,      -
   ,    ,     -
     ,        
   IOUNMAP.      -
 
                             - 369 -
  
  
  
  
    .
  
  
  
        8.14.12.  IOUNMAP
  
  
  
              -
         
    /.
  
          :
  
           CALL IOUNMAP
  
             -
    .
  
  
  
        8.15.   (TS)
  
  
  
               
   ,  ,      -
   ,  ,       -
   .            ,
           .
    ,      ,
        ,      
    .
  
           ,      
     ,    -
    :
  
        1)  ;
        2) '  ;
        3)   ,      
   ;
        4)     ;
        5)  ;
        6)     ;
        7)  ;
        8)   3-7   ;
        9)  .
  
  
  
        8.15.1.  ISFLOCK
  
  
  
                
         .    
       ,   -
        ,        
 
                             - 370 -
  
  
  
  
    .
  
          :
  
           I=ISFLOCK (CHAN,BLK)
  
   
  
   CHAN   -  ,    ;
  
   BLK    -  ,    .
  
            ,      
   ,  .       
      -1,      
    .      -
        ,        -
        .
  
         :
  
           I = 0 -  ;
  
           I = 1 -      ;
           I = 2 -    
                     .
  
           ,  '  ,
       .    -
      .
  
        .
  
           CALL ASSIGN (40,'DK:FILE.DAT')
           ICHAN=ILUN (40)
           I=ISFOPEN (ICHAN,0)
           I=ISFLOCK (ICHAN,-1)
           IF (I .NE. 0) STOP
             .
             .
  
  
  
        8.15.2.  ISFOPEN
  
  
  
            '   -
   .
  
          :
  
           I=ISFOPEN (CHAN,CODE)
  
   
  
   CHAN   -     ;
  
   CODE   - ,      ;
 
                             - 371 -
  
  
  
  
              :
  
                                  
                                      
                                 
                   ---     -------------     ------------
  
                   0                 
                   1                 /
                   2                   
                   3                   /
                   4       /     
                   5       /     /
  
         :
  
           I = 0 -  ;
  
           I = 1 -      ;
           I = 2 -     
                     ;
           I = 3 -    
                    ;
           I = 4 -    
                       .
  
           , '   
     1, ..       
      ,     -
     .
  
        .
  
           CALL ASSIGN (40,'DK:FILE.DAT')
           ICHAN=ILUN (40)
           IERR=ISFOPEN (ICHAN,1)
           IF (IERR .NE. 0) STOP
             .
             .
  
  
  
        8.15.3.  ISFSAVE
  
  
  
             -
     .     -
         -
       /.  ,   
        ,   -
      ,        -
    REOPEN.        ISFSAVE
          PURGE.
  
          :
  
           CALL ISFSAVE (CHAN)
  
 
                             - 372 -
  
  
  
  
   
  
   CHAN   -     .
  
                    
     ,        ,
   '        
     ISAVES. ,   
     ,       
      PURGE  REOPEN. , ,  
     PURGE,   -
    ISFSAVE,       ,
           ,  
         .
  
         .
  
           , ' , 
     ,    -
     .
  
        .
  
           CALL ASSIGN (30,'DK:SOME.FIL')
           ICHAN=ILUN (30)
           I=ISFOPEN (ICHAN,4)
              .
              .
           CALL ISFSAVE (ICHAN)
              .
              .
  
  
  
        8.15.4.  ISFTLOCK
  
  
  
             -
       .     -
   ,          
   .   ,        
        .
  
          :
  
           I=ISFTLOCK (CHAN,BLK)
  
   
  
   CHAN   -  ,    ;
  
   BLK    -  ,   .
  
         :
  
           I=0 -  ;
  
           I=1 -     
 
                             - 373 -
  
  
  
  
                 ;
           I=2 -  
                     ;
           I=3 -   
                  .
  
           ,  '  ,
            .  
        ,    -
       ,    -
   ,     .
  
        .
  
           CALL ASSIGN (40,'DX1:FILE.DAT')
           ICHAN = ILUN (40)
           I=ISFOPEN (ICHAN,2)
    10     CONTINUE
           I=ISFTLOCK (ICHAN,3)
           IF (I .EQ. 3) GO TO 10
           IF (I .NE. 0) STOP
             .
             .
  
  
  
        8.15.5.  ISFUNALL
  
  
  
               
      .
  
          :
  
           I=ISFUNALL (CHAN)
  
   
  
   CHAN   -  ,    .
  
             ,  -
        , .
   ,      -
    ,  ,      -
    ,  .
  
         :
  
           I = 0 -  ;
  
           I = 1 -      .
  
            , ' -
   ,   ,   
    .       -
   .
  
        .
 
                             - 374 -
  
  
  
  
           CALL ASSIGN (40,'DK:FILE.DAT')
           ICHAN=ILUN (40)
           I=ISFOPEN (ICHAN,1)
           DO 10 IBLK=4,6
           I=ISLOCK (ICHAN,IBLK)
    10     CONTINUE
             .
             .
           I=ISUNALL (ICHAN)
           IF (I .NE. 0) STOP
             .
             .
  
  
  
        8.15.6.  ISFUNLOCK
  
  
  
               -
       .
  
          :
  
           I=ISFUNLOCK (CHAN,BLK)
  
   
  
   CHAN   -  ,    ;
  
   BLK    -  ,   .
  
         :
  
           I = 0 -  ;
  
           I = 1 -      .
  
           ,  '  ,
        ,    
    .        
   .
  
        .
  
           CALL ASSIGN (30,'DX:FILE.DAT')
           ICHAN=ILUN (30)
           I=ISFOPEN (ICHAN,2)
           I=ISFLOCK (ICHAN,-1)
           I=ISFUNLOCK (ICHAN,7)
           IF (I .NE. 0) STOP
             .
             .
  
  
  
  
  
  
 
                             - 375 -
  
  
  
  
        8.15.7.  ISFWCHECK
  
  
  
                 
         .
  
          :
  
           I=ISFWCHECK (CHAN)
  
   
  
   CHAN   -  ,    .
  
           ,   -
              -
   ,    ,    -
       ,      
    .
  
         :
  
           I = 0 -     ;
  
           I = 2 -    .
  
           , ' , 
           
     .  ,         
    ,      -
   .
  
        .
  
           CALL ASSIGN (33,'RK3:TEXT.DAT')
           ICHAN=ILUN (33)
           I=ISFOPEN (ICHAN,5)
             .
             .
           I=ISFWCHECK (ICHAN)
           IF (I .EQ. 2) STOP
             .
             .
  
  
  
        8.16.    (TS)
  
  
  
              -
         ,
           
   .
  
  
  
  
 
                             - 376 -
  
  
  
  
        8.16.1.  IPAINI
  
  
  
              ,
           
    .
  
          :
  
           I=IPAINI (LOADDR,HIADDR,ICLSIZ,FLAG)
  
   
  
   LOADDR -     ,    
               ;
  
   HIADDR -      ,    
               ;
  
   ICLSIZ -     ;
  
   FLAG   -   ,       
                 /,
              ,          
            /.
  
         :
  
           I < 0 -  ;
  
           I = 0 -    
                     ;
           I = 1 -    
                     .
  
             
   .         
   .
  
        .
  
           IERR=IPAINI ("2000,"5400,"100,0)
           IF (IERR .GE. 0) STOP
             .
             .
  
  
  
        8.16.2.  IPASTA
  
  
  
                 
     .     
           
    IPAINI.
  
          :
 
                             - 377 -
  
  
  
  
           I=IPASTA ()
  
         :
  
           I < 0 -  ;
           I = 0 -    
                   .
  
                
    .     
    .
  
        .
  
           I=IPAINI ("2000,"5400,"100,0)
           I=IPASTA ()
           IF (I .EQ. 0) STOP
             .
             .
  
  
  
        8.16.3.  IPASTO
  
  
  
                
      .      
       IPASTA.
  
          :
  
           I=IPASTO ()
  
         :
  
           I < 0 -  ;
  
           I = 0 -   
                    .
  
               -
   ,         
    .
  
        .
  
           I=IPAINI ("2000,"5400,"100,0)
           DO 10 J=1,53
           I=IPASTA ()
             .
             .
           I=IPASTO ()
             .
             .
    10     CONTINUE
             .
             .
  
 
                             - 378 -
  
  
  
  
        8.16.4.  IPAGET
  
  
  
             -
      .        
          -
         -
   .
  
          :
  
           CALL IPAGET (PAR,BUF,BUFSIZE[,IERR])
  
   
  
   PAR    -        ,    
              :
  
                 -         
                    ,    
                    ;
  
                 -    -      
                   ,      
                   ;
  
                 -   -    
                   ;
  
                 -         1,
                          
                     /,  100000, 
                      ()  -
                   ;
  
   BUF    -    ;
  
   BUFSIZE
          -     .
  
                 16-
    ,       
    .
  
         :
  
           I < 0 -  ;
  
           I = 0 -     
                    ;
           I = 1 -    
                    .
  
               -
       .
  
        .
  
 
                             - 379 -
  
  
  
  
           DIMENSION IPARBF (4)
           DIMENSION IHSTBF (16)
           I=IPAINI ("2000,"5400,"100,0)
           I=IPASTA ()
             .
             .
           I=IPASTO ()
           CALL IPAGET (IPARBF,IHSTBF,IHBSIZ,I)
           IF (I .GE. 0) STOP
             .
             .
  
  
  
        8.17. 32- 
  
  
  
  
  
        8.17.1.  AJFLT
  
  
  
          AJFLT            
   INTEGER*4     REAL*4   
      .
  
          :
  
           A=AJFLT (JARG)
  
   
  
   JARG   -    INTEGER*4,   
            .
  
         :
  
         -    REAL*4.
  
              INTEGER*4,
     JVAL,     -
     REAL*4,   3.5      -
     VALUE.
  
        .
  
        REAL*4 VALUE,AJFLT
        INTEGER*4 JVAL
         . . .
        VALUE = AJFLT(JVAL)*3.5
  
  
  
  
  
  
  
 
                             - 380 -
  
  
  
  
        8.17.2.  DJFLT
  
  
  
          DJFLT            
   INTEGER*4          (
   REAL*8, DOUBLE PRECISION)    -
      .
  
          :
  
           A=DJFLT (JARG)
  
   
  
   JARG   -    INTEGER*4,  -
             .
  
  
        .     DJFLT,    
           
    (REAL*8 DJFLT)   (IMPLICIT REAL*8 (D))  
      .    ,  -
      REAL*4 (,   -
   ).
  
         :
  
         -    REAL*8.
  
        .
  
        INTEGER*4 JVAL
        REAL*8 DJFLT,D
         . . .
        D=DJFLT(JVAL)
  
  
  
        8.17.3.  IAJFLT
  
  
  
          IAJFLT           
   INTEGER*4     REAL*4   
   .
  
          :
  
           I=IAJFLT (JARG,ARES)
  
   
  
   JARG   -   INTEGER*4,    -
            ;
  
   ARES   -          REAL*4,  
               .
  
 
                             - 381 -
  
  
  
  
         :
  
        I=-1 -  ;  ;
        I=0  -  ;   ;
        I=1  -  ;  ;
  
        I=-2 -     .
  
        .
  
              INTEGER*4 JVAL
              REAL*4 RESULT
               . . .
              IF(IAJFLT(JVAL,RESULT).EQ.-2)TYPE 99
        99    FORMAT('    ',
             * '    ')
  
  
  
        8.17.4.  IDJFLT
  
  
  
         IDJFLT        INTEGER*4  
        REAL*8  (DOUBLE  PRECISION)  
    .
  
          :
  
           I=IDJFLT (JARG,DRES)
  
   
  
   JARG   -  A  INTEGER*4;
  
   DRES   -     REAL*8       
            .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  .
  
        .
  
              INTEGER*4 JJ
              REAL*8 DJ
               . . .
              IF(IDJFLT(JJ,DJ).LE.0)TYPE 99
        99    FORMAT('  ')
  
  
  
  
  
  
  
  
 
                             - 382 -
  
  
  
  
        8.17.5.  IJCVT
  
  
  
         IJCVT      INTEGER*4  
     INTEGER*2.
  
          :
  
           I=IJCVT (JARG[,IRES])
  
   
  
   JARG   -          INTEGER*4,
               ;
  
   IRES   -     INTEGER*2,    
              .
  
          IRES  ,    
      INTEGER*2 ( JARG).
  
         : ( IRES )
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
        I=-2 -     -
               .
  
        .
  
            INTEGER*4 JVAL
            INTEGER*2 IVAL
             . . .
            IF(IJCVT(JVAL,IVAL).EQ.-2)TYPE 99
      99    FORMAT('   ')
  
  
  
        8.17.6.  JADD
  
  
  
          JADD            
   INTEGER*4.
  
          :
  
           I=JADD (JARG1,JARG2,JRES)
  
   
  
   JARG1  -   INTEGER*4;
  
   JARG2  -   INTEGER*4;
  
   JRES   -    INTEGER*4,     -
 
                             - 383 -
  
  
  
  
              .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
        I=-2 -      -
               .
  
        .
  
         INTEGER*4 JOP1,JOP2,JRES
          . . .
         IF(JADD(JOP1,JOP2,JRES).EQ.-2)GOTO 100
  
  
  
        8.17.7.  JAFIX
  
  
  
             REAL*4    
    INTEGER*4.
  
          :
  
           I=JAFIX (AARG,JRES)
  
   
  
   AARG   -   REAL*4  (    ),
                INTEGER*4;
  
   JRES   -   INTEGER*4,      
             .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
        I=-2 -      -
               .
  
        .
  
              REAL*4 A
              INTEGER*4 JOP1
               . . .
              ACCEPT 99,A
        99    FORMAT(F15.0)
              IF(JAFIX(A,JOP1).EQ.-2)GOTO 100
  
  
  
  
 
                             - 384 -
  
  
  
  
        8.17.8.  JCMP
  
  
  
         JCMP     INTEGER*4  
         INTEGER*2,    
    .
  
          :
  
           I=JCMP (JARG1,JARG2)
  
   
  
   JARG1  -   INTEGER*4    ,  -
               ;
  
   JARG2  -   INTEGER*4    ,  -
               .
  
         :
  
        I=-1 -   JARG1 < JARG2 ;
        I=0  -   JARG1 = JARG2 ;
        I=1  -   JARG1 > JARG2 .
  
        .
  
         INTEGER*4 JOPX,JOPY
          . . .
         IF(JCMP(JOPX,JOPY))10,20,30
  
  
  
        8.17.9.  JDFIX
  
  
  
         JDFIX    REAL*8 (DOUBLE
   PRECISION)    INTEGER*4.
  
          :
  
           I=JDFIX (DARG,JRES)
  
   
  
   DARG   -   REAL*8,    -
                INTEGER*4;
  
   JRES   -   INTEGER*4,    
             .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
 
                             - 385 -
  
  
  
  
        I=-2 -      -
               .
  
        .
  
              INTEGER*4 JNUM
              REAL*8 DPNUM
               . . .
        20    TYPE 98
        98    FORMAT('$  :')
              ACCEPT 99,DPNUM
        99    FORMAT(D20.0)
  
              IF(JDFIX(DPNUM,JNUM).LT.0)GOTO 20
  
  
  
        8.17.10.  JDIV
  
  
  
          JDIV          
   INTEGER*4.
  
          :
  
           I=JDIV (JARG1,JARG2,JRES[,JREM])
  
   
  
   JARG1  -   INTEGER*4, ;
  
   JARG2  -   INTEGER*4, ;
  
   JRES   -   INTEGER*4,      
            ;
  
   JREM   -   INTEGER*4,      
              .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  - O ,  ;
  
        I=-3 -      .
  
        .
  
         INTEGER*4 JN1,JN2,JQUO
         CALL JDIV(JN1,JN2,JQUO)
  
  
  
  
  
  
  
 
                             - 386 -
  
  
  
  
        8.17.11.  JICVT
  
  
  
         JICVT      INTEGER*2  
     INTEGER*4.
  
          :
  
           I=JICVT (IARG,JRES)
  
   
  
   IARG   -       INTEGER*2,        
            BT;
  
   JRES   -       INTEGER*4,  
              .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  .
  
        .
  
         INTEGER*4 JVAL
         CALL JICVT(478,JVAL)  ! 32-
     C                          
  
  
  
        8.17.12.  JJCVT
  
  
  
          JJCVT        
     INTEGER*4     
      .       ,
         INTEGER*4      
      (, ITWAIT)   -
    .     
    :   -   ,  
    -   .
  
          :
  
           CALL JJCVT (JARG)
  
   
  
   JARG   -     INTEGER*4,     
             .
  
         .
  
        .
  
 
                             - 387 -
  
  
  
  
         INTEGER*4 TIME
          . . .
         CALL GTIME(TIME)  !  
         CALL JJCVT(TIME)  !  INTEGER*4
  
  
  
        8.17.13.  JMOV
  
  
  
          JMOV        
   INTEGER*4      INTEGER*4    
     .
  
          :
  
           I=JMOV (JARG,JRES)
  
   
  
   JARG   -   INTEGER*4,     -
              ;
  
   JRES   -   INTEGER*4,    
             JARG.
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  .
  
           JMOV       
      IF.
  
        .
  
         INTEGER*4 INT1
          . . .
         IF(JMOV(INT1,INT1)300,100,300 !   300,
    C                                    INT1   0
  
  
  
        8.17.14.  JMUL
  
  
  
          JMUL         
   INTEGER*4.
  
          :
  
           I=JMUL (JARG1,JARG2,JRES)
  
   
  
   JARG1  -   INTEGER*4, ;
 
                             - 388 -
  
  
  
  
   JARG2  -   INTEGER*4, ;
  
   JRES   -   INTEGER*4,    
            .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
        I=-2 -     -
               .
  
        .
  
              INTEGER*4 J1,J2,JRES
               . . .
              IF(JMUL(J1,J2,JRES)+1) 100,10,20
        C
        C    100,  
        C    10,   
        C    20,    
        C  
  
  
  
        8.17.15.  JSUB
  
  
  
         JSUB     
    INTEGER*4.
  
          :
  
           I=JSUB (JARG1,JARG2,JRES)
  
   
  
   JARG1  -   INTEGER*4, ;
  
   JARG2  -   INTEGER*4, ;
  
   JRES   -     INTEGER*4,    
              .
  
         :
  
        I=-1 -  ,  ;
        I=0  -  ,   ;
        I=1  -  ,  ;
  
        I=-2 -     -
               .
  
        .
  
  
 
                             - 389 -
  
  
  
  
         INTEGER*4 JOP1,JOP2,J3
          . . .
  
         CALL JSUB(JOP1,JOP2,J3)
  
  
  
        8.18.   
  
  
  
  
  
        8.18.1.  CONCAT
  
  
  
          CONCAT      
   (')     .
  
          :
  
           CALL CONCAT (A,B,OUT[,LEN[,ERR]])
  
   
  
   A      - ,     ;    
             ,  ;
  
   B      - ,    ;    
             ,  ;
  
   OUT    - ,     ;
                        
                   
              (..    -
             LEN,   );
  
   LEN    - ;  ,  
              ;   
            -       -
            ,   ;
  
   ERR    -   ;    ,  
                .TRUE.,    
                ,    
            LEN.
  
         OUT    "",   -
     "B",      
    "".        ,
     ,      ,  
    "B"  OUT      . -
        ,    "B"
       "",      
        LEN.
  
           ERR    
       LEN,     ERR
 
                             - 390 -
  
  
  
  
     .TRUE.;       ERR
     . ,      
    ERR,          
     .FALSE.  ERR.
  
              (  ),  
     ()    OUT.   
    ,   OUT   .   
       OUT   -
    CONCAT  .
  
        :
  
           ERR,   -
   .   ERR     -
     ,    LEN,  -
    ERR   .TRUE.,   ERR  
   .
  
          ' ,    
   STR  IN.      OUT,    
       29 .
  
        .
  
         LOGICAL*1 IN(30),OUT(30),STR(7)
          . . .
         CALL CONCAT(STR,IN,OUT,29)
  
  
  
        8.18.2.  GETSTR
  
  
  
         GETSTR      
   -7       
    .        -
     "". ,    ,  -
   .
  
         GETSTR    -
          ,  
      .  GETSTR     -
    ,        
   /      ,  ..  
        USR.
  
          :
  
           CALL GETSTR (LUN,OUT,LEN,ERR)
  
   
  
   LUN    -  ()    -
            ,       
            ,     ;
  
   OUT    - ,   ;      
 
                             - 391 -
  
  
  
  
              LEN     -
            ;
  
   LEN    -  ,     -
             ;
  
   ERR    -     LOGICAL*1,  
               .TRUE.,      
                LEN.   
                 .FALSE.
  
        :
  
             -
    ERR.    ERR      .TRUE.,  
     :
  
           ERR=-1 -     ;
           ERR=-2 -     ;
           ERR=-3 -       , 
                       LEN.
  
              80    
     5   STRING.
  
        .
  
        LOGICAL*1 STRING(81),ERR
         . . .
        CALL GETSTR(5,STRING,80,ERR)
  
  
  
        8.18.3.  INDEX
  
  
  
         INDEX      
         ()  
          -
      .
  
          :
  
           CALL INDEX (A,PATTRN,[I],M)
          
           M=INDEX (A,PATTRN [,I])
  
   
  
   A      - ,   ;  
               0;
  
   PATTRN - ,       "A";  
            ;     0;
  
   I      -        "A";
              "I" ,   "A" -
            ,    , ..  -
 
                             - 392 -
  
  
  
  
             I=1;
  
   M      - ,  ;     
                 "A",      
            ;    "M"  0.
  
         .
  
            STRING  
       EFG    XYZ      
   ABCABCABC     ABC   5-  -
   .
  
        .
  
         CALL SCOPY ('ABCDEFGHI',STRING)   !
      C                                     
         CALL INDEX(STRING,'EFG',,M)       !M=5
         CALL INDEX(STRING,'XYZ',,N)       !N=0
         CALL INDEX('ABCABCABC','ABC',5,L) !L=7
  
  
  
        8.18.4.  INSERT
  
  
  
         INSERT     
   .
  
          :
  
           CALL INSERT (IN,OUT,I[,M])
  
   
  
   IN     - ,      ;   
              ,   ,    
               M, ,  M  ;
  
   OUT    - ,    ;  
              ,  ;
  
   I      - ,     OUT,   -
              ;
  
   M      - ,    .
  
             ,   -
         (I)  -
           .  
    (IN)    (OUT)   
        ,    
     (M)          
    ,    ,  -
     ,    .
  
         .
  
 
                             - 393 -
  
  
  
  
        .
  
        CALL SCOPY('ABCDEFGHIJ',S1)!  1
        CALL SCOPY(S1,S2)          !  2
        CALL INSERT('123',S1,6,3)     !S1='ABCDE123IJ'
        CALL INSERT('123',S2,4)       !S2='ABC123'
  
  
  
  
        8.18.5.  LEN
  
  
  
         LEN    ,  -
      .        
    .      -
   ,   ,  .
  
          :
  
           I=LEN(A)
  
   
  
   A      - ,  ;      -
              0;
  
         .
  
        .
  
              LOGICAL*1 STRNG(73)
               . . .
              TYPE 99,(STRNG(I),I=1,LEN(STRNG))
        99    FORMAT('0',132A1)
  
  
  
        8.18.6.  PUTSTR
  
  
  
         PUTSTR    
         .    PUTSTR
          ,      
    ,     ,  ..
      .  PUTSTR 
     ,          
    /     -
   , ..    PUTSTR   USR.
  
          :
  
           CALL PUTSTR (LUN,IN,CHAR,ERR)
  
   
  
   LUN    -   (),    -
 
                             - 394 -
  
  
  
  
              ;
  
   IN     - ,   ;
  
   CHAR   -   -7,     -
                ;        
            ,     IN   -
             ;      
              ;
  
   ERR    -   LOGICAL*1,   
            .TRUE.      ,    .FALSE.  -   
             .
  
        :
  
     ERR=-1 -       ;
     ERR=-2 -     
              .
  
        .
  
         LOGICAL*1 STRNG(81)
  
          . . .
         CALL PUTSTR(7,STRNG,'0')!  
     C                             
  
  
  
        8.18.7.  REPEAT
  
  
  
         REPEAT       
          .  
   REPEAT      .
  
          :
  
           CALL REPEAT (IN,OUT,I[,LEN[,ERR]])
  
   
  
   IN     - ,  ,   -
            ;  _   0;
  
   OUT    - ,      -
            ;    ,    ,  
                  LEN,  
             ; ,   LEN,  
               0;
  
   I      -  ()   ;
  
   LEN    -   ()  ;
  
   ERR    -   ;    ,  
               .TRUE.,  -
 
                             - 395 -
  
  
  
  
                ,   -
             LEN.
  
           ( "I")   
   ,        
     .       ,  
         SCOPY;    
     ,    ,    
   OUT,   .    -
       REPEAT .
  
        :
  
              ERR,    
   .   ERR  ,      
         LEN,    
   ERR   .TRUE..     
    ERR  . ,    
     ERR,     REPEAT
        .FALSE..
  
        .
  
         LOGICAL*1 SIN(21),SOUT(101)
          . . .
         CALL REPEAT(SIN,SOUT,5)
  
  
  
  
        8.18.8.  SCOMP/ISCOMP
  
  
  
         SCOMP        
     -  .
  
          :
  
           CALL SCOMP (A,B,I)
          
           I=ISCOMP(A,B)
  
   
  
   A      - ,    ;    
              0;
  
   B      - ,    ;    
              0;
  
   I      -  ,   .
                  -
            ,         
            -7.
  
            ,    
     "I" (     
   ISCOMP) -    ,   -
 
                             - 396 -
  
  
  
  
        .
  
            ,      
    ,     
     .        ,
     .
  
                 -
       .
  
         :
  
        I<0 -  A  B;
        I=0 -  A  B;
        I>0 -  A  B.
  
        .
  
         LOGICAL*1 INSTR(81)
          . . .
         CALL GETSTR(5,INSTR,80)
         CALL SCOMP('YES',INSTR,IVAL)
         IF(IVAL) GOTO 10
  
  
  
        8.18.9.  SCOPY
  
  
  
         SCOPY      
     .     -
     "", ,       
   .
  
          :
  
           CALL SCOPY (IN,OUT[,LEN[,ERR]])
  
   
  
   IN     - ,    ,     
            ;        0,
             LEN  , ,    LEN;
  
   OUT    - ,         
            ;     ,  
            ,    ,  -
             LEN,     ;  ,  
            LEN ,     
            0;
  
   LEN    - ;      ;
                 , 
                 ;
  
   ERR    -  ,    
            .TRUE.,      
            ,   LEN.
 
                             - 397 -
  
  
  
  
         IN  OUT        -
   .  ,           ,
       SCOPY.
  
        :
  
          E  ERR;  
    ERR ,      
   ,   LEN,   ERR  -
     .TRUE.;       ERR
    ; ,     
   , TO    SCOPY   -
      .FALSE.
  
           SCOPY     
    .
  
        .
  
         LOGICAL*1 STRING(80)
         CALL SCOPY(' ',STRING)
  
  
  
        8.18.10.  STRPAD
  
  
  
         STRPAD      
        .      
    .       
      ,     -
   .
  
          :
  
           CALL STRPAD (A,LEN[,ERR])
  
   
  
   A      - ,   ;  
              0; ,    ,
              ,     1  ,
               LEN;   
                0;
  
   LEN    -  ()  ;
  
   ERR    -   ,  
             .TRUE.,  ,      "A"
             ,    LEN.
  
        :
  
              ERR,    
   ;    ,     
    LEN,   ERR   .TRUE.;  
       ERR  ; -
   ,        ,  
 
                             - 398 -
  
  
  
  
     ,  ERR   -
     .FALSE..
  
             -
    ,     "A".
  
        .
  
        LOGICAL*1 STR (81)
         . . .
        CALL STRPAD (STR,80)   ! 80
    C                           
        PRINT 100,(STR(I),I=1,80) !   80
    C                              
    100 FORMAT (80A1)
  
  
  
        8.18.11.  SUBSTR
  
  
  
         SUBSTR   ,    
          .    ,
              ,  
      .
  
          :
  
           CALL SUBSTR (IN,OUT,I[,LEN])
  
   
  
   IN     - ,     ; -
                0;
  
   OUT    - ,       ;  
                 ,    
             LEN,    ;  ,    LEN
            ,       
            0;
  
   I      -  ()     , 
              , ..   -
               ;
  
   LEN    -   ()    -
            .
  
           ( LEN)  ,  
               
     "I"   IN        
    0.  LEN ,      -
     0.    LEN  , 
    OUT     .      
       OUT .
  
         O.
  
 
                             - 399 -
  
  
  
  
        8.18.12.  TRANSL
  
  
  
         TRANSL      -
    .    TRANSL 
    64   .       
      .
  
          :
  
           CALL TRANSL (IN,OUT,R[,P])
  
   
  
   IN     - ,   ;   
              0;
  
   OUT    - ,   ; 
               0;
  
   R      - ,      ;  
               0;
  
   P      - ,   ,   -
              ;      
             0;
  
         OUT      IN    
    ,   "R"  "P".
      IN    ,    
    "P"   "I",     OUT    
      "I"  "R".
  
          "P"  ,  ,    
     127 7-   -7,    
    ,      "001.  
        "R"  "P",   
       .        "P"
         ,      
      .   "R"    
      .
  
         O.
  
        :
  
              "A"   -
    "B".     "B"    ,
       -   .
  
           CALL TRANSL(A,B,'-!','.?')
  
            TRANSL  
     .
  
        LOGICAL*1 STRING(22),RESULT(22),PATRN(22)
    C
    C    ,   
 
                             - 400 -
  
  
  
  
    C
        CALL SCOPY ('   ',STRING)
    C
    C   000000000111111111122
    C   123456789012345678901
    C      
    C
    C        
    C   13,14,15,16,17,18,19,20,21,12,1,2,3,4,5,6,7,8,9,10,11,
    C
        DO 10 I=13,21
     10 PATRN(I-12)=I
        PATRN(10)=12
        DO 20 I=1,11
     20 PATRN (I+10)=I
        PATRN (22)=0
    C
    C    TRANSL   
    C    ,  
    C
        CALL TRANSL(PATRN,RESULT,STRING)
    C
    C     "   ". 
    C       
    C       127 . 
    C       -.
  
  
  
        8.18.13.  TRIM
  
  
  
         TRIM    
        .    
    ,        
   .        ,  
       .        
     ,     .
  
          :
  
           CALL TRIM(A)
  
   
  
   A      - ,  ,   -
            ;         0;
               TRIM      
               0.
  
         .
  
        .
  
        LOGICAL*1 STRING(81)
        ACCEPT 100,(STRING(I),I=1,80)
    100 FORMAT (80A1)
        CALL SCOPY(STRING,STRING,80)  !  ASCIZ
 
                             - 401 -
  
  
  
  
        CALL TRIM (STRING)            ! 
  
  
  
  
  
        8.18.14.  IVERIF/VERIFY
  
  
  
         VERIFY ,    
         .    -
        ,  -
      VERIFY    
      .    
    ,   .
  
          :
  
           CALL VERIFY (A,B,I)
         
           I=IVERIF(A,B)
  
   
  
   A      - ,      ;   
               0;
  
   B      - ,   -  , -
               "A";      -
              0;
  
   I      -   .
  
         :
  
        I=0 -    "A"    "B";
        I=N -  N     A
               "",      "";
                "B"  ,
                "A" - ,  I=1.
  
               
    ,          
          -7.
  
        .
  
              LOGICAL*1 INSTR(81)
               . . .
              CALL VERIFY(INSTR(IPOS),'0123456789',I)
              IF(I.EQ.1) STOP '  '
              IF(I.EQ.0) I=LEN(INSTR)-IPOS+1
              IF(I.GT.5) STOP '  '
              NUM=IVALUE(INSTR(IPOS),I)
               . . .
              END
              FUNCTION IVALUE(ARRAY,I)
              LOGICAL*1 ARRAY(1)
 
                             - 402 -
  
  
  
  
              DECODE(I,99,ARRAY) IVALUE
        99    FORMAT(I5)
              END
  
  
  
        8.18.15.  IRAD50
  
  
  
         IRAD50      ,
     -7,   RADIX-50   -
     .  -
     ,   , , -
      RADIX-50,     -
       -7.
  
          :
  
           N=IRAD50 (ICNT,INPUT,OUTPUT)
  
   
  
   N      -     ;
  
   ICNT   -    -7;
  
   INPUT  - ,      -
            ;
  
   OUTPUT - ,       
            RADIX-50 .
  
               .  
            (
    ):
  
           (ICNT+2)/3.
  
   T.E.      
   4,     ,    
        .
  
         :
  
        N -   .
  
        .
  
        REAL*8 FSPEC
        CALL IRAD50 (12,'SY0TEMP  DAT',FSPEC)
  
  
  
  
  
  
  
  
 
                             - 403 -
  
  
  
  
        8.18.16.  R50ASC
  
  
  
         R50ASC    , 
    RADIX-50,   -7.
  
          :
  
           CALL R50ASC (ICNT,INPUT,OUTPUT)
  
   
  
   ICNT   -  ,   -7;
  
   INPUT  - ,      -
            , ,  (ICNT+2)/3 ;
  
   OUTPUT - ,     -7.
  
        :
  
           ,   RADIX-50, -
       174777  (  -
   ),          -
    .
  
        .
  
  
        REAL*8 NAME
        LOGICAL*1 OUTP(12)
         . . .
        CALL R50ASC(12,NAME,OUTP)
  
  
  
        8.18.17.  RAD50
  
  
  
         RAD50   O -
    .  RAD50      
   -7   ,        
      REAL*4,     2-
    RADIX-50.
  
          :
  
           A=RAD50 (INPUT)
  
   
  
   INPUT  - ,      
            -7.
  
            -
    IRAD50:
  
 
                             - 404 -
  
  
  
  
           CALL IRAD50 (6,LINE,A)
  
     RAD50  2-    
   RADIX-50.
  
  
  
  
  
            9.    (XM)
  
  
  
  
               
   28 ,         -
     .
  
          -   0  28 .
  
  
  
        9.1.  
  
  
  
             
                  
   XM-.
  
  
  
        9.1.1. 16- 
  
  
  
               32
   , ..       16-
   .
  
              (  -
    )  4   , -
     /,    
    .  ,  28  
        -
          .
      28    28  .
  
  
  
        9.1.2.           
                (28 )
  
  
  
          -        0  
   177777.  16-    -
    32   .
  
 
                             - 405 -
  
  
  
  
          -    
     .    16  -
   .
  
         . 5         -
      .      ,  
        SJ-   FB-,
          .
   ,   20000  
    20000.
  
                     
                       28 
  
                           
                   
    32 -------------------     32 -------------------
        !                 !         !         !
        !                 !         !  /   !
        !                 !     28 !-----------------!
        !                 !         !                 !
        !                 !         !                 !
        !                 !         !                 !
        !                 !         !        !
        !                 !         !           !
        !                 !         !                 !
        !                 !         !                 !
        !                 !         !                 !
        !                 !         !                 !
     4 ! 20000           !----> 4 ! 20000           !
        !                 !         !                 !
        !                 !         !                 !
      0 -------------------       0 -------------------
  
        16-          16- 
  
                               . 5
  
  
  
        9.1.3.  
  
  
  
             28  K.  
     ,     .  
   ,   ,   ,  
         ;  
          ,
      . ,   MACRO
            (
   )  CREF,    -
    .     ,    
   ,   ,    
         ,  -
     .
  
           ,    
   ,    ,   
 
                             - 406 -
  
  
  
  
      .   -
                
   .     -
          -
    .
  
           (   ) -
             -
              
    .   ,   
   ,    .
  
        . 6   , . 7 - -
    .
  
                     
  
                  
                
           32 ------------------
               !        !
               !  /  !
           28 !----------------!           
               !                !         
               !                !          
               !          !        ---------------
               !                !    ----!  2 !
               !                !    !   ---------------
               !                !    !
               !                !    !
               !----------------!    !
               !                !    !
               !   1   !<----
               !                !
               ------------------
  
     1 ,       2.
    2          
    ,    1.
  
                              . 6
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 407 -
  
  
  
  
                          
               
             
        32 ------------------
            !        !
            !  /  !
        28 !----------------!                 
            !                !               
            !                !                
            !          !              ---------------
            !                !    ----------!  1   !
            !                !    !  -------!  2   !
            !                !    !  !  ----!  3   !
            !                !    !  !  !   ---------------
            !----------------!    !  !  !
            !      !<----  !  !
            !    1    !<-------  !
            !                !<----------
            !----------------!
            !        !
            !         !
            !                !
            ------------------
  
          1, 2, 3  
       1.    
          .
  
                              . 7
  
  
  
        9.1.4. 18- 
  
  
  
             ,    32
        ,   -
     18-  .   ,  
      124     ,    4
     /.
  
             -
    16 ,    -
      32 .
  
        18-      
    0  128 .  ,   28  -
   ,            ,
    16-   18-.  .  8
            
      .
  
  
  
  
  
  
  
 
                             - 408 -
  
  
  
  
                   
                    
  
                                           
                                         
                                   128 ------------------
                                        !        !
                                        !  /  !
                                   124 !----------------!
                                        !                !
                                        .                .
                            .                .
                      .                .
    32 ------------------              !                !
        !                !              !          !
        !                !              !                !
        !                !              !                !
        !                !              !                !
        !                !              !                !
        !                !              !                !
        !                !              !                !
        !                !              !                !
      0 ------------------            0 ------------------
  
       16-              18- 
                             . 8
  
            128  .  -
      -  ,    
      (XM-) 
          -
      ,       
    .
  
           :
  
          -     18- 
             (   ,    -
            );
  
          -       
                  -
             ;
  
          -   ,     -
             ,     
                .
  
                -
    28  . ,     32  
   .          
   ,      28  .     ,
              
      ,      -
     .
  
         . 9  ,    -
    .       
    ,        -
 
                             - 409 -
  
  
  
  
      1.
  
                                              
                                            
                                           .                .
                                           .                .
                                           .                .
                                           ------------------
                                           !                !
                                 --------->!     1   !
                                 !         !                !
                                 !         !----------------!
                                 !         !                !
                                 !-------->!     2   !
                     !         !                !
               !         !----------------!
    32 ------------------       !         !                !
        !                !       !-------->!     3   !
        !                !       !         !                !
        !                !       !         !----------------!
        !                !       !         !                !
        !                !       !         !                !
        !                !       !         !                !
        !                !       !         !                !
        !----------------!       !         !                !
        !      !--------         !                !
        !     1   !                 !                !
        !----------------!                 !                !
        !        !                 !        !
        !         !---------------->!         !
        !                !                 !                !
      0 ------------------               0 ------------------
                                           .                .
                                           .                .
                                           .                .
  
       1, 2, 3     
              .
                             . 9
  
  
  
        9.2.  
  
  
  
              (XM-)  -
      '   -
   :
  
          -     32 ;
  
          -    (EIS);
  
          -   .
  
                
    .
  
 
                             - 410 -
  
  
  
  
        9.2.1.  
  
  
  
                   
     -      ().  -
        .
  
              -
    16-    ,  
   ,    18-    .  .  10
     .
  
  
             
  
     15                 16                      0
     -------------------------------------------------
     !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !
     -------------------------------------------------
     \                                               /
      \---------------------------------------------/
                          !
                          !
                          V
                   ----------------       -------------------
                   !     !       !          !
                   !        !<------!       !
                   !              !       !      !
                   ----------------       -------------------
                          !
                          !
     17                   V                              0
     /---------------------------------------------------\
    /                                                     \
    -------------------------------------------------------
    !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !
    -------------------------------------------------------
                          18 
  
                           . 10
  
  
  
        9.2.2.  
  
  
  
               32    -
         8  ,  
    .     ,
    4 ,    0  7.  -
     32- () .     128
    ,      0    4096
       32 .
  
         . 11     ,
      4- .
  
 
                             - 411 -
  
  
  
  
                           
                         
                  32  ---------------------
                       !     7     !
                  28  !- - - - - - - - - -!  160000
                       !     6     !
                  24  !- - - - - - - - - -!  140000
                       !     5     !
                  20  !- - - - - - - - - -!  120000
                       !     4     !
                  16  !- - - - - - - - - -!  100000
                       !     3     !
                  12  !- - - - - - - - - -!   60000
                       !     2     !
                   8  !- - - - - - - - - -!   40000
                       !     1     !
                   4  !- - - - - - - - - -!   20000
                       !     0     !
                   0   ---------------------   0
  
                                . 11
  
         . 12     ,
       5      .  
         
       .    -
         -
    .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 412 -
  
  
  
  
                          
  
                           
                         
                  32  ---------------------
                       !///////////////////!
                       !     7     !
                       !                   !
                  28  !- - - - - - - - - -!
                       !///////////////////!
                       !///////////////////!
                       !///////////////////!
                  24  ! - - - - - - - - - !
                       !///////////////////!
                       !-------------------!
                       !     5     !
                  20  !- - - - - - - - - -!
                       !///////////////////!
                       !///////////////////!
                       !///////////////////!
                  16  ! - - - - - - - - - !
                       !///////////////////!
                       !-------------------!
                       !     3     !
                  12  !- - - - - - - - - -!
                       !///////////////////!
                       !-------------------!
                       !     2     !
                   8  !- - - - - - - - - -!
                       !///////////////////!
                       !///////////////////!
                       !///////////////////!
                   4  ! - - - - - - - - - !
                       !///////////////////!
                       !     0     !
                       !                   !
                   0   ---------------------
  
                              . 12
  
  
  
        9.2.3. 
  
  
  
            - 
   16-    18-  
    .       
           .
           -
           -
     .    -
     .     -
    ,      32  (-
   ) .  . 13 ,     
        .
  
  
 
                             - 413 -
  
  
  
  
                     
  
                         
                          
                           
                    124 -----------
                         !         !
                         .         .
                         .         .
                         .         .
                         !         !
             !         !       
              !         !       
                  !         !         
   32 -----------       !         !   32 -----------
       !         !       !         !       !         !
       !         !       !         !       !         !
       !- - - - -!   28 !- - - - -!       !- - - - -! 160000
       !         !       !---------!-----  !         !
       !         !       !         !    !  !         !
       !- - - - -!   24 !!    !  !- - - - -! 140000
       !         !       !    2    !    !  !         !
       !         !       !         !    !  !         !
       !- - - - -!   20 !---------!--- !  !- - - - -! 120000
       !         !       !         !  ! !  !         !
       !         !       !         !  ! !  !         !
       !- - - - -!   16 !- - - - -!  ! !  !- - - - -! 100000
       !         !   ----!---------!  ! !  !         !
       !         !  /    !         !  ! !  !         !
       !- - - - -! / 12 !- - - - -!  ! !  !- - - - -!  60000
   10 !---------!/      !!  ! !  !         !
       !         !       !    1    !  ! !  !         !
       !!    8 !- - - - -!  ! !  !- - - - -!  40000
       !    1    !       !         !  ! !--!---------!<---7
       !         !       !         !  !    !!
       !- - - - -!   -4-!---------!  !    !- - - - -!  20000
       !  (10)  !  /    !         !  !    !    2    !
       !         ! /     !         !  !    !  (7)   !
    0  -----------/   0  -----------  !-0-------------  0
  
                           . 13
  
    1     20000  ()  .
   ,   1    0,   -
              
   20000.
  
              -
           ,  
           -
    ,    . 14.
  
  
  
  
  
  
  
  
 
                             - 414 -
  
  
  
  
                      
                                             
                                            
                                      124 -------------------
                                           !
                                           .
                                           .
                                           .
                               !
                         !
    32 --------------------               !
        !                  !               !
        !                  !               !
        !                  !               !
        !                  !      /--------!------------------
        !                  !     /         !
        !                  !    / /----16-!------------------
        !                  !   / /         !
        !                  !  / /          !
    12 !                  ! / / /-----12-!------------------
        !------------------!/ / /          !
        !     2    ! / /           !
     8 !------------------!/-/    /----8-!------------------
        !     1    !      /        !
        !                  !     /         !
     4 !------------------!----/-------4-!------------------
        !     0    !               !
        !                  !               !
      0 ---------------------------------0--------------------
             1
                             . 14
  
  
  
        9.2.4.    ()
  
  
  
        XM-          
       (),   
      /.       
    16- :     ()
       ().    . 15.
  
                      
  
       15                       0 15                       0
      -------------------------------------------------------
      !          PA              !          P              !
      -------------------------------------------------------
                
  
                             . 15
  
                   .
              
   ,        
    .      -
      .      -
 
                             - 415 -
  
  
  
  
       .      
     0  7.      ,
      . 16.
  
                  
                   
  
         
         
           
    32 ----------------\
        !              ! \              ----------------------
        !   7  !  >  7 ----->!   PA 7   !   P 7
        !              ! /              ----------------------
    28 !--------------!<
        !              ! \              ----------------------
        !   6  !  >  6 ----->!   PA 6   !   P 6
        !              ! /              ----------------------
    24 !--------------!<
        !              ! \              ----------------------
        !   5  !  >  5 ----->!   PA 5   !   P 5
        !              ! /              ----------------------
    20 !--------------!<
        !              ! \              ----------------------
        !   4  !  >  4 ----->!   PA 4   !   P 4
        !              ! /              ----------------------
    16 !--------------!<
        !              ! \              ----------------------
        !   3  !  >  3 ----->!   PA 3   !   P 3
        !              ! /              ----------------------
    12 !--------------!<
        !              ! \              ----------------------
        !   2  !  >  2 ----->!   PA 2   !   P 2
        !              ! /              ----------------------
     8 !--------------!<
        !              ! \              ----------------------
        !   1  !  >  1 ----->!   PA 1   !   P 1
        !              ! /              ----------------------
     4 !--------------!<
        !              ! \              ----------------------
        !   0  !  >  0 ----->!   PA 0   !   P 0
        !              ! /              ----------------------
      0 ----------------/
  
                            . 16
  
  
  
        9.2.4.1.    ()
  
  
  
          0  11      -
      32- ()    
      .    .  17  
      .     12    15
   .
  
  
 
                             - 416 -
  
  
  
  
                      (PA)
  
           15       12 11                                0
          ------------!-----!-----!-----!-----!-----!------
          !           !                 !
          ------------!-----!-----!-----!-----!-----!------
  
                             . 17
  
  
  
        9.2.4.2.    ()
  
  
  
           ()     
     ,     
     . .  18      
     (   -
   ).
  
                      (P)
  
           15 14                 8  7  6  5  4  3  2  1  0
          -------------------------------------------------
          !  !                    !  !  !     !  !     !  !
          -------------------------------------------------
                                           
  
                            . 18
  
  
             ,  ,    
   ,    .   
              
        .     
     :
  
                               
  
        00              ;  
                          ;
  
        01                ;
                          
                      (XM-    );
  
        10                
                        (XM-
                         );
  
        11                 .
  
          -     .    
     ,       
   .     :
  
                              
  
 
                             - 417 -
  
  
  
  
           0            
                     ( XM-   
                     );
  
           1            
                     ( XM-   
                    ).
  
                   .
     ,     -
        (       -
   ).
  
          -    .   -
      32- .
  
  
  
        9.2.5.  16-    
               18-
  
  
  
        ,     -
    16-       18-
    ,        
       .   .  19
         .    ,   
    ,      -
   .
  
                      
  
         15    13 12                                   0
        ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!---
        !        !                                      !
        ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!---
                       
           
  
                             . 19
  
          13-15         
       .      ,  
          -
     .
  
          0  12     -
    ,        
   .
  
         ,      -
    ,          -
      .  . 20 ,
        16-  
      18-    .      
           
   5460,       157746    
     565746.
 
                             - 418 -
  
  
  
  
  
           
  
  
               15    13 12                 6 5               0
              ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--
       <1>    ! 1  1  0! 1  1  1  1  1  1  1! 1  0  0  1  1  0
              ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--
              \--/ \------------------/ \----------------
                              V                   V
                                 !                   !-------
                    <2>          !----------------------    !
     15       12 11                                0   !    !
    ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!---  !    !
    !           ! 1  0  1  1  0  0  1  1  0  0  0  0!  !    !
    ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!---  !    !
                 \---------------------------------/   !    !
                             V                         !    !
                             +<-------------------------    !
                             !                     ---------!
                     <3>     !                     !
     17                      V         6    5      V        0
    ---!--!--!--!--!--!--!--!--!--!--!--!  !--!--!--!--!--!---
    ! 1  0  1  1  1  0  1  0  1  1  1  1!  ! 1  0  0  1  1  0!
    ---!--!--!--!--!--!--!--!--!--!--!--!  !--!--!--!--!--!---
  
           <1>   -     (157746)
           <2>   -  6-    (5460)
           <3>   -     (565746)
  
                           . 20
  
           ,  13, 14  15 
    ,        -
   .      6  12  -
        0  11   
     (   ).  
          6  17 -
    .     0   5  
       0    5    ,  
    18-  .
  
  
  
        9.2.6.   
  
  
  
          ()     
      .   
   SR0    /        
   777572    ,     -
              
    .   SR2  (  
     ),          777576,  
   16-  ,      
       18-      (  
      SR2,  ,      
   ,    ).
 
                             - 419 -
  
  
  
  
        9.2.7.        
               
  
  
  
              -
            
       .    
             :
       ,      
      ( )   -
    ( ).
  
              
           .  ,
          
     , ..     
   .
  
         . 21 ,     14    15
         ,    
     .
  
        ,         ,
           
       .  
     USR      -
           -
   ,       .SYNCH  
   .FORK.
  
                -
    .    , 
        . ,
       RESET   
    NOP,   HALT    
    10.       
     ,   , 
        .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 420 -
  
  
  
  
                     
                           
  
           15 14 13 12 11        8  7     5  4  3  2  1  0
          -------------------------------------------------
          !     !     !           !        ! T! N! Z! V! C!
          -------------------------------------------------
           \---/ \---/             \------/
             !     !                  !
             !     !                  !------> 
             !     !
             !     !------------------>  
             !
             !--------------------------->  
  
                    00 =  
                    11 =  
                               /\
                              /  \
                             /    \
                            /      \
                           /        \
            (00)             (11)
        ====================         ====================
        --------------------         --------------------
        !        0      !         !        0      !
        --------------------         --------------------
        !       P 1      !         !        1      !
        --------------------         --------------------
        !        2      !         !        2      !
        --------------------         --------------------
        !        3      !         !        3      !
        --------------------         --------------------
        !        4      !         !        4      !
        --------------------         --------------------
        !        5      !         !        5      !
        --------------------         --------------------
        !        6      !         !        6      !
        --------------------         --------------------
        !        7      !         !        7      !
        --------------------         --------------------
                           . 21
  
                 
    . ,     -
       20010   
    40210,    ,        
     20010       
    40210.        -
             
      .   
          .  
   ,      
      :    -
       ,   -
        .  . 22
    ,     0    
          0;    -
          -
 
                             - 421 -
  
  
  
  
     500.      
      .
  
                
                       
  
  
                          
                        
                     124 -----------
                          !         !
                          !         !
                 !         !        
              !         !            
               !         !             
                   !         !               
    32 -----------       !         !         32 -----------
        !         !       !         !             !         !
        !         !       !         !             !         !
        !         !       !         !             !         !
        !         !       !         !             !         !
        !         !       !         !             !         !
        !         !       !         !             !         !
        !         !       !         !             !         !
     8 !         !    8 !         !          8 !         !
        !         !       !         !             !         !
        !         !       !---------!<-----\      !         !
        !         !       !/////////!       \     !         !
     4 !---------!----4-!---------!        \-4-!---------!
        !         !       !!             !         !
        !         !---->  !---------!<-----\      !         !
        !         !       !/////////!       \     !         !
     0  ----------------0------------        \-0-------------
                           . 22
  
  
  
  
  
        9.2.8.   
  
  
  
         -    ,    
      . -   -
     ,    
     .       
             
    .
  
               -
     , ..    -
            -
      .  .  12  
       .   .  23
      ,    -
   . . 13         
        4 ,  
              
 
                             - 422 -
  
  
  
  
   .
  
                                                   12
  
                     
                       
     -------------------------------------------------------
        !          !   
         !-------------------!----------------------
                 !   PA    !   P    !    PA    !    P
     -------------------------------------------------------
           7     !   7600  !  77406  !   7600   !   77406
           6     !   1400  !  77406  !   1400   !   77406
           5     !   1200  !  77406  !   1200   !   77406
           4     !   1000  !  77406  !   1000   !   77406
           3     !    600  !  77406  !    600   !   77406
           2     !    400  !  77406  !    400   !   77406
           1     !    200  !  77406  !    200   !   77406
           0     !      0  !  77406  !      0   !   77406
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 423 -
  
  
  
  
                     
                          ( )
  
                           
                            
                             
                            ----------
                            ! 777776 ! <----- 
                            ! 760000 !        /
                            !--------!
                            !        !
                 .      .        .   .
     -  - -   .        .   - - -
        -   .        .   -   
      PA    PA       !        !      PA    PA
    ---------------------   !        !   ---------------------
    ! 7600 ! 7 ! 177776 !   !        !   ! 177776 ! 7 ! 7600 !
    !      !   ! 160000 !   !        !   ! 160000 !   !      !
    ---------------------   ----------   ---------------------
    ! 1400 ! 6 ! 157776 !   ! 157776 !   ! 157776 ! 6 ! 1400 !
    !      !   ! 140000 !-->! 140000 !<--! 140000 !   !      !
    ---------------------   ----------   ---------------------
    ! 1200 ! 5 ! 137776 !   ! 137776 !   ! 137776 ! 5 ! 1200 !
    !      !   ! 120000 !-->! 120000 !<--! 120000 !   !      !
    ---------------------   ----------   ---------------------
    ! 1000 ! 4 ! 117776 !   ! 117776 !   ! 117776 ! 4 ! 1000 !
    !      !   ! 100000 !-->! 100000 !<--! 100000 !   !      !
    ---------------------   ----------   ---------------------
    !  600 ! 3 !  77776 !   !  77776 !   !  77776 ! 3 !  600 !
    !      !   !  60000 !-->!  60000 !<--!  60000 !   !      !
    ---------------------   ----------   ---------------------
    !  400 ! 2 !  57776 !   !  57776 !   !  57776 ! 2 !  400 !
    !      !   !  40000 !-->!  40000 !<--!  40000 !   !      !
    ---------------------   ----------   ---------------------
    !  200 ! 1 !  37776 !   !  37776 !   !  37776 ! 1 !  200 !
    !      !   !  20000 !-->!  20000 !<--!  20000 !   !      !
    ---------------------   ----------   ---------------------
    !    0 ! 0 !  17776 !   !  17776 !   !  17776 ! 0 !    0 !
    !      !   !      0 !-->!      0 !<--!      0 !   !      !
    ---------------------   ----------   ---------------------
                         / \          / \
                          !            !
                          !            !
                         
                         
  
                              . 23
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 424 -
  
  
  
  
                                          13
  
                   
                      
                ----------------------------------
                   !  
                  A  !---------------------
                            !   PA    !    P
                ----------------------------------
                      7     !    ?    !     0
                      6     !    ?    !     0
                      5     !    ?    !     0
                      4     !    ?    !     0
                      3     !    ?    !     0
                      2     !    ?    !     0
                      1     !    ?    !     0
                      0     !    5    !   77406
  
  
  
        9.3.  
  
  
  
              ,
           -
      .       
              
    (        LOAD).  USR
     .
  
  
  
        9.3.1.  
  
  
  
        . 24     
    -    (  -
        FB-).   -
          -
      28 , ..   (-
       28    124  )    .  
   E      ,
        ,    
   ,  USR.
  
                -
          28        
    /. USR     
         XM-.  -
             
    , ,     -
   ,      ,      
   .    0  500   
   .
  
  
  
 
                             - 425 -
  
  
  
  
                       
  
                            
                          
                 128 ------------------------
                      !              !
                      !     /     !
                 124 !----------------------!
                      !                      !
                      .                      .
                      .                      .
                      .                      .
                      !                      !
                      !                      !
                  28 !----------------------!
                      !     !
                      !            !
                      !----------------------!
                      !    !
                      !        (RMON)        !
                      !----------------------!
                      !        !
                      !             !
                      !----------------------!
                      !    !
                      !----------------------!
                      !         USR          !
                      !----------------------!
                      !   !
                      !     (KMON)   !
                      !----------------------!
                      !                      !
                      !               !
                      !       !
                      !                      !
                      !----------------------!
                      !     !
                      !----------------------!
                      !      !
                      !     (SYSCOM)    !
                      !----------------------!
                      !        !
                    0 ------------------------
  
                              . 24
  
  
  
        9.3.2.   
  
  
  
          ,       
            .
      ,     
   , ..     
            
     .     
        .    -
 
                             - 426 -
  
  
  
  
             
    .        ,
          
        
        .
  
         ,          ,
    :
  
          -      -
            ;
  
          -     ;
  
          -          
             ,  ..    
               .
  
        ,       
         ,  -
    .  ,        
        
     .
  
              -
     (  ,  -
          )  
         .
  
  
  
        9.3.2.1.   
  
  
  
        ,          
   ,       
   ,    .  -
    ,         
   .
  
           -      
   ,    32-  ()  -
   .     32-  ;  
       96 .    -
     4 .    -
         .   -
         -
            .  
     ,    
   ,   .  . 25   -
      .  ,   
             
     .
  
  
  
  
  
 
                             - 427 -
  
  
  
  
          , 
                       
  
                      
                    
           128 ------------------------
                !                      !
           124 !----------------------!
                !   2-  (4)   !
           120 !----------------------!
                !                      !
                .                      .
                .   1-  (92)  .
                .                      .
                !                      !
            28 !----------------------!
                !                      !
                !                      !
                !                      !
                !                      !
                !                      !
                !                      !
                !                      !
                !                      !
                !                      !
              0 ------------------------
  
                          . 25
  
               
       ,    "   
   ".          
            ,  
   "  ".     -
       .
  
     
    -------------------
  
         ,    
       ,    
   .    ,    
     ,  ,     -
     ,     -
      28  .    
   ,   0.  -
             -
      (    -
    ).
  
     
    --------------------
  
               ,
        ,      
               
     .   -  
       28 .  
     ,        
 
                             - 428 -
  
  
  
  
     ,       -
      .
  
  
  
        9.3.2.2.   
  
  
  
        ,          
   ,      -
   ,      .      
     ,    -
      ,    
        ,    
      .
  
           -  32   -
    ,     32-  (-
   ) . ,  ,    
     4 . ,     ,  -
      4 ,      
   32         .  
        -  ,    -
   .       ,  
      .
  
          -      -
       ,    ,  
          .    
       (     
   ,   ;     -
   ,    ).      -
    ,      ,  -
    ,       -
   .  ,   4 ,  
         .  
       ,   
     ,         (
       ,    ).
  
              
   ,     ,  
            
      . . 26 -
   ,        -
     .
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 429 -
  
  
  
  
            , 
                           
  
            
          
     -------------------------------!----------
     !    7    !                    !
     !---------!--------------------!
     !    6    !                    !   3-  (12 )
     !---------!--------------------!
     !    5    !                    !
     !---------!--------------------!----------
     !    4    !////////////////////!   
     !---------!////////////////////!    
     !    3    !--------------------!----------
     !---------!--------------------!   2-  (6 )
     !    2    !                    !
     !---------!--------------------!----------
     !    1    !                    !
     !---------!--------------------!   1-  (8 )
     !    0    !                    !
     -------------------------------!----------
                           . 26
  
                  
       ,    
    .       -
                -  
    .       -
     .
  
     
    ----------------
  
         ,       
           ,    
   .       0,
               
   .        
    , ,  ,  
        .  ,    
           
   ;          .  
      ,    0.
          
       (   
     ).
  
     
    -----------------
  
               ,
       ,      
           
    .        ,  
         . -
     , ,      
     .
  
 
                             - 430 -
  
  
  
  
        9.3.2.3.           
                  (PLAS)
  
  
  
            (PLAS) - 
       ,      
     . ..    -
   ,    ,     -
        ,    ,
        .
  
  
  
        9.3.3.   
  
  
  
         ,    , 
     :   . 
    ,       -
    .
  
  
  
        9.3.3.1.  
  
  
  
          - ,     
         -
   .          
   ;           
      500.      -
       USR,        
   /.      -
      ,    -
          ,    
    /, ..     
       .
  
         500     -
            
    (SYSCOM).     -
        0     -
   .    ,      
       ,     
     .
  
                 
          ,
      ,    . -
   ,      
          -
     32-   .      
            
      .    
     ,  ,     
   .      ,
 
                             - 431 -
  
  
  
  
             
    ,     .   -
          -
     .SETTOP    .
  
      
    ------------------------------
  
          ,        
   ,       
   10    (JSW).     
    ,       10    
   .      -
   :
  
           .ASECT
           .=44
           .WORD 2000
           .PSECT
  
      SIPP,     
    44  (      .SAV, .REL)
     .
  
  
        .     10    JSW    
    , ..   .
  
      
    ---------------------------
  
             
     R.     .SAV. 
            
   500.            (
    )   500.
  
  
                 
       500    -
     USR.      -
           ,  
     0  500.  ,    
    .  . 27     
    . .  28  ,    
                
         USR.
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 432 -
  
  
  
  
                    
                                           
                                         
                                    128 -----------------
                                         !  /  !
                                    124 !---------------!
                                         !               !
                                         !               !
                                         .               .
                             .               .
                       !               !
     32 -----------------               !               !
         !               !               !               !
         !               !           28 !---------------!
         !               !               !        !
         !               !               !     !
         ! !               !     !
         ! !               !---------------!
         !   !               !    !
         !       !               !  (RMON)!
         !    !               !---------------!
         !               !               ! !
         !               !               !      !
         !               !               !---------------!
         !               !               !      USR      !
         !               !               !---------------!----
         !               !               !      ! 
         !               !               !   ! 
         !               !  /----------->!---------------! 
         !               ! /             !               ! 
     ----!---------------!/              !               ! 
        !               !               !               ! 
        !               !               !        ! 
        !               !               !        !  
        !        !    ------>    !               !  
        !        !    !- - - - - - - -!  
        !               !               !           !  
        !- - - - - - - -!               !- - - - - - - -!   
       !           !               !    !   
       !- - - - - - - -!               !        !   
       !    !  /-------500->!---------------!----
       !        ! /             !        !
     -0-------------------/            0 -----------------
  
                              . 27
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 433 -
  
  
  
  
               
                       
  
                                           
                                         
                                    128 -----------------
                                         !  /  !
                                    124 !---------------!
                                         !               !
                                         !               !
                                         .               .
                             .               .
                       !               !
     32 -----------------\              !               !
         !   ! \             !               !
         !           !  \        28 !---------------!
         !---------------!\  \           !        !
         !               ! \  \          !     !
         !               !  \  \         !     !
         ! !   !  \        !---------------!
         ! !   !  \       !    !
         !   !   !   \      !  (RMON)!
         !       !   !    \     !---------------!
         !    !   !     !    ! !
         !               !   !     !    !      !
         !               !   !     !    !---------------!
         !               !   !     !    !      USR      !
         !               !   !     \--->!---------------!----
         !               !    \       !      ! 
         !               !     \         !   ! 
         !               !      >------->!---------------! 
         !               !     /         !               ! 
     ----!---------------!----/          !               ! 
        !               !               !               ! 
        !               !               !        ! 
        !               !               !        !  
        !        !    ------>    !               !  
        !        !    !- - - - - - - -!  
        !               !               !           !  
        !- - - - - - - -!               !- - - - - - - -!   
       !           !               !    !   
       !- - - - - - - -!               !        !   
       !    !  /-------500->!---------------!----
       !        ! /             !        !
     -0-------------------/            0 -----------------
  
                              . 28
  
        
    ---------------------------------------------
  
              -
      FRUN,     
    - SRUN.          .REL.
          -
      ,   FRUN    SRUN  
           .SAV.
     .SAV     ,    
    .REL     .
 
                             - 434 -
  
  
  
  
             
         -
      .  , USR  
     ,     -
   .       -
     1000 (     .SAV);   -
      0  500    -
       .         -
         -
     0       
   ,  ,  32 .
  
              0
             .
         -
      ,    . 29.  
    ,        ,
   ,        -
       .    -
          .
   . 29     -
      .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 435 -
  
  
  
  
            
  
                                            
                                          
                                     128 -----------------
                                          !  /  !
                                     124 !---------------!
                                          !               !
                                          !               !
                                          .               .
                              .               .
                        !               !
     32 -----------------                !               !
         !               !                !               !
         !               !            28 !---------------!
         !               !                !        !
         !               !                !     !
         ! !                !     !
         ! !                !---------------!
         !   !                !    !
         !       !                !  (RMON)!
         !    !                !---------------!
         !               !                ! !
         !               !                !      !
         !               !       /------->!---------------!---
         !               !      /         !    ! 
         !               !     /          !        ! 
         !               !    /        !- - - - - - - -! 
         !               !   /           !           ! 
         !               !  /            !- - - - - - - -! 
         !               ! /             !    ! 
     ----!---------------!/              !        ! 
        !               !          /--->!---------------! 
        !               !         /     !      ! 
        !    !        /      !        ! 
        !        !       /       !---------------! 
        !               !       /        !      USR      !
        !               !      /         !               !
        !- - - - - - - -!     /          !---------------!
       !           !    /           !      !
       !- - - - - - - -!   /            !   !
       !    !  /         500 !---------------!
       !        ! /              !        !
     -0-------------------/             0 --------------------
                              . 29
  
  
  
        9.3.3.2.  
  
  
  
            XM- -  -
   .  ,    ,  
   10        . -
    ,   -,  
    ,      RM/SJ/FB-.
            28
          /.    
 
                             - 436 -
  
  
  
  
      .
  
          (    -
   )         .
   ,         
     ()  .    ,
            -
    .
  
               32  
       ,  -
             :    
   /  -      
      -    KMON.  -
          -
   ,        .
   , ,        
   /    ,     -
     /,   .
  
         ,   " "  
   " "     -
   . ,       
   . ,       
        ,      -
    .
  
               -
     ,   -
   ,        
   ,  .       
     ,    -
     .
  
              
   ,       
          -
   .      ,  
    .
  
                
     ,    ,  
      ,   
       , -
    /        ,  
       .   -
     ,          
   ,      
    .
  
      
    ---------------------------------
  
                   
      R  RUN. . 30  -
        .
  
  
  
 
                             - 437 -
  
  
  
  
                  
  
                                           
                                         
                              /--------->----------------- 128
                             /           !       !
                            /      ! /  !
               / /--------->!---------------! 124
        / /           !               !
    32 -----------------/ /            .               .
        !               ! /             .               .
        !               !/              !               !
    28 !---------------!/-------------->!---------------!  28
        !               !                !        !
        !               !                !     !
        !               !                !     !
        !               !                !---------------!
        !               !                !    !
        !               !                !  (RMON)!
        !               !                !---------------!
        !               !                ! !
        !               !                !      !
        !               !                !---------------!
        !               !    ------>     !      USR      !
        !               !     !---------------!
        !               !                !               !
        !               !                !               !
        !---------------!                !---------------!
        !               !                !               !
        !               !                !               !
        !        !                !        !
        !        !                !        !
        !               !                !               !
        !- - - - - - - -!                !- - - - - - - -!
        !           !                !           !
        !- - - - - - - -!                !- - - - - - - -!
        !               !                !        !
      0 -------------------------------->----------------- 0
  
                           . 30
  
        
    ---------------------------------------------------
  
               
      FRUN,    -
            SRUN.
   . 31        
      .
  
  
  
  
  
  
  
  
  
  
 
                             - 438 -
  
  
  
  
               
                      
  
                                           
                                         
                              /--------->----------------- 128
                             /           !       !
                            /      ! /  !
               / /--------->!---------------! 124
        / /           !               !
    32 -----------------/ /            .               .
        !               ! /             .               .
        !               !/              !               !
    28 !---------------!/-------------->!---------------!  28
        !               !                !        !
        !               !                !     !
        !               !                !     !
        !               !                !---------------!
        !               !                !    !
        !               !                !  (RMON)!
        !               !                !---------------!
        !               !                ! !
        !               !                !      !
        !---------------!                !---------------!
        !               !                !               !
        !               !                !               !
        !    !                !    !
        !        !                !        !
        !               !    ------>     !               !
        !- - - - - - - -!     !- - - - - - - -!
        !           !                !           !
        !---------------!                !---------------!
        !               !                !      !
        !               !                !        !
        !               !                !---------------!
        !               !                !      USR      !
        !               !                !---------------!
        !               !                !      !
        !               !                !   !
        !               !                !---------------!
        !               !                !        !
      0 -------------------------------->----------------- 0
  
                        . 31
  
  
  
        9.3.3.3.               
                  
  
  
  
         . 14  ,    
      .
  
  
  
  
  
 
                             - 439 -
  
  
  
  
                                                    14
  
           
    ----------------------------------------------------------
      !          ! 
                    !              !      
    ----------------------------------------------------------
        ! 1                   ! 0
    10  JSW        !                     !
                    !                     !
      !   -! 32 . 
     - !       !   28  
     -  !    !    -
      !            !   /
                    !                     !
          ! 32  .   ! 32   .   
      !      !     
        !   !   -
             !    !    
                    !    !    
                    !  32           ! (, 
                    !                     ! ), 
                    !                     !      
                    !                     !    -
                    !                     !    -
                    !                     !    
                    !                     ! 28 . -
                    !                     !    -
                    !                     !      
                    !                     !   
                    !                     !   -
                    !                     !   -
                    !                     !  
                    !                     !
        !   !   
                    !  - !    
                    !    !   SJ-
                    !       ! FB-
                    ! ;   !
                    !    !
                    !     !
                    !        !
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 440 -
  
  
  
  
                                         . 14
  
           
    ----------------------------------------------------------
      !          ! 
                    !              !      
    ----------------------------------------------------------
                    !                     !
           !  :    !   :
           !         R           !      R/RUN
                    !      (.SAV)         !     (.SAV)
                    !  :! 
                    !     FRUN/SRUN       !    FRUN/SRUN
                    !    (.REL, .SAV;     !      (.REL)
                    !  .SAV- -!
                    ! )               !
                    !                     !
         !   - !  -
                !   0  !  
                    !        !
                    !       !
                    !                     !
         !  :    !  -
             !   -!  
                    !    500 !
                    !      !
                    ! USR;                !
                    !  :!
                    !   -!
                    !   0  !
                    !   - !
                    !                !
                    !                     !
      ! 7    ! 7 (1 
                !                 ! )
                    !                     !
      ! 3    ! 3 (1 
            !              ! )
  
  
  
        9.3.3.4.   
  
  
  
         ,    ,  
         ;    
         , 
           .
       .
  
            -   
     ,  . -
   ,     
     .
  
                ,  
     . ,    
        , 
 
                             - 441 -
  
  
  
  
     .        
             
     ;        
     .    -
     .CNTXSW,        -
    .     ,
   ,   ,      
     .
  
             ,  -
   ,     -  .  
         -
    .      
     28      /. ,
    ,     KMON.  
   ,      .
  
            , 
        ,  
       .        
       ,    
   ,        
   ,         
        .
  
           - ,     
     .    -
          ,    
     .          
         ,    
            -
    .        
          .  
        -
   ,       .
  
  
  
        9.4.    
  
  
  
               ,  
            
    .
  
  
  
        9.4.1.   
  
  
  
         28      ,
    , USR,  ,   
        .   -
      ,    
     ,     -
    (   )   .
  
 
                             - 442 -
  
  
  
  
         , ,   -
    (    )    JMP  -
      .      
           -
      .   ,    
     ,      
        /.
  
             /V  
             .
   KMON       ,  
        .   -
       .  . 32   
     ,     
    .     -
              
   LINK.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 443 -
  
  
  
  
                 
                        
  
                                          
                                        
                                        ----------------- 128
                                        !       !
                                        !  / !
                                        !---------------! 124
                                !               !
                                        !---------------!----
                                        !     ! 
                                        !    4   ! 
                                        !---------------! 
                                        !     ! 
                                        !    3   !  
                                     /->!---------------!  
                                     !  !     !  
                                    /   !    2   !  
                                   /    !---------------!  
                      /     !     !  
               /      !    1   !  
    32 -----------------       /     ->!---------------!---
        !               !      /     /  !               !
        !               !     /     /   .               .
        !               !    /     /    .               .
        !               !   /     /     !               !
        !               !  /     /      !---------------! 28
        !               ! /     /       !     !
    ----!---------------!/     /        !        !
        !               !     /         !---------------!----
        !     !    /          !               ! 
    <1> !    1   !   /           !               ! 
        !    !  /            !               ! 
        !         ! /             !               ! 
    ----!---------------!/    /-------->!---------------! 
        !               !    /          !       ! 
    ----!---------------!---/           !        ! 
       !       !               !---------------! 
       !        !               !        ! 
       !---------------!               !      !  
       !        !               !        !  
       !      !               !---------------!   
       !        !               !           !   
       !---------------!               !---------------!   
      !           !               !    !   
      !---------------!               !        !   
      !    !     /-------->!---------------!-500-
      !        !    /          !        !
    ------------------------/           -----------------
  
         <1> -    4- 
  
                           . 32
  
  
  
  
  
 
                             - 444 -
  
  
  
  
        9.4.2.          
                
  
  
  
         ,         
      , -,    -
     ,      .
   -, ,    
          -
        .  
   ,       
    ,       
   . . 33    (  -
       .SETTOP    
       ).
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 445 -
  
  
  
  
                  
                         
  
                                          
                                        
                                        ----------------- 128
                                        !       !
                                   !  / !
                      --------->!----------124-!----
                                        !               !
                                        !               !
                                        !---------------!
                                  !               ! <2>
                      --\       !               !
                               /-\----->!---------------!
                              /   \     !               !
                             /     \    !               !
                /  /----\-->!----------112-!----
         /  /         !               !
     32 -----------------/  /          .               .
         !   !  /           .               .
         !           ! /            !               !
     28 !---------------!/             !---------------! 28
         !               !              !               !
         !             !              !     !
         !   !              !        !
         !               !              !               !
         !               !              !---------------!----
         !               !              !               ! 
         !               !              !               ! 
         !               !  /---------->!---------------! 
         !               ! /            !        !  
     ----!---------------!/             !        !  
         !        !              !- - - - - - - -!  
         !        !              !           !  
         !- - - - - - - -!              !---------------!  
     <1> !           !              !    !  
         !---------------!              !        !  
         !    !  /---------->!-----------500-!---
         !        ! /            !        !
     --0------------------/             ----------------- 0
  
            <1> -      
            <2> -  
  
                           . 33
  
  
  
        9.4.3.  
  
  
  
            -    
      . , -
      ,    -
      .     
       : ,  
      ,      
 
                             - 446 -
  
  
  
  
   ,   /.   -
      ,   
    ,          .
     ,      ,     
   ,       -
      .    
   ,  .  . 34   -
    .
  
               
     .          
        -   .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 447 -
  
  
  
  
          
  
                                          
                                        
                                        ----------------- 128
                                        !       !
                                        !  / !
                                        !---------------!
                                        .               .
                                        .               .
                                        !---------------!---
                                        !   ! 
                                        !      #4       ! 
                                /------>!---------------! 
                               /        !   ! 
                              /         !      #3       !  
                             /  /------>!---------------!  
                /  /        !   !  
         /  /         !      #2       !  
    -32------------------/  /          !---------------!  
         ! !  /           !   !  
     <1> !   ! /            !      #1       !  
     ----!---------------!/             !---------------!-28-
         !               !              !               !
         !               !              !               !
         !               !              !     !
         !             !              !        !
         !   !              !               !
         !               !              !---------------!---
         !               !              !               ! 
         !               !  /---------->!---------------! 
         !               ! /            !         !  
     ----!---------------!/             !            !  
         !     !              !- - - - - - - -!  
         ! !              !           !  
         !- - - - - - - -!              !---------------!  
     <2> !           !              !    !  
         !---------------!              !        !  
         !    !  /---------->!-----------500-!---
         !        ! /            !        !
     --0------------------/             ----------------- 0
  
              <1> -  
              <2> -   
  
                           . 34
  
  
  
        9.4.4.     
  
  
  
               -
       .    RM/SJ/FB-  
             
          .SETTOP.
          
       .SETTOP,      
 
                             - 448 -
  
  
  
  
          FRUN/BUFFER:N.  
            
    28  .
  
           -    
      ,    28 .   -
     ,     -
      .     -
         -
   ,            -
     177776 (32 ),    
    .SETTOP.  ,   
   .SETTOP,    .   -
              
       FRUN/BUFFER:N.
  
  
        .        -
    ,   .SETTOP,    -
         XM-,  
   "    .SETTOP"  (  ".SETTOP   
   XM-").   .SETTOP,      
    ,   "  -
    .SETTOP" ( " .SETTOP").     -
       .LIMIT.
  
  
  
        9.4.4.1.  .SETTOP  XM-
  
  
  
              .SETTOP      
   XM-     .    
     ,     -
      .SETTOP    /V
   .     XM-  
    .LIMIT ( ),   -
      (VHANDL)        
       .    /V
       LINK/PROMPT.
  
                   
      ,     /O  -
   ,          XM-   
   .SETTOP,    LINK/XM.   /XM
      .SETTOP    
    .LIMIT.      
          
        .
  
          .LIMIT        
          .  -
      ,      
   .SETTOP   ,    -
    ,   .LIMIT    
   .            
   ,   -    
   .SETTOP  .
 
                             - 449 -
  
  
  
  
        9.4.4.2.   
  
  
  
             .SETTOP  
        , -
         .  .
   35     . 
            -
    ,    /O   
   /V .     -    
    ,    -
        (/O)    ,  
    .    -      -
    ,        (/V)
    ,  32 ()    2
   (            
    76).          
   NNNNNN     :
  
    VIRTUAL HIGH ADDRESS = NNNNNN = DDDDD.WORDS,
                                 NEXT FREE ADDRESS = MMMMM
  
  
            ()  
   .  ,      
    .SETTOP,     -
   ,    4 .     ,  
     -         -
     ,        
   ,  ,  2.    -
    4  (     
     20000).
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 450 -
  
  
  
  
                
                      
  
                        
                     
                    -------------------- 32
                    !                  !
                    .      .
                    .        .
            ---->!     .SETTOP      !     4-
    ( 4)    !------------------!<--- 
                    !                  !
                    !------------------!<--- 
                    !   !      
                    !       !     ( 32,-2)
                    !     (/V)   !
                    !------------------!<--- 
                    !   !      
                    !           !
                    !     (/)   !
                    !------------------!
                    !          !
                    !           !
                    !------------------!
                    !              !
                    !                  !
                    !------------------!
                    !       !
                    !           !
                    --------------------
  
                          . 35
  
        ,       
       55076.   -
     ()  ,      -
   60000,        4-  -
     .     -
      "NEXT FREE ADDRESS".    -
      .
  
    VIRTUAL HIGH ADDRESS = 055076 = DDDDD.WORDS,
                                    NEXT FREE ADDRESS = 060000
  
               ,
         ,   -
      .       -
            ,  
    /O,      MMMMMM.
        (    
      ).
  
    TRANSFER ADDRESS = NNNNNN,HIGH LIMIT = MMMMMM = DDDDD.WORD
  
  
  
  
  
  
 
                             - 451 -
  
  
  
  
        9.4.4.3.   .SETTOP
  
  
  
                     
   XM-    .SETTOP,  
            
   .
  
           ,      
     , .SETTOP  ,     
       RM/SJ/FB-.     
           
      ,    
     . ,  -
    .SETTOP,     , -
       28  .
  
              -
   ,   ,    (  -
   ,    ..)    -
    .  ,   ,   
        .        
    ,    ,     -
     .
  
          - ,    
            
   ,        
   (/O)   .     
   ,       ,
         .SETTOP.       
   .SETTOP    28  .
         -
   ,        
            
   .         
    (..         
         ),  
    .SETTOP          
    LINK/XM   /V    -
       .    
       ,  
        -
    .
  
               
   ,        ,
             
   .          ,
       .
  
  
  
  
  
  
  
  
 
                             - 452 -
  
  
  
  
        9.4.4.4.   .SETTOP
  
  
  
          .SETTOP    -
      ,       
     .
  
            .SETTOP   
         
    ,       
   ,     .  -
   , ,    ,   
      .SETTOP  -
      .
  
            
   .SETTOP    .SETTOP   -
   :           .SETTOP   
   XM-      -
    .LIMIT.  ,    -
   ,     .    ,
          4-  .
    .SETTOP      4-
    .
  
           (   ),
          0  2
    .  0  VIR   RADIX-50.
    2      2,  -
             
   .
  
     .LIMIT
    ----------------
  
             RM/SJ/FB-    -
     XM-     
   .SETTOP,  .LIMIT    
   ( LINK):
  
          -   ,   
            ( 0);
  
          -    +2 (,  1644+2  
            1646).
  
           ,            
   XM-      .SETTOP,
    .LIMIT   :
  
          -   ,   
            ( 0);
  
          -     (    4-
            ),       
             +2.
  
  
 
                             - 453 -
  
  
  
  
        
    ---------------------------------------------
  
               
     (/V)     4  K  
     .     
    .      
              -
    .        -
          .
            ,
       .SETTOP,  -
     4- .   ,    
           -
       .   
         .   .
   36        (/O) 
     (/V) .
  
            
  
                        
                     
                    -------------------- 32
                    !                  !
                    .      .
                    .        .
     (60000)     !     .SETTOP      !
    (       !                  !
    4-      !                  !
    )  ---->/!//////////////////!-12
        < !//////////////////!
                   \!//////////////////!<--- 
                    !                  !      
                    !                  !     ( 32,-2)
                    !   !
                    !       !
     4-     !    (/V)    !
       ---->/!//////////////////!-8
                  / !//////////////////!
       <  !//////////////////!
                  \ !//////////////////!
                   \!//////////////////!<--- 
                    !                  !      
                    !   !
                    !           !
                    !     (/)   !-4
                    !------------------!
                    !          !
                    !           !
                    !------------------!
                    !              !
                    !                  !
                    !------------------!
                    !       !
                    !           !
                    -------------------- 0
  
                           . 36
 
                             - 454 -
  
  
  
  
        9.4.4.5. .SETTOP   
  
  
  
            
   .SETTOP ,        USR,
    ,       -
       .       
    ,   ,   -
      ,        
            .  
   ,        -
      SYSLOW  (  USR).  
   .SETTOP        
    2   50    R0.     
     .
  
           ,    -
      ,     ,  -
      .SETTOP.     
       28  .    
           
   ,       -
     2 (-2).   ,     ,
      .SETTOP,     4
    ,       -
    .SETTOP  ,   .  
          -
       4  .
  
      
    ---------------------------------
  
         . 37     
      .      ,
         
      .SETTOP.      
        .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 455 -
  
  
  
  
             
  
  
                                       
                                     
                                /---->--------------- 128
                                !     !     !
                                !     ! /!
                                !  /->!-------------! 124
                                !  !  !             !
                                !  !  .             .
                    /  !  .             .
             /   /  !             !
           32 ---------------/   /   !-------------!
               !             !   //-->!  -!
               !             !  / !   !  - !
               !             ! /  !   ! !
           28 !-------------!/---!/->!-------------! 28
               !             !    !!  ! .!
               !             !    !!  !   !
               !             !    1!  !-------------!
               !             !    !!  !    RMON     !
               !             !--->!!  !-------------!
               !             !    !!  ! -!
               !             !    !!  ! !
               !             !    !!  !-------------!
    .SETTOP    !             !    !!  !     USR     !
    #-2    --->!-------------!----!!->!-------------!<--SYSLOW
               ! !    !!  !    !
               !!    !!  ! !
               !   .SETTOP !    !!  !!
      ----->!             !    /!  !   .SETTOP !
    .SETTOP -->!/////////////!-8/-!->!/////////////!\-- 8
    #0         !/////////////!  /  /  !/////////////! \
     -->!/////////////!-/  /   !/////////////!  \
    ! -!   /    !/////////////!   > <1>
        !  - !  /     !/////////////!  /
               ! ! /      !/////////////! /
               !/////////////!-4---->!/////////////!/-- 4
               !/////////////!        !             !<--- <2>
     -->!/////////////!------->!-------------!
        ! -!        ! -!
      !  - !        !  - !
               !   !        !   !
               !       !        !       !
               !-------------!        !-------------!
               !         !        !         !
               !             !        !             !
               !-------------!        !-------------!
               !  !        !      !
               !      !        !             !
             0 ---------------------->--------------- 0
  
           <1> -      
           <2> -    
  
                           . 37
  
  
 
                             - 456 -
  
  
  
  
      
    -------------------------------------
  
               -
        USR.     -
       .SETTOP.
  
        ,   ,  -
            
   .   ,       
     /V    (  LINK/FOREGROUND/PROMPT,   
   LINK/FOREGROUND/XM),   XM-  -
      .SETTOP   .LIMIT.
  
  
  
        9.4.4.6. .SETTOP   
  
  
  
             200000,   -
             ,
       7.  -
     177776   50   R0.
  
         .SETTOP      
        ( 4  -
   ),       -
    .    , 
        (   
    ,      .SETTOP).
                  
   .        
      50   R0.       
           
     ,        
        50   R0.
  
        ,    .SETTOP -
       ,  
    4       -
        . -
     ,       .
        31 () -
   .
  
            .SETTOP   
      , .SETTOP  -
        2   50   
   R0.       ,  -
      /V ,      ,
      .SETTOP.
  
         ,     
      -  .
  
         ,     
   .SETTOP, ,        
     2,         2  
 
                             - 457 -
  
  
  
  
    50   R0     ,    
   (    ).   -
    .SETTOP    .  
     ,   
      .
  
           , -,  
     .SETTOP    
    ,          ,
    .       -
    .SETTOP    ( ,  
     ,  ).  ,  
       .SETTOP    
     .
  
           ,    
    .SETTOP,     .SETTOP  
      , ,   ,    
    ,  .         
    ,       .  
          -
      .
  
      
    ---------------------------
  
         .SETTOP  XM-    -
          
   .         
            ,  
        .   .
   38    .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 458 -
  
  
  
  
                  
  
                                       
                                     
                                      --------------- 128
                                      !     !
                                      ! /!
                                      !-------------! 124
                                      !             !
                                      .             .
                                      .             .
                                  /-->!-------------!
                                 /    ! !
                    /     !   !
             /      !   .SETTOP   !
    .SETTOP -->--32----------/  /--->!-------------!
     #-2       !             !   !    !      !
               !             !   !/-->!     !
               !             !   !!   !  !
               ! !   !!   !       !
               !!   !!/->!-------------! 28
               !  .SETTOP  !   !!!  ! .!
               !             !   !!!  !   !
               !             !   !!!  !-------------!
               !             !   !!!  !    RMON     !
               !             !   !!!  !-------------!
               !             !   /!!  ! -!
               !             !  / /!  ! !
               !             ! / / !  !-------------!
     ------>!/////////////!/ /  !  !     USR     !
               !/////////////! /   !  !-------------!----
     -->!/////////////!/    /  !    ! 
    !      !    /   !.! 
        !     !   /    !     ! 
               !   !  /     !   ! 
    (4-!       ! /      !    ! 
    )-->!/////////////!/     ->!-------------! 
               !/////////////!     /  ! -! 
               !/////////////!    /   !  - ! 
     -->!/////////////!---/    !   ! 
       ! -!        !       !  
    -      !  - !        !- - - - - - -!  
        !   !        !         !   
              !       !        !             !   
              !- - - - - - -!        !- - - - - - -!   
              !         !        !  !   
             !             !        !      !   
             !- - - - - - -!   /--->!---------500-!----
             !  !  /     !      !
             !      ! /      !             !
           -----0------------/       ------------0--
  
                           . 38
  
  
      
    -------------------------------
  
         .SETTOP   ,   
 
                             - 459 -
  
  
  
  
   ,    .   -
            
      FRUN/BUFFER:N   -
    .SETTOP.     .SETTOP  ,  
   /BUFFER .       
        .  . 39  
             
      .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 460 -
  
  
  
  
              
  
                                       
                                     
                                      --------------- 128
                                      !     !
                                      ! /!
                                      !-------------! 124
                                      !             !
                                      .             .
                                      .             .
                                  /-->!-------------!
                                 /    ! !
                    /     !   !
             /      !   .SETTOP   !
    .SETTOP -->--32----------/  /--->!-------------!
     #-2       !             !   !    !      !
               !             !   !/-->!     !
               !             !   !!   !  !
               ! !   !!   !       !
               !!   !!/->!-------------! 28
               !   .SETTOP !   !!!  ! .!
               !             !   !!!  !   !
               !             !   !!!  !-------------!
               !             !   !!!  !    RMON     !
               !             !   !!!  !-------------!
               !             !   !!!  ! -!
               !             !   /!!  ! !
               !             !  / /!/>!-------------!----
               !             ! / / !! ! -! 
     ------>!/////////////!/ /  !! !  - ! 
               !/////////////! /   !! !   ! 
     -->!/////////////!/    /! !       ! 
    !      !    / ! !-------------! 
        !     !   /  ! !         ! 
               !   !  /   ! !             ! 
    4- !  (/V) ! /    ! !-------------! 
     -->!/////////////!/     / !  ! 
               !/////////////!     /  !      ! 
               !/////////////!    / />!-------------! 
     -->!/////////////!---/  ! !    !
       ! -!      ! !      !
    -      !  - !      ! !-------------!
        !   !      ! !     USR     !
              !  (/) !      ! !-------------! 
              !-------------!      / !    ! 
              !         !     /  ! ! 
             !             !    /   !             ! 
             !-------------!   /    !---------500-! 
             !  !  /     !      ! 
             !      ! /      !             ! 
           -----0------------/       ------------0-----
  
                           . 39
  
  
  
  
  
 
                             - 461 -
  
  
  
  
        9.4.4.7.  .SETTOP
  
  
  
        . 40  41,   . 15  16    
           
   .SETTOP.  . 40  "" -   ;  
      ()      SYSLOW  
    USR.  "" -  ;     -
      SYSLOW.     -
         .SETTOP.
        . 15  16     .
   41.
  
                
            .SETTOP   
  
               ""                  "B"
  
      -------32-----------            -----------32-------
           !  / !            !  / !
           !--------------!            !--------------!
           !  RMON, USR,  !            !  RMON, USR,  !  (4)
           !   !            !   !
      (4)  !   ,   !            !   ,   !
           !              !     --->!- - - - - - - !-----
           !   ,  !(4- !   ,  !
           !     !   ) !     !  (3)
           !       !            !       !
      -----!--------------!<--SYSLOW-->!--------------!-----
      (3)  !              !            !              !
           !              !            !              !
      -----!- - - - - - - !<---     !              !  (2)
      (2)  !              !(4- !              !
           !              !   ) !              !
      -----!--------------!<--\    /-->!--------------!-----
           !      !    \  /    !      !
           !       !     !       !
      (1)  !      !     !      !  (1)
           !       !   !       !
           !        !            !        !
      ---------------------            ---------------------
                   
                           . 40
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 462 -
  
  
  
  
                                                    15
  
                
            .SETTOP   
    ----------------------------------------------------------
     !            !   
    -   !                !       
      !------------------------------------------------
    .SETTOP  !              .SETTOP
             !------------------------------------------------
             !    !!    !
    ----------------------------------------------------------
        ""
          .SETTOP
       (1)   !    (1)    !   -2   !    (1)    !   -2
       (2)   !    (2)    !   -2   !    (2)    !   -2
       (3)   !    (3)    !!    (3)    !   (3)
             !           !   (3) * !           !
       (4)   ! SYSLOW-2  !! SYSLOW-2  ! SYSLOW-2
             !           !   (4) * !           !
       #0    !     0     !   -2   !     0     !   -2
      #-2    ! SYSLOW-2  !! SYSLOW-2  ! SYSLOW-2
             !           !   32 * !           !
        "B"
          .SETTOP
       (1)   !    (1)    !   -2   !    (1)    !   -2
       (2)   !    (2)    !   -2   !    (2)    !   -2
       (3)   ! SYSLOW-2  !   -2   ! SYSLOW-2  !   -2
       (4)   ! SYSLOW-2  !! SYSLOW-2  !   -2
             !           !   (4) * !           !
       #0    !     0     !   -2   !     0     !   -2
      #-2    ! SYSLOW-2  !! SYSLOW-2  !   -2
             !           !   32 * !           !
  
       * -  ;  , 
               
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 463 -
  
  
  
  
                 
            .SETTOP   
  
  
                    -----------------------
                    !          !<----- 
                    !               !       ( 4)
                    !---------------------!
  
                ----!---------------------!
                    !             !
                (2) !    /     !
                    !---------------------!
                    !        RMON         !
                ----!---------------------!<---- BUFF
                    ! !
                (1) !    .FRUN/BUFFER   !
                    !---------------------!<---- OHIGN
                    !   !
                ----!---------------------!<----  0
                    !    USR,     !
                    !---------------------!<---- SYSLOW
                    !      !
                    !              !
                    !---------------------!
                    !      !
                    !       SYSCOM        !
                    -----------------------
  
                           . 41
  
  
                                                    16
  
               
                  .SETTOP
    ----------------------------------------------------------
         !  .SETTOP   
     !--------------------------------------------
      .SETTOP    !                !    
    ----------------------------------------------------------
        (1)      !          (1)          !      A-2
        (2)      !  OHIGH  BUFF !      A-2
        #0       !           0           !      A-2
        #-2      !  OHIGH  BUFF !   32
  
  
  
        9.4.5.   
  
  
  
             
   ,     -
    .     -
    .SETTOP,        -
   .         ,
               /V
   ,      .
 
                             - 464 -
  
  
  
  
              
   ,   ,    -
         -
   ,    .     
        /,    -
      .        
         .   -
           -
   ,        -
    ,        .
  
  
  
        9.5.    
  
  
  
                  
      ,   ,  -
     ,     
     ,   , 
   .            
   ,     , -
    ,      -
      . ,     -
             
   ,   .     
      .     
     ,      .  
            
      .            
   .   ,     
    ,     
    ,      .
  
         . 17      -
     .          -
    ,      -
   .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 465 -
  
  
  
  
                                                     17
  
                
                        
    ----------------------------------------------------------
                    !          
    ----------------------------------------------------------
         !             .RDBDF
           !            .RDBBK
             !
                            !
      !             .RDBBK
          !
                     !
                            !
             !             .CRRG
                            !
      !       -
                     !  .CRRG    -
                            !     
                            ! (     -
                            !  )
                            !
        !             .WDBDF
       - !             .WDBBK
                   !
                            !
      !             .WDBBK
           !
                            !
                !             .CRAW
                            !
           !     -
                  !  .CRAW  
                            !      (
                            !     )
                            !
        - !    
         ! R.GID      
            ! W.NRID   
                            !
       - !              .MAP
     ()            !
                            !
       - !  WS.MAP    -
     ()          !          
                            !  W.NRID  -
                            !    .CRAW.  
                            !             
                            !    
                            !
      - !             .GMCX
       !
                            !
       !             .UNMAP
    ()                  !
  
  
  
 
                             - 466 -
  
  
  
  
                                           . 17
    ----------------------------------------------------------
                    !          
    ----------------------------------------------------------
       !     .MAP
    ()                !        
                            ! .        
                            !     ,    
                            ! ,     -
                            ! ,    
                            !
              !    .ELAW
                            !
           !    .ELRG
  
  
  
        9.6.  
  
  
  
        ,      ,  -
            .
             
   ,      -
   .          
   .   ,     
    ,  .    -
          .
             
   ,    ,      
    .   ,      -
     ,       
    .      
    .      /  
          .
   ,         ,
        .
  
  
                 -
    .
  
  
  
        9.6.1.   
  
  
  
            -        
     ,        
   ,    .  -
              ,  
     .CRRG  .ELRG.   -
              
         ,    
      .        
           .    
           -
 
                             - 467 -
  
  
  
  
        .  ,
            ,  
     . ..    -
    ,        
    0. . 42  .  18    
     .
  
                       
                      --------------------
                      !      R.GID       !
                      --------------------
                      !      R.GSIZ      !
                      --------------------
                      !      R.GSTS      !
                      --------------------
  
                            . 42
  
  
                                                    18
                       
    ----------------------------------------------------------
    !  !!         
     ()!        !           !
    ----------------------------------------------------------
       0    ! R.GID  !  !     
            !        !   ! .     
            !        !.CRRG      !      .
            !        !           !   -
            !        !           !    -
            !        !           !      
            !        !           !     .
            !        !           !
       2    ! R.GSIZ !-!     
            !        ! .RDBBK  ! 32-     ()
            !        ! -  ! 
            !        ! -!
            !        !   !
            !        !           !
       4    ! R.GSTS !  !   
            !        !   !
            !        !.CRRG      !
  
  
  
        9.6.1.1.   
  
  
  
                -
   .  . 19      
    .   0  12 .
  
  
  
  
  
  
  
 
                             - 468 -
  
  
  
  
                                                    19
  
                      
    ----------------------------------------------------------
      !     !  !   
         !        !         !           
    ----------------------------------------------------------
     15  ! RS.CRR !    100000    !        
         !        !              ! .     .CRRG
         !        !              !       ;
         !        !              !  .ELRG  
         !        !              !
     14  ! RS.UNM !     40000    !       
         !        !              !     
         !        !              !    .  -
         !        !              !   .ELRG  
         !        !              !     
         !        !              !
     13  ! RS.NAL !     20000    ! 
  
  
  
        9.6.1.2.  .RDBDF
  
  
  
         .RDBDF     -
       .     
               
     .  ,   -
       ,  
   :
  
           R.GLGH = 6
  
               -
    .   .RDBDF :
  
           .RDBDF
  
          .RDBDF :
  
           R.GID  = 0
           R.GSIZ = 2
           R.GSTS = 4
           R.GLGH = 6
           RS.CRR = 100000
           RS.UNM = 40000
           RS.NAL = 20000
  
  
  
        9.6.1.3.  .RDBBK
  
  
  
         .RDBBK    .RDBDF.  
           ,    
       (   .RDBDF).  -
 
                             - 469 -
  
  
  
  
           -
       .       
   .RDBBK,     .RDBDF,  ..  .RDBBK
     .RDBDF.
  
          .RDBBK :
  
           .RDBBK RGSIZ
    
  
   RGSIZ  -     32- (-
            ) .
  
               .RDBBK
            4
    (4   200 32-  ).  
    .
  
    RGADR: .RDBBK  200                 ; 
           .CRRG   #ARGBLK,#RGADR      ; 
  
  
  
        9.6.2.   
  
  
  
           -      
      ,      .
           
     .      
          
     .  ,  
        ,   -
         .
  
         . 43     .  20      
    .   .ELRG      
   .
  
                   
  
                   -------------------
                   !     R.BADD      !
                   -------------------
                   !     R.BSIZ      !
                   -------------------
                   ! R.BNWD ! R.BSTA !
                   -------------------
  
                         . 43
  
  
  
  
  
  
  
  
 
                             - 470 -
  
  
  
  
                                                     20
  
                       
    ----------------------------------------------------------
    !  !!       
     ()!        !           !
    ----------------------------------------------------------
       0    ! R.BADD !  !      ,
            !        !   !       32-
            !        !.CRRG      ! 
            !        !           !
       2    ! R.BSIZ !  !    32-
            !        !   ! .    -
            !        !.CRRG      !  0,      
            !        !           !  
            !        !           !
       4    ! R.BSTA !  !       0,
            !        ! -!        
            !        !; -  !    OK
            !        !           ! .SETTOP.    -
            !        !           !     1,  
            !        !           ! R.STOP,       
            !        !           ! 
  
  
  
        9.6.3.   
  
  
  
           -       -
    ,     -
     .       .CRAW,
   .ELAW, .GMCX  .MAP,        
       .  ,    -
     ,    
               
   .       
    .        
            
     .  . 44   . 21  -
      .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 471 -
  
  
  
  
                       
  
                   -----------------------
                   !  W.NAPR  !  W.NID   !
                   -----------------------
                   !       W.NBAS        !
                   -----------------------
                   !       W.NSIZ        !
                   -----------------------
                   !       W.NRID        !
                   -----------------------
                   !       W.NOFF        !
                   -----------------------
                   !       W.NLEN        !
                   -----------------------
                   !       W.NSTS        !
                   -----------------------
  
                           . 44
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 472 -
  
  
  
  
                                                    21
  
                       
    ----------------------------------------------------------
    !  ! !      
     ()!        !            !
    ----------------------------------------------------------
       0    ! W.NID  !   !    
            !        !    ! .    
            !        !.CRAW       !  , 
            !        !            !  0
            !        !            !
       1    ! W.NAPR !!      
            !        !.WDBBK;     ! ,   -
            !        !   !   .  -
            !        !    !  ,   -
            !        ! .GMCX      !      
            !        !            ! 4 .   . 22  
            !        !            !   -
            !        !            !       
            !        !            !  . 
            !        !            !   
            !        !            !     
            !        !            !   0    7.  
            !        !            !    
            !        !            !    
            !        !            !   .   
            !        !            !    -
            !        !            !       
            !        !            ! W.NAPR,    -
            !        !            !  .GMCX    -
            !        !            !  ,  -
            !        !            !   -
            !        !            !      ,
            !        !            !   
            !        !            !
       2    ! W.NBAS !   !    
            !        !    ! .    
            !        !.CRAW      !     ,
            !        !.GMCX       !   W.NAPR,   -
            !        !            !  .  -
            !        !            !    32-  -
            !        !            !  ,   -
            !        !            !  
            !        !            !
       4    ! W.NSIZ !!  ,   
            !        !.WDBBK;     ! 32- 
            !        !   !
            !        !    !
            !        !.GMCX       !
            !        !            !
       6    ! W.NRID !!  ,   -
            !        !.WDBBK;     !     .
            !        !   !   .GMCX   -
            !        !    !  0,      
            !        !.GMCX       ! ,  
            !        !            !  ,  
            !        !            !   .
  
 
                             - 473 -
  
  
  
  
                                          . 21
  
                       
    ----------------------------------------------------------
    !  ! !      
     ()!        !            !
    ----------------------------------------------------------
            !        !            !   0     
            !        !            ! ,    -
            !        !            !       -
            !        !            ! 
            !        !            !
       10   ! W.NOFF !!  (  32-
            !        !.WDBBK;     !   )
            !        !   !  ,    -
            !        !    !   
            !        !.GMCX       ! .    -
            !        !            ! ,    .GMCX
            !        !            !    ;  
            !        !            !      
            !        !            ! 
            !        !            !
       12   ! W.NLEN !!    
            !        !.WDBBK;     !  32- .  
            !        !   !    
            !        !    ! 0 (  -
            !        !.MAP  .GMCX!  .CRAW    -
            !        !            !   WS.MAP), -
            !        !            !  .MAP  
            !        !            !        ,
            !        !            !   
            !        !            !   .   -
            !        !            !    -
            !        !            !    .MAP    
            !        !            !   -
            !        !            !      W.NLEN.
            !        !            !     
            !        !            !  ,  
            !        !            ! ,  .MAP 
            !        !            !  .   
            !        !            ! , .GMCX  
            !        !            !  ;    -
            !        !            !     
            !        !            ! 
            !        !            !
        14  ! W.NSTS !!   . 
            !        !.WDBBK;     !   , -
            !        !   !  .GMCX   
            !        !    ! ;    -
            !        !.CRAW, .ELAW!  1  WS.MAP
            !        ! .GMCX     !
  
  
  
  
  
  
  
  
 
                             - 474 -
  
  
  
  
                                      22
  
            
               
       ------------------------------------------
           !   
                      !   
       ------------------------------------------
                0-17776      !        0
            20000-37776      !        1
            40000-57776      !        2
            60000-77776      !        3
           100000-117776     !        4
           120000-137776     !        5
           140000-157776     !        6
           160000-177776     !        7
  
  
  
        9.6.3.1.   
  
  
  
             . -, 
     .CRAW      
     ,     1   8. -
   ,         
       .  . 23  
         .   0   7  
    9  12 .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 475 -
  
  
  
  
                                                   23
  
                       
    ----------------------------------------------------------
      !     !!    
         !        !         !           
    ----------------------------------------------------------
      8  ! WS.MAP !    400     !    .CRAW   
         !        !            !      
         !        !            !  .    -
         !        !            !     
         !        !            !       -
         !        !            !  .WDBBK.    -
         !        !            !    W.NRID
         !        !            !     -
         !        !            !  .CRAW
         !        !            !
     13  ! WS.ELW !   20000    !    
         !        !            !        
         !        !            !  .  
         !        !            ! .CRAW  .ELAW    -
         !        !            !   
         !        !            !
     14  ! WS.UNM !   40000    !    
         !        !            !     -
         !        !            !    .   
         !        !            ! .CRAW  .ELAW    -
         !        !            !    .  
         !        !            ! .MAP   .UNMAP  
         !        !            !     ( -
         !        !            !   )
         !        !            !
     15  ! WS.CRW !  100000    !     .
         !        !            !   .CRAW  -
         !        !            !   , 
         !        !            ! .ELAW  
  
  
  
        9.6.3.2.   .WDBDF
  
  
  
         .WDBDF     -
       .    -
             
    .  ,    
        :
  
           W.NLGH = 16
  
         ,   .WDBDF  -
        .    
   .WDBDF :
  
           .WDBDF
  
         .WDBDF    -
   :
 
                             - 476 -
  
  
  
  
           W.NID   = 0
           W.NAPR  = 1
           W.NBAS  = 2
           W.NSIZ  = 4
           W.NRID  = 6
           W.NOFF  = 10
           W.NLEN  = 12
           W.NSTS  = 14
           W.NLGH  = 16
           WS.CRW  = 100000
           WS.UNM  = 40000
           WS.ELW  = 20000
           WS.MAP  = 400
  
  
  
        9.6.3.3.   .WDBBK
  
  
  
         .WDBBK    .WDBDF,    
               
    (   .WDBDF).   .WDBBK  
       ,     .
        
        .  -
          
    ,      .CRAW.
      .WDBBK,        
   .WDBDF, .. .WDBBK    .WDBDF.  
   .WDBBK :
  
           .WDBBK WNAPR,WNSIZ[,WNRID,WNOFF,WNLEN,WNSTS]
    
  
   WNAPR  -     ( 0  7), -
                .   ,
                  4  ;  
            . 22     -
                ;
  
   WNSIZ  -    32- () ;
  
   WNRID  -  ,    
            ;      ;     
                ,   
             ;
  
   WNOFF  -   ,     -
              ,    32-  (-
            ) ;    ;  
            ,     
            ;        -
            ,        -
            ;
  
   WNLEN  -   ,      ,  
            32- ()  (  -
            );  ,    
 
                             - 477 -
  
  
  
  
            ;       ,
                      
               ;
  
   WNSTS  -    ( ); 
            ,        
            ,         
            .CRAW;     8,    WS.MAP,
              .CRAW    
            .
  
             .WDBBK
       . -,   -
     ""        32  
   .       ,  
       .
  
                  
   ,   2  .        
   120000,       
    .  .CRAW        
          .    
     ,   2     
     .CRAW          
   .  ,        
       ,   
       .CRAW.
  
    .
  
             .MCALL  .WDBBK, .RDBBK, .CRRG,  .CRAW,  .EXIT
             KMMU    =  1024./32.  ;    32 
    START:  .CRRG   #AREA,#RGADR   ; 
            ;       .
            ;       .
            ;       .
            MOV     RGADR+R.GID,WNADR+W.NRID ; ID
                                   ;   
            .CRAW   #AREA,#WNADR   ; 
                                   ;  
            ;       .
            ;       .
            ;       .
            .EXIT                  ; 
            .LIST   MEB
     RGADR: .RDBBK  2*KMMU         ;  
                                   ;
     WNADR:  .WDBBK  5,2*KMMU,,2*KMMU,0,WS.MAP  ; 
                                   ; 
     AREA:   .BLKW   2             ;  EMT
             .END    START
  
  
  
  
  
  
  
  
 
                             - 478 -
  
  
  
  
        9.6.4.   
  
  
  
           -     -
     ,    .    -
            
    .      
          -
    .  ,    
      ,       
      .  . 45     .  24
       .
  
                  
  
               -----------------------
               !       W.BRCB        !
               !---------------------!
               !       W.BLVR        !
               !---------------------!
               !       W.BHVR        !
               !---------------------!
               !       W.BSIZ        !
               !---------------------!
               !       W.BOFF        !
               !---------------------!
               !  W.BNPD  !  W.BFPD  !
               !---------------------!
               !       W.BLPD        !
               -----------------------
  
                       . 45
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 479 -
  
  
  
  
                                                   24
  
                      
    ----------------------------------------------------------
     !  !     !      
     () !        !                !
    ----------------------------------------------------------
        0    ! W.BRCB !    !    -
             !        ! .MAP; -   !   
             !        !  .UNMAP ! ,    
             !        !      !    .
             !        !                !   W.BRCB = 0,  
             !        !                !   
             !        !                !
        2    ! W.BLVR !    !     
             !        ! .CRAW          !  
             !        !                !
        4    ! W.BHVR !    !    
             !        ! .MAP           !  
             !        !                !
        6    ! W.BSIZ !    !        32-
             !        ! .CRAW; -  !   ()
             !        !  .ELAW  ! .  
             !        !      ! = 0,       
             !        !                !   -
             !        !                ! 
             !        !                !
       10    ! W.BOFF !    !   , 
             !        ! .MAP           !      
             !        !                !    (
             !        !                ! 32- 
             !        !                ! )
             !        !                !
       12    ! W.BFPD !    !     
             !        ! .CRAW          !   -
             !        !                !  , -
             !        !                !        
             !        !                ! 
             !        !                !
       13    ! W.BNPD !    !    -
             !        ! .MAP           !  ,  -
             !        !                !       
             !        !                ! 
             !        !                !
       14    ! W.BLPD !    !  
             !        ! .MAP           !      
             !        !                ! ,     
             !        !                !      
  
  
  
        9.6.5.   /
  
  
  
         XM-    /    10
   ,    RM/SJ/FB-,   
    /  7 .
  
 
                             - 480 -
  
  
  
  
        9.6.6.   
  
  
  
           ,  -
     ,     -
           .  
      10 ()   .  
      $XMSIZ.      -
     XMSUBS.       -
           -
    ,   32- () .
            -
   ,   100 ().      
    1.
  
                
    .         -
     .     
   1600.          ,
            ,
     .     -
       ,      
    .      -
            
    .
  
              -
   ,       -
       .       
        .
  
  
  
        9.7.   
  
  
  
                -
         
   .
  
  
  
        9.7.1.   - .CRRG
  
  
  
         :
  
           .CRRG AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
 
                             - 481 -
  
  
  
  
                      !--------!--------!
         R0 => AREA:  !   36   !    0   !
                      !--------!--------!
                      !     ADDR        !
                      !-----------------!
  
          .CRRG        
    .
  
           .CRRG    R.GSIZ  
     ,    ,  -
       (    1  
   96 ).    ,    -
      10  52 .
  
                     
   .         ,  
       6  52 .
  
              ,  
      '   .
      '     -
    96 .      
        .  -
      7  52 ,       -
      .    ,  R0  
         .    
   '     .CRRG.  
      ,  ,  
       '  .    
       .CRRG    -
     R0.
  
          ,   
   .      R.GID 
     .    RS.CRR    
    ,  R.BSTA  R.BNWD   -
         R.BADD   R.BSIZ, -
         . 
           
       .
  
  
  
        9.7.2.   - .CRAW
  
  
  
         :
  
           .CRAW AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
 
                             - 482 -
  
  
  
  
                      !---------!--------!
         R0 => AREA:  !   36    !    2   !
                      !---------!--------!
                      !       ADDR       !
                      !------------------!
  
              
    .CRAW.  .CRAW  W.NAPR   
       .   .CRAW
      0  52 ,     -
          -
   .
  
        ,     W.NAPR,    
       W.NBAS,     -
     .
  
             W.NSIZ      
   ,    ,    
    (    32  ).  -
       0  52 ,  
     .
  
           WS.ELW, WS.UNN  WS.CRW  
    .
  
          ,     -
    .       
    ,     
    0.   ,     
    ,      .
      ,     -
   .  .CRAW  WS.ELW   -
    ,       .  
    WS.UNM, E       
    .
  
        ,       -
    .     1,  
       .
  
           ,   -
      .    -
     W.BSIZ, W.BLVR  W.BFPD        ;
       W.NID     
   WS.CRW    .
  
         WS.MAP        
     .CRAW,       
     ,         
     (. 9.7.3).
  
  
  
  
  
  
  
  
 
                             - 483 -
  
  
  
  
        9.7.3.     - .MAP
  
  
  
         :
  
           .MAP AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
  
                      !--------!--------!
         R0 => AREA:  !   36   !   4    !
                      !--------!--------!
                      !      ADDR       !
                      !-----------------!
  
         .MAP       -
             .
          ,
       .
  
           .MAP    -
    ,   ,    -
   .     W.NID    
    3,      .
  
                
   ,       .  -
       2,   -
     -   .
  
             ,      
    .     W.NOFF  -
     .          
   ,      4.
  
           ,    -
   .      W.NLEN      
   .    ,    -
         .     '
    ,  ,     
   ,     W.NLEN.   W.NLEN   -
     ,  ,    -
      .MAP,     
    .   W.NLEN       
      .MAP,       
    ,    .      
   ,   ,         
    ,       
   4.
  
         .MAP  R.BNWD     
   ,     , -
 
                             - 484 -
  
  
  
  
      .
  
                 -,  
          WS.UNM    
    ;         
   WS.UNM.
  
        ,        
          ,
       .
  
              
     W.BRCB, W.BHVR, W.BOFF, W.BNPD  W.BLPD.
  
  
  
        9.7.4.   - .GMCX
  
  
  
         :
  
           .GMCX AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
  
                      !--------!--------!
         R0 => AREA:  !   36   !   6    !
                      !--------!--------!
                      !      ADDR       !
                      !-----------------!
  
         .GMCX     -
       .  -
      .GMCX      
    .   ,  
   0,        -
    .        -
    0.     , -
       3.
  
          W.NAPR     ,
         W.BLVR   
   .      -
    .        W.NBAS,
   W.NSIZ  W.NRID    .
  
              ,   
    W.NOFF, W.NBAS  W.NSTS    . 
    ,        
   W.NOFF,     W.NLEN     
   WS.MAP    .
  
 
                             - 485 -
  
  
  
  
        9.7.5.    - .UNMAP
  
  
  
         :
  
           .UNMAP AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
  
                      !--------!--------!
         R0 => AREA:  !   36   !   5    !
                      !--------!--------!
                      !      ADDR       !
                      !-----------------!
  
          .UNMAP         
   .     .UNMAP    -
      .    
       - ,   -
      3.         
   ,     5.  
           
    .    W.BRCB      
      R.BNWD    .
  
          ,     
    ,    .   -
               
     .
  
          ,    -
         -
   ,      -
      .
  
            WS.UNM   -
    .
  
  
  
        9.7.6.   - .ELRG
  
  
  
         :
  
           .ELRG AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
 
                             - 486 -
  
  
  
  
   ADDR   -    .
  
           EMT:
  
                      !--------!--------!
         R0 => AREA:  !   36   !   1    !
                      !--------!--------!
                      !      ADDR       !
                      !-----------------!
  
         .ELRG    -
     .
  
           .ELRG ,    
      .   
      ,   - 
   ,      .    
        .    
        2.
  
        ,      
   .        -
    ,     2.
  
           RS.CRR  RS.UNM     -
    .   - ,   
    ,      -
    RS.UNM.
  
          ,   
        .  -
        .
  
  
  
        9.7.7.   - .ELAW
  
  
  
         :
  
           .ELAW AREA[,ADDR]
  
   
  
   AREA   -    EMT   ;
  
   ADDR   -    .
  
           EMT:
  
                      !--------!--------!
         R0 => AREA:  !   36   !   3    !
                      !--------!--------!
                      !      ADDR       !
                      !-----------------!
  
              
   .    .ELRG,  .ELAW  
 
                             - 487 -
  
  
  
  
           .  
    W.NID    .    
        - , -
       3.
  
          .ELAW   WS.CRW    WS.NUM  
     .     ,  
         WS.UNM. -
     ,  W.BSIZ      
   . ,       WS.ELW  
     .
  
  
  
        9.7.8.  
  
  
  
         . 25      ,  -
        52 .  
   . 26 ,        
    .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 488 -
  
  
  
  
                                                    25
  
                
                          
    ----------------------------------------------------------
        !                 
    52 !
    ----------------------------------------------------------
       0    !   .   
            !  W.NAPR  7   
            !
       1    !           
            ! .  ,    
            !      ,
            !          
            !     .     
            !   - ,  -
            !       
            !   
            !
        2   !       -
            ! 
            !
        3   !          -
            ! 
            !
        4   !          ,
            !     ,  
            !
        5   !           
            !
        6   !       
            !   ,       
            !          
            !       
            !    .      
            ! -        
            !  ,     
            !       -
            ! .  ,     
            !     .SETTOP   XM-
            !     
            !
        7   !           
            !   .  
            !      R0,   
            !  
            !
       10   !    .   
            !   96   
  
  
  
  
  
  
  
  
  
 
                             - 489 -
  
  
  
  
                                         26
  
                             
                 -----------------------------------
                               !     
                   !--------------------
                               ! 0 1 2 3 4 5 6 7 10
                 -----------------------------------
                    .CRRG      !             * * *
                    .CRAW      ! * *
                    .MAP       !     * * *
                    .GMCX      !       *
                    .UNMAP     !       *   *
                    .ELRG      !     *
                    .ELAW      !       *
  
  
  
  
        9.8. 
  
  
  
        XM-     -
     .         
        .
  
  
  
        9.8.1.    1
  
  
  
         XM- "    "    
     1   . ,   
   1,     EM   -
   .
  
        ..    1,     -
        20000    37777    
       .  -
       ,  -
     1,    -
    :
  
        1)   ,     -
    .CDFN     28  ;
  
        2)   ,   -
    .QSET,     28   -
   ;  ,        -
     20000  37777;   ,      
     10 () ;
  
        3)      
    28  ;  ,      
             
   20000  37777;   2     -
   ,     ,      
 
                             - 490 -
  
  
  
  
      ;    
      ,    
      ,      
          /;  -
           /    XM-
      2  .
  
                 ,
             
    ,     
      /,        
     XM-.
  
  
  
        9.8.2.   
  
  
  
              
        .     
    :
  
                        
        -------------------------------------------------
  
           .CDFN            ,     
                           ,  
                             28  ;
  
           .QSET                  
                                   
                              28    .
                                
                                   
                           10 () ;
  
           .CNTXSW               
                              ,
                           ..         .
  
  
  
        9.8.3.    2
  
  
  
          MQ       ,
       2.  
    MQ,   1     
     ,     2  (  
     40000  57777).
  
  
  
  
  
  
  
 
                             - 491 -
  
  
  
  
        9.8.4.   
  
  
  
           -    -
   ,      -
     .  ,    TRAP,  
    ,      -
   . ,      ,
       10,   
    .      -
    PS  PC   ,     -
     PS  PC.  . 27    -
        .
  
                                                   27
                  
    ---------------------------------------------------------
      !          
    ---------------------------------------------------------
         4  !        
            ! -   
            !
        10  !       -
            ! 
            !
        14  !   ;     -
            !  - ODT
            !
        20  !  / ( IOT)
            !
        34  !  TRAP;    -
            !   
            !
       114  !   ;    
            !  
            !
       244  !  FPU;     
            !   
            !
       250  !   ;     -
            !       -
            ! ,      
  
  
         -     ,  
     ,   PS  PC    -
       .  ,  
      BPT,  PS  PC -
       14   16.      ,
           
     ,    14  
         14.    
   ,         
    .     -
         ,
      500,    0.  ,    
      14        
    14.
 
                             - 492 -
  
  
  
  
              -
      ,     
    PC  PS   .     -
    ,  XM-      
    .
  
  
  
        9.8.4.1.  TRAP, BPT  IOT
  
  
  
           ,         
   XM-,   TRAP, BPT  IOT, -
        . -
             (.
   . 27)   . ,  ,  
        , 
     ,      PS  
   PC ,      -
   .   -      -
            
    ,    PC. 
          
   .       
   ; ,        
    ,       
   .          
     ,     -
          -
      .
  
              -
   ,         -
    .     .
  
  
  
        9.8.4.2.  4, 10  FPU
  
  
  
             
   4  10   FPU,     
          .   
   .TRPSET  .SFPA     -
         ,    
          -
   .     -  ,
      FB-.  ,    -
            
   ,       -
     .       
    ,    -
          -
        ,      
   .TRPSET,   .SFPA.
  
  
 
                             - 493 -
  
  
  
  
        9.8.4.3.   
  
  
  
             ,    
      ,       
    .       
       ,    -
   .       -
    ,       
       PS  PC   
    .      -
     ,   .    
             ,  
    :
  
           ?MON-F-MMU FAULT
  
      .      ,  
          
     ( 250  252)    
    .    ,
           
     ,     .
  
  
  
        9.8.4.4.   
  
  
  
                 
          .  
         
     .      
   ,         
    ,         
   .
  
         ,      ,
          
      .  ,   -
            -
    114  116. ,       
      114  116,    
          
   ,    PS  PC.
  
                  
      0,  
  
          ?MON-F-MEM ERR
  
     .
  
          ,    
           
         114  116.
  
 
                             - 494 -
  
  
  
  
        9.9.  
  
  
  
              -
       XM-     -
    VDT.      RM/SJ/FB-, 
      .
  
        VDT.OBJ   ODT.OBJ;  
     ,     .  
     VDT  ,    ODT.
  
        VDT        
    ,  ODT.    ODT,    -
       7           
   /  , VDT       -
   ,    ,   -
        .TTYIN      .TTYOUT      
   /  .
  
        .. VDT   .TTYIN  .TTYOUT,  
           .  -
    VDT          
   (JSW),          
   -     .      
    JSW    $J/;    
    .
  
        VDT   ,      
    .       VDT,
          .      
     ,   ,    
    /.   
     VDT,      ,      
    .
  
  
  
        9.10.  
  
  
  
   ;             
                   .TITLE  XMCOPY
                   .ENABL  LC
           ;    
           ;.     
           ; .    
           ;4-    .
           .NLIST  BEX
           .MCALL  .UNMAP, .ELRG,  .ELAW,  .CRRG,  .CRAW,  .MA
           .MCALL  .PRINT, .EXIT,  .CLOSE, .CSIGEN,.READW, .WR
           .MCALL  .RDBBK, .WDBBK, .TTYOUT,.WDBDF, .RDBDF
           JSW     =  44           ;   JS
           J.VIRT  =  2000         ;  
                                   ; JSW
           ERRBYT  =  52           ; 
           APR     =  2            ;/   
 
                             - 495 -
  
  
  
  
           APR1    =  4            ;/   
           BUF     =  WDB+W.NBAS   ;  
                                   ;
           BUF1    =  WDB1+W.NBAS  ;  
                                   ;
           CORSIZ  =  4096.        ;   
           PAGSIZ  =  CORSIZ/256.  ;   
           WRNID   =  WDB+W.NRID   ;  
           WRNID1  =  WDB1+W.NRID  ;  
           .ASECT
  
           .= JSW
           .WORD   J.VIRT          ;  
           .PSECT                  ; 
           .WDBDF                  ;   
           .RDBDF                  ;  
  
   START:: .CSIGEN #ENDCRE,#DEFLT,#0  ; 
                                   ;,   
                                   ;
           BCS     START           ;  
           INCB    ERRNO           ;ERR = 1X
           .CRRG   #CAREA,#RDB     ; 
           BCC     10$             ; 
           JMP     ERROR           ;  
   10$:    MOV     RDB,WRNID       ; ID   
                                   ; 
           INCB    ERRNO           ;ERR = 2X
           .CRAW   #CAREA,#WDB     ; 
           BCC     20$             ; 
           JMP     ERROR           ;  
   20$:    INCB    ERRNO           ;ERR = 3X
           .MAP    #CAREA,#WDB     ;  
           BCC     30$             ; 
           JMP     ERROR           ;  
   30$:    CLR     R1              ;R1 -    /
           MOV     #CORSIZ,R2      ;R2 -    
           INCB    ERRNO           ;ERR = 4X
   READ:   .READW  #RAREA,#3,BUF,R2,R1  ; 4-
                                   ;
           BCC     WRITE           ; 
           TSTB    @#ERRBYT        ;  ?
           BEQ     PASS2           ;,  
           JMP     ERROR           ; ,
                                   ;  
   WRITE:  MOV     R0,R2           ;R2 -  
           .WRITW  #RAREA,#0,BUF,R2,R1  ; 
                                   ;
           BCC     ADDIT           ; 
           INCB    ERRNO           ;ERR = 5X
           JMP     ERROR           ;  
   ADDIT:  ADD     #PAGSIZ,R1      ; 
                                   ;, 
           BR      READ            ;   
   PASS2:  INCB    ERRNO           ;ERR = 6X
           .CRRG   #CAREA,#RDB1    ; 
           BCC     35$             ; 
           JMP     ERROR           ;  
   35$:    MOV     RDB1,WRNID1     ; ID  
 
                             - 496 -
  
  
  
  
                                   ;  
  
   ;**      .CRAW, **
   ;**     .MAP **
           INCB    ERRNO           ;ERR = 7X
           .CRAW   #CAREA,#WDB1    ; , 
                                   ; .MAP
           BCC     VERIFY          ; 
           JMP     ERROR           ;  
   VERIFY::INCB    ERRNO           ;ERR = 8X
           CLR     R1              ;R1 -  
   GETBLK: MOV     #CORSIZ,R2      ;R2 = 4 ( )
           .READW  #RAREA,#3,BUF1,R2,R1  ; 4 
                                   ; 
           BCC     40$             ; 
           TSTB    @#ERRBYT        ;  ?
           BEQ     ENDIT           ; , 
           JMP     ERROR           ;   
   40$:    MOV     R0,R2           ;R2 -  
           .READW  #RAREA,#0,BUF,R2,R1  ;  
                                   ;  
           BCC     50$             ; 
           INCB    ERRNO           ;ERR = 9X
           JMP     ERROR           ;  
   50$:    MOV     BUF,R4          ;  
                                   ;
           MOV     BUF1,R3         ;  
                                   ;
   70$:    CMP     (R4)+,(R3)+     ;,  
                                   ;
           BNE     ERRDAT          ;,   
           DEC     R2              ; ?
           BNE     70$             ;,  
           ADD     #PAGSIZ,R1      ;  
           BR      GETBLK          ;  
                                   ;
   ENDIT:  .PRINT  #ENDPRG         ;  
                                   ;
   XCLOS:  .CLOSE  #0              ;  
           .UNMAP  #CAREA,#WDB     ;   
  
           .ELAW   #CAREA,#WDB     ;   
  
           .ELRG   #CAREA,#RDB     ;  
           .ELRG   #CAREA,#RDB1    ; 
                                   ;   
                                   ; 
           .EXIT                   ; 
  
   ERROR:  MOVB    @#ERRBYT,R0     ;   
                                   ;,
           ADD     #'0,R0          ;  -7,
           MOVB    R0,ERRNO+1      ;   
           .PRINT  #ERR            ;   
           BR      XCLOS           ;  
                                   ; 
   ERRDAT: .PRINT  #ERRBUF         ;   
                                   ;
           BR      XCLOS           ;  
 
                             - 497 -
  
  
  
  
                                   ; 
   RDB:    .RDBBK  CORSIZ/32.      ; 
                                   ; 
   WDB:    .WDBBK  APR,CORSIZ/32.  ; 
                                   ; 
   RDB1:   .RDBBK  CORSIZ/32.      ;  
                                   ;  
   WDB1:   .WDBBK  APR1,CORSIZ/32.,0,0,CORSIZ/32.,WS.MAP
                                   ;  
   CAREA:  .BLKW   2.              ;  EMT
   RAREA:  .BLKW   6
   DEFLT:  .WORD   0,0,0,0         ;   
   ENDPRG: .ASCIZ  /*   COPY */
   ERR:    .ASCII  %?      / %
   ERRNO:  .ASCIZ  /00/
   ERRBUF: .ASCIZ  /?     ?/
   ENDCRE  = .
           .END    START
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 498 -
  
  
  
  
                                                  1
  
  
  
  
                (TS)
  
  
  
  
         ,    
   TS-,     ,
    ,     -
    ""  ( 177),   -   
    . ,   "",  -
    ,    .
  
           :
  
   A      -         
             (  <DEL>  <CTRL/U>);
  
   B      -                  
            <ESC>-;
  
   C      -                  
            <ESC>-;
  
   D      -      (    
            <CR>);
  
   P      -       (
            <CR>);
  
   E      -  -      (  
            );
  
   F      -  -  ;
  
   H      -           
            ;
  
   I      -    ;
  
   J      -    ;
  
   K      -   "" -;
  
   L      -   "" -;
  
   M      -  ""    ;
  
   N      -     ;
  
   O      -     ;
  
   Q      -       -
            ;
  
 
                             - 499 -
  
  
  
  
   R      -     ;
  
   S      -    ;
  
   T      -    ;
  
   U      -    ;
  
   V      -    ;
  
   W      -  ""  ;
  
   X      -    ;
  
   Y      -  -  <LF>  <CR>;
  
   Z      -  -  <LF>  <CR>.
  
             -
            .  
           -
       .   -
          .CHAIN.
  
              1.    (A)
  
               ,
       <DEL> TS-    
         -
     <BS><BLANK><BS>.    
     .        
     <CTRL/U>,    .
  
         ,        
         ,  ,
   "_" (),        ,  
         .    
    ,     -
   :
  
           <BS>< ><BS>
  
               
     :
  
            < ><A><->.
  
          2.   ESC- (B,C)
  
               
    (    ).   
      <ESC>-, -
           33  ()  -  
   <ESC>. B-  TS-    
      <ESC>-.    
   - <ESC>-   ,  
      .
  
        C-     <ESC>-  -
 
                             - 500 -
  
  
  
  
        ,  ..    
   <ESC>-    TS-  
    .
  
        C-    .
  
            3.     (D)
  
            TS-     -
    ,   ,      
    , , <CR>.    D-  -
           
     (   <CR>).
  
              -
       :
  
           < ><D>< >
  
      ,     -
   ,    TS-.
  
          ,       '
    ,  <DEL>, <CTRL/U>, <CTRL/C>   ..
         -   -
   ,       .      
    ,   ,   -
   .
  
          <CTRL/C>      ,
    TS-       -
       .
  
          <CR>      ,  
   TS-   -       
     <LF>     ,    
   .
  
                4.  - (E, F)
  
        E-    - -
   ,    (     -
   ).
  
        F-   -  ,    
   .
  
         5.      (H)
  
        H-       
     .
  
                 6.    (I, J)
  
        I-          (,
      137    )  
   . J-     -
      , ..     -
    40 ().
 
                             - 501 -
  
  
  
  
  
             7.   - (K, L)
  
        K-   TS-      ""
   - ,   .     
           ,
        .   -
     ,     .
  
        L-   "" -, ..
    TS-      -,
           -
   .
  
                8.  ""  (M)
  
        M-   "" .  
     TS-      ,  
        /  .    
            
    7- .
  
  
        .  ,    "-
   "  ,          
         KMON.
  
               9.     (N, O)
  
                 
   ,   ,       
   ,     . , 
       ,    
    ,      ,  
      .
  
        N-         
       . O-    -
     ,            
    .
  
                 10.    (P)
  
        P-        
   D-.       
   ,       D-.
  
        P-         ,
         D-.
  
           11.      (Q)
  
        Q-       -
    ,        
   (      ).      
   :< ><Q><>,    ""
    ,       -
     .
  
 
                             - 502 -
  
  
  
  
            ,        
   ,        
     .        
   .  ,     
      Q-.
  
             12.    (R)
  
        R-    TS-    
     .      -
           
       .       
         
    ,    .
  
         ,   ,    
     .      <CTRL/C>,   <CTRL/U>,
   <CTRL/W>  T..
  
               
         D-.    
         
       .
  
                
    ,   ,   
        ""  ,  
         .
  
                13.    (S)
  
        S-         
        12    -
     (JSW).
  
              
      R  RUN   /SINGLECHAR.
  
             14.    ()
  
        T-      S-    
        (  <CR>).
  
                15.     (U)
  
        U-       -
        6        
   (JSW).        
          -
    .TTINR   "C"    .
  
          SET TT NOWAIT,      -
      /SINGLECHAR   .
  
             16.     (V)
  
        V-        
      (    ).  -
    V-   Q-.
 
                             - 503 -
  
  
  
  
           Q-,      
   ,    , V- -
     ,     -
    ()   .
  
             17.    (W, X)
  
        W-  TS-    
   ,  X-     .
      ,  ,  -
        <CTRL/S>   <CTRL/Q>
        .
  
            TS-   -
    :
  
          -   <CTRL/S>,         
             (   ,   10  -
            );
  
          -  <CTRL/Q>,     -
            ,       <CTRL/S>.
  
                 
    "SET TT TAPE",   - "SET TT NOTAPE".
  
           18. -  <LF>  <CR> (Y, Z)
  
        Y-  -  <LF>    
    <CR>,    .    -
    -   <CR>  <LF>.
  
        Z-   Y-    -
      -  <LF>  <CR>.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 504 -
  
  
  
  
                                                  2
  
  
  
  
                     
  
  
  
  
               -
    .     ,   
         -
   .   :
  
   +      -      -
            ;
  
   *      -      -
             ;
  
   U      -     USR  
                ;
  
   W      -        
            USR  ;   RM-  
                     
              ;
  
   -      -    NOP;
  
   A      -         
            ;
  
   (1)    - ,    ;
  
   (2)    - ,         
                .
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
                             - 505 -
  
  
  
  
    ----------------------------------------------------
    , !  -   !  !        
    -  !    ! EMT !------------------------
       !           !     ! RM ! SJ ! FB ! XM ! TS
    ---------!-----------!-----!----!----!----!----!----
       1     !     2     !  3  !  4 !  5 !  6 !  7 ! 8
    ---------!-----------!-----!----!----!----!----!----
  
    ICLOSE   ! .CLOSE    ! 374 ! +U ! +U ! +U ! +U ! +U
  
    IDELET   ! .DELETE   ! 375 ! *U ! +U ! +U ! +U ! +U
  
    IENTER   ! .ENTER    ! 375 ! *U ! +U ! +U ! +U ! +U
  
    IRENAM   ! .RENAME   ! 375 ! *U ! +U ! +U ! +U ! +U
  
    LOOKUP   ! .LOOKUP   ! 375 ! *U ! +U ! +U ! +U ! +U
  
    IRCVD    ! .RCVD     ! 375 !  A !  A !  + !  + !  A
  
    IRCVDC   ! .RCVDC    ! 375 !  A !  A !  + !  + !  A
  
    IRCVDF   !           !     !  A !  A !  + !  + !  A
  
    IRCVDW   ! .RCVDW    ! 375 !  A !  A !  + !  + !  A
  
    IREAD    ! .READ     ! 375 !  + !  + !  + !  + !  +
  
    IREADC   ! .READC    ! 375 !  + !  + !  + !  + !  +
  
    IREADF   !           !     !  + !  + !  + !  + !  +
  
    IREADW   ! .READW    ! 375 !  + !  + !  + !  + !  +
  
    ISDAT    ! .SDAT     ! 375 !  A !  A !  + !  + !  A
  
    ISDATC   ! .SDATC    ! 375 !  A !  A !  + !  + !  A
  
    ISDATF   !           !     !  A !  A !  + !  + !  A
  
    ISDATW   ! .SDATW    ! 375 !  A !  A !  + !  + !  A
  
             ! .TTYIN    ! 340 !  * !  + !  + !  + !  +
  
    ITTINR   ! .TTINR    ! 340 !  * !  + !  + !  + !  +
  
             ! .TTYOUT   ! 341 !  * !  + !  + !  + !  +
  
    ITTOUR   ! .TTOUTR   ! 341 !  * !  + !  + !  + !  +
  
    IWAIT    ! .WAIT     ! 374 !  + !  + !  + !  + !  +
  
    IWRITC   ! .WRITC    ! 375 !  + !  + !  + !  + !  +
  
    IWRITE   ! .WRITE    ! 375 !  + !  + !  + !  + !  +
  
  
  
  
 
                             - 506 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    IWRITF   !           !     !  + !  + !  + !  + !  +
  
    IWRITW   ! .WRITW    ! 375 !  + !  + !  + !  + !  +
  
    MWAIT    ! .MWAIT    ! 374 !  A !  A !  + !  + !  A
  
    PRINT    ! .PRINT    ! 351 !  * !  + !  + !  + !  +
  
    ICDFN    ! .CDFN     ! 375 !  *W!  +W!  + !  + !  -
  
    ICHCPY   ! .CHCOPY   ! 375 !  A !  A !  + !  + !  A
  
    ICSTAT   ! .CSTAT    ! 375 !  A !  A !  + !  + !  +
  
    IFREEC   !           !     !  + !  + !  + !  + !  +
  
    IGETC    !           !     !  + !  + !  + !  + !  +
  
    ILUN     !           !     !  + !  + !  + !  + !  +
  
    IREOPN   ! .REOPEN   ! 375 !  + !  + !  + !  + !  +
  
    ISAVES   ! .SAVESTATU! 375 !  + !  + !  + !  + !  +
  
    PURGE    ! .PURGE    ! 374 !  + !  + !  + !  + !  +
  
    IASIGN   !           !     !  + !  + !  + !  + !  +
  
    ICSI     ! .CSISPC   ! 345 !  *U!  +U!  +U!  +U!  +U
  
             ! .CSIGEN   ! 344 !  *U!  +U!  +U!  +U!  +U
  
    CVTTIM   !           !     !  + !  + !  + !  + !  +
  
    GTIM     ! .GTIM     ! 375 !  + !  + !  + !  + !  +
  
    ICMKT    ! .CMKT     ! 375 !  * !  * !  + !  + !  +
  
             ! .SDTTM    ! 375 !  + !  + !  + !  + !  +
  
    ISHED    !           !     !  * !  * !  + !  + !  +
  
    ISLEEP   !           !     !  - !  - !  + !  + !  +
  
    ITIMER   !           !     !  * !  * !  + !  + !  +
  
    ITWAIT   ! .TWAIT    ! 375 !  - !  - !  + !  + !  +
  
    IUNTIL   !           !     !  - !  - !  + !  + !  +
  
    JTIME    !           !     !  + !  + !  + !  + !  +
  
  
  
  
 
                             - 507 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    MRKT     ! .MRKT     ! 375 !  * !  * !  + !  + !  +
  
    SECNDS   !           !     !  + !  + !  + !  + !  +
  
    TIMASC   !           !     !  + !  + !  + !  + !  +
  
    TIME     !           !     !  + !  + !  + !  + !  +
  
    CHAIN    ! .CHAIN    ! 374 !  + !  + !  + !  + !  +
  
             ! .CNFDF(2) !     !  + !  + !  + !  + !  +
  
             ! .CNTXSW   ! 375 !  - !  - !  + !  + !  -
  
             ! .CTRLT(2) !     !  + !  + !  + !  + !  +
  
             ! .DATA     ! 374 !  + !  + !  + !  + !  +
  
             ! .DBLK (2) !     !  + !  + !  + !  + !  +
  
    DEVICE   ! .DEVICE   ! 375 !  - !  - !  + !  + !  *
  
             ! .DIR      !     !  + !  + !  + !  + !  +
  
             ! .EXIT     ! 350 !  + !  +U!  +U!  +U!  +
  
    GTJB     ! .GTJB     ! 375 !  + !  + !  + !  + !  +
  
             ! .HERR     ! 374 !  + !  + !  + !  + !  +
  
             ! .HRESET   ! 357 !  +W!  +U!  + !  + !  +
  
    IDSTAT   ! .DSTATUS  ! 342 !  *U!  +U!  +U!  +U!  +U
  
    IFETCH   ! .FETCH    ! 343 !  +U!  +U!  +U!  +U!  -
  
             ! .INTEN    !     !  + !  + !  + !  + !  -
  
    IQSET    ! .QSET     ! 353 !  *W!  +W!  +W!  +U!  -
  
    ISPFN    ! .SPFUN    ! 375 !  + !  + !  + !  + !  +
  
    ISPFNC   ! .SPFUN    ! 375 !  + !  + !  + !  + !  +
  
    ISPFNF   !           !     !  + !  + !  + !  + !  +
  
    ISPFNW   ! .SPFUN    ! 375 !  + !  + !  + !  + !  +
  
    ITLOCK   ! .TLOCK    ! 374 !  *U!  +U!  +U!  +U!  -
  
             ! .JSWDF(2) !     !  + !  + !  + !  + !  +
  
  
  
  
 
                             - 508 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    LOCK     ! .LOCK     ! 346 !  +U!  +U!  +U!  +U!  -
  
             ! .MFPS     !     !  + !  + !  + !  - !  -
  
             ! .MTPS     !     !  + !  + !  + !  - !  -
  
             ! .POP      !     !  + !  + !  + !  + !  +
  
             ! .PROTECT  ! 375 !  - !  - !  + !  + !  -
  
             ! .PUSH     !     !  + !  + !  + !  + !  +
  
    RCHAIN   !           !     !  + !  + !  + !  + !  +
  
    RCTRLO   ! .RCTRLO   ! 355 !  * !  + !  + !  + !  +
  
             ! .RELEASE  ! 343 !  - !  +U!  +U!  +U!  -
  
             ! .ROFDF(2) !     !  + !  + !  + !  + !  +
  
    RESUME   ! .RSUM     ! 374 !  - !  - !  + !  + !  *
  
    SCCA     ! .SCCA     ! 375 !  * !  + !  + !  + !  +
  
             ! .SCMDF(2) !     !  + !  + !  + !  + !  +
  
             ! .SERR     ! 374 !  + !  + !  + !  + !  +
  
    SETCMD   !           !     !  - !  + !  + !  + !  +
  
             ! .SETTOP   ! 354 !  + !  + !  + !  + !  +
  
             ! .SFPA     ! 375 !  + !  + !  + !  + !  +
  
             ! .SPCPS    ! 375 !  - !  - !  + !  + !  +
  
             ! .SRESET   ! 352 !  +W!  +W!  + !  + !  +
  
             ! .SYNCH    !     !  + !  + !  + !  + !  -
  
    SUSPND   ! .SPND     ! 374 !  - !  - !  + !  + !  *
  
             ! .TRPSET   ! 375 !  + !  + !  + !  + !  +
  
    UNLOCK   ! .UNLOCK   ! 347 !  * !  + !  + !  + !  -
  
             ! .UNPROTECT! 375 !  - !  - !  + !  + !  -
  
             ! .USBDF(2) !     !  + !  + !  + !  + !  +
  
    AJFLT    !           !     !  + !  + !  + !  + !  +
  
  
  
  
 
                             - 509 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    DJFLT    !           !     !  + !  + !  + !  + !  +
  
    IAJFLT   !           !     !  + !  + !  + !  + !  +
  
    IDJFLT   !           !     !  + !  + !  + !  + !  +
  
    IJCVT    !           !     !  + !  + !  + !  + !  +
  
    JADD     !           !     !  + !  + !  + !  + !  +
  
    JAFIX    !           !     !  + !  + !  + !  + !  +
  
    JCMP     !           !     !  + !  + !  + !  + !  +
  
    JDFIX    !           !     !  + !  + !  + !  + !  +
  
    JDIV     !           !     !  + !  + !  + !  + !  +
  
    JICVT    !           !     !  + !  + !  + !  + !  +
    JJCVT    !           !     !  + !  + !  + !  + !  +
  
    JMOV     !           !     !  + !  + !  + !  + !  +
  
    JMUL     !           !     !  + !  + !  + !  + !  +
  
    JSUB     !           !     !  + !  + !  + !  + !  +
  
             ! .CRAW     ! 375 !  A !  A !  A !  + !  A
  
             ! .CRRG     ! 375 !  A !  A !  A !  + !  A
  
             ! .ELAW     ! 375 !  A !  A !  A !  + !  A
  
             ! .ELRG     ! 375 !  A !  A !  A !  + !  A
  
             ! .GMCX     ! 375 !  A !  A !  A !  + !  A
  
             ! .MAP      ! 375 !  A !  A !  A !  + !  A
  
             ! .RDBBK(2) !     !  + !  + !  + !  + !  +
  
             ! .RDBDF(2) !     !  + !  + !  + !  + !  +
  
             ! .UNMAP    ! 375 !  A !  A !  A !  + !  A
  
             ! .WDBBK(2) !     !  + !  + !  + !  + !  +
  
             ! .WDBDF(2) !     !  + !  + !  + !  + !  +
  
    CONCAT   !           !     !  + !  + !  + !  + !  +
  
  
  
  
  
 
                             - 510 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    GETSTR   !           !     !  + !  + !  + !  + !  +
  
    GTLIN    ! .GTLIN    ! 345 !  *U!  +U!  +U!  +U!  +U
  
    INDEX    !           !     !  + !  + !  + !  + !  +
  
    INSERT   !           !     !  + !  + !  + !  + !  +
  
    LEN      !           !     !  + !  + !  + !  + !  +
  
    PUTSTR   !           !     !  + !  + !  + !  + !  +
  
    REPEAT   !           !     !  + !  + !  + !  + !  +
  
    SCOMP    !           !     !  + !  + !  + !  + !  +
  
    SCOPY    !           !     !  + !  + !  + !  + !  +
  
    STRPAD   !           !     !  + !  + !  + !  + !  +
  
    SUBSTR   !           !     !  + !  + !  + !  + !  +
  
    TRANSL   !           !     !  + !  + !  + !  + !  +
  
    TRIM     !           !     !  + !  + !  + !  + !  +
  
    VERIFY   !           !     !  + !  + !  + !  + !  +
  
    IRAD50   !           !     !  + !  + !  + !  + !  +
  
    R50ASC   !           !     !  + !  + !  + !  + !  +
  
    RAD50    !           !     !  + !  + !  + !  + !  +
  
             ! .CTIMIO(1)!     !  * !  * !  * !  * !  +
  
             ! .DRAST(1) !     !  + !  + !  + !  + !  +
  
             ! .DRBEG(1) !     !  + !  + !  + !  + !  +
  
             ! .DRBOT(1) !     !  + !  + !  + !  + !  +
  
             ! .DRDEF(1) !     !  + !  + !  + !  + !  +
  
             ! .DREND(1) !     !  + !  + !  + !  + !  +
  
             ! .DRFIN(1) !     !  + !  + !  + !  + !  +
  
             ! .DRSET(1) !     !  + !  + !  + !  + !  +
  
             ! .DRVTB(1) !     !  + !  + !  + !  + !  +
  
  
  
  
 
                             - 511 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
             ! .FORK (1) !     !  + !  + !  + !  + !  +
  
             !.QELDF(1,2)!     !  + !  + !  + !  + !  +
  
             ! .TIMIO(1) !     !  * !  * !  * !  * !  +
  
    MTATCH   ! .MTATCH   ! 375 !  A !  * !  * !  * !  A
  
    MTDTCH   ! .MTDTCH   ! 375 !  A !  * !  * !  * !  A
  
    MTGET    ! .MTGET    ! 375 !  A !  * !  * !  * !  A
  
    MTIN     ! .MTIN     ! 375 !  A !  * !  * !  * !  A
  
    MTOUT    ! .MTOUT    ! 375 !  A !  * !  * !  * !  A
  
    MTPRNT   ! .MTPRNT   ! 375 !  A !  * !  * !  * !  A
  
    MTRCTO   ! .MTRCTO   ! 375 !  A !  * !  * !  * !  A
  
    MTSET    ! .MTSET    ! 375 !  A !  * !  * !  * !  A
  
    MTSTAT   ! .MTSTAT   ! 375 !  A !  * !  * !  * !  A
  
    IADDR    !           !     !  + !  + !  + !  + !  +
  
    IGETSP   !           !     !  + !  + !  + !  + !  +
  
    INTSET   !           !     !  + !  + !  + !  + !  -
  
    IPEEK    !           !     !  + !  + !  + !  + !  +
  
    IPEEKB   !           !     !  + !  + !  + !  + !  +
  
    IPOKE    !           !     !  + !  + !  + !  + !  +
  
    IPOKEB   !           !     !  + !  + !  + !  + !  +
  
    ISPY     ! .GVAL     ! 375 !  + !  + !  + !  + !  +
  
    IBLIN    ! .BLIN     ! 375 !  - !  - !  - !  - !  +
  
    IBLOUT   ! .BLOUT    ! 375 !  - !  - !  - !  - !  +
  
    IBREAK   ! .BREAK    ! 375 !  - !  - !  - !  - !  +
    ICONVIR  ! .CONVIR   ! 375 !  - !  - !  - !  - !  +
  
    IDJSTART ! .DJSTART  ! 375 !  - !  - !  - !  - !  +
  
    IDJKILL  ! .DJKILL   ! 375 !  - !  - !  - !  - !  +
  
  
  
  
  
 
                             - 512 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    IDJTST   ! .DJTST    ! 375 !  - !  - !  - !  - !  +
  
    IDISMO   ! .DISMO    ! 375 !  - !  - !  - !  - !  +
  
    IENSWAP  ! .ENSWAP   ! 375 !  - !  - !  - !  - !  +
  
    IFRSPL   ! .FRSPL    ! 375 !  - !  - !  - !  - !  +
  
    IHIOF    ! .HIOF     ! 375 !  - !  - !  - !  - !  +
  
    IHION    ! .HION     ! 375 !  - !  - !  - !  - !  +
  
    IMGET    ! .MGET     ! 375 !  - !  - !  - !  - !  +
  
    IMGETWAIT! .MGETWAIT ! 375 !  - !  - !  - !  - !  +
  
    IMLOCKB  ! .IMLOCK   ! 375 !  - !  - !  - !  - !  +
  
    IMOUNT   ! .MOUNT    ! 375 !  - !  - !  - !  - !  +
  
    IMPUTB   ! .MPUT     ! 375 !  - !  - !  - !  - !  +
  
    IMSEND   ! .MSEND    ! 375 !  - !  - !  - !  - !  +
  
    INTCON   ! .INTCON   ! 375 !  - !  - !  - !  - !  +
  
    INTFRE   ! .INTFRE   ! 375 !  - !  - !  - !  - !  +
  
    IOBIC    ! .IOBIC    ! 375 !  - !  - !  - !  - !  +
  
    IOBIS    ! .IOBIS    ! 375 !  - !  - !  - !  - !  +
  
    IOGET    ! .IOGET    ! 375 !  - !  - !  - !  - !  +
  
    IOMAP    ! .IOMAP    ! 375 !  - !  - !  - !  - !  +
  
    IOPUT    ! .IOPUT    ! 375 !  - !  - !  - !  - !  +
  
    IOUNMAP  ! .IOUNMAP  ! 375 !  - !  - !  - !  - !  +
  
    IPOLOCK  ! .POLOCK   ! 375 !  - !  - !  - !  - !  +
  
    IRSTODT  ! .RSTODT   ! 375 !  - !  - !  - !  - !  +
  
    ISETODT  ! .SETODT   ! 375 !  - !  - !  - !  - !  +
  
    ISFOPEN  ! .SFOPEN   ! 375 !  - !  - !  - !  - !  +
  
    ISFLOCK  ! .SFLOCK   ! 375 !  - !  - !  - !  - !  +
  
    ISFTLOCK ! .SFTLOCK  ! 375 !  - !  - !  - !  - !  +
  
  
  
  
 
                             - 513 -
  
  
  
  
    ---------!-----------!-----!----!----!----!----!----
        1    !     2     !  3  !  4 !  5 !  6 !  7 !  8
    ---------!-----------!-----!----!----!----!----!----
  
    ISFUNLOCK! .SFUNLOCK ! 375 !  - !  - !  - !  - !  +
  
    ISFUNALL ! .SFUNALL  ! 375 !  - !  - !  - !  - !  +
  
    ISFWCHECK! .SFWCHECK ! 375 !  - !  - !  - !  - !  +
  
    ISFSAVE  ! .SFSAVE   ! 375 !  - !  - !  - !  - !  +
  
    ISHARE   ! .SHARE    ! 375 !  - !  - !  - !  - !  +
  
    ISHMAP   ! .SHMAP    ! 375 !  - !  - !  - !  - !  +
  
    IPAINI   ! .PAINIT   ! 375 !  - !  - !  - !  - !  +
  
    IPASTA   ! .PASTART  ! 375 !  - !  - !  - !  - !  +
    IPASTO   ! .PASTOP   ! 375 !  - !  - !  - !  - !  +
  
    IPAGET   ! .PAGET    ! 375 !  - !  - !  - !  - !  +
  
    ITRMTYPE ! .TRMTYPE  ! 375 !  - !  - !  - !  - !  +
  
    ITSLINE  ! .TSLINE   ! 375 !  - !  - !  - !  - !  +
  
    ITSTACT  ! .TSTACT   ! 375 !  - !  - !  - !  - !  +
  
    ITSTER   ! .TSTER    ! 375 !  - !  - !  - !  - !  +
  
    ITSTOP   ! .TSTOP    ! 375 !  - !  - !  - !  - !  +
  
    ITTIME   ! .TTIME    ! 375 !  - !  - !  - !  - !  +
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        