         PROC                                                           RAD00010
E9$RAD   NAME                                                           RAD00020
         USING *,6                                                      RAD00030
E9$RAPCS DS    0XL76               PROGRAM CHECK ISLAND CODE SAVE AREA  RAD00040
E9$RPSW  EQU   E9$RAPCS+4                                               RAD00050
E9$RAPPS DC    XL8'0'              PSW SAVE AREA                        RAD00060
E9$RAPR0 DC    XL4'0'              PCIC REG 0                           RAD00070
E9$RAPR1 DC    XL4'0'              PCIC REG 1                           RAD00080
E9$RAPR2 DC    XL4'0'              PCIC REG 2                           RAD00090
E9$RAPR3 DC    XL4'0'              PCIC REG 3                           RAD00100
E9$RAPR4 DC    XL4'0'              PCIC REG 4                           RAD00110
E9$RAPR5 DC    XL4'0'              PCIC REG 5                           RAD00120
E9$RAPR6 DC    XL4'0'              PCIC REG 6                           RAD00130
E9$RAPR7 DC    XL4'0'              PCIC REG 7                           RAD00140
E9$RAPR8 DC    XL4'0'              PCIC REG 8                           RAD00150
E9$RAPR9 DC    XL4'0'              PCIC REG 9                           RAD00160
E9$RAPRA DC    XL4'0'              PCIC REG A                           RAD00170
E9$RAPRB DC    XL4'0'              PCIC REG B                           RAD00180
E9$RAPRC DC    XL4'0'              PCIC REG C                           RAD00190
E9$RAPRD DC    XL4'0'              PCIC REG D                           RAD00200
E9$RAPRE DC    XL4'0'              PCIC REG E                           RAD00210
E9$RAPRF DC    XL4'0'              PCIC REG F                           RAD00220
*********************************************************************** RAD00230
E9$RAOCS DS    0XL76               OP COM ISLAND CODE SAVE AREA         RAD00240
E9$RAOPS DC    XL8'0'              PSW SAVE AREA                        RAD00250
E9$RAOR0 DC    XL4'0'              OPIC REG 0                           RAD00260
E9$RAOR1 DC    XL4'0'              OPIC REG 1                           RAD00270
E9$RAOR2 DC    XL4'0'              OPIC REG 2                           RAD00280
E9$RAOR3 DC    XL4'0'              OPIC REG 3                           RAD00290
E9$RAOR4 DC    XL4'0'              OPIC REG 4                           RAD00300
E9$RAOR5 DC    XL4'0'              OPIC REG 5                           RAD00310
E9$RAOR6 DC    XL4'0'              OPIC REG 6                           RAD00320
E9$RAOR7 DC    XL4'0'              OPIC REG 7                           RAD00330
E9$RAOR8 DC    XL4'0'              OPIC REG 8                           RAD00340
E9$RAOR9 DC    XL4'0'              OPIC REG 9                           RAD00350
E9$RAORA DC    XL4'0'              OPIC REG 10                          RAD00360
E9$RAORB DC    XL4'0'              OPIC REG 11                          RAD00370
E9$RAORC DC    XL4'0'              OPIC REG 12                          RAD00380
E9$RAORD DC    XL4'0'              OPIC REG 13                          RAD00390
E9$RAORE DC    XL4'0'              OPIC REG 14                          RAD00400
E9$RAORF DC    XL4'0'              OPIC REG 15                          RAD00410
*********************************************************************** RAD00420
E9$RALUT DC    A(E9$RLUT)          LOG UNIT TABLE ADDRESS               RAD00430
E9$RCINS DC    XL6'0'              CURRENT INSTRUCTION                  RAD00440
E9$ROP   EQU   E9$RCINS            OP CODE BYTE POSITION                RAD00450
E9$RDA   EQU   E9$RCINS+1          DEVICE ADDRESS POSITION              RAD00460
E9$RFC   EQU   E9$RCINS+3          FUNC CODE POSITION                   RAD00470
E9$RTYPE DC    XL2'0'              SYSTEMS TYPE INFO & +1               RAD00480
*********************************************************************** RAD00490
*   TAG E9$RTYPE (BYTE 0) BREAKDOWN    *    *    *    *    *    *     * RAD00500
*        BIT 0  = EXEC 1               *    *    *    *    *    *     * RAD00510
*        BIT 1  = EXEC 2               *    *    *    *    *    *     * RAD00520
*        BIT 2  = NCOS/COS             *    *    *    *    *    *     * RAD00530
*        BIT 3  = MOS                  *    *    *    *    *    *     * RAD00540
*        BIT 4 = 1004 LVB ISSUED VIA L CARD                             RAD00550
*        BIT 5 = 0711 EQUIV ISSUED VIA L CARD                           RAD00560
*        BIT 6 = ISSUE PRNTR141 VFB                                     RAD00570
*        BIT 7 = ISSUE PRNTR681 VFB                                     RAD00580
*********************************************************************** RAD00590
*   TAG E9$RTYPE (BYTE 1) BREAKDOWN    *    *    *    *    *    *     * RAD00600
*        BIT 0  = 8410                 *    *    *    *    *    *     * RAD00610
*        BIT 1  = 8411/14              *    *    *    *    *    *     * RAD00620
*        BIT 2  = TAPE                 *    *    *    *    *    *     * RAD00630
*        BIT 3  = TAPE ON DISC LOAD    *    *    *    *    *    *     * RAD00640
*        BIT 4  = SERIAL READER        *    *    *    *    *    *     * RAD00650
*        BIT 5  = 1001                 *    *    *    *    *    *     * RAD00660
*        BIT 6  = 1004                 *    *    *    *    *    *     * RAD00670
*        BIT 7  = (0=6 LPI 1=8 LPI)    *    *    *    *    *    *     * RAD00680
*********************************************************************** RAD00690
E9$RCFST DC    XL4'0'              CURRENT FUNC & STATUS/TYPE           RAD00700
E9$RSATG DC    A(E9$RGET)          ADDRESS OF SAT GET CODE              RAD00710
E9$RSATP DC    A(E9$RPUT)          ADDRESS OF SAT PUT CODE              RAD00720
E9$RTRTB DC    A(E9$RTBRD)                                              RAD00730
E9$RACCT DC    A(E9$RCCTB)                                              RAD00740
E9$AKMNT DC    A(E9$KMNT)                                               RAD00750
E9$AYIPL DC    A(E9$YRIPL)                                              RAD00760
E9$RACLS DC    A(E9$KCLS)                                               RAD00770
E9$CC01  DC    A(E9$W)                                                  RAD00780
E9$OEOJJ DC    A(E9$REOJE)                                              RAD00790
E9$RADAT DC    A(E9$RADTB)                                              RAD00800
E9$RLXIO DC    XL4'0'              LOADER XIO STORAGE ADDRESS           RAD00810
E9$RSZLM DC    XL4'0'              SIZE LIMIT (END ADDR) OF PRGM        RAD00820
E9$RSTRM DC    XL4'0'              GETCS XIO ADD/CATALOG TO DISC        RAD00830
E9$ROPCE DC    A(E9$ROPEX)                                              RAD00840
E9$RTRSN DC    XL4'0'              TRANSIENT CALL INLINE                RAD00850
E9$RIOII DC    XL4'0'              I/O & INVALID/VALID INFO +1-3        RAD00860
*********************************************************************** RAD00870
*  TAG  E9$RIOII (BYTE 0)  BREAKDOWN    *    *    *    *    *    *    * RAD00880
*        BIT 0  = NOT USED                   *    *    *    *    *    * RAD00890
*        BIT 1  = NOT USED                   *    *    *    *    *    * RAD00900
*        BIT 2  = (1= IMAGE MODE /RD PCH   ) *    *    *    *    *    * RAD00910
*                 (0= NON IMAGE MODE RD PCH) *    *    *    *    *    * RAD00920
*        BIT 3  = (1= BYPASS GETCS SET)      *    *    *    *    *    * RAD00930
*                 (0= DO GETCS SET    )      *    *    *    *    *    * RAD00940
*        BIT 4  = (1= MINIMUM 9-3 OP SYS )   *    *    *    *    *    * RAD00950
*                 (0= STANDARD 9-3 OP SYS)   *    *    *    *    *    * RAD00960
*        BIT 5  = (1= (INVALID EQ NOOP))     *    *    *    *    *    * RAD00970
*                 (0= (INVALID NE NOOP))     *    *    *    *    *    * RAD00980
*        BIT 6  = (1= (INVALID EQ DISPLAY))  *    *    *    *    *    * RAD00990
*                 (0= (INVALID NE DISPLAY))  *    *    *    *    *    * RAD01000
*        BIT 7  = (1= (INVALID EQ LABEL)     *    *    *    *    *    * RAD01010
*                 (0= (INVALID NE LABEL)     *    *    *    *    *    * RAD01020
*********************************************************************** RAD01030
*  TAG  E9$RIOII (BYTE 1)  BREAKDOWN    *    *    *    *    *    *    * RAD01040
*        BIT 0  = (1= NOT USED)              *    *    *    *    *    * RAD01050
*                 (0= NOT USED)              *    *    *    *    *    * RAD01060
*        BIT 1  = (1= WAIT OPERATOR RESPONSE)     *    *    *    *    * RAD01070
*                 (0= NO WAIT OPER RESPONSE )     *    *    *    *    * RAD01080
*        BIT 2  = (1= CHANGE MODE       )    *    *    *    *    *    * RAD01090
*                 (0= DO NOT CHANGE MODE)    *    *    *    *    *    * RAD01100
*        BIT 3  = (1= CHANGE 92 TO 9-3  )    *    *    *    *    *    * RAD01110
*                 (0= CHANGE 9-3 TO 92  )    *    *    *    *    *    * RAD01120
*        BIT 4  = (1= HPR ENCOUNTERED)       *    *    *    *    *    * RAD01130
*                 (0= MSG MACRO      )       *    *    *    *    *    * RAD01140
*        BIT 5  = (1= CURRENT MODE 92/93 IN I/O ) *    *    *    *    * RAD01150
*                 (0= CURRENT MODE 92/93 IN PROC) *    *    *    *    * RAD01160
*        BIT 6  = (1= SAVE SRC IN I/O PSC)   *    *    *    *    *    * RAD01170
*                 (0= NO VALUE SAVED     )   *    *    *    *    *    * RAD01180
*        BIT 7  = (1= OP REQ PERMIT  )       *    *    *    *    *    * RAD01190
*                 (0= OP REQ INHIBIT )       *    *    *    *    *    * RAD01200
*********************************************************************** RAD01210
*  TAG  E9$RIOII (BYTE 2)  BREAKDOWN         *    *    *    *    *    * RAD01220
*        BIT 0  = (1= RESTRICT KEYIN TO LOC 4)    *    *    *    *    * RAD01230
*                 (0= NO RESTRICTION         )    *    *    *    *    * RAD01240
*        BIT 1  = (1= BOOT INITIALIZE MODE   )    *    *    *    *    * RAD01250
*                 (0= NON BOOT INITIALIZE    )    *    *    *    *    * RAD01260
*        BIT 2  = (1= GETCS LOAD )           *    *    *    *    *    * RAD01270
*                 (0= READER LOAD)           *    *    *    *    *    * RAD01280
*        BIT 3  = (1= FALSE BOOTREAD (OPCOM) UNSOLICITED KEYIN)  *    * RAD01290
*                 (0= NO FALSE BOOT READ                      )  *    * RAD01300
*        BIT 4  = (1= FALSE BOOT COMPLETED,DO SETUP)   *    *    *    * RAD01310
*                 (0= NO SETUP                     )             *    * RAD01320
*        BIT 5  = (1= LOAD MODE FROM BOOT TO TRANSFER RECORD)    *    * RAD01330
*                 (0= NON LOAD MODE                         )    *    * RAD01340
*        BIT 6  = (1= CALL IN OPCOM ROOT TRANSIENT)    *    *    *    * RAD01350
*                 (0= BYPASS                      )    *    *    *    * RAD01360
*        BIT 7  = (1= OPREQ IS SET GO BACK TO OPCOM)   *    *    *    * RAD01370
*               = (0= CONTINUE                     )   *    *    *    * RAD01380
*********************************************************************** RAD01390
*  TAG  E9$RIOII (BYTE 3)  BREAKDOWN    *    *    *    *    *    *    * RAD01400
*        BIT 0  = (1= 8410/TAPE/8411/8414 TRANSFER START BIT)         * RAD01410
*                 (0= NON IPL TRANSFER START                )         * RAD01420
*        BIT 1  = (NOT USED)  *    *    *    *    *    *    *    *    * RAD01430
*                 (NOT USED)  *    *    *    *    *    *    *    *    * RAD01440
*        BIT 2  = (1= BYPASS LOADING VERTICAL FORMAT BUFFER)     *    * RAD01450
*                 (0= LOAD VERTICAL FORMAT BUFFER)     *    *    *    * RAD01460
*        BIT 3  = (1= LOAD CODE EXECUTE)     *    *    *    *    *    * RAD01470
*                 (0= BYPASS LOAD CODE )     *    *    *    *    *    * RAD01480
*        BIT 4  = (1= RES(EQ)0711)           *    *    *    *    *    * RAD01490
*                 (0=            )           *    *    *    *    *    * RAD01500
*        BIT 5  = (1= RES(EQ)1004)           *    *    *    *    *    * RAD01510
*                 (0=            )           *    *    *    *    *    * RAD01520
*        BIT 6  = (1= RES(EQ)1001)           *    *    *    *    *    * RAD01530
*                 (0=            )           *    *    *    *    *    * RAD01540
*        BIT 7  = (1= RES(EQ)0716)           *    *    *    *    *    * RAD01550
*                 (0=            )           *    *    *    *    *    * RAD01560
*********************************************************************** RAD01570
         CNOP  0,4                                                      RAD01580
E9$R8    DC    XL4'00000008'                                            RAD01590
E9$RAOIS DC    XL8'0'                   SAVE AREA FOR PSC ON STOP       RAD01600
E9$RATRM DC    A(E9$RAOPX+2)                                            RAD01610
E9$RAERR DC    XL4'0'                   DISC/TAPE ERROR ENTRY           RAD01620
E9$RAOPX DC    XL4'0'                   OP COM EXIT ADDR                RAD01630
E9$RAHIB DC    XL4'0'                   HALT NO AND CONTENTS OF REG 13  RAD01640
         DC    XL4'0'                   ADDRESS OF CALL + 2             RAD01650
E9$RAPCN DS    0CL22                                                    RAD01660
         DC    XL1'5B'                                                  RAD01670
         DC    XL21'0'                                                  RAD01680
E9$RASVE DC    XL2'0'                                                   RAD01690
E9$RAWT  WAIT  ALL                                                      RAD01700
E9INT1   EQU   *                                                        RAD01710
         WAITM E9$RALST                                                 RAD01720
E9INT2   EQU   *                                                        RAD01730
         ORG   E9INT1                                                   RAD01740
         B     E9$RAOWT                                                 RAD01750
         ORG   E9INT2                                                   RAD01760
E9$RAOWT BR    R3                                                       RAD01770
         CNOP  0,4                                                      RAD01780
E9$RAOPR B     E9$ROPRA                                                 RAD01790
E9$RALOP B     E9$RALOP                                                 RAD01800
E9$RAHPR DC    XL2'0'                   HALT FOR EOJH COMMAND           RAD01810
E9$RAOS1 DC    XL1'0'              OP COM SWITCH NO 1                   RAD01820
E9$RASW3 DC    XL1'0'                                                   RAD01830
E9$RANXI DC    XL2'04'                                                  RAD01840
E9$RTEND DC    XL2'D10C'                                                RAD01850
E9$ROPKA DC    XL20'0'             OP COMM UNSOLICITED KEYIN BUF        RAD01860
E9$RAKAR DC    XL20'0'                                                  RAD01870
E9$RASW2 DC    XL1'0'                                                   RAD01880
E9$RATRN DC    XL1'0'                                                   RAD01890
E9$SAVI  DC    XL14'0'                                                  RAD01900
E9$ORHLD DC    XL1'0'                                                   RAD01910
         DC    XL4'0'                                                   RAD01920
         CNOP  0,4                                                      RAD01930
E9$ROPRA WTLD  E9$RAPCN,60                                              RAD01940
         B     E9$RALOP                                                 RAD01950
         END                                                            RAD01960
