ibm:vm370-lib:cp:dmkcks.assemble_hst
Table of Contents
DMKCKS History
References
- Fixes Applied : 10
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC075DK]
Update History
CMS File Input : DMKCKS ASSEMBLE
Date : 12/7/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCKS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R10076DK 604 CP DUMP SERVICES SUPPORT
- R09218DK 606 ABENDPTR003 TRYING TO RELEASE MAP OF CHECKPOINT CYLINDER
- R10616DK 609 CORRECT BAD LINE OF CODE
- R12228DK 617 UV03026 SPOOL FILE IS INCOMPATIBLE BETWEEN R060 AND VM/SP
- R12674DK 619 UV03929 ABENDFRE013 ON CHECKPOINT START AFTER VM12228DK
- R13815DK 624 UV05315 CHECKPOINT STARTDOES NOT CHECK SINGLE PAGE FILE
- R14548DK 627 UV05999 ABENDPGU001 DMKCKS FAIL TO DELETE INCOMPLETE SFBLOK
- HRC032DK V01 ASK FOR CKPT RESTART IF WARM FAILS
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
- HRC075DK V01 Alternate nucleus support
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ R 00725000 $ 725000 200 04/12/79 08:03:03
R10076DK: BNO CKSWM4AA NO...SKIP VMDUMP CHECK @V67CAH7 00724100
R10076DK: CLI SFBMISC1+1,C'V' YES...IS IT A VMDUMP @V67CAH7 00724200
R10076DK: BNE CKSWM6E SPECIAL HANDLING FOR CPDUMP @V67CAH7 00724300
R10076DK: CKSWM4AA DS 0H @V67CAH7 00725000
BEGIN APPLY >>> ./ R 00725000 $ 725000 200 04/12/79 08:03:03
END APPLY >>> ./ R 00725000 $ 725000 200 04/12/79 08:03:03
Update Succeeded
Update Execution Time 16 milliseconds.
R09218DK
Date Friday Nov 02, 1979 10:24:00 AM
Loaded from MAINT(294)
R09218DK: ./ R 350000 $ 350500 00001000
R09218DK: CKSEXIT L R2,RADDMAP GET REAL ADDRESS OF MAP @VA09218 00002000
BEGIN APPLY >>> ./ R 350000 $ 350500 00001000
END APPLY >>> ./ R 350000 $ 350500 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10616DK
Date Tuesday Jan 29, 1980 12:11:00 PM
Loaded from MAINT(294)
R10616DK: ./ R 646700 $ 646700 00001000
R10616DK: SR R15,R15 ZERO IT @VA10616 00002000
BEGIN APPLY >>> ./ R 646700 $ 646700 00001000
END APPLY >>> ./ R 646700 $ 646700 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12228DK
Date Friday Nov 21, 1980 02:26:00 PM
Loaded from MAINT(294)
R12228DK: ./ R 456000 $ 456100 100 00001000
R12228DK: LH R5,ENTRYCMP LOAD COMPARAND OFFSET @VA12228 00002000
R12228DK: AR R5,R3 FORM COMPARAND ADDRESS @VA12228 00003000
R12228DK: ./ R 606000 $ 606100 100 00004000
R12228DK: LH R5,ENTRYCMP LOAD COMPARAND OFFSET @VA12228 00005000
R12228DK: AR R5,R3 FORM COMPARAND ADDRESS @VA12228 00006000
R12228DK: ./ I 683000 $ 683100 100 00018000
R12228DK: MVC SFBUFORM,=CL8'STANDARD' @VA12228 00019000
R12228DK: MVC SFBOFORM,=CL8'STANDARD' @VA12228 00020000
R12228DK: ./ R 1483000 $ 1483100 100 00007000
R12228DK: SLOTPPAG DC F'34' SFBLOKS PER CHAIN (SP SIZE) @VA12228 00008000
R12228DK: ./ R 1486000 $ 1486100 100 00009000
R12228DK: ENTRYSIZ DC AL2(SPSFBSZ*8) @VA12228 00010000
R12228DK: ENTRYCMP DC AL2(34*SPSFBSZ*8-1) @VA12228 00011000
R12228DK: ./ I 1530000 $ 1530002 1 00012000
R12228DK: SFBLOK DSECT , CONTINUATION OF SFBLOK @VA12228 00013000
R12228DK: ORG , WITH VM/SP SFBLOK DEFINITIONS @VA12228 00014000
R12228DK: SFBUFORM DS D USER FORM @VA12228 00015000
R12228DK: SFBOFORM DS D OPERATOR FORM @VA12228 00016000
R12228DK: SPSFBSZ EQU (*-SFBLOK+7)/8 VM/SP SFBLOK IS 2 DWORDS LONGER @VA12228 00017000
BEGIN APPLY >>> ./ R 456000 $ 456100 100 00001000
END APPLY >>> ./ R 456000 $ 456100 100 00001000
BEGIN APPLY >>> ./ R 606000 $ 606100 100 00004000
END APPLY >>> ./ R 606000 $ 606100 100 00004000
BEGIN APPLY >>> ./ I 683000 $ 683100 100 00018000
END APPLY >>> ./ I 683000 $ 683100 100 00018000
BEGIN APPLY >>> ./ R 1483000 $ 1483100 100 00007000
END APPLY >>> ./ R 1483000 $ 1483100 100 00007000
BEGIN APPLY >>> ./ R 1486000 $ 1486100 100 00009000
END APPLY >>> ./ R 1486000 $ 1486100 100 00009000
BEGIN APPLY >>> ./ I 1530000 $ 1530002 1 00012000
END APPLY >>> ./ I 1530000 $ 1530002 1 00012000
Update Succeeded
Update Execution Time 23 milliseconds.
R12674DK
Date Thursday Mar 05, 1981 11:41:00 AM
Loaded from MAINT(294)
R12674DK: ./ R 456100 456200 $ 456100 00001000
R12674DK: LA R5,36*SFBSIZE*8-1(,R3) COMPARAND @VA12674 00002000
R12674DK: ./ R 606100 606200 $ 606100 00003000
R12674DK: LA R5,36*SFBSIZE*8-1(,R3) COMPARAND @VA12674 00004000
R12674DK: ./ D 683100 683200 $ 00005000
R12674DK: ./ R 1483100 $ 1483100 00006000
R12674DK: SLOTPPAG DC F'36' SFBLOKS PER PAGE @VA12674 00007000
R12674DK: ./ R 1486100 1486200 $ 1486100 00008000
R12674DK: ENTRYSIZ DC H'104' SFBSIZE*8 (SFBLOK IN BYTES) @VA12674 00009000
R12674DK: ./ D 1530002 1530006 $ 00010000
BEGIN APPLY >>> ./ R 456100 456200 $ 456100 00001000
END APPLY >>> ./ R 456100 456200 $ 456100 00001000
BEGIN APPLY >>> ./ R 606100 606200 $ 606100 00003000
END APPLY >>> ./ R 606100 606200 $ 606100 00003000
BEGIN APPLY >>> ./ D 683100 683200 $ 00005000
END APPLY >>> ./ D 683100 683200 $ 00005000
BEGIN APPLY >>> ./ R 1483100 $ 1483100 00006000
END APPLY >>> ./ R 1483100 $ 1483100 00006000
BEGIN APPLY >>> ./ R 1486100 1486200 $ 1486100 00008000
END APPLY >>> ./ R 1486100 1486200 $ 1486100 00008000
BEGIN APPLY >>> ./ D 1530002 1530006 $ 00010000
END APPLY >>> ./ D 1530002 1530006 $ 00010000
Update Succeeded
Update Execution Time 23 milliseconds.
R13815DK
Date Tuesday Sep 01, 1981 11:08:00 AM
Loaded from MAINT(294)
R13815DK: ./ D 727000 734000 $ BEGIN APPLY >>> ./ D 727000 734000 $ END APPLY >>> ./ D 727000 734000 $ Update Succeeded Update Execution Time 8 milliseconds.
R14548DK
Date Friday Jan 15, 1982 04:23:00 PM
Loaded from MAINT(294)
R14548DK: ./ R 813000 814000 $ 813100 100 00001000
R14548DK: CKSWM6C DS 0H @VA14548 00002000
R14548DK: CLC CCPDBUFF(4),SFBLAST IS THIS REALLY A COMPLETE @VA14548 00005000
R14548DK: * FILE? 00006000
R14548DK: BNE CKSWM6A1 NOT COMPLETE DELETE THIS FILE. @VA14548 00007000
R14548DK: CLC SPNXTPAG(4),SFBSTART DOUBLE CHECK COMPLETE @VA14548 00008000
R14548DK: * FILE FOR SAFETY. 00009000
R14548DK: BNE CKSWM6A1 NOT COMPLETE DELETE THIS FILE. @VA14548 00010000
R14548DK: DROP R2
R14548DK: NI 0(R3),X'FF'-(OPNSFB+ACTSFB) CLEAR THESE FLAGS @VA14548 00012000
BEGIN APPLY >>> ./ R 813000 814000 $ 813100 100 00001000
END APPLY >>> ./ R 813000 814000 $ 813100 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC032DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC032DK: ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
HRC032DK: CALL DMKQCNSY WAIT FOR OUPUT TO COMPLETE HRC035DK 01399000
HRC032DK: LA R2,8 HRC035DK
HRC032DK: ST R2,SAVER2 HRC035DK
HRC032DK: B CKSEXIT HRC035DK 01390000
BEGIN APPLY >>> ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
END APPLY >>> ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00850000 $ 00850100 100
HRC106DK: ICM R15,B'0010',=AL1(96) Pages for a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it a 3375 ? HRC106DK
HRC106DK: BE CKSWM6E1 Xfer if so HRC106DK
HRC106DK: ICM R15,B'0010',=AL1(150) Pages for a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it a 3380 ? HRC106DK
HRC106DK: BE CKSWM6E1 Xfer if so HRC106DK
HRC106DK: ./ I 00886000 $ 00886100 100
HRC106DK: ICM R15,B'0010',=AL1(96) Pages for a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it 3375 ? HRC106DK
HRC106DK: BE CKSWM6E2 Xfer if so HRC106DK
HRC106DK: ICM R15,B'0010',=AL1(150) Pages for a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it 3380 ? HRC106DK
HRC106DK: BE CKSWM6E2 Xfer if so HRC106DK
HRC106DK: ./ I 01068000 $ 01068100 100
HRC106DK: LA R15,96 Assume it is a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it ? HRC106DK
HRC106DK: BE CSLOT0 Xfer if so HRC106DK
HRC106DK: LA R15,150 Assume it is a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it ? HRC106DK
HRC106DK: BE CSLOT0 Xfer if so HRC106DK
HRC106DK: ./ I 01204000 $ 01204100 100
HRC106DK: LA R15,96 Assume a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it a 3375 ? HRC106DK
HRC106DK: BE NEWRECB Xfer if so HRC106DK
HRC106DK: LA R15,150 Assume a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it a 3380 ? HRC106DK
HRC106DK: BE NEWRECB Xfer if so HRC106DK
HRC106DK: ./ D 01211000
HRC106DK: ./ R 01214000 01225000 $ 01214100 500
HRC106DK: CH R8,=H'64' 'Small' no. of pages per cyl.? HRC106DK
HRC106DK: BL SMALLPPC Use the beginning of RECMAP HRC106DK
HRC106DK: CH R8,=H'128' 'Medium' no. of pages per cyl.? HRC106DK
HRC106DK: BL MIDPPC Use the middle of RECMAP HRC106DK
HRC106DK: SH R8,=H'128' Get rid of bits accounted for HRC106DK
HRC106DK: XC RECMAP(16),RECMAP Clear start, middle of RECMAP HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,RECMAP+16 Set up end of RECMAP HRC106DK
HRC106DK: B MAPFIN RECMAP completely set up HRC106DK
HRC106DK: MIDPPC SH R8,=H'64' Get rid of bits accounted for HRC106DK
HRC106DK: STM R14,R15,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,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 R14,R15,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: STM R14,R15,RECMAP+8 Set all bits in RECMAP middle HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,RECMAP Set up beginning of RECMAP HRC106DK
HRC106DK: ./ R 01241000 01242000 $ 01241100 1000
HRC106DK: CLI RECMAX,64 Is this a 'large' device? HRC106DK
HRC106DK: BNH OTHERDEV Reserve only three pages HRC106DK
BEGIN APPLY >>> ./ I 00850000 $ 00850100 100
END APPLY >>> ./ I 00850000 $ 00850100 100
BEGIN APPLY >>> ./ I 00886000 $ 00886100 100
END APPLY >>> ./ I 00886000 $ 00886100 100
BEGIN APPLY >>> ./ I 01068000 $ 01068100 100
END APPLY >>> ./ I 01068000 $ 01068100 100
BEGIN APPLY >>> ./ I 01204000 $ 01204100 100
END APPLY >>> ./ I 01204000 $ 01204100 100
BEGIN APPLY >>> ./ D 01211000
END APPLY >>> ./ D 01211000
BEGIN APPLY >>> ./ R 01214000 01225000 $ 01214100 500
END APPLY >>> ./ R 01214000 01225000 $ 01214100 500
BEGIN APPLY >>> ./ R 01241000 01242000 $ 01241100 1000
END APPLY >>> ./ R 01241000 01242000 $ 01241100 1000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ R 01057000 01057000 $ 01057000 1000
HRC075DK: LH R1,4(,R1) Get CUU of CKP area volume HRC075DK
BEGIN APPLY >>> ./ R 01057000 01057000 $ 01057000 1000
END APPLY >>> ./ R 01057000 01057000 $ 01057000 1000
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkcks.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator