1 C00   20:32 JUN 20,'83                                                                          PAGE    1
A      1                     3.000  +3,3                                                                *H00
       2                     3.010  VERSION  EQU      C'H02'                                            *H02
       3                   805.000  +805,805                                                            *H02
       4                   827.000  +827,828                                                            *H01
       5                   827.010           SPACE                                                      *H01
       6                   827.020           LW,R0    MEMXPSD           PREPARE TO DO A TRUE            *H02
       7                   827.030           STW,R0   X'40'              4KK-WORD MEMORY SCAN           *H01
       8                   827.040           SPACE                                                      *H01
       9                   827.050           LI,R0    X'1FFF'                                           *H02
      10                   827.052           LW,R1    MEMABSM                                           *H02
      11                   827.054           SPACE                                                      *H02
      12                   827.056           LPSD,0   MEMPSD0           ATTEMPT TO SET MA               *H02
      13                   827.058           SPACE                                                      *H02
      14                   827.060  MEMQ     XPSD,0   MEMPSD1           SAVE MA AND RESET               *H02
      15                   827.062           SPACE                                                      *H02
      16                   827.064  MEMR     LW,R2    MEMPSD0+1         SKIP IF ORIGINAL ATTEMPT        *H02
      17                   827.066           CW,R2    MEMPSD1+1          TO SET MA WAS SUCCESSFUL       *H02
      18                   827.068           BE       %+2                                               *H02
      19                   827.070           SPACE                                                      *H02
      20                   827.072           LI,R1    X'1FFFF'          ELSE LIMIT SCAN TO 128K         *H02
      21                   827.074           SPACE                                                      *H02
      22                   827.076  MEMS     LW,R3    *R0               ATTEMPT TO FETCH WORD           *H02
      23                   827.078           SPACE                                                      *H02
      24                   827.080           CW,R0    R1                IF NO TRAP, SEE                 *H02
      25                   827.082           BE       MEMS0              IF END OF MEMORY REACHED       *H02
      26                   827.084           SPACE                                                      *H02
      27                   827.086           AI,R0    X'2000'           IF NOT END OF MEMORY,           *H02
      28                   827.088           B        MEMS               UPDATE BY 8K AND CONTINUE      *H02
      29                   827.090           SPACE                                                      *H02
      30                   827.092  MEMS0    LPSD,0   MEMPSD3           RESET MA                        *H02
      31                   827.094           SPACE                                                      *H02
      32                   827.096           BOUND    8                                                 *H02
      33                   827.098  MEMPSD0  DATA     MEMQ,X'07800000'  SET MA                          *H02
      34                   827.100  MEMPSD1  DATA     0,0                                               *H02
      35                   827.102           DATA     MEMR,X'07810000'  SET MA AND EA                   *H02
      36                   827.104  MEMPSD2  DATA     0,0                                               *H02
      37                   827.106           DATA     MEMT,X'07000000'  CLEAR MA AND EA                 *H02
      38                   827.108  MEMPSD3  DATA     MEMU,X'07000000'  CLEAR MA AND EA                 *H02
      39                   827.280           SPACE                                                      *H01
      40                   827.290  MEMXPSD  XPSD,0   MEMPSD2           TRAP 40                         *H01
      41                   827.300  MEMABSM  DATA     4*1024*1024-1      FULLY IMPLEMENTED MEMORY       *H01
      42                   827.500           SPACE                                                      *H01
      43                   827.502  MEMT     AI,R0    -X'2000'          DECREMENT TO LAST GOOD BANK     *H02
      44                   827.510  MEMU     STW,R0   #MAXMEM            SET TRUE GUIDE MEMORY LIMIT    *H01
      45                   827.520           SPACE                                                      *H01
      46                   827.530           LW,R0    COREH40           RESET TRAP 40                   *H01
      47                   827.540           STW,R0   X'40'                                             *H01
      48                  1031.000  +1031,1031                                                          *H01
      49                  1031.010           BGE      GUIDE4            SKIP IF MEMORY<16K              *H01
      50                  1040.000  +1040                                                               *H00
      51                  1040.010           SPACE                                                      *H00
      52                  1085.000  +1085,1085                                                          *H00
      53                  1091.000  +1091                                                               *H00
      54                  1091.010           STW,R11  TABLE3END         (NEXT TABLE 3)                  *H00
      55                  1869.000  +1869                                                               *H01
      56                  1869.010           BEZ      QUESTEXIT         STOP IF NOTHING                 *H01
      57                  5091.000  +5091,5091                                                          *H01
      58                  5091.010           BG       TYPE%TRAP%MSG-1   EXIT IF SCAN COMPLETED          *H01
      59                  5091.020           CI,R1    X'1FFFF'           BUT DO NOT SCAN                *H01
      60                  5091.030           BG       TYPE%TRAP%MSG-1     MORE THAN 128K                *H01
      61                  9999.999  +END
1 C00   20:32 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:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    3
A       1                                     PCC                                                        *G00
        2         TEXT               CATALOG  EQU      C'0014'                                           *G00
        1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4         TEXT               TITLE    EQU      S:PT('T-SERIES GUIDE 960-',CATALOG,'-',VERSION)   *G00

        6                            *        PROGRAM OBJECTIVES
        7                            *        ----------------------------
        8                            *
        9                            *        THE PURPOSE OF THIS PROGRAM IS TO PROVIDE A USER INTERFACE
       10                            *           TO THE T-85 CPU DIAGNOSTICS.   INCLUDED ARE:
       11                            *                 STANDARD CONVERSION ROUTINES:
       12                            *                                   EBCDIC TO HEX,
       13                            *                                   HEX TO EBCDIC , AND
       14                            *                                   BINARY TO EBCDIC
       15                            *                 STANDARD DIRECTIVES DM, RM, AND SS
       16                            *                 DIRECTIVE INSERTION (AT OPTION OF USER DIAGNOSTIC)
       17                            *                 INTERRUPT/TRAP HANDLING ROUTINES
       18                            *                 EXPLANATION OF PRINTOUTS ON KEYIN OF 'QUEST. MARK'
       19                            *                 REMOTE TERMINAL DIRECTIVES:  BOOT,LOG,SWAP,STOP,AND
       20                            *                   ROFF.   (OVERLAID IF LOADED ON 16K MEMORY SYSTEM)
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    4
A      22                            *        OPERATING REQUIREMENTS AND SPECIFICATIONS
       23                            *        ----------------------------
       24                            *
       25                            *        REQUIRED EQUIPMENT         T-85 CPU
       26                            *                                   16384 WORDS(MINIMUM) OF MEMORY
       27                            *                                   ASR/KSR
       28                            *                                   MAGNETIC TAPE UNIT (TO LOAD
       29                            *                                       PROGRAM FROM MAG. TAPE LIBRARY)
       30                            *
       31                            *        OPTIONAL EQUIPMENT         LINE PRINTER
       32                            *                                   CARD READER
       33                            *
       34                            *        REQUIRED SOFTWARE          SIGMA 5/6/7/8/9 RELOCATABLE
       35                            *                                         DIAGNOSTIC LOADER
       36                            *                                  A USER DIAGNOSTIC PROGRAM
       37                            *
       38                            *        OPTIONAL SOFTWARE          NONE
       39                            *
       40                            *
       41                            *        PROGRAM PREREQUISITES  A)  THE FOLLOWING PROGRAMS MUST BE
       42                            *                                   RUN SUCCESSFULLY BEFORE
       43                            *                                   RUNNING THIS PROGRAM.
       44                            *                                      85HCP  (960-0100)
       45                            *
       46                            *                               B)  BOTH 'OVERRIDE MODE' SWITCHES
       47                            *                                     MUST BE IN THE 'NORM' POSITION
       48                            *
       49                            *
       50                            *
       51                            *        CORE STORAGE               4080 LOCATIONS REQUIRED FROM
       52                            *                                   X'10' TO X'FFF'
       53                            *                       (LOCATIONS X'1000' UP RESERVED FOR USER DIAG.)
       54                            *                                   X'C00' LOCATIONS STARTING X'FFF'
       55                            *                                      BELOW TOP OF MEMORY (IF TOP
       56                            *                                      IS > THAN 16K)
       57                            *
       58                            *        PROGRAM MEDIA              FROM MAGNETIC TAPE LIBRARY(706144)
       59                            *                                      OR CARDS
       60                            *
       61                            *        SOURCE LANGUAGE            SIGMA METASYMBOL
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    5
A      63                            *        PROGRAM LOADING INSTRUCTIONS
       64                            *        -----------------------------
       65                            *
       66                            *                  FROM MAGNETIC TAPE LIBRARY (MTL)
       67                            *                  ---------------------------
       68                            *
       69                            *        A. MOUNT TAPE ON UNIT 0 (WITHOUT WRITE RING) AND SET ITS
       70                            *        ADDRESS ON THE PCP THUMBWHEEL SWITCHES
       71                            *
       72                            *        2. RESET ALL SENSE SWITCHES. EXCEPTIONS: SET SSW1 IF UPPER
       73                            *                  CORE PROTECTION IS DESIRED (LOADER RELOCATION)
       74                            *
       75                            *                  SET SSW4 AFTER MTL IS IN CONTROL  TO INHIBIT ALL OF
       76                            *                 THE TITLE BLOCK EXCEPT THE FIRST LINE (PROGRAM NAME)
       77                            *
       78                            *        3. EXECUTE A LOAD FROM THE PCP
       79                            *             A. IF SSW1 IS RESET, NO MESSAGE WILL OCCUR
       80                            *             B. IF SSW1 IS SET, THE PROGRAM WILL ASK FOR THE
       81                            *                  LOADER RELOCATION BIAS.
       82                            *
       83                            *                  1. TYPE IN THE BIAS (HEX) FOLLOWED BY N/L
       84                            *
       85                            *             C. A MESSAGE GIVING THE TAPE LIBRARY TITLE AND REVISION
       86                            *               WILL BE TYPED OUT ON THE KSR
       87                            *
       88                            *
       89                            *        4. TYPE IN THE PROGRAM NAME FOLLOWED BY A N/L CHARACTER
       90                            *             A. IF THE NAME CANNOT BE REMEMBERED TYPE IN A N/L
       91                            *                  FOR A LIST OF ALL PROGRAM NAMES
       92                            *             B. IF THE FULL NAME CANNOT BE REMEMBERED, TYPE IN THE
       93                            *                  THE PARTIAL NAME FOLLOWED BY A N/L FOR
       94                            *                  A LIST OF ALL PROGRAM NAMES INCLUDING THAT PARTIAL
       95                            *                  STRING.  IF THERE IS ONLY ONE, THAT PROGRAM WILL
       96                            *                  BE AUTOMATICALLY SELECTED
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    6
A      99                            *             FROM CARD DECK
      100                            *             ---------------
      101                            *
      102                            *        PLACE DECK IN CARD READER AND SET ITS ADDRESS IN PCP
      103                            *
      104                            *        RESET ALL SENSE SWITCHES.   EXCEPTIONS:SET SSW1 TO :
      105                            *             A.PROTECT UPPER MEMORY (RELOCATE LOADER)
      106                            *             B. RELOCATE DIAGNOSTIC
      107                            *             C. CHANGE INPUT DEVICE
      108                            *
      109                            *                  SET SSW2 TO HALT AFTER LOADING GUIDE AND
      110                            *                    AFTER LOADING USER DIAGNOSTIC DECKS (BEFORE
      111                            *                    EXECUTION)
      112                            *
      113                            *                  SET SSW4 TO INHIBIT ALL OF TITLE BLOCK EXCEPT THE
      114                            *                    FIRST (TITLE) LINE
      115                            *
      116                            *
      117                            *        EXECUTE A LOAD FROM THE PCP
      118                            *
      119                            *             A. IF SSW1 IS RESET, NO WAIT WILL OCCUR
      120                            *             B. IF SSW1 IS SET, THREE REQUESTS FOR INFORMATION
      121                            *                WILL BE TYPED OUT ON THE KSR (ONE AT A TIME)
      122                            *                TO USE THE DEFAULT VALUE TYPE IN A N/L
      123                            *        OPERATING PROCEDURES
      124                            *        -----------------------
      125                            *
      126                            *        1. GENERAL
      127                            *             A. LOCAL TERMINAL CONTROLLER: USER MAY BREAK LINES OF
      128                            *                 OUTPUT TO THE TTY BY HITTING 'BREAK' KEY FOR LESS
      129                            *                 THAN ONE SEC.   HOLDING 'BREAK' DOWN FOR LONGER GIVES
      130                            *                 CONTROL TO GUIDE. (IE. GIVES '%' PROMPT)
      131                            *                REMOTE TERMINAL CONTROLLER: USER MAY BREAK LINES OF
      132                            *                 OUTPUT AS ABOVE BUT HITTING AN 'ESC' KEY GIVES
      133                            *                 CONTROL TO GUIDE. (LONG BREAK WOULD DISCONNECT COC)
      134                            *             B. USER MAY HIT A '>' CHARACTER TO KILL OUTPUT TO THE
      135                            *                 LINE PRINTER
      136                            *             C. ALL COMMUNICATIONS BETWEEN THE PROGRAM AND THE USER
      137                            *                  IS VIA  THE KSR AND/OR LINE PRINTER.
      138                            *                  THE KSR IS ALWAYS  SELECTED FOR INPUT AND MOST OUTPUT
      139                            *                  IS ON THE PRINTER (IF IT IS AVAILABLE...LP CANNOT BE
      140                            *                   SELECTED IF A REMOTE TERMINAL IS LOGGED ON)
      141                            *             D.  THE USER CONTROLS PROGRAMS THROUGH DIRECTIVES
      142                            *             E.  INPUT PARAMETERS AND/OR PARAMETER LINE FIELDS
      143                            *                  ARE SEPARATED BY COMMAS.  A PARAMETER LINE IS
      144                            *                  TERMINATED BY A N/L CHARACTER OR ,IF THE LAST
      145                            *                  FIELD, BY A COMMA.
      146                            *             F. ALL USER PROGRAMS ARE 'LOAD AND GO'.
      147                            *
      148                            *
      149                            *        2. UNCONDITIONAL CONTROL DIRECTIVES (NO TERMINATION CHARACTER
      150                            *             OR PARAMETERS REQUIRED)
      151                            *             A. '@' PRODUCES AN ABSOLUTE RECOVERY.  THIS PERFORMS THE
      152                            *                  SAME FUNCTION AS THE PCP SYSTEM RESET SWITCH
      153                            *             B. '%' GIVES PROGRAM CONTROL TO GUIDE (IDLE STATE)
      154                            *                  WHEN OUTPUT BY PROGRAM IT INDICATES THE DIAGNOSTIC
      155                            *                  IS NOT RUNNING.
      156                            *             C. '#' RETURNS PROGRAM CONTROL TO THE DIAG. (RUN STATE)
      157                            *                  WHEN OUTPUT BY PROGRAM, IT INDICATES THE
      158                            *                  DIAGNOSTIC PROGRAM IS BEING EXECUTED
      159                            *             D. '(' ESTABLISHES MESSAGE MODE.  DURING THIS MODE
      160                            *                 ALL CHARACTERS ENTERED AT THE OBSERVER TERMINAL
      161                            *                 ARE DISPLAYED THERE AND ALSO AT THE CONTROLLER
      162                            *                 TERMINAL.   ALL CHARACTERS ENTERED FROM THE CONTROLLER
      163                            *                  TERMINAL (EXCEPT RIGHT PARENTHESIS) ARE DISPLAYED
      164                            *                  AT BOTH TERMINALS BUT ARE OTHERWISE IGNORED.
      165                            *                 ')' TERMINATES MESSAGE MODE.
      166                            *
      167                            *                  NOTE:....EVEN IF NOT IN MESSAGE MODE, THE CHARACTERS
      168                            *                   DISPLAYED ON THE CONTROLLER TERMINAL ARE DISPLAYED
      169                            *                   ALSO ON THE REMOTE TERMINAL.
      170                            *
      171                            *             E. 'SS' DISPLAYS THE CURRENT STATE OF THE PSEUDO (SOFT)
      172                            *                  SENSE SWITCHES AND ALLOWS THEM TO BE ALTERED
      173                            *                  OR DISPLAYS THE STATE OF THE HARDWARE SWITCHES.
      174                            *                  A TYPICAL DISPLAY IS SHOWN BELOW:
      175                            *
      176                            *                 M     SW= 1  2  3  4
      177                            *                 0         0  0  0  0
      178                            *
      179                            *                 IF THE M FIELD IS A ZERO AT TIME OF DISPLAY,
      180                            *                 THE FIELDS OF SW REPRESENT THE STATUS OF THE
      181                            *                 PSEUDO (SOFTWARE) SENSE SWITCHES AND ARE ALTERABLE
      182                            *                 WITHIN THE PARAMETER LINE.   IF THE USER WISHES TO
      183                            *                 ALTER 'M' TO RETURN SENSE SWITCH CONTROL TO  THE
      184                            *                 PCP HE MAY ENTER A '1' FOLLOWED BY A N/L,
      185                            *                 OTHERWISE HE MAY BYPASS THE FIELD BY ENTERING
      186                            *                 AN 'EOM' OR A COMMA TO SPACE TO THE SW1 FIELD.
      187                            *
      188                            *                  IF THE USER WISHES TO CHANGE THE SSW1 SETTING HE MUST
      189                            *                  ENTER A '1' , OTHERWISE HE MAY ENTER A COMMA TO
      190                            *                  SELECT THE NEXT FIELD. ONLY '0' OR '1' MAY BE ENTERED
      191                            *                  TO INDICATE RESET AND SET RESPECTIVELY.
      192                            *                  ENTERING A N/L WILL ACCEPT THE LINE AS ALTERED.
      193                            *                  KEYIN OF A '<' CHARACTER WILL RESET THE LINE BACK TO
      194                            *                  THE FIRST FIELD (ALTERATIONS INTACT).  KEYIN OF A
      195                            *                  SECOND '<' CHAR. AT THIS POINT WILL RESET THE LINE
      196                            *                  TO ITS ORIGINAL VALUES.
      197                            *                  AN 'EOM' CHARACTER PERFORMS THE FUNCTION OF A ','
      198                            *                  EXCEPT IT DISPLAYS THE CONTENTS OF A 'SPACED OVER'
      199                            *                  FIELD WHILE THE COMMA DOES NOT.
      200                            *
      201                            *                 IF THE M FIELD IS A '1' (DEFAULT) AT THE TIME OF
      202                            *                 DISPLAY, IT MEANS THE PCP SENSE SWITCHES ARE IN USE
      203                            *                 AND THE SW FIELDS ARE ONLY A DISPLAY.
      204                            *                  STANDARD SENSE SWITCH MEANINGS:
      205                            *                       SW1=0  NO SHORT LOOP
      206                            *                       SW1=1  SHORT LOOP (LOOP ON TEST WITHOUT
      207                            *                               ERROR CHECKING OR REPORTING)
      208                            *                       SW2=0  NO LONG LOOP
      209                            *                       SW2=1  LONG LOOP (LOOP ON TEST - REPORT
      210                            *                                ALL ERRORS)
      211                            *                       SW3=0  HALT ON ERROR
      212                            *                       SW3=1  BYPASS THE HALT ON ERROR
      213                            *                       SW4=0  DISPLAY ERROR REPORTS
      214                            *                       SW4=1  INHIBIT ERROR REPORT DISPLAY
      215                            *
      216                            *                  SENSE SWITCH DEFAULTS ARE =0
      217                            *                  STANDARD MEANINGS MAY BE ALTERED BY USER
      218                            *                     DIAGNOSTIC
      219                            *
      220                            *
      221                            *             F.  'QUEST. MARK' DISPLAYS THE EXPLANATION OF THE
      222                            *                   CURRENT DIRECTIVE (IF IN DIRECTIVE MODE) OR
      223                            *                  DISPLAYS THE EXPLANATION OF THE LAST OUTPUT MSG.
      224                            *
      225                            *
      226                            *             G. 'SWAP' GIVES THE PROGRAM CONTROL TO THE
      227                            *                 TERMINAL THAT WAS THE REMOTE OBSERVER.
      228                            *
      229                            *             H. 'ROFF' LOGS THE REMOTE TERMINAL OFF AND DISABLES
      230                            *                 THE LOGON FUNCTION.
      231                            *
      232                            *
      233                            *        3. IMMEDIATE PARAMETER LINE DIRECTIVES  (ONE TO FOUR PARAMETERS
      234                            *             ARE INCLUDED IN THE DIRECTIVE KEYIN)
      235                            *
      236                            *                  THE DIRECTIVE KEYIN PRODUCES A '>' PROMPT TO INDICATE
      237                            *                  INPUT OF PARAMETERS IS EXPECTED.
      238                            *
      239                            *             A. 'DM' DIRECTIVE DISPLAYS THE CONTENTS OF CORE
      240                            *                  MEMORY ON THE 'MESSAGE OUT DEVICE'.
      241                            *
      242                            *                  DM>,, OR DM>N/L (N/L= LINE FEED) DISPLAYS
      243                            *                  THE ENTIRE CONTENTS OF MEMORY STARTING AT X'10'
      244                            *
      245                            *                  DM>A,B, OR DM>A,B N/L DISPLAYS:
      246                            *                       1. CONTENTS OF LOCATIONS A THRU B IF B IS
      247                            *                          LARGER THAN A
      248                            *                       2. CONTENTS OF B LOCATIONS STARTING AT A IF
      249                            *                          B IS SMALLER THAN A
      250                            *                            (A AND B ARE HEX VALUES)
      251                            *             B. 'RM'DIRECTIVE DISPLAYS THE CONTENTS OF CORE AND
      252                            *                  OPENS EACH CELL FOR ALTERATION.
      253                            *
      254                            *
      255                            *                  RM>,, OR RM> N/L DISPLAYS THE FIRST 8 LOCATIONS IN
      256                            *                  MEMORY (STARTING AT X'10') AND THE TTY LINES UP
      257                            *                  WITH THE DISPLAY FOR X'10' WAITING FOR INPUT.
      258                            *                  A COMMA OR AN EOF SPACES TO THE NEXT FIELD
      259                            *                  THIS CONTINUES FOR 8 FIELDS.  A N/L TERMINATES THE
      260                            *                  THAT LINE AND ALLOWS DISPLAY OF THE NEXT 8.
      261                            *
      262                            *                  RM>A,B, OR RM>A,B N/L DISPLAYS FOR ALTERATION:
      263                            *                       1. CONTENTS OF LOCATIONS ATHRU B IF B IS
      264                            *                          LARGER THAN A
      265                            *                       2. CONTENSTS OF B LOCATIONS STARTING AT A IF
      266                            *                          B IS SMALLER THAN A
      267                            *
      268                            *             C.  'LOG'  DIRECTIVE ALLOWS LOGON OF A REMOTE OBSERVER
      269                            *                 LOG>DIAG,5,1  SPECIFIES A LOGON PASSWORD OF 'DIAG',
      270                            *                 A COC ADDRESS OF '5' , AND A DIO ADDRESS OF '1'
      271                            *
      272                            *             D.  'BOOT' DIRECTIVE ALLOWS THE CONTROLLER TO INITIATE
      273                            *                 A BOOT LOAD FROM A TERMINAL. IT EFFECTIVELY DOES
      274                            *                 THE SAME AS THE 'LOAD' SWITCH ON THE PCP.
      275                            *                 BOOT>80 SAYS LOAD THE PROGRAM ON DEVICE '80'
      276                            *                 (USUALLY THE MAG TAPE LIBRARY TAPE) BUT MAINTAIN
      277                            *                 THE PRESENT CONTROLLER TERMINAL AS CONTROLLER
      278                            *
      279                            *                 BOOT>N/L  RELOADS FROM THE 'LOAD DEVICE'
      280                            *
      281                            *
      282                            *             E. 'STOP' ALLOWS THE USER TO SIMULATE THE ADDRESS STOP
      283                            *                 FUNCTION OF THE PCP.
      284                            *                 STOP>2FE  SAYS SAVE THE PSD AND REGISTER CONTENTS
      285                            *                 WHEN THE INSTRUCTION AT HEX LOCATION 2FE IS
      286                            *                 ABOUT TO BE EXECUTED, DISPLAY THE ADDRESS OF THE
      287                            *                 STARTING LOCATION OF THE 18 WORD BLOCK (FIRST WORD
      288                            *                 IS REG.0, LAST IS PSW2) , AND GO TO GUIDE IDLE
      289                            *
      290                            *                 STOP>N/L DELETES THE STOP FEATURE
      291                            *
      292                            *             F. 'BR' ALLOWS THE USER TO SEND PROGRAM EXECUTION TO
      293                            *                 ANY MEMORY LOCATION (BRANCH TO FEATURE)
      294                            *                 BR>6000  WOULD CAUSE AN IMMEDIATE BRANCH TO HEX
      295                            *                 LOCATION 6000 (HEX)  ON KEYIN OF THE RUN CONTROL
      296                            *                 CHARACTER '#'

      298                                     SYSTEM   SIG9P

      300         00000048           KPLIMIT  SET      72                72 COLUMNS OF CHARACTER INPUT
      301         00000003           FLIMIT   SET      3                 MAXIMUM NUMBER OF SEQUENTIAL FAULTS
      302                            *                                 THAT MAY BE HANDLED WITHOUT RECOVERY.
      303                            *
      304                            *
      305                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      306                            *        CODE WHICH CALLS THE CONVERSION ROUTINE 'GEHTE',
      307                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      308                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      309                            *        IN THE MACHINE WORD.
      310                            *
      311                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      312                            *
      313                            * LABELOPT  GEHTECON  LABELADDR      OPTIONAL COMMENTS
      314                            *
      315                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      316                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      317                            *                  EXECUTION LOCATION COUNTER;
      318                            *
      319                            *                  GEHTECON  IS THE PROCEDURE REFERENCE;
      320                            *
      321                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      322                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      323                            *                  'EBCDIC'.
      324                            *
      325         00000000           GEHTECON CNAME
      326                                     PROC
      327                            *
      328                                     ERROR,0,TCOR(S:UFV(AF),S:RAD,S:INT)=0 ;
      329                               '**AF LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      330                            *
      331                                     ERROR,0,TCOR(AF,S:INT)&(AF=X6) ;
      332                               '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      333                            *
      334                                     ERROR,0,NUM(AF)~=1 ;
      335                                     '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      336                            *
      337                            *
      338                            LF       BAL,X6   GEHTE
      339                            *
      340                                     DO       AFA(1)            INDIRECT CALL
      341                            *
      342                                     GEN,1,9,22 1,0,AF(1)
      343                            *
      344                                     ELSE
      345                            *
      346                                     GEN,10,22 0,AF(1)
      347                            *
      348                                     FIN
      349                            *
      350                                     PEND
      351                            *
      352                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      353                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      354                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      355                            *
      356                            *        RETURN IS TO THE PROCEDURE REFERENCE
      357                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      358                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      359                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      360                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      361                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH
      362                            *        ONE WORD ONLY, USE:
      363                            *
      364                            *        LW,REG.  0,X6              LOAD MOST SIGNIFICANT
      365                            *            OR
      366                            *        LW,REG.  1,X6              LOAD LEAST SIG. HALF WORD
      367                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    7
A     369                            *
      370                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      371                            *        CODE WHICH CALLS THE CONVERSION ROUTINE 'ETH',
      372                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      373                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      374                            *        IF THE CHARACTER STRING TO BE CONVERTED
      375                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      376                            *        THE DESIGNER MUST   LIMIT HIS SELECTION TO
      377                            *        THE RANGE X8      THROUGH X72      (CIRCULAR);
      378                            *        OTHERWISE UNDEFINED OPERATION WILL RESULT.
      379                            *
      380                            *                 ETHCON,CHAR    LABEL,DISP
      381                            *
      382                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      383                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      384                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      385                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      386                            *                          ( MUST BE BETWEEN 0 AND 3 )
      387                            *
      388         00000000           ETHCON   CNAME
      389                                     PROC
      390                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      391                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      392                            *
      393                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      394                            A        SET      0
      395                            *
      396                            *
      397                                     ERROR,0,A~=CF(2) ;
      398                              '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      399                            *
      400                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      401                            *
      402                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      403                            B        SET      0
      404                            *
      405                            *
      406                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      407                              '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      408                            *
      409                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD,S:INT)=0 ;
      410                               '**AF(1) LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      411                            *
      412                                     ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      413                                     (AF(1)=X3)) ;
      414                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      415                            *
      416                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      417                            *
      418                            D        SET      TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      419                                     |(AF(3)=X3))&NUM(AF)>2
      420                            *
      421                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      422                                   '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      423                            *
      424                            E        SET      C|D               'OR' THE RESULTS
      425                            *
      426                            LF       BAL,X6   ETH               GO TO CONVERSION ROUTINE
      427                                     DO       TCOR(AF(1),S:INT) DO IF REGISTER
      428                            *
      429                                     GEN,8,22,2 A,AF(1),B
      430                            *
      431                                     ELSE     RELOCATABLE       ADDRESS
      432                            *
      433                                     GEN,8,24 A,BA(AF(1))+B
      434                            *
      435                                     FIN
      436                            *
      437                            *
      438                                     DO       (NUM(AF)=3)&TCOR(S:UFV(AF(3)),S:RAD)&(E=0)
      439                            *
      440                                     GEN,32   AF(3)
      441                            *
      442                                     XPSD,8   ERR1PTR           INSTRUCTION EXECUTED AS A RESULT
      443                            *                                   OF NOT FINDING A MATCH IN THE
      444                            *                                   HEXADECIMAL CONVERSION TABLE.
      445                            *
      446                                     FIN
      447                            *
      448                                     PEND
      449                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    8
A     452                            *
      453         00000002           PRINT    CNAME    2,PRINTER
      454         00000001           TYPE     CNAME    1,TYPER
      455                                     PROC
      456                            *
      457                                     LOCAL    A
      458                            *
      459                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      460                                     '**CF(2) MUST BE POSITIVE INTEGER**'
      461                            *
      462                                     ERROR,0,NUM(CF)>3 ;
      463                                     '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      464                            *
      465                                     ERROR,0,NUM(AF)>NAME(1) ;
      466                                     '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      467                            *
      468                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      469                                     '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      470                            *
      471                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      472                            *
      473                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      474                                     CA,CB,CC,CD,CE,CF,F0,F1) FORMAT CODES
      475                            *
      476                                     ERROR,0,A=0 ;
      477                                     '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      478                            *
      479                                     ELSE
      480                            *
      481                            A        SET      0
      482                            *
      483                                     FIN
      484                            *
      485                            *
      486                            *
      487                            *
      488                            LF       BAL,X6   NAME(2)
      489                            *
      490                            *
      491                            *
      492                            *
      493                            *
      494                            *  CONTROL WORD FORMAT ... (SAME AS TABLE 3 WORD 4)
      495                            *
      496                            *        BITS 0-7   NUMBER OF LINES OF TEXT .. OR ..
      497                            *                 FORMAT CODE  (SET BIT 10)
      498                            *        BITS 8-9   O IF NORMAL TEXT  (TEXTC FORMAT)
      499                            *                   1 IF COMPRESSED TEXT
      500                            *                   2,3  NOT ALLOWED
      501                            *        BIT  10    0 IF BITS 0-7 ARE FORMAT (PRINT CMD WITH AN AF(2))
      502                            *                   1 FOR ANY OTHER COMMAND
      503                            *        BIT  11    0 IF FROM GUIDE OR A DIAGNOSTIC
      504                            *                   1 IF TEXT IS IN REMOTE GUIDE PACKAGE
      505                            *        BITS 12-15  MUST BE ZERO
      506                            *        BITS 16-31  BYTE ADDRESS OF FIRST LINE OF TEXT
      507                            *
      508                            *
      509                            *  CASE 1   PRINT     LABEL,FORMAT     PRINT ONE LINE WITH FORMAT
      510                            *
      511                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      512                                     P        AF(2),,,,,ABSVAL(BA(AF(1)))
      513                            *
      514                                     ELSE
      515                            *
      516                            *  CASE 2    PRINT,N    LABEL      PRINT N LINES (C0 FORMAT)
      517                            *            TYPE,N     LABEL      TYPE N LINES
      518                            *
      519                                     DO       NUM(CF)=2&CF(2)>0
      520                                     P        CF(2),,1,,,ABSVAL(BA(AF(1)))
      521                            *
      522                                     ELSE
      523                            *
      524                            *  CASE 3    PRINT,N,1  LABEL     PRINT N LINES OF COMPRESSED TEXT
      525                            *            TYPE,N,1   LABEL     TYPE N LINES OF COMPRESSED TEXT
      526                            *
      527                                     DO       NUM(CF)>2&CF(2)>0
      528                                     P        CF(2),1,1,,,ABSVAL(BA(AF(1)))
      529                            *
      530                                     ELSE
      531                            *
      532                            *  CASE 4    PRINT,,1   LABEL     PRINT 1 LINE OF COMPRESSED TEXT
      533                            *            TYPE,,1    LABEL     TYPE 1 LINE OF COMPRESSED TEXT
      534                            *
      535                                     DO       NUM(CF)>2&CF(2)=0
      536                                     P        1,1,1,,,ABSVAL(BA(AF(1)))
      537                            *
      538                                     ELSE
      539                            *
      540                            *   CASE 5   PRINT,   LABEL   OR     PRINT   LABEL
      541                            *            TYPE,    LABEL   OR     TYPE    LABEL
      542                            *
      543                            *        PRINT OR TYPE 1 LINE OF TEXT (NOT COMPRESSED)
      544                            *
      545                                     P        1,,1,,,ABSVAL(BA(AF(1)))
      546                            *
      547                            *
      548                                     FIN
      549                                     FIN
      550                                     FIN
      551                                     FIN
      552                            *
      553                            *
      554                                     PEND
      555         00000004           P        COM,8,2,1,1,4,16 AF
      556                            *
      557                            *
      558                            *
      559                            *
      560         000000C0           C0       EQU      X'C0'
      561         000000C1           C1       EQU      X'C1'
      562         000000C2           C2       EQU      X'C2'
      563         000000C3           C3       EQU      X'C3'
      564         000000C4           C4       EQU      X'C4'
      565         000000C5           C5       EQU      X'C5'
      566         000000C6           C6       EQU      X'C6'
      567         000000C7           C7       EQU      X'C7'
      568         000000C8           C8       EQU      X'C8'
      569         000000C9           C9       EQU      X'C9'
      570         000000CA           CA       EQU      X'CA'
      571         000000CB           CB       EQU      X'CB'
      572         000000CC           CC       EQU      X'CC'
      573         000000CD           CD       EQU      X'CD'
      574         000000CE           CE       EQU      X'CE'
      575         000000CF           CF       EQU      X'CF'
      576         000000F0           F0       EQU      X'F0'
      577         000000F1           F1       EQU      X'F1'

      579         00000000           TEXTCS   CNAME
      580                                     PROC
      581                                     DISP     %
      582                                     LIST     0
      583                            LF       TEXTC    AF
      584                                     LIST     1
      585                                     PEND

      587         00000000           CHECK    CNAME                                                      *G00
      588                                     PROC                                                       *G00
      589                                     ERROR,7,ABSVAL(AF(1))<ABSVAL(AF(2)) 'ORIGIN CONFLICT'      *G00
      590                                     DISP     ABSVAL(AF(1))-ABSVAL(AF(2))                       *G00
      591                                     PEND                                                       *G00

      593         00000000           R0       EQU      0
      594         00000001           R1       EQU      1
      595         00000001           X1       EQU      1
      596         00000002           R2       EQU      2
      597         00000002           X2       EQU      2
      598         00000003           R3       EQU      3
      599         00000003           X3       EQU      3
      600         00000004           R4       EQU      4
      601         00000004           X4       EQU      4
      602         00000005           R5       EQU      5
      603         00000005           X5       EQU      5
      604         00000006           R6       EQU      6
      605         00000006           X6       EQU      6
      606         00000007           R7       EQU      7
      607         00000007           X7       EQU      7
      608         00000008           R8       EQU      8
      609         00000009           R9       EQU      9
      610         0000000A           R10      EQU      10
      611         0000000B           R11      EQU      11
      612         0000000C           R12      EQU      12
      613         0000000D           R13      EQU      13
      614         0000000E           R14      EQU      14
      615         0000000F           R15      EQU      15
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE    9
A     617                            *
      618                            *   LOCATIONS X'40' THRU X'13F'
      619                            *
      620                            *        DURING LOADING, THIS AREA CONTAINS TEMPORARY INT/TRAP
      621                            *   HANDLERS (SEE 'LOAD%XPSDS' )  AND AFTER INITIALIZATION
      622                            *   IT CONTAINS XPSD'S POINTING AT A SERIES OF PRE-HANDLERS
      623                            *   STARTING AT LOCATION X'200' (SEE DESCRIPTION BELOW).

      625                            *  LOCATIONS X'140' THRU X'1FF'
      626                            *
      627                            *        THIS AREA IS RESERVED FOR SAVING THE UNEXPECTED TRAP
      628                            *          OR INTERRUPT MESSAGES.  IF MORE THAN ONE TRAP OR INT.
      629                            *          OCCURS, THE MESSAGES ARE STORED HERE AND THEN DISPLAYED
      630                            *          IN REVERSE ORDER (IE. LAST ONE TO OCCUR DISPLAYED FIRST)
      631                            *
      632                            *
      633                            *
      634                            *
      635                            *  DURING INITIALIZATION OF GUIDE, THE XPSD'S PLACED IN THE TRAP AND
      636                            *  INTERRUPT LOCATIONS (X'40' - X'13F') BY THE LOADER
      637                            *  ARE OVER LAID BY XPSD'S POINTING TO A SERIES OF PRE-HANDLERS
      638                            *  EACH 8 WORDS IN LENGTH LOCATED IN THE AREA BETWEEN X'200' AND
      639                            *  X'387'.  FORMAT OF THE PREHANDLER IS AS BELOW (FOR X'40')
      640                            *
      641                            * LOCATION
      642                            *  200   DATA     0                 EXISTING 'PSD'
      643                            *  201   DATA     0                  STORED HERE.
      644                            *  202   DATA     %+2               NEW 'PSD' HERE
      645                            *  203   DATA     X'7000000'        SET INTERRUPT INHIBITS
      646                            *
      647                            *  204   STW,R2   %+3               TEMPORARILLY  SAVE LINK REGISTER
      648                            *  205   BAL,R2   HANDLER             GO TO COMMON ROUTINE.
      649                            *  206   DATA     0                 R1  WILL BE SAVED HERE
      650                            *  207   DATA     0                 R2  IS SAVED HERE.
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   10
A     652                            *  THE FOLLOWING TABLE LISTS THE LOCATION OF THE PRE-HANDLERS
      653                            *     FOR THE RESPECTIVE TRAP/INTERRUPTS
      654                            *
      655                            *     LOCATION              FUNCTION
      656                            *        200      40 TRAP           NON-ALLOWED OPERATION
      657                            *        208      41 TRAP           UNIMPLEMENTED INSTR. (DECIMAL)
      658                            *        210      42 TRAP           PUSH-DOWN STACK LIMIT
      659                            *        218      43 TRAP         FIXED PT. ARITH.
      660                            *        220      44 TRAP           FLOATING PT. ARITH.
      661                            *        228      45 TRAP           DECIMAL ARITH.
      662                            *        230      46 TRAP           WATCHDOG TIMER RUNOUT
      663                            *        238      47 TRAP              NOT USED
      664                            *        240      48 TRAP           CALL 1
      665                            *        248      49 TRAP           CALL 2
      666                            *        250      4A TRAP           CALL 3
      667                            *        258      4B TRAP           CALL 4
      668                            *        260      4C TRAP           PARITY ERROR
      669                            *        268      4D TRAP           INSTR. EXCEPTION
      670                            *        270      4E TRAP              NOT USED
      671                            *        278      4F TRAP              NOT USED
      672                            *
      673                            *        280      50 INT.           POWER ON
      674                            *        288      51 INT.           POWER OFF
      675                            *        290      52 INT.           COUNTER PULSE 1
      676                            *        298      53 INT.                         2
      677                            *        2A0      54 INT.                         3
      678                            *        2A8      55 INT.                         4
      679                            *        2B0      56 INT.           PROCESSOR FAULT
      680                            *        2B8      57 INT.           MEMORY FAULT
      681                            *        2C0      58 INT.           COUNTER ZERO 1
      682                            *        2C8      59 INT.                        2
      683                            *        2D0      5A INT.                        3
      684                            *        2D8      5B INT.                        4
      685                            *        2E0      5C INT.           INPUT/OUTPUT
      686                            *        2E8      5D INT.           CONTROL PANEL
      687                            *        2F0      5E INT.              UNASSIGNED
      688                            *        2F8      5F INT.              UNASSIGNED
      689                            *
      690                            *        300      60 INT.           EXTERNAL GROUP 2, LEVEL 0
      691                            *        308      61 INT.           EXTERNAL GROUP 2, LEVEL 1
      692                            *        310      62 INT.           EXTERNAL GROUP 2, LEVEL 2
      693                            *        318      63 INT.           EXTERNAL GROUP 2, LEVEL 3
      694                            *        320      64 INT.           EXTERNAL GROUP 2, LEVEL 4
      695                            *        328      65 INT.           EXTERNAL GROUP 2, LEVEL 5
      696                            *        330      66 INT.           EXTERNAL GROUP 2, LEVEL 6
      697                            *        338      67 INT.           EXTERNAL GROUP 2, LEVEL 7
      698                            *        340      68 INT.           EXTERNAL GROUP 2, LEVEL 8
      699                            *        348      69 INT.           EXTERNAL GROUP 2, LEVEL 9
      700                            *        350      6A INT.           EXTERNAL GROUP 2, LEVEL A
      701                            *        358      6B INT.           EXTERNAL GROUP 2, LEVEL B
      702                            *        360      6C INT.           EXTERNAL GROUP 2, LEVEL C
      703                            *        368      6D INT.           EXTERNAL GROUP 2, LEVEL D
      704                            *        380-387  ...                                               *G00
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   11
A     706                            ************
      707                            *
      708                            *   THE FOLLOWING CODE IS PROVIDED IN CASE OF TRAPS OR INTERRUPTS
      709                            *      DURING LOADING:
      710                            *              1). TRAP QUAD WORDS  (3)  AND ASSOCIATED WAITS.
      711                            *              2). INTERRUPT QUAD WORD  (1)  AND ASSOCIATED WAIT.
      712                            *              3). XPSD'S IN LOCATIONS X'40' THRU X'13F'
      713                            *
      714                            *        AFTER 'GUIDE' INITIALIZATION, THE CORE BETWEEN X'140' AND
      715                            *            X'1FF' IS OVERLAID BY UNEXPECTED TRAP/INTERRUPT MESSAGES.
      716                            *            THESE MESSAGES ARE BUILT IN THIS BUFFER IN CASE
      717                            *            TRAPS OCCUR WITHIN GUIDE THAT WOULDN'T ALLOW THEM TO
      718                            *            BE DISPLAYED.  AFTER 3 TRAPS (OR IF BUFFER IS FILLED) THE
      719                            *            NORMAL ROUTINE IS BYPASSED AND THE MESSAGES ARE DISPLAYED.
      720                            *            IF ONLY 1 OR 2 TRAPS OCCUR, THE MESSAGES ARE
      721                            *            DISPLAYED AT THE END OF THE HANDLER ROUTINE.
      722                            *
      723   01 00200                          ORG      X'200'
            01 00200
      724                            *
      725   01 00200    00000000 A   TT40     DATA     0,0,%+2,0         TRAP 40 QUAD WORD
            01 00201    00000000 A
            01 00202    00000204
            01 00203    00000000 A
      726   01 00204    2E000204              WAIT     %
      727   01 00205    00000200              DATA     %-5
      728                            *
      729                            *
      730   01 00206    00000000 A   TT46     DATA     0,0,%+2,0         TRAP 46 QUAD WORD
            01 00207    00000000 A
            01 00208    0000020A
            01 00209    00000000 A
      731   01 0020A    2E00020A              WAIT     %
      732   01 0020B    00000206              DATA     %-5
      733                            *
      734                            *
      735   01 0020C    00000000 A   TTRAP    DATA     0,0,%+2,0         TRAP QUAD WORD
            01 0020D    00000000 A
            01 0020E    00000210
            01 0020F    00000000 A
      736   01 00210    2E000210              WAIT     %
      737   01 00211    0000020C              DATA     %-5
      738                            *
      739                            *
      740   01 00212    00000000 A   TINT     DATA     0,0,%+2,0         INTERRUPT QUAD WORD
            01 00213    00000000 A
            01 00214    00000216
            01 00215    00000000 A
      741   01 00216    2E000216              WAIT     %
      742   01 00217    00000212              DATA     %-5

      744         01 00218           LOAD%XPSDS EQU    %
      745                            *
      746                            *        THE FOLLOWING XPSDS ARE LOADED INTO LOCATIONS X'40'
      747                            *   THRU X'13F' (AFTER HANDLERS ARE LOADED) TO POINT
      748                            *   AT THE PRECEEDING FOUR HANDLERS DURING LOADING.   THEY
      749                            *   ARE OVERLAID IN THE RECOVERY ROUTINE CALLED 'IDLINIT'
      750                            *
      751                            *
      752   01 00040                          ORG      X'40'
            01 00040
      753   01 00040    0F800200              XPSD,8   TT40              TRAP 40
      754         00000005                    DO       5
      755   01 00041    0F80020C              XPSD,8   TTRAP             TRAPS X'41' THRU X'45'
      756                                     FIN
            01 00042    0F80020C
            01 00043    0F80020C
            01 00044    0F80020C
            01 00045    0F80020C
      757                            *
      758   01 00046    0F800206              XPSD,8   TT46              TRAP X'46'
      759                            *
      760         00000009                    DO       9
      761   01 00047    0F80020C              XPSD,8   TTRAP             TRAPS X'47' THRU X'4F'
      762                                     FIN
            01 00048    0F80020C
            01 00049    0F80020C
            01 0004A    0F80020C
            01 0004B    0F80020C
            01 0004C    0F80020C
            01 0004D    0F80020C
            01 0004E    0F80020C
            01 0004F    0F80020C
      763                            *
      764         000000F0                    DO       240
      765   01 00050    0F800212              XPSD,8   TINT              INTERRUPTS X'50' THRU X'1FF'
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   12
A     770                            *
      771                            * GUIDE INITIALIZER
      772   01 00218                          ORG      LOAD%XPSDS
            01 00218
      773                            *   THE FOLLOWING CODE (TO X'388')   IS EXECUTED ONLY ONCE
      774                            *   AFTER LOADING AND IS THEN OVERLAID WITH TRAP PREHANDLERS.
      775                            *
      776                            *
      777         01 00218           GUIDE    EQU      %
      778   01 00218    3560047C              STW,X6   PROG%MSG%         SAVE ADDRESS OF PROG^RAM TEXT
      779   01 00219    6D000037 A            WD,0     X'37'
      780   01 0021A    02200030 A            LCI      3
      781   01 0021B    740004FC              STCF     IDLFLG            SET IDLE FLAG
      782   01 0021C    32600C73              LW,X6    CLK%XPSD
      783   01 0021D    3560005B A            STW,X6   CLOCK+6
      784   01 0021E    226FFFFF A            LI,X6    -1
      785   01 0021F    6D601100 A            WD,X6    X'1100'           DISARM ALL INTS.
      786   01 00220    32000555              LW,R0    COREH40           FIND XPSD FOR X'40'
      787   01 00221    221FFFD0 A            LI,X1    -48
      788   01 00222    35020070 A            STW,R0   X'40'+48,X1       STUFF GROUPS 0 AND 2
      789   01 00223    20000008 A            AI,R0    8
      790   01 00224    65100222              BIR,X1   %-2
      791   01 00225    221FFF30 A            LI,X1    -208
      792   01 00226    35020140 A            STW,R0   X'40'+X'100',X1   STUFF EXTERNAL GROUPS 3-F
      793   01 00227    65100226              BIR,X1   %-1               (ALL WITH SAME XPSD)
      794   01 00228    32600C72              LW,X6    CLK%CNT%MTW
      795   01 00229    35600055 A            STW,X6   CLOCK
      796   01 0022A    3280047E              LW,R8    H1E000+1
      797   01 0022B    4B80047D              AND,R8   H1E000
      798   01 0022C    358003B2              STW,R8   #WORD%BIAS
      799   01 0022D    30800008 A            AW,R8    R8
      800   01 0022E    30800008 A            AW,R8    R8
      801   01 0022F    358003B1              STW,R8   #BYTE%BIAS
      802   01 00230    221004D0              LI,R1    REGISTERS@RUN
      803   01 00231    6A600AB5              GEHTECON R1                CONVERT ADDR TO EBCDIC
            01 00232    00000001 A
      804   01 00233    32EC0000 A            LW,R14   0,X6              SAVE IN REG. FOR REMOTE USE
      806   01 00234    32FC0001 A            LW,R15   1,X6              *
      807   01 00235    35E0094C              STW,R14  REG%MSG+5         STUFF REGISTER MESSAGE
      808   01 00236    35F0094D              STW,R15  REG%MSG+6         *
      809   01 00237    35E00281              STW,R14  PROGMSG1+6        STUFF PROGRAM MESSAGE
      810   01 00238    35F00282              STW,R15  PROGMSG1+7        *

      812   01 00239    6C000000 A            RD,0     0                 SAMPLE HARDWARE SSWS            *G02
      813   01 0023A    74000392              STCF     #SENSE             AND SAVE                       *G02
      814   01 0023B    740005F2              STCF     SENSE                                             *G02

      816   01 0023C    32101004              LW,X1    #LOADER@
      817   01 0023D    32B01001              LW,R11   #TABLE3@          FIND DIAGNOSTIC TABLE 3
      818   01 0023E    30B00DC6              AW,R11   HF0000000
      819   01 0023F    68300430              BEZ      GUIDE4            SKIP IF DATA-CHAIN LOADED (?)   *G02

      821   01 00240    32620000 A            LW,X6    0,X1
      822   01 00241    32020005 A            LW,R0    5,X1              FIND LOAD DEVICE ADDRESS
      823   01 00242    350003B3              STW,R0   #LOADADDR
      824   01 00243    30601004              AW,X6    #LOADER@          SET X6= ADDRESS OF 'TABLE'
      825   01 00244    320C0000 A            LW,R0    0,X6              FETCH MTL ADDRESS FROM LOADER
      826   01 00245    35000395              STW,R0   #MTLFLAG

        2*  01 00246    32000262              LW,R0    MEMXPSD           PREPARE TO DO A TRUE            *H02
        3*  01 00247    35000040 A            STW,R0   X'40'              4KK-WORD MEMORY SCAN           *H01

        5*  01 00248    22001FFF A            LI,R0    X'1FFF'                                           *H02
        6*  01 00249    32100263              LW,R1    MEMABSM                                           *H02

        8*  01 0024A    0E000256              LPSD,0   MEMPSD0           ATTEMPT TO SET MA               *H02

       10*  01 0024B    0F000258     MEMQ     XPSD,0   MEMPSD1           SAVE MA AND RESET               *H02

       12*  01 0024C    32200257     MEMR     LW,R2    MEMPSD0+1         SKIP IF ORIGINAL ATTEMPT        *H02
       13*  01 0024D    31200259              CW,R2    MEMPSD1+1          TO SET MA WAS SUCCESSFUL       *H02
       14*  01 0024E    68300250              BE       %+2                                               *H02

       16*  01 0024F    2211FFFF A            LI,R1    X'1FFFF'          ELSE LIMIT SCAN TO 128K         *H02

       18*  01 00250    B2300000 A   MEMS     LW,R3    *R0               ATTEMPT TO FETCH WORD           *H02

       20*  01 00251    31000001 A            CW,R0    R1                IF NO TRAP, SEE                 *H02
       21*  01 00252    68300255              BE       MEMS0              IF END OF MEMORY REACHED       *H02

       23*  01 00253    20002000 A            AI,R0    X'2000'           IF NOT END OF MEMORY,           *H02
       24*  01 00254    68000250              B        MEMS               UPDATE BY 8K AND CONTINUE      *H02

       26*  01 00255    0E000260     MEMS0    LPSD,0   MEMPSD3           RESET MA                        *H02

       28*                                    BOUND    8                                                 *H02
       29*  01 00256    0000024B     MEMPSD0  DATA     MEMQ,X'07800000'  SET MA                          *H02
            01 00257    07800000 A
       30*  01 00258    00000000 A   MEMPSD1  DATA     0,0                                               *H02
            01 00259    00000000 A
       31*  01 0025A    0000024C              DATA     MEMR,X'07810000'  SET MA AND EA                   *H02
            01 0025B    07810000 A
       32*  01 0025C    00000000 A   MEMPSD2  DATA     0,0                                               *H02
            01 0025D    00000000 A
       33*  01 0025E    00000264              DATA     MEMT,X'07000000'  CLEAR MA AND EA                 *H02
            01 0025F    07000000 A
       34*  01 00260    00000265     MEMPSD3  DATA     MEMU,X'07000000'  CLEAR MA AND EA                 *H02
            01 00261    07000000 A

       36*  01 00262    0F00025C     MEMXPSD  XPSD,0   MEMPSD2           TRAP 40                         *H01
       37*  01 00263    003FFFFF A   MEMABSM  DATA     4*1024*1024-1      FULLY IMPLEMENTED MEMORY       *H01

       39*  01 00264    200FE000 A   MEMT     AI,R0    -X'2000'          DECREMENT TO LAST GOOD BANK     *H02
       40*  01 00265    350003AA     MEMU     STW,R0   #MAXMEM            SET TRUE GUIDE MEMORY LIMIT    *H01

       42*  01 00266    32000555              LW,R0    COREH40           RESET TRAP 40                   *H01
       43*  01 00267    35000040 A            STW,R0   X'40'                                             *H01

      830   01 00268    320C0004 A            LW,R0    4,X6              FETCH TTY ADDR. FROM LOADER
      831   01 00269    CD000000 A            TIO,0    *R0               TEST IF IT IS THERE
      832   01 0026A    68C0026D              BCR,12   %+3               BRANCH IF YES
      833   01 0026B    2E000000 A            WAIT     R0
      834   01 0026C    68000269              B        %-3

      836   01 0026D    32300000 A            LW,X3    R0
      837   01 0026E    35300396              STW,X3   #TOADDR           SAVE KSR ADDRESS
      838   01 0026F    35300397              STW,X3   #PRTADDR           MAKE LP ADDRESS SAME           *G02
      839   01 00270    68000401              B        GUIDE#A                                           *G02

      841         01 00271           PROGMSG  EQU      %
      842         01 00271                    TEXTCS   S:PT('USING ',TITLE)                              *G00
      843         01 0027A                    TEXTCS   ' '
      844                            PROGMSG1 TEXTCS   ;
      845         01 0027B                    'RUN REGISTERS SAVED AT XXXXXXXX, RUN PSD FOLLOWS REGISTERS'
      846                            PROGMSG2 TEXTCS   ;
      847         01 0028A                    'PATCH AREA = 27 WORDS FROM XXXXXXXX'
      848         01 00293                    TEXTCS   ' '
      849                            NOREMOTE TEXTCS   ;
      850         01 00294                    '    NO REMOTE CAPABILITY PROVIDED'
      851         01 0029D                    TEXTCS   '  '

      853         000000EA                    CHECK    X'388',%          MUST NOT OVERFLOW NEXT AREA     *G00
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   13
A     855                            *
      856   01 00388                          ORG      X'388'
            01 00388
      857                            *
      858         01 00388           HANDLER%POINTER EQU %               LOCATION IMMEDIATELY
      859                            *                                           FOLLOWING PRE-HANDLERS.
      860                            *
      861                            *         BYTE 0= NUMBER OF TRAPS SINCE TRAP ROUTINE EXITED LAST
      862                            *         BYTES 1-3= ADDRESS OF 'HANDLER'
      863                            *
      864                            *  THE 8 LOCATIONS IMMEDIATELY FOLLOWING 'HANDLER%POINTER' CONTAIN:
      865                            *
      866                            * LOCATION           CONTENTS
      867                            * --------       -----------------
      868                            *  389            ADDR. OF BUFFER #1           EACH BUFFER IS
      869                            *  38A                    BUFFER #2            18 WORDS OF
      870                            *  38B                     BUFFER #3           STORAGE FOR REGS.
      871                            *
      872                            *  38C            TCC AND ADDR. OF PRE-HANDLER+6 (FIRST TRAP)
      873                            *  38D                                         (2ND TRAP)
      874                            *  38E                                         (3RD TRAP)
      875                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   14
A     877                            *
      878   01 00392                 #TABLE1A ORG      X'392'
            01 00392
      879   01 00392    00000000 A   #SENSE   DATA     0                 SENSE SWITCH CONTROL WORD.
      880   01 00393    00000000 A   #HDRFLG  DATA     0                 THIS WORD IS ZERO-ED BY EACH ENTRY
      881                            *                                   INTO THE PRINT  OR TYPE
      882                            *                                   ROUTINES.  DESIGNERS MAY ENTER
      883                            *                                   INTO THE WORD THE ADDRESS OF
      884                            *                                   THE LAST HEADER 'TEXTC' OR ANY
      885                            *                                   OTHER FLAG DESIRED, TO KEEP
      886                            *                                   TRACK OF WHEN A NEW HEADER
      887                            *                                   NEEDS TO BE OUTPUT.
      888   01 00394    00000000 A   #LOADFLAG DATA    0
      889   01 00395    00000000 A   #MTLFLAG DATA     0                 NON ZERO IF LOADED FROM TAPE
      890   01 00396    00000001 A   #TOADDR  DATA     1
      891   01 00397    00000002 A   #PRTADDR DATA     2
      892   01 00398    00000000 A   #COCADDR DATA     0
      893   01 00399    00000000 A   #OUTPTR  DATA     0
      894   01 0039A    00000000 A   #PAKDEX  DATA     0
      895   01 0039B    00000000 A   #INDEX   DATA     0
      896   01 0039C    00000000 A   #PARAM%H1 DATA    0                 IMMEDIATE PARAM #1 (HEX)
      897   01 0039D    00000000 A   #PARAM%H2 DATA    0                 #2
      898   01 0039E    00000000 A   #PARAM%H3 DATA    0                 #3
      899   01 0039F    00000000 A   #PARAM%H4 DATA    0                 #4
      900   01 003A0    00000000 A   #TESTINIT DATA    0                 DIAGNOSTIC CAN EXECUTE A 'LCF'
      901                            *                                   ON THIS LOCATION IMMEDIATELY
      902                            *                                   PRECEDING THE 'BAL,X6'    TO
      903                            *                                   RETURN FROM THE 'INITIAL'
      904                            *                                   ROUTINE.  IF BITS 0-3 ARE ZERO
      905                            *                                   TESTING WILL COMMENCE WITHOUT
      906                            *                                   USER INTERVENTION; IF ANY BIT 1-3
      907                            *                                   IS A '1', THE TESTING ADDRESS WILL
      908                            *                                   BE ESTABLISHED BUT THE USER MUST
      909                            *                                   KEY-IN '#' TO PROCEDE INTO
      910                            *                                   TESTING.
      911   01 003A1    00000000 A   #STATUS  DATA     0
      912   01 003A2    00000000 A   #PARAM1  DATA,8   0                 IMMEDIATE PARAM #1 (EBCDIC)
                        00000000
      913   01 003A4    00000000 A   #PARAM2  DATA,8   0                 #2
                        00000000
      914   01 003A6    00000000 A   #PARAM3  DATA,8   0                 #3
                        00000000
      915   01 003A8    00000000 A   #PARAM4  DATA,8   0                 #4
                        00000000
      916   01 003AA    00003FFF A   #MAXMEM  DATA     X'3FFF'           MEM. SIZE (FROM LOADER)
      917   01 003AB    00000C42     #SAMPLE  DATA     SAMPLEQW          I/O SAMPLE QUAD WORD ADDRESS
      918   01 003AC    F0000000 A   #BRKOUT  DATA     X'F0000000'
      919   01 003AD    00000000 A   #DM%START DATA    0
      920   01 003AE    00000000 A   #DM%END  DATA     0
      921   01 003AF    00000000 A   #TRAPLINK DATA    0
      922   01 003B0    00000000 A            DATA     0
      923   01 003B1    00000000 A   #BYTE%BIAS DATA   0                 RELOCATION BIAS (BYTE ADDRESSING)
      924   01 003B2    00000000 A   #WORD%BIAS DATA   0                 (WORD ADDRESSING)
      925   01 003B3    00000000 A   #LOADADDR DATA    0                 LOADING DEVICE ADDRESS
      926   01 003B4    00000000 A   #TTYBC   DATA     0                 COUNT OF LAST INPUT CHAR. PROCESSED
      927         01 003B4           TTYBC    EQU      #TTYBC
      928   01 003B5    00000000 A   #DIOADDR DATA     0                 COC DIO ADDRESS                 *G02

      930   01 003C2                 #TABLE1B ORG      X'3C2'
            01 003C2
      931   01 003C2    00000B11     #ETH%    DATA     ETH
      932   01 003C3    00000AD6     #HTE%    DATA     HTE
      933   01 003C4    00000AF5     #BTE%    DATA     BTE
      934   01 003C5    00000AA4     #DISUSER% DATA    DISUSER
      935   01 003C6    00000AAC     #ENUSER% DATA     ENUSER
      936   01 003C7    00000CE8     #ARMUSER DATA     ARMUSER
      937   01 003C8    00000218     #GUIDE%  DATA     GUIDE
      938   01 003C9    000004EB     #FIDLE%  DATA     FIDLE
      939   01 003CA    000004E0     #RUNADDR% DATA    RUNADDR
      940   01 003CB    000004FD     #RETURN% DATA     AMPER:RET
      941   01 003CC    00000B70     #TYPER%  DATA     TYPER
      942   01 003CD    00000B74     #PRINTER% DATA    PRINTER
      943   01 003CE    000004A2     #ERRTEXT% DATA    ERRTEXT
      944   01 003CF                          RES      1
      945   01 003D0    00000B6E     #ERR1PTR% DATA    ERR1PTR
      946   01 003D1                          RES      1
      947   01 003D2    00000DD1     #VALTAB% DATA     VALTAB
      948   01 003D3    00000936     #DMENTRY% DATA    DMENTRY
      949   01 003D4    00000621     #P%MODE% DATA     P%MODE
      950   01 003D5    00001044     #GUIDEBUF% DATA   BA(OUTPUT)
      951   01 003D6    00000B57     #SCANPARAM% DATA  SCANPARAM
      952   01 003D7    0000061E     #S%MODE% DATA     S%MODE
      953   01 003D8    00000DF5     #COCSTATE% DATA   COCSTATE
      954                            *
      955   01 003E4                          ORG      X'3E4'
            01 003E4
      956                            *
      957                            *  THE FOLLOWING LOCATIONS ARE RESERVED FOR VALIDATION TABLE
      958                            *        POINTERS.
      959                            *
      960   01 003E4    04       A   VALBIT   DATA,1   4,1,6             FIELD SIZE IN BITS FOR NUMBER
            01 003E4 1  01       A
            01 003E4 2  06       A
      961                            *                                   OF CHARACTERS IN CORRESPONDING
      962                            *                                   VALDEX  BYTE POSITION.
      963                                     BOUND    8
      964                            *
      965         01 003E6           VALDEX   EQU      %
      966                            *
      967   01 003E6    F0       A            DATA,1   -16,-2,-36        HEX, BINARY,ALPHANUMERIC
            01 003E6 1  FE       A
            01 003E6 2  DC       A
      968                            *
      969                                     BOUND    8
      970                            *
      971         01 003E8           VALTYPE  EQU      %
      972                            *
      973   01 003E8    10003744     HEX      GEN,8,24 16,BA(VALTAB)     POINTERS FOR TABLE FOR HEX AND
      974   01 003E9    02003744     BIN      GEN,8,24 2,BA(VALTAB)      TABLE FOR BINARY VALIDATION
      975   01 003EA    24003744     ALPHANUM GEN,8,24 36,BA(VALTAB)     ALPHANUMERIC TABLE
      976                            *
      977                            *
      978                            *
      979                            *
      980   01 003F0                 DCA      ORG      X'3F0'
            01 003F0
      981         00000010                    DO       16
      982   01 003F0    00000000 A            DATA     0
      983                                     FIN
            01 003F1    00000000 A
            01 003F2    00000000 A
            01 003F3    00000000 A
            01 003F4    00000000 A
            01 003F5    00000000 A
            01 003F6    00000000 A
            01 003F7    00000000 A
            01 003F8    00000000 A
            01 003F9    00000000 A
            01 003FA    00000000 A
            01 003FB    00000000 A
            01 003FC    00000000 A
            01 003FD    00000000 A
            01 003FE    00000000 A
            01 003FF    00000000 A
      984                            *    STANDARD ASSIGNMENTS
      985                            *        DCA+2 = DIAGNOSTIC TEST IN PROGRESS (HEX NUMBER)
      986                            *        DCA+3 = DIAGNOSTIC SUBTEST IN PROGRESS (HEX #)
      987                            *
      988                            *
      989                            *
      990                            *
      991                            *
      992   01 01000                 #TABLE2  ORG      X'1000'
            01 01000
      993                            *
      994                            *
      995                            *
      996                            *    TABLE 2     THE FOLLOWING LOCATIONS REFERENCE LABELS IN THE
      997                            *                 USER PROGRAM AND ARE ALTERED BY LOADING THE USER
      998                            *                 PROGRAM OVER THEM.
      999                            *
     1000                            *
     1001   01 01000    000005DD     #INITIAL@ DATA    INITDIAG+10
     1002   01 01001    00000000 A   #TABLE3@ DATA     0
     1003   01 01002    00000000 A   #PLINEIN@ DATA    0
     1004   01 01003    00000000 A   #DIAG@   DATA     0
     1005   01 01004    00000000 A   #LOADER@ DATA     0                 ADDRESS OF LOADER
     1006   01 01005    00000000 A   #OUTBUF@ DATA     0                 ADDRESS OF DESIGNER'S OUTPUT BUFFER
     1007   01 01006    00000000 A   #ONLINE@ DATA     0                 ADDRESS OF IOP TEST ROUTINE THAT
     1008                            *                          PUTS THE OUTPUT DEVICE IOP ONLINE IF OFF
     1009   01 01007    00000000 A   #DECOMP@ DATA     0                 ADDRESS OF DECOMPRESSION ROUTINE
     1010   01 01008    00000000 A   #SAVE%INT@ DATA   0
     1011   01 01009    00000000 A   #RES%INT@ DATA    0
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   15
A    1013   01 00400                          ORG      X'400'
            01 00400
     1014                            *
     1015   01 00400    0E8004E6     ABSRECV  LPSD,8   IDLINIT+2         THIS INSTRUCTION WILL NORMALLY
     1016                            *                                   BE EXECUTED ONLY AS A RESULT
     1017                            *                                   OF SETTING THE COMPUTE SWITCH TO
     1018                            *                                   'IDLE', ENTERING THE ADDRESS INTO
     1019                            *                                   'PSW1' AND THEN SETTING THE COMPUTE
     1020                            *                                   SWITCH TO 'RUN'

     1022                            *
     1023                            *    GUIDE INITIALIZER (CONTINUED FROM HOMESPACE)
     1024                            *
     1025                            *  THE FOLLOWING CODE IS EXECUTED ONCE AND THEN OVERLAID
     1026                            *        (TO LOCATION 'OVERLAY') BY GUIDE BUFFER STORAGE.

     1028         01 00401           GUIDE#A  EQU      %                                                 *G02
     1029   01 00401    22103FFF A            LI,R1    X'3FFF'
     1030   01 00402    311003AA              CW,R1    #MAXMEM
        1*  01 00403    68100430              BGE      GUIDE4            SKIP IF MEMORY<16K              *H01

     1033   01 00404    70201003              LC       #DIAG@
     1034   01 00405    68200408              BCR,2    %+3               BRANCH IF NOT MEMORY DIAG.
     1035                            *
     1036   01 00406    22603500              LI,X6    ABSRECV+X'3100'   ADDR. OF REMOTE (X'3500'+RELOC.)
     1037   01 00407    6800040A              B        %+3
     1038                            *
     1039   01 00408    32601004              LW,X6    #LOADER@
     1040   01 00409    206FF400 A            AI,X6    -X'C00'           ADDR. OF REMOTE PACKAGE

     1041   01 0040A    321C0000 A            LW,R1    0,X6
     1042   01 0040B    31100D73              CW,R1    PI
     1043   01 0040C    68300411              BE       %+5               BRANCH IF REMOTE LOCATED
     1044   01 0040D    22100000 A            LI,R1    0
     1045   01 0040E    35100DF5              STW,R1   COCSTATE          CLEAR REMOTE FLAGS (IF SET)
     1046   01 0040F    35100398              STW,R1   #COCADDR
     1047   01 00410    68000430              B        GUIDE4
     1048                            *
     1049                            *
     1050   01 00411    356006F7              STW,X6   REMOTE%BIAS
     1051   01 00412    32100006 A            LW,R1    X6                CONVERT TO BYTE BIAS
     1052   01 00413    30100001 A            AW,R1    R1
     1053   01 00414    30100001 A            AW,R1    R1
     1054   01 00415    35100C13              STW,R1   REM%BYTE%BIAS

     1056   01 00416    32101004              LW,X1    #LOADER@          GET REMOTE FLAG                 *G02
     1057   01 00417    3232000D A            LW,R3    13,X1              AND RESET PARAMETERS           *G02
     1058   01 00418    31300D73              CW,R3    PI                  ONLY IF REMOTE ENABLING       *G02
     1059   01 00419    69300430              BNE      GUIDE4               FLAG HAS BEEN SET            *G02

     1061   01 0041A    3232000F A            LW,R3    15,X1             COC IOP ADDRESS                 *G02
     1062   01 0041B    35300398              STW,R3   #COCADDR                                          *G02
     1063   01 0041C    32320011 A            LW,R3    17,X1             COC STATE                       *G02
     1064   01 0041D    72300003 A            LB,R3    R3                                                *G02
     1065   01 0041E    75300DF5              STB,R3   COCSTATE                                          *G02
     1066   01 0041F    32320012 A            LW,R3    18,X1             NUMBER OF CONTROLLING LINE      *G02
     1067   01 00420    35300DF3              STW,R3   COCLINE                                           *G02

     1069                            * SIMULATED SENSE SWITCHES NOT CURRENTLY                            *G02
     1070                            * USED (COULD BE INTEGRATED LATER ON)                               *G02

     1072   01 00421    32320010 A            LW,R3    16,X1             COC DIO ADDRESS                 *G02
     1073   01 00422    75A003B5              STB,R10  #DIOADDR                                          *G02

     1075   01 00423    6A6C0001 A            BAL,X6   1,X6              GO TO 'GUIDE3' IN REMOTE PACKAGE

     1077   01 00424    35200D84              STW,R2   COCXMIT%          PICK UP REMOTE ADDRESSES
     1078   01 00425    35300D85              STW,R3   LOGONMSG%         FROM REGISTERS
     1079   01 00426    35400D86              STW,R4   RECON%
     1080   01 00427    35500D87              STW,R5   SENSET%
     1081   01 00428    35700D88              STW,R7   SIOCOC%
     1082   01 00429    35800D89              STW,R8   TIOCOC%
     1083   01 0042A    35900D8A              STW,R9   ABORT%
     1084   01 0042B    35A00D83              STW,R10  ECHO%
     1086   01 0042C    35C00DF9              STW,R12  COCL%
     1087   01 0042D    35E00450              STW,R14  REM%MSG
     1088   01 0042E    35F00D82              STW,R15  REM%OFF                                           *G02
     1089   01 0042F    6A600CE8              BAL,X6   ARMUSER

     1091         01 00430           GUIDE4   EQU      %                                                 *G02
        1*  01 00430    35B00DE7              STW,R11  TABLE3END         (NEXT TABLE 3)                  *H00
     1092   01 00431    32601002              LW,X6    #PLINEIN@         FETCH BUFFER ADDRESS AND
     1093   01 00432    69300434              BCS,3    %+2
     1094   01 00433    EA600D8A              BAL,X6   *ABORT%
     1095   01 00434    30600006 A            AW,X6    X6                CONVERT TO BYTE ADDRESS
     1096   01 00435    30600006 A            AW,X6    X6                *
     1097   01 00436    35600A4C              STW,X6   RM%9+4            *
     1098                            *
     1099                            *      *********
     1100                            *      *       *
     1101         00000013                    CHECK    %,S:UFV(OUTPUT+19) 'OUTPUT' USED BY TYPE          *G00
     1102                            *      *       *
     1103                            *      *********
     1104   01 00437    22601000 A            LI,X6    X'1000'
     1105   01 00438    6D601200 A            WD,X6    X'1200'           ARM & ENABLE COUNTER 4
     1106   01 00439    3260047C     GUIDE3   LW,X6    PROG%MSG%
     1107   01 0043A    326C0000 A            LW,X6    0,X6              FETCH PROGTEXT WORD
     1108   01 0043B    702005F2              LC       SENSE
     1109   01 0043C    6810043F              BCR,1    %+3               BRANCH IF SENSE SWITCH 4 IS SET
     1110   01 0043D    22100001 A            LI,R1    1
     1111   01 0043E    75100006 A            STB,R1   X6                SET UP 1 LINE OF TEXT
     1112   01 0043F    35600441              STW,X6   %+2
     1113   01 00440    6A600B70              TYPE     %+1
            01 00441    01201108 A
     1114   01 00442    221004A3              LI,R1    USER%PATCH
     1115   01 00443    6A600AB5              GEHTECON R1
            01 00444    00000001 A
     1116   01 00445    321C0000 A            LW,R1    0,X6              STUFF PATCH ADDRESS IN MSG
     1117   01 00446    35100291              STW,R1   PROGMSG2+7
     1118   01 00447    321C0001 A            LW,R1    1,X6
     1119   01 00448    35100292              STW,R1   PROGMSG2+8
     1120   01 00449    702005F2              LC       SENSE
     1121   01 0044A    69100459              BCS,1    BUILD%PSD         SKIP MSG. IF SSW 4 SET
     1122   01 0044B    6A600B70              TYPE,5   PROGMSG
            01 0044C    052009C4 A
     1123   01 0044D    702005F2              LC       SENSE
     1124   01 0044E    69100459              BCS,1    BUILD%PSD         SKIP MESSAGES IF SSW4 SET
     1125                            *
     1126         01 00450           REM%MSG  EQU      %+1
     1127   01 0044F    6A600B70              TYPE,2   NOREMOTE
            01 00450    02200A50 A
     1128                            *
     1129                            *
     1130                            *
     1131   01 00451    702005F2              LC       SENSE
     1132   01 00452    69100459              BCS,1    BUILD%PSD         SKIP MESSAGES IF SSW4 SET
     1133   01 00453    3260047C              LW,X6    PROG%MSG%         FIND USER MODIFICATION LIST
     1134   01 00454    321C0001 A            LW,R1    1,X6
     1135   01 00455    68300459              BEZ      %+4               BRANCH IF NONE
     1136   01 00456    35100458              STW,R1   %+2
     1137   01 00457    6A600B74              PRINT    %+1               PRINT USER MODIFICATIONS
            01 00458    01201164 A
     1138   01 00459    22600E00     BUILD%PSD LI,X6   HANDLER
     1139   01 0045A    35600388              STW,X6   HANDLER%POINTER
     1140   01 0045B    221FFFFD A            LI,R1    -FLIMIT
     1141   01 0045C    2200045A              LI,R0    TRAPBUFF1+18
     1142   01 0045D    200FFFEE A            AI,R0    -18
     1143   01 0045E    3502038C              STW,R0   HANDLER%POINTER+FLIMIT+1,R1
     1144   01 0045F    6510045D              BIR,R1   %-2
     1145                            *
     1146                            *        FOLLOWING LOOP BEGINS STORING AT X'200'-2
     1147                            *
     1148   01 00460    221FFE76 A            LI,R1    -((HANDLER%POINTER-TRAP40%)+2) TOTAL LOCATIONS TO SPREAD
     1149                            *
     1150         01 00461           PSD%LOOP EQU      %
     1151                            *
     1152   01 00461    22000000 A            LI,R0    0
     1153   01 00462    35020388              STW,R0   HANDLER%POINTER,R1
     1154   01 00463    20100001 A            AI,R1    1
     1155   01 00464    35020388              STW,R0   HANDLER%POINTER,R1
     1156   01 00465    65100467              BIR,R1   %+2

     1158   01 00466    68000550              B        ABSINIT#                                          *G02

     1160   01 00467    35020388              STW,R0   HANDLER%POINTER,R1
     1161   01 00468    20100001 A            AI,R1    1
     1162   01 00469    35020388              STW,R0   HANDLER%POINTER,R1
     1163   01 0046A    20100001 A            AI,R1    1
     1164   01 0046B    32000481              LW,R0    TRAP40%%+2
     1165   01 0046C    35020388              STW,R0   HANDLER%POINTER,R1
     1166   01 0046D    20000008 A            AI,R0    8
     1167   01 0046E    35000481              STW,R0   TRAP40%%+2
     1168   01 0046F    20100001 A            AI,R1    1
     1169   01 00470    32000482              LW,R0    TRAP40%%+3
     1170   01 00471    35020388              STW,R0   HANDLER%POINTER,R1
     1171   01 00472    20100001 A            AI,R1    1
     1172   01 00473    32000483              LW,R0    TRAP40%%+4
     1173   01 00474    35020388              STW,R0   HANDLER%POINTER,R1
     1174   01 00475    20000008 A            AI,R0    8
     1175   01 00476    35000483              STW,R0   TRAP40%%+4
     1176   01 00477    20100001 A            AI,R1    1
     1177   01 00478    32000484              LW,R0    TRAP40%%+5
     1178   01 00479    35020388              STW,R0   HANDLER%POINTER,R1
     1179   01 0047A    65100461              BIR,R1   PSD%LOOP
     1180   01 0047B    6800047B              B        %                 PROGRAMMING ERROR
     1181                            *
     1182   01 0047C    00000000 A   PROG%MSG% DATA    0
     1183   01 0047D    0001E000 A   H1E000   DATA     X'1E000'
     1184   01 0047E    0000047E              DATA     %
     1185                            *
     1186                            *
     1187                            *
     1188                            *
     1189         01 0047F           TRAP40%% EQU      %%
     1190                            *
     1191   01 00200                          LOC      X'200'
            01 0047F
     1192                            *
     1193   01 00200    00000000 A   TRAP40%  DATA     0                 EXISTING 'PSD'
     1194   01 00201    00000000 A            DATA     0                 STORED HERE.
     1195   01 00202    00000204              DATA     %+2               NEW 'PSD' HERE
     1196   01 00203    07000000 A            DATA     7**24             SET INTERRUPT INHIBITS
     1197                            *
     1198   01 00204    35200207              STW,R2   %+3               TEMPORARILLY SAVE LINK REGISTER
     1199   01 00205    6A200E00              BAL,R2   HANDLER           GO TO COMMON ROUTINE.
     1200   01 00206    00000000 A            DATA     0                 R1 WILL BE SAVED HERE
     1201   01 00207    00000000 A            DATA     0                 R2 IS SAVED HERE.
     1202                            *
     1203                            *        ABOVE CODE IS STORED IN LOCATIONS X'200'          THROUGH
     1204                            *        X'387'          FOR USE BY TRAP AND INTERRUPT XPSD'S IN
     1205                            *        LOCATIONS X'40' THROUGH X'70', RESPECTIVELY (SUBJECT TO
     1206                            *        APPROPRIATE ADDRESS MODIFICATIONS TO INSURE INDIVIDUAL
     1207                            *        HANDLING).  EXTERNAL INTERRUPTS X'70' THROUGH X'13F'
     1208                            *        SHARE THE COMMON PRE-HANDLER BEGINNING AT X'380'.
     1209                            *
     1210   01 00487                          LOC      %%                RESTORE THE EXECUTION COUNTER
            01 00487
     1211                            *
     1212                            *
     1213                            *      *********
     1214                            *      *       *
     1215         0000005B                    CHECK    S:UFV(OVERLAY),%  OVERLAY MUST BE .GT. %          *G00
     1216                            *      *       *
     1217                            *      *********
     1218                            *
     1219         01 00401           SAVE     EQU      ABSRECV+1
     1220                            *
     1221         01 00411           OUTPUT   EQU      SAVE+16           72 CHARACTER OUTPUT BUFFER
     1222                            *                                   TRAP REG. AND PSD STORAGE
     1223                            *                                      (SIZE = 18) - TRAP #4
     1224         01 00424           TRAPBUFF3 EQU     OUTPUT+19         BUFFER FOR TRAP #3
     1225                            *
     1226         01 00436           TRAPBUFF2 EQU     TRAPBUFF3+18      BUFFER FOR TRAP #2
     1227                            *
     1228         01 00448           TRAPBUFF1 EQU     TRAPBUFF2+18      BUFFER FOR TRAP #1
     1229                            *
     1230         01 0045A           TLINEIN  EQU      TRAPBUFF1+18      PARAMETER LINE BUFFER (SIZE = 19)
     1231                            *
     1232         01 0046D           RM%HDR   EQU      TLINEIN+19        RM HEADER BUFF (SIZE = 19)
     1233                            *
     1234         01 00480           RM%OUT   EQU      RM%HDR+19         RM OUTPUT BUFF (SIZE = 19)
     1235                            *
     1236         01 004A2           ERRTEXT  EQU      RM%OUT+34         DESIGNER STORES IN THIS LOCATION
     1237                            *                                   EITHER A FORMATTED ERROR EXPLA-
     1238                            *                                   NATION WORD, OR THE 1 TO 15 OF
     1239                            *                                   SUCH WORDS PRECEEDING THIS
     1240                            *                                   LOCATION (IN 2'S COMPLEMENT).
     1241                            *
     1242                            *        IF 'ERRTEXT'  IS POSITIVE, THE NUMBER OF "TEXTC'S" TO BE
     1243                            *        OUTPUT IS ASSUMED TO BE IN BYTE 0, AND THE ADDRESS OF THE
     1244                            *        FIRST 'TEXTC' IS ASSUMED  TO BE IN BITS 16-31 OF 'ERRTEXT'.
     1245                            *        *
     1246                            *        IF 'ERRTEXT'  IS NEGATIVE, BIT POSITION 8 IS TESTED; IF IT IS
     1247                            *        ZERO THE COUNT OF "TEXTC'S" IS ASSUMED TO BE IN THE
     1248                            *        RANGE 128-255.  IF BIT 8 IS A ONE 'ERRTEXT'  WILL BE 'OR-ED'
     1249                            *        WITH X'FFFFFFF0'; IF BITS 28-31 OF THE RESULTING WORD ARE ALL
     1250                            *        ZERO, BIT 31 WILL BE MADE A ONE.  THE RESULTING WORD WILL BE
     1251                            *        USED TO ADDRESS UP TO 15 FORMATTED ERROR EXPLANATION POINTERS
     1252                            *        (BY INDEXING) POINTING TO GROUPS OF "TEXTC'S"
     1253                            *        STARTING WITH THE LOWEST INDEXED ADDRESS.
     1254                            *
     1255         01 004A3           USER%PATCH EQU    ERRTEXT+1         AREA RESERVED FOR USER
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   16
A    1257   01 004E2                          ORG      ((ABSVAL(ERRTEXT+1)//16)*16)+50
            01 004E2
     1258         01 004E2           OVERLAY       EQU %                                                 *G00
     1259         01 004C0           EXEC%SAVE     EQU OVERLAY-34 REGISTER SAVE BUFFER                   *G00
     1260         01 004D0           REGISTERS@RUN EQU OVERLAY-18  MORE REGISTER SAVE BUFFERS            *G00
     1261         01 004E0           RUNADDR       EQU OVERLAY-2    'RUN' PSD SAVE BUFFER                *G00

     1263                            *   ALL THE PRECEEDING CODE FROM 'GUIDE#A' TO 'OVERLAY' IS OVERLAID
     1264                            *        BY BUFFER STORAGE DURING EXECUTION.  THE BUFFERS ARE LISTED
     1265                            *        ABOVE.
     1266                            *
     1267   01 004E2    00000547              DATA     HALTONERR,X'7000000' XPSD TO 'RUNADDR' USES
            01 004E3    07000000 A
     1268                            *                       THIS DOUBLE WORD AS THE NEW PSD
     1269                            *
     1270                            *
     1271                            *
     1272   01 004E4    00000000 A   IDLINIT  DATA     0,0               ABSOLUTE RECOVERY QUAD WORD
            01 004E5    00000000 A
     1273   01 004E6    F000054F              GEN,4,28 15,ABSINIT%       ENTRY VIA SYSTEM RESET          *G02
     1274   01 004E7    07000000 A            DATA     X'07000000'                                       *G02
     1275   01 004E8    F0000550              GEN,4,28 15,ABSINIT#       ENTRY VIA SETHALT               *G02
     1276   01 004E9    07000000 A            DATA     X'07000000'                                       *G02

     1278         TEXT               NL       SET      '
'               NEW LINE CODE
     1279                            *
     1280   01 004EA    015B4040 A   %TYPE    TEXTC    '%'
     1281                            *

     1283                            *
     1284                            *
     1285                            *         FOLLOWING CODE ENTERED WHEN USER INPUTS '%' ON KSR
     1286                            *
     1287                            *
     1288                            *        USER DIAGNOSTIC PROGRAM ENTERS THE
     1289                            *        FOLLOWING CODE BY BRANCHING INDIRECTLY ON #FIDLE%
     1290                            *
     1291                            *        IF CC=0 ON ENTRY, THE CURRENT REGISTER CONTENTS ARE
     1292                            *            SAVED AND THE 'RUN' PSD IS ALTERED. (X6 POINTS TO NEW ONE)
     1293                            *        IF CC=1-15 THE CURRENT 'RUN' PSD IS MAINTAINED
     1294                            *
     1295                            *
     1296         01 004EB           FIDLE    EQU      %
     1297   01 004EB    7400000F A            STCF     R15               SAVE CC                         *G02
     1298   01 004EC    6D000037 A            WD,R0    X'37'              AND INHIBIT INTERRUPTS         *G02

     1300   01 004ED    7030000F A            LCF      R15               RESTORE CC                      *G02
     1301   01 004EE    69F004F1              BCS,15   FIDLE#1            SKIP IF 'NO CHANGE' EXIT       *G02

     1303   01 004EF    356005D2              STW,R6   INITDIAG-1        SAVE POINTER TO PSD POINTER     *G02
     1304   01 004F0    6A60053D              BAL,R6   ALTER%RUN          THEN UPDATE RUN PSD            *G02

     1306   01 004F1    6A600613     FIDLE#1  BAL,X6   RESET%MODE        RESET 'REQUEST' SWITCHES
     1307   01 004F2    6A600913              BAL,X6   TRANS%            PUT TRANSACTION NUMBER IN BUFFER
     1308   01 004F3    0000005B A            DATA     '%'               PROMPT CHARACTER
     1309   01 004F4    226004F4              LI,X6    %
     1310   01 004F5    35600DF6              STW,X6   MSGMODE           SET FLAG TO INDICATE IN MSG MODE
     1311                            *
     1312         01 004F6           FIDLE%%  EQU      %
     1313   01 004F6    02200070 A            LCI      7
     1314   01 004F7    740004FC              STCF     IDLFLG            SET FLAG TO INDICATE IN IDLE MODE
     1315                            *
     1316   01 004F8    B2600055 A            LW,X6    *CLOCK            FIND CURRENT CLOCK COUNT
     1317   01 004F9    691004F8              BLZ      %-1               BRANCH TILL END OF DELAY
     1318                            *
     1319   01 004FA    0F800C42              XPSD,8   SAMPLEQW          SIMULATE COUNTER ZERO INT.
     1320                            *
     1321   01 004FB    680004F6              B        FIDLE%%           LOOP HERE IF NO CHARACTER ENTERED
     1322                            *
     1323                            *
     1324   01 004FC    00000000 A   IDLFLG   DATA     0                 ZERO WHEN IN 'RUN' MODE (#)
     1325                            *                                   NON-ZERO WHEN UNDER GUIDE CONTROL
     1326                            *                                      BIT 0 = 1 IF STATUS MSG. OUTPUT
     1327                            *                                      BITS 1-3 = 1 IF IDLE MODE (%)

     1329                            * THE FOLLOWING CODE IS ENTERED INDIRECTLY THROUGH RETURN           *G02

     1331         01 004FD           AMPER:RET EQU     %
     1332   01 004FD    70200DF6              LC       MSGMODE
     1333   01 004FE    69F00503              BCS,15   %+5               BRANCH IF CONTROLLER IN MSG. MODE
     1334                            *
     1335   01 004FF    702004FC              LC       IDLFLG
     1336   01 00500    697004F1              BCS,7    FIDLE#1           RETURN TO IDLE LOOP IF IN IDLE MODE
     1337   01 00501    6A600613              BAL,X6   RESET%MODE
     1338   01 00502    6800050C              B        USE%RUN
     1339                            *
     1340   01 00503    702004FC              LC       IDLFLG
     1341   01 00504    697004F6              BCS,7    FIDLE%%           GO TO GUIDE WITHOUT TRANACTION #
     1342   01 00505    6A600613              BAL,X6   RESET%MODE
     1343   01 00506    68000510              B        USE%RUN#1         GO TO RUN WITHOUT TRANSACTION #
     1344                            *
     1345                            *
     1346                            **
     1347   01 00507    EA6003C7              BAL,X6   *#ARMUSER
     1348         01 00508           SETIDLE  EQU      %
     1349                            *
     1350   01 00508    02200070 A            LCI      7
     1351   01 00509    740004FC              STCF     IDLFLG
     1352   01 0050A    6A600C80              BAL,X6   CCP
     1353   01 0050B    680004F6              B        FIDLE%%
     1354                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   17
A    1356                            *
     1357                            *        FOLLOWING CODE ENTERED WHEN USER INPUTS '#' ON CONTROL DEVICE
     1358                            *
     1359                            *
     1360         01 0050C           USE%RUN  EQU      %
     1361   01 0050C    6A600913              BAL,X6   TRANS%            PUT TRANSACTION NUMBER IN BUFFER
     1362   01 0050D    0000007B A            DATA     '#'               PROMPT CHARACTER = #
     1363   01 0050E    2260050E              LI,X6    %
     1364   01 0050F    35600DF6              STW,X6   MSGMODE           SET OBSERVER MSG MODE
     1365   01 00510    022000F0 A   USE%RUN#1 LCI     15
     1366   01 00511    740003AC              STCF     #BRKOUT
     1367   01 00512    22000000 A            LI,R0    0
     1368   01 00513    3500061E              STW,R0   S%MODE
     1369   01 00514    350004FC              STW,R0   IDLFLG
     1370   01 00515    75000388              STB,R0   HANDLER%POINTER
     1371   01 00516    226FFFCE A            LI,X6    -50
     1372   01 00517    35600C71              STW,X6   CLK%CNT           SET COUNTER ZERO FOR 100 MS. TIMEOUT
     1373   01 00518    6A60052C              BAL,X6   RESTORE%REGS
     1374   01 00519    000004D0              DATA     REGISTERS@RUN
     1375   01 0051A    0E9004E0              LPSD,9   RUNADDR           RETURN ON STORED PSD
     1376                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   18
A    1379                            *
     1380                            *
     1381                            *   THE FOLLOWING ROUTINE SAVES THE CURRENT CONTENTS OF
     1382                            *        ALL BANK 0 GENERAL REGISTERS (EXCEPT LINK REG. X6)
     1383                            *
     1384                            *   THEY ARE SAVED STARTING AT THE ADDRESS AT THE BAL+1
     1385                            *
     1386                            *
     1387         01 0051B           SAVE%REGS EQU     %
     1388   01 0051B    20600001 A            AI,X6    1
     1389   01 0051C    3560052B              STW,X6   RESTORE%REGS-1    SAVE RETURN ADDR.
     1390   01 0051D    206FFFFF A            AI,X6    -1
     1391   01 0051E    326C0000 A            LW,X6    0,X6
     1392   01 0051F    3560052A              STW,X6   SAVE%ADDR         FIND SAVE BUFFER ADDRESS
     1393   01 00520    B500052A              STW,R0   *SAVE%ADDR
     1394   01 00521    35100000 A            STW,X1   R0
     1395   01 00522    22100001 A            LI,X1    1
     1396   01 00523    B502052A              STW,R0   *SAVE%ADDR,X1
     1397   01 00524    2210000F A            LI,X1    15
     1398   01 00525    32020000 A            LW,R0    0,X1
     1399   01 00526    B502052A              STW,R0   *SAVE%ADDR,X1
     1400   01 00527    21100002 A            CI,X1    2
     1401   01 00528    E830052B              BCR,3    *RESTORE%REGS-1   EXIT WHEN ALL SAVED
     1402   01 00529    64100525              BDR,X1   %-4
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   19
A    1405                            *
     1406                            *
     1407                            *    THE FOLLOWING ROUTINE RESTORES SAVED GENERAL REGISTERS
     1408                            *
     1409                            *        DATA STATEMENT FOLLOWING BAL POINTS AT SAVE BUFFER
     1410                            *
     1411                            *
     1412   01 0052A    00000000 A   SAVE%ADDR DATA    0
     1413   01 0052B    00000000 A            DATA     0                 RETURN ADDR
     1414         01 0052C           RESTORE%REGS EQU  %
     1415   01 0052C    20600001 A            AI,X6    1
     1416   01 0052D    3560052B              STW,X6   RESTORE%REGS-1
     1417   01 0052E    206FFFFF A            AI,X6    -1
     1418   01 0052F    320C0000 A            LW,R0    0,X6
     1419   01 00530    3500052A              STW,R0   SAVE%ADDR
     1420   01 00531    2210000F A            LI,X1    15
     1421   01 00532    B202052A              LW,R0    *SAVE%ADDR,X1
     1422   01 00533    35020000 A            STW,R0   0,X1
     1423   01 00534    21100002 A            CI,X1    2
     1424   01 00535    68300537              BCR,3    %+2
     1425   01 00536    64100532              BDR,X1   %-4
     1426   01 00537    22100001 A            LI,X1    1
     1427   01 00538    B212052A              LW,X1    *SAVE%ADDR,X1
     1428   01 00539    B200052A              LW,R0    *SAVE%ADDR
     1429   01 0053A    E800052B              B        *RESTORE%REGS-1
     1430                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   20
A    1433                            *
     1434                            *   THE FOLLOWING ROUTINE FINDS A NEW 'RUN' PSD (POINTED AT BY
     1435                            *      ADDRESS IN 'INITDIAG-1') AND SETS IT UP FOR RETURN TO 'RUN'
     1436                            *
     1437   01 0053B                          RES      2                 REGISTER SAVE
     1438         01 0053D           ALTER%RUN EQU     %
     1439   01 0053D    3560053C              STW,X6   %-1
     1440   01 0053E    3500053B              STW,R0   ALTER%RUN-2
     1441   01 0053F    B26005D2              LW,X6    *INITDIAG-1
     1442   01 00540    320C0000 A            LW,R0    0,X6              FIND PSW1
     1443   01 00541    350004E0              STW,R0   RUNADDR
     1444   01 00542    320C0001 A            LW,R0    1,X6              FIND PSW2
     1445   01 00543    350004E1              STW,R0   RUNADDR+1
     1446                            *
     1447   01 00544    3200053B              LW,R0    ALTER%RUN-2
     1448   01 00545    E800053C              B        *ALTER%RUN-1      EXIT TO BAL+1
     1449                            *
     1450                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   21
A    1453                            *
     1454                            *        FOLLOWING CODE 'EXECUTED' WHEN ERROR DETECTED AND SS3 RESET.
     1455                            *
     1456   01 00546    00000000 A            DATA     0
     1457                            *
     1458                            *
     1459         01 00547           HALTONERR EQU     %
     1460   01 00547    35600546              STW,X6   %-1               SAVE CURRENT REGISTERS
     1461   01 00548    6A60051B              BAL,X6   SAVE%REGS         *
     1462   01 00549    000004D0              DATA     REGISTERS@RUN     *
     1463   01 0054A    32600546              LW,X6    HALTONERR-1       *
     1464   01 0054B    356004D6              STW,X6   REGISTERS@RUN+6   *
     1465   01 0054C    02200070 A            LCI      7
     1466   01 0054D    740004FC              STCF     IDLFLG            SET FLAG TO INDICATE IN IDLE MODE
     1467                            *
     1468   01 0054E    680004F1              B        FIDLE#1

     1470         01 0054F           ABSINIT% EQU      %

     1472   01 0054F    EA600D82              BAL,X6   *REM%OFF          ERASE COC ASSIGNMENTS           *G02

     1474         01 00550           ABSINIT# EQU      %                                                 *G02
     1475   01 00550    32600554              LW,X6    COREH26
     1476   01 00551    35600026 A            STW,X6   X'26'
     1477   01 00552    35600027 A            STW,X6   X'27'             DUPLICATE THE INSTRUCTION
     1478                            *                                   SO THAT X'26' MAY BE DESTROYED
     1479                            *                                   WHILE EXECUTING INSTRUCTIONS AT
     1480                            *                                   THE 'PCP' WITH HOLD SWITCH 'ON'
     1481                            *                                   AND RECOVERY MAY SUBSEQUENTLY TAKE
     1482                            *                                   EFFECT BY EXECUTING X'27'.
     1483   01 00553    68000556              B        IDLINIT%
     1484                            *
     1485   01 00554    0F8004E4     COREH26  XPSD,8   IDLINIT           INSTRUCTION PLACED IN X'26' & X'27'
     1486   01 00555    0F800200     COREH40  XPSD,8   TRAP40%
     1487                            *
     1488         01 00556           IDLINIT% EQU      %
     1489   01 00556    221FFFFF A            LI,X1    -1
     1490   01 00557    6D101100 A            WD,X1    X'1100'           DISARM ALL GROUP ZERO INTERRUPTS
     1491   01 00558    221005EE              LI,X1    TEMPHALT
     1492   01 00559    35100DF1              STW,X1   SETHALT%          DISABLE LONG BREAK IN INIT.
     1493                            *
     1494   01 0055A    02200030 A            LCI      3
     1495   01 0055B    740004FC              STCF     IDLFLG            SET IDLE FLAG
     1496   01 0055C    22100003 A            LI,X1    FLIMIT
     1497   01 0055D    35100DF6              STW,X1   MSGMODE           SET OBSERVER MSG MODE
     1498   01 0055E    32020388              LW,R0    HANDLER%POINTER,X1 CLEAR INTERRUPT/TRAP COUNTS
     1499   01 0055F    4B000DB1              AND,R0   H3FFFFF
     1500   01 00560    35020388              STW,R0   HANDLER%POINTER,X1
     1501   01 00561    6410055E              BDR,X1   %-3
     1502   01 00562    75100388              STB,X1   HANDLER%POINTER
     1503                            *
     1504   01 00563    74000DFA              STCF     TRAPLOCK
     1505                            *
     1506   01 00564    32000555              LW,R0    COREH40           FIND XPSD FOR X'40'
     1507   01 00565    221FFFD0 A            LI,X1    -48
     1508   01 00566    35020070 A            STW,R0   X'40'+48,X1       STUFF GROUPS 0 AND 2
     1509   01 00567    20000008 A            AI,R0    8
     1510   01 00568    65100566              BIR,X1   %-2
     1511   01 00569    221FFF30 A            LI,X1    -208
     1512   01 0056A    35020140 A            STW,R0   X'40'+X'100',X1   STUFF EXTERNAL GROUPS 3-F
     1513   01 0056B    6510056A              BIR,X1   %-1               (ALL WITH SAME XPSD)
     1514   01 0056C    32000C72              LW,R0    CLK%CNT%MTW
     1515   01 0056D    35000055 A            STW,R0   CLOCK
     1516   01 0056E    32000C73              LW,R0    CLK%XPSD
     1517   01 0056F    3500005B A            STW,R0   CLOCK+6
     1518   01 00570    221FFFCE A            LI,R1    -50
     1519   01 00571    35100C71              STW,R1   CLK%CNT           INITIALIZE TO 100 MS.
     1520   01 00572    32100C73              LW,R1    CLK%XPSD
     1521   01 00573    CF000396              HIO,0    *#TOADDR
     1522   01 00574    CF000397              HIO,0    *#PRTADDR
     1523                            *
     1524   01 00575    2240FFFF A            LI,X4    X'FFFF'
     1525   01 00576    6D401100 A            WD,X4    X'1100'           GROUP ZERO
     1526   01 00577    22601C40 A            LI,X6    X'1C40'           'COUNTERS','PFI' AND 'MFI'
     1527   01 00578    6D601200 A            WD,X6    X'1200'           ARM AND ENABLE
     1528   01 00579    6A600613              BAL,X6   RESET%MODE        RESET REQ. PROCESSOR SWITCHES
     1529   01 0057A    35000393              STW,R0   #HDRFLG
     1530   01 0057B    224000F0 A            LI,X4    X'F0'
     1531   01 0057C    754003AC              STB,X4   #BRKOUT           RESET 'BREAK' FLAG
     1532   01 0057D    32400935              LW,X4    TRANS#
     1533   01 0057E    683005C5              BCR,3    JUSTLOADED        BRANCH IF FIRST PASS AFTER LOADING.
     1534   01 0057F    68000595              B        Y%N%LOAD
     1535                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   22
A    1537                            *
     1538                            *   THE FOLLOWING ROUTINES ARE SHARED BY THE CODE FOLLOWING:
     1539                            *        Y%N%LOAD,  #Y%N%RETRY, AND #Y%N%RECOVER.
     1540                            *
     1541                            *
     1542         01 00580           YES%NO%QUESTION EQU %
     1543   01 00580    2260058A              LI,X6    ANSWER
     1544   01 00581    356005F3              STW,X6   EXECUTE%
     1545   01 00582    B2100055 A            LW,R1    *CLOCK
     1546   01 00583    20107530 A            AI,R1    30000
     1547   01 00584    6A600C80              BAL,X6   CCP               LOOK FOR KEYIN
     1548   01 00585    B1100055 A            CW,R1    *CLOCK
     1549   01 00586    69200584              BG       %-2               LOOP IF MINUTE TD NOT EXPIRED
     1550                            *
     1551                            *
     1552                            *                 FALL THRU IF NO CHARACTER ENTERED IN ONE MINUTE
     1553                            *
     1554   01 00587    226005F4              LI,X6    EXECUTE
     1555   01 00588    356005F3              STW,X6   EXECUTE%          RESTORE NORMAL KEYIN ENTRY POINT
     1556   01 00589    680E0000 A            B        0,X7              USE DEFAULT ASSIGNMENT
     1557                            *
     1558         01 0058A           ANSWER   EQU      %
     1559                            *
     1560                            *        ENTER HERE IF RESPONSE TO QUESTION IS KEYED IN
     1561                            *
     1562   01 0058A    226005F4              LI,X6    EXECUTE
     1563   01 0058B    356005F3              STW,X6   EXECUTE%          RESTORE NORMAL KEYIN ENTRY
     1564   01 0058C    213000E8 A            CI,R3    X'E8'
     1565   01 0058D    683E0001 A            BE       1,X7              EXIT IF Y
     1566   01 0058E    213000D5 A            CI,R3    X'D5'
     1567   01 0058F    683E0000 A            BE       0,X7              EXIT IF N
     1568   01 00590    2130006F A            CI,R3    X'6F'
     1569   01 00591    683E0002 A            BE       2,X7              EXIT IF QUESTION MARK
     1570   01 00592    2100007C A            CI,R0    '@'               RECOVERY REQUEST
     1571   01 00593    683E0003 A            BE       3,X7              GO TO ABSOLUTE RECOVERY
     1572   01 00594    680E0004 A            B        4,X7              ERROR EXIT
     1573                            *
     1574                            *  THE FOLLOWING ROUTINE ASKS THE USER IF HE WANTS 'PARAMS. CLEARED'
     1575                            *        AFTER AN ABSOLUTE RECOVERY HAS BEEN INITIATED.  IF THE ANSWER
     1576                            *        IS YES,'#LOADFLAG' IS SET TO 0 TO FORCE THE INITIALIZATION
     1577                            *        ROUTINE TO RECOVER WITH ALL PARAMETER LINES INITIALIZED TO
     1578                            *        VALUES THEY HAD AT LOAD TIME.
     1579                            *           IF THE ANSWER IS NO, PARAMETER LINES ARE NOT CHANGED
     1580                            *        ('#LOADFLAG' IS SET TO A MINUS VALUE)
     1581                            *
     1582                            *
     1583   01 00595    6A600B70     Y%N%LOAD TYPE     Y%N%MSG           ASK IF USER WANTS LOAD CONDITIONS
            01 00596    012016AC A
     1584   01 00597    6A700580              BAL,X7   YES%NO%QUESTION
     1585   01 00598    680005A5              B        NO%LOAD           DEFAULT CONDITION, NO
     1586   01 00599    680005A2              B        YES%LOAD          ANSWER IS YES
     1587   01 0059A    680005A8              B        QUEST%LOAD        ANSWER IS QUESTION MARK
     1588   01 0059B    6A60059D              BAL,X6   GO%@              WANTS TO RECOVER.
     1589   01 0059C    68000595              B        Y%N%LOAD          WRONG ANSWER, REPEAT QUESTION
     1590                            *
     1591         01 0059D           GO%@     EQU      %
     1592   01 0059D    74000006 A            STCF     X6
     1593   01 0059E    356004E4              STW,X6   IDLINIT
     1594   01 0059F    22600000 A            LI,X6    0
     1595   01 005A0    356004E5              STW,X6   IDLINIT+1
     1596   01 005A1    0E3004E8              LPSD,3   IDLINIT+4         CLEAR LEVEL AND INITIALIZE      *G02
     1597                            *
     1598   01 005A2    22000000 A   YES%LOAD LI,R0    0
     1599   01 005A3    35000394              STW,R0   #LOADFLAG
     1600   01 005A4    680005C5              B        JUSTLOADED
     1601                            *
     1602   01 005A5    220FFFFF A   NO%LOAD  LI,R0    -1                SET NEGATIVE RESPONSE
     1603   01 005A6    35000394              STW,R0   #LOADFLAG
     1604   01 005A7    680005D3              B        INITDIAG
     1605                            *
     1606   01 005A8    6A600B70     QUEST%LOAD TYPE,2 Y%EXP
            01 005A9    022016D8 A
     1607   01 005AA    68000595              B        Y%N%LOAD
     1608                            *
     1609                            Y%N%MSG  TEXTCS   ;
     1610         01 005AB                    'ABSOLUTE RECOVERY.  CLEAR PARAMETERS?  %='
     1611                            *
     1612                            Y%EXP    TEXTCS   ;
     1613         01 005B6                    'INPUT ''Y'' TO CLEAR PARAMETERS'
     1614                                     TEXTCS   ;
     1615         01 005BE                    'INPUT ''N'' TO SAVE PARAMS.'
     1616                            *
     1617                            *
     1618                            *    ENTER HERE ON INITIAL LOAD OR AFTER 'YES' RECOVERY
     1619                            *
     1620         01 005C5           JUSTLOADED EQU    %
     1621   01 005C5    32600DC0              LW,X6    H40F040F0         INITIALIZE 'SS' PARAM. LINE
     1622   01 005C6    35600A94              STW,X6   OUT%S+2           *
     1623   01 005C7    35600A95              STW,X6   OUT%S+3           *
     1624   01 005C8    220000F1 A            LI,R0    '1'               *
     1625   01 005C9    22602A4A              LI,X6    BA(OUT%S)+2       *
     1626   01 005CA    750C0000 A            STB,R0   0,X6              *
     1627                            *
     1628                            *
     1629   01 005CB    22600000 A            LI,X6    0
     1630   01 005CC    75600392              STB,X6   #SENSE            RESET ALL SENSE SWITCHES
     1631   01 005CD    356004A2              STW,X6   ERRTEXT           TO PUSH INTO AN EMPTY LIST
     1632                            *                                   FOLLOWING LABLE 'INITDIAG'.
     1633   01 005CE    680005D3              B        INITDIAG
     1634                            *
     1635                                     BOUND    8
     1636                            *
     1637   01 005D0    F00004EB     DONTRUN  GEN,4,28 15,FIDLE
     1638   01 005D1    07000000 A            DATA     X'7000000'
     1639                            *
     1640                            *
     1641                            *    ENTER HERE TO INITIALIZE THE USER DIAGNOSTIC
     1642                            *
     1643   01 005D2                          RES      1                 SAVE USERS CC (IN BYTE 0) AND LINK
     1644                            *                                   REGISTER ADDRESS HERE AFTER
     1645                            *                                   INITIALIZATION.
     1646                            *
     1647         01 005D3           INITDIAG EQU      %
     1648   01 005D3    02200070 A            LCI      7                                                 *G02
     1649   01 005D4    740004FC              STCF     IDLFLG            SET IDLE MODE                   *G02

     1651   01 005D5    EA601000              BAL,R6   *#INITIAL@        DO USER INITIALIZATION          *G02

     1653   01 005D6    74000006 A            STCF     R6                SAVE USER-SET CC                *G02
     1654   01 005D7    356005D2              STW,R6   INITDIAG-1         AND POINTER TO PSD POINTER     *G02

     1656   01 005D8    6A60051B              BAL,X6   SAVE%REGS         SAVE CURRENT REGISTERS
     1657   01 005D9    000004D0              DATA     REGISTERS@RUN
     1658   01 005DA    6A60053D              BAL,X6   ALTER%RUN         CHANGE 'RUN' ADDRESS
     1659   01 005DB    6A600913              BAL,X6   TRANS%            OUTPUT THE RECOVERY PROMPT
     1660   01 005DC    0000007C A            DATA     '@'
     1661   01 005DD    6A600613              BAL,X6   RESET%MODE
     1662                            *
     1663                            *  USER HAS BEEN ARMED AT THIS POINT
     1664                            *
     1665   01 005DE    22600D74              LI,X6    SETHALT
     1666   01 005DF    35600DF1              STW,X6   SETHALT%          RESTORE 'LONG BREAK' ACTION
     1667   01 005E0    22000000 A            LI,R0    0                 RESTORE TO ALLOW OUTPUT
     1668   01 005E1    350004A2              STW,R0   ERRTEXT           OF SYNTAX GLOSSARY IF REQUESTED
     1669                            *
     1670   01 005E2    22500001 A            LI,X5    1
     1671   01 005E3    7550061E              STB,X5   S%MODE            FORCE GLOSSARY EXPLANATION
     1672   01 005E4    2240007C A            LI,X4    X'7C'             BY SIMULATING A KEYIN
     1673   01 005E5    754A061E              STB,X4   S%MODE,X5
     1674                            *
     1675   01 005E6    B2500055 A            LW,X5    *CLOCK            SET UP 10 SEC DELAY
     1676   01 005E7    20501388 A            AI,X5    5000
     1677                            *
     1678                            *
     1679         01 005E8           GLOSSARY%LOOP EQU %                 DELAY HERE WHILE @ PROMPT IS
     1680                            *                                        DISPLAYED
     1681   01 005E8    6A600C80              BAL,X6   CCP               CHECK FOR KEYIN
     1682   01 005E9    B1500055 A            CW,X5    *CLOCK
     1683   01 005EA    692005E8              BG       GLOSSARY%LOOP     LOOP IF 10 SEC. NOT UP
     1684                            *
     1685                            *        FALL THRU IF NO CHARACTER ENTERED
     1686                            *
     1687   01 005EB    702005D2              LC       INITDIAG-1
     1688   01 005EC    68F0050C              BCR,15   USE%RUN           GO TO RUN IF CC'S WERE ALL 0
     1689   01 005ED    680004F1              B        FIDLE#1
     1690                            *
     1691                            *
     1692                            *
     1693         01 005EE           TEMPHALT EQU      %
     1694   01 005EE    02200010 A            LCI      1
     1695   01 005EF    740005F2              STCF     SENSE             SIMULATE SS4 SET
     1696   01 005F0    32600B73              LW,X6    PRINTER-1
     1697   01 005F1    680C0001 A            B        1,X6              EXECUTE A 'SHORT BREAK' ACTION
     1698                            *
     1699                            *
     1700   01 005F2    00000000 A   SENSE    DATA     0
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   23
A    1703                            *
     1704   01 005F3    000005F4     EXECUTE% DATA     EXECUTE
     1705                            *
     1706         01 005F4           EXECUTE  EQU      %
     1707   01 005F4    35600607              STW,X6   DSGBUFF
     1708   01 005F5    6A60051B              BAL,X6   SAVE%REGS
     1709   01 005F6    000004C0              DATA     EXEC%SAVE
     1710   01 005F7    32600607              LW,X6    DSGBUFF
     1711   01 005F8    356004C6              STW,X6   EXEC%SAVE+6
     1712                            *
     1713   01 005F9    320004C3              LW,R0    EXEC%SAVE+3       FIND INPUT CHARACTER
     1714   01 005FA    2100005D A            CI,R0    ')'
     1715   01 005FB    68300642              BE       RESET%MM          BRANCH IF COMMAND TO KILL MSG MODE
     1716   01 005FC    2100004D A            CI,R0    '('
     1717   01 005FD    68300640              BE       SET%MM            BRANCH IF COMMAND TO START MSG MODE
     1718   01 005FE    70200DF6              LC       MSGMODE
     1719   01 005FF    69F004FD              BCS,15   AMPER:RET         IGNORE CHAR. IF IN MSG MODE
     1720   01 00600    22600000 A            LI,X6    0
     1721   01 00601    35600DF6              STW,X6   MSGMODE           TAKE OBSERVER OUT OF MSG MODE
     1722                            *
     1723   01 00602    72600630              LB,X6    QUESTEXT
     1724   01 00603    710C0630              CB,R0    QUESTEXT,X6
     1725   01 00604    68300609              BCR,3    CONT%RCVD         BRANCH IF CONTROL CHARACTER FOUND
     1726   01 00605    64600603              BDR,X6   %-2
     1727   01 00606    68000660              B        SEARCH%MODE
     1728                            *
     1729   01 00607    00000000 A   DSGBUFF  DATA     0
     1730                            *
     1731   01 00608    00400000 A            DATA     X'00400000'
     1732                            *
     1733                            *   ENTER HERE IF A CONTROL CHARACTER WAS KEYED IN
     1734                            *
     1735                            *
     1736         01 00609           CONT%RCVD EQU     %                 CONTROL CHARACTER INPUT
     1737   01 00609    2100006F A            CI,R0    X'6F'
     1738   01 0060A    68300645              BE       QUESTION          BRANCH IF QUESTION MARK
     1739   01 0060B    324C0628              LW,X4    QUESTE-1,X6
     1740   01 0060C    35400612              STW,X4   CONTROLEXIT
     1741   01 0060D    6A600613              BAL,X6   RESET%MODE        RESET 'REQUEST' SWITCHES
     1742   01 0060E    02200070 A            LCI      7
     1743   01 0060F    740004FC              STCF     IDLFLG            SET FLAG TO INDICATE IN IDLE MODE
     1744   01 00610    22600001 A            LI,X6    1
     1745   01 00611    750C0934              STB,R0   TRANSBUFF+1,X6
     1746                            *
     1747         01 00612           CONTROLEXIT EQU   %
     1748                            *
     1749   01 00612    68000612              B        %
     1750                            *
     1751                            *
     1752                            *
     1753                            *
     1754                            *        ROUTINE COMMON TO '@', '%', '#',  AND QUESTION MARK
     1755                            *        ALSO COMMON TO %SYNERR,  #%PARAMERR, AND GUIDE'S
     1756                            *        INITIALIZER (CODE FOLLOWING 'GUIDE').
     1757                            *
     1758                            *        (USED TO RESET SWITCHES FOLLOWING THE ROUTINE)
     1759                            *
     1760         01 00613           RESET%MODE EQU    %
     1761                            *
     1762   01 00613    221FFFF5 A            LI,X1    QUESTC
     1763   01 00614    22000000 A            LI,R0    0
     1764   01 00615    35020629              STW,R0   QUESTE,X1
     1765   01 00616    65100615              BIR,X1   %-1
     1766   01 00617    22100008 A            LI,X1    8
     1767   01 00618    350203A1              STW,R0   #PARAM1-1,X1      INITIALIZE IMMED. PARAMS
     1768   01 00619    64100618              BDR,X1   %-1
     1769   01 0061A    22100007 A            LI,X1    7
     1770   01 0061B    35020398              STW,R0   #OUTPTR-1,X1
     1771   01 0061C    6410061B              BDR,X1   %-1
     1772                            *
     1773   01 0061D    E8000006 A            B        *X6
     1774                            *
     1775                            *
     1776                            *
     1777                                     BOUND    8
     1778         01 0061E           QUEST%   EQU      %
     1779                            *
     1780   01 0061E    00000000 A   S%MODE   DATA     0,0               SEARCH MODE SWITCH
            01 0061F    00000000 A
     1781                            *                                   CONTAINS COUNT (BYTE 0) AND
     1782                            *                                   AND CHAR. - SEE TABLE 3 WORDS 1 & 2
     1783   01 00620    00000000 A   D%MODE   DATA     0                 DEFINITION MODE SWITCH
     1784                            *                                   (SET NON-ZERO IF MODE SELECTED)
     1785   01 00621    00000000 A   P%MODE   DATA     0                 PARAMETER LINE MODE SWITCH
     1786                            *                                   (SET IF IN PARAM. LINE MODE
     1787                            *                                   BYTE 0 = END OF FIELD COLUMN #,
     1788                            *                                   BYTE 3 = CURRENT COL. #  )
     1789   01 00622    00000000 A   B%MODE   DATA     0                 BREAK MODE SWITCH
     1790                            *                                   (SET TO NON-ZERO IF ALL CHAR. EXCEPT
     1791                            *                                   CONTROL CHARS. OR BREAK ARE
     1792                            *                                   TO BE IGNORED. )
     1793   01 00623    00000000 A   I%MODE   DATA     0                 IMMEDIATE PARAMETER MODE SWITCH
     1794                            *                                   (NON-ZERO IF LOOKING FOR PARAMS.)
     1795   01 00624    00000000 A   X%MODE   DATA     0                 INDEX MODE SWITCH
     1796                            *                                   (NON-ZERO IF LOOKING FOR INDEX
     1797                            *                                     CHARACTER INPUTS)
     1798   01 00625    00000000 A   %VTYPE   DATA     0
     1799                            *
     1800   01 00626    00000000 A   %PTYPE   DATA     0                 PARAM. LINE CHAR. VALIDATION TYPE
     1801   01 00627                          RES      2
     1802                            *
     1803         01 00629           QUESTE   EQU      %
     1804         FFFFFFF5           QUESTC   EQU      QUEST%-QUESTE     TABLE LENGTH
     1805                            *
     1806   01 00629    0E800632              LPSD,8   QUESTEXT+2        QUEST MARK
     1807   01 0062A    0E800634              LPSD,8   QUESTEXT+4        #
     1808   01 0062B    0E800636              LPSD,8   QUESTEXT+6        %
     1809   01 0062C    0E800638              LPSD,8   QUESTEXT+8        >
     1810   01 0062D    0E80063A              LPSD,8   QUESTEXT+10       @
     1811   01 0062E    0E800636              LPSD,8   QUESTEXT+6        !
     1812                            *
     1813                                     BOUND    8
     1814                            *
     1815         01 00630           QUESTEXT TEXTCS   '?#%>@!'          QUEST. MARK,#,%,>,@,!
     1816                            *                                   KEYIN
     1817   01 00632    00000645              DATA     QUESTION          QUESTION MARK
     1818   01 00633    07000000 A            GEN,8,24 7,0
     1819                            *
     1820   01 00634    0000050C              DATA     USE%RUN           #
     1821   01 00635    07000000 A            GEN,8,24 7,0
     1822                            *
     1823   01 00636    000004F1              DATA     FIDLE#1           %
     1824   01 00637    07000000 A            GEN,8,24 7,0
     1825                            *
     1826   01 00638    0000063D              DATA     BRK%PRT           BREAK PRINTER OUTPUT
     1827   01 00639    07000000 A            GEN,8,24 7,0
     1828                            *
     1829                            *
     1830   01 0063A    0000063C              DATA     %+2               @
     1831   01 0063B    07000000 A            GEN,8,24 7,0
     1832                            *
     1833   01 0063C    0E3004E8              LPSD,3   IDLINIT+4         CLEAR POSSIBLE POWER-ON LEVEL   *G02
     1834                            *                                   AND INITIATE ABSOLUTE RECOVERY
     1835                            *
     1836                            *   ENTER HERE IF CONTROL CHARACTER WAS A QUESTION MARK
     1837                            *
     1838                            *
     1839         01 0063D           BRK%PRT  EQU      %
     1840   01 0063D    022000F0 A            LCI      15
     1841   01 0063E    740003AC              STCF     #BRKOUT           SET CC'S TO INDICATE PRINTER BREAK
     1842   01 0063F    680004FD              B        AMPER:RET         EXIT TO INTERRUPTED ROUTINE
     1843                            *
     1844         01 00640           SET%MM   EQU      %                 SET MESSAGE MODE
     1845   01 00640    226FFFFF A            LI,X6    -1
     1846   01 00641    68000643              B        RESET%MM+1
     1847                            *
     1848         01 00642           RESET%MM EQU      %                 RESET MESSAGE MODE
     1849   01 00642    22600000 A            LI,X6    0
     1850   01 00643    35600DF6              STW,X6   MSGMODE
     1851   01 00644    680004FD              B        AMPER:RET
     1852                            *
     1853                            *
     1854         01 00645           QUESTION EQU      %
     1855                            *
     1856   01 00645    35600622              STW,X6   B%MODE            SET FLAG TO IGNORE ALL
     1857                            *                                   SUBSEQUENT USER INPUT REQUESTS
     1858                            *                                   EXCEPT  CONTROL AND 'BREAK'.
     1859   01 00646    7260061E              LB,X6    S%MODE
     1860   01 00647    6930070D              BNEZ     SEARCH%EXPL
     1861                            *
     1862                            *
     1863                            *
     1864                            *  ENTER HERE TO DISPLAY EXPLANATIONS POINTED TO BY 'ERRTEXT'
     1865                            *
     1866                            *
     1867         01 00648           ERROR%EXPL EQU    %
     1868                            *
     1869   01 00648    329004A2              LW,R9    ERRTEXT
        1*  01 00649    6830065F              BEZ      QUESTEXIT         STOP IF NOTHING                 *H01
     1870   01 0064A    31900DB4              CW,R9    H800000
     1871   01 0064B    69400654              BCS,4    MULTISTRING
     1872   01 0064C    4B900DCC              AND,R9   HFFD0FFFF
     1873   01 0064D    48900DB0              EOR,R9   H200000           SET MULTIPLE OUTPUT FLAG
     1874   01 0064E    35900652              STW,R9   ONESTRINGDATA
     1875   01 0064F    6A800651              BAL,R8   ONESTRING
     1876   01 00650    6800065F              B        QUESTEXIT
     1877                            *
     1878                            *
     1879                            *   ENTER HERE IS 'ERRTEXT' POINTS TO A SINGLE EXPLANATION LINE
     1880                            *
     1881         01 00651           ONESTRING EQU     %
     1882   01 00651    6A600B74              BAL,X6   PRINTER
     1883   01 00652    00000000 A   ONESTRINGDATA DATA 0
     1884                            *
     1885   01 00653    E8000008 A            B        *R8
     1886                            *
     1887                            *
     1888                            *   ENTER HERE IF 'ERRTEXT' HAS AN INDEX VALUE
     1889                            *     (THIS MEANS UP TO 15 LINES OF EXPLANATION ARE TO BE OUTPUT)
     1890                            *
     1891                            *
     1892         01 00654           MULTISTRING EQU   %
     1893                            *
     1894   01 00654    4B900DA1              AND,R9   HF
     1895   01 00655    69200657              BCS,2    %+2               BRANCH IF (-) 1-15
     1896   01 00656    20900001 A            AI,R9    1                 FORCE -15 MAXIMUM INDEX
     1897   01 00657    30900DCD              AW,R9    HFFFFFFF0
     1898   01 00658    32100009 A            LW,R1    R9
     1899   01 00659    320204A2              LW,R0    ERRTEXT,R1
     1900   01 0065A    4B000DCC              AND,R0   HFFD0FFFF
     1901   01 0065B    48000DB0              EOR,R0   H200000           SET MULTIPLE OUTPUT FLAG
     1902   01 0065C    35000652              STW,R0   ONESTRINGDATA
     1903   01 0065D    6A800651              BAL,R8   ONESTRING
     1904   01 0065E    65900658              BIR,R9   %-6
     1905         01 0065F           QUESTEXIT EQU     %
     1906   01 0065F    680004F1              B        FIDLE#1           GO TO 'IDLE' MODE
     1907                            *
     1908                            *
     1909         01 00660           SEARCH%MODE EQU   %                 SEARCH FOR OPERATING MODE
     1910   01 00660    32500620              LW,X5    D%MODE
     1911   01 00661    6830067E              BCR,3    S%STATE           BRANCH IF MODE NOT YET DEFINED
     1912   01 00662    72500624              LB,X5    X%MODE
     1913   01 00663    68300666              BCR,3    %+3               BRANCH IF NOT LOOKING FOR AN INDEX
     1914   01 00664    32500624              LW,X5    X%MODE
     1915   01 00665    68000855              B        X%STATE           EVALUATE THIS INDEX CHARACTER
     1916                            *
     1917   01 00666    32500621              LW,X5    P%MODE
     1918   01 00667    693007E6              BCS,3    P%STATE           BRANCH IF IN PARAM LINE MODE
     1919   01 00668    32500623              LW,X5    I%MODE
     1920   01 00669    6930073C              BCS,3    I%STATE           BRANCH IF IN IMMED. PARAM MODE
     1921   01 0066A    68000669              B        %-1               PROGRAMMING ERROR
     1922                            *
     1923                            *
     1924                            *   ERROR ROUTINES
     1925                            *
     1926                            *
     1927         01 0066B           PARAMERR EQU      %
     1928                            *
     1929                            *   PARAMETER ERROR INDICATES CHARACTER KEYED IN DOES NOT MATCH
     1930                            *   VALIDATION TABLE (AS SPECIFIED IN TABLE 3)
     1931                            *
     1932   01 0066B    6A600B70              TYPE     PERRMSG
            01 0066C    012019B8 A
     1933   01 0066D    680A0000 A            B        0,X5
     1934                            *
     1935         01 0066E           PERRMSG  TEXTCS   'PARAM. ERR.'
     1936                            *
     1937         01 00671           OVERFLOW EQU      %
     1938                            *
     1939                            *
     1940                            *   OVERFLOW INDICATES TOO MANY CHARACTERS ENTERED IN FIELD
     1941                            *
     1942   01 00671    6A600B70              TYPE     OFLOWMSG
            01 00672    012019D0 A
     1943   01 00673    680A0000 A            B        0,X5
     1944                            *
     1945         01 00674           OFLOWMSG TEXTCS   'FIELD OVERFLOW'
     1946                            *
     1947         01 00678           SYNERR   TEXTCS   'SYNTAX ERR.'
     1948                            *
     1949                            *   SYNTAX ERROR MEANS STRING OF DIRECTIVE CHARACTERS DOES NOT APPEAR
     1950                            *      IN TABLE 3
     1951                            *
     1952         01 0067B           %SYNERR  EQU      %
     1953   01 0067B    6A600B70              TYPE     SYNERR
            01 0067C    012019E0 A
     1954   01 0067D    68000762              B        I%ERR             COMMON ERROR EXIT
     1955                            *
     1956                            *
     1957                            *
     1958                            *  ENTER HERE FOR  A SEARCH OF TABLE 3 ( LOOKING FOR REQUEST CHARS.)
     1959                            *
     1960         01 0067E           S%STATE  EQU      %
     1961   01 0067E    3250061E              LW,X5    S%MODE
     1962   01 0067F    31500DB6              CW,X5    H17C0000
     1963   01 00680    69300683              BNE      %+3               BRANCH IF NOT JUST LOADED
     1964   01 00681    22500000 A            LI,X5    0
     1965   01 00682    3550061E              STW,X5   S%MODE
     1966                            *
     1967   01 00683    7310061E              MTB,1    S%MODE            INCREMENT CHAR. COUNT
     1968   01 00684    22800DDB              LI,R8    TABLE3
     1969   01 00685    35800DDA              STW,R8   TABLE3%P          BUILD TABLE POINTER
     1970   01 00686    7260061E              LB,X6    S%MODE            FIND WHICH CHARACTER THIS IS
     1971   01 00687    21600006 A            CI,X6    6
     1972   01 00688    6910068A              BL       %+2               BRANCH IF VALID
     1973   01 00689    68000689              B        %
     1974                            *
     1975   01 0068A    750C061E              STB,R0   S%MODE,X6         SAVE NEW CHARACTER
     1976   01 0068B    6A600691              BAL,X6   SEARCH%TABLE
     1977   01 0068C    6800067B              B        %SYNERR           ERROR RETURN
     1978                            *
     1979                            *  RETURN HERE IF ALL CHARACTERS ENTERED TO DATE HAVE MATCHED
     1980                            *        AN ENTRY IN TABLE 3
     1981                            *
     1982   01 0068D    F2800DDA              LB,R8    *TABLE3%P         CHECK IF LAST REQUEST CHAR.
     1983   01 0068E    7180061E              CB,R8    S%MODE            *
     1984   01 0068F    683006A3              BE       DECODE%CW         BRANCH IF THROUGH
     1985   01 00690    68000508              B        SETIDLE           GO WAIT FOR ANOTHER CHARACTER
     1986                            *
     1987                            *
     1988                            ***************
     1989                            *
     1990                            *  ENTER HERE TO SEARCH TABLE 3 FOR A MATCH BETWEEN BYTES 0-5
     1991                            *     OF THE TABLE 3 QUADWORD AND THE CONTENTS OF S%MODE (CURRENT KEYIN)
     1992                            *
     1993                            *     EXIT TO BAL+2  IF A MATCH IS FOUND
     1994                            *     EXIT TO BAL+1 IF TABLE END IS REACHED
     1995                            *
     1996                            *        WORD 1 = DIRECTIVE POINTER
     1997                            *         ***********
     1998                            *                    BYTE 0 = # OF CHARACTERS IN DIR.
     1999                            *                    BYTE 1 = FIRST CHAR. (EBCDIC)
     2000                            *                    BYTE 2 = SECOND CHAR.
     2001                            *                    BYTE 3 = THIRD CHAR.
     2002                            *
     2003                            *
     2004                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     2005                            *         ***********
     2006                            *                    BYTE 0 = FOURTH CHAR.
     2007                            *                    BYTE 1 = FIFTH CHAR.
     2008                            *
     2009         01 00691           SEARCH%TABLE EQU  %
     2010   01 00691    7270061E              LB,X7    S%MODE            FIND # OF CHAR. TO SEARCH
     2011   01 00692    B2800DDA              LW,R8    *TABLE3%P
     2012   01 00693    6910069F              BLZ      MOVE%SEARCH       BRANCH IF END OF TABLE
     2013   01 00694    71700008 A            CB,X7    R8
     2014   01 00695    6920069B              BG       SEARCH%NEXT       SKIP IF COUNT = 0
     2015   01 00696    F28E0DDA              LB,R8    *TABLE3%P,X7
     2016   01 00697    718E061E              CB,R8    S%MODE,X7
     2017   01 00698    6930069B              BNE      SEARCH%NEXT       BRANCH IF NO MATCH
     2018   01 00699    64700696              BDR,X7   %-3
     2019   01 0069A    680C0001 A            B        1,X6              RETURN TO CALLING ROUTINE
     2020                            *
     2021         01 0069B           SEARCH%NEXT EQU   %
     2022   01 0069B    32800DDA              LW,R8    TABLE3%P          BUMP POINTER TO NEXT QUAD WORD
     2023   01 0069C    20800004 A            AI,R8    4                 *
     2024   01 0069D    35800DDA              STW,R8   TABLE3%P          *
     2025   01 0069E    68000691              B        SEARCH%TABLE
     2026                            *
     2027         01 0069F           MOVE%SEARCH EQU   %
     2028   01 0069F    31800DC7              CW,R8    HFF000000         CHECK FOR TABLE END
     2029   01 006A0    683C0000 A            BE       0,X6              EXIT IF END
     2030                            *
     2031   01 006A1    35800DDA              STW,R8   TABLE3%P          *
     2032   01 006A2    68000691              B        SEARCH%TABLE      GO SEARCH IT
     2033                            *
     2034                            *
     2035                            *
     2036                            *  ENTER HERE TO DECODE WORD 3 OF SELECTED QUAD WORD IN TABLE 3
     2037                            *      (WORD 3 = CONTROL WORD)
     2038                            *         ***********
     2039                            *                     BITS 0-2 = MODE (TYPE)
     2040                            *                     BITS 3-4 = # OF SUPP. HDRS.
     2041                            *                     BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     2042                            *                     BITS 8-12= NOT USED
     2043                            *                     BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     2044                            *                     BIT 16 = RUN CONTROL FLAG
     2045                            *                     BITS 17-19= VALIDATION FOR PARAMS.
     2046                            *                       IN PARAM. LINE (MODE 2 OR MODE 6)
     2047                            *                     BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     2048                            *                       OR INDEX PARAM #1 (MODE 6)
     2049                            *                     BITS 23-25= VAL. FOR PARAM#2
     2050                            *                     BITS 26-28= VAL. FOR PARAM#3
     2051                            *                     BITS 29-31= VAL. FOR PARAM #4
     2052                            *
     2053                            *                 MODE:  0= UNCONDITIONAL (&)
     2054                            *                        1= IMMEDIATE     (DM)
     2055                            *                        2= PARAMETER LINE (S)
     2056                            *                        6= INDEXED PARAMETER LINE
     2057                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     2058                            *                            0 = HEX, 1 = BIN, AND
     2059                            *                            4-7 = DESIGNER DEFINED
     2060                            *
     2061         01 006A3           DECODE%CW EQU     %
     2062   01 006A3    7280061E              LB,R8    S%MODE
     2063   01 006A4    75800620              STB,R8   D%MODE            SAY MODE HAS BEEN DEFINED
     2064   01 006A5    22100001 A            LI,X1    1
     2065   01 006A6    F2820DDA              LB,R8    *TABLE3%P,X1
     2066   01 006A7    702004FC              LC       IDLFLG
     2067   01 006A8    69F006AF              BCS,15   %+7               BRANCH IF IN IDLE MODE
     2068   01 006A9    21800050 A            CI,R8    '&'
     2069   01 006AA    683006AD              BE       %+3               BRANCH IF STATUS REQUEST
     2070   01 006AB    02200070 A            LCI      7
     2071   01 006AC    680006AE              B        %+2
     2072                            *
     2073   01 006AD    02200080 A            LCI      8
     2074   01 006AE    740004FC              STCF     IDLFLG            FORCE FLAG TO NEW MODE
     2075                            *
     2076   01 006AF    22100003 A            LI,X1    3
     2077   01 006B0    22800000 A            LI,R8    0
     2078   01 006B1    358004A2              STW,R8   ERRTEXT
     2079   01 006B2    32900DDA              LW,R9    TABLE3%P          SAVE POINTER
     2080   01 006B3    22800DDB              LI,R8    TABLE3
     2081   01 006B4    35800DDA              STW,R8   TABLE3%P          START SEARCH AT TABLE START
     2082   01 006B5    6A600691     DECODE%1 BAL,X6   SEARCH%TABLE      SEARCH FOR EXPLANATIONS
     2083   01 006B6    680006C2              B        DECODE%2          RETURN HERE AT TABLE END
     2084                            *
     2085                            *
     2086                            *  ENTER HERE ONCE FOR EACH EXPL. FOUND
     2087                            *
     2088   01 006B7    322004A2              LW,X2    ERRTEXT
     2089   01 006B8    212FFFF1 A            CI,X2    -15
     2090   01 006B9    683006C2              BE       DECODE%2          EXIT IF ERRTEXT TABLE IS FULL
     2091                            *
     2092   01 006BA    202FFFFF A            AI,X2    -1
     2093   01 006BB    352004A2              STW,X2   ERRTEXT
     2094   01 006BC    B2820DDA              LW,R8    *TABLE3%P,X1      FETCH EXPL. POINTER
     2095   01 006BD    358404A2              STW,R8   ERRTEXT,X2        AND SAVE IT
     2096   01 006BE    32800DDA              LW,R8    TABLE3%P
     2097   01 006BF    20800004 A            AI,R8    4
     2098   01 006C0    35800DDA              STW,R8   TABLE3%P          BUMP THE POINTER TO NEXT ENTRY
     2099   01 006C1    680006B5              B        DECODE%1
     2100                            *
     2101   01 006C2    35900DDA     DECODE%2 STW,R9   TABLE3%P          RESTORE POINTER TO CONTROL ENTRY
     2102   01 006C3    22100007 A            LI,X1    7
     2103   01 006C4    22600000 A            LI,X6    0
     2104   01 006C5    35620398              STW,X6   #OUTPTR-1,X1      ZERO OUT BUFFERS
     2105   01 006C6    641006C5              BDR,X1   %-1
     2106   01 006C7    22100002 A            LI,X1    2
     2107   01 006C8    B2820DDA              LW,R8    *TABLE3%P,X1      FIND CONTROL WORD
     2108   01 006C9    692006CD              BGZ      %+4               BRANCH IF NOT IN INDEX MODE
     2109   01 006CA    22100001 A            LI,X1    1                 (BIT 0 SET)
     2110   01 006CB    72120008 A            LB,X1    R8,X1
     2111   01 006CC    75100624              STB,X1   X%MODE
     2112   01 006CD    31800DBE              CW,R8    H40000000
     2113   01 006CE    684006D0              BCR,4    %+2               BRANCH IF NOT PARAM. LINE MODE
     2114   01 006CF    35800621              STW,R8   P%MODE            PARAM LINE MODE IF BIT 1 IS SET
     2115                            *
     2116   01 006D0    31800DBD              CW,R8    H20000000
     2117   01 006D1    684006D8              BCR,4    %+7               BRANCH IF NOT IMMED. PARAM.
     2118   01 006D2    72900008 A            LB,R9    R8                FIND COMMA COUNT
     2119   01 006D3    4B900DA0              AND,R9   H7                *
     2120   01 006D4    75900623              STB,R9   I%MODE            SAVE COUNT TO INDICATE
     2121   01 006D5    32900624              LW,R9    X%MODE            IMMED. PARAM TYPE
     2122   01 006D6    683006D8              BEZ      %+2
     2123   01 006D7    680006D7              B        %                 ERROR IF IN BOTH
     2124                            *
     2125   01 006D8    22100001 A            LI,X1    1                 FIND TRANSFER ADDRESS
     2126   01 006D9    B2820DDA              LW,R8    *TABLE3%P,X1      *
     2127   01 006DA    4B800DAC              AND,R8   HFFFF             *
     2128   01 006DB    21800800 A            CI,R8    X'800'
     2129   01 006DC    681006DF              BGE      %+3               BRANCH IF IN GUIDE OR DIAG.
     2130                            *
     2131   01 006DD    308006F7              AW,R8    REMOTE%BIAS       POINT AT REMOTE GUIDE ROUTINE
     2132   01 006DE    680006E0              B        %+2
     2133                            *
     2134   01 006DF    308003B2              AW,R8    #WORD%BIAS
     2135   01 006E0    358006F6              STW,R8   PROEXIT           SAVE ADDRESS OF DIRECTIVE ROUTINE
     2136   01 006E1    22100002 A            LI,X1    2
     2137   01 006E2    B2820DDA              LW,R8    *TABLE3%P,X1
     2138                            *
     2139                            *
     2140                            *  THE FOLLOWING ROUTINE MOVES THE CONTENTS OF R8    AS FOLLOWS:
     2141                            *        BITS 17-19 TO %VTYPE  (BYTE 0)
     2142                            *             20-22 TO %PTYPE  (BYTE 0)
     2143                            *             23-25 TO %PTYPE  (BYTE 1)
     2144                            *             26-28 TO %PTYPE  (BYTE 2)
     2145                            *             29-31 TO %PTYPE  (BYTE 3)
     2146                            *
     2147   01 006E3    22100011 A            LI,X1    17                SHIFT OUT EXCESS BITS
     2148   01 006E4    30800008 A            AW,R8    R8
     2149   01 006E5    641006E4              BDR,X1   %-1
     2150   01 006E6    22700005 A            LI,X7    5                 SET INDEX TO MOVE 5 FIELDS
     2151   01 006E7    6A6006FE              BAL,X6   SHIFT3            MOVE 3 MOST SIG, BITS INTO X5
     2152   01 006E8    321E0707              LW,X1    SPREAD%TO-1,X7
     2153   01 006E9    75520000 A            STB,X5   0,X1
     2154   01 006EA    647006E7              BDR,X7   %-3
     2155                            *
     2156   01 006EB    72800624              LB,R8    X%MODE
     2157   01 006EC    69300508              BNEZ     SETIDLE           WAIT FOR INDEX CHAR.
     2158                            *
     2159   01 006ED    32800623              LW,R8    I%MODE
     2160   01 006EE    693006FA              BNEZ     OUTPROMPT         OUTPUT IMMED. PARAM. PROMPT
     2161   01 006EF    32600621              LW,X6    P%MODE
     2162   01 006F0    69300781              BCS,3    TEXTPLINE         BRANCH IF NO PARAM LINE
     2163                            *
     2164                            *
     2165         01 006F1           NOPLINE  EQU      %
     2166                            *
     2167                            *   ENTER HERE TO EXIT TO SELECTED DIRECTIVE ROUTINE
     2168                            *
     2169   01 006F1    326006F4              LW,X6    PLINE#STATUS      FIND ERROR RETURN ADDRESS
     2170   01 006F2    35600622              STW,X6   B%MODE
     2171   01 006F3    E80006F6              B        *PROEXIT          EXIT TO DIRECTIVE ROUTINE PROCESSOR
     2172                            *                                     WITH ERROR RETURN ADDR. IN X6
     2173                            *
     2174   01 006F4    000008E7     PLINE#STATUS DATA FIELDERR          BITS 2,3 NONZERO IF PARAM. LINE
     2175                            *                                      WAS ALTERED (CC3,CC4)
     2176                            *
     2177   01 006F5    00000379     PROMPT   DATA     DA(%-3)
     2178                            *
     2179   01 006F6    00000000 A   PROEXIT  DATA     0
     2180                            *
     2181   01 006F7    00000000 A   REMOTE%BIAS DATA  0                 ADDRESS OF REMOTE GUIDE PACKAGE
     2182                            *
     2183                            ******************************
     2184                            *
     2185                            *
     2186   01 006F8    00000000 A   FLDSTRT%CUR DATA  0                 COLUMN # OF FIRST CHAR. IN CURRENT FIELD
     2187   01 006F9    00000000 A   FLDSTRT%1 DATA    0                 COLUMN # OF FIRST CHAR. IN 1ST FIELD
     2188                            *
     2189                            *
     2190         01 006FA           OUTPROMPT EQU     %
     2191                            *
     2192   01 006FA    2230006E A            LI,X3    '>'
     2193   01 006FB    6A600D4B              BAL,X6   TTYOUT
     2194   01 006FC    020006FC              NOP      %
     2195   01 006FD    68000507              B        SETIDLE-1
     2196                            *
     2197                            *
     2198                            *
     2199   01 006FE    22500000 A   SHIFT3   LI,X5    0
     2200   01 006FF    22100003 A            LI,X1    3                 SET UP FOR 3 SHIFTS
     2201   01 00700    30800008 A            AW,R8    R8
     2202   01 00701    68800703              BCR,8    %+2               BRANCH IF NO CARRY
     2203   01 00702    48520704              EOR,X5   %+2,X1
     2204   01 00703    64100700              BDR,X1   %-3
     2205   01 00704    E8000006 A            B        *X6
     2206                            *
     2207   01 00705    00000001 A            DATA     1,2,4             MASKS FOR BITS 29,30,31
            01 00706    00000002 A
            01 00707    00000004 A
     2208                            *
     2209         01 00708           SPREAD%TO EQU     %
     2210                            *
     2211   01 00708    0000189B              DATA     BA(%PTYPE)+3,BA(%PTYPE)+2,BA(%PTYPE)+1,BA(%PTYPE)
            01 00709    0000189A
            01 0070A    00001899
            01 0070B    00001898
     2212   01 0070C    00001894              DATA     BA(%VTYPE)
     2213                            *
     2214                            *
     2215                            *  ENTER HERE TO SEARCH FOR ALL EXPLANATIONS APPLICABLE
     2216                            *        TO THE CURRENT INPUT DIRECTIVE
     2217                            *
     2218         01 0070D           SEARCH%EXPL EQU   %
     2219                            *
     2220   01 0070D    22800000 A            LI,R8    0
     2221   01 0070E    35800735              STW,R8   EXPL%FLAG         SET FLAG TO INDICATE NO EXPL.
     2222   01 0070F    22800DDB              LI,R8    TABLE3            HAS BEEN FOUND
     2223   01 00710    35800DDA              STW,R8   TABLE3%P          INITIALIZE SEARCH POINTER
     2224                            *                                            TO START OF FIRST QUAD WORD
     2225   01 00711    3280061E              LW,R8    S%MODE
     2226   01 00712    683004F1              BEZ      FIDLE#1           EXIT TO IDLE STATE
     2227                            *
     2228         01 00713           SEARCH%EXPL#1 EQU %
     2229   01 00713    6A600691              BAL,X6   SEARCH%TABLE      GO FIND AN EXPLANATION
     2230   01 00714    68000729              B        SEARCH%END        TABLE END RETURN
     2231   01 00715    73100735              MTB,1    EXPL%FLAG         INDICATE ONE WAS FOUND
     2232   01 00716    22100003 A            LI,X1    3
     2233   01 00717    B2820DDA              LW,R8    *TABLE3%P,X1      FIND EXPL. POINTER
     2234   01 00718    7290061E              LB,R9    S%MODE
     2235   01 00719    21900001 A            CI,R9    1
     2236   01 0071A    69300720              BNE      SEARCH%EXPL#2     BRANCH IF NOT FIRST CHARACTER
     2237   01 0071B    22100001 A            LI,X1    1
     2238   01 0071C    72920008 A            LB,R9    R8,X1             FIND # OF LINES OF TEXT
     2239   01 0071D    4B900DA1              AND,R9   HF
     2240   01 0071E    68300720              BEZ      SEARCH%EXPL#2     DISPLAY ALL IF BYTE 1 IS 0
     2241                            *
     2242                            *  ENTER HERE TO EXPLAIN FIRST CHARACTER (LIST ALL OF THEM)
     2243                            *
     2244   01 0071F    75900008 A            STB,R9   R8                AND ADD # OF TEXTC'S
     2245                            *
     2246         01 00720           SEARCH%EXPL#2 EQU %
     2247                            *
     2248   01 00720    4B800DCC              AND,R8   HFFD0FFFF
     2249   01 00721    48800DB0              EOR,R8   H200000           SET MULTIPLE OUTPUT FLAG
     2250   01 00722    35800724              STW,R8   %+2
     2251   01 00723    6A600B74              BAL,X6   PRINTER
     2252   01 00724    00000000 A            DATA     0
     2253                            *
     2254   01 00725    32800DDA              LW,R8    TABLE3%P
     2255   01 00726    20800004 A            AI,R8    4                 BUMP POINTER TO NEXT QUAD WORD
     2256   01 00727    35800DDA              STW,R8   TABLE3%P
     2257   01 00728    68000713              B        SEARCH%EXPL#1     GO LOOK FOR ANOTHER EXPL.
     2258                            *
     2259         01 00729           SEARCH%END EQU    %                 ENTER HERE WHEN TABLE END IS FOUND
     2260   01 00729    72800735              LB,R8    EXPL%FLAG
     2261   01 0072A    69300733              BNEZ     SEARCH%EXIT       BRANCH IF 1 OR MORE WERE EXPLAINED
     2262   01 0072B    32800DBF              LW,R8    H40404040
     2263   01 0072C    3580073A              STW,R8   NO%EXPL+4
     2264   01 0072D    3580073B              STW,R8   NO%EXPL+5
     2265   01 0072E    7210061E              LB,X1    S%MODE            FIND # OF CHARACTERS ENTERED
     2266   01 0072F    7282061E              LB,R8    S%MODE,X1         AND PUT THEM IN MESSAGE
     2267   01 00730    6410072E              BDR,X1   %-2
     2268                            *
     2269   01 00731    6A600B70              TYPE     NO%EXPL
            01 00732    01201CD8 A
     2270   01 00733    6A600613     SEARCH%EXIT BAL,X6 RESET%MODE
     2271   01 00734    680004F1              B        FIDLE#1           GO TO 'IDLE' MODE
     2272                            *
     2273                            *
     2274   01 00735    00000000 A   EXPL%FLAG DATA    0                 SET TO NONZERO IF EXPL. FOUND
     2275                            *
     2276         01 00736           NO%EXPL  TEXTCS   'NO EXPLANATION-        '
     2277                            *
     2278                            *
     2279                            ********************************************************************
     2280                            *
     2281                            *        IMMEDIATE PARAMETER INPUT ROUTINE
     2282                            *
     2283         01 0073C           I%STATE  EQU      %
     2284                            *
     2285                            *                   RELEASE COMMA COUNT IS IN X5,  BYTE ZERO;
     2286                            *        CURRENT COMMA COUNT IS IS BYTE 3.
     2287                            *
     2288   01 0073C    21000015 A            CI,R0    NL                CHECK FOR RETURN CHARACTER
     2289   01 0073D    68300764              BCR,3    READ%PARAM-1      BRANCH IF CR
     2290                            *
     2291   01 0073E    2100006B A            CI,R0    X'6B'             COMMA
     2292   01 0073F    69300745              BCS,3    %+6               BRANCH IF NOT COMMA
     2293                            *
     2294   01 00740    20500001 A            AI,X5    1
     2295   01 00741    71500005 A            CB,X5    X5
     2296   01 00742    68300765              BCR,3    READ%PARAM        RELEASE IF LAST COMMA
     2297   01 00743    35500623              STW,X5   I%MODE
     2298   01 00744    68000508              B        SETIDLE           READY FOR NEXT PARAMETER
     2299                            *
     2300                            *  ENTER HERE TO VALIDATE CHARACTER ENTERED
     2301                            *
     2302   01 00745    723A0626              LB,X3    %PTYPE,X5
     2303   01 00746    3530074B              STW,X3   %+5
     2304   01 00747    7500074B              STB,R0   %+4               NEXT CHARACTER
     2305   01 00748    6A500869              BAL,X5   VALCHAR
     2306   01 00749    6A50066B              BAL,X5   PARAMERR          ERROR EXIT
     2307   01 0074A    68000762              B        I%ERR
     2308   01 0074B                          RES      1
     2309                            *
     2310                            *   ENTER HERE IF VALIDATION OK
     2311                            *        SHIFT PREVIOUSLY ENTERED CHARS. LEFT ONE AND INSERT
     2312                            *        LATEST CHAR. AS LEAST SIGNIFICANT
     2313                            *
     2314   01 0074C    7230074B              LB,X3    %-1
     2315   01 0074D    32600623              LW,X6    I%MODE            GET PARAMETER NUMBER
     2316   01 0074E    32700006 A            LW,X7    X6
     2317   01 0074F    30700007 A            AW,X7    X7
     2318   01 00750    324E03A2              LW,X4    #PARAM1,X7
     2319   01 00751    325E03A3              LW,X5    #PARAM1+1,X7
     2320   01 00752    22A00008 A            LI,R10   8
     2321   01 00753    30400004 A            AW,X4    X4
     2322   01 00754    69800761              BCS,8    I%ERR-1           BRANCH IF NEW CHARACTER WAS NINTH
     2323   01 00755    64A00753              BDR,R10  %-2
     2324                            *
     2325   01 00756    324E03A2              LW,X4    #PARAM1,X7        RESTORE HIGH ORDER DATA
     2326   01 00757    22A00008 A            LI,R10   8
     2327   01 00758    30400004 A            AW,X4    X4
     2328   01 00759    30500005 A            AW,X5    X5
     2329   01 0075A    6880075C              BCR,8    %+2
     2330   01 0075B    20400001 A            AI,X4    1
     2331   01 0075C    64A00758              BDR,R10  %-4
     2332   01 0075D    48500003 A            EOR,X5   X3
     2333   01 0075E    354E03A2              STW,X4   #PARAM1,X7
     2334   01 0075F    355E03A3              STW,X5   #PARAM1+1,X7
     2335   01 00760    68000508              B        SETIDLE
     2336                            *
     2337   01 00761    6A500671              BAL,X5   OVERFLOW
     2338   01 00762    6A600613     I%ERR    BAL,X6   RESET%MODE
     2339   01 00763    0E8005D0              LPSD,8   DONTRUN           EXIT TO IDLE
     2340                            *
     2341                            *
     2342                            *
     2343   01 00764    20500001 A            AI,X5    1                 BUMP COMMA COUNT
     2344         01 00765           READ%PARAM EQU    %
     2345                            *
     2346                            *  X5 BYTE 3 CONTAINS THE NUMBER OF PARAMETERS ENTERED
     2347                            *
     2348   01 00765    22600004 A            LI,X6    4
     2349   01 00766    22000000 A            LI,R0    0
     2350   01 00767    350C039B              STW,R0   #PARAM%H1-1,X6
     2351   01 00768    64600767              BDR,X6   %-1
     2352   01 00769    4B500DA1              AND,X5   HF
     2353                            *
     2354   01 0076A    22601897              LI,X6    BA(%PTYPE)-1
     2355   01 0076B    30600005 A            AW,X6    X5
     2356   01 0076C    726C0000 A            LB,X6    0,X6
     2357   01 0076D    21600001 A            CI,X6    1
     2358   01 0076E    69200777              BG       %+9               BRANCH IF NOT HEX OR BIN VALIDATION
     2359                            *
     2360   01 0076F    326A077A              LW,X6    BA%PARAM1-1,X5
     2361   01 00770    35600772              STW,X6   %+2
     2362   01 00771    6A600B57              BAL,X6   SCANPARAM
     2363   01 00772    00000E88              DATA     BA(#PARAM1)
     2364   01 00773    68000778              B        %+5
     2365   01 00774    02000774              NOP      %
     2366   01 00775    6A600B11              ETHCON   %+1
            01 00776    00001DDC
     2367   01 00777    356A039B              STW,X6   #PARAM%H1-1,X5
     2368   01 00778    205FFFFF A            AI,X5    -1
     2369   01 00779    683006F1              BEZ      NOPLINE           EXIT IF NO MORE TO FILL
     2370   01 0077A    6800076A              B        READ%PARAM+5
     2371                            *
     2372   01 0077B    00000E88     BA%PARAM1 DATA    BA(#PARAM1),BA(#PARAM2),BA(#PARAM3),BA(#PARAM4)
            01 0077C    00000E90
            01 0077D    00000E98
            01 0077E    00000EA0
     2373                            *
     2374   01 0077F    22600000 A   X%DONE   LI,X6    0
     2375   01 00780    35600624              STW,X6   X%MODE            RESET INDEX FLAG
     2376                            *
     2377                            *
     2378                            *
     2379         01 00781           TEXTPLINE EQU     %
     2380                            *
     2381                            *   ENTER HERE AFTER PARAM. LINE DEFINITION REQUIREMENTS ARE MET.
     2382                            *
     2383   01 00781    323006F6              LW,X3    PROEXIT           REQUEST DIRECTIVE ROUTINE ADDRESS
     2384   01 00782    22400000 A            LI,X4    0                 ACCUMULATOR TO BUILD OUTPTR
     2385   01 00783    22100002 A            LI,X1    2
     2386   01 00784    B2620DDA              LW,X6    *TABLE3%P,X1      FIND CONTROL WORD IN TABLE 3
     2387   01 00785    4B600DBC              AND,X6   H18000000
     2388   01 00786    68300799              BCR,3    OUTPUTHDR         BRANCH IF NO 'SUPPLEMENTARY' TEXT
     2389   01 00787    31600DBA              CW,X6    H10000000
     2390   01 00788    6840078B              BCR,4    %+3
     2391   01 00789    204FFFFE A            AI,X4    -2
     2392   01 0078A    203FFFFE A            AI,X3    -2
     2393   01 0078B    31600DB9              CW,X6    H8000000
     2394   01 0078C    6840078F              BCR,4    %+3
     2395   01 0078D    204FFFFF A            AI,X4    -1
     2396   01 0078E    203FFFFF A            AI,X3    -1
     2397   01 0078F    225FFFFF A            LI,X5    -1
     2398   01 00790    305006F6              AW,X5    PROEXIT           POINT TO ONE LOCATION BEFORE
     2399                            *                                      DIRECTIVE ROUTINE
     2400   01 00791    326A0000 A            LW,X6    0,X5
     2401   01 00792    35600794              STW,X6   %+2               DISPLAY SUPPLEMENTARY HEADERS
     2402   01 00793    6A600B70              TYPE     %+1
            01 00794    01201E54 A
     2403   01 00795    31500003 A            CW,X5    X3
     2404   01 00796    68300799              BCR,3    %+3
     2405   01 00797    205FFFFF A            AI,X5    -1
     2406   01 00798    68000791              B        %-7
     2407                            *
     2408         01 00799           OUTPUTHDR EQU     %
     2409                            *
     2410                            *        X4    IS 0, -1, -2, OR -3.
     2411                            *
     2412   01 00799    3250039A              LW,X5    #PAKDEX           CAN BE POSITIVE, NEGATIVE, OR ZERO
     2413   01 0079A    30500005 A            AW,X5    X5
     2414   01 0079B    203FFFFF A            AI,X3    -1                POINT TO FIRST POSSIBLE 'HEADER'
     2415   01 0079C    204FFFFF A            AI,X4    -1                BUILD OUTPTR'
     2416   01 0079D    21500000 A            CI,X5    0
     2417   01 0079E    683007A3              BCR,3    %+5
     2418                            *        BRANCH WHEN 'BASE' VALUE IS REACHED
     2419   01 0079F    204FFFFF A            AI,X4    -1
     2420   01 007A0    205FFFFF A            AI,X5    -1
     2421   01 007A1    203FFFFF A            AI,X3    -1
     2422   01 007A2    6800079D              B        %-5
     2423                            *
     2424   01 007A3    204FFFFF A            AI,X4    -1                POINT TO 'OUT' TEXT
     2425   01 007A4    35400399              STW,X4   #OUTPTR
     2426                            *
     2427         01 007A5           RM%TEXT  EQU      %                 REPLACE MEMORY ENTRY POINT
     2428                            *
     2429   01 007A5    32500003 A            LW,X5    X3
     2430   01 007A6    323A0000 A            LW,X3    0,X5              FETCH 'HDR' ADDRESS
     2431   01 007A7    205FFFFF A            AI,X5    -1
     2432   01 007A8    353007AC              STW,X3   HDRLINE%
     2433   01 007A9    323A0000 A            LW,X3    0,X5              FETCH ''OUT' LINE' ADDRESS
     2434   01 007AA    353007AE              STW,X3   OUTLINE%
     2435   01 007AB    6A600B70              TYPE     HDRLINE%          TYPE HEADER
            01 007AC    01201EB0 A
     2436                            *
     2437         01 007AC           HDRLINE% EQU      %-1
     2438         01 007AE           OUTLINE% EQU      %+1
     2439                            *
     2440   01 007AD    6A600B70              TYPE     OUTLINE%          TYPE EXISTING 'OUT' LINE
            01 007AE    01201EB8 A
     2441                            *
     2442         01 007AF           PLINERESTART EQU  %
     2443                            *
     2444                            *   ENTER HERE TO SET UP PARAMETER LINE FOR FIRST INPUT
     2445                            *
     2446   01 007AF    22400000 A            LI,X4    0
     2447   01 007B0    22600013 A            LI,X6    19
     2448   01 007B1    354C045A              STW,X4   TLINEIN,X6        ZERO OUT BUFFER
     2449   01 007B2    656007B1              BIR,X6   %-1
     2450   01 007B3    4B300DB1              AND,X3   H3FFFFF
     2451   01 007B4    303003B1              AW,X3    #BYTE%BIAS
     2452   01 007B5    72660000 A            LB,X6    0,X3
     2453   01 007B6    21600049 A            CI,X6    KPLIMIT+1
     2454   01 007B7    691007B9              BCS,1    %+2               BRANCH IF DIRECTIVE OUTLINE IS
     2455                            *                                   LESS THAN 72 CHAR.
     2456   01 007B8    22600048 A            LI,X6    KPLIMIT
     2457   01 007B9    F5601002              STB,X6   *#PLINEIN@
     2458   01 007BA    30300006 A            AW,X3    X6
     2459                            *
     2460   01 007BB    72460000 A            LB,X4    0,X3              MOVE TEXT FROM OUT-LINE TO
     2461   01 007BC    203FFFFF A            AI,X3    -1                PLINEIN (IN USER PROGRAM)
     2462   01 007BD    F54C1002              STB,X4   *#PLINEIN@,X6
     2463   01 007BE    21400015 A            CI,X4    X'15'             TEST FOR EMBEDDED 'NEW LINE'
     2464   01 007BF    6830080E              BCR,3    P%STCF            BRANCH IF YES
     2465   01 007C0    754C045A              STB,X4   TLINEIN,X6
     2466   01 007C1    646007BB              BDR,X6   %-6
     2467                            *
     2468                            *        OUTPUT LEADING SPACES IN PARAMETER LINE HERE
     2469                            *
     2470   01 007C2    22600040 A            LI,X6    X'40'             PRESET WITH SPACE IN CASE
     2471   01 007C3    7560045A              STB,X6   TLINEIN           FIELD STARTS IN COLUMN ONE.
     2472   01 007C4    72400625              LB,X4    %VTYPE
     2473   01 007C5    354007D2              STW,X4   PLV1              FILL PARAM LINE VALIDATION LOCATIONS
     2474   01 007C6    354008A6              STW,X4   PLV2              *
     2475   01 007C7    35400895              STW,X4   PLV3              *
     2476   01 007C8    3540084C              STW,X4   PLV4              *
     2477   01 007C9    22500001 A            LI,X5    1
     2478   01 007CA    755006F9              STB,X5   FLDSTRT%1         FIELD RESET POINTER
     2479   01 007CB    755006F8              STB,X5   FLDSTRT%CUR       CURRENT FIELD POINTER
     2480   01 007CC    35500621              STW,X5   P%MODE
     2481   01 007CD    F24A1002              LB,X4    *#PLINEIN@,X5
     2482   01 007CE    754007D2              STB,X4   PLV1
     2483   01 007CF    6A500869              BAL,X5   VALCHAR
     2484   01 007D0    680007D8              B        NOTCOL1           NO VALID CHAR. IN COLUMN 1
     2485                            *
     2486   01 007D1    40000000 A            DATA     X'40000000'       'SPACE' IN EBCDIC (BYTE ZERO)
     2487   01 007D2    00000000 A   PLV1     DATA     0                 VALIDATION TYPE GOES HERE
     2488                            *
     2489                            *        RETURN HERE IF FIRST FIELD STARTS IN COLUMN 1
     2490                            *
     2491   01 007D3    6A6008A9              BAL,X6   TOPL              TYPE ON PARAMETER LINE
     2492   01 007D4    00000015 A            DATA     X'15'             CARRIAGE RETURN
     2493                            *
     2494   01 007D5    73100621              MTB,1    P%MODE
     2495   01 007D6    6A60089C              BAL,X6   FINDEND           DETERMINE PARAMETER LINE FIELD SIZE
     2496   01 007D7    68000507              B        SETIDLE-1         (ARMUSER)
     2497                            *
     2498         01 007D8           NOTCOL1  EQU      %
     2499   01 007D8    22400040 A            LI,X4    X'40'             SPACE CODE
     2500   01 007D9    754007D1              STB,X4   PLV1-1
     2501   01 007DA    6A80088B              BAL,R8   FINDSTRT          PARAMETER LINE, FIND FIELD
     2502                            *
     2503         01 007DB           PLINERESET EQU    %
     2504                            *
     2505   01 007DB    755006F9              STB,X5   FLDSTRT%1
     2506   01 007DC    755006F8              STB,X5   FLDSTRT%CUR
     2507   01 007DD    35500621              STW,X5   P%MODE
     2508   01 007DE    75500621              STB,X5   P%MODE
     2509   01 007DF    205FFFFF A            AI,X5    -1
     2510   01 007E0    683007C9              BCR,3    PLV1-9            BRANCH IF AT COLUMN 1
     2511   01 007E1    7550045A              STB,X5   TLINEIN
     2512   01 007E2    6A600B70              TYPE     TLINEIN           ALLIGN KSR WITH START OF FIELD
            01 007E3    01201168 A
     2513   01 007E4    6A60089C              BAL,X6   FINDEND           DETERMINE FIELD SIZE
     2514   01 007E5    68000507              B        SETIDLE-1         (ARMUSER)
     2515                            *
     2516                            *************************************************************
     2517                            *        PARAMETER LINE CHARACTER PROCESSOR
     2518                            *    ENTER HERE AFTER EACH PARAMETER LINE CHAR. HAS BEEN KEYED IN
     2519                            *        X5 CONTAINS END OF FIELD COUNT IN BYTE 0, CURRENT COUNT IN 3
     2520                            *
     2521         01 007E6           P%STATE  EQU      %
     2522   01 007E6    7500084C              STB,R0   PLV4              SAVE INPUT CHARACTER
     2523   01 007E7    2100004C A            CI,R0    '<'               BRANCH IF
     2524   01 007E8    693007F8              BCS,3    NOTREPL           NOT RESET/RESTART PARAMETER LINE
     2525   01 007E9    710007D1              CB,R0    PLV1-1            TEST FOR '<' IMMED. PRECEDING CHAR
     2526   01 007EA    693007EE              BCS,3    RESET%FLD         BRANCH IF NOT
     2527   01 007EB    32600399              LW,X6    #OUTPTR
     2528   01 007EC    B23C06F6              LW,X3    *PROEXIT,X6       FETCH ADDRESS OF 'OUT' TEXTC
     2529   01 007ED    680007AF              B        PLINERESTART
     2530                            *
     2531         01 007EE           RESET%FLD EQU     %
     2532   01 007EE    726006F8              LB,X6    FLDSTRT%CUR
     2533   01 007EF    4B500DA8              AND,X5   HFF
     2534   01 007F0    F23C1002              LB,R3    *#PLINEIN@,X6     MOVE FIELD CONTENT FROM PLINEIN
     2535   01 007F1    753C045A              STB,R3   TLINEIN,X6        TO TLINEIN (RESTORE)
     2536   01 007F2    20600001 A            AI,X6    1
     2537   01 007F3    31600005 A            CW,X6    X5
     2538   01 007F4    691007F0              BCS,1    %-4               BRANCH IF NOT AT END OF FIELD
     2539                            *
     2540   01 007F5    725006F9              LB,X5    FLDSTRT%1         INDEX FOR FIRST FIELD COLUMN
     2541   01 007F6    750007D1              STB,R0   PLV1-1
     2542   01 007F7    680007DC              B        PLINERESET+1
     2543                            *
     2544         01 007F8           NOTREPL  EQU      %
     2545   01 007F8    750007D1              STB,R0   PLV1-1            SET (NEXT) 'LAST' CHARACTER.
     2546   01 007F9    21000015 A            CI,R0    X'15'             CARRIAGE RETURN (LINE RELEASE)
     2547   01 007FA    69300810              BCS,3    NOTPLCR           BRANCH IF NOT A RETURN CHAR.
     2548   01 007FB    715006F8              CB,X5    FLDSTRT%CUR
     2549   01 007FC    69300803              BCS,3    P%DONE-1          BRANCH IF END OF LINE
     2550   01 007FD    226000FF A            LI,X6    X'FF'
     2551   01 007FE    4B600005 A            AND,X6   X5
     2552   01 007FF    206FFFFF A            AI,X6    -1
     2553   01 00800    69200805              BCS,2    P%DONE+1          BRANCH IF NO CHARS. ENTERED
     2554   01 00801    02200030 A            LCI      3
     2555   01 00802    6800080E              B        P%STCF
     2556                            *
     2557                            *
     2558   01 00803    6A6008B2              BAL,X6   JUSTIFY           RIGHT JUSTIFY PARAMETER FIELD
     2559                            *
     2560   01 00804    72600621     P%DONE   LB,X6    P%MODE            FETCH END OF CURRENT FIELD PLUS ONE
     2561   01 00805    22400000 A            LI,X4    0
     2562   01 00806    754006F4              STB,X4   PLINE#STATUS
     2563   01 00807    724C045A              LB,X4    TLINEIN,X6
     2564   01 00808    F14C1002              CB,X4    *#PLINEIN@,X6
     2565   01 00809    6830080B              BCR,3    %+2
     2566   01 0080A    731006F4              MTB,1    PLINE#STATUS
     2567   01 0080B    F54C1002              STB,X4   *#PLINEIN@,X6
     2568   01 0080C    64600807              BDR,X6   %-5
     2569                            *
     2570   01 0080D    724006F4              LB,X4    PLINE#STATUS      WILL BE ZERO FOR NO CHANGES
     2571   01 0080E    740006F4     P%STCF   STCF     PLINE#STATUS      CC3, CC4 ZERO IF BYTE ZERO = 0
     2572   01 0080F    680006F1              B        NOPLINE           EXIT TO PROCESSOR
     2573                            *
     2574         01 00810           NOTPLCR  EQU      %
     2575   01 00810    21000008 A            CI,R0    X'08'             'EOM' CHARACTER
     2576   01 00811    6930081E              BCS,3    NOTEOM            BRANCH IF NOT EOM CHAR.
     2577   01 00812    715006F8              CB,X5    FLDSTRT%CUR       FIRST POSITION IN CURRENT FIELD
     2578   01 00813    69300820              BCS,3    NOTEOM+2          BRANCH IF NO
     2579   01 00814    726A045A              LB,X6    TLINEIN,X5
     2580   01 00815    35600817              STW,X6   %+2
     2581   01 00816    6A6008A9              BAL,X6   TOPL              TYPE FOLLOWING CHARACTER (BYTE 3)
     2582   01 00817    4040406F A            DATA     '   ?'
     2583   01 00818    32500621              LW,X5    P%MODE            BUMP CURRENT
     2584   01 00819    20500001 A            AI,X5    1                 POSITION
     2585   01 0081A    35500621              STW,X5   P%MODE            POINTER.
     2586   01 0081B    71500005 A            CB,X5    X5                TEST FOR END OF CURRENT FIELD
     2587   01 0081C    69300814              BCS,3    %-8               BRANCH IF NOT
     2588   01 0081D    680008C8              B        TAB               TAB TO NEW FIELD
     2589                            *
     2590         01 0081E           NOTEOM   EQU      %
     2591   01 0081E    2100006B A            CI,R0    ','               COMMA
     2592   01 0081F    6930082E              BCS,3    NOTCOMMA          BRANCH IF NOT A COMMA
     2593   01 00820    71500005 A            CB,X5    X5
     2594   01 00821    683008C8              BCR,3    TAB               PRESENT FIELD COMPLETELY FILLED
     2595   01 00822    715006F8              CB,X5    FLDSTRT%CUR       CURRENT PARAMETER LINE FIELD INDEX
     2596   01 00823    68300826              BCR,3    %+3               NO ENTRIES IN THIS FIELD
     2597   01 00824    6A6008B2              BAL,X6   JUSTIFY           RIGHT JUSTIFY PARAMETER FIELD
     2598   01 00825    680008C8              B        TAB               TAB TO NEW FIELD
     2599                            *
     2600                            *
     2601   01 00826    6A6008A9              BAL,X6   TOPL              SPACE OVER THIS FIELD
     2602   01 00827    00000040 A            DATA     X'40'
     2603   01 00828    32500621              LW,X5    P%MODE            FETCH NEW VALUE
     2604   01 00829    20500001 A            AI,X5    1
     2605   01 0082A    35500621              STW,X5   P%MODE
     2606   01 0082B    71500005 A            CB,X5    X5
     2607   01 0082C    69300826              BCS,3    %-6               BRANCH IF FIELD NOT PRINTED YET
     2608   01 0082D    680008C8              B        TAB               TAB TO NEXT FIELD
     2609                            *
     2610                            *
     2611                            *
     2612         01 0082E           NOTCOMMA EQU      %
     2613                            *
     2614   01 0082E    2100007F A            CI,R0    X'7F'             DITTO CHARACTER
     2615   01 0082F    69300846              BCS,3    NOT%TERM          BRANCH IF NOT DITTO
     2616   01 00830    715006F8              CB,X5    FLDSTRT%CUR       TEST FOR START OF CURRENT FIELD
     2617   01 00831    6930084A              BCS,3    DITTOERR          BRANCH IF NOT WAITING THERE
     2618   01 00832    32600623              LW,X6    I%MODE            TEST FOR 'RM' REQUEST
     2619   01 00833    6830084A              BCR,3    DITTOERR          BRANCH IF NOT 'RM'
     2620   01 00834    715006F9              CB,X5    FLDSTRT%1         TEST FOR FIRST FIELD
     2621   01 00835    6830084A              BCR,3    DITTOERR          BRANCH IF YES
     2622   01 00836    32600005 A            LW,X6    X5
     2623   01 00837    206FFFF7 A            AI,X6    -9                POINT TO START OF LAST FIELD
     2624   01 00838    724C045A              LB,X4    TLINEIN,X6
     2625   01 00839    754A045A              STB,X4   TLINEIN,X5
     2626   01 0083A    71500005 A            CB,X5    X5
     2627   01 0083B    6830083F              BCR,3    %+4               BRANCH WHEN FIELD MOVE IS DONE
     2628   01 0083C    20600001 A            AI,X6    1
     2629   01 0083D    20500001 A            AI,X5    1
     2630   01 0083E    68000838              B        %-6               MOVE THE NEXT CHARACTER
     2631                            *
     2632   01 0083F    35500621              STW,X5   P%MODE
     2633   01 00840    22300008 A            LI,X3    8                 SKIP
     2634   01 00841    6A6008A9              BAL,X6   TOPL              OVER
     2635   01 00842    00000040 A            DATA     X'40'             THE
     2636   01 00843    64300841              BDR,X3   %-2               FIELD.
     2637   01 00844    32500621              LW,X5    P%MODE
     2638   01 00845    680008C8              B        TAB               TAB TO NEXT FIELD
     2639                            *
     2640         01 00846           NOT%TERM EQU      %
     2641                            *
     2642                            *   ENTER HERE IF INPUT CHAR. IS NOT A FIELD TERMINATOR
     2643                            *
     2644   01 00846    7500084C              STB,R0   PLV4
     2645   01 00847    71500005 A            CB,X5    X5
     2646   01 00848    683008E3              BCR,3    OVERERR           BRANCH IF FIELD OVERFLOW
     2647   01 00849    6A500869              BAL,X5   VALCHAR
     2648   01 0084A    6A50066B     DITTOERR BAL,X5   PARAMERR
     2649   01 0084B    680008E4              B        OVERERR+1
     2650   01 0084C    00000000 A   PLV4     DATA     0
     2651   01 0084D    32500621              LW,X5    P%MODE            CURRENT STORAGE POSITION
     2652   01 0084E    7240084C              LB,X4    %-2
     2653   01 0084F    0200084F              NOP      %                 *********************
     2654   01 00850    754A045A              STB,X4   TLINEIN,X5
     2655   01 00851    32500621              LW,X5    P%MODE            FETCH NEW VALUE
     2656   01 00852    20500001 A            AI,X5    1
     2657   01 00853    35500621              STW,X5   P%MODE
     2658   01 00854    68000508              B        SETIDLE
     2659                            *
     2660                            *
     2661                            **************************************************
     2662                            *
     2663         01 00855           X%STATE  EQU      %
     2664                            *        X5     HAS X%MODE  (END COUNT AND CURRENT COUNT)
     2665                            *
     2666   01 00855    723A0626              LB,X3    %PTYPE,X5
     2667   01 00856    3530085B              STW,X3   %+5
     2668   01 00857    7500085B              STB,R0   %+4
     2669   01 00858    6A500869              BAL,X5   VALCHAR
     2670   01 00859    6800067B              B        %SYNERR           ILLEGAL CHARACTER
     2671   01 0085A                          RES      2
     2672                            *
     2673   01 0085C    32600624              LW,X6    X%MODE            RETURN HERE WITH VAL. POSITION
     2674                            *                 IN X5, VALBIT  VALUE IN X4
     2675   01 0085D    755C039B              STB,X5   #INDEX,X6
     2676   01 0085E    3230039A              LW,X3    #PAKDEX
     2677   01 0085F    32700004 A            LW,X7    X4
     2678   01 00860    30300003 A            AW,X3    X3
     2679   01 00861    64700860              BDR,X7   %-1
     2680   01 00862    30300005 A            AW,X3    X5
     2681   01 00863    3530039A              STW,X3   #PAKDEX
     2682   01 00864    20600001 A            AI,X6    1
     2683   01 00865    71600006 A            CB,X6    X6
     2684   01 00866    6830077F              BCR,3    X%DONE            BRANCH IF INDEXING COMPLETE
     2685                            *
     2686   01 00867    35600624              STW,X6   X%MODE
     2687   01 00868    68000508              B        SETIDLE
     2688                            *
     2689                            ****************************************************
     2690                            *
     2691                            *        ROUTINE TO TEST FOR CHARACTER VALIDATION
     2692                            *
     2693                            *        CALLING SEQUENCE
     2694                            *   BAL           BAL,X5    VALCHAR
     2695                            *   BAL+1         RETURN ON NO VALIDATION
     2696                            *   BAL+2         USE AS REQUIRED FOR ABOVE RETURN
     2697                            *   BAL+3         DATA      BYTE 0 = CHAR TO BE VALIDATED, AND
     2698                            *                                   BYTE 3=VALIDATION TYPE
     2699                            *   BAL+4         RETURN ON VALIDATION OK
     2700                            *
     2701                            *        REGISTERS USED    X3,X4,X6,X7
     2702                            *
     2703         01 00869           VALCHAR  EQU      %
     2704                            *
     2705   01 00869    3550087C              STW,X5   VCERROR           SETUP ERROR RETURN
     2706   01 0086A    20500002 A            AI,X5    2
     2707   01 0086B    35500883              STW,X5   VALCOMP           NORMAL EXIT
     2708   01 0086C    325A0000 A            LW,X5    0,X5              FETCH VALIDATION TABLE NO.
     2709   01 0086D    72300005 A            LB,X3    X5
     2710   01 0086E    724A03E4              LB,X4    VALBIT,X5         SHIFT COUNT
     2711   01 0086F    726A03E6              LB,X6    VALDEX,X5         BASIC LOOP COUNT
     2712   01 00870    325A03E8              LW,X5    VALTYPE,X5
     2713   01 00871    69300875              BCS,3    %+4               BRANCH IF LEGAL TABLE
     2714   01 00872    724003E4              LB,X4    VALBIT            DEFAULT
     2715   01 00873    726003E6              LB,X6    VALDEX            TO
     2716   01 00874    325003E8              LW,X5    VALTYPE           HEXADECIMAL
     2717   01 00875    206FFF00 A            AI,X6    X'FFF00'
     2718   01 00876    35500884              STW,X5   VALCOMP+1
     2719   01 00877    713A0000 A            CB,X3    0,X5
     2720   01 00878    6830087D              BCR,3    %+5               MATCH
     2721   01 00879    20500001 A            AI,X5    1
     2722   01 0087A    65600877              BIR,X6   %-3
     2723   01 0087B    E800087C              B        *%+1              RETURN TO BAL+1 ON ERROR
     2724                            *
     2725   01 0087C                 VCERROR  RES      1
     2726                            *
     2727   01 0087D    32700884              LW,X7    VALCOMP+1         BASE OF TABLE (BYTE ADDRESS)
     2728   01 0087E    48700DD0              EOR,X7   HFFFFFFFF
     2729   01 0087F    20700001 A            AI,X7    1
     2730   01 00880    30500007 A            AW,X5    X7
     2731   01 00881    32700883              LW,X7    %+2
     2732   01 00882    680E0001 A            B        1,X7              RETURN TO BAL+3 ON MATCH
     2733                            *
     2734   01 00883                 VALCOMP  RES      2
     2735                            *
     2736                            *
     2737         01 00885           NOT:IP   EQU      %
     2738   01 00885    324A0001 A            LW,X4    1,X5
     2739                            *
     2740                            *****************************
     2741   01 00886    72600004 A            LB,X6    X4
     2742   01 00887    22700013 A            LI,X7    19
     2743   01 00888    30600006 A            AW,X6    X6
     2744   01 00889    64700888              BDR,X7   %-1
     2745   01 0088A    6800088C              B        %+2
     2746                            *
     2747                            *
     2748                            *****************************
     2749                            *
     2750                            *  SUBROUTINE TO FIND COLUMN # OF FIRST ENTRY IN PARAMETER FIELD
     2751                            *
     2752                            *        LINK REGISTER = R8
     2753                            *
     2754                            *        EXIT WITH COLUMN # IN REGISTER X5
     2755                            *
     2756                            *
     2757                            *
     2758         01 0088B           FINDSTRT EQU      %
     2759   01 0088B    32500621              LW,X5    P%MODE
     2760   01 0088C    20500001 A            AI,X5    1
     2761   01 0088D    35500621              STW,X5   P%MODE
     2762   01 0088E    F1501002              CB,X5    *#PLINEIN@
     2763   01 0088F    E9200008 A            BCS,2    *R8               EXIT IF AT END OF LINE
     2764   01 00890    F24A1002              LB,X4    *#PLINEIN@,X5
     2765   01 00891    75400895              STB,X4   PLV3
     2766   01 00892    6A500869              BAL,X5   VALCHAR
     2767   01 00893    753007D1              STB,X3   PLV1-1
     2768   01 00894    6800088B              B        FINDSTRT
     2769                            *
     2770   01 00895    00000000 A   PLV3     DATA     0                 VALIDATION TYPE GOES HERE
     2771                            *
     2772   01 00896    22400040 A            LI,X4    X'40'             RETURN HERE WHEN VALID CHAR. FOUND
     2773   01 00897    714007D1              CB,X4    PLV1-1
     2774   01 00898    6930088B              BCS,3    FINDSTRT
     2775   01 00899    32500621              LW,X5    P%MODE            FETCH COLUMN NUMBER
     2776   01 0089A    E8000008 A            B        *R8
     2777                            *
     2778                            *****************************
     2779                            *
     2780                            *        SUB-ROUTINE TO DETERMINE FIELD SIZE
     2781                            *
     2782                            *        COUNTER (P%MODE-BYTE 0) IS SET TO COLUMN NUMBER OF
     2783                            *          END OF CURRENT PARAMETER FIELD PLUS ONE
     2784                            *
     2785   01 0089B                          RES      1
     2786                            *
     2787         01 0089C           FINDEND  EQU      %
     2788   01 0089C    3560089B              STW,X6   %-1
     2789   01 0089D    73100621              MTB,1    P%MODE
     2790   01 0089E    72500621              LB,X5    P%MODE
     2791   01 0089F    F1501002              CB,X5    *#PLINEIN@
     2792   01 008A0    E920089B              BG       *FINDEND-1        EXIT IF END OF PARAM. LINE
     2793   01 008A1    F24A1002              LB,X4    *#PLINEIN@,X5
     2794   01 008A2    754008A6              STB,X4   %+4
     2795   01 008A3    6A500869              BAL,X5   VALCHAR
     2796   01 008A4    E800089B              B        *FINDEND-1        RETURN HERE IF NOT IN TABLE
     2797                            *
     2798   01 008A5                          RES      1
     2799   01 008A6                 PLV2     RES      1
     2800                            *
     2801   01 008A7    6800089D              B        FINDEND+1         IN TABLE, TEST NEXT COLUMN
     2802                            *
     2803                            *
     2804   01 008A8    00000000 A            DATA     0
     2805                            *
     2806                            *****************************
     2807                            *
     2808         01 008A9           TOPL     EQU      %
     2809                            *
     2810                            *  ENTER HERE TO TYPE OUT ONE PARAMETER LINE CHARACTER
     2811                            *                -        -   -         -
     2812                            *
     2813   01 008A9    356008A8              STW,X6   TOPL-1
     2814   01 008AA    325C0000 A            LW,X5    0,X6              FIND CHARACTER
     2815   01 008AB    755008A5              STB,X5   PLV2-1
     2816   01 008AC    723008A5              LB,X3    PLV2-1
     2817   01 008AD    6A600D4B              BAL,X6   TTYOUT            TYPE IT OUT
     2818   01 008AE    02000000 A            NOP
     2819   01 008AF    326008A8              LW,X6    TOPL-1
     2820   01 008B0    680C0001 A            B        1,X6
     2821                            *
     2822                            *****************************
     2823                            *
     2824                            *    THE FOLLOWING ROUTINE RIGHT JUSTIFIES CHARACTERS WITHIN
     2825                            *        PARAMETER LINE FIELDS
     2826   01 008B1                          RES      1
     2827                            *
     2828         01 008B2           JUSTIFY  EQU      %
     2829   01 008B2    356008B1              STW,X6   %-1
     2830   01 008B3    71500005 A   JUSTIFY1 CB,X5    X5
     2831   01 008B4    E83008B1              BCR,3    *JUSTIFY-1
     2832   01 008B5    205FFFFF A            AI,X5    -1
     2833   01 008B6    724A045A     JUSTIFY2 LB,X4    TLINEIN,X5
     2834   01 008B7    21400040 A            CI,X4    X'40'
     2835   01 008B8    693008C4              BCS,3    JUSTIFY3
     2836   01 008B9    6A6008A9              BAL,X6   TOPL
     2837   01 008BA    00000040 A            DATA     X'40'
     2838   01 008BB    3260084C              LW,X6    PLV4
     2839   01 008BC    326C03E8              LW,X6    VALTYPE,X6        BASE OF VALIDATION TABLE
     2840   01 008BD    724C0000 A            LB,X4    0,X6
     2841   01 008BE    726006F8              LB,X6    FLDSTRT%CUR       START OF THIS FIELD
     2842   01 008BF    754C045A              STB,X4   TLINEIN,X6
     2843   01 008C0    32500621              LW,X5    P%MODE            FETCH NEW VALUE
     2844   01 008C1    20500001 A            AI,X5    1
     2845   01 008C2    35500621              STW,X5   P%MODE
     2846   01 008C3    680008B3              B        JUSTIFY1
     2847                            *
     2848         01 008C4           JUSTIFY3 EQU      %
     2849   01 008C4    20500001 A            AI,X5    1
     2850   01 008C5    754A045A              STB,X4   TLINEIN,X5
     2851   01 008C6    205FFFFE A            AI,X5    -2
     2852   01 008C7    680008B6              B        JUSTIFY2
     2853         01 008C8           TAB      EQU      %                 CODE TO TAB OVER SPACE BETWEEN FIELDS
     2854   01 008C8    F1501002              CB,X5    *#PLINEIN@
     2855   01 008C9    68100804              BCR,1    P%DONE
     2856   01 008CA    6A80088D              BAL,R8   FINDSTRT+2
     2857   01 008CB    755006F8              STB,X5   FLDSTRT%CUR       SET NEW 'CURRENT' PARAM. POINTER
     2858   01 008CC    F1501002              CB,X5    *#PLINEIN@
     2859   01 008CD    69200804              BCS,2    P%DONE            EXIT IF END OF LINE
     2860   01 008CE    7240084C              LB,X4    PLV4
     2861   01 008CF    21400008 A            CI,X4    X'08'             EOM CODE
     2862   01 008D0    683008D2              BCR,3    %+2
     2863   01 008D1    73100621              MTB,1    P%MODE
     2864                            *
     2865                            *        CODE TO TYPE SPACE BETWEEN PARAMETER FIELDS FOLLOWS
     2866                            *
     2867   01 008D2    32500621              LW,X5    P%MODE
     2868   01 008D3    71500005 A            CB,X5    X5
     2869   01 008D4    683008DC              BCR,3    %+8               READY FOR NEXT PARAMETER INPUT
     2870   01 008D5    72500621              LB,X5    P%MODE
     2871   01 008D6    724A045A              LB,X4    TLINEIN,X5
     2872   01 008D7    354008D9              STW,X4   %+2
     2873   01 008D8    6A6008A9              BAL,X6   TOPL
     2874   01 008D9    00000040 A            DATA     X'40'
     2875   01 008DA    73100621              MTB,1    P%MODE            POINT TO NEXT CHARACTER POSITION
     2876   01 008DB    680008D2              B        %-9
     2877                            *
     2878   01 008DC    724A045A              LB,X4    TLINEIN,X5
     2879   01 008DD    754007D1              STB,X4   PLV1-1
     2880   01 008DE    6A60089C              BAL,X6   FINDEND           DETERMINE PARAMETER LINE FIELD SIZE
     2881   01 008DF    72400621              LB,X4    P%MODE
     2882   01 008E0    204FFFFF A            AI,X4    -1
     2883   01 008E1    F1401002              CB,X4    *#PLINEIN@
     2884   01 008E2    68200508              BCR,2    SETIDLE
     2885                            *
     2886                            *
     2887   01 008E3    6A500671     OVERERR  BAL,X5   OVERFLOW          TYPE MESSAGE
     2888                            *
     2889   01 008E4    725006F8              LB,X5    FLDSTRT%CUR       CURRENT PARAMETER LINE FIELD
     2890   01 008E5    680007DD              B        PLINERESET+2
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   24
A    2892                            *
     2893                            *****************************
     2894                            *
     2895   01 008E6                          RES      1
     2896                            *
     2897         01 008E7           FIELDERR EQU      %
     2898                            *
     2899                            *   ENTER HERE IF DIRECTIVE ROUTINE FINDS AN ERROR IN A PARAMETER VALUE
     2900                            *
     2901                            *  X6 (LINK) CONTAINS THE NUMBER OF THE FIELD WITH AN ERROR
     2902                            *
     2903   01 008E7    356008E6              STW,X6   %-1
     2904   01 008E8    324007AE              LW,X4    OUTLINE%          THESE 8 INSTRUCTIONS RESTORE
     2905   01 008E9    72680000 A            LB,X6    0,X4              'PLINEIN' TO IT'S ORIGINAL VALUE.
     2906   01 008EA    F5601002              STB,X6   *#PLINEIN@
     2907   01 008EB    30400006 A            AW,X4    X6
     2908   01 008EC    72580000 A            LB,X5    0,X4
     2909   01 008ED    F55C1002              STB,X5   *#PLINEIN@,X6
     2910   01 008EE    204FFFFF A            AI,X4    -1
     2911   01 008EF    646008EC              BDR,X6   %-3
     2912                            *
     2913   01 008F0    22400000 A            LI,X4    0
     2914   01 008F1    35400621              STW,X4   P%MODE
     2915   01 008F2    35400622              STW,X4   B%MODE
     2916   01 008F3    326008E6              LW,X6    FIELDERR-1
     2917   01 008F4    21600001 A            CI,X6    1
     2918   01 008F5    693008F9              BNE      FIELDERR1         BRANCH IF NOT FIELD 1
     2919                            *
     2920   01 008F6    6A80088B              BAL,R8   FINDSTRT
     2921   01 008F7    21500001 A            CI,X5    1
     2922   01 008F8    683007D3              BE       PLV1+1            BRANCH IF FIELD STARTS IN COL #1
     2923                            *
     2924   01 008F9    22600001 A   FIELDERR1 LI,X6   1
     2925   01 008FA    35600621              STW,X6   P%MODE            INITIALIZE FOR FOLLOWING LOOPS
     2926   01 008FB    725006F9              LB,X5    FLDSTRT%1
     2927   01 008FC    755006F8     FIELDERR2 STB,X5  FLDSTRT%CUR
     2928   01 008FD    35500621              STW,X5   P%MODE
     2929   01 008FE    75500621              STB,X5   P%MODE
     2930   01 008FF    6A60089C              BAL,X6   FINDEND           DETERMINE PARAMETER LINE FIELD SIZE
     2931   01 00900    32500621              LW,X5    P%MODE
     2932   01 00901    755006F8              STB,X5   FLDSTRT%CUR       CURRENT PARAMETER LINE FIELD
     2933   01 00902    205FFFFF A            AI,X5    -1
     2934   01 00903    7550045A              STB,X5   TLINEIN
     2935   01 00904    731008E6              MTB,1    FIELDERR-1
     2936   01 00905    324008E6              LW,X4    FIELDERR-1
     2937   01 00906    71400004 A            CB,X4    X4
     2938   01 00907    6930090B              BCS,3    %+4
     2939   01 00908    6A600B70              TYPE     TLINEIN
            01 00909    01201168 A
     2940   01 0090A    68000508              B        SETIDLE
     2941   01 0090B    22600003 A            LI,X6    3
     2942   01 0090C    72500621              LB,X5    P%MODE            FETCH END OF CURRENT FIELD + ONE
     2943   01 0090D    755C0621              STB,X5   P%MODE,X6         FAKE 'COMMA' ACTION
     2944   01 0090E    6A80088B              BAL,R8   FINDSTRT          FIND THE NEXT FIELD
     2945   01 0090F    680008FC              B        FIELDERR2
     2946                            *

     2948                            *
     2949                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   25
A    2952                            *
     2953                            *        THIS ROUTINE CAUSES A HEXADECIMAL NUMBER TO BE PRINTED
     2954                            *        PRIOR TO THE 'RUN' OR 'IDLE' PROMPT CHARACTER.
     2955                            *        THIS NUMBER REPRESENTS THE NUMBER OF SUCH 'PROMPTS' OUTPUT
     2956                            *        SINCE INITIAL LOADING, AND IS NOT RESET BY ABSOLUTE
     2957                            *        RECOVERY OR BY ENTERING AN '@'.  THIS LINE IS OUTPUT
     2958                            *        ON BOTH THE LINE PRINTER AND THE 'KSR' WHEN THEY ARE
     2959                            *        SEPARATE DEVICES. THE LINE HAS THE FORMAT:
     2960                            *
     2961                            *        NNN=%    OR     NNN=#    OR    NNN=@
     2962                            *
     2963   01 00910                          RES      3
     2964                            *
     2965         01 00913           TRANS%   EQU      %
     2966   01 00913    35300910              STW,X3   TRANS%-3          REGISTERS
     2967   01 00914    35500911              STW,X5   TRANS%-2
     2968   01 00915    35600912              STW,X6   TRANS%-1
     2969                            *
     2970   01 00916    32300397              LW,X3    #PRTADDR
     2971   01 00917    6A600AB5              GEHTECON TRANS#            CONVERT TRANSACTION COUNT TO 'TEXT'
            01 00918    00000935
     2972   01 00919    325C0001 A            LW,X5    1,X6
     2973   01 0091A    22600003 A            LI,X6    3
     2974   01 0091B    723C0005 A            LB,X3    X5,X6             *
     2975   01 0091C    753C0933              STB,X3   TRANSBUFF,X6      *
     2976   01 0091D    6460091B              BDR,X6   %-2               MOVE TEXT:
     2977   01 0091E    32600912              LW,X6    TRANS%-1          FETCH FOR USE AS AN INDEX
     2978   01 0091F    323C0000 A            LW,X3    0,X6              FETCH PROMPT CHARACTER
     2979   01 00920    22600001 A            LI,X6    1
     2980   01 00921    753003A1              STB,X3   #STATUS
     2981   01 00922    753C0934              STB,X3   TRANSBUFF+1,X6
     2982   01 00923    32600396              LW,X6    #TOADDR
     2983   01 00924    31600397              CW,X6    #PRTADDR
     2984   01 00925    6830092A              BCR,3    %+5               BRANCH IF 'MESSAGE' DEVICE IS 'KSR'.
     2985   01 00926    70200DF5              LC       COCSTATE
     2986   01 00927    69C0092A              BCS,12   %+3               BRANCH IF REMOTE TERMINAL 'ON'
     2987   01 00928    6A600B74              PRINT    TRANSBUFF
            01 00929    012024CC A
     2988   01 0092A    32300935              LW,X3    TRANS#            BUMP THE COUNTER
     2989   01 0092B    20300001 A            AI,X3    1                 *
     2990   01 0092C    35300935              STW,X3   TRANS#            *
     2991   01 0092D    6A600B70              TYPE     TRANSBUFF
            01 0092E    012024CC A
     2992                            *
     2993   01 0092F    32300910              LW,X3    TRANS%-3
     2994   01 00930    32500911              LW,X5    TRANS%-2
     2995   01 00931    32600912              LW,X6    TRANS%-1
     2996   01 00932    680C0001 A            B        1,X6              RETURN
     2997                            *
     2998   01 00933    07F0F0F0 A   TRANSBUFF TEXTC   '000=%  '
            01 00934    7E5B4040 A
     2999                            *
     3000   01 00935    00000000 A   TRANS#   DATA     0                 TRANSACTION COUNTER LOCATION
     3001                            *                                   AND INTERLOCK FOR PROGRAM
     3002                            *                                   IDENTIFICATION MESSAGE  OUTPUT
     3003                            *                                   CONTROL.
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   26
A    3006                            *
     3007         01 00936           DMENTRY  EQU      %
     3008   01 00936    226FFFFF A            LI,X6    -1
     3009   01 00937    356003AE              STW,X6   #DM%END
     3010   01 00938    6A5009BB              BAL,X5   D%R%MEMLIMITS
     3011   01 00939    3260039D              LW,X6    #PARAM%H2         FETCH PARAMETER 2
     3012   01 0093A    6830093F              BCR,3    DM%1
     3013                            *
     3014   01 0093B    316003AA              CW,X6    #MAXMEM
     3015   01 0093C    6910093E              BCS,1    %+2               BRANCH IF LESS
     3016   01 0093D    326003AA              LW,X6    #MAXMEM
     3017   01 0093E    356003AE              STW,X6   #DM%END           DISPLAY END DELIMITER
     3018                            *
     3019   01 0093F    3260039C     DM%1     LW,X6    #PARAM%H1
     3020   01 00940    6830094E              BCR,3    DM%2              BRANCH IF MEMORY DUMP
     3021   01 00941    2160000F A            CI,X6    15
     3022   01 00942    69200951              BCS,2    DM%3              BRANCH IF REGISTER NOT REQ.
     3023   01 00943    6A600B70              TYPE     REG%MSG
            01 00944    0120251C A
     3024   01 00945    22600010 A            LI,X6    16                START DISPLAY AT X'10'
     3025   01 00946    68000951              B        DM%3
     3026                            *
     3027         01 00947           REG%MSG  TEXTCS   'REGISTERS SAVED AT 12345678'
     3028                            *
     3029                            *        PARAMETER ONE VALUE IS NULL
     3030                            *
     3031         01 0094E           DM%2     EQU      %
     3032   01 0094E    22600010 A            LI,X6    16                DEFAULT TO X'10'
     3033   01 0094F    324003AA              LW,X4    #MAXMEM
     3034   01 00950    6800095A              B        DM%4
     3035                            *
     3036         01 00951           DM%3     EQU      %
     3037   01 00951    324003AE              LW,X4    #DM%END
     3038   01 00952    68300959              BCR,3    %+7               ZERO ENTERED
     3039   01 00953    69200956              BCS,2    %+3               BRANCH IF NOT NULL ENTRY
     3040   01 00954    4B400006 A            AND,X4   X6
     3041   01 00955    6800095A              B        DM%4
     3042   01 00956    31600004 A            CW,X6    X4
     3043   01 00957    6820095A              BCR,2    %+3
     3044   01 00958    64400959              BDR,X4   %+1
     3045   01 00959    30400006 A            AW,X4    X6
     3046                            *
     3047         01 0095A           DM%4     EQU      %
     3048   01 0095A    316003AA              CW,X6    #MAXMEM
     3049   01 0095B    6910095D              BCS,1    %+2               BRANCH IF ADDRESS GOOD
     3050   01 0095C    326003AA              LW,X6    #MAXMEM
     3051   01 0095D    356003AD              STW,X6   #DM%START
     3052   01 0095E    314003AA              CW,X4    #MAXMEM
     3053   01 0095F    69100961              BCS,1    %+2
     3054   01 00960    324003AA              LW,X4    #MAXMEM
     3055                            *
     3056         01 00961           DM%5     EQU      %
     3057   01 00961    354003AE              STW,X4   #DM%END
     3058   01 00962    32400621              LW,X4    P%MODE            IS DM BEING USED AS A SUBROTINE
     3059   01 00963    E9300004 A            BCS,3    *X4               EXIT IF YES
     3060                            *                                      #DM%START CONTAINS SRT.  ADDR.
     3061                            *                                      #DM%END CONTAINS LAST MEM. ADDR.
     3062   01 00964    6A5009BD              BAL,X5   SET%RDM           FILL BUFFERS WITH SPACES
     3063   01 00965    75600480              STB,X6   RM%OUT            ZERO
     3064   01 00966    6A600AB5              GEHTECON #DM%START
            01 00967    000003AD
     3065   01 00968    324C0000 A            LW,X4    0,X6
     3066   01 00969    325C0001 A            LW,X5    1,X6
     3067   01 0096A    355009A4              STW,X5   DM%%COM+1
     3068   01 0096B    22500002 A            LI,X5    2
     3069   01 0096C    727A0004 A            LB,X7    X4,X5
     3070   01 0096D    757A09A3              STB,X7   DM%%COM,X5
     3071   01 0096E    22500003 A            LI,X5    3
     3072   01 0096F    727A0004 A            LB,X7    X4,X5
     3073   01 00970    757A09A3              STB,X7   DM%%COM,X5
     3074   01 00971    22400007 A            LI,X4    7
     3075   01 00972    754009A3              STB,X4   DM%%COM
     3076   01 00973    326003AD              LW,X6    #DM%START
     3077   01 00974    324003AE              LW,X4    #DM%END
     3078   01 00975    32700006 A            LW,X7    X6
     3079   01 00976    48700DD0              EOR,X7   HFFFFFFFF
     3080   01 00977    20700001 A            AI,X7    1
     3081   01 00978    30400007 A            AW,X4    X7
     3082   01 00979    21400008 A            CI,X4    KPLIMIT/9
     3083   01 0097A    691009AC              BCS,1    DM%6
     3084   01 0097B    325003AD              LW,X5    #DM%START
     3085   01 0097C    324A0000 A            LW,X4    0,X5
     3086   01 0097D    314A0001 A            CW,X4    1,X5
     3087   01 0097E    69300982              BCS,3    %+4
     3088   01 0097F    20500001 A            AI,X5    1
     3089   01 00980    315003AE              CW,X5    #DM%END
     3090   01 00981    6930097C              BCS,3    %-5
     3091   01 00982    20600008 A            AI,X6    8
     3092   01 00983    31500006 A            CW,X5    X6
     3093   01 00984    691009AC              BCS,1    DM%6
     3094   01 00985    355003AD              STW,X5   #DM%START
     3095   01 00986    6A600AB5              GEHTECON #DM%START
            01 00987    000003AD
     3096   01 00988    324C0000 A            LW,X4    0,X6
     3097   01 00989    325C0001 A            LW,X5    1,X6
     3098   01 0098A    355009A7              STW,X5   DM%%COM+4
     3099   01 0098B    22500002 A            LI,X5    2
     3100   01 0098C    727A0004 A            LB,X7    X4,X5
     3101   01 0098D    757A09A6              STB,X7   DM%%COM+3,X5
     3102   01 0098E    22500003 A            LI,X5    3
     3103   01 0098F    727A0004 A            LB,X7    X4,X5
     3104   01 00990    757A09A6              STB,X7   DM%%COM+3,X5
     3105   01 00991    325003AD              LW,X5    #DM%START
     3106   01 00992    02200010 A            LCI      1
     3107   01 00993    2D3A0000 A            LMS,X3   0,X5              FIND MEMORY WORD
     3108   01 00994    6A600AB5              GEHTECON X3
            01 00995    00000003 A
     3109   01 00996    324C0000 A            LW,X4    0,X6
     3110   01 00997    325C0001 A            LW,X5    1,X6
     3111   01 00998    354009AA              STW,X4   DM%%COM+7
     3112   01 00999    355009AB              STW,X5   DM%%COM+8
     3113   01 0099A    22400023 A            LI,X4    35
     3114   01 0099B    754009A3              STB,X4   DM%%COM
     3115   01 0099C    6A600B74              PRINT    DM%%COM,C1
            01 0099D    C100268C A
     3116   01 0099E    683009BA              BCR,3    DM%BRK
     3117   01 0099F    324003AD              LW,X4    #DM%START
     3118   01 009A0    314003AE              CW,X4    #DM%END
     3119   01 009A1    683009BA              BCR,3    DM%BRK
     3120   01 009A2    680009B7              B        DM%7
     3121                            *
     3122         01 009A3           DM%%COM  TEXTCS   ' 012345 THRU 012345 EQUALS 01234567'
     3123                            *
     3124         01 009AC           DM%6     EQU      %
     3125   01 009AC    6A600B74              PRINT    DM%%COM,C1
            01 009AD    C100268C A
     3126   01 009AE    324003AD              LW,X4    #DM%START
     3127   01 009AF    354009B1              STW,X4   %+2
     3128   01 009B0    6A5009C6              BAL,X5   RM%NOW
     3129   01 009B1    00000000 A            DATA     0
     3130   01 009B2    6A600B74              PRINT    RM%OUT
            01 009B3    01201200 A
     3131   01 009B4    324009CB              LW,X4    RM%NOW%           LAST DISPLAYED ADDRESS
     3132   01 009B5    314003AE              CW,X4    #DM%END
     3133   01 009B6    683009BA              BCR,3    %+4
     3134                            *
     3135         01 009B7           DM%7     EQU      %
     3136   01 009B7    20400001 A            AI,X4    1
     3137   01 009B8    354003AD              STW,X4   #DM%START
     3138   01 009B9    68000962              B        DM%5+1
     3139                            *
     3140         01 009BA           DM%BRK   EQU      %
     3141   01 009BA    680004F1              B        FIDLE#1           GO TO 'IDLE' MODE
     3142                            *
     3143                            *        ROUTINE TO SET MEMORY LIMITS FOR 'DM' AND 'RM'
     3144                            *
     3145         01 009BB           D%R%MEMLIMITS EQU %
     3146                            *
     3147   01 009BB    350003AD              STW,R0   #DM%START
     3148   01 009BC    680A0000 A            B        0,X5
     3149                            *
     3150                            *        ROUTINE TO FILL 'RM%HDR'  AND 'RM%OUT'  BUFFERS WITH SPACES
     3151                            *
     3152         01 009BD           SET%RDM  EQU      %
     3153   01 009BD    2260004B A            LI,X6    (4*(RM%OUT-RM%HDR))-1
     3154   01 009BE    7560046D              STB,X6   RM%HDR
     3155   01 009BF    75600480              STB,X6   RM%OUT
     3156   01 009C0    22300040 A            LI,X3    X'40'
     3157   01 009C1    753C046D              STB,X3   RM%HDR,X6
     3158   01 009C2    753C0480              STB,X3   RM%OUT,X6
     3159   01 009C3    646009C1              BDR,X6   %-2
     3160   01 009C4    680A0000 A            B        0,X5
     3161                            *
     3162                            *        ROUTINE TO FILL 'RM%OUT'  WITH CURRENT MEMORY CONTENTS
     3163                            *
     3164         01 009C6           RM%NOW   EQU      %+1
     3165   01 009C5                          RES      1
     3166   01 009C6    355009C5              STW,X5   RM%NOW-1          SAVE RETURN
     3167   01 009C7    324A0000 A            LW,X4    0,X5
     3168   01 009C8    354009CB              STW,X4   RM%NOW%
     3169   01 009C9    223FFFF8 A            LI,X3    -(KPLIMIT/9)      8 FOR A 72 CHARACTER LINE
     3170                            *
     3171         01 009CB           RM%NOW%  EQU      %+1
     3172   01 009CA    6A600AB5              GEHTECON RM%NOW%
            01 009CB    000009CB
     3173   01 009CC    324C0000 A            LW,X4    0,X6
     3174   01 009CD    325C0001 A            LW,X5    1,X6
     3175   01 009CE    22700000 A            LI,X7    0                 PLACE 8 CHARACTERS IN OUTPUT BUFFER
     3176   01 009CF    73100480              MTB,1    RM%OUT
     3177   01 009D0    72600480              LB,X6    RM%OUT
     3178   01 009D1    728E0004 A            LB,R8    X4,X7
     3179   01 009D2    758C0480              STB,R8   RM%OUT,X6
     3180   01 009D3    20700001 A            AI,X7    1
     3181   01 009D4    21700008 A            CI,X7    8
     3182   01 009D5    691009CF              BL       %-6
     3183   01 009D6    324009CB              LW,X4    RM%NOW%
     3184   01 009D7    314003AE              CW,X4    #DM%END
     3185   01 009D8    683009DA              BCR,3    %+2
     3186   01 009D9    653009DC              BIR,X3   %+3
     3187   01 009DA    325009C5              LW,X5    RM%NOW-1
     3188   01 009DB    680A0001 A            B        1,X5
     3189   01 009DC    73100480              MTB,1    RM%OUT
     3190   01 009DD    327009CB              LW,X7    RM%NOW%
     3191   01 009DE    20700001 A            AI,X7    1
     3192   01 009DF    357009CB              STW,X7   RM%NOW%
     3193   01 009E0    680009CA              B        RM%NOW%-1         CONVERT THE NEXT WORD TO 'EBCDIC'
     3194                            *
     3195                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   27
A    3198   01 009E1    00001200 A            DATA     ABSVAL(BA(RM%OUT)),ABSVAL(BA(RM%HDR))
            01 009E2    000011B4 A
     3199                            *
     3200                            *
     3201         01 009E3           RMENTRY  EQU      %
     3202   01 009E3    22400000 A            LI,X4    0
     3203   01 009E4    35400622              STW,X4   B%MODE            RESET 'DESIGNERS BUFFER' FLAG
     3204   01 009E5    32400621              LW,X4    P%MODE
     3205   01 009E6    69300A4D              BCS,3    RM%10             BRANCH IF NOT INITIAL ENTRY
     3206   01 009E7    224FFFFE A            LI,X4    -2
     3207   01 009E8    35400399              STW,X4   #OUTPTR           SET IT TO POINT TO 'RM%OUT'.
     3208   01 009E9    226FFFFF A            LI,X6    -1
     3209   01 009EA    356003AE              STW,X6   #DM%END
     3210   01 009EB    6A5009BB              BAL,X5   D%R%MEMLIMITS
     3211   01 009EC    3260039D              LW,X6    #PARAM%H2         FETCH PARAMETER 2
     3212   01 009ED    683009F2              BCR,3    RM%1
     3213                            *
     3214   01 009EE    316003AA              CW,X6    #MAXMEM
     3215   01 009EF    691009F1              BCS,1    %+2               BRANCH IF LESS
     3216   01 009F0    326003AA              LW,X6    #MAXMEM
     3217   01 009F1    356003AE              STW,X6   #DM%END           DISPLAY END DELIMITER
     3218                            *
     3219   01 009F2    3260039C     RM%1     LW,X6    #PARAM%H1         FETCH PARAMETER 1
     3220   01 009F3    683009F8              BCR,3    RM%2
     3221   01 009F4    2160000F A            CI,X6    15
     3222   01 009F5    692009FB              BCS,2    RM%3              BRANCH IF LOWER LIMIT 'OK'
     3223   01 009F6    6A600B70              TYPE     REG%MSG
            01 009F7    0120251C A
     3224                            *
     3225         01 009F8           RM%2     EQU      %
     3226   01 009F8    22600010 A            LI,X6    16
     3227   01 009F9    324003AA              LW,X4    #MAXMEM
     3228   01 009FA    68000A03              B        RM%4
     3229                            *
     3230         01 009FB           RM%3     EQU      %
     3231   01 009FB    324003AE              LW,X4    #DM%END
     3232   01 009FC    692009FF              BCS,2    %+3               BRANCH IF NOT NULL ENTRY
     3233   01 009FD    4B400006 A            AND,X4   X6
     3234   01 009FE    68000A03              B        RM%4
     3235   01 009FF    31600004 A            CW,X6    X4
     3236   01 00A00    68200A03              BCR,2    %+3
     3237   01 00A01    64400A02              BDR,X4   %+1
     3238   01 00A02    30400006 A            AW,X4    X6
     3239                            *
     3240         01 00A03           RM%4     EQU      %
     3241   01 00A03    316003AA              CW,X6    #MAXMEM
     3242   01 00A04    69100A06              BCS,1    %+2               BRANCH IF ADDRESS GOOD
     3243   01 00A05    326003AA              LW,X6    #MAXMEM
     3244   01 00A06    356003AD              STW,X6   #DM%START
     3245   01 00A07    314003AA              CW,X4    #MAXMEM
     3246   01 00A08    69100A0A              BCS,1    %+2
     3247   01 00A09    324003AA              LW,X4    #MAXMEM
     3248                            *
     3249         01 00A0A           RM%5     EQU      %
     3250   01 00A0A    354003AE              STW,X4   #DM%END
     3251   01 00A0B    6A5009BD              BAL,X5   SET%RDM           FILL BUFFERS WITH SPACES
     3252   01 00A0C    7560046D              STB,X6   RM%HDR            ZERO
     3253   01 00A0D    75600480              STB,X6   RM%OUT            ZERO
     3254                            *
     3255         01 00A0E           RM%6     EQU      %
     3256   01 00A0E    325003AE              LW,X5    #DM%END
     3257   01 00A0F    327003AD              LW,X7    #DM%START
     3258   01 00A10    48700DD0              EOR,X7   HFFFFFFFF
     3259   01 00A11    20700001 A            AI,X7    1
     3260   01 00A12    30500007 A            AW,X5    X7
     3261   01 00A13    21500007 A            CI,X5    (KPLIMIT/9)-1     INITIALIZED TO (72/9=8)-1 = 7
     3262   01 00A14    69100A16              BCS,1    %+2
     3263   01 00A15    22500007 A            LI,X5    (KPLIMIT/9)-1     PROCESS 8 CONSECUTIVE ADDRESSES MAX
     3264   01 00A16    725A0A46              LB,X5    RM%8+1,X5
     3265   01 00A17    205FFF00 A            AI,X5    X'FFF00'          SET LOOP COUNT
     3266   01 00A18    35500A45              STW,X5   RM%8
     3267   01 00A19    35500A48              STW,X5   RM%9
     3268   01 00A1A    324003AD              LW,X4    #DM%START
     3269   01 00A1B    35400A1D              STW,X4   %+2
     3270   01 00A1C    6A5009C6              BAL,X5   RM%NOW            FILL 'RM%OUT' W/ ( ) CURRENT MEMORY
     3271   01 00A1D    00000000 A            DATA     0
     3272   01 00A1E    323003AD              LW,X3    #DM%START
     3273   01 00A1F    32500A45              LW,X5    RM%8
     3274   01 00A20    353A0A45              STW,X3   RM%8,X5
     3275   01 00A21    20300001 A            AI,X3    1
     3276   01 00A22    65500A20              BIR,X5   %-2
     3277   01 00A23    32500A45              LW,X5    RM%8
     3278                            *
     3279         01 00A24           RM%7     EQU      %
     3280   01 00A24    35500A45              STW,X5   RM%8              SAVE NEW COUNT
     3281   01 00A25    323A0A45              LW,X3    RM%8,X5
     3282   01 00A26    6A600AB5              GEHTECON X3
            01 00A27    00000003 A
     3283   01 00A28    324C0000 A            LW,X4    0,X6
     3284   01 00A29    325C0001 A            LW,X5    1,X6
     3285                            *
     3286                            *
     3287   01 00A2A    7270046D              LB,X7    RM%HDR            ADD 4 SPACES
     3288   01 00A2B    20700004 A            AI,X7    4
     3289   01 00A2C    7570046D              STB,X7   RM%HDR
     3290   01 00A2D    22700003 A            LI,X7    3                 PLACE 5 CHARACTER ADDRESS IN BUFF
     3291   01 00A2E    7260046D              LB,X6    RM%HDR
     3292   01 00A2F    7310046D              MTB,1    RM%HDR
     3293   01 00A30    728E0004 A            LB,R8    X4,X7
     3294   01 00A31    758C046D              STB,R8   RM%HDR,X6
     3295   01 00A32    20700001 A            AI,X7    1
     3296   01 00A33    21700008 A            CI,X7    8
     3297   01 00A34    69100A2E              BL       %-6
     3298                            *
     3299   01 00A35    32500A45              LW,X5    RM%8
     3300   01 00A36    65500A24              BIR,X5   RM%7              GO BACK FOR NEXT COLUMN (IF ANY)
     3301   01 00A37    7240046D              LB,X4    RM%HDR
     3302   01 00A38    204FFFFF A            AI,X4    -1
     3303   01 00A39    75400480              STB,X4   RM%OUT
     3304   01 00A3A    323006F6              LW,X3    PROEXIT
     3305   01 00A3B    203FFFFF A            AI,X3    -1                POINT AT 'RM%HDR'.
     3306   01 00A3C    680007A5              B        RM%TEXT           FAKE 'PARAMETER LINE' REQUEST MODE
     3307                            *
     3308   01 00A3D                          RES      KPLIMIT/9         ADDRESSES TO BE DISPLAYED
     3309                            *
     3310         01 00A45           RM%8     EQU      %
     3311   01 00A45    00000000 A            DATA     0
     3312   01 00A46    FF       A            DATA,1   -1,-2,-3,-4,-5,-6,-7,-8
            01 00A46 1  FE       A
            01 00A46 2  FD       A
            01 00A46 3  FC       A
            01 00A47    FB       A
            01 00A47 1  FA       A
            01 00A47 2  F9       A
            01 00A47 3  F8       A
     3313                            *
     3314                                     BOUND    4
     3315                            *
     3316         01 00A48           RM%9     EQU      %
     3317   01 00A48                          RES      1                 2'S COMPLEMENT COUNT OF ACTIVE WORKS
     3318   01 00A49                          RES      1                 CURRENT BYTE POSITION COUNTER
     3319   01 00A4A    01       A            DATA,1   1,10,19,28,37,46,55,64
            01 00A4A 1  0A       A
            01 00A4A 2  13       A
            01 00A4A 3  1C       A
            01 00A4B    25       A
            01 00A4B 1  2E       A
            01 00A4B 2  37       A
            01 00A4B 3  40       A
     3320   01 00A4C    00000000 A            DATA     0                 BYTE ADDRESS OF PLINEIN FROM
     3321                            *                                     USER PROGRAM BY GUIDE INITIALIZER
     3322                            *
     3323                            *        FOLLOWING CODE ENTERED WHEN PARAMETER LINE IS RELEASED
     3324                            *
     3325         01 00A4D           RM%10    EQU      %
     3326   01 00A4D    70200006 A            LC       X6
     3327   01 00A4E    68300A63              BCR,3    RM%13             BRANCH IF NO CHANGE TO LINE
     3328   01 00A4F    32500A48              LW,X5    RM%9
     3329   01 00A50    22400000 A            LI,X4    0
     3330   01 00A51    35400A49              STW,X4   RM%9+1
     3331                            *
     3332         01 00A52           RM%11    EQU      %
     3333   01 00A52    35500A45              STW,X5   RM%8
     3334   01 00A53    223FFFF8 A            LI,X3    -8
     3335   01 00A54    72500A49              LB,X5    RM%9+1
     3336   01 00A55    725A0A4A              LB,X5    RM%9+2,X5         FETCH FIELD STARTING ADDRESS
     3337   01 00A56    32400A4C              LW,X4    RM%9+4            STARTING BYTE ADDRESS OF *##PLINEIN@
     3338   01 00A57    30400005 A            AW,X4    X5
     3339   01 00A58    35400A6D              STW,X4   RM%14             ETHCON + 1
     3340   01 00A59    F24A1002              LB,X4    *#PLINEIN@,X5
     3341   01 00A5A    714A0480              CB,X4    RM%OUT,X5
     3342   01 00A5B    69300A6C              BCS,3    RM%14-1           BRANCH IF CHANGE BY USER
     3343   01 00A5C    20500001 A            AI,X5    1
     3344   01 00A5D    65300A59              BIR,X3   %-4
     3345   01 00A5E    02000A5E              NOP      %
     3346                            *
     3347         01 00A5F           RM%12    EQU      %
     3348   01 00A5F    73100A49              MTB,1    RM%9+1            POINT TO NEXT WORD
     3349   01 00A60    32500A45              LW,X5    RM%8
     3350   01 00A61    65500A52              BIR,X5   RM%11
     3351   01 00A62    02000A62              NOP      %
     3352                            *
     3353         01 00A63           RM%13    EQU      %
     3354   01 00A63    32400A44              LW,X4    RM%8-1            LAST ADDRESS OFFERED FOR CHANGE
     3355   01 00A64    314003AE              CW,X4    #DM%END
     3356   01 00A65    68300A69              BCR,3    %+4
     3357   01 00A66    20400001 A            AI,X4    1
     3358   01 00A67    354003AD              STW,X4   #DM%START
     3359   01 00A68    68000A0B              B        RM%5+1
     3360   01 00A69    02000A69              NOP      %
     3361   01 00A6A    02200040 A            LCI      4                 MAKE A 'NO CHANGE' EXIT
     3362   01 00A6B    680004EB              B        FIDLE
     3363                            *
     3364         01 00A6D           RM%14    EQU      %+1
     3365   01 00A6C    6A600B11              ETHCON   %+1
            01 00A6D    000029B8
     3366   01 00A6E    32500A45              LW,X5    RM%8
     3367   01 00A6F    324A0A45              LW,X4    RM%8,X5
     3368   01 00A70    B5600004 A            STW,X6   *X4               UPDATE MEMORY CONTENTS
     3369   01 00A71    68000A5F              B        RM%12

     3371   01 00A72    00002A48 A            DATA     ABSVAL(BA(OUT%S)),ABSVAL(BA(HDR%S))
            01 00A73    00002A58 A
     3372   01 00A74    70200006 A   PARAMS   LC       X6
     3373   01 00A75    683004F1              BCR,3    FIDLE#1           EXIT IF NO CHANGE
     3374                            *
     3375   01 00A76    22500002 A            LI,X5    2                 INDEX TO BYTE 2
     3376   01 00A77    F24A1002              LB,X4    *#PLINEIN@,X5     FIND IF HARDWARE SSW'S
     3377   01 00A78    214000F1 A            CI,X4    '1'
     3378   01 00A79    69300A7C              BNE      %+3               BRANCH IF NO
     3379   01 00A7A    754A0A92              STB,X4   OUT%S,X5          FORCE MANUAL (PCP) SSW CONTROL
     3380   01 00A7B    680004F1              B        FIDLE#1
     3381                            *
     3382   01 00A7C    32401002              LW,X4    #PLINEIN@
     3383   01 00A7D    32580002 A            LW,X5    2,X4
     3384   01 00A7E    32680003 A            LW,X6    3,X4
     3385   01 00A7F    22400000 A            LI,X4    0
     3386   01 00A80    31600D9E              CW,X6    H1
     3387   01 00A81    68400A83              BCR,4    %+2
     3388   01 00A82    20400010 A            AI,X4    16                SS4 IS SET
     3389   01 00A83    31600DAD              CW,X6    H10000
     3390   01 00A84    68400A86              BCR,4    %+2
     3391   01 00A85    20400020 A            AI,X4    32                SS3 IS SET
     3392   01 00A86    31500D9E              CW,X5    H1
     3393   01 00A87    68400A89              BCR,4    %+2
     3394   01 00A88    20400040 A            AI,X4    64                SS2 IS SET
     3395   01 00A89    31500DAD              CW,X5    H10000
     3396   01 00A8A    68400A8C              BCR,4    %+2
     3397   01 00A8B    20400080 A            AI,X4    128               SS1 IS SET
     3398                            *
     3399   01 00A8C    75400392              STB,X4   #SENSE
     3400   01 00A8D    72600A92              LB,X6    OUT%S
     3401   01 00A8E    F24C1002              LB,X4    *#PLINEIN@,X6
     3402   01 00A8F    754C0A92              STB,X4   OUT%S,X6
     3403   01 00A90    64600A8E              BDR,X6   %-2
     3404                            *
     3405   01 00A91    680004F1     S%EXIT   B        FIDLE#1           EXIT TO 'IDLE' MODE
     3406                            *
     3407         01 00A92           OUT%S    TEXTCS   ' 1      0 0 0 0'
     3408         01 00A96           HDR%S    TEXTCS   ' M  SW= 1 2 3 4'
     3409                            *
     3410                            S%EXPL   TEXTCS   ;
     3411         01 00A9A                    '  ''SS'' SELECTS SENSE SWITCH CONTROL'
     3412                            *
     3413                            *
     3414   01 00AA3    E8000006 A            B        *X6
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   28
A    3416                            *        THIS CODE TEMPORARILY DISABLES USER CONTROL
     3417                            *
     3418         01 00AA4           DISUSER  EQU      %
     3419   01 00AA4    702004FC              LC       IDLFLG
     3420   01 00AA5    69FC0000 A            BCS,15   0,X6              EXIT IF UNDER GUIDE CONTROL
     3421   01 00AA6    35600AAB              STW,X6   ENUSER-1          SAVE RETURN
     3422   01 00AA7    0F000FE6              XPSD,0   SAVEINHB          SAVE INTERRUPT INHIBITS         *G02
     3423   01 00AA8    6D000037 A            WD,0     X'37'             SET THE INHIBIT FLAGS
     3424   01 00AA9    E8000AAB              B        *ENUSER-1
     3425                            *
     3426   01 00AAA    00000000 A   ENBL%FLG DATA     0
     3427                            *
     3428                            *        THIS CODE RESTORES USER CONTROL DISABLED ABOVE
     3429                            *
     3430   01 00AAB                          RES      1                 RETURN STORAGE FOR DISUSER, ENUSER
     3431                            *
     3432         01 00AAC           ENUSER   EQU      %
     3433   01 00AAC    74000AB4              STCF     SAVE%CC
     3434   01 00AAD    702004FC              LC       IDLFLG
     3435   01 00AAE    69F00AB2              BCS,15   %+4               EXIT IF IN GUIDE                *G02
     3436   01 00AAF    35600AAB              STW,X6   ENUSER-1
     3437   01 00AB0    0F000FEA              XPSD,0   RESTINHB          RESTORE INTERRUPT INHIBITS      *G02
     3438   01 00AB1    32600AAB              LW,X6    ENUSER-1
     3439   01 00AB2    70200AB4              LC       SAVE%CC           RESTORE CC'S
     3440                            *                                    WAS RECEIVED DURING OUTPUT
     3441   01 00AB3    680C0000 A            B        0,X6
     3442                            *
     3443   01 00AB4    00000000 A   SAVE%CC  DATA     0                 CC'S AT START OF SUBROUTINE
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   29
A    3445                            *
     3446                            *        THIS ROUTINE MAY BE USED ONLY BY ''GUIDE''.
     3447                            *
     3448         01 00AB5           GEHTE    EQU      %
     3449   01 00AB5    35400AD2              STW,X4   GEHTEBUFF+2       SAVE REGISTERS X4-X7
     3450   01 00AB6    35500AD3              STW,X5   GEHTEBUFF+3
     3451   01 00AB7    35600AD4              STW,X6   GEHTEBUFF+4
     3452   01 00AB8    35700AD5              STW,X7   GEHTEBUFF+5
     3453   01 00AB9    326C0000 A            LW,X6    0,X6              FETCH CONTENTS OF ADDRESS
     3454                            *                                   POINTED TO BY X6
     3455   01 00ABA    68100ABC              BCR,1    %+2               BRANCH IF NO INDIRECT FLAG
     3456   01 00ABB    326C0000 A            LW,X6    0,X6
     3457   01 00ABC    325C0000 A            LW,X5    0,X6              FETCH IT'S CONTENTS
     3458   01 00ABD    226FFFF8 A            LI,X6    -8                SET LOOP COUNT FOR 8 DIGITS
     3459   01 00ABE    2240000F A   GEHTE1   LI,X4    X'F'              PRESET FOR X'F0'-X'F9'
     3460   01 00ABF    22700004 A            LI,X7    4                 MERGE IN A DIGIT: THE RESULT
     3461   01 00AC0    30400004 A            AW,X4    X4                *
     3462   01 00AC1    30500005 A            AW,X5    X5                WILL BE X'F0'-X'F9' (0-9)
     3463   01 00AC2    68800AC4              BCR,8    %+2
     3464   01 00AC3    20400001 A            AI,X4    1
     3465   01 00AC4    64700AC0              BDR,X7   %-4
     3466   01 00AC5    214000FA A            CI,X4    X'FA'             TEST FOR X'F0'-X'F9' (0-9)
     3467   01 00AC6    69100AC8              BCS,1    %+2               BRANCH IF YES
     3468   01 00AC7    204000C7 A            AI,X4    X'C7'             CONVERT X'FA'-X'FF' TO
     3469                            *                                   X'C1'-X'C6' (A-F)
     3470   01 00AC8    754C0AD2              STB,X4   GEHTEBUFF+2,X6    SAVE CONVERTED DIGIT
     3471   01 00AC9    65600ABE              BIR,X6   GEHTE1            LOOP BACK FOR 7 MORE DIGITS
     3472   01 00ACA    32400AD2              LW,X4    GEHTEBUFF+2       RESTORE REGISTERS
     3473   01 00ACB    32500AD3              LW,X5    GEHTEBUFF+3
     3474   01 00ACC    32700AD5              LW,X7    GEHTEBUFF+5
     3475   01 00ACD    32600AD4              LW,X6    GEHTEBUFF+4       INCREMENT RETURN ADDRESS
     3476   01 00ACE    02200020 A            LCI      2                 SET FOR POSSIBLE USER 'LM' INST.
     3477   01 00ACF    6A6C0001 A            BAL,X6   1,X6              AND EXIT WITH GEHTEBUFF ADDRESS
     3478                            *                                     IN X6    REGISTER
     3479   01 00AD0                 GEHTEBUFF RES     6                 RESULTING 'EBCDIC' IN FIRST
     3480                            *                                   TWO LOCATIONS;  REGISTERS
     3481                            *                                   SAVED IN FOLLOWING THREE
     3482                            *                                   MEMORY LOCATIONS.
     3483                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   30
A    3485                            *
     3486         01 00AD6           HTE      EQU      %
     3487   01 00AD6    35400AF1              STW,X4   HTEBUFF+2         SAVE REGISTERS X4-X7
     3488   01 00AD7    35500AF2              STW,X5   HTEBUFF+3
     3489   01 00AD8    35600AF3              STW,X6   HTEBUFF+4
     3490   01 00AD9    35700AF4              STW,X7   HTEBUFF+5
     3491   01 00ADA    326C0000 A            LW,X6    0,X6              FETCH CONTENTS OF ADDRESS
     3492   01 00ADB    325C0000 A            LW,X5    0,X6              FETCH IT'S CONTENTS
     3493   01 00ADC    226FFFF8 A            LI,X6    -8                SET LOOP COUNT FOR 8 DIGITS
     3494                            *
     3495   01 00ADD    2240000F A   HTE1     LI,X4    X'F'              PRESET FOR X'F0'-X'F9'
     3496   01 00ADE    22700004 A            LI,X7    4                 MERGE IN A DIGIT: THE RESULT
     3497   01 00ADF    30400004 A            AW,X4    X4                *
     3498   01 00AE0    30500005 A            AW,X5    X5                WILL BE X'F0'-X'F9' (0-9)
     3499   01 00AE1    68800AE3              BCR,8    %+2
     3500   01 00AE2    20400001 A            AI,X4    1
     3501   01 00AE3    64700ADF              BDR,X7   %-4
     3502   01 00AE4    214000FA A            CI,X4    X'FA'             TEST FOR X'F0'-X'F9' (0-9)
     3503   01 00AE5    69100AE7              BCS,1    %+2               BRANCH IF YES
     3504   01 00AE6    204000C7 A            AI,X4    X'C7'             CONVERT X'FA'-X'FF' TO
     3505                            *                                   X'C1'-X'C6' (A-F)
     3506   01 00AE7    754C0AF1              STB,X4   HTEBUFF+2,X6      SAVE CONVERTED DIGIT
     3507   01 00AE8    65600ADD              BIR,X6   HTE1              LOOP BACK FOR 7 MORE DIGITS
     3508   01 00AE9    32400AF1              LW,X4    HTEBUFF+2         RESTORE REGISTERS
     3509   01 00AEA    32500AF2              LW,X5    HTEBUFF+3
     3510   01 00AEB    32700AF4              LW,X7    HTEBUFF+5
     3511   01 00AEC    32600AF3              LW,X6    HTEBUFF+4         INCREMENT RETURN ADDRESS
     3512   01 00AED    02200020 A            LCI      2                 SET FOR POSSIBLE USER 'LM' INST.
     3513   01 00AEE    6A6C0001 A            BAL,X6   1,X6              AND EXIT WITH HTEBUFF ADDRESS
     3514                            *                                     IN X6    REGISTER
     3515   01 00AEF                 HTEBUFF  RES      6                 RESULTING 'EBCDIC' IN FIRST
     3516                            *                                   TWO LOCATIONS;  REGISTERS
     3517                            *                                   SAVED IN FOLLOWING THREE
     3518                            *                                   MEMORY LOCATIONS.
     3519                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   31
A    3522                            *
     3523         01 00AF5           BTE      EQU      %
     3524   01 00AF5    35400B0E              STW,X4   BTEBUFF+8         SAVE REGISTERS USED
     3525   01 00AF6    35500B0F              STW,X5   BTEBUFF+9
     3526   01 00AF7    35600B10              STW,X6   BTEBUFF+10
     3527   01 00AF8    326C0000 A            LW,X6    0,X6              FETCH CONTENTS OF ADDRESS
     3528                            *                                   POINTED TO BY X6
     3529   01 00AF9    325C0000 A            LW,X5    0,X6              FETCH IT'S CONTENTS
     3530   01 00AFA    226FFFE0 A            LI,X6    -32               SET LOOP COUNT FOR 32 BIT POSITIONS
     3531                            *
     3532   01 00AFB    224000F0 A   BTE1     LI,X4    X'F0'             PRESET FOR X'F0'
     3533   01 00AFC    30500005 A            AW,X5    X5                MERGE IN A BIT: THE RESULT
     3534   01 00AFD    68800AFF              BCR,8    %+2               WILL BE X'F0' OR X'F1'
     3535   01 00AFE    20400001 A            AI,X4    1
     3536   01 00AFF    754C0B0E              STB,X4   BTEBUFF+8,X6      SAVE CONVERTED BIT VALUE
     3537   01 00B00    65600AFB              BIR,X6   BTE1              LOOP BACK FOR 31 MORE
     3538                            *                                   BIT POSITIONS.
     3539   01 00B01    32400B0E              LW,X4    BTEBUFF+8         RESTORE REGISTERS
     3540   01 00B02    32500B0F              LW,X5    BTEBUFF+9
     3541   01 00B03    32600B10              LW,X6    BTEBUFF+10        INCREMENT RETURN ADDRESS
     3542   01 00B04    02200020 A            LCI      2                 SET FOR POSSIBLE USER 'LM' INST.
     3543   01 00B05    6A6C0001 A            BAL,X6   1,X6              AND EXIT WITH BTEBUFF ADDRESS
     3544                            *                                     IN X6    REGISTER
     3545   01 00B06                 BTEBUFF  RES      11                RESULTING 'EBCDIC' IN FIRST
     3546                            *                                   EIGHT LOCATIONS;  REGISTERS
     3547                            *                                   SAVED IN FOLLOWING THREE
     3548                            *                                   MEMORY LOCATIONS.
     3549                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   32
A    3551                            *
     3552         01 00B11           ETH      EQU      %
     3553   01 00B11    35300B4C              STW,X3   ETHSAVE           SAVE REGS. X3 THRU X7
     3554   01 00B12    35400B4D              STW,X4   ETHSAVE+1
     3555   01 00B13    35500B4E              STW,X5   ETHSAVE+2
     3556   01 00B14    35600B4F              STW,X6   ETHSAVE+3
     3557   01 00B15    35700B50              STW,X7   ETHSAVE+4
     3558   01 00B16    325C0000 A            LW,X5    0,X6              GET STARTING BYTE ADDRESS AND
     3559   01 00B17    31500DB8              CW,X5    H7000000          COUNT OF 'EBCDIC' TO BE CON-
     3560   01 00B18    69400B1D              BCS,4    %+5               VERTED; IF B.C. FIELD IS ZERO,
     3561   01 00B19    32700005 A            LW,X7    X5                SET UP TO PROCESS 8 BYTES.
     3562   01 00B1A    48500DB9              EOR,X5   H8000000          OR IN BIT 4
     3563   01 00B1B    4B700DB9              AND,X7   H8000000          *
     3564   01 00B1C    30500007 A            AW,X5    X7                *
     3565   01 00B1D    70300005 A            LCF      X5                TEST FOR BITS IN BIT POSITIONS
     3566   01 00B1E    69F00B2A              BCS,15   ETHICC            0-3; GO TO ERROR IF PRESENT.
     3567   01 00B1F    22300000 A            LI,X3    0                 ZERO HEXADECIMAL ACCUMULATER
     3568                            *
     3569   01 00B20    326003E8     ETHOLP   LW,X6    VALTYPE           GET STARTING BYTE ADDRESS OF
     3570   01 00B21    224FFFF0 A            LI,X4    -16               HEXADECIMAL VALIDATION TABLE
     3571   01 00B22    75400006 A            STB,X4   X6                AND SET FOR 16 COMPARISONS.
     3572   01 00B23    724A0000 A            LB,X4    0,X5              FETCH 'EBCDIC' TO BE CONVERTED
     3573   01 00B24    714C0000 A   ETHILP   CB,X4    0,X6              AND LOOK FOR IT IN THE TABLE.
     3574   01 00B25    68300B30              BCR,3    ETHOK             BRANCH IF IT IS FOUND
     3575   01 00B26    30600DB5              AW,X6    H1000000          TEST LOOP COUNT
     3576   01 00B27    70300006 A            LCF      X6                *
     3577   01 00B28    68F00B2A              BCR,15   %+2               AND BRANCH IF ZERO
     3578   01 00B29    65600B24              BIR,X6   ETHILP            LOOP TO COMPARE WITH NEXT VALUE
     3579                            *                                   IN THE HEXADECIMAL TABLE.
     3580         01 00B2A           ETHICC   EQU      %                 INCORRECT CONDITION CODES
     3581   01 00B2A    72600005 A            LB,X6    X5                GET NO. OF UNCONVERTED DIGITS
     3582                            *                                   AT TIME OF NON-COMPARISON
     3583   01 00B2B    32300B4C              LW,X3    ETHSAVE           RESTORE REGISTERS
     3584   01 00B2C    32400B4D              LW,X4    ETHSAVE+1
     3585   01 00B2D    32500B4E              LW,X5    ETHSAVE+2
     3586   01 00B2E    32700B50              LW,X7    ETHSAVE+4         RESTORE X7
     3587   01 00B2F    0F800B6A     ETHERR   XPSD,8   ERR1
     3588                            *
     3589                            *
     3590   01 00B30    327003E8     ETHOK    LW,X7    VALTYPE           COMPUTE DEPTH IN HEXADECIMAL
     3591   01 00B31    48700DD0              EOR,X7   HFFFFFFFF         *
     3592   01 00B32    20700001 A            AI,X7    1                 *
     3593   01 00B33    30600007 A            AW,X6    X7                *
     3594   01 00B34    4B600DA1              AND,X6   HF                TABLE AND SAVE 4 LOW ORDER
     3595   01 00B35    22700004 A            LI,X7    4                 BITS; MERGE THE BITS INTO
     3596   01 00B36    30300003 A            AW,X3    X3                *
     3597   01 00B37    64700B36              BDR,X7   %-1               *
     3598   01 00B38    32700003 A            LW,X7    X3                THE HEXADECIMAL ACCUMULATOR
     3599   01 00B39    48300006 A            EOR,X3   X6                *
     3600   01 00B3A    4B700006 A            AND,X7   X6                *
     3601   01 00B3B    30300007 A            AW,X3    X7                *
     3602   01 00B3C    72700005 A            LB,X7    X5                TEST FOR MORE CHARACTERS TO
     3603   01 00B3D    207FFFFF A            AI,X7    -1                *
     3604   01 00B3E    75700005 A            STB,X7   X5                *
     3605   01 00B3F    68300B42              BCR,3    %+3               BE CONVERTED. BRANCH IF NONE.
     3606   01 00B40    20500001 A            AI,X5    1                 POINT TO NEXT CHARACTER TO
     3607   01 00B41    68000B20              B        ETHOLP            BE CONVERTED AND TRY IT.
     3608   01 00B42    32600003 A            LW,X6    X3                GET THE ACCUMULATED H.
     3609   01 00B43    32700B4F              LW,X7    ETHSAVE+3         INCREMENT RETURN ADDRESS
     3610   01 00B44    20700001 A            AI,X7    1                 *
     3611   01 00B45    35700B4F              STW,X7   ETHSAVE+3         *
     3612   01 00B46    32600003 A            LW,X6    X3                RESULT TO LINK REG.
     3613   01 00B47    32300B4C              LW,X3    ETHSAVE           RESTORE REGISTERS
     3614   01 00B48    32400B4D              LW,X4    ETHSAVE+1         *
     3615   01 00B49    32500B4E              LW,X5    ETHSAVE+2         *
     3616   01 00B4A    32700B50              LW,X7    ETHSAVE+4         *
     3617   01 00B4B    E8000B4F              B        *ETHSAVE+3
     3618                            *
     3619   01 00B4C                 ETHSAVE  RES      5                 REGISTERS X3 THROUGH
     3620                            *                                   X6    ARE SAVED HERE DURING
     3621                            *                                   THE CONVERSION PROCESS.
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   33
A    3623                            *
     3624                            *        CALLING SEQUENCE:          EXAMPLE FOR IMMEDIATE PARAMETER 1
     3625                            *
     3626                            *        BAL,X6      SCANPARAM      GENERATE ETHCON  AT %+3
     3627                            *        DATA     BA(#PARAM1)
     3628                            *        B                          NULL PARAMETER EXIT
     3629   01 00B51    6D000032 A            WD,0     X'32'
     3630   01 00B52    6A600B11              BAL,X6   ETH
     3631   01 00B53    00000000 A            DATA     0
     3632                            *
     3633   01 00B54                          RES      3
     3634                            *
     3635         01 00B57           SCANPARAM EQU     %
     3636                            *
     3637   01 00B57    35400B56              STW,X4   SCANPARAM-1
     3638   01 00B58    35500B55              STW,X5   SCANPARAM-2
     3639   01 00B59    35700B54              STW,X7   SCANPARAM-3
     3640   01 00B5A    22400008 A            LI,X4    8
     3641   01 00B5B    325C0000 A            LW,X5    0,X6              BA(PARAMETER STORAGE LOCATION)
     3642   01 00B5C    727A0000 A            LB,X7    0,X5
     3643   01 00B5D    69200B64              BCS,2    %+7
     3644   01 00B5E    64400B61              BDR,X4   %+3
     3645   01 00B5F    206FFFFF A            AI,X6    -1
     3646   01 00B60    68000B65              B        %+5
     3647                            *
     3648   01 00B61    20500001 A            AI,X5    1                 POINT TO NEXT BYTE
     3649   01 00B62    75400005 A            STB,X4   X5
     3650   01 00B63    68000B5C              B        %-7
     3651   01 00B64    355C0004 A            STW,X5   4,X6              ETHCON+1
     3652   01 00B65    32700B54              LW,X7    SCANPARAM-3
     3653   01 00B66    32500B55              LW,X5    SCANPARAM-2
     3654   01 00B67    32400B56              LW,X4    SCANPARAM-1
     3655   01 00B68    680C0002 A            B        2,X6              ETHCON
     3656                            *

     3658                            *
     3659                            *
     3660                                     BOUND    8
     3661                            *
     3662   01 00B6A    00000000 A   ERR1     DATA     0
     3663   01 00B6B    68000B6F              B        ERROR1
     3664   01 00B6C    00000B6F              DATA     ERROR1
     3665   01 00B6D    07000000 A            GEN,8,24 7,0
     3666                            *
     3667                            *
     3668   01 00B6E    00000B6A     ERR1PTR  DATA     ERR1
     3669                            *
     3670         01 00B6F           ERROR1   EQU      %
     3671   01 00B6F    68000B6F              B        %                 PROGRAMMING ERROR
     3672                            *
     3673                            *  THE PREVIOUS WAIT INDICATES AN ERROR IN THE DATA
     3674                            *   STATEMENT FOLLOWING THE 'ETHCON' AT THE ADDRESS IN
     3675                            *   'ETHSAVE+3'
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   34
A    3677                            *   ENTER HERE FOR OUTPUT TO KSR (OR SUBSTITUTE )
     3678                            *
     3679         01 00B70           TYPER    EQU      %
     3680                            *
     3681   01 00B70    35600B73              STW,X6   PRINTER-1
     3682                            *
     3683   01 00B71    6A600BEE              BAL,X6   MSG%DECODE        SET FLAGS -- WHICH ARE:
     3684                            *                                   R 10 = NON-ZERO IF TEXT IS COMP.
     3685                            *                                     11 = # OF TEXT'S TO OUTPUT
     3686                            *                                     12 = # OF TEXT'S TO SKIP+1
     3687                            *                                     13 = FORMAT CODE IF LP
     3688                            *                                     14 = NON-ZERO IF DOING VERT. TAB
     3689                            *                                     15 = NON-ZERO IF LINE PRINTER
     3690                            *
     3691   01 00B72    68000BA8              B        PRT@TYP
     3692                            *
     3693                            *
     3694                            *
     3695                            *   ENTER HERE FOR OUTPUT TO LINE PRINTER (IF AVAILABLE)
     3696                            *
     3697   01 00B73    00000000 A            DATA     0                 RETURN ADDRESS FOR PRINTER AND TYPER
     3698         01 00B74           PRINTER  EQU      %
     3699                            *
     3700   01 00B74    35600B73              STW,X6   PRINTER-1
     3701                            *
     3702   01 00B75    6A600BEE              BAL,X6   MSG%DECODE        SET FLAGS
     3703                            *
     3704                            *
     3705   01 00B76    32600396     CHKPRT   LW,X6    #TOADDR
     3706   01 00B77    31600397              CW,X6    #PRTADDR
     3707   01 00B78    68300BA8              BCR,3    PRT@TYP           BRANCH IF PRINTER ADDR. = KSR ADDR.
     3708                            *
     3709   01 00B79    70200DF5              LC       COCSTATE          FIND IF REMOTE TERMINAL LOGGED ON
     3710   01 00B7A    69C00BA8              BCS,12   PRT@TYP           INHIBIT PRINTER OUTPUT IF YES
     3711   01 00B7B    22F000FF A            LI,R15   255               SET PRINTER FLAG
     3712   01 00B7C    CD100397     TSTPRT   TIO,R1   *#PRTADDR
     3713   01 00B7D    68800BA0              BCR,8    PRT%RECOG         BRANCH IF PRINTER ADDR. OK
     3714                            *
     3715   01 00B7E    32600396              LW,X6    #TOADDR
     3716   01 00B7F    35600397              STW,X6   #PRTADDR          CHANGE PRINTER ADDR. = KSR ADDR.
     3717   01 00B80    22602E5C              LI,X6    BA(NO%RECOG)
     3718   01 00B81    35600B83              STW,X6   %+2
     3719   01 00B82    6A600C30              BAL,X6   MOVE%MSG          MOVE MESSAGE TO OUTPUT BUFFER
     3720   01 00B83    00000000 A            DATA     0
     3721   01 00B84    6A600BC4              BAL,X6   TYPE
     3722   01 00B85    68000BA7              B        PRT@TYP-1         OUTPUT MESSAGE ON KSR
     3723                            *
     3724                            *
     3725                            *
     3726                            *
     3727                            PRT%MANUAL TEXTCS ;
     3728         01 00B86              'PRINTER MANUAL; MAKE READY, OR BREAK THIS MESSAGE TO TYPE ON KSR'
     3729                            *
     3730         01 00B97           NO%RECOG TEXTCS   'NO LINE PRINTER - KSR WILL BE USED'
     3731                            *
     3732                            *
     3733                            *
     3734         01 00BA0           PRT%RECOG EQU     %                 ENTER HERE IF PRINT. ADDR. OK
     3735                            *
     3736   01 00BA0    31100DBA              CW,R1    H10000000
     3737   01 00BA1    69400BA8              BCS,4    PRT@TYP           BRANCH IF LP IN AUTO MODE
     3738                            *
     3739   01 00BA2    22402E19              LI,R4    BA(PRT%MANUAL)+1
     3740   01 00BA3    72500B86              LB,R5    PRT%MANUAL
     3741   01 00BA4    6A600D26              BAL,X6   MSGOUT
     3742   01 00BA5    702003AC              LC       #BRKOUT
     3743   01 00BA6    69300B7C              BCS,3    TSTPRT            BRANCH IF NO BREAK RECV'D
     3744   01 00BA7    22F00000 A            LI,R15   0                 RESET PRINTER FLAG
     3745                            *
     3746         01 00BA8           PRT@TYP  EQU      %
     3747                            *
     3748   01 00BA8    32A0000A A   LOOP     LW,R10   R10
     3749   01 00BA9    68300BB2              BCR,3    NO%COMP           BRANCH IF NO COMPRESSION
     3750                            *
     3751         01 00BAA           DECOMP   EQU      %
     3752   01 00BAA    EA601007              BAL,X6   *#DECOMP@
     3753   01 00BAB    00000000 A   MSG%ADDR DATA     0
     3754   01 00BAC    35600BAB              STW,X6   %-1               SAVE ADDRESS OF NEXT TEXT (IF ANY)
     3755   01 00BAD    72D00BAB              LB,R13   MSG%ADDR          FIND FORMAT BYTE
     3756   01 00BAE    21D000F0 A            CI,R13   X'F0'
     3757   01 00BAF    68100BB1              BGE      %+2
     3758   01 00BB0    4BD00DA6              AND,R13  HCF               CHANGE D# TO C#
     3759   01 00BB1    68000BBB              B        CHK%TAB
     3760                            *
     3761   01 00BB2    32600BAB     NO%COMP  LW,X6    MSG%ADDR          FIND LOCATION OF MESSAGE
     3762   01 00BB3    35600BB5              STW,X6   %+2
     3763   01 00BB4    6A600C30              BAL,X6   MOVE%MSG          MOVE MESSAGE TO OUTPUT BUFFER
     3764   01 00BB5    00000000 A            DATA     0
     3765   01 00BB6    72600411              LB,X6    OUTPUT            FIND # OF BYTES IN MESSAGE
     3766   01 00BB7    30600BAB              AW,X6    MSG%ADDR          AND USE TO FIND NEXT
     3767   01 00BB8    20600004 A            AI,X6    4                 TEXT BYTE ADDRESS
     3768   01 00BB9    4B600DAE              AND,X6   HFFFFC
     3769   01 00BBA    35600BAB              STW,X6   MSG%ADDR
     3770   01 00BBB    21E00000 A   CHK%TAB  CI,R14   0
     3771   01 00BBC    69300C14              BCS,3    FIND%TAB          BRANCH IF LOOKING FOR VERTICAL TAB
     3772                            *
     3773         01 00BBD           CHK%PRT  EQU      %
     3774   01 00BBD    64C00C28              BDR,R12  CHK%LOOP
     3775   01 00BBE    32F0000F A            LW,R15   R15
     3776   01 00BBF    68300BC2              BCR,3    GO%TYPE           BRANCH IF KSR SELECTED
     3777                            *
     3778   01 00BC0    6A600BD2              BAL,X6   PRINT
     3779   01 00BC1    68000C26              B        CHK%LOOP-2        GO CHECK FOR MORE TEXTS TO OUTPUT
     3780                            *
     3781                            *
     3782   01 00BC2    6A600BC4     GO%TYPE  BAL,X6   TYPE
     3783   01 00BC3    68000C26              B        CHK%LOOP-2        GO CHECK FOR MORE TEXTS TO OUTPUT

     3785                            *   ENTER HERE (BAL,X6) TO OUTPUT ONE LINE ON KEYBOARD/PRINTER
     3786                            *
     3787         01 00BC4           TYPE     EQU      %
     3788   01 00BC4    35600BCF              STW,X6   MSG%OUT%RET
     3789   01 00BC5    22401045              LI,R4    BA(OUTPUT)+1      DESIGNATE OUTPUT MSG ADDRESS
     3790   01 00BC6    72500411              LB,R5    OUTPUT            FIND CHARACTER COUNT
     3791   01 00BC7    6A600D26              BAL,X6   MSGOUT            DISPLAY LINE OF TEXT
     3792   01 00BC8    22000000 A            LI,R0    0
     3793   01 00BC9    35000393              STW,R0   #HDRFLG           RESET DESIGNER'S HEADER FLAG
     3794   01 00BCA    32600D8A              LW,X6    ABORT%            COMPUTE ABORT LOOP FLAG
     3795   01 00BCB    206FFFFF A            AI,6     -1                AS ADDR. BEFORE ABORT ROUTINE
     3796   01 00BCC    B5000006 A            STW,R0   *X6               RESET THE FLAG
     3797   01 00BCD    32600BCF              LW,X6    MSG%OUT%RET
     3798                            *
     3799   01 00BCE    680C0000 A            B        0,X6
     3800                            *
     3801   01 00BCF    00000000 A   MSG%OUT%RET DATA  0                 RETURN ADDR. FROM TYPE OR PRINT
     3802                                     BOUND    8
     3803   01 00BD0    05001044     PRT%OUT  GEN,8,24 5,BA(OUTPUT)
     3804   01 00BD1    00000000 A            DATA     0                 BYTE CNT GENERATED HERE
     3805                            *
     3806                            *   ENTER HERE (BAL,X6) TO OUTPUT ONE LINE TO THE LINE PRINTER
     3807                            *
     3808         01 00BD2           PRINT    EQU      %
     3809   01 00BD2    35600BCF              STW,X6   MSG%OUT%RET
     3810   01 00BD3    72000411              LB,R0    OUTPUT
     3811   01 00BD4    20000001 A            AI,R0    1                 ADD ONE FOR FORMAT BYTE
     3812   01 00BD5    35000BD1              STW,R0   PRT%OUT+1         SET # OF CHARACTERS TO OUTPUT
     3813   01 00BD6    75D00411              STB,R13  OUTPUT            SET FORMAT CODE
     3814   01 00BD7    220005E8     PRINT2   LI,R0    DA(PRT%OUT)
     3815                            *
     3816   01 00BD8    CC000397              SIO,R0   *#PRTADDR
     3817   01 00BD9    69C00BD8              BCS,12   %-1
     3818                            *
     3819         01 00BDA           PRTBUSY  EQU      %
     3820   01 00BDA    721003AC              LB,R1    #BRKOUT
     3821   01 00BDB    2110000F A            CI,R1    15
     3822   01 00BDC    69300BE0              BNE      NO%BRK
     3823   01 00BDD    02200000 A            LCI      0
     3824   01 00BDE    740003AC              STCF     #BRKOUT           INDICATE 'BREAK' OCCURRED
     3825   01 00BDF    68000BE8              B        PRTEXIT
     3826                            *
     3827                            *
     3828                            *
     3829         01 00BE0           NO%BRK   EQU      %
     3830   01 00BE0    CD100397              TIO,R1   *#PRTADDR
     3831   01 00BE1    69C00BDA              BCS,12   PRTBUSY
     3832   01 00BE2    4B100DB2              AND,R1   H400000
     3833   01 00BE3    69400BE8              BCS,4    PRTEXIT           BRANCH ON TRANSMISSION ERROR
     3834   01 00BE4    CE100397              TDV,R1   *#PRTADDR
     3835   01 00BE5    72100001 A            LB,R1    R1
     3836   01 00BE6    21100002 A            CI,R1    2                 SECOND 'ORDER OUT' EXPECTED BIT
     3837   01 00BE7    69400BD7              BCS,4    PRINT2            BRANCH FOR SECOND 'SIO' IF OUTPUT
     3838                            *                                   IS TO THE LOW SPEED LINE PRINTER.
     3839         01 00BE8           PRTEXIT  EQU      %
     3840   01 00BE8    22000000 A            LI,R0    0
     3841   01 00BE9    35000393              STW,R0   #HDRFLG           RESET DESIGNER'S HEADER FLAG
     3842   01 00BEA    22D000C0 A            LI,R13   X'C0'             SET UP NEXT FORMAT (DEFAULT VALUE)
     3843   01 00BEB    702003AC              LC       #BRKOUT
     3844   01 00BEC    E8000BCF              B        *MSG%OUT%RET

     3846                            *   THE FOLLOWING ROUTINE DECODES THE WORD FOLLOWING THE
     3847                            *     BAL TO PRINTER OR TYPER AS BELOW:
     3848                            *
     3849                            *        BYTE 0 = FORMAT CO IF PRINTER AND IF NOT
     3850                            *                  MULTIPLE LINE OR COMPRESSED TEXT
     3851                            *               = NUMBER OF LINES OF TEXT , OTHERWISE
     3852                            *        BIT 8  = 0
     3853                            *        BIT  9 = 1 IF TEXT IS COMPRESSED
     3854                            *               = 0 IF TEXT IS IN TEXTC FORMAT
     3855                            *        BIT10  = 1 IF MULTIPLE LINE OUTPUT
     3856                            *               = 0 IF SINGLE LINE OUTPUT
     3857                            *        BIT 11 = 1 IF REMOTE PACKAGE BIAS IS REQUIRED
     3858                            *        BITS 12-15 = # OF TEXT'S TO SKIP
     3859                            *        BYTES 2&3 = BYTE ADDRESS OF FIRST TEXT (NON-RELOCATED ADDR.)
     3860                            *
     3861                            *
     3862   01 00BED    00000000 A            DATA     0
     3863         01 00BEE           MSG%DECODE EQU    %
     3864   01 00BEE    35600BED              STW,X6   %-1
     3865   01 00BEF    6A60051B              BAL,X6   SAVE%REGS         SAVE REGISTERS
     3866   01 00BF0    00000401              DATA     SAVE
     3867   01 00BF1    32601006              LW,X6    #ONLINE@
     3868   01 00BF2    68300BF4              BCR,3    %+2               BRANCH IF NO ON-LINE ROUTINE
     3869   01 00BF3    EA601006              BAL,X6   *#ONLINE@         PUT OUTPUT DEV ON LINE IF OFF
     3870   01 00BF4    22100006 A            LI,X1    6
     3871   01 00BF5    22800000 A            LI,R8    0
     3872   01 00BF6    35820009 A            STW,R8   R9,X1             ZERO OUT FLAGS
     3873   01 00BF7    64100BF6              BDR,X1   %-1
     3874                            *
     3875   01 00BF8    B2800B73              LW,R8    *PRINTER-1        PICK UP WORD TO BE DECODED
     3876   01 00BF9    22100001 A            LI,X1    1
     3877   01 00BFA    72C20008 A            LB,R12   R8,X1             FETCH # OF TEXT'S TO SKIP
     3878   01 00BFB    4BC00DA1              AND,R12  HF
     3879   01 00BFC    20C00001 A            AI,R12   1
     3880   01 00BFD    31800DB0              CW,R8    H200000
     3881   01 00BFE    68400C03              BCR,4    MSG%D#1           BRANCH IF MULTI-FLAG NOT SET
     3882   01 00BFF    72B00008 A            LB,R11   R8                SET #FLAG = TO # OF TEXTS TO OUTPUT
     3883   01 00C00    31800DB2              CW,R8    H400000
     3884   01 00C01    69400C07              BCS,4    MSG%D#2-1         EXIT IF COMP FLAG IS SET
     3885                            *
     3886   01 00C02    68000C08              B        MSG%D#2           EXIT WITH COMP FLAG RESET
     3887                            *
     3888   01 00C03    31800DB2     MSG%D#1  CW,R8    H400000
     3889   01 00C04    69400C07              BCS,4    MSG%D#2-1         BRANCH IF TEXT IS COMPRESSED
     3890   01 00C05    72D00008 A            LB,R13   R8                SET FORMAT CODE INTO F%FLAG
     3891   01 00C06    68000C08              B        MSG%D#2
     3892                            *
     3893   01 00C07    22AFFFFF A            LI,R10   -1                SET C%FLAG TO NON-ZERO
     3894                            *
     3895   01 00C08    4B800DAC     MSG%D#2  AND,R8   HFFFF             EXTRACT BYTE ADDRESS OF TEXT
     3896   01 00C09    32100DAF              LW,R1    H100000
     3897   01 00C0A    B1100B73              CW,R1    *PRINTER-1
     3898   01 00C0B    68400C0E              BCR,4    MSG%D#3           BRANCH IF NOT REMOTE MESSAGE
     3899   01 00C0C    30800C13              AW,R8    REM%BYTE%BIAS
     3900   01 00C0D    68000C0F              B        MSG%D#3+1
     3901                            *
     3902   01 00C0E    308003B1     MSG%D#3  AW,R8    #BYTE%BIAS        ADD RELOCATION BIAS
     3903   01 00C0F    35800BAB              STW,R8   MSG%ADDR
     3904   01 00C10    022000F0 A            LCI      15
     3905   01 00C11    740003AC              STCF     #BRKOUT
     3906   01 00C12    E8000BED              B        *MSG%DECODE-1     RETURN TO BAL+1
     3907                            *
     3908   01 00C13    00000000 A   REM%BYTE%BIAS DATA 0                BIAS FOR REMOTE BYTE ADDRESSES
     3909                            *
     3910                            *
     3911                            *
     3912                            *  ENTER HERE IF USER ENTERED A 'BREAK' CHARACTER
     3913                            *
     3914         01 00C14           FIND%TAB EQU      %
     3915   01 00C14    22EFFFFF A            LI,R14   -1                SET TAB FLAG
     3916   01 00C15    32A0000A A            LW,R10   R10
     3917   01 00C16    68300C1D              BCR,3    NON%COMP          BRANCH IF NO COMPRESSION
     3918   01 00C17    32600BAB              LW,X6    MSG%ADDR          PICK UP ADDR. (BYTE) OF NEXT WORD
     3919   01 00C18    726C0000 A            LB,X6    0,X6              PICK UP FORMAT OF NEXT TEXT
     3920   01 00C19    4B600DA7              AND,X6   HF0
     3921   01 00C1A    216000D0 A            CI,X6    X'D0'
     3922   01 00C1B    68300C24              BCR,3    FOUND%TAB         BRANCH IF A VERTICAL TAB
     3923   01 00C1C    68000C28              B        CHK%LOOP
     3924                            *
     3925   01 00C1D    32600BAB     NON%COMP LW,X6    MSG%ADDR
     3926   01 00C1E    728C0000 A            LB,R8    0,X6              PICK UP # OF BYTES
     3927   01 00C1F    21800001 A            CI,R8    1
     3928   01 00C20    69300C28              BCS,3    CHK%LOOP          BRANCH IF NO TAB
     3929   01 00C21    728C0001 A            LB,R8    1,X6
     3930   01 00C22    21800040 A            CI,R8    ' '
     3931   01 00C23    69300C28              BCS,3    CHK%LOOP          BRANCH IF NO TAB
     3932                            *
     3933         01 00C24           FOUND%TAB EQU     %
     3934   01 00C24    22E00000 A            LI,R14   0                 RESET TAB FLAG
     3935   01 00C25    68000C28              B        CHK%LOOP          DISPLAY NEXT LINE OF TEXT
     3936                            *
     3937                            *
     3938   01 00C26    702003AC              LC       #BRKOUT
     3939   01 00C27    68300C14              BCR,3    FIND%TAB          BRANCH IF USER BROKE THE MSG.
     3940   01 00C28    64B00BA8     CHK%LOOP BDR,R11  LOOP              BRANCH IF MORE LINES TO OUTPUT
     3941                            *
     3942         01 00C29           MSG%EXIT EQU      %
     3943   01 00C29    6A60052C              BAL,X6   RESTORE%REGS
     3944   01 00C2A    00000401              DATA     SAVE
     3945   01 00C2B    32600B73              LW,X6    PRINTER-1
     3946   01 00C2C    702003AC              LC       #BRKOUT
     3947   01 00C2D    680C0001 A            B        1,X6              RETURN TO BAL + 2

     3949                            *  THE FOLLOWING ROUTINE MOVES MESSAGE (POINTED TO BY BYTE ADDR.
     3950                            *    AT BAL+1) INTO THE OUTPUT BUFFER FOR OUTPUT EITHER TO THE
     3951                            *    LINE PRINTER OR THE KEYBOARD/PRINTER
     3952                            *
     3953   01 00C2E    00000000 A            DATA     0,0
            01 00C2F    00000000 A
     3954         01 00C30           MOVE%MSG EQU      %
     3955   01 00C30    20600001 A            AI,X6    1
     3956   01 00C31    35600C2F              STW,X6   MOVE%MSG-1        SAVE RETURN ADDR. POINTER
     3957   01 00C32    35100C2E              STW,X1   MOVE%MSG-2
     3958   01 00C33    206FFFFF A            AI,X6    -1
     3959   01 00C34    326C0000 A            LW,X6    0,X6              PICK UP MESSAGE ADDR.
     3960   01 00C35    721C0000 A            LB,X1    0,X6              PICK UP # OF BYTES TO MOVE
     3961   01 00C36    21100084 A            CI,X1    132
     3962   01 00C37    68200C39              BLE      %+2               BRANCH IF OK
     3963   01 00C38    22100084 A            LI,X1    132               SET TO MAXIMUM
     3964   01 00C39    30600001 A            AW,X6    X1                POINT AT LAST BYTE OF MESSAGE
     3965   01 00C3A    75100411              STB,X1   OUTPUT
     3966   01 00C3B    720C0000 A            LB,R0    0,X6
     3967   01 00C3C    75020411              STB,R0   OUTPUT,X1
     3968   01 00C3D    206FFFFF A            AI,X6    -1
     3969   01 00C3E    64100C3B              BDR,X1   %-3
     3970   01 00C3F    32100C2E              LW,X1    MOVE%MSG-2        RESTORE REGISTER
     3971                            *
     3972   01 00C40    E8000C2F              B        *MOVE%MSG-1
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   35
A    3974                            *        SAMPLE ROUTINE
     3975                            *       ------------------
     3976                            *        1. NORMAL ENTRY = INTERRUPT BY COUNTER 4 ZERO EVERY 100 MS.
     3977                            *           ALTERNATE ENTRY = SIMULATED INTERRUPT BY PROGRAMS THAT
     3978                            *           REQUIRE CONTROL OF INTERRUPT POINT (INCLUDING GUIDE ITSELF)
     3979                            *
     3980                            *        2. FUNCTION = SAMPLE SENSE SWITCHES FOR CHANGE (IF
     3981                            *           HARDWARE SS'S ARE IN USE) AND TEST FOR A KEYIN FROM THE
     3982                            *           CONTROLLING TTY.
     3983                            *
     3984                            *        3. EXIT = TO STORED PSD IF NO KEYIN
     3985                            *                  TO DIRECTIVE MODE ON KEYIN
     3986                            *
     3987                                     BOUND    8
     3988         01 00C42           SAMPLEQW EQU      %                 SAMPLE ROUTINE QUAD WORD (STORED AND
     3989                            *                                   NEW PSD)
     3990   01 00C42    00000000 A            DATA     0,0,SAMPLE,X'7000000'
            01 00C43    00000000 A
            01 00C44    00000C46
            01 00C45    07000000 A
     3991         01 00C46           SAMPLE   EQU      %
     3992   01 00C46    702004FC              LC       IDLFLG
     3993   01 00C47    69F00C51              BCS,15   SAMPLE1
     3994   01 00C48    35600546              STW,X6   HALTONERR-1       SAVE THE ENVIRONMENT
     3995   01 00C49    6A60051B              BAL,X6   SAVE%REGS         (REGISTERS AND
     3996   01 00C4A    000004D0              DATA     REGISTERS@RUN     PSD)
     3997   01 00C4B    32600546              LW,X6    HALTONERR-1       *
     3998   01 00C4C    356004D6              STW,X6   REGISTERS@RUN+6   *
     3999   01 00C4D    32600C42              LW,X6    SAMPLEQW          *
     4000   01 00C4E    356004E0              STW,X6   RUNADDR           *
     4001   01 00C4F    32600C43              LW,X6    SAMPLEQW+1        *
     4002   01 00C50    356004E1              STW,X6   RUNADDR+1         *
     4003                            *
     4004         01 00C51           SAMPLE1  EQU      %                 SAMPLE THE SSW'S
     4005   01 00C51    226FFFCE A            LI,X6    -50
     4006   01 00C52    35600C71              STW,X6   CLK%CNT           RESET COUNTER ZERO TO 100 MS.
     4007   01 00C53    70201003              LC       #DIAG@
     4008   01 00C54    69C00C57              BCS,12   %+3               BRANCH IF INTERRUPT OR IOP DIAG.
     4009   01 00C55    22600040 A            LI,X6    X'40'
     4010   01 00C56    6D601200 A            WD,X6    X'1200'           RESET THE INTERRUPT
     4011   01 00C57    22600002 A            LI,X6    2
     4012   01 00C58    728C0A92              LB,R8    OUT%S,X6
     4013   01 00C59    218000F1 A            CI,R8    '1'
     4014   01 00C5A    69300C6D              BNE      SAMPLE2           BR IF NOT USING PCP SSW'S
     4015   01 00C5B    22800000 A            LI,R8    0
     4016   01 00C5C    6C000000 A            RD,0     0                 READ SSW'S
     4017   01 00C5D    74000009 A            STCF     R9
     4018   01 00C5E    31900392              CW,R9    #SENSE
     4019   01 00C5F    68300C6D              BE       SAMPLE2           BRANCH IF NO CHANGE
     4020                            *
     4021   01 00C60    35900392              STW,R9   #SENSE            SELECT NEW SSW'S
     4022   01 00C61    32800DC0              LW,R8    H40F040F0
     4023   01 00C62    35800A94              STW,R8   OUT%S+2
     4024   01 00C63    35800A95              STW,R8   OUT%S+3
     4025   01 00C64    22600001 A            LI,X6    1                 INDEX TO BYTE 1
     4026   01 00C65    22700004 A            LI,X7    4                 SET UP FOUR LOOPS
     4027   01 00C66    228000F1 A            LI,R8    '1'
     4028   01 00C67    70200009 A            LC       R9
     4029   01 00C68    68800C6A              BCR,8    %+2               BRANCH IF SSW NOT SET
     4030   01 00C69    758C0A94              STB,R8   OUT%S+2,X6
     4031   01 00C6A    20600002 A            AI,X6    2
     4032   01 00C6B    30900009 A            AW,R9    R9
     4033   01 00C6C    64700C67              BDR,X7   %-5               LOOP IF SSW 4 NOT TESTED
     4034                            *
     4035         01 00C6D           SAMPLE2  EQU      %                 SAMPLE FOR TTY KEYIN
     4036   01 00C6D    6A600C80              BAL,X6   CCP
     4037   01 00C6E    6A60052C              BAL,X6   RESTORE%REGS
     4038   01 00C6F    000004D0              DATA     REGISTERS@RUN
     4039   01 00C70    0E000C42              LPSD,0   SAMPLEQW          EXIT IF NO CHARACTER ENTERED
     4040                            *
     4041                            *
     4042                            *
     4043                            *
     4044   01 00C71    FFFFFFCE A   CLK%CNT  DATA     -50               COUNTER 4 ZERO COUNT
     4045                            *
     4046   01 00C72    33100C71     CLK%CNT%MTW MTW,1 CLK%CNT
     4047                            *
     4048   01 00C73    0F000C42     CLK%XPSD XPSD,0   SAMPLEQW
     4049                            *
     4050   01 00C74    00000000 A   2SEC     DATA     0                 SET TO 0 EVERY 2 SEC. BY CCP
     4051                            *
     4052         00000055           CLOCK    EQU      X'55'             LOCATION OF REAL TIME CLOCK
     4053                            *                                     COUNT LOCATION
     4054                            *
     4055                            *
     4056                                     BOUND    8
     4057   01 00C76    060031E0     TTYI     GEN,8,24 6,BA(TTYBYTI)
     4058   01 00C77    08000010 A            GEN,8,24 8,16
     4059   01 00C78                 TTYBYTI  RES,1    16
     4060   01 00C7C    050031F8     TTYO     GEN,8,24 5,BA(TTYBYTO)
     4061   01 00C7D    08000001 A            GEN,8,24 8,1
     4062                            *
     4063   01 00C7E    00000000 A   TTYBYTO  PZE
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   36
A    4065                            *        ***CCP***
     4066                            *        THE COMMUNICATION CONTROL PACKAGE TESTS AND ACCEPTS
     4067                            *        INPUT FROM THE CONTROL CONSOLE (EITHER LOCAL ASR/KSR
     4068                            *        OR TERMINAL CONNECTED THRU THE COC) OR AN OBSERVER IN
     4069                            *        MESSAGE MODE AND ECHOES THE INPUT TO ALL USERS. THIS
     4070                            *        ROUTINE INITIALIZES ALL COC LINES AND INITIATES LOG-ON.
     4071                            *
     4072                            *        SPECIAL FEATURES:
     4073                            *        1.INPUT FROM CONTROL CONSOL CAUSES CONTROL TO BE TRANSFERRED
     4074                            *          FROM THIS ROUTINE INDIRECTLY THRU EXECUTE%. THE ROUTINE AT
     4075                            *          EXECUTE% DETERMINES WHAT ACTION TO TAKE ON THE CURRENT
     4076                            *          CHARACTER. IF CONTROL IS RETURNED FROM THE EXECUTE ROUTINE
     4077                            *          TO CCP VIA THE LINK ADDRESS, CCP WILL AUTOMATICALLY TEST
     4078                            *          FOR INPUT OF THE NEXT CHARACTER.
     4079                            *        2.IF NO INPUT IS AVAILABLE, THE RUNMODE FLAG DETERMINES IF
     4080                            *          AN EXIT FROM CCP IS TO BE TAKEN OR IF LOOPING ON
     4081                            *          THIS ROUTINE IS ALLOWED. (RUNMODE=0, EXIT; RUNMODE
     4082                            *          NOT EQUAL TO 0, LOOP)
     4083                            *        3.ADDRESS RECOGNITION OF THE COC ADDRESS WILL CAUSE
     4084                            *          THE FOLLOWING ACTIONS:
     4085                            *          IF THE COCSTATE=0, ALL COC LINE STATES WILL BE
     4086                            *          INITIALIZED FOR LOG-ON AND THE LOG-ON MESSAGE WILL
     4087                            *          BE INITIATED.
     4088                            *          IF THE COCSTATE IS NOT EQUAL TO 0, TRANSMISSION OF LOG-ON
     4089                            *          MESSAGE CHARACTERS IS DETERMINED BY THE 2SEC FLAG.
     4090                            *          THE FLAG NOT EQUAL TO 0 MEANS THAT LOG-ON IS BYPASSED.
     4091                            *          AT LEAST EVERY TWO SECONDS THIS FLAG WILL BE SET TO 0
     4092                            *          TO ALLOW THE LOG-ON MESSAGE AND REINITIALIZATION
     4093                            *          OF THE COC LINE STATES.
     4094                            *        4.NO ADDRESS RECOGNITION OF THE COC ADDRESS WHILE
     4095                            *          SOMEONE IS LOGGED-ON CAUSES ALL COC LINE STATES TO BE
     4096                            *          CLEARED.
     4097                            *        5.THE LOG-ON MESSAGE IS SENT TO ALL LINES WHICH MEET THE
     4098                            *          CONDITIONS OF RECEIVER TURNED ON AND TRANSMITTER CLEAR
     4099                            *          TO SEND.
     4100                            *
     4101                            *        CALLING SEQUENCE: BAL,X6  CCP
     4102                            *                          -        RETURN
     4103                            *
     4104                            *                          .
     4105                            *                          WHILE IN CCP AND INPUT FROM CONTROL
     4106                            *                          CONSOLE
     4107                            *                          .
     4108                            *                          R3 (BITS 24-31)=EBCDIC CHARACTER
     4109                            *                          BAL,X6  *EXECUTE%
     4110                            *                          -       RETURN TO CCP FROM EXECUTE
     4111                            *
     4112                            *        REGISTERS USED: R0 THRU R15 ARE SAVED AT CCPSAVE AND
     4113                            *                        RESTORED AT EXIT FROM CCP.
     4114                            *                        WHEN ENTERING EXECUTE%, THE REGISTERS
     4115                            *                        ARE NOT RESTORED.
     4116                            *
     4117                            *        SUBROUTINES USED:
     4118                            *          SIOCOC - START COC
     4119                            *          TIOCOC - INPUT FROM COC
     4120                            *          TIOTTY - INPUT FROM ASR/KSR
     4121                            *          TTYOUT - OUTPUT TO ASR/KSR AND ALL COC LINES
     4122                            *          ECHO - OUTPUT TO ALL COC LINES
     4123                            *          EXECUTE% - ADDRESS OF EXECUTE SUBROUTINE
     4124                            *
     4125                            *
     4126   01 00C7F    00000000 A            DATA     0
     4127   01 00C80    35600C7F     CCP      STW,X6   CCP-1
     4128   01 00C81    6A60051B              BAL,X6   SAVE%REGS
     4129   01 00C82    00000CD4              DATA     CCPSAVE
     4130                            *
     4131   01 00C83    CD000398     CCPA     TIO,0    *#COCADDR         IS THERE A COC
     4132   01 00C84    68800C89              BCR,8    CCP1              YES
     4133   01 00C85    72E00DF5              LB,14    COCSTATE          IS COC STATE 0
     4134   01 00C86    68300CB9              BCR,3    CCP24             YES
     4135   01 00C87    22E00000 A            LI,14    0                 SET COCSTATE 0
     4136   01 00C88    68000C8E              B        CCP11
     4137                            *
     4138   01 00C89    72E00DF5     CCP1     LB,14    COCSTATE          IS COCSTATE 0
     4139   01 00C8A    69300C92              BCS,3    CCP2              NO
     4140   01 00C8B    CF000398              HIO,0    *#COCADDR         MAKE DEVICE READY
     4141   01 00C8C    EA600D88              BAL,X6   *SIOCOC%          START COC
     4142   01 00C8D    22E00003 A            LI,14    3                 SET COCSTATE 3
     4143   01 00C8E    2210003F A   CCP11    LI,1     X'3F'             START WITH LINE NR 3F
     4144   01 00C8F    F5E20DF9              STB,14   *COCL%,1          SET COC LINE STATE
     4145   01 00C90    64100C8F              BDR,1    %-1               D0 1 THRU 3F
     4146   01 00C91    F5E20DF9              STB,14   *COCL%,1          DO 0
     4147   01 00C92    73800C74     CCP2     MTB,8    2SEC              2 SECONDS ELAPSED
     4148   01 00C93    69300C96              BCS,3    %+3               NO
     4149   01 00C94    4BE00DCF              AND,14   HFFFFFFFD
     4150   01 00C95    48E00D9F              EOR,14   H2                FORCE COC LINE STATE CHECK
     4151   01 00C96    21E00002 A            CI,14    2                 ANY OUTPUT OR LINE ANSWER
     4152   01 00C97    68400CB9              BCR,4    CCP24             NO
     4153   01 00C98    48E00D9F              EOR,14   H2                RESET COCSTATE 2 IND.
     4154   01 00C99    22100000 A            LI,1     0
     4155   01 00C9A    75100DF4              STB,1    COCNR             SET USER COUNT = 0
     4156   01 00C9B    F2220DF9     CCP21    LB,2     *COCL%,1          GET COC LINE STATE
     4157   01 00C9C    68300CB6              BCR,3    CCP23             ITS 0
     4158   01 00C9D    B2F00D86              LW,R15   *RECON%
     4159   01 00C9E    ED10000F A            WD,1     *R15              TURN RECEIVER ON
     4160   01 00C9F    68100CB6              BCR,1    CCP23             RECEIVER IS OFF OR NOT READY
     4161   01 00CA0    21200003 A            CI,2     3                 IS COC LINE STATE = 3
     4162   01 00CA1    69300CA6              BCS,3    CCP22             NO
     4163   01 00CA2    B2F00D87              LW,R15   *SENSET%
     4164   01 00CA3    ED10000F A            WD,1     *R15              TEST XMIT STATUS
     4165   01 00CA4    68200CB6              BCR,2    CCP23             XMITTER NOT CLEAR TO SEND
     4166   01 00CA5    22200014 A            LI,2     X'14'             CHANGE STATE TO XMIT LOGON
     4167   01 00CA6    21200014 A   CCP22    CI,2     X'14'             XMITTING ANY MSG
     4168   01 00CA7    68400CAE              BCR,4    CCP25             NO
     4169   01 00CA8    F2340D85              LB,3     *LOGONMSG%,2      GET A BYTE OF THE MSG
     4170   01 00CA9    EA600D84              BAL,X6   *COCXMIT%         TRANSMIT IT TO USER
     4171   01 00CAA    4BE00DCF              AND,14   HFFFFFFFD
     4172   01 00CAB    48E00D9F              EOR,14   H2                SET COCSTAE 2 IND
     4173   01 00CAC    20200001 A            AI,2     1                 INC COC LINE STATE
     4174   01 00CAD    F5220DF9              STB,2    *COCL%,1
     4175   01 00CAE    212000C0 A   CCP25    CI,2     X'C0'             IS HE LOGGED ON
     4176   01 00CAF    68400CB6              BCR,4    CCP23             NO
     4177   01 00CB0    4BE00DCE              AND,14   HFFFFFFBF
     4178   01 00CB1    48E00DA4              EOR,14   H40               SET OBSERVER IND
     4179   01 00CB2    73100DF4              MTB,1    COCNR             INC COC NUMBER OF USERS
     4180   01 00CB3    72200DF2              LB,2     COCLIM            LIMIT ON COC LINES
     4181   01 00CB4    71200DF4              CB,2     COCNR             LIMIT > NR OF LINES LOGGED ON
     4182   01 00CB5    68200CB9              BCR,2    CCP24             NO - DON'T LOG ON ANY MORE
     4183   01 00CB6    20100001 A   CCP23    AI,1     1                 INC LINE NR
     4184   01 00CB7    21100040 A            CI,1     X'40'             DONE YET
     4185   01 00CB8    69100C9B              BCS,1    CCP21             NO
     4186   01 00CB9    75E00DF5     CCP24    STB,14   COCSTATE
     4187   01 00CBA    21E00080 A            CI,14    X'80'             COC CONTROL
     4188   01 00CBB    69400CC2              BCS,4    CCP4              YES
     4189   01 00CBC    6A600CF4     CCP3A    BAL,X6   TIOTTY            ANY INPUT
     4190   01 00CBD    68000CCF              B        CCP6              NO
     4191   01 00CBE    EA600D83              BAL,X6   *ECHO%            XMIT TO OBSERVERS
     4192   01 00CBF    02000000 A            NOP
     4193   01 00CC0    EA6005F3              BAL,X6   *EXECUTE%         TRANSLATE INPUT
     4194   01 00CC1    68000CBC              B        CCP3A             CHECK FOR MORE INPUT
     4195                            *
     4196   01 00CC2    EA600D89     CCP4     BAL,X6   *TIOCOC%          ANY INPUT
     4197   01 00CC3    68000CCA              B        CCP5              NO
     4198   01 00CC4    31100DF3              CW,1     COCLINE           FROM CONTROL CONSULE
     4199   01 00CC5    69300CD1              BCS,3    CCP61             NO
     4200   01 00CC6    6A600D4B              BAL,X6   TTYOUT            XMIT TO ALL OBSERVERS
     4201   01 00CC7    02000000 A            NOP
     4202   01 00CC8    EA6005F3              BAL,X6   *EXECUTE%         TRANSLATE INPUT
     4203   01 00CC9    68000CC2              B        CCP4              CHECK FOR MORE INPUT
     4204                            *
     4205   01 00CCA    6A600CF4     CCP5     BAL,X6   TIOTTY            ANY OBSERVER INPUT
     4206   01 00CCB    68000CE4              B        CCPEXIT           NO
     4207   01 00CCC    EA600D83              BAL,X6   *ECHO%            XMIT TO EVERY ONE ELSE
     4208   01 00CCD    02000000 A            NOP
     4209   01 00CCE    68000CE4              B        CCPEXIT
     4210                            *
     4211   01 00CCF    EA600D89     CCP6     BAL,X6   *TIOCOC%          ANY OBSERVER INPUT
     4212   01 00CD0    68000CE4              B        CCPEXIT           NO
     4213   01 00CD1    6A600D4B     CCP61    BAL,X6   TTYOUT            XMIT TO EVERYONE ELSE
     4214   01 00CD2    02000000 A            NOP
     4215   01 00CD3    68000CE4              B        CCPEXIT
     4216   01 00CD4                 CCPSAVE  RES      16                REGISTER SAVE AREA
     4217                            *
     4218   01 00CE4    6A60052C     CCPEXIT  BAL,X6   RESTORE%REGS
     4219   01 00CE5    00000CD4              DATA     CCPSAVE
     4220   01 00CE6    E8000C7F              B        *CCP-1
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   37
A    4222                            *
     4223                            *
     4224                            *
     4225                            *        ARMUSER ROUTINE READIES BOTH THE LOCAL AND REMOTE
     4226                            *           TERMINAL TO ACCEPT INPUT OF 16 CHARACTERS
     4227                            *
     4228   01 00CE7    00000000 A            DATA     0
     4229         01 00CE8           ARMUSER  EQU      %
     4230   01 00CE8    35600CE7              STW,X6   %-1
     4231   01 00CE9    72E00DF5              LB,14    COCSTATE          ANY REMOTE TERMINAL
     4232   01 00CEA    68300CF2              BEZ      ARMUSER#1         BRANCH IF NO
     4233   01 00CEB    CF000398              HIO,0    *#COCADDR
     4234   01 00CEC    CD000398              TIO,0    *#COCADDR
     4235   01 00CED    69C00CEC              BCS,12   %-1
     4236   01 00CEE    EA600D88              BAL,X6   *SIOCOC%          ARM REMOTE TERMINAL
     4237   01 00CEF    B2E00D86              LW,14    *RECON%           FIND RECVR ON COMMAND
     4238   01 00CF0    32600DF3              LW,6     COCLINE           FIND LINE #
     4239   01 00CF1    ED60000E A            WD,6     *14               TURN RECVR ON
     4240                            *
     4241         01 00CF2           ARMUSER#1 EQU     %
     4242   01 00CF2    6A600D05              BAL,X6   SIOTTY            ARM LOCAL TERMINAL
     4243   01 00CF3    E8000CE7              B        *ARMUSER-1
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   38
A    4245                            *        ***TIOTTY***
     4246                            *        TESTS THE LOCAL ASR/KSR FOR INPUT AND ACCEPTS INPUT
     4247                            *        OF ONE CHARACTER. A SECOND ENTRY POINT (SIOTTY) STARTS INPUT
     4248                            *        ON THE LOCAL ASR/KSR.
     4249                            *
     4250                            *        SPECIAL FEATURES:
     4251                            *        1. THE TTY IS STARTED FOR INPUT UNDER THE FOLLOWING
     4252                            *           CONDITIONS:
     4253                            *           TTY READY AND PREVIOUSLY WAS DOING OUTPUT
     4254                            *           TTY READY AND ALL CHARACTERS FROM PREVIOUS INPUT ARE
     4255                            *           PROCESSED
     4256                            *           ROUTINE ENTERED AT SIOTTY
     4257                            *        2. AN INPUT CHARACTER WILL BE ACCEPTED IF
     4258                            *           THE INPUT IS FROM THE CONTROL CONSOLE
     4259                            *           THE INPUT IS FROM AN OBSERVER WHILE IN MESSAGE MODE
     4260                            *        3. INPUTS FROM AN OBSERVER ARE IGNORED IF NOT IN MESSAGE
     4261                            *           MODE. UNDER THIS CONDITION AN ATTEMPT IS MADE TO PROCESS
     4262                            *           THE NEXT CHARACTER BY AUTOMATICALLY RESTARTING AT TIOTTY
     4263                            *        4. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT.
     4264                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.
     4265                            *
     4266                            *        CALLING SEQUENCE: BAL,X6  TIOTTY - TEST FOR INPUT
     4267                            *                          -       RETURN - NO CHARACTER AVAILABLE
     4268                            *                          -       RETURN - R3 BITS 24-31=EBCDIC CHAR.
     4269                            *
     4270                            *                          BAL,X6  SIOTTY - START TTY
     4271                            *                          -       RETURN
     4272                            *
     4273                            *        REGISTERS USED: R0,R1,R3,R12,R13,R14
     4274                            *
     4275                            *        SUBROUTINES USED: NONE
     4276                            *
     4277                            *
     4278   01 00CF4    CDC00396     TIOTTY   TIO,12   *#TOADDR
     4279   01 00CF5    7400000E A            STCF     14                SAVE CC'S
     4280   01 00CF6    69800D23              BCS,8    TTYOFF            NO ADDRESS RECOGNITION
     4281   01 00CF7    68400CFC              BCR,4    TIOTTY1           TTY NOT BUSY
     4282   01 00CF8    21C0063E              CI,12    DA(TTYO)
     4283   01 00CF9    E8300006 A            BE       *X6               EXIT IF DOING OUTPUT
     4284   01 00CFA    21C0063D              CI,12    DA(TTYO)-1
     4285   01 00CFB    E8300006 A            BE       *X6               EXIT IF DOING OUTPUT
     4286                            *
     4287   01 00CFC    21C0063B     TIOTTY1  CI,12    DA(TTYI)
     4288   01 00CFD    68300D00              BE       %+3               BRANCH IF DOING INPUT
     4289   01 00CFE    21C0063A              CI,12    DA(TTYI)-1
     4290   01 00CFF    69300D05              BNE      TIOTTY3           RESTART IF NOT DOING INPUT
     4291   01 00D00    4BD00DAC              AND,13   HFFFF             KEEP BYTE COUNT
     4292   01 00D01    71D003B4              CB,13    TTYBC             TTYBC = BYTE COUNT
     4293   01 00D02    69100D14              BCS,1    TIOTTY4           NO
     4294   01 00D03    7030000E A   TIOTTY2  LCF      14                IS TTY BUSY
     4295   01 00D04    E9400006 A            BCS,4    *X6               YES
     4296         01 00D05           SIOTTY   EQU      %
     4297         01 00D05           TIOTTY3  EQU      %
     4298   01 00D05    CDC00396              TIO,12   *#TOADDR
     4299   01 00D06    68C00D0C              BCR,12   TIOTTY3A          DEVICE READY
     4300   01 00D07    21C0063E              CI,12    DA(TTYO)
     4301   01 00D08    68300D05              BE       TIOTTY3           LOOP IF DOING OUTPUT
     4302   01 00D09    21C0063D              CI,12    DA(TTYO)-1
     4303   01 00D0A    68300D05              BE       TIOTTY3           LOOP IF DOING OUTPUT
     4304   01 00D0B    680C0000 A            B        0,X6
     4305                            *
     4306   01 00D0C    22000010 A   TIOTTY3A LI,0     16
     4307   01 00D0D    750003B4              STB,0    TTYBC             INITIALIZE TTYBC
     4308   01 00D0E    2200063B              LI,0     DA(TTYI)
     4309   01 00D0F    CC000396              SIO,0    *#TOADDR          START TTY INPUT
     4310   01 00D10    CDD00396              TIO,13   *#TOADDR
     4311   01 00D11    21D00010 A            CI,13    16                TTY STARTED
     4312   01 00D12    68400D10              BCR,4    %-2               LOOP IF NO
     4313   01 00D13    E8000006 A            B        *X6
     4314                            *
     4315   01 00D14    721003B4     TIOTTY4  LB,1     TTYBC
     4316   01 00D15    48100DD0              EOR,1    MINUS1
     4317   01 00D16    20100001 A            AI,1     1
     4318   01 00D17    72320C7C              LB,3     TTYBYTI+4,1       GET INPUT BYTE
     4319   01 00D18    72E003B4              LB,14    TTYBC
     4320   01 00D19    20EFFFFF A            AI,14    -1
     4321   01 00D1A    75E003B4              STB,14   TTYBC             DECREMENT COUNT
     4322   01 00D1B    70200DF5              LC       COCSTATE
     4323   01 00D1C    68800D1F              BCR,8    TIOTTY5           BR IF COC NOT IN CONTROL
     4324   01 00D1D    32E00DF6              LW,14    MSGMODE           IS MESSAGE MODE IN EFFECT
     4325   01 00D1E    68300D20              BCR,3    %+2               NO - ARE THERE MORE CHARACTERS
     4326   01 00D1F    20600001 A   TIOTTY5  AI,X6    1
     4327   01 00D20    71D003B4              CB,13    TTYBC             TTYBC = BYTE COUNT
     4328   01 00D21    68300D03              BCR,3    TIOTTY2           YES-RESTART TTY INPUT
     4329   01 00D22    E8000006 A            B        *X6
     4330                            *
     4331   01 00D23    EA600D8A     TTYOFF   BAL,X6   *ABORT%           TTY PROBLEM
     4332   01 00D24    68000CF4              B        TIOTTY            TRY AGAIN
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   39
A    4334                            *        ***MSGOUT***
     4335                            *        OUTPUTS A STRING OF CHARACTERS TO THE LOCAL ASR/KSR AND TO
     4336                            *        ALL LINES WHICH ARE CURRENTLY LOGGED ON.
     4337                            *
     4338                            *        SPECIAL FEATURES:
     4339                            *        1. THE BREAK RETURN FROM THE TTYOUT ROUTINE CAUSES
     4340                            *           TERMINATION OF OUTPUT.
     4341                            *
     4342                            *
     4343                            *        CALLING SEQUENCE: R4 = BYTE ADDRESS OF CHARACTER STRING
     4344                            *                          R5 = BYTE COUNT OF CHARACTER STRING
     4345                            *                          BAL,X6  MSGOUT
     4346                            *                          -       RETURN
     4347                            *
     4348                            *        REGISTERS USED: CONTENTS OF ALL REGISTERS IS SAVED AND
     4349                            *                        RESTORED
     4350                            *
     4351                            *        SUBROUTINES USED: TTYOUT
     4352                            *
     4353   01 00D25    00000000 A            DATA     0
     4354         01 00D26           MSGOUT   EQU      %
     4355   01 00D26    35600D25              STW,X6   %-1
     4356   01 00D27    6A60051B              BAL,X6   SAVE%REGS
     4357   01 00D28    00000D3B              DATA     MSGOUTS
     4358   01 00D29    02200010 A            LCI      1
     4359   01 00D2A    740003AC              STCF     #BRKOUT           INITIALIZE BREAK FLAG
     4360   01 00D2B    22300015 A            LI,R3    X'15'
     4361   01 00D2C    6A600D4B              BAL,X6   TTYOUT
     4362   01 00D2D    02000000 A            NOP
     4363   01 00D2E    72380000 A   MSGOUT1  LB,3     0,4               GET A MESSAGE BYTE
     4364   01 00D2F    6A600D4B              BAL,X6   TTYOUT            OUTPUT CHARACTER
     4365   01 00D30    68000D38              B        MSGOUT3           EXIT ON COMDEV BREAK
     4366   01 00D31    33100004 A            MTW,1    4                 INC BYTE ADDRESS
     4367   01 00D32    64500D2E              BDR,5    MSGOUT1           OUT NEXT BYTE
     4368   01 00D33    CD000396              TIO,0    *#TOADDR
     4369   01 00D34    69C00D33              BCS,12   %-1
     4370   01 00D35    6A60052C     MSGOUT2  BAL,X6   RESTORE%REGS
     4371   01 00D36    00000D3B              DATA     MSGOUTS
     4372   01 00D37    E8000D25              B        *MSGOUT-1         RETURN TO CALLING ROUTINE
     4373                            *
     4374                            *
     4375   01 00D38    22600000 A   MSGOUT3  LI,X6    0
     4376   01 00D39    756003AC              STB,X6   #BRKOUT           FLAG A SHORT BREAK
     4377   01 00D3A    68000D35              B        MSGOUT2
     4378                            *
     4379   01 00D3B                 MSGOUTS  RES      16                REGISTER SAVE AREA
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   40
A    4381                            *
     4382                            *        ***TTYOUT***
     4383                            *        TRANSMITS A CHARACTER TO THE LOCAL ASR/KSR AND TO ALL
     4384                            *        LINES WHICH ARE CURRENTLY LOGGED ON.
     4385                            *
     4386                            *        SPECIAL FEATURES:
     4387                            *        1. IF TTY IS BUSY AND IN INPUT MODE OR BUSY FOR LONGER
     4388                            *           THAN .1 SECONDS AND NOT THE CONTROL CONSOLE, AN HIO
     4389                            *           IS ISSUED TO MAKE THE TTY READY FOR OUTPUT.
     4390                            *        2. IF THE TTY IS THE CONTROL CONSOLE AND AN UNUSUAL END
     4391                            *           IS DETECTED (BREAK KEY DEPRESSED), NUL CHARACTERS
     4392                            *           ARE TRANSMITTED TO THE TTY. THE FOLLOWING ADDITIONAL
     4393                            *           ACTIONS ARE TAKEN:
     4394                            *           IF THE BREAK KEY WAS DEPRESSED FOR LESS THAN 1 SECOND
     4395                            *           THE BREAK EXIT IS TAKEN. NOTE THAT A BREAK CHARACTER
     4396                            *           FROM THE REMOTE CONTROLLER WILL RESULT IN THE SAME
     4397                            *           ACTION THRU THE ECHO ROUTINE.
     4398                            *           IF THE BREAK KEY WAS DEPRESSED FOR MORE THAN 1 SECOND
     4399                            *           CONTROL IS TRANSFERRED TO SETHALT.
     4400                            *        3. NO ADDRESS RECOGNITION OF THE TTY ADDRESS CAUSES A WAIT
     4401                            *           CLEARING OF THE WAIT CAUSES THE OPERATION TO BE REPEATED.
     4402                            *
     4403                            *
     4404                            *        CALLING SEQUENCE: R3 = EBCDIC CHARACTER
     4405                            *                          BAL,X6  TTYOUT
     4406                            *                          -       BREAK RETURN
     4407                            *                          -       NORMAL RETURN
     4408                            *
     4409                            *        REGISTERS USED: R0,R12,R13
     4410                            *                        R1,R14 - ECHO ROUTINE
     4411                            *
     4412                            *        SUBROUTINES USED:
     4413                            *          ECHO - TRANSMIT A CHARACTER TO ALL LINES
     4414                            *
     4415   01 00D4B    35600D72     TTYOUT   STW,X6   TTYOUTR
     4416   01 00D4C    22601000 A            LI,X6    X'1000'
     4417   01 00D4D    6D601200 A            WD,X6    X'1200'
     4418   01 00D4E    B2100055 A            LW,1     *CLOCK            GET CURRENT TICKS
     4419   01 00D4F    20100038 A            AI,1     56                .1SECONDS
     4420   01 00D50    CDC00396     TTYOUT1  TIO,12   *#TOADDR
     4421   01 00D51    69800D70              BCS,8    NOTTYAD           NO TTY
     4422   01 00D52    68C00D5D              BCR,12   TTYOUT2           TTY READY
     4423   01 00D53    21C0063E              CI,12    DA(TTYO)
     4424   01 00D54    68300D57              BE       %+3               BRANCH IF DOING OUTPUT
     4425   01 00D55    21C0063D              CI,12    DA(TTYO)-1
     4426   01 00D56    69300D58              BNE      TTYOUT5           RESTART IF NOT DOING OUTPUT
     4427                            *
     4428   01 00D57    68000D50              B        TTYOUT1           DELAY UNTIL READY
     4429                            *
     4430                            *        ENTER HERE IF PREVIOUSLY DOING INPUT
     4431                            *
     4432   01 00D58    CFD00396     TTYOUT5  HIO,13   *#TOADDR
     4433   01 00D59    B1100055 A            CW,1     *CLOCK
     4434   01 00D5A    69200D59              BCS,2    %-1               DELAY UNTIL .1 SECONDS IS UP
     4435   01 00D5B    CDD00396              TIO,13   *#TOADDR
     4436   01 00D5C    69C00D5B              BCS,12   %-1               DELAY UNTIL NOT BUSY
     4437                            *
     4438   01 00D5D    70200DF5     TTYOUT2  LC       COCSTATE          IS COC IN CONTROL
     4439   01 00D5E    69800D69              BCS,8    TTYOUT3           YES
     4440                            *
     4441   01 00D5F    31D00DB9              CW,13    H8000000          BREAK RELEASE?
     4442   01 00D60    68400D66              BCR,4    TTYOUT4           NO
     4443                            *
     4444                            *        ENTER HERE IF BREAK KEY WAS DEPRESSED
     4445                            *
     4446   01 00D61    22300080 A            LI,3     NEWPAGE
     4447   01 00D62    75300C7E              STB,3    TTYBYTO
     4448   01 00D63    2200063E              LI,0     DA(TTYO)
     4449   01 00D64    CCC00396              SIO,12   *#TOADDR          OUTPUT A NON-PRINT CHAR.
     4450   01 00D65    68000D50              B        TTYOUT1
     4451                            *
     4452                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   41
A    4454                            *
     4455   01 00D66    201001BC A   TTYOUT4  AI,1     444               1 SECOND TIME OUT
     4456   01 00D67    B1100055 A            CW,1     *CLOCK            TIME OUT?
     4457   01 00D68    E9100DF1              BCS,1    *SETHALT%         YES-LONG BREAK
     4458                            *
     4459                            *        ENTER HERE TO OUTPUT ONE CHARACTER
     4460                            *
     4461   01 00D69    75300C7E     TTYOUT3  STB,3    TTYBYTO           STORE CHAR TO BE XMITTED
     4462   01 00D6A    2200063E              LI,0     DA(TTYO)
     4463   01 00D6B    CCC00396              SIO,12   *#TOADDR
     4464   01 00D6C    EA600D83              BAL,X6   *ECHO%            ECHO TO COC
     4465   01 00D6D    E8000D72              B        *TTYOUTR          BREAK CHARACTER RETURN
     4466   01 00D6E    32600D72              LW,X6    TTYOUTR           NORMAL RETURN
     4467   01 00D6F    680C0001 A            B        1,X6
     4468   01 00D70    EA600D8A     NOTTYAD  BAL,X6   *ABORT%           NO ADDRESS RECOGNITION
     4469   01 00D71    68000D4C              B        TTYOUT+1          TRY AGAIN
     4470                            *
     4471   01 00D72    00000000 A   TTYOUTR  DATA     0                 REGISTER SAVE AREA
     4472                            *
     4473         00000080           NEWPAGE  EQU      X'80'
     4474                            *
     4475   01 00D73    31415926 A   PI       DATA     X'31415926'
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   42
A    4477                            *
     4478                            *
     4479                            *        S E T H A L T    R O U T I N E
     4480                            *
     4481                            *        ENTER HERE IF :
     4482                            *                 1.  USER HOLDS DOWN 'BREAK' KEY MORE THAN 1 SEC.
     4483                            *                          ON LOCAL TTY WHEN IT IS IN CONTROL
     4484                            *                 2.  USER HITS 'ESCAPE' KEY ON REMOTE TTY
     4485                            *                      WHEN IT IS IN CONTROL
     4486                            *
     4487                            *
     4488         01 00D74           SETHALT  EQU      %
     4489   01 00D74    702004FC              LC       IDLFLG
     4490   01 00D75    69F004F1              BCS,15   FIDLE#1           BRANCH IF UNDER GUIDE CONTROL
     4491                            *
     4492   01 00D76    32800B73              LW,R8    PRINTER-1         FIND RETURN ADDRESS
     4493   01 00D77    20800001 A            AI,R8    1
     4494   01 00D78    358004E0              STW,R8   RUNADDR           AND SET UP RETURN ON '#'
     4495   01 00D79    22000000 A            LI,R0    0
     4496   01 00D7A    350004E1              STW,R0   RUNADDR+1
     4497   01 00D7B    2260000F A            LI,X6    15
     4498   01 00D7C    320C0401              LW,R0    SAVE,X6           MOVE SAVED REGISTERS
     4499   01 00D7D    350C04D0              STW,R0   REGISTERS@RUN,X6
     4500   01 00D7E    64600D7C              BDR,X6   %-2
     4501   01 00D7F    32000401              LW,R0    SAVE
     4502   01 00D80    350004D0              STW,R0   REGISTERS@RUN
     4503                            *
     4504   01 00D81    680004F1              B        FIDLE#1
     4505                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   43
A    4507                            *
     4508                            *        THE FOLLOWING AREA IS A TABLE OF ADDRESSES
     4509                            *        FROM THE REMOTE PACKAGE.    IT IS BUILT AT INITIALIZATION
     4510                            *        OF GUIDE.     THE DEFAULT CODE IS OVERLAID UNLESS THE
     4511                            *        REMOTE PACKAGE IS NOT LOADED DUE TO CORE LIMITATIONS
     4512   01 00D82    00000DE8     REM%OFF  DATA     RETURN-1                                          *G02
     4513   01 00D83    00000DE9     ECHO%    DATA     RETURN
     4514   01 00D84    00000D8B     COCXMIT% DATA     ABORT%+1
     4515   01 00D85    00000000 A   LOGONMSG% DATA    0
     4516   01 00D86    00000000 A   RECON%   DATA     0
     4517   01 00D87    00000000 A   SENSET%  DATA     0
     4518   01 00D88    00000D8B     SIOCOC%  DATA     ABORT%+1
     4519   01 00D89    00000DE8     TIOCOC%  DATA     RETURN-1
     4520   01 00D8A    00000D8C     ABORT%   DATA     %+2
     4521                            *
     4522                            *
     4523                            *        DEFAULT ABORT CODE
     4524                            *
     4525                            *        ENTERING HERE MEANS A PROGRAM TYPE ERROR OCCURRED AT THE
     4526                            *        ADDRESS SHOWN IN REGISTER 6 (LESS ONE)
     4527                            *
     4528                            **
     4529   01 00D8B    00000000 A            DATA     0                 DUMMY ABORT LOOP FLAG
     4530   01 00D8C    2E000D8C              WAIT     %
     4531   01 00D8D    68000D8C              B        %-1
     4532                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   44
A    4535                            *
     4536                            D%EXPL   TEXTCS   ;
     4537         01 00D8E                    '  ''DM'' MEANS DISPLAY MEMORY'
     4538                            *
     4539                                     TEXTCS   ;
     4540         01 00D95                    '  '
     4541                            *
     4542                            R%EXPL   TEXTCS   ;
     4543         01 00D96                    '  ''RM'' MEANS REPLACE MEMORY'
     4544                            *
     4545                                     TEXTCS   ;
     4546         01 00D9D                    '  '
     4547                            *
     4548                            *
     4549                            *  LITERAL TABLE
     4550                            *
     4551   01 00D9E    00000001 A   H1       DATA     1
     4552   01 00D9F    00000002 A   H2       DATA     2
     4553   01 00DA0    00000007 A   H7       DATA     7
     4554   01 00DA1    0000000F A   HF       DATA     15
     4555   01 00DA2    0000001F A   H1F      DATA     X'1F'
     4556   01 00DA3    0000003F A   H3F      DATA     X'3F'
     4557   01 00DA4    00000040 A   H40      DATA     X'40'
     4558   01 00DA5    0000007F A   H7F      DATA     X'7F'
     4559   01 00DA6    000000CF A   HCF      DATA     X'CF'
     4560   01 00DA7    000000F0 A   HF0      DATA     X'F0'
     4561   01 00DA8    000000FF A   HFF      DATA     X'FF'
     4562   01 00DA9    00008000 A   H8000    DATA     X'8000'
     4563   01 00DAA    00008001 A   H8001    DATA     X'8001'
     4564   01 00DAB    0000FFFC A   HFFFC    DATA     X'FFFC'
     4565   01 00DAC    0000FFFF A   HFFFF    DATA     X'FFFF'
     4566   01 00DAD    00010000 A   H10000   DATA     X'10000'
     4567   01 00DAE    000FFFFC A   HFFFFC   DATA     X'FFFFC'
     4568   01 00DAF    00100000 A   H100000  DATA     X'100000'
     4569   01 00DB0    00200000 A   H200000  DATA     X'200000'
     4570   01 00DB1    003FFFFF A   H3FFFFF  DATA     X'3FFFFF'
     4571   01 00DB2    00400000 A   H400000  DATA     X'400000'
     4572   01 00DB3    00FFFFFF A   HFFFFFF  DATA     X'FFFFFF'
     4573   01 00DB4    00800000 A   H800000  DATA     X'800000'
     4574   01 00DB5    01000000 A   H1000000 DATA     X'1000000'
     4575   01 00DB6    017C0000 A   H17C0000 DATA     X'17C0000'
     4576   01 00DB7    02000000 A   H2000000 DATA     X'2000000'
     4577   01 00DB8    07000000 A   H7000000 DATA     X'7000000'
     4578   01 00DB9    08000000 A   H8000000 DATA     X'8000000'
     4579   01 00DBA    10000000 A   H10000000 DATA    X'10000000'
     4580   01 00DBB    15000001 A   H15000001 DATA    X'15000001'
     4581   01 00DBC    18000000 A   H18000000 DATA    X'18000000'
     4582   01 00DBD    20000000 A   H20000000 DATA    X'20000000'
     4583   01 00DBE    40000000 A   H40000000 DATA    X'40000000'
     4584   01 00DBF    40404040 A   H40404040 DATA    X'40404040'
     4585   01 00DC0    40F040F0 A   H40F040F0 DATA    X'40F040F0'
     4586   01 00DC1    4F8D5000 A   H4F8D5000 DATA    X'4F8D5000'
     4587   01 00DC2    66000000 A   H66000000 DATA    X'66000000'
     4588   01 00DC3    68000000 A   H68000000 DATA    X'68000000'
     4589   01 00DC4    7F000000 A   H7F000000 DATA    X'7F000000'
     4590   01 00DC5    80000000 A   H80000000 DATA    X'80000000'
     4591   01 00DC6    F0000000 A   HF0000000 DATA    X'F0000000'
     4592   01 00DC7    FF000000 A   HFF000000 DATA    X'FF000000'
     4593   01 00DC8    FF00FFFF A   HFF00FFFF DATA    X'FF00FFFF'
     4594   01 00DC9    FF100000 A   HFF100000 DATA    X'FF100000'
     4595   01 00DCA    FF3FFFFF A   HFF3FFFFF DATA    X'FF3FFFFF'
     4596   01 00DCB    FF8FFFFF A   HFF8FFFFF DATA    X'FF8FFFFF'
     4597   01 00DCC    FFD0FFFF A   HFFD0FFFF DATA    X'FFD0FFFF'
     4598   01 00DCD    FFFFFFF0 A   HFFFFFFF0 DATA    X'FFFFFFF0'
     4599   01 00DCE    FFFFFFBF A   HFFFFFFBF DATA    X'FFFFFFBF'
     4600   01 00DCF    FFFFFFFD A   HFFFFFFFD DATA    X'FFFFFFFD'
     4601   01 00DD0    FFFFFFFF A   HFFFFFFFF DATA    X'FFFFFFFF'       MINUS 1
     4602         01 00DD0           MINUS1   EQU      HFFFFFFFF
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   45
A    4605                            *
     4606   01 00DD1    F0F1F2F3 A   VALTAB   TEXT     '0123456789ABCDEF' PARAM. VALIDATION TABLE
            01 00DD2    F4F5F6F7 A
            01 00DD3    F8F9C1C2 A
            01 00DD4    C3C4C5C6 A
     4607   01 00DD5    C7C8C9D1 A            TEXT     'GHIJKLMNOPQRSTUVWXYZ'
            01 00DD6    D2D3D4D5 A
            01 00DD7    D6D7D8D9 A
            01 00DD8    E2E3E4E5 A
            01 00DD9    E6E7E8E9 A
     4608                            *        TYPE 1 = HEX      (FIRST 16 CHARACTERS)
     4609                            *        TYPE 2 = BINARY  (FIRST 2 CHARACTERS)
     4610                            *        TYPE 3 = ALPHANUMERIC  (ALL CHARACTERS)
     4611                            *
     4612                            *        TYPE REFERS TO TABLE 3 VALIDATION TYPE (SEE LABEL 'VALTYPE')
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   46
A    4614                            *
     4615                            *
     4616         00000004           H        COM,8,8,8,8 AF             WORD 1 FORMAT
     4617         00000004           E        COM,8,8,16 AF              WORD 2 FORMAT
     4618         00000004           L        COM,3,2,3,5,3,1,3,3,3,3,3 AF   WORD 3 FORMAT
     4619                            *P       COM,8,2,1,1,4,16 AF            WORD 4 FORMAT
     4620                            *
     4621                            *
     4622                            *
     4623                            **********************
     4624                            *        TABLE 3
     4625                            **********************
     4626                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     4627                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     4628                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     4629                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     4630                            *
     4631                            *  FORMAT
     4632                            *        WORD 1 = DIRECTIVE POINTER
     4633                            *         ***********
     4634                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     4635                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     4636                            *            AF(3)   BYTE 2 = SECOND CHAR.
     4637                            *            AF(4)   BYTE 3 = THIRD CHAR.
     4638                            *
     4639                            *
     4640                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     4641                            *         ***********
     4642                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     4643                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     4644                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     4645                            *                                       DIRECTIVE ROUTINE
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   47
A    4647                            *
     4648                            *        WORD 3 = CONTROL WORD
     4649                            *         ***********
     4650                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     4651                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     4652                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     4653                            *             AF(4)   BITS 8-12= NOT USED
     4654                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     4655                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     4656                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     4657                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     4658                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     4659                            *                    OR INDEX PARAM #1 (MODE 6)
     4660                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     4661                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     4662                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     4663                            *
     4664                            *                 MODE:  0= UNCONDITIONAL (&)
     4665                            *                        1= IMMEDIATE     (DM)
     4666                            *                        2= PARAMETER LINE (S)
     4667                            *                        6= INDEXED PARAMETER LINE
     4668                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     4669                            *                            0 = HEX, 1 = BIN, AND
     4670                            *                            4-7 = DESIGNER DEFINED
     4671                            *
     4672                            *         WORD 4 = EXPLANATION POINTER
     4673                            *         ***********
     4674                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     4675                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     4676                            *                             = 1 IF TEXT IS COMPRESSED
     4677                            *                             = 2,3   ** NOT ALLOWED **
     4678                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     4679                            *                   TO CHARACTER #1 (REQUEST)
     4680                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     4681                            *
     4682                            ********************************************************
     4683   01 00DDA    00000DDB     TABLE3%P DATA     TABLE3            POINTER TO POSITION IN TABLE 3
     4684                            *
     4685                            *
     4686         01 00DDB           TABLE3   EQU      %
     4687   01 00DDB    02C4D400 A            H        2,'D','M'
     4688   01 00DDC    00000936 N            E        ,,DMENTRY
     4689   01 00DDD    22000000 A            L        1,,2
     4690   01 00DDE    02013638 A            P        2,,,,1,ABSVAL(BA(D%EXPL))
     4691                            *
     4692                            *
     4693   01 00DDF    02D9D400 A            H        2,'R','M'
     4694   01 00DE0    000009E3 N            E        ,,RMENTRY
     4695   01 00DE1    22000000 A            L        1,,2
     4696   01 00DE2    02013658 A            P        2,,,,1,ABSVAL(BA(R%EXPL))
     4697                            *
     4698   01 00DE3    02E2E200 A            H        2,'S','S'
     4699   01 00DE4    00000A74 N            E        ,,PARAMS
     4700   01 00DE5    40009000 A            L        2,,,,,1,1
     4701   01 00DE6    01012A68 A            P        1,,,,1,ABSVAL(BA(S%EXPL))
     4702                            *                                   CONTINUATION POINTER TO
     4703   01 00DE7    F0000000 A   TABLE3END GEN,4,28 15,0             TABLE 3 REMOTE EXTENSION
     4704                            *
     4705                            *
     4706   01 00DE8    22300080 A            LI,X3    NEWPAGE
     4707   01 00DE9    21300080 A   RETURN   CI,X3    NEWPAGE
     4708   01 00DEA    683C0000 A            BE       0,X6              BREAK EXIT
     4709   01 00DEB    680C0001 A            B        1,X6              NORMAL EXIT
     4710                            *
     4711                            *      *********
     4712                            *      *       *
     4713         00000005                    CHECK    X'DF1',%          X'DF1' MUST BE .GT. %           *G00
     4714                            *      *       *
     4715                            *      *********
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   48
A    4717                            *
     4718   01 00DF1                 TABLE4   ORG      X'DF1'
            01 00DF1
     4719                            *
     4720                            *        THIS TABLE LINKS THE MAIN SECTION OF GUIDE (BOTTOM OF CORE)
     4721                            *        WITH THE REMOTE PACKAGE (TOP OF CORE)
     4722                            *
     4723                            *
     4724   01 00DF1    000005EE     SETHALT% DATA     TEMPHALT          CONTAINS ADDR. OF 'LONG BREAK'
     4725                            *                                      ROUTINE
     4726   01 00DF2    00000040 A   COCLIM   DATA     64                MAXIMUM ALLOWED LOGGED LINES    *G02
     4727                            *
     4728   01 00DF3    00000000 A   COCLINE  DATA     0                 COC LINE NUMBER OF
     4729                            *                                     REMOTE TERMINAL
     4730   01 00DF4    00000000 A   COCNR    DATA     0                 NUMBER OF COCLINES LOGGED ON
     4731                            *
     4732   01 00DF5    00000000 A   COCSTATE DATA     0                 BITS 0-7 = COC STATE
     4733                            *                                     =        0; NO COC ADDRESS
     4734                            *                                     =  1 OR 3 ; NO ONE DIALED IN
     4735                            *                                     = 41 OR 43; USER LOGGED-ON
     4736                            *                                     = 81 OR 83; REMOTE CONTROLLER
     4737                            *
     4738   01 00DF6    00000000 A   MSGMODE  DATA     0                 MSGMODE = 0; DON'T ECHO INPUT
     4739                            *                                   BYTE 0 <> 0 ; IGNORE CONTROLLER
     4740                            *                                     KEYIN FROM OBSERVER
     4741                            *                                   MSGMODE NOT 0; ECHO ALL INPUT
     4742                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   49
A    4745   01 00DF7    000004D0     REGISTERS@RUN% DATA REGISTERS@RUN
     4746                            *
     4747   01 00DF8    0000051B     SAVE%REGS% DATA   SAVE%REGS
     4748                            *
     4749   01 00DF9    00000000 A   COCL%    DATA     0                 ADDR. OF TABLE OF COC LINE STATES
     4750                            *                                   INDEXED BY LINE NUMBER
     4751                            *                 =    0; LINE IS HUNG
     4752                            *                 =    3; RECEIVER CLEAR TO SEND NOT PRESENT
     4753                            *                 = 10-13; 4 QUESTION MARKS - LOG-ON MESSAGE
     4754                            *                 = 14-1F; LOG-ON MESSAGE
     4755                            *                 = 20-23; WAITING FOR PASSWORD CHARACTERS
     4756                            *                 =    40; LOGGED ON AS OBSERVER
     4757                            *                 =    80; LOGGED ON AS CONTROLLER
     4758                            *
     4759                            *
     4760                            *
     4761                            *
     4762                            *
     4763   01 00DFA    00000000 A   TRAPLOCK DATA     0                 MULTI-TRAP FLAG
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   50
A    4765                            *
     4766   01 00E00                          ORG      X'E00'
            01 00E00
     4767                            *
     4768                            **********************************************************:*****
     4769                            *
     4770                            *        THE FOLLOWING CODE (X'E00' THRU X'FFF')  MAY BE OVERLAID
     4771                            *        BY THE USER PROGRAM IF ALL INTERRUPTS
     4772                            *        AND TRAPS ARE HANDLED BY THE USER PROGRAM
     4773                            *
     4774                            **********************************************************:*****
     4775                            *
     4776                            *        COMMON TRAP/INTERRUPT HANDLING ROUTINE
     4777                            *
     4778   01 00E00    6D000041 A   HANDLER  WD,0     X'41'             TURN ON THE ALARM
     4779                            *
     4780                            *
     4781   01 00E01    35140000 A            STW,R1   0,R2              STORE R1 TEMPORARILLY
     4782   01 00E02    74000002 A            STCF     R2                SAVE TRAP CONDITION CODES
     4783                            *
     4784   01 00E03    73100388              MTB,1    HANDLER%POINTER
     4785   01 00E04    72100388              LB,R1    HANDLER%POINTER   FETCH POINTER INDEX BYTE
     4786   01 00E05    21100003 A            CI,R1    FLIMIT
     4787   01 00E06    69200E2F              BCS,2    MULTI#TRAPS
     4788                            *
     4789   01 00E07    3522038B              STW,R2   HANDLER%POINTER+FLIMIT,R1
     4790   01 00E08    4B200DAC              AND,R2   HFFFF             SAVE ADDRESS VALUE
     4791   01 00E09    21200286 A            CI,R2    (X'50'*8)+6       POWER ON LINK VALUE
     4792   01 00E0A    68300E3B              BCR,3    POWER%ON
     4793                            *
     4794                            *
     4795   01 00E0B    31200DFA              CW,R2    TRAPLOCK
     4796   01 00E0C    35200DFA              STW,R2   TRAPLOCK
     4797   01 00E0D    69300E58              BCS,3    REG%SAVE
     4798                            *
     4799   01 00E0E    6A600E26              BAL,X6   MULTI%TRAPS
     4800                            *
     4801                                     TEXTCS   ;
     4802         01 00E0F                    NL,'LINKED  FAULTS AT THE SAME TRAP/INTERRUPT ADDRESS'
     4803                            *
     4804                            ABSR:MSG TEXTCS   ;
     4805         01 00E1C                    NL,'MANUAL  ABSOLUTE RECOVERY NECESSARY   '
     4806                            *
     4807         01 00E26           MULTI%TRAPS EQU   %
     4808                            *
     4809   01 00E26    35600E2A              STW,X6   %+4               SAVE MESSAGE ADDRESS
     4810   01 00E27    2260007F A   FAULT%MASK LI,X6  X'7F'
     4811   01 00E28    75600E2A              STB,X6   %+2
     4812   01 00E29    6A600FB8              BAL,X6   TYPE%FAULT
     4813   01 00E2A    00000000 A            DATA     0
     4814                            *                                   RETURNS HERE WITHOUT TYPING
     4815   01 00E2B    6A600FB8              BAL,X6   TYPE%FAULT
     4816   01 00E2C    00000E1C              DATA     ABSR:MSG
     4817                            *
     4818   01 00E2D    EA600D8A              BAL,X6   *ABORT%
     4819   01 00E2E    6A60059D              BAL,X6   GO%@
     4820                            *
     4821                            *
     4822         00000009           TRAPSR2  EQU      R9
     4823                            *
     4824                            *
     4825         01 00E2F           MULTI#TRAPS EQU   %
     4826                            *
     4827   01 00E2F    6A600E26              BAL,X6   MULTI%TRAPS
     4828                            *
     4829                                     TEXTCS   ;
     4830         01 00E30                    NL,'TRAP/INTERRUPT  HANDLER STORAGE SATURATED'
     4831         01 00E3B           POWER%ON EQU      %
     4832                            *
     4833   01 00E3B    72100388              LB,R1    HANDLER%POINTER   LOOP COUNT
     4834   01 00E3C    3202038B              LW,R0    HANDLER%POINTER+FLIMIT,R1
     4835   01 00E3D    4B000DAC              AND,R0   HFFFF
     4836   01 00E3E    2100028E A            CI,R0    (X'51'*8)+6       POWER OFF LINK VALUE
     4837   01 00E3F    68300E42              BCR,3    %+3
     4838   01 00E40    64100E3C              BDR,R1   %-4               LOOK FOR ANOTHER ENTRY
     4839                            *
     4840   01 00E41    6A60059D              BAL,X6   GO%@              ERROR; FORCE RECOVERY
     4841                            *
     4842   01 00E42    32020388              LW,R0    HANDLER%POINTER,R1
     4843   01 00E43    35000DFA              STW,R0   TRAPLOCK
     4844   01 00E44    20000010 A            AI,R0    16
     4845   01 00E45    3500000A A            STW,R0   TRAPS#PSW1
     4846   01 00E46    20000001 A            AI,R0    1
     4847   01 00E47    3500000B A            STW,R0   TRAPS#PSW2
     4848                            *
     4849   01 00E48    B2700055 A            LW,X7    *CLOCK
     4850   01 00E49    20707530 A            AI,X7    30000
     4851   01 00E4A    B1700055 A            CW,X7    *CLOCK
     4852   01 00E4B    69200E4A              BG       %-1               DELAY FOR 1 MINUTE
     4853                            *
     4854                            *
     4855   01 00E4C    68000E9D              B        POWER%IN          GO TO SHARED ROUTINE.
     4856                            *
     4857                            *
     4858                            *
     4859         01 00E4D           CLEAR%PDF%ACTIVE EQU %
     4860                            *
     4861   01 00E4D    2120028E A            CI,R2    (X'51'*8)+6       POWER OFF LINK VALUE
     4862   01 00E4E    683E0000 A            BCR,3    0,X7
     4863                            *
     4864   01 00E4F    69100E53              BCS,1    CLEAR%PDF         BRANCH IF TRAPS
     4865                            *
     4866   01 00E50    212002BE A            CI,R2    (X'57'*8)+6       PROCESSOR FAULT LINK VALUE
     4867   01 00E51    682E0000 A            BCR,2    0,X7              RETURN WITHOUT CLEARING
     4868                            *
     4869   01 00E52    0E300E54              LPSD,3   CLR%INT%PDF       CLEAR ACTIVE LEVEL
     4870                            *
     4871   01 00E53    0E100E54     CLEAR%PDF LPSD,1  CLR%INT%PDF
     4872                            *
     4873                            *
     4874                            *        FOLLOWING PSD USED TO CLEAR 'PDF' FLAG OR HIGHEST
     4875                            *        ACTIVE INTERRUPT LEVEL
     4876                            *
     4877                                     BOUND    8
     4878                            *
     4879   01 00E54    00000E56     CLR%INT%PDF DATA  %+2,X'7000000'
            01 00E55    07000000 A
     4880   01 00E56    680E0000 A            B        0,X7              RETURN TO CALLING CODE
     4881                            *
     4882   01 00E57    00000000 A   TRAP%ADDR DATA    0                 CURRENT TRAP/INTERRUPT ADDRESS
     4883                            *
     4884                            *
     4885                            *
     4886                            *
     4887   01 00E58    32120388     REG%SAVE LW,R1    HANDLER%POINTER,R1 FETCH REGISTER STORAGE POINTER
     4888                            *
     4889                            *        SAVE REGISTER ZERO FIRST, THEN THE STORED PSD'S.
     4890                            *
     4891   01 00E59    35020000 A            STW,R0   0,R1
     4892                            *
     4893   01 00E5A    73100001 A            MTB,1    R1                COUNT THE NUMBER OF REGISTERS SAVED
     4894                            *
     4895   01 00E5B    3205FFFA A            LW,R0    -6,R2
     4896   01 00E5C    35020010 A            STW,R0   16,R1             SAVE MESSAGE ADDRESS
     4897   01 00E5D    3205FFFB A            LW,R0    -5,R2
     4898   01 00E5E    35020011 A            STW,R0   17,R1
     4899                            *
     4900   01 00E5F    32040000 A            LW,R0    0,R2              FETCH R1 FROM TEMP STORAGE AND
     4901   01 00E60    35020001 A            STW,R0   1,R1              SAVE IT
     4902   01 00E61    73100001 A            MTB,1    R1
     4903                            *
     4904   01 00E62    32040001 A            LW,R0    1,R2              FETCH R2 FROM TEMP STORAGE AND
     4905   01 00E63    35020002 A            STW,R0   2,R1              SAVE IT
     4906   01 00E64    73100001 A            MTB,1    R1
     4907                            *
     4908   01 00E65    35100DFA              STW,R1   TRAPLOCK          RESET THE LOCK; CAN NOW LAY THE
     4909                            *                                   TRAIL OF ANOTHER TRAP/INTERRUPT.
     4910   01 00E66    35320003 A            STW,R3   3,R1              SAVE R3
     4911   01 00E67    73100001 A            MTB,1    R1
     4912                            *
     4913   01 00E68    72300001 A            LB,R3    R1                FETCH CURRENT REGISTER SAVE COUNT.
     4914   01 00E69    2130000F A            CI,R3    15
     4915   01 00E6A    69200E6F              BCS,2    %+5
     4916                            *
     4917   01 00E6B    B2000003 A            LW,R0    *R3               SAVE R4 THRU R15
     4918   01 00E6C    B5020003 A            STW,R0   *R3,R1
     4919   01 00E6D    73100001 A            MTB,1    R1
     4920   01 00E6E    68000E68              B        %-6
     4921                            *
     4922                            *        ALL REGISTERS HAVE NOW BEEN SAVED IN TRAPBUFF 1,2, OR 3
     4923                            *
     4924   01 00E6F    35100008 A            STW,R1   TRAPSR1
     4925                            *
     4926                            *        SET UP RETURN TO TESTING
     4927                            *
     4928   01 00E70    32600458              LW,X6    TRAPBUFF1+16
     4929   01 00E71    4B600DAC              AND,X6   HFFFF
     4930   01 00E72    21601000 A            CI,X6    X'1000'
     4931   01 00E73    69100E90              BL       TRAPLOCK#1        SKIP IF INTERRUPTED FROM GUIDE
     4932                            *
     4933   01 00E74    4B100DAC              AND,R1   HFFFF
     4934   01 00E75    21100448              CI,R1    TRAPBUFF1
     4935   01 00E76    69300E90              BNE      TRAPLOCK#1        SKIP IF NOT FIRST TRAP/INT.
     4936   01 00E77    22600011 A            LI,X6    17
     4937   01 00E78    327C0447              LW,X7    TRAPBUFF1-1,X6
     4938   01 00E79    357C04CF              STW,X7   REGISTERS@RUN-1,X6 MOVE REGS. AND PSD
     4939   01 00E7A    64600E78              BDR,X6   %-2
     4940                            *
     4941   01 00E7B    3260038C              LW,X6    HANDLER%POINTER+4
     4942   01 00E7C    4B600DAC              AND,X6   HFFFF
     4943   01 00E7D    21600280 A            CI,X6    X'280'
     4944   01 00E7E    69200E90              BG       TRAPLOCK#1        BRANCH IF INTERRUPT
     4945   01 00E7F    70200392              LC       #SENSE
     4946   01 00E80    69C00E90              BCS,12   TRAPLOCK#1        BRANCH IF SS 1 OR 2 SET
     4947   01 00E81    68200E90              BCR,2    TRAPLOCK#1        BRANCH IF SS3 NOT SET
     4948                            *
     4949   01 00E82    4B600DAC              AND,X6   HFFFF
     4950   01 00E83    206FFFFA A            AI,X6    -6
     4951   01 00E84    B2600006 A            LW,X6    *X6               PICK UP TRAPING INSTR.
     4952   01 00E85    F2600006 A            LB,X6    *X6               FIND OP CODE
     4953   01 00E86    2160000E A            CI,X6    14
     4954   01 00E87    68300E90              BE       TRAPLOCK#1        BRANCH IF LPSD
     4955   01 00E88    2160000F A            CI,X6    15
     4956   01 00E89    68300E90              BE       TRAPLOCK#1        BRANCH IF XPSD
     4957   01 00E8A    4B600DA7              AND,X6   HF0
     4958   01 00E8B    21600060 A            CI,X6    X'60'
     4959   01 00E8C    68300E90              BE       TRAPLOCK#1        BRANCH IF BRANCH
     4960   01 00E8D    326004E0              LW,X6    RUNADDR
     4961   01 00E8E    20600001 A            AI,X6    1
     4962   01 00E8F    356004E0              STW,X6   RUNADDR           BUMP 'RUN' ADDRESS BY 1
     4963                            *
     4964   01 00E90    6A700E4D     TRAPLOCK#1 BAL,X7 CLEAR%PDF%ACTIVE
     4965                            *
     4966                            *
     4967   01 00E91    2120028E A            CI,R2    (X'51'*8)+6       POWER OFF LINK VALUE
     4968   01 00E92    69300E95              BCS,3    NOT%POWER%OFF
     4969                            *
     4970   01 00E93    EA600D8A              BAL,X6   *ABORT%
     4971   01 00E94    68000E93              B        %-1               IN CASE OF HARDWARE FAILURE
     4972                            *
     4973         01 00E95           NOT%POWER%OFF EQU %
     4974                            *
     4975   01 00E95    20100010 A            AI,R1    16
     4976   01 00E96    3510000A A            STW,R1   TRAPS#PSW1
     4977                            *
     4978   01 00E97    20100001 A            AI,R1    1
     4979   01 00E98    3510000B A            STW,R1   TRAPS#PSW2
     4980                            *
     4981   01 00E99    72100388              LB,R1    HANDLER%POINTER
     4982   01 00E9A    32020388              LW,R0    HANDLER%POINTER,R1
     4983   01 00E9B    75300000 A            STB,R3   R0
     4984   01 00E9C    35020388              STW,R0   HANDLER%POINTER,R1
     4985                            *
     4986         01 00E9D           POWER%IN EQU      %                 POWER ON PROCESSING CONTINUES HERE
     4987                            *
     4988   01 00E9D    3222038B              LW,R2    HANDLER%POINTER+FLIMIT,R1
     4989   01 00E9E    35200009 A            STW,R2   TRAPSR2
     4990                            *
     4991         00000008           TRAPSR1  EQU      R8
     4992                            *
     4993   01 00E9F    6A600AB5              GEHTECON TRAPSR1
            01 00EA0    00000008 A
     4994                            *
     4995   01 00EA1    321C0001 A            LW,R1    1,X6
     4996   01 00EA2    2260007E A            LI,X6    '='
     4997   01 00EA3    75600001 A            STB,X6   R1
     4998   01 00EA4    35100FAE              STW,R1   TRAPS:MSG+14
     4999   01 00EA5    72600388              LB,X6    HANDLER%POINTER
     5000   01 00EA6    206000F0 A            AI,X6    X'F0'
     5001   01 00EA7    75600FB0              STB,X6   TRAPS:MSG+16
     5002                            *
     5003         0000000A           TRAPS#PSW1 EQU    R10
     5004                            *
     5005   01 00EA8    6A600AB5              GEHTECON *TRAPS#PSW1
            01 00EA9    8000000A A
     5006                            *
     5007   01 00EAA    320C0000 A            LW,R0    0,X6
     5008   01 00EAB    35000FA7              STW,R0   TRAPS:MSG+7
     5009   01 00EAC    321C0001 A            LW,R1    1,X6
     5010   01 00EAD    35100FA8              STW,R1   TRAPS:MSG+8
     5011                            *
     5012         0000000B           TRAPS#PSW2 EQU    R11
     5013                            *
     5014   01 00EAE    6A600AB5              GEHTECON *TRAPS#PSW2
            01 00EAF    8000000B A
     5015                            *
     5016   01 00EB0    30600006 A            AW,X6    X6
     5017   01 00EB1    30600006 A            AW,X6    X6                FORM A BYTE INDEX
     5018   01 00EB2    32100F9F              LW,R1    TRAPS:MSG-1       BYTE ADDRESS OF MESSAGE
     5019   01 00EB3    20100002 A            AI,R1    2
     5020                            *
     5021   01 00EB4    22700008 A            LI,X7    8                 LOOP COUNT
     5022                            *
     5023   01 00EB5    720C0000 A            LB,R0    0,X6
     5024   01 00EB6    7502000A A            STB,R0   10,R1
     5025   01 00EB7    20600001 A            AI,X6    1
     5026   01 00EB8    20100001 A            AI,R1    1
     5027   01 00EB9    64700EB5              BDR,X7   %-4
     5028                            *
     5029   01 00EBA    6A600AB5              GEHTECON TRAPSR2
            01 00EBB    00000009 A
     5030                            *
     5031   01 00EBC    F2000006 A            LB,R0    *X6               FETCH TRAP CONDITION CODE
     5032   01 00EBD    22100001 A            LI,R1    1
     5033   01 00EBE    75020FA5              STB,R0   TRAPS:MSG+5,R1
     5034                            *
     5035   01 00EBF    32700009 A            LW,X7    TRAPSR2
     5036   01 00EC0    2210001D A            LI,R1    29
     5037   01 00EC1    30700007 A            AW,X7    X7                SHIFT LEFT ONE
     5038   01 00EC2    68800EC4              BCR,8    %+2
     5039   01 00EC3    20700001 A            AI,X7    1
     5040   01 00EC4    64100EC1              BDR,R1   %-3
     5041                            *
     5042   01 00EC5    4B700DAC              AND,X7   HFFFF
     5043   01 00EC6    35700E57              STW,X7   TRAP%ADDR         SAVE THE TRAP/INTERRUPT ADDRESS
     5044   01 00EC7    3570000F A            STW,X7   R15               IN CASE OF SUBSEQUENT T/I
     5045                            *
     5046   01 00EC8    21700070 A            CI,X7    X'70'
     5047   01 00EC9    69300ECD              BNE      %+4               BRANCH IF NOT 70 THRU 13F INT.
     5048                            *
     5049   01 00ECA    32100ECC              LW,R1    %+2
     5050   01 00ECB    68000ED2              B        TRAPS#LOC         REPLACE X'70' WITH 'EXT'
     5051                            *
     5052   01 00ECC    7EC5E7E3 A            TEXT     '=EXT'
     5053                            *
     5054   01 00ECD    6A600AB5              GEHTECON X7
            01 00ECE    00000007 A
     5055                            *
     5056   01 00ECF    2200007E A            LI,R0    '='
     5057   01 00ED0    321C0001 A            LW,R1    1,X6
     5058   01 00ED1    75000001 A            STB,R0   R1
     5059         01 00ED2           TRAPS#LOC EQU     %
     5060   01 00ED2    35100FA3              STW,R1   TRAPS:MSG+3
     5061                            *
     5062         01 00ED3           NOT%POWER%ON EQU  %
     5063                            *
     5064   01 00ED3    32100DBF              LW,R1    H40404040         GET EBCDIC BLANKS
     5065   01 00ED4    35100FB2              STW,R1   TRAPS:MSG+18      AND
     5066   01 00ED5    35100FB5              STW,R1   TRAPS:MSG+21      INITIALIZE MSG
     5067   01 00ED6    22000041 A            LI,R0    65
     5068   01 00ED7    321003F2              LW,R1    DCA+2
     5069   01 00ED8    68300EE5              BCR,3    MFI%57-3          BRANCH IF NO TEST NUMBER
     5070   01 00ED9    2200004D A            LI,R0    77                SELECT MSG WITH NO SUBTEST #
     5071   01 00EDA    6A600AB5              GEHTECON DCA+2
            01 00EDB    000003F2
     5072   01 00EDC    321C0001 A            LW,R1    1,X6              GET TEST # IN EBCDIC
     5073   01 00EDD    35100FB2              STW,R1   TRAPS:MSG+18
     5074   01 00EDE    321003F3              LW,R1    DCA+3
     5075   01 00EDF    68300EE5              BCR,3    MFI%57-3          BRANCH IF NO SUBTEST #
     5076   01 00EE0    22000058 A            LI,R0    88                SELECT FULL MSG
     5077   01 00EE1    6A600AB5              GEHTECON DCA+3
            01 00EE2    000003F3
     5078   01 00EE3    321C0001 A            LW,R1    1,X6              GET SUBTEST # IN EBCDIC
     5079   01 00EE4    35100FB5              STW,R1   TRAPS:MSG+21
     5080                            *
     5081   01 00EE5    75000FA0              STB,R0   TRAPS:MSG         SET MESSAGE LENGTH
     5082   01 00EE6    2170004C A            CI,X7    X'4C'             MEMORY PARITY TRAP
     5083   01 00EE7    69300F41              BCS,3    NOT%MPT
     5084                            *
     5085                            *
     5086         01 00EE8           MFI%57   EQU      %
     5087                            *
     5088   01 00EE8    221FFFFF A            LI,R1    -1
     5089   01 00EE9    20100FFF A            AI,R1    X'FFF'
     5090   01 00EEA    311003AA              CW,R1    #MAXMEM
        1*  01 00EEB    69200F61              BG       TYPE%TRAP%MSG-1   EXIT IF SCAN COMPLETED          *H01
        2*  01 00EEC    2111FFFF A            CI,R1    X'1FFFF'           BUT DO NOT SCAN                *H01
        3*  01 00EED    69200F61              BG       TYPE%TRAP%MSG-1     MORE THAN 128K                *H01
     5092                            *
     5093   01 00EEE    6A700EF2              BAL,X7   MSW%SCAN
     5094                            *
     5095   01 00EEF    31800DC9              CW,R8    HFF100000
     5096   01 00EF0    69400EF9              BCS,4    MP%T%I            FAULT FOUND, NOW REPORT IT
     5097                            *
     5098   01 00EF1    68000EE9              B        MFI%57+1
     5099                            *
     5100         01 00EF2           MSW%SCAN EQU      %
     5101                            *
     5102   01 00EF2    02200080 A            LCI      8
     5103   01 00EF3    AD800001 A            LMS,R8   *R1
     5104                            *
     5105   01 00EF4    02200090 A            LCI      9
     5106   01 00EF5    AD900001 A            LMS,R9   *R1
     5107                            *
     5108   01 00EF6    022000E0 A            LCI      14
     5109   01 00EF7    ADA00001 A            LMS,R10  *R1
     5110                            *
     5111   01 00EF8    680E0000 A            B        0,X7
     5112                            *
     5113                            *
     5114                            *
     5115         01 00EF9           MP%T%I   EQU      %
     5116   01 00EF9    70200392              LC       #SENSE
     5117   01 00EFA    69900F0D              BCS,9    MP%T%I#1          BRANCH IF SS 1 OR 4 SET
     5118                            *
     5119   01 00EFB    6A600AB5              GEHTECON R8                CONVERT MSW0
            01 00EFC    00000008 A
     5120   01 00EFD    320C0000 A            LW,R0    0,X6
     5121   01 00EFE    35000F31              STW,R0   MPT%MSG+2
     5122   01 00EFF    320C0001 A            LW,R0    1,X6
     5123   01 00F00    35000F32              STW,R0   MPT%MSG+3
     5124                            *
     5125   01 00F01    6A600AB5              GEHTECON R9                CONVERT MSW1
            01 00F02    00000009 A
     5126   01 00F03    320C0000 A            LW,R0    0,X6
     5127   01 00F04    35000F35              STW,R0   MPT%MSG+6
     5128   01 00F05    320C0001 A            LW,R0    1,X6
     5129   01 00F06    35000F36              STW,R0   MPT%MSG+7
     5130                            *
     5131   01 00F07    6A600AB5              GEHTECON R10               CONVERT MSW2
            01 00F08    0000000A A
     5132   01 00F09    320C0000 A            LW,R0    0,X6
     5133   01 00F0A    35000F39              STW,R0   MPT%MSG+10
     5134   01 00F0B    320C0001 A            LW,R0    1,X6
     5135   01 00F0C    35000F3A              STW,R0   MPT%MSG+11
     5136                            *
     5137   01 00F0D    22000000 A   MP%T%I#1 LI,R0    0
     5138   01 00F0E    70300008 A            LCF      R8
     5139   01 00F0F    68600F2C              BCR,6    MPT%NOT%MP        BRANCH IF NO MEM. PARITY FAULT COND.
     5140                            *
     5141   01 00F10    3210000A A            LW,R1    R10               FETCH FAULT ADDRESS
     5142                            *
     5143   01 00F11    22004001 A            LI,R0    X'4001'
     5144                            *
     5145   01 00F12    70300009 A            LCF      R9                MSW1
     5146   01 00F13    68C00F22              BCR,12   %+15              BRANCH IF N0/DISABLED INTERLEAVE
     5147                            *
     5148   01 00F14    68800F1C              BCR,8    %+8               BRANCH IF TWO-WAY INTERLEAVING
     5149                            *
     5150   01 00F15    31100DAA              CW,R1    H8001
     5151   01 00F16    68400F1B              BCR,4    %+5               BRANCH IF BOTH BITS 16 & 31 = 0.
     5152   01 00F17    48100DAA              EOR,R1   H8001             INVERT BITS 16 AND 31
     5153   01 00F18    31100DAA              CW,R1    H8001
     5154   01 00F19    69400F1B              BCS,4    %+2               BRANCH IF ONLY ONE POSITION WAS '1'.
     5155   01 00F1A    48100DAA              EOR,R1   H8001             RE-INVERT BITS 16 AND 31
     5156                            *
     5157   01 00F1B    20000001 A            AI,R0    1                 CHANGE X'4001' TO X'4002'
     5158                            *
     5159                            *        (30) APPLIES TO 4 WAY INTERLEAVING
     5160                            *
     5161   01 00F1C    31100000 A            CW,R1    R0
     5162   01 00F1D    68400F22              BCR,4    %+5               BRANCH IF BOTH BITS 17 & (30)31 = 0.
     5163   01 00F1E    48100000 A            EOR,R1   R0                INVERT BITS 17 AND (30)31
     5164   01 00F1F    31100000 A            CW,R1    R0
     5165   01 00F20    69400F22              BCS,4    %+2               BRANCH IF ONLY ONE POSITION WAS '1'.
     5166   01 00F21    48100000 A            EOR,R1   R0                RE-INVERT BITS 17 AND (30)31
     5167                            *
     5168   01 00F22    02200010 A            LCI      1                 READ AND INHIBIT PARITY
     5169   01 00F23    2D020000 A            LMS,R0   0,R1
     5170   01 00F24    35020000 A            STW,R0   0,R1              CLEAR THE PARITY ERROR.
     5171                            *
     5172   01 00F25    6A600AB5              GEHTECON R0
            01 00F26    00000000 A
     5173   01 00F27    320C0000 A            LW,R0    0,X6
     5174   01 00F28    35000F3F              STW,R0   MPT%MSG+16
     5175   01 00F29    321C0001 A            LW,R1    1,X6
     5176   01 00F2A    35100F40              STW,R1   MPT%MSG+17
     5177   01 00F2B    22000018 A            LI,R0    24
     5178                            *
     5179         01 00F2C           MPT%NOT%MP EQU    %
     5180                            *
     5181   01 00F2C    2000002F A            AI,R0    47
     5182   01 00F2D    75000F2F              STB,R0   MPT%MSG           TEXTC COUNT BYTE
     5183   01 00F2E    6A600F62              BAL,X6   TYPE%TRAP%MSG
     5184                            *
     5185                            MPT%MSG  TEXTCS   ;
     5186                                     'MSW0 = XXXXXXXX MSW1 = XXXXXXXX MSW2 = XXXXXXXX',NL,;
     5187         01 00F2F                    'RESTORED WORD =01234567'
     5188                            *
     5189         01 00F41           NOT%MPT  EQU      %
     5190                            *
     5191   01 00F41    21700057 A            CI,X7    X'57'             MEMORY FAULT INTERRUPT
     5192   01 00F42    68300EE8              BCR,3    MFI%57
     5193                            *
     5194   01 00F43    21700056 A            CI,X7    X'56'
     5195   01 00F44    69300F61              BCS,3    TYPE%TRAP%MSG-1   BRANCH IF NOT INTERRUPT X'56'
     5196                            *
     5197   01 00F45    226FFFE0 A            LI,X6    -32
     5198   01 00F46    227FFF00 A            LI,X7    -X'100'
     5199                            *
     5200   01 00F47    20700100 A   PFI%56   AI,X7    X'100'
     5201   01 00F48    4F5E8000 A            GEN,8,4,3,5,12 X'4F',X5,X7,8,0 POLP,X5 0,X7
     5202   01 00F49    69800F60              BCS,8    PFI%NEXT          BRANCH IF NO ADDRESS RECOGNITION.
     5203   01 00F4A    68E00F60              BCR,14   PFI%NEXT          BRANCH IF NO FAULT PRESENT.
     5204                            *
     5205   01 00F4B    4F5EC000 A            GEN,8,4,3,5,12 X'4F',X5,X7,12,0 POLR,X5 0,X7
     5206   01 00F4C    4B500DA8              AND,X5   HFF
     5207   01 00F4D    30700005 A            AW,X7    X5
     5208                            *
     5209   01 00F4E    6A600AB5              GEHTECON X7
            01 00F4F    00000007 A
     5210                            *
     5211   01 00F50    320C0001 A            LW,R0    1,X6              GET EBCDIC FOR BITS 16-31
     5212   01 00F51    22100001 A            LI,R1    1
     5213   01 00F52    75020F5F              STB,R0   PFI%MSG+5,R1
     5214   01 00F53    72620000 A            LB,X6    R0,R1
     5215   01 00F54    22100002 A            LI,R1    2
     5216   01 00F55    72620000 A            LB,X6    R0,R1
     5217   01 00F56    75600F5F              STB,X6   PFI%MSG+5
     5218   01 00F57    52000000 A            LH,R0    R0
     5219   01 00F58    55000F5C              STH,R0   PFI%MSG+2
     5220                            *
     5221   01 00F59    6A600F62              BAL,X6   TYPE%TRAP%MSG
     5222                            *
     5223                            PFI%MSG  TEXTCS   ;
     5224         01 00F5A                    'PROC = 01 F/STAT = 23'
     5225                            *
     5226         01 00F60           PFI%NEXT EQU      %
     5227                            *
     5228   01 00F60    65600F47              BIR,X6   PFI%56
     5229                            *
     5230                            *
     5231   01 00F61    22600000 A            LI,X6    0                 FLAG FOR NOT 'MPE', 'MFI', OR 'PFI'
     5232                            *
     5233         01 00F62           TYPE%TRAP%MSG EQU %
     5234                            *
     5235   01 00F62    70200392              LC       #SENSE
     5236   01 00F63    69900F6B              BCS,9    %+8               SKIP MSG. IF SS 1 OR 4 SET
     5237                            *
     5238   01 00F64    35600F6A              STW,X6   %+6
     5239   01 00F65    4B600E27              AND,X6   FAULT%MASK        X'7F'
     5240   01 00F66    75600F68              STB,X6   %+2               FLAG FOR OUTPUT ROUTINE
     5241                            *
     5242   01 00F67    6A600FB8              BAL,X6   TYPE%FAULT
     5243   01 00F68    00000FA0              DATA     TRAPS:MSG
     5244                            *
     5245   01 00F69    6A600FB8              BAL,X6   TYPE%FAULT
     5246   01 00F6A    00000000 A            DATA     0
     5247                            *
     5248   01 00F6B    3270000F A            LW,X7    R15               TRAP/INTERRUPT LEVEL
     5249   01 00F6C    21700051 A            CI,X7    X'51'             POWER (ON) OFF LEVEL
     5250   01 00F6D    69300F6F              BCS,3    %+2
     5251                            *
     5252   01 00F6E    6A60059D              BAL,X6   GO%@              CAUSE AN ABSOLUTE RECOVERY.
     5253                            *
     5254                            *
     5255   01 00F6F    69100F73              BCS,1    %+4               BRANCH IF TRAP
     5256                            *
     5257   01 00F70    21700057 A            CI,X7    X'57'
     5258   01 00F71    69200F73              BCS,2    %+2               BRANCH IF PREVIOUSLY CLEARED
     5259   01 00F72    6A700E52              BAL,X7   CLEAR%PDF-1       LPSD,3
     5260                            *
     5261   01 00F73    6D000040 A            WD,0     X'40'             RESET THE ALARM
     5262                            *
     5263                            *
     5264                            *
     5265   01 00F74    72200388     CHKEND   LB,X2    HANDLER%POINTER   CHECK IF FIRST INT/TRAP
     5266   01 00F75    32040388              LW,R0    HANDLER%POINTER,X2
     5267   01 00F76    4B000DB1              AND,R0   H3FFFFF
     5268   01 00F77    35040388              STW,R0   HANDLER%POINTER,X2
     5269   01 00F78    202FFFFF A            AI,X2    -1
     5270   01 00F79    69100F8B              BCS,1    GO%TST1           EXIT TO IDLE IF ALL DISPLAYED
     5271                            *
     5272   01 00F7A    75200388              STB,X2   HANDLER%POINTER
     5273   01 00F7B    68300F74              BCR,3    CHKEND            BRANCH IF ALL DISPLAYED
     5274                            *
     5275   01 00F7C    32140389              LW,X1    HANDLER%POINTER+1,X2
     5276   01 00F7D    35100F94              STW,X1   RESTORER0
     5277   01 00F7E    32020010 A            LW,R0    16,R1
     5278   01 00F7F    35000F96              STW,R0   RESTORE#PSW1
     5279   01 00F80    32020011 A            LW,R0    17,X1
     5280   01 00F81    35000F97              STW,R0   RESTORE#PSW2
     5281   01 00F82    3202000F A            LW,R0    15,X1             RECOVER STORED R15
     5282   01 00F83    35000F95              STW,R0   RESTORE#PSW1-1
     5283                            *
     5284   01 00F84    2200000E A            LI,R0    14                RESTORE R1-R14
     5285   01 00F85    B2F20000 A            LW,R15   *R0,X1
     5286   01 00F86    B5F00000 A            STW,R15  *R0
     5287   01 00F87    64000F85              BDR,R0   %-2
     5288                            *
     5289   01 00F88    32F00F95              LW,R15   RESTORE#PSW1-1    RESTORE R15
     5290   01 00F89    B2000F94              LW,R0    *RESTORER0        RESTORE R0
     5291   01 00F8A    0E800F96              LPSD,8   RESTORE#PSW1      RETURN TO INT.ROUTINE
     5292                            *                                   TO DISPLAY OTHERS
     5293         01 00F8B           GO%TST1  EQU      %
     5294   01 00F8B    70200392              LC       #SENSE
     5295   01 00F8C    69E00F90              BCS,14   %+4               GO TO RUN IF SS 1,2, OR 3 SET
     5296   01 00F8D    322003AF              LW,R2    #TRAPLINK
     5297   01 00F8E    683004F1              BCR,3    FIDLE#1
     5298   01 00F8F    68000F92              B        %+3
     5299                            *
     5300   01 00F90    322003AF              LW,X2    #TRAPLINK
     5301   01 00F91    68300F93              BCR,3    %+2               CHANGE RUN ADDRESS IF NON-ZERO
     5302                            *
     5303   01 00F92    352004E0              STW,R2   RUNADDR
     5304   01 00F93    6800050E              B        USE%RUN+2
     5305                            *
     5306                                     BOUND    8
     5307                            *
     5308   01 00F94    00000000 A   RESTORER0 DATA    0                 ADDRESS OF SAVED R0
     5309   01 00F95    00000000 A            DATA     0                 CONTENTS OF SAVED R15
     5310   01 00F96    000004F6     RESTORE#PSW1 DATA FIDLE%%           RETURN PSD (MULTI-TRAP)
     5311   01 00F97    00000000 A   RESTORE#PSW2 DATA 0
     5312                            *
     5313                            *
     5314   01 00F98    22100003 A   CLEAR%POINTERS LI,R1 FLIMIT
     5315   01 00F99    32020388              LW,R0    HANDLER%POINTER,R1
     5316   01 00F9A    4B000DB1              AND,R0   H3FFFFF
     5317   01 00F9B    35020388              STW,R0   HANDLER%POINTER,R1
     5318   01 00F9C    64100F99              BDR,R1   %-3
     5319                            *
     5320   01 00F9D    75100388              STB,R1   HANDLER%POINTER
     5321                            *
     5322   01 00F9E    680C0000 A            B        0,X6
     5323                            *
     5324   01 00F9F    00003E80              DATA     BA(%+1)

     5326         01 00FA0           TRAPS:MSG EQU     %
     5327                            *
     5328                                     TEXTCS   NL,;
     5329                             'TRAP/INTER=XXX TCC=X PSW1=XXXXXXXX PSW2=XXXXXXXX REGSV=XXX NO=X',NL,;
     5330         01 00FA0                    '  TST=XXXX ',NL,'  SUB=XXXX',NL
     5331                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   51
A    5334   01 00FB7    00000000 A   FBC      DATA     0
     5335                            *
     5336         01 00FB8           TYPE%FAULT EQU    %
     5337                            *
     5338   01 00FB8    324C0000 A            LW,X4    0,X6
     5339   01 00FB9    69100FCB              BCS,1    TYPE%FAULT%RECOVERY ABSOLUTE RECOVERY
     5340   01 00FBA    683C0001 A            BCR,3    1,X6              RETURN IF NOTHING TO OUTPUT
     5341                            *
     5342                            *
     5343   01 00FBB    F2800004 A            LB,R8    *X4               TEXTC COUNT
     5344   01 00FBC    22500000 A            LI,X5    0
     5345   01 00FBD    22700500 A            LI,X7    X'500'            STARTING BYTE ADDRESS
     5346   01 00FBE    30700FB7              AW,X7    FBC               CURRENT BYTE COUNT
     5347                            *
     5348   01 00FBF    20500001 A            AI,X5    1
     5349   01 00FC0    F23A0004 A            LB,X3    *X4,X5
     5350   01 00FC1    753E0000 A            STB,X3   0,X7
     5351   01 00FC2    20700001 A            AI,X7    1
     5352   01 00FC3    21700800 A            CI,X7    X'800'            BYTE ADDR. OF END OF TEXT STORAGE
     5353   01 00FC4    68100FCB              BCR,1    TYPE%FAULT%RECOVERY BUFFER IS FULL
     5354   01 00FC5    64800FBF              BDR,R8   %-6
     5355                            *
     5356   01 00FC6    30500FB7              AW,X5    FBC
     5357   01 00FC7    20500001 A            AI,X5    1
     5358   01 00FC8    35500FB7              STW,X5   FBC
     5359   01 00FC9    F2400006 A            LB,X4    *X6
     5360   01 00FCA    693C0001 A            BCS,3    1,X6              GO BACK FOR MORE TEXT
     5361                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   52
A    5364                            *
     5365         01 00FCB           TYPE%FAULT%RECOVERY EQU %
     5366                            *
     5367   01 00FCB    35600FE1              STW,X6   FAULT%RET
     5368   01 00FCC    32601006              LW,X6    #ONLINE@
     5369   01 00FCD    68300FCF              BCR,3    %+2               BRANCH IF NO ON-LINE ROUTINE
     5370   01 00FCE    EA601006              BAL,X6   *#ONLINE@         PUT OUTPUT DEV. ONLINE IF OFF
     5371                            *
     5372   01 00FCF    22400500 A            LI,X4    X'500'            SET STARTING BYTE ADDR.
     5373   01 00FD0    32500FB7              LW,X5    FBC               FIND # OF BYTES TO OUTPUT
     5374   01 00FD1    6A600D26              BAL,X6   MSGOUT
     5375   01 00FD2    02000FD2              NOP      %
     5376   01 00FD3    22400000 A            LI,X4    0
     5377   01 00FD4    35400FB7              STW,X4   FBC
     5378   01 00FD5    32600FE1              LW,X6    FAULT%RET
     5379   01 00FD6    680C0001 A            B        1,X6
     5380                            *
     5381   01 00FD7                          RES      10
     5382                            *
     5383   01 00FE1    00000000 A   FAULT%RET DATA    0
     5384                            *
     5385                            *
     5386                            *
     5387   01 00FE2    22100000 A   BRK%EXIT LI,X1    0
     5388   01 00FE3    75100388              STB,X1   HANDLER%POINTER
     5389   01 00FE4    680004F1              B        FIDLE#1

     5391                                     BOUND    8                                                 *G02
     5392         01 00FE6           SAVEINHB EQU      %                                                 *G02
     5393   01 00FE6    00000000 A            DATA     0,0,SAVEIT,X'07000000'  SET UP THE DOUBLEWORDS.   *G02
            01 00FE7    00000000 A
            01 00FE8    00000FEE
            01 00FE9    07000000 A
     5394         01 00FEA           RESTINHB EQU      %                                                 *G02
     5395   01 00FEA    00000000 A            DATA     0,0,RESTIT,X'07000000'  SAVED AND NEW PSD.        *G02
            01 00FEB    00000000 A
            01 00FEC    00000FF0
            01 00FED    07000000 A

     5397   01 00FEE    0E000FE6     SAVEIT   LPSD,0   SAVEINHB          INHB FLAGS WILL BE HERE FOR LATER.
     5398   01 00FEF    F8FFFFFF A   MSK      DATA     X'F8FFFFFF'       MASK TO TURN OFF CI,II, & EI.   *G02
     5399   01 00FF0    32600FED     RESTIT   LW,X6    RESTINHB+3        GET THE INHIBIT CONFIGURATION.  *G02
     5400   01 00FF1    4B600FE7              AND,X6   SAVEINHB+1        FROM SAVED PSD AND              *G02
     5401   01 00FF2    35600AAA              STW,X6   ENBL%FLG          SAVE THEM.                      *G02
     5402   01 00FF3    32600FEB              LW,X6    RESTINHB+1        ZERO THE INHB BITS IN           *G02
     5403   01 00FF4    4B600FEF              AND,X6   MSK               THE LATEST PSD.                 *G02
     5404   01 00FF5    49600AAA              OR,X6    ENBL%FLG          INSERT INHIBIT BITS FROM SAVED PSD.
     5405   01 00FF6    35600FEB              STW,X6   RESTINHB+1        SET UP PSD WD2 FOR RETURN.      *G02
     5406   01 00FF7    0E000FEA              LPSD,0   RESTINHB          LETS GO BACK!                   *G02
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   53
A    5409                            *
     5410                            *   THE FOLLOWING CODE IS USED ONLY ONCE (IF AT ALL) AND IS
     5411                            *     OVERLAID DURING PROGRAM LOADING
     5412                            *
     5413   01 00FF8    FFFFF007 A            DATA     -(ABSVAL(%+1))
     5414         01 00FF9           LOAD%CARDS EQU    %
     5415   01 00FF9    22000FF9              LI,R0    %
     5416   01 00FFA    30000FF8              AW,R0    LOAD%CARDS-1      FIND RELOCATION BIAS
     5417   01 00FFB    35000200 A            STW,R0   X'200'            SAVE FOR USE BY REMOTE PACKAGE
     5418                            *                                           LOADING ROUTINE
     5419   01 00FFC    3503F400 A            STW,R0   -X'C00',X1        CLEAR 'PI'
     5420                            *
     5421   01 00FFD    22B00000 A            LI,R11   0                 SET UP TO READ ANOTHER DECK
     5422   01 00FFE    68020008 A            B        R8,X1
     5423                            *
     5424                            *
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   54
A    5427                            *    TABLE 3 (DICTIONARY TABLE OF DIRECTIVES) IS AT:
     5428   01 00FFF    00000DDB              DATA     TABLE3
     5429                            *
     5430                            *
     5431                            *    THE PROGRAM TITLE INFORMATION IS AT:
     5432   01 01000    00000271              DATA     PROGMSG
     5433                            *
     5434         01 00FF9                    END      LOAD%CARDS

  CONTROL SECTION SUMMARY: 01 0100A   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:32 JUN 20,'83    T-SERIES GUIDE 960-0014-H02                                           PAGE   55
A  ABORT%          1083/STW     1094/BAL*    3794/LW      4331/BAL*    4468/BAL*    4514/DATA    4518/DATA
      4520-DATA    4818/BAL*    4970/BAL*
   ABSINIT%        1273/GEN     1470-EQU
   ABSINIT#        1158/B       1275/GEN     1474-EQU
   ABSR:MSG        4804-TEXTCS  4816/DATA
   ABSRECV         1015-LPSD    1036/LI      1219/EQU
   ALPHANUM         975-GEN
   ALTER%RUN       1304/BAL     1438-EQU     1440/STW     1447/LW      1448/B*      1658/BAL
   AMPER:RET        940/DATA    1331-EQU     1719/BCS     1842/B       1851/B
   ANSWER          1543/LI      1558-EQU
   ARMUSER          936/DATA    1089/BAL     4229-EQU     4243/B*
   ARMUSER#1       4232/BEZ     4241-EQU
   B%MODE          1789-DATA    1856/STW     2170/STW     2915/STW     3203/STW
   BA%PARAM1       2360/LW      2372-DATA
   BIN              974-GEN
   BRK%EXIT        5387-LI
   BRK%PRT         1826/DATA    1839-EQU
   BTE              933/DATA    3523-EQU
   BTEBUFF         3524/STW     3525/STW     3526/STW     3536/STB     3539/LW      3540/LW      3541/LW
      3545-RES
   BTE1            3532-LI      3537/BIR
   BUILD%PSD       1121/BCS     1124/BCS     1132/BCS     1138-LI
   CA               473/SET      570-EQU
   CATALOG            2-EQU        4/EQU
   CB               473/SET      571-EQU
   CC               473/SET      572-EQU
   CCP             1352/BAL     1547/BAL     1681/BAL     4036/BAL     4127-STW     4127/STW     4220/B*
   CCPA            4131-TIO
   CCPEXIT         4206/B       4209/B       4212/B       4215/B       4218-BAL
   CCPSAVE         4129/DATA    4216-RES     4219/DATA
   CCP1            4132/BCR     4138-LB
   CCP11           4136/B       4143-LI
   CCP2            4139/BCS     4147-MTB
   CCP21           4156-LB      4185/BCS
   CCP22           4162/BCS     4167-CI
   CCP23           4157/BCR     4160/BCR     4165/BCR     4176/BCR     4183-AI
   CCP24           4134/BCR     4152/BCR     4182/BCR     4186-STB
   CCP25           4168/BCR     4175-CI
   CCP3A           4189-BAL     4194/B
   CCP4            4188/BCS     4196-BAL     4203/B
   CCP5            4197/B       4205-BAL
   CCP6            4190/B       4211-BAL
   CCP61           4199/BCS     4213-BAL
   CD               473/SET      573-EQU
   CE               473/SET      574-EQU
   CHECK            587-CNAME
   CHK%LOOP        3774/BDR     3779/B       3783/B       3923/B       3928/BCS     3931/BCS     3935/B
      3940-BDR
   CHK%PRT         3773-EQU
   CHK%TAB         3759/B       3770-CI
   CHKEND          5265-LB      5273/BCR
   CHKPRT          3705-LW
   CLEAR%PDF       4864/BCS     4871-LPSD    5259/BAL
   CLEAR%PDF%ACTIVE             4859-EQU     4964/BAL
   CLEAR%POINTERS  5314-LI
   CLK%CNT         1372/STW     1519/STW     4006/STW     4044-DATA    4046/MTW
   CLK%CNT%MTW      794/LW      1514/LW      4046-MTW
   CLK%XPSD         782/LW      1516/LW      1520/LW      4048-XPSD
   CLOCK            783/STW      795/STW     1316/LW*     1515/STW     1517/STW     1545/LW*     1548/CW*
      1675/LW*     1682/CW*     4052-EQU     4418/LW*     4433/CW*     4456/CW*     4849/LW*     4851/CW*
   CLR%INT%PDF     4869/LPSD    4871/LPSD    4879-DATA
   COCL%           1086/STW     4144/STB*    4146/STB*    4156/LB*     4174/STB*    4749-DATA
   COCLIM          4180/LB      4726-DATA
   COCLINE         1067/STW     4198/CW      4238/LW      4728-DATA
   COCNR           4155/STB     4179/MTB     4181/CB      4730-DATA
   COCSTATE         953/DATA    1045/STW     1065/STB     2985/LC      3709/LC      4133/LB      4138/LB
      4186/STB     4231/LB      4322/LC      4438/LC      4732-DATA
   COCXMIT%        1077/STW     4170/BAL*    4514-DATA
   CONT%RCVD       1725/BCR     1736-EQU
   CONTROLEXIT     1740/STW     1747-EQU
   COREH26         1475/LW      1485-XPSD
   COREH40          786/LW    826.42/LW      1486-XPSD    1506/LW
   C0               560-EQU
   C1               473/SET      561-EQU     3115/PRINT   3125/PRINT
   C2               473/SET      562-EQU
   C3               473/SET      563-EQU
   C4               473/SET      564-EQU
   C5               473/SET      565-EQU
   C6               473/SET      566-EQU
   C7               473/SET      567-EQU
   C8               473/SET      568-EQU
   C9               473/SET      569-EQU
   D%EXPL          4536-TEXTCS  4690/P
   D%MODE          1783-DATA    1910/LW      2063/STB
   D%R%MEMLIMITS   3010/BAL     3145-EQU     3210/BAL
   DCA              980-ORG     5068/LW      5071/GEHTECON             5074/LW      5077/GEHTECON
   DECODE%CW       1984/BE      2061-EQU
   DECODE%1        2082-BAL     2099/B
   DECODE%2        2083/B       2090/BE      2101-STW
   DECOMP          3751-EQU
   DISUSER          934/DATA    3418-EQU
   DITTOERR        2617/BCS     2619/BCR     2621/BCR     2648-BAL
   DM%%COM         3067/STW     3070/STB     3073/STB     3075/STB     3098/STW     3101/STB     3104/STB
      3111/STW     3112/STW     3114/STB     3115/PRINT   3122-TEXTCS  3125/PRINT
   DM%BRK          3116/BCR     3119/BCR     3140-EQU
   DM%1            3012/BCR     3019-LW
   DM%2            3020/BCR     3031-EQU
   DM%3            3022/BCS     3025/B       3036-EQU
   DM%4            3034/B       3041/B       3047-EQU
   DM%5            3056-EQU     3138/B
   DM%6            3083/BCS     3093/BCS     3124-EQU
   DM%7            3120/B       3135-EQU
   DMENTRY          948/DATA    3007-EQU     4688/E
   DONTRUN         1637-GEN     2339/LPSD
   DSGBUFF         1707/STW     1710/LW      1729-DATA
   E               4617-COM
   ECHO%           1084/STW     4191/BAL*    4207/BAL*    4464/BAL*    4513-DATA
   ENBL%FLG        3426-DATA    5401/STW     5404/OR
   ENUSER           935/DATA    3421/STW     3424/B*      3432-EQU     3436/STW     3438/LW
   ERROR%EXPL      1867-EQU
   ERROR1          3663/B       3664/DATA    3670-EQU
   ERRTEXT          943/DATA    1236-EQU     1255/EQU     1257/ORG     1631/STW     1668/STW     1869/LW
      1899/LW      2078/STW     2088/LW      2093/STW     2095/STW
   ERR1            3587/XPSD    3662-DATA    3668/DATA
   ERR1PTR          442/XPSD     945/DATA    3668-DATA
   ETH              426/BAL      931/DATA    3552-EQU     3630/BAL
   ETHCON           388-CNAME
   ETHERR          3587-XPSD
   ETHICC          3566/BCS     3580-EQU
   ETHILP          3573-CB      3578/BIR
   ETHOK           3574/BCR     3590-LW
   ETHOLP          3569-LW      3607/B
   ETHSAVE         3553/STW     3554/STW     3555/STW     3556/STW     3557/STW     3583/LW      3584/LW
      3585/LW      3586/LW      3609/LW      3611/STW     3613/LW      3614/LW      3615/LW      3616/LW
      3617/B*      3619-RES
   EXEC%SAVE       1259-EQU     1709/DATA    1711/STW     1713/LW
   EXECUTE         1554/LI      1562/LI      1704/DATA    1706-EQU
   EXECUTE%        1544/STW     1555/STW     1563/STW     1704-DATA    4193/BAL*    4202/BAL*
   EXPL%FLAG       2221/STW     2231/MTB     2260/LB      2274-DATA
   FAULT%MASK      4810-LI      5239/AND
   FAULT%RET       5367/STW     5378/LW      5383-DATA
   FBC             5334-DATA    5346/AW      5356/AW      5358/STW     5373/LW      5377/STW
   FIDLE            938/DATA    1296-EQU     1637/GEN     3362/B
   FIDLE%%         1312-EQU     1321/B       1341/BCS     1353/B       5310/DATA
   FIDLE#1         1301/BCS     1306-BAL     1336/BCS     1468/B       1689/B       1823/DATA    1906/B
      2226/BEZ     2271/B       3141/B       3373/BCR     3380/B       3405/B       4490/BCS     4504/B
      5297/BCR     5389/B
   FIELDERR        2174/DATA    2897-EQU     2916/LW      2935/MTB     2936/LW
   FIELDERR1       2918/BNE     2924-LI
   FIELDERR2       2927-STB     2945/B
   FIND%TAB        3771/BCS     3914-EQU     3939/BCR
   FINDEND         2495/BAL     2513/BAL     2787-EQU     2792/BG*     2796/B*      2801/B       2880/BAL
      2930/BAL
   FINDSTRT        2501/BAL     2758-EQU     2768/B       2774/BCS     2856/BAL     2920/BAL     2944/BAL
   FLDSTRT%CUR     2186-DATA    2479/STB     2506/STB     2532/LB      2548/CB      2577/CB      2595/CB
      2616/CB      2841/LB      2857/STB     2889/LB      2927/STB     2932/STB
   FLDSTRT%1       2187-DATA    2478/STB     2505/STB     2540/LB      2620/CB      2926/LB
   FLIMIT           301-SET     1140/LI      1143/STW     1496/LI      4786/CI      4789/STW     4834/LW
      4988/LW      5314/LI
   FOUND%TAB       3922/BCR     3933-EQU
   F0               473/SET      576-EQU
   F1               473/SET      577-EQU
   GEHTE            338/BAL     3448-EQU
   GEHTEBUFF       3449/STW     3450/STW     3451/STW     3452/STW     3470/STB     3472/LW      3473/LW
      3474/LW      3475/LW      3479-RES
   GEHTECON         325-CNAME
   GEHTE1          3459-LI      3471/BIR
   GLOSSARY%LOOP   1679-EQU     1683/BG
   GO%@            1588/BAL     1591-EQU     4819/BAL     4840/BAL     5252/BAL
   GO%TST1         5270/BCS     5293-EQU
   GO%TYPE         3776/BCR     3782-BAL
   GUIDE            777-EQU      937/DATA
   GUIDE#A          839/B       1028-EQU
   GUIDE3          1106-LW
   GUIDE4           819/BEZ   1030.1/BGE     1047/B       1059/BNE     1091-EQU
   H               4616-COM
   HALTONERR       1267/DATA    1459-EQU     1463/LW      3994/STW     3997/LW
   HANDLER         1138/LI      1199/BAL     4778-WD
   HANDLER%POINTER  858-EQU     1139/STW     1143/STW     1148/LI      1153/STW     1155/STW     1160/STW
      1162/STW     1165/STW     1170/STW     1173/STW     1178/STW     1370/STB     1498/LW      1500/STW
      1502/STB     4784/MTB     4785/LB      4789/STW     4833/LB      4834/LW      4842/LW      4887/LW
      4941/LW      4981/LB      4982/LW      4984/STW     4988/LW      4999/LB      5265/LB      5266/LW
      5268/STW     5272/STB     5275/LW      5315/LW      5317/STW     5320/STB     5388/STB
   HCF             3758/AND     4559-DATA
   HDR%S           3371/DATA    3408-TEXTCS
   HDRLINE%        2432/STW     2435/TYPE    2437-EQU
   HEX              973-GEN
   HF              1894/AND     2239/AND     2352/AND     3594/AND     3878/AND     4554-DATA
   HFF             2533/AND     4561-DATA    5206/AND
   HFFD0FFFF       1872/AND     1900/AND     2248/AND     4597-DATA
   HFFFC           4564-DATA
   HFFFF           2127/AND     3895/AND     4291/AND     4565-DATA    4790/AND     4835/AND     4929/AND
      4933/AND     4942/AND     4949/AND     5042/AND
   HFFFFC          3768/AND     4567-DATA
   HFFFFFF         4572-DATA
   HFFFFFFBF       4177/AND     4599-DATA
   HFFFFFFFD       4149/AND     4171/AND     4600-DATA
   HFFFFFFFF       2728/EOR     3079/EOR     3258/EOR     3591/EOR     4601-DATA    4602/EQU
   HFFFFFFF0       1897/AW      4598-DATA
   HFF00FFFF       4593-DATA
   HFF000000       2028/CW      4592-DATA
   HFF100000       4594-DATA    5095/CW
   HFF3FFFFF       4595-DATA
   HFF8FFFFF       4596-DATA
   HF0             3920/AND     4560-DATA    4957/AND
   HF0000000        818/AW      4591-DATA
   HTE              932/DATA    3486-EQU
   HTEBUFF         3487/STW     3488/STW     3489/STW     3490/STW     3506/STB     3508/LW      3509/LW
      3510/LW      3511/LW      3515-RES
   HTE1            3495-LI      3507/BIR
   H1              3386/CW      3392/CW      4551-DATA
   H1E000           796/LW       797/AND     1183-DATA
   H1F             4555-DATA
   H10000          3389/CW      3395/CW      4566-DATA
   H100000         3896/LW      4568-DATA
   H1000000        3575/AW      4574-DATA
   H10000000       2389/CW      3736/CW      4579-DATA
   H15000001       4580-DATA
   H17C0000        1962/CW      4575-DATA
   H18000000       2387/AND     4581-DATA
   H2              4150/EOR     4153/EOR     4172/EOR     4552-DATA
   H200000         1873/EOR     1901/EOR     2249/EOR     3880/CW      4569-DATA
   H2000000        4576-DATA
   H20000000       2116/CW      4582-DATA
   H3F             4556-DATA
   H3FFFFF         1499/AND     2450/AND     4570-DATA    5267/AND     5316/AND
   H4F8D5000       4586-DATA
   H40             4178/EOR     4557-DATA
   H40F040F0       1621/LW      4022/LW      4585-DATA
   H400000         3832/AND     3883/CW      3888/CW      4571-DATA
   H40000000       2112/CW      4583-DATA
   H40404040       2262/LW      4584-DATA    5064/LW
   H66000000       4587-DATA
   H68000000       4588-DATA
   H7              2119/AND     4553-DATA
   H7F             4558-DATA
   H7F000000       4589-DATA
   H7000000        3559/CW      4577-DATA
   H8000           4562-DATA
   H800000         1870/CW      4573-DATA
   H8000000        2393/CW      3562/EOR     3563/AND     4441/CW      4578-DATA
   H80000000       4590-DATA
   H8001           4563-DATA    5150/CW      5152/EOR     5153/CW      5155/EOR
   I%ERR           1954/B       2307/B       2322/BCS     2338-BAL
   I%MODE          1793-DATA    1919/LW      2120/STB     2159/LW      2297/STW     2315/LW      2618/LW
   I%STATE         1920/BCS     2283-EQU
   IDLFLG           781/STCF    1314/STCF    1324-DATA    1335/LC      1340/LC      1351/STCF    1369/STW
      1466/STCF    1495/STCF    1649/STCF    1743/STCF    2066/LC      2074/STCF    3419/LC      3434/LC
      3992/LC      4489/LC
   IDLINIT         1015/LPSD    1272-DATA    1485/XPSD    1593/STW     1595/STW     1596/LPSD    1833/LPSD
   IDLINIT%        1483/B       1488-EQU
   INITDIAG        1001/DATA    1303/STW     1441/LW*     1604/B       1633/B       1647-EQU     1654/STW
      1687/LC
   JUSTIFY         2558/BAL     2597/BAL     2828-EQU     2831/BCR*
   JUSTIFY1        2830-CB      2846/B
   JUSTIFY2        2833-LB      2852/B
   JUSTIFY3        2835/BCS     2848-EQU
   JUSTLOADED      1533/BCR     1600/B       1620-EQU
   KPLIMIT          300-SET     2453/CI      2456/LI      3082/CI      3169/LI      3261/CI      3263/LI
      3308/RES
   L               4618-COM
   LOAD%CARDS      5414-EQU     5416/AW      5434/END
   LOAD%XPSDS       744-EQU      772/ORG
   LOGONMSG%       1078/STW     4169/LB*     4515-DATA
   LOOP            3748-LW      3940/BDR
   MEMABSM        826.6/LW    826.37-DATA
   MEMPSD0        826.8/LPSD  826.12/LW    826.29-DATA
   MEMPSD1       826.10/XPSD  826.13/CW    826.30-DATA
   MEMPSD2       826.32-DATA  826.36/XPSD
   MEMPSD3       826.26/LPSD  826.34-DATA
   MEMQ          826.10-XPSD  826.29/DATA
   MEMR          826.12-LW    826.31/DATA
   MEMS          826.18-LW    826.24/B
   MEMS0         826.21/BE    826.26-LPSD
   MEMT          826.33/DATA  826.39-AI
   MEMU          826.34/DATA  826.40-STW
   MEMXPSD        826.2/LW    826.36-XPSD
   MFI%57          5069/BCR     5075/BCR     5086-EQU     5098/B       5192/BCR
   MINUS1          4316/EOR     4602-EQU
   MOVE%MSG        3719/BAL     3763/BAL     3954-EQU     3956/STW     3957/STW     3970/LW      3972/B*
   MOVE%SEARCH     2012/BLZ     2027-EQU
   MP%T%I          5096/BCS     5115-EQU
   MP%T%I#1        5117/BCS     5137-LI
   MPT%MSG         5121/STW     5123/STW     5127/STW     5129/STW     5133/STW     5135/STW     5174/STW
      5176/STW     5182/STB     5185-TEXTCS
   MPT%NOT%MP      5139/BCR     5179-EQU
   MSG%ADDR        3753-DATA    3755/LB      3761/LW      3766/AW      3769/STW     3903/STW     3918/LW
      3925/LW
   MSG%D#1         3881/BCR     3888-CW
   MSG%D#2         3884/BCS     3886/B       3889/BCS     3891/B       3895-AND
   MSG%D#3         3898/BCR     3900/B       3902-AW
   MSG%DECODE      3683/BAL     3702/BAL     3863-EQU     3906/B*
   MSG%EXIT        3942-EQU
   MSG%OUT%RET     3788/STW     3797/LW      3801-DATA    3809/STW     3844/B*
   MSGMODE         1310/STW     1332/LC      1364/STW     1497/STW     1718/LC      1721/STW     1850/STW
      4324/LW      4738-DATA
   MSGOUT          3741/BAL     3791/BAL     4354-EQU     4372/B*      5374/BAL
   MSGOUTS         4357/DATA    4371/DATA    4379-RES
   MSGOUT1         4363-LB      4367/BDR
   MSGOUT2         4370-BAL     4377/B
   MSGOUT3         4365/B       4375-LI
   MSK             5398-DATA    5403/AND
   MSW%SCAN        5093/BAL     5100-EQU
   MULTI%TRAPS     4799/BAL     4807-EQU     4827/BAL
   MULTI#TRAPS     4787/BCS     4825-EQU
   MULTISTRING     1871/BCS     1892-EQU
   NEWPAGE         4446/LI      4473-EQU     4706/LI      4707/CI
   NL              1278-SET     2288/CI      4801/TEXTCS  4804/TEXTCS  4829/TEXTCS  5185/TEXTCS
      5328/TEXTCS  5328/TEXTCS  5328/TEXTCS  5328/TEXTCS
   NO%BRK          3822/BNE     3829-EQU
   NO%COMP         3749/BCR     3761-LW
   NO%EXPL         2263/STW     2264/STW     2269/TYPE    2276-TEXTCS
   NO%LOAD         1585/B       1602-LI
   NO%RECOG        3717/LI      3730-TEXTCS
   NON%COMP        3917/BCR     3925-LW
   NOPLINE         2165-EQU     2369/BEZ     2572/B
   NOREMOTE         849-TEXTCS  1127/TYPE
   NOT%MPT         5083/BCS     5189-EQU
   NOT%POWER%OFF   4968/BCS     4973-EQU
   NOT%POWER%ON    5062-EQU
   NOT%TERM        2615/BCS     2640-EQU
   NOT:IP          2737-EQU
   NOTCOL1         2484/B       2498-EQU
   NOTCOMMA        2592/BCS     2612-EQU
   NOTEOM          2576/BCS     2578/BCS     2590-EQU
   NOTPLCR         2547/BCS     2574-EQU
   NOTREPL         2524/BCS     2544-EQU
   NOTTYAD         4421/BCS     4468-BAL
   OFLOWMSG        1942/TYPE    1945-TEXTCS
   ONESTRING       1875/BAL     1881-EQU     1903/BAL
   ONESTRINGDATA   1874/STW     1883-DATA    1902/STW
   OUT%S           1622/STW     1623/STW     1625/LI      3371/DATA    3379/STB     3400/LB      3402/STB
      3407-TEXTCS  4012/LB      4023/STW     4024/STW     4030/STB
   OUTLINE%        2434/STW     2438-EQU     2440/TYPE    2904/LW
   OUTPROMPT       2160/BNEZ    2190-EQU
   OUTPUT           950/DATA    1101/CHECK   1221-EQU     1224/EQU     3765/LB      3789/LI      3790/LB
      3803/GEN     3810/LB      3813/STB     3965/STB     3967/STB
   OUTPUTHDR       2388/BCR     2408-EQU
   OVERERR         2646/BCR     2649/B       2887-BAL
   OVERFLOW        1937-EQU     2337/BAL     2887/BAL
   OVERLAY         1215/CHECK   1258-EQU     1259/EQU     1260/EQU     1261/EQU
   P                555-COM
   P%DONE          2549/BCS     2553/BCS     2560-LB      2855/BCR     2859/BCS
   P%MODE           949/DATA    1785-DATA    1917/LW      2114/STW     2161/LW      2480/STW     2494/MTB
      2507/STW     2508/STB     2560/LB      2583/LW      2585/STW     2603/LW      2605/STW     2632/STW
      2637/LW      2651/LW      2655/LW      2657/STW     2759/LW      2761/STW     2775/LW      2789/MTB
      2790/LB      2843/LW      2845/STW     2863/MTB     2867/LW      2870/LB      2875/MTB     2881/LB
      2914/STW     2925/STW     2928/STW     2929/STB     2931/LW      2942/LB      2943/STB     3058/LW
      3204/LW
   P%STATE         1918/BCS     2521-EQU
   P%STCF          2464/BCR     2555/B       2571-STCF
   PARAMERR        1927-EQU     2306/BAL     2648/BAL
   PARAMS          3372-LC      4699/E
   PERRMSG         1932/TYPE    1935-TEXTCS
   PFI%MSG         5213/STB     5217/STB     5219/STH     5223-TEXTCS
   PFI%NEXT        5202/BCS     5203/BCR     5226-EQU
   PFI%56          5200-AI      5228/BIR
   PI              1042/CW      1058/CW      4475-DATA
   PLINE#STATUS    2169/LW      2174-DATA    2562/STB     2566/MTB     2570/LB      2571/STCF
   PLINERESET      2503-EQU     2542/B       2890/B
   PLINERESTART    2442-EQU     2529/B
   PLV1            2473/STW     2482/STB     2487-DATA    2500/STB     2510/BCR     2525/CB      2541/STB
      2545/STB     2767/STB     2773/CB      2879/STB     2922/BE
   PLV2            2474/STW     2799-RES     2815/STB     2816/LB
   PLV3            2475/STW     2765/STB     2770-DATA
   PLV4            2476/STW     2522/STB     2644/STB     2650-DATA    2838/LW      2860/LB
   POWER%IN        4855/B       4986-EQU
   POWER%ON        4792/BCR     4831-EQU
   PRINT            453-CNAME   3778/BAL     3808-EQU
   PRINTER          453/CNAME    942/DATA    1696/LW      1882/BAL     2251/BAL     3681/STW     3698-EQU
      3700/STW     3875/LW*     3897/CW*     3945/LW      4492/LW
   PRINT2          3814-LI      3837/BCS
   PROEXIT         2135/STW     2171/B*      2179-DATA    2383/LW      2398/AW      2528/LW*     3304/LW
   PROG%MSG%        778/STW     1106/LW      1133/LW      1182-DATA
   PROGMSG          841-EQU     1122/TYPE    5432/DATA
   PROGMSG1         809/STW      810/STW      844-TEXTCS
   PROGMSG2         846-TEXTCS  1117/STW     1119/STW
   PROMPT          2177-DATA
   PRT%MANUAL      3727-TEXTCS  3739/LI      3740/LB
   PRT%OUT         3803-GEN     3812/STW     3814/LI
   PRT%RECOG       3713/BCR     3734-EQU
   PRT@TYP         3691/B       3707/BCR     3710/BCS     3722/B       3737/BCS     3746-EQU
   PRTBUSY         3819-EQU     3831/BCS
   PRTEXIT         3825/B       3833/BCS     3839-EQU
   PSD%LOOP        1150-EQU     1179/BIR
   QUEST%          1778-EQU     1804/EQU
   QUEST%LOAD      1587/B       1606-TYPE
   QUESTC          1762/LI      1804-EQU
   QUESTE          1739/LW      1764/STW     1803-EQU     1804/EQU
   QUESTEXIT     1869.1/BEZ     1876/B       1905-EQU
   QUESTEXT        1723/LB      1724/CB      1806/LPSD    1807/LPSD    1808/LPSD    1809/LPSD    1810/LPSD
      1811/LPSD    1815-TEXTCS
   QUESTION        1738/BE      1817/DATA    1854-EQU
   R%EXPL          4542-TEXTCS  4696/P
   READ%PARAM      2289/BCR     2296/BCR     2344-EQU     2370/B
   RECON%          1079/STW     4158/LW*     4237/LW*     4516-DATA
   REG%MSG          807/STW      808/STW     3023/TYPE    3027-TEXTCS  3223/TYPE
   REG%SAVE        4797/BCS     4887-LW
   REGISTERS@RUN    802/LI      1260-EQU     1374/DATA    1462/DATA    1464/STW     1657/DATA    3996/DATA
      3998/STW     4038/DATA    4499/STW     4502/STW     4745/DATA    4938/STW
   REGISTERS@RUN%  4745-DATA
   REM%BYTE%BIAS   1054/STW     3899/AW      3908-DATA
   REM%MSG         1087/STW     1126-EQU
   REM%OFF         1088/STW     1472/BAL*    4512-DATA
   REMOTE%BIAS     1050/STW     2131/AW      2181-DATA
   RESET%FLD       2526/BCS     2531-EQU
   RESET%MM        1715/BE      1846/B       1848-EQU
   RESET%MODE      1306/BAL     1337/BAL     1342/BAL     1528/BAL     1661/BAL     1741/BAL     1760-EQU
      2270/BAL     2338/BAL
   RESTINHB        3437/XPSD    5394-EQU     5399/LW      5402/LW      5405/STW     5406/LPSD
   RESTIT          5395/DATA    5399-LW
   RESTORE%REGS    1373/BAL     1389/STW     1401/BCR*    1414-EQU     1416/STW     1429/B*      3943/BAL
      4037/BAL     4218/BAL     4370/BAL
   RESTORE#PSW1    5278/STW     5282/STW     5289/LW      5291/LPSD    5310-DATA
   RESTORE#PSW2    5280/STW     5311-DATA
   RESTORER0       5276/STW     5290/LW*     5308-DATA
   RETURN          4512/DATA    4513/DATA    4519/DATA    4707-CI
   RM%HDR          1232-EQU     1234/EQU     3153/LI      3154/STB     3157/STB     3198/DATA    3252/STB
      3287/LB      3289/STB     3291/LB      3292/MTB     3294/STB     3301/LB
   RM%NOW          3128/BAL     3164-EQU     3166/STW     3187/LW      3270/BAL
   RM%NOW%         3131/LW      3168/STW     3171-EQU     3172/GEHTECON             3183/LW      3190/LW
      3192/STW     3193/B
   RM%OUT          1234-EQU     1236/EQU     3063/STB     3130/PRINT   3153/LI      3155/STB     3158/STB
      3176/MTB     3177/LB      3179/STB     3189/MTB     3198/DATA    3253/STB     3303/STB     3341/CB
   RM%TEXT         2427-EQU     3306/B
   RM%1            3212/BCR     3219-LW
   RM%10           3205/BCS     3325-EQU
   RM%11           3332-EQU     3350/BIR
   RM%12           3347-EQU     3369/B
   RM%13           3327/BCR     3353-EQU
   RM%14           3339/STW     3342/BCS     3364-EQU
   RM%2            3220/BCR     3225-EQU
   RM%3            3222/BCS     3230-EQU
   RM%4            3228/B       3234/B       3240-EQU
   RM%5            3249-EQU     3359/B
   RM%6            3255-EQU
   RM%7            3279-EQU     3300/BIR
   RM%8            3264/LB      3266/STW     3273/LW      3274/STW     3277/LW      3280/STW     3281/LW
      3299/LW      3310-EQU     3333/STW     3349/LW      3354/LW      3366/LW      3367/LW
   RM%9            1097/STW     3267/STW     3316-EQU     3328/LW      3330/STW     3335/LB      3336/LB
      3337/LW      3348/MTB
   RMENTRY         3201-EQU     4694/E
   RUNADDR          939/DATA    1261-EQU     1375/LPSD    1443/STW     1445/STW     4000/STW     4002/STW
      4494/STW     4496/STW     4960/LW      4962/STW     5303/STW
   S%EXIT          3405-B
   S%EXPL          3410-TEXTCS  4701/P
   S%MODE           952/DATA    1368/STW     1671/STB     1673/STB     1780-DATA    1859/LB      1961/LW
      1965/STW     1967/MTB     1970/LB      1975/STB     1983/CB      2010/LB      2016/CB      2062/LB
      2225/LW      2234/LB      2265/LB      2266/LB
   S%STATE         1911/BCR     1960-EQU
   S:INT            328/ERROR    331/ERROR    391/SET      400/SET      409/ERROR    412/ERROR    416/SET
       418/SET      427/DO
   S:PT               4/EQU      842/TEXTCS
   S:RAD            328/ERROR    409/ERROR    416/SET      438/DO       468/ERROR
   S:UFV            328/ERROR    409/ERROR    438/DO       468/ERROR   1101/CHECK   1215/CHECK
   SAMPLE          3990/DATA    3991-EQU
   SAMPLEQW         917/DATA    1319/XPSD    3988-EQU     3999/LW      4001/LW      4039/LPSD    4048/XPSD
   SAMPLE1         3993/BCS     4004-EQU
   SAMPLE2         4014/BNE     4019/BE      4035-EQU
   SAVE            1219-EQU     1221/EQU     3866/DATA    3944/DATA    4498/LW      4501/LW
   SAVE%ADDR       1392/STW     1393/STW*    1396/STW*    1399/STW*    1412-DATA    1419/STW     1421/LW*
      1427/LW*     1428/LW*
   SAVE%CC         3433/STCF    3439/LC      3443-DATA
   SAVE%REGS       1387-EQU     1461/BAL     1656/BAL     1708/BAL     3865/BAL     3995/BAL     4128/BAL
      4356/BAL     4747/DATA
   SAVE%REGS%      4747-DATA
   SAVEINHB        3422/XPSD    5392-EQU     5397/LPSD    5400/AND
   SAVEIT          5393/DATA    5397-LPSD
   SCANPARAM        951/DATA    2362/BAL     3635-EQU     3637/STW     3638/STW     3639/STW     3652/LW
      3653/LW      3654/LW
   SEARCH%END      2230/B       2259-EQU
   SEARCH%EXIT     2261/BNEZ    2270-BAL
   SEARCH%EXPL     1860/BNEZ    2218-EQU
   SEARCH%EXPL#1   2228-EQU     2257/B
   SEARCH%EXPL#2   2236/BNE     2240/BEZ     2246-EQU
   SEARCH%MODE     1727/B       1909-EQU
   SEARCH%NEXT     2014/BG      2017/BNE     2021-EQU
   SEARCH%TABLE    1976/BAL     2009-EQU     2025/B       2032/B       2082/BAL     2229/BAL
   SENSE            814/STCF    1108/LC      1120/LC      1123/LC      1131/LC      1695/STCF    1700-DATA
   SENSET%         1080/STW     4163/LW*     4517-DATA
   SET%MM          1717/BE      1844-EQU
   SET%RDM         3062/BAL     3152-EQU     3251/BAL
   SETHALT         1665/LI      4488-EQU
   SETHALT%        1492/STW     1666/STW     4457/BCS*    4724-DATA
   SETIDLE         1348-EQU     1985/B       2157/BNEZ    2195/B       2298/B       2335/B       2496/B
      2514/B       2658/B       2687/B       2884/BCR     2940/B
   SHIFT3          2151/BAL     2199-LI
   SIOCOC%         1081/STW     4141/BAL*    4236/BAL*    4518-DATA
   SIOTTY          4242/BAL     4296-EQU
   SPREAD%TO       2152/LW      2209-EQU
   SYNERR          1947-TEXTCS  1953/TYPE
   TAB             2588/B       2594/BCR     2598/B       2608/B       2638/B       2853-EQU
   TABLE3          1968/LI      2080/LI      2222/LI      4683/DATA    4686-EQU     5428/DATA
   TABLE3%P        1969/STW     1982/LB*     2011/LW*     2015/LB*     2022/LW      2024/STW     2031/STW
      2065/LB*     2079/LW      2081/STW     2094/LW*     2096/LW      2098/STW     2101/STW     2107/LW*
      2126/LW*     2137/LW*     2223/STW     2233/LW*     2254/LW      2256/STW     2386/LW*     4683-DATA
   TABLE3END     1091.1/STW     4703-GEN
   TABLE4          4718-ORG
   TEMPHALT        1491/LI      1693-EQU     4724/DATA
   TEXTCS           579-CNAME
   TEXTPLINE       2162/BCS     2379-EQU
   TINT             740-DATA     765/XPSD
   TIOCOC%         1082/STW     4196/BAL*    4211/BAL*    4519-DATA
   TIOTTY          4189/BAL     4205/BAL     4278-TIO     4332/B
   TIOTTY1         4281/BCR     4287-CI
   TIOTTY2         4294-LCF     4328/BCR
   TIOTTY3         4290/BNE     4297-EQU     4301/BE      4303/BE
   TIOTTY3A        4299/BCR     4306-LI
   TIOTTY4         4293/BCS     4315-LB
   TIOTTY5         4323/BCR     4326-AI
   TITLE              4-EQU       21/TITLE    842/TEXTCS
   TLINEIN         1230-EQU     1232/EQU     2448/STW     2465/STB     2471/STB     2511/STB     2512/TYPE
      2535/STB     2563/LB      2579/LB      2624/LB      2625/STB     2654/STB     2833/LB      2842/STB
      2850/STB     2871/LB      2878/LB      2934/STB     2939/TYPE
   TOPL            2491/BAL     2581/BAL     2601/BAL     2634/BAL     2808-EQU     2813/STW     2819/LW
      2836/BAL     2873/BAL
   TRANS%          1307/BAL     1361/BAL     1659/BAL     2965-EQU     2966/STW     2967/STW     2968/STW
      2977/LW      2993/LW      2994/LW      2995/LW
   TRANS#          1532/LW      2971/GEHTECON             2988/LW      2990/STW     3000-DATA
   TRANSBUFF       1745/STB     2975/STB     2981/STB     2987/PRINT   2991/TYPE    2998-TEXTC
   TRAP%ADDR       4882-DATA    5043/STW
   TRAPBUFF1       1141/LI      1228-EQU     1230/EQU     4928/LW      4934/CI      4937/LW
   TRAPBUFF2       1226-EQU     1228/EQU
   TRAPBUFF3       1224-EQU     1226/EQU
   TRAPLOCK        1504/STCF    4763-DATA    4795/CW      4796/STW     4843/STW     4908/STW
   TRAPLOCK#1      4931/BL      4935/BNE     4944/BG      4946/BCS     4947/BCR     4954/BE      4956/BE
      4959/BE      4964-BAL
   TRAPS:MSG       4998/STW     5001/STB     5008/STW     5010/STW     5018/LW      5033/STB     5060/STW
      5065/STW     5066/STW     5073/STW     5079/STW     5081/STB     5243/DATA    5326-EQU
   TRAPS#LOC       5050/B       5059-EQU
   TRAPS#PSW1      4845/STW     4976/STW     5003-EQU     5005/GEHTECON*
   TRAPS#PSW2      4847/STW     4979/STW     5012-EQU     5014/GEHTECON*
   TRAPSR1         4924/STW     4991-EQU     4993/GEHTECON
   TRAPSR2         4822-EQU     4989/STW     5029/GEHTECON             5035/LW
   TRAP40%         1148/LI      1193-DATA    1486/XPSD
   TRAP40%%        1164/LW      1167/STW     1169/LW      1172/LW      1175/STW     1177/LW      1189-EQU
   TSTPRT          3712-TIO     3743/BCS
   TTRAP            735-DATA     755/XPSD     761/XPSD
   TTYBC            927-EQU     4292/CB      4307/STB     4315/LB      4319/LB      4321/STB     4327/CB
   TTYBYTI         4057/GEN     4059-RES     4318/LB
   TTYBYTO         4060/GEN     4063-PZE     4447/STB     4461/STB
   TTYI            4057-GEN     4287/CI      4289/CI      4308/LI
   TTYO            4060-GEN     4282/CI      4284/CI      4300/CI      4302/CI      4423/CI      4425/CI
      4448/LI      4462/LI
   TTYOFF          4280/BCS     4331-BAL
   TTYOUT          2193/BAL     2817/BAL     4200/BAL     4213/BAL     4361/BAL     4364/BAL     4415-STW
      4469/B
   TTYOUTR         4415/STW     4465/B*      4466/LW      4471-DATA
   TTYOUT1         4420-TIO     4428/B       4450/B
   TTYOUT2         4422/BCR     4438-LC
   TTYOUT3         4439/BCS     4461-STB
   TTYOUT4         4442/BCR     4455-AI
   TTYOUT5         4426/BNE     4432-HIO
   TT40             725-DATA     753/XPSD
   TT46             730-DATA     758/XPSD
   TYPE             454-CNAME   3721/BAL     3782/BAL     3787-EQU
   TYPE%FAULT      4812/BAL     4815/BAL     5242/BAL     5245/BAL     5336-EQU
   TYPE%FAULT%RECOVERY          5339/BCS     5353/BCR     5365-EQU
   TYPE%TRAP%MSG              5090.1/BG    5090.3/BG      5183/BAL     5195/BCS     5221/BAL     5233-EQU
   TYPER            454/CNAME    941/DATA    3679-EQU
   USE%RUN         1338/B       1360-EQU     1688/BCR     1820/DATA    5304/B
   USE%RUN#1       1343/B       1365-LCI
   USER%PATCH      1114/LI      1255-EQU
   VALBIT           960-DATA    2710/LB      2714/LB
   VALCHAR         2305/BAL     2483/BAL     2647/BAL     2669/BAL     2703-EQU     2766/BAL     2795/BAL
   VALCOMP         2707/STW     2718/STW     2727/LW      2734-RES
   VALDEX           965-EQU     2711/LB      2715/LB
   VALTAB           947/DATA     973/GEN      974/GEN      975/GEN     4606-TEXT
   VALTYPE          971-EQU     2712/LW      2716/LW      2839/LW      3569/LW      3590/LW
   VCERROR         2705/STW     2725-RES
   VERSION          2.1-EQU        4/EQU
   X%DONE          2374-LI      2684/BCR
   X%MODE          1795-DATA    1912/LB      1914/LW      2111/STB     2121/LW      2156/LB      2375/STW
      2673/LW      2686/STW
   X%STATE         1915/B       2663-EQU
   Y%EXP           1606/TYPE    1612-TEXTCS
   Y%N%LOAD        1534/B       1583-TYPE    1589/B       1607/B
   Y%N%MSG         1583/TYPE    1609-TEXTCS
   YES%LOAD        1586/B       1598-LI
   YES%NO%QUESTION              1542-EQU     1584/BAL
   2SEC            4050-DATA    4147/MTB
   %PTYPE          1800-DATA    2211/DATA    2211/DATA    2211/DATA    2211/DATA    2302/LB      2354/LI
      2666/LB
   %SYNERR         1952-EQU     1977/B       2670/B
   %TYPE           1280-TEXTC
   %VTYPE          1798-DATA    2212/DATA    2472/LB
   #ARMUSER         936-DATA    1347/BAL*
   #BRKOUT          918-DATA    1366/STCF    1531/STB     1841/STCF    3742/LC      3820/LB      3824/STCF
      3843/LC      3905/STCF    3938/LC      3946/LC      4359/STCF    4376/STB
   #BTE%            933-DATA
   #BYTE%BIAS       801/STW      923-DATA    2451/AW      3902/AW
   #COCADDR         892-DATA    1046/STW     1062/STW     4131/TIO*    4140/HIO*    4233/HIO*    4234/TIO*
   #COCSTATE%       953-DATA
   #DECOMP@        1009-DATA    3752/BAL*
   #DIAG@          1004-DATA    1033/LC      4007/LC
   #DIOADDR         928-DATA    1073/STB
   #DISUSER%        934-DATA
   #DM%END          920-DATA    3009/STW     3017/STW     3037/LW      3057/STW     3077/LW      3089/CW
      3118/CW      3132/CW      3184/CW      3209/STW     3217/STW     3231/LW      3250/STW     3256/LW
      3355/CW
   #DM%START        919-DATA    3051/STW     3064/GEHTECON             3076/LW      3084/LW      3094/STW
      3095/GEHTECON             3105/LW      3117/LW      3126/LW      3137/STW     3147/STW     3244/STW
      3257/LW      3268/LW      3272/LW      3358/STW
   #DMENTRY%        948-DATA
   #ENUSER%         935-DATA
   #ERRTEXT%        943-DATA
   #ERR1PTR%        945-DATA
   #ETH%            931-DATA
   #FIDLE%          938-DATA
   #GUIDE%          937-DATA
   #GUIDEBUF%       950-DATA
   #HDRFLG          880-DATA    1529/STW     3793/STW     3841/STW
   #HTE%            932-DATA
   #INDEX           895-DATA    2675/STB
   #INITIAL@       1001-DATA    1651/BAL*
   #LOADADDR        823/STW      925-DATA
   #LOADER@         816/LW       824/AW      1005-DATA    1039/LW      1056/LW
   #LOADFLAG        888-DATA    1599/STW     1603/STW
   #MAXMEM       826.40/STW      916-DATA    1030/CW      3014/CW      3016/LW      3033/LW      3048/CW
      3050/LW      3052/CW      3054/LW      3214/CW      3216/LW      3227/LW      3241/CW      3243/LW
      3245/CW      3247/LW      5090/CW
   #MTLFLAG         826/STW      889-DATA
   #ONLINE@        1007-DATA    3867/LW      3869/BAL*    5368/LW      5370/BAL*
   #OUTBUF@        1006-DATA
   #OUTPTR          893-DATA    1770/STW     2104/STW     2425/STW     2527/LW      3207/STW
   #P%MODE%         949-DATA
   #PAKDEX          894-DATA    2412/LW      2676/LW      2681/STW
   #PARAM%H1        896-DATA    2350/STW     2367/STW     3019/LW      3219/LW
   #PARAM%H2        897-DATA    3011/LW      3211/LW
   #PARAM%H3        898-DATA
   #PARAM%H4        899-DATA
   #PARAM1          912-DATA    1767/STW     2318/LW      2319/LW      2325/LW      2333/STW     2334/STW
      2363/DATA    2372/DATA
   #PARAM2          913-DATA    2372/DATA
   #PARAM3          914-DATA    2372/DATA
   #PARAM4          915-DATA    2372/DATA
   #PLINEIN@       1003-DATA    1092/LW      2457/STB*    2462/STB*    2481/LB*     2534/LB*     2564/CB*
      2567/STB*    2762/CB*     2764/LB*     2791/CB*     2793/LB*     2854/CB*     2858/CB*     2883/CB*
      2906/STB*    2909/STB*    3340/LB*     3376/LB*     3382/LW      3401/LB*
   #PRINTER%        942-DATA
   #PRTADDR         838/STW      891-DATA    1522/HIO*    2970/LW      2983/CW      3706/CW      3712/TIO*
      3716/STW     3816/SIO*    3830/TIO*    3834/TDV*
   #RES%INT@       1011-DATA
   #RETURN%         940-DATA
   #RUNADDR%        939-DATA
   #S%MODE%         952-DATA
   #SAMPLE          917-DATA
   #SAVE%INT@      1010-DATA
   #SCANPARAM%      951-DATA
   #SENSE           813/STCF     879-DATA    1630/STB     3399/STB     4018/CW      4021/STW     4945/LC
      5116/LC      5235/LC      5294/LC
   #STATUS          911-DATA    2980/STB
   #TABLE1A         878-ORG
   #TABLE1B         930-ORG
   #TABLE2          992-ORG
   #TABLE3@         817/LW      1002-DATA
   #TESTINIT        900-DATA
   #TOADDR          837/STW      890-DATA    1521/HIO*    2982/LW      3705/LW      3715/LW      4278/TIO*
      4298/TIO*    4309/SIO*    4310/TIO*    4368/TIO*    4420/TIO*    4432/HIO*    4435/TIO*    4449/SIO*
      4463/SIO*
   #TRAPLINK        921-DATA    5296/LW      5300/LW
   #TTYBC           926-DATA     927/EQU
   #TYPER%          941-DATA
   #VALTAB%         947-DATA
   #WORD%BIAS       798/STW      924-DATA    2134/AW
