ibm:vm370-lib:cp:dmkcpp.assemble_hst
Table of Contents
DMKCPP History
References
- Fixes Applied : 3
- Latest Source Date : Friday, August 7, 1981
- Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKCPP ASSEMBLE
Date : 8/7/1981 7:09:00 AM
VM Context : MAINT(394)
File Name : DMKCPP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE
- R15414DK 629 UV06300 CLC FOR LPUADDR SHOULD BE HALFWORD, NOT FULLWORD
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R12934DK
Date Friday Aug 07, 1981 07:09:00 AM
Loaded from MAINT(294)
R12934DK: ./ R 4800000 $ 4800000 100000
R12934DK: * DMKPTRPW - TO WAIT UNTIL I/O IS COMPLETE FOR A VIRTUAL MACHINE 04800000
R12934DK: ./ R 6000000 $ 6000000 20000
R12934DK: * DMKMCTVM - ADDRESS OF USER TO BE TERMINATED BY DMKMCT 06000000
R12934DK: * DMKMCTPF - ADDRESS OF OTHER PROCESSOR'S PSA PAGE 06020000
R12934DK: * DMKMCTFL - DMKMCT'S FLAG BYTES 06040000
R12934DK: * DMKSCHTQ - POINTER TO TOD CLOCK COMPARATOR REQUEST QUEUE 06060000
R12934DK: ./ R 6900000 $ 6900000 20000
R12934DK: * DMKLOKSY - GLOBAL SYSTEM LOCKWORD 06900000
R12934DK: * DMKLOKDS - DSP QUEUES LOCKWORD 06920000
R12934DK: * DMKLOKTR - TRQ LOCKWORD 06940000
R12934DK: * DMKLOKRL - RUN LIST LOCKWORD 06960000
R12934DK: * DMKLOKFR - FREE STORAGE LOCKWORD 06980000
R12934DK: ./ R 9900000 $ 9900000 50000
R12934DK: * CODE X'019' - THE OTHER PROCESSOR IS STILL RUNNING, AND 09900000
R12934DK: * CANNOT BE STOPPED TO ENTER UNIPROCESSOR MODE 09950000
R12934DK: ./ I 11300000 $ 11320000 20000
R12934DK: EXTRN DMKLOKDS @VA12934 11320000
R12934DK: EXTRN DMKLOKTR @VA12934 11340000
R12934DK: EXTRN DMKLOKRL @VA12934 11360000
R12934DK: EXTRN DMKLOKFR @VA12934 11380000
R12934DK: ./ R 11700000 $ 11700000 20000
R12934DK: EXTRN DMKMCTVM @VA12934 11700000
R12934DK: EXTRN DMKMCTPF @VA12934 11720000
R12934DK: EXTRN DMKMCTFL @VA12934 11740000
R12934DK: EXTRN DMKPGTSP @VA12934 11760000
R12934DK: ./ R 18100000 $ 18100000 20000
R12934DK: * 9. CHECK DMKMCT'S FLAG FIELD TO SEE IF DMKMCTFS HAS 18100000
R12934DK: * BEEN ENTERED. IF NOT, FREE THE PSA PAGES. IF SO, 18120000
R12934DK: * COMMUNICATION BETWEEN THE PROCESSORS HAS FAILED. 18140000
R12934DK: * DO NOT RELEASE THE PSA PAGE FOR THE OTHER 18160000
R12934DK: * PROCESSOR SINCE IT MAY STILL BE RUNNING. 18180000
R12934DK: ./ R 22800000 $ 22800000 100000
R12934DK: CALL DMKQCNWT,PARM=NORET+OPERATOR @VA12934 22800000
R12934DK: ./ I 27400000 $ 27410000 10000
R12934DK: L R1,=A(DMKMCTVM) ADDRESS OF USER TO BE TERMINATED@VA12934 27410000
R12934DK: * BY DMKMCT 27420000
R12934DK: C R11,0(R1) IS THIS USER GOING TO BE @VA12934 27430000
R12934DK: * TERMINATED BY DMKMCT? 27440000
R12934DK: BE NXTVM YES, DON'T CHANGE HIS VMBLOK @VA12934 27450000
R12934DK: ./ I 29800000 $ 29850000 50000
R12934DK: NXTVM DS 0H @VA12934 29850000
R12934DK: ./ I 37700000 $ 37730000 30000
R12934DK: MVC CPAPRINP(1),CPAPRINP-PSA(R2) COPY APR IN PROCESS@VA12934 37730000
R12934DK: * INDICATOR 37760000
R12934DK: ./ R 43900000 44000000 $ 43900000 5000
R12934DK: @VA12934 43800000
R12934DK: L R15,=A(DMKMCTFL) ADDRESS OF DMKMCT'S FLAGS @VA12934 43805000
R12934DK: TM 0(R15),MCTFS HAS DMKMCTFS BEEN CALLED? (A SIGP@VA12934 43810000
R12934DK: * TO THE OTHER PROC. WAS UNSUCCESSFUL 43815000
R12934DK: BZ PSAFRET1 NO, CONTINUE NORMALLY @VA12934 43820000
R12934DK: SPACE 1 43825000
R12934DK: * IF DMKMCTFS HAS BEEN ENTERED, A SIGP TO THE OTHER 43830000
R12934DK: * PROCESSOR HAS BEEN UNSUCCESSFUL. THE OTHER PROCESSOR 43835000
R12934DK: * COULD POSSIBLY STILL BE RUNNING -- IT HAS NOT BEEN 43840000
R12934DK: * SUCCESSFULLY STOPPED. DO NOT RELEASE THE OTHER 43845000
R12934DK: * PROCESSOR'S PSA PAGE IN THIS CASE. THIS WILL 43850000
R12934DK: * PREVENT A STORAGE OVERLAY IF THE OTHER PROCESSOR 43855000
R12934DK: * SHOULD ACCESS ITS PSA. IN AN ATTEMPT TO CAUSE 43860000
R12934DK: * THE OTHER PROCESSOR TO STOP RUNNING, SET ALL 43865000
R12934DK: * LOCKWORDS TO LOOK AS THOUGH THIS PROCESSOR OWNS 43870000
R12934DK: * THE LOCKS -- SINCE APUOPER IS STILL ON IN THE 43875000
R12934DK: * OTHER PROCESSOR'S PSA, IF IT TRIES TO OBTAIN A LOCK 43880000
R12934DK: * IT WILL BE BLOCKED. 43885000
R12934DK: SPACE 1 43890000
R12934DK: MVC PREFIXB-PSA(4,R7),ZEROES ZERO OTHER PROC'S @VA12934 43895000
R12934DK: * PREFIXB FIELD 43900000
R12934DK: L R15,=A(DMKMCTPF) ADDRESS OF PSA PAGE ADDRESS @VA12934 43905000
R12934DK: ST R7,0(R15) REMEMBER THE ADDRESS OF THE @VA12934 43910000
R12934DK: * OTHER PROCESSOR'S PSA PAGE. IF THE 43915000
R12934DK: * PROCESSOR SHOULD BE VARIED ONLINE 43920000
R12934DK: * AGAIN, THE SAME PAGE WILL BE USED 43925000
R12934DK: * FOR ITS PSA. 43930000
R12934DK: SPACE 1 43935000
R12934DK: * SET ALL LOCKWORDS TO APPEAR 'OWNED' BY THIS PROCESSOR 43940000
R12934DK: SLR R0,R0 CLEAR REGISTER 0 @VA12934 43945000
R12934DK: LH R14,LPUADDR LOGICAL ADDRESS OF THIS PROC. @VA12934 43950000
R12934DK: LA R15,LOCKTAB ADDRESS OF TABLE OF LOCKWORDS @VA12934 43955000
R12934DK: LOCKLOOP L R1,0(R15) ADDRESS OF A LOCKWORD FROM TABLE @VA12934 43960000
R12934DK: LTR R1,R1 AT END OF TABLE? @VA12934 43965000
R12934DK: BM PSAFRET2 YES, BRANCH @VA12934 43970000
R12934DK: BAL R7,SETLOCK GO SET LOCKWORD @VA12934 43975000
R12934DK: LA R15,4(R15) POINT TO NEXT LOCKWORD IN TABLE @VA12934 43980000
R12934DK: B LOCKLOOP LOOP TO SET NEXT LOCKWORD @VA12934 43985000
R12934DK: SPACE 1 @VA12934 43990000
R12934DK: PSAFRET1 SRL R7,8 LEAVE PAGE NUMBER * 16 @VA12934 43995000
R12934DK: ./ R 44400000 $ 44400000 100000
R12934DK: PSAFRET2 L R1,CPPDMPSA @VA12934 44300000
R12934DK: ./ I 89800000 $ 89805000 5000
R12934DK: EJECT 89705000
R12934DK: ************************************************************** 89710000
R12934DK: * SET A LOCKWORD TO CONTAIN VALUE OF LPUADDR 89715000
R12934DK: ************************************************************** 89720000
R12934DK: SETLOCK DS 0H @VA12934 89725000
R12934DK: CLC LPUADDR,0(R1) IS LOCK ALREADY OWNED BY THIS @VA12934 89730000
R12934DK: * PROCESSOR? 89735000
R12934DK: BE LOCKOK YES -- OK @VA12934 89740000
R12934DK: CS R0,R14,0(R1) PLACE LPUADDR IN LOCKWORD @VA12934 89745000
R12934DK: BNZ WAIT019 IF CS FAILED, IT IS BECAUSE THE @VA12934 89750000
R12934DK: * OTHER PROCESSOR NOW OWNS THE LOCK 89755000
R12934DK: * LOAD DISABLED WAIT -- OTHER PROC. 89760000
R12934DK: * IS STILL RUNNING, AND TO CONTINUE 89765000
R12934DK: * MIGHT JEOPARDIZE SYSTEM INTEGRITY 89770000
R12934DK: LOCKOK BR R7 RETURN TO THE CALLER @VA12934 89775000
R12934DK: SPACE 2 89780000
R12934DK: WAIT019 LPSW DISABPSW LOAD DISABLED WAIT @VA12934 89785000
R12934DK: ./ I 91000000 $ 91030000 30000
R12934DK: MCTFS EQU X'80' TO TEST DMKMCT'S FLAG BYTE FOR @VA12934 90930000
R12934DK: * DMKMCTFS ENTRY @VA12934 90960000
R12934DK: ./ I 93800000 $ 93809000 9000
R12934DK: DISABPSW DS 0D @VA12934 93709000
R12934DK: DC X'00020000',X'00000019' @VA12934 93718000
R12934DK: SPACE 2 93727000
R12934DK: LOCKTAB DC A(DMKLOKSY) @VA12934 93736000
R12934DK: DC A(DMKLOKDS) @VA12934 93745000
R12934DK: DC A(DMKLOKTR) @VA12934 93754000
R12934DK: DC A(DMKLOKRL) @VA12934 93763000
R12934DK: DC A(DMKLOKFR) @VA12934 93772000
R12934DK: DC F'-1' @VA12934 93781000
R12934DK: SPACE 2 93790000
BEGIN APPLY >>> ./ R 4800000 $ 4800000 100000
END APPLY >>> ./ R 4800000 $ 4800000 100000
BEGIN APPLY >>> ./ R 6000000 $ 6000000 20000
END APPLY >>> ./ R 6000000 $ 6000000 20000
BEGIN APPLY >>> ./ R 6900000 $ 6900000 20000
END APPLY >>> ./ R 6900000 $ 6900000 20000
BEGIN APPLY >>> ./ R 9900000 $ 9900000 50000
END APPLY >>> ./ R 9900000 $ 9900000 50000
BEGIN APPLY >>> ./ I 11300000 $ 11320000 20000
END APPLY >>> ./ I 11300000 $ 11320000 20000
BEGIN APPLY >>> ./ R 11700000 $ 11700000 20000
END APPLY >>> ./ R 11700000 $ 11700000 20000
BEGIN APPLY >>> ./ R 18100000 $ 18100000 20000
END APPLY >>> ./ R 18100000 $ 18100000 20000
BEGIN APPLY >>> ./ R 22800000 $ 22800000 100000
END APPLY >>> ./ R 22800000 $ 22800000 100000
BEGIN APPLY >>> ./ I 27400000 $ 27410000 10000
END APPLY >>> ./ I 27400000 $ 27410000 10000
BEGIN APPLY >>> ./ I 29800000 $ 29850000 50000
END APPLY >>> ./ I 29800000 $ 29850000 50000
BEGIN APPLY >>> ./ I 37700000 $ 37730000 30000
END APPLY >>> ./ I 37700000 $ 37730000 30000
BEGIN APPLY >>> ./ R 43900000 44000000 $ 43900000 5000
END APPLY >>> ./ R 43900000 44000000 $ 43900000 5000
BEGIN APPLY >>> ./ R 44400000 $ 44400000 100000
END APPLY >>> ./ R 44400000 $ 44400000 100000
BEGIN APPLY >>> ./ I 89800000 $ 89805000 5000
END APPLY >>> ./ I 89800000 $ 89805000 5000
BEGIN APPLY >>> ./ I 91000000 $ 91030000 30000
END APPLY >>> ./ I 91000000 $ 91030000 30000
BEGIN APPLY >>> ./ I 93800000 $ 93809000 9000
END APPLY >>> ./ I 93800000 $ 93809000 9000
Update Succeeded
Update Execution Time 47 milliseconds.
R15414DK
Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
R15414DK: ./ R 89830000 $ 89831000 1000 00001000
R15414DK: CLC LPUADDR,2(R1) IS LOCK ALREADY OWNED BY THIS @VA15414 00002000
BEGIN APPLY >>> ./ R 89830000 $ 89831000 1000 00001000
END APPLY >>> ./ R 89830000 $ 89831000 1000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 70300000 $ 70300100 100
HRC106DK: LA R0,PAGE3375 Max. pages/cyl on 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375? HRC106DK
HRC106DK: BE SAVEMAXP Yes HRC106DK
HRC106DK: LA R0,PAGE3380 Max. pages/cyl on 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380? HRC106DK
HRC106DK: BE SAVEMAXP Yes HRC106DK
HRC106DK: ./ I 90700000 $ 90700100 100
HRC106DK: PAGE3375 EQU 96 Pages/cyl for 3375 HRC106DK
HRC106DK: PAGE3380 EQU 150 Pages/cyl for 3380 HRC106DK
BEGIN APPLY >>> ./ I 70300000 $ 70300100 100
END APPLY >>> ./ I 70300000 $ 70300100 100
BEGIN APPLY >>> ./ I 90700000 $ 90700100 100
END APPLY >>> ./ I 90700000 $ 90700100 100
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkcpp.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator