1 C00   20:51 JUN 20,'83                                                                          PAGE    1
A      1                     3.000  +3,3                                                                *H00
       2                     3.010  VERSION  EQU      C'H00'                                            *H00
       3                     6.000  +6,98                                                               *H00
       4                   217.000  +217,220                                                            *H00
       5                   217.010  START3   XPSD,0   MAGTAPE           READ HEADER                     *H00
       6                   217.020           DATA     X'10'              UNIT 0 (DISK)                  *H00
       7                   217.030           GEN,8,24 X'0A',BA(DIRECTRY)  TO WAIT FOR HEAD              *H00
       8                   217.040           GEN,8,24 X'0A',8              MOTION TO CEASE              *H00
       9                   217.050           B        CANTDOIT                                          *H00
      10                   217.060           B        CANTDOIT                                          *H00
      11                   265.000  +265                                                                *H00
      12                   265.010           SPACE                                                      *H00
      13                   404.000  +404,405                                                            *H00
      14                   404.010  NOTBLK   MTW,0    RGUIDE            SKIP IF # WAS ENTERED           *H00
      15                   404.020           BNEZ     LOADED             (REMOTE GUIDE SUPPRESSION)     *H00
      16                   404.030           SPACE                                                      *H00
      17                   404.040           CI,8     'C'               SKIP IF NOT COMET               *H00
      18                   404.050           BNE      %+4                (REMOTE GUIDE BELOW LOADER)    *H00
      19                   409.000  +409,409                                                            *H00
      20                   409.010           B        LOADRG             LOAD REMOTE GUIDE              *H00
      21                   414.000  +414,416                                                            *H00
      22                   421.000  +421                                                                *H00
      23                   421.010           SPACE                                                      *H00
      24                   421.020  LOADRG   EQU      %                                                 *H00
      25                  9999.999  +END
1 C00   20:51 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    3
A       1                                     PCC                                                        *B00
        2         TEXT               CATALOG  EQU      C'0012'                                           *G01
        1*        TEXT               VERSION  EQU      C'H00'                                            *H00
        4                            TITLE    EQU      S:PT('T-SERIES MTL CONTROL PROGRAM 960-',;        *G01
        5         TEXT                                 CATALOG,'-',VERSION)                              *G01
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    4
A     100         00000000           TEXTCS   CNAME
      101                                     PROC
      102                                     DISP     %
      103                                     LIST     0
      104                            LF       TEXTC    AF
      105                                     LIST     1
      106                                     PEND

      108                                     SYSTEM SIG7FDP

      110         00000000           CHECK    CNAME                                                      *B04
      111                                     PROC                                                       *B04
      112                                     DISP     (12*1024-256)-ABSVAL(AF(1))                       *B04
      113                                     ERROR,7,(12*1024-256)<ABSVAL(AF(1)) ;                      *B04
      114                                              'MTL CONTROL EXCEEDS MAXIMUM SIZE'                *B04
      115                                     PEND                                                       *B04

      117         00000008                    CHECK    OLDDIRCT                                          *B04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    5
A     119                            ********************************************************
      120                            *
      121                            *        MAG TAPE LIBRARY CONTROL PROGRAM
      122                            *
      123                            ********************************************************
      124                            *
      125                            *        TABLES
      126                            *
      127   01 00000                 BUFF1    RES      X'1000'-X'80'                                     *B04
      128   01 00F80                 BUFF2    RES      X'1000'-X'80'                                     *B04
      129   01 01F00                 DIRECTRY RES      X'700'
      130                            *
      131         0000003B           LFIELD   EQU      60-1
      132         00000700           DIRLENG  EQU      X'700'            LENGTH OF DIRECTORY (WORDS)     *G01

      134   01 02600    00000000 A   MTLT     DATA     0                 START OF MTL LINK TABLE

      136   01 02601    6800273C              B        UPDATE            COPY TO SPEC. FILE              *A04
      137   01 02602    68002764              B        READCARD          COPY OR VERIFY TO EOT           *A04
      138   01 02603    68002708              B        WINDUP            ERROR EXIT                      *A04

      140   01 02604    00000080 A   TAPE     PZE      X'80'
      141   01 02605    00000081 A            PZE      X'81'
      142   01 02606    00000082 A            PZE      X'82'

      144   01 02607    00000003 A   CARD     DATA     3                 CARD READER                     *B06
      145   01 02608    00000001 A   CONDEV   DATA     1                  TTY/CONSOLE                    *B06
      146   01 02609    00000001 A   MSGDEV   DATA     1                   LP IF .NE. CONDEV             *B06
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    6
A     148   01 0260A    32820006 A   START    LW,8     6,1               GET CORE SIZE                   *A04
      149   01 0260B    21804000 A            CI,8     X'4000'            AND COMPARE WITH 16K           *G01
      150   01 0260C    6820260E              BLE      %+2                 SKIP IF .LE. 16K              *G01
      151   01 0260D    35802C7F              STW,8    CORE                 ELSE SET CORE FLAG           *G01

      153   01 0260E    3292000D A            LW,9     13,1              GET REM INFO                    *A04
      154   01 0260F    31902C77              CW,9     PI                IS CODE PI                      *A04
      155   01 02610    68302618              BE       START2            TRUE REMOTE CONNECTION          *B05

      157   01 02611    32902C77              LW,9     PI                FORCE USE OF REMOTE PACKAGE     *B05
      158   01 02612    32A02608              LW,10    CONDEV                                            *B05
      159   01 02613    32B02C8F              LW,11    COCDEV            USE DEFAULT COC IOP ADDRESS     *G02
      160   01 02614    22C00000 A            LI,12    0                                                 *B05
      161   01 02615    22D00000 A            LI,13    0                                                 *B05
      162   01 02616    32E02C92              LW,14    COCLINE           USE DEFAULT CONTROLLER          *G02
      163   01 02617    6800261A              B        START1                                            *B05

      165         01 02618           START2   EQU      %                                                 *B05
      166   01 02618    02200050 A            LCI      5                                                 *A04
      167   01 02619    2AA2000E A            LM,10    14,1              GET REMOTE TABLE FROM LOADER    *A04

      169         01 0261A           START1   EQU      %                                                 *B05
      170   01 0261A    35902C8E              STW,9    REMCODE           SAVE REMOTE CODE (PI)           *A04
      171   01 0261B    35A02608              STW,10   CONDEV            SET TTYADR                      *A04
      172   01 0261C    35A02609              STW,10   MSGDEV             SET MSG DEV ADDRESS            *B06
      173   01 0261D    35B02C8F              STW,11   COCDEV       SET COC DEVICE ADDRESS               *A04
      174   01 0261E    35C02C90              STW,12   DIODEV            SET DIO DEVICE ADR              *A04
      175   01 0261F    35D02C91              STW,13   COCSTATE          SET COCSTATE                    *A04
      176   01 02620    35E02C92              STW,14   COCLINE           SET COC LINE NO.                *A04
      177   01 02621    35E02C93              STW,14   COCLOG            NUMBER OF LAST LINE LOGGED      *B02

      179   01 02622    22F00003 A            LI,15    3                 AS LONG AS COC IS ALREADY       *B01
      180   01 02623    2240003F A            LI,4     X'3F'              LOGICALLY CONNECTED            *B01
      181   01 02624    75F82E73              STB,15   COCL,4              SET ALL LINES TO LOG-ON       *B01
      182   01 02625    64402624              BDR,4    %-1                  PENDING, EXCEPT FOR          *B01
      183   01 02626    75F82E73              STB,15   COCL,4                CONTROL LINE...             *B01

      185   01 02627    32402C92              LW,4     COCLINE           GET LINE NO.                    *A05
      186   01 02628    72D0000D A            LB,13    13                SHIFT TO RIGHT                  *A05
      187   01 02629    21D00080 A            CI,13    X'80'             ONLY A CONTROLLER               *B04
      188   01 0262A    6840262D              BAZ      START0             REMAINS LOGGED-ON              *B04

      190   01 0262B    75D82E73              STB,13   COCL,4            SAVE CONTROLLER STATUS          *B04
      191   01 0262C    73102E71              MTB,1    COCNR              AND SET LINES LOGGED-ON        *B04

      193         01 0262D           START0   EQU      %                                                 *B04
      194   01 0262D    32402C90              LW,4     DIODEV            DEV ADR MUST BE IN REG 4        *A04
      195   01 0262E    6AF02DB4              BAL,15   SETDIO            SET DIO ADR IN WD               *A04
      196   01 0262F    02200040 A            LCI      TABLEN                                            *A04
      197   01 02630    2A902C8A              LM,9      IOTAB1       CONNECT REMOTE PACKAGE.             *A05
      198   01 02631    2B902C82              STM,9     INPUT            .............................   *A05
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    7
A     200   01 02632    32820018 A            LW,8     24,1              GET TAPE/DISK FLAG              *B05
      201   01 02633    35802C80              STW,8    DISK                                              *A08
      202   01 02634    32820005 A            LW,8     5,1               GET INPUT DEV ADDR.             *A08
      203   01 02635    35802604              STW,8    TAPE              SET TAPE ADDRESSES
      204   01 02636    20800001 A            AI,8     1                                                 *A02
      205   01 02637    35802605              STW,8    TAPE+1
      206   01 02638    20800001 A            AI,8     1                                                 *A02
      207   01 02639    35802606              STW,8    TAPE+2
      208   01 0263A    35102C6A              STW,1    BASE              SAVE LOADER BASE ADDRESS
      209   01 0263B    3200285F              LW,0     LINK              SET RECOVERY ON RESET
      210   01 0263C    35000026 A            STW,0    X'26'             RESET LOCATION
      211   01 0263D    32000200 A            LW,0     X'200'            GET DPM BIAS                    *A03
      212   01 0263E    35002C7E              STW,0    MONITOR           SAVE BIAS                       *A01

      214   01 0263F    33002C80              MTW,0    DISK              SKIP IF LOADED                  *G02
      215   01 02640    6830264C              BEZ      START4             FROM MAGNETIC TAPE             *G02

        1*  01 02641    0F00298C     START3   XPSD,0   MAGTAPE           READ HEADER                     *H00
        2*  01 02642    00000010 A            DATA     X'10'              UNIT 0 (DISK)                  *H00
        3*  01 02643    0A007C00              GEN,8,24 X'0A',BA(DIRECTRY)  TO WAIT FOR HEAD              *H00
        4*  01 02644    0A000008 A            GEN,8,24 X'0A',8              MOTION TO CEASE              *H00
        5*  01 02645    68002855              B        CANTDOIT                                          *H00
        6*  01 02646    68002855              B        CANTDOIT                                          *H00

      222   01 02647    32102C6A              LW,1     BASE              RESTORE LOADER INDEX            *G02
      223   01 02648    22F30000 A            LI,15    X'30000'           CYL:3=>DIRECTORY               *G02
      224   01 02649    35F20017 A            STW,15   X'17',1             STORE INTO LOADER             *G02
      225   01 0264A    6AF2001D A            BAL,15   X'1D',1              AND CALL SEEK ROUTINE        *G02
      226   01 0264B    6800264E              B        GETDIRCT                                          *G02

      228   01 0264C    22200010 A   START4   LI,2     X'10'             POINT TO UNIT 0, NO RING        *G02
      229   01 0264D    6AF0283A              BAL,15   SKIP               SKIP TAPEMARK AFTER MTLCTRL    *G02
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    8
A     231   01 0264E    0F00298C     GETDIRCT XPSD,0   MAGTAPE           READ DIRECTORY                  *A03
      232   01 0264F    00000010 A            DATA     X'10'                                             *A01
      233   01 02650    02007C00              GEN,8,24 2,BA(DIRECTRY)                                    *A01
      234   01 02651    0A001C00 A             GEN,8,24  X'A',(X'700')*4
      235   01 02652    68002855              B        CANTDOIT                                          *A01
      236   01 02653    68002855              B        CANTDOIT                                          *A01

      238   01 02654    33002C80              MTW,0    DISK                                              *A08
      239   01 02655    69302657              BNEZ     %+2                                               *A08
      240   01 02656    6AF0283A              BAL,15   SKIP              SKIP FILE MARK ON UNIT 0

      242   01 02657    22000000 A            LI,0     0                                                 *A03
      243   01 02658    35002C6E              STW,0    COPYFLAG          RESET COPY FLAG                 *A03
      244   01 02659    35002C5F              STW,0    BIAS              RESET RELOC. BIAS               *A04
      245   01 0265A    22607C04              LI,6     BA(DIRECTRY)+4
      246   01 0265B    EAF02C83              BAL,15   *OUTPUT           PRINT TITLE

      248   01 0265C    0F002860     CONTROL  XPSD,0   SCAN                                              *A04
      249   01 0265D    00001F00              PZE      DIRECTRY
      250   01 0265E    00000000 A   CONTADD  PZE
      251   01 0265F    00000000 A   CONTX    PZE
      252   01 02660    6800284F              B        UPSER             SELECTION ERROR

      254   01 02661    3270265E              LW,7     CONTADD
      255   01 02662    2070003B A            AI,7     LFIELD            GET LOAD - NON LOAD IND.        *A01
      256   01 02663    725E0000 A            LB,5     0,7               FROM COL. 60                    *A01
      257   01 02664    215000D5 A            CI,5     C'N'              IS THIS NON-LOADABLE ITEM       *A04
      258   01 02665    6830284D              BCR,3    CANTLD            YES - B: CAN'T LOAD             *A04

      260   01 02666    215000C2 A            CI,5     C'B'              IS THIS A READ BIN REQUEST      *A04
      261   01 02667    6830284D              BCR,3    CANTLD            YES - B:CAN'T LOAD              *A04

      263   01 02668    215000D9 A            CI,5     C'R'              IS RELOCATION ALLOWED           *A04
      264   01 02669    6930266B              BCS,3    %+2                                               *A04
      265   01 0266A    6AF02718              BAL,15   RELOC             YES - B: RELOC                  *A04

      266   01 0266B    20700001 A            AI,7     1                 GET COL. 61                     *A04
      267   01 0266C    725E0000 A            LB,5     0,7               GET REWIND INDICATOR            *A04
      268   01 0266D    215000C8 A            CI,5     C'H'                                              *A04
      269   01 0266E    69302671              BCS,3    %+3               REW AFTER LOAD                  *A04
      270   01 0266F    22500000 A            LI,5     0                                                 *A04
      271   01 02670    3550273B              STW,5    REWFLAG           RESET REWIND FLAG               *A04

      273   01 02671    20700004 A            AI,7     4                 POINT TO MON LOC.               *A04
      274   01 02672    725E0000 A            LB,5     0,7                                               *A01
      275   01 02673    75502C7D              STB,5    MFLD              SAVE MONITOR INDICATION         *A01

      277   01 02674    20700004 A            AI,7     4                 GET COL. 69                     *A05
      278   01 02675    725E0000 A            LB,5     0,7                                               *A05
      279   01 02676    35502C72              STW,5    COL69             SAVE COL.69                     *A05
      280   01 02677    2070000B A            AI,7     11                POINT TO SEEK ADDR+3(COL 80)    *A08
      281   01 02678    725E0000 A            LB,5     0,7                                               *A08
      282   01 02679    22400000 A            LI,4     0                                                 *A08
      283   01 0267A    226FFFFD A            LI,6     -3                                                *A08
      284   01 0267B    21500040 A            CI,5     X'40'                                             *A08
      285   01 0267C    6830268C              BCR,3    SEEKXL1                                           *A08

      287   01 0267D    207FFFFE A            AI,7     -2                POINT TO SEEK ADDR(COL 78)      *A08
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE    9
A     289   01 0267E    725E0000 A   SEEKXL   LB,5     0,7                                               *A08
      290   01 0267F    215000F0 A            CI,5     X'F0'                                             *A08
      291   01 02680    68102682              BCR,1    %+2                                               *A08
      292   01 02681    20500009 A            AI,5     9                                                 *A08
      293   01 02682    4B502736              AND,5    XF                                                *A08
      294   01 02683    35702735              STW,7    TEMP                                              *A08
      295   01 02684    227FFFFC A            LI,7     -4                                                *A08
      296   01 02685    4B402737              AND,4    XFFFFFFF                                          *A08
      297   01 02686    30400004 A            AW,4     4                                                 *A08
      298   01 02687    65702686              BIR,7    %-1                                               *A08
      299   01 02688    30400005 A            AW,4     5                                                 *A08
      300   01 02689    32702735              LW,7     TEMP                                              *A08
      301   01 0268A    20700001 A            AI,7     1                                                 *A08
      302   01 0268B    6560267E              BIR,6    SEEKXL                                            *A08

      304   01 0268C    55402C81     SEEKXL1  STH,4    SEEKADR                                           *A08
      305   01 0268D    207FFFF6 A            AI,7     -10               COL 70                          *A08
      306   01 0268E    22400000 A            LI,4     0

      308   01 0268F    725E0000 A   MAKSADR  LB,5     0,7
      309   01 02690    21500040 A            CI,5     X'40'             BLANK
      310   01 02691    6830269F              BCR,3    SEARCH            YES

      312   01 02692    215000F0 A            CI,5     X'F0'             A TO F
      313   01 02693    68102695              BCR,1    %+2               NO
      314   01 02694    20500009 A            AI,5     9
      315   01 02695    4B502736              AND,5    XF                MASK HEX CHARACTER              *A02
      316   01 02696    35702735              STW,7    TEMP                                              *A02

      318   01 02697    227FFFFC A            LI,7     -4                ASSEMBLE CHARACTER              *A02
      319   01 02698    4B402737              AND,4    XFFFFFFF                                          *A02
      320   01 02699    30400004 A            AW,4     4                                                 *A02
      321   01 0269A    65702699              BIR,7    %-1                                               *A02
      322   01 0269B    30400005 A            AW,4     5                                                 *A02

      324   01 0269C    32702735              LW,7     TEMP                                              *A02
      325   01 0269D    20700001 A            AI,7     1
      326   01 0269E    6800268F              B        MAKSADR
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   10
A     328   01 0269F    35402C7C     SEARCH   STW,4    COMMAND           GET STARTING ADDR.              *A03

      330   01 026A0    3280265F              LW,8     CONTX             GET FILE INDEX                  *A03
      331   01 026A1    208FFFFB A            AI,8     -5                ADJUST CURRENT POINTER          *A08

      333   01 026A2    21800002 A            CI,8     2                                                 *A08
      334   01 026A3    6820284F              BCR,2    UPSER             SELECTION ERROR                 *A03

      336   01 026A4    32102C6A              LW,1     BASE              GET LOADER BASE ADDR            *A03
      337   01 026A5    72202C7D              LB,2     MFLD                                              *A03

      339   01 026A6    21200040 A            CI,2     X'40'             FREESTANDING PROG               *A03
      340   01 026A7    683026EB              BCR,3    LOADED+1          YES - LOAD PROG.                *A03

      342   01 026A8    212000D4 A            CI,2     C'M'              DPM INTERFACED                  *A03
      343   01 026A9    693026BE              BCS,3    NOTDPM            NO                              *A03

      345   01 026AA    32020007 A            LW,0     7,1                                               *A03
      346   01 026AB    30002C7E              AW,0     MONITOR           GET MONITOR RELOCATION BIAS     *A03
      347   01 026AC    35020007 A            STW,0    7,1               RELOCATE LOAD BUFFER UNDER DPM  *A03

      349   01 026AD    32002C7E              LW,0     MONITOR
      350   01 026AE    30002C6A              AW,0     BASE              ADD LOADER BASE ADDR.           *A03
      351   01 026AF    35802735              STW,8    TEMP              SAVE FILE INDEX                 *A04

      353   01 026B0    22840000 A            LI,8     X'40000'                                          *A08
      354   01 026B1    35820017 A            STW,8    23,1                                              *A08
      355   01 026B2    6AB20008 A            BAL,11   8,1               LOAD DPM                        *A04
      356   01 026B3    35C02C7C              STW,12   COMMAND           SAVE DPM STARTING ADDR.         *A04
      357   01 026B4    33102C7C              MTW,1    COMMAND           POINT TO MTENTRY                *A04

      359   01 026B5    33002C7F              MTW,0    CORE                                              *A04
      360   01 026B6    693026EA              BCS,3    LOADED            DO NOT MOVE LOAD BUFFER         *A04

      362   01 026B7    32B20007 A            LW,11    7,1               GET LOAD BUFFER ADR             *A04
      363   01 026B8    32802C7E              LW,8     MONITOR           GET DPM SIZE                    *A04
      364   01 026B9    30802C6A              AW,8     BASE              ADD BASE ADDR                   *A04
      365   01 026BA    B2800008 A            LW,8     *8                GET REMOTE PACKAGE SIZE         *A04
      366   01 026BB    30B00008 A            AW,11    8                 ADD REM PACK SIZE TO LBUFF      *A04
      367   01 026BC    35B20007 A            STW,11   7,1               MOVE LOAD BUFFER                *A04
      368   01 026BD    680026EA              B        LOADED            DPM IS LOADED                   *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   11
A     370   01 026BE    212000C9 A   NOTDPM   CI,2     C'I'              GU'I'DE INTERFACED              *A03
      371   01 026BF    6930284D              BCS,3    CANTLD            NO - CAN'T LOAD                 *A03

      373   01 026C0    208FFFFE A            AI,8     -2                ADJUST POINTER                  *A03
      374   01 026C1    22200010 A            LI,2     X'10'                                             *A03
      375   01 026C2    33002C80              MTW,0    DISK                                              *A08
      376   01 026C3    693026C5              BNEZ     %+2                                               *A08
      377   01 026C4    6AF0283A              BAL,15   SKIP              BYPASS DPM                      *A03

      379   01 026C5    22B00000 A            LI,11    0                                                 *A04
      380   01 026C6    35B02C7C              STW,11   COMMAND                                           *A04
      381   01 026C7    32002C5F              LW,0     BIAS              SET RELOCATION BIAS             *A04
      382   01 026C8    35802735              STW,8    TEMP
      383   01 026C9    22850000 A            LI,8     X'50000'                                          *A08
      384   01 026CA    35820017 A            STW,8    23,1                                              *A08
      385   01 026CB    6AB20008 A            BAL,11   8,1               LOAD GUIDE                      *A03
      386   01 026CC    22200010 A            LI,2     X'10'                                             *A05

      388   01 026CD    33002C80              MTW,0    DISK                                              *A08
      389   01 026CE    693026D0              BNEZ     %+2                                               *A08
      390   01 026CF    6AF0283A              BAL,15   SKIP              RKIP FILE MARK                  *A05

      392   01 026D0    33002C7F              MTW,0    CORE              IS MEMORY > 16K                 *A05
      393   01 026D1    683026EA              BCR,3    LOADED            B IF NO                         *A05

      395   01 026D2    32802C72              LW,8     COL69             GET REMOTE IND.                 *A05
      396   01 026D3    21800040 A            CI,8     ' '               BLANK                           *A05
      397   01 026D4    693026D9              BCS,3    NOTBLK            B IF NOT BLANK                  *A05

      399   01 026D5    32002C6A              LW,0     BASE              GET BASE ADR                    *A05
      400   01 026D6    30002C7E              AW,0     MONITOR           SUBTR. MON SIZE                 *A05
      401   01 026D7    B5000000 A            STW,0    *0                RESET REM GUIDE FLAG            *A05
      402   01 026D8    680026EA              B        LOADED            DO NOT LOAD REM G.              *A05
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   12
A       1*  01 026D9    33002C70     NOTBLK   MTW,0    RGUIDE            SKIP IF # WAS ENTERED           *H00
        2*  01 026DA    693026EA              BNEZ     LOADED             (REMOTE GUIDE SUPPRESSION)     *H00

        4*  01 026DB    218000C3 A            CI,8     'C'               SKIP IF NOT COMET               *H00
        5*  01 026DC    693026E0              BNE      %+4                (REMOTE GUIDE BELOW LOADER)    *H00

      407   01 026DD    32002C5F              LW,0     BIAS              GET RELOC. BIAS                 *A05
      408   01 026DE    20003500 A            AI,0     X'3500'           ADD PROG. LOC                   *A05
        1*  01 026DF    680026E7              B        LOADRG             LOAD REMOTE GUIDE              *H00

      411   01 026E0    218000D9 A            CI,8     'R'               REM. GUIDE                      *A05
      412   01 026E1    693026EA              BCS,3    LOADED            B IF NO                         *A05

      417   01 026E2    32020007 A            LW,0     7,1                                               *A05
      418   01 026E3    30002C7E              AW,0     MONITOR           GET MONITOR RELOCATION BIAS     *A05
      419   01 026E4    35020007 A            STW,0    7,1               RELOCATE LOAD BUF UNDER REM G.  *A05
      420   01 026E5    32002C7E              LW,0     MONITOR           GET SIZE                        *A05
      421   01 026E6    30002C6A              AW,0     BASE              ADD BASE ADR                    *A05

        2*        01 026E7           LOADRG   EQU      %                                                 *H00
      422   01 026E7    22860000 A            LI,8     X'60000'                                          *A08
      423   01 026E8    35820017 A            STW,8    23,1                                              *A08
      424   01 026E9    6AB20008 A            BAL,11   8,1               LOAD REMOTE GUIDE               *A05

      426   01 026EA    32802735     LOADED   LW,8     TEMP                                              *A08
      427   01 026EB    32002C5F              LW,0     BIAS              SET RELOCATION BIAS             *A08

      429   01 026EC    33002C80              MTW,0    DISK                                              *A08
      430   01 026ED    693026F1              BNEZ     PROTECT                                           *A08

      432   01 026EE    22200010 A            LI,2     X'10'                                             *A03
      433   01 026EF    6AF0283A              BAL,15   SKIP              SKIP FILE ON UNIT 0
      434   01 026F0    648026EE              BDR,8    %-2

      436   01 026F1    32B20007 A   PROTECT  LW,11    7,1               SET LOAD BUFFER ADDR            *A04
      437   01 026F2    35B2000C A            STW,11   12,1                AS PROTECT ADDR               *A04
      438   01 026F3    22B02600              LI,11    MTLT              SET REWIND FLAG (MTLT ADDR)     *A03
      439   01 026F4    30B0273B              AW,11    REWFLAG
      440   01 026F5    35B2000A A            STW,11   10,1                IN LOADER TABLE.              *A03
      441   01 026F6    32B02C8E              LW,11    REMCODE           RESTORE                         *A04
      442   01 026F7    35B2000D A            STW,11   13,1                                              *A04
      443   01 026F8    32B02608              LW,11    CONDEV                                            *A04
      444   01 026F9    35B2000E A            STW,11   14,1                REMOTE                        *A04
      445   01 026FA    32B02C8F              LW,11    COCDEV                                            *A04
      446   01 026FB    35B2000F A            STW,11   15,1                                              *A04
      447   01 026FC    32B02C90              LW,11    DIODEV                ENVIRONMENT                 *A04
      448   01 026FD    35B20010 A            STW,11   16,1                                              *A04
      449   01 026FE    32B02C91              LW,11    COCSTATE                                          *A04
      450   01 026FF    35B20011 A            STW,11   17,1                    IN THE                    *A04
      451   01 02700    32B02C92              LW,11    COCLINE                                           *A04
      452   01 02701    35B20012 A            STW,11   18,1                      LOADER TABLE            *A04
      453   01 02702    32B02C81              LW,11    SEEKADR                                           *A08
      454   01 02703    35B20017 A            STW,11   23,1                                              *A08
      455   01 02704    32B02C7C              LW,11    COMMAND

      457   01 02705    CF002C8F              HIO,0    *COCDEV           CLEAR COC I/O                   *B01
      458   01 02706    CF002608              HIO,0    *TTYDEV           CLEAR TTY I/O                   *B01

      460   01 02707    68020008 A            B        8,1               LOAD USER PROGRAM               *A03
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   13
A     462         01 02708           WINDUP   EQU      %                                                 *G01
      463   01 02708    6AF02DA2              BAL,15   REMOFF            RETURN CONTROL TO TTY           *G02

      465         01 02709           WINDDN   EQU      %                                                 *G01
      466   01 02709    22200010 A            LI,2     X'10'             (RESTORE IF DISK)               *G02
      467   01 0270A    6AF02841              BAL,15   REWIND            REWIND UNIT 0 WITHOUT RING      *A03

      469   01 0270B    22800000 A            LI,8     0                                                 *A04
      470   01 0270C    35802C5F              STW,8    BIAS              RESET RELOCATION BIAS           *A04
      471   01 0270D    35802C70              STW,8    RGUIDE                                            *A06
      472   01 0270E    32802EE4              LW,8     =X'80000000'      REW FLAG                        *A04
      473   01 0270F    3580273B              STW,8    REWFLAG           RESET FLAG                      *A04

      475   01 02710    22800002 A            LI,8     2                                                 *A03
      476   01 02711    758027D6              STB,8    B5                RESTORE UNIT 2                  *A04

      478   01 02712    33002C80              MTW,0    DISK              SKIP TAPE POSITIONING           *G01
      479   01 02713    69302641              BNEZ     START3             IF MTL BOOTED FROM DISK        *G01

      481   01 02714    22800003 A            LI,8     3                 SKIP 3 FILES: HCP-BOOT          *B01
      482   01 02715    6AF0283A              BAL,15   SKIP                            LOAD-BIAS         *B01
      483   01 02716    64802715              BDR,8    %-1                             CONTROL           *B01

      485   01 02717    6800264E              B        GETDIRCT          LOAD DIRECTORY                  *A03

      487   01 02718    35F02734     RELOC    STW,15   RELRTN                                            *A04
      488   01 02719    2260B0C8              LI,6     BA(RELMSG)                                        *A04
      489   01 0271A    EAF02C83              BAL,15   *OUTPUT           TYPE OUT RELOC. MSG.            *A04
      490   01 0271B    22C00000 A            LI,12    0                                                 *A04

      492   01 0271C    22D00000 A   RELOOP   LI,13    0                                                 *A04
      493   01 0271D    EAF02C82              BAL,15   *INPUT            GET CHARACTER                   *A04
      494   01 0271E    6800271F              B        %+1                                               *A04
      495   01 0271F    21D00015 A            CI,13    X'15'             IS IT N/L                       *A04
      496   01 02720    68302732              BCR,3    RELEXIT           YES                             *A04
      497   01 02721    21D00040 A            CI,13    X'40'             BLANK TERMINATION               *A04
      498   01 02722    68302732              BCR,3    RELEXIT           EXIT                            *A04
      499   01 02723    21D000F0 A            CI,13    X'F0'             RANGE 0 - 9                     *A04
      500   01 02724    6810272B              BCR,1    %+7               YES - CONVERT                   *A04
      501   01 02725    21D000C7 A            CI,13    X'C7'             RANGE HIGHER THAN F             *A04
      502   01 02726    68102719              BCR,1    RELOC+1           YES - ERROR                     *A04
      503   01 02727    21D000C1 A            CI,13    X'C1'             RANGE A - F                     *A04
      504   01 02728    6810272A              BCR,1    %+2                                               *A04
      505   01 02729    68002719              B        RELOC+1           NO - ERROR                      *A04
      506   01 0272A    20D00009 A            AI,13    9                 CONVERT A - F                   *A04
      507   01 0272B    4BD02736              AND,13   XF                DROP 4 HIGH ORDER BITS          *A04
      508   01 0272C    224FFFFC A            LI,4     -4                SHIFT INDEX                     *A04
      509   01 0272D    4BC02EE5              AND,12   =X'1FFFF'         ALLOW ONLY ADDR PORTION         *A04
      510   01 0272E    30C0000C A            AW,12    12                SHIFT LEFT 4 BITS               *A04
      511   01 0272F    6540272E              BIR,4    %-1                                               *A04
      512   01 02730    30C0000D A            AW,12    13                INSERT NEXT DIGIT               *A04
      513   01 02731    6800271C              B        RELOOP            GET NEXT CHAR                   *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   14
A     515   01 02732    35C02C5F     RELEXIT  STW,12   BIAS              SET BIAS                        *A04
      516   01 02733    E8002734              B        *RELRTN           EXIT                            *A04

      518   01 02734    00000000 A   RELRTN   DATA     0                 RETURN ADR                      *A04
      519   01 02735    00000000 A   TEMP     DATA     0                                                 *A02
      520   01 02736    0000000F A   XF       DATA     X'F'                                              *A02
      521   01 02737    0FFFFFFF A   XFFFFFFF DATA     X'FFFFFFF'                                        *A02
      522   01 02738    7FFFFFFF A   LFTSMSK  DATA     X'7FFFFFFF'                                       *A02
      523   01 02739    FFFFFFFF A   XM1      DATA     X'FFFFFFFF'                                       *A02
      524   01 0273A    FFFF0000 A   XM2      DATA     X'FFFF0000'                                       *A02
      525   01 0273B    80000000 A   REWFLAG  DATA     X'80000000'       REWIND FLAG                     *A03
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   15
A     527                            ********************************************************
      528                            *
      529                            *        UPDATE MAG TAPE LIBRARY.
      530                            *
      531                            ********************************************************
      532                            *
      533                            *        ADD      +PROGRAM NAME AND REVISION NR,L,M,HHHH
      534                            *        DELETE   -PROGRAM NAME
      535                            *        END      !TAPE REVISION LEVEL
      536                            *
      537   01 0273C    33002C80     UPDATE   MTW,0    DISK                                              *A08
      538   01 0273D    693028E4              BNEZ     DIRHAND1                                          *A08
      539   01 0273E    02200040 A            LCI      TABLEN                                            *A08
      540   01 0273F    2A002C86              LM,0     IOTAB             RESTORE IO ADDR TABLE           *A04
      541   01 02740    2B002C82              STM,0    INPUT                                             *A04
      542   01 02741    22200700 A            LI,2     DIRLENG                                           *A03
      543   01 02742    32341EFF              LW,3     DIRECTRY-1,2      SAVE OLD DIRECTORY              *A03
      544   01 02743    35342EF7              STW,3    OLDDIRCT-1,2                                      *A03
      545   01 02744    64202742              BDR,2    %-2                                               *A03

      547   01 02745    33002C5E     COPYONLY MTW,0    FIRSTIME                                          *A04
      548   01 02746    69302748              BCS,3    %+2                                               *A04
      549   01 02747    6AF0293A              BAL,15   CORESIZE                                          *A04
      550   01 02748    CD002605              TIO,0    *TAPE+1           IS SCRATCH TAPE MOUNTED         *A04
      551   01 02749    6880274C              BCR,8    %+3               YES                             *A04
      552   01 0274A    2260AFD0              LI,6     BA(PASS1)
      553   01 0274B    EAF02C83              BAL,15   *OUTPUT
      554   01 0274C    22200001 A            LI,2     1                                                 *A03
      555   01 0274D    6AF02841              BAL,15   REWIND            REWIND UNIT 1 WITH RING         *A03
      556   01 0274E    22000000 A            LI,0     0                                                 *A01
      557   01 0274F    35002C6B              STW,0    DICTFLAG          RESET DICTIONARY FLAG           *A03

      559   01 02750    35002C60     UPDATE1  STW,0    VERIFY
      560   01 02751    22000001 A            LI,0     1
      561   01 02752    35002C64              STW,0    FILE              INITIALIZE FILE COUNTER
      562   01 02753    32002C60              LW,0     VERIFY
      563   01 02754    6830275C              BCR,3    REW0              SKIP REW 2 AND RESTORING OF DIR.*A03
      564   01 02755    22200700 A            LI,2     DIRLENG                                           *A03
      565   01 02756    32341EFF              LW,3     DIRECTRY-1,2      SWAP OLD DIRECTORY              *A03
      566   01 02757    46342EF7              XW,3     OLDDIRCT-1,2        WITH CURRENT DIRECTORY        *A03
      567   01 02758    35341EFF              STW,3    DIRECTRY-1,2                                      *A03
      568   01 02759    64202756              BDR,2    %-3                                               *A03

      570   01 0275A    22200002 A   REW2     LI,2     2                 REW UNIT 2 WITH RING            *A03
      571   01 0275B    6AF02841              BAL,15   REWIND

      573   01 0275C    22200010 A   REW0     LI,2     X'10'             REW UNIT 0 WITH RING            *A03
      574   01 0275D    6AF02841              BAL,15   REWIND
      575   01 0275E    32001F00              LW,0     DIRECTRY          GET NUMBER OF ENTRYS IN DATA BASE
      576   01 0275F    35002C61              STW,0    ENTRYS
      577   01 02760    32002C6E              LW,0     COPYFLAG                                          *A01
      578   01 02761    692027D9              BCS,2    XKLAMATN          COPY REQUEST                    *A01
      579   01 02762    22200004 A            LI,2     4                                                 *A08
      580   01 02763    35202C6B              STW,2    DICTFLAG          DIRECTORY FLAG                  *A03

      582   01 02764    2260AE64     READCARD LI,6     BA(ERRCRD)        IN CASE OF BAD CARD
      583   01 02765    22000000 A            LI,0     0                                                 *A01
      584   01 02766    35002C74              STW,0    BLFLAG            RESET BLOCKING FLAG             *A01
      585   01 02767    33102C73              MTW,1    EBFLAG            SET EBCDIC  FLAG                *A01
      586   01 02768    0F0029F6              XPSD,0   CR                READ A CARD
      587   01 02769    0600B274              GEN,8,24 6,BA(BUFF3)                                       *A01
      588   01 0276A    6800276C              B        CKCOL1
      589   01 0276B    68002852              B        ERRMSG

      591   01 0276C    2230003B A   CKCOL1   LI,3     LFIELD
      592   01 0276D    72062C9D              LB,0     BUFF3,3           PICK UP LOAD INDICATOR
      593   01 0276E    22200000 A            LI,2     0                                                 *A01
      594   01 0276F    35202C6C              STW,2    XFLAG             CLEAR LOADER FLAG               *A01
      595   01 02770    35202C73              STW,2    EBFLAG            RESET EBCDIC  FLAG              *A01
      596   01 02771    35202C75              STW,2    BINFLAG           CLEAR BIN FLAG                  *A04
      597   01 02772    2220003C A            LI,2     X'3C'             BIN CARD CODE (FIRST)
      598   01 02773    2230001C A            LI,3     X'1C'             LAST CARD
      599   01 02774    21000040 A            CI,0     C' '              TEST FOR META SYMBOL LOADER
      600   01 02775    68302783              BCR,3    STDBL                                             *A01
      601   01 02776    210000E7 A            CI,0     C'X'              CHECK FOR 'X' LOADER UPDATE     *A01
      602   01 02777    6930277A              BNE      %+3               BRANCH IF NOT 'X'               *A04
      603   01 02778    33102C6C              MTW,1    XFLAG             SET LOADER UPDATE FLAG          *A01
      604   01 02779    68002783              B        STDBL                                             *A01
      605   01 0277A    210000D5 A            CI,0     C'N'              N = NOT LOADABLE                *A01
      606   01 0277B    69302780              BCS,3    %+5                                               *A04
      607   01 0277C    2220005C A            LI,2     C'*'              '*' IN COL 1                    *A01
      608   01 0277D    223000C5 A            LI,3     C'E'              'E'ND  - LAST CARD              *A01
      609   01 0277E    33102C73              MTW,1    EBFLAG            SET EBCDIC FLAG                 *A01
      610   01 0277F    68002783              B        STDBL
      611   01 02780    210000C2 A            CI,0     C'B'              IS THIS A READ BIN REQUEST      *A04
      612   01 02781    69302783              BCS,3    STDBL             NO                              *A04
      613   01 02782    33102C75              MTW,1    BINFLAG           SET READ BIN FLAG               *A04

      615   01 02783    15202C7A     STDBL    STD,2    FIRSTC            SET UP CARD TYPE
      616   01 02784    72002C9D              LB,0     BUFF3
      617   01 02785    35002C7C              STW,0    COMMAND
      618   01 02786    2100005A A            CI,0     C'!'              EXCLAMATION
      619   01 02787    683027D9              BCR,3    XKLAMATN          YES
      620   01 02788    2100004E A            CI,0     C'+'              PLUS
      621   01 02789    6830278C              BCR,3    CONTCARD          YES
      622   01 0278A    21000060 A            CI,0     C'-'              MINUS
      623   01 0278B    69302852              BCS,3    ERRMSG

      625   01 0278C    2200001E A   CONTCARD LI,0     30                LIMIT SCAN SEARCH TO 30 BYTES   *A03
      626   01 0278D    75002C9D              STB,0    BUFF3             SET STRING COUNT

      628   01 0278E    0F002860              XPSD,0   SCAN              FIND PROGRAM
      629   01 0278F    F0001F00              GEN,8,24  X'F0',DIRECTRY                                   *A01
      630   01 02790    00000000 A   SCANADD  PZE
      631   01 02791    00000000 A   INDEX    PZE
      632   01 02792    680027BD              B        NEWFILE

      634   01 02793    32002791              LW,0     INDEX                                             *A03
      635   01 02794    21000005 A            CI,0     5                                                 *A08
      636   01 02795    68102797              BGE      %+2               B: IF NOT LOADER OR CONT. PROG. *A03
      637   01 02796    33F02791              MTW,-1   INDEX             COMPENSATE FOR DIRECTORY        *A03

      639   01 02797    32302790     NEXTFILE LW,3     SCANADD
      640   01 02798    2200004F A            LI,0     79
      641   01 02799    75002C9D              STB,0    BUFF3             RESTORE COUNT
      642   01 0279A    32002C64              LW,0     FILE
      643   01 0279B    31002791              CW,0     INDEX             FILE>INDEX
      644   01 0279C    682027A3              BCR,2    SEQOK             NO
      645   01 0279D    2260AE24              LI,6     BA(SEQERR)        SEQUENCE ERROR MESSAGE
      646   01 0279E    32002791              LW,0     INDEX                                             *A04
      647   01 0279F    21000004 A            CI,0     4                                                 *A04
      648   01 027A0    68102852              BGE      ERRMSG       BRANCH IF INDEX GREATER/EQUAL TO 4   *A04
      649   01 027A1    33102791              MTW,1    INDEX       RESET INDEX BY ONE                    *A04
      650   01 027A2    68002852              B        ERRMSG

      652   01 027A3    683027AA     SEQOK    BCR,3    SKIP0             FILE=INDEX
      653   01 027A4    0F002A4E              XPSD,0   VERICOP           VERIFY OR COPY THE FILE
      654   01 027A5    00000010 A            DATA     X'10'
      655   01 027A6    01000000     B1       GEN,8,24 1,BA(BUFF1)                                       *A04
      656   01 027A7    02003E00     B2       GEN,8,24 2,BA(BUFF2)                                       *A04
      657   01 027A8    68002855              B        CANTDOIT
      658   01 027A9    68002797              B        NEXTFILE

      660   01 027AA    32002C64     SKIP0    LW,0     FILE
      661   01 027AB    31002C61              CW,0     ENTRYS            FILE>ENTRYS
      662   01 027AC    692027AF              BCS,2    DONTSKIP          YES - LAST FILE
      663   01 027AD    22200010 A            LI,2     X'10'
      664   01 027AE    6AF0283A              BAL,15   SKIP              SKIP FILE MARK ON UNIT 0

      666   01 027AF    32002C7C     DONTSKIP LW,0     COMMAND
      667   01 027B0    2100004E A            CI,0     X'4E'             PLUS
      668   01 027B1    683027C0              BCR,3    ADDNAME           ADD OR REPLACE NAME IN DIRECTRY
      669   01 027B2    32702C61              LW,7     ENTRYS
      670   01 027B3    20700001 A            AI,7     1                                                 *A01
      671   01 027B4    38702791              SW,7     INDEX             ENTRYS-INDEX=NR FILES REMAINING

      673   01 027B5    32200003 A   MOVENAME LW,2     3                 DELETE NAME FROM DIRECTRY
      674   01 027B6    20200050 A            AI,2     80
      675   01 027B7    22100050 A            LI,1     80
      676   01 027B8    6AF027CD              BAL,15   MOVE
      677   01 027B9    647027B5              BDR,7    MOVENAME
      678   01 027BA    33F01F00              MTW,15   DIRECTRY          DECREMENT DIRECTRY COUNT
      679   01 027BB    33F02C61              MTW,15   ENTRYS            DECREMENT ENTRY COUNT
      680   01 027BC    68002764              B        READCARD
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   16
A     682   01 027BD    33102C61     NEWFILE  MTW,1    ENTRYS
      683   01 027BE    33101F00              MTW,1    DIRECTRY          INCREMENT DIRECTRY COUNT
      684   01 027BF    68002797              B        NEXTFILE

      686   01 027C0    2220B274     ADDNAME  LI,2     BA(BUFF3)
      687   01 027C1    22100050 A            LI,1     80
      688   01 027C2    6AF027CD              BAL,15   MOVE              MOVE BUFFER TO DIRECTRY
      689   01 027C3    33002600              MTW,0    MTLT              IS THIS A SNAP SHOT UPDATE      *A01
      690   01 027C4    E9302600              BCS,3    *MTLT             YES - BRANCH TO CALLING PROGRAM *A01
      691   01 027C5    33102C74              MTW,1    BLFLAG            SET BLOCKING FLAG               *A01
      692   01 027C6    33102C65              MTW,1    RFLAG             SET RFLAG#0
      693   01 027C7    0F002A4E              XPSD,0   VERICOP           VERIFY OR COPY A FILE FROM CARDS
      694   01 027C8    80000000 A            DATA     X'80000000'
      695   01 027C9    0100B274              GEN,8,24  1,BA(BUFF3)                                      *A01
      696   01 027CA    02003E00     B3       GEN,8,24 2,BA(BUFF2)                                       *A04
      697   01 027CB    68002855              B        CANTDOIT
      698   01 027CC    6800276C              B        CKCOL1

      700   01 027CD    72040000 A   MOVE     LB,0     0,2
      701   01 027CE    75060000 A            STB,0    0,3
      702   01 027CF    20200001 A            AI,2     1
      703   01 027D0    20300001 A            AI,3     1
      704   01 027D1    641027CD              BDR,1    MOVE
      705   01 027D2    E800000F A            B        *15
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   17
A     707   01 027D3    0F002A4E     FINISH   XPSD,0   VERICOP           VERIFY OR COPY A FILE
      708   01 027D4    00000010 A            DATA     X'10'
      709   01 027D5    01000000     B4       GEN,8,24 1,BA(BUFF1)                                       *A04
      710   01 027D6    02003E00     B5       GEN,8,24 2,BA(BUFF2)                                       *A04
      711   01 027D7    68002855              B        CANTDOIT
      712   01 027D8    680027DA              B        %+2                                               *A01

      714   01 027D9    33102C61     XKLAMATN MTW,1    ENTRYS
      715   01 027DA    32002C64              LW,0     FILE
      716   01 027DB    31002C61              CW,0     ENTRYS            FILE>ENTRYS+1
      717   01 027DC    682027D3              BCR,2    FINISH
      718   01 027DD    32002C60              LW,0     VERIFY
      719   01 027DE    6930282F              BCS,3    UPDATEOK
      720   01 027DF    22000001 A            LI,0     1
      721   01 027E0    35002C64              STW,0    FILE              INITIALIZE FILE COUNTER

      723   01 027E1    0F00298C              XPSD,0   MAGTAPE           WRITE SECOND EOF                *A04
      724   01 027E2    00000001 A            DATA     1                                                 *A04
      725   01 027E3    73000000 A            DATA     X'73000000'                                       *A04
      726   01 027E4    00000000 A            DATA     0                                                 *A04
      727   01 027E5    68002855              B        CANTDOIT                                          *A04
      728   01 027E6    680027E8              B        %+2                                               *A04
      729   01 027E7    68002855              B        CANTDOIT                                          *A04

      731   01 027E8    22200001 A            LI,2     1                                                 *A04
      732   01 027E9    6AF0283C              BAL,15   STARTREW          START REWIND 1                  *A04
      733   01 027EA    22200010 A            LI,2     X'10'             UNIT 0-NO RING
      734   01 027EB    6AF02841              BAL,15   REWIND
      735   01 027EC    32602C6E              LW,6     COPYFLAG          IS UPDATING REQUESTED           *A01
      736   01 027ED    6920282A              BCS,2    NOUPDT            NO                              *A01
      737   01 027EE    2260AFEC              LI,6     BA(PASS2)
      738   01 027EF    EAF02C83              BAL,15   *OUTPUT
      739   01 027F0    22200001 A            LI,2     1                 UNIT 1-WITH RING
      740   01 027F1    6AF02841              BAL,15   REWIND
      741   01 027F2    22200002 A            LI,2     2                 UNIT 2-WITH RING
      742   01 027F3    6AF02841              BAL,15   REWIND
      743   01 027F4    2220B274              LI,2     BA(BUFF3)                                         *A03
      744   01 027F5    22307C04              LI,3     BA(DIRECTRY)+4
      745   01 027F6    2210004F A            LI,1     79
      746   01 027F7    75102C9D              STB,1    BUFF3
      747   01 027F8    20100001 A            AI,1     1
      748   01 027F9    6AF027CD              BAL,15   MOVE              MOVE REVISION CARD TO DIRECTRY
      749   01 027FA    32102C61              LW,1     ENTRYS
      750   01 027FB    35101F00              STW,1    DIRECTRY
      751   01 027FC    33F01F00              MTW,-1   DIRECTRY
      752   01 027FD    23100050 A            MI,1     80
      753   01 027FE    20100004 A            AI,1     4
      754   01 027FF    22200001 A            LI,2     1
      755   01 02800    55142820              STH,1    DBYTES,2
      756   01 02801    32102C61              LW,1     ENTRYS
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   18
A     758   01 02802    33F02C6B     COPYLUP  MTW,-1   DICTFLAG                                          *A03
      759   01 02803    6830281B              BCR,3    NEWDIR                                            *A03

      761   01 02804    0F002A4E              XPSD,0   VERICOP          COPY A FILE                      *A03
      762   01 02805    00000001 A            DATA     1                 FROM UNIT 1 TO UNIT 2
      763   01 02806    02000000     B6       GEN,8,24 2,BA(BUFF1)                                       *A04
      764   01 02807    00000000     B7       GEN,8,24 0,BA(BUFF1)                                       *A04
      765   01 02808    68002855              B        CANTDOIT

      767   01 02809    64102802     CONTINUE BDR,1    COPYLUP                                           *A03

      769   01 0280A    0F00298C              XPSD,0   MAGTAPE           WRITE SECOND EOF                *A01
      770   01 0280B    00000002 A            DATA     2                                                 *A01
      771   01 0280C    73000000 A            DATA     X'73000000'                                       *A01
      772   01 0280D    00000000 A            DATA     0                                                 *A01
      773   01 0280E    68002855              B        CANTDOIT                                          *A01
      774   01 0280F    68002811              B        %+2                                               *A01
      775   01 02810    68002855              B        CANTDOIT                                          *A01

      777   01 02811    22200002 A            LI,2     2                                                 *A04
      778   01 02812    6AF0283C              BAL,15   STARTREW          START REWIND 2                  *A04
      779   01 02813    22200001 A            LI,2     1
      780   01 02814    6AF02841              BAL,15   REWIND            REWIND UNIT 1 - WITH RING
      781   01 02815    2260AF58              LI,6     BA(COPYDUN)       COPY PORTION OF UPDATE COMPLETED
      782   01 02816    EAF02C83              BAL,15   *OUTPUT
      783   01 02817    2260B040              LI,6     BA(PASS3)
      784   01 02818    EAF02C83              BAL,15   *OUTPUT
      785   01 02819    22000001 A            LI,0     1
      786   01 0281A    68002750              B        UPDATE1
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   19
A     788   01 0281B    22200001 A   NEWDIR   LI,2     1                                                 *A03
      789   01 0281C    6AF0283A              BAL,15   SKIP              SKIP OLD DIRECTORY ON UNIT 1    *A03
      790   01 0281D    0F00298C              XPSD,0   MAGTAPE
      791   01 0281E    00000002 A            DATA     2
      792   01 0281F    01007C00              GEN,8,24 X'1',BA(DIRECTRY)
      793   01 02820    0A000000 A   DBYTES   DATA     X'A000000'
      794   01 02821    68002855              B        CANTDOIT
      795   01 02822    68002855              B        CANTDOIT                                          *A03

      797   01 02823    0F00298C              XPSD,0   MAGTAPE           WRITE EOF MARK                  *A03
      798   01 02824    00000002 A            DATA     2                   AFTER DIRECTORY               *A03
      799   01 02825    73000000 A            DATA     X'73000000'                                       *A03
      800   01 02826    00000000 A            DATA     0                                                 *A03
      801   01 02827    68002855              B        CANTDOIT                                          *A03
      802   01 02828    68002809              B        CONTINUE                                          *A03
      803   01 02829    68002855              B        CANTDOIT                                          *A03

      805   01 0282A    22200001 A   NOUPDT   LI,2     1                                                 *A01
      806   01 0282B    35202C60              STW,2    VERIFY            SET VERIFY FLAG                 *A01
      807   01 0282C    752027D6              STB,2    B5                SET UNIT 1 CONTROL              *A04
      808   01 0282D    6AF02841              BAL,15   REWIND            REW UNIT 1 WITH RING            *A01
      809   01 0282E    680027D3              B        FINISH            GO VERIFY UNIT 0 AND 1          *A01

      811   01 0282F    22200000 A   UPDATEOK LI,2     0                                                 *A04
      812   01 02830    6AF0283C              BAL,15   STARTREW          START REWIND 0                  *A04
      813   01 02831    22200001 A            LI,2     1                                                 *A04
      814   01 02832    2260AF88              LI,6     BA(COPYVER)       COPY COMPLETED MESSAGE          *A01
      815   01 02833    33002C6E              MTW,0    COPYFLAG          WAS THIS A STRAIGHT COPY        *A01
      816   01 02834    69202837              BCS,2    %+3               B: YES                          *A01
      817   01 02835    22200002 A            LI,2     2                                                 *A01
      818   01 02836    2260AFA4              LI,6     BA(SUCCESS)                                       *A01
      819   01 02837    6AF02841              BAL,15   REWIND                                            *A03
      820   01 02838    EAF02C83              BAL,15   *OUTPUT                                           *A03
      821   01 02839    68002709              B        WINDDN            RESET EVERYTHING BUT THE COC    *G01

      823   01 0283A    32702EE6     SKIP     LW,7     =X'53000000'
      824   01 0283B    68002842              B        REWIND+1

      826   01 0283C    32242604     STARTREW LW,2     TAPE,2            GET TAPE ADDR                   *A04
      827   01 0283D    2200163C              LI,0     DA(REWORD)                                        *A04
      828   01 0283E    CC000002 A            SIO,0    *2                START REWINDING                 *A04
      829   01 0283F    69C0283E              BCS,12   %-1                                               *A04
      830   01 02840    E800000F A            B        *15               RETURN                          *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   20
A     832   01 02841    32702EE7     REWIND   LW,7     =X'33000000'                                      *A01
      833   01 02842    35702846              STW,7    ORDER
      834   01 02843    35202845              STW,2    UNIT                                              *A03

      836   01 02844    0F00298C              XPSD,0   MAGTAPE
      837   01 02845    00000000 A   UNIT     PZE
      838   01 02846    00000000 A   ORDER    PZE                                                        *A03
      839   01 02847    0A000000 A            DATA     X'A000000'
      840   01 02848    68002855              B        CANTDOIT
      841   01 02849    E800000F A            B        *15
      842   01 0284A    E800000F A            B        *15

      844   01 0284B    2260B0A4     PARAERR  LI,6    BA(PARAMERR)
      845   01 0284C    68002850              B       UPSER+1

      847   01 0284D    2260AD40     CANTLD   LI,6     BA(CANTLOAD)                                      *A03
      848   01 0284E    68002850              B        %+2                                               *A03

      850   01 0284F    2260AE74     UPSER    LI,6     BA(SELERR)        SELECTION ERROR MSG.
      851   01 02850    EAF02C83              BAL,15   *OUTPUT                                           *A03
      852   01 02851    6800265C              B        CONTROL           TRY AGAIN                       *A03

      854   01 02852    EAF02C83     ERRMSG   BAL,15   *OUTPUT
      855   01 02853    2E002853              WAIT     %                                                 *A04
      856   01 02854    68002764              B        READCARD     BRANCH BACK TO READ ANOTHER CARD     *A04

      858   01 02855    2260AF40     CANTDOIT LI,6     BA(PROB)          PROBLEM MSG.
      859   01 02856    EAF02C83              BAL,15   *OUTPUT
      860   01 02857    22700000 A            LI,7     0                                                 *A02
      861   01 02858    22600050 A            LI,6     80                                                *A02
      862   01 02859    30702C64              AW,7     FILE               MULTIPLY FILE BY 80            *A02
      863   01 0285A    64602859              BDR,6    %-1                                               *A02
      864   01 0285B    20707B64              AI,7     BA(DIRECTRY)-156                                  *A02
      865   01 0285C    32600007 A            LW,6     7
      866   01 0285D    EAF02C83              BAL,15   *OUTPUT
      867   01 0285E    68002709              B        WINDDN            RESET EVERYTHING BUT COC        *G01

      869         01 0285F           LINK     EQU      %                 PLACED IN LOCATION X'26'        *G01
      870   01 0285F    68002708              B        WINDUP
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   21
A     872                            ********************************************************
      873                            *
      874                            *        SCAN ROUTINE
      875                            *
      876                            ********************************************************
      877                            *
      878                            *        ACCEPTS A BYTE STRING AND SCANS THROUGH A GIVEN DATA BASE TO
      879                            *        FIND A MATCH. THE FIRST MATCH ENCOUNTERED CAUSES A SKIP EXIT
      880                            *        WITH THE BYTE ADDRESS AND AN INDEX(POSITION OF)THE MATCHING
      881                            *        STRING.  IF THE GIVEN STRING IS A PART OF MORE THAN ONE STRING
      882                            *        IN THE DATA BASE, ALL MATCHING STRINGS WILL BE OUTPUTTED FOL-
      883                            *        LOWED BY THE INTIAL STRING TO WHICH MORE CHARACTERS CAN BE AP-
      884                            *        PENDED. IF NO MATCH IS FOUND AN ERROR EXIT OCCURS.
      885                            *        ALL INPUT IS TERMINATED BY A CARRIAGE RETURN.  AN EOM CAUSES
      886                            *        A RESTART OF THE PROGRAM.
      887                            *
      888                            *        CALLING SEQUENCE:
      889                            *
      890                            *        XPSD,0   SCAN
      891                            *        PZE      DATABASE          WORD ADDRESS OF DATA BASE.
      892                            *       (PZE      BA(MATCH))*       BYTE ADDRESS OF MATCHING STRING
      893                            *       (PZE      INDEX)*           INDEX OF MATCHING STRING
      894                            *        NO MATCH EXIT
      895                            *        NORMAL EXIT
      896                            *
      897                            *      * INDICATES DATA RETURNED BY THE PROGRAM(SCAN).
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   22
A     899                                     BOUND    8
      900   01 02860    0000265D     SCAN     DATA     CONTROL+1         IN CASE FIRST TITLE OUTPUT      *B05
      901   01 02861    00000000 A            DATA     0                  IS INTERRUPTED WITH BREAK      *B05
      902   01 02862    00002864              PZE      %+2
      903   01 02863    07000000 A            DATA     X'7000000'

      905   01 02864    35002C4E              STW,0    REGISTER          SAVE                            *A02
      906   01 02865    35102C4F              STW,1    REGISTER+1                                        *A02
      907   01 02866    221FFFF2 A            LI,1     -14                 ALL                           *A02
      908   01 02867    32020010 A            LW,0     16,1                                              *A02
      909   01 02868    35022C5E              STW,0    REGISTER+16,1         REGISTERS                   *A02
      910   01 02869    65102867              BIR,1    %-2                                               *A02

      912   01 0286A    B2002860              LW,0     *SCAN
      913   01 0286B    6910286F              BCS,1    APPEND

      915   01 0286C    22100001 A   RESCAN   LI,1     1                 INPUT BUFFER STRING COUNTER
      916   01 0286D    2260AD18              LI,6     BA(CRDASH)        CARRIAGE RETURN AND A DASH.
      917   01 0286E    EAF02C83              BAL,15   *OUTPUT

      919   01 0286F    B2602860     APPEND   LW,6     *SCAN             ADDRESS OF STRING ENTRY COUNT
      920   01 02870    324C0000 A            LW,4     0,6               STRING ENTRY COUNTER
      921   01 02871    20600015 A            AI,6     21                POINT TO FIRST STRING
      922   01 02872    30600006 A            AW,6     6                 SHIFT LEFT 2 POSITIONS          *A02
      923   01 02873    30600006 A            AW,6     6                   TO CREATE BYTE ADR OF STRING  *A02
      924   01 02874    222FFFFF A            LI,2     -1                NUMBER OF MATCHING STRINGS - 2.
      925   01 02875    22700000 A            LI,7     0                                                 *A03
      926   01 02876    35702C6F              STW,7    PARAFLAG          RESET PARAMETER FLAG            *A03
      927   01 02877    35702C71              STW,7    DIRFLAG                                           *A03
      928   01 02878    22700002 A            LI,7     2                 INITIALIZE INDEX OF MATCHING STRING
      929   01 02879    21600000 A            CI,6     0                 TEST FOR CR INPUT
      930   01 0287A    6920287D              BCS,2    %+3               NO
      931   01 0287B    72102C9D              LB,1     BUFF3
      932   01 0287C    680028AA              B        FIND1
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   23
A     934   01 0287D    22D00008 A   SCANLUP  LI,13    8                 INITIALIZE WITH AN EOM
      935   01 0287E    EAF02C82              BAL,15   *INPUT            GET A CHARACTER                 *A04
      936   01 0287F    68002880              B        %+1

      938   01 02880    21D00008 A            CI,13    8                 EOM
      939   01 02881    6830286C              BCR,3    RESCAN

      941   01 02882    21D0004C A            CI,13    '<'               DELETE CHAR.                    *A05
      942   01 02883    6830286C              BCR,3    RESCAN            B IF YES                        *A05

      944   01 02884    21D0005A A            CI,13    C'!'              EXCLAMATION                     *A03
      945   01 02885    683028EC              BCR,3    EXCLAM            YES                             *A03

      947   01 02886    21D0004D A            CI,13    '('               START MSG MODE                  *A04
      948   01 02887    69302889              BCS,3    %+2               YES                             *A04
      949   01 02888    33102C95              MTW,1    MSGMODE                                           *A04

      951   01 02889    21D0005D A            CI,13    ')'               RESET MSG MODE                  *A04
      952   01 0288A    683028A1              BCR,3    RESMODE                                           *A04

      954   01 0288B    33002C95              MTW,0    MSGMODE           MSG MODE SET                    *A04
      955   01 0288C    6930287D              BCS,3    SCANLUP           YES GET NEXT CHAR               *A04

      957   01 0288D    21D0007B A            CI,13    '#'                                               *A06
      958   01 0288E    69302891              BCS,3    %+3                                               *A06

      960   01 0288F    35D02C70              STW,13   RGUIDE                                            *A06
      961   01 02890    68002893              B        TERM                                              *A06

      963   01 02891    21D00015 A            CI,13    X'15'             CARRIAGE RETURN
      964   01 02892    69302896              BCS,3    %+4               NO

      966   01 02893    33002C71     TERM     MTW,0    DIRFLAG           IS DIRECTIVE FLAG SET           *A03
      967   01 02894    683028A4              BCR,3    CARRET            NO                              *A03
      968   01 02895    680028DD              B        DIRHAND           GO TO DIRECTIVE HANDLER         *A03

      970   01 02896    33002C6F              MTW,0    PARAFLAG          WAS A COMMA ENTERED             *A03
      971   01 02897    6930292A              BCS,3    HEXCON            YES - CONV TO HEX               *A03

      973   01 02898    21D0006B A            CI,13    C','              IS IT COMMA                     *A03
      974   01 02899    683028EA              BCR,3    COMMA             YES                             *A03

      976   01 0289A    75D22C9D              STB,13   BUFF3,1           INSERT CHARACTER INTO STRING.
      977   01 0289B    20100001 A            AI,1     1                 INCREMENT CHAR COUNT OF STRING.
      978   01 0289C    2110001F A            CI,1     31                                                *A05
      979   01 0289D    6910287D              BCS,1    SCANLUP           NO

      981   01 0289E    2260AD1C              LI,6     BA(OVER)          YES
      982   01 0289F    EAF02C83              BAL,15   *OUTPUT
      983   01 028A0    6800286C              B        RESCAN
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   24
A     985   01 028A1    22D00000 A   RESMODE  LI,13    0                                                 *A04
      986   01 028A2    35D02C95              STW,13   MSGMODE           RESET MSG MODE                  *A04
      987   01 028A3    6800287D              B        SCANLUP                                           *A04
      988                            *
      989   01 028A4    201FFFFF A   CARRET   AI,1     -1                                                *A03
      990   01 028A5    75102C9D              STB,1    BUFF3             SET STRING COUNT
      991   01 028A6    693028AA              BCS,3    FIND1                                             *A03
      992   01 028A7    22007C04              LI,0     BA(DIRECTRY)+4    NO                              *A05
      993   01 028A8    35002AF3              STW,0    LAST                                              *A05
      994   01 028A9    EAF02C84              BAL,15   *OUTPUT1          PRINT TITLE                     *A04

      996   01 028AA    356028AD     FIND1    STW,6    ADDRESS                                           *A04
      997   01 028AB    0F002948              XPSD,0   COMPARE           FIND A MATCH                    *A04
      998   01 028AC    0000B274              DATA     BA(BUFF3)
      999   01 028AD    00000000 A   ADDRESS  PZE
     1000   01 028AE    680028CA              B        NOMATCH
     1001   01 028AF    680028C5              B        MATCHES

     1003   01 028B0    21100000 A   MATCH    CI,1     0                 TEST FOR CARRIAGE RETURN
     1004   01 028B1    683028D5              BCR,3    1ONLY             YES
     1005   01 028B2    32402860              LW,4      SCAN                                             *A04
     1006   01 028B3    20400001 A            AI,4     1                                                 *A02
     1007   01 028B4    35402860              STW,4    SCAN                                              *A02
     1008   01 028B5    22100001 A            LI,1     1                                                 *A02
     1009   01 028B6    B5602860              STW,6    *SCAN             SET MATCHING STRING ADDR        *A02
     1010   01 028B7    B5722860              STW,7    *SCAN,1             AND INDEX                     *A02
     1011   01 028B8    20400002 A            AI,4     2                                                 *A02
     1012   01 028B9    35402860              STW,4    SCAN                                              *A02
     1013   01 028BA    21200000 A            CI,2     0                 ERROR
     1014   01 028BB    693028BE              BCS,3    %+3               YES                             *A02
     1015   01 028BC    20400001 A            AI,4     1                                                 *A02
     1016   01 028BD    35402860              STW,4    SCAN                                              *A02
     1017   01 028BE    221FFFF2 A            LI,1     -14                                               *A02
     1018   01 028BF    32022C5E              LW,0     REGISTER+16,1     RESTORE                         *A02
     1019   01 028C0    35020010 A            STW,0    16,1                                              *A02
     1020   01 028C1    651028BF              BIR,1    %-2                 ALL                           *A02
     1021   01 028C2    32102C4F              LW,1     REGISTER+1                                        *A02
     1022   01 028C3    32002C4E              LW,0     REGISTER              REGISTERS                   *A02
     1023   01 028C4    0E002860              LPSD,0   SCAN              EXIT SCANNER
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   25
A    1025   01 028C5    20200001 A   MATCHES  AI,2     1                 INCREMENT MATCHING STRING COUNTER
     1026   01 028C6    683028C8              BCR,3    1STIME            FIRST TIME WE FOUND A MATCH-SKIP
     1027   01 028C7    EAF02C84              BAL,15   *OUTPUT1          OUTPUT LAST MATCHING STRING.    *A04

     1029   01 028C8    35602AF3     1STIME   STW,6    LAST              SAVE MATCHING STRINGS BYTE ADDRESS.
     1030   01 028C9    35702791              STW,7    INDEX             SAVE THE CURRENT INDEX VALUE

     1032   01 028CA    20700001 A   NOMATCH  AI,7     1                 INCREMENT INDEX
     1033   01 028CB    725C0000 A            LB,5     0,6               LENGTH OF STRING
     1034   01 028CC    30600005 A            AW,6     5                 POINT TO END OF STRING
     1035   01 028CD    20600001 A            AI,6     1                 POINT TO NEXT STRING
     1036   01 028CE    644028AA              BDR,4    FIND1             CONTINUE UNTIL LAST STRING

     1038   01 028CF    21200000 A            CI,2     0                 TEST FOR NO MATCH
     1039   01 028D0    691028B0              BCS,1    MATCH             NO MATCH

     1041   01 028D1    32602AF3              LW,6     LAST
     1042   01 028D2    32702791              LW,7     INDEX             RESTORE INDEX
     1043   01 028D3    21200000 A            CI,2     0                 TEST FOR NO MATCH OR ONE MATCH
     1044   01 028D4    682028B0              BCR,2    MATCH             YES

     1046   01 028D5    EAF02C84     1ONLY    BAL,15   *OUTPUT1          OUTPUT LAST MATCHING STRING     *A05
     1047   01 028D6    2260AD18              LI,6     BA(CRDASH)        CARRIAGE RETURN AND A DASH.     *A05
     1048   01 028D7    72D02C9D              LB,13    BUFF3             TEST BUFFER EMPTY
     1049   01 028D8    6830286C              BCR,3    RESCAN            YES
     1050   01 028D9    20100001 A            AI,1     1                 BUMP BUFFER COUNT
     1051   01 028DA    EAF02C83              BAL,15   *OUTPUT           OUTPUT A DASH
     1052   01 028DB    2260B274              LI,6     BA(BUFF3)                                         *A05
     1053   01 028DC    6800286E              B        APPEND-1          OUTPUT CURRENT STRING.
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   26
A    1055                            *     DIRECTIVE HANDLING ROUTINE.                                   *A03
     1056                            *
     1057                            *
     1058   01 028DD    33002C6F     DIRHAND  MTW,0    PARAFLAG          WAS A PARAMETER ENTERED         *A03
     1059   01 028DE    693828F6              BCS,3    ADDRTAB-1,4       YES - GO TO DIRECTIVE           *A03
     1060   01 028DF    22400007 A            LI,4     LENGTH                                            *A03
     1061   01 028E0    32C02C9D              LW,12    BUFF3             GET MNEMONIC                    *A03
     1062   01 028E1    31C828EF              CW,12    DIRTAB-1,4        COMPARE TO TABLE                *A03
     1063   01 028E2    683028E6              BCR,3    FOUND             B: IF FOUND                     *A03
     1064   01 028E3    644028E1              BDR,4    %-2                                               *A03

     1066   01 028E4    2260B0B4     DIRHAND1 LI,6     BA(INVDIR)                                        *A08
     1067   01 028E5    6800284E              B        UPSER-1           REPORT ERROR                    *A03

     1069   01 028E6    33002C6F     FOUND    MTW,0    PARAFLAG                                          *A03
     1070   01 028E7    683828F6              BCR,3    ADDRTAB-1,4       GO TO DIRECTIVE                 *A03

     1072   01 028E8    22C00000 A            LI,12    0                 SET R12 TO ZERO FOR INPUT       *A03
     1073   01 028E9    6800287D              B        SCANLUP           GET PARAMETER                   *A03
     1074                            *                                                                   *A03
     1075   01 028EA    33102C6F     COMMA    MTW,1    PARAFLAG          SET PARAM FLAG                  *A03
     1076   01 028EB    680028DF              B        DIRHAND+2         GO FIND DIRECTIVE               *A03
     1077                            *                                                                   *A03
     1078   01 028EC    33102C71     EXCLAM   MTW,1    DIRFLAG           SET DIRECTIVE FLAG              *A03
     1079   01 028ED    22100000 A            LI,1     0                 RESET INDEX                     *A03
     1080   01 028EE    35102C95              STW,1    MSGMODE           RESET MSG MODE                  *A04
     1081   01 028EF    6800287D              B        SCANLUP           GET NEXT CHAR.                  *A03
     1082                            *                                                                   *A03
     1083   01 028F0    E4D7C4C1 A   DIRTAB   DATA     C'UPDA'           UPDATE                          *A03
     1084   01 028F1    C3D6D7E8 A            DATA     C'COPY'           COPY                            *A03
     1085   01 028F2    D3C9E2E3 A            DATA     C'LIST'           LISTING OUTPUT DEV              *A03
     1086   01 028F3    C3D6D4D7 A            DATA     C'COMP'           COMPARE UNIT 0 TO 2             *A03
     1087   01 028F4    E2E6C1D7 A            DATA     C'SWAP'           SWAP REM / LOCAL                *A04
     1088   01 028F5    C4C9C1C7 A            DATA     C'DIAG'                                           *A04
     1089   01 028F6    D9D6C6C6 A            DATA     C'ROFF'           REMOTE OFF                      *A04
     1090         00000007           LENGTH   EQU      %-DIRTAB                                          *A03
     1091                            *                                                                   *A03
     1092   01 028F7    6800273C     ADDRTAB  B        UPDATE            GO TO UPDATE                    *A03
     1093   01 028F8    680028FE              B        COPY              GO TO COPY                      *A03
     1094   01 028F9    68002905              B        LIST              GO TO LIST                      *A03
     1095   01 028FA    6800290A              B        COMP              GO TO COMPARE                   *A03
     1096   01 028FB    68002910              B        REMSWAP                                           *A04
     1097   01 028FC    68002915              B        LOGON                                             *A04
     1098   01 028FD    68002923              B        ROFF              TURN REMOTE TERM OFF            *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   27
A    1100   01 028FE    33002C80     COPY     MTW,0    DISK                                              *A08
     1101   01 028FF    693028E4              BNEZ     DIRHAND1                                          *A08
     1102   01 02900    33102C6E              MTW,1    COPYFLAG          SET COPY FLAG                   *A08
     1103   01 02901    33002C6F              MTW,0    PARAFLAG
     1104   01 02902    68302904              BCR,3    %+2                                               *A04
     1105   01 02903    35C02605              STW,12   TAPE+1            SET COPY DEV ADR                *A04
     1106   01 02904    68002745              B        COPYONLY          GO COPY TAPE                    *A03
     1107                            *                                                                   *A03
     1108   01 02905    2260AE84     LIST     LI,6     BA(NOADR)                                         *A03
     1109   01 02906    CD00000C A            TIO,0     *12                                              *A03
     1110   01 02907    69802850              BCS,8     UPSER+1                                          *A04
     1111   01 02908    35C02609              STW,12   MSGDEV            CHANGE LISTING DEVICE           *A03
     1112   01 02909    6800265C              B        CONTROL                                           *A03
     1113                            *
     1114   01 0290A    33002C80     COMP     MTW,0    DISK                                              *A08
     1115   01 0290B    693028E4              BNEZ     DIRHAND1                                          *A08
     1116   01 0290C    22000001 A            LI,0     1                                                 *A08
     1117   01 0290D    35002C60              STW,0    VERIFY                                            *A03
     1118   01 0290E    35002C64              STW,0    FILE                                              *A03
     1119   01 0290F    6800275A              B        REW2                                              *A03
     1120                            *
     1121   01 02910    6AF02D8C     REMSWAP  BAL,15   SWAP              SWAP REM / LOCAL OBSER.         *A04
     1122   01 02911    6800265C              B        CONTROL                                           *A04
     1123   01 02912    2260B0E4              LI,6     BA(RSWAPMSG)      'NOBODY LOGGED ON MSG'          *A04
     1124   01 02913    EAF02C83              BAL,15   *OUTPUT                                           *A04
     1125   01 02914    6800265C              B        CONTROL           EXIT                            *A04
     1126                            *                                                                   *A04
     1127         01 02915           LOGON    EQU      %                                                 *B03
     1128   01 02915    33002C6F              MTW,0    PARAFLAG          NO PARAMETER IS                 *B03
     1129   01 02916    6830284B              BEZ      PARAERR            TREATED LIKE AN ERROR          *B03

     1131   01 02917    3240000C A            LW,4     12                SAVE COC ADDRESS                *B03
     1132   01 02918    4BC02EE8              AND,12   =X'FFFF'           AS WELL AS DIO ADDRESS         *B03
     1133   01 02919    35C02C8F              STW,12   COCDEV                                            *B03
     1134   01 0291A    25400070 A            SLS,4    -16                                               *B03
     1135   01 0291B    35402C90              STW,4    DIODEV                                            *B03
     1136   01 0291C    6AF02DB4              BAL,15   SETDIO            MODIFY THE COC/DIO COMMANDS     *B03

     1138   01 0291D    02200040 A            LCI      TABLEN                                            *A04
     1139   01 0291E    2A002C8A              LM,0     IOTAB1            GET REM TAB                     *A04
     1140   01 0291F    2B002C82              STM,0    INPUT             CONNECT REMOTE PACKAGE          *A04
     1141   01 02920    32002C77              LW,0     PI                                                *A05
     1142   01 02921    35002C8E              STW,0    REMCODE           SET REMOTE FLAG                 *A05
     1143   01 02922    6800265C              B        CONTROL           EXIT                            *A04
     1144                            *
     1145   01 02923    6AF02DA2     ROFF     BAL,15   REMOFF            TURN REMOTE TERM OFF            *A04
     1146   01 02924    02200040 A            LCI      TABLEN                                            *A04
     1147   01 02925    2A002C86              LM,0     IOTAB                                             *A04
     1148   01 02926    2B002C82              STM,0    INPUT             RESTORE I/O TABLE               *A04
     1149   01 02927    22000000 A            LI,0     0                                                 *A05
     1150   01 02928    35002C8E              STW,0    REMCODE           RESET REMOTE FLAG               *A05
     1151   01 02929    6800265C              B        CONTROL                                           *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   28
A    1153                            *        HEX CONVERSION ROUTINE                                     *A03
     1154                            *                                                                   *A03
     1155   01 0292A    21D00040 A   HEXCON   CI,13    X'40'                                             *A03
     1156   01 0292B    68302893              BCR,3    TERM                                              *A03
     1157   01 0292C    21D000F0 A            CI,13    X'F0'                                             *A03
     1158   01 0292D    68102934              BCR,1    %+7                                               *A03
     1159   01 0292E    21D000C7 A            CI,13    X'C7'                                             *A03
     1160   01 0292F    6810284B              BCR,1    PARAERR                                           *A03
     1161   01 02930    21D000C1 A            CI,13    X'C1'                                             *A03
     1162   01 02931    68102933              BCR,1    %+2                                               *A03
     1163   01 02932    6800284B              B        PARAERR                                           *A03
     1164   01 02933    20D00009 A            AI,13    9                                                 *A03
     1165   01 02934    4BD02736              AND,13   XF                                                *A03
     1166   01 02935    223FFFFC A            LI,3     -4                                                *A03
     1167   01 02936    30C0000C A            AW,12    12                                                *A03
     1168   01 02937    65302936              BIR,3    %-1                                               *A03
     1169   01 02938    30C0000D A            AW,12    13                                                *A03
     1170   01 02939    6800287D              B        SCANLUP                                           *A03
     1171                            *
     1172                            *        IF MEMORY SIZE IS GREATER THAN 16K  BUFF1 AND BUFF2 ARE    *A04
     1173                            *        ENLARGED TO X'1900' LOCATIONS.                             *A04
     1174                            *                                                                   *A04
     1175   01 0293A    33102C5E     CORESIZE MTW,1    FIRSTIME          SET FIRST TIME FLAG             *A04
     1176   01 0293B    33002C7F              MTW,0    CORE              IS CORE 16K OR LESS             *A04
     1177   01 0293C    E830000F A            BCR,3    *15               YES : EXIT                      *A04
     1178   01 0293D    222FB800 A            LI,2     -X'4800'                                          *A04
     1179   01 0293E    662027A6              AWM,2    B1                      EXPAND                    *A04
     1180   01 0293F    662027D5              AWM,2    B4                                                *A04
     1181   01 02940    66202806              AWM,2    B6                      BUFF1                     *A04
     1182   01 02941    66202807              AWM,2    B7                                                *A04
     1183   01 02942    66202B44              AWM,2    CRIOCD                  AND                       *A04
     1184   01 02943    222FDC00 A            LI,2     -X'2400'                                          *A04
     1185   01 02944    662027A7              AWM,2    B2                      BUFF2                     *A04
     1186   01 02945    662027CA              AWM,2    B3                                                *A04
     1187   01 02946    662027D6              AWM,2    B5                                                *A04
     1188   01 02947    E800000F A            B        *15               EXIT                            *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   29
A    1190                            ********************************************************
     1191                            *
     1192                            *        COMPARE ROUTINE
     1193                            *
     1194                            ********************************************************
     1195                            *
     1196                            *        COMPARES TWO BYTE STRINGS(A AND B) AND RESPONDS AS FOLLOWS:
     1197                            *
     1198                            *        CASE 1   WHEN STRING A IS LONGER THAN STRING B OR STRING B
     1199                            *                 DOES NOT INCLUDE STRING A, NO SKIP OCCURS ON EXIT.
     1200                            *
     1201                            *        CASE 2   WHEN STRING B IS LONGER THAN STRING A AND INCLUDES
     1202                            *                 STRING A, A SKIP OF ONE OCCURS, ON EXIT.
     1203                            *
     1204                            *        CASE 3   WHEN STRING A AND B ARE IDENTICAL, A SKIP OF TWO
     1205                            *                 OCCURS ON EXIT.
     1206                            *
     1207                            *        CALLING SEQUENCE:
     1208                            *
     1209                            *        XPSD,0   COMPARE
     1210                            *        PZE      BA(A)             BYTE ADDRESS OF STRING A.
     1211                            *        PZE      BA(B)             BYTE ADDRESS OF STRING B.
     1212                            *        EXIT CASE 1
     1213                            *        EXIT CASE 2
     1214                            *        EXIT CASE 3
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   30
A    1216                                     BOUND    8
     1217   01 02948    00000000 A   COMPARE  PZE
     1218   01 02949    00000000 A            PZE
     1219   01 0294A    0000294C              PZE      %+2
     1220   01 0294B    07000000 A            DATA     X'7000000'

     1222   01 0294C    35002C3E              STW,0    REG               SAVE REGISTERS                  *A02
     1223   01 0294D    35102C3F              STW,1    REG+1                                             *A02
     1224   01 0294E    221FFFF2 A            LI,1     -14                                               *A02
     1225   01 0294F    32020010 A            LW,0     16,1                                              *A02
     1226   01 02950    35022C4E              STW,0    REG+16,1                                          *A02
     1227   01 02951    6510294F              BIR,1    %-2                                               *A02

     1229   01 02952    22100001 A            LI,1     1                 FETCH ADDRESSES OF STRINGS      *A02
     1230   01 02953    B2202948              LW,2     *COMPARE            A(R2) AND B(3).               *A02
     1231   01 02954    B2322948              LW,3     *COMPARE,1                                        *A02
     1232   01 02955    32102948              LW,1     COMPARE                                           *A02

     1234   01 02956    72440000 A            LB,4     0,2               STRING A BYTE COUNT (R4)
     1235   01 02957    68302981              BCR,3    CASE2             COUNT=0

     1237   01 02958    22C00028 A            LI,12    40                PREPARE SCAN TO STOP WHEN       *B06
     1238   01 02959    38C00004 A            SW,12    4                  STRING A OVERLAPS COLUMN 40    *B06

     1240   01 0295A    32A00004 A            LW,10    4                 SAVE BUFFER LENGTH
     1241   01 0295B    72560000 A            LB,5     0,3               STRING B BYTE COUNT (R5)
     1242   01 0295C    22BFFFFF A            LI,11    -1                CREATE WORD ADDRESSES FROM BYTE *A02
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   31
A    1244   01 0295D    228FFFE3 A   COMPAREA LI,8     -29                 ADDRESSES OF STRINGS A & B.   *A02
     1245   01 0295E    22900000 A            LI,9     0                                                 *A02

     1247   01 0295F    4B202738     COMPAREB AND,2    LFTSMSK                                           *A02
     1248   01 02960    30900009 A            AW,9     9                                                 *A02
     1249   01 02961    30200002 A            AW,2     2                                                 *A02
     1250   01 02962    68102964              BCR,1    %+2                                               *A02

     1252   01 02963    20900001 A            AI,9     1                                                 *A02
     1253   01 02964    6580295F              BIR,8    COMPAREB                                          *A02

     1255   01 02965    32200003 A            LW,2     3                                                 *A02
     1256   01 02966    32300009 A            LW,3     9                                                 *A02
     1257   01 02967    20B00001 A            AI,11    1                                                 *A02
     1258   01 02968    6820295D              BCR,2    COMPAREA                                          *A02

     1260   01 02969    22900000 A            LI,9     0                 COMPARE INDICATION(R9)
     1261   01 0296A    22800000 A            LI,8     0                 ITERATION COUNTER(R8)

     1263   01 0296B    32700008 A   COMPARE1 LW,7     8                 INITIALIZE STRING B START       *B06
     1264   01 0296C    22600000 A            LI,6     0                 INITIALIZE STRING A START       *B06

     1266   01 0296D    31400005 A            CW,4     5                 TEST STRING A LARGER THAN B.
     1267   01 0296E    6920297C              BCS,2    DONE              YES

     1269   01 0296F    20600001 A   COMPARE2 AI,6     1                 INCREMENT STRING A COUNTER.
     1270   01 02970    20700001 A            AI,7     1                 INCREMENT STRING B COUNTER.
     1271   01 02971    F2DC0002 A            LB,13    *2,6              BYTE FROM STRING A.
     1272   01 02972    F1DE0003 A            CB,13    *3,7              TEST FOR EQUAL
     1273   01 02973    69302977              BCS,3    UNEQUAL

     1275   01 02974    3160000A A            CW,6     10                TEST FOR END OF STRING A
     1276   01 02975    6930296F              BCS,3    COMPARE2          NO

     1278   01 02976    22900001 A            LI,9     1                 YES-SET COMPARE INDICATOR
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   32
A    1280   01 02977    20800001 A   UNEQUAL  AI,8     1                 INCREMENT STRING B START        *B06
     1281   01 02978    3180000C A            CW,8     12                 CHECK FOR COLUMN 40 OVERLAP    *B06
     1282   01 02979    6920297C              BG       DONE                                              *B06

     1284   01 0297A    20400001 A            AI,4     1                 INCREMENT STRING B END          *B06
     1285   01 0297B    6800296B              B        COMPARE1

     1287   01 0297C    21900001 A   DONE     CI,9     1                 WAS THERE A COMPARE
     1288   01 0297D    69302982              BCS,3    CASE1             NO

     1290   01 0297E    21800001 A            CI,8     1                 YES-ARE THEY IDENTICAL
     1291   01 0297F    69302981              BCS,3    CASE2

     1293   01 02980    20100001 A            AI,1     1                 CASE 3=IDENTICALLY EQUAL        *A02
     1294   01 02981    20100001 A   CASE2    AI,1     1                 CASE 2=B > AND INCLUDES A       *A02
     1295   01 02982    20100002 A   CASE1    AI,1     2                 CASE 1=NO COMPARE               *A02

     1297   01 02983    35102948              STW,1    COMPARE                                           *A02
     1298   01 02984    221FFFF2 A            LI,1     -14               RESTORE REGISTERS               *A02
     1299   01 02985    32022C4E              LW,0     REG+16,1                                          *A02
     1300   01 02986    35020010 A            STW,0    16,1                                              *A02
     1301   01 02987    65102985              BIR,1    %-2                                               *A02

     1303   01 02988    32002C3E              LW,0     REG                                               *A02
     1304   01 02989    32102C3F              LW,1     REG+1                                             *A02
     1305   01 0298A    0E002948              LPSD,0   COMPARE
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   33
A    1307                            ********************************************************
     1308                            *
     1309                            *        MAGTAPE HANDLER
     1310                            *
     1311                            ********************************************************
     1312                            *
     1313                            *        PERFORMS ANY MAG TAPE OPERATION AND CHECKS FOR WRITE PROTECT
     1314                            *        CONFORMITY, END OF TAPE AND DEVICE MALFUNCTIONS.  AUTOMATIC
     1315                            *        RETRY IS INVOKED IN THE CASE OF AN ERROR.
     1316                            *
     1317                            *        CALLING SEQUENCE:
     1318                            *
     1319                            *        XPSD,0   MAGTAPE
     1320                            *        DATA     X'FM'             F=RING ON(0),OFF(1), M=DEVICE NR.
     1321                            *        DATA     X'II000000'+BA(M) II=ORDER, BA(M)=BYTE ADD. OF DATA.
     1322                            *        DATA     X'L00NNNN'        NNNN=BYTE COUNT, L=FLAGS(8 OR A)
     1323                            *        ERROR EXIT                 UNRECOVERABLE ERROR
     1324                            *        EOF EXIT                   LAST RECORD WAS AN EOF MARK.
     1325                            *        NORMAL EXIT
     1326                            *
     1327                                     BOUND    8
     1328   01 0298C    00000000 A   MAGTAPE  PZE
     1329   01 0298D    00000000 A            PZE
     1330   01 0298E    00002990              PZE      %+2
     1331   01 0298F    07000000 A            DATA     X'7000000'
     1332   01 02990    35002C4E              STW,0    REGISTER          SAVE                            *A02
     1333   01 02991    35102C4F              STW,1    REGISTER+1                                        *A02
     1334   01 02992    221FFFF2 A            LI,1     -14               ALL                             *A02
     1335   01 02993    32020010 A            LW,0     16,1                                              *A02
     1336   01 02994    35022C5E              STW,0    REGISTER+16,1        REGISTERS                    *A02
     1337   01 02995    65102993              BIR,1    %-2                                               *A02
     1338   01 02996    22400001 A            LI,4     1                                                 *A02
     1339   01 02997    B210298C              LW,1     *MAGTAPE          RING INDICATOR AND DEVICE INDEX *A02
     1340   01 02998    B228298C              LW,2     *MAGTAPE,4        ORD AND BYTE ADR OF DATA        *A02
     1341   01 02999    20400001 A            AI,4     1                                                 *A02
     1342   01 0299A    B238298C              LW,3     *MAGTAPE,4        FLAGS AND BYTE COUNT            *A02
     1343   01 0299B    75100005 A            STB,1    5                 GET DEVICE INDEX
     1344   01 0299C    72500005 A            LB,5     5                  TO LAST BYTE                   *A02
     1345   01 0299D    4B502736              AND,5    XF                MASK OUT RING INDICATOR         *A02
     1346   01 0299E    324A2604              LW,4     TAPE,5            GET TAPE ADDRESS
     1347   01 0299F    35202B30              STW,2    MTOP                                              *A02
     1348   01 029A0    35302B31              STW,3    MTOP+1                                            *A02
     1349   01 029A1    30100001 A            AW,1     1                 SHIFT RING INDICATOR            *A02
     1350   01 029A2    30100001 A            AW,1     1                   LEFT TWO BITS                 *A02
     1351   01 029A3    22E029A3              LI,14    %                 RETURN FROM MSGWAIT
     1352   01 029A4    22001598              LI,0     DA(MTOP)
     1353   01 029A5    22C00008 A   MTSIO    LI,12    8                 ESTABLISH ERROR RETRY COUNT
     1354   01 029A6    2260AD58              LI,6     BA(NOREG)         NO RECOGNITION MSG.
     1355   01 029A7    CE700004 A            TDV,7    *4                CHECK FILE PROTECT STATUS
     1356   01 029A8    69802ADA              BCS,8    MSGWAIT           DEVICE NOT RECOGNIZED
     1357   01 029A9    2260AD8C              LI,6     BA(PUTRG)         PUT ON RING MSG.
     1358   01 029AA    72700007 A            LB,7     7                 GET RING IND. TO LAST BYTE      *A02
     1359   01 029AB    21100040 A            CI,1     X'40'             TEST F=1                        *A02
     1360   01 029AC    684029AE              BCR,4    %+2
     1361   01 029AD    2260AD74              LI,6     BA(RMVRG)         REMOVE RING MSG.
     1362   01 029AE    48700001 A            EOR,7    1
     1363   01 029AF    21700040 A            CI,7     X'40'             IS RING CONDITION RIGHT         *A02
     1364   01 029B0    68402ADA              BCR,4    MSGWAIT           F=FP
     1365   01 029B1    2260ADA4              LI,6     BA(NORDY)         DEVICE NOT READY MESSAGE        *B03
     1366   01 029B2    22702710 A            LI,7     10000             DELAY FOR 10 MSEC.              *A04
     1367   01 029B3    CD500004 A            TIO,5    *4
     1368   01 029B4    68C029B7              BCR,12   %+3                DEV READY
     1369   01 029B5    647029B3              BDR,7    %-2               TRY AGAIN                       *A04
     1370   01 029B6    68002ADA              B        MSGWAIT           REPORT DEV NOT READY            *A04
     1371   01 029B7    2260ADC4              LI,6     BA(MANMD)         MANUAL MODE MSG.
     1372   01 029B8    31502EE9              CW,5     =X'10000000'      TEST FOR MANUAL
     1373   01 029B9    68402ADA              BCR,4    MSGWAIT           DEVICE IN MANUAL MODE.
     1374   01 029BA    CC500004 A            SIO,5    *4
     1375   01 029BB    22700064 A            LI,7     100                                               *G01
     1376   01 029BC    647029BC              BDR,7    %                 DELAY FOR CHANNEL LOADING       *G01
     1377   01 029BD    CD500004 A            TIO,5    *4
     1378   01 029BE    69C029BB              BCS,12   %-3               LOOP UNTIL FINISHED             *G01
     1379   01 029BF    31502EEA              CW,5     =X'7C0000'        ANT ERRORS
     1380   01 029C0    694029DA              BCS,4    MTERROR
     1381   01 029C1    CE500004 A            TDV,5    *4
     1382   01 029C2    31502EE9              CW,5     =X'10000000'      TEST FOR EOF
     1383   01 029C3    684029C6              BCR,4    OKXIT             NO
     1384   01 029C4    31502EEB              CW,5     =X'4000000'       TEST FOR REWIND
     1385   01 029C5    684029C9              BCR,4    EOFXIT            NO-EOF
     1386   01 029C6    3240298C     OKXIT    LW,4     MAGTAPE                                           *A02
     1387   01 029C7    20400001 A            AI,4     1                                                 *A02
     1388   01 029C8    3540298C              STW,4    MAGTAPE                                           *A02
     1389   01 029C9    3240298C     EOFXIT   LW,4     MAGTAPE                                           *A02
     1390   01 029CA    20400001 A            AI,4     1                                                 *A02
     1391   01 029CB    3540298C              STW,4    MAGTAPE                                           *A02
     1392   01 029CC    3240298C     MTEXIT   LW,4     MAGTAPE                                           *A02
     1393   01 029CD    20400003 A            AI,4     3                                                 *A02
     1394   01 029CE    3540298C              STW,4    MAGTAPE                                           *A02
     1395   01 029CF    4950273A              OR,5     XM2                                               *A02
     1396   01 029D0    48502739              EOR,5    XM1               GET COMLIMENT OF NEG            *A02
     1397   01 029D1    20500001 A            AI,5     1                   BYTE COUNT                    *A02
     1398   01 029D2    35502C63              STW,5    XFER              SAVE BYTE COUNT                 *A02
     1399   01 029D3    221FFFF2 A            LI,1     -14                                               *A02
     1400   01 029D4    32022C5E              LW,0     REGISTER+16,1     RESTORE                         *A02
     1401   01 029D5    35020010 A            STW,0    16,1                                              *A02
     1402   01 029D6    651029D4              BIR,1    %-2                 ALL                           *A02
     1403   01 029D7    32102C4F              LW,1     REGISTER+1                                        *A02
     1404   01 029D8    32002C4E              LW,0     REGISTER              REGISTERS                   *A02
     1405   01 029D9    0E00298C              LPSD,0   MAGTAPE
     1406   01 029DA    CE700004 A   MTERROR  TDV,7    *4
     1407   01 029DB    31702EE9              CW,7     =X'10000000'      TEST EOF
     1408   01 029DC    694029C9              BCS,4    EOFXIT
     1409   01 029DD    72B00002 A            LB,11    2                 GET I/O ORDER
     1410   01 029DE    2260ADE0              LI,6     BA(NONRO)         NON-RETRYABLE ORDER. MSG.
     1411   01 029DF    2200159C              LI,0     DA(MTBS)          BACK SPACE AND RETRY.
     1412   01 029E0    21B00001 A            CI,11    1                 TEST WRITE
     1413   01 029E1    683029EC              BCR,3    MTWERR            MAG TAPE WRITE ERROR
     1414   01 029E2    21B00002 A            CI,11    2                 TEST READ
     1415   01 029E3    693029E9              BCS,3    NMTRERR           NOT MAG TAPE READ ERROR
     1416   01 029E4    31702EEC     MTRERR   CW,7     =X'8000000'       TEST FOR CORRECTABLE READ ERROR.
     1417   01 029E5    694029E7              BCS,4    %+2               NON-CORRECTABLE. TRY NORMAL REREAD.
     1418   01 029E6    22001595              LI,0     DA(MTCR)          CORRECTABLE RETRY
     1419   01 029E7    64C029A6              BDR,12   MTSIO+1
     1420   01 029E8    2260AE04              LI,6     BA(URMTE)         UNRECOVERABLE MAG TAPE ERROR MSG
     1421   01 029E9    22800000 A   NMTRERR  LI,8     0                 SET WAIT = 0
     1422   01 029EA    6AE02ADB              BAL,14   MSGWAIT+1
     1423   01 029EB    680029CC              B        MTEXIT
     1424                            *
     1425   01 029EC    31502EED     MTWERR   CW,5     =X'400000'        TEST FOR DATA TRANSMISION ERROR
     1426   01 029ED    684029F0              BCR,4    %+3               NO
     1427   01 029EE    20CFFFFD A            AI,12    -3                REDUCE RETRY COUNT
     1428   01 029EF    64C029A6              BDR,12   MTSIO+1
     1429   01 029F0    22001599              LI,0     DA(MTEW)          BACK SPACE, ERASE AND REWRITE.
     1430   01 029F1    31702EEE              CW,7     =X'2000000'       TEST END OF TAPE.
     1431   01 029F2    684029A5              BCR,4    MTSIO             RESTART OPERATION-NOT END OF TAPE.
     1432   01 029F3    2260AE40              LI,6     BA(EOTM)          END OF TAPE MSG.
     1433   01 029F4    680029E9              B        NMTRERR
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   34
A    1435                            ********************************************************
     1436                            *
     1437                            *        CARD READER HANDLER
     1438                            *
     1439                            ********************************************************
     1440                            *
     1441                            *        CALLING SEQUENCE
     1442                            *
     1443                            *        XPSD     CR                CALL
     1444                            *        GEN,8,24  6,BA(BUFF3)      BUFFER ADDRESS
     1445                            *        B        EBCDIC            EBCDIC EXIT
     1446                            *        B        BINARY            BINARY EXIT
     1447                            *
     1448                                     BOUND    8
     1449   01 029F6    00000000 A   CR       DATA     0                 PSW1 OF CALLER
     1450   01 029F7    00000000 A            DATA     0                 PSW2 OF CALLER
     1451   01 029F8    000029FA              DATA     CR10              PSW1 OF THIS ROUTINE
     1452   01 029F9    00000000 A            DATA     0                 PSW2 OF THIS ROUTINE
     1453   01 029FA    2B002C4E     CR10     STM,0    REGISTER
     1454   01 029FB    B22029F6              LW,2     *CR               GET ORD + BA(BUFFER)            *A01
     1455   01 029FC    22300078 A            LI,3     120               BIN BYTE COUNT                  *A01
     1456   01 029FD    22500011 A            LI,5     17                REC. PER BLOCK                  *A01
     1457   01 029FE    33002C73              MTW,0    EBFLAG            READ EBCDIC                     *A01
     1458   01 029FF    68302A02              BCR,3    %+3               YES                             *A01
     1459   01 02A00    22300050 A            LI,3     80                EBCDIC BYTE COUNT               *A01
     1460   01 02A01    22500019 A            LI,5     25                REC. PER BLOCK                  *A01
     1461   01 02A02    22000000 A            LI,0     0                                                 *A01
     1462   01 02A03    35002C6D              STW,0    BYTCNT                                            *A01
     1463   01 02A04    35302C63              STW,3    XFER              SET BYTE COUNT                  *A02
     1464   01 02A05    22000008 A            LI,0     8                 SET FLAG
     1465   01 02A06    75000003 A            STB,0    3
     1466   01 02A07    15202B44              STD,2    CRIOCD            SET CR I/O COMMAND DOUBLEWORD
     1467                            *
     1468                            *        INITIATE A CARD READ
     1469                            *
     1470   01 02A08    22E02A08     CR15     LI,14    %
     1471   01 02A09    2240000F A            LI,4     X'F'
     1472   01 02A0A    CDB02607              TIO,11   *CARD
     1473   01 02A0B    69C02A2B              BCS,12   NADREC            NO ADR RECOGNITION              *A01
     1474   01 02A0C    2260AEC0              LI,6     BA(CRMSG2)
     1475   01 02A0D    31B02EE9              CW,11    =X'10000000'      TEST FOR MANUAL MODE
     1476   01 02A0E    68402ADA              BCR,4    MSGWAIT           YES
     1477   01 02A0F    220015A2     CRLOOP   LI,0     DA(CRIOCD)                                        *A04
     1478   01 02A10    CCB02607              SIO,11   *CARD                                             *A04
     1479   01 02A11    69C02A10              BCS,12   %-1                                               *A04
     1480   01 02A12    CDB02607              TIO,11   *CARD
     1481   01 02A13    69C02A12              BCS,12   %-1
     1482   01 02A14    31B02EEF              CW,11    =X'FC0000'        TEST FOR ERRORS
     1483   01 02A15    69402A48              BCS,4    CR32              YES
     1484   01 02A16    33002C74              MTW,0    BLFLAG            BLOCKING REQUESTED              *A01
     1485   01 02A17    68302A44              BCR,3    EXIT              B: NO                           *A01
     1486   01 02A18    32202B44              LW,2     CRIOCD            GET BUFFER POINTER              *A01
     1487   01 02A19    2520007E A            SLS,2    -2                CONVERT TO WORD ADR             *A02
     1488   01 02A1A    33002C75              MTW,0    BINFLAG           IS THIS A READ BIN ORDER        *A04
     1489   01 02A1B    69302A27              BCS,3    BINCD             YES                             *A04
     1490   01 02A1C    F2000002 A            LB,0     *2                GET FIRST BYTE                  *A01
     1491   01 02A1D    31002C7A              CW,0     FIRSTC            COL1=FIRSTC
     1492   01 02A1E    68302A3B              BCR,3    CDOK              YES - CARD OK
     1493   01 02A1F    31002C7B              CW,0     LASTC             COL1=LASTC
     1494   01 02A20    68302A33              BCR,3    LASTCD            YES - LAST CARD
     1495   01 02A21    32002C6C              LW,0     XFLAG             LOADER UPDATE                   *A01
     1496   01 02A22    69302A43              BCS,3    EXIT-1            YES                             *A01
     1497   01 02A23    32002C65              LW,0     RFLAG             RFLAG=0                         *A01
     1498   01 02A24    69302A08              BCS,3    CR15              NO-STILL READING IN LOADER
     1499   01 02A25    2260AE64              LI,6     BA(ERRCRD)
     1500   01 02A26    68002A2E              B        CR34         ERROR                                *A04
     1501   01 02A27    B2000002 A   BINCD    LW,0     *2                GET FIRST WORD                  *A04
     1502   01 02A28    31002C76              CW,0     BINCODE           IS IT !EOD CARD                 *A04
     1503   01 02A29    68302A33              BCR,3    LASTCD            YES                             *A04
     1504   01 02A2A    68002A3B              B        CDOK              GET NEXT CARD                   *A04
     1505   01 02A2B    2260AE84     NADREC   LI,6     BA(NOADR)                                         *A01
     1506   01 02A2C    EAF02C83              BAL,15   *OUTPUT                                           *A01
     1507   01 02A2D    2260AE94              LI,6     BA(CRMSG1)        NO ADR REC                      *A01
     1508   01 02A2E    EAF02C83     CR34     BAL,15   *OUTPUT      PRINT ROUTINE                        *A04
     1509   01 02A2F    32002607              LW,0     CARD                                              *A01
     1510   01 02A30    2E002A30              WAIT     %                                                 *A01
     1511                            * STORE CR-ADDRESS IN REG 0 AND CLEAR WAIT.                         *A01
     1512   01 02A31    35002607              STW,0    CARD              STORE NEW ADR.                  *A01
     1513   01 02A32    E800000E A            B        *14                                               *A01
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   35
A    1515   01 02A33    22000000 A   LASTCD   LI,0     0                                                 *A01
     1516   01 02A34    35002C74              STW,0    BLFLAG            RESET BLOCKING FLAG             *A01
     1517   01 02A35    33102C73              MTW,1    EBFLAG            SET EBCDIC FLAG                 *A01
     1518   01 02A36    22000006 A            LI,0     6                 SET UP READ AUTOMATIC           *A04
     1519   01 02A37    75002A83              STB,0    CR0               FOR NEXT CONTROL CARD           *A04
     1520   01 02A38    32002C63              LW,0     XFER              ADD BYTE COUNT                  *A02
     1521   01 02A39    66002C6D              AWM,0    BYTCNT              TO XFER                       *A01
     1522   01 02A3A    68002A3F              B        %+5                                               *A01
     1523   01 02A3B    32002C63     CDOK     LW,0     XFER              GET BYTE COUNT                  *A02
     1524   01 02A3C    66002B44              AWM,0    CRIOCD            ADD TO BA(BUFF)                 *A01
     1525   01 02A3D    66002C6D              AWM,0    BYTCNT            ADD TO SAVE LOC                 *A01
     1526   01 02A3E    64502A0F              BDR,5    CRLOOP            IS BUFFER FULL                  *A04
     1527   01 02A3F    32002C6D              LW,0     BYTCNT            YES                             *A01
     1528   01 02A40    35002C63              STW,0    XFER              RESTORE BYTE COUNT              *A02
     1529   01 02A41    22000000 A            LI,0     0                                                 *A01
     1530   01 02A42    35002C65              STW,0    RFLAG
     1531   01 02A43    331029F6              MTW,1    CR
     1532   01 02A44    331029F6     EXIT     MTW,1    CR
     1533   01 02A45    02200000 A            LCI      0
     1534   01 02A46    2A002C4E              LM,0     REGISTER
     1535   01 02A47    0E0029F6              LPSD,0   CR
     1536                            *
     1537                            *        CARD READER ERROR PROCESSOR
     1538                            *
     1539   01 02A48    2260AF04     CR32     LI,6     BA(CRMSG4)        IOP ERROR MSG
     1540   01 02A49    31B02EED              CW,11    =X'400000'        TEST FOR TRANSMISSION ERROR
     1541   01 02A4A    68402A2E              BCR,4    CR34              NO
     1542   01 02A4B    2260AEE4              LI,6     BA(CRMSG3)        DEVICE ERROR MSG
     1543   01 02A4C    68002A2E              B        CR34         ERROR                                *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   36
A    1545                            ********************************************************
     1546                            *
     1547                            *        VERICOP: COPY OR COMPARE FILES
     1548                            *
     1549                            ********************************************************
     1550                            *
     1551                            *        READS A RECORD FROM DEVICE 0 INTO BUFFER1. IF VERIFY=0, WRITES
     1552                            *        THAT RECORD ONTO DEVICE 1. IF VERIFY=1, READS A RECORD FROM
     1553                            *        DEVICE 2 INTO BUFFER2 AND COMPARES IT TO BUFFER1. IF THEY DO
     1554                            *        NOT COMPARE, EXIT AT NONCOMPARE. IF THEY DO COMPARE OR IF
     1555                            *        VERIFY=0, REPEAT THE PROCESS UNTIL A FILE MARK IS ENCOUNTERED.
     1556                            *
     1557                            *        CALLING SEQUENCE:
     1558                            *
     1559                            *        XPSD,0   VERICOP
     1560                            *        DATA     X'800000F0'       BIT 0=MAG TAPE(0), OR CARD(1).
     1561                            *        DATA     X'F1000000'+BA(BUFFER1)  F=RING ON(0),OFF(1)
     1562                            *        DATA     X'F2000000'+BA(BUFFER2)  BIT4-7 = DEVICE INDEX
     1563                            *        NONCOMPARE EXIT
     1564                            *        NORMAL EXIT
     1565                            *
     1566                                     BOUND    8
     1567   01 02A4E    00000000 A   VERICOP  PZE
     1568   01 02A4F    00000000 A            PZE
     1569   01 02A50    00002A52              PZE      %+2
     1570   01 02A51    07000000 A            DATA     X'7000000'
     1571   01 02A52    2B002C3E              STM,0    REG
     1572   01 02A53    02200030 A            LCI      3
     1573   01 02A54    AA102A4E              LM,1     *VERICOP
     1574   01 02A55    35102A71              STW,1    RD0               SET UNIT 0 CONTROL WORD
     1575   01 02A56    72100002 A            LB,1     2                 GET UNIT 1 CONTROL WORD
     1576   01 02A57    35102A7C              STW,1    WT1               SET UNIT 1 CONTROL WORD
     1577   01 02A58    72100003 A            LB,1     3                 GET UNIT 2 CONTROL WORD
     1578   01 02A59    35102A8B              STW,1    RD2               SET UNIT 1 CONTROL WORD
     1579   01 02A5A    22100001 A            LI,1     1                 I/O WRITE COMMAND
     1580   01 02A5B    75100002 A            STB,1    2                 SET UNIT 1 COMMAND
     1581   01 02A5C    35202A7D              STW,2    CW1               R2=BYTE ADDRESS BUFFER1
     1582   01 02A5D    22100006 A            LI,1     6                 READ AUTOM.                     *A01
     1583   01 02A5E    33002C75              MTW,0    BINFLAG           READ BIN REQUEST                *A04
     1584   01 02A5F    69302A62              BNEZ     VERCOPY      BRANCH NOT EQUAL ZERO                *A04
     1585   01 02A60    33002C6C              MTW,0    XFLAG                                             *A04
     1586   01 02A61    68302A63              BEZ      VEREAD       BRANCH IF XFLAG = 0                  *A04
     1587   01 02A62    22100002 A   VERCOPY  LI,1     2            READ BINARY                          *A04
     1588   01 02A63    75100002 A   VEREAD   STB,1    2            STORE READ ORDER COMMAND (AUTOM/BIN)  A04
     1589   01 02A64    35202A83              STW,2    CR0                                               *A01
     1590   01 02A65    22100002 A            LI,1     2                 I/O READ COMMAND
     1591   01 02A66    75100002 A            STB,1    2                 SET UNIT 0 COMMAND
     1592   01 02A67    35202A72              STW,2    CW0
     1593   01 02A68    75100003 A            STB,1    3                 SET UNIT 2 COMMAND
     1594   01 02A69    35302A8C              STW,3    CW2               R3=BYTE ADDRESS BUFFER2
     1595   01 02A6A    2520017E A            SLD,2    -2                WA(BUFF1 AND BUFF2) FOR COMPARE
     1596   01 02A6B    33002C60              MTW,0    VERIFY            IS THIS A VERIFY PASS           *A03
     1597   01 02A6C    68302A6E              BCR,3    %+2               NO                              *A03
     1598   01 02A6D    33F02C6B              MTW,-1   DICTFLAG          YES - SUBTR. 1 FROM FLAG        *A03
     1599   01 02A6E    32002A71     READ0    LW,0     RD0               TEST FOR CARD OR TAPE           *A01
     1600   01 02A6F    69102A82              BCS,1    READC             CARD
     1601   01 02A70    0F00298C              XPSD,0   MAGTAPE           READ A RECORD FROM UNIT 0
     1602   01 02A71    00000000 A   RD0      PZE                        X'FD'                           *A01
     1603   01 02A72    00000000 A   CW0      PZE                        X'2000000'+BA(BUFFER1)
     1604   01 02A73    0A000000 A            DATA     X'A000000'        IGNORE INCORRECT LENGTH
     1605   01 02A74    68002A9A              B        NORMXIT+1
     1606   01 02A75    68002A86              B        EOF0
     1607   01 02A76    32102C63     SETCW1   LW,1     XFER              GET BYTE COUNT                  *A02
     1608   01 02A77    22400001 A            LI,4     1
     1609   01 02A78    55182A7E              STH,1    CW1+1,4           FORM FLAG AND BYTE COUNT WORD.
     1610   01 02A79    32002C60              LW,0     VERIFY            TEST VERIFY=1
     1611   01 02A7A    69302A8A              BCS,3    READ2             YES
     1612   01 02A7B    0F00298C     WRITE1   XPSD,0   MAGTAPE           WRITE A RECORD ON UNIT 1.
     1613   01 02A7C    00000000 A   WT1      PZE                        X'F1'
     1614   01 02A7D    00000000 A   CW1      PZE                        X'1000000'+BA(BUFFER1)
     1615   01 02A7E    08000000 A            DATA     X'8000000'
     1616   01 02A7F    68002A9A              B        NORMXIT+1
     1617   01 02A80    68002A99              B        NORMXIT
     1618   01 02A81    68002A6E              B        READ0
     1619                            *
     1620                            *
     1621   01 02A82    0F0029F6     READC    XPSD,0   CR                READ A CARD
     1622   01 02A83    00000000 A   CR0      PZE
     1623   01 02A84    68002A86              B        EOF0              EBCDIC CARD
     1624   01 02A85    68002A76              B        SETCW1
     1625                            *
     1626   01 02A86    22000073 A   EOF0     LI,0     X'73'             WRITE TAPE MARK I/O COMMAND
     1627   01 02A87    75002A7D              STB,0    CW1
     1628   01 02A88    32002C60              LW,0     VERIFY            TEST VERIFY=1
     1629   01 02A89    68302A7B              BCR,3    WRITE1            NO
     1630   01 02A8A    0F00298C     READ2    XPSD,0   MAGTAPE           READ A RECORD ON UNIT 2.
     1631   01 02A8B    00000000 A   RD2      PZE                        X'F2'
     1632   01 02A8C    00000000 A   CW2      PZE                        X'2000000'+BA(BUFFER2)
     1633   01 02A8D    0A000000 A            DATA     X'A000000'        IGNORE INCORRECT LENGTH
     1634   01 02A8E    68002A9A              B        NORMXIT+1
     1635   01 02A8F    68002A99              B        NORMXIT
     1636   01 02A90    22400000 A            LI,4     0
     1637   01 02A91    33002C6B              MTW,0    DICTFLAG                                          *A03
     1638   01 02A92    68302A9F              BCR,3    COMDIR            COMPARE DIRECTORY               *A01
     1639   01 02A93    F2080002 A   1TO2     LB,0     *2,4
     1640   01 02A94    F1080003 A            CB,0     *3,4              COMPARE UNIT 0 WTH UNIT 2
     1641   01 02A95    69302AA2              BCS,3    NOCOMP
     1642   01 02A96    20400001 A            AI,4     1
     1643   01 02A97    64102A93              BDR,1    1TO2
     1644   01 02A98    68002A6E              B        READ0             NO
     1645                            *
     1646   01 02A99    33102A4E     NORMXIT  MTW,1    VERICOP
     1647   01 02A9A    33302A4E              MTW,3    VERICOP
     1648   01 02A9B    33102C64              MTW,1    FILE              INCREMENT FILE COUNTER
     1649   01 02A9C    02200000 A            LCI      0
     1650   01 02A9D    2A002C3E              LM,0     REG
     1651   01 02A9E    0E002A4E              LPSD,0   VERICOP
     1652                            *
     1653   01 02A9F    22202EF8     COMDIR   LI,2     OLDDIRCT                                          *A03
     1654   01 02AA0    32102C63              LW,1     XFER              GET BYTE COUNT                  *A01
     1655   01 02AA1    68002A93              B        1TO2                                              *A01
     1656                            *
     1657   01 02AA2    2260AF2C     NOCOMP   LI,6     BA(NOCOMPAR)
     1658   01 02AA3    EAF02C83              BAL,15   *OUTPUT
     1659   01 02AA4    2E002AA4              WAIT     %                 COMPARE ERROR - HALT            *A03
     1660   01 02AA5    68002A6E              B        READ0             ABORT, OR CLEAR WAIT TO CONTINUE*A03
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   37
A    1662                            ********************************************************
     1663                            *
     1664                            *        MESSAGE HANDLER
     1665                            *
     1666                            ********************************************************
     1667                            *
     1668                            *        OUTPUTS BYTE STRINGS TO A SPECIFIED DEVICE. EACH BYTE STRING
     1669                            *        CONSTITUTES ONE LINE OF INFORMATION AND IS PRECEEDED BY A
     1670                            *        LINE FEED OR CARRIAGE RETURN. THE NUMBER OF LINES TO BE OUT-
     1671                            *        PUTTED IS SPECIFIED IN THE CALLING SEQUENCE.
     1672                            *        IF THE SPECIFIED DEVICE IS BUSY IT IS STOHLEN BUT NOT RESTARTED
     1673                            *
     1674                            *        CALLING SEQUENCE:
     1675                            *
     1676                            *        XPSD,0   MESSAGE
     1677                            *        PZE      MSGDEV            LOCATION OF SPECIFIED DEVICES ADDR.
     1678                            *        PZE      BA(A)+X'LC000000' LC=NUMBER OF LINES.
     1679                            *        EXIT                       BA(A)=BYTE ADDRESS OF BYTE STRING.
     1680                            *
     1681                                     BOUND    8
     1682   01 02AA6    00000000 A   MESSAGE  PZE
     1683   01 02AA7    00000000 A            PZE
     1684   01 02AA8    00002AAA              PZE      %+2
     1685   01 02AA9    07000000 A            DATA     X'7000000'

     1687   01 02AAA    35002C3E              STW,0    REG               SAVE                            *A02
     1688   01 02AAB    35102C3F              STW,1    REG+1                                             *A02
     1689   01 02AAC    221FFFF2 A            LI,1     -14               ALL                             *A02
     1690   01 02AAD    32020010 A            LW,0     16,1                                              *A02
     1691   01 02AAE    35022C4E              STW,0    REG+16,1              REGISTERS                   *A02
     1692   01 02AAF    65102AAD              BIR,1    %-2                                               *A02

     1694   01 02AB0    22100001 A            LI,1     1                                                 *A02
     1695   01 02AB1    B2502AA6              LW,5     *MESSAGE          DEVICE NO                       *A02
     1696   01 02AB2    B2622AA6              LW,6     *MESSAGE,1        BYTE ADR OF STRING              *A02
     1697   01 02AB3    B2500005 A            LW,5     *5                PICK UP DEVICE ADDRESS
     1698   01 02AB4    72400006 A            LB,4     6                 LINE COUNT(R4)
     1699   01 02AB5    22000005 A            LI,0     5                 WRITE ORDER
     1700   01 02AB6    31502608              CW,5     CONDEV
     1701   01 02AB7    68302AB9              BCR,3    %+2
     1702   01 02AB8    22000001 A            LI,0     1                 PRINT ORDER
     1703   01 02AB9    75000006 A            STB,0    6

     1705   01 02ABA    727C0000 A   MSGLUP   LB,7     0,6               STRING CHARACTER COUNT(R7)
     1706   01 02ABB    32D00006 A            LW,13    6                 GET ADDRESS                     *B00
     1707   01 02ABC    25D0007E A            SLS,13   -2                WORD ADDRESS                    *B00

     1709   01 02ABD    F2FE000D A   MSGLUP1  LB,15    *13,7             GET A BYTE                      *B00
     1710   01 02ABE    21F00040 A            CI,15    ' '               SEE IF A BLANK                  *B00
     1711   01 02ABF    69302AC1              BNE      MSGLUP2           NOPE EXIT                       *B00
     1712   01 02AC0    64702ABD              BDR,7    MSGLUP1           KEEP GOING                      *B00

     1714   01 02AC1    717C0000 A   MSGLUP2  CB,7     0,6               AT LEAST ONE TRAILING           *B03
     1715   01 02AC2    68302AC4              BE       %+2                BLANK, IF ANY PRESENT          *B03
     1716   01 02AC3    20700001 A            AI,7     1                                                 *B03

     1718   01 02AC4    20600001 A            AI,6     1                 POINT TO FIRST CHARACTER IN STRING.
     1719   01 02AC5    31502608              CW,5     CONDEV            TEST FOR CONTROL DEVICE
     1720   01 02AC6    69302ACA              BCS,3    MSGLINE           LINE PRINTER
     1721   01 02AC7    22D00015 A            LI,13    X'15'             CAR RET
     1722   01 02AC8    6AF02B19              BAL,15   CHAROUT
     1723   01 02AC9    68002AD0              B        MSGXIT

     1725   01 02ACA    6AF02B1C     MSGLINE  BAL,15   LINEOUT           OUTPUT A STRING
     1726   01 02ACB    68002AD0              B        MSGXIT

     1728   01 02ACC    30600007 A            AW,6     7
     1729   01 02ACD    20600003 A            AI,6     3                 FIND NEXT EVEN WORD BOUNDRY
     1730   01 02ACE    4B602EF0              AND,6    =X'FFFFFFFC'
     1731   01 02ACF    64402ABA              BDR,4    MSGLUP

     1733   01 02AD0    32402AA6     MSGXIT   LW,4     MESSAGE                                           *A02
     1734   01 02AD1    20400002 A            AI,4     2                                                 *A02
     1735   01 02AD2    35402AA6              STW,4    MESSAGE                                           *A02
     1736   01 02AD3    221FFFF2 A            LI,1     -14                                               *A02
     1737   01 02AD4    32022C4E              LW,0     REG+16,1          RESTORE                         *A02
     1738   01 02AD5    35020010 A            STW,0    16,1                                              *A02
     1739   01 02AD6    65102AD4              BIR,1    %-2                 ALL                           *A02
     1740   01 02AD7    32102C3F              LW,1     REG+1                                             *A02
     1741   01 02AD8    32002C3E              LW,0     REG                   REGISTERS                   *A02
     1742   01 02AD9    0E002AA6              LPSD,0   MESSAGE
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   38
A    1744   01 02ADA    35E02C68     MSGWAIT  STW,14   WK1               SAVE RETURN ADDRESS             *B03
     1745   01 02ADB    15002C66              STD,0    WK0                SAVE I/O COMMAND AND RING      *B03
     1746   01 02ADC    220FFFFD A            LI,0     -3                  AND SET THE NUMBER            *B03
     1747   01 02ADD    35002C69              STW,0    WK2                  OF DIGITS IN UNIT ADDRESS    *B03
     1748   01 02ADE    EAF02C83              BAL,15   *OUTPUT               THEN OUTPUT ERROR MESSAGE   *B03

     1750   01 02ADF    32800004 A            LW,8     4                 GET I/O ADDRESS                 *B03
     1751   01 02AE0    25800014 A            SLS,8    4*5                AND POSITION FOR SHIFTING      *B03

     1753   01 02AE1    25800204 A   MSGW0    SCS,8    4                 GET NEXT DIGIT                  *B03
     1754   01 02AE2    32300008 A            LW,3     8                                                 *B03
     1755   01 02AE3    4B302EF1              AND,3    =X'F'                                             *B03

     1757   01 02AE4    2130000A A            CI,3     X'0A'             CONVERT TO HEX                  *B03
     1758   01 02AE5    69102AE7              BL       %+2                                               *B03
     1759   01 02AE6    203FFFC7 A            AI,3     X'C1'-X'0A'-X'F0'                                 *B03
     1760   01 02AE7    203000F0 A            AI,3     X'F0'                                             *B03

     1762   01 02AE8    32502608              LW,5     CONDEV            GET CONSOLE DEVICE              *B03
     1763   01 02AE9    EAF02C85              BAL,15   *RCHAROUT          AND BROADCAST THIS BYTE        *B03
     1764   01 02AEA    68002AEB              B        %+1                 IGNORE BREAKS OR ERRORS       *B03

     1766   01 02AEB    33102C69              MTW,1    WK2               CONVERT ALL DIGITS              *B03
     1767   01 02AEC    69102AE1              BLZ      MSGW0              OF THE UNIT ADDRESS            *B03

     1769   01 02AED    32802EF2              LW,8     =X'FFB80000'      LOOP FOR APPROXIMATE            *B03
     1770   01 02AEE    65802AEE              BIR,8    %                  10-SECOND DELAY                *B03
     1771   01 02AEF    12002C66              LD,0     WK0               RESTORE I/O COMMAND AND RING    *G01
     1772   01 02AF0    E8002C68              B        *WK1                                              *B03
     1773                            *
     1774   01 02AF1    0F002AA6     MSGOUT   XPSD,0   MESSAGE                                           *A05
     1775   01 02AF2    00002609              PZE      MSGDEV
     1776   01 02AF3    00000000 A   LAST     PZE
     1777   01 02AF4    E800000F A            B        *15               RETURN
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   39
A    1779   01 02AF5    CF002608     CONOUT   HIO,0    *CONDEV           HALT PREVIOUS ACTION            *A04
     1780   01 02AF6    35002B15              STW,0    SAVE+2            SAVE REG 0                      *A04
     1781   01 02AF7    220FF060 A            LI,0     -4000                                             *A04
     1782   01 02AF8    65002AF8              BIR,0    %                 DELAY FOR TTY                   *A04
     1783   01 02AF9    CD002608              TIO,0    *CONDEV                                           *A04
     1784   01 02AFA    69C02B02              BCS,12   KBDADR+1          NO DEV ADR RECOG.               *A01
     1785   01 02AFB    35602AFE              STW,6    %+3
     1786   01 02AFC    0F002AA6              XPSD,0   MESSAGE
     1787   01 02AFD    00002608              PZE      CONDEV
     1788   01 02AFE    00000000 A            PZE
     1789   01 02AFF    32002B15              LW,0     SAVE+2            RESTORE REG 0                   *A04
     1790   01 02B00    E800000F A            B        *15

     1792   01 02B01    35002B15     KBDADR   STW,0    SAVE+2            SAVE REG 0                      *A04
     1793   01 02B02    35102B13              STW,1    SAVE              SAVE                            *A02
     1794   01 02B03    35202B14              STW,2    SAVE+1              REGISTERS                     *A02
     1795   01 02B04    32102C6A              LW,1     BASE              GET LOADER ADR                  *A02
     1796   01 02B05    3222000E A            LW,2     14,1              GET KBD ADR FROM LOADER         *A02
     1797   01 02B06    220E0000 A            LI,0     X'E0000'          DELAY                           *A04
     1798   01 02B07    65002B07              BIR,0    %                   FOR TTY                       *A04
     1799   01 02B08    32000002 A            LW,0     2                 DEV ADR IN 0                    *A02
     1800   01 02B09    CD000002 A            TIO,0    *2                                                *A02
     1801   01 02B0A    68C02B0D              BCR,12   %+3               B IF GOOD                       *A02
     1802   01 02B0B    2E002B0B              WAIT     %                                                 *A01
     1803                            * PROGRAM WILL COME TO A WAIT IF KEYBOARD ADR IS NOT 1              *A01
     1804                            * ENTER NEW ADR IN REG 0 AND CLEAR WAIT.                            *A01
     1805   01 02B0C    3502000E A            STW,0    14,1              LOADER ADR                      *A02
     1806   01 02B0D    35002608              STW,0    CONDEV            STORE NEW DEV ADR               *A01
     1807   01 02B0E    35002609              STW,0    MSGDEV                                            *A01
     1808   01 02B0F    32002B15              LW,0     SAVE+2            RESTORE REG 0                   *A04
     1809   01 02B10    32102B13              LW,1     SAVE              RESTORE                         *A02
     1810   01 02B11    32202B14              LW,2     SAVE+1              REGISTERS                     *A02
     1811   01 02B12    E8002C83              B        *OUTPUT                                           *A04
     1812                            *
     1813   01 02B13                 SAVE     RES      3                                                 *A02
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   40
A    1815                            *                                   INPUT ONE CHARACTER
     1816   01 02B16    2200159F     CHARIN   LI,0     DA(CONIN)
     1817   01 02B17    32502608              LW,5     CONDEV            PICK UP DEVICE ADDRESS
     1818   01 02B18    68002B1A              B        CHAROUT+1
     1819                            *                                   OUTPUT ONE CHARACTER
     1820   01 02B19    220015A0     CHAROUT  LI,0     DA(CONDOUT)
     1821   01 02B1A    75D02C62              STB,13   CHAR
     1822   01 02B1B    68002B1F              B        LINEOUT+3                                         *A02
     1823                            *                                   OUTPUT ONE LINE
     1824   01 02B1C    35602B42     LINEOUT  STW,6    MSGDOUT                                           *A02
     1825   01 02B1D    35702B43              STW,7    MSGDOUT+1                                         *A02
     1826   01 02B1E    220015A1     LINEOUT1 LI,0     DA(MSGDOUT)                                       *A07
     1827   01 02B1F    CC000005 A            SIO,0    *5
     1828   01 02B20    CD900005 A            TIO,9    *5
     1829   01 02B21    69C02B20              BCS,12   %-1
     1830   01 02B22    31902EEC              CW,9     =X'8000000'       TEST FOR ERROR OR BREAK RELEASE
     1831   01 02B23    69402B28              BCS,4    LINEOUT2                                          *A07
     1832   01 02B24    CE900005 A            TDV,9    *5                                                *A07
     1833   01 02B25    4B902EEE              AND,9    =X'2000000'                                       *A07
     1834   01 02B26    69302B1E              BNEZ     LINEOUT1                                          *A07
     1835   01 02B27    20F00001 A            AI,15    1
     1836   01 02B28    72D02C62     LINEOUT2 LB,13    CHAR                                              *A07
     1837   01 02B29    E800000F A            B        *15
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   41
A    1839                            *        MAG TAPE COMMANDS
     1840                            *
     1841                                     BOUND    8
     1842   01 02B2A    0400ACF4     MTCR     GEN,8,24 4,BA(SENSE)                                       *A01
     1843   01 02B2B    2A000001 A            DATA     X'2A000001'
     1844   01 02B2C    4B000000 A            DATA     X'4B000000'
     1845   01 02B2D    2A000000 A            DATA     X'2A000000'
     1846   01 02B2E    0300ACF4              GEN,8,24 3,BA(SENSE)                                       *A01
     1847   01 02B2F    2A000001 A            DATA     X'2A000001'
     1848   01 02B30    00000000 A   MTOP     PZE
     1849   01 02B31    00000000 A            PZE
     1850   01 02B32    4B000000 A   MTEW     DATA     X'4B000000'
     1851   01 02B33    2A000000 A            DATA     X'2A000000'
     1852   01 02B34    63000000 A            DATA     X'63000000'
     1853   01 02B35    2A000000 A            DATA     X'2A000000'
     1854   01 02B36    08001598              GEN,8,24 8,DA(MTOP)                                        *A01
     1855   01 02B37    00000000 A            DATA     0
     1856   01 02B38    4B000000 A   MTBS     DATA     X'4B000000'
     1857   01 02B39    2A000000 A            DATA     X'2A000000'
     1858   01 02B3A    08001598              GEN,8,24 8,DA(MTOP)                                        *A01
     1859   01 02B3B    00000000 A            DATA     0
     1860   01 02B3C    0400ACF4     MTRC     GEN,8,24 4,BA(SENSE)                                       *A01
     1861   01 02B3D    00000000 A   SENSE    PZE
     1862                            *
     1863                            *        TTY COMMANDS
     1864                            *
     1865                                     BOUND    8
     1866   01 02B3E    0600B188     CONIN    GEN,8,24 6,BA(CHAR)                                        *A01
     1867   01 02B3F    00000001 A            DATA     1
     1868                                     BOUND    8
     1869   01 02B40    0500B188     CONDOUT  GEN,8,24 5,BA(CHAR)                                        *A01
     1870   01 02B41    00000001 A            DATA     1
     1871                                     BOUND    8
     1872   01 02B42    00000000 A   MSGDOUT  PZE
     1873   01 02B43    00000000 A            PZE
     1874                            *
     1875                            *        CARD READER COMMANDS
     1876                            *
     1877                                     BOUND    8
     1878   01 02B44    06000000     CRIOCD   GEN,8,24 6,BA(BUFF1)                                       *A01
     1879   01 02B45    00000000 A            PZE
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   42
A    1881                            *        MESSAGES

     1883         TEXT               EM       EQU      ' '               APPEARS AS TRAILING BLANK       *B03

     1885         01 02B46           CRDASH   TEXTCS   '-'
     1886         01 02B47           OVER     TEXTCS   'INPUT NAME HAS TO MANY CHARACTERS.'
     1887         01 02B50           CANTLOAD TEXTCS   'PROGRAM IS NOT LOADABLE'                         *A01
     1888         01 02B56           NOREG    TEXTCS   'NO RECOGNITION FOR UNIT',EM                      *B03
     1889         01 02B5D           RMVRG    TEXTCS   'REMOVE RING FROM UNIT',EM                        *B03
     1890         01 02B63           PUTRG    TEXTCS   'INSERT RING ONTO UNIT',EM                        *B03
     1891         01 02B69           NORDY    TEXTCS   'NOT READY CONDITION ON UNIT',EM                  *B03
     1892         01 02B71           MANMD    TEXTCS   'MANUAL CONDITION ON UNIT',EM                     *B03
     1893         01 02B78           NONRO    TEXTCS   'NON-REPEATABLE OPERATION ON UNIT',EM             *B03
     1894         01 02B81           URMTE    TEXTCS   'IRRECOVERABLE ERROR ON UNIT',EM                  *B03
     1895         01 02B89           SEQERR   TEXTCS   'UPDATE IS OUT OF SEQUENCE'                       *A04
     1896         01 02B90           EOTM     TEXTCS   'END OF TAPE.  UNRECOVERABLE ERROR.'              *A03
     1897         01 02B99           ERRCRD   TEXTCS   'ERRONIOUS CARD.'
     1898         01 02B9D           SELERR   TEXTCS   'SELECTION ERROR'                                 *B00
     1899         01 02BA1           NOADR    TEXTCS   'NO ADDR. RECOG.'                                 *A03
     1900         01 02BA5           CRMSG1   TEXTCS   'STORE CARD READER ADDR IN REG 0, CLEAR WAIT'     *A01
     1901         01 02BB0           CRMSG2   TEXTCS   'CARD READER MANUAL.  PRESS START.'
     1902         01 02BB9           CRMSG3   TEXTCS   'CARD READER TRANSMISSION ERROR'
     1903         01 02BC1           CRMSG4   TEXTCS   'CARD READER CONTROLLER OR IOP ERROR.'
     1904         01 02BCB           NOCOMPAR TEXTCS   'FILE COMPARE ERROR.'
     1905         01 02BD0           PROB     TEXTCS   'PROBLEM CAUSED BY FILE:'
     1906         01 02BD6           COPYDUN  TEXTCS   'UPDATE  COMPLETED ON UNIT 2. 
BEGIN OF VERIFY.'  *A04
     1907         01 02BE2           COPYVER  TEXTCS   'COPY AND VERIFY COMPLETED.'                      *A01
     1908         01 02BE9           SUCCESS  TEXTCS   'VERIFY COMPLETED. REMOVE WRITE ENABLE RING.'     *A04
     1909         01 02BF4           PASS1    TEXTCS   'MOUNT SCRATCH ON UNIT 1.'                        *A03
     1910                            PASS2    TEXTCS   'MOUNT SCRATCH ON UNIT 2 (NEW MASTER)
';          *A04
     1911         01 02BFB                             ,'DISMOUNT UNIT 0 IF ONLY 2 DRIVES ARE AVAIL.'    *A04
     1912                            PASS3    TEXTCS   'RESTACK CARDS IN HOPPER AND MOUNT OLD MASTER ';  *A04
     1913                                              ,'ON UNIT 0.
DISMOUNT UNIT 1 IF ONLY 2 DRIVES ';  *A04
     1914         01 02C10                             ,'ARE AVAIL.'                                     *A04
     1915         01 02C29           PARAMERR TEXTCS   'PARAMETER ERROR'
     1916         01 02C2D           INVDIR   TEXTCS   'INVALID DIRECTIVE'                               *A03
     1917         01 02C32           RELMSG   TEXTCS   'RELOCATION BIAS IN HEX:',EM                      *B03
     1918         01 02C39           RSWAPMSG TEXTCS   'LINE NOT LOGGED-ON'                              *B03
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   43
A    1920                            *                                   WORKING STORAGE
     1921                                     BOUND    8
     1922   01 02C3E                 REG      RES      16
     1923   01 02C4E                 REGISTER RES      16
     1924   01 02C5E    00000000 A   FIRSTIME PZE      0                                                 *A04
     1925   01 02C5F    00000000 A   BIAS     PZE      0                                                 *A04
     1926   01 02C60    00000000 A   VERIFY   PZE
     1927   01 02C61    00000000 A   ENTRYS   PZE
     1928   01 02C62    00000000 A   CHAR     PZE
     1929   01 02C63    00000000 A   XFER     PZE
     1930   01 02C64    00000000 A   FILE     PZE
     1931   01 02C65    00000000 A   RFLAG    PZE

     1933                                     BOUND    8                                                 *G01
     1934   01 02C66                 WK0      RES      2                                                 *G01
     1935   01 02C68    00000000 A   WK1      PZE                                                        *B03
     1936   01 02C69    00000000 A   WK2      PZE                                                        *B03
     1937   01 02C6A    00000000 A   BASE     PZE
     1938   01 02C6B    00000000 A   DICTFLAG PZE                        DICTIONARY FLAG                 *A03
     1939   01 02C6C    00000000 A   XFLAG    PZE                        LOADER UPDATE FLAG              *A01
     1940   01 02C6D    00000000 A   BYTCNT   PZE                                                        *A01
     1941   01 02C6E    00000000 A   COPYFLAG PZE                        COPY REQUEST                    *A03
     1942   01 02C6F    00000000 A   PARAFLAG PZE                                                        *A03
     1943   01 02C70    00000000 A   RGUIDE   DATA     0                                                 *A06
     1944   01 02C71    00000000 A   DIRFLAG  DATA    0                                                  *A03
     1945   01 02C72    00000000 A   COL69    DATA     0                 COLUMN 69                       *A05
     1946   01 02C73    00000000 A   EBFLAG   PZE                        EBCDIC FLAG                     *A01
     1947   01 02C74    00000000 A   BLFLAG   PZE                        BLOCKING FLAG                   *A01
     1948   01 02C75    00000000 A   BINFLAG  PZE                        READ BIN ONLY                   *A04
     1949   01 02C76    48281040 A   BINCODE  DATA     X'48281040'       THIS IS THE BIN EQUIVALENT      *A04
     1950                            *                                     OF AN EBCDIC !EOD CARD        *A04
     1951   01 02C77    31415926 A   PI       DATA     X'31415926'       REMOTE FLAG                     *A05
     1952                                     BOUND    8
     1953   01 02C78    33000000 A   REWORD   GEN,8,24 X'33',0           REWIND ORDER                    *A04
     1954   01 02C79    0A000000 A            GEN,8,24 X'0A',0                                           *A04
     1955   01 02C7A    00000000 A   FIRSTC   PZE
     1956   01 02C7B    00000000 A   LASTC    PZE
     1957   01 02C7C    00000000 A   COMMAND  PZE
     1958   01 02C7D    00000000 A   MFLD     PZE
     1959   01 02C7E    00000000 A   MONITOR  PZE                        MON RELOC BIAS                  *A01
     1960   01 02C7F    00000000 A   CORE     PZE                        0 IF 16K OR LESS CORE SIZE      *A04
     1961   01 02C80    00000000 A   DISK     DATA     0                                                 *A08
     1962   01 02C81    00000000 A   SEEKADR  DATA     0                                                 *A08
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   44
A    1964   01 02C82    00002B16     INPUT    DATA     CHARIN            INPUT ROUTINE ADDR.             *A04
     1965   01 02C83    00002AF5     OUTPUT   DATA     CONOUT            OUTPUT RTN ADDR.                *A04
     1966   01 02C84    00002AF1     OUTPUT1  DATA     MSGOUT            MSG OUTPUT ROUTINE              *A04
     1967   01 02C85    00002B19     RCHAROUT DATA     CHAROUT           OUTPUT ONE CHAR                 *A04
     1968                            *                                                                   *A04
     1969         00000004           TABLEN   EQU      %-INPUT                                           *A04
     1970                            *                                                                   *A04
     1971   01 02C86    00002B16     IOTAB    DATA     CHARIN                                            *A04
     1972   01 02C87    00002AF5              DATA     CONOUT                                            *A04
     1973   01 02C88    00002AF1              DATA     MSGOUT                                            *A04
     1974   01 02C89    00002B19              DATA     CHAROUT                                           *A04
     1975                            *                                                                   *A04
     1976   01 02C8A    00002CBB     IOTAB1   DATA     CCP               INPUT ROUTINE ADDR.             *A04
     1977   01 02C8B    00002DBA              DATA     REMOUT            OUTPUT RTN ADDR.                *A04
     1978   01 02C8C    00002DF2              DATA     REMMSG            MSG OUT ROUTINE (SCAN)          *B00
     1979   01 02C8D    00002DFF              DATA     TTYOUT            OUTPUT ONE CHAR                 *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   45
A    1981                            *        **REMOTE INTERFACE LOCATIONS***                            *A04
     1982                            *                                                                   *A04
     1983                            *                                                                   *A04
     1984   01 02C8E    00000000 A   REMCODE  DATA     0                 REMOTE CODE = PI = X'31415926'  *A04
     1985                            *                                                                   *A04
     1986         01 02608           TTYDEV   EQU      CONDEV            DEVICE ADDRESS OF ASK/KSR       *A04
     1987                            *                                                                   *A04
     1988   01 02C8F    0000007F A   COCDEV   DATA     X'7F'             DEVICE ADDRESS OF COC           *G02
     1989                            *                                                                   *A04
     1990   01 02C90    00000000 A   DIODEV   DATA     0                 ADDRESS OF DIO                  *A04
     1991                            *                                                                   *A04
     1992   01 02C91    00000000 A   COCSTATE DATA     0                 BITS 0-7 = COC STATE            *A04
     1993                            *                                     =        0; NO COC ADDRESS    *A04
     1994                            *                                     =  1 OR 3 ; NO ONE DIALED IN  *A04
     1995                            *                                     = 41 OR 43; USER LOGGED-ON    *A04
     1996                            *                                     = 81 OR 83; REMOTE CONTROLLER *A04
     1997                            *                                                                   *A04
     1998   01 02C92    00000080 A   COCLINE  DATA     X'80'             NUMBER OF CONTROLLING LINE      *G02
     1999   01 02C93    00000000 A   COCLOG   DATA     0                 NUMBER OF LAST LINE LOGGED      *G02
     2000                            *                                                                   *A04
     2001   01 02C94    0000286C     SETHALTA DATA     RESCAN            ADDRESS OF ENTRY TO EXECUTE     *A04
     2002                            *                                     ROUTINE WHICH RESPONDS TO     *A04
     2003                            *                                       SPECIAL CONTROL CONSOLE INPUT*A04
     2004                            *                                                                   *A04
     2005   01 02C95    00000000 A   MSGMODE  DATA     0                 .NE.0=>ECHO ALL INPUT           *B04

     2007         00000055           CLOCK    EQU      X'55'             LOCATION OF REAL TIME CLOCK     *A04
     2008                            *                                     COUNT LOCATION                *A04
     2009                            *                                                                   *A04
     2010   01 02C96    00000032 A   TICKS    DATA     50                NUMBER OF TICKS/.1 SECONDS      *A04
     2011                            *                                                                   *A04
     2012   01 02C97    00000000 A   2SEC     DATA     0                 2SEC FLAG = 0; ALLOW LOG-ON     *A04
     2013                            *                                     MESSAGE                       *A04
     2014                            *                                   2SEC FLAG NOT 0; BYPASS LOG-ON  *A04
     2015                            *                                     MESSAGE                       *A04
     2016                            *                                   (MUST = 0 AT LEAST ONCE EVERY   *A04
     2017                            *                                   2 SECONDS WHILE IN CCP)         *A04
     2018                            *                                                                   *A04
     2019                            *                                                                   *A04
     2020   01 02C98    6F6F6F6F A   LOGONMSG TEXT     '????'            QUESTION MARK MSG               *A04
     2021   01 02C99    1B7A1515 A            DATA     X'1B7A1515'       ESCAPE COLON CR CR              *A04
     2022   01 02C9A    D4E3D340 A            TEXT     'MTL ',VERSION,':'                                *B01
            01 02C9B    C8F0F07A A
     2023   01 02C9C    C4C9C1C7 A   PASSWORD DATA     'DIAG'                                            *A04
     2024         01 02C9D           BUFF3    EQU      %                 CARD BLOCKING BUFFER            *A04
     2025   01 02C9D                          RES      30                TTY INPUT BUFFER (BUFF3)        *A05
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   46
A    2027                            ********************************************************            *A04
     2028                            *                                                                   *A04
     2029                            *        ***CCP***                                                  *A04
     2030                            *                                                                   *A04
     2031                            ********************************************************            *A04
     2032                            *                                                                   *A04
     2033                            *        THE COMMUNICATION CONTROL PACKAGE TESTS AND ACCEPTS        *A04
     2034                            *        INPUT FROM THE CONTROL CONSOLE (EITHER LOCAL ASR/KSR       *A04
     2035                            *        OR TERMINAL CONNECTED THRU THE COC) OR AN OBSERVER IN      *A04
     2036                            *        MESSAGE MODE AND ECHOES THE INPUT TO ALL USERS. THIS       *A04
     2037                            *        ROUTINE INITIALIZES ALL COC LINES AND INITIATES LOG-ON.    *A04
     2038                            *                                                                   *A04
     2039                            *        SPECIAL FEATURES:                                          *A04
     2040                            *        1.INPUT FROM CONTROL CONSOL CAUSES CONTROL TO BE TRANSFERRED*A04
     2041                            *          FROM THIS ROUTINE INDIRECTLY THRU EXECUTEA. THE ROUTINE AT*A04
     2042                            *          EXECUTEA DETERMINES WHAT ACTION TO TAKE ON THE CURRENT   *A04
     2043                            *          CHARACTER. IF CONTROL IS RETURNED FROM THE EXECUTE ROUTINE*A04
     2044                            *          TO CCP VIA THE LINK ADDRESS, CCP WILL AUTOMATICALLY TEST *A04
     2045                            *          FOR INPUT OF THE NEXT CHARACTER.                         *A04
     2046                            *        2.IF NO INPUT IS AVAILABLE, THE RUNMODE FLAG DETERMINES IF *A04
     2047                            *          AN EXIT FROM CCP IS TO BE TAKEN OR IF LOOPING ON         *A04
     2048                            *          THIS ROUTINE IS ALLOWED. (RUNMODE=0, EXIT; RUNMODE       *A04
     2049                            *          NOT EQUAL TO 0, LOOP)                                    *A04
     2050                            *        3.ADDRESS RECOGNITION OF THE COC ADDRESS WILL CAUSE        *A04
     2051                            *          THE FOLLOWING ACTIONS:                                   *A04
     2052                            *          IF THE COCSTATE=0, ALL COC LINE STATES WILL BE           *A04
     2053                            *          INITIALIZED FOR LOG-ON AND THE LOG-ON MESSAGE WILL       *A04
     2054                            *          BE INITIATED.                                            *A04
     2055                            *          IF THE COCSTATE IS NOT EQUAL TO 0, TRANSMISSION OF LOG-ON*A04
     2056                            *          MESSAGE CHARACTERS IS DETERMINED BY THE 2SEC FLAG.       *A04
     2057                            *          THE FLAG NOT EQUAL TO 0 MEANS THAT LOG-ON IS BYPASSED.   *A04
     2058                            *          AT LEAST EVERY TWO SECONDS THIS FLAG MUST BE SET TO 0    *A04
     2059                            *          TO ALLOW THE LOG-ON MESSAGE AND REINITIALIZATION         *A04
     2060                            *          OF THE COC LINE STATES.                                  *A04
     2061                            *        4.NO ADDRESS RECOGNITION OF THE COC ADDRESS WHILE          *A04
     2062                            *          SOMEONE IS LOGGED-ON CAUSES ALL COC LINE STATES TO BE    *A04
     2063                            *          CLEARED.                                                 *A04
     2064                            *        5.THE LOG-ON MESSAGE IS SENT TO ALL LINES WHICH MEET THE   *A04
     2065                            *          CONDITIONS OF RECEIVER TURNED ON AND TRANSMITTER CLEAR   *A04
     2066                            *          TO SEND.                                                 *A04
     2067                            *                                                                   *A04
     2068                            *        CALLING SEQUENCE: BAL,15  CCP                              *A04
     2069                            *                          -        RETURN                          *A04
     2070                            *                                                                   *A04
     2071                            *                          .                                        *A04
     2072                            *                          WHILE IN CCP AND INPUT FROM CONTROL      *A04
     2073                            *                          CONSOLE                                  *A04
     2074                            *                          .                                        *A04
     2075                            *                          R13 (BITS 24-31)=EBCDIC CHARACTER        *A04
     2076                            *                                                                   *A04
     2077                            *        REGISTERS USED: R13 ALL OTHERS ARE SAVED.                  *A04
     2078                            *                                                                   *A04
     2079                            *        SUBROUTINES USED:                                          *A04
     2080                            *          SIOCOC - START COC                                       *A04
     2081                            *          TIOCOC - INPUT FROM COC                                  *A04
     2082                            *          TIOTTY - INPUT FROM ASR/KSR                              *A04
     2083                            *          TTYOUT - OUTPUT TO ASR/KSR AND ALL COC LINES             *A04
     2084                            *          ECHO - OUTPUT TO ALL COC LINES                           *A04

     2086   01 02CBB    02200000 A   CCP      LCI      0                 SAVE ALL                        *A04
     2087   01 02CBC    2B002D09              STM,0    CCPSAVE             REGISTERS                     *A04
     2088                            *                                                                   *A04
     2089   01 02CBD    CD002C8F     CCPA     TIO,0    *COCDEV           IS THERE A COC                  *A04
     2090   01 02CBE    68802CC3              BCR,8    CCP1              YES                             *A04
     2091   01 02CBF    72E02C91              LB,14    COCSTATE          IS COC STATE 0                  *A04
     2092   01 02CC0    68302CEE              BCR,3    CCP24             YES                             *A04
     2093   01 02CC1    22E00000 A            LI,14    0                 SET COCSTATE 0                  *A04
     2094   01 02CC2    68002CC8              B        CCP11                                             *A04
     2095                            *                                                                   *A04
     2096   01 02CC3    72E02C91     CCP1     LB,14    COCSTATE          IS COCSTATE 0                   *A04
     2097   01 02CC4    69302CCC              BCS,3    CCP2              NO                              *A04
     2098   01 02CC5    CF002C8F              HIO,0    *COCDEV           MAKE DEVICE READY               *A04
     2099   01 02CC6    6AF02D4E              BAL,15   SIOCOC            START COC                       *A04
     2100   01 02CC7    22E00003 A            LI,14    3                 SET COCSTATE 3                  *A04
     2101   01 02CC8    2210003F A   CCP11    LI,1     X'3F'             START WITH LINE NR 3F           *A04
     2102   01 02CC9    75E22E73              STB,14   COCL,1            SET COC LINE STATE              *A04
     2103   01 02CCA    64102CC9              BDR,1    %-1               D0 1 THRU 3F                    *A04
     2104   01 02CCB    75E22E73              STB,14   COCL,1            DO 0                            *A04
     2105   01 02CCC    73802C97     CCP2     MTB,8    2SEC              2 SECONDS ELAPSED               *A04
     2106   01 02CCD    69302CCF              BCS,3    %+2               NO                              *A04
     2107   01 02CCE    49E02EF3              OR,14    =X'00000002'      FORCE COC LINE STATE CHECK      *A04
     2108   01 02CCF    21E00002 A            CI,14    2                 ANY OUTPUT OR LINE ANSWER       *A04
     2109   01 02CD0    68402CEE              BCR,4    CCP24             NO                              *A04
     2110   01 02CD1    48E02EF3              EOR,14   =X'00000002'      RESET COCSTATE 2 IND.           *A04
     2111   01 02CD2    22100000 A            LI,1     0                                                 *A04
     2112   01 02CD3    75102E71              STB,1    COCNR             SET USER COUNT = 0              *A04
     2113   01 02CD4    72222E73     CCP21    LB,2     COCL,1            GET COC LINE STATE              *A04
     2114   01 02CD5    68302CEB              BCR,3    CCP23             ITS 0                           *A04
     2115   01 02CD6    ED102E6C              WD,1     *RECON            TURN RECEIVER ON                *A04
     2116   01 02CD7    68102CEB              BCR,1    CCP23             RECEIVER IS OFF OR NOT READY    *A04
     2117   01 02CD8    21200003 A            CI,2     3                 IS COC LINE STATE = 3           *A04
     2118   01 02CD9    69302CDD              BCS,3    CCP22             NO                              *A04
     2119   01 02CDA    ED102E6F              WD,1     *SENSET           TEST XMIT STATUS                *A04
     2120   01 02CDB    68202CEB              BCR,2    CCP23             XMITTER NOT CLEAR TO SEND       *A04
     2121   01 02CDC    22200014 A            LI,2     X'14'             CHANGE STATE TO XMIT LOGON      *A04
     2122   01 02CDD    21200014 A   CCP22    CI,2     X'14'             XMITTING ANY MSG                *A04
     2123   01 02CDE    68402CE4              BCR,4    CCP25             NO                              *A04
     2124   01 02CDF    72342C94              LB,3     LOGONMSG-4,2      GET A BYTE OF THE MSG           *A04
     2125   01 02CE0    6AF02E43              BAL,15   COCXMIT           TRANSMIT IT TO USER             *A04
     2126   01 02CE1    49E02EF3              OR,14    =X'00000002'      SET COCSTAE 2 IND               *A04
     2127   01 02CE2    20200001 A            AI,2     1                 INC COC LINE STATE              *A04
     2128   01 02CE3    75222E73              STB,2    COCL,1                                            *A04
     2129   01 02CE4    212000C0 A   CCP25    CI,2     X'C0'             IS HE LOGGED ON                 *A04
     2130   01 02CE5    68402CEB              BCR,4    CCP23             NO                              *A04
     2131   01 02CE6    49E02EF4              OR,14    =X'00000040'      SET OBSERVER IND                *A04
     2132   01 02CE7    73102E71              MTB,1    COCNR             INC COC NUMBER OF USERS         *A04
     2133   01 02CE8    32202E72              LW,2     COCLIM            LIMIT ON COC LINES LOGGED       *B01
     2134   01 02CE9    71202E71              CB,2     COCNR             LIMIT > NR OF LINES LOGGED ON   *A04
     2135   01 02CEA    68202CEE              BCR,2    CCP24             NO - DON'T LOG ON ANY MORE      *A04
     2136   01 02CEB    20100001 A   CCP23    AI,1     1                 INC LINE NR                     *A04
     2137   01 02CEC    21100040 A            CI,1     X'40'             DONE YET                        *A04
     2138   01 02CED    69102CD4              BCS,1    CCP21             NO                              *A04
     2139   01 02CEE    75E02C91     CCP24    STB,14   COCSTATE                                          *A04
     2140   01 02CEF    21E00080 A            CI,14    X'80'             COC CONTROL                     *A04
     2141   01 02CF0    69402CF9              BCS,4    CCP4              YES                             *A04
     2142   01 02CF1    6AF02D19     CCP3A    BAL,15   TIOTTY            ANY INPUT                       *A04
     2143   01 02CF2    68002D04              B        CCP6              NO                              *A04
     2144   01 02CF3    6AF02E1E              BAL,15   ECHO              XMIT TO OBSERVERS               *A04
     2145   01 02CF4    02000000 A            NOP                                                        *A04
     2146   01 02CF5    35302D16              STW,3    CCPSAVE+13        SAVE CHAR                       *A04
     2147   01 02CF6    02200000 A   CCPEXIT  LCI      0                 RESTORE ALL                     *A04
     2148   01 02CF7    2A002D09              LM,0     CCPSAVE             REGISTERS                     *A04
     2149   01 02CF8    E800000F A            B        *15                                               *A04

     2151   01 02CF9    6AF02D44     CCP4     BAL,15   TIOCOC            ANY INPUT                       *A04
     2152   01 02CFA    68002CFF              B        CCP5              NO                              *A04
     2153   01 02CFB    6AF02DFF              BAL,15   TTYOUT            XMIT TO ALL OBSERVERS           *A04
     2154   01 02CFC    02000000 A            NOP                                                        *A04
     2155   01 02CFD    35302D16              STW,3    CCPSAVE+13        SAVE CHAR                       *A04
     2156   01 02CFE    68002CF6              B        CCPEXIT           CHECK FOR MORE INPUT            *A04
     2157                            *                                                                   *A04
     2158   01 02CFF    6AF02D19     CCP5     BAL,15   TIOTTY            ANY OBSERVER INPUT              *A04
     2159   01 02D00    68002CBD              B        CCPA              NO                              *A04
     2160   01 02D01    6AF02E1E              BAL,15   ECHO              XMIT TO EVERY ONE ELSE          *A04
     2161   01 02D02    02000000 A            NOP                                                        *A04
     2162   01 02D03    68002CBD              B        CCPA                                              *A04
     2163                            *                                                                   *A04
     2164   01 02D04    6AF02D44     CCP6     BAL,15   TIOCOC            ANY OBSERVER INPUT              *A04
     2165   01 02D05    68002CBD              B        CCPA              NO                              *A04
     2166   01 02D06    6AF02DFF     CCP61    BAL,15   TTYOUT            XMIT TO EVERYONE ELSE           *A04
     2167   01 02D07    02000000 A            NOP                                                        *A04
     2168   01 02D08    68002CBD              B        CCPA                                              *A04
     2169   01 02D09                 CCPSAVE  RES      16                REGISTER SAVE AREA              *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   47
A    2171                            ********************************************************            *A04
     2172                            *                                                                   *A04
     2173                            *        ***TIOTTY***                                               *A04
     2174                            *                                                                   *A04
     2175                            ********************************************************            *A04
     2176                            *                                                                   *A04
     2177                            *        TESTS THE LOCAL ASK/KSR FOR INPUT AND ACCEPTS INPUT        *A04
     2178                            *        OF ONE CHARACTER. A SECOND ENTRY POINT STARTS INPUT        *A04
     2179                            *        ON THE LOCAL ASK/KSR.                                      *A04
     2180                            *                                                                   *A04
     2181                            *        SPECIAL FEATURES:                                          *A04
     2182                            *        1. THE TTY IS STARTED FOR INPUT UNDER THE FOLLOWING        *A04
     2183                            *           CONDITIONS:                                             *A04
     2184                            *           TTY READY AND PREVIOUSLY WAS DOING OUTPUT               *A04
     2185                            *           TTY READY AND ALL CHARACTERS FROM PREVIOUS INPUT ARE    *A04
     2186                            *           PROCESSED                                               *A04
     2187                            *           ROUTINE ENTERED AT SIOTTY                               *A04
     2188                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF                  *A04
     2189                            *           THE INPUT IS FROM THE CONTROL CONSOLE                   *A04
     2190                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE MODE     *A04
     2191                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE   *A04
     2192                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO PROCESS*A04
     2193                            *           THE NEXT CHARACTER BY AUTOMATICALLY RESTARTING AT TIOTTY*A04
     2194                            *        4. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT.*A04
     2195                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.*A04
     2196                            *                                                                   *A04
     2197                            *        CALLING SEQUENCE: BAL,15  TIOTTY - TEST FOR INPUT          *A04
     2198                            *                          -       RETURN - NO CHARACTER AVAILABLE  *A04
     2199                            *                          -       RETURN - R3 BITS 24-31=EBCDIC CHAR.*A04
     2200                            *                                                                   *A04
     2201                            *                          BAL,15  SIOTTY - START TTY               *A04
     2202                            *                          -       RETURN                           *A04
     2203                            *                                                                   *A04
     2204                            *        REGISTERS USED: R0,R1,R3,R12,R13                           *A04
     2205                            *                                                                   *A04
     2206                            *        SUBROUTINES USED: NONE                                     *A04

     2208   01 02D19    CDC02608     TIOTTY   TIO,12   *TTYDEV                                           *A04
     2209   01 02D1A    7400000E A            STCF     14                SAVE CC'S                       *A04
     2210   01 02D1B    69802B01              BCS,8    KBDADR            NO ADDRESS RECOGNITION          *A04
     2211   01 02D1C    68402D21              BCR,4    TIOTTY1           TTY NOT BUSY                    *A04
     2212   01 02D1D    21C0172F              CI,12    DA(TTYO)          STILL DOING OUTPUT              *A04
     2213   01 02D1E    E830000F A            BE       *15               YES                             *A04
     2214   01 02D1F    21C0172E              CI,12    DA(TTYO)-1                                        *A05
     2215   01 02D20    E830000F A            BE       *15                                               *A05
     2216   01 02D21    21C0172C     TIOTTY1  CI,12    DA(TTYI)          PREVIOUSLY DOING INPUT          *A04
     2217   01 02D22    68302D25              BE       %+3               NO                              *A05
     2218   01 02D23    21C0172B              CI,12    DA(TTYI)-1                                        *A05
     2219   01 02D24    69302D2A              BNE      TIOTTY3           NO - RESTART IT                 *A04
     2220   01 02D25    4BD02EE8              AND,13   =X'0000FFFF'      KEEP BYTE COUNT                 *A04
     2221   01 02D26    51D02E55              CH,13    TTYBC             TTYBC = BYTE COUNT              *A04
     2222   01 02D27    69102D37              BCS,1    TIOTTY4           NO                              *A04
     2223   01 02D28    7030000E A   TIOTTY2  LCF      14                IS TTY BUSY                     *A04
     2224   01 02D29    E940000F A            BCS,4    *15               YES                             *A04
     2225         01 02D2A           SIOTTY   EQU      %                                                 *A04
     2226   01 02D2A    CDC02608     TIOTTY3  TIO,12   *TTYDEV                                           *A04
     2227   01 02D2B    68C02D31              BCR,12   TIOTTY3A          DEVICE READY                    *A04
     2228   01 02D2C    21C0172F              CI,12    DA(TTYO)          DOING OUTPUT                    *A04
     2229   01 02D2D    68302D2A              BE       TIOTTY3                                           *A05
     2230   01 02D2E    21C0172E              CI,12    DA(TTYO)-1                                        *A05
     2231   01 02D2F    68302D2A              BE       TIOTTY3                                           *A05
     2232   01 02D30    E800000F A            B        *15                                               *A05

     2234   01 02D31    22000010 A   TIOTTY3A LI,0     TTYSIZ                                            *A04
     2235   01 02D32    55002E55              STH,0    TTYBC             INITIALIZE TTYBC                *A04
     2236   01 02D33    2200172C              LI,0     DA(TTYI)                                          *A04
     2237   01 02D34    CC002608              SIO,0    *TTYDEV           START TTY INPUT                 *A04
     2238   01 02D35    69C02D34              BCS,12   %-1               LOOP UNTIL ACCEPTED             *A04
     2239   01 02D36    E800000F A            B        *15                                               *A04
     2240                            *                                                                   *A04
     2241   01 02D37    5A102E55     TIOTTY4  LCH,1    TTYBC                                             *A04
     2242   01 02D38    72322E5E              LB,3     TTYBYTI+TTYSIZ/4,1 GET INPUT BYTE                 *A04
     2243   01 02D39    53F02E55              MTH,-1   TTYBC             DEC TTYBC                       *A04
     2244   01 02D3A    33002C91              MTW,0    COCSTATE          COC CONTROL                     *A04
     2245   01 02D3B    68102D3E              BCR,1    TIOTTY5           NO-TTY CONTROL                  *A04
     2246   01 02D3C    33002C95              MTW,0    MSGMODE           MESSAGE MODE SET                *A04
     2247   01 02D3D    68302D3F              BCR,3    %+2               NO - ARE THERE MORE CHARACTERS  *A05
     2248   01 02D3E    20F00001 A   TIOTTY5  AI,15    1                                                 *A04
     2249   01 02D3F    51D02E55              CH,13    TTYBC             TTYBC = BYTE COUNT              *A04
     2250   01 02D40    68302D28              BCR,3    TIOTTY2           YES-RESTART TTY INPUT           *A04
     2251   01 02D41    E800000F A            B        *15                                               *A04
     2252                            *                                                                   *A04
     2253   01 02D42    2E002D42     TTYOFF   WAIT     %                 TTY PROBLEM                     *A04
     2254   01 02D43    68002D19              B        TIOTTY            TRY AGAIN                       *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   48
A    2256                            ********************************************************            *A04
     2257                            *                                                                   *A04
     2258                            *        ***TIOCOC***                                               *A04
     2259                            *                                                                   *A04
     2260                            ********************************************************            *A04
     2261                            *                                                                   *A04
     2262                            *        TESTS THE COC FOR INPUT AND ACCEPTS INPUT OF ONE           *A04
     2263                            *        CHARACTER. THIS ENTRY REQUIRES A LOGGOD-ON REMOTE USER     *A04
     2264                            *        TIOCOC0 ENTRY PERFORMS THE SAME FUNCTION AS TIOCOC AND     *A04
     2265                            *        ALSO ALLOWS REMOTE USERS TO LOG-ON.                        *A04
     2266                            *        THE SIOCOC ENTRY STARTS INPUT ON THE COC.                  *A04
     2267                            *                                                                   *A04
     2268                            *                                                                   *A04
     2269                            *        SPECIAL FEATURES:                                          *A04
     2270                            *        1. THE COC IS STARTED FOR INPUT UNDER THE FOLLOWING        *A04
     2271                            *           CONDITIONS:                                             *A04
     2272                            *           COC READY AND ALL CHARACTERS FROM PREVIOUS INPUT        *A04
     2273                            *           ARE PROCESSED.                                          *A04
     2274                            *           ROUTINE ENTERED AT SIOCOC.                              *A04
     2275                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF                  *A04
     2276                            *           THE INPUT IS FROM THE CONTROL CONSOLE                   *A04
     2277                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE          *A04
     2278                            *           MODE.                                                   *A04
     2279                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE   *A04
     2280                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO        *A04
     2281                            *           PROCESS THE NEXT CHARACTER BY AUTOMATICALLY             *A04
     2282                            *           RESTARTING AT TIOCOC0.                                  *A04
     2283                            *        4. WHILE USERS ARE ALLOWED TO LOG-ON, THE FOLLOWING        *A04
     2284                            *           ACTION TAKES PLACE:                                     *A04
     2285                            *           ANY INPUT WHILE TRANSMITTING A LOG-ON MESSAGE IS        *A04
     2286                            *           IGNORED.                                                *A04
     2287                            *           AFTER THE LOG-ON MESSAGE HAS BEEN TRANSMITTED, THE      *A04
     2288                            *           INPUT IS COMPARED AGAINST THE CURRENT 4 BYTE            *A04
     2289                            *           PASSWORD. NON-COMPARISON CAUSES THE LOG-ON MESSAGE      *A04
     2290                            *           TO BE REPEATED PRECEDED BY 4 QUESTION MARKS.            *A04
     2291                            *           SUCCESSFUL ENTRY OF THE PASSWORD ALLOWS THE             *A04
     2292                            *           REMOTE USER TO BE LOGGED-ON AS OBSERVER.                *A04
     2293                            *        5. NO ADDRESS RECOGNITION OF THE COC ADDRESS CAUSES        *A04
     2294                            *           CONTROL TO BE TRANSFERRED TO THE LOCAL ASK/KSR.         *A04
     2295                            *                                                                   *A04
     2296                            *        CALLING SEQUENCE: BAL,15  TIOCOC                           *A04
     2297                            *                          -        RETURN - NO CHARACTER AVAILABLE *A04
     2298                            *                          -        RETURN - R3 BITS 24-31=EBCDIC CHAR.*A04
     2299                            *                                                                   *A04
     2300                            *                          BAL,15  TIOCOC0                          *A04
     2301                            *                          -        RETURNS SEE TIOCOC              *A04
     2302                            *                                                                   *A04
     2303                            *                          BAL,15  SOSCOC - START COC               *A04
     2304                            *                          -        RETURN                          *A04
     2305                            *                                                                   *A04
     2306                            *        REGISTERS USED: R0,R1,R2,R3,R12,R13                        *A04
     2307                            *                                                                   *A04
     2308                            *        SUBROUTINES USED: SWAP                                     *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   49
A    2310   01 02D44    72E02C91     TIOCOC   LB,14    COCSTATE                                          *A04
     2311   01 02D45    E830000F A            BCR,3    *15               NO COC                          *A04
     2312   01 02D46    CDD02C8F     TIOCOC0  TIO,13   *COCDEV                                           *A04
     2313   01 02D47    7400000C A            STCF     12                SAVE CC'S                       *A04
     2314   01 02D48    69802D88              BCS,8    COCOFF                                            *A04
     2315   01 02D49    4BD02EE8              AND,13   =X'0000FFFF'      KEEP BYTE COUNT                 *A04
     2316   01 02D4A    51D02E54              CH,13    COCBC             COCBC = BYTE COUNT              *A04
     2317   01 02D4B    69102D53              BCS,1    TIOCOC3           NO                              *A04
     2318   01 02D4C    7030000C A   TIOCOC1  LCF      12                IS COC BUSY                     *A04
     2319   01 02D4D    E940000F A            BCS,4    *15               YES                             *A04
     2320         01 02D4E           SIOCOC   EQU      %                                                 *A04
     2321   01 02D4E    22000020 A   TIOCOC2  LI,0     COCSIZ                                            *A04
     2322   01 02D4F    55002E54              STH,0    COCBC             INITIALIZE COCBC                *A04
     2323   01 02D50    2200172B              LI,0     DA(COC)                                           *A04
     2324   01 02D51    CC002C8F              SIO,0    *COCDEV           START COC INPUT                 *A04
     2325   01 02D52    E800000F A            B        *15                                               *A04

     2327   01 02D53    5A202E54     TIOCOC3  LCH,2    COCBC                                             *A04
     2328   01 02D54    72342E68              LB,3     COCBYT+COCSIZ/4,2 GET INPUT CHAR                  *A04
     2329   01 02D55    4B302EF5              AND,3    =X'0000007F'                                      *A04
     2330   01 02D56    20200001 A            AI,2     1                 INC COCBC                       *A04
     2331   01 02D57    72142E68              LB,1     COCBYT+COCSIZ/4,2 GET LINE NR                     *A04
     2332   01 02D58    4B102EF6              AND,1    =X'0000003F'                                      *A04
     2333   01 02D59    72362EC3              LB,3     EBCDIC,3          CONVERT ASCII TO EBCDIC         *A04
     2334   01 02D5A    72222E73              LB,2     COCL,1            GET COC LINE STATE              *A04
     2335   01 02D5B    53E02E54              MTH,-2   COCBC             DEC COCBC                       *A04
     2336   01 02D5C    35F02E42              STW,15   COCINPUT          SET FLAG                        *A05
     2337   01 02D5D    21200080 A            CI,2     X'80'             FROM CONTROL CONSOLE            *A04
     2338   01 02D5E    68402D63              BCR,4    TIOCOC5           NO                              *A04
     2339   01 02D5F    20F00001 A   TIOCOC4  AI,15    1                 SET SKIP ON EXIT                *A04
     2340   01 02D60    51D02E54              CH,13    COCBC             COCBC = BYTE COUNT              *A04
     2341   01 02D61    68302D4C              BCR,3    TIOCOC1           YES-CHECK FOR COC READY         *A04
     2342   01 02D62    E800000F A            B        *15                                               *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   50
A    2344   01 02D63    21200024 A   TIOCOC5  CI,2     X'24'             COC LINE STATE < 24             *A04
     2345   01 02D64    69102D6C              BCS,1    TIOCOC6           YES                             *A04

     2347   01 02D65    21200040 A            CI,2     X'40'             LOGGED ON                       *A04
     2348   01 02D66    69102D46              BCS,1    TIOCOC0           NO                              *A04

     2350   01 02D67    21F02E26              CI,15    ECHO1+1           FROM ECHO                       *A04
     2351   01 02D68    68302D46              BCR,3    TIOCOC0           YES-WAIT FOR CONTROL INPUT      *A04
     2352   01 02D69    33002C95              MTW,0    MSGMODE           MESSAGE MODE SET                *A04
     2353   01 02D6A    69302D5F              BCS,3    TIOCOC4           YES-SKIP ON EXIT                *A04
     2354   01 02D6B    68002D46              B        TIOCOC0           NO                              *A04

     2356   01 02D6C    21200020 A   TIOCOC6  CI,2     X'20'             WAITING FOR PASSWORD            *A04
     2357   01 02D6D    69102D80              BL       TIOCOC7           NO                              *A04
     2358   01 02D6E    35F02D8B              STW,15   TIOSAVE           SAVE R15                        *A04
     2359   01 02D6F    6AF02E43              BAL,15   COCXMIT           ECHO PASS WORD CHAR             *A04
     2360   01 02D70    32F02D8B              LW,15    TIOSAVE           RESTORE R15                     *A04
     2361   01 02D71    71342C94              CB,3     PASSWORD-8,2      COMPARE PASSWORD CHARACTER      *A04
     2362   01 02D72    69302D84              BNE      TIOCOC9           NOT EQUAL                       *A04
     2363   01 02D73    20200001 A            AI,2     1                 INC COC LINE STATE              *A04
     2364   01 02D74    75222E73     TIOCOC8  STB,2    COCL,1                                            *A04
     2365   01 02D75    21200024 A            CI,2     X'24'             ALL CHARACTERS OF PASSWORD      *A04
     2366   01 02D76    69302D46              BCS,3    TIOCOC0           NO                              *A04
     2367   01 02D77    32002E72              LW,0     COCLIM            LIMIT ON COC LINES              *A04
     2368   01 02D78    71002E71              CB,0     COCNR             LIMIT > NR OF LINES LOGGED ON   *A04
     2369   01 02D79    68202D84              BLE      TIOCOC9           NO - PREVENT LOGON              *B01
     2370   01 02D7A    49E02EF4              OR,14    =X'00000040'      OBSERVER IND.                   *A04
     2371   01 02D7B    75E02C91              STB,14   COCSTATE          SET COCSTATE=OBSERVER ON        *A04
     2372   01 02D7C    35102C93              STW,1    COCLOG            REMEMBER LAST LINE LOGGED       *B02
     2373   01 02D7D    22200040 A            LI,2     X'40'             YES-SET OBSERVER STATUS         *A04
     2374   01 02D7E    75222E73     TIOCOC8A STB,2    COCL,1                                            *A04
     2375   01 02D7F    68002D46              B        TIOCOC0                                           *A04

     2377   01 02D80    19202E6A     TIOCOC7  CLM,2    10TO13            XMITTING QUESTION MARK          *A04
     2378   01 02D81    68902E4F              BCR,9    COCLOFF           YES-MUST  BE BAD LINE           *A04
     2379   01 02D82    21200014 A            CI,2     X'14'             TRANSM.LOG-ON MESSAGE           *A04
     2380   01 02D83    69402D46              BCS,4    TIOCOC0           YES                             *A04
     2381   01 02D84    22200010 A   TIOCOC9  LI,2     X'10'                                             *A04
     2382   01 02D85    49E02EF3              OR,14    =X'00000002'      SET XMIT IND.                   *A04
     2383   01 02D86    75E02C91              STB,14   COCSTATE                                          *A04
     2384   01 02D87    68002D7E              B        TIOCOC8A                                          *B01

     2386   01 02D88    21E00080 A   COCOFF   CI,14    X'80'             COC CONTROL                     *A04
     2387   01 02D89    E840000F A            BCR,4    *15               NO                              *A04
     2388   01 02D8A    68002D8C              B        SWAP              SWITCH TO TTY CONTROL           *A04

     2390   01 02D8B    00000000 A   TIOSAVE  DATA     0                 REG SAVE LOC                    *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   51
A    2392                            *        ***SWAP***                                                 *A04
     2393                            *        SWITCHES CONTROL BETWEEN CURRENT CONTROLLER AND            *A04
     2394                            *        CURRENT OBSERVER                                           *A04
     2395                            *                                                                   *A04
     2396                            *                                                                   *A04
     2397                            *        CALLING SEQUENCE: BAL,15  SWAP                             *A04
     2398                            *                          -       NORMAL RETURN                    *A04
     2399                            *                          -       ABNORMAL RETURN - NOBODY LOGGED ON*A04
     2400                            *                                                                   *A04
     2401                            *        REGISTERS USED: R4,R13                                     *A04
     2402                            *                                                                   *A04
     2403                            *        SUBROUTINES USED: NONE                                     *A04
     2404                            *                                                                   *A04
     2405   01 02D8C    32D02C91     SWAP     LW,13    COCSTATE          COC CONTROLLER                  *A04
     2406   01 02D8D    68102D90              BGEZ     SWAP1             NO                              *A04

     2408   01 02D8E    22D00040 A            LI,13    X'40'             SWITCH CONTROL TO TTY           *A04
     2409   01 02D8F    68002D9C              B        SWAP2                                             *A04

     2411   01 02D90    31D02EF7     SWAP1    CW,13    =X'41000000'      COC LOGGED OR LOGGING           *G02
     2412   01 02D91    68402DA0              BAZ      SWAP3              SKIP IF NOT LOGGED-ON          *B06

     2414   01 02D92    33002C6F              MTW,0    PARAFLAG          USE SPECIFIC LINE IF            *B06
     2415   01 02D93    69302D95              BNEZ     %+2                PRESENT (IN R12), ELSE         *B06
     2416   01 02D94    32C02C93              LW,12    COCLOG              USE LAST LINE LOGGED-ON       *B06

     2418   01 02D95    2240003F A            LI,4     X'3F'             GUARD AGAINST BAD LINE          *B06
     2419   01 02D96    4B40000C A            AND,4    12                 OBTAIN LINE PARAMETER          *B06
     2420   01 02D97    72C82E73              LB,12    COCL,4              AND ERROR EXIT IF NOT         *B06
     2421   01 02D98    21C00020 A            CI,12    X'20'                LOGGED AS OBSERVER           *G02
     2422   01 02D99    69102DA0              BL       SWAP3                                             *G02

     2424   01 02D9A    35402C92              STW,4    COCLINE           NUMBER OF CONTROLLING LINE      *B06
     2425   01 02D9B    22D00080 A            LI,13    X'80'             SWITCH CONTROL TO COC           *A04

     2427   01 02D9C    75D02C91     SWAP2    STB,13   COCSTATE          SET COC STATE                   *A04
     2428   01 02D9D    32402C92              LW,4     COCLINE           NUMBER OF CONTROLLING LINE      *B01
     2429   01 02D9E    75D82E73              STB,13   COCL,4            SET COC LINE STATE              *A04
     2430   01 02D9F    E800000F A            B        *15                                               *A04

     2432   01 02DA0    3310000F A   SWAP3    MTW,1    15                ERROR RETURN                    *A04
     2433   01 02DA1    E800000F A            B        *15                                               *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   52
A    2435                            ********************************************************            *A04
     2436                            *                                                                   *A04
     2437                            *        ***REMOFF***                                               *A04
     2438                            *                                                                   *A04
     2439                            ********************************************************            *A04
     2440                            *                                                                   *A04
     2441                            *        RETURNS CONTROL TO THE LOCAL ASR/KSR                       *A04
     2442                            *                                                                   *A04
     2443                            *        CALLING SEQUENCE:  BAL,15  REMOFF                          *A04
     2444                            *                           -       RETURN                          *A04
     2445                            *                                                                   *A04
     2446                            *        REGISTERS USED: ALL REG'S SAVED                            *A04
     2447                            *                                                                   *A04
     2448                            *        SUBROUTINES USED: COCXMIT3 - TURN OF COC LINE              *A04
     2449                            *                                                                   *A04
     2450   01 02DA2    33002C91     REMOFF   MTW,0    COCSTATE          IF NO COC, DONT                 *G02
     2451   01 02DA3    E830000F A            BEZ      *15                DO ANYTHING                    *G02

     2453   01 02DA4    35102DB2              STW,1    REMOFFS           SAVE REGISTER ONE               *G02
     2454   01 02DA5    35F02DB3              STW,15   REMOFFS+1         SAVE RETURN                     *A04
     2455   01 02DA6    2210003F A            LI,1     X'3F'             COC LINE NUMBER                 *A04
     2456   01 02DA7    6AF02E4F              BAL,15   COCXMIT3          TURN OFF COC LINE               *A04
     2457   01 02DA8    64102DA7              BDR,1    %-1                                               *A04
     2458   01 02DA9    6AF02E4F              BAL,15   COCXMIT3          TURN OFF COC LINE 0             *A04
     2459   01 02DAA    22100000 A            LI,1     0                                                 *A04
     2460   01 02DAB    35102C91              STW,1    COCSTATE                                          *A04
     2461   01 02DAC    22100080 A            LI,1     X'80'             LOCAL TTY BECOMES CONTROLLER    *G02
     2462   01 02DAD    35102C92              STW,1    COCLINE                                           *G02
     2463   01 02DAE    2210007F A            LI,1     X'7F'             DEFAULT COC IOP ADDRESS         *G02
     2464   01 02DAF    35102C8F              STW,1    COCDEV                                            *A04
     2465   01 02DB0    32102DB2              LW,1     REMOFFS           RESTORE1                        *A04
     2466   01 02DB1    E8002DB3              B        *REMOFFS+1        EXIT                            *A04
     2467                            *                                                                   *A04
     2468   01 02DB2                 REMOFFS  RES      2                 REGISTER SAVE LOCATIONS         *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   53
A    2470                            ********************************************************            *A04
     2471                            *                                                                   *A04
     2472                            *        ***SETDIO***                                               *A04
     2473                            *                                                                   *A04
     2474                            ********************************************************            *A04
     2475                            *                                                                   *A04
     2476                            *        INSERTS THE DIO ADDRESS IN THE EFFECTIVE ADDRESS           *A04
     2477                            *        OF THE WRITE DIRECT INSTRUCTIONS WHICH ARE USED            *A04
     2478                            *        TO SEND CONTROL FUNCTIONS TO THE COC                       *A04
     2479                            *                                                                   *A04
     2480                            *        CALLING SEQUENCE:  R4(BITS 28-31)=DIO ADDRESS              *A04
     2481                            *                           BAL,15  SETDIO                          *A04
     2482                            *                           -       RETURN                          *A04
     2483                            *                                                                   *A04
     2484                            *        REGISTERS USED: R4, R5                                     *A04
     2485                            *                                                                   *A04
     2486                            *        SUBROUTINES USED: NONE                                     *A04
     2487                            *                                                                   *A04
     2488   01 02DB4    226FFFFB A   SETDIO   LI,6     -5                SET INDEX FOR 5 COMMANDS        *B03
     2489   01 02DB5    225000F0 A            LI,5     X'F0'              SET STS MASK                   *B03
     2490   01 02DB6    25400004 A            SLS,4    4                   POSITION DIO ADDRESS          *B03
     2491   01 02DB7    474C2E71              STS,4    RECON+5,6            SAVE ADDRESS DIGIT ONLY      *B03
     2492   01 02DB8    65602DB7              BIR,6    %-1                                               *B03
     2493   01 02DB9    E800000F A            B        *15               EXIT                            *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   54
A    2495                            ********************************************************            *A04
     2496                            *                                                                   *A04
     2497                            *        ***MSGOUT***                                               *A04
     2498                            *                                                                   *A04
     2499                            ********************************************************            *A04
     2500                            *                                                                   *A04
     2501                            *        OUTPUTS A STRING OF CHARACTERS TO THE LOCAL ASR/KSR AND TO *A04
     2502                            *        ALL LINES WHICH ARE CURRENTLY LOGGED ON.                   *A04
     2503                            *                                                                   *A04
     2504                            *        SPECIAL FEATURES:                                          *A04
     2505                            *        1. THE BREAK RETURN FROM THE TTYOUT ROUTINE CAUSES         *A04
     2506                            *           TERMINATION OF OUTPUT.                                  *A04
     2507                            *                                                                   *A04
     2508                            *                                                                   *A04
     2509                            *        CALLING SEQUENCE: R6 = BYTE ADDRESS OF CHARACTER STRING    *A04
     2510                            *                          BAL,15  MSGOUT                           *A04
     2511                            *                          -       RETURN                           *A04
     2512                            *                                                                   *A04
     2513                            *        REGISTERS USED: CONTENTS OF ALL REGISTERS IS SAVED AND     *A04
     2514                            *                        RESTORED                                   *A04
     2515                            *                                                                   *A04
     2516                            *        SUBROUTINES USED: TTYOUT                                   *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   55
A    2518   01 02DBA    02200000 A   REMOUT   LCI      0                 SAVE ALL                        *A04
     2519   01 02DBB    2B002DE2              STM,0    REMOUTS             REGISTERS                     *A04
     2520   01 02DBC    22000000 A            LI,0     0                 CLEAR SCAN FLAG                 *B06
     2521   01 02DBD    35002DFE              STW,0    MSGSCN                                            *B06

     2523   01 02DBE    22300015 A   REMOUT0  LI,3     X'15'             OUTPUT NEW LINE                 *B00
     2524   01 02DBF    6AF02DF8              BAL,15   REMTTY                                            *B06
     2525   01 02DC0    68002DBE              B        REMOUT0           IGNORE BREAKS HERE              *B05

     2527   01 02DC1    32F00006 A            LW,15    6                 SAVE BA(MESSAGE)                *B00
     2528   01 02DC2    725C0000 A            LB,5     0,6                                               *A04
     2529   01 02DC3    30600005 A            AW,6     5                 POINT TO LAST TEXT BYTE         *B00

     2531   01 02DC4    723C0000 A            LB,3     0,6               SCAN TO FIRST NON-BLANK         *B00
     2532   01 02DC5    21300040 A            CI,3     X'40'                                             *B00
     2533   01 02DC6    69302DC9              BNE      %+3                                               *B00
     2534   01 02DC7    206FFFFF A            AI,6     -1                                                *B00
     2535   01 02DC8    64502DC4              BDR,5    %-4               AND UPDATE MESSAGE LENGTH       *B00

     2537   01 02DC9    3260000F A            LW,6     15                RESTORE BA(MESSAGE)             *B00
     2538   01 02DCA    715C0000 A            CB,5     0,6                THEN INSURE AT LEAST ONE       *B03
     2539   01 02DCB    68302DCD              BE       %+2                 TRAILING BLANK, IF ANY WERE   *B03
     2540   01 02DCC    20500001 A            AI,5     1                    PRESENT AT ALL               *B03
     2541   01 02DCD    20600001 A            AI,6     1                 POINT TO FIRST TEXT BYTE        *B00

     2543   01 02DCE    33002DFE              MTW,0    MSGSCN            IF NOT CALLED FROM SCAN         *B06
     2544   01 02DCF    68302DDA              BEZ      REMOUT1            PROCESS MESSAGE NORMALLY       *B06

     2546   01 02DD0    32F02609              LW,15    MSGDEV            IF MSGDEV .EQ. CONDEV           *B06
     2547   01 02DD1    31F02608              CW,15    CONDEV             PROCESS MESSAGE NORMALLY       *B06
     2548   01 02DD2    68302DDA              BE       REMOUT1                                           *B06

     2550   01 02DD3    22700001 A            LI,7     X'01'             ELSE ASSUME MSGDEV IS LP        *B06
     2551   01 02DD4    75700006 A            STB,7    6                  AND PRINT-NO-FORMAT            *B06
     2552   01 02DD5    32700005 A            LW,7     5                                                 *B06
     2553   01 02DD6    32502609              LW,5     MSGDEV                                            *B06
     2554   01 02DD7    6AF02B1C              BAL,15   LINEOUT                                           *B06
     2555   01 02DD8    E8002C94              B        *SETHALTA         (STOP ON ERROR)                 *B06
     2556   01 02DD9    32500007 A            LW,5     7                                                 *B06
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   56
A    2558   01 02DDA    723C0000 A   REMOUT1  LB,3     0,6               GET A MESSAGE BYTE              *A04
     2559   01 02DDB    6AF02DF8              BAL,15   REMTTY             OUTPUT THE BYTE                *B06
     2560   01 02DDC    E8002C94              B        *SETHALTA         ESCAPE ON BREAK                 *B05

     2562   01 02DDD    33100006 A            MTW,1    6                 INC BYTE ADDRESS                *A04
     2563   01 02DDE    64502DDA              BDR,5    REMOUT1           OUT NEXT BYTE                   *A04

     2565   01 02DDF    02200000 A   REMOUT2  LCI      0                 RESTORE ALL                     *A04
     2566   01 02DE0    2A002DE2              LM,0     REMOUTS             REGISTERS                     *A04
     2567   01 02DE1    E800000F A            B        *15               EXIT                            *A04

     2569   01 02DE2                 REMOUTS  RES      16                REGISTER SAVE AREA              *A04

     2571   01 02DF2    02200000 A   REMMSG   LCI      0                 SPECIAL ENTRY FOR SCAN          *B00
     2572   01 02DF3    2B002DE2              STM,0    REMOUTS           (SAVE REGISTERS NORMALLY)       *B00
     2573   01 02DF4    32602AF3              LW,6     LAST              FIND TRUE MESSAGE POINTER       *B00
     2574   01 02DF5    22000001 A            LI,0     1                 SET SCAN FLAG                   *B06
     2575   01 02DF6    35002DFE              STW,0    MSGSCN                                            *B06
     2576   01 02DF7    68002DBE              B        REMOUT0                                           *B06

     2578   01 02DF8    33002DFE     REMTTY   MTW,0    MSGSCN            IF NOT CALLED FROM SCAN         *B06
     2579   01 02DF9    68302DFF              BEZ      TTYOUT             PROCESS MESSAGE NORMALLY       *B06

     2581   01 02DFA    32002609              LW,0     MSGDEV            IF MSGDEV .EQ. CONDEV           *B06
     2582   01 02DFB    31002608              CW,0     CONDEV             PROCESS MESSAGE BYTES          *B06
     2583   01 02DFC    68302DFF              BE       TTYOUT              NORMALLY                      *B06
     2584   01 02DFD    68002E1E              B        ECHO                 ELSE ECHO ONLY TO COC        *B06

     2586   01 02DFE    00000000 A   MSGSCN   DATA     0                 1=>CALLED FROM SCAN             *B06
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   57
A    2588                            ********************************************************            *A04
     2589                            *                                                                   *A04
     2590                            *        ***TTYOUT***                                               *A04
     2591                            *                                                                   *A04
     2592                            ********************************************************            *A04
     2593                            *                                                                   *A04
     2594                            *        TRANSMITS A CHARACTER TO THE LOCALE ASR/KSR AND TO ALL     *A04
     2595                            *        LINES WHICH ARE CURRENTLY LOGGED ON.                       *A04
     2596                            *                                                                   *A04
     2597                            *        SPECIAL FEATURES:                                          *A04
     2598                            *        1. IF TTY IS BUSY AND IN INPUT MODE OR BUSY FOR LONGER     *A04
     2599                            *           THAN .1 SECONDS AND NOT THE CONTROL CONSOLE, AN HIO     *A04
     2600                            *           IS ISSUED TO MAKE THE TTY READY FOR OUTPUT.             *A04
     2601                            *        2. IF THE TTY IS THE CONTROL CONSOLE AND AN UNUSUAL END    *A04
     2602                            *           IS DETECTED (BREAK KEY DEPRESSED), NUL CHARACTERS       *A04
     2603                            *           ARE TRANSMITTED TO THE TTY. THE FOLLOWING ADDITIONAL    *A04
     2604                            *           ACTIONS ARE TAKEN:                                      *A04
     2605                            *           IF THE BREAK KEY WAS DEPRESSED FOR LESS THAN 1 SECOND   *A04
     2606                            *           THE BREAK EXIT IS TAKEN. NOTE THAT A BREAK CHARACTER    *A04
     2607                            *           FROM THE REMOTE CONTROLLER WILL RESULT IN THE SAME      *A04
     2608                            *           ACTION THRU THE ECHO ROUTINE.                           *A04
     2609                            *           IF THE BREAK KEY WAS DEPRESSED FOR MORE THAN 1 SECOND   *A04
     2610                            *           CONTROL IS TRANSFERRED TO SETHALT.                      *A04
     2611                            *        3. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT *A04
     2612                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.*A04
     2613                            *                                                                   *A04
     2614                            *                                                                   *A04
     2615                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER                    *A04
     2616                            *                          BAL,15  TTYOUT                           *A04
     2617                            *                          -       BREAK RETURN                     *A04
     2618                            *                          -       NORMAL RETURN                    *A04
     2619                            *                                                                   *A04
     2620                            *        REGISTERS USED: R0,R12,R13                                 *A04
     2621                            *                        R1,R14 - ECHO ROUTINE                      *A04
     2622                            *                                                                   *A04
     2623                            *        SUBROUTINES USED:                                          *A04
     2624                            *          ECHO - TRANSMIT A CHARACTER TO ALL LINES                 *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   58
A    2626   01 02DFF    35F02E1D     TTYOUT   STW,15   TTYOUTR                                           *A04
     2627   01 02E00    CDC02608     TTYOUT1  TIO,12   *TTYDEV                                           *A04
     2628   01 02E01    69802B01              BCS,8    KBDADR            NO TTY                          *A04
     2629   01 02E02    68C02E0D              BCR,12   TTYOUT2           TTY READY                       *A04
     2630   01 02E03    21C0172F              CI,12    DA(TTYO)          IS TTY ON OUTPUT                *A04
     2631   01 02E04    68302E00              BE       TTYOUT1                                           *A05
     2632   01 02E05    21C0172E              CI,12    DA(TTYO)-1                                        *A05
     2633   01 02E06    69302E08              BNE      TTYOUT5                                           *A05
     2634   01 02E07    68002E00              B        TTYOUT1                                           *A05
     2635                            *                                                                   *A04
     2636   01 02E08    CFC02608     TTYOUT5  HIO,12   *TTYDEV           HALT DEV                        *A04
     2637   01 02E09    22DFF000 A            LI,13    X'FF000'
     2638   01 02E0A    65D02E0A              BIR,13   %
     2639   01 02E0B    CDC02608              TIO,12   *TTYDEV                                           *A05
     2640   01 02E0C    69C02E0B              BCS,12   %-1                                               *A05
     2641   01 02E0D    33002C91     TTYOUT2  MTW,0    COCSTATE          COC IN CONTROL                  *A04
     2642   01 02E0E    69102E16              BCS,1    TTYOUT3           YES                             *A04
     2643   01 02E0F    31D02EEC              CW,13    =X'08000000'      BREAK RELEASE?                  *A04
     2644   01 02E10    68402E16              BCR,4    TTYOUT4           NO                              *A04
     2645   01 02E11    22300080 A            LI,3     NEWPAGE                                           *A04
     2646   01 02E12    75302E68              STB,3    TTYBYTO                                           *A04
     2647   01 02E13    2200172F              LI,0     DA(TTYO)                                          *A04
     2648   01 02E14    CCC02608              SIO,12   *TTYDEV                                           *A04
     2649   01 02E15    68002E00              B        TTYOUT1                                           *A04

     2651         01 02E16           TTYOUT4  EQU      %                                                 *B05
     2652   01 02E16    75302E68     TTYOUT3  STB,3    TTYBYTO           STORE CHAR TO BE XMITTED        *A04
     2653   01 02E17    2200172F              LI,0     DA(TTYO)                                          *A04
     2654   01 02E18    CCC02608              SIO,12   *TTYDEV                                           *A04
     2655   01 02E19    6AF02E1E              BAL,15   ECHO              ECHO TO COC                     *A04
     2656   01 02E1A    E8002E1D              B        *TTYOUTR                                          *A04
     2657   01 02E1B    33102E1D              MTW,1    TTYOUTR                                           *A04
     2658   01 02E1C    E8002E1D              B        *TTYOUTR                                          *A04
     2659                            *                                                                   *A04
     2660   01 02E1D    00000000 A   TTYOUTR  DATA     0                 REGISTER SAVE AREA              *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   59
A    2662                            ********************************************************            *A04
     2663                            *                                                                   *A04
     2664                            *        ***ECHO***                                                 *A04
     2665                            *                                                                   *A04
     2666                            ********************************************************            *A04
     2667                            *                                                                   *A04
     2668                            *        TRANSMITS A CHARACTER TO ALL LINES WHICH ARE CURRENTLY     *A04
     2669                            *        LOGGED ON.                                                 *A04
     2670                            *                                                                   *A04
     2671                            *                                                                   *A04
     2672                            *        SPECIAL FEATURES:                                          *A04
     2673                            *        1. PRIOR TO TRANSMITTING A CHARACTER, INPUT FROM THE       *A04
     2674                            *           CONTROL CONSOLE IS TESTED.                              *A04
     2675                            *           AN EXCLAMATION MARK (!) OR AN ESCAPE CHARACTER          *A04
     2676                            *           CAUSES CONTROL TO BE TRANSFERRED TO SETHALT.            *A04
     2677                            *           A BREAK CHARACTER CAUSES EXIT THRU RETURN ADDRESS       *A04
     2678                            *        OTHERWISE EXIT THRU RETURN ADDRESS+1 IS TAKEN.             *A04
     2679                            *                                                                   *A04
     2680                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER                    *A04
     2681                            *                          BAL,15   ECHO                            *A04
     2682                            *                          -        BREAK CHARACTER RETURN          *A04
     2683                            *                          -        NORMAL RETURN                   *A04
     2684                            *                                                                   *A04
     2685                            *        REGISTERS USED: R1,R14                                     *A04
     2686                            *                        R0,R12,R13 - COCXMIT ROUTINE               *A04
     2687                            *                        R0,R1,R2,R3,R12,R13 - TIOCOC0 ROUTINE      *A04
     2688                            *                                                                   *A04
     2689                            *        SUBROUTINES USED:                                          *A04
     2690                            *          TIOCOC0 - GET CONTROL CONSOLE INPUT                      *A04
     2691                            *          COCXMIT - TRANSMIT A CHARACTER ON A COC LINE             *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   60
A    2693   01 02E1E    35F02E3E     ECHO     STW,15   ECHOS                                             *A04
     2694   01 02E1F    72E02C91              LB,14    COCSTATE                                          *A04
     2695   01 02E20    21E000C0 A            CI,14    X'C0'             ANYBODY LOGGED ON               *A04
     2696   01 02E21    68402E3A              BCR,4    ECHO4             NO                              *A04
     2697   01 02E22    15202E40              STD,2    ECHOR             SAVE R2 & R3                    *A04
     2698   01 02E23    32F02E42              LW,15    COCINPUT          CHECK FLAG                      *A05
     2699   01 02E24    69302E27              BCS,3    %+3                                               *A05
     2700   01 02E25    6AF02D46     ECHO1    BAL,15   TIOCOC0           ANY CONTROL CONSOLE INPUT       *A04
     2701   01 02E26    68002E31              B        ECHO2             NO                              *A04
     2702   01 02E27    22F00000 A            LI,15    0                                                 *A05
     2703   01 02E28    35F02E42              STW,15   COCINPUT          RESET FLAG                      *A05
     2704   01 02E29    2130001B A            CI,3     ESCAPE            IS IT AN ESCAPE                 *A04
     2705   01 02E2A    E8302C94              BCR,3    *SETHALTA         YES                             *A04
     2706   01 02E2B    2130004C A            CI,3     '<'               IS IT A DELETE CHAR             *A05
     2707   01 02E2C    E8302C94              BCR,3    *SETHALTA         YES                             *A04
     2708   01 02E2D    21300000 A            CI,3     0                 IS IT A BREAK CHAR              *A04
     2709   01 02E2E    69302E31              BCS,3    ECHO2             NO                              *A04
     2710   01 02E2F    22300080 A            LI,3     NEWPAGE                                           *A04
     2711   01 02E30    35302E41              STW,3    ECHOR+1                                           *A04
     2712   01 02E31    12202E40     ECHO2    LD,2     ECHOR             RETREIVE R2 & R3                *A04
     2713   01 02E32    22100000 A            LI,1     0                 INITIALIZE LINE 0               *A04
     2714   01 02E33    72022E73     ECHO3    LB,0     COCL,1                                            *A04
     2715   01 02E34    210000C0 A            CI,0     X'C0'             LOGGED ON                       *A04
     2716   01 02E35    68402E37              BCR,4    %+2               NO                              *A04
     2717   01 02E36    6AF02E43              BAL,15   COCXMIT           YES-XMIT CHAR                   *A04
     2718   01 02E37    20100001 A            AI,1     1                 INC LINE NR                     *A04
     2719   01 02E38    21100040 A            CI,1     X'40'             DONE                            *A04
     2720   01 02E39    69102E33              BCS,1    ECHO3             NO                              *A04
     2721   01 02E3A    21300080 A   ECHO4    CI,3     NEWPAGE           BREAK                           *A04
     2722   01 02E3B    E8302E3E              BCR,3    *ECHOS            YES                             *A04
     2723   01 02E3C    33102E3E              MTW,1    ECHOS             SKIP EXIT                       *A04
     2724   01 02E3D    E8002E3E              B        *ECHOS                                            *A04
     2725   01 02E3E                 ECHOS    RES      1                 REGISTER                        *A04
     2726                                     BOUND    8                                                 *A04
     2727   01 02E40                 ECHOR    RES      2                   SAVE AREA                     *A04
     2728   01 02E42    00000000 A   COCINPUT DATA     0                                                 *A05
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   61
A    2730                            ********************************************************            *A04
     2731                            *                                                                   *A04
     2732                            *        ***COCXMIT***                                              *A04
     2733                            *                                                                   *A04
     2734                            ********************************************************            *A04
     2735                            *                                                                   *A04
     2736                            *        OUTPUTS A CHARACTER ON A COC LINE                          *A04
     2737                            *                                                                   *A04
     2738                            *        SPECIAL FEATURES:                                          *A04
     2739                            *        1. THIS ROUTINE AUTOMATICALLY TRANSMITS A LINE FEED        *A04
     2740                            *           CHARACTER FOLLOWING A CHARRIAGE RETURN CHARACTER.       *A04
     2741                            *        2. THE LINE WILL BE TURNED OFF UNDER THE FOLLOWING         *A04
     2742                            *           CONDITIONS:                                             *A04
     2743                            *           DATA SET NOT REPORTING CLEAR TO SEND                    *A04
     2744                            *           TRANSMISSION IN PROGRESS FOR MORE THAN .3 SECONDS       *A04
     2745                            *                                                                   *A04
     2746                            *        CALLING SEQUENCE: R1 = COC LINE NUMBER                     *A04
     2747                            *                          R3 = EBCDIC CHARACTER                    *A04
     2748                            *                          BAL,15  COCXMIT                          *A04
     2749                            *                          -       RETURN                           *A04
     2750                            *                                                                   *A04
     2751                            *        REGISTERS USED: R0,R12,R13                                 *A04
     2752                            *                                                                   *A04
     2753                            *        SUBROUTINES USED: NONE                                     *A04
     2754                            *                                                                   *A04
     2755                            *                                                                   *A04
     2756   01 02E43    72C62E83     COCXMIT  LB,12    ASCII,3           CONVERT TO ASCII FROM EBCDIC    *A04
     2757         01 02E44           COCXMIT2 EQU      %                                                 *B05
     2758         01 02E44           COCXMIT1 EQU      %                                                 *B05
     2759   01 02E44    ED102E6F              WD,1     *SENSET           SENSE XMITTER L STATUS          *A04
     2760   01 02E45    68202E4F              BCR,2    COCXMIT3          DATA SET NOT CLEAR TO SEND      *A04
     2761   01 02E46    68102E44              BCR,1    COCXMIT2          TRANSMISSION IN PROGRESS        *A04
     2762   01 02E47    25C00008 A            S,12     8                                                 *A04
     2763   01 02E48    30C00001 A            AW,12    1                 ADD IN LINE NR                  *A04
     2764   01 02E49    EDC02E70              WD,12    *XMIT             XMIT ON L                       *A04
     2765   01 02E4A    25C00078 A            SLS,12   -8                                                *G01
     2766   01 02E4B    21C0000D A            CI,12    X'0D'             INSERT NEWLINE AFTER            *G01
     2767   01 02E4C    E930000F A            BNE      *15                CARRIAGE RETURN                *G01
     2768   01 02E4D    22C0000A A            LI,12    X'A'              SET LINE FEED                   *A04
     2769   01 02E4E    68002E44              B        COCXMIT1                                          *A04
     2770                            *                                                                   *A04
     2771         01 02E4F           COCLOFF  EQU      %                                                 *A04
     2772         01 02E4F           COCXMIT3 EQU      %                                                 *B01
     2773   01 02E4F    22000003 A            LI,0     3                 COC LINE SHOULD COME BACK       *B01
     2774   01 02E50    75022E73              STB,0    COCL,1            SET IT                          *A04
     2775   01 02E51    ED102E6D              WD,1     *RECOFF           TURN RECEIVER L OFF             *A04
     2776   01 02E52    ED102E6E              WD,1     *RECDSOFF         TURN RECEIVER L DATA SET OFF    *A04
     2777   01 02E53    E800000F A            B        *15                                               *A04
     2778                            *                                                                   *A04
     2779         00000010           TTYSIZ   EQU      16                LOCAL TTY INPUT BUFFER SIZE     *A04
     2780         00000020           COCSIZ   EQU      32                COC INPUT BUFFER SIZE           *A04
     2781   01 02E54    00000000 A   COCBC    PZE                                                        *A04
     2782   01 02E55    00000000 A   TTYBC    PZE                                                        *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   62
A    2784                            *        IOCD'S                                                     *A04
     2785                            *                                                                   *A04
     2786                                     BOUND    8                                                 *A04
     2787   01 02E56    0200B980     COC      GEN,8,24 2,BA(COCBYT)                                      *A04
     2788   01 02E57    08000020 A            GEN,8,24 8,COCSIZ                                          *A04
     2789   01 02E58    0600B968     TTYI     GEN,8,24 6,BA(TTYBYTI)                                     *A04
     2790   01 02E59    08000010 A            GEN,8,24 8,TTYSIZ                                          *A04
     2791   01 02E5A                 TTYBYTI  RES,1    TTYSIZ                                            *A04
     2792   01 02E5E    0500B9A0     TTYO     GEN,8,24 5,BA(TTYBYTO)                                     *A04
     2793   01 02E5F    08000001 A            GEN,8,24 8,1                                               *A04
     2794                            *                                                                   *A04
     2795                            *        BUFFER SIZES                                               *A04
     2796                            *                                                                   *A04
     2797                            *                                                                   *A04
     2798                            *        IO BUFFERS                                                 *A04
     2799                            *                                                                   *A04
     2800   01 02E60                 COCBYT   RES,1    COCSIZ                                            *A04
     2801                                     BOUND    4                                                 *A04
     2802   01 02E68    00000000 A   TTYBYTO  PZE                                                        *A04
     2803                            *                                                                   *A04
     2804                            *        COMPARE LIMITS                                             *A04
     2805                            *                                                                   *A04
     2806                                     BOUND    8                                                 *A04
     2807   01 02E6A    00000010 A   10TO13   DATA     X'10',X'13'                                       *A04
            01 02E6B    00000013 A
     2808                            *                                                                   *A04
     2809                            *        COC CONTROL FUNCTIONS                                      *A04
     2810                            *                                                                   *A04
     2811   01 02E6C    00003001 A   RECON    DATA     X'3001'           TURN RECEIVER LINE ON           *A04
     2812   01 02E6D    00003002 A   RECOFF   DATA     X'3002'           TURN RECEIVER LINE OFF          *A04
     2813   01 02E6E    00003003 A   RECDSOFF DATA     X'3003'           TURN RECEIVER DATA SET OFF      *A04
     2814   01 02E6F    00003004 A   SENSET   DATA     X'3004'           SENSE TRANSMITTER LINE STATUS   *A04
     2815   01 02E70    00003005 A   XMIT     DATA     X'3005'           TRANSMIT ON LINE                *A04
     2816                            *                                                                   *A04
     2817                            *                                                                   *A04
     2818                            *                                                                   *A04
     2819                            *        CONTROL CHARACTERS                                         *A04
     2820                            *                                                                   *A04
     2821         00000040           SPACE    EQU      X'40'             SPACE FOR ALLIGNMENT            *A04
     2822         00000080           NEWPAGE  EQU      X'80'                                             *A04
     2823         0000001B           ESCAPE   EQU      X'1B'             REMOTE TERMINAL HALT PROMPT     *A04
     2824         0000005A           XCLAM    EQU      X'5A'                                             *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   63
A    2826                            *        ***COC LINE STATES AND CONTROL***                          *A04
     2827                            *                                                                   *A04
     2828   01 02E71    00000000 A   COCNR    DATA     0                 NUMBER OF LINES CURRENTLY       *A04
     2829                            *                                     LOGGED-ON                     *A04
     2830                            *                                                                   *A04
     2831   01 02E72    00000040 A   COCLIM   DATA     64                NUMBER OF LINES ALLOWED         *B01
     2832                            *                                     BE LOGGED-ON                  *A04
     2833                            *                                                                   *A04
     2834         01 02E73           COCL     EQU      %                 TABLE OF COC LINE STATES        *A05
     2835         00000010                    DO       16                                                *A05
     2836   01 02E73    00000000 A            DATA     0                                                 *A05
     2837                                     FIN                                                        *A05
            01 02E74    00000000 A
            01 02E75    00000000 A
            01 02E76    00000000 A
            01 02E77    00000000 A
            01 02E78    00000000 A
            01 02E79    00000000 A
            01 02E7A    00000000 A
            01 02E7B    00000000 A
            01 02E7C    00000000 A
            01 02E7D    00000000 A
            01 02E7E    00000000 A
            01 02E7F    00000000 A
            01 02E80    00000000 A
            01 02E81    00000000 A
            01 02E82    00000000 A
     2838                            *
     2839                            *                 =    0; LINE IS HUNG                              *A04
     2840                            *                 =    3; RECEIVER CLEAR TO SEND NOT PRESENT        *A04
     2841                            *                 = 10-13; 4 QUESTION MARKS - LOG-ON MESSAGE        *A04
     2842                            *                 = 14-1F; LOG-ON MESSAGE                           *A04
     2843                            *                 = 20-23; WAITING FOR PASSWORD CHARACTERS          *A04
     2844                            *                 =    40; LOGGED ON AS OBSERVER                    *A04
     2845                            *                 =    80; LOGGED ON AS CONTROLLER                  *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   64
A    2847                            *        CONVERSION TABLE EBCDIC TO ASCII                           *A04
     2848                            *                                                                   *A04
     2849   01 02E83    00010203 A   ASCII    DATA     X'00010203'                                       *A04
     2850   01 02E84    04090607 A            DATA     X'04090607'                                       *A04
     2851   01 02E85    0705150B A            DATA     X'0705150B'                                       *A04
     2852   01 02E86    0C0D0E0F A            DATA     X'0C0D0E0F'                                       *A04
     2853   01 02E87    10111213 A            DATA     X'10111213'                                       *A04
     2854   01 02E88    140D1617 A            DATA     X'140D1617'                                       *A04
     2855   01 02E89    18191A1B A            DATA     X'18191A1B'                                       *A04
     2856   01 02E8A    1C1D1E1F A            DATA     X'1C1D1E1F'                                       *A04
     2857   01 02E8B    00000000 A            DATA     0                                                 *A04
     2858   01 02E8C    00000000 A            DATA     0                                                 *A04
     2859   01 02E8D    00000000 A            DATA     0                                                 *A04
     2860   01 02E8E    00000000 A            DATA     0                                                 *A04
     2861   01 02E8F    00000000 A            DATA     0                                                 *A04
     2862   01 02E90    00000000 A            DATA     0                                                 *A04
     2863   01 02E91    00000000 A            DATA     0                                                 *A04
     2864   01 02E92    00000000 A            DATA     0                                                 *A04
     2865   01 02E93    20000000 A            DATA     X'20000000'                                       *A04
     2866   01 02E94    00000000 A            DATA     0                                                 *A04
     2867   01 02E95    0000602E A            DATA     X'0000602E'                                       *A04
     2868   01 02E96    3C282B7C A            DATA     X'3C282B7C'                                       *A04
     2869   01 02E97    26000000 A            DATA     X'26000000'                                       *A04
     2870   01 02E98    00000000 A            DATA     0                                                 *A04
     2871   01 02E99    00002124 A            DATA     X'00002124'                                       *A04
     2872   01 02E9A    2A293B7E A            DATA     X'2A293B7E'                                       *A04
     2873   01 02E9B    2D2F0000 A            DATA     X'2D2F0000'                                       *A04
     2874   01 02E9C    00000000 A            DATA     0                                                 *A04
     2875   01 02E9D    00005E2C A            DATA     X'00005E2C'                                       *A04
     2876   01 02E9E    255F3E3F A            DATA     X'255F3E3F'                                       *A04
     2877   01 02E9F    00000000 A            DATA     0                                                 *A04
     2878   01 02EA0    00000000 A            DATA     0                                                 *A04
     2879   01 02EA1    00003A23 A            DATA     X'00003A23'                                       *A04
     2880   01 02EA2    40273D22 A            DATA     X'40273D22'                                       *A04
     2881   01 02EA3    00616263 A            DATA     X'00616263'                                       *A04
     2882   01 02EA4    64656667 A            DATA     X'64656667'                                       *A04
     2883   01 02EA5    68690000 A            DATA     X'68690000'                                       *A04
     2884   01 02EA6    00000000 A            DATA     0                                                 *A04
     2885   01 02EA7    006A6B6C A            DATA     X'006A6B6C'                                       *A04
     2886   01 02EA8    6D6E6F70 A            DATA     X'6D6E6F70'                                       *A04
     2887   01 02EA9    71720000 A            DATA     X'71720000'                                       *A04
     2888   01 02EAA    00000000 A            DATA     0                                                 *A04
     2889   01 02EAB    00007374 A            DATA     X'00007374'                                       *A04
     2890   01 02EAC    75767778 A            DATA     X'75767778'                                       *A04
     2891   01 02EAD    797A0000 A            DATA     X'797A0000'                                       *A04
     2892   01 02EAE    00000000 A            DATA     0                                                 *A04
     2893   01 02EAF    005C7B7D A            DATA     X'005C7B7D'                                       *A04
     2894   01 02EB0    5B5D0000 A            DATA     X'5B5D0000'                                       *A04
     2895   01 02EB1    00000000 A            DATA     0                                                 *A04
     2896   01 02EB2    00000000 A            DATA     0                                                 *A04
     2897   01 02EB3    00414243 A            DATA     X'00414243'                                       *A04
     2898   01 02EB4    44454647 A            DATA     X'44454647'                                       *A04
     2899   01 02EB5    48490000 A            DATA     X'48490000'                                       *A04
     2900   01 02EB6    00000000 A            DATA     0                                                 *A04
     2901   01 02EB7    004A4B4C A            DATA     X'004A4B4C'                                       *A04
     2902   01 02EB8    4D4E4F50 A            DATA     X'4D4E4F50'                                       *A04
     2903   01 02EB9    51520000 A            DATA     X'51520000'                                       *A04
     2904   01 02EBA    00000000 A            DATA     0                                                 *A04
     2905   01 02EBB    00005354 A            DATA     X'00005354'                                       *A04
     2906   01 02EBC    55565758 A            DATA     X'55565758'                                       *A04
     2907   01 02EBD    595A0000 A            DATA     X'595A0000'                                       *A04
     2908   01 02EBE    00000000 A            DATA     0                                                 *A04
     2909   01 02EBF    30313233 A            DATA     X'30313233'                                       *A04
     2910   01 02EC0    34353637 A            DATA     X'34353637'                                       *A04
     2911   01 02EC1    38390000 A            DATA     X'38390000'                                       *A04
     2912   01 02EC2    0000007F A            DATA     X'0000007F'                                       *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   65
A    2914                            *        CONVERSION TABLE ASCII TO EBCDIC                           *A04
     2915                            *                                                                   *A04
     2916   01 02EC3    00010203 A   EBCDIC   DATA     X'00010203'                                       *A04
     2917   01 02EC4    04090607 A            DATA     X'04090607'                                       *A04
     2918   01 02EC5    0805150B A            DATA     X'0805150B'                                       *A04
     2919   01 02EC6    0C150E0F A            DATA     X'0C150E0F'                                       *A04
     2920   01 02EC7    10111213 A            DATA     X'10111213'                                       *A04
     2921   01 02EC8    140A1617 A            DATA     X'140A1617'                                       *A04
     2922   01 02EC9    18191A1B A            DATA     X'18191A1B'                                       *A04
     2923   01 02ECA    1C1D1E1F A            DATA     X'1C1D1E1F'                                       *A04
     2924   01 02ECB    405A7F7B A            DATA     X'405A7F7B'                                       *A04
     2925   01 02ECC    5B6C507D A            DATA     X'5B6C507D'                                       *A04
     2926   01 02ECD    4D5D5C4E A            DATA     X'4D5D5C4E'                                       *A04
     2927   01 02ECE    6B604B61 A            DATA     X'6B604B61'                                       *A04
     2928   01 02ECF    F0F1F2F3 A            DATA     X'F0F1F2F3'                                       *A04
     2929   01 02ED0    F4F5F6F7 A            DATA     X'F4F5F6F7'                                       *A04
     2930   01 02ED1    F8F97A5E A            DATA     X'F8F97A5E'                                       *A04
     2931   01 02ED2    4C7E6E6F A            DATA     X'4C7E6E6F'                                       *A04
     2932   01 02ED3    7CC1C2C3 A            DATA     X'7CC1C2C3'                                       *A04
     2933   01 02ED4    C4C5C6C7 A            DATA     X'C4C5C6C7'                                       *A04
     2934   01 02ED5    C8C9D1D2 A            DATA     X'C8C9D1D2'                                       *A04
     2935   01 02ED6    D3D4D5D6 A            DATA     X'D3D4D5D6'                                       *A04
     2936   01 02ED7    D7D8D9E2 A            DATA     X'D7D8D9E2'                                       *A04
     2937   01 02ED8    E3E4E5E6 A            DATA     X'E3E4E5E6'                                       *A04
     2938   01 02ED9    E7E8E9B4 A            DATA     X'E7E8E9B4'                                       *A04
     2939   01 02EDA    B1B56A6D A            DATA     X'B1B56A6D'                                       *A04
     2940   01 02EDB    4AC1C2C3 A            DATA     X'4AC1C2C3'                                       *A04
     2941   01 02EDC    C4C5C6C7 A            DATA     X'C4C5C6C7'                                       *A04
     2942   01 02EDD    C8C9D1D2 A            DATA     X'C8C9D1D2'                                       *A04
     2943   01 02EDE    D3D4D5D6 A            DATA     X'D3D4D5D6'                                       *A04
     2944   01 02EDF    D7D8D9E2 A            DATA     X'D7D8D9E2'                                       *A04
     2945   01 02EE0    E3E4E5E6 A            DATA     X'E3E4E5E6'                                       *A04
     2946   01 02EE1    E7E8E9B2 A            DATA     X'E7E8E9B2'                                       *A04
     2947   01 02EE2    4FB31BFF A            DATA     X'4FB31BFF'                                       *A04
     2948   01 02EE3    15000000 A            DATA     X'15000000'                                       *A04
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   66
A    2950         01 0260A           OLDDIRCT END      START                                             *B04
            01 02EE4    80000000 A
            01 02EE5    0001FFFF A
            01 02EE6    53000000 A
            01 02EE7    33000000 A
            01 02EE8    0000FFFF A
            01 02EE9    10000000 A
            01 02EEA    007C0000 A
            01 02EEB    04000000 A
            01 02EEC    08000000 A
            01 02EED    00400000 A
            01 02EEE    02000000 A
            01 02EEF    00FC0000 A
            01 02EF0    FFFFFFFC A
            01 02EF1    0000000F A
            01 02EF2    FFB80000 A
            01 02EF3    00000002 A
            01 02EF4    00000040 A
            01 02EF5    0000007F A
            01 02EF6    0000003F A
            01 02EF7    41000000 A

  CONTROL SECTION SUMMARY: 01 02EF8   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:51 JUN 20,'83    T-SERIES MTL CONTROL PROGRAM 960-0012-H00                             PAGE   67
A  ADDNAME          668/BCR      686-LI
   ADDRESS          996/STW      999-PZE
   ADDRTAB         1059/BCS     1070/BCR     1092-B
   APPEND           913/BCS      919-LW      1053/B
   ASCII           2756/LB      2849-DATA
   BASE             208/STW      222/LW       336/LW       350/AW       364/AW       399/LW       421/AW
      1795/LW      1937-PZE
   BIAS             244/STW      381/LW       407/LW       427/LW       470/STW      515/STW     1925-PZE
   BINCD           1489/BCS     1501-LW
   BINCODE         1502/CW      1949-DATA
   BINFLAG          596/STW      613/MTW     1488/MTW     1583/MTW     1948-PZE
   BLFLAG           584/STW      691/MTW     1484/MTW     1516/STW     1947-PZE
   BUFF1            127-RES      655/GEN      709/GEN      763/GEN      764/GEN     1878/GEN
   BUFF2            128-RES      656/GEN      696/GEN      710/GEN
   BUFF3            587/GEN      592/LB       616/LB       626/STB      641/STB      686/LI       695/GEN
       743/LI       746/STB      931/LB       976/STB      990/STB      998/DATA    1048/LB      1052/LI
      1061/LW      2024-EQU
   BYTCNT          1462/STW     1521/AWM     1525/AWM     1527/LW      1940-PZE
   B1               655-GEN     1179/AWM
   B2               656-GEN     1185/AWM
   B3               696-GEN     1186/AWM
   B4               709-GEN     1180/AWM
   B5               476/STB      710-GEN      807/STB     1187/AWM
   B6               763-GEN     1181/AWM
   B7               764-GEN     1182/AWM
   CANTDOIT       216.5/B      216.6/B        235/B        236/B        657/B        697/B        711/B
       727/B        729/B        765/B        773/B        775/B        794/B        795/B        801/B
       803/B        840/B        858-LI
   CANTLD           258/BCR      261/BCR      371/BCS      847-LI
   CANTLOAD         847/LI      1887-TEXTCS
   CARD             144-DATA    1472/TIO*    1478/SIO*    1480/TIO*    1509/LW      1512/STW
   CARRET           967/BCR      989-AI
   CASE1           1288/BCS     1295-AI
   CASE2           1235/BCR     1291/BCS     1294-AI
   CATALOG            2-EQU        4/EQU
   CCP             1976/DATA    2086-LCI
   CCPA            2089-TIO     2159/B       2162/B       2165/B       2168/B
   CCPEXIT         2147-LCI     2156/B
   CCPSAVE         2087/STM     2146/STW     2148/LM      2155/STW     2169-RES
   CCP1            2090/BCR     2096-LB
   CCP11           2094/B       2101-LI
   CCP2            2097/BCS     2105-MTB
   CCP21           2113-LB      2138/BCS
   CCP22           2118/BCS     2122-CI
   CCP23           2114/BCR     2116/BCR     2120/BCR     2130/BCR     2136-AI
   CCP24           2092/BCR     2109/BCR     2135/BCR     2139-STB
   CCP25           2123/BCR     2129-CI
   CCP3A           2142-BAL
   CCP4            2141/BCS     2151-BAL
   CCP5            2152/B       2158-BAL
   CCP6            2143/B       2164-BAL
   CCP61           2166-BAL
   CDOK            1492/BCR     1504/B       1523-LW
   CHAR            1821/STB     1836/LB      1866/GEN     1869/GEN     1928-PZE
   CHARIN          1816-LI      1964/DATA    1971/DATA
   CHAROUT         1722/BAL     1818/B       1820-LI      1967/DATA    1974/DATA
   CHECK            110-CNAME
   CKCOL1           588/B        591-LI       698/B
   CLOCK           2007-EQU
   COC             2323/LI      2787-GEN
   COCBC           2316/CH      2322/STH     2327/LCH     2335/MTH     2340/CH      2781-PZE
   COCBYT          2328/LB      2331/LB      2787/GEN     2800-RES
   COCDEV           159/LW       173/STW      445/LW       457/HIO*    1133/STW     1988-DATA    2089/TIO*
      2098/HIO*    2312/TIO*    2324/SIO*    2464/STW
   COCINPUT        2336/STW     2698/LW      2703/STW     2728-DATA
   COCL             181/STB      183/STB      190/STB     2102/STB     2104/STB     2113/LB      2128/STB
      2334/LB      2364/STB     2374/STB     2420/LB      2429/STB     2714/LB      2774/STB     2834-EQU
   COCLIM          2133/LW      2367/LW      2831-DATA
   COCLINE          162/LW       176/STW      185/LW       451/LW      1998-DATA    2424/STW     2428/LW
      2462/STW
   COCLOFF         2378/BCR     2771-EQU
   COCLOG           177/STW     1999-DATA    2372/STW     2416/LW
   COCNR            191/MTB     2112/STB     2132/MTB     2134/CB      2368/CB      2828-DATA
   COCOFF          2314/BCS     2386-CI
   COCSIZ          2321/LI      2328/LB      2331/LB      2780-EQU     2788/GEN     2800/RES
   COCSTATE         175/STW      449/LW      1992-DATA    2091/LB      2096/LB      2139/STB     2244/MTW
      2310/LB      2371/STB     2383/STB     2405/LW      2427/STB     2450/MTW     2460/STW     2641/MTW
      2694/LB
   COCXMIT         2125/BAL     2359/BAL     2717/BAL     2756-LB
   COCXMIT1        2758-EQU     2769/B
   COCXMIT2        2757-EQU     2761/BCR
   COCXMIT3        2456/BAL     2458/BAL     2760/BCR     2772-EQU
   COL69            279/STW      395/LW      1945-DATA
   COMDIR          1638/BCR     1653-LI
   COMMA            974/BCR     1075-MTW
   COMMAND          328/STW      356/STW      357/MTW      380/STW      455/LW       617/STW      666/LW
      1957-PZE
   COMP            1095/B       1114-MTW
   COMPARE          997/XPSD    1217-PZE     1230/LW*     1231/LW*     1232/LW      1297/STW     1305/LPSD
   COMPAREA        1244-LI      1258/BCR
   COMPAREB        1247-AND     1253/BIR
   COMPARE1        1263-LW      1285/B
   COMPARE2        1269-AI      1276/BCS
   CONDEV           145-DATA     158/LW       171/STW      443/LW      1700/CW      1719/CW      1762/LW
      1779/HIO*    1783/TIO*    1787/PZE     1806/STW     1817/LW      1986/EQU     2547/CW      2582/CW
   CONDOUT         1820/LI      1869-GEN
   CONIN           1816/LI      1866-GEN
   CONOUT          1779-HIO     1965/DATA    1972/DATA
   CONTADD          250-PZE      254/LW
   CONTCARD         621/BCR      625-LI
   CONTINUE         767-BDR      802/B
   CONTROL          248-XPSD     852/B        900/DATA    1112/B       1122/B       1125/B       1143/B
      1151/B
   CONTX            251-PZE      330/LW
   COPY            1093/B       1100-MTW
   COPYDUN          781/LI      1906-TEXTCS
   COPYFLAG         243/STW      577/LW       735/LW       815/MTW     1102/MTW     1941-PZE
   COPYLUP          758-MTW      767/BDR
   COPYONLY         547-MTW     1106/B
   COPYVER          814/LI      1907-TEXTCS
   CORE             151/STW      359/MTW      392/MTW     1176/MTW     1960-PZE
   CORESIZE         549/BAL     1175-MTW
   CR               586/XPSD    1449-DATA    1454/LW*     1531/MTW     1532/MTW     1535/LPSD    1621/XPSD
   CRDASH           916/LI      1047/LI      1885-TEXTCS
   CRIOCD          1183/AWM     1466/STD     1477/LI      1486/LW      1524/AWM     1878-GEN
   CRLOOP          1477-LI      1526/BDR
   CRMSG1          1507/LI      1900-TEXTCS
   CRMSG2          1474/LI      1901-TEXTCS
   CRMSG3          1542/LI      1902-TEXTCS
   CRMSG4          1539/LI      1903-TEXTCS
   CR0             1519/STB     1589/STW     1622-PZE
   CR10            1451/DATA    1453-STM
   CR15            1470-LI      1498/BCS
   CR32            1483/BCS     1539-LI
   CR34            1500/B       1508-BAL     1541/BCR     1543/B
   CW0             1592/STW     1603-PZE
   CW1             1581/STW     1609/STH     1614-PZE     1627/STB
   CW2             1594/STW     1632-PZE
   DBYTES           755/STH      793-DATA
   DICTFLAG         557/STW      580/STW      758/MTW     1598/MTW     1637/MTW     1938-PZE
   DIODEV           174/STW      194/LW       447/LW      1135/STW     1990-DATA
   DIRECTRY         129-RES    216.3/GEN      233/GEN      245/LI       249/PZE      543/LW       565/LW
       567/STW      575/LW       629/GEN      678/MTW      683/MTW      744/LI       750/STW      751/MTW
       792/GEN      864/AI       992/LI
   DIRFLAG          927/STW      966/MTW     1078/MTW     1944-DATA
   DIRHAND          968/B       1058-MTW     1076/B
   DIRHAND1         538/BNEZ    1066-LI      1101/BNEZ    1115/BNEZ
   DIRLENG          132-EQU      542/LI       564/LI
   DIRTAB          1062/CW      1083-DATA    1090/EQU
   DISK             201/STW      214/MTW      238/MTW      375/MTW      388/MTW      429/MTW      478/MTW
       537/MTW     1100/MTW     1114/MTW     1961-DATA
   DONE            1267/BCS     1282/BG      1287-CI
   DONTSKIP         662/BCS      666-LW
   EBCDIC          2333/LB      2916-DATA
   EBFLAG           585/MTW      595/STW      609/MTW     1457/MTW     1517/MTW     1946-PZE
   ECHO            2144/BAL     2160/BAL     2584/B       2655/BAL     2693-STW
   ECHOR           2697/STD     2711/STW     2712/LD      2727-RES
   ECHOS           2693/STW     2722/BCR*    2723/MTW     2724/B*      2725-RES
   ECHO1           2350/CI      2700-BAL
   ECHO2           2701/B       2709/BCS     2712-LD
   ECHO3           2714-LB      2720/BCS
   ECHO4           2696/BCR     2721-CI
   EM              1883-EQU     1888/TEXTCS  1889/TEXTCS  1890/TEXTCS  1891/TEXTCS  1892/TEXTCS
      1893/TEXTCS  1894/TEXTCS  1917/TEXTCS
   ENTRYS           576/STW      661/CW       669/LW       679/MTW      682/MTW      714/MTW      716/CW
       749/LW       756/LW      1927-PZE
   EOFXIT          1385/BCR     1389-LW      1408/BCS
   EOF0            1606/B       1623/B       1626-LI
   EOTM            1432/LI      1896-TEXTCS
   ERRCRD           582/LI      1499/LI      1897-TEXTCS
   ERRMSG           589/B        623/BCS      648/BGE      650/B        854-BAL
   ESCAPE          2704/CI      2823-EQU
   EXCLAM           945/BCR     1078-MTW
   EXIT            1485/BCR     1496/BCS     1532-MTW
   FILE             561/STW      642/LW       660/LW       715/LW       721/STW      862/AW      1118/STW
      1648/MTW     1930-PZE
   FIND1            932/B        991/BCS      996-STW     1036/BDR
   FINISH           707-XPSD     717/BCR      809/B
   FIRSTC           615/STD     1491/CW      1955-PZE
   FIRSTIME         547/MTW     1175/MTW     1924-PZE
   FOUND           1063/BCR     1069-MTW
   GETDIRCT         226/B        231-XPSD     485/B
   HEXCON           971/BCS     1155-CI
   INDEX            631-PZE      634/LW       637/MTW      643/CW       646/LW       649/MTW      671/SW
      1030/STW     1042/LW
   INPUT            198/STM      493/BAL*     541/STM      935/BAL*    1140/STM     1148/STM     1964-DATA
      1969/EQU
   INVDIR          1066/LI      1916-TEXTCS
   IOTAB            540/LM      1147/LM      1971-DATA
   IOTAB1           197/LM      1139/LM      1976-DATA
   KBDADR          1784/BCS     1792-STW     2210/BCS     2628/BCS
   LAST             993/STW     1029/STW     1041/LW      1776-PZE     2573/LW
   LASTC           1493/CW      1956-PZE
   LASTCD          1494/BCR     1503/BCR     1515-LI
   LENGTH          1060/LI      1090-EQU
   LFIELD           131-EQU      255/AI       591/LI
   LFTSMSK          522-DATA    1247/AND
   LINEOUT         1725/BAL     1822/B       1824-STW     2554/BAL
   LINEOUT1        1826-LI      1834/BNEZ
   LINEOUT2        1831/BCS     1836-LB
   LINK             209/LW       869-EQU
   LIST            1094/B       1108-LI
   LOADED           340/BCR      360/BCS      368/B        393/BCR      402/B      403.2/BNEZ     412/BCS
       426-LW
   LOADRG         408.1/B      421.2-EQU
   LOGON           1097/B       1127-EQU
   LOGONMSG        2020-TEXT    2124/LB
   MAGTAPE        216.1/XPSD     231/XPSD     723/XPSD     769/XPSD     790/XPSD     797/XPSD     836/XPSD
      1328-PZE     1339/LW*     1340/LW*     1342/LW*     1386/LW      1388/STW     1389/LW      1391/STW
      1392/LW      1394/STW     1405/LPSD    1601/XPSD    1612/XPSD    1630/XPSD
   MAKSADR          308-LB       326/B
   MANMD           1371/LI      1892-TEXTCS
   MATCH           1003-CI      1039/BCS     1044/BCR
   MATCHES         1001/B       1025-AI
   MESSAGE         1682-PZE     1695/LW*     1696/LW*     1733/LW      1735/STW     1742/LPSD    1774/XPSD
      1786/XPSD
   MFLD             275/STB      337/LB      1958-PZE
   MONITOR          212/STW      346/AW       349/LW       363/LW       400/AW       418/AW       420/LW
      1959-PZE
   MOVE             676/BAL      688/BAL      700-LB       704/BDR      748/BAL
   MOVENAME         673-LW       677/BDR
   MSGDEV           146-DATA     172/STW     1111/STW     1775/PZE     1807/STW     2546/LW      2553/LW
      2581/LW
   MSGDOUT         1824/STW     1825/STW     1826/LI      1872-PZE
   MSGLINE         1720/BCS     1725-BAL
   MSGLUP          1705-LB      1731/BDR
   MSGLUP1         1709-LB      1712/BDR
   MSGLUP2         1711/BNE     1714-CB
   MSGMODE          949/MTW      954/MTW      986/STW     1080/STW     2005-DATA    2246/MTW     2352/MTW
   MSGOUT          1774-XPSD    1966/DATA    1973/DATA
   MSGSCN          2521/STW     2543/MTW     2575/STW     2578/MTW     2586-DATA
   MSGWAIT         1356/BCS     1364/BCR     1370/B       1373/BCR     1422/BAL     1476/BCR     1744-STW
   MSGW0           1753-SCS     1767/BLZ
   MSGXIT          1723/B       1726/B       1733-LW
   MTBS            1411/LI      1856-DATA
   MTCR            1418/LI      1842-GEN
   MTERROR         1380/BCS     1406-TDV
   MTEW            1429/LI      1850-DATA
   MTEXIT          1392-LW      1423/B
   MTLT             134-DATA     438/LI       689/MTW      690/BCS*
   MTOP            1347/STW     1348/STW     1352/LI      1848-PZE     1854/GEN     1858/GEN
   MTRC            1860-GEN
   MTRERR          1416-CW
   MTSIO           1353-LI      1419/BDR     1428/BDR     1431/BCR
   MTWERR          1413/BCR     1425-CW
   NADREC          1473/BCS     1505-LI
   NEWDIR           759/BCR      788-LI
   NEWFILE          632/B        682-MTW
   NEWPAGE         2645/LI      2710/LI      2721/CI      2822-EQU
   NEXTFILE         639-LW       658/B        684/B
   NMTRERR         1415/BCS     1421-LI      1433/B
   NOADR           1108/LI      1505/LI      1899-TEXTCS
   NOCOMP          1641/BCS     1657-LI
   NOCOMPAR        1657/LI      1904-TEXTCS
   NOMATCH         1000/B       1032-AI
   NONRO           1410/LI      1893-TEXTCS
   NORDY           1365/LI      1891-TEXTCS
   NOREG           1354/LI      1888-TEXTCS
   NORMXIT         1605/B       1616/B       1617/B       1634/B       1635/B       1646-MTW
   NOTBLK           397/BCS    403.1-MTW
   NOTDPM           343/BCS      370-CI
   NOUPDT           736/BCS      805-LI
   OKXIT           1383/BCR     1386-LW
   OLDDIRCT         117/CHECK    544/STW      566/XW      1653/LI      2950-END
   ORDER            833/STW      838-PZE
   OUTPUT           246/BAL*     489/BAL*     553/BAL*     738/BAL*     782/BAL*     784/BAL*     820/BAL*
       851/BAL*     854/BAL*     859/BAL*     866/BAL*     917/BAL*     982/BAL*    1051/BAL*    1124/BAL*
      1506/BAL*    1508/BAL*    1658/BAL*    1748/BAL*    1811/B*      1965-DATA
   OUTPUT1          994/BAL*    1027/BAL*    1046/BAL*    1966-DATA
   OVER             981/LI      1886-TEXTCS
   PARAERR          844-LI      1129/BEZ     1160/BCR     1163/B
   PARAFLAG         926/STW      970/MTW     1058/MTW     1069/MTW     1075/MTW     1103/MTW     1128/MTW
      1942-PZE     2414/MTW
   PARAMERR         844/LI      1915-TEXTCS
   PASSWORD        2023-DATA    2361/CB
   PASS1            552/LI      1909-TEXTCS
   PASS2            737/LI      1910-TEXTCS
   PASS3            783/LI      1912-TEXTCS
   PI               154/CW       157/LW      1141/LW      1951-DATA
   PROB             858/LI      1905-TEXTCS
   PROTECT          430/BNEZ     436-LW
   PUTRG           1357/LI      1890-TEXTCS
   RCHAROUT        1763/BAL*    1967-DATA
   RD0             1574/STW     1599/LW      1602-PZE
   RD2             1578/STW     1631-PZE
   READC           1600/BCS     1621-XPSD
   READCARD         137/B        582-LI       680/B        856/B
   READ0           1599-LW      1618/B       1644/B       1660/B
   READ2           1611/BCS     1630-XPSD
   RECDSOFF        2776/WD*     2813-DATA
   RECOFF          2775/WD*     2812-DATA
   RECON           2115/WD*     2491/STS     2811-DATA
   REG             1222/STW     1223/STW     1226/STW     1299/LW      1303/LW      1304/LW      1571/STM
      1650/LM      1687/STW     1688/STW     1691/STW     1737/LW      1740/LW      1741/LW      1922-RES
   REGISTER         905/STW      906/STW      909/STW     1018/LW      1021/LW      1022/LW      1332/STW
      1333/STW     1336/STW     1400/LW      1403/LW      1404/LW      1453/STM     1534/LM      1923-RES
   RELEXIT          496/BCR      498/BCR      515-STW
   RELMSG           488/LI      1917-TEXTCS
   RELOC            265/BAL      487-STW      502/BCR      505/B
   RELOOP           492-LI       513/B
   RELRTN           487/STW      516/B*       518-DATA
   REMCODE          170/STW      441/LW      1142/STW     1150/STW     1984-DATA
   REMMSG          1978/DATA    2571-LCI
   REMOFF           463/BAL     1145/BAL     2450-MTW
   REMOFFS         2453/STW     2454/STW     2465/LW      2466/B*      2468-RES
   REMOUT          1977/DATA    2518-LCI
   REMOUTS         2519/STM     2566/LM      2569-RES     2572/STM
   REMOUT0         2523-LI      2525/B       2576/B
   REMOUT1         2544/BEZ     2548/BE      2558-LB      2563/BDR
   REMOUT2         2565-LCI
   REMSWAP         1096/B       1121-BAL
   REMTTY          2524/BAL     2559/BAL     2578-MTW
   RESCAN           915-LI       939/BCR      942/BCR      983/B       1049/BCR     2001/DATA
   RESMODE          952/BCR      985-LI
   REWFLAG          271/STW      439/AW       473/STW      525-DATA
   REWIND           467/BAL      555/BAL      571/BAL      574/BAL      734/BAL      740/BAL      742/BAL
       780/BAL      808/BAL      819/BAL      824/B        832-LW
   REWORD           827/LI      1953-GEN
   REW0             563/BCR      573-LI
   REW2             570-LI      1119/B
   RFLAG            692/MTW     1497/LW      1530/STW     1931-PZE
   RGUIDE         403.1/MTW      471/STW      960/STW     1943-DATA
   RMVRG           1361/LI      1889-TEXTCS
   ROFF            1098/B       1145-BAL
   RSWAPMSG        1123/LI      1918-TEXTCS
   S:PT               4/EQU
   SAVE            1780/STW     1789/LW      1792/STW     1793/STW     1794/STW     1808/LW      1809/LW
      1810/LW      1813-RES
   SCAN             248/XPSD     628/XPSD     900-DATA     912/LW*      919/LW*     1005/LW      1007/STW
      1009/STW*    1010/STW*    1012/STW     1016/STW     1023/LPSD
   SCANADD          630-PZE      639/LW
   SCANLUP          934-LI       955/BCS      979/BCS      987/B       1073/B       1081/B       1170/B
   SEARCH           310/BCR      328-STW
   SEEKADR          304/STH      453/LW      1962-DATA
   SEEKXL           289-LB       302/BIR
   SEEKXL1          285/BCR      304-STH
   SELERR           850/LI      1898-TEXTCS
   SENSE           1842/GEN     1846/GEN     1860/GEN     1861-PZE
   SENSET          2119/WD*     2759/WD*     2814-DATA
   SEQERR           645/LI      1895-TEXTCS
   SEQOK            644/BCR      652-BCR
   SETCW1          1607-LW      1624/B
   SETDIO           195/BAL     1136/BAL     2488-LI
   SETHALTA        2001-DATA    2555/B*      2560/B*      2705/BCR*    2707/BCR*
   SIOCOC          2099/BAL     2320-EQU
   SIOTTY          2225-EQU
   SKIP             229/BAL      240/BAL      377/BAL      390/BAL      433/BAL      482/BAL      664/BAL
       789/BAL      823-LW
   SKIP0            652/BCR      660-LW
   SPACE           2821-EQU
   START            148-LW      2950/END
   STARTREW         732/BAL      778/BAL      812/BAL      826-LW
   START0           188/BAZ      193-EQU
   START1           163/B        169-EQU
   START2           155/BE       165-EQU
   START3         216.1-XPSD     479/BNEZ
   START4           215/BEZ      228-LI
   STDBL            600/BCR      604/B        610/B        612/BCS      615-STD
   SUCCESS          818/LI      1908-TEXTCS
   SWAP            1121/BAL     2388/B       2405-LW
   SWAP1           2406/BGEZ    2411-CW
   SWAP2           2409/B       2427-STB
   SWAP3           2412/BAZ     2422/BL      2432-MTW
   TABLEN           196/LCI      539/LCI     1138/LCI     1146/LCI     1969-EQU
   TAPE             140-PZE      203/STW      205/STW      207/STW      550/TIO*     826/LW      1105/STW
      1346/LW
   TEMP             294/STW      300/LW       316/STW      324/LW       351/STW      382/STW      426/LW
       519-DATA
   TERM             961/B        966-MTW     1156/BCR
   TEXTCS           100-CNAME
   TICKS           2010-DATA
   TIOCOC          2151/BAL     2164/BAL     2310-LB
   TIOCOC0         2312-TIO     2348/BCS     2351/BCR     2354/B       2366/BCS     2375/B       2380/BCS
      2700/BAL
   TIOCOC1         2318-LCF     2341/BCR
   TIOCOC2         2321-LI
   TIOCOC3         2317/BCS     2327-LCH
   TIOCOC4         2339-AI      2353/BCS
   TIOCOC5         2338/BCR     2344-CI
   TIOCOC6         2345/BCS     2356-CI
   TIOCOC7         2357/BL      2377-CLM
   TIOCOC8         2364-STB
   TIOCOC8A        2374-STB     2384/B
   TIOCOC9         2362/BNE     2369/BLE     2381-LI
   TIOSAVE         2358/STW     2360/LW      2390-DATA
   TIOTTY          2142/BAL     2158/BAL     2208-TIO     2254/B
   TIOTTY1         2211/BCR     2216-CI
   TIOTTY2         2223-LCF     2250/BCR
   TIOTTY3         2219/BNE     2226-TIO     2229/BE      2231/BE
   TIOTTY3A        2227/BCR     2234-LI
   TIOTTY4         2222/BCS     2241-LCH
   TIOTTY5         2245/BCR     2248-AI
   TITLE              4-EQU       99/TITLE
   TTYBC           2221/CH      2235/STH     2241/LCH     2243/MTH     2249/CH      2782-PZE
   TTYBYTI         2242/LB      2789/GEN     2791-RES
   TTYBYTO         2646/STB     2652/STB     2792/GEN     2802-PZE
   TTYDEV           458/HIO*    1986-EQU     2208/TIO*    2226/TIO*    2237/SIO*    2627/TIO*    2636/HIO*
      2639/TIO*    2648/SIO*    2654/SIO*
   TTYI            2216/CI      2218/CI      2236/LI      2789-GEN
   TTYO            2212/CI      2214/CI      2228/CI      2230/CI      2630/CI      2632/CI      2647/LI
      2653/LI      2792-GEN
   TTYOFF          2253-WAIT
   TTYOUT          1979/DATA    2153/BAL     2166/BAL     2579/BEZ     2583/BE      2626-STW
   TTYOUTR         2626/STW     2656/B*      2657/MTW     2658/B*      2660-DATA
   TTYOUT1         2627-TIO     2631/BE      2634/B       2649/B
   TTYOUT2         2629/BCR     2641-MTW
   TTYOUT3         2642/BCS     2652-STB
   TTYOUT4         2644/BCR     2651-EQU
   TTYOUT5         2633/BNE     2636-HIO
   TTYSIZ          2234/LI      2242/LB      2779-EQU     2790/GEN     2791/RES
   UNEQUAL         1273/BCS     1280-AI
   UNIT             834/STW      837-PZE
   UPDATE           136/B        537-MTW     1092/B
   UPDATEOK         719/BCS      811-LI
   UPDATE1          559-STW      786/B
   UPSER            252/B        334/BCR      845/B        850-LI      1067/B       1110/BCS
   URMTE           1420/LI      1894-TEXTCS
   VERCOPY         1584/BNEZ    1587-LI
   VEREAD          1586/BEZ     1588-STB
   VERICOP          653/XPSD     693/XPSD     707/XPSD     761/XPSD    1567-PZE     1573/LM*     1646/MTW
      1647/MTW     1651/LPSD
   VERIFY           559/STW      562/LW       718/LW       806/STW     1117/STW     1596/MTW     1610/LW
      1628/LW      1926-PZE
   VERSION          2.1-EQU        4/EQU     2022/TEXT
   WINDDN           465-EQU      821/B        867/B
   WINDUP           138/B        462-EQU      870/B
   WK0             1745/STD     1771/LD      1934-RES
   WK1             1744/STW     1772/B*      1935-PZE
   WK2             1747/STW     1766/MTW     1936-PZE
   WRITE1          1612-XPSD    1629/BCR
   WT1             1576/STW     1613-PZE
   XCLAM           2824-EQU
   XF               293/AND      315/AND      507/AND      520-DATA    1165/AND     1345/AND
   XFER            1398/STW     1463/STW     1520/LW      1523/LW      1528/STW     1607/LW      1654/LW
      1929-PZE
   XFFFFFFF         296/AND      319/AND      521-DATA
   XFLAG            594/STW      603/MTW     1495/LW      1585/MTW     1939-PZE
   XKLAMATN         578/BCS      619/BCR      714-MTW
   XMIT            2764/WD*     2815-DATA
   XM1              523-DATA    1396/EOR
   XM2              524-DATA    1395/OR
   1ONLY           1004/BCR     1046-BAL
   1STIME          1026/BCR     1029-STW
   1TO2            1639-LB      1643/BDR     1655/B
   10TO13          2377/CLM     2807-DATA
   2SEC            2012-DATA    2105/MTB
