ibm:vm370-lib:cp:dmkvmc.assemble_hst
Table of Contents
DMKVMC History
References
- Fixes Applied : 6
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [R12989DK]
Update History
CMS File Input : DMKVMC ASSEMBLE
Date : 12/7/1978 5:19:00 PM
VM Context : MAINT(394)
File Name : DMKVMC.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R08834DK 602 PREVENT UNLOCK OF DMKVMC WHEN IT HAS BEEN MADE RESIDENT
- R10373DK 609 CP ENABLED EXTERNAL INTERRUPTS NOT REFLECTED TO SINK MACHINE
- R09656DK 609 CORRECT POSSIBLE ERROR WHEN FRETTING VMCPARM. CO-REQ V09994
- R11145DK 614 UV01268 FAILURE TO FRET SMSG BUFFER
- R11766DK 616 UV01008 VMCF EXTERNAL INTERUPTS ON AP CAUSE ABENDLOK001
- R12989DK 628 UV05068 ABENDPRG006 AFTER RETURN FROM DMKPTR
R08834DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R08834DK: ./ I 1615000 $ 1615100 100 00001000
R08834DK: LR R2,R12 COMPUTE THE DISP INTO @VA08834 00002000
R08834DK: SRL R2,12 THE SYSTEM CORE TABLE @VA08834 00003000
R08834DK: SLL R2,4 FOR THIS PAGE FRAME @VA08834 00004000
R08834DK: AL R2,ACORETBL ADD ADDRESS OF CORE TABLE @VA08834 00005000
R08834DK: TM CORFLAG-CORTABLE(R2),CORCP IS PAGE RESIDENT ? @VA08834 00006000
R08834DK: BO VMCXGONE YES, THEN LEAVE @VA08834 00007000
R08834DK: ./ I 1617000 $ 1617500 00008000
R08834DK: VMCXGONE DS 0H @VA08834 00009000
R08834DK: ./ I 1705000 $ 1705500 00010000
R08834DK: COPY CORE @VA08834 00011000
BEGIN APPLY >>> ./ I 1615000 $ 1615100 100 00001000
END APPLY >>> ./ I 1615000 $ 1615100 100 00001000
BEGIN APPLY >>> ./ I 1617000 $ 1617500 00008000
END APPLY >>> ./ I 1617000 $ 1617500 00008000
BEGIN APPLY >>> ./ I 1705000 $ 1705500 00010000
END APPLY >>> ./ I 1705000 $ 1705500 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
R10373DK
Date Wednesday Jan 23, 1980 11:30:00 AM
Loaded from MAINT(294)
R10373DK: ./ I 571000 $ 571100 00001000
R10373DK: EXTRN DMKPTRPW @VA10373 00002000
R10373DK: ./ I 1176000 $ 1176100 100 00003000
R10373DK: TM VMRSTAT-VMBLOK(R3),VMPGWAIT IS TARGET IN PAGE @VA10373 00004000
R10373DK: * WAIT? 00005000
R10373DK: BZ VMCCPE NO - GO BUILD CPEXBOLK @VA10373 00006000
R10373DK: LR R0,R11 REMEMBER SUBMITTORS VMBLOK @VA10373 00007000
R10373DK: LR R11,R3 POINT TO TARGET VMB @VA10373 00008000
R10373DK: CALL DMKPTRPW @VA10373 00009000
R10373DK: LR R11,R0 RESTORE SUBMITTORS VMB @VA10373 00010000
R10373DK: VMCCPE EQU * @VA10373 00011000
BEGIN APPLY >>> ./ I 571000 $ 571100 00001000
END APPLY >>> ./ I 571000 $ 571100 00001000
BEGIN APPLY >>> ./ I 1176000 $ 1176100 100 00003000
END APPLY >>> ./ I 1176000 $ 1176100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09656DK
Date Friday Apr 11, 1980 03:07:00 PM
Loaded from MAINT(294)
R09656DK: ./ R 1560060 $ 00001000
R09656DK: L R2,VMCPLENA-VMCPARM(R1) SENDX DATA LENGTH @VA09656 00002000
BEGIN APPLY >>> ./ R 1560060 $ 00001000
END APPLY >>> ./ R 1560060 $ 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11145DK
Date Tuesday Jul 08, 1980 05:20:00 AM
Loaded from MAINT(294)
R11145DK: ./ I 702000 $ 702050 50 00001000
R11145DK: CLC VMCUSER(8),SYSTEMID IS SOURCE CP? @VA11145 00004000
R11145DK: BNE VMCUFIND NO-FIND SOURCE @VA11145 00005000
R11145DK: CLC VMCFUNC,=AL2(VMCPSENX) IS IT SENDX? @VA11145 00006000
R11145DK: BNE VMCUFIND NO-CONTINUE NORMALLY @VA11145 00007000
R11145DK: TM VMCCSTAT,VMCCXINT WAITNIG FOR EXT INTERRUPT? @VA11145 00008000
R11145DK: BNO VMCUFIND NO-CONTINUE NORNALLY @VA11145 00009000
R11145DK: L R1,VMCVADA GET SOURCE SENDX DATA AREA @VA11145 00010000
R11145DK: LA R2,VMCPLEN GET LENGTH OF VMCPARM @VA11145 00011000
R11145DK: SR R1,R2 POINT TO THE START OF THE BOLCK @VA11145 00012000
R11145DK: L R2,VMCLENA-VMCBLOK(R1) GET THE DATA LENGTH @VA11145 00013000
R11145DK: LA R2,VMCPLEN+7(R2) GET BUFFER LENGTH FOR FRET @VA11145 00014000
R11145DK: LR R0,R2 MOVE LENGHT FOR FRET @VA11145 00015000
R11145DK: SRL R0,3 CONVERT TO DOUBLE WORDS @VA11145 00016000
R11145DK: CALL DMKFRET FRET THE MESSAGE BLOCK @VA11145 00017000
R11145DK: B VMCUFRET FRET THE VMCBLOCK @VA11145 00018000
R11145DK: VMCUFIND EQU * @VA11145 00019000
BEGIN APPLY >>> ./ I 702000 $ 702050 50 00001000
END APPLY >>> ./ I 702000 $ 702050 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11766DK
Date Monday Sep 15, 1980 08:29:00 AM
Loaded from MAINT(294)
R11766DK: ./ D 1176100 1176800 $ 00001000
R11766DK: ./ R 1181000 $ 00002000
R11766DK: LA R0,VMCDSP ADDRESS OF GOTO DISPATCH @VA11766 00003000
R11766DK: ./ R 1183000 $ 00004000
R11766DK: ST R12,CPEXR12 SET UP BASE REG FOR DISPATCH @VA11766 00005000
R11766DK: ./ I 1186000 $ 1186100 100 00006000
R11766DK: VMCDSP DS 0H COME HERE ON STACKED CPEXBLOK @VA11766 00007000
R11766DK: CALL DMKPTRPW MAKE SURE HE'S NOT IN PAGEWAIT @VA11766 00008000
R11766DK: GOTO DMKDSPCH DISPATCH @VA11766 00009000
BEGIN APPLY >>> ./ D 1176100 1176800 $ 00001000
END APPLY >>> ./ D 1176100 1176800 $ 00001000
BEGIN APPLY >>> ./ R 1181000 $ 00002000
END APPLY >>> ./ R 1181000 $ 00002000
BEGIN APPLY >>> ./ R 1183000 $ 00004000
END APPLY >>> ./ R 1183000 $ 00004000
BEGIN APPLY >>> ./ I 1186000 $ 1186100 100 00006000
END APPLY >>> ./ I 1186000 $ 1186100 100 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R12989DK
Date Monday Feb 15, 1982 09:29:00 AM
Loaded from MAINT(294)
R12989DK: ./ R 1181100 1183100 $ 1181200 50 00000100
R12989DK: LA R2,VMCDSP RETURN AND LOCK @VA12989 00000200
R12989DK: ST R2,CPEXADD ADDRESS IN R2 @VA12989 00000300
R12989DK: STM R0,R15,CPEXREGS SAVE REGS @VA12989 00000400
R12989DK: CALL DMKPTRLK LOCK IN VMC @VA12989 00000500
R12989DK: ./ R 1186300 $ 1186310 00000600
R12989DK: B VMCXGOTO GOTO DISPATCHER @VA12989 00000700
BEGIN APPLY >>> ./ R 1181100 1183100 $ 1181200 50 00000100
END APPLY >>> ./ R 1181100 1183100 $ 1181200 50 00000100
BEGIN APPLY >>> ./ R 1186300 $ 1186310 00000600
END APPLY >>> ./ R 1186300 $ 1186310 00000600
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkvmc.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator