* /* MACCOMP Z-4 SC1CX/PKD16 */ 00050040
* /* MACSTAT Z-4 75007/Z40BPSS */ 00080040
MACRO 00150040
&LABEL SYSEVENT &EVENT,&ASID=,&ASIDL=,&PGN=,&ENTRY=SVC,&TYPE= 00200040
ANOP ADDED TYPE= KEYWORD @ZA29015 00210040
LCLA &EVENTO 00250040
LCLA &FIPDISP @ZA31158 00270040
* /* MACDATE Y-2 74040 */ 00300040
&FIPDISP SETA 99 @ZA31158 00320040
&EVENTO SETA 1 00350040
AIF ('&EVENT'EQ'TIMEREXP').EOK 00400040
&EVENTO SETA 2 00450040
AIF ('&EVENT'EQ'TERMWAIT').EOK 00500040
&EVENTO SETA 3 00550040
AIF ('&EVENT'EQ'NIOWAIT').EOK 00600040
&EVENTO SETA 4 00650040
AIF ('&EVENT'EQ'USERRDY').EOK 00700040
&EVENTO SETA 5 00750040
.* 00800040
&EVENTO SETA 6 00850040
AIF ('&EVENT'EQ'MEMCREAT').EOK 00900040
&EVENTO SETA 7 00950040
AIF ('&EVENT'EQ'MEMDEL').EOK 01000040
&EVENTO SETA 8 01050040
AIF ('&EVENT'EQ'JOBSELCT').EOK 01100040
&EVENTO SETA 9 01150040
AIF ('&EVENT'EQ'JOBTERM').EOK 01200040
&EVENTO SETA 10 01250040
AIF ('&EVENT'EQ'INITATT').EOK 01300040
&EVENTO SETA 11 01350040
AIF ('&EVENT'EQ'INITDET').EOK 01400040
&EVENTO SETA 12 01450040
AIF ('&EVENT'EQ'QSCEST').EOK 01500040
&EVENTO SETA 13 01550040
AIF ('&EVENT'EQ'QSCECMP').EOK 01600040
&EVENTO SETA 14 01650040
AIF ('&EVENT'EQ'TRANSWAP').EOK @ZA16887 01670040
&EVENTO SETA 15 01750040
AIF ('&EVENT'EQ'SWOUTCMP').EOK 01800040
&EVENTO SETA 16 01850040
AIF ('&EVENT'EQ'SWINSTAT').EOK @Z40BPCH 01900040
&EVENTO SETA 17 01950040
AIF ('&EVENT'EQ'SWINFL').EOK 02000040
&EVENTO SETA 18 02050040
AIF ('&EVENT'EQ'QSCEFL').EOK 02100040
&EVENTO SETA 19 02150040
AIF ('&EVENT'EQ'RSTORCMP').EOK 02200040
&EVENTO SETA 20 02250040
AIF ('&EVENT'EQ'ENQHOLD').EOK 02300040
&EVENTO SETA 21 02350040
AIF ('&EVENT'EQ'ENQRLSE').EOK 02400040
&EVENTO SETA 22 02450040
AIF ('&EVENT'EQ'RSMCNSTS').EOK 02500040
&EVENTO SETA 23 02550040
AIF ('&EVENT'EQ'AVQLOW').EOK 02600040
&EVENTO SETA 24 02650040
AIF ('&EVENT'EQ'AVQOK').EOK 02700040
&EVENTO SETA 25 02750040
AIF ('&EVENT'EQ'SQALOW').EOK 02800040
&EVENTO SETA 26 02850040
AIF ('&EVENT'EQ'SQAOK').EOK 02900040
&EVENTO SETA 27 02950040
.* @Z40BPCH 03000040
&EVENTO SETA 28 03050040
AIF ('&EVENT'EQ'DEVALLOC').EOK 03100040
&EVENTO SETA 29 03150040
AIF ('&EVENT'EQ'CONFIGCH').EOK 03200040
&EVENTO SETA 30 03250040
AIF ('&EVENT'EQ'VERIFYPG').EOK 03300040
&EVENTO SETA 31 03350040
AIF ('&EVENT'EQ'RESETPG').EOK 03400040
&EVENTO SETA 32 03450040
AIF ('&EVENT'EQ'NEWIPS').EOK 03500040
&EVENTO SETA 33 03550040
AIF ('&EVENT'EQ'ALTCPREC').EOK 03600040
&EVENTO SETA 34 03650040
AIF ('&EVENT'EQ'TGETTPUT').EOK 03700040
&EVENTO SETA 35 03750040
AIF ('&EVENT'EQ'SYQSCST').EOK 03800040
&EVENTO SETA 36 03850040
AIF ('&EVENT'EQ'SYQSCCMP').EOK 03900040
&EVENTO SETA 37 03950040
AIF ('&EVENT'EQ'SETDMN').EOK @Z40BPCH 03960040
&EVENTO SETA 38 04000040
AIF ('&EVENT'EQ'REQSERVC').EOK 04100040
&EVENTO SETA 39 04150040
AIF ('&EVENT'EQ'REQPGDAT').EOK 04200040
&EVENTO SETA 40 04250040
AIF ('&EVENT'EQ'COPYDMDT').EOK 04270040
&EVENTO SETA 41 04350040
AIF ('&EVENT'EQ'DONTSWAP').EOK 04400040
&EVENTO SETA 42 04450040
AIF ('&EVENT'EQ'OKSWAP').EOK 04500040
&EVENTO SETA 43 04550040
AIF ('&EVENT'EQ'REQSWAP').EOK 04600040
&EVENTO SETA 44 04650040
AIF ('&EVENT'EQ'BRINGIN').EOK 04700040
&EVENTO SETA 45 04750040
AIF ('&EVENT'EQ'WKLDINIT').EOK 04800040
&EVENTO SETA 46 04850040
AIF ('&EVENT'EQ'WKLDCOLL').EOK 04900040
&EVENTO SETA 47 04950040
AIF ('&EVENT'EQ'WKLDTERM').EOK 05000040
&EVENTO SETA 48 05050040
.* 05100040
&EVENTO SETA 49 05150040
AIF ('&EVENT'EQ'REQSVDAT').EOK 05200040
&EVENTO SETA 50 05250040
.* 05300040
&EVENTO SETA 51 @ZA31158 05304040
.* @ZA31158 05305040
&EVENTO SETA 52 @ZA31158 05306040
.* @ZA31158 05307040
AIF ('&EVENT'NE'EVENT53').NEXT54 @ZA31158 05308040
&EVENTO SETA 53 @ZA31158 05309040
&FIPDISP SETA 12 @ZA31158 05310040
AGO .EOK @ZA31158 05311040
.NEXT54 AIF ('&EVENT'NE'EVENT54').NEXT55 @ZA31158 05312040
&EVENTO SETA 54 @ZA31158 05313040
&FIPDISP SETA 16 @ZA31158 05314040
AGO .EOK @ZA31158 05315040
.NEXT55 AIF ('&EVENT'NE'EVENT55').NEXT56 @ZA31158 05316040
&EVENTO SETA 55 @ZA31158 05317040
&FIPDISP SETA 20 @ZA31158 05318040
AGO .EOK @ZA31158 05319040
.NEXT56 AIF ('&EVENT'NE'EVENT56').NEXT57 @ZA31158 05320040
&EVENTO SETA 56 @ZA31158 05321040
&FIPDISP SETA 24 @ZA31158 05322040
AGO .EOK @ZA31158 05323040
.NEXT57 AIF ('&EVENT'NE'EVENT57').NEXT58 @ZA31158 05324040
&EVENTO SETA 57 @ZA31158 05325040
&FIPDISP SETA 28 @ZA31158 05326040
AGO .EOK @ZA31158 05327040
.NEXT58 AIF ('&EVENT'NE'EVENT58').NEXT59 @ZA31158 05328040
&EVENTO SETA 58 @ZA31158 05329040
&FIPDISP SETA 32 @ZA31158 05330040
AGO .EOK @ZA31158 05331040
.NEXT59 AIF ('&EVENT'NE'EVENT59').NEXT60 @ZA31158 05332040
&EVENTO SETA 59 @ZA31158 05333040
&FIPDISP SETA 36 @ZA31158 05334040
AGO .EOK @ZA31158 05335040
.NEXT60 AIF ('&EVENT'NE'ICSCHK').NEXT61 @ZA39354 05336040
&EVENTO SETA 60 @ZA39354 05336940
&FIPDISP SETA 40 @ZA39354 05337840
AGO .EOK @ZA39354 05338740
.NEXT61 ANOP @ZA39354 05339640
.NEXT62 ANOP @ZA39354 05340540
&EVENTO SETA 63 @ZA39354 05341440
.NEXT63 AIF ('&EVENT'EQ'CMDSTART').EOK @ZA39354 05342340
AIF ('&EVENT'NE'CMDEND').NEXT65 @ZA39354 05343240
&EVENTO SETA 64 @ZA39354 05344140
&FIPDISP SETA 44 @ZA39354 05345040
AGO .EOK @ZA39354 05345940
.NEXT65 ANOP @ZA39354 05346840
&EVENTO SETA 65 @ZA39354 05347740
.* @ZA39354 05348640
AGO .ERROR1 05350040
.EOK AIF ('&ASID'NE''AND'&ASIDL'NE'').ERROR4 05400040
AIF ('&ASID'EQ'').NULREG 05450040
AIF ('&ASID'(1,1)NE'(').ERROR2 05500040
AIF ('&ASID'EQ'(0)').SKPREG 05550040
&LABEL LR 0,&ASID(1) PUT ASID INTO REGISTER 0 05600040
AGO .SHFTID 05650040
.NULREG AIF ('&ASIDL'EQ'').OKLAB 05700040
AIF ('&ASIDL'(1,1)EQ'(').ERROR3 05750040
AIF ('&ASIDL'(K'&ASIDL,1)NE')').OKLAB 05800040
&LABEL LH 0,&ASIDL PUT ASID INTO REGISTER 0 05850040
AGO .SHFTID 05900040
.OKLAB ANOP 05950040
&LABEL LA 0,&EVENTO.(0,0) SYSEVENT CODE 06000040
AIF ('&ASIDL'EQ'').IC2 @ZA29015 06050040
ICM 0,12,&ASIDL PUT ASID INTO REGISTER 0 06080040
AGO .IC2 @ZA29015 06110040
.SKPREG AIF ('&LABEL'EQ'').SHFTID 06200040
&LABEL DS 0H 06250040
.SHFTID SLL 0,16(0) SHIFT INTO PROPER POSITION 06300040
AIF ('&ENTRY'NE'BRANCH').IC 06350040
LA 14,&EVENTO.(0,0) SYSEVENT CODE 06400040
OR 0,14 PUT CODE INTO REGISTER 0 06450040
AGO .IC2 @ZA29015 06500040
.IC AIF ('&TYPE'EQ'NOSWIN'AND'&EVENT'EQ'MEMDEL').NOSWIN @ZA29015 06508040
IC 0,IRAC&SYSNDX+1 PUT CODE INTO REGISTER 0 06516040
B IRAB&SYSNDX BRANCH AROUND CONSTANT 06524040
IRAC&SYSNDX DC AL2(&EVENTO) SYSEVENT CODE 06532040
AGO .OKID1 @ZA29015 06540040
.NOSWIN ANOP FOR MEMDEL TYPE=NOSWIN @ZA29015 06548040
ICM 0,3,IRAC&SYSNDX SYSEVENT TO STOP SWAPIN @ZA29015 06556040
B IRAB&SYSNDX BRANCH AROUND CONSTANTS @ZA29015 06564040
IRAC&SYSNDX DC BL1'10000000' MASK FOR TYPE=NOSWIN @ZA29015 06572040
DC AL1(&EVENTO) SYSEVENT CODE @ZA29015 06580040
AGO .OKID1 @ZA29015 06588040
.IC2 AIF ('&TYPE'EQ'NOSWIN'AND'&EVENT'EQ'MEMDEL').NOSWI2 @ZA29015 06596040
AGO .OKID2 @ZA29015 06604040
.NOSWI2 ANOP @ZA29015 06612040
ICM 0,2,IRAC&SYSNDX SYSEVENT TO STOP SWAPIN @ZA29015 06620040
B IRAB&SYSNDX BRANCH AROUND CONSTANTS @ZA29015 06628040
IRAC&SYSNDX DC BL1'10000000' MASK FOR TYPE=NOSWIN @ZA29015 06636040
DC BL1'00000000' RESERVED @ZA29015 06644040
.OKID1 ANOP 06652040
IRAB&SYSNDX EQU * 06660040
.OKID2 AIF ('&PGN'NE''AND'&TYPE'NE'').ERROR6 @ZA29015 06668040
AIF ('&PGN'EQ'').OKID3 CHECK FOR PERF GROUP NO @ZA29015 06676040
SR 14,14 CLEAR REG 14 FOR INSERT @Z40BPCH 06712040
IC 14,&PGN OBTAIN THE PERF GRP # @Z40BPCH 06718040
SLL 14,8 MOVE TO BYTE 2 @Z40BPCH 06724040
OR 0,14 PGN IN BYTE 2 OF REG 0 @Z40BPCH 06730040
.OKID3 AIF ('&ENTRY'EQ'BRANCH').BR @ZA29015 06736040
AIF ('&ENTRY'NE'SVC').ERROR5 06750040
.SVC SVC 95 SYSTEM RESOURCES MANAGER SVC 06850040
MEXIT 06900040
.BR ANOP 06950040
AIF ('&FIPDISP'NE'99').FASTBR @ZA31158 06970040
L 15,CVTPTR(,0) SYSTEM CVT ADDRESS 07000040
L 15,CVTOPTE-CVT(,15) SYSTEM RESOURCES MANAGER ENTRY 07050040
BALR 14,15 INVOKE SYSTEM RESOURCES MANAGER 07100040
MEXIT 07150040
.FASTBR ANOP 07156040
L 15,CVTPTR(,0) SYSTEM CVT ADDRESS @ZA31158 07162040
L 15,CVTRV609-CVT(,15) SRM ENTRY TABLE @ZA31158 07167040
L 14,&FIPDISP.(,15) SYSEVENT ENTRY ADDRESS @ZA31158 07172040
L 15,0(,15) MAIN ENTRY POINT @ZA31158 07177040
BALR 14,14 INVOKE SRM @ZA31158 07182040
MEXIT @ZA31158 07187040
.ERROR1 MNOTE 4,'*** IRA001 INVALID SYSEVENT MNEMONIC NAME OPERAX07200040
ND - &EVENT ***' 07250040
MEXIT 07300040
.ERROR2 MNOTE 8,'*** IRA002 INVALID ASID OPERAND SPECIFICATION -X07350040
&ASID ***' 07400040
MNOTE *,' USE ASIDL KEYWORD WHEN THE ASID VALUX07410040
E IS NOT CONTAINED IN A REGISTER' 07420040
MEXIT 07450040
.ERROR3 MNOTE 8,'*** IRA003 INVALID ASIDL OPERAND SPECIFICATION X07500040
- &ASIDL ***' 07550040
MNOTE *,' USE ASID KEYWORD IF THE ASID VALUE IX07560040
S PROVIDED IN A REGISTER' 07570040
MEXIT 07600040
.ERROR4 MNOTE 8,'*** IRA004 ASID AND ASIDL PARAMETERS ARE X07650040
MUTUALLY EXCLUSIVE ***' 07700040
MEXIT 07750040
.ERROR5 MNOTE 4,'*** IRA005 INVALID ENTRY TYPE - SVC ASSUMED **X07800040
*' 07850040
AGO .SVC 07900040
.ERROR6 MNOTE 8,'*** IRA006 PGN AND TYPE PARAMETERS ARE X07950040
MUTUALLY EXCLUSIVE ***' @ZA29015 08000040
MEXIT @ZA29015 08050040
MEND 08100040