ibm:vm370-lib:macro:sysres.macro_src
Table of Contents
SYSRES Source
References
- Fixes Applied : 3
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC075DK]
Source Listing
- SYSRES.MACRO.txt
- MACRO 00001000
- SYSRES &SYSVOL=,&SYSRES=,&SYSTYPE=,&SYSNUC=,&SYSERR=,&SYSWRM=,X00002000
- &SYSCKP= 00002100
- .* THIS MACRO DESCRIBES THE SYSTEM RESIDENCE VOLUME FOR CP 00003000
- .* R0035DMK - ALLOW 3333 DEVICE TYPE FOR SYSRES 00004000
- GBLC &SY$RES @V60BBBC 00004300
- &SY$RES SETC 'HERE' ANNOUNCE PRESENCE TO SYSLOCS @V60BBBC 00004600
- GBLA &OWNCNT,&SYSCYL,&SYSRDC 00005000
- GBLA &WRMEND 00005100
- GBLA &CKPEND 00005200
- GBLA &NUCEND HRC102DK 00005400
- GBLA &ERREND HRC102DK 00005600
- GBLC &OWNLST(255),&SYSSER,&SYSTYP 00006000
- LCLC &ERRVOL,&ERRDEV,&ERRTYP HRC075DK 00006020
- LCLC &WRMVOL,&WRMDEV,&WRMTYP HRC075DK 00006040
- LCLC &CKPVOL,&CKPDEV,&CKPTYP HRC075DK 00006060
- AIF ('&SYSVOL' EQ '').ERR4 00006100
- AIF ('&SYSTYPE' EQ '').ERR5 00006200
- AIF ('&SYSERR' EQ '').ERR6 00006300
- AIF ('&SYSRES' EQ '').ERR7 00006400
- AIF ('&SYSNUC' EQ '').ERR8 00006500
- AIF ('&SYSWRM' EQ '').ERR9 00006600
- &SYSCYL SETA &SYSNUC(1) HRC102DK 00007490
- &SYSSER SETC '&SYSVOL' 00008000
- &SYSTYP SETC '&SYSTYPE' 00009000
- AIF (('&SYSTYPE' EQ '2314') OR ('&SYSTYPE' EQ '2319')).LOOP 00010000
- AIF (('&SYSTYPE' EQ '3330') OR ('&SYSTYPE' EQ '2305')).LOOP 00011000
- AIF (('&SYSTYPE' EQ '3333') OR ('&SYSTYPE' EQ '3340')).LOOP 00012000
- AIF ('&SYSTYPE' EQ '3350').LOOP 00012100
- AIF ('&SYSTYPE' EQ '3375').LOOP HRC106DK 00012200
- AIF ('&SYSTYPE' EQ '3380').LOOP HRC106DK 00012300
- AGO .ERR1 00013000
- .LOOP ANOP 00014000
- &SYSRDC SETA &SYSRDC+1 00015000
- AIF (&SYSRDC GT &OWNCNT).ERR2 00016000
- AIF ('&OWNLST(&SYSRDC)' NE '&SYSVOL').LOOP 00017000
- &SYSRDC SETA &SYSRDC-1 00018000
- SPACE 00019000
- ENTRY DMKSYSVL,DMKSYSRS,DMKSYSTP 00020000
- ENTRY DMKSYSNU,DMKSYSER,DMKSYSCT,DMKSYSWM 00021050
- ENTRY DMKSYSCH,DMKSYSCN 00021100
- DMKSYSVL DC CL6'&SYSVOL' 00022000
- DMKSYSRS DC XL2'&SYSRES' 00023000
- DMKSYSTP DC AL1(CLASDASD,TYP&SYSTYP) 00024000
- DMKSYSNU DC H'&SYSNUC(1)' HRC102DK 00025030
- AIF (N'&SYSNUC EQ 1).SYSNU2 HRC102DK 00025060
- AIF (N'&SYSNUC NE 2).ERR12 HRC102DK 00025090
- AIF (&SYSNUC(2) LT 2 OR &SYSNUC(2) GT 32).ERR12 HRC102DK 00025120
- &NUCEND SETA &SYSNUC(1)+&SYSNUC(2)-1 HRC102DK 00025150
- AGO .GOTEND HRC102DK 00025180
- .SYSNU2 ANOP HRC102DK 00025210
- MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSNUC' HRC102DK 00025240
- &NUCEND SETA &SYSNUC(1)+1 HRC102DK 00025270
- .GOTEND ANOP HRC102DK 00025300
- DC H'&NUCEND' ENDING NUC CYL HRC102DK 00025330
- DMKSYSER DC H'&SYSERR(1)' @ OF 1ST ERROR RECORDING CYL 00025500
- &ERRVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00025530
- &ERRDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00025560
- &ERRTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00025590
- AIF (N'&SYSERR EQ 1).SYSCT2 00025600
- AIF (N'&SYSERR GT 3).ERR11 HRC075DK 00025740
- AIF (&SYSERR(2) LT 2 OR &SYSERR(2) GT 9).ERR11 00025800
- &ERREND SETA &SYSERR(1)+&SYSERR(2)-1 HRC102DK 00025850
- DMKSYSCT DC H'&SYSERR(2)' COUNT OF ERROR CYLINDERS 00025900
- AIF (N'&SYSERR NE 3).ERRDEF NO 3RD PARAM; DEFAULT HRC075DK 00026010
- &ERRVOL SETC '&SYSERR(3)' VOLUME NAME HRC075DK 00026020
- &ERRDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00026030
- &ERRTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00026040
- AGO .ERRDEF HRC075DK 00026050
- .SYSCT2 ANOP 00026100
- MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSERR' HRC102DK 00026130
- &ERREND SETA &SYSERR(1)+1 HRC102DK 00026160
- DMKSYSCT DC H'2' COUNT OF ERROR CYLINDERS 00026200
- .ERRDEF ANOP HRC075DK 00026220
- DC XL2'&ERRDEV' ERR AREA DEVICE ADDR HRC075DK 00026240
- DC AL1(CLASDASD,&ERRTYP) ERR AREA DEVICE TYPE HRC075DK 00026260
- DC CL6'&ERRVOL' ERR AREA VOLUME HRC075DK 00026280
- .WRMSTRT ANOP 00026300
- DMKSYSWM DC H'&SYSWRM(1)' ADDRESS OF FIRST WARM START CYLINDER 00027100
- &WRMVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00027130
- &WRMDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00027160
- &WRMTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00027190
- &WRMEND SETA &SYSWRM(1) 00027200
- AIF (N'&SYSWRM EQ 1).WRM 00027300
- AIF (N'&SYSWRM GT 3).ERR3 HRC075DK 00027440
- AIF (&SYSWRM(2) LT 1 OR &SYSWRM(2) GT 9).ERR3 00027500
- &WRMEND SETA &SYSWRM(1)+&SYSWRM(2)-1 00027600
- .WRM ANOP 00027700
- DC H'&WRMEND' ADDRESS OF LAST WARM START CYLINDER 00027800
- AIF (N'&SYSWRM NE 3).WRMDEF NO 3RD PARAM; DEFAULT HRC075DK 00027820
- &WRMVOL SETC '&SYSWRM(3)' VOLUME NAME HRC075DK 00027840
- &WRMDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00027860
- &WRMTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00027880
- .WRMDEF ANOP HRC075DK 00027900
- DC XL2'&WRMDEV' WRM AREA DEVICE ADDR HRC075DK 00027920
- DC AL1(CLASDASD,&WRMTYP) WRM AREA DEVICE TYPE HRC075DK 00027940
- DC CL6'&WRMVOL' WRM AREA VOLUME HRC075DK 00027960
- SPACE 3 00028000
- DMKSYSCH DC H'&SYSCKP(1)' ADDRESS OF FIRST CKPT START 00028050
- * CYLINDER 00028100
- &CKPVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00028110
- &CKPDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00028120
- &CKPTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00028130
- &CKPEND SETA &SYSCKP(1) 00028150
- AIF (N'&SYSCKP EQ 1).CKP 00028200
- AIF (N'&SYSCKP GT 3).ERR10 HRC075DK 00028260
- AIF (&SYSCKP(2) LT 1 OR &SYSCKP(2) GT 9).ERR10 00028300
- &CKPEND SETA &SYSCKP(1)+&SYSCKP(2)-1 00028350
- .CKP ANOP 00028400
- DC H'&CKPEND' ADDRESS OF LAST CKPT START 00028450
- AIF (N'&SYSCKP NE 3).CKPDEF NO 3RD PARAM; DEFAULT HRC075DK 00028457
- &CKPVOL SETC '&SYSCKP(3)' VOLUME NAME HRC075DK 00028463
- &CKPDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00028469
- &CKPTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00028475
- .CKPDEF ANOP HRC075DK 00028481
- DC XL2'&CKPDEV' CKP AREA DEVICE ADDR HRC075DK 00028487
- DC AL1(CLASDASD,&CKPTYP) CKP AREA DEVICE TYPE HRC075DK 00028493
- DC CL6'&CKPVOL' CKP AREA VOLUME HRC075DK 00028499
- * CYLINDER 00028500
- DMKSYSCN DC H'0' COUNT OF CHECKPOINT SLOTS IN USE 00028550
- SPACE 3 00028600
- MNOTE *,'System Residence Setup' HRC102DK 00028650
- MNOTE *,'Volume = &SYSSER, Unit &SYSRES, Type &SYSTYP' HRC102DK 00028700
- MNOTE *,'Nucleus = &SYSNUC(1)-&NUCEND' HRC102DK 00028750
- MNOTE *,'Error = &SYSERR(1)-&ERREND' HRC102DK 00028800
- MNOTE *,'Warm = &SYSWRM(1)-&WRMEND' HRC102DK 00028850
- MNOTE *,'CKPT = &SYSCKP(1)-&CKPEND' HRC102DK 00028900
- MEXIT 00029000
- .ERR1 MNOTE 8,'INVALID DEVICE TYPE FOR SYSRES' 00030000
- MEXIT 00031000
- .ERR2 MNOTE 8,'SYSVOL NOT IN OWNED LIST' 00032000
- MEXIT 00032100
- .ERR3 MNOTE 8,'INVALID SYSWRM OPTIONS' 00032200
- MEXIT 00032300
- .ERR4 MNOTE 8,'SYSVOL OPERAND NOT SPECIFIED' 00032350
- MEXIT 00032400
- .ERR5 MNOTE 8,'SYSTYPE OPERAND NOT SPECIFIED' 00032450
- MEXIT 00032500
- .ERR6 MNOTE 8,'SYSERR OPERAND NOT SPECIFIED' 00032550
- MEXIT 00032600
- .ERR7 MNOTE 8,'SYSRES OPERAND NOT SPECIFIED' 00032650
- MEXIT 00032700
- .ERR8 MNOTE 8,'SYSNUC OPERAND NOT SPECIFIED' 00032750
- MEXIT 00032800
- .ERR9 MNOTE 8,'SYSWRM OPERAND NOT SPECIFIED' 00032850
- MEXIT 00032900
- .ERR10 MNOTE 8,'INVALID SYSCKP OPTIONS' 00032950
- MEXIT 00032970
- .ERR11 MNOTE 8,'INVALID SYSERR OPTIONS' 00032990
- MEXIT HRC102DK 00032993
- .ERR12 MNOTE 8,'INVALID SYSNUC OPTIONS' HRC102DK 00032996
- MEND 00033000
ibm/vm370-lib/macro/sysres.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator