1 C00   20:53 JUN 20,'83                                                                          PAGE    1
A      1                     2.000  +2,2                                                                *H01
       2                     2.010  VERSION  EQU      C'H02'                                            *H02
       3                     7.000  +7,101                                                              *H01
       4                   458.000  +458,458                                                            *H01
       5                   458.010  :WAIT    LI,1     1                 FORCE R1 AND R2                 *H01
       6                   458.020           LI,2     2                  OR THIS ROUTINE FAILS          *H01
       7                   458.030           XPSD,0   WXPSDL                                            *H01
       8                   460.000  +460                                                                *H01
       9                   460.010           SPACE                                                      *H01
      10                   592.000  +592,592                                                            *H02
      11                   592.010           BEZ      %+2                FLAG NOT SET, TREAT AS GO      *H02
      12                   611.000  +611,612                                                            *H02
      13                   632.000  +632                                                                *H01
      14                   632.010           SPACE                                                      *H01
      15                   632.020           LI,2     2                 RESET 1, 2, AND 3               *H01
      16                   632.030           LI,3     3                                                 *H01
      17                   865.000  +865,869                                                            *H02
      18                   865.010           SPACE                                                      *H02
      19                   865.020  CLK3INT  XPSD,0   CL3XPSDL                                          *H02
      20                   865.030           SPACE                                                      *H02
      21                   865.040  CLK3INT1 STM,0    COMSAVE           SAVE ALL REGISTERS              *H02
      22                   865.050           SPACE                                                      *H02
      23                   865.060           MTW,1    MLT56             UPDATE 10HZ USER TIMER          *H02
      24                   865.070           SPACE                                                      *H02
      25                   887.000  +887                                                                *H02
      26                   887.010           SPACE                                                      *H02
      27                   889.000  +889                                                                *H02
      28                   889.010           SPACE                                                      *H02
      29                  1088.000  +1088,1090                                                          *H02
      30                  1088.010  BOOT     RD,0     0                 TEST SENSE SWITCHES             *H02
      31                  1149.000  +1149,1152                                                          *H02
      32                  1149.010           SPACE                                                      *H02
      33                  1212.000  +1212,1212                                                          *H02
      34                  1212.010           STW,14   MSGTEXT+1          STORE IN ERROR MESSAGE         *H02
      35                  1212.020           SPACE                                                      *H02
      36                  1216.000  +1216,1216                                                          *H02
      37                  1216.010           SPACE                                                      *H02
      38                  1216.020  MSGTEXT  TEXTC    '   XXXX NOT ALLOWED IF COC ACTIVE'               *H02
      39                  2278.000  +2278,2278                                                          *H01
      40                  2278.010           DATA     M05010            MLT+18   OUTMOD                 *H01
      41                  2281.000  +2281,2281                                                          *H01
      42                  2281.010           DATA     M05015            MLT+21   OUTKSR                 *H01
      43                  2315.000  +2315,2316                                                          *H02
      44                  2315.010           B        *15               MLT+55   REMOTE CONNECT         *H02
      45                  2315.020           DATA     0                 MLT+56   10HZ USER TIMER        *H02
      46                  2343.000  +2343,2343                                                          *H01
      47                  2343.010  PIT07    EQU      PIT+7             PIT+7    DIRECTIVE MNEMONIC     *H01
      48                  2538.000  +2538                                                               *H01
      49                  2538.010           SPACE                                                      *H01
      50                  2538.020           STW,13   PIT07             SAVE DIRECTIVE MNEMONIC         *H01
      51                  2543.000  +2543                                                               *H01
      52                  2543.010           SPACE                                                      *H01
      53                  3594.000  +3594,3594                                                          *H01
      54                  3594.010           BEZ      %+4               SKIP IF NO TITLE                *H01
      55                  3597.000  +3597                                                               *H01
      56                  3597.010           SPACE                                                      *H01
      57                  9999.999  +END
1 C00   20:53 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    3
A       1                                     PCC                                                        *E00
        1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        3         TEXT               CATALOG  EQU      C'0013'                                           *G00
        4                            TITLE EQU S:PT('T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-',;         *G00
        5         TEXT                         CATALOG,'-',VERSION)                                      *G00

      102                            *PROGRAM OBJECTIVES
      103                            *
      104                            *THE PROGRAM IS A COLLECTION OF UTILITY FUNCTIONS TO BE USED BY THE
      105                            *DIAGNOSTIC PROGRAMS.  IT PROVIDES A MEANS OF COMMUNICATION BETWEEN
      106                            *THE DIAGNOSTIC PROGRAMS AND THE USER WHICH WILL RESULT IN A UNIFORM
      107                            *OPERATING PROCEDURE FOR ALL INTERFACED DIAGNOSTIC PROGRAMS.
      108                            *
      109                            *                  ****************************
      110                            *OPERATING REQUIREMENTS AND SPECIFICATIONS
      111                            *                  ****************************
      112                            *
      113                            *REQUIRED EQUIPMENT     SIGMA 5 OR 7 (REFER TO INDIVIDUAL DIAGNOSTIC
      114                            *                       PROGRAMS FOR MEMORY REQUIREMENTS)
      115                            *                       KEYBOARD PRINTER FOR DIRECTIVE INPUTS AND
      116                            *                       MESSAGE PRINT-OUTS
      117                            *                       CARD READER OR PAPER-TAPE READER FOR PROGRAM
      118                            *                       INPUT
      119                            *                  ****************************
      120                            *
      121                            *OPTIONAL EQUIPMENT     LINE PRINTER FOR PRINT-OUTS
      122                            *                  ****************************
      123                            *
      124                            *
      125                            *CORE STORAGE
      126         01 00BF7           SIZE   EQU   S:UFV(ABSBUF)    LOCATIONS, IMMEDIATELY BELOW A LOADER
      127                            *                        WHICH OCCUPIES THE LAST PAGE OF MEMORY, ARE
      128                            *                        LOADED.  THE UPPER 1405 MUST BE PRESERVED.
      129                            *                        A 64-WORD TABLE LOADS INTO LOCATION X'200'.
      130                            *                  ****************************
      131                            *
      132                            *PROGRAM MEDIA          SELF-LOADING 80-COLUMN CARDS OR 8-LEVEL PAPER
      133                            *                       TAPE
      134                            *                  ****************************
      135                            *
      136                            *SOURCE LANGUAGE        SIGMA-7 METASYMBOL
      137                            *                  ****************************
      138                            *
      139                            *LOADING PROCEDURE     1.  THE SIGMA 5-9 RELOCATABLE DIAG. LOADER  *C00
      140                            *                      IS SUPPLIED WITH THE OBJECT PROGRAM. FOLLOW
      141                            *                      PROCEDURE OUTLINED IN THE RELOCATABLE DIAGNOS-
      142                            *                      TIC PROGRAM MANUAL NO. 900972.             *C00
      143                            *                      2.  AFTER A SUCCESSFUL LOAD, THE PROGRAM TYPES
      144                            *
      145                            *                      AN EXCLAMATION TO REQUEST INPUT THROUGH THE
      146                            *                      KEYBOARD CONTROL
      147                            *                      KEYBOARD/PRINTER OF THE FIRST DIRECTIVE.
      148                            *                      3.  TO LOAD AN OBJECT PROGRAM FROM CARDS    *B02
      149                            *                      WITHOUT KEYBOARD CONTROL, SET SS2 BEFORE     *B02
      150                            *                      THE DPM IS LOADED. EXECUTE A LOAD FROM C THE  *B0
      151                            *                      CONTROL PANEL. CLEAR THE FIRST WAIT, WHICH   *B03
      152                            *                      OCCURS ONE CARD AFTER THE END OF THE LOADER.*B03
      153                            *                      AFTER THE SECOND WAIT, WHICH OCCURS AFTER    *B02
      154                            *                      THE DPM IS LOADED, ENTER A -1 (X'FFFFFFFF') *B03
      155                            *                      IN REG. 0 AND CLEAR THE WAIT. THE TEST       *B03
      156                            *                      PROGRAM WILL NOW BE LOADED.                  *B03
      157                            *                      4.  IF THE TELETYPE ADDRESS IS NOT          *B04
      158                            *                      RECOGNIZED, A WAIT WILL OCCUR IMMEDIATELY    *B04
      159                            *                     AFTER THE PROGRAM IS LOADED. REG 0 WILL      *B04
      160                            *                     CONTAIN THE TELETYPE ADDR. CHANGE REG 0       *B04
      161                            *                     TO THE CORRECT ADDR. AND CLEAR THE WAIT       *B04
      162                            *                       WAIT WILL OCCUR INMEDIATELY AFTER LOADING   *C01
      163                            *                      IS FINISHED. CHECK REGISTER 2 FOR IO ADRS    *B02
      164                            *                      ENTER NEW ADDRESS IN REGISTER 2 AND CLEAR   *C01
      165                            *                      WAIT TO CONTINUE.                           *C01
      166                            *                 *************************
      167                            *
      168                            *OPERATING PROCEDURE
      169                            *                 *************************
      170                            *
      171                            *        SIG 5-9 DPM RELOCATION BIAS CARD                           *D01
      172                            *                                                                   *D01
      173                            *        SYSTEM SIG7FDP                                             *D01
      174                            *THE LOCATE DIAGNOSTIC PROGRAM MONITOR DETERMINES MEMORY            *D01
      175                            *SIZE FROM THE RESIDENT DIAGNOSTIC LOADER PROGRAM WHICH             *D01
      176                            *THEN BY USING THE MEMORY SIZE DETERMINES THE STARTING              *D01
      177                            *ADDRESS TO BE USED BY THE DIAGNOSTIC PROGRAM MONITOR.              *D01
      178                            *THE LOCATE PROGRAM THEN INITIATES THE LOADER TO                    *D01
      179                            *LOAD THE DIAGNOSTIC MONITOR AND PASS CONTROL TO THE                *D01
      180                            *DIAGNOSTIC MONITOR.                                                *D01
      181                            *                                                                   *D01
      182                            *                                                                   *D01
      183                            *        ORG      X'200'                                            *D01
      184                            *                                                                   *D01
      185                            *LM0000  LW,0     1                 SET MONITOR BIAS ADDRESS        *D01
      186                            *        AI,0     -X'C00'                                           *D01
      187                            *        LI,11    0                 SET LOADER BOOTSTRAP MODE       *D01
      188                            *        B        8,1               LOAD AND GO TO THE MONITOR      *D01
      189                            *        END      LM0000                                            *D01
      190                            *                                                                   *
      191                            *                                                                   *D01
      192                            *                                                                   *D01
      193                            *CONTROL OPTIONS
      194                            *
      195                            *SENSE SWITCHES 1, 3 AND 4 ,PERFORM THE FOLLOWING FUNCTION IN A
      196                            *DIAGNOSTIC PROGRAM EXECUTED UNDER CONTROL OF THE DIAGNOSTIC PROGRAM
      197                            *MONITOR.
      198                            *
      199                            *       FUNCTION              SWITCH 1     SWITCH 3     SWITCH 4
      200                            *HALT ON ERROR                  ---          RESET        ---
      201                            *LOOP CONTINUOUSLY              SET          SET          ---
      202                            *CONTINUE WITHOUT LOOPING       RESET      SET          ---
      203                            *SUPPRESS PRINT-OUTS            ---          ---          SET
      204                            *                                                                   *B03
      205                            *SENSE SWITCH 2 IS USED BY THE LOADER. IF SET BEFORE THE            *B03
      206                            *  PROGRAM IS LOADED, THE LOADER WILL COME TO A WAIT BEFORE         *B03
      207                            *  CONTROL IS TRANSFERED TO THE STARTING ADDR. OF THE PROGRAM.      *B03
      208                            *                                                                   *B03
      209                            *NOTE: THIS OPTION IS USED TO BYPASS THE 'LOAD' DIRECTIVE           *B03
      210                            *  IF THE PROGRAM IS LOADED FROM CARDS.                             *B03
      211                            *  SEE LOADING PROCEDURE 3. FOR EXPLANATION.                        *B03
      212                            *                                                                   *B03
      213                            *                  ****************************
      214                            *
      215                            *EITHER THE INTERRUPT SWITCH OR THE SYSTEM RESET SWITCH ON THE PROCESSOR
      216                            *CONTROL PANEL MAY BE PRESSED TO INITIATE ABSOLUTE RECOVERY.  THE
      217                            *PROGRAM WILL ABORT THE OPERATION IN PROGRESS AND TYPE AN EXCLAMATION TO
      218                            *REQUEST INPUT THROUGH THE KEYBOARD/PRINTER OF THE NEXT DIRECTIVE.
      219                            *                  ****************************
      220                            *
      221                            *TEST DIRECTIVES AND PARAMETERS
      222                            *
      223                            *RECORDS THAT CONTAIN DIRECTIVES BEGIN WITH AN EXCLAMATION AND A
      224                            *1-TO-4-CHARACTER (ALPHANUMERIC) MNEMONIC.  THE DIRECTIVE MNEMONIC MAY
      225                            *BE FOLLOWED BY A SERIES OF PARAMETERS.  PARAMETERS ARE DESIGNATED BY
      226                            *THE ABBREVIATIONS AI (ALPHANUMERIC), DI (DECIMAL) OR XI (HEXADECIMAL),
      227                            *WITH I REPRESENTING THE PARAMETER NUMBER.  ALPHANUMERIC PARAMETERS
      228                            *CONSIST OF 0 THROUGH 4 CHARACTERS (A-Z, 0-9), DECIMAL PARAMETERS CON-
      229                            *SIST OF 0 THROUGH 8 CHARACTERS (0-9) AND HEXADECIMAL PARAMETERS CON-
      230                            *SIST OF 0 THROUGH 8 CHARACTERS (0-9, A-F).
      231                            *
      232                            *THE FIRST PARAMETER FOLLOWS, AND IS SEPARATED FROM THE DIRECTIVE MNE-
      233                            *MONIC BY A COMMA.  COMMAS SEPARATE SUCCEEDING PARAMETERS.  A SEMI-
      234                            *COLON INDICATES THAT THE DIRECTIVE IS CONTINUED ON THE NEXT RECORD.
      235                            *THE FIRST CHARACTER OF THE CONTINUATION RECORD MUST BE AN EXCLAMATION.
      236                            *ALL OTHER SPECIAL CHARACTERS EXCEPT MINUS TERMINATE DIRECTIVE INPUT
      237                            *AND CAUSE EXECUTION OF A LEGAL DIRECTIVE.  THE MINUS CHARACTER VOIDS
      238                            *THE CURRENT DIRECTIVE INPUT.
      239                            *
      240                            *IF THE DIRECTIVE INPUT DEVICE IS A KEYBOARD/PRINTER, THE MONITOR TYPES
      241                            *THE EXCLAMATION WHICH MUST PRECEDE THE DIRECTIVE MNEMONIC AND WAITS FOR
      242                            *ENTRY OF THE MNEMONIC AND PARAMETERS BY THE OPERATOR.  RECORD LENGTH
      243                            *IS NOT FIXED; A TERMINATION OR CONTINUATION CHARACTER MARKS THE END
      244                            *OF THE RECORD.
      245                            *
      246                            *A MAXIMUM OF ONE DIRECTIVE PER CARD IS ALLOWED.  A DIRECTIVE MAY USE A
      247                            *MAXIMUM OF 72 COLUMNS PER CARD.  THE 72 CHARACTERS MUST INCLUDE EITHER
      248                            *A TERMINATION OR CONTINUATION CHARACTER.
      249                            *
      250                            *RECORDS ON PAPER TAPE THAT CONTAIN DIRECTIVES MUST INCLUDE 120 BYTES.
      251                            *CHARACTERS 1-72 MUST REFLECT THE CARD IMAGE SPECIFIED IN THE PRECEDING
      252                            *PARAGRAPH.  CHARACTERS 73-120 ARE IGNORED.
      253                            *                  ****************************
      254                            *
      255                            *THE FOLLOWING DIRECTIVES ARE RECOGNIZED BY THE MONITOR.
      256                            *
      257                            *        MNEMONIC           NAME                   INPUT FORMAT
      258                            *           MID    SET MESSAGE INPUT DEVICE    !MID,A1,X2
      259                            *           MOD    SET MESSAGE OUTPUT DEVICE   !MOD,A1,X2
      260                            *           LOAD   LOAD DIAGNOSTIC PROGRAM     !LOAD,X1             *C00
      261                            *           SYST   SYSTEM ENVIRONMENT          !SYST,D1,D2,X3,X4,...,XN
      262                            *           DMP    DUMP MEMORY                 !DMP,X1,X2,X3
      263                            *           ALT    ALTER MEMORY                !ALT,X1,X2,...,XN
      264                            *    ADDED DIRECTIVES TO MONITOR FOR REMOTE DPM                     *C01
      265                            *           LOG    LOG ON COC                  !LOG,A1,X2,X3        *C01
      266                            *           SON    SET PSEUDO SENSE SWITCH     !SON,D1,D2,D3,D4     *C01
      267                            *           SOFF   RESET PSEUDO SENSE SWITCH   !SOFF,D1,D2,D3,D4    *C01
      268                            *           SSWC   SET REAL SENSE SWITCH       !SSWC                *C01
      269                            *           STOP   STOP AT SPECIFIED ADDR.     !STOP,X1             *C01
      270                            *           GO     CONTINUE                    !GO                  *C01
      271                            *           GO1    SKIP 1 INSTR. AND CONTINUE  !GO1                 *C01
      272                            *           BR     BRANCH TO LOC. SPECIFIED    !BR,X1               *C01
      273                            *           ROFF   LOG OFF - COC               !ROFF                *C01
      274                            *           RSET   RESET IO                    !RSET                *C01
      275                            *           BOOT   BOOT IN PROGRAM FROM MTL    !BOOT,X1             *C01
      276                            *           TDMP   DUMP ON TTY                 !TDMP,X1,X2          *C01
      277                            *                  ****************************
      278                            *
      279                            *     MID DESIGNATES THE DEVICE FROM THICH DIRECTIVES MAY BE INPUT.
      280                            *PARAMETER A1 DEFINES DEVICE TYPE AS FOLLOWS:
      281                            *                    TY, KEYBOARD/PRINTER
      282                            *                    CR, CARD READER
      283                            *                    PR, PAPER-TAPE READER
      284                            *PARAMETER X2 SPECIFIES DEVICE ADDRESS.  A1, X2 ARE INITIALLY ASSIGNED
      285                            *THE RESPECTIVE VALUES TY, 001.
      286                            *                  ****************************
      287                            *
      288                            *     MOD DESIGNATES THE OUTPUT DEVICE FOR BOTH DIAGNOSTIC-PROGRAM
      289                            *MESSAGES AND THE DUMP DIRECTIVE.  PARAMETER A1 DEFINES DEVICE TYPE AS
      290                            *FOLLOWS:
      291                            *                    TY, KEYBOARD/PRINTER
      292                            *                    LP, LINE PRINTER
      293                            *PARAMETER X2 SPECIFIES DEVICE ADDRESS.  A1, X2 ARE INITIALLY ASSIGNED
      294                            *THE RESPECTIVE VALUES TY, 001.
      295                            *                  ****************************
      296                            *
      297                            *     THE LOAD DIRECTIVE TELLS THE DIAGNOSTIC PROGRAM MONITOR TO LOAD
      298                            *A DIAGNOSTIC PROGRAM FROM THE INITIAL LOADING DEVICE IF X1 IS ZERO *C00
      299                            *OR IS OMITTED. IF THE PROGRAM INPUT DEVICE DIFFERS FROM THE INITIAL*C00
      300                            *LOADING DEVICE, X1 MUST CONTAIN THE ALTERNATE INPUT DEVICE ADDRESS.*C00
      301                            *TO BYPASS THE LOAD DIRECTIVE SEE LOADING PROCEDURE 3.              *B03
      302                            *                  ****************************
      303                            *
      304                            *     THE SYST DIRECTIVE SPECIFIES THE SYSTEM CONFIGURATION.  SYSTEM
      305                            *INFORMATION IS REQUIRED FOR EACH DEVICE TESTED BY A DIAGNOSTIC PROGRAM.
      306                            *THE DEVICE MODEL NUMBER IS PARAMETER D1.  PARAMETERS D2,X3,X4,...,XN
      307                            *ARE DEFINED FOR EACH DEVICE IN THE DIAGNOSTIC PROGRAM REFERENCE MANUAL.
      308                            *
      309                            *SYST DIRECTIVES THAT ARE EXECUTED WHEN A DIAGNOSTIC PROGRAM IS NOT
      310                            *LOADED ARE IGNORED.                                                *B03
      311                            *                  ****************************
      312                            *
      313                            *     THE DMP DIRECTIVE PROVIDES A HEXADECIMAL DUMP OF LOCATIONS X1
      314                            *THROUGH X2.  IF X3 IS OMITTED OR IF X3 IS ZERO, THE DUMP SPECIFIES
      315                            *ABSOLUTE ADDRESSES FOR THE LOCATIONS DUMPED.  IF X3 IS NONZERO, THE
      316                            *DUMP SPECIFIES RELATIVE ADDRESSES.  A LOCATION XN HAS THE RELATIVE
      317                            *ADDRESS XN-X1+1.
      318                            *                  ****************************
      319                            *
      320                            *     THE DIRECTIVE ALT,X1,X2,...,XN ALTERS THE CONTENTS OF N-2 MEMORY
      321                            *LOCATIONS STARTING AT LOCATION X1.  THE HEXADECIMAL VALUE X2 GOES INTO
      322                            *LOCATION X1, THE HEXADECIMAL VALUE X3 GOES INTO LOCATION X1+1 AND THE
      323                            *HEXADECIMAL VALUE PLACED INTO EACH LOCATION X1+I IS SPECIFIED BY
      324                            *PARAMETER I+1.
      325                            *                  ****************************
      326                            *
      327                            *START-RESTART PROCEDURE
      328                            *
      329                            *THE OPERATOR MUST PROVIDE SUCCESSIVE INSTRUCTIONS TO THE DIAGNOSTIC
      330                            *PROGRAM MONITOR.  EACH INSTRUCTION MUST BE A DIRECTIVE THAT IS DEFINED
      331                            *EITHER IN THE MONITOR OR IN A DIAGNOSTIC PROGRAM THAT HAS BEEN LOADED
      332                            *BY THE MONITOR.  DIRECTIVES ARE INPUT THROUGH THE MESSAGE INPUT DEVICE.
      333                            *                  ****************************
      334                            *
      335                            *AFTER A SUCCESSFUL LOAD, THE DIAGNOSTIC PROGRAM MONITOR TYPES AN EXCLA-
      336                            *MATION AND WAITS FOR THE OPERATOR TO ENTER THE FIRST DIRECTIVE.  AFTER
      337                            *EXECUTION OF A DIRECTIVE, THE MONITOR ATTEMPTS TO INPUT ANOTHER DIREC-
      338                            *TIVE.
      339                            *                  ****************************
      340                            *
      341                            *     FAILURE OF AN I/O DEVICE BRINGS THE MONITOR TO A PROGRAMMED WAIT
      342                            *AT LOCATION X'21F'.  IF THE FAILING DEVICE IS A DEVICE OTHER THAN A
      343                            *KEYBOARD/PRINTER, AN ERROR MESSAGE IS TYPED BEFORE THE WAIT.  IF THE
      344                            *FAILING DEVICE IS A KEYBOARD/PRINTER, REGISTER 14 HOLDS THE ADDRESS AND
      345                            *REGISTERS 10, 11 HOLD THE STATUS OF THE FAILING DEVICE WHEN THE WAIT
      346                            *OCCURS.  THE PROGRAM CONTINUES WHEN THE OPERATOR REPOSITIONS THE COM-
      347                            *PUTE SWITCH:  FROM RUN, TO IDLE, TO RUN.
      348                            *                  ****************************
      349                            *
      350                            *     THE CURRECT OPERATION MAY BE ABORTED BY (1) PRESSING THE INTER-
      351                            *RUPT SWITCH OR (2) WITH THE COMPUTE SWITCH IN THE IDLE POSITION, PRESS-
      352                            *ING THE SYSTEM RESET SWITCH AND THE SETTING THE COMPUTE SWITCH TO RUN.
      353                            *THE MONITOR WILL DESIGNATE THE KEYBOARD/PRINTER AS THE MESSAGE INPUT
      354                            *DEVICE AND AWAIT INPUT OF THE NEXT DIRECTIVE.
      355                            *                  ****************************
      356                            *
      357                            *SUCCESS/FAILURE INDICATIONS
      358                            *                  ****************************
      359                            *
      360                            *WAITS
      361                            *
      362                            *FAILURE OF AN I/O DEVICE STOPS EXECUTION AT LOCATION 21F.  IF THE FAIL-
      363                            *ING DEVICE IS NOT A KEYBOARD/PRINTER, AN ERROR MESSAGE IS TYPED BEFORE
      364                            *THE WAIT.  IF THE FAILING DEVICE IS A KEYBOARD/PRINTER, REGISTER 14
      365                            *HOLDS THE ADDRESS AND REGISTERS 10, 11 HOLD THE STATUS WHEN THE WAIT
      366                            *OCCURS.  THE PROGRAM CONTINUES WHEN THE OPERATOR REPOSITIONS THE COM-
      367                            *PUTE SWITCH: FROM RUN TO IDLE, TO RUN.
      368                            *                  ****************************
      369                            *
      370                            *MESSAGE PRINTOUTS
      371                            *
      372                            *TWO EXCLAMATION MARKS PRECEDE EACH MESSAGE PRINTED BY THE MONITOR.
      373                            *                  ****************************
      374                            *
      375                            *ERROR CODES
      376                            *
      377                            *
      378                            *TRAP AND INTERRUPTS THAT OCCUR YIELD THE FOLLOWING TYPE-OUT:       *B02
      379                            *'TRAP/INTER=XX  TCC=YYYY  REGSAVE= AAAAAAAA'                       *B02
      380                            *'PSW1=TTTTTTTT  PSW2=RRRRRRRR'                                     *B02
      381                            * WHERE XX DENOTES THE TRAP OR INTERRUPT LOCATION,                  *B02
      382                            * ''  YYYY DENOTES THE TRAPPED CONDITION CODES.                     *B02
      383                            * '' AAAAAA IS THE LOCATION WHERE THE REGISTERS ARE SAVED AT THE TIME P1
      384                            * '' TTTTTT AND RRRRRR ARE THE DOUBLE WORDS AT THE TIME.            *B02
      385                            *
      386                            *
      387                            * ADDITIONAL TYPE-OUTS MAY OCCUR WHICH APPLY ONLY TO THE SIGMA 9    *B02
      388                            * THEY ARE:
      389                            * FOR A MEMORY FAULT:                                               *B02
      390                            * 'MSW0= WWWWWW MSW1=EEEEEE MSW2=RRRRRR '                           *B02
      391                            * FOR A PROCESSOR FAULT:                                            *B02
      392                            * 'PROC.NO. SS  F/STAT=CC'                                          *B02
      393                            **
      394                            *ERRORS THAT ARE DETECTED BY THE MONITOR YIELD THE TYPE-OUT
      395                            *'MONITOR ERR NO. XXXX', WHERE XXXX IS THE ERROR CODE.
      396                            *
      397                            *    CODE   ERROR
      398                            *
      399                            *
      400                            *
      401                            *
      402                            *
      403                            *    0700   ILLEGAL ADDRESS (ALT DIRECTIVE, DMP DIRECTIVE, MESSAGE PRINT
      404                            *           ROUTINE)
      405                            *    1000   ILLEGAL DEVICE MNEMONIC, PARAMETER A1, MOD DIRECTIVE
      406                            *    1100   ILLEGAL DEVICE MNEMONIC, PARAMETER A1, MID DIRECTIVE
      407                            *    1200   ILLEGAL CHARACTER IN A HEXADECIMAL PARAMETER
      408                            *    1201   ILLEGAL CHARACTER IN A DECIMAL PARAMETER
      409                            *    1202   NO TERMINATION OR CONTINUATION CHARACTER IN FIRST 72
      410                            *           CHARACTERS OF A RECORD CONTAINING A DIRECTIVE INPUT FROM A
      411                            *           DEVICE OTHER THAN THE KEYBOARD/PRINTER
      412                            *    1301   FIRST CHARACTER OF A RECORD IS NOT AN EXCLAMATION
      413                            *    1302   ILLEGAL DIRECTIVE
      414                            *    1303   MORE PARAMETERS INDICATED FOR A DIRECTIVE THAN AUTHORIZED
      415                            *    1800   NO PARAMETERS WITH SYST DIRECTIVE
      416                            *    1801   DIAGNOSTIC PROGRAM DOES NOT SHOW THE MODEL NUMBER SPECIFIED
      417                            *           IN A SYST DIRECTIVE THAT IS EXECUTED WHILE DIAGNOSTIC PRO-
      418                            *          GRAM IS LOADED
      419                            *    1802   CONTEXT DATA BLOCK IN DIAGNOSTIC PROGRAM IS NOT LONG ENOUGH
      420                            *           FOR CORRESPONDING ENTRY IN SYSTEMS CONTEXT TABLE
      421                            *    1804   CONTEXT DATA TABLE IN DIAGNOSTIC PROGRAM SHOWS ZERO MODEL
      422                            *           NUMBERS TO WHICH A CONTEXT DATA BLOCK APPLIES
      423                            *    2201   SIO YIELDED IOP HALT
      424                            *    2202   SIO YIELDED INCORRECT LENGTH INDICATION
      425                            *    2203   SIO YIELDED IOP MEMORY ERROR INDICATION
      426                            *    2204   SIO YIELDED MEMORY ADDRESS ERROR INDICATION
      427                            *    2205   SIO YIELDED TRANSMISSION MEMORY ERROR INDICATION
      428                            *    2206   SIO YIELDED TRANSMISSION DATA ERROR                     *B02
      429                            *    2301   SIO UNACCEPTABLE AFTER MAXIMUM WAIT
      430                            *    2302   I/O ADDRESS NOT RECOGNIZED
      431                            *    2303   I/O INTERRUPT FAILS TO RESET
      432                            *    2304   DEVICE NOT OPERATIONAL
      433                            *    2305   CONTROLLER NOT OPERATIONAL
      434                            *    2306   SIO REJECTED AFTER OPERATIONAL STATUS OBTAINED
      435                            *    2307   MANUAL MODE

      437                                     SYSTEM   SIG7FDP                                           *E00
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    4
A     439   01 00000                          CSECT
      440   01 00000    000004F5 A   REMSIZE  DATA     MLTAB-:WAIT       REMOTE PACKAGE SIZE             *C01
      441                            *                                                                   *C01
      442                            *                                                                   *C01
      443                            *                                                                   *C01
      444                            * :WAIT ROUTINE                                                     *C01
      445                            * THIS REPLACES ALL WAIT INSTRUCTIONS EXCEPT THOSE FOLLOWING IMMEDIATELY
      446                            * AFTER A CALL TO THE SENSE SWITCH ROUTINE. THE ROUTINE SAVES THE   *C01
      447                            * PRESENT ENVIROMENT. PRINTS A MESSAGE(DATA STATEMENT FOLLOWING CALL)*C0
      448                            * EXITS TO DIRECTIVE MODE.                                          *C01
      449                            * USER CAN CONTINUE WITH !GO DIRECTIVE. IF FROM SENSE ROUTINE USER CAN
      450                            * USE !GO1 DIRECTIVE                                                *C01
      451                            *                                                                   *C01
      452                            * CALLING SEQUENCE                                                  *C01
      453                            *        BAL,15   *MLT43                                            *C01
      454                            *        DATA     ADDRESS OF MESSAGE                                *C01
      455                            *                                                                   *C01
      456                            *                                                                   *C01
      457                            *                                                                   *C01
        1*  01 00001    22100001 A   :WAIT    LI,1     1                 FORCE R1 AND R2                 *H01
        2*  01 00002    22200002 A            LI,2     2                  OR THIS ROUTINE FAILS          *H01
        3*  01 00003    0F00001E              XPSD,0   WXPSDL                                            *H01
      459   01 00004    E802000F A            B        *15,1                                             *C01
      460   01 00005    E804000F A            B        *15,2                                             *C01

      461   01 00006    02200000 A   :WAIT2   LCI      0                                                 *C01
      462   01 00007    2B000506              STM,0    REGSAVE           SAVE REG0-15                    *C01
      463   01 00008    1280001E              LD,8     WXPSDL            FETCH PSD                       *C01
      464   01 00009    6AF00094              BAL,15   SAVEENVI          SAVE ENVIROMENT                 *C01
      465   01 0000A    B2F00515              LW,15         *REGSAVE+15                                  *C01
      466   01 0000B    35F0001A              STW,15   :WAIT3            PICK UP MESSAGE ADDRESS         *C01
      467   01 0000C    22E00A28              LI,14    MSENSE4           IS IT FROM SENSE SUBR.          *C01
      468   01 0000D    31E00515              CW,14    REGSAVE+15                                        *C01
      469   01 0000E    69300011              BNE      %+3               B: NO                           *C01
      470   01 0000F    32C007BD              LW,12    STSAVE            FETCH WAIT LOC                  *C01
      471   01 00010    68000013              B        %+3                                               *C01
      472   01 00011    32C00515              LW,12    REGSAVE+15        FETCH WAIT LOC.                 *C01
      473   01 00012    33F0000C A            MTW,-1   12                                                *C01
      474   01 00013    EAF00218 A            BAL,15   *MLT24            CONVERT WAIT LOC TO HEX         *C01
      475   01 00014    B5F60018              STW,15   *:WAIT1,3         STORE IN MESSAGE                *C01
      476   01 00015    EAF00218 A            BAL,15   *MLT24                                            *C01
      477   01 00016    75F60A59              STB,15   WAITMSG1+2,3                                      *C01
      478   01 00017    EAF00223 A            BAL,15   *MLT35            PRINT MESSAGE                   *C01
      479   01 00018    00000A57     :WAIT1   DATA     WAITMSG1                                          *C01
      480   01 00019    EAF00223 A            BAL,15   *MLT35                                            *C01
      481   01 0001A    00000000 A   :WAIT3   DATA     0                 'WAIT LOC. XXXXX'               *C01
      482   01 0001B    EAF00223 A            BAL,15   *MLT35                                            *C01
      483   01 0001C    00000022              DATA     WAITMSG2          'TYPE GO DIRECTIVE TO CONTINUE'*C01
      484   01 0001D    E8000210 A            B        *MLT16            EXIT                            *C01
      485                                     BOUND    8                                                 *C01
      486   01 0001E    00000000 A   WXPSDL   DATA     0,0                                               *C01
            01 0001F    00000000 A
      487   01 00020    00000006              DATA     :WAIT2                                            *C01
      488   01 00021    07000000 A            DATA     X'07000000'                                       *C01
      489   01 00022    1DE3E8D7 A   WAITMSG2 TEXTC    'TYPE GO DIRECTIVE TO CONTINUE'                   *C01
            01 00023    C540C7D6 A
            01 00024    40C4C9D9 A
            01 00025    C5C3E3C9 A
            01 00026    E5C540E3 A
            01 00027    D640C3D6 A
            01 00028    D5E3C9D5 A
            01 00029    E4C54040 A
      490                            *                                                                   *C01
      491                            *                                                                   *C01
      492                            * !SON !SOFF !SSWC DIRECTIVES                                       *C01
      493                            * THESE DIRECTIVES ARE PSEUDO SENSE SWITCH DIRECTIVES.              *C01
      494                            *        FOR TURNING SWITCHES ON                                    *C01
      495                            *            !SON,N1,N2,N3,N4           NX = SWITCH POSITION        *C01
      496                            *        FOR TURNING SWITCHES OFF                                   *C01
      497                            *            !SOFF,N1,N2,N3,N4                                      *C01
      498                            * ANY NUMBER OF PARAMETERS UP TO A MAXIMUM OF FOUR CAN BE USED AND THE
      499                            * VALUES MUST BE IN THE RANGE 1 TO 4.                               *C01
      500                            * TO REVERT TO THE USE OF REAL SENSE SWITCHES THE DIRECTIVE !SSWC IS*C01
      501                            * USED, NO PARAMETERS ARE REQUIRED.                                 *C01
      502                            *                                                                   *C01
      503                            *                                                                   *C01
      504   01 0002A    33100074     MSON     MTW,1    MFLAG             SET SON FLAG                    *C01
      505   01 0002B    22E002E7              LI,14    DICTR+14          SAVE                            *C01
      506   01 0002C    68000030              B        %+4                                               *C01
      507   01 0002D    22E00000 A   MSOFF    LI,14    0                                                 *C01
      508   01 0002E    35E00074              STW,14   MFLAG             RESET !SON FLAG                 *C01
      509   01 0002F    22E002E9              LI,14    DICTR+16          SAVE                            *C01
      510   01 00030    35E0003A              STW,14   MSON1+2                DIRECTIVE MNEMONIC         *C01
      511   01 00031    22E00000 A            LI,14    0                                                 *C01
      512   01 00032    35E00073              STW,14   MSAVE             CLEAR SAVED AREA                *C01
      513   01 00033    72420211 A            LB,4     MLT17,1           FETCH PARAMETER COUNT           *C01
      514   01 00034    68300061              BEZ      MSON7             PARAMETER COUNT = 0             *C01
      515   01 00035    21400004 A            CI,4     4                 IS PARAMETER COUNT > 4          *C01
      516   01 00036    6820003C              BLE      MSON2             B: NO                           *C01
      517   01 00037    22E00005 A            LI,14    5                 P5                              *C01
      518   01 00038    35E0030A A   MSON1    STW,14   PIT10             INVALID PARAMETER               *C01
      519   01 00039    EAF00229 A            BAL,15   *MLT41            REPORT INVALID PARAMETER        *C01
      520   01 0003A    00000000 A            DATA     0                                                 *C01
      521   01 0003B    E8000210 A            B        *MLT16            EXIT                            *C01
      522   01 0003C    32E80200 A   MSON2    LW,14    P1-1,4            FETCH PARAMETER                 *C01
      523   01 0003D    21E00001 A            CI,14    1                 PARAMETER:1                     *C01
      524   01 0003E    6910005F              BL       MSON6             B: PARAMETER < 1                *C01
      525   01 0003F    21E00004 A            CI,14    4                 PARAMETER:4                     *C01
      526   01 00040    6920005F              BG       MSON6             B: PARAMETER > 4                *C01
      527   01 00041    3AE0000E A            LCW,14   14                NEG  PARAMETER COUNT            *C01
      528   01 00042    22F00010 A            LI,15    X'10'             SET BET                         *C01
      529   01 00043    4BE00BCF              AND,14   =X'7F'            MASK                            *C01
      530   01 00044    A5F0000E A            SCS,15   *14               SHIFT BIT TO APPROPRIATE POSITION*C0
      531   01 00045    49F00073              OR,15    MSAVE             MERGE BIT WITH SAVED BITS       *C01
      532   01 00046    35F00073              STW,15   MSAVE             SAVE                            *C01
      533   01 00047    6440003C              BDR,4    MSON2             B: FETCH ANOTHER PARAMETER    *C01
      534   01 00048    32E00BCE              LW,14    PSENSE            PSEUDO SENSE SWITCH DATA        *C01
      535   01 00049    69100067              BLZ      MSON8             B: PSEUDO SENSE SWITCH IN USE   *C01
      536   01 0004A    6AF00A31              BAL,15   QSENSE            READ REAL SWITCHES              *C01
      537   01 0004B    25F00204 A            SCS,15   4                SHIFT SWITCHES POSITION TO LSB  *C01
      538   01 0004C    49F00BCE     MSON9    OR,15    PSENSE            MERGE PSEUDO AND REAL SWITCH    *C01
      539   01 0004D    32E00074              LW,14    MFLAG             IS IT FROM !SON                 *C01
      540   01 0004E    68300051              BEZ      MSON3             B: NO                           *C01
      541   01 0004F    49F00073              OR,15    MSAVE             MERGE PSEUDO AND REAL SWITCH    *C01
      542   01 00050    68000054              B        MSON4                                             *C01
      543   01 00051    22EFFFFF A   MSON3    LI,14    -1                                                *C01
      544   01 00052    48E00073              EOR,14   MSAVE             COMPLEMENT PSEUDO SWITCH        *C01
      545   01 00053    4BF0000E A            AND,15   14                MASK OFF BITS                   *C01
      546   01 00054    32E00BD0     MSON4    LW,14    =X'80000000'      SET INDICATOR                   *C01
      547   01 00055    49E0000F A            OR,14    15                    TO SHOW PSEUDO SWITCH IN USED.
      548   01 00056    35E00BCE              STW,14   PSENSE            SAVE                            *C01
      549   01 00057    32C00BCE     MSON5    LW,12    PSENSE            SWITCH POSITION                 *C01
      550   01 00058    EAF00216 A            BAL,15   *MLT22            CONVERT TO BINARY EBCDIC        *C01
      551   01 00059    35F00072              STW,15   SSWMSG2+1         STORE IN MSG                    *C01
      552   01 0005A    EAF00223 A            BAL,15   *MLT35            PRINT MSG                       *C01
      553   01 0005B    0000006F              DATA     SSWMSG1                                           *C01
      554   01 0005C    EAF00223 A            BAL,15   *MLT35            PRINT MSG                       *C01
      555   01 0005D    00000071              DATA     SSWMSG2                                           *C01
      556   01 0005E    E8000210 A            B        *MLT16            EXIT                            *C01
      557   01 0005F    32E00004 A   MSON6    LW,14    4                 FETCH PARAMETER ERROR NO        *C01
      558   01 00060    68000038              B        MSON1                                             *C01
      559   01 00061    32E00BCE     MSON7    LW,14    PSENSE            PSEUDO SENSE SWITCH DATA        *C01
      560   01 00062    69100057              BLZ      MSON5             B: PSEUDO SENSE SWITCH IN USE   *C01
      561   01 00063    6AF00A31              BAL,15   QSENSE            READ REAL SWITCHES              *C01
      562   01 00064    25F00204 A            SCS,15   4                 SHIFT SWITCHES POSITION TO LSB  *C01
      563   01 00065    35F00BCE              STW,15   PSENSE            SAVE                            *C01
      564   01 00066    68000057              B        MSON5                                             *C01
      565   01 00067    22F00000 A   MSON8    LI,15    0                 PSEUDO SENSE SWITCH             *C01
      566   01 00068    6800004C              B        MSON9                                             *C01
      567   01 00069    22E00000 A   SSWC     LI,14    0                                                 *C01
      568   01 0006A    35E00BCE              STW,14   PSENSE            RESET PSEUDO SENSE SWITCH       *C01
      569   01 0006B    6AF00A31              BAL,15   QSENSE            READ REAL SWITSHES              *C01
      570   01 0006C    25F00204 A            SCS,15   4                 SHIFT SWITCHES POSITION TO LSB*C01
      571   01 0006D    35F00BCE              STW,15   PSENSE            SAVE PSEUDO SENSE SWITCH        *C01
      572   01 0006E    E8000210 A            B        *MLT16            EXIT                            *C01
      573   01 0006F    0740E2E6 A   SSWMSG1  TEXTC    ' SW1234'                                         *C01
            01 00070    F1F2F3F4 A
      574   01 00071    07404040 A   SSWMSG2  TEXTC    '   XXXX'                                         *C01
            01 00072    E7E7E7E7 A
      575   01 00073    00000000 A   MSAVE    DATA     0                                                 *C01
      576   01 00074    00000000 A   MFLAG    DATA     0                                                 *C01
      577                            *                                                                   *C01
      578                            *                                                                   *C01
      579                            *                                                                   *C01
      580                            *                                                                   *C01
      581                            * !GO !GO1 DIRECTIVE                                                *C01
      582                            * THE ENVIROMENT HAS BEEN SAVED IN REGSAVE   REGSAVE+17. REGISTERS ARE
      583                            * SAVED IN REGSAVE   REGSAVE+15. THE PSD IN IN REGSAVE+16 AND REGSAVE+17
      584                            * IF THE ENTRY POINT IS !GO1 THE INSTRUCTION ADDRESS MUST BE UPDATED*C01
      585                            * BY 1 PRIOR TO A CHANGE IN ENVIROMENT                              *C01
      586                            *                                                                   *C01
      587                            *                                                                   *C01
      588         01 00075           MGO1     EQU      %                 !GO1 ENTRY POINT                *C01
      589   01 00075    32E00092              LW,14    GOTOFLG           GOTO FLAG                       *C01
      590   01 00076    6830008A              BEZ      MGO3              NO GOTO ENVIROMENT,ERROR EXIT   *C01
      591   01 00077    32E00A30              LW,14    SENSEFLG          SENSE ROUTINE FLAG              *C01
        1*  01 00078    6830007A              BEZ      %+2                FLAG NOT SET, TREAT AS GO      *H02
      593   01 00079    33100516              MTW,1    REGSAVE+16        INCR THE INSTRUCTION ADDRESS    *C01
      594   01 0007A    6800007D              B        %+3                                               *C01
      595         01 0007B           MGO      EQU      %                 !GO ENTRY POINT                 *C01
      596   01 0007B    32E00092              LW,14    GOTOFLG           IS THERE A GO TO ENVIROMENT     *C01
      597   01 0007C    6830008A              BEZ      MGO3              NO, ERROR EXIT                  *C01
      598   01 0007D    22E00000 A            LI,14    0                                                 *C01
      599   01 0007E    35E00A30              STW,14   SENSEFLG          RESET SENSE FLAG                *C01
      600   01 0007F    35E00092              STW,14   GOTOFLG           RESET GOTO FLAG                 *C01
      601   01 00080    6AF0010A              BAL,15   RESTENVI          RESTORE ENVIROMENT              *C01
      602   01 00081    22EFFFEC A            LI,14    -20                                               *C01
      603   01 00082    35E00319              STW,14   2SEC              RESET 2SEC                      *C01
      604   01 00083    3AE00318              LCW,14   TICKS                                             *C01
      605   01 00084    35E001A7              STW,14   CLK3LOC           RESET CLOCK                     *C01
      606   01 00085    22E02080 A            LI,14    X'2080'           ARM AND ENABLE COUNTER 3        *C01
      607   01 00086    6DE01200 A            WD,14    X'1200'                                           *C01
      608   01 00087    02200000 A            LCI      0                                                 *C01
      609   01 00088    2A000506              LM,0     REGSAVE           RELOAD REGISTERS                *C01
      610   01 00089    0E000516              LPSD,0   REGSAVE+16        START AT NEW ENVIROMENT         *C01
      613   01 0008A    EAF00223 A   MGO3     BAL,15   *MLT35            PRINT ERROR MESSAGE             *C01
      614   01 0008B    0000008D              DATA     MGOMSG            'NO GOTO ENVIROMENT'            *C01
      615   01 0008C    E8000210 A            B        *MLT16            EXIT                            *C01
      616   01 0008D    12D5D640 A   MGOMSG   TEXTC    'NO GOTO ENVIROMENT'                              *C01
            01 0008E    C7D6E3D6 A
            01 0008F    40C5D5E5 A
            01 00090    C9D9D6D4 A
            01 00091    C5D5E340 A
      617   01 00092    00000000 A   GOTOFLG  DATA     0                                                 *C01
      618   01 00093    00000000 A   CNTR4ADR DATA     0                                                 *C01
      619   01 00094    02200040 A   SAVEENVI LCI      4                                                 *C01
      620   01 00095    2AA00201 A            LM,10    P1                STORE   PARAMETER               *C01
      621   01 00096    32E0030F A            LW,14    PIT15                                             *C01
      622   01 00097    02200070 A            LCI      7                     AND PSD                     *C01
      623   01 00098    2B800516              STM,8    REGSAVE+16                                        *C01
      624   01 00099    32E00316              LW,14    RUNMODE                                           *C01
      625   01 0009A    35E0051D              STW,14   REGSAVE+23                                        *C01
      626   01 0009B    32E00055 A            LW,14    X'55'             COUNTER 4 INTERRUPT LOC.        *C01
      627   01 0009C    4BE00BD1              AND,14   =X'1FFFF'         COUNTER 4 ADDRESS               *C01
      628   01 0009D    35E00093              STW,14   CNTR4ADR          SAVE                            *C01
      629   01 0009E    B2E00093              LW,14    *CNTR4ADR         COUNTER 4 COUNT                 *C01
      630   01 0009F    35E0051F              STW,14   REGSAVE+25        SAVE WITH ENVIROMENT            *C01
      631   01 000A0    22100001 A            LI,1     1                                                 *C01
      632   01 000A1    35100092              STW,1    GOTOFLG           SET GOTO ENVIROMENT FLAG        *C01

        2*  01 000A2    22200002 A            LI,2     2                 RESET 1, 2, AND 3               *H01
        3*  01 000A3    22300003 A            LI,3     3                                                 *H01
      633   01 000A4    E800000F A            B        *15                                               *C01
      634                            *                                                                   *C01
      635                            *                                                                   *C01
      636                            * (BR DIRECTIVE                                                     *C01
      637                            * THIS DIRECTIVE ALLOWS THE CONTROLLER BRANCH TO ANY LOCATION HE    *C01
      638                            * REQUIRES                                                          *C01
      639                            *        !BR,XXX     (BRANCH TO XXX LOCATION)                       *C01
      640                            * THE DIRECTIVE ALLOWS THE CE TO DEPART FROM THE NORMAL DIAGNOSTIC  *C01
      641                            * PROGRAM PROCEDURE.                                                *C01
      642                            *                                                                   *C01
      643                            *                                                                   *C01
      644   01 000A5    72E20211 A   BRANCH   LB,14    MLT17,1           IS THERE A DIRECTIVE WITH PARAMETER
      645   01 000A6    683000AB              BEZ      BRANCH1           B: NO                           *C01
      646   01 000A7    32E00201 A            LW,14    P1                BRANCH ADDRESS                  *C01
      647   01 000A8    31E0022E A            CW,14    MLT46             IS IT TOP OF CORE               *C01
      648   01 000A9    69200889              BG       M07200            B: GREATER THAN MAX MEMORY SIZE *C01
      649   01 000AA    E800000E A            B        *14               BRANCH TO SPECIFIED ADDRESS     *C01
      650   01 000AB    EAF00223 A   BRANCH1  BAL,15   *MLT35            PRINT                           *C01
      651   01 000AC    000000AE              DATA     NOPAR             'DIRECTIVE WITH NO PARAMETER    *C01
      652   01 000AD    E8000210 A            B        *MLT16            EXIT                            *C01
      653   01 000AE    16C4C9D9 A   NOPAR    TEXTC    'DIR. WITH NO PARAMETER'                          *C01
            01 000AF    4B40E6C9 A
            01 000B0    E3C840D5 A
            01 000B1    D640D7C1 A
            01 000B2    D9C1D4C5 A
            01 000B3    E3C5D940 A
      654                            *                                                                   *C01
      655                            *                                                                   *C01
      656                            * !STOP DIRECTIVE AND SPEUDO STOP EXECUTION                         *C01
      657                            *                                                                   *C01
      658                            * THIS DIRECTIVE SIMULATE THE ADDRESS STOP FEATURE OF PCP.          *C01
      659                            * THIS DIRECTIVE WILL CAUSE XPSD TO BE PLACED INTO THE ADDRESS SPECIFIED
      660                            * IF THE XPSD IS EXECUTED, A TYPE OUT OF THE SAVED PSW1,PSW2 AND THE*C01
      661                            * ADDRESS OF A STACK CONTAINING THE SAVED PSW1,PSW2 AND ALL THE REG *C01
      662                            * WILL OCCUR AND THE USER OBTAIN CONTROL.                           *C01
      663                            *                                                                   *C01
      664                            *                                                                   *C01
      665   01 000B4    32E00201 A   MSTOP  LW,14      P1                FETCH STOP ADDRESS              *C01
      666   01 000B5    31E0022E A            CW,14    MLT46             IS IT ABOVE TOP OF CORE         *C01
      667   01 000B6    69200889              BG       M07200            B: YES, ERROR                   *C01
      668   01 000B7    32E0011B              LW,14    STOPFLG           IS STOP FLAG SET                *C01
      669   01 000B8    683000C0              BEZ      MSTOP2            B: STOP FLAG NOT SET            *C01
      670   01 000B9    32E0011D              LW,14    STOPINST          STOPPED INSTRUCTION             *C01
      671   01 000BA    B5E0011C              STW,14   *STOPADR          SAVE                            *C01
      672   01 000BB    71120211 A            CB,1     MLT17,1           PARAMETER COUNT:1               *C01
      673   01 000BC    683000C5              BE       MSTOP3            B: EQUAL                        *C01
      674   01 000BD    22E00000 A   MSTOP1   LI,14    0                                                 *C01
      675   01 000BE    35E0011B              STW,14   STOPFLG           RESET STOP FLAG                 *C01
      676   01 000BF    E8000210 A            B        *MLT16            EXIT                            *C01
      677   01 000C0    71120211 A   MSTOP2   CB,1     MLT17,1           PARAMETER COUNT:1               *C01
      678   01 000C1    683000C5              BE       MSTOP3            B: EQUAL                        *C01
      679   01 000C2    EAF00223 A            BAL,15   *MLT35            PRINT                           *C01
      680   01 000C3    000000AE              DATA     NOPAR             'DIRECTIVE WITH NO PARAMETER    *C01
      681   01 000C4    E8000210 A            B        *MLT16            EXIT                            *C01
      682   01 000C5    B2E00201 A   MSTOP3   LW,14    *P1               DISPLACED INSTRUCTION           *C01
      683   01 000C6    35E0011D              STW,14   STOPINST          SAVE                            *C01
      684   01 000C7    32E000D7              LW,14    MSTOP5            XPSD INSTRUCTION                *C01
      685   01 000C8    B5E00201 A            STW,14   *P1               SAVE                            *C01
      686   01 000C9    3310011B              MTW,1    STOPFLG           SET SPEUDO STOP FLAG            *C01
      687   01 000CA    32E00201 A            LW,14    P1                PARAMETER 1                     *C01
      688   01 000CB    35E0011C              STW,14   STOPADR           STORE IN STOP ADDR LOC          *C01
      689   01 000CC    E8000210 A            B        *MLT16            EXIT                            *C01
      690   01 000CD    12C00516     MSTOP4   LD,12    REGSAVE+16                                        *C01
      691   01 000CE    4BC00BD2              AND,12   =X'FFFE0000'                                      *C01
      692   01 000CF    20C000D5              AI,12    MSTOP4A                                           *C01
      693   01 000D0    15C00116              STD,12   STPXPSDL                                          *C01
      694   01 000D1    6AF0010A              BAL,15   RESTENVI                                          *C01
      695   01 000D2    02200000 A            LCI      0                                                 *C01
      696   01 000D3    2A000506              LM,0     REGSAVE           RESTORE GOTO ENVIROMENT         *C01
      697   01 000D4    0E000116              LPSD,0   STPXPSDL                                          *C01
      698   01 000D5    6700011D     MSTOP4A  EXU      STOPINST          EXECUTE SAVED INSTRUCTION       *C01
      699   01 000D6    E802011C              B        *STOPADR,1        BRANCH BACK TO STOP LOCATION    *C01
      700   01 000D7    0F000116     MSTOP5   XPSD,0   STPXPSDL                                          *C01
      701   01 000D8    E804000F A            B        *15,2             EXIT                            *C01
      702   01 000D9    02200000 A   MSTOP6   LCI      0                                                 *C01
      703   01 000DA    2B000506              STM,0    REGSAVE           SAVE GOTO ENVIROMENT            *C01
      704   01 000DB    12800116              LD,8     STPXPSDL          SAVE ENVIROMENT                 *C01
      705   01 000DC    6AF00094              BAL,15   SAVEENVI          SAVE ENVIROMENT                 *C01
      706   01 000DD    32C00516              LW,12    REGSAVE+16        CONVERT                         *C01
      707   01 000DE    EAF00218 A            BAL,15   *MLT24                PSW1                        *C01
      708   01 000DF    35F0066D              STW,15   MSTOPMG2+3            TO                          *C01
      709   01 000E0    EAF00218 A            BAL,15   *MLT24                HEX AND                     *C01
      710   01 000E1    35F0066C              STW,15   MSTOPMG2+2            STORE IN MSG                *C01
      711   01 000E2    32C00517              LW,12    REGSAVE+17        CONVERT                         *C01
      712   01 000E3    EAF00218 A            BAL,15   *MLT24                PSW2                        *C01
      713   01 000E4    35F00671              STW,15   MSTOPMG2+7            TO                          *C01
      714   01 000E5    EAF00218 A            BAL,15   *MLT24                HEX AND                     *C01
      715   01 000E6    35F00670              STW,15   MSTOPMG2+6          SAVE                          *C01
      716   01 000E7    22C00506              LI,12    REGSAVE           CONVERT                         *C01
      717   01 000E8    EAF00218 A            BAL,15   *MLT24                GOTO ENVIROMENT ADDRESS     *C01
      718   01 000E9    35F00104              STW,15   MSTOPMG1+7            TO HEX AND SAVE             *C01
      719   01 000EA    EAF00218 A            BAL,15   *MLT24                                            *C01
      720   01 000EB    75F60103              STB,15   MSTOPMG1+6,3                                      *C01
      721   01 000EC    32C0011C              LW,12    STOPADR           FETCH STOP ADDRESS              *C01
      722   01 000ED    EAF00218 A            BAL,15   *MLT24            CONVERT P1 TO HEX               *C01
      723   01 000EE    35F00109              STW,15   MSTOPMG3+4        STORE IN MESSAGE                *C01
      724   01 000EF    EAF00218 A            BAL,15   *MLT24                                            *C01
      725   01 000F0    75F60108              STB,15   MSTOPMG3+3,3                                      *C01
      726   01 000F1    EAF00223 A            BAL,15   *MLT35                                            *C01
      727   01 000F2    00000105              DATA     MSTOPMG3          'STOPPED AT LOC XXXXX'          *C01
      728   01 000F3    EAF00223 A            BAL,15   *MLT35            PRINT                           *C01
      729   01 000F4    000000FD              DATA     MSTOPMG1          'SAVED GOTO ENVIROMEND ADDR: XXXX'
      730   01 000F5    EAF00223 A            BAL,15   *MLT35            PRINT                           *C01
      731   01 000F6    0000066A              DATA     MSTOPMG2          'PSW1 = XXXXXXXX PSW2 = XXXXXXXX'*C0
      732   01 000F7    22E000CD              LI,14    MSTOP4            CONTINUE ADDRESS                *C01
      733   01 000F8    32F00516              LW,15    REGSAVE+16                                        *C01
      734   01 000F9    4BF00BD2              AND,15   =X'FFFE0000'                                      *C01
      735   01 000FA    49E0000F A            OR,14    15                SAVE ADDRESS                    *C01
      736   01 000FB    35E00516              STW,14   REGSAVE+16                                        *C01
      737   01 000FC    E8000210 A            B        *MLT16                                            *C01
      738   01 000FD    1FE2C1E5 A   MSTOPMG1 TEXTC    'SAVED GOTO ENVIROMENT ADR XXXXX'                 *C01
            01 000FE    C5C440C7 A
            01 000FF    D6E3D640 A
            01 00100    C5D5E5C9 A
            01 00101    D9D6D4C5 A
            01 00102    D5E340C1 A
            01 00103    C4D940E7 A
            01 00104    E7E7E7E7 A
      739   01 00105    13E2E3D6 A   MSTOPMG3 TEXTC    'STOPED AT LOC XXXXX'                             *C01
            01 00106    D7C5C440 A
            01 00107    C1E340D3 A
            01 00108    D6C340E7 A
            01 00109    E7E7E7E7 A
      740   01 0010A    02200040 A   RESTENVI LCI      4                                                 *C01
      741   01 0010B    2AB00518              LM,11    REGSAVE+18                                        *C01
      742   01 0010C    02200040 A            LCI      4                                                 *C01
      743   01 0010D    2BB00201 A            STM,11   P1                RESTORE PARAMETERS              *C01
      744   01 0010E    32B0051C              LW,11    REGSAVE+22                                        *C01
      745   01 0010F    35B0030F A            STW,11   PIT15             RESTORE PIT TABLE               *C01
      746   01 00110    32B0051D              LW,11    REGSAVE+23                                        *C01
      747   01 00111    35B00316              STW,11   RUNMODE           RESTORE RUNMODE                 *C01
      748   01 00112    32B0051F              LW,11    REGSAVE+25        RESTORE COUNTER 4 COUNT         *C01
      749   01 00113    B5B00093              STW,11   *CNTR4ADR                                         *C01
      750   01 00114    E800000F A            B        *15               RESTORE MESSAGE MODE            *C01
      751                                     BOUND    8                                                 *C01
      752   01 00116    00000000 A   STPXPSDL DATA     0,0                                               *C01
            01 00117    00000000 A
      753   01 00118    000000D9              DATA     MSTOP6                                            *C01
      754   01 00119    07000000 A            DATA     X'07000000'                                       *C01
      755   01 0011A    680000D7     STPXPSD  B        MSTOP5                                            *C01
      756   01 0011B    00000000 A   STOPFLG  DATA     0                                                 *C01
      757   01 0011C                 STOPADR  RES      1                                                 *C01
      758   01 0011D    00000000 A   STOPINST DATA     0                                                 *C01
      759   01 0011E    00000000 A   IOCDADR  DATA     0                                                 *C01
      760                            *                                                                   *C01
      761                            * EXECUTIE  EXECUTIVE HANDLING OF INPUT AND OUTPUT ROUTINE          *C01
      762                            *                                                                   *C01
      763   01 0011F    32E0014F     EXECUTE  LW,14    IOFLAG            IO CONTROL FLAG                 *C01
      764   01 00120    21E00000 A            CI,14    0                 IO CONTROL FLAG:0               *C01
      765   01 00121    6920013B              BG       EXEC4             IO CONTROL FLAG > 0 (INPUT)     *C01
      766   01 00122    2130005A A   EXEC1    CI,3     X'5A'             IS IT EXCLAM. CHAR (!)          *C01
      767   01 00123    69300360              BNE      CCPEXIT           B: NO, EXIT                     *C01
      768   01 00124    32E00316     EXEC2    LW,14    RUNMODE           RUNMODE:-1                      *C01
      769   01 00125    68100135              BGEZ     EXEC3             B: RUNMODE <> -1                *C01
      770   01 00126    32800160              LW,8     COMSAVE+16        FETCH PSD WORD                  *C01
      771   01 00127    4B800BD1              AND,8    =X'1FFFF'         FETCH ADDR                      *C01
      772   01 00128    21800000              CI,8     REMSIZE           IS IT WITHIN DPM                *C01
      773   01 00129    6910012C              BL       EXEC2A            B: NOT IN DPM                   *C01
      774   01 0012A    33100A00              MTW,1    BREAKFLG          SET BREAK FLAG                  *C01
      775   01 0012B    6800020C              B        COMEXIT           EXIT                            *C01
      776   01 0012C    32E00092     EXEC2A   LW,14    GOTOFLG           GOTOFLG:0                       *C01
      777   01 0012D    E9300214 A            BNEZ     *MLT20            B: NOT   0, RETURN TO DIRECTIVE MODE
      778   01 0012E    02200000 A            LCI      0                                                 *C01
      779   01 0012F    2A000150              LM,0     COMSAVE           SWITCH ENVIROMENT LOCATION      *C01
      780   01 00130    02200000 A            LCI      0                     FROM SAVECOM                *C01
      781   01 00131    2B000506              STM,0    REGSAVE               TO ENVIRMNT                 *C01
      782   01 00132    12800160              LD,8     COMSAVE+16                                        *C01
      783   01 00133    6AF00094              BAL,15   SAVEENVI          SAVE ENVIROMENT                 *C01
      784   01 00134    E8000214 A            B        *MLT20            RETURN TO DIRECTIVE MODE        *C01
      785   01 00135    32E0014F     EXEC3    LW,14    IOFLAG            IO CONTROL FLAG                 *C01
      786   01 00136    21E00002 A            CI,14    2                 IS IT TEST INPUT                *C01
      787   01 00137    E8300210 A            BE       *MLT16            B: YES, RETURN TO DIRECTIVE MODE*C01
      788   01 00138    21EFFFFE A            CI,14    -2                IS IT TEST OUTPUT               *C01
      789   01 00139    E8300210 A            BE       *MLT16            B: YES, RETURN TO DIRECTIVE MODE*C01
      790   01 0013A    E8000214 A            B        *MLT20            RETURN TO DIRECTIVE MODE        *C01
      791   01 0013B    22200002 A   EXEC4    LI,2     2                                                 *C01
      792   01 0013C    3120014F              CW,2     IOFLAG            IS IT TEST INPUT                *C01
      793   01 0013D    68300122              BE       EXEC1             B: YES                          *C01
      794   01 0013E    32E00316              LW,14    RUNMODE           IS IT RUN MODE                  *C01
      795   01 0013F    6910014D              BLZ      EXEC7             B: YES                          *C01
      796   01 00140    2130004D A            CI,3     X'4D'             IS IT START OF MSG              *C01
      797   01 00141    69300144              BNE      EXEC5             B: NO                           *C01
      798   01 00142    33100317              MTW,1    MSGMODE           SET MESSAGE MODE                *E03
      799   01 00143    E800000F A            B        *15               EXIT                            *C01
      800   01 00144    2130005D A   EXEC5    CI,3     X'5D'             IS IT END OF MSG                *C01
      801   01 00145    69300149              BNE      EXEC6             B: NO                           *C01
      802   01 00146    22E00000 A            LI,14    0                                                 *C01
      803   01 00147    35E00317              STW,14   MSGMODE           RESET MESSAGE MODE              *C01
      804   01 00148    E800000F A            B        *15               EXIT                            *C01
      805   01 00149    2130005A A   EXEC6    CI,3     X'5A'             IS IT EXCLAM CHAR (!)           *C01
      806   01 0014A    68300124              BE       EXEC2             B: EQUAL                        *C01
      807   01 0014B    32E00317              LW,14    MSGMODE           IS IT MESSAGE MODE              *C01
      808   01 0014C    E930000F A            BNEZ     *15               B: NO, EXIT                     *C01
      809   01 0014D    75300B6E     EXEC7    STB,3    BUFFER01          STORE CHAR IN MSB OF BUFFER01   *C01
      810   01 0014E    68000360              B        CCPEXIT           EXIT                            *C01
      811   01 0014F    00000000 A   IOFLAG   DATA     0                                                 *C01
      812                                     BOUND    8                                                 *C01
      813   01 00150                 COMSAVE  RES      18                                                *C01
      814                            *                                                                   *C01
      815                            * CLK3COMP - COMPUTE COUNTER 3 FOR ACCEPTABLE FREQUENCY             *C01
      816                            * CLK3GO - INITIALIZE COUNTER 3                                     *C01
      817                            * CLK3INT - COUNTER 3 INTERRUPT                                     *C01
      818                            *                                                                   *C01
      819   01 00162    35F001AE     CLK3COMP STW,15   RETURNC           SAVE RETURN                     *C01
      820   01 00163    6AF007EB              BAL,15   M00311            RESET INTERRUPTS, DEVICES AND MODE
      821   01 00164    32E00190              LW,14    CLK3LOCM          SET UP                          *C01
      822   01 00165    35E00054 A            STW,14   X'54'                 COUNTER 3                   *C01
      823   01 00166    32E00191              LW,14    CLK4LOCM          SET UP                          *C01
      824   01 00167    35E00055 A            STW,14   X'55'                 COUNTER 4                   *C01
      825   01 00168    22E00000 A            LI,14    0                                                 *C01
      826   01 00169    35E001A8              STW,14   CLK4LOC           RESET CLOCK 4 LOCATION          *C01
      827   01 0016A    22E03000 A            LI,14    X'3000'           ARM AND ENABLE                  *C01
      828   01 0016B    6DE01200 A            WD,14    X'1200'               COUNTER 3 AND 4             *C01
      829   01 0016C    22200002 A            LI,2     2                                                 *C01
      830   01 0016D    312001A8              CW,2     CLK4LOC           IS IT IN SYNC                   *C01
      831   01 0016E    6920016D              BG       %-1               B: LOOP TILL IN SYNC            *C01
      832   01 0016F    22E00000 A            LI,14    0                                                 *C01
      833   01 00170    35E001A7              STW,14   CLK3LOC           RESET CLOCK 3 LOCATION          *C01
      834   01 00171    22E00101 A            LI,14    257                                               *C01
      835   01 00172    31E001A8              CW,14    CLK4LOC           HAS .5 SEC ELAPSED              *C01
      836   01 00173    68100172              BGE      %-1               B: LOOP TILL .5 SEC ELAPSED     *C01
      837   01 00174    22E030C0 A            LI,14    X'30C0'           DISARM                          *C01
      838   01 00175    6DE01100 A            WD,14    X'1100'               COUNTER 4                   *C01
      839   01 00176    32F001A7              LW,15    CLK3LOC                                           *C01
      840   01 00177    21F00005 A            CI,15    5                 IS COUNTER 3 FREQUENCY >= 10    *C01
      841   01 00178    6920017C              BG       CCOMP1            B: YES                          *C01
      842   01 00179    EAF00223 A            BAL,15   *MLT35            PRINT                           *C01
      843   01 0017A    0000018C              DATA     CNTR3MSG          'CNTR 3 < 10 HRZ'               *C01
      844   01 0017B    6800052F              B        M00000            DON'T CONNECT REMOTE            *C01
      845   01 0017C    22E00000 A   CCOMP1   LI,14    0                 COMPUTE                         *C01
      846   01 0017D    36E00BD3              DW,14    =5                    NUMBER OF TICKS             *C01
      847   01 0017E    35F00318              STW,15   TICKS                 PER .1 SEC                  *C01
      848   01 0017F    32E00192              LW,14    CLK3INT           SAVE XPSD                       *C01
      849   01 00180    35E0005A A            STW,14   X'5A'                 IN X'5A'                    *C01
      850   01 00181    E80001AE              B        *RETURNC          EXIT                            *C01
      851                            *                                                                   *C01
      852   01 00182    22E02080 A   CLK3GO   LI,14    X'2080'           DISARM                          *C01
      853   01 00183    6DE01100 A            WD,14    X'1100'               COUNTER 3                   *C01
      854   01 00184    3AE00318              LCW,14   TICKS             INVERT                          *C01
      855   01 00185    35E001A7              STW,14   CLK3LOC           SAVE IN CLOCK 3 LOCATION        *C01
      856   01 00186    22EFFFEC A            LI,14    -20                                               *C01
      857   01 00187    35E00319              STW,14   2SEC              SAVE                            *C01
      858   01 00188    22E02080 A            LI,14    X'2080'           ARM AND ENABLE                  *C01
      859   01 00189    6DE01200 A            WD,14    X'1200'               COUNTER 3                   *C01
      860   01 0018A    6DE00024 A            WD,14    X'24'             RESET COUNTER INHIBIT FLAG      *C01
      861   01 0018B    E800000F A            B        *15               EXIT                            *C01
      862   01 0018C    0FC3D5E3 A   CNTR3MSG TEXTC    'CNTR 3 < 10 HRZ'                                 *C01
            01 0018D    D940F340 A
            01 0018E    4C40F1F0 A
            01 0018F    40C8D9E9 A
      863   01 00190    331001A7     CLK3LOCM MTW,1    CLK3LOC                                           *C01
      864   01 00191    331001A8     CLK4LOCM MTW,1    CLK4LOC                                           *C01

        2*  01 00192    0F0001AA     CLK3INT  XPSD,0   CL3XPSDL                                          *H02

        4*  01 00193    2B000150     CLK3INT1 STM,0    COMSAVE           SAVE ALL REGISTERS              *H02

        6*  01 00194    33100238 A            MTW,1    MLT56             UPDATE 10HZ USER TIMER          *H02

      870   01 00195    12E001AA              LD,14    CL3XPSDL          SAVE                            *C01
      871   01 00196    15E00160              STD,14   COMSAVE+16            PSDW                        *C01
      872   01 00197    33000A00              MTW,0    BREAKFLG          IS BREAK FLAG SET               *C01
      873   01 00198    6830019E              BEZ      CLK3INT2          B: NO                           *C01
      874   01 00199    4BE00BD1              AND,14   =X'1FFFF'         FETCH ADDRESS                   *C01
      875   01 0019A    21E00000              CI,14    REMSIZE           IS IT IN  DPM                   *C01
      876   01 0019B    6910012C              BL       EXEC2A            B: NO                           *C01
      877   01 0019C    21E009FA              CI,14    M05080            HAS IT INTERRUPTED              *C01
      878   01 0019D    6830012C              BE       EXEC2A            B: YES                          *C01
      879   01 0019E    22E00000 A   CLK3INT2 LI,14    0                                                 *C01
      880   01 0019F    35E0014F              STW,14   IOFLAG            RESET IO FLAG                   *C01
      881   01 001A0    6AF0031F              BAL,15   CCP                                               *C01
      882   01 001A1    33100319              MTW,1    2SEC              2SEC = 2SEC +1                  *C01
      883   01 001A2    33000319              MTW,0    2SEC              IS 2SEC > 0                     *C01
      884   01 001A3    6820020C              BCR,2    COMEXIT           B: NO                           *C01
      885   01 001A4    22EFFFEC A            LI,14    -20               YES                             *C01
      886   01 001A5    35E00319              STW,14   2SEC              SAVE -20 IN 2SEC                *C01
      887   01 001A6    6800020C              B        COMEXIT           EXIT                            *C01

      888   01 001A7    00000000 A   CLK3LOC  DATA     0                                                 *C01
      889   01 001A8    00000000 A   CLK4LOC  DATA     0                                                 *C01

      890                                     BOUND    8                                                 *C01
      891   01 001AA    00000000 A   CL3XPSDL DATA     0,0                                               *C01
            01 001AB    00000000 A
      892   01 001AC    00000193              DATA     CLK3INT1                                          *C01
      893   01 001AD    07000000 A            DATA     X'07000000'                                       *C01
      894   01 001AE    00000000 A   RETURNC  DATA     0                                                 *C01
      895                            *                                                                   *C01
      896                            * REMOUT - REMOTE OUTPUT SUBROUTINE                                 *C01
      897                            *                                                                   *C01
      898   01 001AF    0F0001DE     REMOUT   XPSD,0   ROXPSDL                                           *C01
      899   01 001B0    22200002 A            LI,2     2                                                 *C01
      900   01 001B1    E804000F A            B        *15,2             EXIT                            *C01
      901   01 001B2    02200000 A   REMOUT1  LCI      0                                                 *C01
      902   01 001B3    2B000150              STM,0    COMSAVE               ALL REGISTERS               *C01
      903   01 001B4    12E001DE              LD,14    ROXPSDL           SAVE                            *C01
      904   01 001B5    15E00160              STD,14   COMSAVE+16            PSDW                        *C01
      905   01 001B6    32E00BCA              LW,14    COCDEV            COCDEV:0                        *C01
      906   01 001B7    21E0007F A            CI,14    X'7F'                                             *D02
      907   01 001B8    693001C9              BNE      ROUTE1            B: COCDEV <> 0                  *D02
      908   01 001B9    B2E0015F              LW,14    *COMSAVE+15       GET                             *C01
      909   01 001BA    B2E0000E A            LW,14    *14                   ADDRESS                     *C01
      910   01 001BB    4BE00BD4              AND,14   =X'1FFF'                                          *C01
      911   01 001BC    31E00224 A            CW,14    MLT36             IS IT KSR                       *C01
      912   01 001BD    683001C9              BE       ROUTE1            B: YES                          *C01
      913   01 001BE    72E00220 A            LB,14    MLT32             IS BYTE 0 OF MLT32 = 0          *C01
      914   01 001BF    683001C9              BEZ      ROUTE1            B: YES                          *C01
      915   01 001C0    6AF00384              BAL,15   SIOTTY            START TTY                       *C01
      916   01 001C1    22EFFFFE A            LI,14    -2                                                *C01
      917   01 001C2    35E0014F              STW,14   IOFLAG            SET TTY TESTING OUTPUT          *C01
      918   01 001C3    32000150              LW,0     COMSAVE           GET IOCD ADDR                   *C01
      919   01 001C4    6AF00A93              BAL,15   M22000            OUTPUT                          *C01
      920   01 001C5    8000015C              GEN,1,31 1,COMSAVE+12                                      *C01
      921   01 001C6    E8000210 A            B        *MLT16            ERROR                           *C01
      922   01 001C7    6AF0031F              BAL,15   CCP               GET INPUT                       *C01
      923   01 001C8    6800020C              B        COMEXIT           EXIT                            *C01
      924         01 001C9           REMOUTE  EQU      %                                                 *C01
      925         01 001C9           REMOUTE1 EQU      %                                                 *C01
      926   01 001C9    22EFFFFF A   ROUTE1   LI,14    -1                                                *C01
      927   01 001CA    35E0014F              STW,14   IOFLAG            SET OUTPUT                      *C01
      928   01 001CB    3500011E              STW,0    IOCDADR           SAVE IOCD ADDRESS               *C01
      929   01 001CC    32E0011E     ROUTE2   LW,14    IOCDADR           IOCD ADDRESS (DW)               *C01
      930   01 001CD    25E00001 A            SLS,14   1                 IOCD ADDRESS (W)                *C01
      931   01 001CE    B240000E A            LW,4     *14               FIRST IOCD                      *C01
      932   01 001CF    22100001 A            LI,1     1                                                 *C01
      933   01 001D0    31400BD5              CW,4     =X'8000000'       IS IT TIC                       *C01
      934   01 001D1    684001D4              BCR,4    %+3               B: NO                           *C01
      935   01 001D2    5542011E              STH,4    IOCDADR,1         IOCD ADDR                       *C01
      936   01 001D3    680001CC              B        ROUTE2                                            *C01
      937   01 001D4    4B400BD6              AND,4    =X'7FFFF'         BYTE ADDR IN R4                 *C01
      938   01 001D5    3310000E A            MTW,1    14                IOCD ADDR = IOCD ADDR +1        *C01
      939   01 001D6    D252000E A            LH,5     *14,1             BYTE COUNT IN R5                *C01
      940   01 001D7    6AF00418              BAL,15   MSGOUT            OUTPUT MSG                      *C01
      941   01 001D8    F2F0000E A            LB,15    *14               ORDER                           *C01
      942   01 001D9    21F00080 A            CI,15    X'80'             IS IT DATA CHAIN                *C01
      943   01 001DA    684001DD              BCR,4    %+3               B: NO                           *C01
      944   01 001DB    3310011E              MTW,1    IOCDADR           YES, IOCD ADDR = IOCD ADDR +1   *C01
      945   01 001DC    680001CC              B        ROUTE2                                            *C01
      946   01 001DD    6800020C              B        COMEXIT           EXIT                            *C01
      947                                     BOUND    8                                                 *C01
      948   01 001DE    00000000 A   ROXPSDL  DATA     0,0                                               *C01
            01 001DF    00000000 A
      949   01 001E0    000001B2              DATA     REMOUT1                                           *C01
      950   01 001E1    07000000 A            DATA     X'07000000'                                       *C01
      951   01 001E2    33F001E3     ROMTW    MTW,-1   ROMTWDC                                           *C01
      952   01 001E3    00000000 A   ROMTWDC  DATA     0                                                 *C01
      953   01 001E4    00000000 A   ROEXPSDL DATA     0,0                                               *C01
            01 001E5    00000000 A
      954   01 001E6    000001C9              DATA     REMOUTE1                                          *C01
      955   01 001E7    07000000 A            DATA     X'07000000'                                       *C01
      956                            *        MLT51                                                      *C01
      957                            * REMIN - REMOTE INPUT SUBROUTINE                                   *C01
      958                            *                                                                   *C01
      959   01 001E8    0F000206     REMIN    XPSD,0   RIXPSDL                                           *C01
      960   01 001E9    22200002 A            LI,2     2                                                 *C01
      961   01 001EA    E804000F A            B        *15,2                                             *C01
      962   01 001EB    02200000 A   REMIN1   LCI      0                                                 *C01
      963   01 001EC    2B000150              STM,0    COMSAVE           SAVE REG 0-16                   *C01
      964   01 001ED    12E00206              LD,14    RIXPSDL           SAVE                            *C01
      965   01 001EE    15E00160              STD,14   COMSAVE+16            PSDW                        *C01
      966   01 001EF    32E00BCA              LW,14    COCDEV            COCDEV=0                        *C01
      967   01 001F0    21E0007F A            CI,14    X'7F'                                             *D02
      968   01 001F1    683001F6              BE       RIN2              B: YES                          *D02
      969   01 001F2    6AF00384     RIN1     BAL,15  SIOTTY            START TTY                        *C01
      970   01 001F3    22100001 A            LI,1     1                                                 *C01
      971   01 001F4    3510014F              STW,1    IOFLAG            SET IO CONTROL FLAG             *C01
      972   01 001F5    68000204              B        RIN3                                              *C01
      973   01 001F6    B2E0015F     RIN2     LW,14    *COMSAVE+15       GET                             *C01
      974   01 001F7    B2E0000E A            LW,14    *14                   ADDRESS                     *C01
      975   01 001F8    4BE00BD4              AND,14   =X'1FFF'                                          *C01
      976   01 001F9    31E00224 A            CW,14    MLT36             IS IT KSR                       *C01
      977   01 001FA    683001F2              BE       RIN1              B: YES                          *C01
      978   01 001FB    72E00220 A            LB,14    MLT32             MLT32 BYTE:0                    *C01
      979   01 001FC    683001F2              BEZ      RIN1              B:EQUAL 0                       *C01
      980   01 001FD    6AF00384              BAL,15   SIOTTY            START TTY                       *C01
      981   01 001FE    22200002 A            LI,2     2                                                 *C01
      982   01 001FF    3520014F              STW,2    IOFLAG            SET 2 IN IOFLAG                 *C01
      983   01 00200    32000150              LW,0     COMSAVE           GET IOCD ADDR                   *C01
      984   01 00201    6AF00A93              BAL,15   M22000            GET INPUT                       *C01
      985   01 00202    0000015C              GEN,1,31 0,COMSAVE+12                                      *C01
      986   01 00203    E8000210 A            B        *MLT16            NORMAL RETURN                   *C01
      987   01 00204    6AF0031F     RIN3     BAL,15   CCP               GET INPUT                       *C01
      988   01 00205    6800020C              B        COMEXIT                                           *C01
      989                                     BOUND    8                                                 *C01
      990   01 00206    00000000 A   RIXPSDL  DATA     0,0                                               *C01
            01 00207    00000000 A
      991   01 00208    000001EB              DATA     REMIN1                                            *C01
      992   01 00209    07000000 A            DATA     X'07000000'                                       *C01
      993   01 0020A    33F0020B     RIMTW    MTW,-1   RIMTWDC                                           *C01
      994   01 0020B    00000000 A   RIMTWDC  DATA     0                                                 *C01
      995                            *                                                                   *C01
      996                            *                                                                   *C01
      997   01 0020C    3AE00318     COMEXIT  LCW,14   TICKS                                             *C01
      998   01 0020D    35E001A7              STW,14   CLK3LOC           SAVE                            *C01
      999   01 0020E    22E02000 A            LI,14    X'2000'           ARM AND ENABLE                  *C01
     1000   01 0020F    6DE01200 A            WD,14    X'1200'                                           *C01
     1001   01 00210    02200000 A            LCI      0                                                 *C01
     1002   01 00211    2A000150              LM,0     COMSAVE           RESTORE REGISTERS               *C01
     1003   01 00212    3300014F              MTW,0    IOFLAG            TEST IO FLAG                    *C01
     1004   01 00213    69300215              BNEZ     %+2                                               *C01
     1005   01 00214    0E300160              LPSD,3   COMSAVE+16        EXIT                            *C01
     1006   01 00215    0E000160              LPSD,0   COMSAVE+16        EXIT                            *C01
     1007                            *                                                                   *C01
     1008                            *                                                                   *C01
     1009                            * REMSWAP - SWAP ROUTINE                                            *C01
     1010                            * CALLING SEQUENCE                                                  *C01
     1011                            *         !SWAP                                                     *C01
     1012                            * THIS ROUTINE SWITCH CONTROL BETWEEN CONTROLLER AND OBSERVER.      *C01
     1013                            * IF COC NOT LOGGED ON IT WILL PRINT OUT MESSAGE 'NOBODY LOGGED     *C01
     1014                            * ON'                                                               *C01
     1015   01 00216    6AF003E7     REMSWAP  BAL,15   SWAP              SWITCH CONTROL BETWEEN CTRL AND OBS
     1016   01 00217    E8000210 A            B        *MLT16            SWAPPED, EXIT                   *C01
     1017   01 00218    EAF00223 A            BAL,15   *MLT35            PRINT MESSAGE                   *C01
     1018   01 00219    0000021B              DATA     RSWAPMSG          'NOBODY LOGGED ON'              *C01
     1019   01 0021A    E8000210 A            B        *MLT16            EXIT                            *C01
     1020   01 0021B    12D3C9D5 A   RSWAPMSG TEXTC    'LINE NOT LOGGED-ON'                              *E02
            01 0021C    C540D5D6 A
            01 0021D    E340D3D6 A
            01 0021E    C7C7C5C4 A
            01 0021F    60D6D540 A
     1021                            *                                                                   *C01
     1022                            * LOG DIRECTIVE                                                     *C01
     1023                            * CALLING SEQUENCE                                                  *C01
     1024                            *        !LOG,PASSWORD,COC ADDR,DIO ADDR                            *C01
     1025                            * WHERE P1 = PASSWORD                                               *C01
     1026                            *       P2 = COC DEVICE ADDRESS                                     *C01
     1027                            *       P3 = DIO ADDRESS                                            *C01
     1028   01 00220    71220211 A   LOG      CB,2     MLT17,1           ERROR IF PARAMETER              *E02
     1029   01 00221    6920022C              BG       LOG1               COUNT .LT. 2                   *E02
     1030   01 00222    32E00201 A            LW,14    P1                PASSWORD                        *C01
     1031   01 00223    35E0031E              STW,14   PASSWORD          SAVE                            *C01
     1032   01 00224    32E00202 A            LW,14    P2                COC DEVICE ADDR                 *C01
     1033   01 00225    35E00BCA              STW,14   COCDEV            SAVE                            *C01
     1034   01 00226    CFC00BCA              HIO,12   *COCDEV           CHECK FOR ADDR RECOGNIZED       *C01
     1035   01 00227    69800231              BCS,8    LOG2              ADDR NOT RECOGNIZED             *C01
     1036   01 00228    33100902              MTW,1    LOGFLAG           SET LOGGED ON FLAG              *C01
     1037   01 00229    32400203 A            LW,4     P3                DIO ADDR                        *C01
     1038   01 0022A    6AF00412              BAL,15   SETDIO            SET DIO                         *C01
     1039   01 0022B    E8000210 A            B        *MLT16            EXIT                            *C01
     1040   01 0022C    72E20211 A   LOG1     LB,14    MLT17,1           PARAMETER  IN ERROR             *C01
     1041   01 0022D    35E0030A A            STW,14   PIT10             SAVE                            *C01
     1042   01 0022E    EAF00229 A            BAL,15   *MLT41            REPORT PARAMETER ERROR          *C01
     1043   01 0022F    000002E5              DATA     DICTR+12          'LOG'                           *C01
     1044   01 00230    E8000210 A            B        *MLT16            EXIT                            *C01
     1045   01 00231    EAF00223 A   LOG2     BAL,15   *MLT35            PRINT ERROR MESSAGE             *C01
     1046   01 00232    00000234              DATA     LOGMSG            'COC DEVICE NOT RECOGNIZED'     *C01
     1047   01 00233    E8000210 A            B        *MLT16            EXIT                            *C01
     1048   01 00234    19C3D6C3 A   LOGMSG   TEXTC    'COC DEVICE NOT RECOGNIZED'                       *C01
            01 00235    40C4C5E5 A
            01 00236    C9C3C540 A
            01 00237    D5D6E340 A
            01 00238    D9C5C3D6 A
            01 00239    C7D5C9E9 A
            01 0023A    C5C44040 A
     1049                            *                                                                   *C01
     1050                            *                                                                   *C01
     1051                            * !RSET  RESET I/O DIRECTIVE                                        *C01
     1052                            *                                                                   *C01
     1053   01 0023B    33000225 A   RSET     MTW,0    MLT37             SKIP IF NOT SIGMA 5/6/7         *G01
     1054   01 0023C    69300247              BNEZ     RSET2                                             *G01

     1056   01 0023D    6D000044 A            WD,0     X'44'             SIGMA 5/7  RESET INTERGRAL IOP  *C01
     1057   01 0023E    3300060C              MTW,0    RSTFLG            IS RESET JUMPER INSTALLED       *C01
     1058   01 0023F    68300243              BEZ      RSET1             B: YES, JUMPER INSTALLED        *C01
     1059   01 00240    EAF00223 A            BAL,15   *MLT35            PRINT MESSAGE                   *C01
     1060   01 00241    00000253              DATA     RSETMSG           'NEED MANUAL RESET'             *C01
     1061   01 00242    E8000210 A            B        *MLT16            EXIT                            *C01

     1063   01 00243    6D000037 A   RSET1    WD,0     X'37'             INHIBIT ALL INTERRUPTS          *G01
     1064   01 00244    6AF005FE              BAL,15   IO:TGL             TOGGLE MUSIC FLIP/FLOP         *G01
     1065   01 00245    6AF007EB              BAL,15   M00311            RESET DEVICE AND MODE           *C01
     1066   01 00246    6800024D              B        RSET3                                             *G01

     1068   01 00247    6D000037 A   RSET2    WD,0     X'37'             INHIBIT ALL INTERRUPTS          *G01
     1069   01 00248    225FFFE4 A            LI,5     -28                INITIALIZE FOR ALL MIOPS       *G01
     1070   01 00249    22404000 A            LI,4     X'4000'           *RIO* TO ALL IOP                *C01
     1071   01 0024A    CF000004 A            HIO,0    *4                ** RIO COMMAND **               *C01
     1072   01 0024B    20400100 A            AI,4     X'100'            NEXT IOP                        *C01
     1073   01 0024C    6550024A              BIR,5    %-2               LOOP TILL ALL IOP DONE          *C01

     1075         01 0024D           RSET3    EQU      %                                                 *G01
     1076   01 0024D    22E00190 A            LI,14    400               DELAY FOR 400                   *G01
     1077   01 0024E    22F003E8 A            LI,15    1000               MILLISECONDS                   *G01
     1078   01 0024F    64F0024F              BDR,15   %                                                 *G01
     1079   01 00250    64E0024E              BDR,14   %-2                                               *G01

     1081   01 00251    6D000027 A            WD,0     X'27'             REMOVE INTERRUPT INHIBITS       *G01
     1082   01 00252    E8000210 A            B        *MLT16             AND RETURN                     *G01

     1084   01 00253    11D5C5C5 A   RSETMSG  TEXTC    'NEED MANUAL RESET'                               *C01
            01 00254    C440D4C1 A
            01 00255    D5E4C1D3 A
            01 00256    40D9C5E2 A
            01 00257    C5E34040 A
     1085                            *                                                                   *C01
     1086                            * !BOOT  DPM BOOT DIRECTIVE                                         *C01
     1087                            *                                                                   *C01
        1*  01 00258    6C000000 A   BOOT     RD,0     0                 TEST SENSE SWITCHES             *H02
     1091   01 00259    68F0025D              BCR,15   BOOT2             B: SENSE SWITCH OFF             *D00
     1092   01 0025A    EAF00223 A            BAL,15   *MLT35            'TURN OFF SENSE SWITCH'         *D00
     1093   01 0025B    0000028D              DATA     SWONMSG                                           *D00
     1094   01 0025C    E8000210 A            B        *MLT16            EXIT                            *D00

     1096   01 0025D    32F00201 A   BOOT2    LW,15    P1                FETCH POSSIBLE PARAMETER        *E01
     1097   01 0025E    73020211 A            MTB,0    MLT17,1            CHECK FOR ACTUAL PRESENCE      *E01
     1098   01 0025F    69300261              BNEZ     %+2                 KEEP IF INDEED THERE          *E01
     1099   01 00260    32F00222 A            LW,15    MLT34                ELSE DEFAULT TO LOAD DEVICE  *E01
     1100   01 00261    35F0027F              STW,15   DEV                                               *E01

     1102   01 00262    22000FFF A            LI,0     X'FFF'            DO GENERAL I/O HALT             *G02
     1103   01 00263    CF000000 A            HIO,0    *0                                                *G02
     1104   01 00264    64000263              BDR,0    %-1                                               *G02

     1106   01 00265    CD00027F              TIO,0    *DEV              CHECK BOOT DEVICE               *G02
     1107   01 00266    68C0026A              BCR,8+4  BOOT3              AND SKIP ON ERROR              *G02

     1109   01 00267    EAF00223 A            BAL,15   *MLT35            ELSE ISSUE ERROR MESSAGE        *G02
     1110   01 00268    00000288              DATA     BDEVMSG                                           *G02
     1111   01 00269    E8000210 A            B        *MLT16                                            *G01

     1113   01 0026A    6AF007EB     BOOT3    BAL,15   M00311            RESET INTERRUPTS                *G01

     1115   01 0026B    022000C0 A            LCI      12                RESTORE HARDWARE BOOTSTRAP      *G00
     1116   01 0026C    2A00027C              LM,0     HRDWBT                                            *G00
     1117   01 0026D    2B000022 A            STM,0    X'22'                                             *G00

     1119   01 0026E    21300080 A            CI,3     X'80'             MODIFY BOOTSTRAP IF             *G00
     1120   01 0026F    69400271              BANZ     %+2                DEVICE IS NOT A MUC            *G00
     1121   01 00270    33100026 A            MTW,1    X'26'                                             *G00
     1122   01 00271    02200070 A            LCI      7                                                 *C01
     1123   01 00272    2A900BC8              LM,9     REMCODE           RESTORE COC INFORMATION         *C01

     1125   01 00273    02200040 A            LCI      4                                                 *C01
     1126   01 00274    2A100278              LM,1     CLR               LOAD REGISTERS                  *C01
     1127   01 00275    3250022E A            LW,5     MLT46                                             *C01
     1128   01 00276    205FFFD3 A            AI,5     -X'2D'                                            *G00
     1129   01 00277    68000002 A            B        2                                                 *C01

     1131   01 00278    00000000 A   CLR      DATA     0                                                 *C01
     1132   01 00279    351A002D A            STW,1    X'2D',5            (STARTING AT X'2E')            *G00
     1133   01 0027A    64500002 A            BDR,5    2                                                 *C01
     1134   01 0027B    68000026 A            B        X'26'                                             *C01

     1136   01 0027C    22100064 A   HRDWBT   LI,1     100               DELAY TO AVOID RATE ERRORS      *G00
     1137   01 0027D    64100023 A            BDR,1    X'23'                                             *C01
     1138   01 0027E    68000028 A            BCR,0    X'28'                                             *C01
     1139   01 0027F    00000000 A   DEV      DATA     0                                                 *C01
     1140   01 00280    22000015 A            LI,0     X'15'             DA(IOCD)                        *C01
     1141   01 00281    CC000025 A            SIO,0    *X'25'                                            *C01
     1142   01 00282    CD000025 A            TIO,0    *X'25'                                            *C01
     1143   01 00283    69C00022 A            BCS,12   X'22'                                             *C01

     1145   01 00284    33000094 A   IOCD     GEN,8,24 X'33',X'25'**2    SAME HARDWARE BOOT              *G00
     1146   01 00285    2E000002 A            GEN,8,24 X'2E',2            AS THE T-85 (ALSO WRONG)       *G00
     1147   01 00286    020000A8 A            GEN,8,24 X'02',X'2A'**2                                    *G00
     1148   01 00287    0E000058 A            GEN,8,24 X'0E',88                                          *G00

     1153   01 00288    10C4C5E5 A   BDEVMSG  TEXTC    'DEVICE NOT READY'                                *G01
            01 00289    C9C3C540 A
            01 0028A    D5D6E340 A
            01 0028B    D9C5C1C4 A
            01 0028C    E8404040 A
     1154   01 0028D    15E3E4D9 A   SWONMSG  TEXTC    'TURN OFF SENSE SWITCH'                           *D00
            01 0028E    D540D6C6 A
            01 0028F    C640E2C5 A
            01 00290    D5E2C540 A
            01 00291    E2E6C9E3 A
            01 00292    C3C84040 A
     1155                            *                                                                   *C01
     1156                            * CONNECT REMOTE                                                    *C01
     1157                            *                                                                   *C01
     1158   01 00293    35F002B3     REMCONNT STW,15   RETURNR           SAVE RETURN ADDR                *C01
     1159   01 00294    32E00BC8              LW,14    REMCODE           IS IT FROM MTL                  *C01
     1160   01 00295    31E00BD7              CW,14    =X'31415926'                                      *C01
     1161   01 00296    68300299              BE       %+3               B: YES                          *C01
     1162   01 00297    32E00224 A            LW,14    MLT36             TTY ADDRESS                     *C01
     1163   01 00298    35E00BC9              STW,14   TTYDEV            SAVE                            *C01
     1164   01 00299    6DE00034 A            WD,14    X'34'             SET CNTR INHIBIT                *C01
     1165   01 0029A    6AF00162              BAL,15   CLK3COMP          COMPUTE COUNTER 3               *C01
     1166   01 0029B    22E002B5              LI,14    M00020R           SWITCH                          *C01
     1167   01 0029C    35E00214 A            STW,14   MLT20                 RECOVERY LOCATION           *C01
     1168   01 0029D    22E001E8              LI,14    REMIN             SWITCH IO                       *C01
     1169   01 0029E    35E00233 A            STW,14   MLT51                 INPUT,                      *C01
     1170   01 0029F    22E001AF              LI,14    REMOUT                                            *C01
     1171   01 002A0    35E00234 A            STW,14   MLT52                 OUTPUT,                     *C01
     1172   01 002A1    22E001C9              LI,14    REMOUTE                                           *C01
     1173   01 002A2    35E00235 A            STW,14   MLT53                 REPORT                      *C01
     1174   01 002A3    22E00001              LI,14    :WAIT             SWITCH                          *C01
     1175   01 002A4    35E0022B A            STW,14   MLT43                 WAIT LOCATION               *C01
     1176   01 002A5    22E002FF              LI,14    DIRPP             CONNECT                         *C01
     1177   01 002A6    35E00236 A            STW,14   MLT54                 DIRECTIVE PREPROCESSOR      *C01
     1178   01 002A7    22E002D9              LI,14    DICTR             CONNECT                         *C01
     1179   01 002A8    35E0022C A            STW,14   MLT44                                             *C01
     1180   01 002A9    22E00026 A            LI,14    CNTDICTR              DIRECTORY                   *C01
     1181   01 002AA    35E0022D A            STW,14   MLT45                                             *C01
     1182   01 002AB    22E00000              LI,14    REMSIZE           LAST USABLE MEMORY LOC.         *C01
     1183   01 002AC    33F0000E A            MTW,-1   14                                                *C01
     1184   01 002AD    35E0022F A            STW,14   MLT47                                             *C01
     1185   01 002AE    22E002D8              LI,14    M34000R           CONNECT INTERRUPT INIT.RT.      *C01
     1186   01 002AF    35E00613              STW,14   M34000L                                           *C01
     1187   01 002B0    32E002B4              LW,14    REMINSTA           CONNECT REMOTE                   *C
     1188   01 002B1    35E00237 A            STW,14   MLT55                                               *C
     1189   01 002B2    E80002B3              B        *RETURNR          EXIT                            *C01
     1190   01 002B3    00000000 A   RETURNR  DATA     0                                                 *C01
     1191   01 002B4    E800000F A   REMINSTA B        *15                                                 *C
     1192                            *                                                                   *C01
     1193                            * REMOTE RE-ENTRY AFTER EXECUTION OF A DIRECTIVE                    *C01
     1194                            *                                                                   *C01
     1195   01 002B5    22E02080 A   M00020R  LI,14    X'2080'           DISARM                          *C01
     1196   01 002B6    6DE01100 A            WD,14    X'1100'               COUNTER 3                   *C01
     1197   01 002B7    6DE00034 A            WD,14    X'34'             INHIBIT COUNTER INTERRUPT       *C01
     1198   01 002B8    6AF007F6               BAL,15   M003151                                          *C01
     1199   01 002B9    35000316              STW,0    RUNMODE           RESET RUNMODE                   *C01
     1200   01 002BA    68000599              B        M000201           DIRECTORY RETURN ADDR           *C01
     1201   01 002BB    32E00BCA     M10000R  LW,14    COCDEV            COC DEVICE ADDRESS              *C01
     1202   01 002BC    21E0007F A            CI,14    X'7F'                                             *D02
     1203   01 002BD    683008AB              BE       M10000            GOTO MESSAGE OUTPUT DEVICE SUBR *D02
     1204   01 002BE    22400003 A            LI,4     3                 SET MOD INDEX                   *C01
     1205   01 002BF    680002C5              B        MSGSUBR           PRINT 'DIR. MOD NOT ALLOW'      *C01
     1206   01 002C0    32E00BCA     M11000R  LW,14    COCDEV            COC DEVICE ADDRESS              *C01
     1207   01 002C1    21E0007F A            CI,14    X'7F'                                             *D02
     1208   01 002C2    68300899              BE       M11000            GOTO MESSAGE INPUT DEVICE SUBR  *D02
     1209   01 002C3    22400004 A            LI,4     4                 SET MID INDEX                   *C01
     1210   01 002C4    680002C5              B        MSGSUBR           PRINT 'DIR. MID NOT ALLOW'      *C01
     1211   01 002C5    32E802D3     MSGSUBR  LW,14    MSGWORD,4         FETCH DIRECTIVE                 *C01
        1*  01 002C6    35E002CB              STW,14   MSGTEXT+1          STORE IN ERROR MESSAGE         *H02

     1213   01 002C7    EAF00223 A            BAL,15   *MLT35            PRINT MSG                       *C01
     1214   01 002C8    000002CA              DATA     MSGTEXT           ' DIR.  XXXX NOT ALLOW'         *C01
     1215   01 002C9    E8000210 A            B        *MLT16            EXIT                            *C01

        2*  01 002CA    21404040 A   MSGTEXT  TEXTC    '   XXXX NOT ALLOWED IF COC ACTIVE'               *H02
            01 002CB    E7E7E7E7 A
            01 002CC    40D5D6E3 A
            01 002CD    40C1D3D3 A
            01 002CE    D6E6C5C4 A
            01 002CF    40C9C640 A
            01 002D0    C3D6C340 A
            01 002D1    C1C3E3C9 A
            01 002D2    E5C54040 A
     1217   01 002D3    4040C7D6 A   MSGWORD  TEXT     '  GO GO1BOOT MOD MID'                            *C01
            01 002D4    40C7D6F1 A
            01 002D5    C2D6D6E3 A
            01 002D6    40D4D6C4 A
            01 002D7    40D4C9C4 A
     1218   01 002D8    E800000F A   M34000R  B        *15               D0N'T INITIALIZE INTERRUPTS     *C01
     1219                            *                                                                   *C01
     1220                            *                                                                   *C01
     1221                            * DIRECTIVE DICTIONARY                                              *C01
     1222                            *                                                                   *C01
     1223                            * TWO WORD ENTRY FOR EACH DIRECTIVE                                 *C01
     1224                            * FIRST WORD IS 4-BYTE MNEMONIC                                     *C01
     1225                            * SECOND WORD HAS FOUR 3-BIT TYPE CODES, BIT 0-11                   *C01
     1226                            * BIT 12 0/1 MAX 4/255 PARAMETERS                                   *C01
     1227                            * BIT 13 RETAIN GO TO ENVIROMENT                                    *C01
     1228                            * BIT 14 DPM DIRECTIVE                                              *C01
     1229                            * BIT 15-31 HOLD ADDRESS DIRECTIVE PROCESSOR                        *C01
     1230                            *                                                                   *C01
     1231   01 002D9    00C1D3E3 A   DICTR    DATA     C'ALT'            ALT, ALTER                      *C01
     1232   01 002DA    000E08BC              GEN,15,17 O'00007',M09000  HEX CODES, MAX 255 PARAMETERS   *C01
     1233   01 002DB    00C4D4D7 A            DATA     C'DMP'            DMP, DUMP                       *C01
     1234   01 002DC    007608C9              GEN,15,17 O'00073',M08000  3 HEX CODES, MAX 3 PARAMETERS   *C01
     1235   01 002DD    00D4D6C4 A            DATA     C'MOD'            MOD, MESSAGE OUTPUT DEVICE      *C01
     1236   01 002DE    438602BB              GEN,15,17 O'20703',M10000R 1 A/N, 1 HEX CODE               *C01
     1237   01 002DF    00D4C9C4 A            DATA     C'MID'            MID, MESSAGE INPUT ROUTINE      *C01
     1238   01 002E0    438602C0              GEN,15,17 O'20703',M11000R 1 A/N, 1 HEX CODE               *C01
     1239   01 002E1    D3D6C1C4 A            DATA     C'LOAD'                                           *C01
     1240   01 002E2    1C02091D              GEN,15,17 O'07001',M14000  1 HEX PARAM                     *C01
     1241   01 002E3    E2E8E2E3 A            DATA     C'SYST'           SYST                            *C01
     1242   01 002E4    240A093B              GEN,15,17 O'11005',M18000  2 DEC, 2 HEX, BIT 12 (MAX 255)  *C01
     1243   01 002E5    00D3D6C7 A            DATA     C'LOG'            LOG, LOG ON                     *C01
     1244   01 002E6    40760220              GEN,15,17 O'20073',LOG     1 A/N, 2 HEX                    *C01
     1245   01 002E7    00E2D6D5 A            DATA     C'SON'            SON, SET PSEUDO SENSE SWITCH    *C01
     1246   01 002E8    2496002A              GEN,15,17 O'11113',MSON    4 DEC                           *C01
     1247   01 002E9    E2D6C6C6 A            DATA     C'SOFF'           SOFF, RESET PSEUDO SENSE SWITCH *C01
     1248   01 002EA    2496002D              GEN,15,17 O'11113',MSOFF   4 DEC                           *C01
     1249   01 002EB    E2E2E6C3 A            DATA     C'SSWC'           SSWC, SET REAL SENSE SWITCH     *C01
     1250   01 002EC    E0060069              GEN,15,17 O'70003',SSWC    NO PARAMETER                    *C01
     1251   01 002ED    E2E3D6D7 A            DATA     C'STOP'           STOP                            *C01
     1252   01 002EE    1C0600B4              GEN,15,17 O'07003',MSTOP   STOP ADDR                       *C01
     1253   01 002EF    0000C7D6 A            DATA     C'GO'             GO, CONTINUE                    *C01
     1254   01 002F0    E006007B              GEN,15,17 O'70003',MGO     NO PARAMETER                    *C01
     1255   01 002F1    00C7D6F1 A            DATA     C'GO1'            GO1, SKIP 1 INSTRUCTION AND CONTINUE
     1256   01 002F2    E0060075              GEN,15,17 O'70003',MGO1    NO PARAMETER                    *C01
     1257   01 002F3    0000C2D9 A            DATA     'BR'              BR, BRANCH                      *C01
     1258   01 002F4    1C0000A5              GEN,15,17 O'07000',BRANCH  1 HEX                           *C01
     1259   01 002F5    E2E6C1D7 A            DATA     C'SWAP'                                           *C01
     1260   01 002F6    1C020216              GEN,15,17 O'07001',REMSWAP MAX 1 PARAMETER                 *E02
     1261   01 002F7    D9D6C6C6 A            DATA     C'ROFF'           ROFF, LOG OFF                   *C01
     1262   01 002F8    E00203FF              GEN,15,17 O'70001',REMOFF  NO PARAMETER                    *C01
     1263   01 002F9    00D9C5E2 A            DATA     C'RES'            RES,RESET                       *C01
     1264   01 002FA    E002023B              GEN,15,17 O'70001',RSET    NO PARAMETER                    *C01
     1265   01 002FB    C2D6D6E3 A            DATA     C'BOOT'                                           *C01
     1266   01 002FC    1C020258              GEN,15,17 O'07001',BOOT    1 HEX                           *C01
     1267   01 002FD    E3C4D4D7 A            DATA     C'TDMP'           TDMP, TELETYPE DUMP             *C01
     1268   01 002FE    00760903              GEN,15,17 O'00073',TTYDMP  3 HEX CODES, MAX 3 PARAMETERS   *C01
     1269         00000026           CNTDICTR EQU      %-DICTR           DICTIONARY LENGTH               *C01
     1270                            *                                                                   *C01
     1271                            * DIRPP - DIRECTIVE PREPROCESSOR ROUTINE                            *C01
     1272                            *                                                                   *C01
     1273   01 002FF    35F00313     DIRPP    STW,15   DIRPPSAV          SAVE RETURN ADDR                *C01
     1274   01 00300    6AF007F8              BAL,15   SET0123           SET REG 0,1,2,3 TO 0,1,2,3      *C01
     1275   01 00301    35000A00              STW,0    BREAKFLG          RESET BREAK FLAG                *C01
     1276   01 00302    32E00B45              LW,14    DICTWORD          DICTIONARY WORD                 *C01
     1277   01 00303    21E20000 A            CI,14    X'20000'          IS IT DPM DIRECTIVE             *C01
     1278   01 00304    6940030D              BCS,4    DIRPP2            B: YES                          *C01
     1279   01 00305    22EFFFFF A            LI,14    -1                                                *C01
     1280   01 00306    35E00316              STW,14   RUNMODE           RUNMODE = -1                    *C01
     1281   01 00307    35000092     DIRPP1   STW,0    GOTOFLG           RESET GOTO FLAG                 *C01
     1282   01 00308    22E01060 A            LI,14    X'1060'           DISARM AND DISABLE COUNTER 4    *C01
     1283   01 00309    6DE01100 A            WD,14    X'1100'               AND IO INTERRUPT            *C01
     1284   01 0030A    6AF00182              BAL,15   CLK3GO            RUN COUNTER 3                   *C01
     1285   01 0030B    6D000022 A            WD,0     X'22'             RESET I/O INT INHIBIT           *C01
     1286   01 0030C    68000311              B        DIRPP3            GO TO DIRECTIVE                 *C01
     1287   01 0030D    35100316     DIRPP2   STW,1    RUNMODE           RUNMODE = 1                     *C01
     1288   01 0030E    21E40000 A            CI,14    X'40000'          CAN GOTO ENVIROMENT BE RETAINED *C01
     1289   01 0030F    69400311              BCS,4    DIRPP3            B: YES, GO TO DIRECTIVE         *C01
     1290   01 00310    35000092              STW,0    GOTOFLG           RESET GOTO FLAG                 *C01
     1291   01 00311    32F00313     DIRPP3   LW,15    DIRPPSAV         RESTORE RETURN ADDR              *C01
     1292   01 00312    E8000B45              B        *DICTWORD         GO TO DIRECTIVE                 *C01
     1293   01 00313    00000000 A   DIRPPSAV DATA     0                                                 *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    5
A    1295                            *                                                                   *C01
     1296                            *        ***INTERFACE LOCATIONS***                                  *C01
     1297                            *                                                                   *C01
     1298   01 00314    0000011F     EXECUTEA DATA     EXECUTE           ADDRESS OF EXECUTE ROUTINE      *C01
     1299                            *                                                                   *C01
     1300   01 00315    00000124     SETHALTA DATA     EXEC2             ADDRESS OF ENTRY TO EXECUTE     *C01
     1301                            *                                     ROUTINE WHICH RESPONDS TO     *C01
     1302                            *                                       SPECIAL CONTROL CONSOLE INPUT*C0
     1303                            *                                                                   *C01
     1304   01 00316    00000001 A   RUNMODE  DATA     1                 RUNMODE = 3; REMAIN IN CCP      *D00
     1305                            *                                     UNTIL CONTROL CONSOLE INPUT   *C01
     1306                            *                                   RUNMODE NOT 0; EXIT CCP AFTER ONE PA
     1307                            *                                                                   *C01
     1308   01 00317    00000000 A   MSGMODE  DATA     0                 .NE.0=>ECHO ALL INPUT           *E03

     1310         00000054           CLOCK    EQU      X'54'             LOCATION OF REAL TIME CLOCK     *C01
     1311                            *                                     COUNT LOCATION                *C01
     1312                            *                                                                   *C01
     1313   01 00318    00000000 A   TICKS    DATA     0                 NUMBER OF TICKS/.1 SECONDS      *C01
     1314                            *                                                                   *C01
     1315   01 00319    00000000 A   2SEC     DATA     0                 2SEC FLAG = 0; ALLOW LOG-ON     *C01
     1316                            *                                     MESSAGE                       *C01
     1317                            *                                   2SEC FLAG NOT 0; BYPASS LOG-ON  *C01
     1318                            *                                     MESSAGE                       *C01
     1319                            *                                   (MUST = 0 AT LEAST ONCE EVERY   *C01
     1320                            *                                   2 SECONDS WHILE IN CCP)         *C01
     1321                            *                                                                   *C01
     1322                            *                                                                   *C01
     1323   01 0031A    6F6F6F6F A   LOGONMSG TEXT     '????'            QUESTION MARK MSG               *C01
     1324   01 0031B    1B7A1515 A            DATA     X'1B7A1515'       ESCAPE COLON CR CR              *C01
     1325   01 0031C    C4D7D440 A            TEXT     'DPM ',VERSION,':'                                *E00
            01 0031D    C8F0F27A A
     1326   01 0031E    C4C9C1C7 A   PASSWORD DATA     'DIAG'                                            *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    6
A    1328                            *                                                                   *C01
     1329                            *        ***CCP***                                                  *C01
     1330                            *        THE COMMUNICATION CONTROL PACKAGE TESTS AND ACCEPTS        *C01
     1331                            *        INPUT FROM THE CONTROL CONSOLE (EITHER LOCAL ASR/KSR       *C01
     1332                            *        OR TERMINAL CONNECTED THRU THE COC) OR AN OBSERVER IN      *C01
     1333                            *        MESSAGE MODE AND ECHOES THE INPUT TO ALL USERS. THIS       *C01
     1334                            *        ROUTINE INITIALIZES ALL COC LINES AND INITIATES LOG-ON.    *C01
     1335                            *                                                                   *C01
     1336                            *        SPECIAL FEATURES:                                          *C01
     1337                            *        1.INPUT FROM CONTROL CONSOL CAUSES CONTROL TO BE TRANSFERRED*C0
     1338                            *          FROM THIS ROUTINE INDIRECTLY THRU EXECUTEA. THE ROUTINE AT*C0
     1339                            *          EXECUTEA DETERMINES WHAT ACTION TO TAKE ON THE CURRENT   *C01
     1340                            *          CHARACTER. IF CONTROL IS RETURNED FROM THE EXECUTE ROUTINE*C0
     1341                            *          TO CCP VIA THE LINK ADDRESS, CCP WILL AUTOMATICALLY TEST *C01
     1342                            *          FOR INPUT OF THE NEXT CHARACTER.                         *C01
     1343                            *        2.IF NO INPUT IS AVAILABLE, THE RUNMODE FLAG DETERMINES IF *C01
     1344                            *          AN EXIT FROM CCP IS TO BE TAKEN OR IF LOOPING ON         *C01
     1345                            *          THIS ROUTINE IS ALLOWED. (RUNMODE=0, EXIT; RUNMODE       *C01
     1346                            *          NOT EQUAL TO 0, LOOP)                                    *C01
     1347                            *        3.ADDRESS RECOGNITION OF THE COC ADDRESS WILL CAUSE        *C01
     1348                            *          THE FOLLOWING ACTIONS:                                   *C01
     1349                            *          IF THE COCSTATE=0, ALL COC LINE STATES WILL BE           *C01
     1350                            *          INITIALIZED FOR LOG-ON AND THE LOG-ON MESSAGE WILL       *C01
     1351                            *          BE INITIATED.                                            *C01
     1352                            *          IF THE COCSTATE IS NOT EQUAL TO 0, TRANSMISSION OF LOG-ON*C01
     1353                            *          MESSAGE CHARACTERS IS DETERMINED BY THE 2SEC FLAG.       *C01
     1354                            *          THE FLAG NOT EQUAL TO 0 MEANS THAT LOG-ON IS BYPASSED.   *C01
     1355                            *          AT LEAST EVERY TWO SECONDS THIS FLAG MUST BE SET TO 0    *C01
     1356                            *          TO ALLOW THE LOG-ON MESSAGE AND REINITIALIZATION         *C01
     1357                            *          OF THE COC LINE STATES.                                  *C01
     1358                            *        4.NO ADDRESS RECOGNITION OF THE COC ADDRESS WHILE          *C01
     1359                            *          SOMEONE IS LOGGED-ON CAUSES ALL COC LINE STATES TO       *C01
     1360                            *          CLEARED.                                                 *C01
     1361                            *        5.THE LOG-ON MESSAGE IS SENT TO ALL LINES WHICH MEET THE   *C01
     1362                            *          CONDITIONS OF RECEIVER TURNED ON AND TRANSMITTER CLEAR   *C01
     1363                            *          TO SEND.                                                 *C01
     1364                            *                                                                   *C01
     1365                            *        CALLING SEQUENCE: BAL,15  CCP                              *C01
     1366                            *                          -        RETURN                          *C01
     1367                            *                                                                   *C01
     1368                            *                          .                                        *C01
     1369                            *                          WHILE IN CCP AND INPUT FROM CONTROL      *C01
     1370                            *                          CONSOLE                                  *C01
     1371                            *                          .                                        *C01
     1372                            *                          R3 (BITS 24-31)=EBCDIC CHARACTER         *C01
     1373                            *                          BAL,15  *EXECUTEA                        *C01
     1374                            *                          -       RETURN TO CCP FROM EXECUTE       *C01
     1375                            *                                                                   *C01
     1376                            *        REGISTERS USED: R0 THRU R15 ARE SAVED AT CCPSAVE AND       *C01
     1377                            *                        RESTORED AT EXIT FROM CCP.                 *C01
     1378                            *                        WHEN ENTERING EXECUTEA, THE REGISTERS      *C01
     1379                            *                        ARE NOT RESTORED.                          *C01
     1380                            *                                                                   *C01
     1381                            *        SUBROUTINES USED:                                          *C01
     1382                            *          SIOCOC - START COC                                       *C01
     1383                            *          TIOCOC - INPUT FROM COC                                  *C01
     1384                            *          TIOTTY - INPUT FROM ASR/KSR                              *C01
     1385                            *          TTYOUT - OUTPUT TO ASR/KSR AND ALL COC LINES             *C01
     1386                            *          ECHO - OUTPUT TO ALL COC LINES                           *C01
     1387                            *          EXECUTEA - ADDRESS OF EXECUTE SUBROUTINE                 *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    7
A    1389   01 0031F    02200000 A   CCP      LCI      0                 SAVE ALL                        *C01
     1390   01 00320    2B000520              STM,0    CCPSAVE             REGISTERS                     *C01
     1391                            *                                                                   *C01
     1392   01 00321    CD000BCA     CCPA     TIO,0    *COCDEV           IS THER A COC                   *C01
     1393   01 00322    68800327              BCR,8    CCP1              YES                             *C01
     1394   01 00323    72E00BCC              LB,14    COCSTATE          IS COC STATE 0                  *C01
     1395   01 00324    68300352              BCR,3    CCP24             YES                             *C01
     1396   01 00325    22E00000 A            LI,14    0                 SET COCSTATE 0                  *C01
     1397   01 00326    6800032C              B        CCP11                                             *C01
     1398                            *                                                                   *C01
     1399   01 00327    72E00BCC     CCP1     LB,14    COCSTATE          IS COCSTATE 0                   *C01
     1400   01 00328    69300330              BCS,3    CCP2              NO                              *C01
     1401   01 00329    CF000BCA              HIO,0    *COCDEV           MAKE DEVICE READY               *C01
     1402   01 0032A    6AF003A9              BAL,15   SIOCOC            START COC                       *C01
     1403   01 0032B    22E00003 A            LI,14    3                 SET COCSTATE 3                  *C01
     1404   01 0032C    2210003F A   CCP11    LI,1     X'3F'             START WITH LINE NR 3F           *C01
     1405   01 0032D    75E204F6              STB,14   COCL,1            SET COC LINE STATE              *C01
     1406   01 0032E    6410032D              BDR,1    %-1               D0 1 THRU 3F                    *C01
     1407   01 0032F    75E204F6              STB,14   COCL,1            DO 0                            *C01
     1408   01 00330    73000319     CCP2     MTB,0    2SEC              WILL TURN OVER EVERY            *E01
     1409   01 00331    69300333              BNEZ     %+2                2 SECONDS WHEN RUNNING         *E01
     1410   01 00332    49E00BD8              OR,14    =X'00000002'      FORCE COC LINE STATE CHECK      *C01
     1411   01 00333    21E00002 A            CI,14    2                 ANY OUTPUT OR LINE ANSWER       *C01
     1412   01 00334    68400352              BCR,4    CCP24             NO                              *C01
     1413   01 00335    48E00BD8              EOR,14   =X'00000002'      RESET COCSTATE 2 IND.           *C01
     1414   01 00336    22100000 A            LI,1     0                                                 *C01
     1415   01 00337    75100493              STB,1    COCNR             SET USER COUNT = 0              *C01
     1416   01 00338    722204F6     CCP21    LB,2     COCL,1            GET COC LINE STATE              *C01
     1417   01 00339    6830034F              BCR,3    CCP23             ITS 0                           *C01
     1418   01 0033A    ED10048E              WD,1     *RECON            TURN RECEIVER ON                *C01
     1419   01 0033B    6810034F              BCR,1    CCP23             RECEIVER IS OFF OR NOT READY    *C01
     1420   01 0033C    21200003 A            CI,2     3                 IS COC LINE STATE = 3           *C01
     1421   01 0033D    69300341              BCS,3    CCP22             NO                              *C01
     1422   01 0033E    ED100491              WD,1     *SENSET           TEST XMIT STATUS                *C01
     1423   01 0033F    6820034F              BCR,2    CCP23             XMITTER NOT CLEAR TO SEND       *C01
     1424   01 00340    22200014 A            LI,2     X'14'             CHANGE STATE TO XMIT LOGON      *C01
     1425   01 00341    21200014 A   CCP22    CI,2     X'14'             XMITTING ANY MSG                *C01
     1426   01 00342    68400348              BCR,4    CCP25             NO                              *C01
     1427   01 00343    72340316              LB,3     LOGONMSG-4,2      GET A BYTE OF THE MSG           *C01
     1428   01 00344    6AF0046B              BAL,15   COCXMIT           TRANSMIT IT TO USER             *C01
     1429   01 00345    49E00BD8              OR,14    =X'00000002'      SET COCSTAE 2 IND               *C01
     1430   01 00346    20200001 A            AI,2     1                 INC COC LINE STATE              *C01
     1431   01 00347    752204F6              STB,2    COCL,1                                            *C01
     1432   01 00348    212000C0 A   CCP25    CI,2     X'C0'             IS HE LOGGED ON                 *C01
     1433   01 00349    6840034F              BCR,4    CCP23             NO                              *C01
     1434   01 0034A    49E00BD9              OR,14    =X'00000040'      SET OBSERVER IND                *C01
     1435   01 0034B    73100493              MTB,1    COCNR             INC COC NUMBER OF USERS         *C01
     1436   01 0034C    32200494              LW,2     COCLIM            LIMIT ON COC LINES              *E00
     1437   01 0034D    71200493              CB,2     COCNR             LIMIT > NR OF LINES LOGGED ON   *C01
     1438   01 0034E    68200352              BCR,2    CCP24             NO - DON'T LOG ON ANY MORE      *C01
     1439   01 0034F    20100001 A   CCP23    AI,1     1                 INC LINE NR                     *C01
     1440   01 00350    21100040 A            CI,1     X'40'             DONE YET                        *C01
     1441   01 00351    69100338              BCS,1    CCP21             NO                              *C01
     1442   01 00352    75E00BCC     CCP24    STB,14   COCSTATE                                          *C01
     1443   01 00353    21E00080 A            CI,14    X'80'             COC CONTROL                     *C01
     1444   01 00354    69400363              BCS,4    CCP4              YES                             *C01
     1445   01 00355    6AF00377     CCP3A    BAL,15   TIOTTY            ANY INPUT                       *C01
     1446   01 00356    68000370              B        CCP6              NO                              *C01
     1447   01 00357    6AF00447              BAL,15   ECHO              XMIT TO OBSERVERS               *C01
     1448   01 00358    02000000 A            NOP                                                        *C01
     1449   01 00359    EAF00314              BAL,15   *EXECUTEA         TRANSLATE INPUT                 *C01
     1450   01 0035A    68000355              B        CCP3A             CHECK FOR MORE INPUT            *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    8
A    1452   01 0035B    33000316     CCP3     MTW,0    RUNMODE           IN RUN MODE                     *C01
     1453   01 0035C    68300375              BEZ      CCPB              SKIP IF NOT RUNNING             *E01
     1454   01 0035D    22100001 A            LI,1     1                                                 *C01
     1455   01 0035E    3110014F              CW,1     IOFLAG            IOFLAG:1                        *C01
     1456   01 0035F    68300375              BE       CCPB              SKIP TO CLOCK 2SEC FLAG         *E01
     1457   01 00360    02200000 A   CCPEXIT  LCI      0                 RESTORE ALL                     *C01
     1458   01 00361    2A000520              LM,0     CCPSAVE             REGISTERS                     *C01
     1459   01 00362    E800000F A            B        *15                                               *C01
     1460                            *                                                                   *C01
     1461   01 00363    6AF0039F     CCP4     BAL,15   TIOCOC            ANY INPUT                       *C01
     1462   01 00364    6800036B              B        CCP5              NO                              *C01
     1463   01 00365    31100BCD              CW,1     COCLINE           TEST FOR CONTROLLING LINE       *E00
     1464   01 00366    69300372              BCS,3    CCP61             NO                              *C01
     1465   01 00367    6AF00422              BAL,15   TTYOUT            XMIT TO ALL OBSERVERS           *C01
     1466   01 00368    02000000 A            NOP                                                        *C01
     1467   01 00369    EAF00314              BAL,15   *EXECUTEA         TRANSLATE INPUT                 *C01
     1468   01 0036A    68000363              B        CCP4              CHECK FOR MORE INPUT            *C01
     1469                            *                                                                   *C01
     1470   01 0036B    6AF00377     CCP5     BAL,15   TIOTTY            ANY OBSERVER INPUT              *C01
     1471   01 0036C    6800035B              B        CCP3              NO                              *C01
     1472   01 0036D    6AF00447              BAL,15   ECHO              XMIT TO EVERY ONE ELSE          *C01
     1473   01 0036E    02000000 A            NOP                                                        *C01
     1474   01 0036F    6800035B              B        CCP3                                              *C01
     1475                            *                                                                   *C01
     1476   01 00370    6AF0039F     CCP6     BAL,15   TIOCOC            ANY OBSERVER INPUT              *C01
     1477   01 00371    6800035B              B        CCP3              NO                              *C01
     1478   01 00372    6AF00422     CCP61    BAL,15   TTYOUT            XMIT TO EVERYONE ELSE           *C01
     1479   01 00373    02000000 A            NOP                                                        *C01
     1480   01 00374    6800035B              B        CCP3                                              *C01

     1482   01 00375    73100319     CCPB     MTB,1    2SEC              STEP THE 2SEC FLAG IF NOT       *E01
     1483   01 00376    68000321              B        CCPA               RUNNING (ELSE NO LINE CHECK)   *E01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE    9
A    1485                            *                                                                   *C01
     1486                            *        ***TIOTTY***                                               *C01
     1487                            *        TESTS THE LOCAL ASK/KSR FOR INPUT AND ACCEPTS INPUT        *C01
     1488                            *        OF ONE CHARACTER. A SECOND ENTRY POINT STARTS INPUT        *C01
     1489                            *        ON THE LOCAL ASK/KSR.                                      *C01
     1490                            *                                                                   *C01
     1491                            *        SPECIAL FEATURES:                                          *C01
     1492                            *        1. THE TTY IS STARTED FOR INPUT UNDER THE FOLLOWING        *C01
     1493                            *           CONDITIONS:                                             *C01
     1494                            *           TTY READY AND PREVIOUSLY WAS DOING OUTPUT               *C01
     1495                            *           TTY READY AND ALL CHARACTERS FROM PREVIOUS INPUT ARE    *C01
     1496                            *           PROCESSED                                               *C01
     1497                            *           ROUTINE ENTERED AT SIOTTY                               *C01
     1498                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF                  *C01
     1499                            *           THE INPUT IS FROM THE CONTROL CONSOLE                   *C01
     1500                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE MODE     *C01
     1501                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE   *C01
     1502                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO PROCESS*C01
     1503                            *           THE NEXT CHARACTER BY AUTOMATICALLY RESTARTING AT TIOTTY*C01
     1504                            *        4. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT.*C01
     1505                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.*C0
     1506                            *                                                                   *C01
     1507                            *        CALLING SEQUENCE: BAL,15  TIOTTY - TEST FOR INPUT          *C01
     1508                            *                          -       RETURN - NO CHARACTER AVAILABLE  *C01
     1509                            *                          -       RETURN - R3 BITS 24-31=EBCDIC CHAR.
     1510                            *                                                                   *C01
     1511                            *                          BAL,15  SIOTTY - START TTY               *C01
     1512                            *                          -       RETURN                           *C01
     1513                            *                                                                   *C01
     1514                            *        REGISTERS USED: R0,R1,R3,R12,R13                           *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   10
A    1516   01 00377    CDC00BC9     TIOTTY   TIO,12   *TTYDEV                                           *C01
     1517   01 00378    7400000E A            STCF     14                SAVE CC'S                       *C01
     1518   01 00379    6980039D              BCS,8    TTYOFF            NO ADDRESS RECOGNITION          *C01
     1519   01 0037A    6840037D              BCR,4    TIOTTY1           TTY NOT BUSY                    *C01
     1520   01 0037B    19C00484              CLM,12   TTYOUTS           STILL DOING OUTPUT              *C01
     1521   01 0037C    E890000F A            BCR,9    *15               YES                             *C01
     1522   01 0037D    19C00486     TIOTTY1  CLM,12   TTYINS            PREVIOUSLY DOING INPUT          *C01
     1523   01 0037E    69900384              BCS,9    TIOTTY3           NO - RESTART IT                 *C01
     1524   01 0037F    4BD00BDA              AND,13   =X'0000FFFF'      KEEP BYTE COUNT                 *C01
     1525   01 00380    51D0048B              CH,13    TTYBC             TTYBC = BYTE COUNT              *C01
     1526   01 00381    69100392              BCS,1    TIOTTY4           NO                              *C01
     1527   01 00382    7030000E A   TIOTTY2  LCF      14                IS TTY BUSY                     *C01
     1528   01 00383    E940000F A            BCS,4    *15               YES                             *C01
     1529         01 00384           SIOTTY   EQU      %                                                 *C01
     1530         01 00384           TIOTTY3  EQU      %                                                 *C01
     1531   01 00384    CDC00BC9              TIO,12   *TTYDEV                                           *C01
     1532   01 00385    68C00389              BCR,12   TIOTTY3A          DEVICE READY                    *C01
     1533   01 00386    19C00484              CLM,12   TTYOUTS           DOING OUTPUT                    *C01
     1534   01 00387    68900384              BCR,9    %-3               YES                             *C01
     1535   01 00388    E800000F A            B        *15                                               *C01
     1536   01 00389    22000010 A   TIOTTY3A LI,0     TTYSIZ                                            *C01
     1537   01 0038A    5500048B              STH,0    TTYBC             INITIALIZE TTYBC                *C01
     1538   01 0038B    22000241              LI,0     DA(TTYI)                                          *C01
     1539   01 0038C    CC000BC9              SIO,0    *TTYDEV           START TTY INPUT                 *C01
     1540                            *                                   REMOVED BYTECNT TEST            *C01
     1541   01 0038D    CDD00BC9              TIO,13   *TTYDEV           TEST TTY DEVICE                 *C01
     1542   01 0038E    4BD00BDA              AND,13   =X'0000FFFF'                                      *C01
     1543   01 0038F    21D00010 A            CI,13    TTYSIZ                                            *C01
     1544   01 00390    6840038D              BCR,4    %-3               LOOP UNTIL ACCEPTED             *C01
     1545   01 00391    E800000F A            B        *15                                               *C01
     1546                            *                                                                   *C01
     1547   01 00392    5A10048B     TIOTTY4  LCH,1    TTYBC                                             *C01
     1548   01 00393    7232054C              LB,3     TTYBYTI+TTYSIZ/4,1 GET INPUT BYTE                 *C01
     1549   01 00394    53F0048B              MTH,-1   TTYBC             DEC TTYBC                       *C01
     1550   01 00395    33000BCC              MTW,0    COCSTATE          COC CONTROL                     *C01
     1551   01 00396    68100399              BCR,1    TIOTTY5           NO-TTY CONTROL                  *C01
     1552   01 00397    33000317              MTW,0    MSGMODE           MESSAGE MODE SET                *C01
     1553   01 00398    6830039A              BCR,3    %+2               NO - ARE THERE MORE CHARACTERS  *C01
     1554   01 00399    20F00001 A   TIOTTY5  AI,15    1                                                 *C01
     1555   01 0039A    51D0048B              CH,13    TTYBC             TTYBC = BYTE COUNT              *C01
     1556   01 0039B    68300382              BCR,3    TIOTTY2           YES-RESTART TTY INPUT           *C01
     1557   01 0039C    E800000F A            B        *15                                               *C01
     1558                            *                                                                   *C01
     1559   01 0039D    2E00039D     TTYOFF   WAIT     %                 TTY PROBLEM                     *C01
     1560   01 0039E    68000377              B        TIOTTY            TRY AGAIN                       *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   11
A    1562                            *                                                                   *C01
     1563                            *                                                                   *C01
     1564                            *        ***TIOCOC***                                               *C01
     1565                            *        TESTS THE COC FOR INPUT AND ACCEPTS INPUT OF ONE           *C01
     1566                            *        CHARACTER. THIS ENTRY REQUIRES A LOGGOD-ON REMOTE USER     *C01
     1567                            *        TIOCOC0 ENTRY PERFORMS THE SAME FUNCTION AS TIOCOC AND     *C01
     1568                            *        ALSO ALLOWS REMOTE USERS TO LOG-ON.                        *C01
     1569                            *        THE SIOCOC ENTRY STARTS INPUT ON THE COC.                  *C01
     1570                            *                                                                   *C01
     1571                            *                                                                   *C01
     1572                            *        SPECIAL FEATURES:                                          *C01
     1573                            *        1. THE COC IS STARTED FOR INPUT UNDER THE FOLLOWING        *C01
     1574                            *           CONDITIONS:                                             *C01
     1575                            *           COC READY AND ALL CHARACTERS FROM PREVIOUS INPUT        *C01
     1576                            *           ARE PROCESSED.                                          *C01
     1577                            *           ROUTINE ENTERED AT SIOCOC.                              *C01
     1578                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF                  *C01
     1579                            *           THE INPUT IS FROM THE CONTROL CONSOLE                   *C01
     1580                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE          *C01
     1581                            *           MODE.                                                   *C01
     1582                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE   *C01
     1583                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO        *C01
     1584                            *           PROCESS THE NEXT CHARACTER BY AUTOMATICALLY             *C01
     1585                            *           RESTARTING AT TIOCOC0.                                  *C01
     1586                            *        4. WHILE USERS ARE ALLOWED TO LOG-ON, THE FOLLOWING        *C01
     1587                            *           ACTION TAKES PLACE:                                     *C01
     1588                            *           ANY INPUT WHILE TRANSMITTING A LOG-ON MESSAGE IS        *C01
     1589                            *           IGNORED.                                                *C01
     1590                            *           AFTER THE LOG-ON MESSAGE HAS BEEN TRANSMITTED, THE      *C01
     1591                            *           INPUT IS COMPARED AGAINST THE CURRENT 4 BYTE            *C01
     1592                            *           PASSWORD. NON-COMPARISON CAUSES THE LOG-ON MESSAGE      *C01
     1593                            *           TO BE REPEATED PRECEDED BY 4 QUESTION MARKS.            *C01
     1594                            *           SUCCESSFUL ENTRY OF THE PASSWORD ALLOWS THE             *C01
     1595                            *           REMOTE USER TO BE LOGGED-ON AS OBSERVER.                *C01
     1596                            *        5. NO ADDRESS RECOGNITION OF THE COC ADDRESS CAUSES        *C01
     1597                            *           CONTROL TO BE TRANSFERRED TO THE LOCAL ASK/KSR.         *C01
     1598                            *                                                                   *C01
     1599                            *        CALLING SEQUENCE: BAL,15  TIOCOC                           *C01
     1600                            *                          -        RETURN - NO CHARACTER AVAILABLE *C01
     1601                            *                          -        RETURN - R3 BITS 24-31=EBCDIC CHAR.
     1602                            *                                                                   *C01
     1603                            *                          BAL,15  TIOCOC0                          *C01
     1604                            *                          -        RETURNS SEE TIOCOC              *C01
     1605                            *                                                                   *C01
     1606                            *                          BAL,15  SOSCOC - START COC               *C01
     1607                            *                          -        RETURN                          *C01
     1608                            *                                                                   *C01
     1609                            *        REGISTERS USED: R0,R1,R2,R3,R12,R13                        *C01
     1610                            *                                                                   *C01
     1611                            *        SUBROUTINES USED: SWAP                                     *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   12
A    1613   01 0039F    72E00BCC     TIOCOC   LB,14    COCSTATE                                          *C01
     1614   01 003A0    E830000F A            BCR,3    *15               NO COC                          *C01
     1615   01 003A1    CDD00BCA     TIOCOC0  TIO,13   *COCDEV                                           *C01
     1616   01 003A2    7400000C A            STCF     12                SAVE CC'S                       *C01
     1617   01 003A3    698003E3              BCS,8    COCOFF                                            *C01
     1618   01 003A4    4BD00BDA              AND,13   =X'0000FFFF'      KEEP BYTE COUNT                 *C01
     1619   01 003A5    51D0048A              CH,13    COCBC             COCBC = BYTE COUNT              *C01
     1620   01 003A6    691003AE              BCS,1    TIOCOC3           NO                              *C01
     1621   01 003A7    7030000C A   TIOCOC1  LCF      12                IS COC BUSY                     *C01
     1622   01 003A8    E940000F A            BCS,4    *15               YES                             *C01
     1623         01 003A9           SIOCOC   EQU      %                                                 *C01
     1624   01 003A9    22000020 A   TIOCOC2  LI,0     COCSIZ                                            *C01
     1625   01 003AA    5500048A              STH,0    COCBC             INITIALIZE COCBC                *C01
     1626   01 003AB    22000240              LI,0     DA(COC)                                           *C01
     1627   01 003AC    CC000BCA              SIO,0    *COCDEV           START COC INPUT                 *C01
     1628   01 003AD    E800000F A            B        *15                                               *C01
     1629                            *                                                                   *C01
     1630   01 003AE    5A20048A     TIOCOC3  LCH,2    COCBC                                             *C01
     1631   01 003AF    72340548              LB,3     COCBYT+COCSIZ/4,2 GET INPUT CHAR                  *C01
     1632   01 003B0    4B300BCF              AND,3    =X'0000007F'                                      *C01
     1633   01 003B1    20200001 A            AI,2     1                 INC COCBC                       *C01
     1634   01 003B2    72140548              LB,1     COCBYT+COCSIZ/4,2 GET LINE NR                     *C01
     1635   01 003B3    4B100BDB              AND,1    =X'0000003F'                                      *C01
     1636   01 003B4    723604D5              LB,3     EBCDIC,3          CONVERT ASCII TO EBCDIC         *C01
     1637   01 003B5    722204F6              LB,2     COCL,1            GET COC LINE STATE              *C01
     1638   01 003B6    53E0048A              MTH,-2   COCBC             DEC COCBC                       *C01
     1639   01 003B7    21200080 A            CI,2     X'80'             FROM CONTROL CONSOLE            *C01
     1640   01 003B8    684003BE              BCR,4    TIOCOC5           NO                              *C01
     1641   01 003B9    35F0046A              STW,15   COCINPUT                                          *C01
     1642   01 003BA    20F00001 A   TIOCOC4  AI,15    1                 SET SKIP ON EXIT                *C01
     1643   01 003BB    51D0048A              CH,13    COCBC             COCBC = BYTE COUNT              *C01
     1644   01 003BC    683003A7              BCR,3    TIOCOC1           YES-CHECK FOR COC READY         *C01
     1645   01 003BD    E800000F A            B        *15                                               *C01
     1646                            *                                                                   *C01
     1647   01 003BE    21200024 A   TIOCOC5  CI,2     X'24'             COC LINE STATE < 24             *C01
     1648   01 003BF    691003C7              BCS,1    TIOCOC6           YES                             *C01
     1649   01 003C0    21200040 A            CI,2     X'40'             LOGGED ON                       *C01
     1650   01 003C1    691003A1              BCS,1    TIOCOC0           NO                              *C01
     1651   01 003C2    21F0044F              CI,15    ECHO1+1           FROM ECHO                       *C01
     1652   01 003C3    683003A1              BCR,3    TIOCOC0           YES-WAIT FOR CONTROL INPUT      *C01
     1653   01 003C4    33000317              MTW,0    MSGMODE           MESSAGE MODE SET                *C01
     1654   01 003C5    693003BA              BCS,3    TIOCOC4           YES-SKIP ON EXIT                *C01
     1655   01 003C6    680003A1              B        TIOCOC0           NO                              *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   13
A    1657   01 003C7    21200020 A   TIOCOC6  CI,2     X'20'             WAITING FOR PASSWORD            *C01
     1658   01 003C8    691003DB              BL       TIOCOC7           NO                              *C01
     1659   01 003C9    35F003E6              STW,15   TIOCOCR           SAVE R15                        *C01
     1660   01 003CA    6AF0046B              BAL,15   COCXMIT           ECHO PASSWORD CHAR.             *C01
     1661   01 003CB    32F003E6              LW,15    TIOCOCR           RESTORE R15                     *C01
     1662   01 003CC    71340316              CB,3     PASSWORD-8,2      COMPARE PASSWORD CHARACTER      *C01
     1663   01 003CD    693003DF              BNE      TIOCOC9           NOT EQUAL                       *C01
     1664   01 003CE    20200001 A            AI,2     1                 INC COC LINE STATE              *C01
     1665   01 003CF    752204F6     TIOCOC8  STB,2    COCL,1                                            *C01
     1666   01 003D0    21200024 A            CI,2     X'24'             ALL CHARACTERS OF PASSWORD      *C01
     1667   01 003D1    693003A1              BCS,3    TIOCOC0           NO                              *C01
     1668   01 003D2    32000494              LW,0     COCLIM            LIMIT ON COC LINES              *C01
     1669   01 003D3    71000493              CB,0     COCNR             LIMIT > NR OF LINES LOGGED ON   *C01
     1670   01 003D4    682003DF              BLE      TIOCOC9           LOGON REJECTED                  *E00
     1671   01 003D5    49E00BD9              OR,14    =X'00000040'      OBSERVER IND.                   *C01
     1672   01 003D6    75E00BCC              STB,14   COCSTATE          SET COCSTATE=OBSERVER ON        *C01
     1673   01 003D7    35100BC7              STW,1    COCLOG            NUMBER OF LAST LINE LOGGED      *E01
     1674   01 003D8    22200040 A            LI,2     X'40'             YES-SET OBSERVER STATUS         *C01
     1675   01 003D9    752204F6     TIOCOC8A STB,2    COCL,1                                            *C01
     1676   01 003DA    680003A1              B        TIOCOC0                                           *C01
     1677                            *                                                                   *C01
     1678   01 003DB    1920048C     TIOCOC7  CLM,2    10TO13            XMITTING QUESTION MARK          *C01
     1679   01 003DC    6890047B              BCR,9    COCLOFF           YES-MUST  BE BAD LINE           *C01
     1680   01 003DD    21200014 A            CI,2     X'14'             TRANSM.LOG-ON MESSAGE           *C01
     1681   01 003DE    694003A1              BCS,4    TIOCOC0           YES                             *C01
     1682   01 003DF    22200010 A   TIOCOC9  LI,2     X'10'                                             *C01
     1683   01 003E0    49E00BD8              OR,14    =X'00000002'      SET XMIT IND.                   *C01
     1684   01 003E1    75E00BCC              STB,14   COCSTATE                                          *C01
     1685   01 003E2    680003D9              B        TIOCOC8A                                          *E00
     1686                            *                                                                   *C01
     1687   01 003E3    21E00080 A   COCOFF   CI,14    X'80'             COC CONTROL                     *C01
     1688   01 003E4    E840000F A            BCR,4    *15               NO                              *C01
     1689   01 003E5    680003E7              B        SWAP              SWITCH TO TTY CONTROL           *C01
     1690                            *                                                                   *C01
     1691   01 003E6    00000000 A   TIOCOCR  DATA     0                                                 *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   14
A    1693                            *                                                                   *C01
     1694                            *        ***SWAP***                                                 *C01
     1695                            *        SWITCHES CONTROL BETWEEN CURRENT CONTROLLER AND            *C01
     1696                            *        CURRENT OBSERVER                                           *C01
     1697                            *                                                                   *C01
     1698                            *                                                                   *C01
     1699                            *        CALLING SEQUENCE: BAL,15  SWAP                             *C01
     1700                            *                          -       ABNORMAL RETURN - NOBODY LOGGED ON*C0
     1701                            *                          -       NORMAL RETURN                    *C01
     1702                            *                                                                   *C01
     1703                            *        REGISTERS USED: R4,R13                                     *C01
     1704                            *                                                                   *C01
     1705                            *        SUBROUTINES USED: NONE                                     *C01
     1706                            *                                                                   *C01
     1707   01 003E7    32D00BCC     SWAP     LW,13    COCSTATE          COC CONTROLLER                  *C01
     1708   01 003E8    681003EB              BGEZ     SWAP1             NO                              *C01

     1710   01 003E9    22D00040 A            LI,13    X'40'             SWITCH CONTROL TO TTY           *C01
     1711   01 003EA    680003F9              B        SWAP2                                             *C01

     1713   01 003EB    31D00BDC     SWAP1    CW,13    =X'41000000'                                      *G02
     1714   01 003EC    684003FD              BAZ      SWAP3              SKIP IF COC NOT LOGGED-ON      *E04

     1716   01 003ED    73020211 A            MTB,0    MLT17,1           SKIP IF SPECIFIC LINE           *E04
     1717   01 003EE    693003F1              BNEZ     %+3                (PARAMETER COUNT .GT. 0)       *E04
     1718   01 003EF    32C00BC7              LW,12    COCLOG            ELSE FETCH LAST LINE LOGGED     *E04
     1719   01 003F0    680003F2              B        %+2                                               *E04
     1720   01 003F1    32C00201 A            LW,12    P1                FETCH SPECIFIC LINE             *E04

     1722   01 003F2    2240003F A            LI,4     X'3F'             GUARD AGAINST BAD LINE          *E04
     1723   01 003F3    4B40000C A            AND,4    12                 AND VERIFY THAT THIS           *E04
     1724   01 003F4    72C804F6              LB,12    COCL,4              LINE IS LOGGED AS AN          *E04
     1725   01 003F5    21C00020 A            CI,12    X'20'                OBSERVER                     *G02
     1726   01 003F6    691003FD              BL       SWAP3                                             *G02

     1728   01 003F7    35400BCD              STW,4    COCLINE           NUMBER OF CONTROLLING LINE      *E04
     1729   01 003F8    22D00080 A            LI,13    X'80'             SWITCH CONTROL TO COC           *C01

     1731   01 003F9    75D00BCC     SWAP2    STB,13   COCSTATE          SET COC STATE                   *C01
     1732   01 003FA    32400BCD              LW,4     COCLINE           NUMBER OF CONTROLLING LINE      *E00
     1733   01 003FB    75D804F6              STB,13   COCL,4            SET COC LINE STATE              *C01
     1734   01 003FC    E800000F A            B        *15                                               *C01

     1736   01 003FD    3310000F A   SWAP3    MTW,1    15                ERROR RETURN                    *C01
     1737   01 003FE    E800000F A            B        *15                                               *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   15
A    1739                            *        ***REMOFF***                                               *C01
     1740                            *        RETURNS CONTROL TO THE LOCAL ASR/KSR                       *C01
     1741                            *                                                                   *C01
     1742                            *        CALLING SEQUENCE:  BAL,15  REMOFF                          *C01
     1743                            *                           -       RETURN                          *C01
     1744                            *                                                                   *C01
     1745                            *        REGISTERS USED: R0                                         *C01
     1746                            *                                                                   *C01
     1747                            *        SUBROUTINES USED: COCXMIT3 - TURN OF COC LINE              *C01
     1748                            *                                                                   *C01
     1749   01 003FF    73000BCC     REMOFF   MTB,0    COCSTATE          CHECK COC STATE
     1750   01 00400    E830000F A            BEZ      *15                AND RETURN IF INACTIVE

     1752   01 00401    35100410              STW,1    REMOFFS           SAVE REG ONE
     1753   01 00402    35F00411              STW,15   REMOFFS+1         SAVE RETURN                     *C01
     1754   01 00403    2210003F A            LI,1     X'3F'             COC LINE NUMBER                 *C01
     1755   01 00404    6AF0047B              BAL,15   COCXMIT3          TURN OFF COC LINE               *C01
     1756   01 00405    64100404              BDR,1    %-1                                               *C01
     1757   01 00406    6AF0047B              BAL,15   COCXMIT3          TURN OFF COC LINE 0             *C01
     1758   01 00407    35100BCC              STW,1    COCSTATE          RESET COC STATE                 *G02
     1759   01 00408    22000080 A            LI,0     X'80'                                             *G02
     1760   01 00409    35100BCD              STW,1    COCLINE           RESET CONTROLLING LINE          *G02
     1761   01 0040A    2200007F A            LI,0     X'7F'                                             *D02
     1762   01 0040B    35000BCA              STW,0    COCDEV                                            *C01
     1763   01 0040C    32100410              LW,1     REMOFFS           RESTORE1                        *C01
     1764   01 0040D    22F00000 A            LI,15    0                                                 *C01
     1765   01 0040E    35F00902              STW,15   LOGFLAG           RESET LOGGED ON FLAG            *C01
     1766   01 0040F    E8000411              B        *REMOFFS+1        EXIT                            *C01
     1767                            *                                                                   *C01
     1768   01 00410                 REMOFFS  RES      2                 REGISTER SAVE LOCATIONS         *C01

     1770                            *        ***SETDIO***                                               *C01
     1771                            *        INSERTS THE DIO ADDRESS IN THE EFFECTIVE ADDRESS           *C01
     1772                            *        OF THE WRITE DIRECT INSTRUCTIONS WHICH ARE USED            *C01
     1773                            *        TO SEND CONTROL FUNCTIONS TO THE COC                       *C01
     1774                            *                                                                   *C01
     1775                            *        CALLING SEQUENCE:  R(BITS 28-31)=DIO ADDRESS               *C01
     1776                            *                           BAL,15  SETDIO                          *C01
     1777                            *                           -       RETURN                          *C01
     1778                            *                                                                   *C01
     1779                            *        REGISTERS USED: R4, R5                                     *C01
     1780                            *                                                                   *C01
     1781                            *        SUBROUTINES USED: NONE                                     *C01
     1782                            *                                                                   *C01
     1783   01 00412    226FFFFB A   SETDIO   LI,6     -5                SET INDEX FOR 5 DIO COMMANDS    *E02
     1784   01 00413    225000F0 A            LI,5     X'F0'              SET STS MASK                   *E02
     1785   01 00414    25400004 A            SLS,4    4                   POSITION DIO ADDRESS          *E02
     1786   01 00415    474C0493              STS,4    RECON+5,6            STORE DIO ADDRESS DIGIT      *E02
     1787   01 00416    65600415              BIR,6    %-1                                               *E02
     1788   01 00417    E800000F A            B        *15               EXIT                            *C01
     1789                            *                                                                   *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   16
A    1791                            *                                                                   *C01
     1792                            *        ***MSGOUT***                                               *C01
     1793                            *        OUTPUTS A STRING OF CHARACTERS TO THE LOCAL ASR/KSR AND TO *C01
     1794                            *        ALL LINES WHICH ARE CURRENTLY LOGGED ON.                   *C01
     1795                            *                                                                   *C01
     1796                            *        SPECIAL FEATURES:                                          *C01
     1797                            *        1. THE BREAK RETURN FROM THE TTYOUT ROUTINE CAUSES         *C01
     1798                            *           TERMINATION OF OUTPUT.                                  *C01
     1799                            *                                                                   *C01
     1800                            *                                                                   *C01
     1801                            *        CALLING SEQUENCE: R4 = BYTE ADDRESS OF CHARACTER STRING    *C01
     1802                            *                          R5 = BYTE COUNT OF CHARACTER STRING      *C01
     1803                            *                          BAL,15  MSGOUT                           *C01
     1804                            *                          -       RETURN                           *C01
     1805                            *                                                                   *C01
     1806                            *        REGISTERS USED: CONTENTS OF ALL REGISTERS IS SAVED AND     *C01
     1807                            *                        RESTORED                                   *C01
     1808                            *                                                                   *C01
     1809                            *        SUBROUTINES USED: TTYOUT                                   *C01
     1810                            *                                                                   *C01
     1811   01 00418    02200000 A   MSGOUT   LCI      0                 SAVE ALL                        *C01
     1812   01 00419    2B000530              STM,0    MSGOUTS             REGISTERS                     *C01
     1813   01 0041A    72380000 A   MSGOUT1  LB,3     0,4               GET A MESSAGE BYTE              *C01
     1814   01 0041B    6AF00422              BAL,15   TTYOUT            OUTPUT CHARACTER                *C01
     1815   01 0041C    6800041F              B        MSGOUT2           EXIT ON CONDEV BREAK            *C01
     1816   01 0041D    33100004 A            MTW,1    4                 INC BYTE ADDRESS                *C01
     1817   01 0041E    6450041A              BDR,5    MSGOUT1           OUT NEXT BYTE                   *C01
     1818   01 0041F    02200000 A   MSGOUT2  LCI      0                 RESTORE ALL                     *C01
     1819   01 00420    2A000530              LM,0     MSGOUTS             REGISTERS                     *C01
     1820   01 00421    E800000F A            B        *15               EXIT                            *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   17
A    1822                            *                                                                   *C01
     1823                            *        ***TTYOUT***                                               *C01
     1824                            *        TRANSMITS A CHARACTER TO THE LOCALE ASR/KSR AND TO ALL     *C01
     1825                            *        LINES WHICH ARE CURRENTLY LOGGED ON.                       *C01
     1826                            *                                                                   *C01
     1827                            *        SPECIAL FEATURES:                                          *C01
     1828                            *        1. IF TTY IS BUSY AND IN INPUT MODE OR BUSY FOR LONGER     *C01
     1829                            *           THAN .1 SECONDS AND NOT THE CONTROL CONSOLE, AN HIO     *C01
     1830                            *           IS ISSUED TO MAKE THE TTY READY FOR OUTPUT.             *C01
     1831                            *        2. IF THE TTY IS THE CONTROL CONSOLE AND AN UNUSUAL END    *C01
     1832                            *           IS DETECTED (BREAK KEY DEPRESSED), NUL CHARACTERS       *C01
     1833                            *           ARE TRANSMITTED TO THE TTY. THE FOLLOWING ADDITIONAL    *C01
     1834                            *           ACTIONS ARE TAKEN:                                      *C01
     1835                            *           IF THE BREAK KEY WAS DEPRESSED FOR LESS THAN 1 SECOND   *C01
     1836                            *           THE BREAK EXIT IS TAKEN. NOTE THAT A BREAK CHARACTER    *C01
     1837                            *           FROM THE REMOTE CONTROLLER WILL RESULT IN THE SAME      *C01
     1838                            *           ACTION THRU THE ECHO ROUTINE.                           *C01
     1839                            *           IF THE BREAK KEY WAS DEPRESSED FOR MORE THAN 1 SECOND   *C01
     1840                            *           CONTROL IS TRANSFERRED TO SETHALT.                      *C01
     1841                            *        3. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT *C01
     1842                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.*C0
     1843                            *                                                                   *C01
     1844                            *                                                                   *C01
     1845                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER                    *C01
     1846                            *                          BAL,15  TTYOUT                           *C01
     1847                            *                          -       BREAK RETURN                     *C01
     1848                            *                          -       NORMAL RETURN                    *C01
     1849                            *                                                                   *C01
     1850                            *        REGISTERS USED: R0,R12,R13                                 *C01
     1851                            *                        R1,R14 - ECHO ROUTINE                      *C01
     1852                            *                                                                   *C01
     1853                            *        SUBROUTINES USED:                                          *C01
     1854                            *          ECHO - TRANSMIT A CHARACTER TO ALL LINES                 *C01
     1855                            *                                                                   *C01
     1856   01 00422    35F00446     TTYOUT   STW,15   TTYOUTR                                           *C01
     1857   01 00423    B2100054 A            LW,1     *CLOCK            GET CURRENT TICKS               *C01
     1858   01 00424    30100318              AW,1     TICKS             .1 SECONDS                      *C01
     1859   01 00425    CDC00BC9     TTYOUT1  TIO,12   *TTYDEV                                           *C01
     1860   01 00426    69800444              BCS,8    NOTTYAD           NO TTY                          *C01
     1861   01 00427    68C0042F              BCR,12   TTYOUT2           TTY READY                       *C01
     1862   01 00428    19C00484              CLM,12   TTYOUTS           IS TTY ON OUTPUT                *C01
     1863   01 00429    6990042B              BCS,9    TTYOUT5           NO - ISSUE HIO                  *C01
     1864   01 0042A    68000425              B        TTYOUT1                                           *C01
     1865                            *                                                                   *C01
     1866   01 0042B    22DFE000 A   TTYOUT5  LI,13    X'FE000'                                          *D02
     1867   01 0042C    65D0042C              BIR,13   %                                                 *D02
     1868   01 0042D    CFD00BC9              HIO,13   *TTYDEV                                           *D02
     1869   01 0042E    68000425              B        TTYOUT1                                           *C01

     1871   01 0042F    33000BCC     TTYOUT2  MTW,0    COCSTATE          COC IN CONTROL                  *C01
     1872   01 00430    6910043D              BCS,1    TTYOUT3           YES                             *C01
     1873   01 00431    31D00BD5              CW,13    =X'08000000'      BREAK RELEASE?                  *C01
     1874   01 00432    68400438              BCR,4    TTYOUT4           NO                              *C01
     1875   01 00433    22300080 A            LI,3     NEWPAGE                                           *C01
     1876   01 00434    7530054C              STB,3    TTYBYTO                                           *C01
     1877   01 00435    22000244              LI,0     DA(TTYO)                                          *C01
     1878   01 00436    CCC00BC9              SIO,12   *TTYDEV                                           *C01
     1879   01 00437    68000425              B        TTYOUT1                                           *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   18
A    1881   01 00438    32D00318     TTYOUT4  LW,13    TICKS             NR OF TICKS PER .1 SECONDS      *C01
     1882   01 00439    23D00009 A            MI,13    9                 VALUE FOR .9 SECONDS            *C01
     1883   01 0043A    3010000D A            AW,1     13                1 SECOND TIME OUT               *C01
     1884   01 0043B    B1100054 A            CW,1     *CLOCK            TIME OUT?                       *C01
     1885   01 0043C    E9100315              BCS,1    *SETHALTA         YES-LONG BREAK                  *C01

     1887   01 0043D    7530054C     TTYOUT3  STB,3    TTYBYTO           STORE CHAR TO BE XMITTED        *C01
     1888   01 0043E    22000244              LI,0     DA(TTYO)                                          *C01
     1889   01 0043F    CCC00BC9              SIO,12   *TTYDEV                                           *C01
     1890   01 00440    6AF00447              BAL,15   ECHO              ECHO TO COC                     *C01
     1891   01 00441    E8000446              B        *TTYOUTR                                          *C01
     1892   01 00442    33100446              MTW,1    TTYOUTR                                           *C01
     1893   01 00443    E8000446              B        *TTYOUTR                                          *C01

     1895   01 00444    2E000444     NOTTYAD  WAIT     %                 NO ADDRESS RECOGNITION          *C01
     1896   01 00445    68000423              B        TTYOUT+1          TRY AGAIN                       *C01
     1897                            *                                                                   *C01
     1898   01 00446    00000000 A   TTYOUTR  DATA     0                 REGISTER SAVE AREA              *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   19
A    1900                            *                                                                   *C01
     1901                            *        ***ECHO***                                                 *C01
     1902                            *        TRANSMITS A CHARACTER TO ALL LINES WHICH ARE CURRENTLY     *C01
     1903                            *        LOGGED ON.                                                 *C01
     1904                            *                                                                   *C01
     1905                            *                                                                   *C01
     1906                            *        SPECIAL FEATURES:                                          *C01
     1907                            *        1. PRIOR TO TRANSMITTING A CHARACTER, INPUT FROM THE       *C01
     1908                            *           CONTROL CONSOLE IS TESTED.                              *C01
     1909                            *           AN EXCLAMATION MARK (!) OR AN ESCAPE CHARACTER          *C01
     1910                            *           CAUSES CONTROL TO BE TRANSFERRED TO SETHALT.            *C01
     1911                            *           A BREAK CHARACTER CAUSES EXIT THRU RETURN ADDRESS       *C01
     1912                            *        OTHERWISE EXIT THRU RETURN ADDRESS+1 IS TAKEN.             *C01
     1913                            *                                                                   *C01
     1914                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER                    *C01
     1915                            *                          BAL,15   ECHO                            *C01
     1916                            *                          -        BREAK CHARACTER RETURN          *C01
     1917                            *                          -        NORMAL RETURN                   *C01
     1918                            *                                                                   *C01
     1919                            *        REGISTERS USED: R1,R14                                     *C01
     1920                            *                        R0,R12,R13 - COCXMIT ROUTINE               *C01
     1921                            *                        R0,R1,R2,R3,R12,R13 - TIOCOC0 ROUTINE      *C01
     1922                            *                                                                   *C01
     1923                            *        SUBROUTINES USED:                                          *C01
     1924                            *          TIOCOC0 - GET CONTROL CONSOLE INPUT                      *C01
     1925                            *          COCXMIT - TRANSMIT A CHARACTER ON A COC LINE             *C01
     1926                            *                                                                   *C01
     1927                            *                                                                   *C01
     1928   01 00447    35F00467     ECHO     STW,15   ECHOS                                             *C01
     1929   01 00448    72E00BCC              LB,14    COCSTATE                                          *C01
     1930   01 00449    21E000C0 A            CI,14    X'C0'             ANYBODY LOGGED ON               *C01
     1931   01 0044A    68400463              BCR,4    ECHO4             NO                              *C01
     1932   01 0044B    15200468              STD,2    ECHOR             SAVE R2 & R3                    *C01
     1933   01 0044C    32F0046A              LW,15    COCINPUT                                          *C01
     1934   01 0044D    69300450              BCS,3    %+3                                               *C01
     1935   01 0044E    6AF003A1     ECHO1    BAL,15   TIOCOC0           ANY CONTROL CONSOLE INPUT       *C01
     1936   01 0044F    6800045A              B        ECHO2             NO                              *C01
     1937   01 00450    22F00000 A            LI,15    0                                                 *C01
     1938   01 00451    35F0046A              STW,15   COCINPUT          RESET  COC INPUT FLAG           *C01
     1939   01 00452    2130001B A            CI,3     ESCAPE            IS IT AN ESCAPE                 *C01
     1940   01 00453    6830069E              BE       M00320            SIMULATE PCP INTERRUPT          *E03
     1941   01 00454    2130005A A            CI,3     EXCLAM            IS IT AN EXCLAMATION CHAR.      *C01
     1942   01 00455    6830069E              BE       M00320            SIMULATE PCP INTERRUPT          *E03
     1943   01 00456    21300000 A            CI,3     0                 IS IT A BREAK CHAR              *C01
     1944   01 00457    6930045A              BCS,3    ECHO2             NO                              *C01
     1945   01 00458    22300080 A            LI,3     NEWPAGE                                           *C01
     1946   01 00459    35300469              STW,3    ECHOR+1                                           *C01
     1947   01 0045A    12200468     ECHO2    LD,2     ECHOR             RETREIVE R2 & R3                *C01
     1948   01 0045B    22100000 A            LI,1     0                 INITIALIZE LINE 0               *C01
     1949   01 0045C    720204F6     ECHO3    LB,0     COCL,1                                            *C01
     1950   01 0045D    210000C0 A            CI,0     X'C0'             LOGGED ON                       *C01
     1951   01 0045E    68400460              BCR,4    %+2               NO                              *C01
     1952   01 0045F    6AF0046B              BAL,15   COCXMIT           YES-XMIT CHAR                   *C01
     1953   01 00460    20100001 A            AI,1     1                 INC LINE NR                     *C01
     1954   01 00461    21100040 A            CI,1     X'40'             DONE                            *C01
     1955   01 00462    6910045C              BCS,1    ECHO3             NO                              *C01
     1956   01 00463    21300080 A   ECHO4    CI,3     NEWPAGE           BREAK                           *C01
     1957   01 00464    E8300467              BCR,3    *ECHOS            YES                             *C01
     1958   01 00465    33100467              MTW,1    ECHOS             SKIP EXIT                       *C01
     1959   01 00466    E8000467              B        *ECHOS                                            *C01
     1960   01 00467                 ECHOS    RES      1                 REGISTER                        *C01
     1961                                     BOUND    8                                                 *C01
     1962   01 00468                 ECHOR    RES      2                   SAVE AREA                     *C01
     1963   01 0046A    00000000 A   COCINPUT DATA     0                                                 *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   20
A    1965                            *                                                                   *C01
     1966                            *                                                                   *C01
     1967                            *        ***COCXMIT***                                              *C01
     1968                            *        OUTPUTS A CHARACTER ON A COC LINE                          *C01
     1969                            *                                                                   *C01
     1970                            *        SPECIAL FEATURES:                                          *C01
     1971                            *        1. THIS ROUTINE AUTOMATICALLY TRANSMITS A LINE FEED        *C01
     1972                            *           CHARACTER FOLLOWING A CHARRIAGE RETURN CHARACTER.       *C01
     1973                            *        2. THE LINE WILL BE TURNED OFF UNDER THE FOLLOWING         *C01
     1974                            *           CONDITIONS:                                             *C01
     1975                            *           DATA SET NOT REPORTING CLEAR TO SEND                    *C01
     1976                            *           TRANSMISSION IN PROGRESS FOR MORE THAN .3 SECONDS       *C01
     1977                            *                                                                   *C01
     1978                            *        CALLING SEQUENCE: R1 = COC LINE NUMBER                     *C01
     1979                            *                          R3 = EBCDIC CHARACTER                    *C01
     1980                            *                          BAL,15  COCXMIT                          *C01
     1981                            *                          -       RETURN                           *C01
     1982                            *                                                                   *C01
     1983                            *        REGISTERS USED: R0,R12,R13                                 *C01
     1984                            *                                                                   *C01
     1985                            *        SUBROUTINES USED: NONE                                     *C01
     1986                            *                                                                   *C01
     1987                            *                                                                   *C01
     1988   01 0046B    72C60495     COCXMIT  LB,12    ASCII,3           CONVERT TO ASCII FROM EBCDIC    *C01
     1989   01 0046C    32D00318     COCXMIT1 LW,13    TICKS                                             *C01
     1990   01 0046D    23D00003 A            MI,13    3                 VALUE FOR .3 SECONDS            *C01
     1991   01 0046E    B0D00054 A            AW,13    *CLOCK            .3 SECONDS TIMEOUT VALUE        *C01
     1992   01 0046F    B1D00054 A   COCXMIT2 CW,13    *CLOCK            TRANSMISSION FOR .3 SECONDS     *C01
     1993   01 00470    6910047B              BCS,1    COCXMIT3          YES                             *C01
     1994   01 00471    ED100491              WD,1     *SENSET           SENSE XMITTER L STATUS          *C01
     1995   01 00472    6820047B              BCR,2    COCXMIT3          DATA SET NOT CLEAR TO SEND      *C01
     1996   01 00473    6810046F              BCR,1    COCXMIT2          TRANSMISSION IN PROGRESS        *C01
     1997   01 00474    25C00008 A            S,12     8                                                 *C01
     1998   01 00475    30C00001 A            AW,12    1                 ADD IN LINE NR                  *C01
     1999   01 00476    EDC00492              WD,12    *XMIT             XMIT ON L                       *C01
     2000   01 00477    21C0F200 A            CI,12    X'F200'           CAR. RET. (0D)                  *C01
     2001   01 00478    E940000F A            BCS,4    *15               NO                              *C01
     2002   01 00479    22C0000A A            LI,12    X'A'              SET LINE FEED                   *C01
     2003   01 0047A    6800046C              B        COCXMIT1                                          *C01
     2004                            *                                                                   *C01
     2005         01 0047B           COCLOFF  EQU      %                                                 *C01
     2006         01 0047B           COCXMIT3 EQU      %                                                 *E00
     2007   01 0047B    22000003 A            LI,0     3                 COC LINE SHOULD COME BACK       *E00
     2008   01 0047C    750204F6              STB,0    COCL,1            SET IT                          *C01
     2009   01 0047D    ED10048F              WD,1     *RECOFF           TURN RECEIVER L OFF             *C01
     2010   01 0047E    ED100490              WD,1     *RECDSOFF         TURN RECEIVER L DATA SET OFF    *C01
     2011   01 0047F    E800000F A            B        *15                                               *C01
     2012                            *                                                                   *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   21
A    2014                            *                                                                   *C01
     2015                            *        IOCD'S                                                     *C01
     2016                            *                                                                   *C01
     2017                                     BOUND    8                                                 *C01
     2018   01 00480    02001500     COC      GEN,8,24  2,BA(COCBYT)                                     *C01
     2019   01 00481    08000020 A            GEN,8,24  8,COCSIZ                                         *C01
     2020   01 00482    06001520     TTYI     GEN,8,24  6,BA(TTYBYTI)                                    *C01
     2021   01 00483    08000010 A            GEN,8,24  8,TTYSIZ                                         *C01
     2022   01 00484    00000243     TTYOUTS  DATA     DA(TTYO)-1,DA(TTYO)                               *C01
            01 00485    00000244
     2023   01 00486    00000240     TTYINS   DATA     DA(TTYI)-1,DA(TTYI)                               *C01
            01 00487    00000241
     2024   01 00488    05001530     TTYO     GEN,8,24  5,BA(TTYBYTO)                                    *C01
     2025   01 00489    08000001 A            GEN,8,24  8,1                                              *C01
     2026                            *                                                                   *C01
     2027                            *        BUFFER SIZES                                               *C01
     2028                            *                                                                   *C01
     2029         00000010           TTYSIZ   EQU      16                LOCAL TTY INPUT BUFFER SIZE     *C01
     2030         00000020           COCSIZ   EQU      32                COC INPUT BUFFER SIZE           *C01
     2031   01 0048A    00000000 A   COCBC    PZE                                                        *C01
     2032   01 0048B    00000000 A   TTYBC    PZE                                                        *C01
     2033                            *                                                                   *C01
     2034                            *                                                                   *C01
     2035                            *        COMPARE LIMITS                                             *C01
     2036                            *                                                                   *C01
     2037                                     BOUND    8                                                 *C01
     2038   01 0048C    00000010 A   10TO13   DATA     X'10',X'13'                                       *C01
            01 0048D    00000013 A
     2039                            *                                                                   *C01
     2040                            *        COC CONTROL FUNCTIONS                                      *C01
     2041                            *                                                                   *C01
     2042   01 0048E    00003001 A   RECON    DATA     X'3001'           TURN RECEIVER LINE ON           *C01
     2043   01 0048F    00003002 A   RECOFF   DATA     X'3002'           TURN RECEIVER LINE OFF          *C01
     2044   01 00490    00003003 A   RECDSOFF DATA     X'3003'           TURN RECEIVER DATA SET OFF      *C01
     2045   01 00491    00003004 A   SENSET   DATA     X'3004'           SENSE TRANSMITTER LINE STATUS   *C01
     2046   01 00492    00003005 A   XMIT     DATA     X'3005'           TRANSMIT ON LINE                *C01
     2047                            *                                                                   *C01
     2048                            *                                                                   *C01
     2049                            *                                                                   *C01
     2050                            *        CONTROL CHARACTERS                                         *C01
     2051                            *                                                                   *C01
     2052         00000040           SPACE    EQU      X'40'             SPACE FOR ALLIGNMENT            *C01
     2053         00000080           NEWPAGE  EQU      X'80'                                             *C01
     2054         0000001B           ESCAPE   EQU      X'1B'             REMOTE TERMINAL HALT PROMPT     *C01
     2055         0000005A           EXCLAM   EQU      X'5A'                                             *C01
     2056                            *                                                                   *C01
     2057                            *        ***COC LINE STATES AND CONTROL***                          *C01
     2058                            *                                                                   *C01
     2059   01 00493    00000000 A   COCNR    DATA     0                 NUMBER OF LINES CURRENTLY       *C01
     2060                            *                                     LOGGED-ON                     *C01
     2061                            *                                                                   *C01
     2062   01 00494    00000040 A   COCLIM   DATA     64                NUMBER OF LINES ALLOWED TO      *E00
     2063                            *                                     BE LOGGED-ON                  *C01
     2064                            *                                                                   *C01
     2065                            *                                     LINE NUMBER                   *C01
     2066                            *                 =    0; LINE IS HUNG                              *C01
     2067                            *                 =    3; RECEIVER CLEAR TO SEND NOT PRESENT        *C01
     2068                            *                 = 10-13; 4 QUESTION MARKS - LOG-ON MESSAGE        *C01
     2069                            *                 = 14-1F; LOG-ON MESSAGE                           *C01
     2070                            *                 = 20-23; WAITING FOR PASSWORD CHARACTERS          *C01
     2071                            *                 =    40; LOGGED ON AS OBSERVER                    *C01
     2072                            *                 =    80; LOGGED ON AS CONTROLLER                  *C01
     2073                            *                                                                   *C01
     2074                            *                                                                   *C01
     2075                            *        CONVERSION TABLE EBCDIC TO ASCII                           *C01
     2076                            *                                                                   *C01
     2077   01 00495    00010203 A   ASCII    DATA     X'00010203'                                       *C01
     2078   01 00496    04090607 A            DATA     X'04090607'                                       *C01
     2079   01 00497    0705150B A            DATA     X'0705150B'                                       *C01
     2080   01 00498    0C0D0E0F A            DATA     X'0C0D0E0F'                                       *C01
     2081   01 00499    10111213 A            DATA     X'10111213'                                       *C01
     2082   01 0049A    140D1617 A            DATA     X'140D1617'                                       *C01
     2083   01 0049B    18191A1B A            DATA     X'18191A1B'                                       *C01
     2084   01 0049C    1C1D1E1F A            DATA     X'1C1D1E1F'                                       *C01
     2085   01 0049D    00000000 A            DATA     0                                                 *C01
     2086   01 0049E    00000000 A            DATA     0                                                 *C01
     2087   01 0049F    00000000 A            DATA     0                                                 *C01
     2088   01 004A0    00000000 A            DATA     0                                                 *C01
     2089   01 004A1    00000000 A            DATA     0                                                 *C01
     2090   01 004A2    00000000 A            DATA     0                                                 *C01
     2091   01 004A3    00000000 A            DATA     0                                                 *C01
     2092   01 004A4    00000000 A            DATA     0                                                 *C01
     2093   01 004A5    20000000 A            DATA     X'20000000'                                       *C01
     2094   01 004A6    00000000 A            DATA     0                                                 *C01
     2095   01 004A7    0000602E A            DATA     X'0000602E'                                       *C01
     2096   01 004A8    3C282B7C A            DATA     X'3C282B7C'                                       *C01
     2097   01 004A9    26000000 A            DATA     X'26000000'                                       *C01
     2098   01 004AA    00000000 A            DATA     0                                                 *C01
     2099   01 004AB    00002124 A            DATA     X'00002124'                                       *C01
     2100   01 004AC    2A293B7E A            DATA     X'2A293B7E'                                       *C01
     2101   01 004AD    2D2F0000 A            DATA     X'2D2F0000'                                       *C01
     2102   01 004AE    00000000 A            DATA     0                                                 *C01
     2103   01 004AF    00005E2C A            DATA     X'00005E2C'                                       *C01
     2104   01 004B0    255F3E3F A            DATA     X'255F3E3F'                                       *C01
     2105   01 004B1    00000000 A            DATA     0                                                 *C01
     2106   01 004B2    00000000 A            DATA     0                                                 *C01
     2107   01 004B3    00003A23 A            DATA     X'00003A23'                                       *C01
     2108   01 004B4    40273D22 A            DATA     X'40273D22'                                       *C01
     2109   01 004B5    00616263 A            DATA     X'00616263'                                       *C01
     2110   01 004B6    64656667 A            DATA     X'64656667'                                       *C01
     2111   01 004B7    68690000 A            DATA     X'68690000'                                       *C01
     2112   01 004B8    00000000 A            DATA     0                                                 *C01
     2113   01 004B9    006A6B6C A            DATA     X'006A6B6C'                                       *C01
     2114   01 004BA    6D6E6F70 A            DATA     X'6D6E6F70'                                       *C01
     2115   01 004BB    71720000 A            DATA     X'71720000'                                       *C01
     2116   01 004BC    00000000 A            DATA     0                                                 *C01
     2117   01 004BD    00007374 A            DATA     X'00007374'                                       *C01
     2118   01 004BE    75767778 A            DATA     X'75767778'                                       *C01
     2119   01 004BF    797A0000 A            DATA     X'797A0000'                                       *C01
     2120   01 004C0    00000000 A            DATA     0                                                 *C01
     2121   01 004C1    005C7B7D A            DATA     X'005C7B7D'                                       *C01
     2122   01 004C2    5B5D0000 A            DATA     X'5B5D0000'                                       *C01
     2123   01 004C3    00000000 A            DATA     0                                                 *C01
     2124   01 004C4    00000000 A            DATA     0                                                 *C01
     2125   01 004C5    00414243 A            DATA     X'00414243'                                       *C01
     2126   01 004C6    44454647 A            DATA     X'44454647'                                       *C01
     2127   01 004C7    48490000 A            DATA     X'48490000'                                       *C01
     2128   01 004C8    00000000 A            DATA     0                                                 *C01
     2129   01 004C9    004A4B4C A            DATA     X'004A4B4C'                                       *C01
     2130   01 004CA    4D4E4F50 A            DATA     X'4D4E4F50'                                       *C01
     2131   01 004CB    51520000 A            DATA     X'51520000'                                       *C01
     2132   01 004CC    00000000 A            DATA     0                                                 *C01
     2133   01 004CD    00005354 A            DATA     X'00005354'                                       *C01
     2134   01 004CE    55565758 A            DATA     X'55565758'                                       *C01
     2135   01 004CF    595A0000 A            DATA     X'595A0000'                                       *C01
     2136   01 004D0    00000000 A            DATA     0                                                 *C01
     2137   01 004D1    30313233 A            DATA     X'30313233'                                       *C01
     2138   01 004D2    34353637 A            DATA     X'34353637'                                       *C01
     2139   01 004D3    38390000 A            DATA     X'38390000'                                       *C01
     2140   01 004D4    0000007F A            DATA     X'0000007F'                                       *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   22
A    2142                            *                                                                   *C01
     2143                            *        CONVERSION TABLE ASCII TO EBCDIC                           *C01
     2144                            *                                                                   *C01
     2145   01 004D5    00010203 A   EBCDIC   DATA     X'00010203'                                       *C01
     2146   01 004D6    04090607 A            DATA     X'04090607'                                       *C01
     2147   01 004D7    0805150B A            DATA     X'0805150B'                                       *C01
     2148   01 004D8    0C150E0F A            DATA     X'0C150E0F'                                       *C01
     2149   01 004D9    10111213 A            DATA     X'10111213'                                       *C01
     2150   01 004DA    140A1617 A            DATA     X'140A1617'                                       *C01
     2151   01 004DB    18191A1B A            DATA     X'18191A1B'                                       *C01
     2152   01 004DC    1C1D1E1F A            DATA     X'1C1D1E1F'                                       *C01
     2153   01 004DD    405A7F7B A            DATA     X'405A7F7B'                                       *C01
     2154   01 004DE    5B6C507D A            DATA     X'5B6C507D'                                       *C01
     2155   01 004DF    4D5D5C4E A            DATA     X'4D5D5C4E'                                       *C01
     2156   01 004E0    6B604B61 A            DATA     X'6B604B61'                                       *C01
     2157   01 004E1    F0F1F2F3 A            DATA     X'F0F1F2F3'                                       *C01
     2158   01 004E2    F4F5F6F7 A            DATA     X'F4F5F6F7'                                       *C01
     2159   01 004E3    F8F97A5E A            DATA     X'F8F97A5E'                                       *C01
     2160   01 004E4    4C7E6E6F A            DATA     X'4C7E6E6F'                                       *C01
     2161   01 004E5    7CC1C2C3 A            DATA     X'7CC1C2C3'                                       *C01
     2162   01 004E6    C4C5C6C7 A            DATA     X'C4C5C6C7'                                       *C01
     2163   01 004E7    C8C9D1D2 A            DATA     X'C8C9D1D2'                                       *C01
     2164   01 004E8    D3D4D5D6 A            DATA     X'D3D4D5D6'                                       *C01
     2165   01 004E9    D7D8D9E2 A            DATA     X'D7D8D9E2'                                       *C01
     2166   01 004EA    E3E4E5E6 A            DATA     X'E3E4E5E6'                                       *C01
     2167   01 004EB    E7E8E9B4 A            DATA     X'E7E8E9B4'                                       *C01
     2168   01 004EC    B1B56A6D A            DATA     X'B1B56A6D'                                       *C01
     2169   01 004ED    4AC1C2C3 A            DATA     X'4AC1C2C3'                                       *C01
     2170   01 004EE    C4C5C6C7 A            DATA     X'C4C5C6C7'                                       *C01
     2171   01 004EF    C8C9D1D2 A            DATA     X'C8C9D1D2'                                       *C01
     2172   01 004F0    D3D4D5D6 A            DATA     X'D3D4D5D6'                                       *C01
     2173   01 004F1    D7D8D9E2 A            DATA     X'D7D8D9E2'                                       *C01
     2174   01 004F2    E3E4E5E6 A            DATA     X'E3E4E5E6'                                       *C01
     2175   01 004F3    E7E8E9B2 A            DATA     X'E7E8E9B2'                                       *C01
     2176   01 004F4    4FB31BFF A            DATA     X'4FB31BFF'                                       *C01
     2177   01 004F5    15000000 A            DATA     X'15000000'                                       *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   23
A    2179                            * PROCEDURES
     2180                            *
     2181         00000000           TEXTS    CNAME                                                      *B03
     2182                                     PROC                                                       *B03
     2183                                     DISP     %                 SUPPRESS LISTING OF             *B03
     2184                                     LIST     0                   TEXT OBJECT CODING.           *B03
     2185                            LF       TEXT     AF                                                *B03
     2186                                     LIST     1                                                 *B03
     2187                                     PEND                                                       *B03
     2188                            *                                                                   *B03
     2189         00000000           TEXTCS   CNAME                                                      *B03
     2190                                     PROC                                                       *B03
     2191                                     DISP     %                 SUPPRESS LISTING OF             *B03
     2192                                     LIST     0                   TEXTC OBJECT CODING.          *B03
     2193                            LF       TEXTC    AF                                                *B03
     2194                                     LIST     1                                                 *B03
     2195                                     PEND                                                       *B03
     2196                            *                                                                   *C01
     2197         00000000           CHECK    CNAME                                                      *C01
     2198                                     PROC                                                       *C01
     2199                                     DISP     X'C00'-ABSVAL(AF(1))                              *E03
     2200                                     ERROR,7,X'C00'<ABSVAL(AF(1)) ;                             *E03
     2201                                              'DPM EXCEEDS MAXIMUM SIZE'                        *E03
     2202                                     PEND                                                       *E03

     2204         00000009                    CHECK    ABSBUF            ENFORCE MAXIMUM SIZE            *E03
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   24
A    2206                            *
     2207                            * EQUATE STATEMENTS:
     2208                            *
     2209         00000200           MLT      EQU      X'200'                                            *E00
     2210         00000201           P1       EQU      MLT+1                                             *B03
     2211         00000202           P2       EQU      MLT+2                                             *B03
     2212         00000203           P3       EQU      MLT+3                                             *B03
     2213         00000204           P4       EQU      MLT+4                                             *B03

     2215         00000214           RETURN   EQU      MLT+20            DIRECTIVE RETURN ADDRESS        *B03
     2216         00000225           MACHINE  EQU      MLT+37            MACHINE TYPE CODE               *B03
     2217         00000226           BIAS     EQU      MLT+38            RELOCATION BIAS                 *B03
     2218         00000227           LOADADD  EQU      MLT+39            ADDRESS OF RESIDENT LOADER      *B03

     2220         00000201           MLT01    EQU      MLT+1                                             *B03
     2221         00000202           MLT02    EQU      MLT+2                                             *B03
     2222         0000020D           MLT13    EQU      MLT+13                                            *C00
     2223         0000020E           MLT14    EQU      MLT+14                                           *C00
     2224         0000020F           MLT15    EQU      MLT+15                                            *B03
     2225         00000210           MLT16    EQU      MLT+16                                            *B03
     2226         00000211           MLT17    EQU      MLT+17                                            *B03
     2227         00000212           MLT18    EQU      MLT+18                                            *B03
     2228         00000213           MLT19    EQU      MLT+19                                            *B03
     2229         00000214           MLT20    EQU      MLT+20                                            *B03
     2230         00000215           MLT21    EQU      MLT+21                                            *B03
     2231         00000216           MLT22    EQU      MLT+22                                            *B03
     2232         00000217           MLT23    EQU      MLT+23                                            *B03
     2233         00000218           MLT24    EQU      MLT+24                                            *B03
     2234         00000219           MLT25    EQU      MLT+25                                            *B03
     2235         0000021A           MLT26    EQU      MLT+26                                            *B03
     2236         0000021B           MLT27    EQU      MLT+27                                            *B03
     2237         0000021C           MLT28    EQU      MLT+28                                            *B03
     2238         0000021D           MLT29    EQU      MLT+29                                            *B03
     2239         0000021E           MLT30    EQU      MLT+30                                            *B03
     2240         0000021F           MLT31    EQU      MLT+31                                            *B03
     2241         00000220           MLT32    EQU      MLT+32                                            *B03
     2242         00000221           MLT33    EQU      MLT+33                                            *B03
     2243         00000222           MLT34    EQU      MLT+34                                            *B03
     2244         00000223           MLT35    EQU      MLT+35                                            *B03
     2245         00000224           MLT36    EQU      MLT+36                                            *B03
     2246         00000225           MLT37    EQU      MLT+37                                            *B03
     2247         00000226           MLT38    EQU      MLT+38                                            *B03
     2248         00000227           MLT39    EQU      MLT+39                                            *B03
     2249         00000228           MLT40    EQU      MLT+40                                            *B03
     2250         00000229           MLT41    EQU      MLT+41                                            *B03
     2251         0000022A           MLT42    EQU      MLT+42                                            *B03
     2252         0000022B           MLT43    EQU      MLT+43                                            *B03
     2253         0000022C           MLT44    EQU      MLT+44                                            *B03
     2254         0000022D           MLT45    EQU      MLT+45                                            *B03
     2255         0000022E           MLT46    EQU      MLT+46                                            *B03
     2256         0000022F           MLT47    EQU      MLT+47                                            *B03
     2257         00000230           MLT48    EQU      MLT+48                                            *B03
     2258         00000231           MLT49    EQU      MLT+49                                            *B03
     2259         00000232           MLT50    EQU      MLT+50                                            *B03
     2260         00000233           MLT51    EQU      MLT+51                                            *B03
     2261         00000234           MLT52    EQU      MLT+52                                           *C01
     2262         00000235           MLT53    EQU      MLT+53                                            *C01
     2263         00000236           MLT54    EQU      MLT+54                                            *C01
     2264         00000237           MLT55    EQU      MLT+55                                            *C01
     2265         00000238           MLT56    EQU      MLT+56                                            *C01
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   25
A    2267                            *MONITOR LINK TABLE - (MOVED TO X'200')                             *E03
     2268         01 004F6           MLTAB    EQU      %                                                 *C01
     2269   01 004F6    6800069D              B        M00310            MLT+0   ABSOLUTE RECOVERY ADDR. *C01
     2270   01 004F7    68000530              B        MTENTRY           MLT+1   MAG TAPE LIBRARY ENTRY  *B03
     2271   01 004F8    00000000 A            DATA     0,0,0,0,0,0,0     MLT+2 TO MLT+12 PARAMETER       *C01
            01 004F9    00000000 A
            01 004FA    00000000 A
            01 004FB    00000000 A
            01 004FC    00000000 A
            01 004FD    00000000 A
            01 004FE    00000000 A
     2272   01 004FF    00000000 A            DATA     0,0,0,0             STORAGE AREA.                 *C00
            01 00500    00000000 A
            01 00501    00000000 A
            01 00502    00000000 A
     2273   01 00503    00000000 A            DATA     0                 MLT+13   TEMP. ASR MODE FLAG    *C00
     2274   01 00504    00000000 A            DATA     0                 MLT+14   NOT USED               *C00
     2275   01 00505    000008C9              DATA     M08000            MLT+15   DMP ROUTINE ADDRESS    *B03
     2276   01 00506    00000595              DATA     M00010            MLT+16   DPM REENTRY            *C01
     2277   01 00507    00000000 A            DATA     0                 MLT+17   PARAMETER STATUS WORD  *B03
        1*  01 00508    000009D6              DATA     M05010            MLT+18   OUTMOD                 *H01
     2279   01 00509    00000A87              DATA     M32000            MLT+19   BCD TO BINARY CONV.    *B03
     2280   01 0050A    00000598              DATA     M00020            MLT+20   DIRECTIVE RETURN ADR.  *B03
        1*  01 0050B    000009D9              DATA     M05015            MLT+21   OUTKSR                 *H01
     2282   01 0050C    00000A7D              DATA     M01000            MLT+22   BIN TO EBCDIC CONV.    *B03
     2283   01 0050D    00000A6C              DATA     M02000            MLT+23   DEC TO EBCDIC CONV.    *B03
     2284   01 0050E    00000A5E              DATA     M03000            MLT+24   HEX TO EBCDIC CONV.    *B03
     2285   01 0050F    00000859              DATA     M06000            MLT+25   1-BYTE INPUT ROUTINE   *B03
     2286   01 00510    00000000 A            DATA     0                 MLT+26   CURRENT CHAR COUNTER   *B03
     2287   01 00511    00000A01              DATA     M04000            MLT+27   ERROR REPORT ROUTINE   *B03
     2288   01 00512    000009C9              DATA     M05000            MLT+28   MESSAGE PRINT ROUTINE  *B03
     2289   01 00513    00000A14              DATA     M31000            MLT+29   SENSE ROUTINE          *B03
     2290   01 00514    2E000000 A            WAIT     0                 MLT+30   'WAIT' COMMAND         *B03
     2291   01 00515    E800000F A            B        *15               MLT+31   I/O CANNOT BE EXECUTED *B03
     2292   01 00516    00000001 A            GEN,2,30 0,1               MLT+32   MOD DEVICE ADDRESS     *B03
     2293   01 00517    00000001 A            DATA     1                 MLT+33   MID DEVICE ADDRESS     *B03
     2294   01 00518    00000000 A            DATA     0                 MLT+34   INITIAL LOADING DEVICE *B03
     2295   01 00519    000009D2              DATA     M05007            MLT+35   TELETYPE PRINT ROUTINE *B04
     2296   01 0051A    00000001 A            DATA     1                 MLT+36   DEFAULT CONTROL DEV ADR*B03
     2297   01 0051B    00000000 A            DATA     0                 MLT+37   MACHINE TYPE CODE      *B03
     2298   01 0051C    00000000              DATA     REMSIZE           MLT+38   RELOCATION BIAS OF DPM *C01
     2299   01 0051D    00000000 A            DATA     0                 MLT+39   RESIDENT LOADER ADR    *B03
     2300   01 0051E    00000000 A            DATA     0                 MLT+40   MAG TAPE LIBRARY FLAG  *C00
     2301   01 0051F    0000098D              DATA     M49000            MLT+41   PARAMETER ERROR REPORT *B03
     2302   01 00520    00000A31              DATA     QSENSE            MLT+42   QSENSE                 *C01
     2303   01 00521    00000A3A              DATA     WAIT              MLT+43   WAIT                   *C01
     2304   01 00522    0000088B              DATA     DICT              MLT+44   ADDRESS OF DICTIONARY  *B03
     2305   01 00523    0000000E A            DATA     CNTDICT           MLT+45   LENGTH OF DICTIONARY   *B03
     2306   01 00524    00000000 A            DATA     0                 MLT+46   LAST MEMORY ADDRESS    *B03
     2307   01 00525    00000594              DATA     M00010-1          MLT+47   LAST USABLE MEM LOC.   *C00
     2308   01 00526    00000B6E              DATA     BUFFER01          MLT+48   120 BYTE INPUT BUFFER  *B03
     2309   01 00527    00000B8C              DATA     BUFFER            MLT+49   40-WORD PARAM. BUFFER  *B03
     2310   01 00528    0000091D              DATA     M14000            MLT+50   LOAD DIRECTIVE ADDR.   *B03
     2311   01 00529    00000A93              DATA     M22000            MLT+51   INPUT THUR IO          *C01
     2312   01 0052A    00000A93              DATA     M22000            MLT+52   OUTPUT THUR IO         *C01
     2313   01 0052B    00000A93              DATA     M22000            MLT+53   ERROR REPORT THUR IO   *C01
     2314   01 0052C    000005FD              DATA     M13090            MLT+54   DIRECTIVE PREPROSSOR   *C01
        1*  01 0052D    E800000F A            B        *15               MLT+55   REMOTE CONNECT         *H02
        2*  01 0052E    00000000 A            DATA     0                 MLT+56   10HZ USER TIMER        *H02
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   26
A    2318         01 004F6           COCL     EQU      MLTAB                                             *D00
     2319         01 00506           REGSAVE  EQU      COCL+16                                           *D00
     2320         01 00520           CCPSAVE  EQU      REGSAVE+26                                        *C01
     2321         01 00530           MSGOUTS  EQU      CCPSAVE+16                                        *C01
     2322         01 00540           COCBYT   EQU      MSGOUTS+16                                        *C01
     2323         01 00548           TTYBYTI  EQU      COCBYT+8                                          *C01
     2324         01 0054C           TTYBYTO  EQU      TTYBYTI+4                                         *C01
     2325         01 0054E           SAVE     EQU      TTYBYTO+2                                         *E02
     2326         01 00560           SAVL0    EQU      SAVE+18                                           *E02

     2328                            *        PROGRAM INTERFACE TABLE    INTERFACING PROGRAM DATA FOR MONITOR
     2329                            *
     2330         00000300           PIT      EQU      X'300'            PIT+0    UNASSIGNED             *B03
     2331         00000301           PIT01    EQU      PIT+1             PIT+1    ADDRESS OF 'TEXTC' FOR *B03
     2332                            *                                             IDENTIFICATION MESSAGE*B03
     2333         00000302           PIT02    EQU      PIT+2             PIT+2    ADDRESS OF PROGRAM'S   *B03
     2334                            *                                             DIRECTIVE DICTIONARY  *B03
     2335         00000303           PIT03    EQU      PIT+3             PIT+3    WORD LENGTH OF PROGRAM'*B03
     2336                            *                                             DIRECTIVE DICTIONARY. *B03
     2337         00000304           PIT04    EQU      PIT+4             PIT+4    ADDR. OF RECOVERY/LOAD *B03
     2338                            *                                    INITIALIZATION ROUTINE.  0 = NO*B03
     2339         00000305           PIT05    EQU      PIT+5             PIT+5    ADDRESS OF CONTEXT     *B03
     2340                            *                                             DESCRIPTION TABLE.    *B03
     2341         00000306           PIT06    EQU      PIT+6             PIT+6    LENGTH OF CONTEXT      *B03
     2342                            *                                            DESCRIPTION TABLE.     *B03
        1*        00000307           PIT07    EQU      PIT+7             PIT+7    DIRECTIVE MNEMONIC     *H01
     2344         00000308           PIT08    EQU      PIT+8             PIT+8    ADDRESS OF INITIALIZER *B03
     2345                            *                                                                   *B03
     2346         00000309           PIT09    EQU      PIT+9             PIT+9    MODEL NUMBER IN BINARY *B03
     2347         0000030A           PIT10    EQU      PIT+10            PIT+10   PARAMETER NO. AND FLAG *B03
     2348                            *                                             FOR PARAMETER ERROR.  *B03
     2349         0000030B           PIT11    EQU      PIT+11            PIT+11   ADDR OF MSG.           *B03
     2350                            *                                             DPM PRINTS MSG AFTER  *B03
     2351                            *                                              RETURN FROM INITI-   *B03
     2352                            *                                               ALIZER IF NOT ZERO. *B03
     2353         0000030C           PIT12    EQU      PIT+12            PIT+12   USER DIRECTIVES PERMITT*B03
     2354                            *                                             WHEN SET TO -1 BY USER*B03
     2355                            *                                              OTHERWISE SYST       *B03
     2356                            *                                              DIRECTIVE IS REQUIRED*B03
     2357         0000030D           PIT13    EQU      PIT+13            PIT+13   NOT USED               *B03
     2358         0000030E           PIT14    EQU      PIT+14            PIT+14   NOT USED               *B03
     2359         0000030F           PIT15    EQU      PIT+15            PIT+15   USER MEMORY PARITY AND *B03
     2360                            *                                            MACHINE FAULT ENTRY    *B03
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   27
A    2362                            *EXECUTIVE
     2363                            *
     2364   01 0052F    68000542     M00000   B        M00000C                                           *C01

     2366   01 00530    02200070 A   MTENTRY  LCI      7                                                 *C01
     2367   01 00531    2A92000D A            LM,9     13,1              FETCH REMOTE INFORMATION        *C01
     2368   01 00532    31900BD7              CW,9     =X'31415926'      IS IT REMOTE FACILITY           *C01
     2369   01 00533    6930053C              BNE      MTENTRY1            SKIP IF NO REMOTE             *E03

     2371   01 00534    7200000D A            LB,0     13                EXAMINE COC STATE               *G00
     2372   01 00535    210000C0 A            CI,0     X'C0'              AND ASSUME LOG-OFF             *G00
     2373   01 00536    6840053C              BAZ      MTENTRY1            IF COC NOT REALLY THERE       *G00

     2375   01 00537    02200070 A            LCI      7                                                 *C01
     2376   01 00538    2B900BC8              STM,9    REMCODE           STORE REMOTE INFORMATION        *C01
     2377   01 00539    35E00BC7              STW,14   COCLOG            NUMBER OF LAST LINE LOGGED      *E01
     2378   01 0053A    32400BCB              LW,4     DIODEV            SET THE DIO ADDRESS             *E02
     2379   01 0053B    6AF00412              BAL,15   SETDIO             INTO THE COC/DIO COMMANDS      *E02

     2381   01 0053C    22F00001 A   MTENTRY1 LI,15    1                                                 *C01
     2382   01 0053D    35F0051E              STW,15   MLTAB+40          SET MAG TAPE LIBRARY FLAG       *C01
     2383   01 0053E    22000000 A            LI,0     0                 SET REG 0 TO  0                 *C01
     2384   01 0053F    32F20005 A            LW,15    5,1               GET INITIAL LOADING DEVICE      *C01
     2385   01 00540    CDC0000F A            TIO,12   *15               IS LOADING DEVICE READY         *C01
     2386   01 00541    69C00540              BCS,12   %-1               B: NO                           *D00
     2387                            *                                                                   *C01
     2388                            * MLT MOVE                                                          *C01
     2389                            *                                                                   *C01
     2390   01 00542    227FFFC8 A   M00000C  LI,7     -56                                               *C01
     2391   01 00543    32CE052E              LW,12    MLTAB+56,7                                        *C01
     2392   01 00544    35CE0238 A            STW,12   MLT56,7                                           *C01
     2393   01 00545    65700543              BIR,7    %-2                                               *C01

     2395   01 00546    2270003F A            LI,7     X'3F'             SET STATE OF ALL LINES          *E03
     2396   01 00547    22400003 A            LI,4     3                  TO LOGON-PENDING               *E03
     2397   01 00548    754E04F6              STB,4    COCL,7              HAPPENS REGARDLESS OF         *E03
     2398   01 00549    64700548              BDR,7    %-1                  STATE OF THE COC             *E03
     2399   01 0054A    754E04F6              STB,4    COCL,7                                            *E00

     2401   01 0054B    72400BCC              LB,4     COCSTATE          COC STATE                       *D00
     2402   01 0054C    32700BCD              LW,7     COCLINE           NUMBER OF CONTROLLING LINE      *E00
     2403   01 0054D    21400080 A            CI,4     X'80'             ONLY A CONTROLLER               *E03
     2404   01 0054E    68400551              BAZ      M00000D            REMAINS LOGGED-ON              *E03

     2406   01 0054F    754E04F6              STB,4    COCL,7            SAVE CONTROLLER STATUS          *E03
     2407   01 00550    73100493              MTB,1    COCNR              AND SET NUMBER OF LOGGED LINES *E03

     2409         01 00551           M00000D  EQU      %                                                 *E03
     2410   01 00551    22700000 A            LI,7     0                                                 *C01
     2411   01 00552    35700201 A            STW,7    MLT01                                             *C01
     2412   01 00553    35100227 A            STW,1    MLT39             LOADER ADDRESS TO MLT
     2413   01 00554    210FFFFF A            CI,0     -1                IF REG 0 CONTAINS A -1          *B02
     2414   01 00555    69300558              BNE      %+3                 THE LOAD DIR. IS BYPASSED     *C00
     2415   01 00556    3500020D A            STW,0    MLT13                                             *C00
     2416   01 00557    35000B46              STW,0    LOADIM                AND THE PROG. IS LOADED.    *B02
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   28
A    2418                            * TEST TTY ADDR                                                     *C01
     2419                            *                                                                   *C01
     2420   01 00558    CF000224 A   M000001  HIO,0    *MLT36            TEST DPM TTY ADDRESS            *C01
     2421   01 00559    68C00566              BCR,12   M000002           BRANCH IF ADDR. RECOGNIZED      *C01
     2422   01 0055A    32320000 A            LW,3     0,1              FETCH TABLE ADDRESS              *C01
     2423   01 0055B    30300001 A            AW,3     1                ADD RELOCATION BIAS ADDRESS      *C01
     2424   01 0055C    32260004 A            LW,2     4,3              FETCH LOADER TTY ADRS.           *C01
     2425   01 0055D    32000002 A            LW,0     2                 LOAD TTY ADDR IN REG 0          *C01
     2426   01 0055E    CD000002 A            TIO,0    *2               TEST FOR RECOGNITION             *C01
     2427   01 0055F    68C00562              BCR,12   %+3              BRANCH IF ADRS. RECOGNIZED       *C01
     2428   01 00560    2E000560              WAIT     %         WAIT HERE FOR NEW ADRS. INSERTION       *C01
     2429   01 00561    35060004 A            STW,0    4,3               STORE ADDR IN LOADER            *C01
     2430   01 00562    35000224 A            STW,0    MLT36             STORE ADDR IN TTY               *C01
     2431   01 00563    35000221 A            STW,0    MLT33             STORE ADDR IN MID               *C01
     2432   01 00564    35000220 A            STW,0    MLT32             STORE ADDR IN MOD               *C01
     2433   01 00565    68000558              B        M000001           TEST NEW ADDR.                  *C01
     2434   01 00566    32F20005 A   M000002  LW,15    5,1               GET INITIAL LOADING DEVICE      *C01
     2435   01 00567    35F00222 A            STW,15   MLT34               FROM LOADER AND SAVE          *C01
     2436   01 00568    32F00B50              LW,15    LBRXPSD                                           *D01
     2437   01 00569    35F00040 A            STW,15   X'40'             SET  TRAP LOC FOR NON-SIGMA TEST *D0
     2438   01 0056A    27AE09FE              GEN,8,4,3,17  X'27',10,7,M05060  THIS IS A LBR,10 M05060 IN*D01
     2439   01 0056B    224000E3 A            LI,4     'T'               T =  NON-SIGMA                  *D01
     2440   01 0056C    68000573              B        M90000+1                                          *D01
     2441   01 0056D    32F00B4B     M900005  LW,15    LRAXPSD                                           *D01
     2442   01 0056E    35F00040 A            STW,15   X'40'             SET TRAP LOC FOR SIG 9 TEST     *C01
     2443   01 0056F    2CA0052F              GEN,8,4,20  X'2C',10,M00000  THIS IS A LRA,10 M00000 INSTR *C01
     2444   01 00570    22400009 A            LI,4     9                 9 = SIG 8/9                     *C01
     2445   01 00571    68000573              B        %+2                                               *C01
     2446   01 00572    22400000 A   M90000   LI,4     0                 0 = SIG 5/7                     *C01
     2447   01 00573    35400225 A            STW,4    MLT37             SET MACHINE TYPE INDICATOP      *C01
     2448   01 00574    6AF00614              BAL,15   M34000            STUFF INTERRUPTS AND TRA        *C01
     2449   01 00575    32F20006 A            LW,15    6,1               GET LAST MEMORY ADDR            *C01
     2450   01 00576    35F0022E A            STW,15   MLT46               AND SAVE                      *C01
     2451   01 00577    21F03FFF A            CI,15    X'3FFF'           IS MEMORY >16K                  *C01
     2452   01 00578    6820057B              BLE      %+3               B: NO                           *C01
     2453   01 00579    32F0059F              LW,15    REMINST                                           *C01
     2454   01 0057A    35F00237 A            STW,15   MLT55             SAVE REMOTE CONNECT             *C01
     2455   01 0057B    32520000 A            LW,5     0,1               GET DISPLACEMENT OF 'TABLE'     *C00
     2456   01 0057C    30500001 A            AW,5     1                 ADD RELOCATION BIAS             *C00
     2457   01 0057D    3260022F A            LW,6     MLT47             PROTECT MONITOR                 *C00
     2458   01 0057E    356A0002 A            STW,6    2,5                 FROM BEING OVERLAID           *C00
     2459   01 0057F    6D000040 A            WD,0     X'40'                RESET ALARM INDICATOR        *B02
     2460   01 00580    32600BDD              LW,6     L(X'40404040')                                    *B02
     2461   01 00581    225FFFBA A            LI,5     -70            SET COUNTER                        *B02
     2462   01 00582    356A0BB4              STW,6    BUFFER01+70,5  STORE BLANKS INTO BUFFER REGION    *B02
     2463   01 00583    65500582              BIR,5    %-1                                               *B02
     2464   01 00584    73000220 A            MTB,0    MLT32          CHECK INPUT DEVICE                 *B02
     2465   01 00585    68300588              BE       %+3            IF KSR BRANCH                      *B02
     2466   01 00586    22500060 A            LI,5     X'60'          IF LINE PRINTER                    *B02
     2467   01 00587    75500B6E              STB,5    BUFFER01        STORE A SPACE SKIP IN FIRST BYTE  *B02
     2468   01 00588    22000303              LI,0     DA(IO:RSET)    FETCH DOUBLE WORD                  *B02
     2469   01 00589    CC000220 A            SIO,0    *MLT32
     2470   01 0058A    6980058F              BCS,8    %+5                                               *B02
     2471   01 0058B    6AF005FE              BAL,15   IO:TGL         BRANCH TO RESET IO                 *B02
     2472   01 0058C    CD000220 A            TIO,0    *MLT32                                            *B02
     2473   01 0058D    68C00591              BCR,12   OK:SET         IO JUMPER IN                       *B02
     2474   01 0058E    CF000220 A            HIO,0    *MLT32                                            *B02
     2475   01 0058F    3310060C              MTW,1    RSTFLG         IO JUMPER NOT IN                   *B02
     2476   01 00590    68000593              B        M000003                                           *C01
     2477   01 00591    22000000 A   OK:SET   LI,0     0                                                 *B02
     2478   01 00592    3500060C              STW,0    RSTFLG         IO JUMPER IN CLEAR FLAG            *B02
     2479   01 00593    33000228 A   M000003  MTW,0    MLT40             TEST MAG TAPE LIBRARY FLAG      *C01
     2480   01 00594    6930092A              BCS,3    M14020            B: FROM MAG TAPE LIBRARY        *C01
     2481                            *
     2482                            *PRECEDING CODING CANNOT BE RE-EXECUTED
     2483                            *
     2484                            *RE-ENTRY AFTER MONITOR ERROR
     2485   01 00595    6AF00621     M00010   BAL,15   M34100            RECOVERY ADDRESS TO LOCATION 26
     2486   01 00596    6AF007F2              BAL,15   M00313            SET MID TO KSR, STAND ALONE MODE
     2487   01 00597    E8000214 A            B        *MLT20            BRANCH TO RE-ENTRY LOC          *C01
     2488                            *RE-ENTRY AFTER EXECUTION OF A DIRECTIVE
     2489   01 00598    6AF007F5     M00020   BAL,15   M00315            ARM, ENABLE CP AND PY INTERRUPTS
     2490   01 00599    3500060E     M000201  STW,0    TI:FLG        CLEAR TRAP INTERRUPT FLAG       *C01 *B0
     2491   01 0059A    35000A00              STW,0    BREAKFLG          RESET BREAK FLAG                *C01
     2492   01 0059B    3500030F A            STW,0    PIT15         CLEAR PIT+15                        *B02
     2493   01 0059C    33000B46              MTW,0    LOADIM            IS LOAD IMMEDIATE FLAG SET      *B02
     2494   01 0059D    683005A2              BEZ      M13000            NO                              *B02
     2495   01 0059E    6800091D              B        M14000            YES - GO DIRECTLY TO LOAD       *B02
     2496   01 0059F    68000293     REMINST  B        REMCONNT                                          *C01
     2497                            *
     2498                            *
     2499                            *TRANSLATOR
     2500         00000002           MAXPN    EQU      2                 0/1/2, HEX/DEC/AN TYPE CODE
     2501                            *
     2502                            *LOOP HERE TO TYPE ERROR, ENTER SYST DIRECTIVE
     2503   01 005A0    EAF00223 A   M13002   BAL,15   *MLT35                                            *C01
     2504   01 005A1    00000BC1              DATA     M13003
     2505                            *
     2506                            *NORMAL ENTRY
     2507   01 005A2    6AF00846     M13000   BAL,15   M47000            GET FIRST CHAR OF A RECORD
     2508   01 005A3    0000005A A            DATA     '!'                 MATCH CHAR
     2509   01 005A4    680005FB              B        M13070              BRANCH, NO MATCH
     2510   01 005A5    22E00048 A            LI,14    72                IF RECORD LENGTH EXCEEDS 72,
     2511   01 005A6    31E00876              CW,14    M06900              REDUCE
     2512   01 005A7    681005A9              BGE      %+2
     2513   01 005A8    35E00876              STW,14   M06900
     2514   01 005A9    6AF007FD     M13080   BAL,15   M12000            TO PARAMETER PROCESSOR FOR DIRECTIVE
     2515   01 005AA    00000002 A            DATA     2                   TYPE CODE 2, A/N
     2516   01 005AB    680005A2              B        M13000              EXIT ON MINUS, VOIDED ENTRY
     2517   01 005AC    E8000210 A            B        *MLT16              ERROR EXIT                    *C01
     2518                            *DIRECTIVE MNEMONIC IN REG 13
     2519   01 005AD    32E00BDE              LW,14    =X'80000'         SET SWITCH, MONITOR DICTIONARY
     2520   01 005AE    32C0022C A   M13005   LW,12    MLT44             LOAD STARTING ADRS OF DICTIONARY*B03
     2521   01 005AF    3260022D A            LW,6     MLT45             LENGTH DICTIONARY TO REG 6      *B03
     2522   01 005B0    206FFFFE A   M13010   AI,6     -2                DECREMENT LENGTH FOR NEXT ENTRY
     2523   01 005B1    681005BB              BGEZ     M13011            BRANCH, ALL ENTRIES NOT CHECKED
     2524   01 005B2    21E00000 A            CI,14    0                 ALL ENTRIES CHECKED
     2525   01 005B3    683005B9              BE       M13020            IF USER DICTIONARY CHECKED, BRANCH
     2526   01 005B4    32600303 A            LW,6     PIT03             USER DICT LENGTH TO REG 6
     2527   01 005B5    32C00302 A            LW,12    PIT02             USER DICT ADRS TO REG 12
     2528   01 005B6    22E00000 A            LI,14    0                 RESET SWITCH
     2529   01 005B7    31E00B42              CW,14    LOADED            CK IF USER PROG LOADED
     2530   01 005B8    693005B0              BNE      M13010            LOOP IF USER PROGRAM
     2531   01 005B9    22C01302 A   M13020   LI,12    X'1302'           ALL DICTIONARIES CHECKED
     2532   01 005BA    6800087E              B        M07000            LOAD ERROR CODE, TO ERROR ROUTINE
     2533   01 005BB    B1DC000C A   M13011   CW,13    *12,6             COMPARE DICT ENTRY WITH DIRECTIVE
     2534   01 005BC    693005B0              BNE      M13010            LOOP IF NOT MATCH
     2535   01 005BD    21E00000 A            CI,14    0
     2536   01 005BE    693005C1              BNE      %+3               BRANCH, NOT USER PROGRAM
     2537   01 005BF    3300030C A            MTW,0    PIT12
     2538   01 005C0    683005A0              BEZ      M13002            BRANCH, RUN SWITCH RESET

        2*  01 005C1    35D00307 A            STW,13   PIT07             SAVE DIRECTIVE MNEMONIC         *H01
     2539   01 005C2    20600001 A            AI,6     1                 ADJUST INDEX TO GET CONTROL WORD
     2540   01 005C3    B2CC000C A            LW,12    *12,6             CONTROL WORD TO REG 12
     2541   01 005C4    6AF005C7              BAL,15   M13012
     2542   01 005C5    680005A2              B        M13000              EXIT ON MINUS
     2543   01 005C6    E8000210 A            B        *MLT16              ERROR EXIT                    *C01

     2544                            *ADD ROUTINE ENTERS HERE
     2545   01 005C7    35F005ED     M13012   STW,15   M13055
     2546   01 005C8    35C00B45              STW,12   DICTWORD          CONTROL WORD TO DICTWORD
     2547   01 005C9    22F00000 A            LI,15    0                 CLEAR PARAMETER STATUS WORD IN
     2548   01 005CA    35F00211 A            STW,15   MLT17               MONITOR LINK TABLE
     2549   01 005CB    15F00B8C              STD,15   BUFFER            CLEAR BUFFER STORAGE FOR FIRST 4
     2550   01 005CC    15F00B8E              STD,15   BUFFER+2            PARAMETERS
     2551   01 005CD    32F00B44              LW,15    EXITIND           BRANCH IF PARAM PROCESSOR EXIT SET
     2552   01 005CE    693005F6              BNEZ     M13040            DIRECTIVE FOL'D BY TERMINATING CHAR
     2553   01 005CF    22600004 A            LI,6     4                 SET COUNT FOR MAX NBR PARAMETERS
     2554   01 005D0    31C0000E A            CW,12    14                IF MONITOR DIRECTIVE, CK CONTROL
     2555   01 005D1    684005D3              BCR,4    %+2                 BIT 12 ZERO, MAX IS 4
     2556   01 005D2    20600024 A            AI,6     36                  BIT 12 ONE, MAX IS 40
     2557   01 005D3    356005EB              STW,6    M13100            SAVE MAX COUNT
     2558   01 005D4    4BC00BDF              AND,12   =X'FFF00000'      DELETE BITS 12-31 TO PROVIDE TYPE
     2559                            *                                     CODE 0, HEX, FOR PARAMETERS 5-255
     2560   01 005D5    22D00000 A   M13030   LI,13    0                 SHIFT NEXT WORD TYPE CODE OUT OF
     2561   01 005D6    25C00303 A            SCD,12   3                   CONTROL WORD
     2562   01 005D7    35C005EC              STW,12   M13200
     2563   01 005D8    21D00002 A            CI,13    MAXPN             CK FOR LEGAL CODE
     2564   01 005D9    682005DD              BLE      %+4               BRANCH IF CODE LEGAL
     2565   01 005DA    22C01303 A   M13050   LI,12    X'1303'           LOAD ERROR CODE
     2566   01 005DB    6AF00880              BAL,15   M07100            TYPE ERROR MESSAGE
     2567   01 005DC    E80205ED              B        *M13055,1           ERROR EXIT
     2568   01 005DD    35D005DF              STW,13   %+2               STORE CODE IN CALLING SEQUENCE
     2569   01 005DE    6AF007FD              BAL,15   M12000            TO PARAMETER PROCESSOR
     2570   01 005DF                          RES      1                   WORD TYPE CODE
     2571   01 005E0    E80005ED              B        *M13055             EXIT ON MINUS (VOID)
     2572   01 005E1    E80205ED              B        *M13055,1           ERROR EXIT
     2573                            *PARAMETER IN R13
     2574   01 005E2    72620211 A            LB,6     MLT17,1           PARAMETER COUNT TO INDEX
     2575   01 005E3    35DC0B8C              STW,13   BUFFER,6          STORE PARAMETER IN BUFFER
     2576   01 005E4    73120211 A            MTB,1    MLT17,1           INCREMENT COUNT OF PARAMETERS
     2577   01 005E5    32D00B44              LW,13    EXITIND           CK EXIT INDICATOR, BRANCH IF HAD
     2578   01 005E6    693005EE              BNEZ     M13060              TERMINATING CHAR
     2579   01 005E7    33F005EB              MTW,-1   M13100            DECREMENT MAX COUNT
     2580   01 005E8    683005DA              BEZ      M13050            COUNT REDUCED TO ZERO, ERROR BRANCH
     2581   01 005E9    32C005EC              LW,12    M13200            LOAD SHIFTED CONTROL WORD
     2582   01 005EA    680005D5              B        M13030
     2583   01 005EB                 M13100   RES      1                 MAX NBR LEGAL PARAMETERS
     2584   01 005EC                 M13200   RES      1                 MODIFIED CONTROL WORD
     2585   01 005ED                 M13055   RES      1
     2586                            *TERMINATING CHAR, 1 OR MORE PARAMETERS
     2587   01 005EE    72C20211 A   M13060   LB,12    MLT17,1           LOAD PARAMETER COUNT
     2588   01 005EF    21C00004 A            CI,12    4
     2589   01 005F0    682005F2              BLE      %+2               MORE THAN 4 PARAMETERS, SET TO 4
     2590   01 005F1    22C00004 A            LI,12    4
     2591   01 005F2    22D00F00 A            LI,13    X'F00'            FORM BYTE WITH BITS 0-3=1/0 FOR
     2592   01 005F3    25D0007F A            SLS,13   -1                 PARAMETER/NO PARAMETER
     2593   01 005F4    64C005F3              BDR,12   %-1
     2594   01 005F5    75D00211 A            STB,13   MLT17             STORE IN BYTE 0, PARAMETER STATUS
     2595   01 005F6    02200040 A   M13040   LCI      4                 MOVE FIRST 4 PARAMETERS TO
     2596   01 005F7    2AC00B8C              LM,12    BUFFER              MONITOR LINK TABLE
     2597   01 005F8    2BC00201 A            STM,12   MLT01
     2598   01 005F9    EAF00236 A            BAL,15   *MLT54            BRANCH TO DIRECTIVE             *C01
     2599   01 005FA    E8000214 A            B        *MLT20            RETURN TO MONITOR
     2600                            *
     2601   01 005FB    22C01301 A   M13070   LI,12    X'1301'           FIRST CHAR NOT EXCLAMATION      *B02
     2602   01 005FC    6800087E              B        M07000
     2603   01 005FD    E8000B45     M13090   B        *DICTWORD                                         *C01
     2604                            *
     2605                            *        SUBROUTINE TO RESET IO"S
     2606                            *
     2607   01 005FE    22401388 A   IO:TGL   LI,4     5000           SET UP THE 7.5 MS DELAY            *B02
     2608   01 005FF    22501388 A            LI,5     5000                                              *B02
     2609   01 00600    6D000042 A            WD,0     X'42'          SHOOT A TOGGLE TO FLIP FLOP        *B02
     2610   01 00601    64400601              BDR,4    %              DELAY 7.5 MS                       *B02
     2611   01 00602    6D000042 A            WD,0     X'42'                                             *B02
     2612   01 00603    64500603              BDR,5    %              DELAY 7.5 MS                       *B02
     2613   01 00604    E800000F A            B        *15            BRANCH BACK                        *B02
     2614                            *
     2615                            *        IO RESET OUTPUT DOUBLE WORDS                               *B02
     2616                                     BOUND    8                                                 *B02
     2617                            *
     2618   01 00606    05002DB8     IO:RSET  GEN,8,24 X'05',BA(BUFFER01)                                *B02
     2619   01 00607    00000046 A            GEN,8,24 0,70                                              *B02
     2620   01 00608    00000755     LPS1:    DATA     PDFCLEAR,0        CLEAR PDF FLAG PSD              *B03
            01 00609    00000000 A
     2621   01 0060A    00000000 A   LPSD1    DATA     0             RETURNING LPSD                      *B02
     2622   01 0060B    00000000 A            DATA     0                                                 *B02
     2623                            *
     2624   01 0060C    00000000 A   RSTFLG   DATA     0              RESET FLAG                         *B02
     2625   01 0060D    00000000 A   CC       DATA     0             CURRENT CONDITION CODE AT TRAP TIME *B02
     2626   01 0060E    00000000 A   TI:FLG   DATA     0             TRAP/INTERRUPT MULTIPLE FLAG        *B02
     2627   01 0060F    00000000 A   TRAPLOC  DATA     0             TRAP/INT. LOCATION                  *B02
     2628   01 00610    6800072C     BRN:X    B        BR:X          RETURNING INSTRUCTION FOR X'26'     *B02
     2629   01 00611    680006E1     BR:MLP   B        BACK:         XCHANGE INSTRUCTION FOR X'26'       *B02
     2630   01 00612    00000000 A   MEMCHCK  DATA     0             MEM, CHECK FLAG. FOR PRINT OUT      *B02
     2631                            *
     2632                            *        SUB-ROUTINE TO STUFF INTERRUPT AND TRAP LOCATIONS
     2633                            *
     2634   01 00613    00000614     M34000L  DATA     M34000            ADR OF ROUTINE                  *C01
     2635   01 00614    6D000031 A   M34000   WD,0     X'31'             INHIBIT EXTERNAL INTERRUPT
     2636   01 00615    22C0F3E0 A            LI,12    X'F3E0'           DISARM ALL GROUP 0 INTERRUPTS
     2637   01 00616    6DC01100 A            WD,12    X'1100'             EXCEPT MEM PY, CONTROL PANEL
     2638   01 00617    227FFF00 A            LI,7     X'40'-X'140'      FILL INTERRUPT AND TRAP LOC.    *D00
     2639   01 00618    3260062A              LW,6     M00600              WITH XPSD COMMAND
     2640   01 00619    356E0140 A            STW,6    X'140',7                                          *D00
     2641   01 0061A    65700619              BIR,7    %-1
     2642   01 0061B    326E0624              LW,6     M00A00,7      SPECIFIC TRAP/INT. LOCATIONS        *B02
     2643   01 0061C    72CE062F              LB,12    M00700,7      FETCH SPECIFIC TRAP/INT LOCATIONS   *B02
     2644   01 0061D    B560000C A            STW,6    *12                 MEMORY PARITY INTERRUPT
     2645   01 0061E    20700001 A            AI,7     1                   NON-ALLOWED OPERATION
     2646   01 0061F    2170000B A            CI,7     M00800              UNIMPLEMENTED INSTN
     2647   01 00620    6910061B              BL       %-5                 WATCHDOG TIMER, POWER FAILURE
     2648   01 00621    32C00200 A   M34100   LW,12    MLT+0             SET RECOVERY ADDRESS
     2649   01 00622    35C00026 A            STW,12   X'26'
     2650   01 00623    E800000F A            B        *15
     2651                            *
     2652                            *INTERRUPT COMMANDS
     2653   01 00624    0F00063E     M00A00   XPSD,0   M00300        CONTROL PANEL INTERRUPT             *B02
     2654   01 00625    0F000636              XPSD,0   M00220        POWER ON INTERRUPT                  *B02
     2655   01 00626    0F00063A              XPSD,0   M00240              OFF
     2656   01 00627    0F000646              XPSD,0   M00400        NON ALLOWED OPERATION TRAP          *B02
     2657   01 00628    0F000632              XPSD,0   M00200        UNIMPLEMENTED INSTRUCTION TRAP      *B02
     2658   01 00629    0F00064A              XPSD,0   M00500        WATCH DOG TIMER TRAP                *B02
     2659   01 0062A    0F00064E     M00600   XPSD,0   M00100        MISC. TRAPS & INTERRUPTS            *B02
     2660   01 0062B    0F000642              XPSD,0   M00350        SIGMA 5:7 MEM PARITY TRAP           *B02
     2661                            *                               SIGMA 9 PROCESSOR FAULT INTERRUPT   *B02
     2662   01 0062C    0F000652              XPSD,0   M00920        SIGMA 9 MEMORY PARITY TRAP.         *B02
     2663   01 0062D    0F000656              XPSD,0   M00940        SIGMA 9 SEQUENCE CHANGE FAULT.TRAP  *B02
     2664   01 0062E    0F00065A              XPSD,0   M00960        MEMORY FAULT INTERRUPT. SIGMA 9     *B02
     2665                            *
     2666                            *   INTERRUPTS AND TRAPS ADDRESSES.                                 *B02
     2667                            * NOTE: WHEN A POWER 'ON' INTERRUPT OCCURS, ITS INTERRUPT           *B03
     2668                            * LOCATION IS TYPED OUT, HOWEVER THE PSD TYPED OUT                  *B03
     2669                            * AT THIS TIME IS THE PROG STATUS DOUBLE WD. OF THE                 *B03
     2670                            * POWER 'OFF' INTERRUPT.                                            *B03
     2671                            *
     2672                            M00700   DATA,1   X'5D',;       CONTROL PANEL INTERRUPT             *B02
     2673                                              X'50',;       POWER ON  INTERRUPT                 *B03
     2674                                              X'51',;       "  "  OFF "  "  "                   *B03
     2675                                              X'40',;       NON ALLOWED OPERATION TRAP          *B02
     2676                                              X'41',;       UNIMPLEMENTED INSTRUCTION TRAP      *B02
     2677                                              X'46',;       WATCH DOG TIMER TRAP                *B02
     2678                                              X'42',;       MISC. TRAPS AND INTERRUPTS          *B02
     2679                                              X'56',;       SIGMA 5:7 MEMORY PARITY TRAP        *B02
     2680                            *                               SIGMA 9 PROCESSOR FAULT INTERRUPT   *B02
     2681                                              X'4C',;       SIGMA 9 MEMORY PARITY TRAP          *B02
     2682                                              X'4D',;       SIGMA 9 SEQUENCE CHANGE FAULT       *B02
     2683   01 0062F    5D       A                     X'57'         SIGMA 9 MEMORY FAULT INTERRUPT      *B02
            01 0062F 1  50       A
            01 0062F 2  51       A
            01 0062F 3  40       A
            01 00630    41       A
            01 00630 1  46       A
            01 00630 2  42       A
            01 00630 3  56       A
            01 00631    4C       A
            01 00631 1  4D       A
            01 00631 2  57       A
     2684         0000000B           M00800   EQU      11                                                *B02
     2685                            *
     2686                                     BOUND    8                                                 *B02
     2687                            *
     2688                            *XPSD STORAGE
     2689                            *
     2690                            *UNIMPLEMENTED INSTRUCTION TRAP
     2691   01 00632                 M00200   RES      2
     2692   01 00634    000006C9              DATA     M00210
     2693   01 00635    00000000 A            DATA     0
     2694                            *POWER ON INTERRUPT
     2695   01 00636                 M00220   RES      2
     2696   01 00638    000006AE              DATA     M00230                                            *B03
     2697   01 00639    00000000 A            DATA     0
     2698                            *POWER OFF INTERRUPT
     2699   01 0063A                 M00240   RES      2
     2700   01 0063C    000006B1              DATA     M00250
     2701   01 0063D    00000000 A            DATA     0
     2702                            *CONTROL PANEL INTERRUPT
     2703   01 0063E                 M00300   RES      2                 STORAGE FOR CURRENT PSD
     2704   01 00640    0000069E              DATA     M00320            (LEAVES CURRENT COC)            *G02
     2705   01 00641    00000000 A            DATA     0
     2706                            *MEMORY PARITY
     2707   01 00642                 M00350   RES      2
     2708   01 00644    000006CF              DATA     M00360
     2709   01 00645    00000000 A            DATA     0
     2710                            *NON-ALLOWED OPERATION TRAP
     2711   01 00646                 M00400   RES      2
     2712   01 00648    000006C7              DATA     M00410
     2713   01 00649    00000000 A            DATA     0
     2714                            *WATCHDOG TIMER RUNOUT TRAP
     2715   01 0064A                 M00500   RES      2
     2716   01 0064C    000006CB              DATA     M00510
     2717   01 0064D    00000000 A            DATA     0
     2718                            *OTHER INTERRUPTS AND TRAPS
     2719   01 0064E                 M00100   RES      2                 STORAGE FOR CURRENT PSD
     2720   01 00650    000006CD              DATA     M00110
     2721   01 00651    00000000 A            DATA     0
     2722                            *
     2723   01 00652                 M00920   RES      2
     2724   01 00654    000006D1              DATA     M00930        PARITY ERROR TRAP. (SIGMA 9)        *B02
     2725   01 00655    00000000 A            DATA     0                                                 *B02
     2726                            *
     2727   01 00656                 M00940   RES      2                                                 *B02
     2728   01 00658    000006D3              DATA     M00950        SEQUENCE CHANGE FAULT (SIGMA 9)     *B02
     2729   01 00659    00000000 A            DATA     0               INSTRUCTION EXCEPTION TRAP ---    *B02
     2730                            *
     2731   01 0065A                 M00960   RES      2                                                 *B02
     2732   01 0065C    000006D5              DATA     M00970        MEMORY FAULT INTERRUPT              *B02
     2733   01 0065D    00000000 A            DATA     0                              SIGMA 9--          *B02
     2734                            *
     2735                            *        SYSTEM ERROR MESSAGES SIGMA 5/7/9                          *B02
     2736                            *
     2737         01 0065E           TI:1     TEXTCS   'TRAP/INTER = XX  TCC = XXXX  REGSAVE = XXXXXXXX' *B02
     2738         01 0066A           TI:2     TEXTCS   'PSW1 = XXXXXXXX PSW2 = XXXXXXXX'                 *B02
     2739         01 0066A           MSTOPMG2 EQU      TI:2                                              *E00
     2740         01 00672           M:WORDS  TEXTCS   'MSW0 = XXXXXXXX MSW1 = XXXXXXXX MSW2 = XXXXXXXX' *B02
     2741         01 0067E           P:STAT   TEXTCS   'PROC.NO. XX     F/STAT = XX'                     *B02
     2742         01 00685           NOFAULT  TEXTCS   'NO MEMORY FAULT FOUND'                           *D01
     2743         01 0068B           NOPROCF  TEXTCS   'NO PROCESSOR FAULT FOUND'                        *D01
     2744         01 00692           MWERROR  TEXTCS   'INTERLEAVE MODE BITS 0,1:ERROR. CLEAR WAIT'      *B03
     2745                            *
     2746                            *        PROCESS INTERRUPTS
     2747                            *
     2748                            *CONTROL PANEL INTERRUPT
     2749                            *RECOVERY ADDRESS
     2750         01 0069D           M00310   EQU      %                 ENTRY: SYSTEM RESET             *G02
     2751   01 0069D    6AF003FF              BAL,15   REMOFF             ERASE COC ASSIGNMENT           *G02

     2753         01 0069E           M00320   EQU      %                 ENTRY: PCP INTERRUPT (OR FAKED) *G02
     2754   01 0069E    6AF007EB              BAL,15   M00311             CLEAR INTERRUPTS, MODES...     *G02
     2755   01 0069F    CD000224 A            TIO,0    *MLT36        TEST KSR FOR ADRS. RECOGNITION      *B02
     2756   01 006A0    68C006A7              BCR,12   %+7           IO ADRS RECOGNIZED.                 *B02
     2757   01 006A1    32000224 A            LW,0     MLT36             FETCH KSR ADDRESS               *B04
     2758   01 006A2    2E0006A2              WAIT      %            WAIT.                               *B02
     2759   01 006A3    35000224 A            STW,0    MLT36             STORE ADDR IN TTY               *B04
     2760   01 006A4    35000221 A            STW,0    MLT33             STORE ADDR IN MID               *B04
     2761   01 006A5    35000220 A            STW,0    MLT32             STORE ADDR IN MOD               *B04
     2762   01 006A6    6800069F              B        %-7           BRANCH BACK TO TEST                 *B02
     2763   01 006A7    33000B42              MTW,0    LOADED
     2764   01 006A8    E8300214 A            BEZ      *MLT20                                            *C01
     2765   01 006A9    33000304 A            MTW,0    PIT04
     2766   01 006AA    E8300214 A            BEZ      *MLT20            BRANCH, NO RECOVERY ROUTINE     *C01
     2767   01 006AB    6AF007F5              BAL,15   M00315            ARM, ENABLE CP AND PY INTERRUPTS
     2768   01 006AC    EAF00304 A            BAL,15   *PIT04            TO USER RECOVERY ROUTINE
     2769   01 006AD    E8000214 A            B        *MLT20              RETURN
     2770                            *
     2771                            *POWER ON
     2772   01 006AE    0EB006AF     M00230   LPSD,11  %+1               RESET, EXIT TO INT. HANDL. RTN. *B03
     2773   01 006AF    000006C6              DATA     M00260,0                                          *B03
            01 006B0    00000000 A
     2774                            *
     2775                            *POWER OFF
     2776   01 006B1    7400060D     M00250   STCF     CC                SAVE CONDITION CODE             *B03
     2777   01 006B2    02200000 A            LCI      0                                                 *B03
     2778   01 006B3    2B0006B6              STM,0    M00251            SAVE REGISTERS                  *B03
     2779   01 006B4    2E000000 A            WAIT     0                 WAIT FOR POWER ON INTERRUPT
     2780   01 006B5    680006B4              B        %-1               PREVENT INTERRUPT FROM CLEARING *B03
     2781                            *
     2782   01 006B6                 M00251   RES      16                STORAGE FOR REGISTERS
     2783                            *
     2784                            *
     2785                            *        ENTRY TO THE TRAP/INTERRUPT ROUTINE                        *B02
     2786                            *        CONDITION CODES AND REGISTER 15 ARE SAVED UPON ENTRANCE
     2787                            *
     2788   01 006C6    6AF006DA     M00260   BAL,15   TP:P          POWER-ON INTERRUPT                  *B03
     2789   01 006C7    35F006C5     M00410   STW,15   M00251+15     NON ALLOWED OPERATION TRAP          *B02
     2790   01 006C8    6AF006D7              BAL,15   TP:IT                                             *B02
     2791   01 006C9    35F006C5     M00210   STW,15   M00251+15     UNIMPLEMENTED INSTRUCTION TRAP      *B02
     2792   01 006CA    6AF006D7              BAL,15   TP:IT                                             *B02
     2793   01 006CB    35F006C5     M00510   STW,15   M00251+15     WATCH DOG TIMER TRAP                *B02
     2794   01 006CC    6AF006D7              BAL,15   TP:IT                                             *B02
     2795   01 006CD    35F006C5     M00110   STW,15   M00251+15     MISC. TRAPS AND INTERRUPTS          *B02
     2796   01 006CE    6AF006D7              BAL,15   TP:IT                                             *B02
     2797   01 006CF    35F006C5     M00360   STW,15   M00251+15     SIGMA5/7 MEM. PARITY TRAP           *B02
     2798   01 006D0    6AF006D7              BAL,15   TP:IT         SIGMA 9 PROC. FAULT INTERRUPT       *B02
     2799   01 006D1    35F006C5     M00930   STW,15   M00251+15     """"  " MEM. PARITY TRAP            *B02
     2800   01 006D2    6AF006D7              BAL,15   TP:IT                                             *B02
     2801   01 006D3    35F006C5     M00950   STW,15   M00251+15     SIGMA 9 SEQUENCE CHANGE FAULT       *B02
     2802   01 006D4    6AF006D7              BAL,15   TP:IT         OR INSTRUCTION EXCEPTION TRAP       *B02
     2803   01 006D5    35F006C5     M00970   STW,15   M00251+15     SIGMA 9 MEM. FAULT INTERRUPT        *B02
     2804   01 006D6    6AF006D7              BAL,15   TP:IT                                             *B03
     2805                            *
     2806                            * SIGMA 5/7/9 TRAP : INTERRUPT ROUTINE                              *B02
     2807                            *
     2808   01 006D7    7400060D     TP:IT    STCF     CC            SAVE CONDITION CODES                *B02
     2809   01 006D8    022000F0 A            LCI      15            SAVE ALL REGISTERS                  *B02
     2810   01 006D9    2B0006B6              STM,0    M00251                                            *B02
     2811   01 006DA    3300060E     TP:P     MTW,0    TI:FLG        TEST FOR MULTIPLE TRAPS/INTER.      *B02
     2812   01 006DB    683006E2              BEZ      %+7           NONE. BRANCH                        *B02
     2813   01 006DC    32400210 A            LW,4     MLT16         FETCH DPM RECOVERY ADDRS            *C01
     2814   01 006DD    3540060A              STW,4    LPSD1         STORE IT IN RETURN LPSD             *B02
     2815   01 006DE    32400611              LW,4     BR:MLP        FETCH BRANCH INSTRUCTION            *B02
     2816   01 006DF    46400026 A            XW,4     X'26'         XCHANGE IT FOR ONE IN X'26'         *B02
     2817   01 006E0    680006E0              B        %             WAIT HERE FOR IO RESET . MANUAL--   *B02
     2818   01 006E1    68000751     BACK:    B        TI:EXT        BRANCH TO EXIT                      *B02
     2819   01 006E2    3310060E              MTW,1    TI:FLG        SET FLAG FOR TRAP / INT.            *B02
     2820   01 006E3    224006C7              LI,4     M00410        DETERMINE TRAP/INTER LOCATION       *B02
     2821   01 006E4    3A400004 A            LCW,4    4                                                 *B02
     2822   01 006E5    30F00004 A            AW,15    4                                                 *B02
     2823   01 006E6    36F00BD8              DW,15    L(2)                                              *B02
     2824   01 006E7    20F00002 A            AI,15    2                                                 *B02
     2825   01 006E8    3240000F A            LW,4     15                                                *B02
     2826   01 006E9    6AF007F8              BAL,15   SET0123       INITIALIZE REGS 0,1,2,3             *B02
     2827   01 006EA    72C8062F              LB,12    M00700,4      FETCH T/I LOCATION                  *B02
     2828   01 006EB    21C00051 A            CI,12    X'51'         IS THIS POWER OFF INTERRUPT         *B03
     2829   01 006EC    693006EE              BNE      %+2           B: IF NOT                           *B03
     2830   01 006ED    20CFFFFF A            AI,12    -1            SUBTRACT ONE TO PRINT X'50' POWER ON*B03
     2831   01 006EE    35C0060F              STW,12   TRAPLOC       SAVE THE LOCATION                   *B02
     2832   01 006EF    6AF00A5E              BAL,15   M03000        CONVERT IT TO EBCDIC                *B02
     2833   01 006F0    75F60661              STB,15   TI:1+3,3      STORE TO MSG.                       *B02
     2834   01 006F1    25F00078 A            SLS,15   -8                                                *B02
     2835   01 006F2    75F40661              STB,15   TI:1+3,2                                          *B02
     2836   01 006F3    72C0060D              LB,12    CC            FETCH CONDITION CODES               *B02
     2837   01 006F4    25C0007C A            SLS,12   -4            POSITION TO CONVERT                 *B02
     2838   01 006F5    6AF00A7D              BAL,15   M01000        CONVERT BINARY TO EBCDIC            *B02
     2839   01 006F6    35F00664              STW,15   TI:1+6        STORE CC                            *B02
     2840   01 006F7    32580624              LW,5     M00A00,4      FETCH DOUBLE WORDS                  *B02
     2841   01 006F8    4B500BE0              AND,5    L(X'FFFFF')   MASK OUT THE '0F' OF THE XPSD       *B02
     2842   01 006F9    22600002 A            LI,6     2                                                 *B02
     2843   01 006FA    22400003 A            LI,4     3                                                 *B02
     2844   01 006FB    92C00005 A            LD,12    *5                                                *B02
     2845   01 006FC    22700002 A            LI,7     2                                                 *B02
     2846   01 006FD    6AF00A5E              BAL,15   M03000        CONVERT TO EBCDIC                   *B02
     2847   01 006FE    35F8066A              STW,15   TI:2,4        PSW1 PSW2                           *B02
     2848   01 006FF    204FFFFF A            AI,4     -1                                                *B02
     2849   01 00700    647006FD              BDR,7    %-3                                               *B02
     2850   01 00701    32C0000D A            LW,12    13                                                *B02
     2851   01 00702    22400007 A            LI,4     7                                                 *B02
     2852   01 00703    646006FC              BDR,6    %-7                                               *B02
     2853   01 00704    22C006B6              LI,12    M00251        FETCH REG SAVE LOCATION             *B02
     2854   01 00705    6AF00A5E              BAL,15   M03000        CONVERT TO EBCDIC                   *B02
     2855   01 00706    35F00669              STW,15   TI:1+11       STORE TO MSG.                       *B02
     2856   01 00707    6AF00A5E              BAL,15   M03000        CONVERT OTHER HALF                  *B02
     2857   01 00708    35F00668              STW,15   TI:1+10                                           *B02
     2858   01 00709    35000612              STW,0    MEMCHCK       CLEAR THE MEMORY ERROR FLAG         *B02
     2859   01 0070A    22900000 A            LI,9     0                                                 *D01
     2860   01 0070B    31900225 A            CW,9     MLT37         SIGMA NINE COMPUTER ? ?             *B02
     2861   01 0070C    68300715              BE       BACK:A            NO                              *D01
     2862   01 0070D    3280060F              LW,8     TRAPLOC       FETCH TRAP LOCATION                 *B02
     2863   01 0070E    21800057 A            CI,8     X'57'         MEM. FAULT  INTERRUPT ???           *B02
     2864   01 0070F    68300714              BE       BACK:B                                            DO2
     2865   01 00710    2180004C A            CI,8     X'4C'         MEM. PARITY TRAP ????               *B02
     2866   01 00711    69300715              BNE      BACK:A            NO                              *D02
     2867   01 00712    7020060D              LC       CC                LOAD CONDITION CODES            *E00
     2868   01 00713    69F00715              BCS,15   %+2           IF CC=0000  DOMNOT BRANCH           *B02
     2869   01 00714    6AF00759     BACK:B   BAL,15   MEMFIX            BRANCH TO FETCH MEM. STAT WDS   *D02
     2870   01 00715    3280060F     BACK:A   LW,8     TRAPLOC           FETCH TRAP/INT LOCATION         *D02
     2871   01 00716    21800046 A            CI,8     X'46'         WATCH DOG TIMER ?                   *B02
     2872   01 00717    69300730              BNE      INFACE        NO BRANCH TO INFACE                 *B02
     2873   01 00718    7300030F A            MTB,0    PIT15         PIT 15 BITS 0-7 =0                  *B02
     2874   01 00719    69300730              BNEZ     INFACE        NO = 0 !                            *B02
     2875   01 0071A    31900225 A            CW,9     MLT37             SIGMA 9  MACHINE                *B04
     2876   01 0071B    68300726              BE       BACK:C            NO   GO TO INFACE               *D02
     2877   01 0071C    225FFFE4 A            LI,5     -28           SEND A SIGMA 9 *RIO* TO ALL IOP     *B02
     2878   01 0071D    32900225 A            LW,9     MLT37                                             *D02
     2879   01 0071E    21900009 A            CI,9     9                                                 *D02
     2880   01 0071F    68300721              BE       %+2                                               *D02
     2881   01 00720    225FFFC0 A            LI,5     -64                                               *D02
     2882   01 00721    22404000 A            LI,4     X'4000'                                           *B02
     2883   01 00722    CF000004 A            HIO,0    *4            **  RIO COMMAND **                  *B02
     2884   01 00723    20400100 A            AI,4     X'100'        NEXT IOP                            *B02
     2885   01 00724    65500722              BIR,5    %-2                                               *B02
     2886   01 00725    68000730              B        INFACE        ALL IOP DONE                        *B02
     2887   01 00726    6D000044 A   BACK:C   WD,0     X'44'     BENIFIT OF SIG5 RESET INT IOP           *D02
     2888   01 00727    3300060C              MTW,0    RSTFLG        IS RESET JUMPER IN ?                *B02
     2889   01 00728    6830072E              BEZ      BR:XA             YES! JUMPER INSTALLED           *D02
     2890   01 00729    32400610              LW,4     BRN:X         NOT IN ! NEED MANUAL RESET.         *B02
     2891   01 0072A    46400026 A            XW,4     X'26'         XCHANGE X'26' BRANCH INSTRUCTION    *B02
     2892   01 0072B    6800072B              B        %             WAIT FOR MANUAL IO RESET.           *B02
     2893   01 0072C    35400026 A   BR:X     STW,4    X'26'         RESTORE X'26' INSTRUCTION           *B02
     2894   01 0072D    6800072F              B        %+2               BRANCH TO RESET DEVICES AND MODE*B02
     2895   01 0072E    6AF005FE     BR:XA    BAL,15   IO:TGL            IO RESET. TOGGLE F/F            *D02
     2896   01 0072F    6AF007EB              BAL,15   M00311            RESET DEVICES AND MODES         *B02
     2897   01 00730    3240030F A   INFACE   LW,4     PIT15         FETCH PIT 15                        *B02
     2898   01 00731    4B400BE1              AND,4    L(X'FFFFFF')  PIT 26 BIT 8-31  = 0                *B02
     2899   01 00732    33000004 A            MTW,0    4                                                 *B02
     2900   01 00733    6830073D              BEZ      DPMRCV        YES. EQUAL ZERO                     *B02
     2901   01 00734    3200060F              LW,0     TRAPLOC       NOT EQUAL ZERO. BRANCH TO USER      *B02
     2902   01 00735    7240060D              LB,4     CC            FETCH CONDITION CODES               *B02
     2903   01 00736    4B400BE2              AND,4    L(X'F0')      MASK OUT OTHER BITS                 *B02
     2904   01 00737    75400000 A            STB,4    0             STORE IT IN REGISTER ZERO           *B02
     2905   01 00738    EAF0030F A            BAL,15   *PIT15                                            *B02
     2906   01 00739    22000000 A            LI,0     0             SET A ZERO IN REGISTER ZERO         *B02
     2907   01 0073A    21F00000 A            CI,15    0             RETURN REGISTER 15 EQUAL ZERO       *B02
     2908   01 0073B    6830073D              BEZ      DPMRCV        YES.                                *B02
     2909   01 0073C    6800073E              B        %+2           NO.                                 *B02
     2910   01 0073D    32F00210 A   DPMRCV   LW,15    MLT16             SET DPM OWN RECOVERY ADDRS      *D00
     2911   01 0073E    35F0060A              STW,15   LPSD1         SET UP RETURNING ADDRS IN LPSD      *B02
     2912   01 0073F    7300030F A            MTB,0    PIT15         BITS 0-7 PIT 15 =0 ?                *B02
     2913   01 00740    69300751              BNEZ     TI:EXT        NO BRANCH TO EXIT. NO PRINT         *B02
     2914   01 00741    EAF0021C A            BAL,15   *MLT28     PRINT MESSAGE                          *C01
     2915   01 00742    0000065E              DATA     TI:1          TRAP/INTER = XX TCC = REGSAVE =     *B02
     2916   01 00743    EAF0021C A            BAL,15   *MLT28     PSW1     PSW2                          *C01
     2917   01 00744    0000066A              DATA     TI:2                                              *B02
     2918   01 00745    22900000 A            LI,9     0                                                 *D01
     2919   01 00746    31900225 A            CW,9     MLT37         SIGMA NINE COMPUTER ? ?             *B02
     2920   01 00747    68300751              BE       TI:EXT            NO GO TO EXIT OF ROUTINE        *D01
     2921   01 00748    3240060F              LW,4     TRAPLOC       FETCH TRAP/INT. LOCATION            *B02
     2922   01 00749    21400057 A            CI,4     X'57'         MEM. FAULT INTERRUPT                *B02
     2923   01 0074A    683007B4              BE       MEMFI                                             *D02
     2924   01 0074B    2140004C A            CI,4     X'4C'         MEM. PARITY TRAP SIGMA ) ?          *B02
     2925   01 0074C    6930074F              BNE      %+3               NO. GO TO EXIT OF ROUTINE       *D02
     2926   01 0074D    7020060D              LC       CC                MEMORY PARITY CODES = 0?        *E00
     2927   01 0074E    68F007B4              BCR,15   MEMFI         YES.                                *B02
     2928   01 0074F    21400056 A            CI,4     X'56'         PROCESSOR FAULT INTERRUPTS ?        *B02
     2929   01 00750    683007C5              BE       PROCFI                                            *B02
     2930   01 00751    3500060E     TI:EXT   STW,0    TI:FLG        CLEAR T/I FLAG                      *B02
     2931   01 00752    02200000 A            LCI      0             RESTORE ALL REGISTER                *B02
     2932   01 00753    2A0006B6              LM,0     M00251                                            *B02
     2933   01 00754    0E100608              LPSD,1   LPS1:             CLEAR PDF FLAG                  *B03
     2934   01 00755    0E30060A     PDFCLEAR LPSD,3   LPSD1             ARM AND ENABLE INTERRUPT ON EXIT*B03
     2935                            *
     2936                            *  MEMORY FAULT INTERRUPT                                           *B02
     2937                            *
     2938   01 00756    00000000 A   STSAV:   DATA     0             SAVE LOCATION                       *B02
     2939   01 00757    00000000 A   SVBANK   DATA     0  BEGINNING AND SUCCESSIVES BANK ADDRESSES.      *B03
     2940   01 00758    00000000 A   SVLEAVE  DATA      0  INTERLEAVE MODE. 2=2-WAY,4=4-WAY,1=NO WAY.    *B03
     2941   01 00759    35F00756     MEMFIX   STW,15   STSAV:        SAVE REG 15                         *B02
     2942   01 0075A    22403FF0 A            LI,4     X'3FF0'    BEGINNING BANK OF MEMORY.              *B03
     2943   01 0075B    35400757     LMS:X    STW,4    SVBANK     SAVE - BANK.                           *B03
     2944   01 0075C    32F00225 A            LW,15    MLT37             MACHINE TYPE                    *D01
     2945   01 0075D    21F000E3 A            CI,15    'T'               IS IT SIGMA  COMPUTER           *D01
     2946   01 0075E    69300781              BNE      LMS:XB            B: YES                          *D01
     2947   01 0075F    022000A0 A            LCI      10                                                *D01
     2948   01 00760    AD600004 A            LMS,6    *4                FETCH MEMORY STATUS WORD ONE    *D01
     2949   01 00761    25600201 A            SCS,6    1                 FETCH INTERLEAVE BIT            *D01
     2950   01 00762    4B600BE3              AND,6    =1                                                *D01
     2951   01 00763    35600758              STW,6    SVLEAVE           SAVE INTERLEAVE. USE AS COUNTER *D01
     2952   01 00764    02200080 A   LMS:1B   LCI      8                 FETCH                           *D01
     2953   01 00765    ADC00004 A            LMS,12   *4                    MSW0                        *D01
     2954   01 00766    4BC00BE4              AND,12   =X'7F0003FF'      ANY ERROR                       *D01
     2955   01 00767    68300777              BEZ      LMS:3B            B: NO                           *D01
     2956   01 00768    02200080 A            LCI      8                 FETCH                           *D01
     2957   01 00769    ADC00004 A            LMS,12   *4                    MSW0                        *D01
     2958   01 0076A    22600003 A            LI,6     3                                                 *D01
     2959   01 0076B    6AF007BE              BAL,15   STOREM                CONVERT AND STORE INTO MSG  *D01
     2960   01 0076C    022000A0 A            LCI      10                FETCH                           *D01
     2961   01 0076D    ADC00004 A            LMS,12   *4                    MWS1                        *D01
     2962   01 0076E    22600007 A            LI,6     7                                                 *D01
     2963   01 0076F    6AF007BE              BAL,15   STOREM                CONVERT AND STORE INTO MSG  *D01
     2964   01 00770    32C00BE5              LW,12    =' UNU'           STORE                           *D01
     2965   01 00771    35C0067C              STW,12   M:WORDS+10            'UNUSED'                    *D01
     2966   01 00772    32C00BE6              LW,12    ='SED '               INTO MSG                    *D01
     2967   01 00773    35C0067D              STW,12   M:WORDS+11                                        *D01
     2968   01 00774    022000C0 A            LCI      12                                                *D01
     2969   01 00775    ADC00004 A            LMS,12   *4                                                *D01
     2970   01 00776    680007B2              B        MEMFALT1                                          *D01
     2971   01 00777    64600779     LMS:3B   BDR,6    LMS:4B            B: INTERLEAVE NOT ZERO          *D01
     2972   01 00778    6800077B              B        LMS:2B            B: COUNTER ZERO OR NEG          *D01
     2973   01 00779    20400001 A   LMS:4B   AI,4     1                 INCR BANK                       *D01
     2974   01 0077A    68000764              B        LMS:1B            NEXT BANK                       *D01
     2975   01 0077B    32400757     LMS:2B   LW,4     SVBANK            FETCH LAST STARTING ADRS        *D01
     2976   01 0077C    32600758              LW,6     SVLEAVE           FETCH INTERLEAVE MODE           *D01
     2977   01 0077D    6830077F              BEZ      %+2               B: NO INTERLEAVED               *D01
     2978   01 0077E    20404000 A            AI,4     X'4000'           ADD 16K BANKS                   *D01
     2979   01 0077F    20404000 A            AI,4     X'4000'           ADD 16K BANKS                   *D01
     2980   01 00780    6800079F              B        LMS:GO            GO TEST MEMORY SIZE             *D01
     2981   01 00781    02200090 A   LMS:XB   LCI      9                                                 *D01
     2982   01 00782    ADC00004 A            LMS,12   *4          FETCH MEMORY STATUS WORD ONE          *B03
     2983   01 00783    7260000C A            LB,6     12          FETCH FIRST BYTE                      *B03
     2984   01 00784    2560007A A            SLS,6    -6          GET RID OF BITS 2 THRU 7              *B03
     2985   01 00785    25600001 A            SLS,6    1           REFORMAT                              *B03
     2986   01 00786    21600006 A            CI,6     6                                                 *B03
     2987   01 00787    683007A2              BE       LMS:0       STATUS WORD 1 : ERROR                 *B03
     2988   01 00788    21600000 A            CI,6     0                                                 *B03
     2989   01 00789    6930078B              BNE      LMS:1A      BRANCH IF INTERLEAVED                 *B03
     2990   01 0078A    22600001 A            LI,6     1                                                 *B03
     2991   01 0078B    35600758     LMS:1A   STW,6    SVLEAVE     SAVE INTERLEAVE. USE AS COUNTER       *B03
     2992   01 0078C    02200080 A   LMS:1    LCI       8                                                *B03
     2993   01 0078D    ADC00004 A            LMS,12   *4          FETCH MEMORY STATUS WORD ZERO         *B03
     2994   01 0078E    4BC00BDF              AND,12   L(X'FFF00000')                                    *B03
     2995   01 0078F    693007A6              BCS,3    MEMFALT     BRANCH IF ANY ERROR DETECTED          *B03
     2996   01 00790    64600792              BDR,6    LMS:4       BRANCH IF INTERLV/COUNTER NOT ZERO    *B03
     2997   01 00791    68000794              B        LMS:2       BRANCH IF COUNTER ZERO OR NEG.        *B03
     2998   01 00792    20400001 A   LMS:4    AI,4     1           MEMORY IS INTERLEAVED. INCREMENT BANK *B03
     2999   01 00793    6800078C              B        LMS:1       NEXT BANK                             *B03
     3000   01 00794    32600758     LMS:2    LW,6     SVLEAVE     FETCH INTLV/MODE                      *B03
     3001   01 00795    32400757              LW,4     SVBANK      FETCH LAST USED STARTING ADRS. BANK   *B03
     3002   01 00796    21600004 A            CI,6     4              4-WAY.......?                      *B03
     3003   01 00797    6830079C              BE       :4WAY       BRANCH IF INTLV/MODE =4WAY            *B03
     3004   01 00798    21600002 A            CI,6     2              2-WAY.......?                      *B03
     3005   01 00799    6830079E              BE       :2WAY       BRANCH IF INTLV/MODE=2WAY             *B03
     3006   01 0079A    20404000 A            AI,4     X'4000'     NO INTLV.  ADD 16K BANK               *B03
     3007   01 0079B    6800079F              B        LMS:GO                                            *B03
     3008   01 0079C    30400BE7     :4WAY    AW,4     L(X'10000')   ADD 4  16K BANKS.  (4-WAY)          *B03
     3009   01 0079D    6800079F              B        LMS:GO                                            *B03
     3010   01 0079E    20408000 A   :2WAY    AI,4     X'8000'       ADD 2   16K BANKS. (2-WAY)          *B03
     3011   01 0079F    3140022E A   LMS:GO   CW,4     MLT46        MEMORY EXCEEDED .......?             *B03
     3012   01 007A0    6820075B              BLE      LMS:X        BRANCH IF MEMORY WITHIN LIMITS       *B03
     3013   01 007A1    E8000756     STV      B        *STSAV:       BRANCH BACK TO RETURN               *B02
     3014                            *
     3015                            *                                                                   *B03
     3016   01 007A2    EAF00223 A   LMS:0    BAL,15    *MLT35   MEMORY STATUS WORD ONE                  *C01
     3017   01 007A3    00000692              DATA      MWERROR   INTLV/MODE BITS 0,1 : ERROR            *B03
     3018   01 007A4    2E000000 A            WAIT                                                       *B03
     3019   01 007A5    680007A1              B         STV      EXIT.                                   *B03
     3020                            *                                                                   *B03
     3021                            *                                                                   *B03
     3022   01 007A6    02200080 A   MEMFALT  LCI      8             FETCH MSW"S                         *B02
     3023   01 007A7    ADC00004 A            LMS,12   *4            MSW0                                *B02
     3024   01 007A8    22600003 A            LI,6     3                                                 *B02
     3025   01 007A9    6AF007BE              BAL,15   STOREM        CONVERT AND STORE INTO MSG          *B02
     3026   01 007AA    02200090 A            LCI      9                                                 *B02
     3027   01 007AB    ADC00004 A            LMS,12   *4            MSW1                                *B02
     3028   01 007AC    22600007 A            LI,6     7                                                 *B02
     3029   01 007AD    6AF007BE              BAL,15   STOREM                                            *B02
     3030   01 007AE    022000E0 A            LCI      14                                                *B02
     3031   01 007AF    ADC00004 A            LMS,12   *4            MSW2                                *B02
     3032   01 007B0    2260000B A            LI,6     11                                                *B02
     3033   01 007B1    6AF007BE              BAL,15   STOREM                                            *B02
     3034   01 007B2    35100612     MEMFALT1 STW,1    MEMCHCK           SET MEMORY CHECK FAULT FALG     *E00
     3035   01 007B3    680007A1              B        STV           BRANCH OUT                          *B02
     3036                            *                                                                   *B02
     3037   01 007B4    33000612     MEMFI    MTW,0    MEMCHCK    CHECK MEM. FAULT FLAG                  *B02
     3038   01 007B5    683007B8              BEZ      %+3           IT IS ZERO !                        *B02
     3039   01 007B6    22400672              LI,4     M:WORDS       FETCH ERROR MSG.                    *B02
     3040   01 007B7    680007B9              B        %+2                                               *B02
     3041   01 007B8    22400685              LI,4     NOFAULT       FETCH NO ERROR MSG                  *B02
     3042   01 007B9    354007BB              STW,4    DATA:         STORE IT IN DATA LOCATION           *B02
     3043   01 007BA    EAF0021C A            BAL,15   *MLT28     PRINT MEMORY FAULT INTERRUPT MESSAGE   *C01
     3044   01 007BB    00000685     DATA:    DATA     NOFAULT                                           *B02
     3045   01 007BC    68000751              B        TI:EXT        BRANCH OUT                          *B02
     3046                            *
     3047   01 007BD    00000000 A   STSAVE   DATA     0             SAVE LOCATION                       *B02
     3048   01 007BE    35F007BD     STOREM   STW,15   STSAVE        SAVE REG 15
     3049   01 007BF    22500002 A            LI,5     2                                                 *B02
     3050   01 007C0    6AF00A5E              BAL,15   M03000        CONVERT NUMBER TO EBCDIC            *B02
     3051   01 007C1    35FC0672              STW,15   M:WORDS,6     STORE TO MSG.                       *B02
     3052   01 007C2    206FFFFF A            AI,6     -1            UPDATE WORD LOCATION IN MSG.        *B02
     3053   01 007C3    645007C0              BDR,5    %-3           GET NEXT HALF                       *B02
     3054   01 007C4    E80007BD              B        *STSAVE       RETURN                              *B02
     3055                            *
     3056                            *  PROCESSORE FAULT INTERRUPT                                       *B02
     3057                            *
     3058   01 007C5    22400000 A   PROCFI   LI,4     0             POLL ALL PROCESSOR                  *B02
     3059   01 007C6    32500225 A            LW,5     MLT37             TEST: NON-SIGMA COMPUTER        *D01
     3060   01 007C7    215000E3 A            CI,5     'T'                                               *D01
     3061   01 007C8    693007CB              BNE      %+3               B: YES                          *D01
     3062   01 007C9    225FFFC0 A            LI,5     -64                                               *D01
     3063   01 007CA    680007CC              B        %+2                                               *D01
     3064   01 007CB    225FFFE0 A            LI,5     -32                                               *D01
     3065   01 007CC    22608000 A            LI,6     X'8000'                                           *B02
     3066   01 007CD    CF800006 A   PROCNEX  HIO,8    *6            ** POLP COMMAND **                  *B02
     3067   01 007CE    698007D0              BCS,8    ADDRNR        ADDRS NOT RECOGNIZED                *B02
     3068   01 007CF    694007D8              BCS,4    PROFLT        PROCESSORE FAULT                    *B02
     3069   01 007D0    20600100 A   ADDRNR   AI,6     X'100'        UPDATE NEXT PROCESSOR               *B02
     3070   01 007D1    655007CD              BIR,5    PROCNEX                                           *B02
     3071   01 007D2    21400000 A            CI,4     0             FAULT FOUND ?                       *B02
     3072   01 007D3    683007D5              BE       %+2           NO.                                 *B02
     3073   01 007D4    68000751              B        TI:EXT        YES. MSG. PRINTED ALREADY           *B02
     3074   01 007D5    EAF0021C A            BAL,15   *MLT28     PRINT 'NO PROCESSOR FAULT FOUND'       *C01
     3075   01 007D6    0000068B              DATA     NOPROCF                                           *B02
     3076   01 007D7    68000751              B        TI:EXT        RETURN                              *B02
     3077                            *
     3078   01 007D8    32C00006 A   PROFLT   LW,12    6             PROCESSOR FAULT RESET               *B02
     3079   01 007D9    20C04000 A            AI,12    X'4000'                                           *B02
     3080   01 007DA    CF80000C A            HIO,8    *12           ** POLR COMMAND **                  *B02
     3081   01 007DB    20CF4000 A            AI,12    -X'C000'      GET IOP NO.                         *B02
     3082   01 007DC    25C00078 A            SLS,12   -8                                                *B02
     3083   01 007DD    6AF00A5E              BAL,15   M03000        EBCDIC CONVERSION                   *B02
     3084   01 007DE    75F60680              STB,15   P:STAT+2,3    INTO MSG.                           *B02
     3085   01 007DF    25F00078 A            SLS,15   -8            NEXT HALP                           *B02
     3086   01 007E0    75F40680              STB,15   P:STAT+2,2                                        *B02
     3087   01 007E1    32C00008 A            LW,12    8             FETCH FAULT STATUS                  *B02
     3088   01 007E2    4BC00BE8              AND,12   L(X'FC')      MASK ALL BUT BITS 24-29             *B02
     3089   01 007E3    6AF00A5E              BAL,15   M03000        CONVERT TO EBCDIC                   *B02
     3090   01 007E4    75F60684              STB,15   P:STAT+6,3    INTO MSG.                           *B02
     3091   01 007E5    25F00078 A            SLS,15   -8                                                *B02
     3092   01 007E6    75F40684              STB,15   P:STAT+6,2                                        *B02
     3093   01 007E7    EAF0021C A            BAL,15   *MLT28     PRINT PROCESSOR FAULT MESSAGE          *C01
     3094   01 007E8    0000067E              DATA     P:STAT                                            *B02
     3095   01 007E9    20400001 A            AI,4     1             SET FAULT FLAG                      *B02
     3096   01 007EA    680007D0              B        ADDRNR        BRANCH TO CHECK NEXT PROCESSOR      *B02
     3097                            *
     3098                            *
     3099                            *
     3100                            *SUB-ROUTINE TO RESET INTERRUPTS, DEVICES AND MODE
     3101   01 007EB    22E0F3E0 A   M00311   LI,14    X'F3E0'           RESET, DISARM INTERRUPTS GROUP 0
     3102   01 007EC    6DE01100 A            WD,14    X'1100'
     3103   01 007ED    6D000031 A            WD,0     X'31'             INHIBIT EXTERNAL INTERRUPTS
     3104   01 007EE    CF700221 A            HIO,7    *MLT33            DISC INPUT DEVICE
     3105   01 007EF    CF700220 A            HIO,7    *MLT32            DISC OUTPUT DEVICE
     3106   01 007F0    CF700224 A            HIO,7    *MLT36            DSIC KSR
     3107   01 007F1    CF700222 A            HIO,7    *MLT34            DISC PROGRAM INPUT DEVICE
     3108   01 007F2    32700224 A   M00313   LW,7     MLT36             SET MESSAGE INPUT DEVICE TOKSR
     3109   01 007F3    35700221 A            STW,7    MLT33
     3110   01 007F4    E800000F A            B        *15               EXIT
     3111                            *
     3112                            *SUB-ROUTINE TO ENABLE CONTROL PANEL, MEMORY PARITY INTERRUPTS
     3113   01 007F5    6D000022 A   M00315   WD,0     X'22'             RESET II GROUP INHIBIT          *C01
     3114   01 007F6    22C00C10 A   M003151  LI,12    X'C10'            ARM,ENABLE PCP,MEM PARITY       *C01
     3115   01 007F7    6DC01200 A            WD,12    X'1200'
     3116   01 007F8    22000000 A   SET0123  LI,0     0                 0,1,2,3 TO REGISTERS 0,1,2,3
     3117   01 007F9    22100001 A            LI,1     1
     3118   01 007FA    22200002 A            LI,2     2
     3119   01 007FB    22300003 A            LI,3     3
     3120   01 007FC    E800000F A            B        *15               EXIT
     3121                            *
     3122                            *
     3123                            *        PARAMETER PROCESSOR
     3124                            *
     3125                            *        ROUTINE FORMS ONE-WORD RESULT FROM 0 TO 8 HEX/DEC/AN CHARS
     3126                            *        CALLING SEQUENCE:     BAL,15   M12000
     3127                            *                              DATA     TYPE CODE
     3128                            *                              RETURN   VOIDED ENTRY
     3129                            *                              RETURN   ERROR
     3130                            *TYPE CODE IS P1,P2,... IN DICTIONARY CONTROL WORD
     3131                            *0/1 INDICATING EXIT ON COMMA/TERMINATING CHAR GOES TO EXITIND
     3132                            *EXIT WITH PARAMETER IN R13
     3133                            *
     3134   01 007FD    35F00842     M12000   STW,15   M12080            SAVE LINK ADRS
     3135   01 007FE    B2E00842              LW,14    *M12080           TYPE CODE TO REG 14
     3136   01 007FF    20E00843              AI,14    M12030            CALCULATE ADRS CONTROL WORD, R14
     3137   01 00800    B2E0000E A            LW,14    *14               CONTROL WORD TO R14
     3138   01 00801    18C0000C A            SD,12    12                CLEAR STORAGE FOR 8 BYTES, R12,R13
     3139   01 00802    35C00B44              STW,12   EXITIND           RESET EXIT INDICATOR
     3140   01 00803    22600004 A   M12010   LI,6     (NLIMITS-2)/2     SET INDEX 6 TO CHECK ALL LIMITS
     3141   01 00804    72F00221 A            LB,15    MLT33             CHECK INPUT DEVICE
     3142   01 00805    25F0007B A            SLS,15   -5
     3143   01 00806    21F00000 A            CI,15    0
     3144   01 00807    6830080D              BE       M12015            BRANCH, KSR/ASR
     3145   01 00808    32F0021A A            LW,15    MLT26             CHECK POSITION IN RECORD
     3146   01 00809    31F00876              CW,15    M06900
     3147   01 0080A    6910080D              BL       M12015            BRANCH, NOT AT END OF RECORD
     3148   01 0080B    22C01202 A            LI,12    X'1202'           NO TERMINATING OR CONTINUATION
     3149   01 0080C    68000817              B        M12025              CHAR IN FIRST 72, GIVE ERROR
     3150   01 0080D    6AF00859     M12015   BAL,15   M06000            GET 1 BYTE OF INPUT IN R15
     3151   01 0080E    E8000210 A            B        *MLT16              ERROR EXIT                    *C01
     3152   01 0080F    19FC0B64     M12020   CLM,15   LIMITS,6          COMPARE CHAR WITH NEXT SET OF LIMITS
     3153   01 00810    69900819              BCS,9    M12040            CHAR NOT IN LIMIT RANGE, BRANCH
     3154                            *CHAR IN LIMIT RANGE
     3155   01 00811    25C00108 A            SLD,12   8                 SHIFT RESULT ONE BYTE
     3156   01 00812    49D0000F A            OR,13    15                MERGE CHAR INTO RESULT
     3157   01 00813    7160000E A            CB,6     14                CK THAT LIMIT RANGE LEGAL FOR TYPED
     3158   01 00814    68100803              BGE      M12010            LOOP TO GET NEXT CHAR IF LEGAL
     3159                            *ILLEGAL CHAR
     3160   01 00815    B2C00842              LW,12    *M12080
     3161   01 00816    20C01200 A            AI,12    X'1200'           FORM ERROR CODE 120X, X IS TYPE CODE
     3162   01 00817    6AF00880     M12025   BAL,15   M07100              TYPE ERROR
     3163   01 00818    E8040842              B        *M12080,2           ERROR EXIT
     3164                            *CHAR NOT IN LIMIT RANGE
     3165   01 00819    7160000E A   M12040   CB,6     14                BRANCH IF CURRENT RANGE NOT LAST
     3166   01 0081A    6930082B              BNE      M12050              LEGAL RANGE
     3167   01 0081B    21F0006B A            CI,15    C','              IF COMMA, BRANCH TO ADRS IN CONTROL
     3168   01 0081C    E830000E A            BE       *14               WORD TO FORM RESULT
     3169   01 0081D    21F00060 A            CI,15    C'-'              BRANCH IF CHAR IS MINUS
     3170   01 0081E    E8320842              BE       *M12080,1         EXIT IF CHAR IS MINUS
     3171   01 0081F    21F0005E A            CI,15    ';'
     3172   01 00820    6930082B              BNE      M12050            BRANCH, NOT CONTINUATION CHAR
     3173   01 00821    6AF00846              BAL,15   M47000            GET FIRST CHAR OF CONTINUATION
     3174   01 00822    0000005A A            DATA     '!'                 MATCH CHAR
     3175   01 00823    68000829              B        M12045              BRANCH, NOT EXCLAMATION
     3176   01 00824    22F00048 A            LI,15    72                CHECK RECORD LENGTH
     3177   01 00825    31F00876              CW,15    M06900
     3178   01 00826    68100803              BGE      M12010                                            *C01
     3179   01 00827    35F00876              STW,15   M06900            IF LENGTH EXCEEDS 72, REDUCE
     3180   01 00828    68000803              B        M12010                                            *C01
     3181   01 00829    22C01203 A   M12045   LI,12    X'1203'           FIRST CHAR CONTINUATION RECORD
     3182   01 0082A    68000817              B        M12025              NOT EXCLAMATION, GIVE ERROR
     3183   01 0082B    206FFFFF A   M12050   AI,6     -1                ADJUST INDEX FOR NEXT SET OF LIMITS
     3184   01 0082C    6810080F              BGEZ     M12020            LOOP IF ALL LIMITS NOT CHECKED
     3185                            *TERMINATING CHAR
     3186   01 0082D    33100B44              MTW,1    EXITIND           SET EXIT INDICATOR
     3187   01 0082E    E800000E A            B        *14               BRANCH TO ADRS IN CONTROL WORD TO
     3188                            *HEX
     3189   01 0082F    6AF0083B     M12085   BAL,15   M12100            FWR 1ST DIGIT OR EXIT ON EMPTY WORD
     3190   01 00830    19C00B6C              CLM,12   DECLIMIT          DIGIT IN R12, CK FOR 0-9
     3191   01 00831    68900833              BCR,9    %+2
     3192   01 00832    20C00009 A            AI,12    9                 ADJUST LO-ORDER BITS FOR A-F
     3193   01 00833    25C0027C A            SCS,12   -4
     3194   01 00834    25C00304 A            SCD,12   4                 SHIFT HEX DIGIT INTO RESULT, R13
     3195   01 00835    68000840              B        M12120            GET NEXT DIGIT, RETURN TO M12080+1
     3196                            *DECIMAL
     3197   01 00836    6AF0083B     M12090   BAL,15   M12100            GET 1ST DIGIT OR EXIT ON EMPTY WORD
     3198   01 00837    4BC00BE9              AND,12   L(X'F')           DELETE HI-ORDER BITS FROM DIGIT
     3199   01 00838    23D0000A A            MI,13    10                MULTIPLY RESULT BY 10
     3200   01 00839    30D0000C A            AW,13    12                ADD DIGIT TO RESULT
     3201   01 0083A    68000840              B        M12120            GET NEXT DIGIT, RETURN TO M12090+1
     3202                            *SUB-ROUTINE TO LOAD FIRST DIGIT OR EXIT ON EMPTY WORD
     3203                            *               LOAD ADDITIONAL DIGIT OR EXIT WHEN ALL DIGITS HANDLED
     3204                            *EXIT ADRS IN R15 IS NOT DESTROYED
     3205                            *ORIGINAL ENTRY TO M12100, EXIT WITH FIRST DIGIT IN R12
     3206   01 0083B    15C0054E     M12100   STD,12   SAVE              8 BYTES TO STORAGE
     3207   01 0083C    22D00000 A            LI,13    0                 INITIALIZE RESULT TO ZERO
     3208   01 0083D    226FFFF8 A            LI,6     -8                SET INDEX FOR 8 BYTES
     3209   01 0083E    72CC0550              LB,12    SAVE+2,6          LOAD NEXT BYTE, R12
     3210   01 0083F    E930000F A            BNEZ     *15               EXIT ON NON-ZERO BYTE
     3211                            *ENTRY FOR DIGITS AFTER FIRST IS M12120, EXIT WITH NEXT DIGIT IN R12
     3212   01 00840    6560083E     M12120   BIR,6    %-2               ADJUST INDEX, LOOP IF NON-ZERO
     3213                            *M12070 IS BRANCH ADRS (IN CONTROL WORD) FOR A/N
     3214   01 00841    E8060842     M12070   B        *M12080,3
     3215   01 00842                 M12080   RES      1
     3216                            *
     3217                            *CONTROL TABLE
     3218                            *FIRST BYTE REFERENCES ADDRESS OF LEGAL LIMITS IN LIMIT TABLE
     3219                            *BYTES 1-3 GIVE ADR CONVERSION ROUTINE
     3220   01 00843    0300082F     M12030   GEN,8,24 ABSVAL(HXLIMITS-LIMITS)/2,M12085   HEX, TYPE CODE 0
     3221   01 00844    04000836              GEN,8,24 ABSVAL(DECLIMIT-LIMITS)/2,M12090   DEC, TYPE CODE 1
     3222   01 00845    00000841              GEN,8,24 ABSVAL(ANLIMITS-LIMITS)/2,M12070   A/N, TYPE CODE 2
     3223                            *
     3224                            *
     3225                            *        SUB-ROUTINE TO GET FIRST CHAR OF A RECORD
     3226                            *CALLING SEQUENCE
     3227                            *        BAL,15   M47000
     3228                            *        DATA     MATCH CHAR
     3229                            *        RETURN   NO MATCH
     3230                            *
     3231   01 00846    35F00561     M47000   STW,15   SAVL0+1
     3232   01 00847    22F00000 A            LI,15    0                 ZERO TO CHAR COUNTER FOR NEW RECORD
     3233   01 00848    35F0021A A            STW,15   MLT26
     3234   01 00849    72F00221 A            LB,15    MLT33             CHECK INPUT DEVICE
     3235   01 0084A    25F0007B A            SLS,15   -5
     3236   01 0084B    21F00000 A            CI,15    0
     3237   01 0084C    68300852              BE       M47010            BRANCH, KSR,ASR
     3238                            *INPUT DEVICE NOT KSR/ASR
     3239   01 0084D    EAF00219 A            BAL,15   *MLT25            GET FIRST CHAR
     3240   01 0084E    E8000210 A            B        *MLT16              ERROR EXIT                    *C01
     3241   01 0084F    B1F00561              CW,15    *SAVL0+1          COMPARE WITH MATCH CHAR
     3242   01 00850    E8340561              BE       *SAVL0+1,2        BRANCH, MATCH EXIT
     3243   01 00851    E8020561              B        *SAVL0+1,1        NO-MATCH EXIT
     3244                            *INPUT DEVICE KSR/ASR
     3245   01 00852    B2F00561     M47010   LW,15    *SAVL0+1          STORE CHAR IN MESSAGE
     3246   01 00853    75F20858              STB,15   M47020,1
     3247   01 00854    6AF009D9              BAL,15   M05015            TO PRINT ROUTINE TO TYPE NL,CHAR
     3248   01 00855    00000858              DATA     M47020
     3249   01 00856    B2F00561              LW,15    *SAVL0+1          LOAD CHAR
     3250   01 00857    E8040561              B        *SAVL0+1,2        MATCH EXIT
     3251         01 00858           M47020   TEXTCS   ' '
     3252                            *
     3253                            *
     3254                            *        ONE BYTE INPUT ROUTINE
     3255                            *
     3256                            *        THIS ROUTINE WILL RETURN ONE BYTE OF INPUT INFORMATION FROM
     3257                            *        THE LAST RECORD INPUT FROM THE MID, THE CONTENTS OF MLT+26
     3258                            *        SPECIFIES WHICH BYTE OF THE CURRENT RECORD WILL BE RETURNED.
     3259                            *        IF THE CONTENTS OF MLT+26 ARE EQUAL TO THE LENGTH OF THE
     3260                            *        CURRENT RECORD THEN A NEW RECORD WILL BE INPUT AND BYTE ZERO
     3261                            *        OF THAT RECORD WILL BE RETURNED. MLT+45 IS INCREMENTED BY 1
     3262                            *        AFTER EACH ACCESS AND WILL BE SET TO 1 AFTER EACH NEW RECORD
     3263                            *        IS READ
     3264                            *
     3265                            *        CALLING SEQUENCE           BAL,15     *MLT+25
     3266                            *                                   RETURN     ERROR
     3267                            *        EXITS WITH ACCESSED CHAR RIGHT-JUSTIFIED IN R15
     3268                            *
     3269                            *ALL REGISTERS ARE PRESERVED
     3270                            *
     3271   01 00859    35700557     M06000   STW,7    SAVE7             SAVE REGISTERS
     3272   01 0085A    02200030 A            LCI      3
     3273   01 0085B    2BE00550              STM,14   SAVE0
     3274   01 0085C    3270021A A            LW,7     MLT26             CURRENT CHAR INDEX
     3275   01 0085D    68300867              BCR,3    M06100            B IF NEW RECORD IS NEEDED
     3276   01 0085E    3310021A A   M06010   MTW,1    MLT26             MOVE CHAR INDEX
     3277   01 0085F    31700876              CW,7     M06900            HAS CURRENT RECORD BEEN EXHAUSTED
     3278   01 00860    68100867              BCR,1    M06100            B IF YES
     3279   01 00861    72FE0B6E              LB,15    BUFFER01,7        FETCH BYTE
     3280   01 00862    33100551              MTW,1    SAVE0+1           INCREMENT LINK ADDRESS
     3281   01 00863    32E00550     M06005   LW,14    SAVE0
     3282   01 00864    32000552              LW,0     SAVE0+2           RESTORE REGISTERS
     3283   01 00865    32700557              LW,7     SAVE7
     3284   01 00866    E8000551              B        *SAVE0+1          EXIT
     3285                            *
     3286   01 00867    22700000 A   M06100   LI,7     0
     3287   01 00868    3570021A A            STW,7    MLT26             SET CHAR INDEX TO ZERO
     3288   01 00869    72000221 A            LB,0     MLT33             FETCH DEVICE INDICATOR PARAMETER
     3289   01 0086A    2500007B A            SLS,0    -5                RIGHT JUSTIFY
     3290   01 0086B    2000043C              AI,0     DA(M06905)        COMMAND DOUBLEWORD ADRS TO R0
     3291   01 0086C    EAF00233 A            BAL,15   *MLT51            TO SUB-ROUTINE TO DO I/O        *C01
     3292   01 0086D    00000221 A            GEN,1,31 0,MLT33             0 IS INPUT, ADRS OF I/O ADRS
     3293   01 0086E    68000863              B        M06005              ERROR EXIT
     3294   01 0086F    25000001 A            SLS,0    1                 COMMAND WORD ADDRESS
     3295   01 00870    20000001 A            AI,0     1                 2ND WORD OF COMMAND PAIR
     3296   01 00871    B2E00000 A            LW,14    *0
     3297   01 00872    38E00ACF              SW,14    STATUS
     3298   01 00873    4BE00BDA              AND,14   =X'FFFF'
     3299   01 00874    35E00876              STW,14   M06900            CURRENT RECORD LENGTH
     3300   01 00875    6800085E              B        M06010            RETURN TO CHAR FETCH ROUTINE
     3301                            *
     3302   01 00876    00000000 A   M06900   DATA     0                 CURRENT RECORD LENGTH
     3303                                     BOUND    8
     3304         01 00878           M06905   EQU      %
     3305   01 00878    06002DB8     M06910   GEN,8,24 6,BA(BUFFER01)    KSR/ASR - READ EBCDIC
     3306   01 00879    08000001 A            GEN,8,24 X'08',1             HALT, BYTE COUNT 1
     3307   01 0087A    06002DB8     M06930   GEN,8,24 6,BA(BUFFER01)    CARD READER
     3308   01 0087B    0A000078 A            GEN,8,24 X'0A',120           HALT, SIL, BYTE COUNT 120
     3309   01 0087C    02002DB8     M06940   GEN,8,24 2,BA(BUFFER01)    PAPER TAPE
     3310   01 0087D    0A000078 A            GEN,8,24 X'0A',120           HALT, SIL, BYTE COUNT 120
     3311         00000003           M06945   EQU      (%-M06905)/2
     3312                            *
     3313                            *
     3314                            *        MONITOR ERROR ROUTINE
     3315                            *
     3316                            *        REGISTER 12 HAS ERROR CODE
     3317                            *        REGISTER 15 HAS EXIT ADRS
     3318                            *        TYPE MESSAGE 'MONITOR ERROR 0XXX'
     3319                            *
     3320                            *ALL REGISTERS ARE PRESERVED
     3321                            *
     3322                            *ENTRY TO TYPE MESSAGE THEN BRANCH INTO EXEC
     3323   01 0087E    6AF00880     M07000   BAL,15   M07100            TYPE ERROR MESSAGE
     3324   01 0087F    E8000210 A            B        *MLT16            RETURN TO EXEC                  *C01
     3325                            *ENTRY TO TYPE MESSAGE AND RETURN
     3326   01 00880    35F00552     M07100   STW,15   SAVE2             SAVE EXIT ADRS
     3327   01 00881    6AF00A5E              BAL,15   M03000            GET EBC HEX CODES
     3328   01 00882    75F00BC0              STB,15   MONERR+5
     3329   01 00883    25F00078 A            SLS,15   -8
     3330   01 00884    30F00BEA              AW,15    L(X'40000000')
     3331   01 00885    35F00BBF              STW,15   MONERR+4
     3332   01 00886    EAF00223 A            BAL,15   *MLT35            TYPE ERROR MESSAGE              *C01
     3333   01 00887    00000BBB              DATA     MONERR              MESSAGE ADRS
     3334   01 00888    E8000552              B        *SAVE2            EXIT
     3335                            *
     3336                            *ENTRY TO TYPE ERROR FOR ILLEGAL ADDRESS
     3337   01 00889    22C00700 A   M07200   LI,12    X'0700'
     3338   01 0088A    6800087E              B        M07000
     3339                            *
     3340                            *DIRECTIVE DICTIONARY
     3341                            *
     3342                            *TWO-WORD ENTRY FOR EACH DIRECTIVE
     3343                            *FIRST WORD IS 4-BYTE MNEMONIC
     3344                            *SECOND WORD HAS FOUR 3-BIT TYPE CODES, BITS 0-11
     3345                            *  BIT 12 IS 0/1, MAX 4/255 PARAMETERS
     3346                            *  BITS 15-31 HOLD ADRS DIRECTIVE PROCESSOR
     3347                            *
     3348   01 0088B    00C1D3E3 A   DICT     DATA     C'ALT'            ALT,ALTER
     3349   01 0088C    000808BC              GEN,15,17 O'00004',M09000  HEX CODES, MAX 255 PARAMETERS
     3350   01 0088D    00C4D4D7 A            DATA     C'DMP'            DMP, DUMP
     3351   01 0088E    007008C9              GEN,15,17 O'00070',M08000  3 HEX CODES, MAX 3 PARAMETERS
     3352   01 0088F    00D4D6C4 A            DATA     C'MOD'            MOD, MESSAGE OUTPUT DEVICE
     3353   01 00890    438008AB              GEN,15,17 O'20700',M10000  1 A/N, 1 HEX CODE
     3354   01 00891    00D4C9C4 A            DATA     C'MID'            MID, MESSAGE INPUT ROUTINE
     3355   01 00892    43800899              GEN,15,17 O'20700',M11000  1 A/N, 1 HEX CODE
     3356   01 00893    D3D6C1C4 A            DATA     C'LOAD'
     3357   01 00894    1C00091D              GEN,15,17 O'07000',M14000  1 HEX PARAM                    *C00
     3358   01 00895    E2E8E2E3 A            DATA     C'SYST'           SYST
     3359   01 00896    2408093B              GEN,15,17 O'11004',M18000  2 DEC, 2 HEX, BIT 12 (MAX 255)
     3360   01 00897    E3C4D4D7 A            DATA     C'TDMP'           TDMP, TELETYPE DUMP             *C01
     3361   01 00898    00700903              GEN,15,17 O'00070',TTYDMP  3 HEX CODES, MAX 3 PARAMETERS   *C01
     3362         0000000E           CNTDICT  EQU      %-DICT            DICTIONARY LENGTH
     3363                            *
     3364                            *
     3365                            *        MESSAGE  INPUT DEVICE ROUTINE
     3366                            *
     3367                            *        THIS ROUTINE DECODES PARAMETER A1 AND X2 AS DEVICE TYPE AND
     3368                            *        I/O ADDRESS RESPECTIVELY AND PLACES  THE DECODED INFORMATION
     3369                            *        IN MLT33  FOR REFERENCE BY OTHER ROUTINES.
     3370                            *
     3371                            *
     3372   01 00899    2280FFFF A   M11000   LI,8     X'FFFF'           DEVICE TYPE INDICATOR
     3373   01 0089A    4B800201 A            AND,8    P1
     3374   01 0089B    224FFFFD A            LI,4     -M11200           MNEMONIC TABLE LENGTH
     3375   01 0089C    318808AB              CW,8     M11100+M11200,4   CHECK FOR MATCH
     3376   01 0089D    683008A2              BCR,3    M11010            BRANCH IF MATCH
     3377   01 0089E    20000001 A            AI,0     1                 MOVE INDICATOR
     3378   01 0089F    6540089C              BIR,4    %-3               B FOR NEXT TRY
     3379   01 008A0    22C01100 A            LI,12    X'1100'           ERROR NUMBER
     3380   01 008A1    6800087E              B        M07000              DEVICE MNEMONIC NOT FOUND
     3381   01 008A2    25000005 A   M11010   SLS,0    5                 POSITION DEVICE TYPE INDICATOR
     3382   01 008A3    22801FFF A            LI,8     X'1FFF'           FETCH IOP AND DEVICE ADRS       *B02
     3383   01 008A4    4B800202 A            AND,8    P2
     3384   01 008A5    75000008 A            STB,0    8                 INSERT DEVICE TYPE INDICATOR BITS
     3385   01 008A6    35800221 A            STW,8    MLT33             PLACE IN LINK TABLE
     3386   01 008A7    E8000214 A            B        *MLT20            RETURN TO MONITOR
     3387                            *
     3388         01 008A8           M11100   EQU      %                 MNEMONIC TABLE STARTS HERE
     3389   01 008A8    0000E3E8 A            DATA     'TY'              TYPEWRITER
     3390   01 008A9    0000C3D9 A            DATA     'CR'              CARD READER
     3391   01 008AA    0000D7D9 A            DATA     'PR'              PAPER TAPE READER
     3392         00000003           M11200   EQU      %-M11100          TABLE LENGTH
     3393                            *
     3394                            *
     3395                            *        MESSAGE  OUTPUT DEVICE ROUTINE
     3396                            *
     3397                            *        THIS ROUTINE DECODES PARAMETER A1 AND X2 AS DEVICE TYPE AND
     3398                            *        I/O ADDRESS RESPECTIVELY AND PLACES THE DECODED INFORMATION
     3399                            *        IN MLT+32 FOR REFERENCE BY OTHER ROUTINES
     3400                            *
     3401                            *
     3402   01 008AB    32800201 A   M10000   LW,8     P1                DEVICE TYPE INDICATOR
     3403   01 008AC    4B800BE1              AND,8    L(X'FFFFFF')      LEAVE THREE LOW ORDER BYTES
     3404   01 008AD    224FFFFE A            LI,4     -M10200           MNEMONIC TABLE LENGTH
     3405   01 008AE    318808BC              CW,8     M10100+M10200,4   CHECK FOR MATCH
     3406   01 008AF    683008B4              BCR,3    M10010            B IF MATCH
     3407   01 008B0    20000001 A            AI,0     1                 MOVE INDICATOR
     3408   01 008B1    654008AE              BIR,4    %-3               B FOR NEXT TRY
     3409   01 008B2    22C01000 A            LI,12    X'1000'           ERROR NUMBER
     3410   01 008B3    6800087E              B        M07000            DEVICE MNEMONIC NOT FOUND
     3411   01 008B4    25000006 A   M10010   SLS,0    6                 POSITION DEVICE TYPE INDICATOR
     3412   01 008B5    32800202 A            LW,8     P2                FETCH IOP AND DEVICE ADDRESS
     3413   01 008B6    4B800BD4              AND,8    L(X'1FFF')        REMOVE UNWANTED BITS            *B02
     3414   01 008B7    75000008 A            STB,0    8                 INSERT DEVICE TYPE INDICATOR BITS
     3415   01 008B8    35800220 A            STW,8    MLT32             PLACE IN LINK TABLE
     3416   01 008B9    E8000214 A            B        *MLT20            RETURN TO MONITOR
     3417                            *
     3418         01 008BA           M10100   EQU      %                 MNEMONIC TABLE START HERE
     3419   01 008BA    0000E3E8 A            DATA     'TY'              TYPEWRITER
     3420   01 008BB    0000D3D7 A            DATA     'LP'              LINE PRINTER
     3421         00000002           M10200   EQU      %-M10100          TABLE LENGTH
     3422                            *
     3423                            *
     3424                            *PROCESS ALTER DIRECTIVE
     3425                            *
     3426                            *BYTE 1, MLT+17 HAS PARAMETER COUNT
     3427                            *BUFFER HOLDS PARAMETERS
     3428                            *FIRST PARAMETER IS ALTER ADRS
     3429                            *SUCCEEDING PARAMETERS ARE STORED STARTING AT ALTER ADRS
     3430                            *
     3431   01 008BC    22600B8D     M09000   LI,6     BUFFER+1          STARTING LOAD ADRS TO R6
     3432   01 008BD    72C20211 A            LB,12    MLT17,1           PARAMETER COUNT TO R12
     3433   01 008BE    32700B8C              LW,7     BUFFER            STARTING STORE ADRS TO R7
     3434   01 008BF    680008C7              B        M09020
     3435   01 008C0    691008C3     M09010   BLZ      %+3               NEGATIVE IN STORE ADRS IS ERROR
     3436   01 008C1    3170022E A            CW,7     MLT46             STORE ADRS ABOVE TOP OF CORE IS
     3437   01 008C2    69200889              BG       M07200
     3438   01 008C3    B2D00006 A            LW,13    *6                TRANSFER NEXT WORD
     3439   01 008C4    B5D00007 A            STW,13   *7
     3440   01 008C5    20600001 A            AI,6     1                 INCREMENT LOAD ADRS
     3441   01 008C6    20700001 A            AI,7     1                 INCREMENT STORE ADRS
     3442   01 008C7    64C008C0     M09020   BDR,12   M09010            LOOP UNTIL ALL WORDS TRANSFERRED
     3443   01 008C8    E8000214 A            B        *MLT20            EXIT
     3444                            *
     3445                            *
     3446                            *        DUMP ROUTINE
     3447                            *
     3448                            *REGISTER ASSIGNMENTS
     3449                            *  4, N ADJUSTED BY NBR CONSECUTIVE WORDS THAT MATCH
     3450                            *  4, SUB-ROUTINE LINKAGE
     3451                            *  5, PRINT BUFFER INDEX
     3452                            *  6, N, NUMBER WORDS TO DUMP
     3453                            *  7, CONTROL ADDRESS = ENDING ADDRESS + N
     3454                            *  8, PRINT ADDRESS
     3455                            * 10, COMPARAND, (FIRST LOCATION) THAT DOES MATCH (PRECEDING LOCATION)
     3456                            * 13, ADDRESS OF APPLICABLE CONVERSION ROUTINE (HEX/DEC)
     3457                            * 14, COUNT OF CONSECUTIVE CELLS WITH IDENTICAL CONTENTS
     3458                            *
     3459                            *CALLING SEQUENCE
     3460                            *        BAL,15   *MLT15
     3461                            *
     3462   01 008C9    35F00552     M08000   STW,15   SAVE2             SAVE EXIT ADRS
     3463   01 008CA    22F009D6              LI,15    M05010            OUTPUT LINE SUBROUTINE ADDR     *C01
     3464   01 008CB    35F00901     M08001   STW,15   DMPLOC            SAVE                            *C01
     3465   01 008CC    32600201 A            LW,6     P1                START ADRS TO REG 6
     3466   01 008CD    69100889              BLZ      M07200              ERROR IF NEG WORD
     3467   01 008CE    32700202 A            LW,7     P2                END ADRS TO REG 7
     3468   01 008CF    31600007 A            CW,6     7                 COMPARE STARTING, ENDING ADDRESSES
     3469   01 008D0    691008D2              BL       %+2               IF STARTING ADRS HIGHER, SUBSTITUE
     3470   01 008D1    32700006 A            LW,7     6                   STARTING FOR ENDING ADRS
     3471   01 008D2    3170022E A            CW,7     MLT46
     3472   01 008D3    69200889              BG       M07200              ERROR IF ABOVE TOP OF CORE
     3473   01 008D4    20700001 A            AI,7     1                 ENDING+1, CONTROL ADRS
     3474   01 008D5    22D00A6C              LI,13    M02000            CK RELATIVE ADRS FLAG
     3475   01 008D6    22800001 A            LI,8     1
     3476   01 008D7    32C00203 A            LW,12    P3                FLAG NON-ZERO, USE 1 AS 1ST PRT
     3477   01 008D8    693008DB              BNEZ     %+3                 ADRS, USE DEC.CONVERSION
     3478   01 008D9    32800006 A            LW,8     6                 FLAG ZERO, SET STARTING ADRS AS 1ST
     3479   01 008DA    22D00A5E              LI,13    M03000              PRT ADRS, USE HEX CONVERSION
     3480   01 008DB    38600007 A            SW,6     7                 STARTING-CONTROL ADRS=-N, INDEX 6
     3481   01 008DC    6A400913     M08010   BAL,4    M08090            GET PRT CODES FOR 5 PRT ADRS DIGITS
     3482         01 008DD                    TEXTS    ' - 0'              SPACE BEFORE, DASH AND SPACE AFTER
     3483   01 008DE    15E00B8C              STD,14   BUFFER            STORE IN BUFFER
     3484   01 008DF    225FFFBB A            LI,5     -69               SET INDEX FOR 10-WORD BUFFER
     3485   01 008E0    B2AC0007 A   M08030   LW,10    *7,6              LOAD COMPARAND
     3486   01 008E1    32400006 A            LW,4     6                 SET INDEX FOR NEXT ADDRESS-1
     3487   01 008E2    22EFFFFD A            LI,14    -3                INITIALIZE COUNT CONSECUTIVE MATCHES
     3488   01 008E3    680008EA              B        M08041            BRANCH
     3489   01 008E4    B1A80007 A   M08040   CW,10    *7,4              COMPARE COMPARAND WITH NEXT WORD
     3490   01 008E5    693008EB              BNE      M08050            BRANCH IF NOT EQUAL
     3491   01 008E6    20E00001 A            AI,14    1                 INCREMENT COUNT OF MATCHES
     3492   01 008E7    693008EA              BNEZ     M08041            BRANCH, COUNT NOT3
     3493   01 008E8    215FFFBB A            CI,5     -69               COUNT 3, CHECK BUFFER INDEX
     3494   01 008E9    693008FF              BNE      M08021            BUFFER NOT EMPTY, GO OUTPUT BUFFER
     3495   01 008EA    654008E4     M08041   BIR,4    M08040            INCREMENT INDEX TO NEXT ADDRESS
     3496                            *                                   LOOP UNLESS THRU ALL WORDS
     3497   01 008EB    21E00000 A   M08050   CI,14    0                 CHECK COUNT
     3498   01 008EC    691008F6              BL       M08060            BRANCH, COUNT LESS THAN 3
     3499   01 008ED    20E00003 A            AI,14    3                 COUNT 3 OR MORE
     3500   01 008EE    3060000E A            AW,6     14                ADJUST N TO FINAL MATCH ADRS
     3501   01 008EF    3080000E A            AW,8     14                ADJUST PRT ADRS TO FINAL MATCH ADRS
     3502   01 008F0    6A400913              BAL,4    M08090            GET PRT CODES FOR 5-DIGIT FINAL
     3503         01 008F1                    TEXTS    '   0'              MATCH ADRS
     3504                            *                                     1 SPACE PRECEDES, 2 SPACES FOLLOW.
     3505   01 008F2    15E00B8E              STD,14   BUFFER+2          STORE IN BUFFER
     3506   01 008F3    225FFFC4 A            LI,5     -60               RESET BUFFER INDEX
     3507   01 008F4    6A400906              BAL,4    M08080            STORE PRT CODES FOR COMPARAND IN
     3508                            *                                     BUFFER, INCREMENT PRT ADRS
     3509   01 008F5    655008F8              BIR,5    M08070            ADD 1 TO BUFFER ADRS, GO OUTPUT LINE
     3510                            *COUNT OF MATCHES LESS THAN 3
     3511   01 008F6    6A400906     M08060   BAL,4    M08080            STORE COMPARAND IN BUFFER
     3512                            *                                   INCREMENT PRT ADRS
     3513   01 008F7    655008FE              BIR,5    M08020            BRANCH IF LINE NOT FULL
     3514                            *OUTPUT LINE
     3515   01 008F8    2050004B A   M08070   AI,5     75                CALCULATE BYTE COUNT
     3516   01 008F9    75500B8C              STB,5    BUFFER            STORE IN FIRST BYTE OF MESSAGE
     3517   01 008FA    EAF00901              BAL,15   *DMPLOC           PRINT LINE                      *C01
     3518   01 008FB    00000B8C              DATA     BUFFER              MESSAGE ADDRESS
     3519   01 008FC    656008DC              BIR,6    M08010            LOOP UNLESS LAST WORD OUTPUT
     3520   01 008FD    E8000552              B        *SAVE2            EXIT FROM DUMP ROUTINE
     3521                            *LINE NOT FULL
     3522   01 008FE    656008E0     M08020   BIR,6    M08030            ADJUST N BY 1, BRANCH IF NON-ZERO
     3523   01 008FF    206FFFFF A   M08021   AI,6     -1                READJUST N SO NOT INCREMENTED TWICE
     3524   01 00900    680008F8              B        M08070            BRANCH TO OUTPUT LINE
     3525                            *
     3526   01 00901    00000000 A   DMPLOC   DATA     0                                                 *C01
     3527   01 00902    00000000 A   LOGFLAG  DATA     0                                                 *C01
     3528                            *                                                                   *C01
     3529   01 00903    35F00552     TTYDMP   STW,15   SAVE2             SAVE EXIT ADDR                  *C01
     3530   01 00904    22F009D9              LI,15    M05015            OUTPUT LINE SUBROUTINE ADDR     *C01
     3531   01 00905    680008CB              B        M08001                                            *C01
     3532                            *
     3533                            *SUB-ROUTINE TO STORE HEX PRINT CODES FOR WORD IN REG 10 IN PRINT BUFFER
     3534                            *PRECEDE WITH SPACE CODE
     3535                            *INCREMENT PRINT ADDRESS BY 1
     3536                            *EXIT ADDRESS IN REGISTER 4
     3537   01 00906    32C0000A A   M08080   LW,12    10                COMPARAND TO R12
     3538   01 00907    6AF00A5E              BAL,15   M03000            GET EBC CODES FOR LAST 4 HEX DIGITS
     3539   01 00908    32E0000F A            LW,14    15                  OF COMPARAND, SAVE IN R14
     3540   01 00909    6AF00A5E              BAL,15   M03000            GET EBC CODES FOR FIRST 4 HEX DIGITS
     3541   01 0090A    22C00040 A            LI,12    C' '              SPACE CODE TO BUFFER
     3542   01 0090B    75CA0B9F              STB,12   BUFFER+19,5
     3543   01 0090C    22CFFFF8 A            LI,12    -8                SET LOOP COUNT TO 8
     3544   01 0090D    20500001 A            AI,5     1                 INCREMENT BUFFER INDEX
     3545   01 0090E    25E00308 A            SCD,14   8                 SHIFF NEXT BYTE INTO R14, BYTE POS 3
     3546   01 0090F    75EA0B9F              STB,14   BUFFER+19,5       SOTRE BYTE IN BUFFER
     3547   01 00910    65C0090D              BIR,12   %-3               LOOP UNTIL 8 BYTES STORED
     3548   01 00911    20800001 A            AI,8     1                 INCREMENT PRT ADRS
     3549                            *BUFFER INDEX MUST BE INCREMENTED BY 1 AFTER EXIT FROM M08080
     3550   01 00912    E8000004 A            B        *4                EXIT FROM SUB-ROUTINE
     3551                            *
     3552                            *SUB-ROUTINE TO GET HEX/DEC PRINT CODES FOR CURRENT PRINT ADDRESS AAAAA
     3553                            *R4 HOLDS ADDRESS OF WORD CONTAINING PRT CODES FOR 1230
     3554                            *EXIT WITH R14,R15 HOLDING PRT CODES 3AAAAA12
     3555                            *EXIT TO (R4)+1
     3556   01 00913    32C00008 A   M08090   LW,12    8                 LOAD PRT ADRS, GET DEC/HEX
     3557   01 00914    EAF0000D A            BAL,15   *13                   EBC CODES FOR LAST 4 BYTES, R15
     3558   01 00915    21C0000A A            CI,12    10                R12 HOLDS NBR TO USE AS 1ST DIGIT
     3559   01 00916    69100918              BL       %+2               IF NUMBER EXCEEDS 9, REDUCE BY 10
     3560   01 00917    20CFFFF6 A            AI,12    -10               (POSSIBLE WITH DEC RELATIVE ADRS)
     3561   01 00918    B2E00004 A            LW,14    *4                EBC CODES FOR OTHER 3 BYTES TO R14
     3562   01 00919    30E0000C A            AW,14    12                ADD TOP ADRS DIGIT
     3563   01 0091A    25E00310 A            SCD,14   16                SHIFT TO GET BYTES IN OUTPUT SEQ
     3564   01 0091B    20400001 A            AI,4     1                 INCREMENT EXIT ADRS
     3565   01 0091C    E8000004 A            B        *4                EXIT FROM SUB-ROUTINE
     3566                            *
     3567                            ******** ! L O A D   DIRECTIVE  ****
     3568                            *
     3569   01 0091D    33000228 A   M14000   MTW,0    MLT40           WAS PROGRAM LOADED FROM MLT     *C00
     3570   01 0091E    E9300214 A            BCS,3     *MLT20           YES                            *C00
     3571   01 0091F    EAF00613              BAL,15   *M34000L          STUFF INTERRUPTS AND TRAPS     *C01
     3572   01 00920    227FFFE0 A            LI,7     -32               ZERO PIT TABLE
     3573   01 00921    350E0320 A            STW,0    PIT+32,7
     3574   01 00922    65700921              BIR,7    %-1
     3575   01 00923    35000B42              STW,0    LOADED            RESET PROG LOADED FLAG          *B03
     3576   01 00924    32100227 A            LW,1     MLT39            GET LOADER BASE ADR             *B03
     3577   01 00925    CFF00221 A            HIO,15   *MLT33            ISSUE HIO                       *C01
     3578   01 00926    32700201 A            LW,7     P1                GET LOADER BASE ADDR            *C00
     3579   01 00927    68300929              BCR,3    %+2               B IF ZERO                       *C00
     3580   01 00928    35720005 A            STW,7    5,1               SET ALT INPUT DEVICE ADDR       *C00
     3581   01 00929    6AB20008 A            BAL,11   8,1               LOAD PROGRAM                    *B03
     3582                            *END MODULE DETECTED
     3583   01 0092A    EAF00613     M14020   BAL,15   *M34000L          DISARM, STUFF INTERRUPTS
     3584   01 0092B    6AF007F8              BAL,15   SET0123       INITIALIZE REGS 0,1,2,3             *B03
     3585   01 0092C    35100B42              STW,1    LOADED            SET PROGRAM-LOADED FLAG
     3586   01 0092D    35000B46              STW,0    LOADIM            RESET LOAD IMMEDIATE FLAG       *B02

     3588   01 0092E    72F00BCC              LB,15    COCSTATE          CONNECT REMOTE USERS            *G01
     3589   01 0092F    21F000C0 A            CI,15    X'C0'              IF AND ONLY IF COC IS          *G01
     3590   01 00930    68400932              BAZ      %+2                 ACTUALLY PRESENT              *G01
     3591   01 00931    EAF00237 A            BAL,15   *MLT55               (ASSUMING > 16K)             *G01

     3593   01 00932    32400301 A            LW,4     PIT01
        1*  01 00933    68300937              BEZ      %+4               SKIP IF NO TITLE                *H01
     3595   01 00934    35400936              STW,4    %+2
     3596   01 00935    6AF009CF              BAL,15   M05005            OUTPUT TITLE
     3597   01 00936                          RES      1

     3598   01 00937    EAF00308 A            BAL,15   *PIT08            TO USER INITIALZER
     3599   01 00938    6AF007F8              BAL,15   SET0123                                           *C00
     3600   01 00939    3500020D A            STW,0    MLT13             RESET TEMP. ASR MODE FLAG       *C00
     3601   01 0093A    6800095A              B        M18055            BRANCH INTO SYST ROUTINE
     3602                            *
     3603                            *        SYST ROUTINE
     3604                            *
     3605                            *THIS ROUTINE STORES THE SYST DIRECTIVE PARAMETERS
     3606                            *  IN SYSTEM CONTEXT TABLE, IF USER PROGRAM NOT LOADED
     3607                            *  OR IN CONTEXTS DATA BLOCK OF USER PROGRAM
     3608                            *
     3609   01 0093B    32C00B8C     M18000   LW,12    BUFFER            IF MORE THAN 5 DIGITS INPUT FOR D1,
     3610   01 0093C    21C1869F A            CI,12    99999               REDUCE
     3611   01 0093D    68200940              BLE      %+3
     3612   01 0093E    20CE7960 A            AI,12    -100000
     3613   01 0093F    6800093C              B        %-3
     3614   01 00940    35C00B8C              STW,12   BUFFER
     3615   01 00941    72C20211 A            LB,12    MLT17,1           PARAMETER COUNT TO R12
     3616   01 00942    69200945              BGZ      %+3               COUNT EXCEEDS ZERO, BRANCH
     3617   01 00943    22C01800 A            LI,12    X'1800'           TO ERROR ROUTINE ON ZERO COUNT
     3618   01 00944    6800087E              B        M07000              ERROR CODE X'1800'
     3619   01 00945    55C00B8C              STH,12   BUFFER            PARAMETER COUNT TO BUFFER, HALF 0
     3620   01 00946    32700B42              LW,7     LOADED            CK SWITCH
     3621   01 00947    69300949              BNEZ     M18020            BRANCH IF USER PROG NOT LOADED
     3622                            *USER PROGRAM NOT LOADED
     3623   01 00948    E8000214 A            B        *MLT20            EXIT                            *B03
     3624                            *USER PROGRAM LOADED
     3625   01 00949    22700000 A   M18020   LI,7     0                 INITIALIZE INDEX FOR CDT
     3626   01 0094A    1570030A A            STD,7    PIT10             RESET SWITCHES
     3627   01 0094B    32C00201 A            LW,12    P1                SYST MODEL NUMBER TO R12
     3628   01 0094C    6AF00971     M18030   BAL,15   M18080            TO SUB-ROUTINE TO INITIALIZE
     3629   01 0094D    68000954              B        M18060              BRANCH, CDT EXHAUSTED
     3630   01 0094E    3A600006 A            LCW,6    6
     3631   01 0094F    B1CC000E A            CW,12    *14,6             COMPARE SYST MODEL NBR TO A MODEL
     3632   01 00950    68300956              BE       M18050              NBR IN DCB, BRANCH ON MATCH
     3633   01 00951    6560094F              BIR,6    %-2               LOOP THRU ALL CDB MODEL NUMBERS
     3634                            *NO MATCHING MODEL IN THIS CDB
     3635   01 00952    20700001 A            AI,7     1                 INCREMENT INDEX FOR NEXT CDT ENTRY
     3636   01 00953    6800094C              B        M18030            LOOP TO M18030
     3637                            *CDT EXHAUSTED, NO MATCH
     3638   01 00954    22C01801 A   M18060   LI,12    X'1801'           GIVE ERROR, NO MATCH IN CDT
     3639   01 00955    6800087E              B        M07000
     3640                            *MATCHING MODEL NUMBER, MOVE SYST PARAMETERS TO CDB
     3641   01 00956    22D00B8C     M18050   LI,13    BUFFER            LOAD REG 13 WITH BUFFER ADRS
     3642   01 00957    6AF0097E              BAL,15   M18090            SUB-ROUTINE MOVES BUFFER TO CDB
     3643   01 00958    00000001 A            DATA     1                   MODIFIER, BUFFER IN ASCENDING SEQ
     3644   01 00959    EAF00308 A            BAL,15   *PIT08            TO USER INITIALIZER ROUTINE
     3645                            *        SYST ERROR REPORT
     3646                            *LOAD DIRECTIVE BRANCHES IN HERE
     3647                            *IF PIT+11 IS NON-ZERO, TYPE MESSAGE AT ADDRESS IN PIT+11
     3648                            *IF PIT+10 IS NON-ZERO, TYPE FOLLOWING MESSAGE:
     3649                            *   SYST, MODEL XXXX, PARAMETER YYY IS INVALID
     3650                            *PIT+9 HOLDS BINARY XXXX, PIT+10 HOLDS BINARY YYY
     3651                            *EXIT TO GET NEXT DIRECTIVE
     3652                            *
     3653   01 0095A    32F0030B A   M18055   LW,15    PIT11
     3654   01 0095B    6830095F              BEZ      %+4
     3655   01 0095C    35F0095E              STW,15   %+2
     3656   01 0095D    6AF009D2              BAL,15   M05007            PIT+11 NON-ZERO, TYPE MESSAGE    0
     3657   01 0095E                          RES      1
     3658   01 0095F    3300030A A            MTW,0    PIT10
     3659   01 00960    E8300214 A            BEZ      *MLT20            PIT+10 ZERO, EXIT               *C01
     3660   01 00961    22F00000 A            LI,15    0                 RESET BUFFER COUNT
     3661   01 00962    75F00B8C              STB,15   BUFFER
     3662   01 00963    6AD009AA              BAL,13   M35000            FIRST SEGMENT OF MESSAGE TO
     3663   01 00964    0000096D              DATA     M18059              BUFFER
     3664   01 00965    32C00309 A            LW,12    PIT09             LOAD BINARY XXXX
     3665   01 00966    6AF00A6C              BAL,15   M02000            GET DECIMAL EBCDIC CODES
     3666   01 00967    20C000F0 A            AI,12    X'F0'             CONVERT FIRST DIGIT TO EBCDIC
     3667   01 00968    32E0000C A            LW,14    12
     3668   01 00969    6AD009AA              BAL,13   M35000            STORE XXXXX IN BUFFER
     3669   01 0096A    0000000E A            DATA     14
     3670   01 0096B    6AC00996              BAL,12   M49010            USE SUB-ROUTINE TO COMPLETE
     3671   01 0096C    E8000214 A            B        *MLT20            EXIT                            *C01
     3672         01 0096D           M18059   TEXTCS   'SYST, MODEL '
     3673                            *
     3674                            *SUB-ROUTINE TO LOAD VALUES FROM CDT FOR A CONTEXT DATA BLOCK
     3675                            *CALLING SEQUENCE
     3676                            *        BAL,15   M18080
     3677                            *        RETURN   CDT EXHAUSTED
     3678                            *USED BY !SYST, SYST SEARCH
     3679                            *
     3680   01 00971    31700306 A   M18080   CW,7     PIT06             COMPARE INDEX WITH CDT LENGTH
     3681   01 00972    E810000F A            BGE      *15                 EXIT IF END OF CDT
     3682   01 00973    B24E0305 A            LW,4     *PIT05,7          CDB TABLE LENGTH FROM CDT TO REG 4
     3683   01 00974    2260000F A            LI,6     X'F'
     3684   01 00975    4B600004 A            AND,6    4                 COUNT OF MODEL NUMBERS TO REG 6
     3685   01 00976    69300979              BNEZ     %+3
     3686   01 00977    22C01804 A            LI,12    X'1804'           ZERO COUNT, GIVE ERROR
     3687   01 00978    6800087E              B        M07000
     3688   01 00979    25400069 A            SLS,4    -23               SHIFT CDB LENGTH TO BYTE 3, REG 4
     3689   01 0097A    20700001 A            AI,7     1                 INCREMENT INDEX TO CDT
     3690   01 0097B    B2EE0305 A            LW,14    *PIT05,7          CDB ADRS TO R14
     3691   01 0097C    20F00001 A            AI,15    1                 INCREMENT LINK ADRS
     3692   01 0097D    E800000F A            B        *15               EXIT
     3693                            *
     3694                            *        SUB-ROUTINE TO MOVE SYST PARAMETERS TO CDB
     3695                            *USED BY !SYST, SYST SEARCH
     3696                            *REGISTER 13 HOLDS ADDRESS AT WHICH PARAMETERS ARE LOCATED
     3697                            *REGISTER 12 HOLDS MODEL NUMBER
     3698                            *CALLING SEQUENCE
     3699                            *        BAL,15   M18090
     3700                            *        DATA     +1/-1             PARAMETERS ASCENDING/DESCENDING SEQ
     3701                            *
     3702   01 0097E    35C00309 A   M18090   STW,12   PIT09             MODEL NUMBER TO PIT TABLE
     3703   01 0097F    D140000D A            CH,4     *13               CHECK LENGTH CDB
     3704   01 00980    68100983              BGE      M18095            LENGTH SUFFICIENT, BRANCH
     3705   01 00981    22C01802 A            LI,12    X'1802'           ERROR ON INSUFFICIENT LENGTH
     3706   01 00982    6800087E              B        M07000
     3707   01 00983    D240000D A   M18095   LH,4     *13               COUNT TO REGISTER 4
     3708                            *INDEX 4 HOLDS PARAMETER COUNT
     3709   01 00984    22600000 A            LI,6     0                 MOVE PARAMETERS TO CDB
     3710   01 00985    B2C0000D A            LW,12    *13
     3711   01 00986    B5CC000E A            STW,12   *14,6
     3712   01 00987    B0D0000F A            AW,13    *15
     3713   01 00988    20600001 A            AI,6     1
     3714   01 00989    31600004 A            CW,6     4
     3715   01 0098A    69300985              BNE      %-5
     3716   01 0098B    20F00001 A            AI,15    1
     3717   01 0098C    E800000F A            B        *15               EXIT
     3718                            *
     3719                            *        PARAMETER ERROR REPORT ROUTINE
     3720                            *CALLING SEQUENCE
     3721                            *        BAL,15   *MLT41
     3722                            *        DATA     ADDRESS OF 1-TO-4 EBCDIC CHARS XXXX, RIGHT-ADJUSTED
     3723                            *OUTPUTS MESSAGE:  XXXX, PARAMETER YYY IS INVALID
     3724                            *PIT+10 HOLDS BINARY YYY
     3725                            *
     3726   01 0098D    15C0056C     M49000   STD,12   SAVL0+12          SAVE REGISTERS
     3727   01 0098E    22C00000 A            LI,12    0                 SET BUFFER COUNT TO ZERO
     3728   01 0098F    75C00B8C              STB,12   BUFFER
     3729   01 00990    B2C0000F A            LW,12    *15
     3730   01 00991    B2C0000C A            LW,12    *12               LOAD EBCDIC FOR DIRECTIVE XXXX
     3731   01 00992    20F00001 A            AI,15    1                 INCREMENT LINK ADRS
     3732   01 00993    46C0000F A            XW,12    15                LINK ADRS TO 12
     3733   01 00994    6AD009AA              BAL,13   M35000            STORE DIRECTIVE XXXX IN BUFFER
     3734   01 00995    0000000F A            DATA     15
     3735                            *ENTRY FROM SYST ERROR REPORT, EXIT ADRS IN R12
     3736   01 00996    35C0056F     M49010   STW,12   SAVL0+15          SAVE EXIT ADDRESS
     3737   01 00997    6AD009AA              BAL,13   M35000            NEXT SEGMENT OF MESSAGE IN BUFFER
     3738   01 00998    000009A3              DATA     M49020
     3739   01 00999    32C0030A A            LW,12    PIT10             BINARY PARAMETER NUMBER TO R12
     3740   01 0099A    6AF00A6C              BAL,15   M02000            GET DECIMAL EBCDIC CODES
     3741   01 0099B    6AD009AA              BAL,13   M35000            STORE IN BUFFER
     3742   01 0099C    0000000F A            DATA     15
     3743   01 0099D    6AD009AA              BAL,13   M35000            REMAINDER OF MESSAGE TO BUFFER
     3744   01 0099E    000009A7              DATA     M49030
     3745   01 0099F    EAF00223 A            BAL,15   *MLT35            OUTPUT MESSAGE ON KSR           *C01
     3746   01 009A0    00000B8C              DATA     BUFFER
     3747   01 009A1    12C0056C              LD,12    SAVL0+12          RESTORE REGISTERS
     3748   01 009A2    E800056F              B        *SAVL0+15         EXIT
     3749                            *
     3750         01 009A3           M49020   TEXTCS   ', PARAMETER '
     3751         01 009A7           M49030   TEXTCS   ' IS INVALID'
     3752                            *
     3753                            *        SUB-ROUTINE TO ACCUMULATE A MESSAGE IN BUFFER
     3754                            *CALLING SEQUENCE
     3755                            *        BAL,13   M35000
     3756                            *        DATA     ADDRESS OF MESSAGE SEGMENT
     3757                            *  MESSAGE ADDRESS GREATER THAN 15 ASSUMED TO BE TEXTC STATEMENT.  THE
     3758                            *COUNT IN BYTE 0 IS THE NUMBER OF CHARACTERS TRANSFERRED TO BUFFER.
     3759                            *  MESSAGE ADDRESS LESS THAN/EQUAL 15 ASSUMED TO CONTAIN STRING OF
     3760                            *EBCDIC CHARS WITH/WITHOUT LEADING BINARY ZEROS.  ODD ADDRESS GIVES
     3761                            *A SINGLE WORD, EVEN ADDRESS A DOUBLEWORD.  THE SIGNIFICANT CHARS
     3762                            *ARE THANSFERRED TO BUFFER.  LEADING BINARY AND EBCDIC ZEROS ARE NOT
     3763                            *TRANSFERRED.
     3764                            *  FOR EACH TRANSFER, THE MESSAGE COUNT IN BYTE 0 OF BUFFER IS
     3765                            *INCREMENTED BY THE NUMBER OF CHARS TRANSFERRED.  USER MUST RESET THE
     3766                            *MESSAGE BYTE COUNT BEFORE USING THE ROUTINE TO ACCUMULATE A MESSAGE.
     3767                            *
     3768   01 009AA    02200000 A   M35000   LCI      0                 SAVE REGISTERS 0-15
     3769   01 009AB    2B000550              STM,0    SAVE0
     3770   01 009AC    B2D0000D A            LW,13    *13               LOAD MESSAGE ADDRESS
     3771   01 009AD    F290000D A            LB,9     *13               LOAD BYTE COUNT, TEXTC MESSAGE
     3772   01 009AE    22600000 A            LI,6     0                 SET INDEX
     3773   01 009AF    72700B8C              LB,7     BUFFER            BUFFER COUNT TO INDEX
     3774   01 009B0    21D0000F A            CI,13    15                BRANCH, MESSAGE ADDRESS EXCEEDS 15
     3775   01 009B1    692009BF              BG       M35020
     3776   01 009B2    22900008 A            LI,9     8                 MESSAGE IN REGISTER, SET MAX COUNT
     3777   01 009B3    21D00001 A            CI,13    1
     3778   01 009B4    684009B6              BCR,4    %+2
     3779   01 009B5    22900004 A            LI,9     4                 SINGLE WORD, ADJUST MAX COUNT
     3780   01 009B6    20D00550              AI,13    SAVE0             SAVE ADDRESS TO REGISTER 13
     3781   01 009B7    F28C000D A   M35010   LB,8     *13,6             FIND FIRST SIGNIFICANT CHAR
     3782   01 009B8    683009BB              BEZ      %+3
     3783   01 009B9    218000F0 A            CI,8     X'F0'
     3784   01 009BA    693009C1              BNE      M35040            BRANCH, SIGNIFICANT CHAR
     3785   01 009BB    20600001 A            AI,6     1
     3786   01 009BC    649009B7              BDR,9    M35010
     3787   01 009BD    228000F0 A            LI,8     X'F0'             NO SIGNIFICANT CHAR, LOAD SINGLE
     3788   01 009BE    680009C1              B        M35040              EBCDIC ZERO
     3789                            *SIGNIFICANT CHARS TO BUFFER
     3790   01 009BF    20600001 A   M35020   AI,6     1                 INCREMENT INDEX
     3791   01 009C0    F28C000D A            LB,8     *13,6
     3792   01 009C1    20700001 A   M35040   AI,7     1                 INCREMENT BUFFER INDEX
     3793   01 009C2    758E0B8C              STB,8    BUFFER,7          TRANSFER NEXT BYTE
     3794   01 009C3    649009BF              BDR,9    M35020            LOOP UNTIL ALL BYTES TRANSFERRED
     3795   01 009C4    75700B8C              STB,7    BUFFER            UPDATE BUFFER COUNT
     3796   01 009C5    02200000 A            LCI      0
     3797   01 009C6    2A000550              LM,0     SAVE0
     3798   01 009C7    3310055D              MTW,1    SAVE13            INCREMENT LINK ADDRESS
     3799   01 009C8    E800055D              B        *SAVE13           EXIT
     3800                            *
     3801                            *
     3802                            *MESSAGE PRINT ROUTINE
     3803                            *
     3804                            *REG 15 HOLDS LOCATION THAT CONTAINS MESSAGE ADRS
     3805                            *EXIT IS TO NEXT LOCATION
     3806                            *FIRST BYTE AT MESSAGE ADRS IS BYTE COUNT
     3807                            *
     3808                            *ALL REGISTERS ARE PRESERVED
     3809                            *
     3810                            ***ROUTINE THAT DOES I/O CANNOT CHANGE REGISTERS 0 - 3**
     3811                            *
     3812                            *        ENTRY, TWO EXCLAMATION POINTS PRECEDE MESSAGE
     3813                            *        CHECK SENSE SWITCHES, OUTPUT ON MOD
     3814   01 009C9    35F0055A     M05000   STW,15   SAVE10            SAVE REG 15                     *C01
     3815   01 009CA    6AF00A31              BAL,15   QSENSE            SENSE SWITCHES                  *C01
     3816   01 009CB    681009CE              BCR,1    %+3               SWITCH 4 DOWN                   *C01
     3817   01 009CC    32F0055A              LW,15    SAVE10            RESTORE R15                     *C01
     3818   01 009CD    680009F6              B        M05020            EXIT                            *C01
     3819   01 009CE    32F0055A              LW,15    SAVE10            RESTORE REG 15                  *C01
     3820                            *        ENTRY, DO NOT CHECK SENSE SWITCHES, OUTPUT ON MOD
     3821   01 009CF    15C0055A     M05005   STD,12   SAVE10            SET CONTROL TO MOD
     3822   01 009D0    32C00220 A            LW,12    MLT32
     3823   01 009D1    680009D4              B        M05008
     3824                            *        ENTRY, TWO EXCLAMATION POINTS PRECEDE MESSAGE
     3825                            *        DO NOT CHECK SENSE SWITCHES, OUTPUT ON KSR
     3826   01 009D2    15C0055A     M05007   STD,12   SAVE10
     3827   01 009D3    32C00224 A            LW,12    MLT36
     3828   01 009D4    22D009FC     M05008   LI,13    M05050
     3829   01 009D5    680009DC              B        M05030
     3830                            *        ENTRY, NO EXCLAMATION POINTS PRECEDE MESSAGE
     3831                            *        DO NOT CHECK SENSE SWITCHES, OUTPUT ON MOD
     3832   01 009D6    15C0055A     M05010   STD,12   SAVE10            SET CONTROL TO MOD
     3833   01 009D7    32C00220 A            LW,12    MLT32
     3834   01 009D8    680009DB              B        M05017
     3835                            *        ENTRY, NO EXCLAMATION POINTS PRECEDE MESSAGE
     3836                            *        DO NOT CHECK SENSE SWITCHES, OUTPUT ON KSR
     3837   01 009D9    15C0055A     M05015   STD,12   SAVE10            SET CONTROL TO KSR
     3838   01 009DA    32C00224 A            LW,12    MLT36
     3839   01 009DB    22D009FE     M05017   LI,13    M05060
     3840   01 009DC    02200030 A   M05030   LCI      3
     3841   01 009DD    2BE0055C              STM,14   SAVE12            SAVE REGISTERS
     3842   01 009DE    32E00902              LW,14    LOGFLAG           HAS IT BEEN LOGGED ON           *C01
     3843   01 009DF    683009E1              BEZ      %+2               B: NO                           *C01
     3844   01 009E0    32C00224 A            LW,12    MLT36             SET CONTROL TO KSR              *C01
     3845   01 009E1    7200000C A            LB,0     12                00/01, KSR/LP, TO R12
     3846   01 009E2    2500007A A            SLS,0    -6
     3847   01 009E3    3000000D A            AW,0     13                CALCULATE ADRS IN LIST, START CMNDS
     3848   01 009E4    B2000000 A            LW,0     *0                FIRST COMMAND DW ADRS TO R0
     3849   01 009E5    B2E0000F A            LW,14    *15               MESSAGE ADRS TO R14
     3850   01 009E6    69100889              BLZ      M07200
     3851   01 009E7    31E0022E A            CW,14    MLT46             GIVE ERROR IF ILLEGAL ADDRESS
     3852   01 009E8    69200889              BG       M07200
     3853   01 009E9    F2F0000E A            LB,15    *14               BYTE COUNT, FIRST BYTE OF MESSAGE
     3854   01 009EA    25E00002 A            SLS,14   2                 CONVERT MSG ADRS TO BYTE ADRS
     3855   01 009EB    30E009FB              AW,14    M05070            FORM FINAL COMMAND
     3856   01 009EC    30F00BEB              AW,15    =X'0A000000'      SET FLAGS
     3857   01 009ED    15E00B5A              STD,14   LPMSG             COMMAND TO MEMORY
     3858   01 009EE    EAF00234 A   M05040   BAL,15   *MLT52            TO SUB-ROUTINE TO OUTPUT        *C01
     3859   01 009EF    8000000C A            GEN,1,31 1,12              1 IS OUTPUT, ADRS OF I/O ADRS
     3860   01 009F0    E8000210 A            B        *MLT16              ERROR EXIT                    *C01
     3861   01 009F1    CEF0000C A            TDV,15   *12               CK DEVICE STATUS BIT 6
     3862   01 009F2    4BF00BEC              AND,15   =X'2000000'       IF SET, LOOP TO OUTPUT SECOND SIO
     3863   01 009F3    693009EE              BNEZ     M05040
     3864   01 009F4    02200050 A            LCI      5
     3865   01 009F5    2AC0055A              LM,12    SAVE10
     3866   01 009F6    20F00001 A   M05020   AI,15    1                 INCREMENT ADRS IN R15
     3867   01 009F7    33000A00              MTW,0    BREAKFLG          IS BREAK FLAG SET               *C01
     3868   01 009F8    E830000F A            BEZ      *15               EXIT                            *C01
     3869   01 009F9    0F0001AA              XPSD,0   CL3XPSDL          EXCHANGE DOUBLE WORD            *C01
     3870   01 009FA    E800000F A   M05080   B        *15               EXIT                            *C01
     3871   01 009FB    01000001 A   M05070   DATA    X'01000001'        ADD ORDER 01, PLUS 1, TO BYTE COUNT
     3872                            *STARTING COMMANDS (TWO EXCLAMATIONS PRECEDE MESSAGE)
     3873   01 009FC    000005AB     M05050   DATA     DA(TWMSG)         CODE 00, TW
     3874   01 009FD    000005AC              DATA     DA(TWMSG+2)       CODE 01, LP
     3875                            *STARTING COMMANDS (NO EXCLAMATIONS PRECEDE MESSAGE)
     3876   01 009FE    000005AE     M05060   DATA     DA(ATWMSG)        CODE 00, TW
     3877   01 009FF    000005AD              DATA     DA(LPMSG)
     3878   01 00A00    00000000 A   BREAKFLG DATA     0                                                 *C01
     3879                            *
     3880                            *
     3881                            *ERROR REPORT ROUTINE
     3882                            *
     3883                            *INCREMENT PROG ERROR COUNTER
     3884                            *PRINT 'ERR NO. DDDD LOC. XXXXX'
     3885                            *REG 15 HOLDS XXXXX, DDDD IS CONTENTS OF XXXXX
     3886                            *
     3887                            *ALL REGISTERS ARE PRESERVED
     3888                            *
     3889   01 00A01    15F00552     M04000   STD,15   SAVE2             R15 TO 2 SAVE CELLS             *B03
     3890   01 00A02    46C00553              XW,12    SAVE2+1           R12 TO SAVE, LOC XXXXX TO R12
     3891   01 00A03    6AF00A5E              BAL,15   M03000            GET EBC FOR LAST 4 CHARS, IN R15
     3892   01 00A04    35F00BB9              STW,15   ERRMSG+5          STORE IN MESSAGE
     3893   01 00A05    30C00BED              AW,12    =C'C. 0'          MERGE FIRST DIGIT INTO MESSAGE WORD
     3894   01 00A06    35C00BB8              STW,12   ERRMSG+4          STORE IN MESSAGE
     3895   01 00A07    B2C00552              LW,12    *SAVE2            LOAD BINARY DDDD
     3896   01 00A08    6AF00A6C              BAL,15   M02000            GET EBC FOR 4 DEC DIGITS, IN R15
     3897   01 00A09    75F00BB7              STB,15   ERRMSG+3          STORE LAST CHAR IN MSG. BYTE POS 0
     3898   01 00A0A    25F00078 A            SLS,15   -8                SHIFT LAST CHAR OUT OF R15
     3899   01 00A0B    30F00BEA              AW,15    =X'40000000'      PRECEDE 1ST 3 CHARS WITH SPACE CODE
     3900   01 00A0C    35F00BB6              STW,15   ERRMSG+2          STORE IN MESSAGE
     3901   01 00A0D    6AF009C9              BAL,15   M05000            OUTPUT ERROR MESSAGE
     3902   01 00A0E    00000BB4              DATA     ERRMSG              ADRS OF MESSAGE
     3903   01 00A0F    6AF009C9              BAL,15   M05000            PRINT A BLANK                   *B02
     3904   01 00A10    00000BBA              DATA     BLANK                                             *B02
     3905   01 00A11    32C00553              LW,12    SAVE2+1           RESTORE R12
     3906   01 00A12    33100552     M04010   MTW,1    SAVE2             INCREMENT LINK ADRS
     3907   01 00A13    E8000552              B        *SAVE2            EXIT
     3908                            *
     3909                            *
     3910                            *
     3911                            *        THIS SENSE ROUTINE WILL RETURN ACCORDING TO SENSE SETTINGS *B02
     3912                            *        SS SETTINGS WILL BE STORED IN LEAST SIGNIFICANT PLACES- R15*B02
     3913                            *CALLING SEQUENCE
     3914                            *        BAL,15   M31000
     3915                            *        RETURN   SENSE SWITCH 3 OFF
     3916                            *        RETURN   SENSE SWITCH 1 ON
     3917                            *
     3918   01 00A14    35F007BD     M31000   STW,15   STSAVE        SAVE RETURN LOCATION                *B02
     3919   01 00A15    35F00A2C              STW,15   STSAVE1                                           *C01
     3920   01 00A16    6AF00A31              BAL,15   QSENSE            IS SWITCHES REAL               *C01
     3921   01 00A17    35F00A2B              STW,15   REG15             SAVE R15                       *C01
     3922   01 00A18    68200A24              BCR,2    MSENSE3           B: SWITCH 3 OFF                 *C01
     3923   01 00A19    69800A1B              BCS,8    %+2               B: SWITCH 1 ON                 *C01
     3924   01 00A1A    331007BD     MSENSE1  MTW,1    STSAVE            INCR RETURN ADDR                *C01
     3925   01 00A1B    F2F00A2C     MSENSE2  LB,15    *STSAVE1          FETCH INSTR. TYPE               *C01
     3926   01 00A1C    21F0002E A            CI,15    X'2E'             IS IT WAIT INSTR.               *C01
     3927   01 00A1D    69300A1F              BNE      %+2               B: NO                           *C01
     3928   01 00A1E    331007BD              MTW,1    STSAVE            INCR RETURN ADDR                *C01
     3929   01 00A1F    22F00000 A   MSENSE5  LI,15    0                                                 *C01
     3930   01 00A20    35F00A30              STW,15   SENSEFLG          RESET SENSE FLAG                *C01
     3931   01 00A21    32F00A2B              LW,15    REG15             RESTORE R15                     *C01
     3932   01 00A22    25F00204 A            SCS,15   4                 SHIFT SWITCHES POSITION TOLSB  *C01
     3933   01 00A23    E80007BD              B        *STSAVE                                           *B02
     3934   01 00A24    33100A30     MSENSE3  MTW,1    SENSEFLG          SET FLAG FROM SENSE ROUTINE     *C01
     3935   01 00A25    32F0020D A            LW,15    MLT13             ASR MODE FLAG                   *C01
     3936   01 00A26    69300A1F              BNEZ     MSENSE5           ASR MODE FLAG SET               *C01
     3937   01 00A27    EAF0022B A            BAL,15   *MLT43            WAIT                            *C01
     3938   01 00A28    00000A2D     MSENSE4  DATA     WAITMSG           'WAIT FROM SENSE ROUTINE        *C01
     3939   01 00A29    68000A1B              B        MSENSE2           EXIT+1, LOOP                    *C01
     3940   01 00A2A    68000A1A              B        MSENSE1           EXIT+2, CONTINUE                *C01
     3941   01 00A2B    00000000 A   REG15    DATA     0                                                 *C01
     3942   01 00A2C    00000000 A   STSAVE1  DATA     0                                                 *C01
     3943   01 00A2D    0AE2E2E6 A   WAITMSG  TEXTC    'SSW3 RESET'                                      *C01
            01 00A2E    F340D9C5 A
            01 00A2F    E2C5E340 A
     3944   01 00A30    00000000 A   SENSEFLG DATA     0                                                 *C01
     3945                            *                                                                   *C01
     3946                            * QUICK SENSE SWITCH ROUTINE                                        *C01
     3947                            *                                                                   *C01
     3948                            * THIS ROUTINE CHECKS TO SEE IF PSEUDO SENSE SWITCHES ARE IN USE   *C01
     3949                            * (BIT 0 PSENSE =1). IF YES LOADS PSEUDO SWITCHES (BITS 28-31 OF    *C01
     3950                            * PSENSE) INTO CC. IF NOT READS REAL SWITCHES.                      *C01
     3951                            *                                                                   *C01
     3952                            * CALLING SEQUENCE                                                  *C01
     3953                            *        BAL,15   *MLT42                                            *C01
     3954                            * RESULTS                                                           *C01
     3955                            *        PSENSE =   BIT 0  PSEUDO SENSE SWITCHES ARE IN USE         *C01
     3956                            *        CONDITION CODE CC1-4  = SSW1-4                             *C01
     3957                            *                                                                   *C01
     3958                            *                                                                   *C01
     3959   01 00A31    35F00A2B     QSENSE   STW,15   REG15             SAVE RETURN ADDR                *C01
     3960   01 00A32    32F00BCE              LW,15    PSENSE            IS SENSE SWITCH REAL            *C01
     3961   01 00A33    68100A37              BCR,1    QSENSE1           B: REAL                         *C01
     3962   01 00A34    25F0021C A            SCS,15   28                SHIFT TO MSB                 *C01
     3963   01 00A35    7020000F A            LC       15                LOAD CONDITION CODES            *E00
     3964   01 00A36    E8000A2B              B        *REG15            EXIT                            *C01
     3965   01 00A37    6C000000 A   QSENSE1  RD,0     0                 READ REAL SWITCHES              *C01
     3966   01 00A38    7400000F A            STCF     15                STORE SENSE SWITCH IN R15       *C01
     3967   01 00A39    E8000A2B              B        *REG15            EXIT                            *C01
     3968                            *
     3969                            *                                                                   *C01
     3970                            *WAIT ROUTINE                                                       *C01
     3971                            * THIS REPLACES ALL WAIT INSTRUCTIONS AND                           *C01
     3972                            * PRINTS A MESSAGE(DATA STAMENT FOLLOWING CALL).                    *C01
     3973                            *                                                                   *C01
     3974                            * CALLING SEQUENCE                                                  *C01
     3975                            *        BAL,15   *MLT43                                            *C01
     3976                            *        DATA     ADDRESS OF MESSAGE                                *C01
     3977                            *                                                                   *C01
     3978   01 00A3A    35F00A54     WAIT     STW,15   WAITRTN           SAVE RETURN ADDR                *C01
     3979   01 00A3B    35C00A55              STW,12   WREG12            SAVE REG 12                     *C01
     3980   01 00A3C    35400A56              STW,4    WREG4             SAVE REG 4                      *C01
     3981   01 00A3D    B2F0000F A            LW,15    *15                                               *C01
     3982   01 00A3E    35F00A4B              STW,15   WAIT3             PICK UP MESSAGE ADDRESS         *C01
     3983   01 00A3F    32C00A54              LW,12    WAITRTN           FETCH WAIT LOC.                 *C01
     3984   01 00A40    33F0000C A            MTW,-1   12                                                *C01
     3985   01 00A41    EAF00218 A            BAL,15   *MLT24            CONVERT WAIT LOC. TO HEX        *C01
     3986   01 00A42    35F00A5A              STW,15   WAITMSG1+3        STORE IN MESSAGE                *C01
     3987   01 00A43    EAF00218 A            BAL,15   *MLT24                                            *C01
     3988   01 00A44    22400003 A            LI,4     3                                                 *C01
     3989   01 00A45    75F80A59              STB,15   WAITMSG1+2,4                                      *C01
     3990   01 00A46    EAF00223 A            BAL,15   *MLT35            PRINT WAIT MESSAGE              *C01
     3991   01 00A47    00000A57     WAIT1    DATA     WAITMSG1                                          *C01
     3992   01 00A48    EAF00223 A            BAL,15   *MLT35            'CLEAR WAIT'                    *C01
     3993   01 00A49    00000A5B              DATA     WAITMGA                                           *C01
     3994   01 00A4A    EAF00223 A            BAL,15   *MLT35                                            *C01
     3995   01 00A4B    00000000 A   WAIT3    DATA     0                 'WAIT LOC XXXXX'                *C01
     3996   01 00A4C    32C00A55              LW,12    WREG12            RESTORE REG 12                  *C01
     3997   01 00A4D    32400A56              LW,4     WREG4             RESTOER REG 4                   *C01
     3998   01 00A4E    32F00A54              LW,15    WAITRTN           RETURN ADDR                     *C01
     3999   01 00A4F    3310000F A            MTW,1    15                EXIT+1                          *C01
     4000   01 00A50    2E000A50              WAIT     %                 WAIT                            *C01
     4001   01 00A51    E800000F A            B        *15               EXIT                            *C01
     4002   01 00A52    3310000F A            MTW,1    15                EXIT+1                          *C01
     4003   01 00A53    E800000F A            B        *15               EXIT                            *C01
     4004   01 00A54    00000000 A   WAITRTN  DATA     0                                                 *C01
     4005   01 00A55    00000000 A   WREG12   DATA     0                                                 *C01
     4006   01 00A56    00000000 A   WREG4    DATA     0                                                 *C01
     4007   01 00A57    0FE6C1C9 A   WAITMSG1 TEXTC    'WAIT LOC. XXXXX'                                 *C01
            01 00A58    E340D3D6 A
            01 00A59    C34B40E7 A
            01 00A5A    E7E7E7E7 A
     4008   01 00A5B    0AC3D3C5 A   WAITMGA  TEXTC    'CLEAR WAIT'                                      *C01
            01 00A5C    C1D940E6 A
            01 00A5D    C1C9E340 A
     4009                            *
     4010                            *
     4011                            *FORMATTING ROUTINES
     4012                            *
     4013                            *HEX TO EBCDIC CONVERSION
     4014                            *
     4015                            *ARGUMENT IN R12, SHIFTED RIGHT 16 BITS WHEN EXIT
     4016                            *REPLACE EXIT ADRS IN R15 WITH RESULT
     4017                            *
     4018                            *ALL REGISTERS ARE PRESERVED
     4019                            *
     4020   01 00A5E    35F0054E     M03000   STW,15   SAVE              SAVE EXIT ADRS
     4021   01 00A5F    35D0054F              STW,13   SAVE+1            SAVE R13
     4022   01 00A60    35400550              STW,4    SAVE+2            SAVE INDEX REG                  *B04
     4023   01 00A61    22400003 A            LI,4     3                 SET INDEX TO STORE BYTE 3 THRU 0*B04
     4024   01 00A62    22D000F0 A   M03010   LI,13    X'F0'             HI-ORDER EBC FOR DIGITS 0 THRU 9
     4025   01 00A63    25C0017C A            SLD,12   -4                SHIFT IN LO-ORDER 4 BITS
     4026   01 00A64    25D00204 A            SCS,13   4                 SHIFT INTO BYTE POSITION 3
     4027   01 00A65    71D00BEE              CB,13    =X'F9000000'      CK FOR 0 THRU 9
     4028   01 00A66    68200A68              BLE      %+2
     4029   01 00A67    20DFFFC7 A            AI,13    -X'39'            ADJUST FOR A THRU F
     4030   01 00A68    75D8000F A            STB,13   15,4              STORE IN RESULT                 *B04
     4031   01 00A69    204FFFFF A            AI,4     -1                DECREMENT STORE POSITION        *B04
     4032   01 00A6A    68100A62              BGEZ     M03010            LOOP UNTIL 4 DIGITS STORED
     4033   01 00A6B    68000A7A              B        M02020            BRANCH TO RESTORE REGISTERS
     4034                            *
     4035                            *
     4036                            *BINARY TO EBCDIC DECIMAL CONVERSION
     4037                            *
     4038                            *ENTER WITH ARGUMENT IN R12, EXIT WITH ARGUMENT/10000 IN R12
     4039                            *REPLACE EXIT IN R15 WITH RESULT
     4040                            *ARGUMENT ASSUMED TO BE POSITIVE
     4041                            *
     4042                            *ALL REGISTERS ARE PRESERVED
     4043                            *
     4044   01 00A6C    35F0054E     M02000   STW,15   SAVE              SAVE EXIT ADRS
     4045   01 00A6D    35D0054F              STW,13   SAVE+1            SAVE R13
     4046   01 00A6E    35400550              STW,4    SAVE+2            SAVE INDEX REG.                 *B04
     4047   01 00A6F    22400003 A            LI,4     3                 SET INDEX TO STORE BYTE 3 THRU 0*B04
     4048   01 00A70    22D00000 A   M02010   LI,13    0                 ARGUMENT IN R12, ZERO IN R13
     4049   01 00A71    21C0000A A            CI,12    10                COMPARE ARGUMENT TO 10
     4050   01 00A72    69100A75              BL       %+3               ARGUMENT LESS, BRANCH
     4051   01 00A73    46C0000D A            XW,12    13                DIVIDE BY 10
     4052   01 00A74    36C00BEF              DW,12    L(10)             RMDR IN 12, ARGUMENT IN R13
     4053   01 00A75    20C000F0 A            AI,12    X'F0'             MERGE HI-ORDER EBCDIC BITS WITH RMDR
     4054   01 00A76    75C8000F A            STB,12   15,4              STORE IN RESULT                 *B04
     4055   01 00A77    32C0000D A            LW,12    13                ARGUMENT TO R12
     4056   01 00A78    204FFFFF A            AI,4     -1                DECREMENT STORE POSITION        *B04
     4057   01 00A79    68100A70              BGEZ     M02010            LOOP UNTIL 4 DIGITS PRCESSED
     4058   01 00A7A    32D0054F     M02020   LW,13    SAVE+1            RESTORE R13
     4059   01 00A7B    32400550              LW,4     SAVE+2            RESTORE INDEX                   *B04
     4060   01 00A7C    E800054E              B        *SAVE             EXIT
     4061                            *
     4062                            *
     4063                            *BINARY TO EBCDIC CONVERSION ROUTINE
     4064                            *
     4065                            *CONVERT LO-ORDER 4 BITS R12, LEAVE R12 SHIFTED 4 RIGHT
     4066                            *REPLACE EXIT ADRS IN R15 WITH RESULT
     4067                            *
     4068                            *ALL REGISTERS ARE PRESERVED
     4069                            *
     4070   01 00A7D    35D0054F     M01000   STW,13   SAVE+1            SAVE REG 13
     4071   01 00A7E    35F0054E              STW,15   SAVE              SAVE EXIT
     4072   01 00A7F    22FFFFFC A            LI,15    -4                INITIALIZE COUNT
     4073   01 00A80    32D00B4A              LW,13    EBCZEROS          INITIALIZE RESULT TO EBCDIC ZEROS
     4074   01 00A81    25C0017F A            SLD,12   -1                SHIFT BINARY BIT INTO RESULT
     4075   01 00A82    25D00279 A            SCS,13   -7                SHIFT INTO CHAR POSITION
     4076   01 00A83    65F00A81              BIR,15   %-2               LOOP FOR 4 BITS
     4077   01 00A84    46D0054F              XW,13    SAVE+1            RESTORE R13, RESULT TO SAVE
     4078   01 00A85    32F0054F              LW,15    SAVE+1            RESULT TO R15
     4079   01 00A86    E800054E              B        *SAVE             EXIT
     4080                            *
     4081                            *
     4082                            *        BCD TO BINARY CONVERSION ROUTINE
     4083                            *CALLING SEQUENCE
     4084                            *        BAL,15   M32000
     4085                            *REGISTER 12 HOLDS ARGUMENT
     4086                            *EXIT WITH RESULT IN REG 15
     4087                            *
     4088                            *ALL REGISTERS ARE PRESERVED
     4089                            *
     4090   01 00A87    02200040 A   M32000   LCI      4                 SAVE REGISTERS 12-15
     4091   01 00A88    2BC0054E              STM,12   SAVE
     4092   01 00A89    22F00000 A            LI,15    0                 INITIALIZE RESULT TO ZERO
     4093   01 00A8A    22EFFFF8 A            LI,14    -8                SET COUNTER
     4094   01 00A8B    22D00000 A   M32010   LI,13    0
     4095   01 00A8C    25C00304 A            SCD,12   4                 SHIFT OUT HI/ORDER DIGIT
     4096   01 00A8D    23F0000A A            MI,15    10                RESULT X 10 +DIGIT
     4097   01 00A8E    30F0000D A            AW,15    13
     4098   01 00A8F    65E00A8B              BIR,14   M32010            LOOP UNTIL 8 DIBITS PROCESSED
     4099   01 00A90    02200030 A            LCI      3                 RESTORE REGISTERS
     4100   01 00A91    2AC0054E              LM,12    SAVE
     4101   01 00A92    E8000551              B        *SAVE+3           EXIT
     4102                            *
     4103                            *
     4104                            *        ROUTINE TO DO INPUT AND OUTPUT
     4105                            *CALLING SEQUENCE
     4106                            *        BAL,15   M22000
     4107                            *        GEN,1,31 0/1 (INPUT/OUTPUT), ADRS OF I/O ADRS
     4108                            *        RETURN   ERROR
     4109                            *
     4110                            *REGISTER 0 MUST HOLD COMMAND DOUBLEWORD ADDRESS
     4111                            *
     4112   01 00A93    02200080 A   M22000   LCI      8                 REGISTERS 8-15 TO STORAGE
     4113   01 00A94    2B800AD0              STM,8    SPD
     4114   01 00A95    B280000F A            LW,8     *15               INPUT/OUTPUT DESIGNATION TO R8
     4115   01 00A96    22E01FFF A            LI,14    X'1FFF'           DEVICE ADDRESS TO R14
     4116   01 00A97    CBE00008 A            AND,14   *8
     4117   01 00A98    6A900AF2              BAL,9    M23000            CK FOR OPERATIONAL STATUS
     4118                            *STATUS IN R10, R11
     4119   01 00A99    32D0000B A            LW,13    11                STATUS TO R13
     4120   01 00A9A    25D00003 A            SLS,13   3                 CHECK BIT 3, AUTOMATIC
     4121   01 00A9B    21D00000 A            CI,13    0
     4122   01 00A9C    69100A9F              BL       %+3               BRANCH, BIT 3 SET, AUTOMATIC
     4123   01 00A9D    31E00224 A            CW,14    MLT36             ERROR BRANCH IF NOT KSR/ASR
     4124   01 00A9E    69300B0B              BNE      M23037              RETURNS TO M22010+1
     4125   01 00A9F    CCA0000E A            SIO,10   *14               ISSUE SIO, ERROR BRANCH IF REJECTED
     4126   01 00AA0    69C00B0A              BCS,12   M23036              WITH RETURN TO M22010+1
     4127   01 00AA1    6A900AF2              BAL,9    M23000            CK STATUS UNTIL NON-BUSY
     4128                            *STATUS IN R10, R11
     4129   01 00AA2    32D0000B A            LW,13    11
     4130   01 00AA3    4BD00BF0              AND,13   =X'00FA0000'      GET ERROR STATUS BITS
     4131   01 00AA4    68300ACA              BEZ      M22050            NONE SET, BRANCH TO EXIT
     4132   01 00AA5    25D00209 A            SCS,13   9
     4133   01 00AA6    21D00001 A            CI,13    1
     4134   01 00AA7    68300ACA              BE       M22050            INCORRECT LENGTH ONLY BIT, EXIT
     4135   01 00AA8    25D00001 A            SLS,13   1
     4136   01 00AA9    69800AB5              BOD      M22026            BIT 9, TRANSMISSION ERR, BRANCH
     4137   01 00AAA    69400AB4              BOV      M22025            BIT 10, TRANS MEMORY, BRANCH
     4138   01 00AAB    25D00002 A            SLS,13   2
     4139   01 00AAC    69800AB3              BOD      M22024            BIT 11, MEMORY ADRS, BRANCH
     4140   01 00AAD    69400AB2              BOV      M22023            BIT 12, IOP MEMORY, BRANCH
     4141   01 00AAE    21D00008 A            CI,13    X'8'
     4142   01 00AAF    69400AB1              BCS,4    M22022            INCORRECT LENGTH, ERROR
     4143                            *TYPE ERRORS
     4144   01 00AB0    6AC00AB6     M22021   BAL,12   M22030            ERROR 2201, IOP HALT            *B02
     4145   01 00AB1    6AC00AB6     M22022   BAL,12   M22030            ERROR 2202, INCORRECT LENGTH
     4146   01 00AB2    6AC00AB6     M22023   BAL,12   M22030            ERROR 2203, IOP MEMORY
     4147   01 00AB3    6AC00AB6     M22024   BAL,12   M22030            ERROR 2204, MEMORY ADDRESS
     4148   01 00AB4    6AC00AB6     M22025   BAL,12   M22030            ERROR 2205, TRANS MEMORY
     4149   01 00AB5    6AC00AB6     M22026   BAL,12   M22030            ERROR 2206, TRANS DATA
     4150   01 00AB6    31E00224 A   M22030   CW,14    MLT36             IF DEVICE IS OUTPUT DEVICE, AND
     4151   01 00AB7    69300ABA              BNE      %+3                 KSR/ASR, DO NOT TYPE ERROR
     4152   01 00AB8    21800000 A            CI,8     0
     4153   01 00AB9    69100AC6              BL       M22040
     4154   01 00ABA    CF00000E A            HIO,0    *14               RELEASE LOW SPEED LINE PRINTER  *B02
     4155   01 00ABB    38C00BF1              SW,12    =M22021           CALCULATE ERROR CODE              *B
     4156   01 00ABC    30C00BF2              AW,12    =C'2200'          CALCULATE ERROR CODE
     4157   01 00ABD    6AD00B14              BAL,13   M23060            TYPE 3-LINE ERROR MESSAGE
     4158   01 00ABE    32F00BF3              LW,15    =C'D 1 '          TYPE 'COMMAND WORD 1 XXXXXXXX'
     4159   01 00ABF    25A00001 A            SLS,10   1
     4160   01 00AC0    92C0000A A            LD,12    *10
     4161   01 00AC1    6AA00AE0              BAL,10   M22060
     4162   01 00AC2    32F00BF4              LW,15    =C'D 2 '          TYPE 'COMMAND WORD 2 XXXXXXXX'
     4163   01 00AC3    32C0000D A            LW,12    13
     4164   01 00AC4    6AA00AE0              BAL,10   M22060
     4165   01 00AC5    6AD00B3B              BAL,13   M23090            RESTORE STORAGE AREA
     4166                            *ERROR EXIT
     4167   01 00AC6    02200080 A   M22040   LCI      8
     4168   01 00AC7    2A800AD0              LM,8     SPD
     4169   01 00AC8    20F00001 A            AI,15    1
     4170   01 00AC9    E800000F A            B        *15
     4171                            *NORMAL EXIT
     4172   01 00ACA    35B00ACF     M22050   STW,11   STATUS            SAVE REMAINING BYTE COUNT
     4173   01 00ACB    02200080 A            LCI      8
     4174   01 00ACC    2A800AD0              LM,8     SPD
     4175   01 00ACD    20F00002 A            AI,15    2
     4176   01 00ACE    E800000F A            B        *15
     4177   01 00ACF    00000000 A   STATUS   DATA     0                                                 *C01
     4178   01 00AD0                 SPD      RES      16
     4179                            *SUB-ROUTINE TO TYPE 'COMMAND WORD N XXXXXXXX'
     4180                            *REGISTER 10 HAS RETURN ADDRESS
     4181                            *REGISTER 12 HAS XXXXXXXX
     4182   01 00AE0    35F00AEF     M22060   STW,15   M22065+3
     4183   01 00AE1    6AF00A5E              BAL,15   M03000            GET HEX EBCDIC AND STORE IN
     4184   01 00AE2    35F00AF1              STW,15   M22065+5            MESSAGE
     4185   01 00AE3    6AF00A5E              BAL,15   M03000
     4186   01 00AE4    35F00AF0              STW,15   M22065+4
     4187   01 00AE5    35000B3A              STW,0    M23070            SAVE R0
     4188   01 00AE6    220005B0              LI,0     DA(M22070)        COMMAND DA TO R0
     4189   01 00AE7    EAF00235 A            BAL,15   *MLT53            TYPE ERROR                      *C01
     4190   01 00AE8    80000224 A            GEN,1,31 1,MLT36
     4191   01 00AE9    68000AEA              B        %+1                 ERROR EXIT
     4192   01 00AEA    32000B3A              LW,0     M23070            RESTORE R0
     4193   01 00AEB    E800000A A            B        *10               EXIT
     4194         01 00AEC           M22065   TEXTS    '
COMMAND WORD N XXXXXXXX'
     4195                            *
     4196                            *
     4197                            *        ROUTINE TO CHECK STATUS
     4198                            *USED BY ROUTINE THAT DOES INPUT AND OUTPUT
     4199                            *
     4200                            *REGISTER 9 MUST CONTAIN EXIT ADDRESS
     4201                            *REGISTER 14 MUST CONTAIN I/O ADDRESS
     4202                            *STATUS GOES TO REGISTERS 10, 11
     4203                            *REGISTERS 12 AND 15 ARE NOT PRESERVED
     4204                            *
     4205   01 00AF2    22F80001 A   M23000   LI,15    -X'7FFFF'         INITIALIZE COUNT, MAX WAIT
     4206   01 00AF3    CDA0000E A   M23010   TIO,10   *14
     4207   01 00AF4    E8C00009 A            BCR,12   *9                EXIT, I/O ACCEPTABLE
     4208                            *I/O NOT ACCEPTABLE
     4209   01 00AF5    68400AF3              BCR,4    M23010            BUSY SELECTOR IOP, LOOP
     4210   01 00AF6    69800B06              BCS,8    M23032            I/O ADRS NOT RECOGNIZED, ERR B
     4211   01 00AF7    32D0000B A            LW,13    11                STATUS TO R13
     4212   01 00AF8    25D00001 A            SLS,13   1                 SHIFT OUT BIT 0
     4213   01 00AF9    68800AFD              BEV      M23020            BRANCH, NOT SET
     4214                            *INTERRUPT PENDING
     4215   01 00AFA    CFA0000E A            HIO,10   *14               ISSUE HIO
     4216   01 00AFB    65F00AF4              BIR,15   M23010+1          INCREMENT LOOP COUNT AND LOOP
     4217   01 00AFC    68000B07              B        M23033            ERROR IF LOOP COUNT ZERO
     4218                            *CHECK DEVICE
     4219   01 00AFD    69400AF3     M23020   BOV      M23010            STATUS BIT 1, DEVICE BUSY, LOOP
     4220   01 00AFE    25D00002 A            SLS,13   2                 SHIFT OUT BITS 1, 2
     4221   01 00AFF    69800B08              BOD      M23034            BIT 2 SET, DEVICE NOT OPT'L, ERR B
     4222                            *CHECK CONTROLLER
     4223   01 00B00    25D00002 A            SLS,13   2                 SHIFT OUT BITS 3, 4
     4224   01 00B01    25D00001 A            SLS,13   1                 SHIFT OUT BIT 5
     4225   01 00B02    69800AF3              BOD      M23010            CONTROLLER BUSY, LOOP
     4226   01 00B03    69400B09              BOV      M23035            CONTROLLER NOT OPT'L, ERR B
     4227   01 00B04    65F00AF3              BIR,15   M23010            INCREMENT LOOP COUNT, LOOP
     4228                            *ERROR
     4229   01 00B05    6AC00B0C     M23031   BAL,12   M23040            2301, MAX WAIT
     4230   01 00B06    6AC00B0C     M23032   BAL,12   M23040            2302, I/O ADRS NOT RECOGNIZED
     4231   01 00B07    6AC00B0C     M23033   BAL,12   M23040            2303, INTERRUPT SET AFTER MAX WAIT
     4232   01 00B08    6AC00B0C     M23034   BAL,12   M23040            2304, DEVICE NOT OPERATIONAL
     4233   01 00B09    6AC00B0C     M23035   BAL,12   M23040            2305, CONTROLLER NOT OPT'L
     4234   01 00B0A    6AC00B0C     M23036   BAL,12   M23040            2306, REJECTED
     4235   01 00B0B    6AC00B0C     M23037   BAL,12   M23040            2307, MANUAL
     4236   01 00B0C    31E00224 A   M23040   CW,14    MLT36             SKIP ERROR TYPING IF DEVICE TW
     4237   01 00B0D    68300B12              BE       M23045
     4238   01 00B0E    38C00BF5             SW,12     =M23031           CALCULATE ERROR CODE              *B
     4239   01 00B0F    30C00BF6              AW,12    =C'2300'
     4240   01 00B10    6AD00B14              BAL,13   M23060            IF DEVICE NOT TW, TYPE ERROR
     4241   01 00B11    6AD00B3B              BAL,13   M23090            RESTORE STORAGE AREA AFTER TYPING
     4242   01 00B12    6AF0021E A   M23045   BAL,15   MLT30             B TO WAIT COMMAND IN MLT
     4243   01 00B13    68000AF2              B        M23000            LOOP TO EXECUTE STATUS CHECK AGAIN
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   29
A    4245                            *SUB-ROUTINE TO TYPE ERROR AND SAVE STORAGE AREA
     4246                            *        MONITOR ERR XXXX
     4247                            *        I/O ADDRESS XXX
     4248                            *        STATUS XXXXXXXX
     4249                            *REGISTER 11 MUST HAVE STATUS
     4250                            *REGISTER 12 MUST HOLD ERROR CODE
     4251                            *REGISTER 13 MUST HOLD RETURN ADDRESS
     4252                            *REGISTER 14 MUST HOLD I/O ADDRESS
     4253                            *REGISTERS 12 AND 15 ARE NOT PRESERVED
     4254                            *
     4255   01 00B14    35C00B31     M23060   STW,12   M23065+5          ERROR CODE TO MESSAGE
     4256   01 00B15    32C0000E A            LW,12    14                CONVERT I/O ADDRESS TO HEX EBCDIC
     4257   01 00B16    EAF00218 A            BAL,15   *MLT24              AND STORE IN MESSAGE
     4258   01 00B17    35F00B35              STW,15   M23065+9
     4259   01 00B18    22F00040 A            LI,15    C' '
     4260   01 00B19    75F00B35              STB,15   M23065+9
     4261   01 00B1A    32C0000B A            LW,12    11                CONVERT STATUS TO HEX EBCDIC
     4262   01 00B1B    EAF00218 A            BAL,15   *MLT24              AND STORE IN MESSAGE
     4263   01 00B1C    35F00B39              STW,15   M23065+13
     4264   01 00B1D    EAF00218 A            BAL,15   *MLT24
     4265   01 00B1E    35F00B38              STW,15   M23065+12
     4266   01 00B1F    35700B3A              STW,7    M23070            MOVE STORAGE AREA
     4267   01 00B20    22700008 A            LI,7     8
     4268   01 00B21    32FE0ACF              LW,15    SPD-1,7
     4269   01 00B22    35FE0AD7              STW,15   SPD+7,7
     4270   01 00B23    64700B21              BDR,7    %-2
     4271   01 00B24    32700B3A              LW,7     M23070
     4272   01 00B25    35000B3A              STW,0    M23070
     4273   01 00B26    220005B1              LI,0     DA(M23080)
     4274   01 00B27    EAF00235 A            BAL,15   *MLT53            OUTPUT                          *C01
     4275   01 00B28    80000224 A            GEN,1,31 1,MLT36
     4276   01 00B29    68000B2A              B        %+1                 ERROR EXIT
     4277   01 00B2A    32000B3A              LW,0     M23070
     4278   01 00B2B    E800000D A            B        *13               EXIT
     4279         01 00B2C           M23065   TEXTS    ' 
!!MONITOR ERR NO. DDDD
I/O ADDRESS'
     4280         01 00B35                    TEXTS    ' XXX
STATUS XXXXXXXX'
     4281   01 00B3A                 M23070   RES      1
     4282                            *
     4283                            *SUB-ROUTINE TO RESTORE STORAGE AREA
     4284   01 00B3B    35700B3A     M23090   STW,7    M23070
     4285   01 00B3C    22700008 A            LI,7     8
     4286   01 00B3D    32FE0AD7              LW,15    SPD+7,7
     4287   01 00B3E    35FE0ACF              STW,15   SPD-1,7
     4288   01 00B3F    64700B3D              BDR,7    %-2
     4289   01 00B40    32700B3A              LW,7     M23070
     4290   01 00B41    E800000D A            B        *13
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   30
A    4292                            *        INTERNAL SWITCHES
     4293                            *
     4294   01 00B42    00000000 A   LOADED   DATA     0                 0/1, USER PROG IS/IS NOT LOADED
     4295   01 00B43                 POINTER  RES      1                 POINTER TO SYSTEM CONTEXT TABLE
     4296   01 00B44                 EXITIND  RES      1                 0/1, PARAM PROCESSOR EXITED ON
     4297                            *                                     COMMA/TERMINATING CHAR
     4298   01 00B45                 DICTWORD RES      1                 DICTIONARY CONTROL (WITH DIREC ADRS)
     4299   01 00B46    00000000 A   LOADIM   DATA     0                 -1 = LOAD IMMEDIATELY           *B02
     4300                            *
     4301                            *        CONSTANTS
     4302                            *
     4303         01 00B47           DIRLOAD  TEXTS    'LOAD'
     4304         01 00B48           NLCODE   TEXTS    '
   '
     4305         01 00B49           EXCLA    TEXTS    '!!  '
     4306         01 00B4A           EBCZEROS TEXTS    '0000'
     4307   01 00B4B    0F000B4C     LRAXPSD  XPSD,0   M90010            MACHINE TYPE TRAP               *B04
     4308                            *
     4309                            *        DOUBLEWORD CONSTANTS
     4310                                     BOUND    8
     4311   01 00B4C                 M90010   RES      2                                                 *B04
     4312   01 00B4E    00000572              DATA     M90000                                            *B04
     4313   01 00B4F    00000000 A            DATA     0                                                 *B04
     4314   01 00B50    0F000B52     LBRXPSD  XPSD,0   M90020                                            *D01
     4315                                     BOUND    8                                                 *D01
     4316   01 00B52                 M90020   RES      2                                                 *D01
     4317   01 00B54    0000056D              DATA     M900005                                           *D01
     4318   01 00B55    00000000 A            DATA     0                                                 *D01
     4319                            *
     4320                            *COMMAND LIST FOR MESSAGE OUTPUT ROUTINE
     4321                            *LIST USED WHEN TWO EXCLAMATION POINTS PRECEDE MESSAGE
     4322   01 00B56    05002D20     TWMSG    GEN,8,24 X'05',BA(NLCODE)  ORDER CODE 5 (TW), OUTPUT NL CODE
     4323   01 00B57    88000001 A            GEN,8,24 X'88',1             DATA CHAIN, HALT, BYTE COUNT 1
     4324   01 00B58    01002D24              GEN,8,24 X'01',BA(EXCLA)   TW/LP, OUTPUT 2 EXCLAMATIONS
     4325   01 00B59    8A000002 A            GEN,8,24 X'8A',2             DATA CHAIN, HLT, SIL, COUNT 2
     4326   01 00B5A                 LPMSG    RES      2
     4327                            *ALTERNATE LIST, NO EXCLAMATION POINTS PRECEDE MESSAGE
     4328   01 00B5C    05002D20     ATWMSG   GEN,8,24 X'05',BA(NLCODE)  ORDER 5, OUTPUT NL CODE
     4329   01 00B5D    88000001 A            GEN,8,24 X'88',1             DATA CHAIN, HALT, BYTE COUNT 1
     4330   01 00B5E    080005AD              GEN,8,24 X'08',DA(LPMSG)   TRANSFER IN CHANNEL
     4331   01 00B5F    00000000 A            DATA     0
     4332                            *
     4333                            *COMMANDS FOR INPUT/OUTPUT ROUTINE
     4334   01 00B60    05002BB0     M22070   GEN,8,24 X'05',BA(M22065)
     4335   01 00B61    08000018 A            GEN,8,24 X'08',24
     4336   01 00B62    05002CB1     M23080   GEN,8,24 X'05',BA(M23065)+1
     4337   01 00B63    08000037 A            GEN,8,24 X'08',55
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   31
A    4339                            *LIMITS USED IN PARAMETER PROCESSOR
     4340         01 00B64           LIMITS   EQU      %
     4341   01 00B64    000000E2 A   ANLIMITS DATA     'S'
     4342   01 00B65    000000E9 A            DATA     'Z'
     4343   01 00B66    000000D1 A            DATA     'J'
     4344   01 00B67    000000D9 A            DATA     'R'
     4345   01 00B68    000000C7 A            DATA     'G'
     4346   01 00B69    000000C9 A            DATA     'I'
     4347   01 00B6A    000000C1 A   HXLIMITS DATA     'A'
     4348   01 00B6B    000000C6 A            DATA     'F'
     4349   01 00B6C    000000F0 A   DECLIMIT DATA     '0'
     4350   01 00B6D    000000F9 A            DATA     '9'
     4351         01 00B6E           ENDLIMIT EQU      %
     4352         0000000A           NLIMITS  EQU      ENDLIMIT-LIMITS
     4353                            *
     4354                            *DOUBLEWORD STORAGE
     4355                            *
     4356         01 00550           SAVE0    EQU      SAVE+2
     4357         01 00551           SAVE1    EQU      SAVE+3
     4358         01 00552           SAVE2    EQU      SAVE+4
     4359         01 00553           SAVE3    EQU      SAVE+5
     4360         01 00554           SAVE4    EQU      SAVE+6
     4361         01 00555           SAVE5    EQU      SAVE+7
     4362         01 00556           SAVE6    EQU      SAVE+8
     4363         01 00557           SAVE7    EQU      SAVE+9
     4364         01 00558           SAVE8    EQU      SAVE+10
     4365         01 00559           SAVE9    EQU      SAVE+11
     4366         01 0055A           SAVE10   EQU      SAVE+12
     4367         01 0055B           SAVE11   EQU      SAVE+13
     4368         01 0055C           SAVE12   EQU      SAVE+14
     4369         01 0055D           SAVE13   EQU      SAVE+15
     4370         01 0055E           SAVE14   EQU      SAVE+16
     4371         01 0055F           SAVE15   EQU      SAVE+17
     4372   01 00B6E                 BUFFER01 RES      70
     4373         01 00B8C           BUFFER   EQU      BUFFER01+30

     4375                            *MESSAGES
     4376                            *
     4377         01 00BB4           ERRMSG   TEXTCS   'ERR NO. DDDD LOC.  XXXX'
     4378         01 00BBA           BLANK    TEXTCS   ' '                                               *B02
     4379         01 00BBB           MONERR   TEXTCS   'MONITOR ERR NO. DDDD'
     4380         01 00BC1           M13003   TEXTCS   'ENTER SYST DIRECTIVE'                            *B03
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   32
A    4382   01 00BC7    00000000 A   COCLOG   DATA     0                 NUMBER OF LAST LINE LOGGED      *E01
     4383   01 00BC8    31415926 A   REMCODE  DATA     X'31415926'       REGISTER 9                      *C01
     4384   01 00BC9    00000001 A   TTYDEV   DATA     1                 DEVICE ADDRESS OF ASK/KSR       *C01
     4385                            *                                                                   *C01
     4386   01 00BCA    0000007F A   COCDEV   DATA     X'7F'             DEVICE ADDRESS OF COC           *D02
     4387                            *                                                                   *C01
     4388   01 00BCB    00000000 A   DIODEV   DATA     0                 ADDRESS OF DIO                  *C01
     4389                            *                                                                   *C01
     4390   01 00BCC    00000000 A   COCSTATE DATA     0                 BITS 0-7 = COC STATE            *C01
     4391                            *                                     =        0; NO COC ADDRESS    *C01
     4392                            *                                     =  1 OR 3 ; NO ONE DIALED IN  *C01
     4393                            *                                     = 41 OR 43; USER LOGGED-ON    *C01
     4394                            *                                     = 81 OR 83; REMOTE CONTROLLER *C01
     4395                            *                                                                   *C01
     4396   01 00BCD    00000000 A   COCLINE  DATA     0                 NUMBER OF CONTROLLING LINE      *E03
     4397   01 00BCE    00000000 A   PSENSE   DATA     0                 PSUEDO SENSE SWITCHES           *E03
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   33
A    4399         01 0052F           ABSBUF   END      M00000
            01 00BCF    0000007F A
            01 00BD0    80000000 A
            01 00BD1    0001FFFF A
            01 00BD2    FFFE0000 A
            01 00BD3    00000005 A
            01 00BD4    00001FFF A
            01 00BD5    08000000 A
            01 00BD6    0007FFFF A
            01 00BD7    31415926 A
            01 00BD8    00000002 A
            01 00BD9    00000040 A
            01 00BDA    0000FFFF A
            01 00BDB    0000003F A
            01 00BDC    41000000 A
            01 00BDD    40404040 A
            01 00BDE    00080000 A
            01 00BDF    FFF00000 A
            01 00BE0    000FFFFF A
            01 00BE1    00FFFFFF A
            01 00BE2    000000F0 A
            01 00BE3    00000001 A
            01 00BE4    7F0003FF A
            01 00BE5    40E4D5E4 A
            01 00BE6    E2C5C440 A
            01 00BE7    00010000 A
            01 00BE8    000000FC A
            01 00BE9    0000000F A
            01 00BEA    40000000 A
            01 00BEB    0A000000 A
            01 00BEC    02000000 A
            01 00BED    C34B40F0 A
            01 00BEE    F9000000 A
            01 00BEF    0000000A A
            01 00BF0    00FA0000 A
            01 00BF1    00000AB0
            01 00BF2    F2F2F0F0 A
            01 00BF3    C440F140 A
            01 00BF4    C440F240 A
            01 00BF5    00000B05
            01 00BF6    F2F3F0F0 A

  CONTROL SECTION SUMMARY: 01 00BF7   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:53 JUN 20,'83    T-SERIES DIAGNOSTIC PROGRAM MONITOR 960-0013-H02                      PAGE   34
A  ABSBUF           126/EQU     2204/CHECK   4399-END
   ADDRNR          3067/BCS     3069-AI      3096/B
   ANLIMITS        3222/GEN     4341-DATA
   ASCII           1988/LB      2077-DATA
   ATWMSG          3876/DATA    4328-GEN
   BACK:           2629/B       2818-B
   BACK:A          2861/BE      2866/BNE     2870-LW
   BACK:B          2864/BE      2869-BAL
   BACK:C          2876/BE      2887-WD
   BDEVMSG         1110/DATA    1153-TEXTC
   BIAS            2217-EQU
   BLANK           3904/DATA    4378-TEXTCS
   BOOT          1087.1-RD      1266/GEN
   BOOT2           1091/BCR     1096-LW
   BOOT3           1107/BCR     1113-BAL
   BR:MLP          2629-B       2815/LW
   BR:X            2628/B       2893-STW
   BR:XA           2889/BEZ     2895-BAL
   BRANCH           644-LB      1258/GEN
   BRANCH1          645/BEZ      650-BAL
   BREAKFLG         774/MTW      872/MTW     1275/STW     2491/STW     3867/MTW     3878-DATA
   BRN:X           2628-B       2890/LW
   BUFFER          2309/DATA    2549/STD     2550/STD     2575/STW     2596/LM      3431/LI      3433/LW
      3483/STD     3505/STD     3516/STB     3518/DATA    3542/STB     3546/STB     3609/LW      3614/STW
      3619/STH     3641/LI      3661/STB     3728/STB     3746/DATA    3773/LB      3793/STB     3795/STB
      4373-EQU
   BUFFER01         809/STB     2308/DATA    2462/STW     2467/STB     2618/GEN     3279/LB      3305/GEN
      3307/GEN     3309/GEN     4372-RES     4373/EQU
   CATALOG            3-EQU        4/EQU
   CC              2625-DATA    2776/STCF    2808/STCF    2836/LB      2867/LC      2902/LB      2926/LC
   CCOMP1           841/BG       845-LI
   CCP              881/BAL      922/BAL      987/BAL     1389-LCI
   CCPA            1392-TIO     1483/B
   CCPB            1453/BEZ     1456/BE      1482-MTB
   CCPEXIT          767/BNE      810/B       1457-LCI
   CCPSAVE         1390/STM     1458/LM      2320-EQU     2321/EQU
   CCP1            1393/BCR     1399-LB
   CCP11           1397/B       1404-LI
   CCP2            1400/BCS     1408-MTB
   CCP21           1416-LB      1441/BCS
   CCP22           1421/BCS     1425-CI
   CCP23           1417/BCR     1419/BCR     1423/BCR     1433/BCR     1439-AI
   CCP24           1395/BCR     1412/BCR     1438/BCR     1442-STB
   CCP25           1426/BCR     1432-CI
   CCP3            1452-MTW     1471/B       1474/B       1477/B       1480/B
   CCP3A           1445-BAL     1450/B
   CCP4            1444/BCS     1461-BAL     1468/B
   CCP5            1462/B       1470-BAL
   CCP6            1446/B       1476-BAL
   CCP61           1464/BCS     1478-BAL
   CHECK           2197-CNAME
   CLK3COMP         819-STW     1165/BAL
   CLK3GO           852-LI      1284/BAL
   CLK3INT          848/LW     864.2-XPSD
   CLK3INT1       864.4-STM      892/DATA
   CLK3INT2         873/BEZ      879-LI
   CLK3LOC          605/STW      833/STW      839/LW       855/STW      863/MTW      888-DATA     998/STW
   CLK3LOCM         821/LW       863-MTW
   CLK4LOC          826/STW      830/CW       835/CW       864/MTW      889-DATA
   CLK4LOCM         823/LW       864-MTW
   CLOCK           1310-EQU     1857/LW*     1884/CW*     1991/AW*     1992/CW*
   CLR             1126/LM      1131-DATA
   CL3XPSDL       864.2/XPSD     870/LD       891-DATA    3869/XPSD
   CNTDICT         2305/DATA    3362-EQU
   CNTDICTR        1180/LI      1269-EQU
   CNTR3MSG         843/DATA     862-TEXTC
   CNTR4ADR         618-DATA     628/STW      629/LW*      749/STW*
   COC             1626/LI      2018-GEN
   COCBC           1619/CH      1625/STH     1630/LCH     1638/MTH     1643/CH      2031-PZE
   COCBYT          1631/LB      1634/LB      2018/GEN     2322-EQU     2323/EQU
   COCDEV           905/LW       966/LW      1033/STW     1034/HIO*    1201/LW      1206/LW      1392/TIO*
      1401/HIO*    1615/TIO*    1627/SIO*    1762/STW     4386-DATA
   COCINPUT        1641/STW     1933/LW      1938/STW     1963-DATA
   COCL            1405/STB     1407/STB     1416/LB      1431/STB     1637/LB      1665/STB     1675/STB
      1724/LB      1733/STB     1949/LB      2008/STB     2318-EQU     2319/EQU     2397/STB     2399/STB
      2406/STB
   COCLIM          1436/LW      1668/LW      2062-DATA
   COCLINE         1463/CW      1728/STW     1732/LW      1760/STW     2402/LW      4396-DATA
   COCLOFF         1679/BCR     2005-EQU
   COCLOG          1673/STW     1718/LW      2377/STW     4382-DATA
   COCNR           1415/STB     1435/MTB     1437/CB      1669/CB      2059-DATA    2407/MTB
   COCOFF          1617/BCS     1687-CI
   COCSIZ          1624/LI      1631/LB      1634/LB      2019/GEN     2030-EQU
   COCSTATE        1394/LB      1399/LB      1442/STB     1550/MTW     1613/LB      1672/STB     1684/STB
      1707/LW      1731/STB     1749/MTB     1758/STW     1871/MTW     1929/LB      2401/LB      3588/LB
      4390-DATA
   COCXMIT         1428/BAL     1660/BAL     1952/BAL     1988-LB
   COCXMIT1        1989-LW      2003/B
   COCXMIT2        1992-CW      1996/BCR
   COCXMIT3        1755/BAL     1757/BAL     1993/BCS     1995/BCR     2006-EQU
   COMEXIT          775/B        884/BCR      887/B        923/B        946/B        988/B        997-LCW
   COMSAVE          770/LW       779/LM       782/LD       813-RES    864.4/STM      871/STD      902/STM
       904/STD      908/LW*      918/LW       920/GEN      963/STM      965/STD      973/LW*      983/LW
       985/GEN     1002/LM      1005/LPSD    1006/LPSD
   DATA:           3042/STW     3044-DATA
   DECLIMIT        3190/CLM     3221/GEN     4349-DATA
   DEV             1100/STW     1106/TIO*    1139-DATA
   DICT            2304/DATA    3348-DATA    3362/EQU
   DICTR            505/LI       509/LI      1043/DATA    1178/LI      1231-DATA    1269/EQU
   DICTWORD        1276/LW      1292/B*      2546/STW     2603/B*      4298-RES
   DIODEV          2378/LW      4388-DATA
   DIRLOAD         4303-TEXTS
   DIRPP           1176/LI      1273-STW
   DIRPPSAV        1273/STW     1291/LW      1293-DATA
   DIRPP1          1281-STW
   DIRPP2          1278/BCS     1287-STW
   DIRPP3          1286/B       1289/BCS     1291-LW
   DMPLOC          3464/STW     3517/BAL*    3526-DATA
   DPMRCV          2900/BEZ     2908/BEZ     2910-LW
   EBCDIC          1636/LB      2145-DATA
   EBCZEROS        4073/LW      4306-TEXTS
   ECHO            1447/BAL     1472/BAL     1890/BAL     1928-STW
   ECHOR           1932/STD     1946/STW     1947/LD      1962-RES
   ECHOS           1928/STW     1957/BCR*    1958/MTW     1959/B*      1960-RES
   ECHO1           1651/CI      1935-BAL
   ECHO2           1936/B       1944/BCS     1947-LD
   ECHO3           1949-LB      1955/BCS
   ECHO4           1931/BCR     1956-CI
   ENDLIMIT        4351-EQU     4352/EQU
   ERRMSG          3892/STW     3894/STW     3897/STB     3900/STW     3902/DATA    4377-TEXTCS
   ESCAPE          1939/CI      2054-EQU
   EXCLA           4305-TEXTS   4324/GEN
   EXCLAM          1941/CI      2055-EQU
   EXECUTE          763-LW      1298/DATA
   EXECUTEA        1298-DATA    1449/BAL*    1467/BAL*
   EXEC1            766-CI       793/BE
   EXEC2            768-LW       806/BE      1300/DATA
   EXEC2A           773/BL       776-LW       876/BL       878/BE
   EXEC3            769/BGEZ     785-LW
   EXEC4            765/BG       791-LI
   EXEC5            797/BNE      800-CI
   EXEC6            801/BNE      805-CI
   EXEC7            795/BLZ      809-STB
   EXITIND         2551/LW      2577/LW      3139/STW     3186/MTW     4296-RES
   GOTOFLG          589/LW       596/LW       600/STW      617-DATA     632/STW      776/LW      1281/STW
      1290/STW
   HRDWBT          1116/LM      1136-LI
   HXLIMITS        3220/GEN     4347-DATA
   INFACE          2872/BNE     2874/BNEZ    2886/B       2897-LW
   IO:RSET         2468/LI      2618-GEN
   IO:TGL          1064/BAL     2471/BAL     2607-LI      2895/BAL
   IOCD            1145-GEN
   IOCDADR          759-DATA     928/STW      929/LW       935/STH      944/MTW
   IOFLAG           763/LW       785/LW       792/CW       811-DATA     880/STW      917/STW      927/STW
       971/STW      982/STW     1003/MTW     1455/CW
   L               2460/LW      2823/DW      2841/AND     2898/AND     2903/AND     2994/AND     3008/AW
      3088/AND     3198/AND     3330/AW      3403/AND     3413/AND     4052/DW
   LBRXPSD         2436/LW      4314-XPSD
   LIMITS          3152/CLM     3220/GEN     3221/GEN     3222/GEN     4340-EQU     4352/EQU
   LMS:GO          2980/B       3007/B       3009/B       3011-CW
   LMS:X           2943-STW     3012/BLE
   LMS:XB          2946/BNE     2981-LCI
   LMS:0           2987/BE      3016-BAL
   LMS:1           2992-LCI     2999/B
   LMS:1A          2989/BNE     2991-STW
   LMS:1B          2952-LCI     2974/B
   LMS:2           2997/B       3000-LW
   LMS:2B          2972/B       2975-LW
   LMS:3B          2955/BEZ     2971-BDR
   LMS:4           2996/BDR     2998-AI
   LMS:4B          2971/BDR     2973-AI
   LOADADD         2218-EQU
   LOADED          2529/CW      2763/MTW     3575/STW     3585/STW     3620/LW      4294-DATA
   LOADIM          2416/STW     2493/MTW     3586/STW     4299-DATA
   LOG             1028-CB      1244/GEN
   LOGFLAG         1036/MTW     1765/STW     3527-DATA    3842/LW
   LOGMSG          1046/DATA    1048-TEXTC
   LOGONMSG        1323-TEXT    1427/LB
   LOG1            1029/BG      1040-LB
   LOG2            1035/BCS     1045-BAL
   LPMSG           3857/STD     3877/DATA    4326-RES     4330/GEN
   LPSD1           2621-DATA    2814/STW     2911/STW     2934/LPSD
   LPS1:           2620-DATA    2933/LPSD
   LRAXPSD         2441/LW      4307-XPSD
   M:WORDS         2740-TEXTCS  2965/STW     2967/STW     3039/LI      3051/STW
   MACHINE         2216-EQU
   MAXPN           2500-EQU     2563/CI
   MEMCHCK         2630-DATA    2858/STW     3034/STW     3037/MTW
   MEMFALT         2995/BCS     3022-LCI
   MEMFALT1        2970/B       3034-STW
   MEMFI           2923/BE      2927/BCR     3037-MTW
   MEMFIX          2869/BAL     2941-STW
   MFLAG            504/MTW      508/STW      539/LW       576-DATA
   MGO              595-EQU     1254/GEN
   MGOMSG           614/DATA     616-TEXTC
   MGO1             588-EQU     1256/GEN
   MGO3             590/BEZ      597/BEZ      613-BAL
   MLT             2209-EQU     2210/EQU     2211/EQU     2212/EQU     2213/EQU     2215/EQU     2216/EQU
      2217/EQU     2218/EQU     2220/EQU     2221/EQU     2222/EQU     2223/EQU     2224/EQU     2225/EQU
      2226/EQU     2227/EQU     2228/EQU     2229/EQU     2230/EQU     2231/EQU     2232/EQU     2233/EQU
      2234/EQU     2235/EQU     2236/EQU     2237/EQU     2238/EQU     2239/EQU     2240/EQU     2241/EQU
      2242/EQU     2243/EQU     2244/EQU     2245/EQU     2246/EQU     2247/EQU     2248/EQU     2249/EQU
      2250/EQU     2251/EQU     2252/EQU     2253/EQU     2254/EQU     2255/EQU     2256/EQU     2257/EQU
      2258/EQU     2259/EQU     2260/EQU     2261/EQU     2262/EQU     2263/EQU     2264/EQU     2265/EQU
      2648/LW
   MLTAB            440/DATA    2268-EQU     2318/EQU     2382/STW     2391/LW
   MLT01           2220-EQU     2411/STW     2597/STM
   MLT02           2221-EQU
   MLT13           2222-EQU     2415/STW     3600/STW     3935/LW
   MLT14           2223-EQU
   MLT15           2224-EQU
   MLT16            484/B*       521/B*       556/B*       572/B*       615/B*       652/B*       676/B*
       681/B*       689/B*       737/B*       787/BE*      789/BE*      921/B*       986/B*      1016/B*
      1019/B*      1039/B*      1044/B*      1047/B*      1061/B*      1082/B*      1094/B*      1111/B*
      1215/B*      2225-EQU     2517/B*      2543/B*      2813/LW      2910/LW      3151/B*      3240/B*
      3324/B*      3860/B*
   MLT17            513/LB       644/LB       672/CB       677/CB      1028/CB      1040/LB      1097/MTB
      1716/MTB     2226-EQU     2548/STW     2574/LB      2576/MTB     2587/LB      2594/STB     3432/LB
      3615/LB
   MLT18           2227-EQU
   MLT19           2228-EQU
   MLT20            777/BNEZ*    784/B*       790/B*      1167/STW     2229-EQU     2487/B*      2599/B*
      2764/BEZ*    2766/BEZ*    2769/B*      3386/B*      3416/B*      3443/B*      3570/BCS*    3623/B*
      3659/BEZ*    3671/B*
   MLT21           2230-EQU
   MLT22            550/BAL*    2231-EQU
   MLT23           2232-EQU
   MLT24            474/BAL*     476/BAL*     707/BAL*     709/BAL*     712/BAL*     714/BAL*     717/BAL*
       719/BAL*     722/BAL*     724/BAL*    2233-EQU     3985/BAL*    3987/BAL*    4257/BAL*    4262/BAL*
      4264/BAL*
   MLT25           2234-EQU     3239/BAL*
   MLT26           2235-EQU     3145/LW      3233/STW     3274/LW      3276/MTW     3287/STW
   MLT27           2236-EQU
   MLT28           2237-EQU     2914/BAL*    2916/BAL*    3043/BAL*    3074/BAL*    3093/BAL*
   MLT29           2238-EQU
   MLT30           2239-EQU     4242/BAL
   MLT31           2240-EQU
   MLT32            913/LB       978/LB      2241-EQU     2432/STW     2464/MTB     2469/SIO*    2472/TIO*
      2474/HIO*    2761/STW     3105/HIO*    3415/STW     3822/LW      3833/LW
   MLT33           2242-EQU     2431/STW     2760/STW     3104/HIO*    3109/STW     3141/LB      3234/LB
      3288/LB      3292/GEN     3385/STW     3577/HIO*
   MLT34           1099/LW      2243-EQU     2435/STW     3107/HIO*
   MLT35            478/BAL*     480/BAL*     482/BAL*     552/BAL*     554/BAL*     613/BAL*     650/BAL*
       679/BAL*     726/BAL*     728/BAL*     730/BAL*     842/BAL*    1017/BAL*    1045/BAL*    1059/BAL*
      1092/BAL*    1109/BAL*    1213/BAL*    2244-EQU     2503/BAL*    3016/BAL*    3332/BAL*    3745/BAL*
      3990/BAL*    3992/BAL*    3994/BAL*
   MLT36            911/CW       976/CW      1162/LW      2245-EQU     2420/HIO*    2430/STW     2755/TIO*
      2757/LW      2759/STW     3106/HIO*    3108/LW      3827/LW      3838/LW      3844/LW      4123/CW
      4150/CW      4190/GEN     4236/CW      4275/GEN
   MLT37           1053/MTW     2246-EQU     2447/STW     2860/CW      2875/CW      2878/LW      2919/CW
      2944/LW      3059/LW
   MLT38           2247-EQU
   MLT39           2248-EQU     2412/STW     3576/LW
   MLT40           2249-EQU     2479/MTW     3569/MTW
   MLT41            519/BAL*    1042/BAL*    2250-EQU
   MLT42           2251-EQU
   MLT43           1175/STW     2252-EQU     3937/BAL*
   MLT44           1179/STW     2253-EQU     2520/LW
   MLT45           1181/STW     2254-EQU     2521/LW
   MLT46            647/CW       666/CW      1127/LW      2255-EQU     2450/STW     3011/CW      3436/CW
      3471/CW      3851/CW
   MLT47           1184/STW     2256-EQU     2457/LW
   MLT48           2257-EQU
   MLT49           2258-EQU
   MLT50           2259-EQU
   MLT51           1169/STW     2260-EQU     3291/BAL*
   MLT52           1171/STW     2261-EQU     3858/BAL*
   MLT53           1173/STW     2262-EQU     4189/BAL*    4274/BAL*
   MLT54           1177/STW     2263-EQU     2598/BAL*
   MLT55           1188/STW     2264-EQU     2454/STW     3591/BAL*
   MLT56          864.6/MTW     2265-EQU     2392/STW
   MONERR          3328/STB     3331/STW     3333/DATA    4379-TEXTCS
   MSAVE            512/STW      531/OR       532/STW      541/OR       544/EOR      575-DATA
   MSENSE1         3924-MTW     3940/B
   MSENSE2         3925-LB      3939/B
   MSENSE3         3922/BCR     3934-MTW
   MSENSE4          467/LI      3938-DATA
   MSENSE5         3929-LI      3936/BNEZ
   MSGMODE          798/MTW      803/STW      807/LW      1308-DATA    1552/MTW     1653/MTW
   MSGOUT           940/BAL     1811-LCI
   MSGOUTS         1812/STM     1819/LM      2321-EQU     2322/EQU
   MSGOUT1         1813-LB      1817/BDR
   MSGOUT2         1815/B       1818-LCI
   MSGSUBR         1205/B       1210/B       1211-LW
   MSGTEXT       1211.1/STW     1214/DATA  1215.2-TEXTC
   MSGWORD         1211/LW      1217-TEXT
   MSOFF            507-LI      1248/GEN
   MSON             504-MTW     1246/GEN
   MSON1            510/STW      518-STW      558/B
   MSON2            516/BLE      522-LW       533/BDR
   MSON3            540/BEZ      543-LI
   MSON4            542/B        546-LW
   MSON5            549-LW       560/BLZ      564/B
   MSON6            524/BL       526/BG       557-LW
   MSON7            514/BEZ      559-LW
   MSON8            535/BLZ      565-LI
   MSON9            538-OR       566/B
   MSTOP            665-LW      1252/GEN
   MSTOPMG1         718/STW      720/STB      729/DATA     738-TEXTC
   MSTOPMG2         708/STW      710/STW      713/STW      715/STW      731/DATA    2739-EQU
   MSTOPMG3         723/STW      725/STB      727/DATA     739-TEXTC
   MSTOP1           674-LI
   MSTOP2           669/BEZ      677-CB
   MSTOP3           673/BE       678/BE       682-LW
   MSTOP4           690-LD       732/LI
   MSTOP4A          692/AI       698-EXU
   MSTOP5           684/LW       700-XPSD     755/B
   MSTOP6           702-LCI      753/DATA
   MTENTRY         2270/B       2366-LCI
   MTENTRY1        2369/BNE     2373/BAZ     2381-LI
   MWERROR         2744-TEXTCS  3017/DATA
   M00A00          2642/LW      2653-XPSD    2840/LW
   M00000           844/B       2364-B       2443/GEN     4399/END
   M00000C         2364/B       2390-LI
   M00000D         2404/BAZ     2409-EQU
   M000001         2420-HIO     2433/B
   M000002         2421/BCR     2434-LW
   M000003         2476/B       2479-MTW
   M00010          2276/DATA    2307/DATA    2485-BAL
   M00020          2280/DATA    2489-BAL
   M00020R         1166/LI      1195-LI
   M000201         1200/B       2490-STW
   M00100          2659/XPSD    2719-RES
   M00110          2720/DATA    2795-STW
   M00200          2657/XPSD    2691-RES
   M00210          2692/DATA    2791-STW
   M00220          2654/XPSD    2695-RES
   M00230          2696/DATA    2772-LPSD
   M00240          2655/XPSD    2699-RES
   M00250          2700/DATA    2776-STCF
   M00251          2778/STM     2782-RES     2789/STW     2791/STW     2793/STW     2795/STW     2797/STW
      2799/STW     2801/STW     2803/STW     2810/STM     2853/LI      2932/LM
   M00260          2773/DATA    2788-BAL
   M00300          2653/XPSD    2703-RES
   M00310          2269/B       2750-EQU
   M00311           820/BAL     1065/BAL     1113/BAL     2754/BAL     2896/BAL     3101-LI
   M00313          2486/BAL     3108-LW
   M00315          2489/BAL     2767/BAL     3113-WD
   M003151         1198/BAL     3114-LI
   M00320          1940/BE      1942/BE      2704/DATA    2753-EQU
   M00350          2660/XPSD    2707-RES
   M00360          2708/DATA    2797-STW
   M00400          2656/XPSD    2711-RES
   M00410          2712/DATA    2789-STW     2820/LI
   M00500          2658/XPSD    2715-RES
   M00510          2716/DATA    2793-STW
   M00600          2639/LW      2659-XPSD
   M00700          2643/LB      2672-DATA    2827/LB
   M00800          2646/CI      2684-EQU
   M00920          2662/XPSD    2723-RES
   M00930          2724/DATA    2799-STW
   M00940          2663/XPSD    2727-RES
   M00950          2728/DATA    2801-STW
   M00960          2664/XPSD    2731-RES
   M00970          2732/DATA    2803-STW
   M01000          2282/DATA    2838/BAL     4070-STW
   M02000          2283/DATA    3474/LI      3665/BAL     3740/BAL     3896/BAL     4044-STW
   M02010          4048-LI      4057/BGEZ
   M02020          4033/B       4058-LW
   M03000          2284/DATA    2832/BAL     2846/BAL     2854/BAL     2856/BAL     3050/BAL     3083/BAL
      3089/BAL     3327/BAL     3479/LI      3538/BAL     3540/BAL     3891/BAL     4020-STW     4183/BAL
      4185/BAL
   M03010          4024-LI      4032/BGEZ
   M04000          2287/DATA    3889-STD
   M04010          3906-MTW
   M05000          2288/DATA    3814-STW     3901/BAL     3903/BAL
   M05005          3596/BAL     3821-STD
   M05007          2295/DATA    3656/BAL     3826-STD
   M05008          3823/B       3828-LI
   M05010        2277.1/DATA    3463/LI      3832-STD
   M05015        2280.1/DATA    3247/BAL     3530/LI      3837-STD
   M05017          3834/B       3839-LI
   M05020          3818/B       3866-AI
   M05030          3829/B       3840-LCI
   M05040          3858-BAL     3863/BNEZ
   M05050          3828/LI      3873-DATA
   M05060          2438/GEN     3839/LI      3876-DATA
   M05070          3855/AW      3871-DATA
   M05080           877/CI      3870-B
   M06000          2285/DATA    3150/BAL     3271-STW
   M06005          3281-LW      3293/B
   M06010          3276-MTW     3300/B
   M06100          3275/BCR     3278/BCR     3286-LI
   M06900          2511/CW      2513/STW     3146/CW      3177/CW      3179/STW     3277/CW      3299/STW
      3302-DATA
   M06905          3290/AI      3304-EQU     3311/EQU
   M06910          3305-GEN
   M06930          3307-GEN
   M06940          3309-GEN
   M06945          3311-EQU
   M07000          2532/B       2602/B       3323-BAL     3338/B       3380/B       3410/B       3618/B
      3639/B       3687/B       3706/B
   M07100          2566/BAL     3162/BAL     3323/BAL     3326-STW
   M07200           648/BG       667/BG      3337-LI      3437/BG      3466/BLZ     3472/BG      3850/BLZ
      3852/BG
   M08000          1234/GEN     2275/DATA    3351/GEN     3462-STW
   M08001          3464-STW     3531/B
   M08010          3481-BAL     3519/BIR
   M08020          3513/BIR     3522-BIR
   M08021          3494/BNE     3523-AI
   M08030          3485-LW      3522/BIR
   M08040          3489-CW      3495/BIR
   M08041          3488/B       3492/BNEZ    3495-BIR
   M08050          3490/BNE     3497-CI
   M08060          3498/BL      3511-BAL
   M08070          3509/BIR     3515-AI      3524/B
   M08080          3507/BAL     3511/BAL     3537-LW
   M08090          3481/BAL     3502/BAL     3556-LW
   M09000          1232/GEN     3349/GEN     3431-LI
   M09010          3435-BLZ     3442/BDR
   M09020          3434/B       3442-BDR
   M10000          1203/BE      3353/GEN     3402-LW
   M10000R         1201-LW      1236/GEN
   M10010          3406/BCR     3411-SLS
   M10100          3405/CW      3418-EQU     3421/EQU
   M10200          3404/LI      3405/CW      3421-EQU
   M11000          1208/BE      3355/GEN     3372-LI
   M11000R         1206-LW      1238/GEN
   M11010          3376/BCR     3381-SLS
   M11100          3375/CW      3388-EQU     3392/EQU
   M11200          3374/LI      3375/CW      3392-EQU
   M12000          2514/BAL     2569/BAL     3134-STW
   M12010          3140-LI      3158/BGE     3178/BGE     3180/B
   M12015          3144/BE      3147/BL      3150-BAL
   M12020          3152-CLM     3184/BGEZ
   M12025          3149/B       3162-BAL     3182/B
   M12030          3136/AI      3220-GEN
   M12040          3153/BCS     3165-CB
   M12045          3175/B       3181-LI
   M12050          3166/BNE     3172/BNE     3183-AI
   M12070          3214-B       3222/GEN
   M12080          3134/STW     3135/LW*     3160/LW*     3163/B*      3170/BE*     3214/B*      3215-RES
   M12085          3189-BAL     3220/GEN
   M12090          3197-BAL     3221/GEN
   M12100          3189/BAL     3197/BAL     3206-STD
   M12120          3195/B       3201/B       3212-BIR
   M13000          2494/BEZ     2507-BAL     2516/B       2542/B
   M13002          2503-BAL     2538/BEZ
   M13003          2504/DATA    4380-TEXTCS
   M13005          2520-LW
   M13010          2522-AI      2530/BNE     2534/BNE
   M13011          2523/BGEZ    2533-CW
   M13012          2541/BAL     2545-STW
   M13020          2525/BE      2531-LI
   M13030          2560-LI      2582/B
   M13040          2552/BNEZ    2595-LCI
   M13050          2565-LI      2580/BEZ
   M13055          2545/STW     2567/B*      2571/B*      2572/B*      2585-RES
   M13060          2578/BNEZ    2587-LB
   M13070          2509/B       2601-LI
   M13080          2514-BAL
   M13090          2314/DATA    2603-B
   M13100          2557/STW     2579/MTW     2583-RES
   M13200          2562/STW     2581/LW      2584-RES
   M14000          1240/GEN     2310/DATA    2495/B       3357/GEN     3569-MTW
   M14020          2480/BCS     3583-BAL
   M18000          1242/GEN     3359/GEN     3609-LW
   M18020          3621/BNEZ    3625-LI
   M18030          3628-BAL     3636/B
   M18050          3632/BE      3641-LI
   M18055          3601/B       3653-LW
   M18059          3663/DATA    3672-TEXTCS
   M18060          3629/B       3638-LI
   M18080          3628/BAL     3680-CW
   M18090          3642/BAL     3702-STW
   M18095          3704/BGE     3707-LH
   M22000           919/BAL      984/BAL     2311/DATA    2312/DATA    2313/DATA    4112-LCI
   M22021          4144-BAL     4155/SW
   M22022          4142/BCS     4145-BAL
   M22023          4140/BOV     4146-BAL
   M22024          4139/BOD     4147-BAL
   M22025          4137/BOV     4148-BAL
   M22026          4136/BOD     4149-BAL
   M22030          4144/BAL     4145/BAL     4146/BAL     4147/BAL     4148/BAL     4149/BAL     4150-CW
   M22040          4153/BL      4167-LCI
   M22050          4131/BEZ     4134/BE      4172-STW
   M22060          4161/BAL     4164/BAL     4182-STW
   M22065          4182/STW     4184/STW     4186/STW     4194-TEXTS   4334/GEN
   M22070          4188/LI      4334-GEN
   M23000          4117/BAL     4127/BAL     4205-LI      4243/B
   M23010          4206-TIO     4209/BCR     4216/BIR     4219/BOV     4225/BOD     4227/BIR
   M23020          4213/BEV     4219-BOV
   M23031          4229-BAL     4238/SW
   M23032          4210/BCS     4230-BAL
   M23033          4217/B       4231-BAL
   M23034          4221/BOD     4232-BAL
   M23035          4226/BOV     4233-BAL
   M23036          4126/BCS     4234-BAL
   M23037          4124/BNE     4235-BAL
   M23040          4229/BAL     4230/BAL     4231/BAL     4232/BAL     4233/BAL     4234/BAL     4235/BAL
      4236-CW
   M23045          4237/BE      4242-BAL
   M23060          4157/BAL     4240/BAL     4255-STW
   M23065          4255/STW     4258/STW     4260/STB     4263/STW     4265/STW     4279-TEXTS   4336/GEN
   M23070          4187/STW     4192/LW      4266/STW     4271/LW      4272/STW     4277/LW      4281-RES
      4284/STW     4289/LW
   M23080          4273/LI      4336-GEN
   M23090          4165/BAL     4241/BAL     4284-STW
   M31000          2289/DATA    3918-STW
   M32000          2279/DATA    4090-LCI
   M32010          4094-LI      4098/BIR
   M34000          2448/BAL     2634/DATA    2635-WD
   M34000L         1186/STW     2634-DATA    3571/BAL*    3583/BAL*
   M34000R         1185/LI      1218-B
   M34100          2485/BAL     2648-LW
   M35000          3662/BAL     3668/BAL     3733/BAL     3737/BAL     3741/BAL     3743/BAL     3768-LCI
   M35010          3781-LB      3786/BDR
   M35020          3775/BG      3790-AI      3794/BDR
   M35040          3784/BNE     3788/B       3792-AI
   M47000          2507/BAL     3173/BAL     3231-STW
   M47010          3237/BE      3245-LW
   M47020          3246/STB     3248/DATA    3251-TEXTCS
   M49000          2301/DATA    3726-STD
   M49010          3670/BAL     3736-STW
   M49020          3738/DATA    3750-TEXTCS
   M49030          3744/DATA    3751-TEXTCS
   M90000          2440/B       2446-LI      4312/DATA
   M900005         2441-LW      4317/DATA
   M90010          4307/XPSD    4311-RES
   M90020          4314/XPSD    4316-RES
   NEWPAGE         1875/LI      1945/LI      1956/CI      2053-EQU
   NLCODE          4304-TEXTS   4322/GEN     4328/GEN
   NLIMITS         3140/LI      4352-EQU
   NOFAULT         2742-TEXTCS  3041/LI      3044/DATA
   NOPAR            651/DATA     653-TEXTC    680/DATA
   NOPROCF         2743-TEXTCS  3075/DATA
   NOTTYAD         1860/BCS     1895-WAIT
   OK:SET          2473/BCR     2477-LI
   P:STAT          2741-TEXTCS  3084/STB     3086/STB     3090/STB     3092/STB     3094/DATA
   PASSWORD        1031/STW     1326-DATA    1662/CB
   PDFCLEAR        2620/DATA    2934-LPSD
   PIT             2330-EQU     2331/EQU     2333/EQU     2335/EQU     2337/EQU     2339/EQU     2341/EQU
    2342.1/EQU     2344/EQU     2346/EQU     2347/EQU     2349/EQU     2353/EQU     2357/EQU     2358/EQU
      2359/EQU     3573/STW
   PIT01           2331-EQU     3593/LW
   PIT02           2333-EQU     2527/LW
   PIT03           2335-EQU     2526/LW
   PIT04           2337-EQU     2765/MTW     2768/BAL*
   PIT05           2339-EQU     3682/LW*     3690/LW*
   PIT06           2341-EQU     3680/CW
   PIT07         2342.1-EQU   2538.2/STW
   PIT08           2344-EQU     3598/BAL*    3644/BAL*
   PIT09           2346-EQU     3664/LW      3702/STW
   PIT10            518/STW     1041/STW     2347-EQU     3626/STD     3658/MTW     3739/LW
   PIT11           2349-EQU     3653/LW
   PIT12           2353-EQU     2537/MTW
   PIT13           2357-EQU
   PIT14           2358-EQU
   PIT15            621/LW       745/STW     2359-EQU     2492/STW     2873/MTB     2897/LW      2905/BAL*
      2912/MTB
   POINTER         4295-RES
   PROCFI          2929/BE      3058-LI
   PROCNEX         3066-HIO     3070/BIR
   PROFLT          3068/BCS     3078-LW
   PSENSE           534/LW       538/OR       548/STW      549/LW       559/LW       563/STW      568/STW
       571/STW     3960/LW      4397-DATA
   P1               522/LW       620/LM       646/LW       665/LW       682/LW*      685/STW*     687/LW
       743/STM     1030/LW      1096/LW      1720/LW      2210-EQU     3373/AND     3402/LW      3465/LW
      3578/LW      3627/LW
   P2              1032/LW      2211-EQU     3383/AND     3412/LW      3467/LW
   P3              1037/LW      2212-EQU     3476/LW
   P4              2213-EQU
   QSENSE           536/BAL      561/BAL      569/BAL     2302/DATA    3815/BAL     3920/BAL     3959-STW
   QSENSE1         3961/BCR     3965-RD
   RECDSOFF        2010/WD*     2044-DATA
   RECOFF          2009/WD*     2043-DATA
   RECON           1418/WD*     1786/STS     2042-DATA
   REGSAVE          462/STM      465/LW*      468/CW       472/LW       593/MTW      609/LM       610/LPSD
       623/STM      625/STW      630/STW      690/LD       696/LM       703/STM      706/LW       711/LW
       716/LI       733/LW       736/STW      741/LM       744/LW       746/LW       748/LW       781/STM
      2319-EQU     2320/EQU
   REG15           3921/STW     3931/LW      3941-DATA    3959/STW     3964/B*      3967/B*
   REMCODE         1123/LM      1159/LW      2376/STM     4383-DATA
   REMCONNT        1158-STW     2496/B
   REMIN            959-XPSD    1168/LI
   REMINST         2453/LW      2496-B
   REMINSTA        1187/LW      1191-B
   REMIN1           962-LCI      991/DATA
   REMOFF          1262/GEN     1749-MTB     2751/BAL
   REMOFFS         1752/STW     1753/STW     1763/LW      1766/B*      1768-RES
   REMOUT           898-XPSD    1170/LI
   REMOUTE          924-EQU     1172/LI
   REMOUTE1         925-EQU      954/DATA
   REMOUT1          901-LCI      949/DATA
   REMSIZE          440-DATA     772/CI       875/CI      1182/LI      2298/DATA
   REMSWAP         1015-BAL     1260/GEN
   RESTENVI         601/BAL      694/BAL      740-LCI
   RETURN          2215-EQU
   RETURNC          819/STW      850/B*       894-DATA
   RETURNR         1158/STW     1189/B*      1190-DATA
   RIMTW            993-MTW
   RIMTWDC          993/MTW      994-DATA
   RIN1             969-BAL      977/BE       979/BEZ
   RIN2             968/BE       973-LW
   RIN3             972/B        987-BAL
   RIXPSDL          959/XPSD     964/LD       990-DATA
   ROEXPSDL         953-DATA
   ROMTW            951-MTW
   ROMTWDC          951/MTW      952-DATA
   ROUTE1           907/BNE      912/BE       914/BEZ      926-LI
   ROUTE2           929-LW       936/B        945/B
   ROXPSDL          898/XPSD     903/LD       948-DATA
   RSET            1053-MTW     1264/GEN
   RSETMSG         1060/DATA    1084-TEXTC
   RSET1           1058/BEZ     1063-WD
   RSET2           1054/BNEZ    1068-WD
   RSET3           1066/B       1075-EQU
   RSTFLG          1057/MTW     2475/MTW     2478/STW     2624-DATA    2888/MTW
   RSWAPMSG        1018/DATA    1020-TEXTC
   RUNMODE          624/LW       747/STW      768/LW       794/LW      1199/STW     1280/STW     1287/STW
      1304-DATA    1452/MTW
   S:PT               4/EQU
   S:UFV            126/EQU
   SAVE            2325-EQU     2326/EQU     3206/STD     3209/LB      4020/STW     4021/STW     4022/STW
      4044/STW     4045/STW     4046/STW     4058/LW      4059/LW      4060/B*      4070/STW     4071/STW
      4077/XW      4078/LW      4079/B*      4091/STM     4100/LM      4101/B*      4356/EQU     4357/EQU
      4358/EQU     4359/EQU     4360/EQU     4361/EQU     4362/EQU     4363/EQU     4364/EQU     4365/EQU
      4366/EQU     4367/EQU     4368/EQU     4369/EQU     4370/EQU     4371/EQU
   SAVEENVI         464/BAL      619-LCI      705/BAL      783/BAL
   SAVE0           3273/STM     3280/MTW     3281/LW      3282/LW      3284/B*      3769/STM     3780/AI
      3797/LM      4356-EQU
   SAVE1           4357-EQU
   SAVE10          3814/STW     3817/LW      3819/LW      3821/STD     3826/STD     3832/STD     3837/STD
      3865/LM      4366-EQU
   SAVE11          4367-EQU
   SAVE12          3841/STM     4368-EQU
   SAVE13          3798/MTW     3799/B*      4369-EQU
   SAVE14          4370-EQU
   SAVE15          4371-EQU
   SAVE2           3326/STW     3334/B*      3462/STW     3520/B*      3529/STW     3889/STD     3890/XW
      3895/LW*     3905/LW      3906/MTW     3907/B*      4358-EQU
   SAVE3           4359-EQU
   SAVE4           4360-EQU
   SAVE5           4361-EQU
   SAVE6           4362-EQU
   SAVE7           3271/STW     3283/LW      4363-EQU
   SAVE8           4364-EQU
   SAVE9           4365-EQU
   SAVL0           2326-EQU     3231/STW     3241/CW*     3242/BE*     3243/B*      3245/LW*     3249/LW*
      3250/B*      3726/STD     3736/STW     3747/LD      3748/B*
   SENSEFLG         591/LW       599/STW     3930/STW     3934/MTW     3944-DATA
   SENSET          1422/WD*     1994/WD*     2045-DATA
   SETDIO          1038/BAL     1783-LI      2379/BAL
   SETHALTA        1300-DATA    1885/BCS*
   SET0123         1274/BAL     2826/BAL     3116-LI      3584/BAL     3599/BAL
   SIOCOC          1402/BAL     1623-EQU
   SIOTTY           915/BAL      969/BAL      980/BAL     1529-EQU
   SIZE             126-EQU
   SPACE           2052-EQU
   SPD             4113/STM     4168/LM      4174/LM      4178-RES     4268/LW      4269/STW     4286/LW
      4287/STW
   SSWC             567-LI      1250/GEN
   SSWMSG1          553/DATA     573-TEXTC
   SSWMSG2          551/STW      555/DATA     574-TEXTC
   STATUS          3297/SW      4172/STW     4177-DATA
   STOPADR          671/STW*     688/STW      699/B*       721/LW       757-RES
   STOPFLG          668/LW       675/STW      686/MTW      756-DATA
   STOPINST         670/LW       683/STW      698/EXU      758-DATA
   STOREM          2959/BAL     2963/BAL     3025/BAL     3029/BAL     3033/BAL     3048-STW
   STPXPSD          755-B
   STPXPSDL         693/STD      697/LPSD     700/XPSD     704/LD       752-DATA
   STSAV:          2938-DATA    2941/STW     3013/B*
   STSAVE           470/LW      3047-DATA    3048/STW     3054/B*      3918/STW     3924/MTW     3928/MTW
      3933/B*
   STSAVE1         3919/STW     3925/LB*     3942-DATA
   STV             3013-B       3019/B       3035/B
   SVBANK          2939-DATA    2943/STW     2975/LW      3001/LW
   SVLEAVE         2940-DATA    2951/STW     2976/LW      2991/STW     3000/LW
   SWAP            1015/BAL     1689/B       1707-LW
   SWAP1           1708/BGEZ    1713-CW
   SWAP2           1711/B       1731-STB
   SWAP3           1714/BAZ     1726/BL      1736-MTW
   SWONMSG         1093/DATA    1154-TEXTC
   TEXTCS          2189-CNAME
   TEXTS           2181-CNAME
   TI:EXT          2818/B       2913/BNEZ    2920/BE      2930-STW     3045/B       3073/B       3076/B
   TI:FLG          2490/STW     2626-DATA    2811/MTW     2819/MTW     2930/STW
   TI:1            2737-TEXTCS  2833/STB     2835/STB     2839/STW     2855/STW     2857/STW     2915/DATA
   TI:2            2738-TEXTCS  2739/EQU     2847/STW     2917/DATA
   TICKS            604/LCW      847/STW      854/LCW      997/LCW     1313-DATA    1858/AW      1881/LW
      1989/LW
   TIOCOC          1461/BAL     1476/BAL     1613-LB
   TIOCOCR         1659/STW     1661/LW      1691-DATA
   TIOCOC0         1615-TIO     1650/BCS     1652/BCR     1655/B       1667/BCS     1676/B       1681/BCS
      1935/BAL
   TIOCOC1         1621-LCF     1644/BCR
   TIOCOC2         1624-LI
   TIOCOC3         1620/BCS     1630-LCH
   TIOCOC4         1642-AI      1654/BCS
   TIOCOC5         1640/BCR     1647-CI
   TIOCOC6         1648/BCS     1657-CI
   TIOCOC7         1658/BL      1678-CLM
   TIOCOC8         1665-STB
   TIOCOC8A        1675-STB     1685/B
   TIOCOC9         1663/BNE     1670/BLE     1682-LI
   TIOTTY          1445/BAL     1470/BAL     1516-TIO     1560/B
   TIOTTY1         1519/BCR     1522-CLM
   TIOTTY2         1527-LCF     1556/BCR
   TIOTTY3         1523/BCS     1530-EQU
   TIOTTY3A        1532/BCR     1536-LI
   TIOTTY4         1526/BCS     1547-LCH
   TIOTTY5         1551/BCR     1554-AI
   TITLE              4-EQU      438/TITLE
   TP:IT           2790/BAL     2792/BAL     2794/BAL     2796/BAL     2798/BAL     2800/BAL     2802/BAL
      2804/BAL     2808-STCF
   TP:P            2788/BAL     2811-MTW
   TRAPLOC         2627-DATA    2831/STW     2862/LW      2870/LW      2901/LW      2921/LW
   TTYBC           1525/CH      1537/STH     1547/LCH     1549/MTH     1555/CH      2032-PZE
   TTYBYTI         1548/LB      2020/GEN     2323-EQU     2324/EQU
   TTYBYTO         1876/STB     1887/STB     2024/GEN     2324-EQU     2325/EQU
   TTYDEV          1163/STW     1516/TIO*    1531/TIO*    1539/SIO*    1541/TIO*    1859/TIO*    1868/HIO*
      1878/SIO*    1889/SIO*    4384-DATA
   TTYDMP          1268/GEN     3361/GEN     3529-STW
   TTYI            1538/LI      2020-GEN     2023/DATA    2023/DATA
   TTYINS          1522/CLM     2023-DATA
   TTYO            1877/LI      1888/LI      2022/DATA    2022/DATA    2024-GEN
   TTYOFF          1518/BCS     1559-WAIT
   TTYOUT          1465/BAL     1478/BAL     1814/BAL     1856-STW     1896/B
   TTYOUTR         1856/STW     1891/B*      1892/MTW     1893/B*      1898-DATA
   TTYOUTS         1520/CLM     1533/CLM     1862/CLM     2022-DATA
   TTYOUT1         1859-TIO     1864/B       1869/B       1879/B
   TTYOUT2         1861/BCR     1871-MTW
   TTYOUT3         1872/BCS     1887-STB
   TTYOUT4         1874/BCR     1881-LW
   TTYOUT5         1863/BCS     1866-LI
   TTYSIZ          1536/LI      1543/CI      1548/LB      2021/GEN     2029-EQU
   TWMSG           3873/DATA    3874/DATA    4322-GEN
   VERSION          1.1-EQU        4/EQU     1325/TEXT
   WAIT            2303/DATA    3978-STW
   WAITMGA         3993/DATA    4008-TEXTC
   WAITMSG         3938/DATA    3943-TEXTC
   WAITMSG1         477/STB      479/DATA    3986/STW     3989/STB     3991/DATA    4007-TEXTC
   WAITMSG2         483/DATA     489-TEXTC
   WAITRTN         3978/STW     3983/LW      3998/LW      4004-DATA
   WAIT1           3991-DATA
   WAIT3           3982/STW     3995-DATA
   WREG12          3979/STW     3996/LW      4005-DATA
   WREG4           3980/STW     3997/LW      4006-DATA
   WXPSDL         457.3/XPSD     463/LD       486-DATA
   XMIT            1999/WD*     2046-DATA
   10TO13          1678/CLM     2038-DATA
   2SEC             603/STW      857/STW      882/MTW      883/MTW      886/STW     1315-DATA    1408/MTB
      1482/MTB
   :WAIT            440/DATA   457.1-LI      1174/LI
   :WAIT1           475/STW*     479-DATA
   :WAIT2           461-LCI      487/DATA
   :WAIT3           466/STW      481-DATA
   :2WAY           3005/BE      3010-AI
   :4WAY           3003/BE      3008-AW
