ibm:vm370-lib:cp:dmkioh.assemble_hst
Table of Contents
DMKIOH History
References
- Fixes Applied : 4
- Latest Source Date : Thursday, July 5, 1979
- 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.
ibm/vm370-lib/cp/dmkioh.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator