ibm:vm370-lib:cp:dmkfre.assemble_hst
Table of Contents
DMKFRE History
References
- Fixes Applied : 7
- Latest Source Date : Wednesday, December 13, 1978
- Last Fix ID : [HRC035DK]
Update History
CMS File Input : DMKFRE ASSEMBLE
Date : 12/13/1978 4:57:00 PM
VM Context : MAINT(394)
File Name : DMKFRE.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
- R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
- R09919DK 607 ABENDPRG005 EXTNDSAV REGS OVERLAID
- R09450DK 608 ABENDPRG005 AFTER RETURN FROM DMKFRE REG1 EQ NEGATIVE , CC=1
- R12596DK 620 UV03973 DMKFRE CPEXBLOK DURING EXTEND + SYSTEM LOCK
- R13499DK 623 UV04522 CHANGE BACKPOCKET HANDLING FOR CPEX/FREAP
- R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
- HRC035DK V01 ADD SUPPORT FOR FRET TRAP
R10073DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10073DK: ./ R 260000 260000 $ 260000 100
R10073DK: * DMKPSA - TRACING INFORMATION, ALOKFR, LPUADDR
R10073DK: ./ I 290000 $ 290100 100
R10073DK: * NOP IN UP MODE.. %VA07369
R10073DK: ./ R 318000 318000 $ 318000 100
R10073DK: TRACE CODE=TRCFREE,R15,R14,R1 OBTAIN TRACE TBL SLOT %V407594
R10073DK: ./ I 375000 $ 375100 100
R10073DK: * NOP IN UP MODE %V4M0198
R10073DK: ./ R 1069000 1069000 $ 1069000 100
R10073DK: * DMKPSA - TRACING INFORMATION, ALOKFR, LPUADDR
BEGIN APPLY >>> ./ R 260000 260000 $ 260000 100
END APPLY >>> ./ R 260000 260000 $ 260000 100
BEGIN APPLY >>> ./ I 290000 $ 290100 100
END APPLY >>> ./ I 290000 $ 290100 100
BEGIN APPLY >>> ./ R 318000 318000 $ 318000 100
END APPLY >>> ./ R 318000 318000 $ 318000 100
BEGIN APPLY >>> ./ I 375000 $ 375100 100
END APPLY >>> ./ I 375000 $ 375100 100
BEGIN APPLY >>> ./ R 1069000 1069000 $ 1069000 100
END APPLY >>> ./ R 1069000 1069000 $ 1069000 100
Update Succeeded
Update Execution Time 23 milliseconds.
R09919DK
Date Friday Dec 07, 1979 09:10:00 AM
Loaded from MAINT(294)
R09919DK: ./ R 1303000 $ 1303100 00001000
R09919DK: MVC EXTNDSV2(16*4),BALRSAVE SAVE BALRSAVE @VA09919 00002000
R09919DK: ./ R 1315000 $ 1315100 00003000
R09919DK: MVC BALRSAVE(16*4),EXTNDSV2 RESTORE BALRSAVE @VA09919 00004000
R09919DK: ./ I 1488000 $ 1488500 00005000
R09919DK: EXTNDSV2 DC 16F'0' BALRSAVE AREA FOR PG FRET @VA09919 00006000
BEGIN APPLY >>> ./ R 1303000 $ 1303100 00001000
END APPLY >>> ./ R 1303000 $ 1303100 00001000
BEGIN APPLY >>> ./ R 1315000 $ 1315100 00003000
END APPLY >>> ./ R 1315000 $ 1315100 00003000
BEGIN APPLY >>> ./ I 1488000 $ 1488500 00005000
END APPLY >>> ./ I 1488000 $ 1488500 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R09450DK
Date Friday Jan 11, 1980 04:11:00 AM
Loaded from MAINT(294)
R09450DK: ./ R 335000 $ 335000 00001000
R09450DK: LNR R7,R12 SET CC=1 -- MUST BE COND.CC EQ 1 @VA09450 00002000
BEGIN APPLY >>> ./ R 335000 $ 335000 00001000
END APPLY >>> ./ R 335000 $ 335000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12596DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12596DK: ./ R 758000 $ 758100
R12596DK: L R1,4(,R2) GET ADDRESS OF CPEX FROM FREAP @VA12596
R12596DK: ./ R 1381000 1383000 $ 1381100 300
R12596DK: DC XL3'0' ADDRESS OF SAVE AREA @VA12596
R12596DK: DC F'0' ADDRESS OF CPEXBLOK @VA12596
R12596DK: FREAPLNG EQU 16 EXTEND BACK POCKET STORAGE SIZE @VA12596
R12596DK: * (FOR THE SAVE AREA ONLY) @VA12596
R12596DK: * BACK POCKET SAVE AREA IS USED FOR BALRSAVE AND @VA12596
R12596DK: * FREESAVE. THE CPEXBLOK IS USED TO DEFER THE EXTEND WHEN @VA12596
R12596DK: * THE SYSTEM LOCK IS UNAVAILABLE. THE TWO AREAS ARE @VA12596
R12596DK: * OBTAINED AND GIVEN BACK AS SEPARATE PIECES OF STORAGE. @VA12596
BEGIN APPLY >>> ./ R 758000 $ 758100
END APPLY >>> ./ R 758000 $ 758100
BEGIN APPLY >>> ./ R 1381000 1383000 $ 1381100 300
END APPLY >>> ./ R 1381000 1383000 $ 1381100 300
Update Succeeded
Update Execution Time 16 milliseconds.
R13499DK
Date Thursday Aug 27, 1981 08:24:00 AM
Loaded from MAINT(294)
R13499DK: ./ R 00758100 $ 00758100 00001000
R13499DK: ICM R2,B'0111',DMKFREAP+1 ADDRESS OF BACKPOCKET @VA13499 00002000
R13499DK: ./ R 00762000 $ 00762100 00003000
R13499DK: L R1,DMKFREAP+4 GET ADDRESS OF CPEX FROM FREAP @VA13499 00004000
BEGIN APPLY >>> ./ R 00758100 $ 00758100 00001000
END APPLY >>> ./ R 00758100 $ 00758100 00001000
BEGIN APPLY >>> ./ R 00762000 $ 00762100 00003000
END APPLY >>> ./ R 00762000 $ 00762100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R14280DK
Date Wednesday Nov 04, 1981 01:37:00 PM
Loaded from MAINT(294)
R14280DK: ./ R 187000 $ 187000 500
R14280DK: ENTRY DMKFREST SUBTABLE... POINTERS TO SUBPOOLS @VA14280 00187000
R14280DK: ENTRY DMKFREMX MAXSIZE... FOR CP ASSIST USE @VA14280 00187500
R14280DK: ./ R 245000 $ 245000 500
R14280DK: * CP ASSIST INSTRUCTION "FREEX" 00245000
R14280DK: * - OBTAIN SUBPOOL SIZE FREE SPACE (EXTENDED) 00245500
R14280DK: ./ R 249000 $ 249100
R14280DK: * 1 = ADDRESS OF 'MAXSIZE' FOLLOWED BY 'SUBTABLE' 00249000
R14280DK: ./ R 259000 $ 259100
R14280DK: * DMKFRE - 'BYTBL', 'MAXSIZE', AND 'SUBTABLE' 00259000
R14280DK: ./ I 272000 $ 272090 90
R14280DK: * 00272090
R14280DK: * NOTE: 00272180
R14280DK: * 00272270
R14280DK: * THE GET FREE SPACE EXTENDED (X'E614') INSTRUCTION IS 00272360
R14280DK: * SUPPORTED ONLY UNDER ECPS:VM LEVEL 20. IT ALLOWS FOR 00272450
R14280DK: * A VARIABLE NUMBER OF VARIABLE SIZE SUBPOOLS. 00272540
R14280DK: * IF VM/370 IS IPLED ON A MACHINE THAT HAS ECPS:VM LEVEL 18 00272630
R14280DK: * OR 19, DMKCPI WILL ALTER THE X'E614' INSTRUCTION IN 00272720
R14280DK: * DMKFRE BACK TO THE OLD-STYLE X'E600' INSTRUCTION DURING 00272810
R14280DK: * THE IPL OF VM/370. 00272900
R14280DK: ./ R 280000 281000 $ 280000 500
R14280DK: DS 0H EXECUTE CP ASSIST "FREEX" @VA14280 00280000
R14280DK: * NOTE THE FOLLOWING CHANGED TO X'E600',S(SUBTABLE,BYTBL-1) 00280500
R14280DK: * IF RUNNING BELOW ECPS LEVEL 20. 00281000
R14280DK: DC X'E614',S(MAXSIZE,BYTBL-1) %VA14280 00281500
R14280DK: ./ R 1053000 $ 1053000 500
R14280DK: * CP ASSIST INSTRUCTION "FRETX" 01053000
R14280DK: * - RETURN SUBPOOL SIZE FREE SPACE 01053500
R14280DK: ./ R 1057000 $ 1057100
R14280DK: * 1 = ADDRESS OF 'MAXSIZE' FOLLOWED BY 'SUBTABLE' 01057000
R14280DK: ./ R 1068000 $ 1068100
R14280DK: * DMKFRE - 'BYTBL', 'MAXSIZE' AND 'SUBTABLE' 01068000
R14280DK: ./ I 1081000 $ 1081090 90
R14280DK: * 01081090
R14280DK: * NOTE: 01081180
R14280DK: * 01081270
R14280DK: * THE RETURN FREE SPACE EXTENDED (X'E615') INSTRUCTION IS 01081360
R14280DK: * SUPPORTED ONLY UNDER ECPS:VM LEVEL 20. IT ALLOWS FOR 01081450
R14280DK: * A VARIABLE NUMBER OF VARIABLE SIZE SUBPOOLS. 01081540
R14280DK: * IF VM/370 IS IPLED ON A MACHINE THAT HAS ECPS:VM LEVEL 18 01081630
R14280DK: * OR 19, DMKCPI WILL ALTER THE X'E615' INSTRUCTION IN 01081720
R14280DK: * DMKFRE BACK TO THE OLD-STYLE X'E601' INSTRUCTION DURING 01081810
R14280DK: * THE IPL OF VM/370. 01081900
R14280DK: ./ R 1098000 1099000 $ 1098000 500
R14280DK: DS 0H EXECUTE CP ASSIST "FRETX" @VA14280 01098000
R14280DK: * NOTE THE FOLLOWING CHANGED TO X'E601',S(SUBTABLE,DMKFRETL) 01098500
R14280DK: * IF RUNNING BELOW ECPS LEVEL 20. 01099000
R14280DK: DC X'E615',S(MAXSIZE,DMKFRETL) %VA14280 01099500
R14280DK: ./ R 1352000 $ 1352100
R14280DK: MAXSPSIZ EQU 30 MAXIMUM SIZE OF A SUBPOOL BLOCK @VA14280 01352000
R14280DK: ./ D 1405000 1406000 09/17/81 09:46:27
R14280DK: ./ R 1415000 $ 1415100
R14280DK: ADCON5 DC A(ENDSIZES-SUBSIZES-4) --> R5 @VA14280 01415000
R14280DK: ./ R 1465000 $ 1465000 200
R14280DK: * KEEP THE NEXT TWO IN ORDER... USED BY ECPS 01465000
R14280DK: MAXSIZE DC A(MAXSPSIZ) MAXIMUM SUBPOOL SIZE IN DWRDS @VA14280 01465200
R14280DK: DMKFREMX EQU MAXSIZE FOR EXTERNAL REF'S BY CP ASSIST @VA14280 01465400
R14280DK: SUBTABLE DC (MAXSPSIZ/3)A(0) TABLE OF SUBPOOL POINTERS @VA14280 01465600
R14280DK: ./ R 1512000 $ 1512100
R14280DK: SAMEFRET DS 1A CALLER OF BLOCK INVOKING DMKPTRFT@VA14280 01512000
BEGIN APPLY >>> ./ R 187000 $ 187000 500
END APPLY >>> ./ R 187000 $ 187000 500
BEGIN APPLY >>> ./ R 245000 $ 245000 500
END APPLY >>> ./ R 245000 $ 245000 500
BEGIN APPLY >>> ./ R 249000 $ 249100
END APPLY >>> ./ R 249000 $ 249100
BEGIN APPLY >>> ./ R 259000 $ 259100
END APPLY >>> ./ R 259000 $ 259100
BEGIN APPLY >>> ./ I 272000 $ 272090 90
END APPLY >>> ./ I 272000 $ 272090 90
BEGIN APPLY >>> ./ R 280000 281000 $ 280000 500
END APPLY >>> ./ R 280000 281000 $ 280000 500
BEGIN APPLY >>> ./ R 1053000 $ 1053000 500
END APPLY >>> ./ R 1053000 $ 1053000 500
BEGIN APPLY >>> ./ R 1057000 $ 1057100
END APPLY >>> ./ R 1057000 $ 1057100
BEGIN APPLY >>> ./ R 1068000 $ 1068100
END APPLY >>> ./ R 1068000 $ 1068100
BEGIN APPLY >>> ./ I 1081000 $ 1081090 90
END APPLY >>> ./ I 1081000 $ 1081090 90
BEGIN APPLY >>> ./ R 1098000 1099000 $ 1098000 500
END APPLY >>> ./ R 1098000 1099000 $ 1098000 500
BEGIN APPLY >>> ./ R 1352000 $ 1352100
END APPLY >>> ./ R 1352000 $ 1352100
BEGIN APPLY >>> ./ D 1405000 1406000 09/17/81 09:46:27
END APPLY >>> ./ D 1405000 1406000 09/17/81 09:46:27
BEGIN APPLY >>> ./ R 1415000 $ 1415100
END APPLY >>> ./ R 1415000 $ 1415100
BEGIN APPLY >>> ./ R 1465000 $ 1465000 200
END APPLY >>> ./ R 1465000 $ 1465000 200
BEGIN APPLY >>> ./ R 1512000 $ 1512100
END APPLY >>> ./ R 1512000 $ 1512100
Update Succeeded
Update Execution Time 47 milliseconds.
HRC035DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC035DK: ./ I 00293000 $ 293200 200 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR1 HRC035DK 00293200
HRC035DK: LA R2,1(,R2) ADD ONE MORE DOUBLE WORD HRC035DK 00293400
HRC035DK: .NOFTR1 ANOP , HRC035DK 00293600
HRC035DK: ./ R 00313000 $ 313090 90 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR2 HRC035DK 00313090
HRC035DK: L R15,SUBSIZES(R7) SET TO FULL SUBPOOL SIZE HRC035DK 00313180
HRC035DK: SLL R15,3 ... HRC035DK 00313270
HRC035DK: B FREE20CN ,,, HRC035DK 00313360
HRC035DK: .NOFTR2 ANOP , HRC035DK 00313450
HRC035DK: SPACE , HRC035DK 00313540
HRC035DK: ./ I 00314000 $ 314050 50 02/28/06 11:47:02
HRC035DK: L R15,FREEWORK GET THE FULL SUBPOOL/BLOCK SIZE HRC035DK 00314060
HRC035DK: AIF (NOT &FRETRAP).NOFTR3 HRC035DK 00314120
HRC035DK: SPACE , HRC035DK 00314180
HRC035DK: *** FILL BLOCK WITH X'EEEEEEEE'S HRC035DK
HRC035DK: *** MOVE TRAP DATA INTO FIRST WORD AFTER REQUESTED STORAGE HRC035DK
HRC035DK: *** AND CALLER'S R14 + LENGTH, FROM R0 INTO THE LAST WORD HRC035DK
HRC035DK: SPACE , HRC035DK 00314180
HRC035DK: FREE20CN DS 0H HRC035DK 00314240
HRC035DK: L R14,GPR1 POINT TO FREE STORAGE HRC035DK 00314300
HRC035DK: L R2,FREER0 GET ORIGINAL STORAGE REQUEST HRC035DK 00314360
HRC035DK: SLL R2,3 CONVERT TO BYTES FROM DWORDS HRC035DK 00314420
HRC035DK: AR R2,R14 POINT TO THE END OF THE BLOCK HRC035DK 00314480
HRC035DK: L R1,=X'EE000000' PAD BLOCK WITH EEEEEEEEEES HRC035DK 00314540
HRC035DK: MVCL R14,R0 DO IT NOW HRC035DK 00314600
HRC035DK: L R3,=X'9AC7E5D5' SETUP TRAP DATA HRC035DK 00314660
HRC035DK: L R4,FREER14 CALLERS RETURN REGISTER HRC035DK 00314720
HRC035DK: ICM R4,B'1000',FREER0+3 INCLUDE COUNT IN DWORDS HRC035DK 00314780
HRC035DK: STM R3,R4,0(R2) SAVE SPECIAL CONSTANT AND RETURN HRC035DK 00314840
HRC035DK: .NOFTR3 ANOP , HRC035DK 00314900
HRC035DK: ./ I 00515000 $ 515200 200 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR4 HRC035DK 00515200
HRC035DK: ST R2,FREEWORK SAVE BYTE COUNT OF STORAGE BLOCK HRC035DK 00515400
HRC035DK: .NOFTR4 ANOP , HRC035DK 00515600
HRC035DK: ./ I 00605000 $ 605200 200 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR5 HRC035DK 00605200
HRC035DK: ST R2,FREEWORK SAVE BYTE COUNT OF STORAGE BLOCK HRC035DK 00605400
HRC035DK: .NOFTR5 ANOP , HRC035DK 00605600
HRC035DK: ./ I 00810000 $ 810200 200 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR6 HRC035DK 00810200
HRC035DK: ST R2,FREEWORK SAVE BYTE COUNT OF STORAGE BLOCK HRC035DK 00810400
HRC035DK: .NOFTR6 ANOP , HRC035DK 00810600
HRC035DK: ./ I 01101000 $ 1101060 60 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR7 HRC035DK 01101060
HRC035DK: LTR R7,R0 INDEXABLE REG FOR TEST POSITIVE HRC035DK 01101120
HRC035DK: BNP ERROR1 ABEND 1 IF INVALID HRC035DK 01101180
HRC035DK: LA R0,1(,R7) BUMP RELEASE COUNT BY ONE HRC035DK 01101240
HRC035DK: SLL R7,3 MULTIPLY BY 8 HRC035DK 01101300
HRC035DK: L R8,=X'9AC7E5D5' GET SPECIAL CONSTANT HRC035DK 01101360
HRC035DK: C R8,0(R1,R7) CHECK IT HRC035DK 01101420
HRC035DK: BE SKIPBY BLOCK OK FOR NOW HRC035DK 01101480
HRC035DK: ABEND 13 FRE013 ABEND HRC035DK 01101540
HRC035DK: SPACE , HRC035DK 01101600
HRC035DK: SKIPBY DS 0H HRC035DK 01101660
HRC035DK: L R8,=X'C6D9C5C5' REPLACE CONSTANT WITH "FREE" HRC035DK 01101720
HRC035DK: ST R8,0(R1,R7) TO TRAP 2ND FRET OF SAME BLOCK HRC035DK 01101780
HRC035DK: .NOFTR7 ANOP , HRC035DK 01101840
HRC035DK: ./ I 01113000 $ 1113100 100 02/28/06 11:47:02
HRC035DK: AIF (NOT &FRETRAP).NOFTR8 HRC035DK 01113100
HRC035DK: L R2,FREER0 GET ORIGINAL FRET REQUEST HRC035DK 01113200
HRC035DK: ST R2,4(,R15) SAVE IT IN TRACE TABLE HRC035DK 01113300
HRC035DK: AGO .NOFTR8A HRC035DK 01113400
HRC035DK: .NOFTR8 ANOP , HRC035DK 01113500
HRC035DK: ./ I 01114000 $ 1114500 500 02/28/06 11:47:02
HRC035DK: .NOFTR8A ANOP , HRC035DK 01114500
BEGIN APPLY >>> ./ I 00293000 $ 293200 200 02/28/06 11:47:02
END APPLY >>> ./ I 00293000 $ 293200 200 02/28/06 11:47:02
BEGIN APPLY >>> ./ R 00313000 $ 313090 90 02/28/06 11:47:02
END APPLY >>> ./ R 00313000 $ 313090 90 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 00314000 $ 314050 50 02/28/06 11:47:02
END APPLY >>> ./ I 00314000 $ 314050 50 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 00515000 $ 515200 200 02/28/06 11:47:02
END APPLY >>> ./ I 00515000 $ 515200 200 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 00605000 $ 605200 200 02/28/06 11:47:02
END APPLY >>> ./ I 00605000 $ 605200 200 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 00810000 $ 810200 200 02/28/06 11:47:02
END APPLY >>> ./ I 00810000 $ 810200 200 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 01101000 $ 1101060 60 02/28/06 11:47:02
END APPLY >>> ./ I 01101000 $ 1101060 60 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 01113000 $ 1113100 100 02/28/06 11:47:02
END APPLY >>> ./ I 01113000 $ 1113100 100 02/28/06 11:47:02
BEGIN APPLY >>> ./ I 01114000 $ 1114500 500 02/28/06 11:47:02
END APPLY >>> ./ I 01114000 $ 1114500 500 02/28/06 11:47:02
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cp/dmkfre.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator