ibm:vm370-lib:cp:dmkdsp.assemble_hst
Table of Contents
DMKDSP History
References
- Fixes Applied : 18
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKDSP ASSEMBLE
Date : 12/7/1978 5:03:00 PM
VM Context : MAINT(394)
File Name : DMKDSP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
- R09069DK 601 MORE THAN ONE CHANNEL ERROR PASSED TO VIRTUAL MACHINE
- R08873DK 601 FIX V08311 AND THE PERFORMANCE PROBLEM FOR AP USERS
- R08989DK 601 VIRTUAL MACHINE MISSING INTERRUPTS
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
- R09137DK 606 MISSING LINE ON 3203 MOD 4
- R09151DK 606 DMKVAT SECURITY EXPOSURE IN ATTEMPTING TO PREVENT EC MODE USER
- R09257DK 606 POOR RESPONSE TIME WITH AP SYSTEM
- R10061DK 611 REPLY TO FORCE COMMAND WORD FORCED LEFT OFF DMKUSO DMKDSP
- R10245DK 611 UV00535 ABENDPRG009 DUE TO ALLOWING USER TO LOGOFF
- R12055DK 618 UV02851 CORRECT VMTTIME FOR END OF TIMESLICE CHECK
- R12460DK 621 UV04420 INTERVAL TIMER INTERRUPT LOST WHEN USING VMCF
- R12932DK 621 UV04500 DISABLED LOOP IN DMKDSP BECAUSE R2 INVALID
- R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
- R13025DK 627 UV05467 VMEXWAIT BIT BEING ON AT LOGOFF NOT COMPLETELY FIX
- HRC006DK V01 FIX TO TRAP AND HIDE DSP003 ABENDS
- HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
- HRC065DK V01 Logical Device Support Facility
R09069DK
Date Monday Dec 18, 1978 12:18:00 PM
Loaded from MAINT(294)
R09069DK: ./ R 1190000 $ 1190100 00001000
R09069DK: STH R4,VDEVINTS CLEAR PENDING INTERRUPTS @VA09069 00002000
BEGIN APPLY >>> ./ R 1190000 $ 1190100 00001000
END APPLY >>> ./ R 1190000 $ 1190100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R08873DK
Date Friday Feb 16, 1979 10:39:00 AM
Loaded from MAINT(294)
R08873DK: ./ I 00555000 $ 00555050 50
R08873DK: *
R08873DK: * IF A DISPATCH SIGNAL HAS BEEN RECEIVED, IT MUST BE
R08873DK: * PROCESSED UNLESS ONE OF THE SPECIAL CONDITIONS IS PRESENT
R08873DK: *
R08873DK: LA R5,CKUSERS SET EXIT ADDRESS @VA08873
R08873DK: TM XCPEND,XCDISP DISPATCH SIGNAL PENDING? @VA08873
R08873DK: BZ TSTXTND2 NO, GO TEST FOR EXTEND @VA08873
R08873DK: LA R5,SPIN YES, SET UP TO SPIN FOR LOCK @VA08873
R08873DK: L R3,XCPEND PICK UP WORD OF FLAGS @VA08873 00009000
R08873DK: DSPXC DS 0H ACKNOWLEDGE DISPATCH SIGNAL @VA08873 00010000
R08873DK: LR R4,R3 MOVE FLAGS TO WORK REG @VA08873 00011000
R08873DK: N R4,DISPWKUP TURN OFF DISPATCH & WAKEUP @VA08873 00012000
R08873DK: CS R3,R4,XCPEND STORE ALTERED WORD OF FLAGS @VA08873 00013000
R08873DK: BNE DSPXC KEEP TRYING @VA08873
R08873DK: TSTXTND2 DS 0H TEST FOR EXTEND @VA08873
R08873DK: ./ R 00591100 $ 00591200 100
R08873DK: *
R08873DK: * AT THIS POINT, NONE OF THE SPECIAL CONDITIONS IS PRESENT
R08873DK: * IF DISPATCH SIGNAL HAS BEEN RECEIVED, MUST SPIN FOR LOCK
R08873DK: *
R08873DK: BNOR R5 EITHER CKUSERS OR SPIN @VA08873
R08873DK: ./ D 00593300 00593800
R08873DK: ./ D 00606040 00606070
R08873DK: ./ R 02742050 $ 02742060 00016000
R08873DK: DISPWKUP DC X'CFFFFFFF' TURN OFF WAKEUP & DISPATCH @VA08873 00017000
BEGIN APPLY >>> ./ I 00555000 $ 00555050 50
END APPLY >>> ./ I 00555000 $ 00555050 50
BEGIN APPLY >>> ./ R 00591100 $ 00591200 100
END APPLY >>> ./ R 00591100 $ 00591200 100
BEGIN APPLY >>> ./ D 00593300 00593800
END APPLY >>> ./ D 00593300 00593800
BEGIN APPLY >>> ./ D 00606040 00606070
END APPLY >>> ./ D 00606040 00606070
BEGIN APPLY >>> ./ R 02742050 $ 02742060 00016000
END APPLY >>> ./ R 02742050 $ 02742060 00016000
Update Succeeded
Update Execution Time 39 milliseconds.
R08989DK
Date Wednesday Jan 24, 1979 12:20:00 PM
Loaded from MAINT(294)
R08989DK: ./ R 1314000 $ 1314100 00001000
R08989DK: NI VMDSTAT,255-VMDSP NOT RUN USER @VA08989 00002000
BEGIN APPLY >>> ./ R 1314000 $ 1314100 00001000
END APPLY >>> ./ R 1314000 $ 1314100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:52:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R10073DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10073DK: ./ R 505000 506000 $ 505010 10
R10073DK: AIF (&AP).APBR4 @V5DAACD
R10073DK: LA R9,UNSTACK @V5DAACD
R10073DK: B RUNTIME @V5DAACD
R10073DK: AGO .UPBT4
R10073DK: .APBR4 ANOP @V5DAACD
R10073DK: * IN UP-MODE, SUBROUTINE TSTSYS IS A NO-OP @V5DAACD
R10073DK: BAL R9,RUNTIME @V5DAACD
R10073DK: BAL R9,TSTSYS TEST FOR AND OBTAIN SYSTEM LOCK @V5DAACD
R10073DK: BZ UNSTACK UNSTACK IF LOCK OBTAINED. @V5DAACD
R10073DK: BAL R9,STKDEF ELSE, GO DEFER IT. @V5DAACD
R10073DK: B SWITCH AND SWITCH TO ASYSVM @V5DAACD
R10073DK: .UPBT4 ANOP @V5DAACD
R10073DK: SPACE
BEGIN APPLY >>> ./ R 505000 506000 $ 505010 10
END APPLY >>> ./ R 505000 506000 $ 505010 10
Update Succeeded
Update Execution Time 23 milliseconds.
R09137DK
Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
R09137DK: ./ I 1146000 $ 1146200 300 00001000
R09137DK: LR R2,R9 ADDRESS PAGE 0 IN R2 @VA09137 00002000
R09137DK: TM VDEVFLG2,VDEVPST THIS INTERRUPT TO BE POSTED? @VA09137 00003000
R09137DK: BO POST YES @VA09137 00004000
R09137DK: ./ D 1153000 $ 00005000
R09137DK: ./ R 1159000 $ 1159100 00006000
R09137DK: POST EQU * @VA09137 00007000
R09137DK: NI VDEVFLG2,255-VDEVPST TURN OFF POST @VA09137 00008000
BEGIN APPLY >>> ./ I 1146000 $ 1146200 300 00001000
END APPLY >>> ./ I 1146000 $ 1146200 300 00001000
BEGIN APPLY >>> ./ D 1153000 $ 00005000
END APPLY >>> ./ D 1153000 $ 00005000
BEGIN APPLY >>> ./ R 1159000 $ 1159100 00006000
END APPLY >>> ./ R 1159000 $ 1159100 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R09151DK
Date Wednesday Oct 31, 1979 09:18:00 AM
Loaded from MAINT(294)
R09151DK: ./ I 1329000 $ 1329100 200 00002000
R09151DK: TM VMOSTAT,VMSHR IS USER EC,TRANSLATE AND SHARED? @VA09151 00003000
R09151DK: BNO NOTSHR NO NOT SHARED....... @VA09151 00004000
R09151DK: CALL DMKVATBC YES MUST THROW AWAY SHADOW TABLES@VA09151 00005000
R09151DK: NOTSHR DS 0H @VA09151 00006000
BEGIN APPLY >>> ./ I 1329000 $ 1329100 200 00002000
END APPLY >>> ./ I 1329000 $ 1329100 200 00002000
Update Succeeded
Update Execution Time 23 milliseconds.
R09257DK
Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
R09257DK: ./ R 01648000 $ 01648000 00003000
R09257DK: BAL R9,WAKSIG ALERT OTH PROC @VA09257 00004000
R09257DK: ./ R 01736000 $ 01736000 00005000
R09257DK: BAL R9,LOCKOBDS GET LOCK FOR DSP STACKS @VA09257 00006000
R09257DK: ./ R 1767000 $ 1767100 20 00008000
R09257DK: BZ TESTDEF LOCK OBTAINED @VA09257 00009000
R09257DK: L R2,PREFIXB ACCESS OTHER PSA @VA09257 00010000
R09257DK: CLI CPSTATUS-PSA(R2),CPRUN IS OTHER PROCR ENABLED @VA09257 00011000
R09257DK: BNE NOEXTND NO, BYPASS IOB @VA09257 00012000
R09257DK: B SIGPDSP YES, SIGNAL DISPATCH @VA09257 00013000
R09257DK: DSPSIG SIGNAL DISPATCH @VA09257 00019000
R09257DK: BR R9 @VA09257 00020000
R09257DK: WAKSIG SIGNAL WAKEUP @VA09257 00021000
R09257DK: BR R9 @VA09257 00022000
R09257DK: TESTDEF DS 0H @VA09257 00014000
R09257DK: ./ R 01800000 $ 00024000
R09257DK: BAL R9,LOCKRLDS RELEASE LOCK ON DSP STACKS @VA09257 00025000
R09257DK: ./ R 01829000 $ 00026000
R09257DK: BAL R9,LOCKRLDS RELEASE LOCK ON DSP STACKS @VA09257 00027000
R09257DK: ./ R 01849000 $ 01849000 00028000
R09257DK: BAL R9,LOCKOBDS GET LOCK ON DSP STACKS @VA09257 00029000
R09257DK: ./ R 01861000 $ 01861100 10 DMK00010
R09257DK: * UNSTK CPEXBLOK HAS PRIORITY OVER RUNNING USER DMK00020
R09257DK: BZ UNSTK GOT THE LOCK-GO UNSTK CPEXBLOK @VA09257 DMK00030
R09257DK: L R15,PREFIXB ACCESS OTH PROC PSA @VA09257 DMK00040
R09257DK: TM XCPEND-PSA(R15),XCDISP EXTINT PEND? @VA09257 DMK00050
R09257DK: BO NOSIGNAL YES-SIGP REDUNDANT @VA09257 DMK00060
R09257DK: CLI CPSTATUS-PSA(R15),CPRUN RUNNING USER? @VA09257 DMK00070
R09257DK: BZ NOSIGNAL NO - DON'T BOTHER @VA09257 DMK00080
R09257DK: B SIGPDSP @VA09257 DMK00090
R09257DK: NOSIGNAL LA R15,DMKDSPRQ RESTORE R15 @VA09257 DMK00100
R09257DK: B NXTCP SEE IF MORE ON Q @VA09257 DMK00110
R09257DK: UNSTK DS 0H @VA09257 DMK00120
R09257DK: ./ I 1886000 $ 1886500 00033000
R09257DK: SIGPDSP DS 0H @VA09257 00034000
R09257DK: ./ R 01887000 $ 00035000
R09257DK: BAL R9,LOCKRLDS RELEASE LOCK ON DSP STACKS @VA09257 00036000
R09257DK: ./ R 01889000 $ 01889000 00037000
R09257DK: BAL R9,DSPSIG TELL OTH PROC ABOUT CPEXBLOK @VA09257 00038000
R09257DK: ./ R 01922000 $ 00039000
R09257DK: BAL R9,LOCKRLDS RELEASE LOCK ON DSP STACKS @VA09257 00040000
R09257DK: ./ R 02160000 $ 02160000 00041000
R09257DK: BAL R9,LOCKOBDS GET LOCK ON DISPATCH STACKS @VA09257 00042000
R09257DK: ./ R 02212000 $ 00043000
R09257DK: BAL R9,LOCKRLDS RELEASE LOCK ON DSP STACKS @VA09257 00044000
R09257DK: ./ R 02527000 $ 02527000 00045000
R09257DK: BAL R9,WAKSIG WAKE UP IDLE PROC @VA09257 00046000
R09257DK: ./ R 02596000 $ 02596000 00047000
R09257DK: BAL R9,WAKSIG SIGNAL THE OTH PROC @VA09257 00048000
R09257DK: ./ I 02715000 $ 02715010 5 00049000
R09257DK: SPACE 2 00050000
R09257DK: LOCKRLDS DS 0H @VA09257 00051000
R09257DK: LOCK RELEASE,TYPE=DS RELEASE LOCK ON DSP STKS @VA09257 00052000
R09257DK: BR R9 @VA09257 00053000
R09257DK: SPACE 2 00054000
R09257DK: LOCKOBDS DS 0H SPACE SAVER CODE @VA09257 00055000
R09257DK: LOCK OBTAIN,TYPE=DS OBTAIN LOCK ON DSP STKS @VA09257 00056000
R09257DK: BR R9 @VA09257 00057000
BEGIN APPLY >>> ./ R 01648000 $ 01648000 00003000
END APPLY >>> ./ R 01648000 $ 01648000 00003000
BEGIN APPLY >>> ./ R 01736000 $ 01736000 00005000
END APPLY >>> ./ R 01736000 $ 01736000 00005000
BEGIN APPLY >>> ./ R 1767000 $ 1767100 20 00008000
END APPLY >>> ./ R 1767000 $ 1767100 20 00008000
BEGIN APPLY >>> ./ R 01800000 $ 00024000
END APPLY >>> ./ R 01800000 $ 00024000
BEGIN APPLY >>> ./ R 01829000 $ 00026000
END APPLY >>> ./ R 01829000 $ 00026000
BEGIN APPLY >>> ./ R 01849000 $ 01849000 00028000
END APPLY >>> ./ R 01849000 $ 01849000 00028000
BEGIN APPLY >>> ./ R 01861000 $ 01861100 10 DMK00010
END APPLY >>> ./ R 01861000 $ 01861100 10 DMK00010
BEGIN APPLY >>> ./ I 1886000 $ 1886500 00033000
END APPLY >>> ./ I 1886000 $ 1886500 00033000
BEGIN APPLY >>> ./ R 01887000 $ 00035000
END APPLY >>> ./ R 01887000 $ 00035000
BEGIN APPLY >>> ./ R 01889000 $ 01889000 00037000
END APPLY >>> ./ R 01889000 $ 01889000 00037000
BEGIN APPLY >>> ./ R 01922000 $ 00039000
END APPLY >>> ./ R 01922000 $ 00039000
BEGIN APPLY >>> ./ R 02160000 $ 02160000 00041000
END APPLY >>> ./ R 02160000 $ 02160000 00041000
BEGIN APPLY >>> ./ R 02212000 $ 00043000
END APPLY >>> ./ R 02212000 $ 00043000
BEGIN APPLY >>> ./ R 02527000 $ 02527000 00045000
END APPLY >>> ./ R 02527000 $ 02527000 00045000
BEGIN APPLY >>> ./ R 02596000 $ 02596000 00047000
END APPLY >>> ./ R 02596000 $ 02596000 00047000
BEGIN APPLY >>> ./ I 02715000 $ 02715010 5 00049000
END APPLY >>> ./ I 02715000 $ 02715010 5 00049000
Update Succeeded
Update Execution Time 55 milliseconds.
R10061DK
Date Monday Apr 07, 1980 03:19:00 AM
Loaded from MAINT(294)
R10061DK: ./ I 00177000 $ 00177100 00001000
R10061DK: ENTRY DMKDSPKL @VA10061 00002000
R10061DK: ./ I 709000 $ 709100 100 00003000
R10061DK: DMKDSPKL DS 0H ENTER DMKDSP HERE WHEN @VA10061 00004000
R10061DK: * R2='FORCE' PARM FOR FORCE 00005000
R10061DK: * LOGOFF PROCESSING, AND CPEXBLOK ALREADY PROCESSED BY DMKDSP 00006000
R10061DK: * WHEN LOOKING TO UNSTACK A CPEXBLOK. 00007000
R10061DK: USING *,R12 REESTABLISH SECOND BASE REG. @VA10061 00008000
R10061DK: LM R12,R13,DSPBASE WITH ADDRESS @VA10061 00009000
R10061DK: USING DMKDSP,R12,R13 @VA10061 00010000
R10061DK: B DISPATCH @VA10061 00011000
BEGIN APPLY >>> ./ I 00177000 $ 00177100 00001000
END APPLY >>> ./ I 00177000 $ 00177100 00001000
BEGIN APPLY >>> ./ I 709000 $ 709100 100 00003000
END APPLY >>> ./ I 709000 $ 709100 100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R10245DK
Date Monday Apr 07, 1980 03:18:00 AM
Loaded from MAINT(294)
R10245DK: ./ I 709700 $ 709730 30 00001000
R10245DK: TM VMRSTAT,VMEXWAIT WAITING FOR INST. SIMULATION @VA10245 00002000
R10245DK: BO SCHDL BRANCH TO RESCHEDULE FORCE @VA10245 00003000
BEGIN APPLY >>> ./ I 709700 $ 709730 30 00001000
END APPLY >>> ./ I 709700 $ 709730 30 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R12055DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R12055DK: ./ I 628000 $ 628500
R12055DK: CHARGE STOP GET END OF IN-Q SLICE VMTTIME @ZA12055
BEGIN APPLY >>> ./ I 628000 $ 628500
END APPLY >>> ./ I 628000 $ 628500
Update Succeeded
Update Execution Time 23 milliseconds.
R12460DK
Date Wednesday Jul 08, 1981 03:20:00 PM
Loaded from MAINT(294)
R12460DK: ./ I 00972000 $ 00972050 50 00001000
R12460DK: C R6,XINTNEXT-XINTBLOK(,R5) CHECK VALIDITY OF @VA12460 00002000
R12460DK: * CHAIN 00003000
R12460DK: BE VMCDSPN CONTINUE,CHAIN APPEARS VALID @VA12460 00004000
R12460DK: LA R5,VMPXINT LOAD ADDRESS OF CHAIN ANCHOR @VA12460 00005000
R12460DK: VMCCORR DS 0H @VA12460 00006000
R12460DK: C R6,XINTNEXT-XINTBLOK(,R5) CHECK VALIDITY OF @VA12460 00007000
R12460DK: * CHAIN 00008000
R12460DK: BE VMCDSPN CONTINUE, CHAIN IS CORRECTED @VA12460 00009000
R12460DK: ICM R5,B'1111',XINTNEXT-XINTBLOK(R5) INSERT ADDR @VA12460 00010000
R12460DK: * OF NEXT ELEMENT 00011000
R12460DK: BNZ VMCCORR BRANCH IF NOT END OF CHAIN @VA12460 00012000
BEGIN APPLY >>> ./ I 00972000 $ 00972050 50 00001000
END APPLY >>> ./ I 00972000 $ 00972050 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12932DK
Date Wednesday Jun 03, 1981 05:21:00 AM
Loaded from MAINT(294)
R12932DK: ./ I 01273000 $ 1273500 500 04/20/81 11:15:47
R12932DK: L R2,=A(DMKVIOMK) GET ADDRESS OF INT MASK TABLE @VA12932 01236000
BEGIN APPLY >>> ./ I 01273000 $ 1273500 500 04/20/81 11:15:47
END APPLY >>> ./ I 01273000 $ 1273500 500 04/20/81 11:15:47
Update Succeeded
Update Execution Time 23 milliseconds.
R14280DK
Date Wednesday Nov 04, 1981 01:37:00 PM
Loaded from MAINT(294)
R14280DK: ./ I 1601000 $ 1601200 200
R14280DK: * NOTE: THE WORD AT DISPLACEMENT 28 WILL BE INCREMENTED
R14280DK: * BY 4 DURING IPL IF THIS CPU HAS CP ASSIST LEVEL 18
R14280DK: * OR 19. THIS ALLOWS USE OF THE "OLD" LEVEL OF FRET ASSIST.
R14280DK: SPACE ,
R14280DK: ./ R 1606000 $ 1606100
R14280DK: DC V(DMKFREMX) +28 ADDRESS OF 'MAXSIZE' @VA14280 20340000
BEGIN APPLY >>> ./ I 1601000 $ 1601200 200
END APPLY >>> ./ I 1601000 $ 1601200 200
BEGIN APPLY >>> ./ R 1606000 $ 1606100
END APPLY >>> ./ R 1606000 $ 1606100
Update Succeeded
Update Execution Time 23 milliseconds.
R13025DK
Date Friday Jan 15, 1982 04:25:00 PM
Loaded from MAINT(294)
R13025DK: ./ D 177100 $
R13025DK: ./ D 709100 709800 $
R13025DK: ./ R 1594000 $ 1594000 200
R13025DK: OFFCALL DS 0H LOG USER OFF SYSTEM @VA13025 01594000
R13025DK: TM VMRSTAT,VMEXWAIT IS USER IN EXECUTION WAIT @VA13025 01584300
R13025DK: BO DELAYOFF YES, WAIT UNTIL FINISHED @VA13025 01584600
R13025DK: CALL DMKUSOFF LOG USER OFF SYSTEM @VA08667 01594500
R13025DK: ./ I 1595000 $ 1595100 100
R13025DK: SPACE 1 @VA13025 19993000
R13025DK: DELAYOFF OI VMOSTAT,VMKILL RESET THE VMKILL BIT @VA13025 19993000
R13025DK: NI VMRSTAT,255-VMLOGOFF RESET LOGOFF BIT IN VMBLOK @VA13025
R13025DK: TM VMSPMFLG,VMCFRD1 IS BACK-UP BIT ON ? @VA13025 19993000
R13025DK: BZ SCHDL NO, THEN JUST GO TO SCHEDULER @VA13025 19993000
R13025DK: OI VMQSTAT,VMCFREAD YES, THEN SET CFREAD FLAG @VA13025 19993000
R13025DK: B SCHDL AND GO TO SCHEDULER @VA13025 19993000
R13025DK: SPACE 1 @VA13025 19993000
BEGIN APPLY >>> ./ D 177100 $
END APPLY >>> ./ D 177100 $
BEGIN APPLY >>> ./ D 709100 709800 $
END APPLY >>> ./ D 709100 709800 $
BEGIN APPLY >>> ./ R 1594000 $ 1594000 200
END APPLY >>> ./ R 1594000 $ 1594000 200
BEGIN APPLY >>> ./ I 1595000 $ 1595100 100
END APPLY >>> ./ I 1595000 $ 1595100 100
Update Succeeded
Update Execution Time 39 milliseconds.
HRC006DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC006DK: ./ R 675000 $ 675010 1
HRC006DK: L R0,=F'1' STOP DSP003 ABEND - JUST FIDDLE TIMER HRC006DK
BEGIN APPLY >>> ./ R 675000 $ 675010 1
END APPLY >>> ./ R 675000 $ 675010 1
Update Succeeded
Update Execution Time 31 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 04/22/80 ADD P.E.R. TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ * PER001 00006000
HRC013DK: ./ R 82000 $ 82100 PER001 00007000
HRC013DK: * DMKPERIL - CALLED TO HANDLE PER TRACING PER001 00008000
HRC013DK: ./ R 188000 $ 188100 PER001 00009000
HRC013DK: EXTRN DMKPERIL PER001 00010000
HRC013DK: ./ I 401000 $ 401100 100 PER001 00011000
HRC013DK: TM VMPEND,VMPERPND PER PENDING? PER001 00012000
HRC013DK: BO TESTSYS YES, TEST FOR SYSTEM LOCK PER001 00013000
HRC013DK: ./ R 455000 456000 $ 455100 1000 PER001 00014000
HRC013DK: L R2,VMPERCTL POINT TO PER BLOCK PER001 00015000
HRC013DK: LCTL C9,C11,PERCR9-PERBLOK(R2) PER001 00016000
HRC013DK: ./ I 853000 $ 853050 50 PER001 00017000
HRC013DK: TM VMTRCTL,VMTRPER WERE WE USING THE P.E.R? PER001 00018000
HRC013DK: BO OURPER YES. CALL DMKPERIL TO FIGURE IT OUTPER001 00019000
HRC013DK: ./ D 873000 874000 PER001 00020000
HRC013DK: ./ I 884000 $ 884100 100 PER001 00021000
HRC013DK: OURPER OI VMRSTAT,VMEXWAIT TAKE MACHINE OUT OF RUNNING. PER001 00022000
HRC013DK: CALL DMKPERIL CALL INTERRUPT HANDLER. PER001 00023000
HRC013DK: NI VMPEND,255-VMPERPND KILL THE PENDING BIT. PER001 00024000
HRC013DK: NI VMRSTAT,255-VMEXWAIT REMOVE THE MACHINE FROM PER001 00025000
HRC013DK: GOTO DMKDSPCH GO TO GROUND FLOOR ZERO. PER001 00026000
HRC013DK: ./ R 1329000 $ 1329050 PER001 00027000
HRC013DK: BZ GETMASK NO PER001 00028000
HRC013DK: ./ D 1331000 1338000 $ PER001 00029000
HRC013DK: ./ I 1345000 $ 1345050 50 PER001 00030000
HRC013DK: NI VMTRCTL,255-VMTRPER ... PER001 00031000
HRC013DK: NI VMESTAT,255-VMPERCM ... PER001 00032000
HRC013DK: TM VMPSW+1,EXTMODE IN EXT MODE? PER001 00033000
HRC013DK: BNO OUROWN THEN USER CAN'T HAVE OWN PER PER001 00034000
HRC013DK: TM VMPSW,PERMODE IS USER PER ON? PER001 00035000
HRC013DK: BNO OUROWN NO, GO CHECK FOR CP PER PER001 00036000
HRC013DK: OI VMESTAT,VMPERCM AND USER PER FLAG PER001 00037000
HRC013DK: B CKTRACE2 AND CONTINUE PER001 00038000
HRC013DK: OUROWN TM VMPERFLG,VMPERUSE IS PER TRACE ACTIVE? PER001 00039000
HRC013DK: BNO CKTRACE2 NO, SKIP THIS NONSENSE PER001 00040000
HRC013DK: L R1,VMPERCTL LOAD POINTER TO TRACE CTL BLOCK PER001 00041000
HRC013DK: CLI PERCR9-PERBLOK(R1),00 ANY STOPS ACTIVE? PER001 00042000
HRC013DK: BE CKTRACE2 NO, SKIP OI PER001 00043000
HRC013DK: OI VMESTAT,VMPERCM TURN ON ANY BIT PER001 00044000
HRC013DK: OI VMTRCTL,VMTRPER ... PER001 00045000
HRC013DK: CKTRACE2 EQU * HERE TO CHECK TRACE PER001 00046000
HRC013DK: ./ R 2446000 2447000 $ 2446000 1000 PER001 00047000
HRC013DK: L R2,VMPERCTL TRACE EXTENSION % PER001 00048000
HRC013DK: LCTL C9,C11,PERCR9-PERBLOK(R2) LOAD TRACE C-REGS % PER001 00049000
HRC013DK: ./ I 2769000 $ 2769500 500 PER001 00050000
HRC013DK: COPY PERBLOKS PER001 00051000
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 04/22/80 ADD P.E.R. TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 04/22/80 ADD P.E.R. TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 04/22/80 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 >>> ./ R 82000 $ 82100 PER001 00007000
END APPLY >>> ./ R 82000 $ 82100 PER001 00007000
BEGIN APPLY >>> ./ R 188000 $ 188100 PER001 00009000
END APPLY >>> ./ R 188000 $ 188100 PER001 00009000
BEGIN APPLY >>> ./ I 401000 $ 401100 100 PER001 00011000
END APPLY >>> ./ I 401000 $ 401100 100 PER001 00011000
BEGIN APPLY >>> ./ R 455000 456000 $ 455100 1000 PER001 00014000
END APPLY >>> ./ R 455000 456000 $ 455100 1000 PER001 00014000
BEGIN APPLY >>> ./ I 853000 $ 853050 50 PER001 00017000
END APPLY >>> ./ I 853000 $ 853050 50 PER001 00017000
BEGIN APPLY >>> ./ D 873000 874000 PER001 00020000
END APPLY >>> ./ D 873000 874000 PER001 00020000
BEGIN APPLY >>> ./ I 884000 $ 884100 100 PER001 00021000
END APPLY >>> ./ I 884000 $ 884100 100 PER001 00021000
BEGIN APPLY >>> ./ R 1329000 $ 1329050 PER001 00027000
END APPLY >>> ./ R 1329000 $ 1329050 PER001 00027000
BEGIN APPLY >>> ./ D 1331000 1338000 $ PER001 00029000
END APPLY >>> ./ D 1331000 1338000 $ PER001 00029000
BEGIN APPLY >>> ./ I 1345000 $ 1345050 50 PER001 00030000
END APPLY >>> ./ I 1345000 $ 1345050 50 PER001 00030000
BEGIN APPLY >>> ./ R 2446000 2447000 $ 2446000 1000 PER001 00047000
END APPLY >>> ./ R 2446000 2447000 $ 2446000 1000 PER001 00047000
BEGIN APPLY >>> ./ I 2769000 $ 2769500 500 PER001 00050000
END APPLY >>> ./ I 2769000 $ 2769500 500 PER001 00050000
Update Succeeded
Update Execution Time 78 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00969000 $ 00969100 100
HRC065DK: CLC XINTCODE,=X'2402' LDF interrupt? HRC065DK
HRC065DK: BE LDFINT Yes HRC065DK
HRC065DK: ./ I 00978000 $ 00978100 100
HRC065DK: * HRC065DK
HRC065DK: LDFINT EQU * HRC065DK
HRC065DK: MVC PSA+128(4),XINTPARM LDF indication to loc X'80' HRC065DK
HRC065DK: * HRC065DK
BEGIN APPLY >>> ./ I 00969000 $ 00969100 100
END APPLY >>> ./ I 00969000 $ 00969100 100
BEGIN APPLY >>> ./ I 00978000 $ 00978100 100
END APPLY >>> ./ I 00978000 $ 00978100 100
Update Succeeded
Update Execution Time 39 milliseconds.
ibm/vm370-lib/cp/dmkdsp.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator