* 00050002 * %GOTO PSAL1; /* 00100002 MACRO 00150002 IHAPSA &DSECT=YES */ 00200002 *%PSAL1 : ; 00250002 * 00300002 */* **************************************************************** */ 00350002 */* */ 00400002 */* PREFIXED SAVE AREA */ 00450002 */* */ 00500002 */* OS/VS2 SU64, 03/08/79, LEVEL=6 */ 00502000 */* */ 00600002 */* METHOD OF ACCESS */ 00650002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00700002 */* USING ON PSA GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00710002 */* PL/S - PSA WILL BE BASED(0) FOR PL/S I OR LOCATION(0) FOR */ 00720002 */* PL/S II UNLESS %PSABASE IS SET TO SOME OTHER VALUE */ 00730002 */* BEFORE INCLUDE FOR MACRO. */ 00740002 */* */ 00750002 */* NOTE */ 00800002 */* THE LABELS BEGINNING WITH PSA OR FLC ARE THE PROPER LABELS */ 00850002 */* TO USE. THE OTHER LABELS ARE GIVEN AS ALIAS NAMES FOR */ 00900002 */* COMPATIBILITY WITH LABELS USED FOR SYSTEM 360 LOW CORE. */ 00910002 */* */ 00950002 */* **************************************************************** */ 01000002 * 01050002 *%GOTO PSAL2; /* 01100002 SPACE 1 01150002 AIF ('&DSECT' EQ 'NO').PSA0010 01200002 PSA DSECT 01250002 AGO .PSA0020 01300002 .PSA0010 ANOP 01350002 IEAVFX00 CSECT 01360002 ENTRY SVCOPSW,PIOPSW,PINPSW,IEATCBP 01370002 DS 0D 01400002 PSA EQU * 01450002 USING PSA,0 01460002 .PSA0020 ANOP 01500002 FLC EQU * 01510002 FLCIPPSW DS 0CL8 - IPL PSW 01511002 FLCRNPSW DC XL4'040E0000' -RESTART NEW PSW (AFTER IPL) MDC001 01512002 DC V(IEAVRSTR) - SECOND HALF OF RESTART NEW PSW MDC128 01513002 IPLPSW EQU FLCIPPSW --- ALIAS 01514002 FLCICCW1 DS 0CL8 - IPL CCW1 01515002 FLCROPSW DC XL8'00' - RESTART OLD PSW (AFTER IPL) 01516002 FLCICCW2 DS 0CL8 - IPL CCW2 01517002 FLCCVT DC V(IEACVT) - ADDRESS OF CVT (AFTER IPL) 01518002 DC XL4'00' - RESERVED (AFTER IPL) 01519002 FLCEOPSW DC XL8'00' - EXTERNAL OLD PSW 01520002 EXOPSW EQU FLCEOPSW --- ALIAS 01521002 FLCSOPSW DC XL8'00' - SVC OLD PSW 01522002 SVCOPSW EQU FLCSOPSW --- ALIAS 01523002 FLCPOPSW DC XL8'00' - PROGRAM CHECK OLD PSW 01524002 PIOPSW EQU FLCPOPSW --- ALIAS 01525002 FLCMOPSW DC XL8'00' - MACHINE CHECK OLD PSW 01526002 MCOPSW EQU FLCMOPSW --- ALIAS 01527002 FLCIOPSW DC XL8'00' - INPUT/OUTPUT OLD PSW 01528002 IOOPSW EQU FLCIOPSW --- ALIAS 01529002 FLCCSW DC XL8'00' - CHANNEL STATUS WORD 01530002 FLCCAW DC XL4'00' - CHANNEL ADDRESS WORD 01531002 FLCCVT2 DC V(IEACVT) - ADDRESS OF CVT - USED BY DUMP 01532002 * ROUTINES ICB319 01533002 FLCTIMER DC XL4'FFFFFFFF' -TIMER 01534002 TIMER EQU FLCTIMER 01535002 FLCTRACE DC A(0) - ADDRESS OF TRACE TABLE HEADER YM2703 01536002 FLCENPSW DC XL4'040C0000' -EXTERNAL NEW PSW 01537002 DC V(IEAQEX00) - SECOND HALF OF EXTERNAL NEW PSW 01538002 EXNPSW EQU FLCENPSW --- ALIAS 01539002 FLCSNPSW DC XL4'040C0000' -SVC NEW PSW 01540002 DC V(IEAQSC00) - SECOND HALF OF SVC NEW PSW 01541002 SVCNPSW EQU FLCSNPSW --- ALIAS 01542002 FLCPNPSW DC XL4'000E0000' -PROGRAM CHECK NEW PSW MDC002 01543002 DC V(IEAQPK00) - SECOND HALF OF PROGRAM CHECK NEW PSW 01544002 PINPSW EQU FLCPNPSW --- ALIAS 01545002 FLCMNPSW DC XL4'00080000' -MACHINE CHECK NEW PSW MDC003 01546002 DC V(IGFPMCIH) - SECOND HALF OF MACHINE CHECK NEW PSW 01547002 * MDC003 01548002 MCNPSW EQU FLCMNPSW --- ALIAS 01549002 FLCINPSW DC XL4'040C0000' -INPUT/OUTPUT NEW PSW 01549202 DC V(IEAQIO00) - SECOND HALF OF I/O NEW PSW 01549402 IONPSW EQU FLCINPSW --- ALIAS 01549602 DC XL4'00' - RESERVED 01549802 PSAEEPSW DS 0F - EXTENDED PSW DATA STORED ON EXTERNAL 01549902 * INTERRUPT MDC084 01550002 PSASPAD DC H'0' - ISSUING PROCESSOR'S PHYSICAL ADDRESS ON 01550202 * EMS OR EXTERNAL CALL INTERRUPT MDC046 01550602 FLCEICOD DC H'0' - EXTERNAL INTERRUPTION CODE 01550902 EXCODE EQU FLCEICOD --- ALIAS 01551102 PSAESPSW DS 0F - EXTENDED PSW DATA STORED ON SVC 01551202 * INTERRUPT MDC085 01551902 DC XL1'00' - RESERVED - SET TO ZERO 01557302 FLCSVILC DC FL1'0' - SVC INSTRUCTION LENGTH COUNTER - 01558002 * NUMBER OF BYTES MDC079 01558602 FLCSILCB EQU X'07' - SIGNIFICANT BITS IN ILC FIELD - LAST 01558702 * BIT IS ALWAYS ZERO MDC080 01559502 SVCILC EQU FLCSVILC --- ALIAS 01560202 FLCSVCN DC H'0' - SVC INTERRUPTION CODE - SVC NUMBER MDC081 01560402 SVCNUM EQU FLCSVCN --- ALIAS 01560802 PSAEPPSW DS 0CL8 - EXTENDED PSW FOR PROGRAM INTERRUPT MDC086 01561402 DC XL1'00' - RESERVED - SET TO ZERO 01561502 FLCPIILC DC FL1'0' - PROGRAM INTERRUPT LENGTH COUNTER - 01562202 * NUMBER OF BYTES IN INSTRUCTION CAUSING 01562802 * PROGRAM INTERRUPTION MDC082 01562902 FLCPILCB EQU X'07' - SIGNIFICANT BITS IN ILC FIELD - LAST 01563102 * BIT IS ALWAYS ZERO MDC083 01563302 PIILC EQU FLCPIILC --- ALIAS 01563602 FLCPICOD DS 0H - PROGRAM INTERRUPTION CODE 01564302 PICODE EQU FLCPICOD --- ALIAS 01565002 PSARV049 DC XL1'00' - RESERVED FOR IMPRECISE INTERRUPTS MDC087 01565502 PSAPICOD DC FL1'0' - 8-BIT INTERRUPT CODE MDC088 01565602 PSAPIPER EQU X'80' - PER INTERRUPT OCCURRED MDC089 01565702 PSAPIMC EQU X'40' - MONITOR CALL INTERRUPT OCCURRED MDC090 01565802 PSAPIPC EQU X'3F' - AN UNSOLICITED PROGRAM CHECK HAS 01565902 * OCCURRED IF ANY OF THESE 6 BITS ARE 01566002 * ON MDC091 01566102 FLCTEA DS 0A - TRANSLATION EXCEPTION ADDRESS 01566302 DC XL1'00' - RESERVED - SET TO ZERO 01566402 FLCTEAA DC AL3(0) - TRANSLATION EXCEPTION ADDRESS 01567102 DC XL1'00' - RESERVED - SET TO ZERO 01567802 FLCMCNUM DC XL1'00' - MONITOR CLASS NUMBER 01568502 FLCPERCD DC XL1'00' - PROGRAM EVENT RECORDING CODE 01569202 DC XL1'00' - RESERVED - SET TO ZERO 01569902 FLCPER DS 0A - PER ADDRESS 01570602 DC XL1'00' - RESERVED - SET TO ZERO 01571302 FLCPERA DC AL3(0) - PER ADDRESS 01572002 DC XL1'00' - RESERVED - SET TO ZERO 01572702 FLCMTRCD DC XL3'00' - MONITOR CODE 01573402 DC XL8'00' - RESERVED 01574102 FLCMCLA DS 0XL344 - MACHINE CHECK LOGOUT AREA 01574802 FLCCHNID DS 0XL4 - CHANNEL ID SET BY STIDC (MDC436) @G51BP9A 01574951 FLCCHTM DC XL2'00' - CHANNEL TYPE (4 BITS) AND MODEL NUMBER 01575551 * (12 BITS) (MDC437) @G51BP9A 01575651 FLCCHIL DC H'0' - I/O EXTENDED LOGOUT (IOEL) LENGTH 01575751 * (MDC440) @G51BP9A 01575851 FLCIOEL DS 0A - SAME AS FLCIOELA BELOW 01576202 DC XL1'00' - RESERVED 01576902 FLCIOELA DC AL3(0) - I/O EXTENDED LOGOUT (IOEL) POINTER 01577602 FLCLCL DC XL4'00' - LIMITED CHANNEL LOGOUT (ECSW) 01578302 DC XL2'00' - RESERVED 01579002 DC XL1'00' - RESERVED MDC051 01579702 DC XL1'00' - RESERVED MDC052 01580402 FLCIOA DS 0A - I/O ADDRESS 01581102 DC XL1'00' - RESERVED 01581802 FLCIOAA DC AL3(0) - I/O ADDRESS 01582502 DC XL44'00' - RESERVED 01583202 FLCMCIC DC XL8'00' - MACHINE-CHECK INTERRUPTION CODE 01583902 DC XL4'00' - RESERVED @G51BP9A 01584251 PSAMEDC DC XL1'00' - EXTERNAL DAMAGE CODE (MDC441) @G51BP9A 01584651 * EQU X'80' - RESERVED @G51BP9A 01584751 PSAMCOPR EQU X'40' - CHANNEL CHANGED FROM NOT OPERATIONAL TO 01584851 * OPERATIONAL STATE (MDC442) @G51BP9A 01584951 PSAMEXSR EQU X'20' - EXTERNAL SECONDARY REPORT 01585051 * (MDC443) @G51BP9A 01585151 PSAMCNOP EQU X'10' - CHANNEL ENTERED NOT OPERATIONAL STATE 01585251 * WITHOUT PERFORMING I/O SYSTEM RESET 01585951 * (MDC444) @G51BP9A 01586051 PSAMCCF EQU X'08' - CHANNEL CONTROL FAILURE (MDC445) @G51BP9A 01586151 PSAMINST EQU X'04' - I/O INSTRUCTION TIMEOUT (MDC446) @G51BP9A 01586251 PSAMINTR EQU X'02' - I/O INTERRUPTION TIMEOUT 01586351 * (MDC447) @G51BP9A 01586451 PSAMDISC EQU X'01' - DISCONNECT CHANNEL SET (DISCS) 01586551 * INSTRUCTION CANNOT BE COMPLETED 01587251 * (MDC448) @G51BP9A 01587351 DC XL3'00' - ZEROES (MDC449) @G51BP9A 01587451 FLCFSA DS 0A - FAILING STORAGE ADDRESS 01587551 DC XL1'00' - ZEROES 01587651 FLCFSAA DC AL3(0) - FAILING STORAGE ADDRESS 01587951 FLCRGNCD DC XL4'00' - REGION CODE 01588051 FLCFLA DC XL96'00' - FIXED LOGOUT AREA 01588102 FLCFPSAV DC XL32'00' - FLOATING POINT REGISTER SAVE AREA 01588802 FLCGRSAV DC 16F'0' - GENERAL REGISTER SAVE AREA 01589502 FLCCRSAV DC 16F'0' - CONTROL REGISTER SAVE AREA 01590202 FLCHDEND DS 0D - END OF HARDWARE ASSIGNMENTS 01590902 AIF ('&DSECT' EQ 'YES').PSA0100 ICB414 01591602 SPACE 2 - 01592302 ORG PSA+X'16C' - LOCATION X'16C' IS BRANCHED TO BY THE 01593002 * IPL PROGRAM 01593702 LPSW *+4 - CAUSES MODULE IEAANIP0 TO BE ENTERED TO 01594402 * INITIALIZE THE SYSTEM 01595102 DC XL4'00' - FIRST WORD OF PSW 01595802 DC V(IEAVNIP0) - SECOND WORD OF PSW 01596502 ORG FLCHDEND - 01597202 .PSA0100 ANOP 01597902 SPACE 1 01598602 PSAPSA DC CL4'PSA ' - CONTROL BLOCK ACRONYM IN EBCDIC 01599302 PSACPUPA DC H'0' - PHYSICAL CPU ADDRESS (CHANGED DURING ACR) 01600002 * (MDC130) YM3489 01620002 PSACPULA DC H'0' - LOGICAL CPU ADDRESS 01650002 PSAPCCAV DC A(0) - VIRTUAL ADDRESS OF PCCA 01700002 PSAPCCAR DC A(0) - REAL ADDRESS OF PCCA 01750002 PSALCCAV DC A(0) - VIRTUAL ADDRESS OF LCCA 01800002 PSALCCAR DC A(0) - REAL ADDRESS OF LCCA 01850002 PSATNEW DC A(0) - TCB NEW POINTER 01900002 IEATCBP EQU PSATNEW - ALIAS 01910002 PSATOLD DC A(0) - TCB OLD POINTER 01950002 PSAANEW DC A(0) - ASCB NEW POINTER 02000002 PSAAOLD DC A(0) - ASCB OLD POINTER 02050002 PSASUPER DS 0BL4 - SUPERVISOR CONTROL WORD 02100002 PSASUP1 DC XL1'00' - FIRST BYTE OF PSASUPER 02150002 PSAIO EQU X'80' - I/O FLIH 02200002 PSASVC EQU X'40' - SVC FLIH 02250002 PSAEXT EQU X'20' - EXTERNAL FLIH 02300002 PSAPI EQU X'10' - PROGRAM CHECK FLIH 02350002 PSALOCK EQU X'08' - LOCK ROUTINE 02400002 PSADISP EQU X'04' - DISPATCHER 02450002 PSATCTL EQU X'02' - TCTL RECOVERY FLAG (MDC310) @Z40FP9A 02500004 PSATYPE6 EQU X'01' - TYPE 6 SVC IN CONTROL (MDC311) @Z40FP9A 02530004 PSASUP2 DC XL1'00' - SECOND BYTE OF PSASUPER 02600002 PSAIPCRI EQU X'80' - SIGP - REMOTE IMMEDIATE 02650002 PSAGTF EQU X'40' - GTF GIVEN CONTROL FROM FLIH 02700002 PSAIPCEC EQU X'20' - EXTERNAL CALL SLIH IS ACTIVE MDC047 02750002 PSAIPCES EQU X'10' - EMERGENCY SIGNAL SLIH IS ACTIVE MDC048 02800002 PSAIPCE2 EQU X'08' - EMERGENCY SIGNAL (EMS) SLIH RECURSIVE 02850002 * ENTRY FLAG MDC110 02860002 PSAACR EQU X'04' - AUTOMATIC CPU RECONFIGURATION (ACR) IN 02910002 * CONTROL MDC119 02960002 PSARTM EQU X'02' - RECOVERY TERMINATION MONITOR (RTM) IN 02970002 * CONTROL MDC120 02980002 PSALCR EQU X'01' - LOW CORE REFRESH ROUTINE IS ACTIVE MDC126 03030002 PSASUP3 DC XL1'00' - THIRD BYTE OF PSASUPER 03050002 PSAIOSUP EQU X'80' - IF ON, A MAINLINE IOS COMPONENT SUCH AS 03100002 * CHANNEL SCHEDULER HAS ENTERED A 03110002 * PHYSICALLY DISABLED STATE WITHOUT REGARD 03120002 * TO LOCKING REQUIREMENTS MDC027 03130002 PSAPI2 EQU X'40' - PROGRAM CHECK FLIH RECURSION 03150003 * (MDC301) @ZM08516 03200003 PSAPSREG EQU X'20' - PSA RECOVERY RECURSION (MDC302) @ZM08516 03220003 PSASPR EQU X'10' - SUPER FRR IS ACTIVE (MDC305) @ZA02995 03250004 PSAESTA EQU X'08' - ESTAE RECOVERY ROUTINE ACTIVE 03300004 * (MDC312) @Z40FP9A 03310004 PSARV012 EQU X'04',,C'X' - RESERVED 03350002 PSAULCMS EQU X'02' - LOCK MANAGER UNCONDITIONAL LOCAL OR 03400051 * CMS LOCK ROUTINES (MDC469) @ZA28594 03410051 PSASLIP EQU X'01' - IEAVTSLP RECURSION CONTROL BIT 03450064 * (MDC471) @G64RP9A 03460064 PSASUP4 DC XL1'00' - FOURTH BYTE OF PSASUPER 03500002 PSALDWT EQU X'80' - IF ON, IEEVLDWT IS ACTIVE AND PROCESSING 03550064 * STOP/RESTART REQUEST (MDC597) @G64UP9A 03560064 PSARV016 EQU X'40',,C'X' - RESERVED 03600002 PSARV017 EQU X'20',,C'X' - RESERVED 03650002 PSARV018 EQU X'10',,C'X' - RESERVED 03700002 PSARV019 EQU X'08',,C'X' - RESERVED 03750002 PSARV020 EQU X'04',,C'X' - RESERVED 03800002 PSARV021 EQU X'02',,C'X' - RESERVED 03850002 PSARV022 EQU X'01',,C'X' - RESERVED 03900002 PSAGPREG DC 3F'0' - REGISTER SAVE AREA FOR I/O FLIH, SVC 03950002 * FLIH, EXTERNAL FLIH AND SYSTEM TRACE 04000002 PSARSREG DC F'0' - RESTART FLIH REGISTER SAVE 04050002 PSAPIREG DC F'0' - PROGRAM CHECK FLIH REGISTER SAVE 04100002 DS 0D - ALIGN PSAEXPS1 TO DOUBLE WORD 04110002 PSAEXPS1 DC XL8'00' - EXTERNAL FLIH PSW SAVE AREA 1 04150002 DS 0D - ALIGN PSAEXPS2 TO DOUBLE WORD 04160002 PSAEXPS2 DC XL8'00' - EXTERNAL FLIH PSW SAVE AREA 2 04200002 DS 0D - ALIGN PSAMPSW TO DOUBLE WORD 04210002 PSAMPSW DC XL8'000C000000000000' - SETLOCK MODEL PSW 04250002 DS 0D - ALIGN PSAMCHEX TO DOUBLE WORD 04260002 PSAMCHEX DC XL8'00' - MCH EXIT PSW 04300002 PSAIPCR DC X'AD00' - FIRST HALF OF IPC INSTRUCTION TO BE 04350002 * EXECUTED 04400002 DC Y(PSAIPCRM-PSA) - SECOND HALF OF IPC INSTRUCTION 04450002 PSAIPCRM DC XL1'00' - BYTE USED BY ABOVE IPC INSTRUCTION 04500002 DC XL3'00' - RESERVED 04550002 PSAIPCD DC X'AD00' - FIRST HALF OF IPC INSTRUCTION TO BE 04600002 * EXECUTED 04650002 DC Y(PSAIPCDM-PSA) - SECOND HALF OF IPC INSTRUCTION 04700002 PSAIPCDM DC XL1'00' - BYTE USED BY ABOVE IPC INSTRUCTION 04750002 PSAIPCC3 DC XL1'00' - BYTE USED BY IPC FOR CC3 STNSM @ZM49378 04800064 * (MDC598) 04810064 DC XL2'00' - RESERVED @ZM49378 04820064 PSAIPCSA DC F'0' - IPC REGISTER SAVE AREA MDC049 04850002 PSAHLHIS DC F'0' - SAVE AREA FOR PSAHLHI MDC050 04900002 PSARECUR DC XL1'00' - RESTART FLIH RECURSION INDICATOR. IF 04950002 * X'00', FLIH NOT IN CONTROL. IF X'FF', 04960002 * FLIH IN CONTROL, ENTRY IS RECURSIVE. 04970002 * MDC093 04980002 PSADSSGO DC XL1'00' - INITIALIZE DSS FLAG, SET BY OPERATOR. 04990002 * IF X'00', DSS NOT TO BE ACTIVATED. IF 04992002 * NOT X'00', NEXT RESTART INTERRUPT FROM 04994002 * CONSOLE SHOULD INITIALIZE DSS. MDC094 04996002 PSASNSM2 DC XL1'00' - STNSM AREA FOR IEAVTRT1 (MDC470) @G64RP9A 04998064 PSARV050 DC XL1'00' - RESERVED 04998264 PSASRSA DC A(0) - REAL ADDRESS OF SAVE AREA USED DURING 04998402 * STOP AND RESTART SUBROUTINE MDC095 04998802 PSACLHT DS 0CL56 - CPU LOCKS HELD TABLE. INITIALIZED TO 05000002 * ZERO. IF LOCK IS HELD, WORD REPRESENTING 05050002 * LOCK HAS ITS ADDRESS. 05100002 PSADISPL DC A(0) - GLOBAL DISPATCHER LOCK 05150002 PSAASML DC A(0) - AUXILIARY STORAGE MANAGEMENT (ASM) LOCK 05160002 * MDC002 05162002 PSASALCL DC A(0) - SPACE ALLOCATION LOCK MDC003 05170002 PSAIOSSL DC A(0) - IOS SYNCHRONIZATION LOCK MDC010 05180002 PSAIOSCL DC A(0) - IOS CHANNEL AVAILABLE TABLE LOCK MDC004 05200002 PSAIOSUL DC A(0) - IOS UNIT CONTROL BLOCK LOCK MDC005 05300002 PSAIOSLL DC A(0) - IOS LOGICAL CHANNEL QUEUE LOCK MDC006 05400002 PSATPNCL DC A(0) - TCAM'S TPNCP LOCK MDC007 05510002 PSATPDNL DC A(0) - TCAM'S TPDNCB LOCK MDC008 05520002 PSATPACL DC A(0) - TCAM'S TPACBDEB LOCK MDC009 05530002 PSAOPTL DC A(0) - OPTIMIZER LOCK 05650002 PSACMSL DC A(0) - CROSS MEMORY SERVICES LOCK 05700002 PSALOCAL DC A(0) - LOCAL LOCK 05800002 PSARV023 DC A(0) - RESERVED LOCK 05810002 PSALKSA DS 0CL64 - SETLOCK REGISTER SAVE AREA 05850002 PSALKR0 DC F'0' - SETLOCK'S CALLER'S REGISTER 0 05860002 PSALKR1 DC F'0' - SETLOCK'S CALLER'S REGISTER 1 05870002 PSALKR2 DC F'0' - SETLOCK'S CALLER'S REGISTER 2 05880002 PSALKR3 DC F'0' - SETLOCK'S CALLER'S REGISTER 3 05890002 PSALKR4 DC F'0' - SETLOCK'S CALLER'S REGISTER 4 05892002 PSALKR5 DC F'0' - SETLOCK'S CALLER'S REGISTER 5 05894002 PSALKR6 DC F'0' - SETLOCK'S CALLER'S REGISTER 6 05896002 PSALKR7 DC F'0' - SETLOCK'S CALLER'S REGISTER 7 05898002 PSALKR8 DC F'0' - SETLOCK'S CALLER'S REGISTER 8 05898402 PSALKR9 DC F'0' - SETLOCK'S CALLER'S REGISTER 9 05898802 PSALKR10 DC F'0' - SETLOCK'S CALLER'S REGISTER 10 05899202 PSALKR11 DC F'0' - SETLOCK'S CALLER'S REGISTER 11 05899602 PSALKR12 DC F'0' - SETLOCK'S CALLER'S REGISTER 12 05899702 PSALKR13 DC F'0' - SETLOCK'S CALLER'S REGISTER 13 05899802 PSALKR14 DC F'0' - SETLOCK'S CALLER'S REGISTER 14 05899902 PSALKR15 DC F'0' - SETLOCK'S CALLER'S REGISTER 15 05916602 PSACLHS DS 0F - CPU LOCKS HELD STRING MDC122 05926602 PSAHLHI DC F'0' - HIGHEST LOCK HELD INDICATOR MDC121 05933302 PSALITA DC V(IEAVELIT) - ADDRESS OF LOCK INTERFACE TABLE 05950002 DS 0D - ALIGN PSAPSWSV TO DOUBLE WORD 05960002 PSAPSWSV DC XL8'00' - PSW SAVE AREA FOR DISPATCHER AND ACR 06000002 PSACR0 DC F'0' - SAVE AREA FOR CONTROL REGISTER 0 06050002 PSAMCHFL DC XL1'00' - MCH RECURSION FLAGS 06100002 PSASYMSK DC XL1'00' - THIS FIELD WILL BE USED IN CONJUNCTION 06110002 * WITH THE STNSM INSTRUCTION TO PLACE IOS 06120002 * CHANNEL SCHEDULER INTO A DISABLED STATE 06130002 * AND SIMULTANEOUSLY SAVE THE SYSTEM MASK 06140002 * OF THE CALLER MDC022 06142002 PSAACTCD DC XL1'00' - ACTION CODE SUPPLIED BY OPERATOR AFTER 06143051 * SYSTEM HAS LOADED RESTARTABLE WAIT STATE 06144051 * AND BEFORE THE RESTART KEY IS DEPRESSED. 06146051 * VALUE DEPENDS ON RESTARTABLE WAIT STATE 06148051 * CODE. UNPREDICTABLE DURING NORMAL SYSTEM 06150051 * OPERATION. (MDC433) @G51BP9A 06152051 PSAMCHIC DC XL1'00' - MCH INITIALIZATION COMPLETE FLAGS MDC098 06156002 PSAWKRAP DC A(0) - REAL ADDRESS OF VARY CPU PARAMETER LIST 06160002 * MDC106 06170002 PSAWKVAP DC A(0) - VIRTUAL ADDRESS OF VARY CPU PARAMETER 06180002 * LIST MDC107 06190002 PSAVSTAP DC H'0' - WORK AREA FOR VARY CPU MDC108 06190402 PSACPUSA DC H'0' - PHYSICAL CPU ADDRESS (STATIC) (MDC131) 06190802 * YM3489 06191402 PSASTOR DC F'0' - MASTER MEMORY'S SEGMENT TABLE ORIGIN 06192002 * REGISTER (STOR) VALUE 06194002 PSADSSRS DC F'0' - REGISTER SAVE FOR DSS PROGRAM AND SVC 06196002 * INTERRUPT HANDLERS MDC053 06198002 PSADSSR2 DC F'0' - REGISTER SAVE AREA FOR DSS I/O AND 06198102 * EXTERNAL INTERRUPT HANDLERS MDC054 06198202 PSADSSR3 DC F'0' - REGISTER SAVE AREA FOR DSS ERROR RECOVERY 06198302 * ROUTINE MDC055 06199502 PSADSSWK DC F'0' - WORK AREA FOR DSS INTERRUPT HANDLERS 06201502 * MDC056 06201902 PSADSSTS DC 5F'0' - REGISTER SAVE FOR DSS MODULES MAKING 06202002 * CALLS TO IQATSS MDC023 06203202 PSADSSFL DS 0BL4 - DSS FLAG BYTES MDC024 06204402 PSADSSF1 DC XL1'00' - DSS STATUS BYTE MDC029 06205602 PSADSSMV EQU X'80' - DSS MONITORING, VS2 RUNNING MDC030 06206802 PSADSSDM EQU X'40' - DSS IN VS2-2 VM MDC031 06208002 PSADSSDD EQU X'20' - DSS IN DSS VM MDC032 06209202 PSADSSDW EQU X'10' - DSS IN DSS WAIT MDC033 06210402 PSADSSTP EQU X'08' - DSS PROCESSING SIGP MDC034 06211602 PSADSSSP EQU X'04' - DSS SIGP PENDING MDC035 06212802 PSADSSOI EQU X'02' - DSS EXECUTING OVERLAID INSTRUCTION MDC036 06214002 PSADSSPI EQU X'01' - DSS EXECUTING PRIVILEGED INSTRUCTION 06215202 * MDC037 06216402 PSADSSF2 DC XL1'FF' - SYSTEM STATUS BYTE (MDC038) YM6287 06217602 PSADSSPS EQU X'FF' - SYSTEM RUNNING IN PROBLEM STATE MDC039 06218802 PSADSSSS EQU X'FE' - SYSTEM RUNNING IN PRIVILEGED STATE MDC040 06220002 PSADSSF3 DC XL1'00' - DSS FLAG BYTE MDC099 06221202 PSADSSGP EQU X'80' - DSS SIGP INDICATOR MDC100 06222402 PSADSSES EQU X'40' - ERROR SHORT SAVE INDICATOR MDC113 06224402 PSADSSNM EQU X'20' - NON-MONITORABLE CODE INDICATOR MDC114 06224502 PSADSSRW EQU X'10' - DSS OWNS CVTRSTWD MDC117 06224602 PSADSSMC EQU X'08' - MACHINE CHECK RUNNING (MDC132) YM6287 06224702 PSARV055 EQU X'04',,C'X' - RESERVED FOR DSS MDC100 06226002 PSARV056 EQU X'02',,C'X' - RESERVED FOR DSS MDC100 06226402 PSARV057 EQU X'01',,C'X' - RESERVED FOR DSS MDC100 06226802 PSADSSF4 DC XL1'00' - DSS RECURSION FLAGS MDC101 06227702 PSADSSRC EQU X'80' - PROGRAM-SVC RECURSION FLAG MDC057 06229002 PSADSS12 EQU X'40' - PROGRAM INTERRUPT 12 RECURSION FLAG 06230302 * MDC058 06231602 PSADSSIE EQU X'20' - I/O-EXTERNAL RECURSION FLAG MDC059 06232902 PSADSSC0 EQU X'10' - CONTROL REGISTER 0 INVALID FLAG MDC092 06234202 PSADSSDE EQU X'08' - DAT ERROR WHILE DSS RUNNING IN VS2 VM 06236402 * MDC102 06238402 PSADSSVE EQU X'04' - DAT ERROR WHILE DSS RUNNING IN DSS VM 06240402 * MDC103 06240502 PSADSS10 EQU X'02' - SEGMENT EXCEPTION RECURSION FLAG MDC104 06240602 PSADSS05 EQU X'01' - ADDRESSING EXCEPTION RECURSION FLAG 06240902 * MDC105 06241302 DS 0D - ALIGN PSADSSRP TO DOUBLEWORD MDC025 06241602 PSADSSRP DC XL8'00' - DSS TO VS2-2 RESUME PSW MDC025 06242002 DS 0D - ALIGN PSADSSPP TO DOUBLEWORD MDC026 06243302 PSADSSPP DC XL8'00' - DSS PSW FOR RETURNING CONTROL FROM 06244602 * PRIVILEGED INSTRUCTION STREAM TO VS2 06245902 * MDC026 06246302 PSADSS14 DC F'0' - DSS RESTART SECOND LEVEL INTERRUPT 06248302 * HANDLER CONTROL REGISTER 14 SAVE AREA 06248702 * MDC115 06249102 PSADSSFW DC F'0' - FULL-WORD DSS WORK AREA MDC116 06249502 PSADSSPR DC F'0' - DSS REGISTER SAVE FOR PRIVILEGED 06249802 * INSTRUCTION STREAM MDC028 06251102 PSADSSED EQU * - END OF DSS FIELDS MDC045 06252402 PSARV025 DC F'0' - RESERVED FOR DSS 06253702 PSARV040 DC F'0' - RESERVED FOR DSS 06255002 PSARV041 DC F'0' - RESERVED FOR DSS 06256302 PSARV042 DC F'0' - RESERVED FOR DSS 06257602 PSARV043 DC F'0' - RESERVED FOR DSS 06258902 PSARV153 DC H'0' - RESERVED (MDC607) 06260200 PSARET DC X'07FE' - BRANCH RETURN TO CALLER, USED BY 06261200 * ROUTINES INVOKED BY IOS 06262200 * (MDC607) @ZA38630 06263200 PSARETCD DC X'47FFE000' - BRANCH RETURN TO CALLER WITH RETURN 06264200 * CODE IN REGISTER 15, USED BY ROUTINES 06265200 * INVOKED BY IOS (MDC607) @ZA38630 06266200 PSARSVT DS 0CL64 - RECOVERY STACK VECTOR TABLE MDC064 06271502 PSARSVTE DS 0CL64 - RECOVERY STACK VECTOR TABLE MDC065 06273502 PSACSTK DC A(0) - ADDRESS OF CURRENTLY USED FUNCTIONAL 06273902 * RECOVERY ROUTINE (FRR) STACK MDC061 06274302 PSANSTK DC A(0) - ADDRESS OF NORMAL FRR STACK MDC062 06278602 PSASSTK DC A(0) - ADDRESS OF SVC-I/O-DISPATCHER FRR STACK 06280602 * MDC063 06282602 PSASSAV DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06282702 * SVC-I/O-DISPATCHER MDC066 06282802 PSAMSTK DC A(0) - ADDRESS OF MCH FRR STACK MDC067 06287102 PSAMSAV DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06289102 * MCH MDC068 06291102 PSAPSTK DC A(0) - ADDRESS OF PROGRAM CHECK FLIH FRR STACK 06291202 * MDC069 06291302 PSAPSAV DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06303002 * PROGRAM CHECK FLIH MDC070 06313002 PSAESTK1 DC A(0) - ADDRESS OF EXTERNAL FLIH FRR STACK FOR 06313402 * NON-RECURSIVE ENTRIES MDC071 06313802 PSAESAV1 DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06314202 * NON-RECURSIVE ENTRIES MDC072 06314602 PSAESTK2 DC A(0) - ADDRESS OF EXTERNAL FLIH FRR STACK FOR 06314702 * FIRST LEVEL RECURSIONS MDC073 06314802 PSAESAV2 DC A(0) - ADDRESS OF INTERRUPTED STACK SAVE BY 06318702 * EXTERNAL FLIH FOR FIRST LEVEL RECURSIONS 06320702 * MDC074 06321502 PSAESTK3 DC A(0) - ADDRESS OF EXTERNAL FLIH FRR STACK FOR 06321902 * SECOND LEVEL RECURSIONS AND ACR MDC075 06322302 PSAESAV3 DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06322402 * EXTERNAL FLIH (ACR) FOR SECOND LEVEL 06322502 * RECURSIONS MDC076 06322602 PSARSTK DC A(0) - ADDRESS OF RESTART FLIH FRR STACK MDC077 06326502 PSARSAV DC A(0) - ADDRESS OF INTERRUPTED STACK SAVED BY 06328502 * RESTART FLIH MDC078 06328902 DS 0D - ALIGN PSARPSW TO DOUBLE WORD MDC096 06329302 PSASRPSW DC XL8'00' - RESUME PSW FOR STOP AND RESTART 06329702 * SUBROUTINE MDC096 06330102 DS 0D - ALIGN PSARSPSW TO DOUBLE WORD MDC097 06330202 PSARSPSW DC XL8'00' - RESUME PSW FIELD FOR RESTART INTERRUPT 06330302 * HANDLER MDC097 06330402 DS 0D - ALIGN PSASTART TO DOUBLE WORD MDC111 06332402 PSASTART BR 14 - START FATHOM RECORDING MDC111 06332802 DC XL14'00' - REST OF PSASTART MDC111 06333202 DS 0D - ALIGN PSASTOP TO DOUBLE WORD MDC112 06333602 PSASTOP BR 14 - STOP FATHOM RECORDING MDC112 06334002 DC XL14'00' - REST OF PSASTOP MDC112 06334102 DS 0F - ALIGN PSASFACC TO FULL WORD MDC123 06334202 PSASFACC DC XL4'8007D000' - SETFRR ABEND COMPLETION CODE USED WHEN 06334302 * A SETFRR ADD IS ISSUED AGAINST A FULL 06340702 * FRR STACK MDC123 06342702 PSALSFCC DC XL4'581003F0' - A LOAD INSTRUCTION TO PRIME REGISTER 1 06344702 * WITH THE SETFRR ABEND COMPLETION CODE IN 06346702 * PSASFACC MDC124 06347102 PSASVC13 SVC 13 - AN SVC 13 INSTRUCTION MDC125 06347502 PSARV059 DC H'0' - RESERVED 06347902 PSAPIR2 DC F'0' - PROGRAM CHECK FLIH REGISTER SAVE 06348203 * (MDC303) @ZM08516 06348603 DS 0D - ALIGN PSAPCPSW TO DOUBLE WORD YM0943 06348902 PSAPCPSW DC XL8'00' - TEMPORARY OLD PSW STORAGE FOR PROGRAM 06349202 * FLIH (MDC129) YM0943 06349502 PSAATCVT DC A(0) - ADDRESS OF VTAM ATCVT. INITIALIZED BY 06349703 * VTAM. (MDC300) @Z30AP9A 06350003 PSAWTCOD DC A(0) - CALLER-SUPPLIED WAIT STATE INFORMATION 06355004 * FOR STOP/RESTART (MDC306) @ZA00904 06357004 PSACDAL DC A(0) - ADDRESS OF COMMON DISPATCHER ELEMENT FOR 06358004 * THIS CPU (MDC307) @Z40FP9A 06359004 PSACSID DC H'0' - CURRENT CHANNEL SET ID (MDC472) @G64AP9A 06360064 PSARV100 DC H'0' - RESERVED @G64AP9A 06360364 PSAUSEND DS 0D - END OF ASSIGNED FIELDS MDC109 06361003 DC 2024XL1'00' - RESERVED @Z40AQ9A 06367504 DS 0D - ALIGN PSASTAK TO DOUBLE WORD MDC118 06374003 PSASTAK DC 596XL1'00' - NORMAL FRR STACK (MDC304) @ZM32352 06387003 DC 428XL1'00' - RESERVED FOR EXPANSION OF PSASTAK 06391003 * (MDC304) @ZM32352 06395003 MEND , - */ 06400003 *%PSAL2 : ; 06408003 * 06416003 *DECLARE 06424003 *%IF PSABASE='' %THEN 06432003 * %GOTO PSA0010; 06440003 * 1 PSA PSABASE BDY(DWORD), 06450002 *%GOTO PSA0030; 06451002 *%PSA0010 : ; 06452002 *%IF IKEPLS='2' %THEN 06453002 * %GOTO PSA0020; 06454002 * 1 PSA BASED(0) BDY(DWORD), 06455002 *%GOTO PSA0030; 06456002 *%PSA0020 : ; 06457002 * 1 PSA LOCATION(0) BDY(DWORD), 06458002 *%PSA0030 : ; 06459002 * 2 FLCRNPSW CHAR(8) BDY(DWORD), /* RESTART NEW PSW (AFTER 06460002 * IPL) */ 06461002 * 3 FLCIPPSW CHAR(8) BDY(DWORD), /* IPL PSW */ 06462002 * 2 FLCROPSW CHAR(8) BDY(DWORD), /* RESTART OLD PSW (AFTER 06463002 * IPL) */ 06464002 * 3 FLCICCW1 CHAR(8) BDY(DWORD), /* IPL CCW1 */ 06465002 * 2 FLCICCW2 CHAR(8) BDY(DWORD), /* IPL CCW2 */ 06466002 * 3 FLCCVT PTR(31), /* ADDRESS OF CVT (AFTER 06467002 * IPL) */ 06468002 * 3 * CHAR(4), /* RESERVED (AFTER IPL) */ 06469002 * 2 FLCEOPSW CHAR(8) BDY(DWORD), /* EXTERNAL OLD PSW */ 06470002 * 2 FLCSOPSW CHAR(8) BDY(DWORD), /* SVC OLD PSW */ 06471002 * 2 FLCPOPSW CHAR(8) BDY(DWORD), /* PROGRAM CHECK OLD PSW */ 06472002 * 2 FLCMOPSW CHAR(8) BDY(DWORD), /* MACHINE CHECK OLD PSW */ 06473002 * 2 FLCIOPSW CHAR(8) BDY(DWORD), /* INPUT/OUTPUT OLD PSW */ 06474002 * 2 FLCCSW CHAR(8) BDY(DWORD), /* CHANNEL STATUS WORD */ 06475002 * 2 FLCCAW CHAR(4) BDY(WORD), /* CHANNEL ADDRESS WORD */ 06476002 * 2 FLCCVT2 PTR(31), /* ADDRESS OF CVT - USED BY 06477002 * DUMP ROUTINES ICB319*/ 06478002 * 2 FLCTIMER CHAR(4), /* TIMER */ 06479002 * 2 FLCTRACE PTR(31), /* ADDRESS OF TRACE TABLE 06480002 * HEADER */ 06481002 * 2 FLCENPSW CHAR(8) BDY(DWORD), /* EXTERNAL NEW PSW */ 06482002 * 2 FLCSNPSW CHAR(8) BDY(DWORD), /* SVC NEW PSW */ 06483002 * 2 FLCPNPSW CHAR(8) BDY(DWORD), /* PROGRAM CHECK NEW PSW */ 06484002 * 2 FLCMNPSW CHAR(8) BDY(DWORD), /* MACHINE CHECK NEW PSW */ 06485002 * 2 FLCINPSW CHAR(8) BDY(DWORD), /* INPUT/OUTPUT NEW PSW */ 06486002 * 2 * CHAR(4), /* RESERVED */ 06487002 * 2 PSAEEPSW CHAR(4) BDY(WORD), /* EXTENDED PSW DATA STORED 06487102 * ON EXTERNAL INTERRUPT 06487202 * MDC084*/ 06487302 * 3 PSASPAD FIXED(15), /* ISSUING PROCESSOR'S 06487402 * PHYSICAL ADDRESS ON EMS 06487802 * OR EXTERNAL CALL 06488202 * INTERRUPT MDC046*/ 06488602 * 3 FLCEICOD FIXED(15), /* EXTERNAL INTERRUPTION 06489002 * CODE */ 06490002 * 2 PSAESPSW CHAR(4) BDY(WORD), /* EXTENDED PSW DATA STORED 06490402 * ON SVC INTERRUPT MDC085*/ 06490802 * 3 * CHAR(1), /* RESERVED - SET TO ZERO */ 06491002 * 3 FLCSVILC PTR(8), /* SVC INSTRUCTION LENGTH 06492002 * COUNTER - NUMBER OF BYTES 06492402 * MDC079*/ 06492802 * 4 * BIT(5), /* ALWAYS ZERO */ 06493002 * 4 FLCSILCB BIT(3), /* SIGNIFICANT BITS IN ILC 06494002 * FIELD - LAST BIT IS 06494402 * ALWAYS ZERO MDC080*/ 06494802 * 3 FLCSVCN FIXED(15), /* SVC INTERRUPTION CODE - 06495002 * SVC NUMBER MDC081*/ 06495402 * 2 PSAEPPSW CHAR(8) BDY(WORD), /* EXTENDED PSW FOR PROGRAM 06495802 * INTERRUPT MDC086*/ 06495902 * 3 * CHAR(1), /* RESERVED - SET TO ZERO */ 06496002 * 3 FLCPIILC PTR(8), /* PROGRAM INSTRUCTION 06497002 * LENGTH COUNTER - NUMBER 06497402 * OF BYTES IN INSTRUCTION 06497802 * CAUSING PROGRAM 06498202 * INTERRUPTION MDC082*/ 06498602 * 4 * BIT(5), /* ALWAYS ZERO */ 06499002 * 4 FLCPILCB BIT(3), /* SIGNIFICANT BITS IN ILC 06499202 * FIELD - LAST BIT IS 06499402 * ALWAYS ZERO MDC083*/ 06499502 * 3 FLCPICOD FIXED(15), /* PROGRAM INTERRUPTION 06499602 * CODE */ 06499802 * 4 PSARV049 CHAR(1), /* RESERVED FOR IMPRECISE 06500702 * INTERRUPTS MDC087*/ 06502702 * 4 PSAPICOD PTR(8), /* 8-BIT INTERRUPT CODE 06504702 * MDC088*/ 06505102 * 5 PSAPIPER BIT(1), /* PER INTERRUPT OCCURRED 06505502 * MDC089*/ 06505602 * 5 PSAPIMC BIT(1), /* MONITOR CALL INTERRUPT 06505702 * OCCURRED MDC090*/ 06505802 * 5 PSAPIPC BIT(6), /* AN UNSOLICITED PROGRAM 06506002 * CHECK HAS OCCURRED IF ANY 06506402 * OF THESE 6 BITS ARE ON 06506502 * MDC091*/ 06506602 * 3 FLCTEA PTR(31), /* TRANSLATION EXCEPTION 06506902 * ADDRESS */ 06507002 * 4 * CHAR(1), /* RESERVED - SET TO ZERO */ 06507702 * 4 FLCTEAA PTR(24), /* TRANSLATION EXCEPTION 06508602 * ADDRESS */ 06509502 * 2 * CHAR(1), /* RESERVED - SET TO ZERO */ 06510402 * 2 FLCMCNUM PTR(8), /* MONITOR CLASS NUMBER */ 06511302 * 2 FLCPERCD CHAR(1), /* PROGRAM EVENT RECORDING 06512202 * CODE */ 06513102 * 2 * CHAR(1), /* RESERVED - SET TO ZERO */ 06514002 * 2 FLCPER PTR(31), /* PER ADDRESS */ 06514902 * 3 * CHAR(1), /* RESERVED - SET TO ZERO */ 06515802 * 3 FLCPERA PTR(24), /* PER ADDRESS */ 06516702 * 2 * CHAR(1), /* RESERVED - SET TO ZERO */ 06517602 * 2 FLCMTRCD CHAR(3), /* MONITOR CODE */ 06518502 * 2 * CHAR(8), /* RESERVED */ 06519402 * 2 FLCMCLA CHAR(344) BDY(DWORD), /* MACHINE CHECK LOGOUT 06520302 * AREA */ 06521202 * 3 FLCCHNID CHAR(4) BDY(WORD), /* CHANNEL ID SET BY STIDC 06521451 * (MDC436) @G51BP9A*/ 06522151 * 4 FLCCHTM CHAR(2), /* CHANNEL TYPE AND MODEL 06522251 * NUMBER (MDC437) @G51BP9A*/ 06522351 * 5 FLCCHTYP BIT(4), /* CHANNEL TYPE 06522451 * (MDC438) @G51BP9A*/ 06522551 * 5 FLCCHMOD BIT(12), /* CHANNEL MODEL NUMBER 06522651 * (MDC439) @G51BP9A*/ 06522751 * 4 FLCCHIL FIXED(15), /* I/O EXTENDED LOGOUT (IOEL) 06522851 * LENGTH (MDC440) @G51BP9A*/ 06522951 * 3 FLCIOEL PTR(31), /* SAME AS FLCIOELA BELOW */ 06523851 * 4 * CHAR(1), /* RESERVED */ 06524551 * 4 FLCIOELA PTR(24), /* I/O EXTENDED LOGOUT 06524802 * (IOEL) POINTER */ 06525702 * 3 FLCLCL CHAR(4), /* LIMITED CHANNEL LOGOUT 06526602 * (ECSW) */ 06527502 * 3 * CHAR(2), /* RESERVED */ 06528402 * 3 * CHAR(1), /* RESERVED MDC051*/ 06529302 * 3 * CHAR(1), /* RESERVED MDC052*/ 06530202 * 3 FLCIOA PTR(31), /* I/O ADDRESS */ 06531102 * 4 * CHAR(1), /* RESERVED */ 06532002 * 4 FLCIOAA PTR(24), /* I/O ADDRESS */ 06532902 * 3 * CHAR(44), /* RESERVED */ 06533802 * 3 FLCMCIC CHAR(8), /* MACHINE-CHECK 06534702 * INTERRUPTION CODE */ 06535602 * 3 * CHAR(4), /* RESERVED @G51BP9A*/ 06536051 * 3 PSAMEDC BIT(8), /* EXTERNAL DAMAGE CODE 06536551 * (MDC441) @G51BP9A*/ 06536651 * 4 * BIT(1), /* RESERVED @G51BP9A*/ 06536751 * 4 PSAMCOPR BIT(1), /* CHANNEL CHANGED FROM 06536851 * NOT OPERATIONAL TO 06536951 * OPERATIONAL STATE 06537051 * (MDC442) @G51BP9A*/ 06537151 * 4 PSAMEXSR BIT(1), /* EXTERNAL SECONDARY REPORT 06537251 * (MDC443) @G51BP9A*/ 06537351 * 4 PSAMCNOP BIT(1), /* CHANNEL ENTERED NOT 06538251 * OPERATIONAL STATE WITHOUT 06538351 * PERFORMING I/O SYSTEM 06538451 * RESET (MDC444) @G51BP9A*/ 06538551 * 4 PSAMCCF BIT(1), /* CHANNEL CONTROL FAILURE 06538651 * (MDC445) @G51BP9A*/ 06538751 * 4 PSAMINST BIT(1), /* I/O INSTRUCTION TIMEOUT 06538851 * (MDC446) @G51BP9A*/ 06538951 * 4 PSAMINTR BIT(1), /* I/O INTERRUPTION TIMEOUT 06539051 * (MDC447) @G51BP9A*/ 06539951 * 4 PSAMDISC BIT(1), /* DISCONNECT CHANNEL SET 06540051 * (DISCS) INSTRUCTION 06540151 * CANNOT BE COMPLETED 06540251 * (MDC448) @G51BP9A*/ 06540351 * 3 * CHAR(3), /* ZEROES (MDC449) @G51BP9A*/ 06540451 * 3 FLCFSA PTR(31), /* FAILING STORAGE ADDRESS */ 06540551 * 4 * CHAR(1), /* ZEROES */ 06540651 * 4 FLCFSAA PTR(24), /* FAILING STORAGE ADDRESS */ 06540851 * 3 FLCRGNCD CHAR(4), /* REGION CODE */ 06540951 * 3 FLCFLA CHAR(96) BDY(WORD), /* FIXED LOGOUT AREA */ 06541002 * 3 FLCFPSAV CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER 06541902 * SAVE AREA */ 06542802 * 3 FLCGRSAV (16) FIXED(31), /* GENERAL REGISTER SAVE 06543702 * AREA */ 06544602 * 3 FLCCRSAV (16) FIXED(31), /* CONTROL REGISTER SAVE 06545502 * AREA */ 06546402 * 2 FLCHDEND CHAR(0) BDY(DWORD), /* END OF HARDWARE 06547302 * ASSIGNMENTS */ 06548202 * 2 PSAPSA CHAR(4) BDY(WORD), /* CONTROL BLOCK ACRONYM IN 06549102 * EBCDIC */ 06550002 * 2 PSACPUPA PTR(15), /* PHYSICAL CPU ADDRESS 06600002 * (CHANGED DURING ACR) 06610002 * (MDC130) YM3489*/ 06620002 * 2 PSACPULA PTR(15), /* LOGICAL CPU ADDRESS */ 06650002 * 2 PSAPCCAV PTR(31), /* VIRTUAL ADDRESS OF PCCA */ 06700002 * 2 PSAPCCAR PTR(31), /* REAL ADDRESS OF PCCA */ 06750002 * 2 PSALCCAV PTR(31), /* VIRTUAL ADDRESS OF LCCA */ 06800002 * 2 PSALCCAR PTR(31), /* REAL ADDRESS OF LCCA */ 06850002 * 2 PSATNEW PTR(31), /* TCB NEW POINTER */ 06900002 * 2 PSATOLD PTR(31), /* TCB OLD POINTER */ 06950002 * 2 PSAANEW PTR(31), /* ASCB NEW POINTER */ 07000002 * 2 PSAAOLD PTR(31), /* ASCB OLD POINTER */ 07050002 * 2 PSASUPER CHAR(4) BDY(WORD), /* SUPERVISOR CONTROL WORD */ 07100002 * 3 PSASUP1 BIT(8), /* FIRST BYTE OF PSASUPER */ 07150002 * 4 PSAIO BIT(1), /* I/O FLIH */ 07200002 * 4 PSASVC BIT(1), /* SVC FLIH */ 07250002 * 4 PSAEXT BIT(1), /* EXTERNAL FLIH */ 07300002 * 4 PSAPI BIT(1), /* PROGRAM CHECK FLIH */ 07350002 * 4 PSALOCK BIT(1), /* LOCK ROUTINE */ 07400002 * 4 PSADISP BIT(1), /* DISPATCHER */ 07450002 * 4 PSATCTL BIT(1), /* TCTL RECOVERY FLAG 07500004 * (MDC310) @Z40FP9A*/ 07510004 * 4 PSATYPE6 BIT(1), /* TYPE 6 SVC IN CONTROL 07550004 * (MDC311) @Z40FP9A*/ 07560004 * 3 PSASUP2 BIT(8), /* SECOND BYTE OF PSASUPER */ 07600002 * 4 PSAIPCRI BIT(1), /* SIGP - REMOTE IMMEDIATE */ 07650002 * 4 PSAGTF BIT(1), /* GTF GIVEN CONTROL FROM 07700002 * FLIH */ 07750002 * 4 PSAIPCEC BIT(1), /* EXTERNAL CALL SLIH IS 07800002 * ACTIVE MDC047*/ 07850002 * 4 PSAIPCES BIT(1), /* EMERGENCY SIGNAL SLIH IS 07860002 * ACTIVE MDC048*/ 07870002 * 4 PSAIPCE2 BIT(1), /* EMERGENCY SIGNAL (EMS) 07900002 * SLIH RECURSIVE ENTRY 07910002 * FLAG MDC110*/ 07920002 * 4 PSAACR BIT(1), /* AUTOMATIC CPU 07970002 * RECONFIGURATION (ACR) IN 08020002 * CONTROL MDC119*/ 08030002 * 4 PSARTM BIT(1), /* RECOVERY TERMINATION 08040002 * MONITOR (RTM) IN CONTROL 08042002 * MDC120*/ 08044002 * 4 PSALCR BIT(1), /* LOW CORE REFRESH ROUTINE 08050002 * IS ACTIVE MDC126*/ 08060002 * 3 PSASUP3 BIT(8), /* THIRD BYTE OF PSASUPER */ 08100002 * 4 PSAIOSUP BIT(1), /* IF ON, A MAINLINE IOS 08150002 * COMPONENT SUCH AS CHANNEL 08160002 * SCHEDULER HAS ENTERED A 08170002 * PHYSICALLY DISABLED STATE 08180002 * WITHOUT REGARD TO LOCKING 08191002 * REQUIREMENTS MDC127*/ 08192002 * 4 PSAPI2 BIT(1), /* PROGRAM CHECK FLIH 08200003 * RECURSION 08210004 * (MDC301) @ZM08516*/ 08220004 * 4 PSAPSREG BIT(1), /* PSA RECOVERY RECURSION 08250003 * (MDC302) @ZM08516*/ 08270003 * 4 PSASPR BIT(1), /* SUPER FRR IS ACTIVE 08300004 * (MDC305) @ZA02995*/ 08310004 * 4 PSAESTA BIT(1), /* ESTAE RECOVERY ROUTINE 08350004 * ACTIVE (MDC312) @Z40FP9A*/ 08360004 * 4 PSARV012 BIT(1), /* RESERVED */ 08400002 * 4 PSAULCMS BIT(1), /* LOCK MANAGER 08450051 * UNCONDITIONAL LOCAL OR 08460051 * CMS LOCK ROUTINES 08470051 * (MDC469) @ZA28594*/ 08480051 * 4 PSASLIP BIT(1), /* IEAVTSLP RECURSION 08500064 * CONTROL BIT 08510064 * (MDC471) @G64RP9A*/ 08520064 * 3 PSASUP4 BIT(8), /* FOURTH BYTE OF PSASUPER */ 08550002 * 4 PSALDWT BIT(1), /* IF ON, IEEVLDWT IS ACTIVE 08600064 * AND PROCESSING 08610064 * STOP/RESTART REQUEST 08620064 * (MDC597) @G64UP9A*/ 08630064 * 4 PSARV016 BIT(1), /* RESERVED */ 08650002 * 4 PSARV017 BIT(1), /* RESERVED */ 08700002 * 4 PSARV018 BIT(1), /* RESERVED */ 08750002 * 4 PSARV019 BIT(1), /* RESERVED */ 08800002 * 4 PSARV020 BIT(1), /* RESERVED */ 08850002 * 4 PSARV021 BIT(1), /* RESERVED */ 08900002 * 4 PSARV022 BIT(1), /* RESERVED */ 08950002 * 2 PSAGPREG (3) FIXED(31), /* REGISTER SAVE AREA FOR 09000002 * I/O FLIH, SVC FLIH, 09050002 * EXTERNAL FLIH AND SYSTEM 09080002 * TRACE */ 09110002 * 2 PSARSREG FIXED(31), /* RESTART FLIH REGISTER 09150002 * SAVE */ 09200002 * 2 PSAPIREG FIXED(31), /* PROGRAM CHECK FLIH 09210002 * REGISTER SAVE */ 09220002 * 2 PSAEXPS1 CHAR(8) BDY(DWORD), /* EXTERNAL FLIH PSW SAVE 09250002 * AREA 1 */ 09300002 * 2 PSAEXPS2 CHAR(8) BDY(DWORD), /* EXTERNAL FLIH PSW SAVE 09350002 * AREA 2 */ 09400002 * 2 PSAMPSW CHAR(8) BDY(DWORD), /* SETLOCK MODEL PSW */ 09450002 * 2 PSAMCHEX CHAR(8) BDY(DWORD), /* MCH EXIT PSW */ 09500002 * 2 PSAIPCR CHAR(4) BDY(WORD), /* IPC INSTRUCTION TO BE 09550002 * EXECUTED */ 09600002 * 2 PSAIPCRM CHAR(1), /* BYTE USED BY ABOVE IPC 09650002 * INSTRUCTION */ 09700002 * 2 * CHAR(3), /* RESERVED */ 09750002 * 2 PSAIPCD CHAR(4) BDY(WORD), /* IPC INSTRUCTION TO BE 09800002 * EXECUTED */ 09850002 * 2 PSAIPCDM CHAR(1), /* BYTE USED BY ABOVE IPC 09900002 * INSTRUCTION */ 09950002 * 2 PSAIPCC3 CHAR(1), /* BYTE USED BY IPC FOR CC3 10000064 * STNSM (MDC598) @ZM49378*/ 10010064 * 2 * CHAR(2), /* RESERVED @ZM49378*/ 10020064 * 2 PSAIPCSA FIXED(31), /* IPC REGISTER SAVE AREA 10050002 * MDC049*/ 10100002 * 2 PSAHLHIS FIXED(31), /* SAVE AREA FOR PSAHLHI 10110002 * MDC050*/ 10120002 * 2 PSARECUR CHAR(1), /* RESTART FLIH RECURSION 10130002 * INDICATOR. IF X'00', 10140002 * FLIH NOT IN CONTROL. IF 10150002 * X'FF', FLIH IN CONTROL, 10160002 * ENTRY IS RECURSIVE MDC093*/ 10170002 * 2 PSADSSGO PTR(8), /* INITIALIZE DSS FLAG, SET 10180002 * BY OPERATOR. IF X'00', 10190002 * DSS NOT TO BE ACTIVATED. 10192002 * IF NOT X'00', NEXT 10194002 * RESTART INTERRUPT FROM 10196002 * CONSOLE SHOULD INITIALIZE 10198002 * DSS. MDC094*/ 10198402 * 2 PSASNSM2 CHAR(1), /* STNSM AREA FOR IEAVTRT1 10198864 * (MDC470) @G64RP9A*/ 10198964 * 2 PSARV050 CHAR(1), /* RESERVED */ 10199164 * 2 PSASRSA PTR(31), /* REAL ADDRESS OF SAVE AREA 10199202 * USED DURING STOP AND 10199602 * RESTART SUBROUTINE MDC095*/ 10199702 * 2 PSACLHT CHAR(56) BDY(WORD), /* CPU LOCKS HELD TABLE. 10200002 * INITIALIZED TO ZERO. 10250002 * IF LOCK IS HELD, WORD 10300002 * REPRESENTING LOCK HAS 10350002 * ITS ADDRESS. */ 10400002 * 3 PSADISPL PTR(31), /* GLOBAL DISPATCHER LOCK */ 10450002 * 3 PSAASML PTR(31), /* AUXILIARY STORAGE 10500002 * MANAGEMENT (ASM) LOCK 10504002 * MDC002*/ 10506002 * 3 PSASALCL PTR(31), /* SPACE ALLOCATION LOCK 10510002 * MDC003*/ 10520002 * 3 PSAIOSSL PTR(31), /* IOS SYNCHRONIZATION LOCK 10530002 * MDC010*/ 10540002 * 3 PSAIOSCL PTR(31), /* IOS CHANNEL AVAILABLE 10550002 * TABLE LOCK MDC004*/ 10600002 * 3 PSAIOSUL PTR(31), /* IOS UNIT CONTROL BLOCK 10650002 * LOCK MDC005*/ 10700002 * 3 PSAIOSLL PTR(31), /* IOS LOGICAL CHANNEL QUEUE 10750002 * LOCK MDC006*/ 10800002 * 3 PSATPNCL PTR(31), /* TCAM'S TPNCP LOCK MDC007*/ 10860002 * 3 PSATPDNL PTR(31), /* TCAM'S TPDNCB LOCK MDC008*/ 10870002 * 3 PSATPACL PTR(31), /* TCAM'S TPACBDEB LOCK 10880002 * MDC009*/ 10930002 * 3 PSAOPTL PTR(31), /* OPTIMIZER LOCK */ 11000002 * 3 PSACMSL PTR(31), /* CROSS MEMORY SERVICES 11050002 * LOCK */ 11100002 * 3 PSALOCAL PTR(31), /* LOCAL LOCK */ 11150002 * 3 PSARV023 PTR(31), /* RESERVED LOCK */ 11160002 * 2 PSALKSA CHAR(64) BDY(WORD), /* SETLOCK REGISTER SAVE 11200002 * AREA */ 11250002 * 3 PSALKR0 FIXED(31), /* SETLOCK'S CALLER'S 11260002 * REGISTER 0 */ 11270002 * 3 PSALKR1 FIXED(31), /* SETLOCK'S CALLER'S 11280002 * REGISTER 1 */ 11290002 * 3 PSALKR2 FIXED(31), /* SETLOCK'S CALLER'S 11292002 * REGISTER 2 */ 11294002 * 3 PSALKR3 FIXED(31), /* SETLOCK'S CALLER'S 11296002 * REGISTER 3 */ 11298002 * 3 PSALKR4 FIXED(31), /* SETLOCK'S CALLER'S 11298402 * REGISTER 4 */ 11298802 * 3 PSALKR5 FIXED(31), /* SETLOCK'S CALLER'S 11299202 * REGISTER 5 */ 11299602 * 3 PSALKR6 FIXED(31), /* SETLOCK'S CALLER'S 11299702 * REGISTER 6 */ 11299802 * 3 PSALKR7 FIXED(31), /* SETLOCK'S CALLER'S 11299902 * REGISTER 7 */ 11316602 * 3 PSALKR8 FIXED(31), /* SETLOCK'S CALLER'S 11326602 * REGISTER 8 */ 11328602 * 3 PSALKR9 FIXED(31), /* SETLOCK'S CALLER'S 11330602 * REGISTER 9 */ 11332602 * 3 PSALKR10 FIXED(31), /* SETLOCK'S CALLER'S 11333002 * REGISTER 10 */ 11333102 * 3 PSALKR11 FIXED(31), /* SETLOCK'S CALLER'S 11333202 * REGISTER 11 */ 11338802 * 3 PSALKR12 FIXED(31), /* SETLOCK'S CALLER'S 11340802 * REGISTER 12 */ 11342802 * 3 PSALKR13 FIXED(31), /* SETLOCK'S CALLER'S 11343202 * REGISTER 13 */ 11343602 * 3 PSALKR14 FIXED(31), /* SETLOCK'S CALLER'S 11344002 * REGISTER 14 */ 11344102 * 3 PSALKR15 FIXED(31), /* SETLOCK'S CALLER'S 11344202 * REGISTER 15 */ 11344302 * 2 PSAHLHI CHAR(4) BDY(WORD), /* HIGHEST LOCK HELD 11344402 * INDICATOR */ 11350002 * 3 PSACLHS BIT(32) BDY(WORD), /* CPU LOCKS HELD STRING 11360002 * MDC122*/ 11370002 * 2 PSALITA PTR(31), /* ADDRESS OF LOCK INTERFACE 11400002 * TABLE */ 11450002 * 2 PSAPSWSV CHAR(8) BDY(DWORD), /* PSW SAVE AREA FOR 11500002 * DISPATCHER AND ACR */ 11550002 * 2 PSACR0 FIXED(31), /* SAVE AREA FOR CONTROL 11600002 * REGISTER 0 */ 11650002 * 2 PSAMCHFL BIT(8), /* MCH RECURSION FLAGS */ 11700002 * 2 PSASYMSK CHAR(1), /* THIS FIELD WILL BE USED 11710002 * IN CONJUNCTION WITH THE 11720002 * STNSM INSTRUCTION TO 11730002 * PLACE IOS CHANNEL 11740002 * SCHEDULER INTO A DISABLED 11742002 * STATE AND SIMULTANEOUSLY 11744002 * SAVE THE SYSTEM MASK OF 11746002 * THE CALLER MDC022*/ 11748002 * 2 PSAACTCD CHAR(1), /* ACTION CODE SUPPLIED BY 11748251 * OPERATOR AFTER SYSTEM HAS 11748451 * LOADED RESTARTABLE WAIT 11749351 * STATE AND BEFORE THE 11750251 * RESTART KEY IS DEPRESSED. 11751151 * VALUE DEPENDS ON 11752051 * RESTARTABLE WAIT STATE 11752951 * CODE. UNPREDICTABLE 11753851 * DURING NORMAL SYSTEM 11754751 * OPERATION. 11755651 * (MDC433) @G51BP9A*/ 11756551 * 2 PSAMCHIC CHAR(1), /* MCH INITIALIZATION 11759202 * COMPLETE FLAGS MDC098*/ 11759602 * 2 PSAWKRAP PTR(31), /* REAL ADDRESS OF VARY CPU 11760002 * PARAMETER LIST MDC106*/ 11770002 * 2 PSAWKVAP PTR(31), /* VIRTUAL ADDRESS OF VARY 11780002 * CPU PARAMETER LIST MDC107*/ 11790002 * 2 PSAVSTAP FIXED(15), /* WORK AREA FOR VARY CPU 11792002 * MDC108*/ 11794002 * 2 PSACPUSA PTR(15), /* PHYSICAL CPU ADDRESS 11796002 * (STATIC) (MDC131) YM3489*/ 11797002 * 2 PSASTOR FIXED(31), /* MASTER MEMORY'S SEGMENT 11798402 * TABLE ORIGIN REGISTER 11798802 * (STOR) VALUE */ 11799202 * 2 PSADSSRS FIXED(31), /* REGISTER SAVE FOR DSS 11799602 * PROGRAM AND SVC INTERRUPT 11799702 * HANDLERS MDC053*/ 11799802 * 2 PSADSSR2 FIXED(31), /* REGISTER SAVE AREA FOR 11805402 * DSS I/O AND EXTERNAL 11807402 * INTERRUPT HANDLERS MDC054*/ 11809402 * 2 PSADSSR3 FIXED(31), /* REGISTER SAVE AREA FOR 11809802 * DSS ERROR RECOVERY 11810202 * ROUTINE MDC055*/ 11810602 * 2 PSADSSWK FIXED(31), /* WORK AREA FOR DSS 11810702 * INTERRUPT HANDLERS MDC056*/ 11810802 * 2 PSADSSTS (5) FIXED(31), /* REGISTER SAVE FOR DSS 11811002 * MODULES MAKING CALLS TO 11816602 * IQATSS MDC023*/ 11826602 * 2 PSADSSFL CHAR(4) BDY(WORD), /* DSS FLAG BYTES MDC024*/ 11827002 * 3 PSADSSF1 BIT(8), /* DSS STATUS BYTE MDC029*/ 11827402 * 4 PSADSSMV BIT(1), /* DSS MONITORING, VS2 11827802 * RUNNING MDC030*/ 11827902 * 4 PSADSSDM BIT(1), /* DSS IN VS2-2 VM MDC031*/ 11828202 * 4 PSADSSDD BIT(1), /* DSS IN DSS VM MDC032*/ 11828302 * 4 PSADSSDW BIT(1), /* DSS IN DSS WAIT MDC033*/ 11828402 * 4 PSADSSTP BIT(1), /* DSS PROCESSING SIGP 11828502 * MDC034*/ 11829102 * 4 PSADSSSP BIT(1), /* DSS SIGP PENDING MDC035*/ 11830702 * 4 PSADSSOI BIT(1), /* DSS EXECUTING OVERLAID 11831102 * INSTRUCTION MDC036*/ 11831502 * 4 PSADSSPI BIT(1), /* DSS EXECUTING PRIVILEGED 11831602 * INSTRUCTION MDC037*/ 11831702 * 3 PSADSSF2 CHAR(1), /* SYSTEM STATUS BYTE MDC038*/ 11831802 *%PSADSSPS='''FF''X'; /* SYSTEM RUNNING IN PROBLEM 11832002 * STATE MDC039*/ 11832102 *%PSADSSSS='''FE''X'; /* SYSTEM RUNNING IN 11832202 * PRIVILEGED STATE MDC040*/ 11832302 * 3 PSADSSF3 BIT(8), /* DSS FLAG BYTE MDC099*/ 11832402 * 4 PSADSSGP BIT(1), /* DSS SIGP INDICATOR MDC100*/ 11832502 * 4 PSADSSES BIT(1), /* ERROR SHORT SAVE 11834502 * INDICATOR MDC113*/ 11834902 * 4 PSADSSNM BIT(1), /* NON-MONITORABLE CODE 11835302 * INDICATOR MDC114*/ 11835702 * 4 PSADSSRW BIT(1), /* DSS OWNS CVTRSTWD MDC117*/ 11836502 * 4 PSADSSMC BIT(1), /* MACHINE CHECK RUNNING 11836902 * (MDC132) YM6287*/ 11837102 * 4 PSARV055 BIT(1), /* RESERVED FOR DSS MDC100*/ 11837302 * 4 PSARV056 BIT(1), /* RESERVED FOR DSS MDC100*/ 11837402 * 4 PSARV057 BIT(1), /* RESERVED FOR DSS MDC100*/ 11837502 * 3 PSADSSF4 BIT(8), /* DSS RECURSION FLAGS 11837702 * MDC101*/ 11839502 * 4 PSADSSRC BIT(1), /* PROGRAM-SVC RECURSION 11839602 * FLAG MDC057*/ 11841502 * 4 PSADSS12 BIT(1), /* PROGRAM INTERRUPT 12 11843402 * RECURSION FLAG MDC058*/ 11845302 * 4 PSADSSIE BIT(1), /* I/O-EXTERNAL RECURSION 11847202 * FLAG MDC059*/ 11849102 * 4 PSADSSC0 BIT(1), /* CONTROL REGISTER 0 11851002 * INVALID FLAG MDC092*/ 11852902 * 4 PSADSSDE BIT(1), /* DAT ERROR WHILE DSS 11854902 * RUNNING IN VS2 VM MDC102*/ 11856902 * 4 PSADSSVE BIT(1), /* DAT ERROR WHILE DSS 11858902 * RUNNING IN DSS VM MDC103*/ 11860902 * 4 PSADSS10 BIT(1), /* SEGMENT EXCEPTION 11861302 * RECURSION FLAG MDC104*/ 11861702 * 4 PSADSS05 BIT(1), /* ADDRESSING EXCEPTION 11862102 * RECURSION FLAG MDC105*/ 11862202 * 2 PSADSSRP CHAR(8) BDY(DWORD), /* DSS TO VS2-2 RESUME PSW 11862402 * MDC025*/ 11864302 * 2 PSADSSPP CHAR(8) BDY(DWORD), /* DSS PSW FOR RETURNING 11866202 * CONTROL FROM PRIVILEGED 11868102 * INSTRUCTION STREAM TO 11870002 * VS2 MDC026*/ 11870402 * 2 PSADSS14 FIXED(31), /* RESTART SECOND LEVEL 11872402 * INTERRUPT HANDLER CONTROL 11874402 * REGISTER 14 SAVE AREA 11874802 * MDC115*/ 11875202 * 2 PSADSSFW FIXED(31), /* FULL-WORD DSS WORK AREA 11875602 * MDC116*/ 11877802 * 2 PSADSSPR FIXED(31), /* DSS REGISTER SAVE FOR 11880202 * PRIVILEGED INSTRUCTION 11882402 * STREAM MDC028*/ 11884602 * 2 PSADSSED CHAR(0) BDY(WORD), /* END OF DSS FIELDS MDC045*/ 11886802 * 2 PSARV025 FIXED(31), /* RESERVED FOR DSS */ 11889002 * 2 PSARV040 PTR(31), /* RESERVED FOR DSS */ 11891202 * 2 PSARV041 PTR(31), /* RESERVED FOR DSS */ 11893402 * 2 PSARV042 PTR(31), /* RESERVED FOR DSS */ 11895602 * 2 PSARV043 PTR(31), /* RESERVED FOR DSS */ 11897802 * 2 PSARV153 CHAR(2), /* RESERVED (MDC607) */ 11900000 * 2 PSARET CHAR(2) BDY(HWORD), /* BRANCH RETURN TO CALLER 11900400 * USED BY ROUTINES INVOKED 11900800 * BY IOS. 11901200 * (MDC607) @ZA38630*/ 11901600 * 2 PSARETCD CHAR(4) BDY(HWORD), /* BRANCH RETURN TO CALLER 11902000 * WITH RETURN CODE IN 11902400 * REGISTER 15, USED BY 11902800 * ROUTINES INVOKED BY 11903200 * IOS. (MDC607) @ZA38630*/ 11903600 * 2 PSARSVT (16) PTR(31), /* RECOVERY STACK VECTOR 11904402 * TABLE (EACH ELEMENT 11906602 * MAPPED BELOW) MDC064*/ 11908602 * 2 PSASRPSW CHAR(8) BDY(DWORD), /* RESUME PSW FOR STOP AND 11909002 * RESTART SUBROUTINE MDC096*/ 11909402 * 2 PSARSPSW CHAR(8) BDY(DWORD), /* RESUME PSW FIELD FOR 11909802 * RESTART INTERRUPT HANDLER 11909902 * MDC097*/ 11910002 * 2 PSASTART CHAR(16) BDY(DWORD), /* START FATHOM RECORDING 11912002 * MDC111*/ 11914002 * 2 PSASTOP CHAR(16) BDY(DWORD), /* STOP FATHOM RECORDING 11914102 * MDC112*/ 11914202 * 2 PSASFACC CHAR(4) BDY(WORD), /* SETFRR ABEND COMPLETION 11914302 * CODE USED WHEN A SETFRR 11917202 * ADD IS ISSUED AGAINST A 11919202 * FULL FRR STACK MDC123*/ 11919602 * 2 PSALSFCC CHAR(4) BDY(WORD), /* A LOAD INSTRUCTION TO 11920002 * PRIME REGISTER 1 WITH THE 11920102 * SETFRR ABEND COMPLETION 11920202 * CODE IN PSASFACC MDC124*/ 11923502 * 2 PSASVC13 CHAR(2), /* AN SVC 13 INSTRUCTION 11925502 * MDC125*/ 11925902 * 2 PSARV059 FIXED(15), /* RESERVED */ 11926302 * 2 PSAPIR2 FIXED(31), /* PROGRAM CHECK FLIH 11926703 * REGISTER SAVE 11926803 * (MDC303) @ZM08516*/ 11931903 * 2 PSAPCPSW CHAR(8) BDY(DWORD), /* TEMPORARY OLD PSW STORAGE 11933903 * FOR PROGRAM FLIH 11936803 * (MDC129) YM0943*/ 11943403 * 2 PSAATCVT PTR(31), /* ADDRESS OF VTAM ATCVT. 11946403 * INITIALIZED BY VTAM. 11950003 * (MDC300) @Z30AP9A*/ 11954003 * 2 PSAWTCOD PTR(31), /* CALLER-SUPPLIED WAIT 11958004 * STATE INFORMATION FOR 11958804 * STOP/RESTART 11959604 * (MDC306) @ZA00904*/ 11960404 * 2 PSACDAL PTR(31), /* ADDRESS OF COMMON 11960604 * DISPATCHER ELEMENT FOR 11960804 * THIS CPU 11961004 * (MDC307) @Z40FP9A*/ 11961204 * 2 PSACSID FIXED(15), /* CURRENT CHANNEL SET ID 11961464 * (MDC472) @G64AP9A*/ 11961564 * 2 PSARV100 FIXED(15), /* RESERVED @G64AP9A*/ 11961664 * 2 PSAUSEND CHAR(0) BDY(DWORD), /* END OF ASSIGNED FIELDS 11962003 * MDC109*/ 11966003 * 2 * CHAR(2024) BDY(DWORD), /* RESERVED @Z40AQ9A*/ 11974004 * 2 PSASTAK CHAR(596) BDY(DWORD), /* NORMAL FRR STACK 11976003 * (MDC304) @ZM32352*/ 11978003 * 2 * CHAR(428); /* RESERVED FOR EXPANSION OF 11982003 * PSASTAK (MDC304) @ZM32352*/ 11986003 * 11990003 * 11995003 *%IF IKEPLS='2' %THEN 12000002 * %GOTO PSA0100; 12050002 *DECLARE FLC BASED(ADDR(PSA)) CHAR(LENGTH(PSA)) BDY(DWORD); 12100002 *%GOTO PSA0200; 12150002 *%PSA0100 : ; 12200002 *DECLARE FLC DEF(PSA) CHAR(LENGTH(PSA)) BDY(DWORD); 12250002 *%PSA0200 : ; 12300002 * 12350002 * 12400002 *DECLARE 12450002 *%IF IKEPLS='2' %THEN 12500002 * %GOTO PSA0300; 12550002 * 1 PSARSVTE CHAR(64) BASED(ADDR(PSARSVT)) BDY(WORD), 12600002 *%GOTO PSA0400; 12650002 *%PSA0300 : ; 12700002 * 1 PSARSVTE CHAR(64) DEF(PSARSVT) BDY(WORD), 12750002 *%PSA0400 : ; 12800002 * /* RECOVERY STACK VECTOR 12850002 * TABLE MDC065*/ 12900002 * 2 PSACSTK PTR(31), /* ADDRESS OF CURRENTLY USED 12950002 * FUNCTIONAL RECOVERY 13000002 * ROUTINE (FRR) STACK 13050002 * MDC061*/ 13100002 * 2 PSANSTK PTR(31), /* ADDRESS OF NORMAL FRR 13150002 * STACK MDC062*/ 13200002 * 2 PSASSTK PTR(31), /* ADDRESS OF SVC-I/O- 13250002 * DISPATCHER FRR STACK 13300002 * MDC063*/ 13350002 * 2 PSASSAV PTR(31), /* ADDRESS OF INTERRUPTED 13400002 * STACK SAVED BY SVC-I/O- 13450002 * DISPATCHER MDC066*/ 13500002 * 2 PSAMSTK PTR(31), /* ADDRESS OF MCH FRR STACK 13550002 * MDC067*/ 13600002 * 2 PSAMSAV PTR(31), /* ADDRESS OF INTERRUPTED 13650002 * STACK SAVED BY MCH MDC068*/ 13700002 * 2 PSAPSTK PTR(31), /* ADDRESS OF PROGRAM CHECK 13750002 * FLIH FRR STACK MDC069*/ 13800002 * 2 PSAPSAV PTR(31), /* ADDRESS OF INTERRUPTED 13850002 * STACK SAVED BY PROGRAM 13900002 * CHECK FLIH MDC070*/ 13950002 * 2 PSAESTK1 PTR(31), /* ADDRESS OF EXTERNAL FLIH 14000002 * FRR STACK FOR NON- 14050002 * RECURSIVE ENTRIES MDC071*/ 14100002 * 2 PSAESAV1 PTR(31), /* ADDRESS OF INTERRUPTED 14150002 * STACK SAVED BY NON- 14200002 * RECURSIVE ENTRIES MDC072*/ 14250002 * 2 PSAESTK2 PTR(31), /* ADDRESS OF EXTERNAL FLIH 14300002 * FRR STACK FOR FIRST LEVEL 14350002 * RECURSIONS MDC073*/ 14400002 * 2 PSAESAV2 PTR(31), /* ADDRESS OF INTERRUPTED 14450002 * STACK SAVED BY EXTERNAL 14500002 * FLIH FOR FIRST LEVEL 14550002 * RECURSIONS MDC074*/ 14600002 * 2 PSAESTK3 PTR(31), /* ADDRESS OF EXTERNAL FLIH 14650002 * FRR STACK FOR SECOND 14700002 * LEVEL RECURSIONS AND 14750002 * ACR MDC075*/ 14800002 * 2 PSAESAV3 PTR(31), /* ADDRESS OF INTERRUPTED 14850002 * STACK SAVED BY EXTERNAL 14900002 * FLIH (ACR) FOR SECOND 14950002 * LEVEL RECURSIONS MDC076*/ 15000002 * 2 PSARSTK PTR(31), /* ADDRESS OF RESTART FLIH 15050002 * FRR STACK MDC077*/ 15100002 * 2 PSARSAV PTR(31); /* ADDRESS OF INTERRUPTED 15150002 * STACK SAVED BY RESTART 15200002 * FLIH MDC078*/ 15250002