         PROC                                                           RDB00010
E9$RADTB NAME                                                           RDB00020
E9$RADTB DSECT                                                          RDB00030
         USING *,6                                                      RDB00040
E9$RAPCS DS    0XL76               PROG CHK ISLAND CODE SAVE AREA       RDB00050
E9$RPSW  EQU   E9$RAPCS+4                                               RDB00060
E9$RAPPS DS    XL8                 EIGHT BYTE PSW SAVE AREA             RDB00070
E9$RAPR0 DS    XL4                 PCIC REG 0                           RDB00080
E9$RAPR1 DS    XL4                 PCIC REG 1                           RDB00090
E9$RAPR2 DS    XL4                 PCIC REG 2                           RDB00100
E9$RAPR3 DS    XL4                 PCIC REG 3                           RDB00110
E9$RAPR4 DS    XL4                 PCIC REG 4                           RDB00120
E9$RAPR5 DS    XL4                 PCIC REG 5                           RDB00130
E9$RAPR6 DS    XL4                 PCIC REG 6                           RDB00140
E9$RAPR7 DS    XL4                 PCIC REG 7                           RDB00150
E9$RAPR8 DS    XL4                 PCIC REG 8                           RDB00160
E9$RAPR9 DS    XL4                 PCIC REG 9                           RDB00170
E9$RAPRA DS    XL4                 PCIC REG 10                          RDB00180
E9$RAPRB DS    XL4                 PCIC REG 11                          RDB00190
E9$RAPRC DS    XL4                 PCIC REG 12                          RDB00200
E9$RAPRD DS    XL4                 PCIC REG 13                          RDB00210
E9$RAPRE DS    XL4                 PCIC REG 14                          RDB00220
E9$RAPRF DS    XL4                 PCIC REG 15                          RDB00230
E9$RAOCS DS    0XL76               OP COMM SAVE AREA FOR PSW/REGS       RDB00240
E9$RAOPS DS    XL8                 OP COMM PSW SAVE AREA                RDB00250
E9$RAOR0 DS    XL4                 OP COMM SAVE REG 0                   RDB00260
E9$RAOR1 DS    XL4                 OP COMM SAVE REG 1                   RDB00270
E9$RAOR2 DS    XL4                 OP COMM SAVE REG 2                   RDB00280
E9$RAOR3 DS    XL4                 OP COMM SAVE REG 3                   RDB00290
E9$RAOR4 DS    XL4                 OP COMM SAVE REG 4                   RDB00300
E9$RAOR5 DS    XL4                 OP COMM SAVE REG 5                   RDB00310
E9$RAOR6 DS    XL4                 OP COMM SAVE REG 6                   RDB00320
E9$RAOR7 DS    XL4                 OP COMM SAVE REG 7                   RDB00330
E9$RAOR8 DS    XL4                 OP COMM SAVE REG 8                   RDB00340
E9$RAOR9 DS    XL4                 OP COMM SAVE REG 9                   RDB00350
E9$RAORA DS    XL4                 OP COMM SAVE REG 10                  RDB00360
E9$RAORB DS    XL4                 OP COMM SAVE REG 11                  RDB00370
E9$RAORC DS    XL4                 OP COMM SAVE REG 12                  RDB00380
E9$RAORD DS    XL4                 OP COMM SAVE REG 13                  RDB00390
E9$RAORE DS    XL4                 OP COMM SAVE REG 14                  RDB00400
E9$RAORF DS    XL4                 OP COMM SAVE REG 15                  RDB00410
E9$RALUT DS    XL4                 LOG UNIT TABLE ADDRESS               RDB00420
E9$RCINS DS    XL6                 CURRENT INSTRUCTION                  RDB00430
E9$ROP   EQU   E9$RCINS            OP CODE BYTE POSITION                RDB00440
E9$RDA   EQU   E9$RCINS+1          DEVICE ADDRESS POSITION              RDB00450
E9$RFC   EQU   E9$RCINS+3          FUNC CODE POSITION                   RDB00460
E9$RTYPE DS    XL2                 SYSTEMS TYPE INFO & + 1              RDB00470
E9$RCFST DS    XL4                 CURRENT FUNC & STATUS TYPE           RDB00480
E9$RSATG DS    XL4                 ADDRESS OF SAT GET CODE              RDB00490
E9$RSATP DS    XL4                 ADDRESS OF SAT PUT CODE              RDB00500
E9$RTRTB DS    XL4                                                      RDB00510
E9$RACCT DS    CL4                                                      RDB00520
E9$AKMNT DS    F                                                        RDB00530
E9$AYIPL DS    F                                                        RDB00540
E9$RACLS DS    F                                                        RDB00550
E9$CC01  DS    F                                                        RDB00560
E9$OEOJJ DS    XL4                                                      RDB00570
E9$RADAT DS    XL4                                                      RDB00580
E9$RLXIO DS    XL4                 LOADER XIO STORAGE ADDRESS           RDB00590
E9$RSZLM DS    XL4                 SIZE LIMIT (END ADDR) OF PRGM        RDB00600
E9$RSTRM DS    XL4                 GETCS XIO ADD/CATALOG TO DISC        RDB00610
E9$ROPCE DS    XL4                                                      RDB00620
E9$RTRSN DS    XL4                 TRANSIENT CALL INLINE                RDB00630
E9$RIOII DS    XL4                 I/O & INVALID/VALID INFO +1-3        RDB00640
         CNOP  0,4                                                      RDB00650
E9$R8    DS    XL4                                                      RDB00660
E9$RAOIS DS    XL8                 SAVED PSW                            RDB00670
E9$RATRM DS    XL4                 EOJ/CANCEL ADDR ENTRANCE             RDB00680
E9$RAERR DS    XL4                 DISC/TAPE ERROR ENTRY                RDB00690
E9$RAOPX DS    XL4                 OP COMM EXIT ADDR                    RDB00700
E9$RAHIB DS    XL4                 HALT NO AND CONTENTS OF REG 13       RDB00710
         DS    XL4                 ADDRESS OF CALL + 2                  RDB00720
E9$RAPCN DS    XL22                PROG CHECK MSG AREA                  RDB00730
E9$RASVE DS    XL2                 SVC FOR EOJ/CANCEL                   RDB00740
E9$RAWT  DS    XL2                 WAIT ALL                             RDB00750
         DS    XL30                WAITM                                RDB00760
E9$RAOWT DS    XL2                 BR R3                                RDB00770
         CNOP  0,4                                                      RDB00780
E9$RAOPR DS    F                                                        RDB00790
E9$RALOP EQU   *                                                        RDB00800
         DS    XL4                                                      RDB00810
E9$RAHPR DS    XL2                 EOJ HPR HALT DISPLAY - EOJH          RDB00820
E9$RAOS1 DS    XL1                 OP COM SW 1                          RDB00830
E9$RASW3 DS    XL1                 OP COM SW 3                          RDB00840
E9$RANXI DS    XL2                                                      RDB00850
E9$RTEND DS    XL2                                                      RDB00860
E9$ROPKA DS    XL20                OP COMM UNSOLICITED KEYIN BUF        RDB00870
E9$RAKAR DS    XL20                                                     RDB00880
E9$RASW2 DS    XL1                                                      RDB00890
E9$RATRN DS    XL1                                                      RDB00900
E9$SAVI  DS    XL14                                                     RDB00910
E9$ORHLD DS    XL1                                                      RDB00920
         DS    XL4                                                      RDB00930
E9$ROPRA DS    XL26                                                     RDB00940
         END                                                            RDB00950
