Date Sunday Feb 21, 2016 07:13:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00032000 $ 00032020 20
HRC106DK: ENTRY DMKPGT7P,DMKPGT7T
HRC106DK: ENTRY DMKPGT8P,DMKPGT8T
HRC106DK: ./ R 00063000 00067000 $ 00062100 1000
HRC106DK: * DMKPGTP5,DMKPGTP0,DMKPGT4P,DMKPGT5P,DMKPGTP4,DMKPGT7P HRC106DK
HRC106DK: * AND DMKPGT8P ARE ANCHOR CHAINS OF PREFERRED PAGING HRC106DK
HRC106DK: * DEVICES, THEY ARE INITIALIZED BY DMKCPI,DMKPGTT5, HRC106DK
HRC106DK: * DMKPGTT0,DMKPGT4T,DMKPGT5T,DMKPGTT4,DMKPGT7T AND HRC106DK
HRC106DK: * DMKPGT8T ARE ANCHORS FOR CHAINS CONNECTING ALL OTHER HRC106DK
HRC106DK: * DEVICE BLOKS WITH OWNED VOLUMES MOUNTED. HRC106DK
HRC106DK: ./ I 00234000 $ 00234100 100
HRC106DK: LH R7,ALOCMAX Get ALOCMAX before altering R10 HRC106DK
HRC106DK: CH R6,=H'255' Length of ALOCMAP > 256 bytes? HRC106DK
HRC106DK: BNH SMALLDEV Dasd with 2048 or less cylinders HRC106DK
HRC106DK: TRT ALOCMAP(256),FREETABL Check first 256 bytes HRC106DK
HRC106DK: BNZ PGT1A Found a zero bit HRC106DK
HRC106DK: LA R10,256(,R10) Try 256 bytes further along HRC106DK
HRC106DK: SMALLDEV EQU * HRC106DK
HRC106DK: ./ R 00255000 $ 00255100 100
HRC106DK: LR R6,R7 Retrieve saved ALOCMAX HRC106DK
HRC106DK: ./ I 00272000 $ 00272100 100
HRC106DK: LA R7,96 Number of pages/cylinder - 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375 device type ? HRC106DK
HRC106DK: BE GETCORE Yes, build RECBLOK HRC106DK
HRC106DK: LA R7,150 Number of pages/cylinder - 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 device type ? HRC106DK
HRC106DK: BE GETCORE Yes, build RECBLOK HRC106DK
HRC106DK: ./ R 00284000 00290000 $ 00284100 200
HRC106DK: DROP R6 HRC106DK
HRC106DK: USING RECBLOK,R1 HRC106DK
HRC106DK: LM R6,R7,FFS Set R6 and R7 to all ones HRC106DK
HRC106DK: CH R2,=H'64' 'Small' no. of pages per cyl.? HRC106DK
HRC106DK: BL SMALLPPC Use the beginning of RECMAP HRC106DK
HRC106DK: CH R2,=H'128' 'Medium' no. of pages per cyl.? HRC106DK
HRC106DK: BL MIDPPC Use the middle of RECMAP HRC106DK
HRC106DK: SH R2,=H'128' Get rid of bits accounted for HRC106DK
HRC106DK: XC RECMAP(16),RECMAP Clear start, middle of RECMAP HRC106DK
HRC106DK: SRDL R6,0(R2) Insert one zero per avail. page HRC106DK
HRC106DK: STM R6,R7,RECMAP+16 Set up end of RECMAP HRC106DK
HRC106DK: B MAPFIN RECMAP completely set up HRC106DK
HRC106DK: MIDPPC SH R2,=H'64' Get rid of bits accounted for HRC106DK
HRC106DK: STM R6,R7,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: SRDL R6,0(R2) Insert one zero per avail. page HRC106DK
HRC106DK: STM R6,R7,RECMAP+8 Set up middle of RECMAP HRC106DK
HRC106DK: XC RECMAP(8),RECMAP Clear beginning of RECMAP HRC106DK
HRC106DK: B MAPFIN RECMAP completely set up HRC106DK
HRC106DK: SMALLPPC STM R6,R7,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: STM R6,R7,RECMAP+8 Set all bits in middle of RECMAP HRC106DK
HRC106DK: SRDL R6,0(R2) Insert one zero per avail. page HRC106DK
HRC106DK: STM R6,R7,RECMAP Set up beginning of RECMAP HRC106DK
HRC106DK: DROP R1 HRC106DK
HRC106DK: USING RECBLOK,R6 HRC106DK
HRC106DK: ./ R 00300000 00301000 $ 00300100 1000
HRC106DK: CLI RECMAX,64 Is this a 'large' device? HRC106DK
HRC106DK: BH INITCYL0 Yes, initialise cyl 0 page map HRC106DK
HRC106DK: ./ D 00316000 00321000
HRC106DK: ./ I 00961000 $ 00961100 100
HRC106DK: LA R7,96(0) Pages / cylinder for 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 . . . HRC106DK
HRC106DK: BE CONNCYL HRC106DK
HRC106DK: LA R7,150(0) Pages / cylinder for 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 . . . HRC106DK
HRC106DK: BE CONNCYL HRC106DK
HRC106DK: ./ R 01054000 $ 01054100 100
HRC106DK: OVFL64PG MVC RECMAP(8),FFS Propagate first 64 bits HRC106DK
HRC106DK: S R4,=F'64' Determine middle (127-64) HRC106DK
HRC106DK: CLM R4,B'0001',PAGE63 Count still > than 63 Pages? HRC106DK
HRC106DK: BH OVF128PG Yes, extend allocation again HRC106DK
HRC106DK: ./ D 01059000
HRC106DK: ./ I 01060000 $ 01060100 100
HRC106DK: OVF128PG MVC RECMAP+8(8),FFS Propagate middle 64 bits HRC106DK
HRC106DK: S R4,=F'64' Determine remainder (191-128) HRC106DK
HRC106DK: SRDA R14,0(R4) Shift to propagate bits HRC106DK
HRC106DK: O R14,RECMAP+16 Allocate the bits HRC106DK
HRC106DK: O R15,RECMAP+20 . . . HRC106DK
HRC106DK: STM R14,R15,RECMAP+16 . . . HRC106DK
HRC106DK: B CONEXIT Restore registers HRC106DK
HRC106DK: ./ I 01066000 $ 01066100 100
HRC106DK: MVC RECMAP+1(23),RECMAP Propagate for 188 pages HRC106DK
HRC106DK: ./ I 01352000 $ 01352100 100
HRC106DK: DMKPGT7P DC A(0) Preferred paging devices - 3375 HRC106DK
HRC106DK: DMKPGT8P DC A(0) Preferred paging devices - 3380 HRC106DK
HRC106DK: ./ I 01358000 $ 01358100 100
HRC106DK: DMKPGT7T DC A(0) General spooling/paging - 3375 HRC106DK
HRC106DK: DMKPGT8T DC A(0) General spooling/paging - 3380 HRC106DK
BEGIN APPLY >>> ./ I 00032000 $ 00032020 20
END APPLY >>> ./ I 00032000 $ 00032020 20
BEGIN APPLY >>> ./ R 00063000 00067000 $ 00062100 1000
END APPLY >>> ./ R 00063000 00067000 $ 00062100 1000
BEGIN APPLY >>> ./ I 00234000 $ 00234100 100
END APPLY >>> ./ I 00234000 $ 00234100 100
BEGIN APPLY >>> ./ R 00255000 $ 00255100 100
END APPLY >>> ./ R 00255000 $ 00255100 100
BEGIN APPLY >>> ./ I 00272000 $ 00272100 100
END APPLY >>> ./ I 00272000 $ 00272100 100
BEGIN APPLY >>> ./ R 00284000 00290000 $ 00284100 200
END APPLY >>> ./ R 00284000 00290000 $ 00284100 200
BEGIN APPLY >>> ./ R 00300000 00301000 $ 00300100 1000
END APPLY >>> ./ R 00300000 00301000 $ 00300100 1000
BEGIN APPLY >>> ./ D 00316000 00321000
END APPLY >>> ./ D 00316000 00321000
BEGIN APPLY >>> ./ I 00961000 $ 00961100 100
END APPLY >>> ./ I 00961000 $ 00961100 100
BEGIN APPLY >>> ./ R 01054000 $ 01054100 100
END APPLY >>> ./ R 01054000 $ 01054100 100
BEGIN APPLY >>> ./ D 01059000
END APPLY >>> ./ D 01059000
BEGIN APPLY >>> ./ I 01060000 $ 01060100 100
END APPLY >>> ./ I 01060000 $ 01060100 100
BEGIN APPLY >>> ./ I 01066000 $ 01066100 100
END APPLY >>> ./ I 01066000 $ 01066100 100
BEGIN APPLY >>> ./ I 01352000 $ 01352100 100
END APPLY >>> ./ I 01352000 $ 01352100 100
BEGIN APPLY >>> ./ I 01358000 $ 01358100 100
END APPLY >>> ./ I 01358000 $ 01358100 100
Update Succeeded
Update Execution Time 55 milliseconds.