1 C00   21:31 JUN 20,'83                                                                          PAGE    1
A      1                     3.000  +3,3                                                                *H01
       2                     3.010  VERSION  EQU      C'H01'                                            *H01
       3                     7.000  +7,32                                                               *H01
       4                   349.000  +349,352                                                            *H01
       5                   349.010           LW,R2    0,X6                                              *H01
       6                   349.020           LW,R3    1,X6                                              *H01
       7                   349.030           SLD,R2   16                                                *H01
       8                   349.040           AI,R3    X'4040'                                           *H01
       9                   349.050           STW,R3   REM%MSG1+4                                        *H01
      10                   349.060           STW,R2   REM%MSG1+3                                        *H01
      11                   392.000  +392,393                                                            *H01
      12                   392.010  REM%MSG1 EQU      %                                                 *H01
      13                   392.020           TEXTCS   'LOCATED AT 012345  '                             *H01
      14                   395.000  +395,398                                                            *H01
      15                   395.010           SPACE                                                      *H01
      16                   835.000  +835,836                                                            *H01
      17                   835.010           SPACE                                                      *H01
      18                   835.020           LI,R7    16                DISARM ALL INTERRUPT            *H01
      19                   835.030           LI,R8    X'FFFF'            GROUPS IF POSSIBLE             *H01
      20                   835.040           SPACE                                                      *H01
      21                   835.050           WD,R8    X'1100'-1,R7                                      *H01
      22                   835.060           BDR,R7   %-1                                               *H01
      23                   835.070           SPACE                                                      *H01
      24                   874.000  +874                                                                *H01
      25                   874.010           CI,X5    X'1FFFF'          DO NOT CLEAR                    *H01
      26                   874.020           BLE      %+2                MORE THAN 128K                 *H01
      27                   874.030           LI,X5    X'1FFFF'                                          *H01
      28                   874.040           SPACE                                                      *H01
      29                  1348.000  +1348,1348                                                          *H01
      30                  1348.010           P        34,,1,1,,ABSVAL(BA(SYNTAX%EXPL))                  *H01
      31                  1393.000  +1393,1393                                                          *H01
      32                  1393.010   'BY HITTING THE ''BREAK'' KEY OR THE ''ESC'' KEY.'                 *H01
      33                  1393.020           TEXTCS   ' '                                               *H01
      34                  1405.000  +1405                                                               *H01
      35                  1405.010           TEXTCS   ' '                                               *H01
      36                  1426.000  +1426,1426                                                          *H01
      37                  1426.010   '(5)   ''BOOT>P1'' ALLOWS TERMINAL USER TO ''BOOTSTRAP'''          *H01
      38                  1438.000  +1438,1442                                                          *H01
      39                  1438.010           TEXTCS   ' '                                               *H01
      40                  1438.020           SPACE                                                      *H01
      41                  9999.999  +END
1 C00   21:31 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   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    3
A       1                                     PCC                                                        *G00
        2         TEXT               CATALOG  EQU      C'0015'                                           *G00
        1*        TEXT               VERSION  EQU      C'H01'                                            *H01
        4                            TITLE    EQU      S:PT('T-SERIES REMOTE GUIDE 960-',;               *G00
        5         TEXT                                 CATALOG,'-',VERSION)                              *G00

       33                            *********************************************************:****
       34                            *
       35                            *                 STANDARD GUIDE PROGRAMS
       36                            *
       37                            *        THIS PROGRAM LOADS THE REMOTE GUIDE PACKAGE TO X'C00'
       38                            *   LOCATIONS BELOW THE LOADER USING THE LOADER AS A SUBROUTINE
       39                            *
       40                            *        ORG      X'1000'
       41                            *        SYSTEM   SIG7FDP
       42                            *        LW,0     1                 FIND LOADER ADDRESS
       43                            *        AI,0     -X'C00'
       44                            *        LI,11    0
       45                            *        B        8,1
       46                            *
       47                            *        END      %-4
       48                            *
       49                            *
       50                            *
       51                            **************************************************************
       52                            *
       53                            *                 COMET (SIGMA 8/9 MEMORY)
       54                            *
       55                            *        THIS PROGRAM LOADS THE REMOTE GUIDE PACKAGE INTO A RESERVED
       56                            *   AREA WITHIN THE DIAGNOSTIC PROGRAM (X'3500' LOCATIONS ABOVE
       57                            *   RELOCATION BIAS)
       58                            *
       59                            *
       60                            *        ORG      X'1000'
       61                            *        SYSTEM   SIG7FDP
       62                            *        LW,0     X'200'            FIND RELOCATION BIAS
       63                            *        AI,0     X'3500'
       64                            *        LI,11    0
       65                            *        B        8,1
       66                            *
       67                            *        END      %-4
       68                            *
       69                            *
       70                            *
       71                            **************************************************************
       72                            *
       73                            *
       74                            *
       75                            *        CORE STORAGE
       76                            *        ------------
       77                            *
       78                            *        C00 LOCATIONS (HEX) ARE RESERVED FOR THIS SECTION OF GUIDE
       79                            *        STARTING C00 LOCATIONS BELOW THE DIAGNOSTIC LOADER WHICH
       80                            *        OCCUPIES 300 (HEX) LOCATIONS AT THE TOP OF CORE.
       81                            *
       82                            *        THE PROGRAM WILL BE OVERWRITTEN BY THE DIAGNOSTIC IF LOADED
       83                            *        INTO A MACHINE WITH ONLY 16K OF  MEMORY AND THE REMOTE FEATURES
       84                            *        OF GUIDE WILL THEREFORE NOT BE AVAILABLE.
       85                            *
       86                            *        IF OVERLAID, THE LINKAGES BETWEEN THE MAIN PORTION OF
       87                            *        GUIDE AND THIS PROGRAM WILL AUTOMATICALLY BE BROKEN
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    4
A      89                                     SYSTEM   SIG7FDP
       90                            *
       91                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
       92                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
       93                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
       94                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
       95                            *        IN THE MACHINE WORD.
       96                            *
       97                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
       98                            *
       99                            * LABELOPT  #HTECON   LABELADDR      OPTIONAL COMMENTS
      100                            *
      101                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      102                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      103                            *                  EXECUTION LOCATION COUNTER;
      104                            *
      105                            *                  #HTECON   IS THE PROCEDURE REFERENCE;
      106                            *
      107                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      108                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      109                            *                  'EBCDIC'.
      110                            *
      111         00000000           #HTECON   CNAME
      112                                     PROC
      113                            *
      114                                     ERROR,0,TCOR(S:UFV(AF),S:RAD,S:INT)=0 ;
      115                             '**AF LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      116                            *
      117                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      118                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      119                            *
      120                                     ERROR,0,NUM(AF)~=1 ;
      121                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      122                            *
      123                            *
      124                            LF       BAL,X6     *#HTE%
      125                            *
      126                                     DO       AFA(1)            INDIRECT CALL
      127                            *
      128                                     GEN,1,9,22    1,0,AF(1)
      129                            *
      130                                     ELSE
      131                            *
      132                                     GEN,10,22  0,AF(1)
      133                            *
      134                                     FIN
      135                            *
      136                                     PEND
      137                            *
      138                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      139                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      140                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      141                            *
      142                            *        RETURN IS TO THE PROCEDURE REFERENCE
      143                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      144                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      145                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      146                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      147                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH
      148                            *        ONE WORD ONLY, USE:
      149                            *
      150                            *        LW,REG.  0,X6              LOAD MOST SIGNIFICANT
      151                            *            OR
      152                            *        LW,REG.  1,X6              LOAD LEAST SIG. HALF WORD
      153                            *                                                                   *G00
      154                        *S* PRINT    CNAME    2,*#PRINTER%
      155         00000001           TYPE     CNAME    1,*#TYPER%
      156                                     PROC
      157                            *
      158                                     LOCAL    A
      159                            *
      160                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      161                             '**CF(2) MUST BE POSITIVE INTEGER**'
      162                            *
      163                                     ERROR,0,NUM(CF)>3 ;
      164                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      165                            *
      166                                     ERROR,0,NUM(AF)>NAME(1) ;
      167                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      168                            *
      169                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      170                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      171                            *
      172                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      173                            *
      174                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      175                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      176                            *
      177                                     ERROR,0,A=0  ;
      178                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      179                            *
      180                                     ELSE
      181                            *
      182                            A        SET      0
      183                            *
      184                                     FIN
      185                            *
      186                            *
      187                            *
      188                            *
      189                            LF       BAL,X6    *NAME(2)
      190                            *
      191                            *
      192                            *
      193                            *
      194                            *  CONTROL WORD FORMAT ... (SAME AS TABLE 3 WORD 4)
      195                            *
      196                            *        BITS 0-7   NUMBER OF LINES OF TEXT .. OR ..
      197                            *                 FORMAT CODE  (SET BIT 10)
      198                            *        BITS 8-9   O IF NORMAL TEXT  (TEXTC FORMAT)
      199                            *                   1 IF COMPRESSED TEXT
      200                            *                   2,3  NOT ALLOWED
      201                            *        BIT  10    0 IF BITS 0-7 ARE FORMAT (PRINT CMD WITH AN AF(2))
      202                            *                   1 FOR ANY OTHER COMMAND
      203                            *        BIT  11    0 IF FROM GUIDE OR A DIAGNOSTIC
      204                            *                   1 IF TEXT IS IN REMOTE GUIDE PACKAGE
      205                            *        BITS 12-15  MUST BE ZERO
      206                            *        BITS 16-31  BYTE ADDRESS OF FIRST LINE OF TEXT
      207                            *
      208                            *
      209                            *  CASE 1   PRINT     LABEL,FORMAT     PRINT ONE LINE WITH FORMAT
      210                            *
      211                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      212                                     P        AF(2),,,1,,ABSVAL(BA(AF(1)))
      213                            *
      214                                     ELSE
      215                            *
      216                            *  CASE 2    PRINT,N    LABEL      PRINT N LINES (C0 FORMAT)
      217                            *            TYPE,N     LABEL      TYPE N LINES
      218                            *
      219                                     DO       NUM(CF)=2&CF(2)>0
      220                                     P        CF(2),,1,1,,ABSVAL(BA(AF(1)))
      221                            *
      222                                     ELSE
      223                            *
      224                            *  CASE 3    PRINT,N,1  LABEL     PRINT N LINES OF COMPRESSED TEXT
      225                            *            TYPE,N,1   LABEL     TYPE N LINES OF COMPRESSED TEXT
      226                            *
      227                                     DO       NUM(CF)>2&CF(2)>0
      228                                     P        CF(2),1,1,1,,ABSVAL(BA(AF(1)))
      229                            *
      230                                     ELSE
      231                            *
      232                            *  CASE 4    PRINT,,1   LABEL     PRINT 1 LINE OF COMPRESSED TEXT
      233                            *            TYPE,,1    LABEL     TYPE 1 LINE OF COMPRESSED TEXT
      234                            *
      235                                     DO       NUM(CF)>2&CF(2)=0
      236                                     P        1,1,1,1,,ABSVAL(BA(AF(1)))
      237                            *
      238                                     ELSE
      239                            *
      240                            *   CASE 5   PRINT,   LABEL   OR     PRINT   LABEL
      241                            *            TYPE,    LABEL   OR     TYPE    LABEL
      242                            *
      243                            *        PRINT OR TYPE 1 LINE OF TEXT (NOT COMPRESSED)
      244                            *
      245                                     P        1,,1,1,,ABSVAL(BA(AF(1)))
      246                            *
      247                            *
      248                                     FIN
      249                                     FIN
      250                                     FIN
      251                                     FIN
      252                            *
      253                            *
      254                                     PEND
      255         00000004           P        COM,8,2,1,1,4,16 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6)       *G00
      256                            *
      257         000000C0           C0       EQU      X'C0'
      258         000000C1           C1       EQU      X'C1'
      259         000000C2           C2       EQU      X'C2'
      260         000000C3           C3       EQU      X'C3'
      261         000000C4           C4       EQU      X'C4'
      262         000000C5           C5       EQU      X'C5'
      263         000000C6           C6       EQU      X'C6'
      264         000000C7           C7       EQU      X'C7'
      265         000000C8           C8       EQU      X'C8'
      266         000000C9           C9       EQU      X'C9'
      267         000000CA           CA       EQU      X'CA'
      268         000000CB           CB       EQU      X'CB'
      269         000000CC           CC       EQU      X'CC'
      270         000000CD           CD       EQU      X'CD'
      271         000000CE           CE       EQU      X'CE'
      272         000000CF           CF       EQU      X'CF'
      273         000000F0           F0       EQU      X'F0'
      274         000000F1           F1       EQU      X'F1'
      275                            *                                                                   *G00
      276         00000000           TEXTCS   CNAME
      277                                     PROC
      278                                     DISP     %
      279                                     LIST     0
      280                            LF       TEXTC    AF
      281                                     LIST     1
      282                                     PEND
      283                            *                                                                   *G00
      284         00000000           R0         EQU    0
      285         00000001           R1         EQU    1
      286         00000001           X1         EQU    1
      287         00000002           R2         EQU    2
      288         00000002           X2         EQU    2
      289         00000003           R3         EQU    3
      290         00000003           X3         EQU    3
      291         00000004           R4         EQU    4
      292         00000004           X4         EQU    4
      293         00000005           R5         EQU    5
      294         00000005           X5         EQU    5
      295         00000006           R6         EQU    6
      296         00000006           X6         EQU    6
      297         00000007           R7         EQU    7
      298         00000007           X7         EQU    7
      299         00000008           R8         EQU    8
      300         00000009           R9         EQU    9
      301         0000000A           R10        EQU    10
      302         0000000B           R11        EQU    11
      303         0000000C           R12        EQU    12
      304         0000000D           R13        EQU    13
      305         0000000E           R14        EQU    14
      306         0000000F           R15        EQU    15
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    5
A     308         01 00000           GUIDE3   EQU      %                 GUIDE PRE-INITIALIZER EXTENSION
      309   01 00000    31415926 A   PI       DATA     X'31415926'       FLAG TO SHOW REMOTE IS LOADED
      310   01 00001    35600042              STW,X6   GUIDE%RET
      311   01 00002    35E0020D              STW,R14  STOPMSG1+5
      312   01 00003    35F0020E              STW,R15  STOPMSG1+6        REGISTERS@RUN ADDR. IN EBCDIC
      313   01 00004    35B00317              STW,R11  TABLE3ENDX
      314                            *
      315   01 00005    32D00042              LW,R13   GUIDE%RET         COMPUTE GUIDE RELOCATION BIAS
      316   01 00006    4BD0026D              AND,R13  H1F000
      317                            *
      318   01 00007    22600419              LI,X6    #SENSE%           ADD RELOCATION BIAS TO ALL
      319   01 00008    320C0000 A            LW,R0    0,X6                  ADDRESSES IN THE LINK
      320   01 00009    3000000D A            AW,R0    R13                   TABLE OF GUIDE ADDRESSES
      321   01 0000A    350C0000 A            STW,R0   0,X6
      322   01 0000B    20600001 A            AI,X6    1
      323   01 0000C    21600432              CI,X6    SAVE%REGS%
      324   01 0000D    68200008              BLE      %-5
      325                            *
      326   01 0000E    B2600424              LW,X6    *#HTE%            FIND ALL GUIDE ROUTINE ADDRESSES
      327   01 0000F    35600424              STW,X6   #HTE%                AND SAVE THEM
      328   01 00010    B2600425              LW,X6    *#TYPER%
      329   01 00011    35600425              STW,X6   #TYPER%
      330   01 00012    B2600432              LW,X6    *SAVE%REGS%
      331   01 00013    35600432              STW,X6   SAVE%REGS%
      332   01 00014    B2600426              LW,X6    *#FIDLE%
      333   01 00015    35600426              STW,X6   #FIDLE%
      334   01 00016    B2600428              LW,X6    *#RUNADDR%
      335   01 00017    35600428              STW,X6   #RUNADDR%
      336   01 00018    B2600431              LW,X6    *REGISTERS@RUN%
      337   01 00019    35600431              STW,X6   REGISTERS@RUN%
      338   01 0001A    B2600427              LW,X6    *#ERRTEXT%
      339   01 0001B    35600427              STW,X6   #ERRTEXT%
      340   01 0001C    B2600429              LW,X6    *#DIAG@
      341   01 0001D    35600429              STW,X6   #DIAG@
      342   01 0001E    B260042A              LW,X6    *#SAVE%INT@
      343   01 0001F    3560042A              STW,X6   #SAVE%INT@
      344   01 00020    B260042B              LW,X6    *#RES%INT@
      345   01 00021    3560042B              STW,X6   #RES%INT@
      346                            *
      347   01 00022    22200000              LI,R2    GUIDE3
      348   01 00023    EA600424              #HTECON  R2
            01 00024    00000002 A
        1*  01 00025    322C0000 A            LW,R2    0,X6                                              *H01
        2*  01 00026    323C0001 A            LW,R3    1,X6                                              *H01
        3*  01 00027    25200110 A            SLD,R2   16                                                *H01
        4*  01 00028    20304040 A            AI,R3    X'4040'                                           *H01
        5*  01 00029    35300053              STW,R3   REM%MSG1+4                                        *H01
        6*  01 0002A    35200052              STW,R2   REM%MSG1+3                                        *H01

      354   01 0002B    B240042D              LW,4     *COCLINE%         GET LINE INDEX                  *G02
      355   01 0002C    F2D0042F              LB,13    *COCSTATE%         GET COC STATE                  *G02
      356   01 0002D    21D00080 A            CI,13    X'80'               CHECK FOR CONTROLLER          *G02
      357   01 0002E    68400032              BAZ      GUIDE3A              SKIP IF OBSERVER             *G02

      359   01 0002F    75D80285              STB,13   COCL,4            ELSE UPDATE LINE STATE          *G02
      360   01 00030    22D00001 A            LI,13    1                  AND COUNT OF LINES             *G02
      361   01 00031    F5D0042E              STB,13   *COCNR%             CURRENTLY LOGGED ON           *G02

      363         01 00032           GUIDE3A  EQU      %                                                 *G02
      364   01 00032    B2400423              LW,4     *#DIOADDR         GET DIO ADDRESS                 *G02
      365   01 00033    6A6000F1              BAL,6    SETDIO             AND UPDATE DIO COMMANDS        *G02

      367                            *
      368                            *   THE FOLLOWING REGISTERS TRANSFER REMOTE INFO. TO GUIDE
      369                            *
      370   01 00034    22200122              LI,R2    COCXMIT           COC XMIT ROUTINE ADDR.
      371   01 00035    22300052              LI,R3    LOGONMSG-4        LOG-ON MSG. ADDR.
      372   01 00036    22400295              LI,R4    RECON             COC RECVR. ON CMD.
      373   01 00037    22500298              LI,R5    SENSET            COC SENSE CMD.
      374   01 00038    22700066              LI,R7    SIOCOC            START COC ADDR.
      375   01 00039    2280005B              LI,R8    TIOCOC            TEST COC ADDR.
      376   01 0003A    22900228              LI,R9    ABORT             ABORT ROUTINE ADDR.
      377   01 0003B    22A000FC              LI,R10   ECHO              ECHO ROUTINE ADDR.
      378   01 0003C    22B002FB              LI,R11   TABLE3X           REMOTE TABLE 3 ADDR.
      379   01 0003D    30B00270              AW,R11   HF0000000                *
      380   01 0003E    22C00285              LI,R12   COCL              LINE STATE TABLE ADDR.
      381   01 0003F    32E00043              LW,R14   REM%MSG%          REMOTE PROGRAM MSG. POINTER
      382   01 00040    22F000DD              LI,R15   REMOFF            REMOTE USERS LOGOFF ROUTINE     *G02
      383   01 00041    E8000042              B        *GUIDE%RET
      384                            *
      385                            *
      386   01 00042    00000000 A   GUIDE%RET   DATA  0
      387                            *
      388   01 00043    03300110 A   REM%MSG% P        3,,1,1,,ABSVAL(BA(REM%MSG))                       *G02
      389                            *
      390         01 00044           REM%MSG  EQU      %                                                 *G02
      391         01 00044                    TEXTCS   S:PT('USING ',TITLE)                              *G00
        1*        01 0004F           REM%MSG1 EQU      %                                                 *H01
        2*        01 0004F                    TEXTCS   'LOCATED AT 012345  '                             *H01
      394         01 00054                    TEXTCS   '  '

      399   01 00055    00000000 A   DIODEV   DATA     0                 ADDRESS OF DIO
      400                            *
      401                            *                                     REMOTE CONTROLLER
      402         00000055           CLOCK    EQU      X'55'             REAL TIME CLOCK 4
      403                            *
      404                            *
      405   01 00056    6F6F6F6F A   LOGONMSG TEXT     '????'            QUESTION MARK MSG
      406   01 00057    1B7A1515 A            DATA     X'1B7A1515'       ESCAPE COLON CR CR
      407   01 00058    D9C5D460 A            TEXT     'REM-',VERSION,':'                                *G02
            01 00059    C8F0F17A A
      408                            *
      409   01 0005A    C4C9C1C7 A   PASSWORD DATA     'DIAG'
      410                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    6
A     412                            *
      413                            *
      414                            *        ***TIOCOC***
      415                            *        TESTS THE COC FOR INPUT AND ACCEPTS INPUT OF ONE
      416                            *        CHARACTER. THIS ENTRY REQUIRES A LOGGOD-ON REMOTE USER
      417                            *        TIOCOC0 ENTRY PERFORMS THE SAME FUNCTION AS TIOCOC AND
      418                            *        ALSO ALLOWS REMOTE USERS TO LOG-ON.
      419                            *        THE SIOCOC ENTRY STARTS INPUT ON THE COC.
      420                            *
      421                            *
      422                            *        SPECIAL FEATURES:
      423                            *        1. THE COC IS STARTED FOR INPUT UNDER THE FOLLOWING
      424                            *           CONDITIONS:
      425                            *           COC READY AND ALL CHARACTERS FROM PREVIOUS INPUT
      426                            *           ARE PROCESSED.
      427                            *           ROUTINE ENTERED AT SIOCOC.
      428                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF
      429                            *           THE INPUT IS FROM THE CONTROL CONSOLE
      430                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE
      431                            *           MODE.
      432                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE
      433                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO
      434                            *           PROCESS THE NEXT CHARACTER BY AUTOMATICALLY
      435                            *           RESTARTING AT TIOCOC0.
      436                            *        4. WHILE USERS ARE ALLOWED TO LOG-ON, THE FOLLOWING
      437                            *           ACTION TAKES PLACE:
      438                            *           ANY INPUT WHILE TRANSMITTING A LOG-ON MESSAGE IS
      439                            *           IGNORED.
      440                            *           AFTER THE LOG-ON MESSAGE HAS BEEN TRANSMITTED, THE
      441                            *           INPUT IS COMPARED AGAINST THE CURRENT 4 BYTE
      442                            *           PASSWORD. NON-COMPARISON CAUSES THE LOG-ON MESSAGE
      443                            *           TO BE REPEATED PRECEDED BY 4 QUESTION MARKS.
      444                            *           SUCCESSFUL ENTRY OF THE PASSWORD ALLOWS THE
      445                            *           REMOTE USER TO BE LOGGED-ON AS OBSERVER.
      446                            *        5. NO ADDRESS RECOGNITION OF THE COC ADDRESS CAUSES
      447                            *           CONTROL TO BE TRANSFERRED TO THE LOCAL ASK/KSR.
      448                            *
      449                            *        CALLING SEQUENCE: BAL,X6  TIOCOC
      450                            *                          -        RETURN - NO CHARACTER AVAILABLE
      451                            *                          -        RETURN - R3 BITS 24-31=EBCDIC CHAR.
      452                            *
      453                            *                          BAL,X6  TIOCOC0
      454                            *                          -        RETURNS SEE TIOCOC
      455                            *
      456                            *                          BAL,X6  SIOCOC - START COC
      457                            *                          -        RETURN
      458                            *
      459                            *        REGISTERS USED: R0,R1,R2,R3,R12,R13,R14,R15
      460                            *
      461                            *        SUBROUTINES USED: SWAP
      462                            *
      463                            *
      464   01 0005B    F2E0042F     TIOCOC   LB,14    *COCSTATE%
      465   01 0005C    E8300006 A            BCR,3    *X6               NO COC
      466   01 0005D    B2D0041D     TIOCOC0  LW,13    *#COCADDR
      467   01 0005E    CDD0000D A            TIO,13   *13
      468   01 0005F    7400000C A            STCF     12                SAVE CC'S
      469   01 00060    698000B4              BCS,8    COCOFF
      470   01 00061    4BD0026C              AND,13   HFFFF             KEEP BYTE COUNT
      471   01 00062    71D0027C              CB,13    COCBC             COCBC = BYTE COUNT
      472   01 00063    6910006C              BCS,1    TIOCOC3           NO
      473   01 00064    7030000C A   TIOCOC1  LCF      12                IS COC BUSY
      474   01 00065    E9400006 A            BCS,4    *X6               YES
      475         01 00066           SIOCOC   EQU      %
      476   01 00066    22000020 A   TIOCOC2  LI,0     32
      477   01 00067    7500027C              STB,0    COCBC             INITIALIZE COCBC
      478   01 00068    2200013D              LI,0     DA(COC)
      479   01 00069    B2D0041D              LW,13    *#COCADDR
      480   01 0006A    CC00000D A            SIO,0    *13               START COC INPUT
      481   01 0006B    E8000006 A            B        *X6
      482                            *
      483   01 0006C    7220027C     TIOCOC3 LB,2      COCBC             FIND BYTE COUNT
      484   01 0006D    48200274              EOR,2    MINUS1
      485   01 0006E    20200001 A            AI,2     1
      486   01 0006F    72340285              LB,3     COCBYT+8,2        GET INPUT CHAR
      487   01 00070    4B30026A              AND,3    H7F
      488   01 00071    20200001 A            AI,2     1                 INC COCBC
      489   01 00072    72140285              LB,1     COCBYT+8,2        GET LINE NR
      490   01 00073    4B100268              AND,1    H3F
      491   01 00074    723602DA              LB,3     EBCDIC,3          CONVERT ASCII TO EBCDIC
      492   01 00075    72220285              LB,2     COCL,1            GET COC LINE STATE
      493   01 00076    72F0027C              LB,R15   COCBC             DECREMENT BYTE COUNT
      494   01 00077    20FFFFFE A            AI,R15   -2
      495   01 00078    75F0027C              STB,R15  COCBC
      496   01 00079    35600120              STW,X6   COCINPUT
      497   01 0007A    21200080 A            CI,2     X'80'             FROM CONTROL CONSOLE
      498   01 0007B    68400080              BCR,4    TIOCOC5           NO
      499   01 0007C    20600001 A   TIOCOC4  AI,X6    1                 SET SKIP ON EXIT
      500   01 0007D    71D0027C              CB,13    COCBC             COCBC = BYTE COUNT
      501   01 0007E    68300064              BCR,3    TIOCOC1           YES-CHECK FOR COC READY
      502   01 0007F    E8000006 A            B        *X6
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    7
A     504   01 00080    21200024 A   TIOCOC5  CI,2     X'24'             COC LINE STATE < 24
      505   01 00081    69100089              BCS,1    TIOCOC6           YES
      506   01 00082    21200040 A            CI,2     X'40'             LOGGED ON
      507   01 00083    6910005D              BCS,1    TIOCOC0           NO
      508   01 00084    21600105              CI,X6    ECHO1+3           FROM ECHO
      509   01 00085    6830005D              BCR,3    TIOCOC0           YES-WAIT FOR CONTROL INPUT
      510   01 00086    B2F00430              LW,R15   *MSGMODE%         MESSAGE MODE SET
      511   01 00087    6930007C              BCS,3    TIOCOC4           YES-SKIP ON EXIT
      512   01 00088    6800005D              B        TIOCOC0           NO
      513   01 00089    21200020 A   TIOCOC6  CI,2     X'20'             WAITING FOR PASSWORD
      514   01 0008A    691000A9              BL       TIOCOC7           NO
      515   01 0008B    356000B7              STW,X6   TIOCOCR           SAVE X6
      516   01 0008C    6A600122              BAL,X6   COCXMIT           ECHO PASSWORD CHAR.
      517   01 0008D    326000B7              LW,X6    TIOCOCR           RESTORE X6
      518   01 0008E    71340052              CB,3     PASSWORD-8,2      COMPARE PASSWORD CHARACTER
      519   01 0008F    693000AF              BNE      TIOCOC9           NOT EQUAL
      520   01 00090    20200001 A            AI,2     1                 INC COC LINE STATE
      521   01 00091    75220285     TIOCOC8  STB,2    COCL,1
      522   01 00092    21200024 A            CI,2     X'24'             ALL CHARACTERS OF PASSWORD
      523   01 00093    6930005D              BCS,3    TIOCOC0           NO
      524   01 00094    B200042C              LW,0     *COCLIM%          LIMIT ON COC LINES
      525   01 00095    F100042E              CB,0     *COCNR%           LIMIT > NR OF LINES LOGGED ON
      526   01 00096    69200099              BCS,2    %+3               YES - ALLOW LOG ON
      527   01 00097    22200000 A            LI,2     0                 RESET LINE STATE
      528   01 00098    680000A7              B        TIOCOC8A
      529   01 00099    4BE00272              AND,14   HFFFFFFBF
      530   01 0009A    48E00269              EOR,14   H40               OBSERVER IND.
      531   01 0009B    F5E0042F              STB,14   *COCSTATE%        SET COCSTATE=OBSERVER ON
      532   01 0009C    351000BE              STW,1    COCLINE            SAVE LAST LINE LOGGED          *G02
      533   01 0009D    22200040 A            LI,2     X'40'             YES-SET OBSERVER STATUS
      534   01 0009E    75220285              STB,2    COCL,1
      535   01 0009F    356000B7              STW,X6   TIOCOCR
      536   01 000A0    EA600424              #HTECON  COCLINE
            01 000A1    000000BE
      537   01 000A2    326C0001 A            LW,X6    1,X6
      538   01 000A3    356000B9              STW,X6   LOGGED+1
      539   01 000A4    EA600425              TYPE,2   LOGGED
            01 000A5    023002E0 A
      540   01 000A6    326000B7              LW,X6    TIOCOCR
      541                            *
      542   01 000A7    75220285     TIOCOC8A STB,2    COCL,1
      543   01 000A8    6800005D              B        TIOCOC0
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    8
A     545   01 000A9    2120000A A   TIOCOC7  CI,2     10
      546   01 000AA    682000AD              BLE      %+3               BR IF NOT XMITTING QUEST. MARK
      547   01 000AB    2120000D A            CI,2     13
      548   01 000AC    68200134              BLE      COCLOFF           BR IF XMITTING QUEST. MARK
      549                            *
      550   01 000AD    21200014 A            CI,2     X'14'             TRANSM.LOG-ON MESSAGE
      551   01 000AE    6940005D              BCS,4    TIOCOC0           YES
      552   01 000AF    22200010 A   TIOCOC9  LI,2     X'10'
      553   01 000B0    4BE00273              AND,14   HFFFFFFFD
      554   01 000B1    48E00267              EOR,14   H2                SET XMIT IND.
      555   01 000B2    F5E0042F              STB,14   *COCSTATE%
      556   01 000B3    68000091              B        TIOCOC8
      557                            *
      558   01 000B4    21E00080 A   COCOFF   CI,14    X'80'             COC CONTROL
      559   01 000B5    E8400006 A            BCR,4    *X6               NO
      560   01 000B6    680000BF              B        SWAP              SWITCH TO TTY CONTROL
      561                            *
      562   01 000B7    00000000 A   TIOCOCR  DATA     0
      563                            *
      564         01 000B8           LOGGED   TEXTCS   '   0000 LOGGED ON'
      565   01 000BD    02404040 A            TEXTC    '  '
      566   01 000BE    00000000 A   COCLINE  DATA     0                 LAST LINE LOGGED                *G02
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE    9
A     568                            *        ***SWAP***
      569                            *        SWITCHES CONTROL BETWEEN CURRENT CONTROLLER AND
      570                            *        CURRENT OBSERVER
      571                            *
      572                            *        REGISTERS USED: R4,R13,X6
      573                            *
      574                            *        SUBROUTINES USED: NONE
      575                            *
      576   01 000BF    B2D0042F     SWAP     LW,13    *COCSTATE%        COC CONTROLLER
      577   01 000C0    681000C3              BGEZ     SWAP1             NO
      578   01 000C1    22D00040 A            LI,13    X'40'             SWITCH CONTROL TO TTY
      579   01 000C2    680000CF              B        SWAP2
      580   01 000C3    31D0026F     SWAP1    CW,13    H41000000         COC LOGGED ON OR LOGGING        *G02
      581   01 000C4    684000D4              BCR,4    SWAP3             NO
      582   01 000C5    B240041E              LW,4     *#PARAM%H1%       GET IMMEDIATE PARAMETER         *G02
      583   01 000C6    681000C8              BGEZ     %+2                SKIP IF VALID                  *G02
      584   01 000C7    324000BE              LW,4     COCLINE             ELSE USE LAST LINE LOGGED     *G02

      586   01 000C8    2140003F A            CI,4     X'3F'             CHECK AGAINST INVALID LINES     *G02
      587   01 000C9    692000D7              BG       NO%OBS             AND ISSUE ERROR MESSAGE        *G02

      589   01 000CA    72D80285              LB,13    COCL,4            CHECK STATE OF LINE             *G02
      590   01 000CB    21D00020 A            CI,13    X'20'              AND ISSUE ERROR MESSAGE        *G02
      591   01 000CC    691000D7              BL       NO%OBS              IF NOT AN OBSERVER            *G02

      593   01 000CD    B540042D              STW,4    *COCLINE%         UPDATE CONTROLLING LINE         *G02

      595   01 000CE    22D00080 A            LI,13    X'80'             SWITCH CONTROL TO COC
      596   01 000CF    F5D0042F     SWAP2    STB,13   *COCSTATE%        SET COC STATE
      597   01 000D0    B240042D              LW,4     *COCLINE%         GET COC LINE NUMBER
      598   01 000D1    75D80285              STB,13   COCL,4            SET COC LINE STATE
      599   01 000D2    02200010 A   SWAP%X   LCI      1                 EXIT TO GUIDE IDLE
      600   01 000D3    E8000426              B        *#FIDLE%
      601                            *
      602   01 000D4    EA600425     SWAP3    TYPE     NO%OBS            'NO OBSERVER' ERROR MSG
            01 000D5    0130035C A
      603   01 000D6    680000D2              B        SWAP%X

      605         01 000D7           NO%OBS   TEXTCS   '*** LINE NOT LOGGED ***'                         *G02

      607                            *        ***REMOFF***
      608                            *        RETURNS CONTROL TO THE LOCAL ASR/KSR
      609                            *
      610                            *
      611                            *        REGISTERS USED: R0,X6
      612                            *
      613                            *        SUBROUTINES USED: COCXMIT3 - TURN OF COC LINE
      614                            *
      615   01 000DD    F300042F     REMOFF   MTB,0    *COCSTATE%        CHECK COC STATE                 *G02
      616   01 000DE    E8300006 A            BEZ      *X6                AND RETURN IF NOT ACTIVE       *G02

      618   01 000DF    351000EF              STW,X1   REMOFFS           SAVE X1                         *G02
      619   01 000E0    356000F0              STW,X6   REMOFFS+1         SAVE LINK REGISTER              *G02
      620   01 000E1    2210003F A            LI,1     X'3F'             COC LINE NUMBER
      621   01 000E2    6A600139              BAL,X6   COCXMIT4          TURN OFF COC LINE
      622   01 000E3    641000E2              BDR,1    %-1
      623   01 000E4    6A600139              BAL,X6   COCXMIT4          TURN OFF COC LINE 0
      624   01 000E5    B510042F              STW,1    *COCSTATE%         RESET COC STATE                *G02
      625   01 000E6    2210007F A            LI,1     X'7F'               RESET COC IOP ADDRESS         *G02
      626   01 000E7    B510041D              STW,1    *#COCADDR            (NON-EXISTANT)               *G02
      627   01 000E8    22100080 A            LI,1     X'80'             RESET CONTROLLING LINE          *G02
      628   01 000E9    B510042D              STW,1    *COCLINE%                                         *G02

      630   01 000EA    321000EF              LW,1     REMOFFS           RESTORE R1                      *G02
      631   01 000EB    E80000F0              B        *REMOFFS+1        RETURN                          *G02

      633   01 000EC    6A6000DD     REMSTOP  BAL,X6   REMOFF            LOGOFF ALL REMOTE USERS         *G02

      635   01 000ED    02200010 A            LCI      1
      636   01 000EE    E8000426              B        *#FIDLE%          EXIT TO GUIDE IDLE MODE

      638   01 000EF                 REMOFFS  RES      2                 SAVE SPACE FOR R6 AND R1        *G02
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   10
A     640                            *        ***SETDIO***
      641                            *        INSERTS THE DIO ADDRESS IN THE EFFECTIVE ADDRESS
      642                            *        OF THE WRITE DIRECT INSTRUCTIONS WHICH ARE USED
      643                            *        TO SEND CONTROL FUNCTIONS TO THE COC
      644                            *
      645                            *        CALLING SEQUENCE:  R4 (BITS 28-31)=DIO ADDRESS
      646                            *                           BAL,X6  SETDIO
      647                            *                           -       RETURN
      648                            *
      649                            *        REGISTERS USED: R4, X5
      650                            *
      651                            *        SUBROUTINES USED: NONE
      652                            *
      653         01 000F1           SETDIO   EQU      %
      654   01 000F1    22500003 A            LI,X5    3
      655   01 000F2    30400004 A            AW,R4    R4                SHIFT LEFT 4 BITS
      656   01 000F3    30400004 A            AW,R4    R4
      657   01 000F4    30400004 A            AW,R4    R4
      658   01 000F5    30400004 A            AW,R4    R4
      659                            *
      660   01 000F6    20400001 A            AI,R4    1
      661   01 000F7    754A0295              STB,R4   RECON,X5
      662   01 000F8    20500004 A            AI,X5    4
      663   01 000F9    21500013 A            CI,X5    19
      664   01 000FA    682000F6              BLE      %-4               LOOP IF NOT IN ALL 5 WORDS
      665   01 000FB    E8000006 A            B        *X6
      666                            *
      667                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   11
A     669                            *
      670                            *        ***ECHO***
      671                            *        TRANSMITS A CHARACTER TO ALL LINES WHICH ARE CURRENTLY
      672                            *        LOGGED ON.
      673                            *
      674                            *
      675                            *        SPECIAL FEATURES:
      676                            *        1. PRIOR TO TRANSMITTING A CHARACTER, INPUT FROM THE
      677                            *           CONTROL CONSOLE IS TESTED.
      678                            *           AN EXCLAMATION MARK (!) OR AN ESCAPE CHARACTER
      679                            *           CAUSES CONTROL TO BE TRANSFERRED TO SETHALT.
      680                            *           A BREAK CHARACTER CAUSES EXIT THRU RETURN ADDRESS
      681                            *        OTHERWISE EXIT THRU RETURN ADDRESS+1 IS TAKEN.
      682                            *
      683                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER
      684                            *                          BAL,X6   ECHO
      685                            *                          -        BREAK CHARACTER RETURN
      686                            *                          -        NORMAL RETURN
      687                            *
      688                            *        REGISTERS USED: R1,R14
      689                            *                        R0,R12,R13 - COCXMIT ROUTINE
      690                            *                        R0,R1,R2,R3,R12,R13 - TIOCOC0 ROUTINE
      691                            *
      692                            *        SUBROUTINES USED:
      693                            *          TIOCOC0 - GET CONTROL CONSOLE INPUT
      694                            *          COCXMIT - TRANSMIT A CHARACTER ON A COC LINE
      695                            *
      696                            *
      697   01 000FC    3560011C     ECHO     STW,X6   ECHOS
      698   01 000FD    F2E0042F              LB,14    *COCSTATE%
      699   01 000FE    21E000C0 A            CI,14    X'C0'             ANYBODY LOGGED ON
      700   01 000FF    68400118              BCR,4    ECHO4             NO
      701   01 00100    3520011E              STW,2    ECHOR             SAVE R2 & R3
      702   01 00101    3530011F              STW,3    ECHOR+1
      703         01 00102           ECHO1    EQU      %
      704   01 00102    32600120              LW,X6    COCINPUT
      705   01 00103    69300106              BCS,3    %+3               BRANCH IF NOT A COC INPUT ECHO
      706   01 00104    6A60005D              BAL,X6   TIOCOC0           LOOK FOR 'ESCAPE' KEYIN
      707   01 00105    6800010E              B        ECHO2
      708                            *
      709   01 00106    22600000 A            LI,X6    0
      710   01 00107    35600120              STW,X6   COCINPUT          RESET FLAG
      711   01 00108    2130001B A            CI,3     ESCAPE            IS IT AN ESCAPE
      712   01 00109    E8300DF1 A            BCR,3    *SETHALT%         YES
      713   01 0010A    21300000 A            CI,3     0                 IS IT A BREAK CHAR
      714   01 0010B    6930010E              BCS,3    ECHO2             NO
      715   01 0010C    22300080 A            LI,3     NEWPAGE
      716   01 0010D    3530011F              STW,3    ECHOR+1
      717   01 0010E    3220011E     ECHO2    LW,2     ECHOR             RETREIVE R2 & R3
      718   01 0010F    3230011F              LW,3     ECHOR+1
      719   01 00110    22100000 A            LI,1     0                 INITIALIZE LINE 0
      720   01 00111    72020285     ECHO3    LB,0     COCL,1
      721   01 00112    210000C0 A            CI,0     X'C0'             LOGGED ON
      722   01 00113    68400115              BCR,4    %+2               NO
      723   01 00114    6A600122              BAL,X6   COCXMIT           YES-XMIT CHAR
      724   01 00115    20100001 A            AI,1     1                 INC LINE NR
      725   01 00116    21100040 A            CI,1     X'40'             DONE
      726   01 00117    69100111              BCS,1    ECHO3             NO
      727   01 00118    21300080 A   ECHO4    CI,3     NEWPAGE           BREAK
      728   01 00119    E830011C              BCR,3    *ECHOS            YES
      729   01 0011A    3310011C              MTW,1    ECHOS             SKIP EXIT
      730   01 0011B    E800011C              B        *ECHOS
      731   01 0011C                 ECHOS    RES      1                 REGISTER
      732                                     BOUND    8
      733   01 0011E                 ECHOR    RES      2                   SAVE AREA
      734                            *
      735   01 00120    00000000 A   COCINPUT DATA     0                 FLAG SET IF ECHOING AN INPUT FROM
      736                            *                                   COC
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   12
A     739                            *
      740                            *
      741                            *        ***COCXMIT***
      742                            *        OUTPUTS A CHARACTER ON A COC LINE
      743                            *
      744                            *        SPECIAL FEATURES:
      745                            *        1. THIS ROUTINE AUTOMATICALLY TRANSMITS A LINE FEED
      746                            *           CHARACTER FOLLOWING A CHARRIAGE RETURN CHARACTER.
      747                            *        2. THE LINE WILL BE TURNED OFF UNDER THE FOLLOWING
      748                            *           CONDITIONS:
      749                            *           DATA SET NOT REPORTING CLEAR TO SEND
      750                            *           TRANSMISSION IN PROGRESS FOR MORE THAN .3 SECONDS
      751                            *
      752                            *        CALLING SEQUENCE: R1 = COC LINE NUMBER
      753                            *                          R3 = EBCDIC CHARACTER
      754                            *                          BAL,X6  COCXMIT
      755                            *                          -       RETURN
      756                            *
      757                            *        REGISTERS USED: R0,R12,R13
      758                            *
      759                            *        SUBROUTINES USED: NONE
      760                            *
      761                            *
      762   01 00121    00000000 A            DATA     0
      763         01 00122           COCXMIT  EQU      %
      764   01 00122    35600121              STW,X6   %-1
      765   01 00123    72C6029A              LB,12    ASCII,3           CONVERT TO ASCII FROM EBCDIC
      766   01 00124    B2D00055 A   COCXMIT1 LW,13    *CLOCK
      767   01 00125    20D00096 A            AI,13    150               .3 SECONDS TIMEOUT VALUE
      768   01 00126    B1D00055 A   COCXMIT2 CW,13    *CLOCK            TRANSMISSION FOR .3 SECONDS
      769   01 00127    69100134              BCS,1    COCXMIT3          YES
      770   01 00128    ED100298              WD,1     *SENSET           SENSE XMITTER L STATUS
      771   01 00129    68200134              BCR,2    COCXMIT3          DATA SET NOT CLEAR TO SEND
      772   01 0012A    68100126              BCR,1    COCXMIT2          TRANSMISSION IN PROGRESS
      773   01 0012B    22600008 A            LI,X6    8
      774   01 0012C    30C0000C A            AW,12    12                SHIFT LEFT 8 BITS
      775   01 0012D    6460012C              BDR,X6   %-1
      776   01 0012E    30C00001 A            AW,12    1                 ADD IN LINE NR
      777   01 0012F    EDC00299              WD,12    *XMIT             XMIT ON L
      778   01 00130    21C0F200 A            CI,12    X'F200'           CAR. RET. (0D)
      779   01 00131    E9400121              BCS,4    *COCXMIT-1        NO
      780   01 00132    22C0000A A            LI,12    X'A'              SET LINE FEED
      781   01 00133    68000124              B        COCXMIT1
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   13
A     783         01 00134           COCLOFF  EQU      %
      784   01 00134    22000003 A   COCXMIT3 LI,0     3                 RESET LINE STATE                *G02
      785   01 00135    75020285              STB,0    COCL,1            SET IT
      786   01 00136    ED100296              WD,1     *RECOFF           TURN RECEIVER L OFF
      787   01 00137    ED100297              WD,1     *RECDSOFF         TURN RECEIVER L DATA SET OFF
      788   01 00138    E8000121              B        *COCXMIT-1
      789                            *
      790   01 00139    35600121     COCXMIT4 STW,X6   COCXMIT-1
      791   01 0013A    68000134              B        COCXMIT3
      792                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   14
A     794                            *
      795                            *
      796                            *   L O G  DIRECTIVE ...  ALLOWS REMOTE OBSERVER TO LOG ON
      797                            *
      798         01 0013B           LOG      EQU      %
      799   01 0013B    F020042F              LC       *COCSTATE%
      800   01 0013C    69C00147              BCS,12   LOGERR1           BRANCH IF REMOTE TERMINAL ON
      801   01 0013D    B2800421              LW,R8    *#PARAM1LS%       FIND FIRST PARAMETER
      802   01 0013E    3580005A              STW,R8   PASSWORD
      803                            *
      804   01 0013F    B280041F              LW,R8    *#PARAM%H2%       FIND 2ND PARAM. (IN HEX)
      805   01 00140    CF000008 A            HIO,0    *R8
      806   01 00141    6980014A              BCS,8    LOGERR2           BRANCH IF NO RECOGNITION
      807   01 00142    B580041D              STW,R8   *#COCADDR
      808                            *
      809   01 00143    B2400420              LW,R4    *#PARAM%H3%       FIND 3RD PARAM. (IN HEX)
      810   01 00144    6A6000F1              BAL,X6   SETDIO
      811   01 00145    02200010 A   LOG%X    LCI      1
      812   01 00146    E8000426              B        *#FIDLE%          EXIT TO GUIDE IDLE MODE
      813                            *
      814   01 00147    EA600425     LOGERR1  TYPE     LOGMSG1
            01 00148    01300534 A
      815   01 00149    68000145              B        LOG%X
      816                            *
      817   01 0014A    EA600425     LOGERR2  TYPE     LOGMSG2
            01 0014B    01300554 A
      818   01 0014C    68000145              B        LOG%X
      819                            *
      820         01 0014D           LOGMSG1  TEXTCS   '** REMOTE ALREADY LOGGED ON **'
      821                            *
      822         01 00155           LOGMSG2  TEXTCS   '** COC DEVICE NOT RECOGNIZED **'
      823                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   15
A     825                            *
      826                            *
      827                            *   B O O T  DIRECTIVE ... ALLOWS LOADING OF NEW PROGRAM WITHOUT USE
      828                            *        OF THE PCP.    CONTROLLER TERMINAL RETAINS CONTROL.
      829                            *        ** INPUT DEVICE MUST BE A 9 TRACK MAG TAPE **
      830                            *
      831                            *
      832         01 0015D           BOOT     EQU      %
      833   01 0015D    6C000000 A            RD,0     0                 CHECK HARDWARE SENSE SW.
      834   01 0015E    69F00197              BCS,15   BOOTERR1

        2*  01 0015F    22700010 A            LI,R7    16                DISARM ALL INTERRUPT            *H01
        3*  01 00160    2280FFFF A            LI,R8    X'FFFF'            GROUPS IF POSSIBLE             *H01

        5*  01 00161    6D8E10FF A            WD,R8    X'1100'-1,R7                                      *H01
        6*  01 00162    64700161              BDR,R7   %-1                                               *H01

      837   01 00163    B2E0042D              LW,R14   *COCLINE%
      838   01 00164    32C00055              LW,R12   DIODEV
      839   01 00165    B2F00419              LW,R15   *#SENSE%
      840   01 00166    B2D0042F              LW,R13   *COCSTATE%
      841   01 00167    B2A0041C              LW,R10   *#TOADDR%
      842   01 00168    B2B0041D              LW,R11   *#COCADDR
      843                            *
      844   01 00169    B280041E              LW,R8    *#PARAM%H1%
      845   01 0016A    21800000 A            CI,R8    0
      846   01 0016B    6930016D              BNE      %+2               BRANCH IF A PARAMETER ENTERED
      847   01 0016C    B280041B              LW,R8    *#LOADADDR%       USE LOAD ADDRESS AS DEFAULT

      849   01 0016D    22000FFF A            LI,0     X'FFF'            DO GENERAL I/O RESET            *G02
      850   01 0016E    CF000000 A            HIO,0    *0                                                *G02
      851   01 0016F    6400016E              BDR,0    %-1                                               *G02

      853   01 00170    CD000008 A            TIO,R0   *R8               TEST BOOT DEVICE                *G02
      854   01 00171    69C0019A              BCS,8+4  BOOTERR2           AND SKIP ON ERROR              *G02

      856   01 00172    6D000045 A            WD,0     X'45'             RESET ANY MARGINS               *G02

      858   01 00173    2260000C A            LI,X6    12                                                *G00
      859   01 00174    320C018A              LW,R0    HRDWBT-1,X6
      860   01 00175    350C0021 A            STW,R0   X'21',X6          MOVE HARDWARE BOOT
      861   01 00176    64600174              BDR,X6   %-2

      863   01 00177    21800080 A            CI,R8    X'80'             MODIFY BOOTSTRAP IF             *G00
      864   01 00178    6940017A              BANZ     %+2                DEVICE IS NOT A MUC            *G00
      865   01 00179    33100026 A            MTW,1    X'26'                                             *G00

      867   01 0017A    35800025 A            STW,R8   X'25'             SAVE DEVICE ADDRESS FROM KEYIN

      869   01 0017B    22600004 A            LI,X6    4
      870   01 0017C    328C0186              LW,R8    CLR-1,X6          MOVE 'CLEAR MEM. ' PROGRAM TO REGS.
      871   01 0017D    358C0000 A            STW,R8   R0,X6
      872   01 0017E    6460017C              BDR,X6   %-2
      873   01 0017F    22100000 A            LI,R1    0
      874   01 00180    B2500422              LW,X5    *#MAXMEM%         FIND END OF CORE
        1*  01 00181    2151FFFF A            CI,X5    X'1FFFF'          DO NOT CLEAR                    *H01
        2*  01 00182    68200184              BLE      %+2                MORE THAN 128K                 *H01
        3*  01 00183    2251FFFF A            LI,X5    X'1FFFF'                                          *H01

      875   01 00184    205FFFD3 A            AI,X5    -X'2D'                                            *G00
      876   01 00185    32900000              LW,R9    PI
      877   01 00186    68000002 A            B        R2                MOVE TO GENERAL REGS.
      878                            *
      879                            *                       RELOCATION
      880   01 00187    00000000 A   CLR      DATA     0          1      SUBROUTINE TO CLEAR MEMORY
      881   01 00188    351A002D A            STW,R1   X'2D',X5           (STARTING FROM X'2E')          *G00
      882   01 00189    64500002 A            BDR,X5   R2         3
      883   01 0018A    68000026 A            B        X'26'      4      BOOT IN NEW PROGRAM
      884                            *
      885                            *
      886   01 0018B    22100064 A   HRDWBT   LI,R1    100               DELAY TO AVOID RATE ERRORS      *G00
      887   01 0018C    64100023 A            BDR,X1   X'23'      23
      888   01 0018D    68000028 A            BCR,0    X'28'      24
      889   01 0018E    00000000 A            DATA     0          25     DEVICE ADDRESS
      890   01 0018F    22000015 A            LI,R0    X'15'      26
      891   01 00190    CC000025 A            SIO,0    *X'25'     27
      892   01 00191    CD000025 A            TIO,0    *X'25'     28
      893   01 00192    69C00022 A            BCS,12   X'22'      29

      895   01 00193    33000094 A   IOCD     GEN,8,24 X'33',X'25'**2    SAME BOOTSTRAP AS THE T-85      *G00
      896   01 00194    2E000002 A            GEN,8,24 X'2E',2            (WITH SAME MISTAKE)            *G00
      897   01 00195    020000A8 A            GEN,8,24 X'02',X'2A'**2                                    *G00
      898   01 00196    0E000058 A            GEN,8,24 X'0E',88                                          *G00

      900   01 00197    EA600425     BOOTERR1 TYPE SENSEMSG
            01 00198    01300680 A
      901   01 00199    6800019E              B        BOOTX
      902                            *
      903   01 0019A    22601000 A   BOOTERR2 LI,X6    X'1000'
      904   01 0019B    6D601200 A            WD,X6    X'1200'           REARM COUNTER 4
      905   01 0019C    EA600425              TYPE BOOTMSG
            01 0019D    013006A8 A
      906                            *
      907         01 0019E           BOOTX    EQU      %
      908   01 0019E    02200010 A            LCI      1
      909   01 0019F    E8000426              B        *#FIDLE%
      910                            *
      911         01 001A0           SENSEMSG TEXTCS   '** HARDWARE SS''S MUST BE OFF TO BOOT **'
      912         01 001AA           BOOTMSG  TEXTCS   '** BOOT ADDRESS NOT ACCEPTED **'                 *G02
      913                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   16
A     915                            *
      916                            *
      917                            *    S T O P   DIRECTIVE  ...  ALLOWS FOR INSERTION (OR REMOVAL) OF
      918                            *        A SOFTWARE PROGRAM INSTRUCTION STOP
      919                            *
      920                            *
      921                            *   THIS DIRECTIVE SIMULATES A PCP ADDRESS STOP BY INSERTING
      922                            *        AN XPSD TO GUIDE IN PLACE OF THE SPECIFIED INSTRUCTION
      923                            *        USING THE CONTROL '#' WILL CONTINUE AND EXECUTE THE
      924                            *        REPLACED INSTRUCTION.
      925                            *        KEYIN OF THE DIRECTIVE WITHOUT A SPECIFIED ADDRESS
      926                            *        WILL REMOVE THE STOP.
      927                            *        A TYPEOUT OF THE SAVED PSD AND THE ADDRESS OF THE
      928                            *        SAVED REGISTER STACK WILL BE SUPPLIED
      929                            *
      930                            *
      931         01 001B2           STOP     EQU      %
      932   01 001B2    B290041E              LW,R9    *#PARAM%H1%       FIND STOP ADDRESS
      933   01 001B3    B1900422              CW,R9    *#MAXMEM%
      934   01 001B4    6920021A              BG       CORE%ERR          BRANCH IF OUT OF CORE
      935   01 001B5    328001D8              LW,R8    STOPFLG
      936   01 001B6    683001C7              BEZ      STOP2             BRANCH IF NO STOP SET
      937                            *
      938   01 001B7    32800206              LW,R8    STOPINST          FIND SAVED INSTRUCTION
      939   01 001B8    B58001D8              STW,R8   *STOPFLG            AND RESTORE IT
      940   01 001B9    328001DA              LW,R8    STOPQW
      941   01 001BA    683001C2              BEZ      %+8               BRANCH IF NO STOP EXECUTED
      942   01 001BB    208FFFFF A            AI,R8    -1
      943   01 001BC    32600428              LW,X6    #RUNADDR%         FIND RUN PSD ADDRESS
      944   01 001BD    358C0000 A            STW,R8   0,X6                AND CREATE NEW PSD
      945   01 001BE    328001DB              LW,R8    STOPQW+1
      946   01 001BF    358C0001 A            STW,R8   1,X6
      947   01 001C0    22800000 A            LI,R8    0
      948   01 001C1    358001DA              STW,R8   STOPQW            RESET EXECUTED FLAG
      949                            *
      950   01 001C2    21900000 A            CI,R9    0
      951   01 001C3    693001CC              BNE      STOP3             BRANCH IF NEW STOP REQUESTED
      952                            *
      953                            *  ENTER HERE IF PARAMETER WAS ZERO
      954                            *
      955   01 001C4    32800000 A   STOP1    LW,R8    0
      956   01 001C5    358001D8              STW,R8   STOPFLG           RESET THE FLAG
      957   01 001C6    680001D1              B        STOP%X            EXIT
      958                            *
      959                            *  ENTER HERE IF NO CURRENT STOP IS SET
      960                            *
      961   01 001C7    21900000 A   STOP2    CI,R9    0
      962   01 001C8    693001CC              BNE      STOP3             BRANCH TO SET NEW STOP
      963                            *
      964   01 001C9    EA600425              TYPE     NOSTOP            TYPE 'NO STOP TO CLEAR'
            01 001CA    0130074C A
      965   01 001CB    680001D1              B        STOP%X
      966                            *
      967                            *  ENTER HERE TO ESTABLISH A NEW STOP ADDRESS
      968                            *
      969         01 001CC           STOP3    EQU      %
      970   01 001CC    359001D8              STW,R9   STOPFLG           SET FLAG = STOP ADDRESS
      971   01 001CD    B2800009 A            LW,R8    *R9               FIND STOP INSTRUCTION
      972   01 001CE    35800206              STW,R8   STOPINST
      973   01 001CF    328001D9              LW,R8    STOPXPSD          AND REPLACE IT WITH
      974   01 001D0    B5800009 A            STW,R8   *R9                  AN XPSD TO 'STOPQW'
      975                            *
      976   01 001D1    02200010 A   STOP%X   LCI      1
      977   01 001D2    E8000426              B        *#FIDLE%          RETURN TO GUIDE IDLE MODE
      978                            *
      979         01 001D3           NOSTOP   TEXTCS   'NO STOP TO CLEAR'
      980                            *
      981   01 001D8    00000000 A   STOPFLG  DATA     0                 0 IF NO STOP SET, CONTAIN ADDR.
      982                            *                                   OF STOP IF SET
      983   01 001D9    0F0001DA     STOPXPSD XPSD,0   STOPQW
      984                            *
      985                            *
      986                            *  ENTER HERE IF STOP ADDRESS XPSD IS EXECUTED
      987                            *
      988                                     BOUND    8
      989   01 001DA    00000000 A   STOPQW   DATA     0,0,STOP4,X'7000000'
            01 001DB    00000000 A
            01 001DC    000001DF
            01 001DD    07000000 A
      990   01 001DE    00000000 A            DATA     0                 SAVE REG. X6
      991   01 001DF    356001DE     STOP4    STW,X6   %-1
      992   01 001E0    32600431              LW,X6    REGISTERS@RUN%
      993   01 001E1    356001E3              STW,X6   %+2
      994   01 001E2    EA600432              BAL,X6   *SAVE%REGS%
      995   01 001E3    00000000 A            DATA     0
      996   01 001E4    70200429              LC       #DIAG@
      997   01 001E5    684001E7              BCR,4    %+2               BRANCH IF NOT INTERRUPT DIAG.
      998   01 001E6    EA60042A              BAL,X6   *#SAVE%INT@       SAVE INTERRUPT STATES
      999                            *
     1000   01 001E7    22600006 A            LI,X6    6
     1001   01 001E8    328001DE              LW,R8    STOP4-1
     1002   01 001E9    B58C0431              STW,R8   *REGISTERS@RUN%,X6
     1003   01 001EA    32600428              LW,X6    #RUNADDR%
     1004   01 001EB    328001DA              LW,R8    STOPQW            FIND STORED PSW1
     1005   01 001EC    4B800271              AND,R8   HFFFE0000            AND
     1006   01 001ED    20800201              AI,R8    STOP%RET          SET UP RETURN TO STOP INSTRUCTION
     1007   01 001EE    358C0000 A            STW,R8   0,X6
     1008   01 001EF    328001DB              LW,R8    STOPQW+1          FIND PSW2
     1009   01 001F0    358C0001 A            STW,R8   1,X6
     1010                            *
     1011   01 001F1    EA600424              #HTECON  STOPQW            CONVERT PSW1 TO HEX
            01 001F2    000001DA
     1012   01 001F3    328C0000 A            LW,R8    0,X6
     1013   01 001F4    329C0001 A            LW,R9    1,X6
     1014   01 001F5    35800211              STW,R8   STOPMSG2+2
     1015   01 001F6    35900212              STW,R9   STOPMSG2+3
     1016   01 001F7    EA600424              #HTECON  STOPQW+1          CONVERT PSW2 TO HEX
            01 001F8    000001DB
     1017   01 001F9    328C0000 A            LW,R8    0,X6
     1018   01 001FA    329C0001 A            LW,R9    1,X6
     1019   01 001FB    35800215              STW,R8   STOPMSG2+6
     1020   01 001FC    35900216              STW,R9   STOPMSG2+7
     1021   01 001FD    EA600425              TYPE,2   STOPMSG1          DISPLAY SAVED ENVIRONMENT
            01 001FE    02300820 A
     1022   01 001FF    02200010 A            LCI      1
     1023   01 00200    E8000426              B        *#FIDLE%
     1024                            *
     1025                            *
     1026                            *        ENTER HERE IF USER TYPES IN A '#' CHARACTER AFTER A STOP
     1027                            *
     1028         01 00201           STOP%RET EQU      %
     1029   01 00201    70200429              LC       #DIAG@
     1030   01 00202    68400206              BCR,4    %+4               BRANCH IF NOT INTERRUPT DIAG
     1031   01 00203    EA60042B              BAL,X6   *#RES%INT@        RESTORE INTERRUPT STATES
     1032   01 00204    22600006 A            LI,X6    6
     1033   01 00205    B26C0431              LW,X6    *REGISTERS@RUN%,X6   RESTORE REGISTER X6
     1034                            *
     1035   01 00206    2E000206     STOPINST WAIT     %                 WAIT IS REPLACED BY INSTRUCTION
     1036                            *                                    AT 'STOP' ADDRESS
     1037   01 00207    E80001DA              B        *STOPQW           BRANCH TO NEXT INSTR. AFTER STOP
     1038                            *
     1039                            *
     1040                            STOPMSG1 TEXTCS   ;
     1041         01 00208            'REGISTERS SAVED AT 12345678'
     1042                            STOPMSG2 TEXTCS   ;
     1043         01 0020F            'PSW1 = XXXXXXXX PSW2 = XXXXXXXX'
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   17
A    1045                            *
     1046                            *
     1047                            *    B R   DIRECTIVE ... ALLOWS USER TO BRANCH TO ANY ADDRESS
     1048                            *                 WITHIN CORE.  PSD AND REGISTER CONTENTS ARE NOT
     1049                            *                 CONTROLLED.
     1050                            *
     1051         01 00217           BRANCH   EQU      %
     1052   01 00217    B280041E              LW,R8    *#PARAM%H1%       FIND 'BRANCH TO' ADDRESS
     1053   01 00218    B1800422              CW,R8    *#MAXMEM%
     1054   01 00219    E9100008 A            BL       *R8               GO THERE IF WITHIN MEMORY
     1055                            *
     1056   01 0021A    EA600425     CORE%ERR TYPE     OVERCORE
            01 0021B    01300878 A
     1057   01 0021C    02200010 A            LCI      1
     1058   01 0021D    E8000426              B        *#FIDLE%          EXIT TO GUIDE IDLE MODE
     1059                            *
     1060                            *
     1061         01 0021E           OVERCORE TEXTCS   '** ADDRESS EXCEEDS MEMORY SIZE **'
     1062                            *
     1063                            *
     1064                            *
     1065                            *
     1066   01 00227    00000000 A            DATA     0                 ABORT LOOP FLAG - IF NONZERO, ON
     1067                            *                                     ENTRY, PROGRAM IS LOCKED IN LOOP
     1068         01 00228           ABORT    EQU      %
     1069                            *
     1070                            *        ENTER HERE IF AN ERROR (USUALLY PROGRAMMMNG) OCCURS
     1071                            *           THAT PRODUCES AN UNRECOVERABLE CONDITION
     1072                            *
     1073   01 00228    70200227              LC       ABORT-1
     1074   01 00229    6830022B              BEZ      %+2               BRANCH IF FIRST TIME ENTERED
     1075   01 0022A    2E000000 A            WAIT                       REGISTER 6 CONTAINS FAULT ADDR.

     1077   01 0022B    226FFFFF A            LI,X6    -1
     1078   01 0022C    35600227              STW,X6   ABORT-1           SET ABORT LOOP FLAG
     1079   01 0022D    206FFFFF A            AI,X6    -1
     1080   01 0022E    35600245              STW,X6   ABORT%LINK
     1081   01 0022F    EA600432              BAL,X6   *SAVE%REGS%
     1082   01 00230    00000246              DATA     ABORT%SAVE
     1083   01 00231    EA600424              #HTECON   ABORT%LINK
            01 00232    00000245
     1084   01 00233    328C0000 A            LW,R8    0,X6
     1085   01 00234    3580025C              STW,R8   ABORTMSG+5
     1086   01 00235    328C0001 A            LW,R8    1,X6
     1087   01 00236    3580025D              STW,R8   ABORTMSG+6
     1088   01 00237    32800266              LW,R8    ABORTMSG%EXPL%
     1089   01 00238    B5800427              STW,R8   *#ERRTEXT%        SET UP EXPLANATION
     1090   01 00239    EA600425              TYPE     ABORTMSG
            01 0023A    0130095C A
     1091   01 0023B    EA600424              #HTECON  ABORT%SAVE%
            01 0023C    00000256
     1092   01 0023D    328C0000 A            LW,R8    0,X6
     1093   01 0023E    35800278              STW,R8   REGSAVEMSG+3
     1094   01 0023F    328C0001 A            LW,R8    1,X6
     1095   01 00240    35800279              STW,R8   REGSAVEMSG+4
     1096   01 00241    EA600425              TYPE     REGSAVEMSG
            01 00242    013009D4 A
     1097   01 00243    02200010 A            LCI      1
     1098   01 00244    E8000426              B        *#FIDLE%          RETURN TO GUIDE IDLE MODE
     1099                            *
     1100   01 00245    00000000 A   ABORT%LINK  DATA  0
     1101   01 00246                 ABORT%SAVE  RES   16
     1102   01 00256    00000246     ABORT%SAVE% DATA  ABORT%SAVE
     1103         01 00257           ABORTMSG TEXTCS   'UNRECOV. ERROR AT XXXXXXXX'
     1104         01 0025E           ABORTMSG%EXPL TEXTCS 'CHECK LISTING ADDRESS FOR ERROR'
     1105   01 00266    01000978 A   ABORTMSG%EXPL% GEN,8,24  1,ABSVAL(BA(ABORTMSG%EXPL))
     1106                            *
     1107                            *
     1108                            *
     1109   01 00267    00000002 A   H2       DATA     2
     1110   01 00268    0000003F A   H3F      DATA     X'3F'
     1111   01 00269    00000040 A   H40      DATA     X'40'
     1112   01 0026A    0000007F A   H7F      DATA     X'7F'
     1113   01 0026B    000000F0 A   HF0      DATA     X'F0'
     1114   01 0026C    0000FFFF A   HFFFF    DATA     X'FFFF'
     1115   01 0026D    0001F000 A   H1F000   DATA     X'1F000'
     1116   01 0026E    08000000 A   H8000000 DATA     X'8000000'
     1117   01 0026F    41000000 A   H41000000 DATA    X'41000000'                                       *G02
     1118   01 00270    F0000000 A   HF0000000 DATA    X'F0000000'
     1119   01 00271    FFFE0000 A   HFFFE0000  DATA    X'FFFE0000'
     1120   01 00272    FFFFFFBF A   HFFFFFFBF  DATA   X'FFFFFFBF'
     1121   01 00273    FFFFFFFD A   HFFFFFFFD  DATA   X'FFFFFFFD'
     1122   01 00274    FFFFFFFF A   MINUS1     DATA   X'FFFFFFFF'
     1123                            *
     1124         01 00275           REGSAVEMSG TEXTCS  'REG. SAVED XXXXXXXX'

     1126                                     BOUND    8
     1127   01 0027A    020009F4     COC      GEN,8,24  2,BA(COCBYT)
     1128   01 0027B    08000020 A            GEN,8,24  8,32
     1129                            *
     1130   01 0027C    00000000 A   COCBC    PZE
     1131                            *
     1132                            *        IO BUFFERS
     1133                            *
     1134   01 0027D                 COCBYT   RES,1    32
     1135         01 00285           COCL     EQU      %                 TABLE OF COC STATES INDEXED
     1136                            *                                   BY LINE NUMBER
     1137                            *                 =    0; LINE IS HUNG
     1138                            *                 =    3; RECEIVER CLEAR TO SEND NOT PRESENT
     1139                            *                 = 10-13; 4 QUESTION MARKS - LOG-ON MESSAGE
     1140                            *                 = 14-1F; LOG-ON MESSAGE
     1141                            *                 = 20-23; WAITING FOR PASSWORD CHARACTERS
     1142                            *                 =    40; LOGGED ON AS OBSERVER
     1143                            *                 =    80; LOGGED ON AS CONTROLLER
     1144                            *
     1145                            *
     1146                            *
     1147         00000010                   DO       16
     1148   01 00285    03030303 A            DATA     X'03030303'       LINE STATE RESET                *G02
     1149                                    FIN
            01 00286    03030303 A
            01 00287    03030303 A
            01 00288    03030303 A
            01 00289    03030303 A
            01 0028A    03030303 A
            01 0028B    03030303 A
            01 0028C    03030303 A
            01 0028D    03030303 A
            01 0028E    03030303 A
            01 0028F    03030303 A
            01 00290    03030303 A
            01 00291    03030303 A
            01 00292    03030303 A
            01 00293    03030303 A
            01 00294    03030303 A
     1150                            *
     1151                            *        COC CONTROL FUNCTIONS
     1152                            *
     1153   01 00295    00003001 A   RECON    DATA     X'3001'           TURN RECEIVER LINE ON
     1154   01 00296    00003002 A   RECOFF   DATA     X'3002'           TURN RECEIVER LINE OFF
     1155   01 00297    00003003 A   RECDSOFF DATA     X'3003'           TURN RECEIVER DATA SET OFF
     1156   01 00298    00003004 A   SENSET   DATA     X'3004'           SENSE TRANSMITTER LINE STATUS
     1157   01 00299    00003005 A   XMIT     DATA     X'3005'           TRANSMIT ON LINE
     1158                            *
     1159                            *
     1160                            *
     1161                            *        CONTROL CHARACTERS
     1162                            *
     1163         00000040           SPACE    EQU      X'40'             SPACE FOR ALLIGNMENT
     1164         00000080           NEWPAGE  EQU      X'80'
     1165         0000001B           ESCAPE   EQU      X'1B'             REMOTE TERMINAL HALT PROMPT
     1166                            *
     1167                            *
     1168                            *
     1169                            *        CONVERSION TABLE EBCDIC TO ASCII
     1170                            *
     1171   01 0029A    00010203 A   ASCII    DATA     X'00010203'
     1172   01 0029B    04090607 A            DATA     X'04090607'
     1173   01 0029C    0705150B A            DATA     X'0705150B'
     1174   01 0029D    0C0D0E0F A            DATA     X'0C0D0E0F'
     1175   01 0029E    10111213 A            DATA     X'10111213'
     1176   01 0029F    140D1617 A            DATA     X'140D1617'
     1177   01 002A0    18191A1B A            DATA     X'18191A1B'
     1178   01 002A1    1C1D1E1F A            DATA     X'1C1D1E1F'
     1179   01 002A2    00000000 A            DATA     0
     1180   01 002A3    00000000 A            DATA     0
     1181   01 002A4    00000000 A            DATA     0
     1182   01 002A5    00000000 A            DATA     0
     1183   01 002A6    00000000 A            DATA     0
     1184   01 002A7    00000000 A            DATA     0
     1185   01 002A8    00000000 A            DATA     0
     1186   01 002A9    00000000 A            DATA     0
     1187   01 002AA    20000000 A            DATA     X'20000000'
     1188   01 002AB    00000000 A            DATA     0
     1189   01 002AC    0000602E A            DATA     X'0000602E'
     1190   01 002AD    3C282B7C A            DATA     X'3C282B7C'
     1191   01 002AE    26000000 A            DATA     X'26000000'
     1192   01 002AF    00000000 A            DATA     0
     1193   01 002B0    00002124 A            DATA     X'00002124'
     1194   01 002B1    2A293B7E A            DATA     X'2A293B7E'
     1195   01 002B2    2D2F0000 A            DATA     X'2D2F0000'
     1196   01 002B3    00000000 A            DATA     0
     1197   01 002B4    00005E2C A            DATA     X'00005E2C'
     1198   01 002B5    255F3E3F A            DATA     X'255F3E3F'
     1199   01 002B6    00000000 A            DATA     0
     1200   01 002B7    00000000 A            DATA     0
     1201   01 002B8    00003A23 A            DATA     X'00003A23'
     1202   01 002B9    40273D22 A            DATA     X'40273D22'
     1203   01 002BA    00616263 A            DATA     X'00616263'
     1204   01 002BB    64656667 A            DATA     X'64656667'
     1205   01 002BC    68690000 A            DATA     X'68690000'
     1206   01 002BD    00000000 A            DATA     0
     1207   01 002BE    006A6B6C A            DATA     X'006A6B6C'
     1208   01 002BF    6D6E6F70 A            DATA     X'6D6E6F70'
     1209   01 002C0    71720000 A            DATA     X'71720000'
     1210   01 002C1    00000000 A            DATA     0
     1211   01 002C2    00007374 A            DATA     X'00007374'
     1212   01 002C3    75767778 A            DATA     X'75767778'
     1213   01 002C4    797A0000 A            DATA     X'797A0000'
     1214   01 002C5    00000000 A            DATA     0
     1215   01 002C6    005C7B7D A            DATA     X'005C7B7D'
     1216   01 002C7    5B5D0000 A            DATA     X'5B5D0000'
     1217   01 002C8    00000000 A            DATA     0
     1218   01 002C9    00000000 A            DATA     0
     1219   01 002CA    00414243 A            DATA     X'00414243'
     1220   01 002CB    44454647 A            DATA     X'44454647'
     1221   01 002CC    48490000 A            DATA     X'48490000'
     1222   01 002CD    00000000 A            DATA     0
     1223   01 002CE    004A4B4C A            DATA     X'004A4B4C'
     1224   01 002CF    4D4E4F50 A            DATA     X'4D4E4F50'
     1225   01 002D0    51520000 A            DATA     X'51520000'
     1226   01 002D1    00000000 A            DATA     0
     1227   01 002D2    00005354 A            DATA     X'00005354'
     1228   01 002D3    55565758 A            DATA     X'55565758'
     1229   01 002D4    595A0000 A            DATA     X'595A0000'
     1230   01 002D5    00000000 A            DATA     0
     1231   01 002D6    30313233 A            DATA     X'30313233'
     1232   01 002D7    34353637 A            DATA     X'34353637'
     1233   01 002D8    38390000 A            DATA     X'38390000'
     1234   01 002D9    0000007F A            DATA     X'0000007F'
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   18
A    1236                            *
     1237                            *        CONVERSION TABLE ASCII TO EBCDIC
     1238                            *
     1239   01 002DA    00010203 A   EBCDIC   DATA     X'00010203'
     1240   01 002DB    04090607 A            DATA     X'04090607'
     1241   01 002DC    0805150B A            DATA     X'0805150B'
     1242   01 002DD    0C150E0F A            DATA     X'0C150E0F'
     1243   01 002DE    10111213 A            DATA     X'10111213'
     1244   01 002DF    140A1617 A            DATA     X'140A1617'
     1245   01 002E0    18191A1B A            DATA     X'18191A1B'
     1246   01 002E1    1C1D1E1F A            DATA     X'1C1D1E1F'
     1247   01 002E2    405A7F7B A            DATA     X'405A7F7B'
     1248   01 002E3    5B6C507D A            DATA     X'5B6C507D'
     1249   01 002E4    4D5D5C4E A            DATA     X'4D5D5C4E'
     1250   01 002E5    6B604B61 A            DATA     X'6B604B61'
     1251   01 002E6    F0F1F2F3 A            DATA     X'F0F1F2F3'
     1252   01 002E7    F4F5F6F7 A            DATA     X'F4F5F6F7'
     1253   01 002E8    F8F97A5E A            DATA     X'F8F97A5E'
     1254   01 002E9    4C7E6E6F A            DATA     X'4C7E6E6F'
     1255   01 002EA    7CC1C2C3 A            DATA     X'7CC1C2C3'
     1256   01 002EB    C4C5C6C7 A            DATA     X'C4C5C6C7'
     1257   01 002EC    C8C9D1D2 A            DATA     X'C8C9D1D2'
     1258   01 002ED    D3D4D5D6 A            DATA     X'D3D4D5D6'
     1259   01 002EE    D7D8D9E2 A            DATA     X'D7D8D9E2'
     1260   01 002EF    E3E4E5E6 A            DATA     X'E3E4E5E6'
     1261   01 002F0    E7E8E9B4 A            DATA     X'E7E8E9B4'
     1262   01 002F1    B1B56A6D A            DATA     X'B1B56A6D'
     1263   01 002F2    4AC1C2C3 A            DATA     X'4AC1C2C3'
     1264   01 002F3    C4C5C6C7 A            DATA     X'C4C5C6C7'
     1265   01 002F4    C8C9D1D2 A            DATA     X'C8C9D1D2'
     1266   01 002F5    D3D4D5D6 A            DATA     X'D3D4D5D6'
     1267   01 002F6    D7D8D9E2 A            DATA     X'D7D8D9E2'
     1268   01 002F7    E3E4E5E6 A            DATA     X'E3E4E5E6'
     1269   01 002F8    E7E8E9B2 A            DATA     X'E7E8E9B2'
     1270   01 002F9    4FB31BFF A            DATA     X'4FB31BFF'
     1271   01 002FA    15000000 A            DATA     X'15000000'
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   19
A    1273                            **********************
     1274                            *        TABLE 3 REMOTE EXTENSION
     1275                            **********************
     1276                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     1277                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     1278                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     1279                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     1280                            *
     1281                            *  FORMAT
     1282                            *        WORD 1 = DIRECTIVE POINTER
     1283                            *         ***********
     1284                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     1285                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     1286                            *            AF(3)   BYTE 2 = SECOND CHAR.
     1287                            *            AF(4)   BYTE 3 = THIRD CHAR.
     1288                            *
     1289                            *
     1290                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     1291                            *         ***********
     1292                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     1293                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     1294                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     1295                            *                                       DIRECTIVE ROUTINE
     1296                            *                                                                   *G00
     1297                            *
     1298                            *        WORD 3 = CONTROL WORD
     1299                            *         ***********
     1300                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     1301                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     1302                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     1303                            *             AF(4)   BITS 8-12= NOT USED
     1304                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     1305                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     1306                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     1307                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     1308                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     1309                            *                    OR INDEX PARAM #1 (MODE 6)
     1310                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     1311                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     1312                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     1313                            *
     1314                            *                 MODE:  0= UNCONDITIONAL (&)
     1315                            *                        1= IMMEDIATE     (DM)
     1316                            *                        2= PARAMETER LINE (S)
     1317                            *                        6= INDEXED PARAMETER LINE
     1318                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     1319                            *                            0 = HEX, 1 = BIN, AND
     1320                            *                            4-7 = DESIGNER DEFINED
     1321                            *
     1322                            *         WORD 4 = EXPLANATION POINTER
     1323                            *         ***********
     1324                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     1325                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     1326                            *                             = 1 IF TEXT IS COMPRESSED
     1327                            *                             = 2,3   ** NOT ALLOWED **
     1328                            *             AF(3)  BIT 10    = 1  (INDICATES BYTE 1 IS NOT
     1329                            *                                      FORMAT CODE)
     1330                            *             AF(4)  BIT 11    = 1   (INDICATES REMOTE BIAS MUST
     1331                            *                                      BE ADDED TO ADDRESS)
     1332                            *             AF(5)  BITS 12-15 = # OF TEXTC'S RELATED ONLY
     1333                            *                   TO CHARACTER #1 (REQUEST)
     1334                            *             AF(6)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     1335                            *
     1336         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)                        *G00
     1337         00000004           E        COM,8,8,16  AF(1),AF(2),AF(3)                              *G00
     1338                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),;  *G00
     1339         00000004                             AF(6),AF(7),AF(8),AF(9),AF(10),AF(11)             *G00
     1340                            *P       FORM     8,2,1,1,4,16            WORD 4 FORMAT
     1341                            ********************************************************
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   20
A    1343         01 002FB           TABLE3X  EQU      %
     1344                            *
     1345   01 002FB    017C0000 A            H        1,'@'
     1346   01 002FC    00000000 A            E        0
     1347   01 002FD    00000000 A            L        0
        1*  01 002FE    22300C60 A            P        34,,1,1,,ABSVAL(BA(SYNTAX%EXPL))                  *H01
     1349                            *
     1350   01 002FF    04E2E6C1 A            H        4,'S','W','A'
     1351   01 00300    D70000BF A            E        'P',,ABSVAL(SWAP)
     1352   01 00301    21000000 A            L        1,,1                                              *G02
     1353   01 00302    01300E98 A            P        1,,1,1,,ABSVAL(BA(SWAP%EXPL))
     1354                            *
     1355   01 00303    04D9D6C6 A            H        4,'R','O','F'
     1356   01 00304    C60000EC A            E        'F',,ABSVAL(REMSTOP)                              *G02
     1357   01 00305    00000000 A            L        0
     1358   01 00306    01310ED0 A            P        1,,1,1,1,ABSVAL(BA(REMOFF%EXPL))
     1359                            *
     1360   01 00307    03D3D6C7 A            H        3,'L','O','G'
     1361   01 00308    0000013B A            E        ,,ABSVAL(LOG)
     1362   01 00309    23000400 A            L        1,,3,,,,,2
     1363   01 0030A    01300E00 A            P        1,,1,1,,ABSVAL(BA(LOG%EXPL))
     1364                            *
     1365   01 0030B    04C2D6D6 A            H        4,'B','O','O'
     1366   01 0030C    E300015D A            E        'T',,ABSVAL(BOOT)
     1367   01 0030D    21000000 A            L        1,,1
     1368   01 0030E    04310F5C A            P        4,,1,1,1,ABSVAL(BA(BOOT%EXPL))
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   21
A    1370                            *
     1371   01 0030F    04E2E3D6 A            H        4,'S','T','O'
     1372   01 00310    D70001B2 A            E        'P',,ABSVAL(STOP)
     1373   01 00311    21000000 A            L        1,,1
     1374   01 00312    02310EFC A            P        2,,1,1,1,ABSVAL(BA(STOP%EXPL))
     1375                            *
     1376   01 00313    02C2D900 A            H        2,'B','R'
     1377   01 00314    00000217 A            E        ,,ABSVAL(BRANCH)
     1378   01 00315    21000000 A            L        1,,1
     1379   01 00316    02310FF8 A            P        2,,1,1,1,ABSVAL(BA(BR%EXPL))
     1380                            *
     1381   01 00317    F0000000 A   TABLE3ENDX DATA   X'F0000000'       CONTINUATION POINTER TO NEXT
     1382                            *                                   EXTENSION BLOCK (IN DIAGNOSTIC)
     1383                            *
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   22
A    1385         01 00318           SYNTAX%EXPL EQU   %
     1386         01 00318                    TEXTCS   '  '
     1387                                     TEXTCS   ;
     1388         01 00319            '  ... REMOTE FEATURES OF GUIDE ...'
     1389         01 00322                    TEXTCS    '  '
     1390                                     TEXTCS   ;
     1391         01 00323            'USER AT THE REMOTE ''CONTROLLER'' TERMINAL MAY BREAK OUTPUT'
     1392                                     TEXTCS   ;
        1*        01 00332            'BY HITTING THE ''BREAK'' KEY OR THE ''ESC'' KEY.'                 *H01
        2*        01 0033E                    TEXTCS   ' '                                               *H01
     1394                                     TEXTCS   ;
     1395         01 0033F            '       ''BREAK'' SKIPS TO NEXT PARAGRAPH (IF ANY)'
     1396                                     TEXTCS   ;
     1397         01 0034B            '       ''ESC'' RETURNS CONTROL TO GUIDE (IDLE STATE)'
     1398         01 00358                    TEXTCS   ' '
     1399                                     TEXTCS   ;
     1400         01 00359            'ALL OUTPUT IS SENT TO BOTH TERMINALS (REMOTE AND LOCAL)'
     1401                                     TEXTCS   ;
     1402         01 00367            '   IF AN OBSERVER IS LOGGED ON.'
     1403         01 0036F                    TEXTCS   ' '
     1404                                     TEXTCS   ;
     1405         01 00370            'THE FOLLOWING DIRECTIVES ARE AVAILABLE WHEN USING REMOTE:'
        1*        01 0037F                    TEXTCS   ' '                                               *H01
     1406                            LOG%EXPL TEXTCS   ;
     1407         01 00380            '(1)  ''LOG>P1,P2,P3''    ENABLES LOG ON OF REMOTE TERMINAL'
     1408                                     TEXTCS   ;
     1409         01 0038F            '       P1 = ANY 4 CHARACTER PASSWORD'
     1410                                     TEXTCS   ;
     1411         01 00399            '       P2 = COC ADDRESS'
     1412                                     TEXTCS   ;
     1413         01 0039F            '       P3 = DIO ADDRESS'
     1414         01 003A5                    TEXTCS   ' '
     1415                            SWAP%EXPL  TEXTCS  ;
     1416         01 003A6            '(2)   ''SWAP>P1''     SWITCHES CONTROL TO SPECIFIED LINE'         *G02
     1417                            REMOFF%EXPL TEXTCS        ;
     1418         01 003B4            '(3)   ''ROFF''        LOGS ALL LINES OFF'                         *G02
     1419         01 003BE                    TEXTCS   ' '
     1420                            STOP%EXPL TEXTCS    ;
     1421         01 003BF            '(4)   ''STOP>P1''    SETS AN ADDR. STOP AT LOCATION P1'
     1422                                     TEXTCS   ;
     1423         01 003CD            '       P1 = 0    DELETES THE STOP'
     1424         01 003D6                    TEXTCS   ' '
     1425                            BOOT%EXPL TEXTCS    ;
        1*        01 003D7            '(5)   ''BOOT>P1'' ALLOWS TERMINAL USER TO ''BOOTSTRAP'''          *H01
     1427                                     TEXTCS   ;
     1428         01 003E4            '        FROM THE DEVICE AT ADDR. P1 (P1 DEFAULT IS TO '
     1429                                     TEXTCS   ;
     1430         01 003F2            '        THE PREVIOUSLY USED LOAD DEVICE)'
     1431         01 003FD                    TEXTCS   ' '
     1432                            BR%EXPL TEXTCS    ;
     1433         01 003FE            '(6)   ''BR>P1''   TRANSFERS PROGRAM CONTROL TO ADDR. ''P1'''
     1434         01 0040C                    TEXTCS   '  '
     1435         01 0040D                    TEXTCS   ' '
     1436                                     TEXTCS   ;
     1437         01 0040E            '    ... FEATURES ALWAYS IN GUIDE ...'
        1*        01 00418                    TEXTCS   ' '                                               *H01

     1443                            *   THE FOLLOWING ADDRESSES REPRESENT THE LOCATION OF THE
     1444                            *        CORRESPONDING LABELS IN GUIDE
     1445                            *
     1446   01 00419    00000392 A   #SENSE%  DATA     X'392'            ADDRESS OF SENSE SWITCH STATUS
     1447   01 0041A    00000395 A   #MTLFLAG% DATA    X'392'+3          ZERO IF NOT LOADED FROM MT LIBRARY
     1448   01 0041B    000003B3 A   #LOADADDR% DATA X'392'+33              LOADING DEV. ADDR.
     1449   01 0041C    00000396 A   #TOADDR% DATA     X'392'+4
     1450   01 0041D    00000398 A   #COCADDR DATA     X'392'+6
     1451   01 0041E    0000039C A   #PARAM%H1% DATA  X'392'+10
     1452   01 0041F    0000039D A   #PARAM%H2% DATA  X'392'+11
     1453   01 00420    0000039E A   #PARAM%H3% DATA  X'392'+12
     1454   01 00421    000003A3 A   #PARAM1LS% DATA   X'392'+17
     1455   01 00422    000003AA A   #MAXMEM% DATA     X'392'+24
     1456   01 00423    000003B5 A   #DIOADDR DATA     X'392'+35         COC DIO ADDRESS                 *G02
     1457                            *
     1458                            *        TABLE #1B ... GUIDE ROUTINE ADDRESSES
     1459                            *
     1460   01 00424    000003C3 A   #HTE%      DATA   X'3C2'+1
     1461   01 00425    000003CC A   #TYPER%      DATA X'3C2'+10
     1462   01 00426    000003C9 A   #FIDLE%      DATA X'3C2'+7
     1463   01 00427    000003CE A   #ERRTEXT%    DATA X'3C2'+12
     1464   01 00428    000003CA A   #RUNADDR%    DATA X'3C2'+8
     1465                            *
     1466                            *
     1467                            *    DIAGNOSTIC ADDRESSES
     1468                            *
     1469   01 00429    00001003 A   #DIAG@   DATA     X'1003'
     1470   01 0042A    00001008 A   #SAVE%INT@ DATA   X'1008'
     1471   01 0042B    00001009 A   #RES%INT@ DATA    X'1009'
     1472                            *
     1473                            *
     1474                            *
     1475                            *        G L T  - GUIDE LINK TABLE ... EXCLUSIVE LINKAGES BETWEEN
     1476                            *                 GUIDE AND ITS REMOTE PACKAGE
     1477                            *
     1478                            *
     1479         00000DF1           SETHALT%  EQU     X'DF1'            LONG BREAK ROUTINE ADDRESS
     1480                            *        CONVERSION TABLE EBCDIC TO ASCII
     1481   01 0042C    00000DF2 A   COCLIM%  DATA     X'DF1'+1          NUMBER OF REMOTE OBSERVERS ALLOWED
     1482   01 0042D    00000DF3 A   COCLINE% DATA     X'DF1'+2          COC LINE # OF REMOTE TERMINAL
     1483   01 0042E    00000DF4 A   COCNR%   DATA     X'DF1'+3          NUMBER OF LINES LOGGED ON
     1484   01 0042F    00000DF5 A   COCSTATE% DATA    X'DF1'+4          BITS 0-7 = COC STATE
     1485                            *                                     =        0; NO COC ADDRESS
     1486                            *                                     =  1 OR 3 ; NO ONE DIALED IN
     1487                            *                                     = 41 OR 43; USER LOGGED-ON
     1488                            *                                     = 81 OR 83; REMOTE CONTROLLER
     1489                            *
     1490   01 00430    00000DF6 A   MSGMODE% DATA     X'DF1'+5          SET <> 0 IF IN MESSAGE MODE
     1491                            *                 IF BYTE 0 <> 0 , CONTROLLER IS IN MSG MODE
     1492                            *                 IF BYTE 0 = 0 AND MSGMODE > 0 , ONLY REMOTE IS
     1493                            *                   IN MESSAGE MODE
     1494   01 00431    00000DF7 A   REGISTERS@RUN% DATA  X'DF1'+6       RUN MODE REGISTER STORE
     1495   01 00432    00000DF8 A   SAVE%REGS%      DATA  X'DF1'+7      REGISTER SAVE ROUTINE ADDRESS
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   23
A    1498                            *
     1499                            *   THE FOLLOWING CODE IS USED ONLY ONCE (IF AT ALL) AND MAY BE
     1500                            *     OVERLAID DURING PROGRAM EXECUTION
     1501                            *
     1502         01 00433           LOAD%CARDS EQU    %
     1503   01 00433    32000200 A            LW,R0    X'200'            FIND DIAG. RELOCATION
     1504   01 00434    22B00000 A            LI,R11   0
     1505   01 00435    68020008 A            B        8,X1             CALL LOADER AS A SUBROUTINE

     1507                            *    PROGRAM MESSAGE IS AT ADDR. 'REM%MSG'
     1508   01 00436    00000044      DATA   REM%MSG

     1510         01 00433                    END      LOAD%CARDS

  CONTROL SECTION SUMMARY: 01 00437   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:31 JUN 20,'83    T-SERIES REMOTE GUIDE 960-0015-H01                                    PAGE   24
A  ABORT            376/LI      1068-EQU     1073/LC      1078/STW
   ABORT%LINK      1080/STW     1083/#HTECON 1100-DATA
   ABORT%SAVE      1082/DATA    1101-RES     1102/DATA
   ABORT%SAVE%     1091/#HTECON 1102-DATA
   ABORTMSG        1085/STW     1087/STW     1090/TYPE    1103-TEXTCS
   ABORTMSG%EXPL   1104-TEXTCS  1105/GEN
   ABORTMSG%EXPL%  1088/LW      1105-GEN
   ASCII            765/LB      1171-DATA
   BOOT             832-EQU     1366/E
   BOOT%EXPL       1368/P       1425-TEXTCS
   BOOTERR1         834/BCS      900-TYPE
   BOOTERR2         854/BCS      903-LI
   BOOTMSG          905/TYPE     912-TEXTCS
   BOOTX            901/B        907-EQU
   BR%EXPL         1379/P       1432-TEXTCS
   BRANCH          1051-EQU     1377/E
   CA               174/SET      267-EQU
   CATALOG            2-EQU        4/EQU
   CB               174/SET      268-EQU
   CC               174/SET      269-EQU
   CD               174/SET      270-EQU
   CE               174/SET      271-EQU
   CLOCK            402-EQU      766/LW*      768/CW*
   CLR              870/LW       880-DATA
   COC              478/LI      1127-GEN
   COCBC            471/CB       477/STB      483/LB       493/LB       495/STB      500/CB      1130-PZE
   COCBYT           486/LB       489/LB      1127/GEN     1134-RES
   COCINPUT         496/STW      704/LW       710/STW      735-DATA
   COCL             359/STB      380/LI       492/LB       521/STB      534/STB      542/STB      589/LB
       598/STB      720/LB       785/STB     1135-EQU
   COCLIM%          524/LW*     1481-DATA
   COCLINE          532/STW      536/#HTECON  566-DATA     584/LW
   COCLINE%         354/LW*      593/STW*     597/LW*      628/STW*     837/LW*     1482-DATA
   COCLOFF          548/BLE      783-EQU
   COCNR%           361/STB*     525/CB*     1483-DATA
   COCOFF           469/BCS      558-CI
   COCSTATE%        355/LB*      464/LB*      531/STB*     555/STB*     576/LW*      596/STB*     615/MTB*
       624/STW*     698/LB*      799/LC*      840/LW*     1484-DATA
   COCXMIT          370/LI       516/BAL      723/BAL      763-EQU      779/BCS*     788/B*       790/STW
   COCXMIT1         766-LW       781/B
   COCXMIT2         768-CW       772/BCR
   COCXMIT3         769/BCS      771/BCR      784-LI       791/B
   COCXMIT4         621/BAL      623/BAL      790-STW
   CORE%ERR         934/BG      1056-TYPE
   C0               257-EQU
   C1               174/SET      258-EQU
   C2               174/SET      259-EQU
   C3               174/SET      260-EQU
   C4               174/SET      261-EQU
   C5               174/SET      262-EQU
   C6               174/SET      263-EQU
   C7               174/SET      264-EQU
   C8               174/SET      265-EQU
   C9               174/SET      266-EQU
   DIODEV           399-DATA     838/LW
   E               1337-COM
   EBCDIC           491/LB      1239-DATA
   ECHO             377/LI       697-STW
   ECHOR            701/STW      702/STW      716/STW      717/LW       718/LW       733-RES
   ECHOS            697/STW      728/BCR*     729/MTW      730/B*       731-RES
   ECHO1            508/CI       703-EQU
   ECHO2            707/B        714/BCS      717-LW
   ECHO3            720-LB       726/BCS
   ECHO4            700/BCR      727-CI
   ESCAPE           711/CI      1165-EQU
   F0               174/SET      273-EQU
   F1               174/SET      274-EQU
   GUIDE%RET        310/STW      315/LW       383/B*       386-DATA
   GUIDE3           308-EQU      347/LI
   GUIDE3A          357/BAZ      363-EQU
   H               1336-COM
   HFFFE0000       1005/AND     1119-DATA
   HFFFF            470/AND     1114-DATA
   HFFFFFFBF        529/AND     1120-DATA
   HFFFFFFFD        553/AND     1121-DATA
   HF0             1113-DATA
   HF0000000        379/AW      1118-DATA
   HRDWBT           859/LW       886-LI
   H1F000           316/AND     1115-DATA
   H2               554/EOR     1109-DATA
   H3F              490/AND     1110-DATA
   H40              530/EOR     1111-DATA
   H41000000        580/CW      1117-DATA
   H7F              487/AND     1112-DATA
   H8000000        1116-DATA
   IOCD             895-GEN
   L               1338-COM
   LOAD%CARDS      1502-EQU     1510/END
   LOG              798-EQU     1361/E
   LOG%EXPL        1363/P       1406-TEXTCS
   LOG%X            811-LCI      815/B        818/B
   LOGERR1          800/BCS      814-TYPE
   LOGERR2          806/BCS      817-TYPE
   LOGGED           538/STW      539/TYPE     564-TEXTCS
   LOGMSG1          814/TYPE     820-TEXTCS
   LOGMSG2          817/TYPE     822-TEXTCS
   LOGONMSG         371/LI       405-TEXT
   MINUS1           484/EOR     1122-DATA
   MSGMODE%         510/LW*     1490-DATA
   NEWPAGE          715/LI       727/CI      1164-EQU
   NO%OBS           587/BG       591/BL       602/TYPE     605-TEXTCS
   NOSTOP           964/TYPE     979-TEXTCS
   OVERCORE        1056/TYPE    1061-TEXTCS
   P                255-COM
   PASSWORD         409-DATA     518/CB       802/STW
   PI               309-DATA     876/LW
   PRINT            154-CNAME
   RECDSOFF         787/WD*     1155-DATA
   RECOFF           786/WD*     1154-DATA
   RECON            372/LI       661/STB     1153-DATA
   REGISTERS@RUN%   336/LW*      337/STW      992/LW      1002/STW*    1033/LW*     1494-DATA
   REGSAVEMSG      1093/STW     1095/STW     1096/TYPE    1124-TEXTCS
   REM%MSG          388/P        390-EQU     1508/DATA
   REM%MSG%         381/LW       388-P
   REM%MSG1       348.5/STW    348.6/STW    391.1-EQU
   REMOFF           382/LI       615-MTB      633/BAL
   REMOFF%EXPL     1358/P       1417-TEXTCS
   REMOFFS          618/STW      619/STW      630/LW       631/B*       638-RES
   REMSTOP          633-BAL     1356/E
   S:INT            114/ERROR    117/ERROR
   S:PT               4/EQU      391/TEXTCS
   S:RAD            114/ERROR    169/ERROR
   S:UFV            114/ERROR    169/ERROR
   SAVE%REGS%       323/CI       330/LW*      331/STW      994/BAL*    1081/BAL*    1495-DATA
   SENSEMSG         900/TYPE     911-TEXTCS
   SENSET           373/LI       770/WD*     1156-DATA
   SETDIO           365/BAL      653-EQU      810/BAL
   SETHALT%         712/BCR*    1479-EQU
   SIOCOC           374/LI       475-EQU
   SPACE           1163-EQU
   STOP             931-EQU     1372/E
   STOP%EXPL       1374/P       1420-TEXTCS
   STOP%RET        1006/AI      1028-EQU
   STOP%X           957/B        965/B        976-LCI
   STOPFLG          935/LW       939/STW*     956/STW      970/STW      981-DATA
   STOPINST         938/LW       972/STW     1035-WAIT
   STOPMSG1         311/STW      312/STW     1021/TYPE    1040-TEXTCS
   STOPMSG2        1014/STW     1015/STW     1019/STW     1020/STW     1042-TEXTCS
   STOPQW           940/LW       945/LW       948/STW      983/XPSD     989-DATA    1004/LW      1008/LW
      1011/#HTECON 1016/#HTECON 1037/B*
   STOPXPSD         973/LW       983-XPSD
   STOP1            955-LW
   STOP2            936/BEZ      961-CI
   STOP3            951/BNE      962/BNE      969-EQU
   STOP4            989/DATA     991-STW     1001/LW
   SWAP             560/B        576-LW      1351/E
   SWAP%EXPL       1353/P       1415-TEXTCS
   SWAP%X           599-LCI      603/B
   SWAP1            577/BGEZ     580-CW
   SWAP2            579/B        596-STB
   SWAP3            581/BCR      602-TYPE
   SYNTAX%EXPL   1347.1/P       1385-EQU
   TABLE3ENDX       313/STW     1381-DATA
   TABLE3X          378/LI      1343-EQU
   TEXTCS           276-CNAME
   TIOCOC           375/LI       464-LB
   TIOCOCR          515/STW      517/LW       535/STW      540/LW       562-DATA
   TIOCOC0          466-LW       507/BCS      509/BCR      512/B        523/BCS      543/B        551/BCS
       706/BAL
   TIOCOC1          473-LCF      501/BCR
   TIOCOC2          476-LI
   TIOCOC3          472/BCS      483-LB
   TIOCOC4          499-AI       511/BCS
   TIOCOC5          498/BCR      504-CI
   TIOCOC6          505/BCS      513-CI
   TIOCOC7          514/BL       545-CI
   TIOCOC8          521-STB      556/B
   TIOCOC8A         528/B        542-STB
   TIOCOC9          519/BNE      552-LI
   TITLE              4-EQU       88/TITLE    391/TEXTCS
   TYPE             155-CNAME
   VERSION          2.1-EQU        4/EQU      407/TEXT
   XMIT             777/WD*     1157-DATA
   #COCADDR         466/LW*      479/LW*      626/STW*     807/STW*     842/LW*     1450-DATA
   #DIAG@           340/LW*      341/STW      996/LC      1029/LC      1469-DATA
   #DIOADDR         364/LW*     1456-DATA
   #ERRTEXT%        338/LW*      339/STW     1089/STW*    1463-DATA
   #FIDLE%          332/LW*      333/STW      600/B*       636/B*       812/B*       909/B*       977/B*
      1023/B*      1058/B*      1098/B*      1462-DATA
   #HTE%            124/BAL*     326/LW*      327/STW     1460-DATA
   #HTECON          111-CNAME
   #LOADADDR%       847/LW*     1448-DATA
   #MAXMEM%         874/LW*      933/CW*     1053/CW*     1455-DATA
   #MTLFLAG%       1447-DATA
   #PARAM%H1%       582/LW*      844/LW*      932/LW*     1052/LW*     1451-DATA
   #PARAM%H2%       804/LW*     1452-DATA
   #PARAM%H3%       809/LW*     1453-DATA
   #PARAM1LS%       801/LW*     1454-DATA
   #PRINTER%        154/CNAME
   #RES%INT@        344/LW*      345/STW     1031/BAL*    1471-DATA
   #RUNADDR%        334/LW*      335/STW      943/LW      1003/LW      1464-DATA
   #SAVE%INT@       342/LW*      343/STW      998/BAL*    1470-DATA
   #SENSE%          318/LI       839/LW*     1446-DATA
   #TOADDR%         841/LW*     1449-DATA
   #TYPER%          155/CNAME    328/LW*      329/STW     1461-DATA
