*
*
 TITLE 'CPV-CPR CHRONO/SORTED MODULE FOR ELLA. 708008-A00 6.26.74'
*
DISCBPROC SET     1
         SYSTEM   UTS
         CSECT
         DEF      CLIS:0
         DEF      SLIS:0
*
* PROCEDURES.
*
* THIS PROC WILL GENERATE A STRING OF BYTE FIELDS.
*
BS       CNAME
         PROC
         BOUND    4
LF       EQU      %
I        DO       NUM(AF)
         DATA,1   AF(I)
         FIN
         BOUND    4
         PEND
*
*
         PAGE
         REF      L:SPACE
         REF      L:PRINT,E:PRINT
         REF      TYPEF,:TYPE:,DEVF,:DEV:,MODF,:MOD:
         REF      HEXDEC:,HEXDECE,DECHEX:,HEXFIVE,BINEBC
         REF      HEXEBC,EBCHEX8,EBCHEX1,MS:HMSN,HMSN:MS,JD:MD,MD:JD
         REF      HEXTWO,BUFFER
         REF      CT:PRINT
         REF      MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG10
         REF      MSG11,MSG12,MSG13,MSG14,MSG15,MSG16,MSG17,MSG18,MSG19
         REF      MSG154,MSG1A,MSG1B
         REF      MSG13A,MSG13B,MSG19A,MSG19B
         REF      READ:ERF,R:COM,S:SYS
         REF      REW:FLAG
         REF      MSG2A,MSG2B,MSG3A,MSG3B,MSG4A,MSG4B
         REF      MSG5A,MSG5B,MSG6A,MSG6B,MSG7A,MSG7B
         REF      MSG8A,MSG8B,MSG9A,MSG9B,MSG10A,MSG10B
         REF      DSP:
         REF      HEXFOUR
         REF      EL:DCB
         REF      MOD:EBC
         REF      READFIL,TABPNTR
         REF      MDIO,IOMD
         REF      BRK:CHK
         REF      FLAG:PR
         PAGE
         REF      MSG11A,MSG11B,MSG12A,MSG12B
*
* CLIS DATA AREA
*
* TYPE 15
AIOS     DATA     0
MFI      DATA     0
AIOC     DATA     0
TDVC     DATA     0
TIOC     DATA     0
SUBCHSTA DATA     0
TDVCCDA  DATA     0
TDVS     DATA     0
BYTREM   DATA     0
CURCOMDW DATA     0
         DATA     0
TIOS     DATA     0
RETREQ   DATA     0
RETREM   DATA     0
VSN      DATA     0
ORGFCDE  DATA     0
CURFCDE  DATA     0
* TYPE 21
MODEL    DATA     0
DCTINDX  DATA     0
ALTIOADD DATA     0
PRIIOADD DATA     0
*
YEAR     DATA     0
JULIAN   DATA     0
*
*
CODETBL  DATA     X'11121315',X'17181921',X'22232730',X'31324142'
         DATA     X'4344161D'
RTBL     DATA     RT11,RT12,RT13,RT15,RT17,RT18,RT19,RT21
         DATA     RT22,RT23,RT27,RT30,RT31,RT32,RT41,RT42
         DATA     RT43,RT44,RT16,RT1D
CODTBLX  DATA     X'101A1B1E',X'1F202434',X'35363738',X'39505152'
         DATA     X'53282649'
RTBLX    DATA     RT10,RT1A,RT1B,RT1E,RT1F,RT20
         DATA     RT24,RT34,RT35,RT36,RT37,RT38,RT39,RT50
         DATA     RT51,RT52,RT53,RT28
         DATA     RT26,RT49
FFFFXX   DATA     X'FFFF0000'
M3       DATA     X'7'
M4       DATA     X'F'
M6       DATA     X'3F'
XXXXXXFF DATA     X'000000FF'
XX7FFFFF DATA     X'007FFFFF'
XXXXFFFF DATA     X'0000FFFF'
SAVE     RES      10
X7AX     DATA     X'7A000000'
X40X     DATA     X'40404040'
TITL23   TEXT     '*** TIME STAMP ***  DATE=  /  /   ',;
                  ' TIME=  :  :  :   '
CLTITL   TEXT     'C H R O N O L O G I C A L  L I S T I N G'
UNDERL   TEXT     '- - - - - - - - - - - - -  - - - - - - -'
CLISF    DATA     0
N8       DATA     8
SEQFLG   DATA     0
MODCN    DATA     0            MODEL COUNT
MODCH    DATA     0            MODLE
DEVCN    DATA     0
DEVCH    DATA     0            DEVICE COUNT AND LOCATION
TYPECN   DATA     0            TYPE COUNT.....
*
*
*        THIS SUBROUTINE WILL FETCH THE MODEL FROM BUFFER
*        AND PLACE THE EBCDIC REPRESENTATION INTO THE
*        OUTPUT BUFFER (MSG2) TO BE PRINTED BY CT:PRINT.
*        ALL REGISTERS ARE SAVED.
*
MOD:IN   EQU      %
         LCI      3            SAVE THE REGISTERS. 13-15
         STM,13   MODSVE
         LW,14    BUFFER       FETCH THE BUFFER CONTENTS.
         AND,14   XXXXFFFF     AND THE MODEL IN:.......
         BAL,15    MOD:EBC
         XW,14    15           XCHANGE THE CONTENTS AROUND.
         SLD,14   -8
         LI,13    4
         STB,13   14           STORE THE BYTE COUNT.
         STW,14   MSG2         SAVE INTO THE OUTPUT BUFFER.
         STW,15   MSG2,1
         LCI      3            RESTORE REGISTERS.
         LM,13    MODSVE
         B        *15
MODSVE   RES      3
*
*
*
         PAGE
         SPACE    5
SLIS:0   EQU      %
         LI,14    26
         BAL,15   L:PRINT
         DATA     SLTITL            PRINT TITLE, SORTED LISTING
         BAL,15   L:PRINT
         DATA     SUNDER
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   DSP:
         STW,1    REW:FLAG
         STW,0    CLISF        SET CLISF
         BAL,15   READ:ERF     SET UP SORT TABLE.........
         STW,0    SEQFLG
*
         LW,12    BRK:CHK
         BNEZ     S:END
         STW,0    FLAG:PR
*
*
*  SORT CONTROL..
*  ERROR FILE SHOULD BE CLOSED BY THIS TIME...
*
*
S:A      EQU      %
         STW,0    NEWFL        RESET A FLAG......(UNNASSOCIATED FLAG)
         STW,0    MODCH        CLEAR ALL LOCATION TO INTIALIZATION.
         STW,0    MODCN
         STW,0    DEVCH
         STW,0    DEVCN
         STW,0    TYPECN
         STW,0    F:T               CLEAR OUT FLAGS.
         STW,0    CUNA         RESET TYPE DEF. FLAG.......(NEW)
         STW,0    F:M
         STW,0    F:D
         STW,0    XFLAG15
         STW,0    UNASSFLG     RESET THE UNNASSOCAITEED FLAG....
         STW,0    MODP         CLEAR MODP AN DEVP
         STW,0    DEVP
S:TBA    MTW,0    MODF         ANY MODEL ASKEDD FOR....
         BNEZ     S:A11        B: IF YESS......
         MTW,0    DEVF         ANY DEVICE ADDRESS ASKED FOR.
         BNEZ     S:B11        B: IF YES.........
         MTW,0    TYPEF        ANY TYPE CODE ASKED FOR.
         BEZ      S:C          B: IF NONE.......(DEFAULT CASE)
         STW,1    CUNA         SET THE CUNA FLAG....(TYPE ONLY ASKED FOR)
         B        S:C          BRANCH TO DEFAULT PATH.....(TYPE ONLY)
*
*
*
S:A11    STW,1    MODCN        SET INITIALIZE IN INDE COUNT(MODEL)
S:B2     LW,5     MODCN        FETCH THE MODEL
         LW,12    MODF,5
         STW,12   MODCH
*
*
*
         MTW,0    DEVF         ANY DEVICE ADDRESS ASKED FOR.
         BEZ      S:B3
S:B11    STW,1    DEVCN        INITIALIZE DEVICE COUNT.
S:B4     LW,5     DEVCN        FETCH THE DEVICE ADDRESS.
         LW,12    DEVF,5
         STW,12   DEVCH
*
*        MODEL AND/OR DEVICE ADDRESS FETCHED. GO ON.....
*
S:B3     EQU      %
         MTW,0    MDIO         ANY MODEL/ADDRESS IN TABLE.
         BEZ      S:END        IF ZERO EXIT.(WHY GO ON IF NONE EXIST)
         LI,4     1            INITIALIZE REGISTER 4 FOR TALBE INDEX.
S:C3A    LW,15    MDIO,4       FETCH THE MODEL
         LW,14    IOMD,4       FETCH THE IO ADDRESS.
         MTW,0    MODF         CHECK MODEL ASKED FOR.
         BEZ      S:C1A        BRANCH IF ZERO
         CW,15    MODCH        COMPARE TO MODEL ASKED FOR.
         BNE      S:C2A        NO MATCH FETCH NEXT MD/IO FROM TABLE
         MTW,0    DEVF         MODEL MATCHED/ OR NONE CHECK DEVICE
         BEZ      S:C4A        BRANCH TO PROCESS IF NONE..........
S:C1A    CW,14    DEVCH        DEVICE MATCH???
         BE       S:C4A        BRANCH IF YES.........
*
*        NO MATCH FOUND...LOOP UNTIL EXHAUSTED TABLE.....OR FOUND
*
S:C2A    AI,4     1            INCREMENT INDEX TABLE COUNTER..4
         CW,4     MDIO         LOOP UNTIL ALL
         BLE      S:C3A        BRANCH IF LESS OR EQUAL.....
         B        OVER         END ..BRANCH TO GET NEW MODEL/IO
*
*        MODEL AND/OR IO FOUND....SEARCH ACCORDINGLY TO TYPE.....
*
S:C4A    STW,15   MODP         INSERT INTO MODEL PARAMETER.
         STW,14   DEVP         INSERT INTO DEVICE PARAMETER
         STW,1    F:D
         STW,1    F:M
         STW,0    XFLAG15      RESET X FLAG15
**
*        TYPE LOOP...ALLL TYPES TO BE GIVEN UNLESS TYPE IS ASKED FOR.
**
         STW,0    TYPECN       INITIALIZE TYPE INDEX.
S:AH     BAL,15   TYPEGET      GET NEW TYPE....(TYPEP,TYPES)
         B        OVER1        OVER WITH THE TYPE
         MTW,0    TYPEF        ANY TYPE ASKED FOR..
         BEZ      S:EGG        BRANCH IF NONE...GIVE ALL TYPES.
         BAL,15   SECCHK       SECONDARIES.....
         BAL,15   SAM          FILTER OUT SECONDARY.
         B        S:AH         NO: BRANCH GET NEW TYPE
*
*        SEARCH.....
*
         BAL,15   XSAM         SET THE SECONDARY FOLLOW FLAG......
S:EGG    BAL,15   SEARCH       .............................
         B        S:AH         GET NEXT TYPE......
*
*
*
OVER1    STW,0    F:FLAG       RESET THE F:FLAG.
         MTW,0    TYPEF        ANY TYPES ASKED FOR.....
         BEZ      OVER2        B: IF NO. GET ALL UNNASSIGNED SECOND..
         LW,5     TYPEF        FETCH THE COUNTER.
         LW,12    TYPEF,5      FETCH ASKED FOR TYPE.....
         CI,12    X'16'        DEVICE SECONDARY ASKED FOR....
         BE       %+3          YES.. GIVE IT TO HIM
         BDR,5    %-3          LOOP................
         B        S:C2A        NO......NO DDEVICE SECONDARY.
OVER2    LI,12    X'16'
         STW,12   TYPES        INSERT INTO TYPES.
         STW,0    TYPEP        INSERT INTO PRMARY
         STW,1    UNASSFLG     SET UNASSFLG.....
         BAL,15   SEARCH       ********SEARCH............
         STW,0    UNASSFLG     RESET UNASSFLG.
         B        S:C2A        AGAIN...........
*
*
*
OVER     MTW,0    DEVF         ANY MORE DEVICE ADDRESS.
         BEZ      S:B6         B: IF NO
         MTW,1    DEVCN        INCREMENT COUNTER.
         LW,12    DEVCN
         CW,12    DEVF         ALL DONE........
         BLE      S:B4         B: IF NO
S:B6     MTW,0    MODF         ANY MORE MODEL.....
         BEZ      S:END        END IT ALL THEN.
         MTW,1    MODCN        INCREMENT MODEL COUNTER
         LW,12    MODCN
         CW,12    MODF
         BLE      S:B2         LOOP
         B        S:END        END..................
*
*
*
*DEFAULT .............................
*
*
*
S:C      EQU      %
         STW,0    F:M          RSET FLAG FOR MOD.
         STW,0    F:D          RESET DEVICE FLAG.
         STW,0    MODP
         STW,0    DEVP
         STW,0    XFLAG15
         STW,0    F:FLAG       RESET THE F:FLAG....
         STW,0    F:FLAG1
         STW,0    UNASSFLG     RESET THE UNASSOCIATED FLAG.
         LI,4     0
S:C1     LB,12    SYSTYP,4
         STW,12   TYPEP
         LB,12    SYSTYS,4
         STW,12   TYPES
         STW,1    F:T
         LW,15    CUNA         CUNA FLAG SET.....
         BEZ      SSA          B: IF NOT SET.....
         BAL,15   SECCHK       DDETERMINE IF SECONDARY OR NOT...
SEXD     BAL,15   SAM          LOOK FOR THE FILTER.....
         B        SSE          NO SEARCH.........
SSA      EQU      %
         BAL,15   XSAM         FILTER THE SECONDARY FOLLOWING...
         BAL,15   SEARCH            SEARCH THE RECORD
         LW,12    BRK:CHK
         BNEZ     S:END
SSE      EQU      %
         AI,4     1
         CW,4     SYSPC
         BL       S:C1
         LW,4     MDIO
         BEZ      S:END
         LI,4     1
S:C2     LW,12    MDIO,4
         STW,12   MODP
         STW,1    F:M
         LW,12    IOMD,4
         STW,12   DEVP
         STW,1    F:D
         STW,0    XFLAG15
         LI,5     0
S:C3     LB,12    TYPEPL,5
         STW,12   TYPEP
         LB,12    TYPESL,5
         STW,12   TYPES
         LW,15    CUNA         CUNA FLAG SET....
         BEZ      SSB          B: IF NOT SET.....
         BAL,15   SAM          LOOK FOR FILTER.....
         B        SSF          NO SEARCH......
SSB      EQU      %
         BAL,15   XSAM         FILTER THE SECONDARY FOLLOWING .....
         BAL,15   SEARCH            SEARCH A RECORD
         LW,12    BRK:CHK
         BNEZ     S:END
SSF      EQU      %
         AI,5     1
         CW,5     DEPRIM
         BL       S:C3
         AI,4     1
         CW,4     MDIO
         BLE      S:C2
         STW,1    UNASSFLG     SET UNASSOCIATED FLAG.
         STW,0    MODP         RESET MODEL,DEVICE PARAMETERS.
         STW,0    DEVP
         STW,0    F:M          RESET FLAGS.
         STW,0    F:D
         STW,0    TYPEP        RESET THE PRIMARY TYPE PARAMETER
         STW,1    F:T          SET TYPE FLAG.
         STW,1    NEWFL        SET THE UNNASSOCIATED FLAG IN DEFAULT
         LI,4     0            RSET THE COUNTER INDEX
S:C5     LB,12    SECTAB,4     FETCH THE SECONDARIES.
         STW,12   TYPES        SET THE SECONDARIES.............
         LW,15    CUNA         CUNA FLAG SET.....
         BEZ      SSX          B: IF ZERO...
         BAL,15   SAM2         LOOK FOR FILTER ......
         B        SSY          NO SEARCH.........
SSX      EQU      %
         STW,0    F:FLAG       RESET THE F:FLAG.
         BAL,15   SEARCH       SEARCH.
         LW,12    BRK:CHK      TERMINATION FLAG.
         BNEZ     S:END        BRANCH IF YES.
SSY      EQU      %
         AI,4     1            BUMP COUNTER
         CW,4     SECND        DONE...............
         BLE      S:C5         B: IF NOT DONE........
S:END    EQU      %
         LW,12    *EL:DCB
         AND,12   X200
         BEZ      %+2
         CAL1,1   CLO:
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         B        R:COM
CLO:     GEN,1,7,7,17  1,X'15',0,EL:DCB
*
X200     DATA     X'00200000'
*
*
NEWFL    DATA     0            FLAG FOR UNNASOCAITED DEFAULT PATH.
CUNA     DATA     0
SNAT     DATA     0
*
*
* SUBROUTINE FOR THE FILTER OF TYPES IN SLIS........
*
*
SAM      MTW,0    SNAT         CHECK FOR ZERO.....
         BEZ      SAM2         ZERO... BRANCH TO SAM2 ()
         LW,6     TYPEF        FETCH COUNT....
MAST     LW,12    TYPEF,6      FETCH TYPE SELECTED...
         CW,12    TYPEP        COMPARE TO PRIMARY....
         BE       SAM1         EQUAL .....YES     BRANCH
         BDR,6    MAST         LOOP.....
         B        SSEM         CONTINUE...
SAM1     MTW,0    TYPES        ANY SECONDARIES.....(1ST TIME)
         BEZ      SSAM         YES.....GO AHEAD.
SAM2     LW,7     TYPEF        FETCH COUNT...
MAST1    LW,12    TYPEF,7      FETCH TYPES SELECTED...
         CW,12    TYPES        ANY OF THE SECONDAIES..
         BE       SSAM         YES.....GO AHEAD/
         BDR,7    MAST1        LOOP
SSEM     B        *15          RETURN WITHOUT ANY INCREMENT.
SSAM     AI,15    1
         B        *15          RETURN WITH INCREMENT...
*
*
*
*
*
*
*  SUBROUTINE TO SET FLAG TO SUPPLY 1 SPACE IF SECONDARY IS CONNECTED
*  TO SUPPLY NO FLAG IF SECONDARY IS NOT CONNECTED
*
*
XSAM     EQU      %
         STW,15   XSA          SAVE 15
         STW,0    F:FLAG       RESET F:FLAG
         LW,15    TYPEP        FETCH TH TYPE PRIMARY...
         CW,15    F:FLAG1      COMPARE TO PREVIOUS PRMARY.
         BNE      %+2
         STW,1    F:FLAG       SECONDARY FOLLOWS....SET F:FLAG.
         STW,15   F:FLAG1      INSERT INTO F:FLAG1 SO NEXT COMPARE
         B        *XSA         RETURN...
*
*
XSA      DATA     0
F:FLAG   DATA     0
F:FLAG1  DATA     0
*
*
*
*
*
*
*        GET TYPE FROM THE DEVICE TYPE TABLE...........
*
*
TYPEGET  STW,7    TPRET+1      SAVE REG. 7
         STW,15   TPRET        SAVE 15
         LW,7     TYPECN       FETCH COUNT....
         CW,7     DEPRIM       ALL TYPES IN.......
         BG       TYPEGX       EXIT.......YES........
         LB,15    TYPEPL,7
         STW,15   TYPEP
         LB,15    TYPESL,7
         STW,15   TYPES
         STW,1    F:T          SET FLAG
         MTW,1    TPRET        INCREMENT REETURN ADDRESS.
         MTW,1    TYPECN       INCREMENT TYPE COUNT.......
TYPX     LW,7     TPRET+1      RESTORE 7
         B        *TPRET
TYPEGX   STW,0    TYPECN       RESET TYPE COUNT
         B        TYPX
TPRET    DATA     0,0
*
*
*
*
*
*        SET SNAT IF SECONDARY SUBROUTINE.....
*
*
*
SECCHK   STW,6    SECCA+1      SAVE REG. 6,7
         STW,7    SECCA+2
         STW,15   SECCA        SAVE RREG. 15
         STW,0    SNAT         RESET SNAT.....
         LW,6     TYPEF        FETCH COUNT
SECCH2   LW,15    TYPEF,6      FETCH TYPE
         LW,7     SECND        FETCHMTHE SECONDARY TABLE COUNT.
SECCH3   AI,7     -1           DECREMENT ONE......
         CB,15    SECTAB,7
         BE       SECCH1       B: IF ONE SECONDARY AT LEAST.
         CI,7     0            ALL DONE
         BNEZ     SECCH3       LOOP
         STW,1    SNAT         NO SECONDARY.........
         B        SECCH4       EXIT..........................
SECCH1   BDR,6    SECCH2       GET ALL TYPES ASKED.....
SECCH4   LW,6     SECCA+1      RESTORE REG. 6,7
         LW,7     SECCA+2
         B        *SECCA       RETURN
SECCA    DATA     0,0,0
*
*
*
         PAGE
*
*
*  TABLES OF TYPES AND DEVICE AND MODEL DEFAULT CASES....
**
*
*
*
SYSPC    DATA     64           NUMBER OF SYSTEM CHECKS......
SYSTYP   BS       34,34,33,33,65,65,16,16,23,23,23,23,23,23,;
    24,24,25,25,26,26,27,27,29,29,29,30,30,32,32,35,35,;
    36,36,39,39,40,40,48,48,48,49,49,49,49,49,52,52,53,53,54,;
    54,55,55,56,56,57,57,80,80,83,83,X'FF'
SYSTYS   BS       0,31,0,31,0,31,0,31,0,31,50,66,67,68,0,31,;
     0,31,0,31,0,31,0,31,50,0,31,0,31,0,31,0,31,0,31,0,31,;
    0,31,50,0,31,66,67,68,0,31,0,31,0,31,0,31,0,31,0,31,0,31,;
    0,31,0
DEPRIM   DATA     16
TYPEPL   BS       17,17,18,18,19,19,21,21,21,21,21,21,81,81,;
      82,82
TYPESL   BS       0,31,0,31,0,31,0,22,31,66,67,68,0,31,0,31
SECND    DATA     6
SECTAB   BS       31,50,66,67,68,22
CLIS:0   EQU      %
         STW,1    CLISF             SET CLIS FLAG
         STW,0    F:FLAG       RESET THE F:FLAG/////.
*
         LI,14    40
         BAL,15   L:PRINT           PRINT CLIS TITLE
         DATA     CLTITL
         BAL,15   L:PRINT
         DATA     UNDERL
         STW,0    SEQFLG            CLEAR SEQFLG
         STW,1    REW:FLAG          SET REWIND FLAG
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   DSP:
*
RETURN   EQU      %
         LI,4     0
         LW,13    X40X
         STW,13   MSG154            STORE SPACES TO MSG154
         STW,13   MSG154,1
LPX      CI,4     54
         BE       RETN:0
         STW,13   MSG2,4
         AI,4     1
         B        LPX
RETN:0   EQU      %
         BAL,15   READ:ERF          READ A RECORD
         CI,15    1
         BNE      REND              EOD/EOF
CLIS:1   EQU      %
         LI,4     0                 INTITIALIZE X4
         LW,13    RTBL,4
         STW,13   ADTL
         LB,10    BUFFER            LOAD TYPE CODE TO R10
LCLIS    EQU      %
         CI,4     20                IS THIS THE LAST ERROR TYPE
         BGE      CKCPV
         CB,10    CODETBL,4         CK ERROR TYPE CODE
         BE       *ADTL             TO EACH ROUTINE
         AI,4     1
         LW,13    RTBL,4
         STW,13   ADTL
         B        LCLIS
*
CKCPV    EQU      %
         LB,14    S:SYS
         SLS,15   8
         BEZ      RTX          CP-R SYSTEM (UNKNOWN RECORD)
         LI,4     0                 CP-V, CK FOR MORE TYPES
         LW,13    RTBLX,4
         STW,13   ADTL
         LB,10    BUFFER            STORE TYPE
LCLISX   EQU      %
         CI,4     20                IS THIS THE LAST TYPE
         BE       RTX               UNKNOWN TYPE
         CB,10    CODTBLX,4
         BE       *ADTL             TO EACH CP-V ROUTINE
         AI,4     1
         LW,13    RTBLX,4
         STW,13   ADTL
         B        LCLISX            LOOP FOR ALL CPV CODES
*
*
REND     STW,0    SEQFLG            CLEAR SEQFLG
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         B        R:COM
*
ADTL     DATA     0
*
RTX      EQU      %
         LI,4     4            FETCH ARS COUNT.
         LW,15    *EL:DCB,4
         SLS,15   -19          SHIFT LEFT 17 BITS/ AND DIVIDE BY 4
         STW,15   ARSX         STORE TO BYTE COUNT SAVE LOC.
         STW,0    PASSFL       RESET PASS FLAG.
         STW,0    PISSFL       RESET TERMINATION FLAG.
         LI,5     TX:1         FETCH ADDRESS
         STW,5    RTX:2+3
         LI,5     X'FF'
         STB,5    TX:1+3
         LB,5     BUFFER       FETCH THE TYPE CODE.......
         CW,5     SEQFLG       THIS THE SAME ONE AS BEFORE...
         BNE      %+5          B: NOT EQUAL
         STB,1    TX:1+3
         LI,5     TX:1+3
         STW,5    RTX:2+3
         B        %+4
         LI,5     3            SET THE SPACE COUNT
         BAL,15   L:SPACE      SPACE.
         BDR,5    %-1          DO UNTIL DONE.
         LB,14    BUFFER       FETCH TYPE CODE.
         BAL,15   HEXEBC       CONVERT
         SLS,15   8            SHIFT LEFT 8 BITS.
         STB,2    15
         STW,15   MSG2         STORE TO  MSG2
         LI,6     0            CLEAR INDEX 6
RTX:4    LI,4     0            CLEAR INDEX 4
         LI,15    MSG5         FETCH STARTING ADDRESS. MSG5
         STH,15   N1,1              STORE TO START LOC
         STH,15   N2,1
RTX:1    CW,6     ARSX         ALL WORDS IN.
         BGE      RTX:5        BRANCH IF YES.
         CI,4     5            INCREMENT  OF 5 ALL IN.
         BGE      RTX:2        BRANCH IF YES.
         LW,14    BUFFER,6     FETCH THE WORDS.
         BAL,15   HEXEBC       CONVERT TO EBCDIC.
         LI,5     8            SET INDEX OF 8 BYTES COUNT.
N1       STB,5    MSG5              SET BYTE CNT
N2       STB,15   MSG5,5            STORE BYTES
         SLD,14   -8           SHIFT DOUBLE RIGHT 8 BITS.
         BDR,5    N2                BR UNTIL ALL IN
         AI,4     1            INCREMENT INDEX 4
         AI,6     1            INCREMENT INDEX 6
         MTW,3    N1                CHANGE INPUT LOC
         MTW,3    N2
         B        RTX:1        BRANCH TO DO OTHERS.
*
*
*
RTX:2    LW,15    PASSFL       BEEN THRU BEFORE...?
         BNEZ     RTX:3        BRANCH IF YES.
         BAL,15   CT:PRINT     PRINT.
         DATA     TX:1         PRINT HEADER AND ALL.
         B        RTX:9
*
*
*
RTX:3    BAL,15   CT:PRINT
         DATA     TX:2         PRINT ONLY INFORMATION.
RTX:9    MTW,0    PISSFL       TERMINATION ALREADY.
         BNEZ     RTX:10       BRANCH IF TERMINATION.
         MTW,1    PASSFL       SET PASS FLAG.
         B        RTX:4        GO ANOTHER ROUND.
*
*
*
RTX:5    AI,4     -1           TERMNATION. ADJUST FF CHARACTER.
         SLS,4    1            SHIFT LEFT 1
         LB,15    TX:1+4,4     FETCH AND KEEP
         STB,15   MSG10
         LB,15    TX:2+1,4
         STB,15   MSG10,1
         LI,15    X'FF'
         STB,15   TX:1+4,4     ENTERED TERMINATION BYTE IN
         STB,15   TX:2+1,4
         MTW,1    PISSFL       SET TERMNATION FLAG.
         B        RTX:2        BRANCH TO PRINT.v|
*
*
*
RTX:10   LB,15    MSG10
         STB,15   TX:1+4,4     RESTORE THE BYTE KEPT.
         LB,15    MSG10,1
         STB,15   TX:2+1,4
         LB,14    BUFFER
         STW,14   SEQFLG
         LW,13    CLISF
         BEZ      SRTRN             SORT RETURN
         B        RETURN       TERMNATION . RETTURN TO RETURN.
*
*
*
PASSFL   DATA     0
PISSFL   DATA     0
ARSX     DATA     0            WORD COUNT.
TX:1     BS       2,21,1,152,1,79,1,153,1,2,;
                  1,21,X'FF',149,6,5,1,6,1,7,1,8,1,9,X'FF'
TX:2     BS       1,20,13,5,1,6,1,7,1,8,1,9,X'FF'
         PAGE
*
*
STMSG4   EQU      %
         LCI      3
         STM,4    SAVE4+1           SAVE R4-6
         STW,15   SAVE4             SAVE RETURN ADRS
         LW,6     *SAVE4            LOAD MSG ADRS
         LI,4     4
L4       CI,4     0                 CK FOR LAST BYTE
         BE       L5
FXMSG    STB,5    *6,4
         SLS,5    -8
         AI,4     -1
         B        L4
L5       EQU      %
         LCI      3
         LM,4     SAVE4+1
         MTW,1    SAVE4             FIX RETURN ADRS
         B        *SAVE4            BRANCH BACK TO MAIN PROG.
*
*
SAVE4    RES      5
*
STMSG6   EQU      %
         LI,5     6
         STB,5    14
         LW,5     *4                GET MSG ADR
         LCI      2
         STM,14   *5
         B        *4,1
**
TIME     EQU      %
         LCI      6
         STM,10   TSAV+1
         LW,14    BUFFER,1          LOAD RELATIVE TIME
         BAL,15   MS:HMSN
         LW,11    13                SAVE R13 TO R11
         LI,13    0
         XW,14    15
         LW,10    15                SAVE R15 TO R10
         BAL,15   HEXFIVE
         DATA     MSG1B             M.SEC.
         LB,13    X7AX
         STB,13   MSG1B,1           FIX " : "
         LI,13    3
         LW,14    10
         BAL,15   HEXTWO
         DATA     MSG1A             SEC.
         LW,14    11                LOAD MIN.
         LI,13    0
         BAL,15   HEXTWO
         DATA     MSG1A
         LI,13    1
         LW,14    12
         BAL,15   HEXTWO
         DATA     MSG1              HR.
         LI,10    12                BYTE CNT
         STB,10   MSG1              SET UP BYTE CNT
         LW,4     TSAV
         LCI      5
         LM,10    TSAV+1
         B        *TSAV+6           RETURN TO MAIN PROG
*
*
TSAV     RES      10
*
STMSG8   EQU      %
         LCI      4
         STM,4    SAVE8+1
         STW,15   SAVE8             SAVE RETURN ADRS
         LW,7     *SAVE8
         LI,6     8
L8       CI,6     0
         BE       L9
FXMSGX   STB,5    *7,6
         SLD,4    -8
         AI,6     -1
         B        L8
L9       LCI      4
         LM,4     SAVE8+1
         MTW,1    SAVE8
         B        *SAVE8
SAVE8    RES      6
*
*
*
*******************
*
SLTITL   TEXT     'S O R T E D  L I S T I N G'
SUNDER   TEXT     '- - - - - -  - - - - - - -'
MDTITL   TEXT     '>>> MODEL NO:     I/O ADDRESS:     <<<'
FSTFLG   DATA     0
*
UNASSEC  TEXT     '>>>UNASSOCIATED SECONDARIES<<<'
*
* THE SLIS OUTPUT SUBROUTINE:
*
*
SLISIN   EQU      %
         LCI      0
         STM,0    SAVSLIS
         LW,13    BRK:CHK      CHECK BREAK FLAG
         BNEZ     SRTRN        EXIT IF SET.............
SLIS:N1  EQU      %
         STW,0    CLISF             CLEAR CLISF
*
         LI,4     0
         LW,13    X40X
         STW,13   MSG154            STORE SPACES
         STW,13   MSG154,1
LPXX     CI,4     54
         BE       RTN:0
         STW,13   MSG2,4
         AI,4     1
         B        LPXX
RTN:0    LI,4     0
         LW,13    RTBL,4
         STW,13   ADTL
         LB,10    BUFFER
LSLIS    EQU      %
         CI,4     20
         BGE      CKCPVS
         CB,10    CODETBL,4
         BE       *ADTL
         AI,4     1
         LW,13    RTBL,4
         STW,13   ADTL
         B        LSLIS
*
CKCPVS   EQU      %
         LB,14    S:SYS             CK SYSTEM
         BEZ      RTX               TO UNKNOWN ROUTINE
         LI,4     0
         LW,13    RTBLX,4
         STW,13   ADTL
         LB,10    BUFFER
LSLISX   EQU      %
         CI,4     18                CK THE LAST TYPE OF CP-V
         BE       RTX
         CB,10    CODTBLX,4
         BE       *ADTL
         AI,4     1
         LW,13    RTBLX,4
         STW,13   ADTL
         B        LSLISX
*
*
SRTRN    EQU      %
         LCI      0
         LM,0     SAVSLIS           RESTORE ALL REGS.
         B        *SAVSLIS+15
*
*
SAVSLIS  RES      16
*
*
*
* THIS SUBROUTINE FIX MODEL NO. AND I/O ADRS.  THEN PRINTS
* OUT THE MODEL NO. AND I/O ADRS. FORMAT.
*
*
*
FXMDIO   EQU      %
         STW,4    SAVMDL
         LCI      2
         STM,14   SAVMDL+1
         LW,14    F:M          MODEL FLAG ...........
         BNEZ     LMOD:0       B: IF SET
         LW,15    XMSGX        FETCH ASTERISK IF NOT SET.....
         B        LMOD:1
LMOD:0   EQU      %
         LW,14    MODP              FETCH MODEL NO.
         BAL,15   MOD:EBC
*
LMOD:1   LI,4     4
LMOD     STB,15   MDTITL+3,4
         SLS,15   -8
         BDR,4    LMOD
         LW,14    F:D          CHECK DEVICE FLAG SET
         BNEZ     FIXIOA
         LW,15    XMSGX        FETCH ASTRISK IS NOT SET
         B        LIOA
*
FIXIOA   LW,14    DEVP              FETCH DEVICE NO.
         BAL,15   HEXEBC
LIOA     EQU      %
         STH,15   MDTITL+8
         SLS,15   -16
         STH,15   MDTITL+7,1
EXIOA    EQU      %
         LI,14    38
         BAL,15   L:PRINT
         DATA     MDTITL
         BAL,15   L:SPACE
         LW,4     SAVMDL
         LCI      2
         LM,14    SAVMDL+1
         B        *SAVMDL+2
*
SAVMDL   RES      3
XMSGX    TEXT     '****'
*
CKUNASS  EQU      %
         STW,14   CKAS
         STW,15   CKAS+1            SAVE R15
         BAL,15   L:SPACE       SKIP 3 TIMES....
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         STW,0    SEQFLG       RESET SEQUENCE FLAG.........
         STW,0    UNASSFLG          RESET FLG
         LI,14    30
         BAL,15   L:PRINT
         DATA     UNASSEC
         LW,14    CKAS
         B        *CKAS+1
*
CKAS     RES      2
*
         PAGE
                  PAGE
*
*****
*     ROUTINE SEARCH
*
*     SEARCH THOUGH SORTED FILE AND PICKS UP PARTICULAR
*     ETRIES THAT WERE REQUESTED.
*
*     CALLING SEQUENCE:
*        BAL,15   SEARCH
*        --       ----              CONTROL RETURNED HERE
*
*     FLAGS NEEDED BY SEARCH:
*           F:T     IF TYPE CODE IS TO BE EXAMINED
*           F:M     IF MODEL IS TO BE EXAMINED
*           F:D     IF DEVICE I/O IS TO BE EXAMINED
*
*     VARIABLES TO CONTAIN THE VALUES TO BE COMPARED AGAINST
*     IF F:T, F:M AND F:D IS SET:
*           TYPEP   PRIMARY TYPE CODE
*           TYPES   SECONDARY TYPE CODE
*           MODP    MODEL NUMBER
*           DEVP    I/O ADDRESS OF DEVICE
*
*****
*
SEARCH   EQU      %
         STW,15   SAVESCH
         LCI      15
         STM,0    SECSAV
         BAL,15   INITFLGS          CLEAR UST TIME FLAG
         LW,7     TABPNTR           LOAD 1ST ADDR OF SORT TBL
         STW,7    WKADDR            STORE INTO WORK LOCATION
         STW,0    ENTRYCNT          ZERO OUT ENTRY COUNT
         STW,0    SECFLG
         LI,7     1
         STW,7    CURCNT            SET CURRENT COUNT TO 3
         STW,1    CURPOS            SET CURRENT POSTION=1(CP-R)
         LW,7     *WKADDR           LOAD TOTAL NUMBER OF ENTRIES IN SORT
         STW,7    TOTALCNT
*
*
SECH05   EQU      %
         STW,0    SECFLG
         LW,7     ENTRYCNT
         CW,7     TOTALCNT          LAST ENTRY IN SORT TBLE
         BGE      SECHEND           (NO,YES-SECHEND)
*
         LW,4     CURCNT            LOAD CURRENT COUNT
*
*
         LW,7     TYPEP             LOAD PRIMARY CODE TO SEARCH ON
         BEZ      SECH200           SEARCH FOR UNASSOCIATED SEC.
*                                     (NO,YES-SECH200)
*
         LW,7     *WKADDR,4
         STW,7    SHWORK            STORE 1ST WORD FROM SORT ENTRY
         LB,7     SHWORK            LOAD THE TYPE CODE
         STW,7    TYPEWK
         STW,0    MATCHF            SET MATCH FLAG=0(NO MATCH)
*
*
         LW,7     F:T               LOAD TYPE FLAG
         BEZ      SECH10            CHECK TYPE(YES,NO-SECH10)
*
         LW,7     TYPEP             LOAD TYPE TO CHECK AGAINST
         CI,7     X'FF'             UNREC. ERROR CODE TO SORT
         BNE      SECH06            (YES,NO-SECH06)
*
         BAL,15   UNKNOWN
         B        NOMATCH           NO MATCH RETURN
         B        MATCH             MATCH RETURN
*
*
SECH06   EQU      %
         LW,7     TYPEWK            LOAD TYPE CODE FROM SORT ENTRY
         CW,7     TYPEP             SAME TYPE TO CHECK AGAINST
         BNE      SECH30            (YES,NO-SECH30)
         MTW,1    MATCHF            SET MATCH FLAG=1(MATCH FOUND)
*
SECH10   EQU      %
         LW,7     F:M               CHECK MODEL
         BEZ      SECH15            (YES,NO-SECH15)
         BAL,15   CHECK             CHECK IF ENTRY CONTAINS MODEL#
         B        NOMATCH           NO MODEL# IN ENTRY
         LW,4     CURCNT            LOAD CURRENT POINTER ADDRESS
         AI,4     1
         LW,7     *WKADDR,4         LOAD MODEL# IN ENTRY
         CW,7     MODP              MODEL # WANTED
         BNE      NOMATCH           (YES,NO-NOMATCH)
*
         MTW,1    MATCHF            SET MATCH FLAG=1(MATCH FOUND)
*
SECH15   EQU      %
         LW,7     F:D               MATCH I/O ADDRESS
         BEZ      SECH30            (YES,NO-SECH30)
*
*
         BAL,15   CHECK1            CHECK IF ENTRY HAS I/O ADDR
         B        NOMATCH           NO I/0 ADDRESS IN ENTRY
*
SECH20   EQU      %
         LW,7     SHWORK
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS
         CW,7     DEVP              I/O ADDRESS WANTED
         BNE      NOMATCH           (YES,NO-NOMATCH)
         B        MATCH
*
*
SECH30   EQU      %
         LW,7     MATCHF            ANY MATCH FOUND
         BEZ      NOMATCH           (YES,NO-NOMATCH)
         B        MATCH
*
*
NOMATCH  EQU      %
         LW,7     CURCNT            LOAD CURRENT COUNT
         AI,7     4
         STW,7    CURCNT            UPDATE TO NEXT ENTRY
         MTW,1    ENTRYCNT     BUMP ENTRY COUNT
         B        SECH05
*
*
MATCH    EQU      %
         STW,0    ENDFLG            INITIALIZE ENDFLAG TO ZERO
         BAL,15   BRKUP             BREAK UP THE ENTRY
         MTW,1    ENDFLG            RETURN HERE IF LAST ENTRY
*                                    IN SORT TABLE READ
         LW,7     TYPES             LOAD SECONDARY TYPE TO CHECK
         BEZ      SECH40            NO SEC.(NO,YES-SECH40)
         CI,7     X'16'             SECONDARY DEVICE ENTRY
         BE       SECH100           (NO,YES-SECH100)
         MTW,1    SECFLG            SET SECONDARY FLAG
SECH35   EQU      %
         LW,4     CURCNT
         LW,7     *WKADDR,4         LOAD 1ST WORD IN NEXT ENTRY
         SLS,7    -24               RIGHT JUSTIFY
         AND,7    :KX00FF
         STW,7    TYPESX
         CW,7     TYPES             SECONDARY WANTED
         BNE      SECH38            (YES,NO-SECH38)
         BAL,15   BRKUP             BREAK UP THE ENTRY
         MTW,1    ENDFLG            RETURN HERE IF LAST ENTRY
*                                    IN SORT TABLE READ
         B        SECH40
*
*
SECH38   EQU      %
         BAL,15   SECOND            ENTRY A SECONDARY
         B        %+2               (NO,YES-%+2)
         B        SECH05
         LW,7     CURCNT            UPDATE TO NEXT ENTRY
         AI,7     4
         STW,7    CURCNT
         B        SECH35
*
SECH40   LW,12    KEY3
*
         LW,13    KEY1
         LW,14    KEY2
         BAL,15   READFIL
*
*
         BAL,15   SLISIN            BR TO OUTPUT ENTRY
         LW,15    BRK:CHK      CHECK BREAK FLAG
         BNEZ     SECHEND      B: IF SET
         LW,7     ENDFLG            LAST ENTRY REACHED
         BEZ      %+2               (YES,NO-%+2)
         B        SECHEND
         LW,7     SECFLG
         BEZ      SECH05
         B        SECH35
*
*     SEARCH NEXT 30 ENTRIES FOR DEVICE SECONDARIES.
*     SEARCH IS STOPPED BY THE FOLLOWING REASONS:
*     (A) REACHED LAST ENTRY IN SORT TABLE
*     (B) ANOTHER PRIMARY RECORD(X'15') IS READ WITH SAME I/O
*          ADDRESS AS PREVIOUS
*     (C) 30 RECORDS WERE READ.
*
SECH100  EQU      %
         LW,7     ENTRYCNT
         STW,7    SAVE16B           SAVE CURRENT ENTRY POINTER
         LW,7     CURCNT
         STW,7    SAVE16A           SAVE CURRENT ENTRY ADDRESS
         STW,0    COUNTX            SET COUNTX=0(30 COUNTER)
         STW,0    FLAG16            SET FLAG16=0(USED IF 1ST TIME)
*
*
SECH105  EQU      %
         LW,4     CURCNT            LOAD CURRENT ENTRY POINTER
         LW,7     *WKADDR,4         LOAD 1ST WORD FROM SORT ENTRY
         STW,7    SECWRK
         SLS,7    -24               RIGHT JUSTIFY
         AND,7    :KX00FF           MASK OFF TYPE CODE
         CI,7     X'15'             DEVICE PRIMARY RECORD
         BE       SECH140           (NO,YES-SECH140)
         CI,7     X'16'             DEVICE SECONDARY
         BNE      SECH110           (YES,NO-SECH110)
         LW,7     SECWRK            LOAD 1ST WORD AGAIN
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS OF DEV
         CW,7     DEVP              REQUIRED SECONDARY
         BNE      SECH110           (YES,NO-SECH110)
*
*
         BAL,15   BRKUP             GET KEYS FOR ENTRY
         MTW,1    ENDFLG
         LW,12    KEY3
         LW,13    KEY1
         LW,14    KEY2
         BAL,15   READFIL
*
         BAL,15   SLISIN
         LW,15    BRK:CHK      CHECK BREAK FLAG SET
         BNEZ     SECHEND      B: IF SET
*
         LW,7     ENDFLG
         BEZ      SECH105           LAST ENRTY REACHED(YES,NO-SECH105)
         B        SECH130
*
*
SECH110  EQU      %
         LW,7     FLAG16            1ST TIME THROUGH
         BEZ      %+2               (NO,YES-%+2)
*
         B        SECH120
*
         MTW,1    FLAG16            SET FLAG
         LW,7     CURCNT
         STW,7    SAVE16A           SAVE CURRENT ENTRY POINTER
         LW,7     ENTRYCNT
         STW,7    SAVE16B           SAVE CURRENT ENTRY #
*
*
SECH120  EQU      %
         BAL,15   BRKUP
         B        SECH130           LAST ENTRY REACHED
         MTW,1    COUNTX
         LW,7     COUNTX
         CI,7     30                30 ENTRIES PAST PRIMARY ENTRY
         BLE      SECH105           (YES,NO-SECH105)
*
*
SECH130  EQU      %
         LW,7     SAVE16A
         STW,7    CURCNT            RESTORE CURRENT ENTRY POINTER
         LW,7     SAVE16B
         STW,7    ENTRYCNT          RESTORE CURRENT ENTRY #
         B        SECH05
*
*
SECH140  EQU      %
         LW,7     SECWRK
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS
         CW,7     DEVP              DEVICE WANTED
         BE       SECH130           (NO,YES-SECH130)
         B        SECH110
*
*
SECH200  EQU      %
         LW,7     TYPES             LOAD SECONDARY CODE TO SEARCH FOR
         CI,7     X'16'             SECONDARY DEVICE CODE
         BE       SECH300           (NO,YES-SECH300)
*
*     SYSTEM SECONDARY TO CHECK FOR
*
         STW,0    ENDFLG            SET ENDFLG=0
SECH205 EQU        %
         LW,4     CURCNT            LOAD CURRENT POINTER
         LW,7     *WKADDR,4         LOAD 1ST WORD OF ENTRY
         STW,7    SECWRK
         SLS,7    -24
         AND,7    :KX00FF
         STW,7    TYPESX            SAVE TYPE CODE IN ENTRY
         BAL,15   PRIMARY           CHECK IF IT IS A PRIMARY ENTRY
         B        SECH250           PRIMARY ENTRY
*
         BAL,15   SECOND            SECONDARY ENTRY
         B        SECH230           SECONDARY ENTRY FOUND
*
         STW,0    PRIMFLG           SET PRIMARY FLAG TO ZERO
*
*
SECH210  EQU      %
         BAL,15   BRKUP
         B        SECHEND
         B        SECH205
*
*
SECH230  EQU      %
         LW,7     PRIMFLG           PRIMARY ENTRY FOUND
         BEZ      %+2               (YES,NO-%+2)
         B        SECH210
*
*
         LW,7     TYPESX            LOAD ENTRY TYPE CODE
         CI,7     X'1F'             DUPLICATE ENTRY
         BNE      SECH235           (YES,NO-SECH235)
         LW,7     NONPRIM           LOAD IF NON-PRIM:'1F' COMB.
         BEZ      SECH235           (YES,NO-SECH235)
         STW,0    NONPRIM
         B        SECH210
*
*
SECH235  BAL,15   BRKUP
         MTW,1    ENDFLG
         LW,7     TYPESX
         CW,7     TYPES
         BNE      SECH240
         LW,12    KEY3
         LW,13    KEY1
         LW,14    KEY2
         BAL,15   READFIL
*
         BAL,15   SLISIN
         LW,15    BRK:CHK      CHECK BREAK FLAG SET
         BNEZ     SECHEND      B: IF SET
SECH240  EQU      %
         LW,7     ENDFLG
         BNEZ     SECHEND
         B        SECH205
*
*
SECH250  EQU      %
         STW,1    PRIMFLG           SET PRIMARY FLAG
         B        SECH210
*
*
*     CHECK FOR UNASSOCIATED DEVICE SECONDARIES ONLY
*
*
SECH300  EQU      %
         STW,0    ENDFLG
         LI,4     -50
SECH305  EQU      %
         STW,0    SERIO+50,4
         BIR,4    SECH305
         STW,0    SERIOX
*
SECH306  EQU      %
*
         LW,4     CURCNT
         LW,7     *WKADDR,4         LOAD 1ST WORD IN ENTRY
         STW,7    SECWRK
         LB,7     SECWRK
         CI,7     X'15'             PRIMARY DEV CODE
         BE       SECH350           (NO,YES-SECH350)
*
         CI,7     X'16'             DEVICE SECONDARY
         BE       SECH330           (NO,YES-SECH330)
         B        SECH320
*
SECH309  EQU      %
         LI,4     -50
SECH310  EQU      %
         LW,7     SERIO+50,4
         AND,7    :KX00FF           AND OFF COUNT
         BEZ      SECH315+1         COUNT=0(NO,YES-%+2)
         CI,7     30
         BL       SECH315
         LW,7     SERIO+50,4
         STB,0    7,3
         STW,7    SERIO+50,4
SECH315  EQU      %
*
         MTW,1    SERIO+50,4
         BIR,4    SECH310
         B        SECH306
*
*
SECH320  EQU      %
         BAL,15   BRKUP
         B        SECHEND
         B        SECH309
*
*
SECH330  EQU      %
         LW,7     SECWRK
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS
         STW,7    SAVE16A
*
*
         LI,4     -50
SECH335  EQU      %
         LW,7     SERIO+50,4
         SLS,7    -16               RIGHT JUSTIFY
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS
         CW,7     SAVE16A           I/O ADDR IN ENTRY EXIST
         BNE      SECH340           (YES,NO-SECH340)
         LW,7     SERIO+50,4
         AND,7    :KX00FF           COUNT=0
         BEZ      SECH341           (NO,YES-SECH341)
         B        SECH320
*
SECH340  EQU      %
         BIR,4    SECH335
*
*
SECH341  EQU      %
         BAL,15   BRKUP
         MTW,1    ENDFLG
         LW,7     F:D          ANY DEVICE ASKED FOR.........
         BEZ      SECH342      BRANCH IF NO........
         LW,7     SAVE16A      FETCH ADDRESS.......
         CW,7     DEVP         CHECK AGAINST ASKED FOR ....
         BNE      SECH343      BRANCH IF NOT EQUAL,,,FALL THRU IF EQUAL
SECH342  EQU      %            HERE.,,,,.....
         LW,13    KEY1
         LW,14    KEY2
         LW,12    KEY3
         BAL,15   READFIL
         BAL,15   SLISIN
SECH343  EQU      %
         LW,15    BRK:CHK      CHECK BREAK FLAG
         BNEZ     SECHEND      B: IF SET
         LW,7     ENDFLG
         BNEZ     SECHEND
         B        SECH309
*
*
SECH350  EQU      %
         LW,7     SECWRK
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS
         SLS,7    16                LEFT JUSTIFY
         STW,7    SAVE16A
*
         LI,4     -50
SECH355  EQU      %
         LW,7     SERIO+50,4        LOAD ENTRY IN SEARCH TABLE
         BEZ      SECH370           NULL ENTRY(NO,YES-SECH370)
         AND,7    :KXFF00           MASK OFF I/O ADDRESS
         CW,7     SAVE16A           I/O ADDR FROM ENTRY IN TABLE
         BNE      SECH370           (YES,NO-SECH370)
         MTW,1    7
         STW,7    SERIO+50,4
         B        SECH320
*
*
SECH370  EQU      %
         BIR,4    SECH355
*
         LW,4     SERIOX            LOAD NUMBER OF ENTRIES
         LW,7     SAVE16A
         STB,1    7,3          SET THE 3RD BYTE ..........
         STW,7    SERIO,4
         MTW,1    SERIOX
         B        SECH320
SECHEND  LCI      15
         LM,0     SECSAV
         B        *SAVESCH
SECSAV   RES      15
SERIOX   DATA     0
NONPRIM  DATA     0
KEY1     DATA     0
KEY2     DATA     0
SAVESCH  DATA     0
MATCHF   DATA     0
TLPCNTM  DATA     0
TYPECNT  DATA     0
SECFLG   DATA     0
CURCNT   DATA     0
WKADDR   DATA     0
TOTALCNT DATA     0
SHWORK   DATA     0
ENTRYCNT DATA     0
CURPOS   DATA     0
TYPEWK   DATA     0
:KX00FF  DATA     X'000000FF'
ENDFLG   DATA     0
COUNTX   DATA     0
SAVE16A  DATA     0
SAVE16B  DATA     0
FLAG16   DATA     0
SECWRK   DATA     0
:KXFFFF  DATA     X'0000FFFF'
PRIMFLG  DATA     0
UNASSFLG DATA     0
SERIO    RES      50
:KXFF00  DATA     X'FFFF0000'
*
*
F:T      DATA     0
F:M      DATA     0
F:D      DATA     0
MODP     DATA     0
TYPEP    DATA     0
TYPES    DATA     0
DEVP     DATA     0
KEY3     DATA     0
         PAGE
*
*****
*     ROUTINE UNKNOWN
*
*     DETERMINE IF ERROR TYPE IN UNKNOWN
*
*     CALLING SEQUENCE:
*        BAL,15   UNKNOWN
*        --       ----              IF ERROR TYPE IS VALID
*        --       ----              IF ERROR TYPE IN NOT VALID
*****
*
UNKNOWN  EQU      %
         LI,4     42
UNKN05   EQU      %
         LB,7     CODES,4           LOAD VALID TYPE
         CW,7     TYPEWK            SAME AS TYPE IN ENTRY
         BE       UNKN10            (NO,YES-UNKN10)
         BDR,4    UNKN05
         MTW,1    15
         B        *15
*
*
UNKN10   EQU      %
         B        *15               RETURN
*
*
CODES    EQU      %
         DATA     X'00101112'
         DATA     X'13151617'
         DATA     X'18191A1B'
         DATA     X'1D1E1F20'
         DATA     X'21222324'
         DATA     X'27272730'
         DATA     X'31323435'
         DATA     X'36373839'
         DATA     X'41424344'
         DATA     X'50515253'
         DATA     X'28264900'
         PAGE
*
*****
*
*     ROUTINE INITFLGS
*
*     CALLING SEQUENCE:
*        BAL,15   INITFLGS
*        --       ----              CONTROL RETURNED HERE
*****
*
INITFLGS EQU      %
         LW,7     TYPEP
         CI,7     X'11'
         BE       INA
         CI,7     X'12'
         BE       INA
         CI,7     X'13'
         BE       INA
         CI,7     X'51'
         BE       INA
         CI,7     X'52'
         BE       INA
         CI,7     X'15'             PRIMARY TYPE CODE WANTED=15
         BNE      INIT10            (YES,NO-INIT10)
INA      EQU      %
         LW,7     XFLAG15           1ST TIME TO REQUEST X'15'
         BEZ      %+2               (NO,YES-%+2)
         B        INIT05
         MTW,1    XFLAG15           SET FLAG
         STW,0    FSTFLG            FSTFLG=0(PRINT MODEL-I/O HEADER)
INIT05   EQU      %
         B        *15               RETURN
*
*
INIT10   EQU      %
         STW,0    FSTFLG
         B        *15
*
*
XFLAG15  DATA     0
         PAGE
*
*****
*     ROUTINE CHECK
*
*     CALLING SEQUENCE
*        BAL,15   CHECK
*        --       ----              IF NOT CODES THAT HAVE
*                                     MODEL# OR I/O ADDRESSES
*        --       ----              IF ENTRY HAVE MODEL# OR I/O ADDR
*****
*
CHECK    EQU      %
         LI,4     11
         B        CHK05
*
*
CHECK1   EQU      %                 2ND ENTRY TO ROUTINE
         LI,4     13                LOAD # OF TYPES FOR I/O ADDR
CHK05    EQU      %
         LB,7     MDIO:X,4          LOAD TYPES WITH MODEL#,I/O ADDRESS
         CW,7     TYPEWK            TYPE REQUESTED
         BE       CHK10             (NO,YES-CHK10)
         BDR,4    CHK05
*
*
         B        *15               RETURN-SYSTEM TYPE CODE
*
*
CHK10    EQU      %
         MTW,1    15                INCR TO GOOD RETURN
         B        *15               RETURN-DEVICE TYPE CODE
*
*
MDIO:X   EQU      %                 ALL ENTRY TYPE CODES WITH
*                                    MODEL#/I/O ADDRESS
         DATA     X'00121315'
         DATA     X'21363738'
         DATA     X'39515211'
         DATA     X'34160000'
         PAGE
*
*****
*     ROUTINE BRKUP
*
*     ROUTINE GETS THE KEYS FROM SORTED ENTRY TABLE AND
*     UPDATES THE POINTER INTO THE SORTED TABLE TO THE
*     NEXT ENTRY.
*
*     CALLING SEQUENCE:
*        BAL,15   BRKUP
*        --       ----              RETURN HERE IF LAST ENTRY IN
*                                    SORT TABLE REACHED
BRKUP    LW,4     CURCNT
         LW,7     *WKADDR,4
         LB,7     7,1
         STW,7    KEY3
         AI,4     2
         LW,7     *WKADDR,4
         STW,7    KEY1
         AI,4     1
         LW,7     *WKADDR,4
         STW,7    KEY2
         LW,7     CURCNT            UPDATE TO NEXT ENTRY
         AI,7     4
         STW,7    CURCNT
         MTW,1    ENTRYCNT
         LW,7     ENTRYCNT
         CW,7     TOTALCNT          LAST ENTRY IN SORT TABLE
         BL       %+2               (YES,NO-%+2)
         B        *15
         MTW,1    15                UPDATE RETURN ADDRESS
         B        *15               RETURN
         PAGE
*
*****
*     ROUTINE SECOND
*
*     ROUTINE CHECKS IF THE TYPE CODE IS A SECONDARY CODE.
*
*     CALLING SEQUENCE:
*        BAL,15   SECOND
*        --       ----              RETURN HERE IF A SECONDARY
*        --       ----              RETURN HERE IF NOT A SECONDARY
*****
*
SECOND   EQU      %
         LI,4     7
SEC05    EQU      %
         LB,7     SCODES,4          LOAD VALID SECONDARY TYPE
         CW,7     TYPESX            SECONDARY ENTRY
         BE       SEC10             (NO,YES-SEC10)
         BDR,4    SEC05
         MTW,1    15                UPDATE RETURN ADDRESS
         B        *15               NOT A SECONDARY RETURN
*
*
SEC10    EQU      %
         B        *15               SECONDARY ENTRY RETURN
*
*
SCODES   EQU      %
         DATA     X'001F4243'
         DATA     X'44321649'
TYPESX   DATA     0
         PAGE
*
*****
*     ROUTINE PRIMARY
*
*     ROUTINE CHECKS IF THE TYPE CODE IS A PRIMARY CODE.
*
*     CALLING SEQUENCE:
*        BAL,15   PRIMARY
*        --       ----              RETURN HERE IF A PRIMARY
*        --       ----              RETURN HERE IF NOT A PRIMARY
*****
*
PRIMARY  EQU      %
         LI,4     8
PRIM05   EQU      %
         LB,7     PCODES,4          LOAD VALID PRIMARY CODES
         CW,7     TYPESX            ENRTY A PRIMARY
         BE       PRIM10            (NO,YES-PRIM10)
         BDR,4    PRIM05
         STW,1    NONPRIM
         MTW,1    15                INCR RETURN ADDRESS
         B        *15
*
*
PRIM10   EQU      %
         B        *15
*
*
PCODES   EQU      %
         DATA     X'00171810'
         DATA     X'22303115'
         DATA     X'1D000000'
         PAGE
* SUBROUTINE SECTION:
*
*
RT11     EQU      %
         LW,13    CLISF
         BNEZ     RT11YA
         LW,13    FSTFLG
         BNEZ     RT11YA
         STW,0    SEQFLG
RT11YA   EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       RT116             SKIP SPACES
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
RT116    EQU      %
         BAL,15   TIME              FIX MSG1
         BAL,15   MOD:IN       FETCH /CONVERT AND STORE MODEL NO.
         LW,14    BUFFER,2
         AND,14   XXXXFFFF          I/O ADRS
         BAL,15   HEXEBC
         LI,10    4
         LW,5     15                SAVE R15
         BAL,15   STMSG4
         DATA     MSG3
         LI,10    4                 SIO STAT
         STB,10   MSG3              SET BYTE CNT
         LW,14    BUFFER,2          TDV STAT
         SLS,14   -16
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG4
         LW,5     15                SAVE R15
         BAL,15   STMSG4
         DATA     MSG4
         LW,14    BUFFER,3
         SLS,14   -16
         AND,14   XXXXXXFF          SIO CC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,1    MSG5              SET UP BYTE CNT
         STB,15   MSG5,1
         LI,4     5
         LW,14    BUFFER,4          TDV STAT
         SLS,14   -16
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG6
         LW,5     15                SAVE R15
         BAL,15   STMSG4
         DATA     MSG6
         LW,14    BUFFER,3
         SLS,14   -8
         AND,14   XXXXXXFF          TDV CC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,1    MSG7              SET UP BYTE CNT
         STB,15   MSG7,1            TDV CC
         LI,4     4
         LW,14    BUFFER,4
         SLS,14   -25
         BAL,15   HEXEBC
         STB,15   MSG8,2
         SLS,15   -8
         STB,15   MSG8,1
         STB,2    MSG8              SET UP BYTE CNT
         LW,14    BUFFER,4
         AND,14   XX7FFFFF
         BAL,15   HEXEBC
         SLD,14   8
         STW,14   MSG9
         STW,15   MSG9,1
         LI,10    6
         STB,10   MSG9
         LI,4     5
         LW,14    BUFFER,4
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG10             SET UP BYTE CNT
         LW,5     15                SAVE R15
         BAL,15   STMSG4
         DATA     MSG10             REM. BYTES
         LB,14    S:SYS,1           FETCH CPU BYTE
         CB,14    1,3               CK SIGMA 5-7
         BNE      P11
         LW,14    BUFFER,3
         LB,14    14           FETCH THE 1ST BYTE.......
         BAL,15   HEXEBC
         SLS,15   8            SHIFT 1 BYTE TO LEFT.....
         STW,15   MSG11             MFI
         LI,10    2
         STB,10   MSG11
P11      LW,13    CLISF
         BEZ      P11S              SLIS
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P11X
         BAL,15   CT:PRINT          PRINT TYPE 11 ERROR REPORT
         DATA     TC11
RTRN11   LB,13    BUFFER
         STW,13   SEQFLG
         B        RETURN
*
*
*
P11X     BAL,15   CT:PRINT
         DATA     TC11X
         B        RTRN11
*
TC11     BS       04,21,1,22,1,23,1,21,X'FF',;
                  20,19,26,3,104,0,22,0,102,2,104,0,28,0,102,;
                  2,29,2,30,2,31,X'FF',;
                  24,10,25,3,32,2,33,1,34,2,33,1,34,2,33,2,35,1,36,;
                  2,37,2,48,X'FF',;
                  1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'
TC11X    BS       1,1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'
*
P11S     LW,13    FSTFLG
         BNEZ     P11SX
         BAL,15   FXMDIO
         BAL,15   CT:PRINT
         DATA     TS11
RTN11    STW,1    FSTFLG            SET FSTFLG
         LB,13    BUFFER       FETCH TYPE CODE
         STW,13   SEQFLG
         B        SRTRN
*
P11SX    LB,13    BUFFER
         CW,13    SEQFLG
         BNE      P11S+3
         BAL,15   CT:PRINT
         DATA     TS11X
         B        RTN11
*
TS11     EQU      %
         BS       04,21,1,22,1,23,1,21,X'FF',;
                  20,13,104,0,22,0,102,2,104,0,28,0,102,;
                  2,29,2,30,2,31,X'FF',;
                  24,10,33,1,34,2,33,1,34,2,33,2,35,1,36,;
                  2,37,2,48,X'FF',;
                  1,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'
TS11X    BS       1,1,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'
*
RT12     EQU      %
         STW,1    F12               SET F12 FLAG
         B        RT15
*
*
F12      DATA     0
*
*
         PAGE
RT13     EQU      %
         LW,13    CLISF
         BNEZ     RT13YA
         LW,13    FSTFLG
         BNEZ     RT13YA
         STW,0    SEQFLG
RT13YA   EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX13
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX13     EQU      %
         BAL,15   TIME              FIX DATE/TIME
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.
*
         LW,14    BUFFER,2
         AND,14   XXXXFFFF
         BAL,15   HEXEBC            I/O ADRS
         LI,10    4
         STB,10   MSG3
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         LW,14    BUFFER,2          AIO STAT.
         SLS,14   -16
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG4
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4
         LW,14    BUFFER,3
         SLS,14   -16
         AND,14   XXXXXXFF
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG5,1
         STB,1    MSG5
         LW,13    CLISF
         BEZ      P13S
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P13X
         BAL,15   CT:PRINT
         DATA     TC13
RTRN13   LB,13    BUFFER
         STW,13   SEQFLG
         B        RETURN            RETURN TO READ ANOTHER RECORD
*
P13X     EQU      %
         BAL,15   CT:PRINT
         DATA     TC13X
         B        RTRN13
*
*
TC13     EQU      %
         BS       X'04',21,1,38,1,21,X'FF',;
                  20,19,26,3,104,0,39,0,102,X'FF',;
                  24,10,25,3,32,2,33,1,34,X'FF',;
                  1,2,2,2,3,2,4,1,5,X'FF'
*
*
TC13X    BS       1,1,2,2,2,3,2,4,1,5,X'FF'
*
P13S     LW,13    FSTFLG
         BNEZ     P13SX
         BAL,15   FXMDIO
         BAL,15   CT:PRINT
         DATA     TS13
RTN13    STW,1    FSTFLG
         LB,13    BUFFER       FETCH TYPE CODE
         STW,13   SEQFLG
         B        SRTRN
*
P13SX    LB,13    BUFFER
         CW,13    SEQFLG
         BNE      P13S+3
         BAL,15   CT:PRINT
         DATA     TS13X
         B        RTN13
*
TS13     BS       X'04',21,1,38,1,21,X'FF',;
                  20,13,104,0,39,0,102,X'FF',;
                  24,10,33,1,34,X'FF',;
                  1,2,4,1,5,X'FF'
*
TS13X    BS       1,1,2,4,1,5,X'FF'
*
*
RT15     EQU      %
         LW,13    CLISF
         BNEZ     RT15YA
         LW,13    FSTFLG
         BNEZ     RT15YA
         STW,0    SEQFLG
RT15YA   EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       RT156             SKIP SPACES
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
RT156    EQU      %
         BAL,15   TIME              FIX MSG1
         LI,4     2
         LW,13    BUFFER,4
         SLS,13   -16               SHIFT 16 BIT TO RIGHT
         STW,13   AIOS
         LI,4     3
         LW,13    BUFFER,4
         SLS,13   -24               SHIFT 24 BIT TO RIGHT
         AND,13   XXXXXXFF
         STW,13   MFI
         LW,13    BUFFER,4
         SLS,13   -16
         AND,13   XXXXXXFF
         STW,13   AIOC
         LW,13    BUFFER,4
         SLS,13   -8                SHIFT 8 BIT TO RIGHT
         AND,13   XXXXXXFF
         STW,13   TDVC              STORE R13 TO TDVC
         LW,13    BUFFER,4
         AND,13   XXXXXXFF
         STW,13   TIOC              STORE R13 TO TIOC
         LI,4     4
         LW,13    BUFFER,4
         SLS,13   -24
         AND,13   XXXXXXFF
         STW,13   SUBCHSTA
         LW,13    BUFFER,4
         AND,13   XX7FFFFF
         STW,13   TDVCCDA           STORE R13 TO TDVCCDA
         LI,4     5
         LW,13    BUFFER,4
         SLS,13   -16
         STW,13   TDVS              STORE R13 TO TDVS
         LW,13    BUFFER,4
         AND,13   XXXXFFFF
         STW,13   BYTREM            STORE R13 TO BYTREM
         LI,4     8
         LW,13    BUFFER,4
         SLS,13   -16
         STW,13   TIOS              STORE R13 TO TIOS
         LW,13    BUFFER,4
         SLS,13   -8
         AND,13   XXXXXXFF
         STW,13   RETREQ            STORE R13 TO RETREQ
         LW,13    BUFFER,4
         AND,13   XXXXXXFF
         STW,13   RETREM            STORE R13 TO RETREM
         LI,4     11
         LW,13    BUFFER,4
         SLS,13   -8
         AND,13   XXXXXXFF
         STW,13   ORGFCDE           STORE R13 TO ORGFCDE
         LW,13    BUFFER,4
         AND,13   XXXXXXFF
*
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.
*
         LI,4     2
         LW,14    BUFFER,4          FIX I/O ADDRESS
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG3
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         LW,14    AIOS
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG4
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4
         LW,14    AIOC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG5,1
         STB,1    MSG5              BYTE CNT
         LW,14    TIOS
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG6
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG6
         LW,14    TIOC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG7,1
         STB,1    MSG7              SET UP BYTE CNT
         LW,14    TDVS
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG8
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG8
         LW,14    TDVC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG9,1
         STB,1    MSG9
         LW,14    TDVCCDA
         BAL,15   HEXEBC
         SLD,14   8
         STW,14   MSG10
         STW,15   MSG10,1
         LI,10    6
         STB,10   MSG10
*
         LW,14    BYTREM
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG11
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG11
         LB,14    S:SYS,1
         CW,14    1
         BNE      P15
         LW,14    BUFFER,3
         SLS,14   -24
         BAL,15   HEXEBC            MFI
         SLS,15   8
         STW,15   MSG18
P15      EQU    %
         LI,10    2
         STB,10   MSG18
         LI,4     6
         LW,14    BUFFER,4          CUR. COM. DW
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG12             CUR. COM. 1ST WORD
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG12
*
         LI,4     7
         LW,14    BUFFER,4          CUR. COMM. 2ND WORD
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG13
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG13
*
         LW,14    RETREQ
         LI,13    1
*
         BAL,15   HEXTWO
         DATA     MSG14
         STB,2    MSG14
*
         LW,14    RETREM
         LI,13    1
         BAL,15   HEXTWO
         DATA     MSG15
         STB,2    MSG15
*
         LI,4     11
         LW,15    BUFFER,4     FETCH IO SERIAL NUMBER (ANS)
         AND,15   FFFFXX       MSK OUT
         BNEZ     %+2          B: NOT EQUAL ZERO
         LW,15    X40X
         LI,4     10
         LW,14    BUFFER,4     FETCH SERIAL NO.
         BNEZ     RT15:A       B: NOT EQUAL ZERO
         LW,14    X40X
RT15:A   SLD,14   -8
         STW,14   MSG16
         STW,15   MSG16,1
RT15:B   LI,4     6
         STB,4    MSG16
         STW,0    SGNFL        RESET SIGN FLAG
         LI,4     9
         LI,13    1
         LW,14    BUFFER,4
         BGEZ     %+3          BRANCH IF POSITIVE SIGN
         LCW,14   14           FETCH THE TWO'S COMPLEMENT
         STW,1    SGNFL        SET THE SIGN FLAG.
         BAL,15   HEXDECE
         DATA     MSG154
         LI,4     10
         STB,4    MSG154            BYTE CNT
         MTW,0    SGNFL        CHECK SIGN FLAG.
         BEZ      %+3          BRANCH IF ZERO.
         LI,4     X'D5'        FETCH THE NEGATIVE EBCDIC SIGN.
         STB,4    MSG154,1
*
         LW,14    SUBCHSTA
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG17
         STB,2    MSG17
*
         LI,4     12
         LW,14    BUFFER,4
         BAL,15   HEXEBC            SEEK ADRS
         LI,10    8
         STB,10   MSG19             SET UP BYTE CNT
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG19
         LW,13    CLISF
         BEZ      P15S              SLIS
         CW,1     F12               IS THIS TYPE 12
         BE       P12
         LI,13    39                FIX 'AIO'
         STB,13   TC15+3,3          FIX 'AIO'
         LI,13    120
         STB,13   TC15+1,1          FIX 'ERROR'
*
P12X     EQU      %
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P15X
         BAL,15   CT:PRINT
         DATA     TC15              PRINT TYPE 15
RTRN15   LB,13    BUFFER
         STW,13   SEQFLG            SET SEQFLG CONDITION
         B        RETURN
*
P15X     BAL,15   CT:PRINT
         DATA     TC15X
         B        RTRN15
*
P12      EQU      %
         LI,13    27                FIX HIO
         STB,13   TC15+3,3
         LI,13    53
         STB,13   TC15+1,1          FIX 'TIMEOUT'
         STW,0    F12               RESET F12
         B        P12X
SGNFL    DATA     0
TC15     EQU      %
         BS       X'8C',21,1,43,1,120,1,21,X'FF',;
                  20,19,26,3,104,0,39,0,102,2,104,0,44,0,102,2,;
                  104,0,28,0,102,2,30,2,31,6,;
                  20,4,26,5,142,0,45,0,103,1,155,1,40,1,;
                  29,X'FF',;
                  24,10,25,3,32,2,33,1,34,2,33,1,34,2,33,1,34,;
                  2,35,1,36,2,37,2,48,0,;
                  20,2,42,7,65,8,66,5,49,1,31,1,41,1,33,;
                  1,52,1,32,X'FF',;
                  1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;
                  11,3,18,0,;
                  20,1,154,1,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'
TC15X    BS       1,1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;
                  11,3,18,0,;
                  20,1,154,1,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'
*
P15S     EQU      %
         CW,1     F12
         BE       P12S
         LI,13    39                'AIO'
         STB,13   TS15+3,1
         LI,13    120               'ERROR'
         STB,13   TS15+1,1
P12SX    EQU      %
         LW,13    FSTFLG
         BNEZ     P15SX
         BAL,15   FXMDIO
         BAL,15   CT:PRINT
         DATA     TS15
RTN15    STW,1    FSTFLG
         LB,13    BUFFER       FETCH TYPE CODE
         STW,13   SEQFLG
         B        SRTRN
*
P15SX    LB,13    BUFFER
         CW,13    SEQFLG
         BNE      P12SX+3
         BAL,15   CT:PRINT
         DATA     TS15X
         B        RTN15
*
P12S     LI,13    27
         STB,13   TS15+3,1          'HIO'
         LI,13    53
         STB,13   TS15+1,1
         STW,0    F12               RESET F12
         B        P12SX
*
*
TS15     BS       X'8C',21,1,43,1,120,1,21,X'FF',;
                  20,13,104,0,39,0,102,2,104,0,44,0,102,2,;
                  104,0,28,0,102,2,30,2,31,6,;
                  20,4,26,6,142,0,45,0,103,1,155,1,40,1,;
                  29,X'FF',;
                  24,10,33,1,34,2,33,1,34,2,33,1,34,;
                  2,35,1,36,2,37,2,48,0,;
                  20,2,42,8,65,8,66,5,49,1,31,1,41,1,33,;
                  1,52,1,32,X'FF',;
                  1,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;
                  11,3,18,0,;
                  20,0,154,3,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'
*
TS15X    BS       1,1,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;
                  11,3,18,0,;
                  20,0,154,3,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'
*
*
RT21     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX21
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX21     EQU      %
         STB,1    TC21X,1           SET MSG1
         STB,2    TC21X,2
         BAL,15   TIME
         LI,4     2                 INITIALIZE X4=2
         LB,13    BUFFER,1
         STW,13   TYCNT             SAVE CNT
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       TLX21
         BAL,15   CT:PRINT          PRINT FORMATS
         DATA     TC21
TLX21    EQU      %
*
         LB,13    BUFFER
         STW,13   SEQFLG
L21      CW,4     TYCNT             IS THIS THE LAST PAIR
         BGE      CKRTRN
         LW,14    BUFFER,4          MDL
         SLS,14   -16
          BAL,15    MOD:EBC
         XW,14    15
         SLD,14   -8
         STW,14   MSG2
         STW,15   MSG2,1
         LI,10    4
         STB,10   MSG2
         LW,14    BUFFER,4
         AND,14   XXXXXXFF
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG5
         STB,2    MSG5              BYTE CNT
*
         AI,4     1
         LW,14    BUFFER,4
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG3
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3              PRIIOADD
*
         LW,14    BUFFER,4
         SLS,14   -16
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG4
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4              ALTIOADD
*
         BAL,15   CT:PRINT
         DATA     TC21X
         AI,4     1                 INCREMENT X4 BY 1
         LI,13    20                'SPACE'
         STB,13   TC21X,1           MASK MSG1
         LI,13    13                13 SPACES
         STB,13   TC21X,2
         B        L21               LOOP FOR ANOTHER PAIR
*
CKRTRN   LW,13    CLISF
         BEZ      SRTRN             RETURN TO SLIS RETURN
         B        RETURN            RETURN TO CLIS RETURN
*
TC21     EQU      %
         BS       X'03',21,1,86,1,21,X'FF',;
                  20,20,26,3,32,2,82,X'FF',;
                  24,10,25,4,84,2,85,2,83,X'FF'
*
TC21X    BS       1,1,2,2,3,3,2,4,3,5,X'FF'
*
*
RT17     EQU      %
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX17
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX17     EQU      %
         LW,14    BUFFER,2          PSD W1
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG2
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG2
*
         LW,14    BUFFER,3          PSD W2
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG3
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG3
         LI,4     6
         LW,14    BUFFER,4          REAL ADRS
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG4
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG4
*
         LI,4     7                 INSTRUCTION
         LW,14    BUFFER,4
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG5
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG5
*
         LH,14    BUFFER,1
         AND,14   XXXXXXFF
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG6,1
         STB,1    MSG6
*
         LH,14    BUFFER,1          RIF
         SLS,14   -8
         AND,14   M3
         BAL,15   HEXEBC
         STB,15   MSG7,1
         STB,1    MSG7
*
         LI,4     8
         LW,14    BUFFER,4          ANLZ CC
         SCS,14   4
         AND,14   M4
         BAL,15   HEXEBC
         STB,15   MSG8,1
         STB,1    MSG8
         LI,4     8
         LW,14    BUFFER,4          EFF. ADRS
         AND,14   XX7FFFFF
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG9
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG9
*
         LI,4     9
         LW,14    BUFFER,4          REAL EFF ADR
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG10
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG10
*
         CW,1     F19
         BE       P19
         CW,2     F19               IS IT CODE 1D
         BE       P1D               YES
P19X     EQU      %
*
*
         BAL,15   TIME
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P17X
         BAL,15   CT:PRINT
         DATA     TC17
RTRN17   LB,13    BUFFER
         STW,13   SEQFLG
         LW,13    W17
         STW,13   TC17              RESET TC17 TEXT
         LW,13    W17+1
         STW,13   TC17+1
         B        CKRTRN
*
P17X     BAL,15   CT:PRINT
         DATA     TC17X
         B        RTRN17
*
P19      EQU      %
         LW,13    W19               FIX TITLE, 'WATCHDOG TIMER'
         STW,13   TC17
         LW,13    W19+1
         STW,13   TC17+1
         STW,0    F19               RESET F19 FLAG
         B        P19X
*
P1D      EQU      %
         LW,13    W1D
         STW,13   TC17
         LW,13    W1D+1
         STW,13   TC17+1
         STW,0    F19
         B        P19X
W1D      DATA     X'8C15016A',X'01150014'
*
*
W19      DATA     X'8C150148',X'01150014'
W17      DATA     X'8C1501A7',X'01780115'
TC17     BS       X'8C',21,1,167,1,120,1,21,X'FF',;
                  20,13,61,2,62,6,103,0,63,0,103,4,161,3,;
                  162,4,104,0,70,1,32,0,104,X'FF',;
                  24,14,65,6,66,7,32,6,70,1,34,11,34,7,;
                  64,5,62,1,64,X'FF',;
                  1,2,2,1,3,2,4,2,5,1,6,6,7,5,8,6,9,3,10,X'FF'
*
TC17X    BS   1,1,2,2,1,3,2,4,2,5,1,6,6,7,5,8,6,9,3,10,X'FF'
*
*
RT18     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX18
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX18     EQU      %
         LW,14    BUFFER,2
         SLS,14   -16
         LI,13    3
         BAL,15   HEXTWO
         DATA     MSG2A
         LI,13    97                X61 = '/'
         STB,13   MSG2A,2
         LW,14    BUFFER,2
         AND,14   XXXXFFFF
         BAL,15   JD:MD             TIME/DATE
         STW,15   12                SAVE R15
         LI,13    0
         BAL,15   HEXTWO
         DATA     MSG2A
         LI,13    97
         STB,13   MSG2,3            /
         LI,13    1
         STW,12   14
         BAL,15   HEXTWO            MONTH
         DATA     MSG2
         LI,4     8
         STB,4    MSG2              BYTE CNT
         LB,14    BUFFER,2          STARTUP TYPE
         BAL,15   HEXEBC
         STB,15   MSG3,2
         SLS,15   -8
         STB,15   MSG3,1
         STB,2    MSG3              BYTE CNT
         LB,14    BUFFER,3          RECON. CNT
         BAL,15   HEXEBC
         STB,15   MSG4,2
         SLS,15   -8
         STB,15   MSG4,1
         STB,2    MSG4              BYTE CNT
         LW,14    BUFFER,3
         SLS,14   -24
         BAL,15   HEXEBC
         STB,15   MSG5,2
         SLS,15   -8
         STB,15   MSG5,1
         STB,2    MSG5              BYTE CNT
*
         LW,14    BUFFER,3
         SLS,14   -16
         AND,14   XXXXXXFF
         BAL,15   HEXEBC
         STB,15   MSG6,2
         SLS,15   -8
         STB,15   MSG6,1
         STB,2    MSG6              BYTE CNT
*
         BAL,15   TIME
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P18X
         BAL,15   CT:PRINT
         DATA     TC18
RTRN18   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P18X     BAL,15   CT:PRINT
         DATA     TC18X
         B        RTRN18
*
*
TC18     BS       04,21,1,73,1,21,X'FF',;
                  20,23,75,2,76,2,77,2,78,X'FF',;
                  24,10,74,6,79,3,42,2,59,5,59,X'FF',;
                  1,2,2,3,3,5,4,5,5,6,6,X'FF'
*
TC18X    BS       1,1,2,2,3,3,5,4,5,5,6,6,X'FF'
*
*
RT19     EQU      %
         STW,1    F19               SET TYPE 19 FLAG
         B        RT17
*
F19      DATA     0
*
*
*
RT22     EQU      %
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX22
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX22     EQU      %
         BAL,15   TIME
         LB,11    BUFFER,2
         MW,11    N8
         LW,14    11
         LI,13    1
         BAL,15   HEXFIVE
         DATA     MSG2
         LI,10    5
         STB,10   MSG2              BYTE CNT
         LW,14    BUFFER,3          SITE I.D. W1
         LW,5     14
         BAL,15   STMSG4
         DATA     MSG3
         LI,10    8
         STB,10   MSG3              BYTE CNT
         LI,4     4
         LW,14    BUFFER,4          SITE I.D. W2
         LW,5     14
         BAL,15   STMSG4
         DATA     MSG3A
         LW,14    BUFFER,2          SYS. VER. FLGS
         SLS,14   -28
         CI,14    7                 IS THIS CP-V
         BE       CPV
         CI,14    8
         BE       CPR               CP-R
         LW,14    TUNK         FETCH ASTERISK...
         STW,14   MSG4
         LW,14    TUNK+1
         B        L22M
CPV      LW,14    TCPV
         STW,14   MSG4
         LW,14    TCPV,1
         B        L22M
CPR      LW,14    TCPR
         STW,14   MSG4
         LW,14    TCPR,1
L22M     EQU      %
         STW,14   MSG4A
L22      LW,14    BUFFER,2
         SLS,14   -16
         STW,14   10                SAVE R14
         AND,14   XXXXXXXF
         LI,13    2
         BAL,15   HEXTWO            VERSION NO.
         DATA     MSG5
         AND,10   XXXXXXFF
         SLS,10   -4
         LI,13    X'C0'
         AW,10    13                VERSION
         STH,10   MSG5
         STB,3    MSG5              BYTE CNT
*
         LW,14    BUFFER,2     FETCH OPTIONS....6/7 , 5 , 9 , 560
         LI,13    X'C0'        SET  MASK.....
         AND,14   13           MASK OUT
         CI,14    X'40'        S 6/7
         BE       FXS67
         CI,14    X'80'        S 9
         BE       FXS9
         CI,14    X'C0'        560
         BE       FX560
         CI,14    0
         BE       FXS5         S5
         LW,14    TXSSS        INSERT ASTERISK FOR UNKNOWNS...
         STW,14   MSG6
FXOPTION LW,14    BUFFER,2
         AND,14   1
         BNEZ     SYMB              SYMBIONT
         LW,14    NO
         STW,14   MSG7
X:1      EQU      %
         LW,14    BUFFER,2
         AND,14   2
         BNEZ     RB                REMOTE BATCH
         LW,14    NO
         STW,14   MSG8
X:2      EQU      %
         LW,14    BUFFER,2
         LI,4     4
         AND,14   4
         BNEZ     RTT               REPL"TIME
         LW,14    NO
         STW,14   MSG9
FXRES    EQU      %
         LI,14    1
         LB,4     BUFFER,3
         BEZ      FXMSG10
         SLS,14   1
         BDR,4    %-1
FXMSG10  EQU      %
         LI,13    1
         BAL,15   HEXTWO
         DATA     MSG10
         STB,2    MSG10
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P22X
         BAL,15   CT:PRINT
         DATA     TC22
RTRN22   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
P22X     BAL,15   CT:PRINT
         DATA     TC22X
         B        RTRN22
*
FXS67    LW,14    TS67
         B        FXS5+1
*
FXS9     LW,14    TS9
         B        FXS5+1
*
FX560    LW,14    T560
         B        FXS5+1
*
FXS5     LW,14    TS5
         STW,14   MSG6
         B        FXOPTION
*
*
SYMB     LW,14    YES
         STW,14   MSG7
         B        X:1
RB       LW,14    YES
         STW,14   MSG8
         B        X:2
RTT      LW,14    YES
         STW,14   MSG9
         B        FXRES
*
*
TC22     BS       04,21,1,87,1,21,X'FF',;
                  20,13,88,29,102,0,94,0,103,2,24,X'FF',;
                  24,10,91,4,89,1,108,2,90,4,95,2,;
                  58,1,92,1,109,2,93,X'FF',;
                  1,2,2,2,3,3,4,1,5,2,6,3,7,3,9,3,8,3,10,X'FF'
*
*
TC22X    BS       1,1,2,2,2,3,3,4,1,5,2,6,3,7,3,9,3,8,3,10,X'FF'
*
*
TUNK     TEXTC    '****'
TCPV     TEXTC    'CP-V'
TCPR     TEXTC    'CP-R'
XXXXXXXF DATA     X'0000000F'
TSYMB    TEXTC    'SYMB'
TRT      TEXTC    'RT'
TRB      TEXTC    'RB'
TXSSS    TEXTC    '***'
TS5      TEXTC    'S5 '
TS67     TEXTC    'S67'
TS9      TEXTC    'S9 '
T560     TEXTC    '560'
YES      TEXTC    'Y'
X0102    DATA     X'01020000'
*
*
RT23     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
          BE      RT23+6
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         LW,4     1
         LW,14    BUFFER,4
         BAL,15   MS:HMSN
         LW,11    13                SAVE R13 TO R11 (MIN)
         XW,14    15                EXCHANGE R14 WITH R15
         LW,10    15                SAVE R15 TO R10 (SEC.)
         LI,13    3
         BAL,15   HEXFIVE
         DATA     TITL23+11
         LB,13    X7AX
         STB,13   TITL23+12         RESTORE ::
         LI,13    2
         LW,14    10                LOAD SEC.
         BAL,15   HEXTWO
         DATA     TITL23+11
         LI,13    3
         LW,14    11                LOAD MIN.
         BAL,15   HEXTWO
         DATA     TITL23+10
         LI,13    0
         LW,14    12                LOAD HOUR
         BAL,15   HEXTWO
         DATA     TITL23+10
*
         LI,4     2
         LW,14    BUFFER,4          YEAR
         SLS,14   -16
         LI,13    3
         BAL,15   HEXTWO
         DATA     TITL23+7
         LW,14    BUFFER,4
         AND,14   XXXXFFFF          AND 0-15 BIT OT
         BAL,15   JD:MD
         STW,15   12                SAVE R15
         LI,13    0
         BAL,15   HEXTWO            CONV. DAY TO DEC.
         DATA     TITL23+7
         LI,13    1
         LW,14    12                LOAD MONTH
         BAL,15   HEXTWO
         DATA     TITL23+6
*
         LI,14    52
         BAL,15   L:PRINT           PRINT TIME STAMP
         DATA     TITL23
         LB,13    BUFFER
         STW,13   SEQFLG            SET SEQFLG CONDITION
         B        CKRTRN
*
*
RT27     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX27
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX27     EQU      %
         BAL,15   TIME
         LI,4     2
         LI,5     0
L27      CI,4     17
         BE       EX1               CK CP-R
X27      CI,4     21
         BE       EX2               CP-V
         LW,14    BUFFER,4
         STW,14   MSG2,5
         AI,4     1
         AI,5     1
         B        L27
EX1      EQU      %
         LB,14    S:SYS             CK SYSTEM
         BEZ      EX2               CP-R
         B        X27               CP-V
EX2      EQU      %
         BAL,15   CT:PRINT
         DATA     TC27
RTRN27   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
*
*
TC27     BS       2,21,1,156,1,21,4,24,1,153,1,1,X'FF',;
                  2,0,X'FF'
*
*
*
RT30     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX30
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX30     EQU      %
         BAL,15   TIME
*
         LI,14    81
         STB,14   TC30,3            SET MSG81
         CW,1     F31               IS THIS TYPE 31
         BE       P31
P31X     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P30X
         BAL,15   CT:PRINT
         DATA     TC30
RTRN30   LB,13    BUFFER
         STW,13   SEQFLG
         LI,14    81
         STB,14   TC30,3            RESTORE MSG81
         B        CKRTRN
*
P30X     BAL,15   CT:PRINT
         DATA     TC30X
         B        RTRN30
*
P31      EQU      %
         LI,14    69
         STB,14   TC30,3            FX MSG69
         STW,0    F31               RESET F31 FLG
         B        P31X
*
*
TC30     BS       3,21,1,81,1,21,X'FF',;
                  24,X'FF',;
                  1,X'FF'
*
TC30X    BS       1,1,X'FF'
*
*
RT31     EQU      %
         STW,1    F31               SET F31 FLG
         B        RT30
*
F31      DATA     0
*
*
RT32     EQU      %
         LW,14    CLISF
         BNEZ     UNX               CLIS
         LW,13    UNASSFLG          CK UNASSO. SECONDARIES
         BEZ      UNX
         BAL,15   CKUNASS           PRINT UNASS. SEC.
         B        NX3201       SKIP ONCE.
*
*
*
UNX      EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX32
         MTW,0    F:FLAG
         BNEZ     NX3201       B: IF SECONDARY FOLLOWS PRIMARY.
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX3201   EQU      %
         BAL,15   L:SPACE
NX32     EQU      %
         BAL,15   TIME
         LI,5     8
         LB,14    BUFFER,5          UNIT ADRS
         AND,14   M6
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG2
         STB,2    MSG2
         LI,5     9
         LB,14    BUFFER,5          UNIT TYPE
         AND,14   M4
         BAL,15   HEXEBC
         SLS,15   16
         STW,15   MSG3
         STB,1    MSG3
         LW,14    BUFFER,2
         SLS,14   -20
         AND,14   M4
         BAL,15   HEXEBC
         STB,15   MSG4,1
         STB,1    MSG4
         LW,14    BUFFER,2
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG5
         LI,4     4
         STB,4    MSG5
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P32X
         BAL,15   CT:PRINT
         DATA     TC32
RTRN32   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P32X     BAL,15   CT:PRINT
         DATA     TC32X
         B        RTRN32
*
TC32     BS       4,47,1,116,X'FF',;
                  20,13,103,0,113,0,103,2,103,0,118,0,102,X'FF',;
                  24,10,32,1,117,2,33,1,34,X'FF',;
                  1,2,2,3,3,4,5,1,4,X'FF'
*
TC32X    BS       1,1,2,2,3,3,4,5,1,4,X'FF'
*
RT41     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX41
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX41     EQU      %
         STB,1    TC41X,1           SET MSG1 FOR TC41X
         STB,2    TC41X,2
         BAL,15   TIME
         STW,2    SAVE5
         LB,13    BUFFER,1          ERR. BYTE CNT
         STW,13   TYCNT
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX41X
         BAL,15   CT:PRINT
         DATA     TC41              PRINT FORMAT
NX41X    EQU      %
         LB,13    BUFFER
         STW,13   SEQFLG
*
*
         LI,6     2
LTYPE    EQU      %
         CW,6     TYCNT
         BE       CKRTRN
*
         LW,5     SAVE5        FETCH COUNT.
         LI,4     0            RESET 4
L41      LW,10    TYTBL,4      FETCH ADDRESS.
         STW,10   ADTL         SECURE IT
         LW,11    BUFFER,5     FETCH THE WORD
         LB,8     11           FETCH TYPE
         CB,8     TYPETBL,4    COMPARE
         BE       *ADTL        BRANCH IF EQUAL
         AI,4     1            BUMP ONE.
         CI,4     7            IS IT 7
         BL       L41          BRANCH IF LESS
         LW,14    TY8C         FETCH THE UNKNOWN TYPE MSG.
         STW,14   MSG2
         LW,14    TY8C+1
         STW,14   MSG2,1
*
FXMSG3   EQU      %
         LW,5     SAVE5
         LW,14    BUFFER,5
         SLS,14   -19               CL
         AND,14   X7
         BAL,15   HEXEBC
         STB,15   MSG3,1
         STB,1    MSG3              BYTE CNT
         LW,5     SAVE5
         LW,14    BUFFER,5
         SLS,14   -16               UN
         AND,14   X7
         BAL,15   HEXEBC
         STB,15   MSG4,1
         STB,1    MSG4              BYTE CNT
         LW,5     SAVE5
         LW,14    BUFFER,5
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,10    4
         STB,10   MSG5
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG5
*
         BAL,15   CT:PRINT
         DATA     TC41X
         AI,6     1
         MTW,1    SAVE5             UPDATE SAVE5 BY 1
         LI,13    20
         STB,13   TC41X,1           MASK MSG1
         LI,13    13
         STB,13   TC41X,2
         B        LTYPE             LOOP FOR ANOTHER TYPE
TY1      EQU      %
         LW,14    TY1C
         STW,14   MSG2
         LW,14    TY1C+1
         STW,14   MSG2A
         B        FXMSG3
*
TY2      LW,14    TY2C
         STW,14   MSG2
         LW,14    TY2C+1
         STW,14   MSG2A
         B        FXMSG3
*
TY3      LW,14    TY3C
         STW,14   MSG2
         LW,14    TY3C+1
         STW,14   MSG2A
         B        FXMSG3
*
TY4      LW,14    TY4C
         STW,14   MSG2
         LW,14    TY4C+1
         STW,14   MSG2A
         B        FXMSG3
*
TY5      LW,14    TY5C
         STW,14   MSG2
         LW,14    TY5C+1
         STW,14   MSG2A
         B        FXMSG3
*
TY6      LW,14    TY6C
         STW,14   MSG2
         LW,14    TY6C+1
         STW,14   MSG2A
         B        FXMSG3
TY7      LW,14    TY7C
         STW,14   MSG2
         LW,14    TY7C+1
         STW,14   MSG2A
         B        FXMSG3
X7       DATA     7
*
*
TYPETBL  BS       1,2,3,4,5,6,7
TYTBL    DATA     TY1,TY2,TY3,TY4,TY5,TY6,TY7
*
TY1C     TEXTC    'CPU   '
TY2C     TEXTC    'MI    '
TY3C     TEXTC    'PI    '
TY4C     TEXTC    'MIOP  '
TY5C     TEXTC    'HSRIOP'
TY6C     TEXTC    'CT    '
TY7C     TEXTC    'SU    '
TY8C     TEXTC    '******'
SAVE5    DATA     0
*
TYCNT    DATA     0
*
TC41     BS       3,21,1,132,1,86,1,21,X'FF',;
                  20,13,113,10,135,X'FF',;
                  24,10,117,2,133,2,134,2,136,X'FF'
TC41X    BS       1,1,1,2,1,3,3,4,3,5,X'FF'
*
*
RT42     EQU      %
         LW,14    CLISF
         BNEZ     UN42
         LW,13    UNASSFLG
         BEZ      UN42
         BAL,15   CKUNASS           PRINT UNASSO. SEC.
         B        NX4201
*
*
*
UN42     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX42
         MTW,0    F:FLAG       B: IF SECONDARY FOLOW PRIMARY
         BNEZ     NX4201
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX4201   EQU      %
         BAL,15   L:SPACE
NX42     EQU      %
         BAL,15   TIME
         LW,14    BUFFER,2          MSW0
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG2
         LI,10    8
         STB,10   MSG2              BYTE CNT
         LW,14    BUFFER,3
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG3
         LI,10    8
         STB,10   MSG3              BYTE CNT
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P42X
         BAL,15   CT:PRINT
         DATA     TC42
RTRN42   EQU      %
         LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P42X     BAL,15   CT:PRINT
         DATA     TC42X
         B        RTRN42
*
*
TC42     BS       4,47,1,138,1,137,X'FF',;
                  20,13,103,0,138,1,50,0,103,X'FF',;
                  24,14,65,7,66,X'FF',;
                  1,2,2,1,3,X'FF'
*
TC42X    BS       1,1,2,2,1,3,X'FF'
*
*
*
RT43     EQU      %
         LW,14    CLISF
         BNEZ     UN43
         LW,13    UNASSFLG
         BEZ      UN43
         BAL,15   CKUNASS           PRINT UNASSO. SEC.
         B        NX4301
*
*
*
UN43     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX43
         MTW,0    F:FLAG       B: IF SECONDARY FOLLOW PRIMARY..
         BNEZ     NX4301
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX4301   EQU      %
         BAL,15   L:SPACE
NX43     EQU      %
         BAL,15   TIME
         LW,14    BUFFER,2
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG2
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG2
         LW,14    BUFFER,3
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG3
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG3
         LI,4     4
         LW,14    BUFFER,4
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG4
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG4
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P43X
         BAL,15   CT:PRINT
         DATA     TC43
RTRN43   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P43X     BAL,15   CT:PRINT
         DATA     TC43X
         B        RTRN43
*
*
TC43     BS       4,47,1,138,1,137,X'FF',;
                  20,13,104,0,138,1,141,0,142,X'FF',;
                  24,13,65,8,66,8,67,X'FF',;
                  1,2,2,1,3,1,4,X'FF'
*
TC43X    BS       1,1,2,2,1,3,1,4,X'FF'
*
RT44     EQU      %
         LI,5     5
         LI,4     0
         STW,4    PISSFL       RESET THE END FLAG......
         STW,4    PASSFL       RESET THE ONCE FLAG.....
         LI,14    8
         STB,14   MSG5,4
         AI,4     12
         BDR,5    %-2
         LW,14    CLISF
         BNEZ     UN44
         LW,13    UNASSFLG
         BEZ      UN44
         BAL,15   CKUNASS           PRINT UNASS. SEC.
         B        NX4401
*
*
*
UN44     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX44
         MTW,0    F:FLAG       B: IF SECONDARY FOLLOW PRIMARY
         BNEZ     NX4401
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX4401   EQU      %
         BAL,15   L:SPACE
         LI,15    TC44         FETCH ADDRESS.
         STW,15   ELMER6
         LI,15    X'FF'
         STB,15   TC44B-1      RESTORE
NX44     EQU      %
         BAL,15   TIME
         LW,14    BUFFER
         AND,14   XXXXFFFF
         LI,13    1
         BAL,15   HEXTWO
         DATA     MSG2
         STB,2    MSG2
*
         LI,6     2            SET THE COUNTER OF TWO.....
JACK0    LI,4     0            RESET MSG'S COUNTER.....
         LI,14    MSG5         SET THE ADDRESS.
         STH,14   FX1,1        IN FX1
         STH,14   FX2,1        IN FX2
*
JACK1    CB,6     BUFFER,1     ALL LOCATIONS IN.......
         BGE      ELMER1       B: IF YES........
         CI,4     5            ALL 5 LOCATIONS MSG'S FILLED...
         BGE      ELMER2       B: IF YES........
         LW,14    BUFFER,6     FETCH THE CONTENTS.
         BAL,15   HEXEBC       CONVERT TO EBCDIC.
         LI,5     8            SET COUNTER 5 TO 8 BYTES.....
FX1      STB,5    MSG5         INTO THE BYTE LOCATION FOR TEXTC SIMULATION
FX2      STB,15   MSG5,5       START TO FILL IN.....
         SLD,14   -8           SHIFT EIGHT TO THE RIGHT
         BDR,5    FX2          BRANCH DECREMENTING....
         AI,4     1            INCREMENT BOTH REGISTERS.
         AI,6     1
         MTW,3    FX1          INCREMENT BY THREE TO NEXT ADDRESS.
         MTW,3    FX2
         B        JACK1        LOOP UNTIL ALL LOCATIONS ACCOUNTED FOR.
*
ELMER1   CI,4     1            FIND OUTIF ONE OR LESS.
         BLE      %+3
         SLS,4    1            MULTIPLY BY TWO...
         LB,15    TC44B,4      REPLACE WITH THE X'FF'
         STB,15   MSG10        SAVE......
         LB,15    TC44XB,4
         STB,15   MSG10,1
         LI,15    X'FF'
         STB,15   TC44B,4      REPLACE.............
         STB,15   TC44XB,4
         MTW,1    PISSFL       SET THE TERMINATOR FLAG.....
*
ELMER2   LW,15    PASSFL       BEEN THRU  HERE BEFORE.....
         BNEZ     ELMER3       B: IF YES.........
         BAL,15   CT:PRINT     PRINT.......
ELMER6   DATA     TC44
         B        ELMER4
ELMER3   BAL,15   CT:PRINT
         DATA     TC44X
ELMER4   MTW,0    PISSFL       TERMINATION TIME......
         BNEZ     ELMER5       B: IF YES...........
         MTW,1    PASSFL       INCREMENT THE PASS FLAG....
         B        JACK0        BRANCH TO JACK 0...........
*
ELMER5   LB,15    MSG10        RESTORE THE SAVED BYTE....
         STB,15   TC44B,4      RESTORE......
         LB,15    MSG10,1
         STB,15   TC44XB,4
         LB,15    BUFFER
         STW,15   SEQFLG       CHANGE SEQFLG...
         LI,15    TC44B-1
         STW,15   ELMER6
         STB,1    TC44B-1
         B        CKRTRN       RETURN.......
*
*
TC44     BS       4,47,1,138,1,137,X'FF',;
                  20,13,139,1,140,X'FF',;
                  24,10,157
         BS       X'FF',1,3,2
TC44B    BS       2,5,1,6,1,7,1,8,1,9,X'FF'
TC44X    BS       1,20,16,20
TC44XB   BS       1,5,1,6,1,7,1,8,1,9,X'FF'
         PAGE
*
*
*
*  THE FOLLOWING ROUTINES ARE FOR CP-V ONLY.
*
*
*
RT10     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX10
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX10     EQU      %
         LI,15    8
         STB,15   MSG3
         BAL,15   TIME
         LB,14    BUFFER,1     COUNT.
         CI,14    2
         BG       BADINDX
P10      EQU      %
         LB,14    BUFFER,3
         BAL,15   HEXEBC
      SLS,15     8
         STB,2    15                BYTE CNT
         STW,15   MSG2
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P10X
         BAL,15   CT:PRINT
         DATA     TC10
*  FOR CODES 03-06 BYPASS NEXT RECORD
         LB,14    BUFFER,3
         CI,14    3
         BL       RTRN10A
         BAL,15   READ:ERF
         CI,15    1
         BNE      REND
RTRN10A  EQU      %
RTRN10   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P10X     BAL,15   CT:PRINT
         DATA     TC10X
         B        RTRN10
BADINDX  LW,14    BUFFER,2          INDX BAD ENTRY
         BAL,15   HEXEBC
         LI,4     8
         STB,4    MSG3
         STB,15   MSG3,4
         SLD,14   -8
         BDR,4    %-2
         B        P10
*
*
TC10     BS       4,21,1,158,1,120,1,21,X'FF',;
                  20,13,78,2,83,X'FF',;
                  24,10,79,2,98,1,112,X'FF',;
                  1,2,2,4,3,X'FF'
*
TC10X    BS       1,1,2,2,4,3,X'FF'
*
*
RT16     EQU      %
         LW,14    CLISF
         BNEZ     UN16              NOT SLIS
         LW,13    UNASSFLG
         BEZ      %+3
         BAL,15   CKUNASS           PRINT UNASSO. SEC.
         BAL,15   L:SPACE      SKIP.....
         LI,5     1            SET 5 TO 1
         LW,13    FSTFLG       CHCK MODEL IO HEADER PRINTOUT...
         BNEZ     UN16         B: IF NOT WANTED.....
         STW,1    FSTFLG       SET FLT FLG.......
         MTW,0    NEWFL        CHECK NEW FLAG........
         BNEZ     NX16         BRANCH IF NOT ZERO
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   FXMDIO       PRNT MODEL/ AND IO ADDRSS.
         STW,0    SEQFLG       RESET THE SEGFLG.......
         B        NX16         B:  CONTINUE... (NO SKIP)
*
*
*
UN16     EQU      %
         LB,13    BUFFER       FETCH TYPE CODE.
         CW,13    SEQFLG       BEEN THRU BEFORE ???
         BE       NX16         BRANCH IF YES.
         MTW,0    F:FLAG
         BNEZ     NX1601       B: IF SEONDARY FOLLOW PRIMARY...
         LI,5     3            LOOP TO SPACE.
NX1601   BAL,15   L:SPACE      SKIP.......
         BDR,5    %-1
NX16     BAL,15   TIME         SET UP THE TIME.
         STW,0    PASSFL       RESET PASS FLAG.
         STW,0    PISSFL       RESET TERMINATION FLAG.
         LW,14    BUFFER       FETCH IO ADDRESS.
         AND,14   XXXXFFFF     AND IT.
         BAL,15   HEXEBC       CONVERT
         LW,5     15           TRANSFER INTO THE REGISTER 5
         BAL,15   STMSG4       SET UP IO ADDRESS.
         DATA     MSG2           INTO MSG2
         LI,4     4            SET UP THE BYTE COUNT.
         STB,4    MSG2
         LB,4     BUFFER,1     FETCH THE WORD COUNT FROM RECORDS
         STW,4    SAVE16       SAVE INTO THE WORD COUNT.
         LI,6     2            SET UP INDEX 6
RT16:4   LI,4     0            RESET INDEX 4
         LI,14    MSG3         SET UP MSG3 STARTING LOCATION.
         STH,14   F161,1
         STH,14   F162,1
RT16:1   CW,6     SAVE16       ALL WORDS IN ???
         BGE      RT16:5       BRANCH IF TERMINATION.
         CI,4     4            ALL 4 WORDSIN FOR / ROUND.
         BGE      RT16:2       BRANCH TO PRINT IF ROUND READY.
         LW,14    BUFFER,6     FETCH THE WORDS
         BAL,15   HEXEBC       CONVERT
         LI,5     8            SET UP INDEX 5
F161     STB,5    MSG3         SET UP BYTE COUNT.
F162     STB,15   MSG3,5       SET UP BYTES CHARACTERS.
         SLD,14   -8           SHIFT RIGHT 8 BITS
         BDR,5    F162
         AI,4     1            INCREMENT INDEX 4
         AI,6     1            INCREMENT INDEX 6
         MTW,3    F161         SET UP NEXT OUTPUT BUFFER.
         MTW,3    F162
         B        RT16:1
*
*
RT16:2   LW,15    PASSFL       BEEN PRINT BEFORE.
         BNEZ     RT16:3       BRANCH IF YES.
         LB,13    BUFFER       HEADER PRINTED YET ??
         CW,13    SEQFLG
         BE       P16X         BRANCH IF YES.
         LI,13    X'FF'        SET UP TERMINATION CHARACTER.
         STB,13   TC16X
         BAL,15   CT:PRINT     PRINT.
         DATA     TC16
         B        P16A
P16X     LI,13    1            SET UP OUTPUT.
         STB,13   TC16X
         BAL,15   CT:PRINT     PRINT (NO HEADER)
         DATA     TC16X
P16A     LB,13    BUFFER       BEEN THRU BEFORE.
         STW,13   SEQFLG       SET UP THE THRU FLAG.
         B        RT16:94
*
*
*
RT16:3   BAL,15   CT:PRINT     PRINT ONLY THE SENSE INFO.
         DATA     TC16X1
RT16:94  MTW,0    PISSFL       TERMINATION FLAG SET.
         BNEZ     RT16EXT      BRANCH IF YES.
         MTW,1    PASSFL       INCREMENT PASS FLAG.
         B        RT16:4       DO ANOTHER.
*
*
*
RT16:5   SLS,4    1            TERMINATION.. MULTIPLY COUNT BY TWO
         LB,15    AXE:0,4      SAVE AND LATER RESTORE.
         STB,15   MSG10
         LB,15    AXE:1,4      SAVE AND AT EXIT RESTORE.
         STB,15   MSG10,1
         LI,15    X'FF'
         STB,15   AXE:0,4      SET UP TERMINATION BYTE.
         STB,15   AXE:1,4
         MTW,1    PISSFL       SET TERMINATION FLAG.
         B        RT16:2       PRINT.
*
RT16EXT  LB,15    MSG10
         STB,15   AXE:0,4
         LB,15    MSG10,1
         STB,15   AXE:1,4
         B        CKRTRN
*
*
TC16     GEN,8,8,8,8  4,47,1,51
         BS       X'FF',20,13,26,X'FF',24,10,32
         BS       2,56,0,54,1,55,0,56
TC16X    BS       X'FF',1,2,2
AXE:0    BS       2,3,1,4,1,5,1,6,X'FF'
TC16X1   BS       1,20,17,20
AXE:1    BS       1,3,1,4,1,5,1,6,X'FF'
SAVE16   DATA     0
*
*
RT1A     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX1A
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX1A     EQU      %
         BAL,15   TIME
         LI,6     10
         LW,4     BUFFER,6          ACCOUNT INEBC
         LI,7     11
         LW,5     BUFFER,7
         BAL,15   STMSG8
         DATA     MSG2
         LI,13    8
         STB,13   MSG2              BYTE CNT
         LI,4     12
         LDCTX,14 BUFFER,4
         BAL,15   HEXEBC            DCT INDX
         SLS,15   8
         STW,15   MSG3
         STB,2    MSG3
         LW,14    BUFFER,4
         LSECTA,15 14
         LW,14    15
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4
         LI,8     4
         STB,8    MSG4
         LI,6     27
         LH,14    BUFFER,6          MODE
         AND,14   XXXXFFFF
         LI,13    1
         BAL,15   HEXTWO
         DATA     MSG5
         STB,2    MSG5
         LI,6     26
         LH,14    BUFFER,6          ORG
         AND,14   XXXXFFFF
         LI,13    1
         BAL,15   HEXTWO
         DATA     MSG6
         STB,2    MSG6
         LB,14    BUFFER,3
         SLS,14   -1                SHIFT 1 BIT TO RIGHT
         STB,14   BUFFER,3          SUBCODE
         LH,14    BUFFER,1          ERR CODE
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG7
         LI,4     4
         STB,4    MSG7
*
         LI,5     0            CLEAR 5
         LI,6     2            SET 6
L1A      CI,6     10           DONE......
         BGE      OUT1A        B: GREATER..EQUAL...
         LW,4     BUFFER,6     FETCH WORD
         STW,4    MSG8,5
         AI,6     1            BUMP
         AI,5     1            BUMP
         B        L1A          LOOP TILL ALL DONE.......
*
OUT1A    EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P1AX
         BAL,15   CT:PRINT
         DATA     TC1A
RTRN1A   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
P1AX     BAL,15   CT:PRINT
         DATA     TC1AX
         B        RTRN1A
*
*
TC1A     BS       X'8C',21,1,143,1,144,1,21,X'FF',;
                  20,23,82,4,146,14,120,X'FF',;
                  24,10,145,3,83,2,99,1,32,2,147,2,148,2,59,16,;
                  56,0,142,0,143,1,117,0,56,0,142,X'FF',;
                  1,2,2,2,3,5,4,7,5,4,6,3,7,17,8,X'FF'
*
TC1AX    BS       1,1,2,2,2,3,5,4,7,5,4,6,3,7,17,8,X'FF'
*
*
RT1B     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX1B
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX1B     EQU      %
         BAL,15   TIME
         LB,14    BUFFER,3          SYMB. INDX
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4
         LI,10    4
         STB,10   MSG4
         LW,14    BUFFER,2
         LSECTA,15 14
         LW,14     15
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         LI,4     4
         STB,4    MSG3
         LDCTX,14 BUFFER,2          DCT INDEX
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG2
         LI,4     4
         STB,4    MSG2
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P1BX
         BAL,15   CT:PRINT
         DATA     TC1B
RTRN1B   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P1BX     BAL,15   CT:PRINT
         DATA     TC1BX
         B        RTRN1B
*
*
TC1B     BS       4,21,1,96,1,144,1,21,X'FF',;
                  20,13,82,4,97,2,58,X'FF',;
                  24,10,83,2,99,2,82,X'FF',;
                  1,2,2,3,3,2,4,X'FF'
*
TC1BX    BS       1,1,2,2,3,3,2,4,X'FF'
RT1D     EQU      %
         STW,2    F19               SET TYPE FLG 1D
         B        RT17
         PAGE
*
RT1E     EQU      %
         STW,1    F1E               SET F1E FLAG
         B        RT20
*
F1E      DATA     0
*
*
P1E      EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P1EX
         BAL,15   CT:PRINT
         DATA     TC1E
RTRN1E   LB,13    BUFFER
         STW,13   SEQFLG
         STW,0    F1E               RESET FLG
         B        CKRTRN
*
P1EX     BAL,15   CT:PRINT
         DATA     TC1EX
         B        RTRN1E
*
*
TC1E     BS       4,21,1,110,1,111,1,21,X'FF',;
                  24,1,114,5,111,X'FF',;
                  110,1,112,4,110,X'FF',;
                  1,2,2,X'FF'
*
TC1EX    BS       1,1,2,2,X'FF'
*
*
RT1F     EQU      %
         STW,1    F1F          SET F1F FLAG.........
         LW,14    CLISF
         BNEZ     RT20
         LW,13    UNASSFLG
         BEZ      RT20
         BAL,15   CKUNASS           PRINT UNASSO. SEC.
         B        NX2001
*
F1F      DATA     0
*
*
P1F      EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P1FX
         BAL,15   CT:PRINT
         DATA     TC1F
RTRN1F   LB,13    BUFFER
         STW,13   SEQFLG
         STW,0    F1F               RESET FLG
         B        CKRTRN
*
P1FX     BAL,15   CT:PRINT
         DATA     TC1FX
         B        RTRN1F
*
*
TC1F     BS       4,47,1,115,1,111,X'FF',;
                  24,1,114,X'FF',;
                  115,5,42,X'FF',;
                  1,2,2,X'FF'
*
TC1FX    BS       1,1,2,2,X'FF'
*
*
RT20     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX20
         MTW,0    F1F          THIS 1F TYPE CODE
         BEZ      %+3          B: IF NOT
         MTW,0    F:FLAG       SECONDARY TO FOLLOW PRIMARY..
         BNEZ     NX2001       B: IF YES.....
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX2001   EQU      %
         BAL,15   L:SPACE
NX20     EQU      %
         BAL,15   TIME
         LI,13    1
         LW,14    BUFFER
         AND,14   XXXXFFFF
         BAL,15   HEXFIVE
         DATA     MSG2
         LI,4     5
         STB,4    MSG2
         CW,1     F1E               IS THIS TYPE 1E
         BE       P1E               CONTINUE RT1E ROUTINE
         CW,1     F1F               IS THIS TYPE 1F
         BE       P1F               CONTINUE RT1F ROUTINE
P20      EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P20X
         BAL,15   CT:PRINT
         DATA     TC20
RTRN20   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P20X     EQU      %
         BAL,15   CT:PRINT
         DATA     TC20X
         B        RTRN20
*
*
TC20     BS       3,21,1,107,1,21,X'FF',;
                  24,X'FF',;
                  1,X'FF'
*
TC20X    BS       1,1,X'FF'
*
*
RT24     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX24
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX24     EQU      %
         BAL,15   TIME
         LB,14    BUFFER,3          TYPE CODE
         BEZ      TY0          B: IF ZERO.....
         LW,14    BUFFER,3
         SLS,14   -16
         LI,13    1
         BAL,15   HEXFIVE
         DATA     MSG2
         LI,4     5
         STB,4    MSG2              BYTE CNT
         LI,5     10
         STB,5    TC24+7            FIX SPACES
         STB,5    TC24X+1           FIX SPACES
         B        P24
TY0      LW,14    BUFFER,3
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG2
         LI,4     8
         STB,4    MSG2              BYTE CNT
         LI,5     7
         STB,5    TC24+7
         STB,5    TC24X+1           FIX SPACES
P24      LW,14    BUFFER,2          REL. SEC. ADRS
         BAL,15   HEXEBC
         STB,15   MSG3B        STORE THE LAST BYTE INTO MSG3B..
         SLD,14   -8           SHIFT RIGHT 1 BYTE.....
         LI,4     8            SET REG 4 TO A 8
         STB,4    14           STOE TH BYTE INTO 14.(TEXTC)......
         STW,14   MSG3
         STW,15   MSG3A
         LB,14    BUFFER,3          FIX TYPE CODE
         BAL,15   HEXEBC
         STB,15   MSG4,1
         STB,1    MSG4              BYTE CNT
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P24X
         BAL,15   CT:PRINT
         DATA     TC24
RTRN24   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P24X     BAL,15   CT:PRINT
         DATA     TC24X
         B        RTRN24
*
*
TC24     BS       4,21,1,80,1,21,X'FF',;
                  20,13,146,3,150,3,79,X'FF',;
                  24,10,99,1,32,2,151,2,59,X'FF',;
                  1,2,3,7,2,5,4,X'FF'
*
TC24X    BS       1,1,2,3,7,2,5,4,X'FF'
*
*
RT28     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX28
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX28     EQU      %
         STB,1    TC28X,1           INITIALIZE MSG1
         STB,2    TC28X,2
         BAL,15   TIME
         LI,4     2                 INITIALIZE X4=2
         LB,13    BUFFER,1          COUNT
         STW,13   TYCNT             SAVE COUNT
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX28X+2           SKIP TITLE PRINTOUTS
NX28X    EQU      %
         BAL,15   CT:PRINT
         DATA     TC28
*
         LB,13    BUFFER
         STW,13   SEQFLG
L28X     CW,4     TYCNT
         BE       CKRTRN
         LW,14    BUFFER,4
         SLS,14   -16               I/O ADRS
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG2
         LI,5     4
         STB,5    MSG2              BYTE CNT
         LW,14    BUFFER,4          DCT INDX
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         LI,5     4
         STB,5    MSG3
         AI,4     1                 ADD 1 TO X4
         STW,0    SGNFL        RESET THE SIGN FLAG.
         LW,14    BUFFER,4          I/O COUNT
         BGEZ     %+3          BRANCH IF GRETER THAN OR E. ZERO
         LCW,14   14           FETCH THE TWO'S COMPLEMENT
         STW,1    SGNFL        SET SIGN FLAG.
         LI,13    1
         BAL,15   HEXDECE
         DATA     MSG4
         LI,10    10
         STB,10   MSG4              BYTE CNT
         MTW,0    SGNFL        CHCK SIGN FLAG.
         BEZ      %+3          BANCH IF ZERO
         LI,4     X'D5'
         STB,4    MSG4,1
         BAL,15   CT:PRINT
         DATA     TC28X
         AI,4     1
         LI,13    20
         STB,13   TC28X,1           MASK MSG1
         LI,13    13                NO. 13
         STB,13   TC28X,2
         B        L28X              LOOP FOR NEXT I/O ADRS
*
*
TC28     BS       3,21,1,26,1,105,1,21,X'FF',;
                  20,13,26,3,82,4,26,X'FF',;
                  24,10,32,2,83,2,42,X'FF'
*
TC28X    BS       1,1,2,2,2,3,3,4,X'FF'
*
*
RT34     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX34
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX34     EQU      %
         BAL,15   TIME
         LI,5     5
         LH,14    BUFFER,5          I/O ADRS
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG2
         LI,4     4
         STB,4    MSG2
         LH,14    BUFFER,4           O STATUS
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         STB,4    MSG3
         LB,14    BUFFER,2          CC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG4,1
         STB,1    MSG4              BYTE CNT
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P34X
         BAL,15   CT:PRINT
         DATA     TC34
RTRN34   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P34X     BAL,15   CT:PRINT
         DATA     TC34X
         B        RTRN34
*
*
TC34     BS       4,21,1,100,0,159,0,39,0,160,1,21,X'FF',;
                  20,13,26,3,103,0,39,0,103,X'FF',;
                  24,10,32,2,33,1,34,X'FF',;
                  1,2,2,2,3,1,4,X'FF'
*
TC34X    BS       1,1,2,2,2,3,1,4,X'FF'
*
*
RT35     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX35
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX35     EQU      %
         BAL,15   TIME
         LB,14    BUFFER,2          UNIT ADRS
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG2
         STB,2    MSG2              BYTE CNT
         LB,14    BUFFER,3          UNIT TYPE
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG3
         STB,2    MSG3              BYTE CNT
         LW,14    BUFFER,2
         SLS,14   -24               RIO CC
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG4,1
         STB,1    MSG4
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P35X
         BAL,15   CT:PRINT
         DATA     TC35
RTRN35   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P35X     BAL,15   CT:PRINT
         DATA     TC35X
         B        RTRN35
*
*
TC35     BS       4,21,1,100,0,159,0,101,0,160,1,21,X'FF',;
                  20,13,103,0,113,0,103,4,101,X'FF',;
                  24,10,32,1,117,4,34,X'FF',;
                  1,2,2,3,3,6,4,X'FF'
*
TC35X    BS       1,1,2,2,3,3,6,4,X'FF'
*
*
RT36     EQU      %
         STW,1    F36               SET F39 FLG
         B        RT39
*
F36      DATA     0
*
*
RT37     EQU      %
         STW,1    F37               SET F37 FLG
         B        RT39
*
F37      DATA     0
*
*
RT38     EQU      %
         STW,1    F38               SET F38 FLG
         B        RT39
*
F38      DATA     0
*
*
RT39     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX39
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX39     EQU      %
         BAL,15   TIME
         BAL,15   MOD:IN       FETCH / CONVERT / STORE   MODEL NO.
         LI,5     4
         STB,5    MSG2              BYTE CNT
         LI,5     5            SET REGITER COUNT 5 T A 5
         LH,14    BUFFER,5          I/O ADRS
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,4     4
         STB,4    MSG3              BYTE CNT
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
         LI,5     8
         LH,14    BUFFER,5          I/O STAT.
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LI,4     4
         STB,4    MSG4
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG4
         LW,14    BUFFER,2          I/O CC
         SLS,14   -24
         BAL,15   HEXEBC
         SLS,15   -8
         STB,15   MSG5,1
         STB,1    MSG5              BYTE CNT
         LI,4     4
         LW,14    BUFFER,4
         AND,14   XXXXFFFF          BYTE REM.
         BAL,15   HEXEBC
         STB,4    MSG6
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG6
         LW,14    BUFFER,3
         AND,14   XX7FFFFF
         BAL,15   HEXEBC
         SLD,14   16
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG7
         LI,6     6
         STB,6    MSG7
         LW,14    BUFFER,3
         SLS,14   -25               SUBCHAN STATUS
         BAL,15   HEXEBC
         STB,2    MSG8              BYTE CNT
         STB,15   MSG8,2            2ND BYTE
         SLS,15   -8
         STB,15   MSG8,1            1ST BYTE
*
         CW,1     F36               CK ERROR TYPES 36-39
         BE       P36
         CW,1     F37
         BE       P37
         CW,1     F38
         BE       P38
         LI,13    27                FIX 'HIO'
         STB,13   TC39+1,3
P39      EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P39X
         BAL,15   CT:PRINT
         DATA     TC39
RTRN39   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P39X     BAL,15   CT:PRINT
         DATA     TC39X
         B        RTRN39
*
TC39     BS       4,21,1,100,0,159,0,27,0,160,1,21,X'FF',;
                  20,19,26,3,103,0,26,0,103,2,31,13,29,X'FF',;
                  24,10,25,3,32,2,33,1,34,2,37,2,35,1,36,2,33,X'FF',;
                  1,2,2,2,3,2,4,1,5,3,6,3,7,3,8,X'FF'
*
TC39X    BS       1,1,2,2,2,3,2,4,1,5,3,6,3,7,3,8,X'FF'
*
*
P36      LI,13    22                FIX 'SIO'
         STB,13   TC39+1,3
         STW,0    F36               CLEAR F36
         B        P39
*
*
P37      LI,13    44                FIX (TIO'
         STB,13   TC39+1,3
         STW,0    F37               CLEAR F37
         B        P39
*
*
P38      LI,13    28                FIX 'TDV'
         STB,13   TC39+1,3
         STW,0    F38               CLEAR F38
         B        P39
*
*
RT50     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX50
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX50     EQU      %
         BAL,15   TIME
         LI,4     4
         LH,14    BUFFER,4          USED ID
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         STB,4    MSG2
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG2
         LI,5     5
         LH,14    BUFFER,5          ENTRY CNT
         AND,14   XXXXFFFF
         LI,13    1
         BAL,15   HEXFIVE
         DATA     MSG3
         LI,5     5
         STB,5    MSG3              BYTE CNT
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P50X
         BAL,15   CT:PRINT
         DATA     TC50
RTRN50   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P50X     BAL,15   CT:PRINT
         DATA     TC50X
         B        RTRN50
*
*
TC50     BS       4,21,1,122,1,21,X'FF',;
                  20,13,123,2,112,X'FF',;
                  24,10,108,2,42,X'FF',;
                  1,2,2,2,3,X'FF'
*
TC50X    BS       1,1,2,2,2,3,X'FF'
*
*
RT51     EQU      %
         STW,1    F51               SET F51 FLG
         B        RT52
*
F51      DATA     0
*
*
RT52     EQU      %
         LW,13    CLISF
         BNEZ     RT52YA
         LW,13    FSTFLG
         BNEZ     RT52YA
         STW,0    SEQFLG
RT52YA   EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX52
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX52     EQU      %
         BAL,15   TIME
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.
         LI,5     4
         STB,5    MSG2              BYTE CNT
         LW,14    BUFFER,2
         SLS,14   -31
         CW,1     14                IS F=1
         BE       Y52
         LW,13    NO
         STW,13   MSG4
         B        FXM4
Y52      LW,13    YES
         STW,13   MSG4              YES
FXM4     STB,1    MSG4              BYTE CNT
         LW,14    BUFFER,2
         AND,14   XXXXFFFF          I/O ADRS
         BAL,15   HEXEBC
         LI,4     4
         STB,4    MSG3
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG3
*
         LW,13    CLISF
         BEZ      P52S
         CW,1     F51               IS THIS TYPE 51
         BE       P51
         LI,13    127               FX 'RETURNED'
         STB,13   TC52,3
*
P52      LB,13    BUFFER
         CW,13    SEQFLG
         BE       P52X
         BAL,15   CT:PRINT
         DATA     TC52
RTRN52   LB,13    BUFFER
         STW,13   SEQFLG
         B        RETURN
*
P52X     BAL,15   CT:PRINT
         DATA     TC52X
         B        RTRN52
*
*
TC52     BS       4,21,1,127,1,125,1,21,X'FF',;
                  20,18,26,X'FF',;
                  24,10,25,2,83,2,126,X'FF',;
                  1,2,2,2,3,5,4,X'FF'
*
TC52X    BS       1,1,2,2,2,3,5,4,X'FF'
*
P51      EQU      %
         LI,13    124
         STB,13   TC52,3            FIX 'PARTITIONED'
         STW,0    F51               RESET F51
         B        P52
*
*
P52S     EQU      %
         CW,1     F51
         BE       P51S
         LI,13    127
         STB,13   TS52,3            FX 'RETURNED'
*
P51SX    EQU      %
         LW,13    FSTFLG
         BNEZ     P52SX
         BAL,15   FXMDIO
         BAL,15   CT:PRINT
         DATA     TS52
RTN52    STW,1    FSTFLG
         LB,13    BUFFER
         STW,13   SEQFLG
         B        SRTRN
*
P52SX    LB,13    BUFFER
         CW,13    SEQFLG
         BNE      P51SX+3
         BAL,15   CT:PRINT
         DATA     TS52X
         B        RTN52
*
P51S     LI,13    124
         STB,13   TS52,3            FX 'PARTITIONED'
         STW,0    F51
         B        P51SX
*
TS52     BS       3,21,1,127,1,125,1,21,X'FF',;
                  24,10,126,X'FF',;
                  1,5,4,X'FF'
*
TS52X    BS       1,1,5,4,X'FF'
*
*
NO       TEXTC    'N'
XXFFFFFF DATA     X'00FFFFFF'
*
RT53     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX53
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX53     EQU      %
         BAL,15   TIME
         LW,14    BUFFER,2
         SLS,14   -24               USER NO.
         BAL,15   HEXEBC
         STB,15   MSG2,2
         SLS,15   -8
         STB,15   MSG2,1
         STB,2    MSG2              BYTE CNT
         LW,14    BUFFER,2
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         SLD,14   16
         LW,5     15
         LW,4     14
         BAL,15   STMSG8
         DATA     MSG3
         LI,6     6
         STB,6    MSG3              BYTE CNT
*
         LW,14    BUFFER,3
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG4
         LI,4     8
         STB,4    MSG4
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P53X
         BAL,15   CT:PRINT
         DATA     TC53
RTRN53   LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
*
P53X     BAL,15   CT:PRINT
         DATA     TC53X
         B        RTRN53
*
*
TC53     BS       4,21,1,128,1,144,1,21,X'FF',;
                  20,13,123,2,121,4,130,X'FF',;
                  24,10,129,3,32,4,131,1,32,X'FF',;
                  1,2,2,4,3,2,4,X'FF'
*
TC53X    BS       1,1,2,2,4,3,2,4,X'FF'
*
*
         PAGE
RT26     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX26
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX26     EQU      %
         LW,14    BUFFER            IO ADR
         AND,14   XXXXFFFF
         BAL,15   HEXEBC
         LW,5     15
         BAL,15   STMSG4
         DATA     MSG2
         LI,4     4
         STB,4    MSG2
         LI,4     5                 CURR CMD DW 1
         LW,14    BUFFER,4
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG3
         LI,10    8
         STB,10   MSG3
         LI,4     6
         LW,14    BUFFER,4          CURR CMD DW 2
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG4
         STB,10   MSG4
         LCI      2
         LM,14    BUFFER,3          WK STAT NAME
         SCD,14   -8
         LB,4     14
         STB,4    MSG5B
         LCI      2
         STM,14   MSG5
         STB,10   MSG5
         LW,14    BUFFER,2          RB:FLAGS
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG6
         LI,10    8
         STB,10   MSG6
         LI,4     7
         LW,8     BUFFER,4          RP1,RP2,RP3,RP4
         LB,14    8
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG7
         STB,2    MSG7
         LB,14    8,1               RP2
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG8
         STB,2    MSG8
         LB,14    8,2               RP3
                  BAL,15            HEXEBC
         SLS,15   8
         STW,15   MSG9
         STB,2    MSG9
         LB,14    8,3               RP4
         BAL,15   HEXEBC
         SLS,15   8
         STW,15   MSG10
         STB,2    MSG10
*
         BAL,15   TIME
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P26X
         BAL,15   CT:PRINT
         DATA     TC26
RTRN26   EQU      %
         LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
P26X     EQU      %
         BAL,15   CT:PRINT
         DATA     TC26X
         B        RTRN26
*
TC26     BS       04,21,1,163,1,21,X'FF',;
                  20,13,26,3,104,0,45,0,104,2,164,12,;
                  142,0,166,0,103,0,104,X'FF',;
                  24,10,32,5,65,8,66,8,117,4,165,2,;
                  65,2,66,2,67,2,68,X'FF',;
                  1,2,2,2,3,1,4,2,5,2,6,2,7,1,8,1,9,1,10,X'FF'
TC26X    BS       1,1,2,2,2,3,1,4,2,5,2,6,2,7,1,8,1,9,1,10,X'FF'
         PAGE
RT49     EQU      %
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       NX49
         BAL,15   L:SPACE
         BAL,15   L:SPACE
         BAL,15   L:SPACE
NX49     EQU      %
         LW,14    BUFFER,2          # OF ERRORS
         BAL,15   HEXEBC
         SLD,14   8
         BAL,4    STMSG6
         DATA     MSG2
         LI,10    5                 CORRECT THE COUNT
         STB,10   MSG2
         LW,14    BUFFER,3          LOG OR OF ADR
         BAL,15   HEXEBC
         BAL,4    STMSG6
         DATA     MSG3
         LI,4     5
         LW,14    BUFFER,4          LOG OR OF CONTENTS
         BAL,15   HEXEBC
         LI,10    8
         STB,10   MSG4
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG4
         LI,4     4
         LW,14    BUFFER,4          LOG AND OF ADR
         BAL,15   HEXEBC
         BAL,4    STMSG6
         DATA     MSG5
         LI,4     6
         LW,14    BUFFER,4          LOG AND OF CONTENTS
         BAL,15   HEXEBC
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG6
         STB,10   MSG6
         LI,4     4*7
         LB,14    BUFFER,4          CC OF LOWEST
         BAL,15   HEXEBC
         SLS,15   8
         STB,1    15
         STW,15   MSG7
         LI,4     7
         LW,14    BUFFER,4          ADR OF LOW
         AND,14   XX7FFFFF
         BAL,15   HEXEBC
         BAL,4    STMSG6
         DATA     MSG8
         LI,4     8
         LW,14    BUFFER,4          CONTENTS OF LOW
         BAL,15   HEXEBC
         STB,10   MSG9
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG9
         LI,4     4*9
         LB,14    BUFFER,4          CC OF HIGH
         BAL,15   HEXEBC
         SLS,15   8
         STB,1    15
         STW,15   MSG10
         LI,4     9
         LW,14    BUFFER,4          ADR OF HIGH
         AND,14   XX7FFFFF
         BAL,15   HEXEBC
         BAL,4    STMSG6
         DATA     MSG11
         LI,4     10
         LW,14    BUFFER,4          CONTENTS OF HIGH
         BAL,15   HEXEBC
         STB,10   MSG12
         LW,4     14
         LW,5     15
         BAL,15   STMSG8
         DATA     MSG12
         BAL,15   TIME
*
         LB,13    BUFFER
         CW,13    SEQFLG
         BE       P49X
         BAL,15   CT:PRINT
         DATA     TC49
RTRN49   EQU      %
         LB,13    BUFFER
         STW,13   SEQFLG
         B        CKRTRN
P49X     EQU      %
         BAL,15   CT:PRINT
         DATA     TC49X
         B        RTRN49
*
TC49     BS       X'84',47,1,138,1,60,1,168,1,47,X'FF',;
                  20,13,139,2,103,0,169,1,170,0,104,1,103,0,169,1,171,;
                  0,103,1,103,0,173,1,174,1,175,0,104,2,;
                  103,0,173,1,174,1,176,0,103,X'FF',;
                  24,10,157,3,32,2,172,2,32,2,172,1,34,2,;
                  32,2,172,2,34,2,32,2,172,X'FF',;
                  1,2,2,1,3,1,4,1,5,1,6,1,7,2,8,1,9,;
                  2,10,2,11,1,12,X'FF'
TC49X    BS       1,1,2,2,1,3,1,4,1,5,1,6,1,7,2,8,1,9,;
                  2,10,2,11,1,12,X'FF'
         END      CLIS:0

