DMKRGB History
References
-
-
Fixes Applied : 12
-
Last Fix ID : [R13944DK]
Update History
CMS File Input : DMKRGB ASSEMBLE
Date : 12/7/1978 5:13:00 PM
VM Context : MAINT(394)
File Name : DMKRGB.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R09296DK 601 REASSEMBLE FOR V09296
R08981DK 601 WRONG TRANSLATION TABLE USED
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09182DK 606 INCORRECT MOVE IF 256 CHARS FOLLOW COMPOUND CHAR
R08995DK 606 ABENDRGA001 WHEN UNIT EXCEPTION ON WRITE TEXT
R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
R09707DK 614 UV00769 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R11623DK 618 UV01795 NET SHUTDOWN CMD ALLOWS OTHER NET CMDS TO EXECUTE
R11787DK 618 UV02014 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R13071DK 621 UV04292 LOK001 AFTER UNSOLICITED IFCC DURING LOGON
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13944DK 625 UV05417 BISYNC ERROR RECOVERY IS NOT CORRECT
R09296DK
Date Monday Jan 29, 1979 02:39:00 PM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R08981DK
Date Monday Feb 26, 1979 04:32:00 PM
Loaded from MAINT(294)
R08981DK: ./ R 783100 783200 $ 783050 100 00001000
R08981DK: TM NICTMCD,NICTEXT+NICAPL TEXT OR APL TRANSLATION @VA08981 00002000
R08981DK: BNZ USEGRTAB YES, USE DMKTBLGR @VA08981 00003000
BEGIN APPLY >>> ./ R 783100 783200 $ 783050 100 00001000
END APPLY >>> ./ R 783100 783200 $ 783050 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53: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 8 milliseconds.
R09182DK
Date Friday Nov 02, 1979 04:18:00 AM
Loaded from MAINT(294)
R09182DK: ./ R 1131000 $ 1131100 100 00001000
R09182DK: BCTR R3,0 SUBTRACT ONE FOR EXECUTE @VA09182 00002000
R09182DK: EX R3,MOVEAPL MOVE DATA TO BUFFER @VA09182 00003000
R09182DK: LA R3,1(,R3) RESET BYTE COUNT @VA09182 00004000
BEGIN APPLY >>> ./ R 1131000 $ 1131100 100 00001000
END APPLY >>> ./ R 1131000 $ 1131100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R08995DK
Date Friday Nov 02, 1979 10:12:00 AM
Loaded from MAINT(294)
R08995DK: ./ R 560200 560600 $ 560200 200 00001000
R08995DK: WRT77CCW DC X'01',AL3(0),AL1(SILI+CC,X'0A'),AL2(0) @VA08995 00002000
R08995DK: FMT77CCW DC X'01',AL3(0),AL1(SILI+CD,X'0A'),AL2(FMT77L+3) @VA08995 00003000
R08995DK: FMTLOGO DC X'00',AL3(0),AL1(SILI+CC,X'0A'),AL2(785) @VA08995 00004000
R08995DK: ./ R 00981400 $ 00981400 00005000
R08995DK: CLI 5(R1),X'0A' IS THIS A WRITE TEXT OPERATION ? @VA08995 00006000
R08995DK: ./ R 1197100 1197200 $ 1197100 100 00007000
R08995DK: WRT77RUN DC X'00',AL3(RUN3277+1),AL1(SILI+CC,X'0A') @VA08995 00008000
R08995DK: DC AL2(RUN77L-1) @VA08995 00009000
BEGIN APPLY >>> ./ R 560200 560600 $ 560200 200 00001000
END APPLY >>> ./ R 560200 560600 $ 560200 200 00001000
BEGIN APPLY >>> ./ R 00981400 $ 00981400 00005000
END APPLY >>> ./ R 00981400 $ 00981400 00005000
BEGIN APPLY >>> ./ R 1197100 1197200 $ 1197100 100 00007000
END APPLY >>> ./ R 1197100 1197200 $ 1197100 100 00007000
Update Succeeded
Update Execution Time 23 milliseconds.
R10567DK
Date Friday Mar 14, 1980 03:14:00 AM
Loaded from MAINT(294)
R10567DK: ./ * FORCE REASSEMBLY FOR APAR VM10567
BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
Update Succeeded
Update Execution Time 8 milliseconds.
R09707DK
Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
R09707DK: ./ I 863000 $ 863020 20 00001000
R09707DK: LH R1,VMVTERM VIRT TERM DISPLACEMENT @VA09707 00002000
R09707DK: LTR R1,R1 IS THERE A VIRT TERMINAL? @VA09707 00003000
R09707DK: BM NOSTACK NO, STACKED INPUT IMPOSSIBLE @VA09707 00004000
R09707DK: AL R1,VMDVSTRT POINT TO VDEVBLOK @VA09707 00005000
R09707DK: L R2,VDEVCON-VDEVBLOK(,R1) POINT TO VCONCTL @VA09707 00006000
R09707DK: L R4,VCONRBUF-VCONCTL(,R2) IS THERE... @VA09707 00007000
R09707DK: LTR R4,R4 ...A STACKED INPUT LINE? @VA09707 00008000
R09707DK: BZ NOSTACK NO, BUSINESS AS USUAL @VA09707 00009000
R09707DK: LH R3,VCONRCNT-VCONCTL(,R2) STACKED LINE COUNT @VA09707 00010000
R09707DK: LH R1,CONCNT GET COUNT ASKED FOR @VA09707 00011000
R09707DK: CLR R1,R3 IS IT LESS THAN WE HAVE? @VA09707 00012000
R09707DK: BNL CNTOK NO, CONTINUE @VA09707 00013000
R09707DK: LR R3,R1 SET COUNT TO MAX EXPECTED @VA09707 00014000
R09707DK: CNTOK DS 0H @VA09707 00015000
R09707DK: STH R3,CONCNT SET DATA COUNT @VA09707 00016000
R09707DK: L R1,CONRETN GET RETURN SAVEAREA ADDRESS @VA09707 00017000
R09707DK: ST R3,SAVER0-SAVEAREA(,R1) SET RETURN BYTE COUNT @VA09707 00018000
R09707DK: LTR R3,R3 ANY DATA RETURNED? @VA09707 00019000
R09707DK: BZ NOSTKDAT NO, DON'T MOVE ANYTHING @VA09707 00020000
R09707DK: L R1,CONADDR GET CALLER'S BUFFER ADDRESS @VA09707 00021000
R09707DK: BCTR R3,0 LENGTH MINUS 1 FOR MOVE @VA09707 00022000
R09707DK: EX R3,MOVEDATA MOVE DATA TO BUFFER @VA09707 00023000
R09707DK: NOSTKDAT DS 0H @VA09707 00024000
R09707DK: LA R0,BUFSIZE SIZE OF READ BUFFER @VA09707 00025000
R09707DK: LR R1,R4 ADDRESS OF READ BUFFER @VA09707 00026000
R09707DK: LA R1,0(,R1) CLEAR HIGH ORDER BYTE @VA09707 00027000
R09707DK: LTR R1,R1 IS ADDRESS ZERO? @VA09707 00028000
R09707DK: BZ CLREG0 YES, CLEAR REGISTER ZERO @VA09707 00029000
R09707DK: CALL DMKFRET RELEASE VCONRBUF STORAGE @VA09707 00030000
R09707DK: CLREG0 DS 0H @VA09707 00031000
R09707DK: SR R0,R0 CLEAR REG @VA09707 00032000
R09707DK: ST R0,BSCRPTR CLEAR RESIDUAL POINTER @VA09707 00033000
R09707DK: ST R0,VCONRBUF-VCONCTL(,R2) DESTROY THE EVIDENCE @VA09707 00034000
R09707DK: OI CONPARM,INHIBIT DON'T SPOOL IT TWICE @VA09707 00035000
R09707DK: OI CONSTAT,CONESCP+CONACTV INDICATE CONTASK... @VA09707 00036000
R09707DK: * ...PROCESSED. WE'LL RETURN IT NOW... 00037000
R09707DK: BAL R3,CONRET RETURN CONTASK, AVOIDING... @VA09707 00038000
R09707DK: RESEOT DS 0H ...ACTUALLY PUTTING UP A READ @VA09707 00039000
R09707DK: XC BSCCNT(2),BSCCNT CLEAR RETRY COUNT @VA09707 00040000
R09707DK: BAL R3,BLDIOB DON'T TRY THIS WITHOUT AN IOB @VA09707 00041000
R09707DK: LA R1,RESETEOT ADDRESS OF RESET CCW @VA09707 00042000
R09707DK: BAL R7,SETCAW RESTART I/O OPERATION TO LINE @VA09707 00043000
R09707DK: NOSTACK DS 0H @VA09707 00044000
R09707DK: ./ I 1173200 $ 1173300 00045000
R09707DK: MOVEDATA MVC 0(*-*,R1),0(R4) MOVE DATA INTO BUFFER @VA09707 00046000
R09707DK: ./ I 1197200 $ 1197300 00047000
R09707DK: RESETEOT DC X'01',AL3(RGFEOT),AL1(SILI,X'09'),AL2(1) @VA09707 00048000
BEGIN APPLY >>> ./ I 863000 $ 863020 20 00001000
END APPLY >>> ./ I 863000 $ 863020 20 00001000
BEGIN APPLY >>> ./ I 1173200 $ 1173300 00045000
END APPLY >>> ./ I 1173200 $ 1173300 00045000
BEGIN APPLY >>> ./ I 1197200 $ 1197300 00047000
END APPLY >>> ./ I 1197200 $ 1197300 00047000
Update Succeeded
Update Execution Time 23 milliseconds.
R11623DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11623DK: ./ I 406000 $ 406050 50
R11623DK: OI BSCFLAG1,BSCSHUT SYNCRONIZE SHUTDOWN @VA11623
R11623DK: ./ R 414000 $ 414100 100
R11623DK: LA R4,RGFEXIT1 GET THE EXECUTION ADDRESS @VA11623
R11623DK: ./ R 418000 $ 418100 100 00001000
R11623DK: RGFEXIT1 DS 0H @VA11623 00002000
R11623DK: TM BSCFLAG1,BSCSHUT SHUTDOWN FINISHED? @VA11623 00002000
R11623DK: BNO RGFEXIT YES, TELL DMKNES @VA11623 00003000
R11623DK: LA R4,RGFEXIT1 GET RETURN ADDRESS @VA11623 00004000
R11623DK: BAL R7,STKCPEX WAIT FOR SHUTDOWN TO FINISH @VA11623 00005000
R11623DK: B GODSPCH ... @VA11623 00006000
R11623DK: RGFEXIT DS 0H @VA11623 00007000
BEGIN APPLY >>> ./ I 406000 $ 406050 50
END APPLY >>> ./ I 406000 $ 406050 50
BEGIN APPLY >>> ./ R 414000 $ 414100 100
END APPLY >>> ./ R 414000 $ 414100 100
BEGIN APPLY >>> ./ R 418000 $ 418100 100 00001000
END APPLY >>> ./ R 418000 $ 418100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11787DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11787DK: ./ D 863020 863860 00001000
R11787DK: ./ D 1173300 00002000
R11787DK: ./ D 1197300 00003000
BEGIN APPLY >>> ./ D 863020 863860 00001000
END APPLY >>> ./ D 863020 863860 00001000
BEGIN APPLY >>> ./ D 1173300 00002000
END APPLY >>> ./ D 1173300 00002000
BEGIN APPLY >>> ./ D 1197300 00003000
END APPLY >>> ./ D 1197300 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R13071DK
Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
R13071DK: ./ D 1298000 1302000 00001000
BEGIN APPLY >>> ./ D 1298000 1302000 00001000
END APPLY >>> ./ D 1298000 1302000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:36:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R13944DK
Date Wednesday Oct 14, 1981 10:08:00 AM
Loaded from MAINT(294)
R13944DK: ./ R 560200 560600 $ 560000 500 00001000
R13944DK: WRT77CCW DC X'01',AL3(0),AL1(SILI+CC,X'10'),AL2(0) @VA13944 00002000
R13944DK: FMT77CCW DC X'01',AL3(0),AL1(SILI+CD,X'10'),AL2(FMT77L+3) @VA13944 00002000
R13944DK: FMTLOGO DC X'01',AL3(0),AL1(SILI+CC,X'10'),AL2(785) @VA13944 00002000
R13944DK: ./ R 981400 $ 981400 100 00003000
R13944DK: CLI 5(R1),X'10' IS THIS A WRITE TEXT CCW @VA13944 00004000
R13944DK: ./ R 1197100 $ 1197100 100 00004000
R13944DK: WRT77RUN DC X'00',AL3(RUN3277+1),AL1(SILI+CC,X'10') @VA13944 00004000
BEGIN APPLY >>> ./ R 560200 560600 $ 560000 500 00001000
END APPLY >>> ./ R 560200 560600 $ 560000 500 00001000
BEGIN APPLY >>> ./ R 981400 $ 981400 100 00003000
END APPLY >>> ./ R 981400 $ 981400 100 00003000
BEGIN APPLY >>> ./ R 1197100 $ 1197100 100 00004000
END APPLY >>> ./ R 1197100 $ 1197100 100 00004000
Update Succeeded
Update Execution Time 16 milliseconds.