         PROC                                                           RAD00010
E2$RAD   NAME                                                           RAD00020
*********************************************************************** RAD00030
*                                                                     * RAD00040
*                        ADDRESS TABLE DSECT                          * RAD00050
*                                                                     * RAD00060
*********************************************************************** RAD00070
E2$RADTB DSECT                                                          RAD00080
         USING *,6                                                      RAD00090
E2$RAOPX DS    CL4                           EOJ/CANCEL SVC             RAD00100
*                                            SET BY TRANSIENT           RAD00110
E2$RNOXI DS    CL1                           NO OF XIO TABLE ENTRIES+1  RAD00120
*                                            SET BY INITIALIZATION      RAD00130
E2$RAOS1 DS    CL1                           TRANSIENT SWITCH 1         RAD00140
*              X'01'          STOPPED BY HPR                            RAD00150
*              X'02'          STOPPED BY OPERATOR                       RAD00160
*              X'03'          STOPPED BY ADDRESS ERROR                  RAD00170
*              X'04'          STOPPED BY DATA EXCEPTION                 RAD00180
*              X'05'          STOPPED BY DIVIDE EXCEPTION               RAD00190
*              X'06'          STOPPED BY INVALID OP CODE                RAD00200
*              X'07'          STOPPED BY SPECIFICATION ERROR            RAD00210
*              X'08'          STOPPED BY BINARY OVERFLOW                RAD00220
*              X'09'          STOPPED BY END OF LOAD                    RAD00230
*              X'10'          RETURN FROM HOME1 COMMAND                 RAD00240
*              X'20'          SECOND PASS OF DISC INITIALIZATION        RAD00250
*              X'40'          SECOND PASS OF INITIALIZATION             RAD00260
E2$RTYPE DS    CL1                           PRINTER TYPE               RAD00270
*              X'80'          0770 PRINTER ALLOCATED                    RAD00280
*              X'40'          0773 PRINTER ALLOCATED                    RAD00290
*              X'20'          0768 PRINTER ALLOCATED                    RAD00300
*              X'10'          0776 PRINTER ALLOCATED                    RAD00310
E2$R604  DS    CL1                           0604 PUNCH INDICATORS      RAD00320
*              X'80'          0604 PUNCH ALLOCATED                      RAD00330
*              X'40'          0604 PUNCH USED - NOT SYSTEM USER LEVEL   RAD00340
*              X'20'          0604 PUNCH USED - SYSTEM USER LEVEL       RAD00350
E2$RAXIO DS    CL4                           XIO TABLE ADDRESS          RAD00360
E2$RAGET DS    CL4                           ADDRESS OF IN-LINE GET     RAD00370
E2$RAPUT DS    CL4                           ADDRESS OF IN-LINE PUT     RAD00380
E2$RAHIB DS    CL4                           DISC/TAPE ERROR WORD       RAD00390
         DS    CL4                           R13 FROM DISC TASK         RAD00400
E2$RB1D1 EQU   *+2-E2$RADTB                                             RAD00410
E2$RACUR DS    CL6                           CURRENT 360/20 INSTRUCTION RAD00420
E2$RAHPR DS    CL2                           EOJ HPR HALT DISPLAY       RAD00430
E2$RAPCX DS    CL4                           PROGRAM CHECK EXIT         RAD00440
E2$RAPCS DS    0CL76                         PROGRAM CHECK ISLAND       RAD00450
*                                            CODE SAVE AREA             RAD00460
E2$RAPPS DS    CL8                           PSW                        RAD00470
E2$RAPR0 DS    CL4                           REGISTER 0                 RAD00480
E2$RAPR1 DS    CL4                           REGISTER 1                 RAD00490
E2$RAPR2 DS    CL4                           REGISTER 2                 RAD00500
E2$RAPR3 DS    CL4                           REGISTER 3                 RAD00510
E2$RAPR4 DS    CL4                           REGISTER 4                 RAD00520
E2$RAPR5 DS    CL4                           REGISTER 5                 RAD00530
E2$RAPR6 DS    CL4                           REGISTER 6                 RAD00540
E2$RAPR7 DS    CL4                           REGISTER 7                 RAD00550
E2$RR8$  EQU   *-E2$RADTB                                               RAD00560
E2$RAPR8 DS    CL4                           REGISTER 8                 RAD00570
E2$RAPR9 DS    CL4                           REGISTER 9                 RAD00580
E2$RAPRA DS    CL4                           REGISTER A                 RAD00590
E2$RAPRB DS    CL4                           REGISTER B                 RAD00600
E2$RAPRC DS    CL4                           REGISTER C                 RAD00610
E2$RAPRD DS    CL4                           REGISTER D                 RAD00620
E2$RAPRE DS    CL4                           REGISTER E                 RAD00630
E2$RAPRF DS    CL4                           REGISTER F                 RAD00640
E2$RADTG DS    0CL4                          DISC/TAPE GENERATION PARS  RAD00650
E2$RADTD DS    CL1                           NUMBER OF DISC             RAD00660
E2$RADTT DS    CL1                           NUMBER OF TAPE             RAD00670
E2$RADTS DS    CL1                           SEPAS=YES - 01             RAD00680
E2$RADTC DS    CL1                           COMP=YES - 01              RAD00690
E2$RACCT DS    CL4                           CARRIAGE CONTROL TAB ADDR  RAD00700
E2$RASW1 DS    CL1                           SWITCH BYTE 1              RAD00710
E2$RASW2 DS    CL1                           SWITCH BYTE 2              RAD00720
E2$RASW3 DS    CL1                           SWITCH BYTE 3              RAD00730
*              X'80'          EMULATOR IN INITIALIZATION PHASE          RAD00740
*              X'40'          PRIMARY FUNCTIONAL DRIVER FOUND ERROR     RAD00750
*              X'20'          UNSOLICITED KEYIN                         RAD00760
*              X'10'          OUT OF BOUNDS                             RAD00770
*              X'08'          TERMINATE - TAPE/DISC TASK HAS ERROR      RAD00780
*              X'04'          UNSOLICITED STOP IS OUTSTANDING           RAD00790
*              X'02'          GENERATE HALT AFTER LOAD                  RAD00800
*              X'01'          HALT NEXT TIME THRU PROGRAM CHECK         RAD00810
E2$RASW4 DS    CL1                           SWITCH BYTE 4              RAD00820
E2$RACCE DS    CL4                           END CARRIAGE CONT TAB ADDR RAD00830
E2$RACCC DS    CL4                           CUR CARRIAGE CONT TAB ADDR RAD00840
E2$RALDR DS    CL4                           360/20 LOAD ADDRESS        RAD00850
E2$RAFCS DS    0CL4                          FORMS CONTROL SWITCHES     RAD00860
E2$RAIS  DS    CL1                           IMMEDIATE LINE SP CURR     RAD00870
E2$RAISR DS    CL1                           IMMEDIATE LINE SP LEFT     RAD00880
E2$RADS  DS    CL1                           DELAYED LINE SP CURR       RAD00890
E2$RADSR DS    CL1                           DELAYED LINE SP LEFT       RAD00900
E2$RAMFT DS    CL4                           MFCM TABLE ADDRESS         RAD00910
E2$RAOCS DS    0CL76                         OPERATOR COMMUNICATIONS    RAD00920
*                                            ISLAND CODE SAVE AREA      RAD00930
E2$RAOPS DS    CL8                           PSW                        RAD00940
E2$RAOR0 DS    CL4                           REGISTER 0                 RAD00950
E2$RAOR1 DS    CL4                           REGISTER 1                 RAD00960
E2$RAOR2 DS    CL4                           REGISTER 2                 RAD00970
E2$RAOR3 DS    CL4                           REGISTER 3                 RAD00980
E2$RAOR4 DS    CL4                           REGISTER 4                 RAD00990
E2$RAOR5 DS    CL4                           REGISTER 5                 RAD01000
E2$RAOR6 DS    CL4                           REGISTER 6                 RAD01010
E2$RAOR7 DS    CL4                           REGISTER 7                 RAD01020
E2$RAOR8 DS    CL4                           REGISTER 8                 RAD01030
E2$RAOR9 DS    CL4                           REGISTER 9                 RAD01040
E2$RAORA DS    CL4                           REGISTER 10                RAD01050
E2$RAORB DS    CL4                           REGISTER 11                RAD01060
E2$RAORC DS    CL4                           REGISTER 12                RAD01070
E2$RAORD DS    CL4                           REGISTER 13                RAD01080
E2$RAORE DS    CL4                           REGISTER 14                RAD01090
E2$RAORF DS    CL4                           REGISTER 15                RAD01100
E2$RAVRD DS    CL4                           DISC/TAPE VER DATE         RAD01110
E2$RAOIS DS    CL8                           CURRENT PSW ON OP COM      RAD01120
E2$ROPKA DS    CL20                          OP COM KEYIN AREA          RAD01130
E2$RAKAR DS    CL20                          SECONDARY KEYIN AREA       RAD01140
E2$RRELN DS    CL1                           RELEASE                    RAD01150
E2$RVERN DS    CL1                           VERSION                    RAD01160
E2$RSVER DS    CL1                           SUB-VERSION                RAD01170
E2$RPVER DS    CL1                           PATCH VERSION              RAD01180
E2$RDATE DS    CL4                           VERSION DATE               RAD01190
E2$RTODA DS    CL4                           TODAY                      RAD01200
E2$RSTIM DS    CL4                           START TIME                 RAD01210
E2$RAIPL DS    CL4                           INIT DISC RES MONITOR      RAD01220
E2$RAHSK DS    CL4                           DISC/TAPE HOUSEKEEPING     RAD01230
E2$RAIO  DS    CL4                           DISC/TAPE I/O ACTIVITY     RAD01240
E2$RAERR DS    CL4                           DISC/TAPE ERROR ENTRY      RAD01250
E2$RAFCH DS    CL4                           DISC FETCH ENTRY           RAD01260
E2$RAEOJ DS    CL4                           DISC EOJ ROUTINE           RAD01270
E2$RACLS DS    CL4                           DISC/TAPE TERMINATION      RAD01280
E2$RANOD DS    CL4                           INIT CARD RES MONITOR      RAD01290
E2$RACSP DS    CL4                           DISC GETCS POINTER         RAD01300
E2$RA2IO DS    CL3                           PLDA DISC/TAPE I/O         RAD01310
E2$RA2EJ DS    CL3                           PLDA EOJ                   RAD01320
E2$RA2FC DS    CL3                           PLDA DISC/TAPE FETCH       RAD01330
E2$RAMOD DS    CL1                           MODE BYTE                  RAD01340
*              X'00'          CPS                                       RAD01350
*              X'80'          CARD-RESIDENT DPS                         RAD01360
*              X'0C'          DISC-RESIDENT DPS                         RAD01370
*              X'C0'          CARD-RESIDENT TPS                         RAD01380
*              X'48'          TAPE-RESIDENT TPS                         RAD01390
*              X'04'          NO TASKING FOR DISC/TAPE                  RAD01400
*              X'02'          USE XIO UNIT NUMBER FOR DISC/TAPE         RAD01410
*              X'01'          DO NOT USE MONITOR FOR I/O AREA           RAD01420
E2$RAVBS DS    CL1                           PRINTER SWITCH             RAD01430
*              X'80'          DO NOT LOAD VFB                           RAD01440
*              X'40'          8 LPI                                     RAD01450
E2$RACBY DS    CL1                           CLEAR MEMORY VALUE         RAD01460
E2$RAPGM DS    CL6                           PROGRAM NAME               RAD01470
E2$RASRD DS    CL2                           360/20 SYSRDR ID           RAD01480
E2$RARDR DS    CL2                           READER PUB POINTER         RAD01490
E2$RAPRT DS    CL2                           PRINTER PUB POINTER        RAD01500
E2$RAPUC DS    CL2                           PUNCH PUB POINTER          RAD01510
E2$RAPU4 DS    CL2                           0604 PUNCH PUB POINTER     RAD01520
E2$RACSR DS    CL4                           DISC GETCS POINTER RETURN  RAD01530
E2$RAPCN DS    CL22                          CANNED MSG AREA            RAD01540
E2$RAWT  DS    CL2                           WAIT ALL                   RAD01550
E2$RAWTM DS    CL4                           BRANCH TO WAITM            RAD01560
E2$RASYD DS    CL8                           GENERATION SYSTEM DATE     RAD01570
E2$RASYT DS    CL8                           GENERATION SYSTEM TIME     RAD01580
         DS    CL8                           NOT USED ******            RAD01590
E2$RHALT DS    CL4                      HALT CODE IN EBCDIC             RAD01595
         DS    CL4                           NOT USED ******            RAD01600
E2$RAOWT DS    CL2                           BRANCH TO PCIC EXIT        RAD01610
         DS    CL2                           NOT USED ******            RAD01620
E2$RAOPR DS    CL4                           BRANCH TO WTLD             RAD01630
E2$RASTM DS    CL1                           0604 STACKER MEMORY        RAD01640
*              X'80'          0604 STACKER 2                            RAD01650
E2$RAPUB DS    CL1                           360/20 PUB CALCULATION     RAD01660
*              X'80'          DO PUB CALCULATION IN INITIALIZE          RAD01670
*              X'0F'          PUB LENGTH WHEN CALCULATED                RAD01680
E2$RASWA DS    CL1                           EMULATOR SWITCH A          RAD01690
*              X'80'          TRANSLATE INPUT FROM 0604 PUNCH           RAD01700
*              X'40'          TRANSLATE OUTPUT TO 0604 PUNCH            RAD01710
E2$RASWB DS    CL1                           EMULATOR SWITCH B          RAD01720
*              X'80'                    DISPLAY 360/20 JOBNAME          RAD01730
*              X'40'                    360/20 CONTROL CARD SCAN PERIOD RAD01740
*              X'20'                    DISPLAY PAUSE CARD CONTENTS     RAD01750
*              X'10'                    SCAN TRANSIENT REQUIRED         RAD01760
*              X'08'                    MOUNT REQUESTED FROM INLINE     RAD01770
*              X'04'                    DO NOT PRINT COMPLETED MESSAGE  RAD01780
*              X'02'                    DELAY OPEN FOR INLINE MOUNT     RAD01782
*              X'01'                    DO OPEN FOR INLINE MOUNT        RAD01784
         DS    CL2                           NOT USED ******            RAD01790
E2$RAJOB DS    CL6                           360/20 JOB NAME            RAD01800
E2$RAHBB DS    CL4                           DISC/TAPE BASE             RAD01810
E2$MNTPU DS    CL1                      DRIVE # - INLINE MOUNT          RAD01820
         DS    CL2                      NOT USED ******                 RAD01825
E2$MNTNO DS    CL2                      MOUNT # - INLINE MOUNT          RAD01830
E2$RASWC DS    CL1                           EMULATOR SWITCH C          RAD01832
*              X'80'                    BREAKPOINT AT JOB END           RAD01833
*              X'40'                    BREAKPOINT AT PAGE END          RAD01834
*              X'20'                    REQUEST FOR BKPT AT JOB END     RAD01835
E2$RALOP DS    CL4                           LOOP INSTRUCTION           RAD01840
E2$RATRN DS    CL1                           TRANSIENT HALT             RAD01850
E2$RADBG DS    CL1                           SPECIAL SWITCHES           RAD01860
E2$RATRM DS    CL4                           EOJ/CANCEL ADDR ENTRANCE   RAD01870
E2$RADSM DS    CL4                           MOUNT ENTRY ADDRESS        RAD01880
E2$RASVE DS    CL2                           OP COM SVC+2               RAD01890
E2$RASET DS    CL3                           ROTARY SWITCH READINGS     RAD01900
E2$RATPS DS    CL1                           SPECIAL CONDITION SWITCH   RAD01910
*              X'80'          08FF SYSEND HALT - USE SYSEOJ             RAD01920
*              X'01'          RWC CARD MONITOR                          RAD01930
         DROP  6                                                        RAD01940
*********************************************************************** RAD01950
*                                                                     * RAD01960
*                                                                     * RAD01970
*                                                                     * RAD01980
*********************************************************************** RAD01990
         END                                                            RAD02000
