*%GOTO DSVPLS ; /* BILINGUAL MAPPING */ 00200002 MACRO 00300002 IQADSV &DSECT=YES 00400002 .*A000000-999999 Y02149 00500002 *%DSVPLS: ; 00600002 * /* BILINGUAL MAPPING 00700002 *********************************************************************** 00800002 *********************************************************************** 00900002 ****************** OS/VS2 R2 **************** 01000002 ****************** DYNAMIC SUPPORT SYSTEM VECTOR TABLE **************** 01100002 ****************** **************** 01200002 *********************************************************************** 01300002 *********************************************************************** 01400002 * * 01500002 * LEVEL: AUGUST 1, 1973 * 01600002 * * 01700002 * FUNCTION: * 01800002 * THE DSS VECTOR TABLE FURNISHES ADDRESSABILITY FOR DSS * 01900002 * REFERENCES IN THE NUCLEUS, DESCRIBES THE HOOKS IN 0S/VS2 R2 * 02000002 * NECESSARY FOR DSS AND FLAGS FOR VARIOUS DSS FUNCTIONS. * 02100002 * * 02200002 * ATTRIBUTES: BILINGUAL. * 02300002 * * 02400002 **********************************************************************/ 02500002 *%GOTO DSVPLS2; /* 02600002 AIF ('&DSECT' EQ 'YES').DSECT 02700002 IQADSV00 DS 0F 02800002 AGO .NDSECT 02900002 .DSECT ANOP 03000002 DSV DSECT 03100002 .NDSECT ANOP 03200002 DS 0F 03300002 DSVID DC CL3'DSV' DSV IDENTIFIER - DEBUGGING AID 03400002 *********************************************************************** 03500002 * DSV FLAGS * 03600002 *********************************************************************** 03700002 * FLAG BYTE DSVFLG1 MUST FOLLOW DSVID FOR CS ON DSVID * 03800002 DSVFLG1 DC X'00' FIRST FLAG BYTE 03900002 * 04000002 DSVRIM EQU DSVFLG1 RIM FLAG 04100002 DSVRIMN EQU X'80' RIM FUNCTION COMPLETE 04200002 DSVRIMF EQU X'FF'-DSVRIMN RIM FLAG OFF 04300002 * 04400002 DSVINIT EQU DSVFLG1 INITIALIZATION FLAG 04500002 DSVINITN EQU X'40' INITIALIZATION IN PROGRESS 04600002 DSVINITF EQU X'FF'-DSVINITN INITIALIZATION FLAG OFF 04700002 * 04800002 DSVATTN EQU DSVFLG1 ATTENTION FLAG 04900002 DSVATTNN EQU X'20' ATTENTION PENDING 05000002 DSVATTNF EQU X'FF'-DSVATTNN ATTENTION FLAG OFF 05100002 * 05200002 DSVREFS EQU DSVFLG1 LANGUAGE REFRESHING BIT 05300002 DSVREFSN EQU X'10' LANGUAGE REFRESHING BIT ON 05400002 DSVREFSF EQU X'FF'-DSVREFSN LANGUAGE REFRESHING BIT OFF 05500002 * 05600002 DSVTERM EQU DSVFLG1 TERMINATION FLAG 05700002 DSVTERMN EQU X'08' TERMINATION IN PROGRESS 05800002 DSVTERMF EQU X'FF'-DSVTERMN TERMINATION FLAG OFF 05900002 * 06000002 DSVSPIN EQU DSVFLG1 GLOBAL LANGUAGE SPIN BIT 06100002 DSVSPINN EQU X'04' SPINNING 06200002 DSVSPINF EQU X'FF'-DSVSPINN GLOBAL LANGUAGE SPIN BIT OFF 06300002 * 06400002 DSVFLGS DC XL4'00' RESERVED 06500002 *********************************************************************** 06600002 * 06700002 DSVPDSUC DC F'0' ADDRESS OF THE UCB FOR THE DSS DATA SET 06800002 * (INITIALIZED BY DSS RIM DURING NIP) 06900002 DSVPDSST DC F'0' CCHH OF FIRST RECORD IN DSS DATA SET 07000002 * (INITIALIZED BY DSS RIM DURING NIP) 07100002 DSVDVE DC F'0' ADDRESS OF THE ENVIRONMENT VECTOR 07200002 * TABLE (INITIALIZED BY IQAINI00) 07300002 DSVINTOC DC F'0' ADDRESS OF INTEGRATED OPERATOR'S 07400002 * CONSOLE UCB (INITIALZED BY IQAINI00) 07500002 DSVAVT DC F'0' ADDRESS OF AOS VECTOR TABLE 07600002 * (INITIALIZED BY IQAINI00) 07700002 DSVLANLO DC XL4'00200000' DSS VM ADDR OF LANGUAGE LOAD MODULE 07800002 DSVLANHI DC XL4'002F0000' UPPER BOUND OF DSS LANGUAGE VM 07900002 * 08000002 DSVINIAD DC F'0' ADDRESS OF IQAINI00 08100002 * (INITIALIZED BY DSS RIM DURING NIP) 08200002 DSVACTAD DC F'0' ADDRESS OF IQAACT00 08300002 * (INITIALIZED BY IQAINI00) 08320002 DSVRIHAD DC V(IQARIH00) ADDRESS OF IQARIH00 08340002 * 08400002 DSVRSV0 DC F'0' RESERVED 08500002 * 08600002 DSVLOCK DS 0F DSV LOCK WORD 08700002 DSVLCK DC X'00' LOCK BYTE 08800002 DSVLKTYP DC X'00' ID OF FUNCTION THAT OWNS LOCK 08900002 DSVLCKID DC XL2'00' PHYSICAL ID OF LOCKING CPU 09100002 * 09200002 DSVICCCW DS 0F ICC CONTROL WORD 09220002 DSVICCWT DC XL1'00' ICC WAIT BYTE FF-ICC WAITING 09240002 * 00-ICC NOT WAITING 09260002 DSVICCCD DC XL1'00' ICC COMPLETION CODE - SET BY CPU 09280002 * RECEIVING THE SIGP 09284002 DSVICCID DC XL2'00' PHYSICAL CPUID THAT ICC IS WAITING ON 09288002 * 09292002 DSVICTAD DC F'0' TRANSFER ADDRESS - ICC 09300002 DSVICPAD DC F'0' PARAMETER LIST ADDRESS - ICC 09400002 DSVRSV1 DC 6F'0' RESERVED 09500002 * 09600002 DSVNUIOC DS 0F WORD FOR CS BY IQAPPR00 09650002 DSVUNUS1 DC XL2'00' UNUSED 09700002 DSVRSCPU DC XL2'00' PHYSICAL ID OF RESTART CPU OR CPU TO 09800002 * WHICH IQAPPR00 IS SWITCHING DSS 09820002 DSVEVCPU DC XL2'00' PHYSICAL ID OF CURRENT EVENT CPU 09870002 DSVINCPU DC XL2'00' PHYSICAL ID OF INITIALIZATION CPU 09900002 DSVRSV2 DC XL4'00' RESERVED 10100002 * 10200002 DSVDSTCB DC V(IEADSTCB) ADDR OF THE DSS TCB 10300002 DSVVEDS1 DC V(IEAVEDS1) JOBSTEP TIMING RTN IN DISPATCHER 10500002 DSVVEDS2 DC V(IEAVEDS2) JOBSTEP TIMING RTN IN DISPATCHER 10600002 DSVRSV3 DC 5F'0' RESERVED 10700002 *********************************************************************** 10800002 * THE OS/VS2 R2 SYSTEM HOOKS FOR DSS * 10900002 *********************************************************************** 11000002 DSVIOHK1 DC V(IECHK1) LABEL AFTER SIOF INSTRUCTION IN IOS 11100002 * SIO SUBROUTINE 11200002 DSVIOHK2 DC V(IECHK2) LABEL AFTER SIO INSTRUCTION IN IOS 11300002 * SENSE SUBROUTINE 11400002 DSVIOHK3 DC V(IECHK3) LABEL AFTER TIO IN IOS DA STANDALONE 11500002 * SEEK ROUTINE 11600002 DSVIOHK8 DC V(IECHK8) LABEL AFTER SIO INSTRUCTION IN IOS SIO 11650002 * SUBROUTINE 11660002 DSVLOAD DC V(DSS06) DSS NOP HOOK IN LOAD 11700002 DSVEXIT DC V(CDSSNOP) DSS NOP HOOK IN EXIT 11900002 DSVVDSS DC A(0) NOP HOOK IN VARY ONLINE ROUTINE 11950002 * (INITIALIZED BY DSS RIM DURING NIP) 11960002 DSVCATST EQU * START OF CONTROL ATS 12020002 DSVIOHK4 DC V(IECHK4) NOP HOOK IN HALT I/O RTN TAKING I/O 12060002 DSVIOHK5 DC V(IECHK5) NOP HOOK IN HALF I/O RTN TAKING I/O 12084002 DSVIOHK6 DC V(IECHK6) NOP HOOK IN I/O RESTART ROUTINE 12092002 DSVIOHK7 DC V(IECHK7) NOP HOOK IN I/O RESTART ROUTINE 12096802 DSVDSSST DC V(IEEDSSST) NOP HOOK IN STOP RESTART ROUTINE 12100002 DSVDSSRS DC V(IEEDSSRS) NOP HOOK IN STOP RESTART ROUTINE 12300002 DSVMCHK1 DC V(IGFPMRDS) NOP HOOK IN MCH(IGFPMTRM) 12700002 DSVDSSNO DC V(RESDSSNO) NOP HOOK IN RESTART FLIH 12900002 DSVCATEN EQU * END OF CONTROL ATS 13020002 DSVRSV4 DC 2F'0' RESERVED 13100002 *********************************************************************** 13200002 * NON-MONITORABLE AREAS - READ/WRITE ACCESS * 13300002 *********************************************************************** 13400002 DSVNONM EQU * BEGINNING OF NON-MONITORABLE RANGES 13500002 * 13600002 DSVNM1B DC V(DSS06) DSS NOP HOOK IN LOAD 13700002 DSVNM1E DC A(0) ADDR OF NEXT INSTRUCTION 13800002 DSVNM2B DC V(CDSSNOP) DSS NOP HOOK IN EXIT 14000002 DSVNM2E DC A(0) ADDR OF NEXT INSTRUCTION 14100002 DSVNM3B DC A(0) VARY CPU ONLINE CODE IN LPA(IEEVCPU) 14350002 DSVNM3E DC A(0) FIRST BYTE PAST END OF RANGE(IEEVDSS) 14450002 DSVNM4B DC V(IEAVRSTR) SYSTEM RESTART INTERRUPT HANDLER 14600002 DSVNM4E DC V(RESDSSNO) FIRST BYTE PAST END OF RANGE 14700002 DSVNM5B DC V(IEEDSSST) STOP RESTART RTN IN RESTART FLIH 14900002 DSVNM5E DC V(IEEDSSRS) FIRST BYTE PAST END OF RANGE 15000002 DSVNM6B DC V(IGFPMCLO) FIRST INSTRUCTION IN MCH (IGFPMCIH) 15200002 DSVNM6E DC V(IGFPTRHI) FIRST BYTE PAST END OF RANGE 15300002 DSVNM7B DC A(513) SECOND HALF OF PSA 15450002 DSVNM7E DC A(4096) FIRST BYTE PAST END OF RANGE 15460002 DSVNM8B DC V(IEAVEDS1) 1ST BYTE OF JOBSTEP TIMING RTN 15463000 DSVNM8E DC V(IEAVEDS2) LAST BYTE OF JOBSTEP TIMING RTN 15466000 * 15470002 DSVNONME EQU * END OF NON-MONITORABLE RANGES 15500002 * 15600002 DSVRSV5 DC 2F'0' RESERVED 15700000 *********************************************************************** 15800002 * NON-MONITORABLE AREAS - READ ONLY ACCESS * 15900002 *********************************************************************** 16000002 DSVRONM EQU * BEGINNING OF READ-ONLY NON-MONITOR RANGES 16100002 * 16200002 DSVPSAB DC A(0) BEGINNING OF FLC 16300002 DSVPSAE DC A(512) FIRST BYTE PAST END OF FLC 16400002 DSVRO1B DC A(0) DSS PSA SAVE AREA 16600002 DSVRO1E DC A(0) FIRST BYTE PAST END OF RANGE 16700002 * ( INITIALIZED BY IQAINI00 ) 16800002 DSVRONME EQU * END OF READ-ONLY NON-MONITORABLE RANGES 16900002 * 17000002 DSVRORSV DC 7F'0' RESERVED 17100002 *********************************************************************** 17200002 * INITIALIZATION FLAGS AND WORK AREA * 17300002 *********************************************************************** 17400002 DSVDONE DC X'00' IQAINI00 PROGRESS FLAG BYTE 17500002 * 17600002 DSVHK EQU DSVDONE HOUSE KEEPING DONE 17700002 DSVHKN EQU X'80' 17800002 DSVHKF EQU X'FF'-DSVHKN 17900002 * 18000002 DSVIOC EQU DSVDONE INTEGRATED OPERATOR'S CONSOLE FOUND 18100002 DSVIOCN EQU X'40' 18200002 DSVIOCF EQU X'FF'-DSVIOCN 18300002 * 18400002 DSVPD EQU DSVDONE PAGING DEVICE VERIFIED 18500002 DSVPDN EQU X'20' 18600002 DSVPDF EQU X'FF'-DSVPDN 18700002 * 18800002 DSVPFXE EQU DSVDONE PAGE FIX OF ENVIRONMENT DONE 18900002 DSVPFXEN EQU X'10' 19000002 DSVPFXEF EQU X'FF'-DSVPFXEN 19100002 * 19200002 DSVPFXD EQU DSVDONE PAGE FIX OF DUMMY DONE 19300002 DSVPFXDN EQU X'08' 19400002 DSVPFXDF EQU X'FF'-DSVPFXDN 19500002 * 19600002 DSVSEGT EQU DSVDONE SEGMENT TABLE COPIED 19700002 DSVSEGTN EQU X'04' 19800002 DSVSEGTF EQU X'FF'-DSVSEGTN 19900002 * 20000002 DSVMISC EQU DSVDONE MISCELLANEOUS INITIALIZATION DONE 20100002 DSVMISCN EQU X'02' 20200002 DSVMISCF EQU X'FF'-DSVMISCN 20300002 * 20400002 DSVEXT EQU DSVDONE EXIT PROCESSING DONE 20500002 DSVEXTN EQU X'01' 20600002 DSVEXTF EQU X'FF'-DSVEXTN 20700002 * 20800002 DSVREST DC X'00' REST OF IQAINI00 FLAGS 20900002 * 21000002 DSVREFR EQU DSVREST IQAINI00 ENTERED FOR REFRESH 21100002 DSVREFRN EQU X'80' 21200002 DSVREFRF EQU X'FF'-DSVREFRN 21300002 * 21400002 DSVERR2 EQU DSVREST ESTAR EXIT ROUTINE (IQAINIR2) ENTERED 21500002 DSVERR2N EQU X'40' 21600002 DSVERR2F EQU X'FF'-DSVERR2N 21700002 * 21800002 DSVDIC EQU DSVREST ERROR EXIT ROUTINE (IQAINIR1) CALLED 21900002 DSVDICN EQU X'20' BY IQADIC00 EXIT ROUTINE 22000002 DSVDICF EQU X'FF'-DSVDICN 22100002 * 22200002 DSVERROR DC X'00' INTERNAL ERROR EXIT FLAG BYTE 22300002 * 22400002 DSVERR1 EQU DSVERROR INTERNAL ERROR EXIT CALLED 22500002 DSVERR1N EQU X'80' 22600002 DSVERR1F EQU X'FF'-DSVERR1N 22700002 * 22800002 DSVIOC1 EQU DSVERROR NO INTEGRATED OPERATOR'S CONSOLE FOUND 22900002 DSVIOC1N EQU X'40' 23000002 DSVIOC1F EQU X'FF'-DSVIOC1N 23100002 * 23200002 DSVIOC2 EQU DSVERROR NO DSS SAVE AREA 23300002 DSVIOC2N EQU X'20' 23400002 DSVIOC2F EQU X'FF'-DSVIOC2N 23500002 * 23600002 DSVZAOS EQU DSVERROR ZERO AOS TABLE POINTER FOUND 23700002 DSVZAOSN EQU X'10' 23800002 DSVZAOSF EQU X'FF'-DSVZAOSN 23900002 * 24000002 DSVRSVF EQU DSVERROR RESERVE 24100002 DSVRSVFN EQU X'08' 24200002 DSVRSVFF EQU X'FF'-DSVRSVFN 24300002 * 24400002 DSVPDER EQU DSVERROR PAGING DEVICE NOT SUPPORTED 24500002 DSVPDERN EQU X'04' 24600002 DSVPDERF EQU X'FF'-DSVPDERN 24700002 * 24800002 DSVPFER EQU DSVERROR PAGE FIX FAILURE 24900002 DSVPFERN EQU X'02' 25000002 DSVPFERF EQU X'FF'-DSVPFERN 25100002 * 25200002 DSVWORK1 DC X'00' WORK SPACE 25300002 DSVWORK2 DC F'0' 25400002 DSVWORK3 DC F'0' 25500002 DSVWORK4 DC F'0' 25600002 DSVWORK5 DC F'0' 25700002 DSVEND EQU * END OF DSV 25720002 *********************************************************************** 25800002 MEND , */ 25900002 *%DSVPLS2: ; 26000002 DCL 1 DSV BASED(DSVPTR), 26100002 2 DSVID CHAR(3), /* DSV IDENTIFIER - DEBUGGING AID */ 26200002 /********************************************************************/ 26300002 /* DSV FLAGS */ 26400002 /********************************************************************/ 26500002 /* FLAG BYTE DSVFLG1 MUST FOLLOW DSVID FOR CS ON DSVID */ 26600002 2 DSVFLG1 CHAR(1), /* FIRST FLAG BYTE */ 26700002 26800002 3 DSVRIM BIT(1), /* RIM FLAG */ 26900002 %DSVRIMN='''1''B'; /* RIM FUNCTION COMPLETE */ 27000002 %DSVRIMF='''0''B'; /* RIM FLAG OFF */ 27100002 27200002 3 DSVINIT BIT(1), /* INITIALIZATION FLAG */ 27300002 %DSVINITN='''1''B'; /* INITIALIZATION IN PROGRESS */ 27400002 %DSVINITF='''0''B'; /* INITIALIZATION FLAG OFF */ 27500002 27600002 3 DSVATTN BIT(1), /* ATTENTION FLAG */ 27700002 %DSVATTNN='''1''B'; /* ATTENTION PENDING */ 27800002 %DSVATTNF='''0''B'; /* ATTENTION BIT OFF */ 27900002 28000002 3 DSVREFS BIT(1), /* LANGUAGE REFRESHING BIT */ 28100002 %DSVREFSN='''1''B'; /* LANGUAGE REFRESHING BIT ON */ 28200002 %DSVREFSF='''0''B'; /* LANGUAGE REFRESHING BIT OFF */ 28300002 28400002 3 DSVTERM BIT(1), /* TERMINATION FLAG */ 28500002 %DSVTERMN='''1''B'; /* TERMINATION IN PROGRESS */ 28600002 %DSVTERMF='''0''B'; /* TERMINATION FLAG OFF */ 28700002 28800002 3 DSVSPIN BIT(1), /* GLOBAL LANGUAGE SPIN BIT */ 28900002 %DSVSPINN='''1''B'; /* SPINNING */ 29000002 %DSVSPINF='''0''B'; /* GLOBAL LANGUAGE SPIN BIT OFF */ 29100002 29200002 2 DSVFLGS CHAR(4), /* RESERVED */ 29300002 /********************************************************************/ 29400002 2 DSVPDSUC PTR(31), /* ADDR OF UCB FOR DSS DATA SET 29500002 (INITIALIZED BY DSS RIM) */ 29600002 2 DSVPDSST CHAR(4), /* CCHH OF 1ST RECORD IN DSS DATA SET 29700002 (INITIALIZED BY DSS RIM) */ 29800002 2 DSVDVE PTR(31), /* ADDR OF ENVIORNMENT VECTOR TABLE 29900002 (INITIALIZED BY IQAINI00) */ 30000002 2 DSVINTOC PTR(31), /* ADDR OF INTEGRATED OPERATOR'S 30100002 CONSOLE (INITIALIZED BY IQAINI00)*/ 30200002 2 DSVAVT PTR(31), /* ADDR OF AOS VECTOR TABLE 30300002 (INITIALIZED BY IQAINI00) */ 30400002 2 DSVLANLO PTR(31), /* DSS VM ADDR OF LANGUAGE LOAD 30500002 MODULE */ 30600002 2 DSVLANHI PTR(31), /* UPPPER BOUND OF DSS LANGUAGE 30700002 VM */ 30800002 2 DSVINIAD PTR(31), /* ADDRESS OF IQAINI00 30900002 (INITIALIZED BY DSS RIM) */ 31000002 2 DSVACTAD PTR(31), /* ADDRESS OF IQAACT00 31100002 (INITIALIZED BY IQAINI00) */ 31200002 2 DSVRIHAD PTR(31), /* ADDRESS OF IQARIH00 */ 31220002 2 DSVRSV0 PTR(31), /* RESERVED */ 31300002 31400002 2 DSVLOCK PTR(31), /* DSV LOCK WORD */ 31500002 3 DSVLCK PTR(8), /* LOCK BYTE */ 31600002 3 DSVLKTYP PTR(8), /* ID OF FUNCTION THAT OWNS LOCK */ 31700002 3 DSVLCKID PTR(16), /* PHYSICAL ID OF LOCKING CPU */ 31900002 32000002 2 DSVICCCW PTR(31), /* ICC CONTROL WORD */ 32020002 3 DSVICCWT PTR(8), /* ICC WAIT BYTE - FF-ICC WAITING 32040002 00-ICC NOT WAITING*/ 32060002 3 DSVICCCD PTR(8), /* ICC COMPLETION CODE - SET BY THE 32084002 CPU RECEIVING THE SIGP */ 32088002 3 DSVICCID PTR(16), /* PHYSICAL CPUID THAT ICC IS WAITING 32092002 ON */ 32096002 32096802 2 DSVICTAD PTR(31), /* TRANSFER ADDRESS - ICC */ 32100002 2 DSVICPAD PTR(31), /* PARAMETER LIST ADDR - ICC */ 32200002 2 DSVRSV1 (6)PTR(31), /* RESERVED */ 32300002 32400002 2 DSVNUIOC PTR(31), /* WORD FOR CS BY IQAPPR00 */ 32500002 3 DSVUNUS1 PTR(16), /* UNUSED */ 32550002 3 DSVRSCPU PTR(16), /* PHYSICAL ID OF RESTART CPU OR CPU 32600002 TO WHICH IQAPPR00 IS SWITCHING DSS*/ 32620002 2 DSVEVCPU PTR(16), /* PHYSICAL ID OF CURRENT EVENT CPU */ 32670002 2 DSVINCPU PTR(16), /* PHYSICAL ID OF INITIALIZATION CPU*/ 32700002 2 DSVRSV2 (2)PTR(15), /* RESERVED */ 32900002 33000002 2 DSVDSTCB PTR(31), /* ADDR OF DSS TCB */ 33100002 2 DSVVEDS1 PTR(31), /* JOBSTEP TIMING RTN IN */ 33300002 2 DSVVEDS2 PTR(31), /* IN DISPATCHER */ 33400002 2 DSVRSV3 (5)PTR(31), /* RESERVED */ 33500002 33600002 /********************************************************************/ 33700002 /* THE OS/VS2 R2 SYSTEM HOOKS FOR DSS */ 33800002 /********************************************************************/ 33900002 2 DSVIOHK1 PTR(31), /* LABEL AFTER SIOF INSTRUCTION IN 34000002 IOS SIO SUBROUTINE */ 34100002 2 DSVIOHK2 PTR(31), /* LABEL AFTER SIO INSTRUCTION IN 34200002 IOS SENSE SUBROUTINE */ 34300002 2 DSVIOHK3 PTR(31), /* LABEL AFTER TIO INSTRUCTION IN 34400002 IOS DA STANDALONE SEEK ROUTINE */ 34500002 2 DSVIOHK8 PTR(31), /* LABEL AFTER SIO INSTRUCTION IN 34550002 IOS SIO SUBROUTINE */ 34560002 2 DSVLOAD PTR(31), /* DSS NOP HOOK IN LOAD */ 34600002 2 DSVEXIT PTR(31), /* DSS NOP HOOK IN EXIT */ 34800002 2 DSVVDSS PTR(31), /* NOP HOOK IN VARY CPU ONLINE RTN 34950002 (INITIALIZED BY DSS RIM DURING NIP) */ 34960002 34970002 2 DSVCATST BDY(WORD), /* START OF CONTROL ATS */ 35000002 3 DSVIOHK4 PTR(31), /* NOP HOOK IN IOS HALT I/O ROUTINE */ 35040002 3 DSVIOHK5 PTR(31), /* NOP HOOK IN IOS HALT I/O ROUTINE */ 35080002 3 DSVIOHK6 PTR(31), /* NOP HOOK IN I/O RESTART ROUTINE */ 35088002 3 DSVIOHK7 PTR(31), /* NOP HOOK IN I/O RESTART ROUTINE */ 35096002 3 DSVDSSST PTR(31), /* NOP HOOK IN STOP RESTART ROUTINE */ 35100002 3 DVSDSSRS PTR(31), /* NOP HOOK IN STOP RESTART ROUTINE */ 35200002 3 DSVMCHK1 PTR(31), /* NOP HOOK IN MCH(IGFPMTRM) */ 35600002 3 DSVDSSNO PTR(31), /* NOP HOOK IN RESTART FLIH */ 35800002 2 DSVCATEN BDY(WORD), /* END OF CONTROL ATS */ 36020002 36100002 3 DSVRSV4 (2)PTR(31), /* RESERVED */ 36120002 /********************************************************************/ 36200002 /* NON-MONITORABLE AREAS - READ/WRITE ACCESS */ 36300002 /********************************************************************/ 36400002 2 DSVNONM, /*BEGINNING OF NONMONITORABLE RANGES*/ 36500002 36600002 3 DSVNM1B PTR(31), /* DSS NOP HOOK IN LOAD */ 36700002 3 DSVNM1E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 36800002 3 DSVNM2B PTR(31), /* DSS NOP HOOK IN EXIT */ 37000002 3 DSVNM2E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 37100002 3 DSVNM3B PTR(31), /* VARY CPU CODE - NO PREFIX REG */ 37300002 3 DSVNM3E PTR(31), /* FIRST BYTE PAST END OF RANGE 37400002 (INITIALIZED BY DSS RIM DURING NIP) */ 37450002 3 DSVNM4B PTR(31), /* SYSTEM RESTART INTERRUPT HANDLER */ 37600002 3 DSVNM4E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 37700002 3 DSVNM5B PTR(31), /* QUIESCE RESTART INTERRUPT HANDLER*/ 37900002 3 DSVNM5E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 38000002 3 DSVNM6B PTR(31), /*FIRST INSTRUCTION IN MCH(IGFPMCIH)*/ 38200002 3 DSVNM6E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 38300002 3 DSVNM7B PTR(31), /* SECOND HALF OF PSA */ 38350002 3 DSVNM7E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 38360002 3 DSVNM8B PTR(31), /* 1ST BYTE OF JOBSTEP TIMING RTN */ 38370000 3 DSVNM8E PTR(31), /* LAST BYTE OF JOBSTEP TIMING RTN */ 38380000 38400002 2 DSVNONME, /* END OF NON-MONITORABLE RANGES */ 38500002 38600002 3 DSVRSV5 (2)PTR(31), /* RESERVED */ 38700000 38800002 /********************************************************************/ 38900002 /* NON-MONITORABLE AREAS - READ ONLY ACCESS */ 39000002 /********************************************************************/ 39100002 2 DSVRONM, /*BEGINNING OF R-O NONMONITOR RANGES*/ 39200002 39300002 3 DSVPSAB PTR(31), /* BEGINNING OF FLC */ 39400002 3 DSVPSAE PTR(31), /* FIRST BYTE PAST END OF FLC */ 39500002 3 DSVRO1B PTR(31), /* DSS PSA SAVE AREA */ 39700002 3 DSVRO1E PTR(31), /* FIRST BYTE PAST END OF RANGE */ 39800002 39900002 2 DSVRONME, /* END OF R-O NON-MONITORABLE RANGES*/ 40000002 40100002 3 DSVRORSV (7)PTR(31), /* RESERVED */ 40200002 40300002 /********************************************************************/ 40400002 /* INITIALIZATION FLAGS AND WORK AREA */ 40500002 /********************************************************************/ 40600002 2 DSVDONE CHAR(1), /* IQAINI00 PROGRESS FLAG BYTE */ 40700002 40800002 3 DSVHK BIT(1), /* HOUSE KEEPING DONE */ 40900002 %DSVHKN='''1''B'; 41000002 %DSVHKF='''0''B'; 41100002 41200002 3 DSVIOC BIT(1), /*INTEGRATED OPERATOR CONSOLE FOUND*/ 41300002 %DSVIOCN='''1''B'; 41400002 %DSVIOCF='''0''B'; 41500002 41600002 3 DSVPD BIT(1), /* PAGING DEVICE VERIFIED */ 41700002 %DSVPDN='''1''B'; 41800002 %DSVPDF='''0''B'; 41900002 42000002 3 DSVPFXE BIT(1), /* PAGE FIX OF ENVIRONMENT DONE */ 42100002 %DSVPFXEN='''1''B'; 42200002 %DSVPFXEF='''0''B'; 42300002 42400002 3 DSVPFXD BIT(1), /* PAGE FIX OF DUMMY DONE */ 42500002 %DSVPFXDN='''1''B'; 42600002 %DSVPFXDF='''0''B'; 42700002 42800002 3 DSVSEGT BIT(1), /* SEGMENT TABLE COPIED */ 42900002 %DSVSEGTN='''1''B'; 43000002 %DSVSEGTF='''0''B'; 43100002 43200002 3 DSVMISC BIT(1), /* MISC. INITIALIZATION DONE */ 43300002 %DSVMISCN='''1''B'; 43400002 %DSVMISCF='''0''B'; 43500002 43600002 3 DSVEXT BIT(1), /* EXIT PROCESSING DONE */ 43700002 %DSVEXTN='''1''B'; 43800002 %DSVEXTF='''0''B'; 43900002 44000002 2 DSVREST CHAR(1), /* REST OF IQAINI00 FLAGS */ 44100002 44200002 3 DSVREFR BIT(1), /* IQAINI00 ENTERED FOR REFRESH */ 44300002 %DSVREFRN='''1''B'; 44400002 %DSVREFRF='''0''B'; 44500002 44600002 3 DSVERR2 BIT(1), /* ESTAR EXIT (IQAINIR2) ENTERED */ 44700002 %DSVERR2N='''1''B'; 44800002 %DSVERR2F='''0''B'; 44900002 45000002 3 DSVDIC BIT(1), /* ERROR EXIT CALLED BY IQADIC00 */ 45100002 %DSVDICN='''1''B'; 45200002 %DSVDICF='''0''B'; 45300002 45400002 2 DSVERROR CHAR(1), /* INTERNAL ERROR EXIT FLAG BYTE */ 45500002 45600002 3 DSVERR1 BIT(1), /* INTERNAL ERROR EXIT CALLED */ 45700002 %DSVERR1N='''1''B'; 45800002 %DSVERR1F='''0''B'; 45900002 46000002 3 DSVIOC1 BIT(1), /* INTEGRATED CONSOLE NOT FOUND */ 46100002 %DSVIOC1N='''1''B'; 46200002 %DSVIOC1F='''0''B'; 46300002 46400002 3 DSVIOC2 BIT(1), /* NO DSS SAVE AREA */ 46500002 %DSVIOC2N='''1''B'; 46600002 %DSVIOC2F='''0''B'; 46700002 46800002 3 DSVZAOS BIT(1), /* ZERO AOS TABLE POINTER FOUND */ 46900002 %DSVZAOSN='''1''B'; 47000002 %DSVZAOSF='''0''B'; 47100002 47200002 3 DSVRSVF BIT(1), /* RESERVE */ 47300002 %DSVRSVFN='''1''B'; 47400002 %DSVRSVFF='''0''B'; 47500002 47600002 3 DSVPDER BIT(1), /* PAGING DEVICE NOT SUPPORTED */ 47700002 %DSVPDERN='''1''B'; 47800002 %DSVPDERF='''0''B'; 47900002 48000002 3 DSVPFER BIT(1), /* PAGE FIX FAILURE */ 48100002 %DSVPFERN='''1''B'; 48200002 %DSVPFERF='''0''B'; 48300002 48400002 2 DSVWORK1 PTR(8), /* WORK SPACE */ 48500002 2 DSVWORK2 PTR(31), 48600002 2 DSVWORK3 PTR(31), 48700002 2 DSVWORK4 PTR(31), 48800002 2 DSVWORK5 PTR(31), 48900002 2 DSVEND CHAR(*); 48920002 /********************************************************************/ 49000002