ibm:vm370-lib:cp:dmkprv.assemble_hst
Table of Contents
DMKPRV History
References
- Fixes Applied : 9
- Latest Source Date : Thursday, December 14, 1978
- Last Fix ID : [HRC013DK]
Update History
CMS File Input : DMKPRV ASSEMBLE
Date : 12/14/1978 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKPRV.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R08195DK 602 CORRECT SIMULATION OF STIDP INSTRUCTION IN AP
- R09802DK 606 CPUSER AND CPUMODEL LENGTH ATTRIBUTES ARE INCORRECT
- R09805DK 607 ERRONEOUS ZEROING OF COUNTER DMKPRVEX
- R08990DK 609 ADDRESSING EXECEPTION INSTEAD OF OPERATION EXCEPTION
- R09498DK 609 DMKDSP CALLS DMKVMC TWICE CPEXBLOK DOUBLE RETURN DOUBLE FRET
- R08621DK 609 PAGE AND SEG TABLE OVERLAID SSK INSTRUCTION
- R12971DK 621 UV04386 RESET BITS 13-15 IN VIRTUAL CR0
- R13186DK 621 UV04509 EXECUTE INSTRUCTION IS SIMULATED INCORRECTLY
- HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
R08195DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R08195DK: ./ D 1315000 $ 00001000
R08195DK: ./ I 1325000 $ 1325100 100 00002000
R08195DK: DROP R2 @VA08195 00003000
R08195DK: TM APSTAT1,PROCIO IS THIS THE MAIN PROCESSOR @VA08195 00004000
R08195DK: BO MAINMODL YES-WE ARE ON THE MAIN PROCESSOR @VA08195 00005000
R08195DK: L R6,PREFIXB OTHER PROCESSOR ADDRESS @VA08195 00006000
R08195DK: MAINMODL EQU * @VA08195 00007000
R08195DK: USING CPUID,R2 @VA08195 00008000
R08195DK: MVC CPUMODEL,CPUMODEL-PSA(R6) MOVE IN CPU MODEL NUM.@VA08195 00009000
BEGIN APPLY >>> ./ D 1315000 $ 00001000
END APPLY >>> ./ D 1315000 $ 00001000
BEGIN APPLY >>> ./ I 1325000 $ 1325100 100 00002000
END APPLY >>> ./ I 1325000 $ 1325100 100 00002000
Update Succeeded
Update Execution Time 23 milliseconds.
R09802DK
Date Monday Nov 12, 1979 11:12:00 AM
Loaded from MAINT(294)
R09802DK: ./ * FORCE RE-ASSEMBLY FOR PTF V09802
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
Comment >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
Update Succeeded
Update Execution Time 8 milliseconds.
R09805DK
Date Monday Dec 03, 1979 05:04:00 AM
Loaded from MAINT(294)
R09805DK: ./ D 517000 $ 00001000 BEGIN APPLY >>> ./ D 517000 $ 00001000 END APPLY >>> ./ D 517000 $ 00001000 Update Succeeded Update Execution Time 16 milliseconds.
R08990DK
Date Saturday Feb 09, 1980 04:18:00 AM
Loaded from MAINT(294)
R08990DK: ./ I 528000 $ 528100 100 00001000
R08990DK: CLI VMINST,X'BA' IS IT COMPARE AND SWAP? @VA08990 00002000
R08990DK: BE CONTOPCK YES, CONTINUE WITH CHECK @VA08990 00003000
R08990DK: CLI VMINST,X'BB' IS IT COMPARE DOUBLE AND SWAP? @VA08990 00004000
R08990DK: BE CONTOPCK YES, CONTINUE WITH CHECK @VA08990 00005000
R08990DK: CLI VMINST,X'B2' IS IT SPKA OR IPK? @VA08990 00006000
R08990DK: BNE OPEREXCP NONE OF THE ABOVE---OP CHECK @VA08990 00007000
R08990DK: CONTOPCK EQU * @VA08990 00008000
BEGIN APPLY >>> ./ I 528000 $ 528100 100 00001000
END APPLY >>> ./ I 528000 $ 528100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09498DK
Date Saturday Feb 09, 1980 09:19:00 AM
Loaded from MAINT(294)
R09498DK: ./ D 784000 $ 00001000
R09498DK: ./ I 789000 $ 789500 00005000
R09498DK: NI VMRSTAT,X'FF'-VMEXWAIT OUT OF INSTRUCTION WAIT @VA09498 00007000
BEGIN APPLY >>> ./ D 784000 $ 00001000
END APPLY >>> ./ D 784000 $ 00001000
BEGIN APPLY >>> ./ I 789000 $ 789500 00005000
END APPLY >>> ./ I 789000 $ 789500 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R08621DK
Date Saturday Feb 09, 1980 01:21:00 AM
Loaded from MAINT(294)
R08621DK: ./ R 395000 409000 $ 395100 100 00001000
R08621DK: LA R1,0(R1) CLEAR HIGH ORDER BYTE %VA08621 00002000
R08621DK: LH R3,INTPR INTUPT CODE %VA08621 00003000
R08621DK: LH R4,INTPRL INSTRUCTIO LENGTH %VA08621 00004000
R08621DK: SR R1,R4 GET START OF INST %VA08621 00005000
R08621DK: LRA R2,0(0,R1) GET REAL ADDR OF INST %VA08621 00006000
R08621DK: LA R7,VMINST ADDR OF VMBLOK %VA08621 00007000
R08621DK: LR R5,R1 COPY ADDR %VA08621 00008000
R08621DK: N R5,F4095 GET PAGE DISPLACEMENT %VA08621 00009000
R08621DK: AR R5,R4 ADD INST LENGTH %VA08621 00010000
R08621DK: S R5,F4096 LESS ONE PAGE %VA08621 00011000
R08621DK: BP PRVSLO WHOOPS CROSSED A PAGE %VA08621 00012000
R08621DK: SR R4,R6 DECREMENT FOR EXEC %VA08621 00013000
R08621DK: EX R4,PRVMOV MOVE IN DATA %VA08621 00014000
R08621DK: B LOADCNTL DONE %VA08621 00015000
R08621DK: PRVMOV MVC 0(*-*,R7),0(R2) *EXECUTED* %VA08621 00016000
R08621DK: SPACE 1 00017000
R08621DK: PRVSLO EQU * %VA08621 00018000
R08621DK: SR R5,R4 FIND OUT HOW MUCH OF THIS %VA08621 00019000
R08621DK: LCR R5,R5 PAGE TO MOVE IN %VA08621 00020000
R08621DK: SR R5,R6 DECREMENTFOR MOVE %VA08621 00021000
R08621DK: EX R5,PRVMOV MOVE IN PART WAY %VA08621 00022000
R08621DK: AR R5,R6 BUMP LENGTH %VA08621 00023000
R08621DK: LR R8,R1 R1 TO R8 %VA08621 00024000
R08621DK: AR R1,R5 BUMP SOURCE POINTER %VA08621 00025000
R08621DK: AR R7,R5 BUMP SINK POINTER %VA08621 00026000
R08621DK: SR R5,R4 FIND OUT HOW MUCH %VA08621 00027000
R08621DK: LCR R5,R5 IS LEFT TO MOVE %VA08621 00028000
R08621DK: LRA R2,0(0,R1) IS 2ND PART IN STORAGE %VA08621 00029000
R08621DK: BZ PRVRCHK NO NEED FOR PTRAN %VA08621 00030000
R08621DK: LA R2,BRING+DEFER SET PARMS FOR PTR %VA08621 00031000
R08621DK: LCTL C0,C0,CPCREG0 GET CP CR0 %VA08621 00032000
R08621DK: BAL R14,LOCKET GET SYSTEM LOCK %VA08621 00033000
R08621DK: CALL DMKPTRAN %VA08621 00034000
R08621DK: BC 2,ADDREXCP NOT IN OUR BOX %VA08621 00035000
R08621DK: PRVRCHK SR R5,R6 DECR FOR EXEC %VA08621 00036000
R08621DK: LR R1,R8 R8 BACK TO R1 %VA08621 00037000
R08621DK: EX R5,PRVMOV MOVE IN DATA %VA08621 00038000
R08621DK: LOADCNTL EQU * %VA08621 00039000
R08621DK: LH R2,VMPRGIL GET FOR LATER TEST OF INST SIZE %VA08621 00040000
R08621DK: ./ D 412000 $ 00041000
BEGIN APPLY >>> ./ R 395000 409000 $ 395100 100 00001000
END APPLY >>> ./ R 395000 409000 $ 395100 100 00001000
BEGIN APPLY >>> ./ D 412000 $ 00041000
END APPLY >>> ./ D 412000 $ 00041000
Update Succeeded
Update Execution Time 23 milliseconds.
R12971DK
Date Wednesday Jun 03, 1981 05:07:00 AM
Loaded from MAINT(294)
R12971DK: ./ I 1086000 $ 1086100 100 DMK00010
R12971DK: LTR R5,R5 CREG0 ?? @VA12971 DMK00020
R12971DK: BNZ *+8 NO, BYPASS CREG0 RESET @VA12971 DMK00030
R12971DK: N R1,=XL4'FFF8FFFF' RESET BITS 13-15 IN BYTE 1 @VA12971 DMK00040
BEGIN APPLY >>> ./ I 1086000 $ 1086100 100 DMK00010
END APPLY >>> ./ I 1086000 $ 1086100 100 DMK00010
Update Succeeded
Update Execution Time 16 milliseconds.
R13186DK
Date Wednesday Jun 03, 1981 05:26:00 AM
Loaded from MAINT(294)
R13186DK: ./ R 702000 709000 $ 702100 100 00001000
R13186DK: NOMODIF EQU * @VA13186 00002000
R13186DK: STH R4,VMINST SET IN VMBLOK @VA13186 00003000
R13186DK: LA R3,2(0,R3) INDEX TO 2ND HALF OF VIRT INST @VA13186 00004000
R13186DK: BAL R8,ADTRANS NOW GET ITS REAL ADDRESS @VA13186 00005000
R13186DK: LH R4,0(,R2) GET THE REAL STUFF.... @VA13186 00006000
R13186DK: STH R4,VMINST+2 AND STUFF IT AWAY @VA13186 00007000
R13186DK: * BEGINNING OF LOGIC TO SUPPORT 6 BYTE 'EXECUTED' INSTRUCTIONS 00008000
R13186DK: * THAT ARE PRIV OPS 00009000
R13186DK: TM VMINST,X'C0' * IS THIS A SIX BYTE INST? @VA13186 00010000
R13186DK: BNO SKIP3RD * NO...BRANCH @VA13186 00011000
R13186DK: LA R3,2(0,R3) INDEX TO 3'RD HALFWORD OF INST. @VA13186 00012000
R13186DK: BAL R8,ADTRANS GET ITS REAL ADDRESS @VA13186 00013000
R13186DK: LH R4,0(,R2) PICK UP 3RD HALFWORD OF INST. @VA13186 00014000
R13186DK: STH R4,VMINST+4 SAVE IN VMBLOK @VA13186 00015000
R13186DK: SKIP3RD DS 0H @VA13186 00016000
R13186DK: * END OF 6 BYTE INSTRUCTION SUPPORT 00017000
R13186DK: SLR R2,R2 TELL TRACE TO FORGET IT @VA13186 00018000
R13186DK: B GETINST NOW PROCESS THE STUFF @VA13186 00019000
BEGIN APPLY >>> ./ R 702000 709000 $ 702100 100 00001000
END APPLY >>> ./ R 702000 709000 $ 702100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ * PER001 00006000
HRC013DK: ./ I 462000 $ 462500 500 PER001 00007000
HRC013DK: NI VMRSTAT,255-VMEXWAIT OUT OF INSTR WAIT. PER001 00008000
HRC013DK: ./ R 464000 471000 $ 464000 PER001 00009000
HRC013DK: BNZ PRIVRET DMKDSP WILL CHECK FOR PER PENDING. PER001 00010000
HRC013DK: ./ D 494000 503000 PER001 00011000
HRC013DK: ./ R 1529000 1539000 $ 1529000 1000 PER001 00012000
HRC013DK: TM VMESTAT,VMPERCM DOES ANYONE WANT THIS? PER001 00013000
HRC013DK: BZR R9 NO PER, RETURN PER001 00014000
HRC013DK: TM VMTRCTL,VMTRPER CP PER? PER001 00015000
HRC013DK: BZ OWNPER USER PER, GO HANDLE PER001 00016000
HRC013DK: L R10,VMPERCTL OTHERWISE IT'S OURS. PER001 00017000
HRC013DK: LA R15,PERCR9-PERBLOK(,R10) LOAD START OF CR'S. PER001 00018000
HRC013DK: LA R14,PERADDR-PERBLOK(,R10) LOAD EVENT ADDR LOC. PER001 00019000
HRC013DK: B TRAPPER AND LOOK AT THE INTERRUPT. PER001 00020000
HRC013DK: OWNPER L R10,VMECEXT EXTENTION BLOCK ADDRESS. PER001 00021000
HRC013DK: LA R15,EXTCR9-ECBLOK(,R10) START OF CR'S. PER001 00022000
HRC013DK: LA R14,EXTPERAD-ECBLOK(,R10) START OF PERADDR, PEPER001 00023000
HRC013DK: ./ I 1758000 $ 1758100 100 PER001 00024000
HRC013DK: COPY PERBLOKS PER001 00025000
BEGIN APPLY >>> ./ * ************* PER001 00001000
Comment >>> ./ * ************* PER001 00001000
END APPLY >>> ./ * ************* PER001 00001000
BEGIN APPLY >>> ./ * * PER001 00002000
Comment >>> ./ * * PER001 00002000
END APPLY >>> ./ * * PER001 00002000
BEGIN APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
BEGIN APPLY >>> ./ * * PER001 00004000
Comment >>> ./ * * PER001 00004000
END APPLY >>> ./ * * PER001 00004000
BEGIN APPLY >>> ./ * ************* PER001 00005000
Comment >>> ./ * ************* PER001 00005000
END APPLY >>> ./ * ************* PER001 00005000
BEGIN APPLY >>> ./ * PER001 00006000
Comment >>> ./ * PER001 00006000
END APPLY >>> ./ * PER001 00006000
BEGIN APPLY >>> ./ I 462000 $ 462500 500 PER001 00007000
END APPLY >>> ./ I 462000 $ 462500 500 PER001 00007000
BEGIN APPLY >>> ./ R 464000 471000 $ 464000 PER001 00009000
END APPLY >>> ./ R 464000 471000 $ 464000 PER001 00009000
BEGIN APPLY >>> ./ D 494000 503000 PER001 00011000
END APPLY >>> ./ D 494000 503000 PER001 00011000
BEGIN APPLY >>> ./ R 1529000 1539000 $ 1529000 1000 PER001 00012000
END APPLY >>> ./ R 1529000 1539000 $ 1529000 1000 PER001 00012000
BEGIN APPLY >>> ./ I 1758000 $ 1758100 100 PER001 00024000
END APPLY >>> ./ I 1758000 $ 1758100 100 PER001 00024000
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cp/dmkprv.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator