DMKIOH History
References
-
-
Fixes Applied : 4
-
Last Fix ID : [R13122DK]
Update History
CMS File Input : DMKIOH ASSEMBLE
Date : 7/5/1979 4:08:00 PM
VM Context : MAINT(394)
File Name : DMKIOH.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
R09528DK 611 CHANGE SW1 FIELD IN CCH AND MCH REC. FROM 80 T0 C0
R10241DK 616 REMOVE VCON FROM PAGEABLE MODULE
R11817DK 617 UV01985 CORRECTLY CHECK FOR SRF EVEN IF FIRST RDEV
R13122DK 620 UV04275 REDO VM11817 TO RECOGNIZE SRF ON OTHER THAN CH0 CU0
R09528DK
Date Saturday Mar 29, 1980 03:12:00 AM
Loaded from MAINT(294)
R09528DK: ./ I 495000 $ 495100 200 00001000
R09528DK: TM VMMCR6,VMM360 IS THIS 360 MODE @VA09528 00002000
R09528DK: BO DROP2 YES-DONT TURN ON 370 TOD FLAG @VA09528 00003000
R09528DK: OI FRMSW0,TOD370 EC MODE TURN ON 370TOD FLAG @VA09528 00004000
R09528DK: DROP2 EQU * @VA09528 00005000
R09528DK: ./ I 704000 $ 704100 200 00006000
R09528DK: TM VMMCR6,VMM360 IS THIS 360 MODE @VA09528 00007000
R09528DK: BO DROP1 YES-DONT TURN ON 370 TOD FLAG @VA09528 00008000
R09528DK: OI FRMSW0,TOD370 EC MODE TURN ON 370 TOD FLAG @VA09528 00009000
R09528DK: DROP1 EQU * @VA09528 00010000
R09528DK: ./ R 871000 $ 871100 00011000
R09528DK: DC XL1'C0' FRAME SW1 @VA09528 00012000
R09528DK: ./ I 927000 $ 927100 00013000
R09528DK: TOD370 EQU X'40' 370 TIME OF DAY FLAG @VA09528 00014000
BEGIN APPLY >>> ./ I 495000 $ 495100 200 00001000
END APPLY >>> ./ I 495000 $ 495100 200 00001000
BEGIN APPLY >>> ./ I 704000 $ 704100 200 00006000
END APPLY >>> ./ I 704000 $ 704100 200 00006000
BEGIN APPLY >>> ./ R 871000 $ 871100 00011000
END APPLY >>> ./ R 871000 $ 871100 00011000
BEGIN APPLY >>> ./ I 927000 $ 927100 00013000
END APPLY >>> ./ I 927000 $ 927100 00013000
Update Succeeded
Update Execution Time 16 milliseconds.
R10241DK
Date Tuesday Sep 30, 1980 01:51:00 PM
Loaded from MAINT(294)
R10241DK: ./ R 200000 $ 200100 100 00001000
R10241DK: EXTRN DMKIOECE @VA10241 00002000
R10241DK: EXTRN DMKIOEIF @VA10241 00003000
R10241DK: ./ D 201000 00004000
R10241DK: ./ I 573000 $ 573100 100 00005000
R10241DK: L R2,=V(DMKIOEIF) ADD OF INFOFLAG @VA10241 00006000
R10241DK: MVC 0(,R2),INFOFLAG MOVE IN INFOFLAG @VA10241 00007000
R10241DK: ./ I 650000 $ 650100 100 00008000
R10241DK: L R2,=V(DMKIOEIF) ADD. OF INFOFLAG @VA10241 00009000
R10241DK: MVC 0(,R2),INFOFLAG MOVE IN INFOFLAG @VA10241 00010000
R10241DK: ./ I 664000 $ 664100 100 00011000
R10241DK: L R7,=V(DMKIOEIF) ADD. OF INFOFLAG @VA10241 00012000
R10241DK: MVC 0(,R7),INFOFLAG MOVE IN INFOFLAG @VA10241 00013000
R10241DK: ./ I 776000 $ 776100 100 00014000
R10241DK: L R7,=V(DMKIOEIF) ADD. OF INFOFLAG @VA10241 00015000
R10241DK: MVC 0(,R7),INFOFLAG MOVE IN INFOFLAG @VA10241 00016000
R10241DK: ./ R 778000 779000 $ 778100 00017000
R10241DK: SETIOEHS L R4,=V(DMKIOECE) ADD. OF CECYL @VA10241 00018000
R10241DK: ./ D 886000 00019000
BEGIN APPLY >>> ./ R 200000 $ 200100 100 00001000
END APPLY >>> ./ R 200000 $ 200100 100 00001000
BEGIN APPLY >>> ./ D 201000 00004000
END APPLY >>> ./ D 201000 00004000
BEGIN APPLY >>> ./ I 573000 $ 573100 100 00005000
END APPLY >>> ./ I 573000 $ 573100 100 00005000
BEGIN APPLY >>> ./ I 650000 $ 650100 100 00008000
END APPLY >>> ./ I 650000 $ 650100 100 00008000
BEGIN APPLY >>> ./ I 664000 $ 664100 100 00011000
END APPLY >>> ./ I 664000 $ 664100 100 00011000
BEGIN APPLY >>> ./ I 776000 $ 776100 100 00014000
END APPLY >>> ./ I 776000 $ 776100 100 00014000
BEGIN APPLY >>> ./ R 778000 779000 $ 778100 00017000
END APPLY >>> ./ R 778000 779000 $ 778100 00017000
BEGIN APPLY >>> ./ D 886000 00019000
END APPLY >>> ./ D 886000 00019000
Update Succeeded
Update Execution Time 23 milliseconds.
R11817DK
Date Monday Nov 03, 1980 10:06:00 AM
Loaded from MAINT(294)
R11817DK: ./ R 757000 $ 757100 100 00001000
R11817DK: BNZ SRFOK @VA11817 00002000
R11817DK: L R2,=V(DMKRIODV) GET RDEV TABLE POINTER @VA11817 00003000
R11817DK: CLC 0(2,R2),2(R1) IS THIS THE FIRST ONE @VA11817 00004000
R11817DK: BNE NOSRF SRF NOT GENED @VA11817 00005000
R11817DK: CLC 6(2,R2),=AL1(CLASSPEC,TYPSRF) IS FIRST AN SRF @VA11817 00006000
R11817DK: BNE NOSRF THIS TRICK DIDNT WORK EITHER @VA11817 00007000
R11817DK: SRFOK DS 0H 'S OK @VA11817 00008000
BEGIN APPLY >>> ./ R 757000 $ 757100 100 00001000
END APPLY >>> ./ R 757000 $ 757100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13122DK
Date Thursday May 07, 1981 04:16:00 AM
Loaded from MAINT(294)
R13122DK: ./ I 00199000 $ 199500 500 00001000
R13122DK: EXTRN DMKSCNRU @VA13122 00002000
R13122DK: ./ R 00757200 00757400 $ 757250 25 00003000
R13122DK: LH R1,2(,R1) GET RADDR OF SRF DEVICE @VA13122 00004000
R13122DK: CALL DMKSCNRU CHECK IF RDEVBLOK EXISTS @VA13122 00005000
R13122DK: BNZ NOSRF BRANCH IF WE COULDN'T FIND ONE @VA13122 00006000
R13122DK: *********************************************************************** 00007000
R13122DK: * WE NOW HAVE A DISPLACEMENT OF ZERO INTO THE RDEV TABLE AND THE DEVICE 00008000
R13122DK: * IS A VALID DEVICE FROM SCNRU (I.E. IT WAS THE FIRST RDEVICE MACRO) 00009000
R13122DK: * NOW LETS MAKE SURE IT WAS AN SRF DEVICE. DMKRIODV SHOULD POINT RIGHT 00010000
R13122DK: * TO IT IF THE ABOVE IS CORRECT 00011000
R13122DK: *********************************************************************** 00012000
R13122DK: L R2,=V(DMKRIODV) GET RDEV TABLE POINTER @VA13122 00013000
R13122DK: ./ I 00757600 $ 757625 25 00014000
R13122DK: L R1,CURRSRF RESTORE CURRENT SRF POINTER @VA13122 00015000
R13122DK: L R8,0(R1) RESTORE OFFSET OF SRF RDEVBLOK @VA13122 00016000
BEGIN APPLY >>> ./ I 00199000 $ 199500 500 00001000
END APPLY >>> ./ I 00199000 $ 199500 500 00001000
BEGIN APPLY >>> ./ R 00757200 00757400 $ 757250 25 00003000
END APPLY >>> ./ R 00757200 00757400 $ 757250 25 00003000
BEGIN APPLY >>> ./ I 00757600 $ 757625 25 00014000
END APPLY >>> ./ I 00757600 $ 757625 25 00014000
Update Succeeded
Update Execution Time 16 milliseconds.