* %GOTO BSLXSA; /* 00300020 MACRO 00600020 IEEXSA 00900020 * S/D Y02651, Y02669 Y02668, Z30LPSV, Z40LPTA Z300012 12/01/76 00905003 .* A 684000,687500-690000,693500-694000 @YM01530 00961002 .* C-374970 @ZA02576 01161003 .* THIS APAR WRITTEN TO SUPPORT MSS 'D 3850' S/C Z40LPTA @ZA07152 01211003 .* A 338450 @ZA12404 01261003 .* C 338450 @ZA16375 01311003 .* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 01500020 .* * 01800020 .* EXTENDED SAVE AREA MACRO * 02100020 .* * 02400020 .* THIS MACRO PROVIDES FOR A MAPPING OF THE EXTENDED SAVE * 02700020 .* AREA AS REQUESTED BY MASTER IN THE EVENT OF AN SVC 34 * 03000020 .* OR SVC 35. THIS AREA HAS TWO SEPARATE USES Y02669 03300002 .* DEPENDING ON THE FUNCTION REQUIRED. THE FIRST SUPPLIES * 03600020 .* AN INTERFACE FOR TRANSITION BETWEEN MODULES, THE SEC- * 03900020 .* OND SUPPLIES INFORMATION CONCERNING MASTER MESSAGES. * 04200020 .* * 04500020 .* THE AREA ACTUALLY USED AS AN XSA BY THE SVC 34 Y02669 04501002 .* PROCESSING MODULES IS IN STORAGE GOTTEN IN SUBPOOL 229 Y02669 04502002 .* BY THE FIRST MODULE OF SVC 34 (IEE0003D), THE ADDRESS Y02669 04503002 .* OF WHICH IS PASSED TO THE PROCESSORS. BY CONVENTION, Y02669 04504002 .* THE ADDRESS OF THIS XSA IS PASSED IN REGISTER TWO Y02669 04504202 .* THROUGHOUT SVC 34. THIS AREA IS ALSO Y02669 04504402 .* FREED BY IEE0003D, SINCE ALL PROCESSORS RETURN TO IT. Y02669 04505002 .* THE REAL EXTENDED SAVE AREA OF THE SVRB IS ONLY 48 Y02669 04506002 .* BYTES IN SIZE, AND IS USED ONLY BY THE SVC 34 RECOVERY Y02669 04507002 .* ROUTINES. Y02669 04508002 .* Y02669 04509002 .* THE MODULE TRANSITION PARAMETER LIST INCLUDES A PTR TO * 04800020 .* THE NAME OF THE MODULE WHICH IS BEING XCTL'D TO, THE * 05100020 .* NAME OF THAT MODULE, THE DCB POINTER, A POINTER TO A * 05400020 .* PARAMETER LIST, AND A POINTER TO THE FIRST CHARACTER AFTER * 05700020 .* VERB IN THAT LIST.THERE IS ALSO ENTRY FOR THE VERB, * 06000020 .* AN 8 BYTE TEMPORARY SAVE AREA, A 2 BYTE ASID/UCM Y02669* 06300002 .* INDICATOR AND A 4 BYTE RESERVED AREA. Y02669* 06600002 .* * 06900020 .* MODULE TRANSITION PARAMETER LIST * 07200020 .* * 07500020 .* * 4 BYTES * 4 BYTES * * 07800020 .* * * * * * * * **** * * * * * ** * 08100020 .* * * * * 08400020 .* * PTR XCTL NME * DCB POINTER * * 08700020 .* * * * * 09000020 .* * * * * * * * **** * * * * * ** * 09300020 .* * * * 09600020 .* * X C T L N A M E * * 09900020 .* * * * 10200020 .* * * * * * * * *** * * * * * * * * 10500020 .* *1BT* PTR TO *VRB* PTR TO * * 10800020 .* *ERR* PARAMETER*CDE* LIST * * 11100020 .* *CDE* LIST * * POSITION * * 11400020 .* * * * * * * * *** * * * * * * * * 11700020 .* * * * 12000020 .* * V E R B * * 12300020 .* * * * 12600020 .* * * * * * * * * * * * * * * * * * 12900020 .* * * * 13200020 .* * TEMPORARY SAVE AREA * * 13500020 .* * * * 13800020 .* * * * * * * * * * * * * * * * * * 14100020 .* * UCM * RE- * ASID * Y02669 14400002 .* * IND * SERVED* INDICATOR * 20030 14700020 .* * * * * * * * * * * * * * * * * * 15000020 .* * INTERNAL COMMUNICATION * @Z30LPSV 15000203 .* * WORD * @Z30LPSV 15000403 .* * * * * * * * * * * * * * * * * @Z30LPSV 15000603 .* * SETLOCK * Y02651 15001002 .* * SAVE AREA * Y02651 15002002 .* * * * * * * * * * * * * * * * * * 15003002 .* * STANDARD * Y02669 15004002 .* * SAVE AREA * Y02669 15005002 .* * * * * * * * * * * * * * * * * 15005203 .* * SVC 34 COMMAND 1 WORD * @ZA16375 15005403 .* * FLAG BYTES * @ZA16375 15015403 .* * * * * * * * * * * * * * * * * @ZA16375 15025403 .* * RESERVED 3 WORDS * @ZA16375 15035403 .* * AREA * @ZA12404 15086003 .* * * * * * * * * * * * * * * * * @ZA12404 15126003 .* * WORK POINTER 8 WORDS * @ZA12404 15166003 .* * AREA * @ZA12404 15206003 .* * * * * * * * * * * * * * * * * @ZA12404 15246003 .* * 15300020 .* * 15600020 .* THE MESSAGE AREA CONTAINS ENTRYS, FOLLOWING THE * 15900020 .* RECORD HEADER, FOR THE MESSAGE ID AND THE VARIABLE * 16200020 .* TEXT OR 'FILL'. FOLLOWING THE EIGHT BYTE FILL IS A * 16500020 .* TWENTY EIGHT BYTE AREA FOR THE PRE-FORMATTED MESSAGE * 16800020 .* TEXT,DESCRIPTOR CODE ( 2 BYTE ),ROUTING CODE (2 BYTE ). * 17100002 .* * 17400020 .* * 17700020 .* MESSAGE AREA TABLE * 18000020 .* 0 4 * 18300020 .* * * * * * * * *** * * * * * * * * 18600020 .* * * * * 18900020 .* * RECORD HEADER* MESSAGE ID * * 19200020 .* * * * * 19500020 .* * * * * * * * *** * * * * * * * * 19800020 .* * * * * 20100020 .* * MESSAGE ID * FILL * * 20400020 .* * * * * 20700020 .* * * * * * * * *** * * * * * * * * 21000020 .* * * * * 21300020 .* * FILL * * * 21600020 .* * * P R E - * * 21900020 .* * * * * * * * ** * * 22200020 .* * * * 22500020 .* * F O R M A T E D * * 22800020 .* * * * 23100020 .* * T E X T, * * 23400020 .* * * * 23700020 .* *D E S C R I P T O R C O D E * * 24000020 .* * ( 2 B Y T E ) * * 24300020 .* * * * 24600020 .* * R O U T I N G C O D E * * 24900020 .* * ( 2 B Y T E ) * * 25200020 .* * * * 25500020 .* * * * * * * * * * * * * * * * * * 25800020 .* * 26100020 .* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 26400020 .* 26700020 * EXTENDED SAVE AREA MACRO 27000020 * 27300020 * ADDRESSABILITY TO THE XSA IN THE SVRB Y02669 27301002 * MAY ALWAYS BE HAD WITH THESE INSTRUCTIONS Y02669 27302002 * 27900020 * L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R) 28200020 * 28201002 * ADDRESSABILITY TO THE GOTTEN XSA MAY Y02669 28202002 * ALWAYS BE HAD WITH THESE INSTRUCTIONS Y02669 28203002 * (THIS IS THE XSA WHICH MUST BE USED BY Y02669 28204002 * ALL SVC 34 ROUTINES OTHER THAN THE Y02669 28205002 * RECOVERY MODULES.) Y02669 28206002 * 28207002 * L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R) Y02669 28208002 * L R,24(R) Y02669 28209003 * 28500020 SPACE 2 28800020 XSA DS 0D BEGINNING OF SAVE AREA 29100020 SPACE 29400020 * MODULE TRANSITION PARAMETER LIST 29700020 SPACE 30000020 XAP DS F POINTER TO XCTL NAME 30300020 XAD DS F DCB PTR. (0) 30600020 XAX DS D XCTL NAME 30900020 XAE DS 0C ERROR CODE 31200020 XAR DS F PTR TO PARM LIST (REG1) 31500020 XAN DS 0C VERB INDEX 31800020 XAL DS F PTR TO LIST POSITION 32100020 XAV DS D VERB 32400020 XAS DS D TEMORARY SAVE AREA 32700020 XAU DS C UCM ENTRY INDICATOR 20030 33000020 DS C RESERVED 20030 33300020 XAA DS H ASID ENTRY INDICATOR Y02669 33600002 XAK DS F KEPT FOR COMMUNICATIONS @Z30LPSV 33650003 * WITHIN A SINGLE COMMAND @Z30LPSV 33650203 XASVRB EQU *-XSA LENGTH OF XSA IN SVRB Y02669 33650402 SPACE 2 33651002 **************************************************************** Y02669 33651202 * THE FOLLOWING FIELDS EXIST ONLY IN THE Y02669 33652002 * SUBPOOL 229 XSA IN VS2: Y02669 33652202 * XASAVLOC XASAVSTD XACMFLGS XAWORK @ZA16375 33652303 **************************************************************** Y02669 33652802 SPACE 2 33653002 * SAVE AREA FOR SETLOCK INVOCATION Y02651 33654002 * THIS CONSISTS OF FOUR FULL WORDS USED TO SAVE REGISTERS Y02651 33655002 * 11, 12, 13, AND 14. Y02651 33656002 SPACE 33657002 XASAVLOC DS 0CL16 SETLOCK SAVE AREA Y02651 33658003 XASAVLC1 DS F @Z40LPTA 33658103 XASAVLC2 DS F @Z40LPTA 33658203 XASAVLC3 DS F @Z40LPTA 33658303 XASAVLC4 DS F @Z40LPTA 33658403 SPACE 2 33659002 * STANDARD SAVE AREA Y02669 33660002 * THE ADDRESS OF THIS 18 FULL WORD AREA IS PASSED TO Y02669 33661002 * THOSE ROUTINES INVOKED BY SVC 34 WHICH REQUIRE A SAVE Y02669 33662002 * AREA. Y02669 33663002 SPACE 33664002 XASAVSTD DS 0CL72 STANDARD SAVE AREA @Z40LPTA 33665003 XASAVSDA DS F @Z40LPTA 33675003 XASAVSDB DS F @Z40LPTA 33685003 XASAVSDC DS F @Z40LPTA 33695003 XASAVSDD DS F @Z40LPTA 33705003 XASAVSDE DS F @Z40LPTA 33715003 XASAVSDF DS F @Z40LPTA 33725003 XASAVSDG DS F @Z40LPTA 33735003 XASAVSDH DS F @Z40LPTA 33745003 XASAVSDI DS F @Z40LPTA 33755003 XASAVSDJ DS F @Z40LPTA 33765003 XASAVSDK DS F @Z40LPTA 33775003 XASAVSDL DS F @Z40LPTA 33785003 XASAVSDM DS F @Z40LPTA 33795003 XASAVSDN DS F @Z40LPTA 33805003 XASAVSDO DS F @Z40LPTA 33815003 XASAVSDP DS F @Z40LPTA 33825003 XASAVSDQ DS F @Z40LPTA 33835003 XASAVSDR DS F @Z40LPTA 33845003 SPACE 2 33845103 * SVC 34 COMMAND FLAGS @ZA16375 33845203 * THE FIRST HALF WORD CONTAINS A COPY OF THE 3RD AND @ZA16375 33845303 * 4TH BYTES OF THE SVC 34 PARAMETER LIST PROVIDED THE @ZA16375 33845403 * HIGH ORDER BIT IN THE 1ST BYTE OF THE PARAMETER LIST @ZA16375 33845503 * IS ON. @ZA16375 33845603 SPACE 33846403 XACMFLGS DS 0F COMMAND FLAGS @ZA16375 33846503 XACMFLGA DS 0H PART 1 OF COMMAND FLAGS @ZA16375 33846603 XACMFLG1 DS CL1 1ST FLAG BYTE @ZA16375 33846703 XACMF11 EQU X'80' RESERVED @ZA16375 33846803 XACMF12 EQU X'40' COMMAND ISSUED BY SUBSYSTEM @ZA16375 33846903 XACMF13 EQU X'20' RESERVED @ZA16375 33847003 XACMF14 EQU X'10' RESERVED @ZA16375 33847103 XACMF15 EQU X'08' RESERVED @ZA16375 33847203 XACMF16 EQU X'04' RESERVED @ZA16375 33847303 XACMF17 EQU X'02' RESERVED @ZA16375 33847403 XACMF18 EQU X'01' RESERVED @ZA16375 33847503 XACMFLG2 DS CL1 2ND FLAG BYTE @ZA16375 33847603 XACMF21 EQU X'80' RESERVED @ZA16375 33847703 XACMF22 EQU X'40' RESERVED @ZA16375 33847803 XACMF23 EQU X'20' RESERVED @ZA16375 33847903 XACMF24 EQU X'10' RESERVED @ZA16375 33848003 XACMF25 EQU X'08' RESERVED @ZA16375 33848103 XACMF26 EQU X'04' RESERVED @ZA16375 33848203 XACMF27 EQU X'02' RESERVED @ZA16375 33848303 XACMF28 EQU X'01' RESERVED @ZA16375 33848403 XACMFLGB DS 0H PART 2 OF COMMAND FLAGS @ZA16375 33848503 XACMFLG3 DS CL1 3RD FLAG BYTE - RESERVED @ZA16375 33848603 XACMFLG4 DS CL1 4TH FLAG BYTE - RESERVED @ZA16375 33848703 XARESRX DS F RESERVED WORD 1 @ZA16375 33848803 XARESRY DS F RESERVED WORD 2 @ZA16375 33848903 XARESRZ DS F RESERVED WORD 3 @ZA16375 33849003 SPACE 2 @ZA12404 33850003 * WORK POINTER SAVE AREA @ZA12404 33850103 * TO BE USED WITHIN A SINGLE COMMAND PROCESSOR. @ZA12404 33850203 SPACE 1 @ZA12404 33850303 XAWORK DS 0CL32 WORK POINTER AREA @ZA12404 33850403 XAWORKA DS F WORK POINTER 1 @ZA12404 33850503 XAWORKB DS F WORK POINTER 2 @ZA12404 33850603 XAWORKC DS F WORK POINTER 3 @ZA12404 33851603 XAWORKD DS F WORK POINTER 4 @ZA12404 33852603 XAWORKE DS F WORK POINTER 5 @ZA12404 33853603 XAWORKF DS F WORK POINTER 6 @ZA12404 33854603 XAWORKG DS F WORK POINTER 7 @ZA12404 33855603 XAWORKH DS F WORK POINTER 8 @ZA12404 33856603 XASIZE EQU *-XSA LENGTH OF SUBPOOL 229 XSA @Z30LPSV 33865003 SPACE 34200020 * MESSAGE AREA TABLE 34500020 SPACE 34800020 ORG XSA 35100020 XAH DS F RECORD HEADER 35400020 XAI DS 2F MESSAGE ID 35700020 XAF DS 2F FILL (VARIABLE TEXT) 36000020 XAT DS 6F PRE-FORMATTED TEXT, 36300020 * DESCRIPTOR CODE, 36600020 * ROUTING CODE 36900020 DS F RESERVED 37200020 SPACE 37203003 * TO SUPPORT THE VARY COMMAND, THE XAD FIELD IS MAPPED @Z30LPSV 37206003 * AS FOLLOWS 37209003 SPACE 37212003 ORG XAD @Z30LPSV 37213003 XADUSWIT DS AL1 UNIT FIELD SCAN SWITCHES @Z30LPSV 37215003 XAXPAREN EQU X'80' EXTERIOR PARENTHESES @Z30LPSV 37217003 XAIPAREN EQU X'40' INTERIOR PARENTHESES @Z30LPSV 37219003 XARES2 EQU X'20' RESERVED @Z30LPSV 37221003 XAUDVC EQU X'10' NON-CONSOLE DEVICE @Z30LPSV 37223003 XARES3 EQU X'08' RESERVED @Z30LPSV 37225003 XAIOCOMP EQU X'04' COMPOSITE CONSOLE @Z30LPSV 37227003 XAOUNIT EQU X'02' O-UNIT DEVICE @Z30LPSV 37229003 XAUBLANK EQU X'01' MESSAGE ISSUANCE INDICATOR @Z30LPSV 37231003 * 37242003 XADRES1 DS AL1 RESERVED BYTE @Z30LPSV 37245003 XACAHOLD DS AL2 ISSUER COMMAND AUTHORITY @Z30LPSV 37255003 SPACE 37270003 * TO SUPPORT SDS, THE XAS FIELD IS MAPPED AS FOLLOWS Y02669 37300002 SPACE 37350002 ORG XAS Y02669 37400002 XASCID DS X CONSOLE ID Y02669 37450002 XASDID DS C DISPLAY AREA ID Y02669 37460002 XASSDS DS X SDS SWITCHES Y02669 37470002 XASSDS1 EQU X'80' THIS COMMAND IS A STATUS Y02669 37480002 * DISPLAY Y02669 37490002 XASSDS2 EQU X'40' L OPERAND IS SPECIFIED ON Y02669 37492002 * COMMAND Y02669 37494002 XASSDS3 EQU X'20' COMMAND ISSUER IS NOT @Y02668P 37496003 * COMMTASK @Y02668P 37496503 XASSDS4 EQU X'10' L OPERAND SPECIFIED IN RCT @ZA02576 37497003 XASSDS5 EQU X'08' LOCAL AND CMS LOCKS HELD Y02669 37498402 XASSDS6 EQU X'04' MSGRT CONTINUATION FLAG @Z40LPTA 37498803 XASSDS7 EQU X'02' RESERVED @Z30LPSV 37500803 XASSDS8 EQU X'01' RESERVED @Z30LPSV 37502803 XASPLS3 DS X RESERVED - THESE BITS ARE @Z30LPSV 37504803 * USED SOLELY WITHIN EACH @Z30LPSV 37506803 * MODULE - THEY ARE NEVER @Z30LPSV 37508803 * USED FOR INTERFACE @Z30LPSV 37510803 XASTSAVE DS X ERROR CODE -- MINOR Y02669 37519203 XASOPTR DS XL3 POINTER TO INVALID OPERAND Y02669 37524203 SPACE 37529603 * TO SUPPORT THE VARY COMMAND, THE XAS FIELD IS MAPPED @Z30LPSV 37559603 * AS FOLLOWS @Z30LPSV 37579603 SPACE 37611303 ORG XAS @Z30LPSV 37615303 XASOPCOD DS AL1 OPERAND CODES @Z30LPSV 37617303 XACON EQU X'80' CONSOLE @Z30LPSV 37619303 XARESA EQU X'40' RESERVED @Z30LPSV 37621303 XAON EQU X'20' ONLINE @Z30LPSV 37623303 XAOFF EQU X'10' OFFLINE @Z30LPSV 37625303 XARESB EQU X'08' RESERVED @Z30LPSV 37627303 XALTCOM EQU X'04' ALTERNATE CONSOLE IS O-UNIT @Z30LPSV 37629303 XACMD EQU X'02' COMD AUTH IS TO BE CHANGED @Z30LPSV 37631303 XALTCON EQU X'01' ALTERNATE CONSOLE IS @Z30LPSV 37633303 * COMPOSITE @Z30LPSV 37635303 * @Z30LPSV 37637303 XASWITCH DS AL1 SYNTAX INDICATORS AND @Z30LPSV 37639303 * SWITCHES @Z30LPSV 37641303 XAROUT EQU X'80' ROUT CODE IS TO BE CHANGED @Z30LPSV 37643303 XAHRDCMD EQU X'40' HARD COPY OF COMMANDS WANTED@Z30LPSV 37645303 XALTCHG EQU X'20' ALTERNATE CONSOLE IS TO BE @Z30LPSV 37647303 * CHANGED @Z30LPSV 37649303 XAINHDCP EQU XALTCHG INCMDS @Z30LPSV 37651303 XACOMPMS EQU X'10' COMPOSITE MASTER CONSOLE @Z30LPSV 37653303 XASTHDCP EQU XACOMPMS STCMDS @Z30LPSV 37655303 XAHRDREQ EQU X'08' HARDCOPY REQUIRED @Z30LPSV 37657303 XASMF42 EQU X'04' SMF ROUTER SWITCH - IEE4203D@Z30LPSV 37659303 XASMF44 EQU X'02' SMF ROUTER SWITCH - IEE4403D@Z30LPSV 37661303 XARES1 EQU X'01' RESERVED @Z30LPSV 37663303 * @Z30LPSV 37665303 XARESV DS AL1 EXITS TO AND FROM IEE4803D @Z30LPSV 37667303 * AND IEE7303D @Z30LPSV 37669303 XACENDCK EQU X'80' BRANCH TO CENDCHK ROUTINE @Z30LPSV 37671303 XACRT2 EQU X'40' BRANCH TO CRT2 ROUTINE @Z30LPSV 37673303 * @Z30LPSV 37675303 XALTPTR DS AL1 ALTERNATE CONSOLE UCMID @Z30LPSV 37677303 XACMDATH DS AL2 COMMAND AUTH IN COMMAND @Z30LPSV 37679303 XARTCODE DS AL2 ROUTING CODES IN COMMAND @Z30LPSV 37681303 SPACE 37683303 * TO SUPPORT THE VARY COMMAND, THE XAR FIELD IS USED TO @Z30LPSV 37685303 * PASS A BIT STRING INDICATING WHICH UNITS ON THE @Z30LPSV 37687303 * COMMAND MUST OR MUST NOT BE PROCESSED. EACH BIT @Z30LPSV 37689303 * STANDS FOR A UNIT IN THE COMMAND. @Z30LPSV 37691303 * 37693303 * TO THE I/O PROCESSORS SUCH AS IEE3103D, HOWEVER, THE @Z30LPSV 37695303 * XAR FIELD CONTAINS THE LOGICAL END OF BUFFER POINTER @Z30LPSV 37697303 SPACE 37703303 * TO SUPPORT THE TRACK/STOPTR COMMANDS, THE XAX FIELD Y02669 37707303 * IS MAPPED AS FOLLOWS Y02669 37711303 SPACE 37715303 ORG XAX 37719303 XAXMASK DS C TRACK REQUEST INDICATORS Y02669 37727303 XAXJOBS EQU X'80' JOBS Y02669 37731303 XAXJOBSL EQU X'40' JOBS,LIST Y02669 37735303 XAXTS EQU X'08' TS Y02669 37743303 XAXTSL EQU X'04' TS,LIST Y02669 37747303 XAXA EQU X'88' ACTIVE Y02669 37755303 XAXAL EQU X'44' ACTIVE,LIST Y02669 37759303 XAXFREE DS C RESERVED Y02669 37764303 XAXUTME DS H UTME=NNN VALUE Y02669 37769303 XAXSACB DS F FOR TRACK: ADDRESS OF TRACK Y02669 37774303 * CANCEL ECB POINTER IN SACB Y02669 37779303 * FOR STOPTR: ADDRESS OF SACB Y02669 37784303 SPACE 37785103 * TO SUPPORT VARY RANGE, THE XAA FIELD IS MAPPED AS @Z30LPSV 37785903 * FOLLOWS. THE FIELD MUST BE RESET TO ZERO BEFORE @Z30LPSV 37786703 * ENTRY TO IEE0503D. @Z30LPSV 37787503 SPACE 37788303 ORG XAA @Z30LPSV 37789303 XAAVRANG DS CL1 RANGE FLAGS 1 @Z30LPSV 37791303 XAARNG1 EQU X'80' VARY RANGE BEING PROCESSED @Z30LPSV 37793303 XAARNG2 EQU X'40' VARY ENQ RESOURCE HELD @Z30LPSV 37795303 XAARNG3 EQU X'20' VARY RANGE TERMINATION @Z30LPSV 37797303 * EXIT TO BE TAKEN @Z30LPSV 37799303 XAARNG4 EQU X'10' REQUEST TYPE: ON - ONLINE @Z30LPSV 37801303 * OFF - OFFLINE @Z30LPSV 37803303 XAARNG5 EQU X'08' ALTERNATE PATH FOUND FOR @Z30LPSV 37805303 * AT LEAST ONE UNIT OR ZERO @Z30LPSV 37806303 * UCBTYPE FIELD. D U COUNT @Z30LPSV 37806603 * NOT INCREMENTED @Z30LPSV 37806903 XAARNG6 EQU X'04' RESERVED @Z30LPSV 37807303 XAARNG7 EQU X'02' RESERVED @Z30LPSV 37809303 XAARNG8 EQU X'01' RESERVED @Z30LPSV 37811303 XAAVRNG1 DS CL1 RANGE FLAGS 2 @Z30LPSV 37813303 XAARNG9 EQU X'80' RESERVED @Z30LPSV 37815303 XAARNG10 EQU X'40' RESERVED @Z30LPSV 37817303 XAARNG11 EQU X'20' RESERVED @Z30LPSV 37819303 XAARNG12 EQU X'10' RESERVED @Z30LPSV 37821303 XAARNG13 EQU X'08' RESERVED @Z30LPSV 37823303 XAARNG14 EQU X'04' RESERVED @Z30LPSV 37825303 XAARNG15 EQU X'02' RESERVED @Z30LPSV 37827303 XAARNG16 EQU X'01' RESERVED @Z30LPSV 37829303 MEND , */ 37831303 * %BSLXSA : ; 37835303 */* S/D Y02651, Y02669 Y02668, Z30LPSV, Z40LPTA Z300012 12/01/76*/ 37842303 * %/* A 684000,687500-690000,693500-694000 @YM01530*/; 37900002 * %/* C-753260 @ZA02576*/; 38100003 * %/* APAR TO SUPPORT MSS 'D 3850' CMD. S/C Z40LPTA @ZA07152*/; 38150003 * %/* A 719850 @ZA12404*/; 38200003 * %/* C 719850 @ZA16375*/; 38250003 * %/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */; 38400020 * %/* */; 38700020 * %/* EXTENDED SAVE AREA MACRO */; 39000020 * %/* */; 39300020 * %/* THIS MACRO PROVIDES FOR A MAPPING OF THE EXTENDED SAVE */; 39600020 * %/* AREA AS REQUESTED BY MASTER IN THE EVENT OF AN SVC 34 */; 39900020 * %/* OR SVC 35. THIS 48 BYTE AREA HAS TWO SEPARATE USES */; 40200020 * %/* DEPENDING ON THE FUNCTION REQUIRED. THE FIRST SUPPLIES */; 40500020 * %/* AN INTERFACE FOR TRANSITION BETWEEN MODULES, THE SEC- */; 40800020 * %/* OND SUPPLIES INFORMATION CONCERNING MASTER MESSAGES. */; 41100020 * %/* */; 41400020 * %/* THE AREA ACTUALLY USED AS AN XSA BY THE SVC 34 Y02669*/; 41403002 * %/* PROCESSING MODULES IS IN STORAGE GOTTEN IN SUBPOOL Y02669*/; 41404002 * %/* 229 BY THE FIRST MODULE OF SVC 34 (IEE0003D), THE Y02669*/; 41405002 * %/* ADDRESS OF WHICH IS PASSED TO THE PROCESSORS. Y02669*/; 41406002 * %/* BY CONVENTION, THIS ADDRESS IS PASSED IN REGISTER Y02669*/; 41406202 * %/* TWO THROUGHOUT SVC 34 BY ALL PROCESSORS. THE Y02669*/; 41406402 * %/* AREA IS ALSO FREED BY IEE0003D, SINCE ALL PROCESSORS Y02669*/; 41407002 * %/* RETURN TO IT. THE REAL EXTENDED SAVE AREA OF THE Y02669*/; 41408002 * %/* SVRB IS ONLY 48 BYTES IN SIZE, AND IS USED ONLY BY Y02669*/; 41409002 * %/* THE SVC 34 RECOVERY ROUTINES. Y02669*/; 41410002 * %/* */; 41411002 * %/* THE MODULE TRANSITION PARAMETER LIST INCLUDES A PTR TO */; 41700020 * %/* THE NAME OF THE MODULE WHICH IS BEING XCTL'D TO, THE */; 42000020 * %/* NAME OF THAT MODULE, THE DCB POINTER, A POINTER TO A */; 42300020 * %/* PARAMETER LIST, AND A POINTER TO THE FIRST CHARACTER AFTER */; 42600020 * %/* VERB IN THAT LIST.THERE IS ALSO ENTRY FOR THE VERB, */; 42900020 * %/* AN 8 BYTE TEMPORARY SAVE AREA, A 2 BYTE ASID/UCM Y02669*/; 43200002 * %/* INDICATOR AND A 4 BYTE RESERVED AREA. Y02669*/; 43550002 * %/* */; 43800020 * %/* MODULE TRANSITION PARAMETER LIST */; 44100020 * %/* */; 44400020 * %/* * 4 BYTES * 4 BYTES * */; 44700020 * %/* * * * * * * * **** * * * * * ** */; 45000020 * %/* * * * */; 45300020 * %/* * PTR XCTL NME * DCB POINTER * */; 45600020 * %/* * * * */; 45900020 * %/* * * * * * * * **** * * * * * ** */; 46200020 * %/* * * */; 46500020 * %/* * X C T L N A M E * */; 46800020 * %/* * * */; 47100020 * %/* * * * * * * * *** * * * * * * * */; 47400020 * %/* *1BT* PTR TO *VRB* PTR TO * */; 47700020 * %/* *ERR* PARAMETER*CDE* LIST * */; 48000020 * %/* *CDE* LIST * * POSITION * */; 48300020 * %/* * * * * * * * *** * * * * * * * */; 48600020 * %/* * * */; 48900020 * %/* * V E R B * */; 49200020 * %/* * * */; 49500020 * %/* * * * * * * * * * * * * * * * * */; 49800020 * %/* * * */; 50100020 * %/* * TEMPORARY SAVE AREA * */; 50400020 * %/* * * */; 50700020 * %/* * * * * * * * * * * * * * * * * */; 51000020 * %/* * UCM * RE- * ASID * Y02669*/; 51300002 * %/* * IND * SERVED* INDICATOR * 2 */; 51600002 * %/* * * * * * * * * * * * * * * * * */; 51900020 * %/* * INTERNAL COMMUNICATION * @Z30LPSV*/; 51900203 * %/* * WORD * @Z30LPSV*/; 51900403 * %/* * * * * * * * * * * * * * * * * @Z30LPSV*/; 51900603 * %/* * SETLOCK * Y02651*/; 51901002 * %/* * SAVE AREA * Y02651*/; 51902002 * %/* * * * * * * * * * * * * * * * * */; 51903002 * %/* * STANDARD * Y02669*/; 51904002 * %/* * SAVE AREA * Y02669*/; 51905002 * %/* * * * * * * * * * * * * * * * * */; 51906002 * %/* * SVC 34 COMMAND 1 WORD * @ZA16375*/; 51916003 * %/* * FLAG BYTES * @ZA16375*/; 51926003 * %/* * * * * * * * * * * * * * * * * @ZA16375*/; 51936003 * %/* * RESERVED 3 WORDS * @ZA16375*/; 51946003 * %/* * AREA * @ZA12404*/; 51986003 * %/* * * * * * * * * * * * * * * * * @ZA12404*/; 52026003 * %/* * WORK POINTER 8 WORDS * @ZA12404*/; 52066003 * %/* * AREA * @ZA12404*/; 52106003 * %/* * * * * * * * * * * * * * * * * @ZA12404*/; 52146003 * %/* */; 52200020 * %/* */; 52500020 * %/* THE MESSAGE AREA CONTAINS ENTRYS, FOLLOWING THE */; 52800020 * %/* RECORD HEADER, FOR THE MESSAGE ID AND THE VARIABLE */; 53100020 * %/* TEXT OR 'FILL'. FOLLOWING THE EIGHT BYTE FILL IS A */; 53400020 * %/* TWENTY EIGHT BYTE AREA FOR THE PRE-FORMATTED MESSAGE */; 53700020 * %/* TEXT,DESCRIPTOR CODE ( 2 BYTE), AND ROUTING CODE ( 2 BYTE )*/; 54000002 * %/* */; 54300020 * %/* */; 54600020 * %/* MESSAGE AREA TABLE */; 54900020 * %/* 0 4 */; 55200020 * %/* * * * * * * * *** * * * * * * * */; 55500020 * %/* * * * */; 55800020 * %/* * RECORD HEADER* MESSAGE ID * */; 56100020 * %/* * * * */; 56400020 * %/* * * * * * * * *** * * * * * * * */; 56700020 * %/* * * * */; 57000020 * %/* * MESSAGE ID * FILL * */; 57300020 * %/* * * * */; 57600020 * %/* * * * * * * * *** * * * * * * * */; 57900020 * %/* * * * */; 58200020 * %/* * FILL * * */; 58500020 * %/* * * P R E - * */; 58800020 * %/* * * * * * * * ** * */; 59100020 * %/* * * */; 59400020 * %/* * F O R M A T E D * */; 59700020 * %/* * * */; 60000020 * %/* * T E X T, * */; 60300020 * %/* * * */; 60600020 * %/* *D E S C R I P T O R C O D E * */; 60900020 * %/* * ( 2 B Y T E ) * */; 61200020 * %/* * * */; 61500020 * %/* * R O U T I N G C O D E * */; 61800020 * %/* * ( 2 B Y T E ) * */; 62100020 * %/* * * */; 62400020 * %/* * * * * * * * * * * * * * * * * */; 62700020 * %/* */; 63000020 * %/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */; 63300020 * %/* */; 63600020 * /* EXTENDED SAVE AREA MACRO */ 63900020 * /* */ 64200020 * /* ADDRESSABILITY TO THE XSA IN THE SVRB Y02669*/ 64201002 * /* MAY ALWAYS BE HAD WITH THESE INSTRUCTIONS Y02669*/ 64202002 * /* */ 64800020 * /* L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R) */ 65100020 * /* */ 65400020 * /* ADDRESSABILITY TO THE GOTTEN XSA MAY Y02669*/ 65401002 * /* ALWAYS BE HAD WITH THESE INSTRUCTIONS Y02669*/ 65402002 * /* (THIS IS THE XSA WHICH MUST BE USED BY Y02669*/ 65403002 * /* ALL SVC 34 ROUTINES OTHER THAN THE Y02669*/ 65404002 * /* RECOVERY MODULES.) Y02669*/ 65405002 * /* */ 65406002 * /* L R,16 / L R,0(R) / L R,4(R) / L R,0(R) / LA R,96(R) Y02669*/ 65407002 * /* L R,24(R) Y02669*/ 65407503 * 65700020 * DECLARE 65710020 * 1 XSAMAP BASED(XSAPTR), 65720020 * 66000020 * 2 XASVRB, /*Y02669*/ 66002002 * /* 'LENGTH (XASVRB)' YIELDS LENGTH OF XSA Y02669*/ 66010002 * /* IN THE SVRB Y02669*/ 66020002 66100002 * 3 XSA CHAR(8) BDY(WORD), /* BEGINNING OF SAVE AREA 66300002 * Y02669*/ 66350002 * 66600020 * /* MODULE TRANSITION PARAMETER LIST */ 66900020 * 67200020 * 4 XAP PTR(31), /* POINTER TO XCTL NAME 67500002 * Y02669*/ 67550002 * 4 XAD PTR(31), /* DCB PTR. (0) Y02669*/ 67800002 * 3 XAX CHAR(8) BDY(WORD), /* XCTL NAME Y02669*/ 68100002 * 3 * FIXED(31), /*@YM01530*/ 68400002 * 4 XAE CHAR(1), /* ERROR CODE Y02669*/ 68700002 * 4 XAR PTR(24), /* PTR TO PARM LIST (REG1) 68750002 * @YM01530*/ 68800002 * 3 * FIXED(31), /*@YM01530*/ 69000002 * 4 XAN CHAR(1), /* VERB INDEX Y02669*/ 69300002 * 4 XAL PTR(24), /* PTR TO LIST POSITION 69350002 * @YM01530*/ 69400002 * 3 XAV CHAR(8) BDY(WORD), /* VERB Y02669*/ 69600002 * 3 XAS CHAR(8) BDY(WORD), /* TEMORARY SAVE AREA 69900002 * Y02669*/ 69950002 * 3 XAU CHAR(1), /* UCM ENTRY INDICATOR 70200002 * Y02669*/ 70500002 * 3 * CHAR(1), /* RESERVED Y02669*/ 70800002 * 3 XAA FIXED(15), /* ASID ENTRY INDICATOR 71100002 * Y02669*/ 71400002 * 3 XAK FIXED(31), /* KEPT FOR COMMUNICATIONS 71750003 * WITHIN A SINGLE COMMAND 71750103 * @Z30LPSV*/ 71750203 71750403 71762003 * /********************************************************* Y02669*/ 71772003 * /* THE FOLLOWING FIELDS EXIST ONLY IN THE SUBPOOL Y02669*/ 71782003 * /* 229 XSA IN VS2: Y02669*/ 71792003 * /* XASAVLOC XASAVSTD XACMFLGS XAWORK @ZA16375*/ 71797003 * /********************************************************* Y02669*/ 71812003 * @SPACE(2); 71822003 * /* SAVE AREA FOR SETLOCK INVOCATION Y02651*/ 71842003 * /* THIS CONSISTS OF FOUR FULL WORDS USED TO SAVE Y02651*/ 71852003 * /* REGISTERS 11, 12, 13, AND 14. Y02651*/ 71862003 * @SPACE; 71872003 * 2 XASAVLOC(4) FIXED(31) BDY(WORD), /*SETLOCK SAVAREA @VS41100*/ 71877003 * 3 XASAVLOX CHAR(16) BDY(WORD), /*SETLOCK SAVE AREA @VS41100*/ 71880003 * 5 XASAVLC1 FIXED(31), /* @VS41100*/ 71883003 * 5 XASAVLC2 FIXED(31), /* @VS41100*/ 71886003 * 5 XASAVLC3 FIXED(31), /* @VS41100*/ 71889003 * 5 XASAVLC4 FIXED(31), /* @VS41100*/ 71892003 * @SPACE(2); 71897003 * /* STANDARD SAVE AREA Y02669*/ 71902003 * /* THE ADDRESS OF THIS 18 FULL WORD AREA IS PASSED TO Y02669*/ 71912003 * /* THOSE ROUTINES INVOKED BY SVC 34 WHICH REQUIRE A SAVE Y02669*/ 71922003 * /* AREA. Y02669*/ 71932003 * @SPACE; 71942003 * 2 XASAVSTD(18) FIXED(31) BDY(WORD), /* STD SAVEAREA @VS41100*/ 71947003 * 3 XASAVSTR CHAR(72) BDY(WORD), /* STANDARD SAVE AREA @VS41100*/ 71949003 * 5 XASAVSDA FIXED(31), /* @VS41100*/ 71951003 * 5 XASAVSDB FIXED(31), /* @VS41100*/ 71953003 * 5 XASAVSDC FIXED(31), /* @VS41100*/ 71955003 * 5 XASAVSDD FIXED(31), /* @VS41100*/ 71957003 * 5 XASAVSDE FIXED(31), /* @VS41100*/ 71959003 * 5 XASAVSDF FIXED(31), /* @VS41100*/ 71961003 * 5 XASAVSDG FIXED(31), /* @VS41100*/ 71963003 * 5 XASAVSDH FIXED(31), /* @VS41100*/ 71965003 * 5 XASAVSDI FIXED(31), /* @VS41100*/ 71967003 * 5 XASAVSDJ FIXED(31), /* @VS41100*/ 71969003 * 5 XASAVSDK FIXED(31), /* @VS41100*/ 71971003 * 5 XASAVSDL FIXED(31), /* @VS41100*/ 71973003 * 5 XASAVSDM FIXED(31), /* @VS41100*/ 71975003 * 5 XASAVSDN FIXED(31), /* @VS41100*/ 71977003 * 5 XASAVSDO FIXED(31), /* @VS41100*/ 71979003 * 5 XASAVSDP FIXED(31), /* @VS41100*/ 71981003 * 5 XASAVSDQ FIXED(31), /* @VS41100*/ 71983003 * 5 XASAVSDR FIXED(31), /* @VS41100*/ 71985003 * 2 * BDY(WORD), /* @ZA12404*/ 71985103 * @SPACE(2); 71985303 * /* SVC 34 COMMAND FLAGS @ZA16375*/ 71985903 * /* THE FIRST HALF WORD CONTAINS A COPY OF THE 3RD AND @ZA16375*/ 71986003 * /* 4TH BYTES OF THE SVC 34 PARAMETER LIST PROVIDED THE @ZA16375*/ 71986103 * /* HIGH ORDER BIT IN THE FIRST BYTE OF THE PARAMETER @ZA16375*/ 71986203 * /* LIST IS ON. @ZA16375*/ 71986303 * @SPACE; 71986503 * 3 XACMFLGS FIXED(32), /* COMMAND FLAGS @ZA16375*/ 71986803 * 5 XACMFLGA FIXED(16), /* PART 1 OF COMMAND FLAGS @ZA16375*/ 71986903 * 7 XACMFLG1 BIT(8), /* 1ST FLAG BYTE @ZA16375*/ 71987003 * 9 XACMF11 BIT(1), /* RESERVED @ZA16375*/ 71987103 * 9 XACMF12 BIT(1), /* COMMAND ISSUED BY SUBSYSTEM 71987503 * @ZA16375*/ 71987603 * 9 XACMF13 BIT(1), /* RESERVED @ZA16375*/ 71987703 * 9 XACMF14 BIT(1), /* RESERVED @ZA16375*/ 71987803 * 9 XACMF15 BIT(1), /* RESERVED @ZA16375*/ 71987903 * 9 XACMF16 BIT(1), /* RESERVED @ZA16375*/ 71988003 * 9 XACMF17 BIT(1), /* RESERVED @ZA16375*/ 71988103 * 9 XACMF18 BIT(1), /* RESERVED @ZA16375*/ 71988203 * 7 XACMFLG2 BIT(8), /* 2ND FLAG BYTE @ZA16375*/ 71988303 * 9 XACMF21 BIT(1), /* RESERVED @ZA16375*/ 71988403 * 9 XACMF22 BIT(1), /* RESERVED @ZA16375*/ 71988503 * 9 XACMF23 BIT(1), /* RESERVED @ZA16375*/ 71988603 * 9 XACMF24 BIT(1), /* RESERVED @ZA16375*/ 71988703 * 9 XACMF25 BIT(1), /* RESERVED @ZA16375*/ 71988803 * 9 XACMF26 BIT(1), /* RESERVED @ZA16375*/ 71988903 * 9 XACMF27 BIT(1), /* RESERVED @ZA16375*/ 71989003 * 9 XACMF28 BIT(1), /* RESERVED @ZA16375*/ 71989103 * 5 XACMFLGB FIXED(16), /* PART 2 OF COMMAND FLAGS @ZA16375*/ 71989203 * 7 XACMFLG3 BIT(8), /* 3RD FLAG BYTE RESERVED @ZA16375*/ 71989303 * 7 XACMFLG4 BIT(8), /* 4TH FLAG BYTE RESERVED @ZA16375*/ 71989403 * 3 XARESRX FIXED(31), /* RESERVED WORD 1 @ZA16375*/ 71989503 * 3 XARESRY FIXED(31), /* RESERVED WORD 2 @ZA16375*/ 71989603 * 3 XARESRZ FIXED(31), /* RESERVED WORD 3 @ZA16375*/ 71989703 * @SPACE(2); 71990603 * /* WORK POINTER SAVE AREA @ZA12404*/ 71990703 * /* TO BE USED WITHIN A SINGLE COMMAND PROCESSOR @ZA12404*/ 71990903 * @SPACE; 71991203 * 2 XAWORK CHAR(32) BDY(WORD), /* WORK POINTER AREA @ZA12404*/ 71991503 * 5 XAWORKA FIXED(31), /* WORK POINTER 1 @ZA12404*/ 71992303 * 5 XAWORKB FIXED(31), /* WORK POINTER 2 @ZA12404*/ 71993103 * 5 XAWORKC FIXED(31), /* WORK POINTER 3 @ZA12404*/ 71993903 * 5 XAWORKD FIXED(31), /* WORK POINTER 4 @ZA12404*/ 71994703 * 5 XAWORKE FIXED(31), /* WORK POINTER 5 @ZA12404*/ 71995503 * 5 XAWORKF FIXED(31), /* WORK POINTER 6 @ZA12404*/ 71996303 * 5 XAWORKG FIXED(31), /* WORK POINTER 7 @ZA12404*/ 71997103 * 5 XAWORKH FIXED(31); /* WORK POINTER 8 @ZA12404*/ 71997903 * 72000020 * /* MESSAGE AREA TABLE */ 72300020 * 72600020 * DECLARE 1 EEXSAS01 72900020 * BASED(ADDR(XSA)), 73200020 * 2 XAH CHAR(4), /* RECORD HEADER */ 73500020 * 2 XAI CHAR(8), /* MESSAGE ID */ 73800020 * 2 XAF CHAR(8), /* FILL (VARIABLE TEXT) */ 74100020 * 2 XAT CHAR(24), /* PRE-FORMATTED TEXT, 74400020 * DESCRIPTOR CODE, 74700020 * ROUTING CODE */ 75000002 * 2 * FIXED(31); /* RESERVED */ 75300020 75300203 * /* TO SUPPORT THE VARY COMMAND, THE XAD FIELD IS MAPPED @Z30LPSV*/ 75300403 * /* AS FOLLOWS @Z30LPSV*/ 75300703 75301003 * DECLARE 1 EEXSAS02 /* @Z30LPSV*/ 75303003 * BASED(ADDR(XAD)), /* @Z30LPSV*/ 75303303 * 2 XADUSWIT CHAR(1), /* UNIT FIELD SCAN 75303603 * SWITCHES @Z30LPSV*/ 75304003 * 3 XAXPAREN BIT(1), /* EXTERIOR PARENS @Z30LPSV*/ 75304103 * 3 XAIPAREN BIT(1), /* INTERIOR PARENS @Z30LPSV*/ 75304203 * 3 XARES2 BIT(1), /* RESERVED @Z30LPSV*/ 75304303 * 3 XAUDVC BIT(1), /* NON-CONSOLE DEV @Z30LPSV*/ 75304403 * 3 XARES3 BIT(1), /* RESERVED @Z30LPSV*/ 75304503 * 3 XAIOCOMP BIT(1), /* COMPOSITE CONS @Z30LPSV*/ 75304603 * 3 XAOUNIT BIT(1), /* O-UNIT DEVICE @Z30LPSV*/ 75304703 * 3 XAUBLANK BIT(1), /* MESSAGE ISSUANCE 75304803 * INDICATOR @Z30LPSV*/ 75304903 * 2 XADRES1 CHAR(1), /* RESERVED @Z30LPSV*/ 75305003 * 2 XACAHOLD CHAR(2); /* ISSUER CMD AUTH @Z30LPSV*/ 75305103 75306003 * /* TO SUPPORT SDS THE XAS FIELD IS MAPPED AS FOLLOWS Y02669*/ 75306503 75307003 * DECLARE 1 EEXSAS03 /* Y02669*/ 75308003 * BASED(ADDR(XAS)), /* Y02669*/ 75310003 * 2 XASCID PTR(8), /* CONSOLE ID Y02669*/ 75313003 * 2 XASDID CHAR(1), /* DISPLAY AREA ID Y02669*/ 75314003 * 2 XASDS CHAR(1), /* SDS SWITCHES Y02669*/ 75315003 * 3 XASSDS1 BIT(1), /* THIS COMMAND IS A 75317003 * STATUS DISPLAY Y02669*/ 75319003 * 3 XASSDS2 BIT(1), /* L OPERAND IS SPECIFIED 75320003 * ON COMMAND Y02669*/ 75322003 * 3 XASSDS3 BIT(1), /* COMMAND ISSUER IS NOT 75323003 * COMMTASK @Y02668P*/ 75325003 * 3 XASSDS4 BIT(1), /* L OPERAND IS SPECIFIED IN 75326003 * RCT @ZA02576*/ 75326503 * 3 XASSDS5 BIT(1), /* LOCAL AND CMS LOCKS 75327003 * HELD Y02651*/ 75328003 * 3 XASSDS6 BIT(1), /* MSGRT CONTINUATION 75329003 * FLAG @Z40LPTA*/ 75329303 * 3 XASSDS7 BIT(1), /* RESERVED @Z30LPSV*/ 75330003 * 3 XASSDS8 BIT(1), /* RESERVED @Z30LPSV*/ 75331003 * 2 XASPLS3 PTR(8), /* RESERVED Y02669*/ 75332003 * 2 * FIXED(31), /* MESSAGE INFO Y02669*/ 75333003 * 3 XASTSAVE PTR(8), /* ERROR CODE - MINOR Y02669*/ 75334003 * 3 XASOPTR PTR(24); /* POINTER TO INVALID 75335003 * OPERAND Y02669*/ 75336003 75347002 * /* TO SUPPORT THE TRACK/STOPTR COMMANDS, THE XAX FIELD IS Y02669*/ 75348002 * /* MAPPED AS FOLLOWS Y02669*/ 75349002 75350002 * DECLARE 1 EEXSAS04 /* Y02669*/ 75351003 * BASED(ADDR(XAX)), /* Y02669*/ 75352002 * 2 XAXMASK CHAR(1), /* TRACK REQUEST 75353002 * INDICATORS Y02669*/ 75354002 * 3 XAXJOBS BIT(1), /* JOBS Y02669*/ 75355002 * 3 XAXJOBSL BIT(1), /* JOBS,LIST Y02669*/ 75356002 * 3 * BIT(2), /* RESERVED Y02669*/ 75357002 * 3 XAXTS BIT(1), /* TS Y02669*/ 75358002 * 3 XAXTSL BIT(1), /* TS,LIST Y02669*/ 75359002 * 3 * BIT(2), /* RESERVED Y02669*/ 75360002 * 2 XAXFREE CHAR(1), /* RESERVED Y02669*/ 75361002 * 2 XAXUTME FIXED(15), /* UTME=NNN VALUE Y02669*/ 75362002 * 2 XAXSACB PTR(31); /* FOR TRACK: 75363003 * ADDR OF TRACK CANCEL ECB 75364002 * POINTER IN SACB 75366202 * FOR STOPTR: 75367002 * ADDRESS OF SACB Y02669*/ 75368002 75418003 * /* TO SUPPORT THE VARY COMMAND, THE XAS FIELD IS MAPPED @Z30LPSV*/ 75421003 * /* AS FOLLOWS @Z30LPSV*/ 75424003 75427003 * DECLARE 1 EEXSAS05 /* @Z30LPSV*/ 75430003 * BASED(ADDR(XAS)), /* @Z30LPSV*/ 75433003 * 2 XASOPCOD CHAR(1), /* OPERAND CODES @Z30LPSV*/ 75436003 * 3 XACON BIT(1), /* CONSOLE @Z30LPSV*/ 75439003 * 3 XARESA BIT(1), /* RESERVED @Z30LPSV*/ 75442003 * 3 XAON BIT(1), /* ONLINE @Z30LPSV*/ 75445003 * 3 XAOFF BIT(1), /* OFFLINE @Z30LPSV*/ 75448003 * 3 XARESB BIT(1), /* RESERVED @Z30LPSV*/ 75451003 * 3 XALTCOM BIT(1), /* ALTERNATE CONSOLE 75454003 * IS O-UNIT @Z30LPSV*/ 75457003 * 3 XACMD BIT(1), /* COMD AUTH IS TO 75468003 * BE CHANGED @Z30LPSV*/ 75470003 * 3 XALTCON BIT(1), /* ALTERNATE CONSOLE 75472003 * IS COMPOSITE @Z30LPSV*/ 75474003 * 2 XASWITCH CHAR(1), /* SYNTAX INDICATORS 75476003 * AND SWITCHES @Z30LPSV*/ 75478003 * 3 XAROUT BIT(1), /* ROUTE CODE IS TO 75480003 * BE CHANGED @Z30LPSV*/ 75482003 * 3 XAHRDCMD BIT(1), /* HARDCOPY OF COMMANDS 75484003 * WANTED @Z30LPSV*/ 75486003 * 3 XALTCHG BIT(1), /* ALTERNATE CONSOLE 75488003 * IS CHANGED @Z30LPSV*/ 75490003 * 4 XAINHDCP BIT(1), /* INCMDS @Z30LPSV*/ 75492003 * 3 XACOMPMS BIT(1), /* COMPOSITE MASTER 75494003 * CONSOLE @Z30LPSV*/ 75496003 * 4 XASTHDCP BIT(1), /* STCMDS @Z30LPSV*/ 75498003 * 3 XAHRDREQ BIT(1), /* HARDCOPY REQUIRED@Z30LPSV*/ 75500003 * 3 XASMF42 BIT(1), /* SMF ROUTER SWITCH 75502003 * IEE4203D @Z30LPSV*/ 75504003 * 3 XASMF44 BIT(1), /* SMF ROUTER SWITCH 75518003 * IEE4403D @Z30LPSV*/ 75520003 * 3 XARES1 BIT(1), /* RESERVED @Z30LPSV*/ 75522003 * 2 XARESV CHAR(1), /* EXITS TO AND FROM IEE4803D 75524003 * AND IEE7303D @Z30LPSV*/ 75526003 * 3 XACENDCK BIT(1), /* BRNCH TO DENDCHK @Z30LPSV*/ 75528003 * 3 XACRT2 BIT(1), /* BRNCH TO CRT2 @Z30LPSV*/ 75530003 * 2 XALTPTR CHAR(1), /* ALTERNATE CONSOLE 75532003 * UCMID @Z30LPSV*/ 75534003 * 2 XACMDATH CHAR(2), /* COMMAND AUTH IN 75536003 * COMMAND @Z30LPSV*/ 75538003 * 2 XARTCODE CHAR(2); /* ROUTING CODES IN 75540003 * COMMAND @Z30LPSV*/ 75542003 * /* TO SUPPORT THE VARY COMMAND, THE XAR FIELD IS USED TO @Z30LPSV*/ 75544003 * /* PASS A BIT STRING INDICATING WHICH UNITS ON THE @Z30LPSV*/ 75546003 * /* COMMAND MUST OR MUST NOT BE PROCESSED. EACH BIT @Z30LPSV*/ 75548003 * /* STANDS FOR A UNIT IN THE COMMAND. @Z30LPSV*/ 75550003 * /* */ 75552003 * /* TO THE I/O PROCESSORS SUCH AS IEE3103D, HOWEVER, THE @Z30LPSV*/ 75554003 * /* XAR FIELD CONTAINS THE LOGICAL END OF BUFFER POINTER @Z30LPSV*/ 75556003 * /* */ 75558003 * /* TO SUPPORT VARY RANGE, THE XAA FIELD IS MAPPED AS @Z30LPSV*/ 75560003 * /* FOLLOWS. THE FIELD MUST BE RESET TO ZERO BEFORE @Z30LPSV*/ 75562003 * /* ENTRY TO IEE0503D. @Z30LPSV*/ 75568003 75618003 * DECLARE 1 EEXSAS06 /* @Z30LPSV*/ 75668003 * BASED(ADDR(XAA)), /* @Z30LPSV*/ 76668003 * 2 XAAVRANG CHAR(1), /* RANGE FLAGS 1 @Z30LPSV*/ 77668003 * 3 XAARNG1 BIT(1), /* VARY RANGE IN 78668003 * PROCESS @Z30LPSV*/ 79668003 * 3 XAARNG2 BIT(1), /* VARY ENQ RESOURCE 80668003 * HELD @Z30LPSV*/ 81668003 * 3 XAARNG3 BIT(1), /* VARY RANGE TERMINATION 82668003 * EXIT TO BE TAKEN @Z30LPSV*/ 83668003 * 3 XAARNG4 BIT(1), /* REQUEST TYPE: 84668003 * ON - ONLINE 85668003 * OFF - OFFLINE @Z30LPSV*/ 86668003 * 3 XAARNG5 BIT(1), /* ALTERNATE PATH FOUND FOR AT 87168003 * LEAST ONE UNIT OR ZERO 87368003 * UCBTYPE FIELD. D U COUNT 87468003 * NOT INCREMENTED. @Z30LPSV*/ 87568003 * 3 XAARNG6 BIT(1), /* RESERVED @Z30LPSV*/ 87668003 * 3 XAARNG7 BIT(1), /* RESERVED @Z30LPSV*/ 88668003 * 3 XAARNG8 BIT(1), /* RESERVED @Z30LPSV*/ 89668003 * 2 XAAVRNG2 CHAR(1), /* RANGE FLAGS 2 @Z30LPSV*/ 90668003 * 3 XAARNG9 BIT(1), /* RESERVED @Z30LPSV*/ 91668003 * 3 XAARNG10 BIT(1), /* RESERVED @Z30LPSV*/ 92668003 * 3 XAARNG11 BIT(1), /* RESERVED @Z30LPSV*/ 93668003 * 3 XAARNG12 BIT(1), /* RESERVED @Z30LPSV*/ 94668003 * 3 XAARNG13 BIT(1), /* RESERVED @Z30LPSV*/ 95668003 * 3 XAARNG14 BIT(1), /* RESERVED @Z30LPSV*/ 96668003 * 3 XAARNG15 BIT(1), /* RESERVED @Z30LPSV*/ 97668003 * 3 XAARNG16 BIT(1); /* RESERVED @Z30LPSV*/ 98668003