DMKGRF History
References
-
-
Fixes Applied : 34
-
Last Fix ID : [HRC073DK]
Update History
CMS File Input : DMKGRF ASSEMBLE
Date : 1/17/1979 11:02:00 AM
VM Context : MAINT(394)
File Name : DMKGRF.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
R08898DK 601 CONTAMINATED TRQ CHAIN
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09182DK 606 INCORRECT MOVE IF 256 CHARS FOLLOW COMPOUND CHAR
R09948DK 606 LOST DE IF PRESENTED WITH ATTENTION
R09496DK 607 MISTRANSLATE TEST REQ KEY MSG IF TERMINAL TEXT MODE ON
R09763DK 607 PF COPY FUNCTION WRITES RESIDUAL DATA TO 3284, 3286
R09459DK 607 REDEFINE NOMC PARM TO AVOID CONFLICT WITH FSS PARMS
R09930DK 610 VARIOUS ABENDS BECAUSE TWO IOBLOKS AFTER ATTN
R09444DK 610 DATA NOT TRANSLATED IF TERM MODE TEXT AND #CP ENTERED
R09463DK 610 ABENDFRE005 IF TIMER INTERRUPT AFTER TWO ATTN INTERRUPTS
R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
R10462DK 611 UV00555 ABENDLOK001 DMKDSP LABEL LOCKVM TRYING TO LOC VMBLOK
R10802DK 611 UV00570 SDR DATA PASSED TO DMKIOF INCORRECTLY
R09707DK 614 UV00769 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R11787DK 616 UV02014 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R13009DK 620 UV04257 ENABLE CANNOT HANDLE CC=3 FROM A TERMINAL
R13071DK 621 UV04292 LOK001 AFTER UNSOLICITED IFCC DURING LOGON
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13277DK 624 UV05060 X'1D' AT END OF READ BUFFER NOT HANDLED CORRECTLY
R14749DK 627 UV05828 FIX FOR VM13009 IS INCORRECT
HRC001DK V01 RECALL LAST COMMAND(S) VIA PF KEY
HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC103DK V02 CORRECT HUNG TERMINAL
HRC310DK V01 ALLOW INVERSE VIDEO
HRC370DK V03 Display “S/370 Online” or “S/380 Online” as appropriate.
HRC058DK V04 DIAG 58 SUPPORT
HRC059DK V05 VIO002 CRASH AFTER DIAG58 READ CHAN PROG CHECK HANGS VCONS
HRC061DK V06 DIAG58 redirect attention interrupt for WSF RPQ support
HRC062DK V07 DIAG58 Queued message support
HRC065DK V01 Logical Device Support Facility
HRC071DK V01 Fix distorted logo after dial drop or CP ENABLE ALL
HRC072DK V01 Support for DIAG8C return device characteristics
HRC073DK V01 Support for 3278 model 5 devices
R08898DK
Date Wednesday Jan 24, 1979 01:03:00 AM
Loaded from MAINT(294)
R08898DK: ./ I 358000 $ 358500 500 00001000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00002000
R08898DK: ./ R 491000 $ 491100 200 00003000
R08898DK: GRFCLRT EQU * @VA08898 00004000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00005000
R08898DK: MVI RDEVTFLG,RDEVRUN+RDEVCTL RUN & CNTRL @VA08898 00006000
R08898DK: ./ R 955100 956000 $ 954400 400 00007000
R08898DK: CRTHOLD EQU * @VA08898 00008000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00009000
R08898DK: MVI RDEVTFLG,RDEVHOLD+RDEVCTL HOLD & CTL @VA08898 00010000
R08898DK: ./ I 1166000 $ 1166500 500 00011000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00012000
R08898DK: ./ I 1218000 $ 1218100 100 00013000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00014000
R08898DK: ./ R 1496000 $ 1495500 500 00015000
R08898DK: BAL R3,RSTTMR RESET TIMER REQUEST @VA08898 00016000
R08898DK: MVI RDEVTFLG,RDEVRUN+RDEVCTL RUN & CTL @VA08898 00017000
BEGIN APPLY >>> ./ I 358000 $ 358500 500 00001000
END APPLY >>> ./ I 358000 $ 358500 500 00001000
BEGIN APPLY >>> ./ R 491000 $ 491100 200 00003000
END APPLY >>> ./ R 491000 $ 491100 200 00003000
BEGIN APPLY >>> ./ R 955100 956000 $ 954400 400 00007000
END APPLY >>> ./ R 955100 956000 $ 954400 400 00007000
BEGIN APPLY >>> ./ I 1166000 $ 1166500 500 00011000
END APPLY >>> ./ I 1166000 $ 1166500 500 00011000
BEGIN APPLY >>> ./ I 1218000 $ 1218100 100 00013000
END APPLY >>> ./ I 1218000 $ 1218100 100 00013000
BEGIN APPLY >>> ./ R 1496000 $ 1495500 500 00015000
END APPLY >>> ./ R 1496000 $ 1495500 500 00015000
Update Succeeded
Update Execution Time 31 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.
R09182DK
Date Friday Nov 02, 1979 04:18:00 AM
Loaded from MAINT(294)
R09182DK: ./ R 1627000 $ 1627100 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 1627000 $ 1627100 100 00001000
END APPLY >>> ./ R 1627000 $ 1627100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09948DK
Date Monday Nov 12, 1979 10:08:00 AM
Loaded from MAINT(294)
R09948DK: ./ D 236000 237000 00001000
R09948DK: ./ I 241000 $ 241100 100 00002000
R09948DK: TM IOBCSW+4,ATTN OPERATOR RAPPING ON US @VA09948 00003000
R09948DK: BNZ ATTNINT YES, SEE WHAT HE WANTS @VA09948 00004000
BEGIN APPLY >>> ./ D 236000 237000 00001000
END APPLY >>> ./ D 236000 237000 00001000
BEGIN APPLY >>> ./ I 241000 $ 241100 100 00002000
END APPLY >>> ./ I 241000 $ 241100 100 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R09496DK
Date Friday Nov 30, 1979 08:03:00 AM
Loaded from MAINT(294)
R09496DK: ./ I 1598050 $ 1598100 50 00001000
R09496DK: C R3,IOBMISC IS THIS FIRST LOOK AT BUFFER? @VA09496 00002000
R09496DK: BNE XLATE NO, TRANSLATE AS USUAL @VA09496 00003000
R09496DK: CLC 0(4,R3),TSTRQMSG IS IT TEST REQ MESSAGE? @VA09496 00004000
R09496DK: BE NOTEXT YES, NO XLATE FOR AID X'01' @VA09496 00005000
R09496DK: XLATE DS 0H @VA09496 00006000
R09496DK: ./ I 1602000 $ 1602050 00007000
R09496DK: TSTRQMSG DC XL4'016C6102' SOH % / STX -TEST REQ MSG FORMAT @VA09496 00008000
BEGIN APPLY >>> ./ I 1598050 $ 1598100 50 00001000
END APPLY >>> ./ I 1598050 $ 1598100 50 00001000
BEGIN APPLY >>> ./ I 1602000 $ 1602050 00007000
END APPLY >>> ./ I 1602000 $ 1602050 00007000
Update Succeeded
Update Execution Time 23 milliseconds.
R09763DK
Date Friday Nov 30, 1979 08:07:00 AM
Loaded from MAINT(294)
R09763DK: ./ R 1770000 $ 1770000 00001000
R09763DK: CCW X'05',*-*,SILI,*-* WRITE TO PRINTER @VA09763 00002000
BEGIN APPLY >>> ./ R 1770000 $ 1770000 00001000
END APPLY >>> ./ R 1770000 $ 1770000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09459DK
Date Friday Nov 30, 1979 09:10:00 AM
Loaded from MAINT(294)
R09459DK: ./ R 1925000 $ 1925000 00001000
R09459DK: NOMC DC X'10' DON'T ALLOW MONITOR CALL @VA09459 00002000
BEGIN APPLY >>> ./ R 1925000 $ 1925000 00001000
END APPLY >>> ./ R 1925000 $ 1925000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09930DK
Date Thursday Mar 06, 1980 03:06:00 AM
Loaded from MAINT(294)
R09930DK: ./ I 424000 $ 424001 2 00001000
R09930DK: TM RDEVSTAT,RDEVSCED+RDEVBUSY I/O SCHEDULED OR .00002000
R09930DK: ACTIVE FOR THIS DEVICE @VA09930 00003000
R09930DK: BNZ RELIOBLK YES, IGNORE THIS INTERRUPT @VA09930 00004000
BEGIN APPLY >>> ./ I 424000 $ 424001 2 00001000
END APPLY >>> ./ I 424000 $ 424001 2 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09444DK
Date Thursday Mar 06, 1980 11:20:00 AM
Loaded from MAINT(294)
R09444DK: ./ I 1099000 $ 1099100 100 00006000
R09444DK: TM VMOSTAT,VMCF IN CP READ? @VA09444 00007000
R09444DK: BO RDATA2 YES, EDIT THIS LINE @VA09444 00008000
R09444DK: TM VMMLEVEL,VMMCPENV TERM MODE CP??? @VA09444 00009000
R09444DK: BZ RDATA2 NO, MUST BE VMREAD @VA09444 00010000
R09444DK: ./ I 1101000 $ 1101100 100 00030000
R09444DK: RDATA2 DS 0H INSURE EDIT OF CP INPUT @VA09444 00031000
R09444DK: ./ R 1111000 $ 1111100 50
R09444DK: BNP RDATA3 NO, RELEASE READ BUFFER @VA09444
R09444DK: L R7,0(R4) GET FIRST WORD OF DATA ENTERED @VA09444 00014000
R09444DK: O R7,=X'00404040' CONVERT TO UPPER CASE @VA09444 00015000
R09444DK: CL R7,=X'15C3D740' IS THIS CR CP???? (#CP) @VA09444 00016000
R09444DK: BNE RDRTN PASS DATA TO CALLER @VA09444 00017000
R09444DK: CL R3,F3 IS IT JUST CR CP?? @VA09444 00018000
R09444DK: BNE TRDATA1 NO TRANSLATE TO UPPER CASE @VA09444 00019000
R09444DK: SR R0,R0 SET DATA COUNT TO ZERO @VA09444 00020000
R09444DK: ST R0,BUFCNT-BUFFER(R4) *** @VA09444 00021000
R09444DK: TRDATA1 DS 0H TRANSLATE CHARACTERS TO UP CASE @VA09444 00025000
R09444DK: L R1,=A(DMKTBLUP) UPPERCASE XLATE TABLE @VA09444 00027000
R09444DK: EX R3,TRANSLAT TRANSLATE CONSOLE FUNCTION @VA09444 00028000
R09444DK: B RDRTN MOVE DATA TO USER BUFFER @VA09444
R09444DK: RDATA3 DS 0H CONTINUE AS BEFORE @VA09444
BEGIN APPLY >>> ./ I 1099000 $ 1099100 100 00006000
END APPLY >>> ./ I 1099000 $ 1099100 100 00006000
BEGIN APPLY >>> ./ I 1101000 $ 1101100 100 00030000
END APPLY >>> ./ I 1101000 $ 1101100 100 00030000
BEGIN APPLY >>> ./ R 1111000 $ 1111100 50
END APPLY >>> ./ R 1111000 $ 1111100 50
Update Succeeded
Update Execution Time 23 milliseconds.
R09463DK
Date Thursday Mar 06, 1980 12:17:00 PM
Loaded from MAINT(294)
R09463DK: ./ R 421000 $ 421000 00001000
R09463DK: BNZ RELIOBLK YES,FRET THIS IOBLOK AND EXIT @VA09463 00002000
BEGIN APPLY >>> ./ R 421000 $ 421000 00001000
END APPLY >>> ./ R 421000 $ 421000 00001000
Update Succeeded
Update Execution Time 16 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 16 milliseconds.
R10462DK
Date Thursday Apr 03, 1980 03:19:00 AM
Loaded from MAINT(294)
R10462DK: ./ I 421000 $ 421400 400 00001000
R10462DK: TM RDEVSTA3,RDEVATSW ARE WE STILL IN RECONN? @VA10462 00002000
R10462DK: BO RELIOBLK YES....BRANCH @VA10462 00003000
BEGIN APPLY >>> ./ I 421000 $ 421400 400 00001000
END APPLY >>> ./ I 421000 $ 421400 400 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10802DK
Date Monday Apr 07, 1980 03:21:00 AM
Loaded from MAINT(294)
R10802DK: ./ R 2058100 $ 2058110
R10802DK: PARM3277 DC X'04040102030F060F0F0F0F0F0F0F0F3F' @VA10802
BEGIN APPLY >>> ./ R 2058100 $ 2058110
END APPLY >>> ./ R 2058100 $ 2058110
Update Succeeded
Update Execution Time 23 milliseconds.
R09707DK
Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
R09707DK: ./ R 1071000 $ 1070250 50 00001000
R09707DK: L R7,RDEVCON-RDEVBLOK(,R3) POINT TO CONTASK CHAIN @VA09707 00002000
R09707DK: CKCHAIN DS 0H @VA09707 00003000
R09707DK: LTR R7,R7 ANY ON THE CHAIN? @VA09707 00004000
R09707DK: BZ NOTASKS NO, ALLOW ATTN TO VIRTSYS @VA09707 00005000
R09707DK: TM CONSTAT-CONTASK(R7),CONOUTPT+CONCNTL READ TASK? @VA09707 00006000
R09707DK: BZ NOATT YES, NO NEED TO CALL DMKCFMAT @VA09707 00007000
R09707DK: L R7,0(,R7) GET CHAIN POINTER @VA09707 00008000
R09707DK: B CKCHAIN LOOK FOR MORE CONTASKS @VA09707 00009000
R09707DK: NOTASKS DS 0H @VA09707 00010000
R09707DK: CALL DMKCFMAT POST ATTN TO VIRT MACHINE @VA09707 00011000
R09707DK: NOATT DS 0H @VA09707 00012000
R09707DK: ./ I 1570000 $ 1570020 20 00013000
R09707DK: LH R1,VMVTERM VIRT TERM DISPL @VA09707 00014000
R09707DK: LTR R1,R1 IS THERE A VIRT TERMINAL? @VA09707 00015000
R09707DK: BM NOSTACK NO, STACKED INPUT IMPOSSIBLE @VA09707 00016000
R09707DK: AL R1,VMDVSTRT POINT TO VDEVBLOK @VA09707 00017000
R09707DK: L R7,VDEVCON-VDEVBLOK(,R1) POINT TO VCONCTL @VA09707 00018000
R09707DK: L R4,VCONRBUF-VCONCTL(,R7) IS THERE... @VA09707 00019000
R09707DK: LTR R4,R4 ...A STACKED INPUT LINE? @VA09707 00020000
R09707DK: BZ NOSTACK NO, BUSINESS AS USUAL @VA09707 00021000
R09707DK: LH R3,VCONRCNT-VCONCTL(,R7) STACKED LINE COUNT @VA09707 00022000
R09707DK: LH R1,CONCNT GET COUNT ASKED FOR @VA09707 00023000
R09707DK: CLR R1,R3 IS IT LESS THAN WE HAVE? @VA09707 00024000
R09707DK: BNL CNTOK NO, CONTINUE @VA09707 00025000
R09707DK: LR R3,R1 SET COUNT TO MAX EXPECTED @VA09707 00026000
R09707DK: CNTOK DS 0H @VA09707 00027000
R09707DK: STH R3,CONCNT SET DATA COUNT @VA09707 00028000
R09707DK: L R1,CONRETN GET RETURN SAVEAREA ADDRESS @VA09707 00029000
R09707DK: ST R3,SAVER0-SAVEAREA(,R1) SET RETURN BYTE COUNT @VA09707 00030000
R09707DK: LTR R3,R3 ANY DATA RETURNED? @VA09707 00031000
R09707DK: BZ NOSTKDAT NO, DON'T MOVE ANYTHING @VA09707 00032000
R09707DK: L R1,CONADDR GET CALLER'S BUFFER ADDRESS @VA09707 00033000
R09707DK: BCTR R3,0 LENGTH MINUS 1 FOR MOVE @VA09707 00034000
R09707DK: EX R3,MOVEDATA MOVE DATA TO BUFFER @VA09707 00035000
R09707DK: NOSTKDAT DS 0H @VA09707 00036000
R09707DK: ST R4,IOBMISC SET UP TO FRET BUFFER @VA09707 00037000
R09707DK: SR R0,R0 CLEAR A REG @VA09707 00038000
R09707DK: ST R0,IOBCAW CLEAR RESIDUAL POINTER @VA09707 00039000
R09707DK: BAL R3,FRETRD FRET THE VCONRBUF BUFFER @VA09707 00040000
R09707DK: SLR R0,R0 CLEAR REG @VA09707 00041000
R09707DK: ST R0,VCONRBUF-VCONCTL(,R7) DESTROY THE EVIDENCE @VA09707 00042000
R09707DK: OI CONPARM,INHIBIT DON'T SPOOL IT TWICE @VA09707 00043000
R09707DK: OI CONSTAT,CONESCP+CONACTV INDICATE CONTASK... @VA09707 00044000
R09707DK: * ...PROCESSED AND LET NOCTL RETURN THE CONTASK 00045000
R09707DK: B NOCTL RETURN CONTASK, AVOIDING... @VA09707 00046000
R09707DK: * ...ACTUALLY PUTTING UP A READ 00047000
R09707DK: NOSTACK DS 0H @VA09707 00048000
BEGIN APPLY >>> ./ R 1071000 $ 1070250 50 00001000
END APPLY >>> ./ R 1071000 $ 1070250 50 00001000
BEGIN APPLY >>> ./ I 1570000 $ 1570020 20 00013000
END APPLY >>> ./ I 1570000 $ 1570020 20 00013000
Update Succeeded
Update Execution Time 16 milliseconds.
R11787DK
Date Monday Sep 15, 1980 08:19:00 AM
Loaded from MAINT(294)
R11787DK: ./ R 1070250 1070750 $ 1071000 00001000
R11787DK: CALL DMKCFMAT POST ATTN TO VIRT MACHINE @VA11787 00002000
R11787DK: ./ D 1570020 1570700 00003000
BEGIN APPLY >>> ./ R 1070250 1070750 $ 1071000 00001000
END APPLY >>> ./ R 1070250 1070750 $ 1071000 00001000
BEGIN APPLY >>> ./ D 1570020 1570700 00003000
END APPLY >>> ./ D 1570020 1570700 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R13009DK
Date Thursday May 07, 1981 04:15:00 AM
Loaded from MAINT(294)
R13009DK: ./ R 00291000 $ 291000 100
R13009DK: UNITER EQU * HERE IF I/O ERROR @VA13009 LIN00010
R13009DK: TM IOBSTAT,X'03' IS CC = 3 (DEV NOT THERE) @VA13009 CHA00010
R13009DK: BNO CHECKIOE NO ... CHECK I/O ERROR BLOCKS @VA13009 CHA00020
R13009DK: NI RDEVFLAG,X'FF'-RDEVENAB RESET DEVICE ENABLED @VA13009 CHA00030
R13009DK: OI RDEVSTAT,RDEVDISA SET DEVICE DISABLED @VA13009 CHA00040
R13009DK: CHECKIOE EQU * CHECK I/O ERROR BLOCKS @VA13009 CHA00050
R13009DK: L R1,IOBIOER GET POINTER TO IOERBLOK @VA13009 00291000
BEGIN APPLY >>> ./ R 00291000 $ 291000 100
END APPLY >>> ./ R 00291000 $ 291000 100
Update Succeeded
Update Execution Time 23 milliseconds.
R13071DK
Date Wednesday Jun 03, 1981 05:27:00 AM
Loaded from MAINT(294)
R13071DK: ./ R 00229000 $ 228700 100 00001000
R13071DK: TM IOBSPEC,IOBUNSL UNSOLICITED INTERRUPT? @VA13071 00002000
R13071DK: BO TESTCSW YES, CONTINUE TESTING @VA13071 00003000
R13071DK: CL R10,IOBLINK IS THIS THE FINAL INTERRUPT? @VA13071 00004000
R13071DK: BNE TESTCSW NO, CONTINUE TESTING @VA13071 00005000
R13071DK: TM TRQBFLG3,TRQBLOGP IS LOGOFF PENDING SET? @VA13071 00006000
R13071DK: BO CONLOGOF YES, LOG USER OFF NOW @VA13071 00007000
R13071DK: TESTCSW TM IOBSTAT,X'03' CC = 0 ?? @VA13071 00008000
R13071DK: ./ R 00289000 $ 289100 100 00009000
R13071DK: CHANER EQU * @VA13071 00010000
R13071DK: TM IOBSPEC,IOBUNSL UNSOLICITED INTERRUPT? @VA13071 00011000
R13071DK: BZ CONLOGOF NO, LOGOFF USER NOW @VA13071 00012000
R13071DK: TM RDEVFLAG,RDEVACTV IS THERE ACTIVE I/O? @VA13071 00013000
R13071DK: BZ CONLOGOF NO, LOGOFF USER NOW; ELSE WAIT @VA13071 00014000
R13071DK: * UNTIL ACTIVE I/O COMPLETES 00015000
R13071DK: OI TRQBFLG3,TRQBLOGP SET LOGOFF PENDING FLAG @VA13071 00016000
R13071DK: B RELIOBLK RELEASE IOBLOK AND EXIT @VA13071 00017000
R13071DK: ./ R 1349000 $ 1349100 100 00018000
R13071DK: LA R0,TRQBSIZE+CRTEXT GET TRQBLOK SIZE + EXTENSION @VA13071 00019000
R13071DK: ./ R 1353000 $ 1353100 100 00020000
R13071DK: XC TRQBLOK(TRQBSIZE*8+CRTEXTSZ),TRQBLOK CLR TRQ+EXT@VA13071 00021000
R13071DK: ./ R 1364000 $ 1364100 100 00022000
R13071DK: LA R0,TRQBSIZE+CRTEXT SIZE OF TRQBLOK + EXTENSION @VA13071 00023000
R13071DK: ./ D 2066000 2080600 00024000
BEGIN APPLY >>> ./ R 00229000 $ 228700 100 00001000
END APPLY >>> ./ R 00229000 $ 228700 100 00001000
BEGIN APPLY >>> ./ R 00289000 $ 289100 100 00009000
END APPLY >>> ./ R 00289000 $ 289100 100 00009000
BEGIN APPLY >>> ./ R 1349000 $ 1349100 100 00018000
END APPLY >>> ./ R 1349000 $ 1349100 100 00018000
BEGIN APPLY >>> ./ R 1353000 $ 1353100 100 00020000
END APPLY >>> ./ R 1353000 $ 1353100 100 00020000
BEGIN APPLY >>> ./ R 1364000 $ 1364100 100 00022000
END APPLY >>> ./ R 1364000 $ 1364100 100 00022000
BEGIN APPLY >>> ./ D 2066000 2080600 00024000
END APPLY >>> ./ D 2066000 2080600 00024000
Update Succeeded
Update Execution Time 31 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:32:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R13277DK
Date Wednesday Sep 16, 1981 09:15:00 AM
Loaded from MAINT(294)
R13277DK: ./ D 00848000 04/27/81 17:08:27
R13277DK: ./ I 00849000 $ 849500 500 04/27/81 17:08:27
R13277DK: ZEROLNG DS 0H NO NEED TO MOVE DATA IF LENGTH=0 @VM13277 00849500
R13277DK: ./ I 01594000 $ 1594100 100 04/27/81 17:08:27
R13277DK: BCT R0,XLATE2 TRANSLATE THE CMPD CHAR IF ANY @VM13277 01594100
R13277DK: BR R14 RETURN IF NO MORE CHARS @VM13277 01594200
R13277DK: XLATE2 DS 0H @VM13277 01594300
R13277DK: ./ R 01595350 01595800 $ 1595350 900 04/27/81 17:08:27
R13277DK: B NOTEXT CONTINUE WITH NEXT CHARACTER @VM13277 01595350
BEGIN APPLY >>> ./ D 00848000 04/27/81 17:08:27
END APPLY >>> ./ D 00848000 04/27/81 17:08:27
BEGIN APPLY >>> ./ I 00849000 $ 849500 500 04/27/81 17:08:27
END APPLY >>> ./ I 00849000 $ 849500 500 04/27/81 17:08:27
BEGIN APPLY >>> ./ I 01594000 $ 1594100 100 04/27/81 17:08:27
END APPLY >>> ./ I 01594000 $ 1594100 100 04/27/81 17:08:27
BEGIN APPLY >>> ./ R 01595350 01595800 $ 1595350 900 04/27/81 17:08:27
END APPLY >>> ./ R 01595350 01595800 $ 1595350 900 04/27/81 17:08:27
Update Succeeded
Update Execution Time 23 milliseconds.
R14749DK
Date Friday Jan 15, 1982 04:25:00 PM
Loaded from MAINT(294)
R14749DK: ./ R 291000 291600 $ 291000 00001000
R14749DK: UNITER L R1,IOBIOER GET POINTER TO IOERBLOK @VA14749 00002000
BEGIN APPLY >>> ./ R 291000 291600 $ 291000 00001000
END APPLY >>> ./ R 291000 291600 $ 291000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC001DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC001DK: ./ R 00377000 $ 377090 90 02/13/06 07:30:29
HRC001DK: SIGNOFF EQU * HRC001DK 00377090
HRC001DK: ICM R1,15,VMHRCALL RECALL LAST LINE HRC001DK 00377180
HRC001DK: BZ DCCSGNOF NOBODY HOME ? - VANILLA HRC001DK 00377270
HRC001DK: LA R0,(130*3+8)/8 SIZE OF RECALL BUFFER HRC001DK 00377360
HRC001DK: CALL DMKFRET RELEASE BUFFER HRC001DK 00377450
HRC001DK: XC VMHRCALL,VMHRCALL CLEAR POINTER HRC001DK 00377495
HRC001DK: DCCSGNOF EQU * HRC001DK 00377540
HRC001DK: L R1,ASYSVM GET ADDRESS OF SYSTEM'S VMBLOK HRC001DK 00377630
HRC001DK: ./ I 00587000 $ 587040 40 02/13/06 07:30:29
HRC001DK: C R1,F8 HRC001DK 00587040
HRC001DK: BNE CHKRECAL HRC001DK 00587080
HRC001DK: CLC =C'RETRIEVE',0(R4) IS IT RETRIEVE HRC001DK 00587200
HRC001DK: BE DORECAL HRC001DK 00587240
HRC001DK: CHKRECAL EQU * HRC001DK 00587280
HRC001DK: C R1,F6 IS IT 'RECALL' ? HRC001DK 00587320
HRC001DK: BNE DCC002 IMPOSSIBLE ... HRC001DK 00587360
HRC001DK: CLC =C'RECALL',0(R4) PERHAPS ... HRC001DK 00587440
HRC001DK: BNE DCC002 DEFINITELY NOT HRC001DK 00587480
HRC001DK: DORECAL EQU * HRC001DK
HRC001DK: XC BUFFER(BUFINLTH+6),BUFFER CLEAR BUFFER DATA HRC001DK 00587520
HRC001DK: ICM R14,15,VMHRCALL RECALL LAST LINE HRC001DK 00587560
HRC001DK: BZ DCC002 NOBODY HOME ? - VANILLA HRC001DK 00587600
HRC001DK: MVC BUFFER(130),1(R14) MOVE LAST LINE TO BUFFERHRC001DK 00587640
HRC001DK: MVC 1(130,R14),130+1(R14) AND HERE WE GO ROUNHRC001DK 00587680
HRC001DK: MVC 130+1(130,R14),130+130+1(R14) THE HRC001DK 00587720
HRC001DK: MVC 130+130+1(130,R14),BUFFER MULBERRY BUSHHRC001DK 00587760
HRC001DK: LR R4,R3 BUFFER ADDRESS TO R4 HRC001DK 00587800
HRC001DK: L R3,=F'130' SIZE OF MSG FOR WRITE HRC001DK 00587840
HRC001DK: OI VMMLVL2,X'01' INDICATE RECALL FUNCTIONHRC001DK 00587880
HRC001DK: B BLD77IDS WRITE TO INPUT AREA HRC001DK 00587920
HRC001DK: DCC002 EQU * VANILLA ESCAPE HATCH HRC001DK 00587960
HRC001DK: ./ R 00869000 $ 869030 30 02/13/06 07:30:29
HRC001DK: DATA77 ICM R1,15,VMHRCALL GET A(RECALL BUFFER) HRC001DK 00869030
HRC001DK: BNZ DCC001 GOTTEN ? - GOOD HRC001DK 00869060
HRC001DK: TM VMRSTAT,VMLOGOFF IS HE LOGGING OFF ? HRC001DK 00869090
HRC001DK: BO DCC013 YES - FORGET IT HRC001DK 00869120
HRC001DK: LA R0,(130*3+8)/8 SIZE OF RECALL BUFFER HRC001DK 00869150
HRC001DK: CALL DMKFREE GET HIM A RECALL BUFFER HRC001DK 00869180
HRC001DK: ST R1,VMHRCALL AND REMEMBER WHERE IT IS HRC001DK 00869210
HRC001DK: MVI 0(R1),0 CLEAR OPTION BYTE HRC001DK 00869240
HRC001DK: MVC 1(130,R1),0(R1) CLEAR HRC001DK 00869270
HRC001DK: MVC 130+1(130,R1),0(R1) THE HRC001DK 00869300
HRC001DK: MVC 130+130+1(130,R1),0(R1) RECALL BUFFER HRC001DK 00869330
HRC001DK: DCC001 TM 0(R1),INHIBIT IS INHIBIT ON ? HRC001DK 00869360
HRC001DK: BO DCC012 YES, WE DONT KEEP PASSWOHRC001DK 00869390
HRC001DK: CLI BUFFER+6,0 NULL LINE ENTERED ? HRC001DK 00869420
HRC001DK: BE DCC012 WE DONT KEEP THOSE EITHEHRC001DK 00869450
HRC001DK: MVC 130+130+1(130,R1),130+1(R1) SHUFFLE LAST 2 LINEHRC001DK 00869480
HRC001DK: MVC 130+1(130,R1),1(R1) BACK A BIT HRC001DK 00869510
HRC001DK: MVC 1(130,R1),BUFFER+6 AND REMEMBER THE NEW ONEHRC001DK 00869540
HRC001DK: DCC012 MVI 0(R1),0 CLEAR OLD OPTION BYTE HRC001DK 00869570
HRC001DK: DCC013 CLI BUFFER+6,X'00' ANY DATA ? @V200730 HRC001DK 00869600
HRC001DK: ./ I 01582000 $ 1582100 100 02/13/06 07:30:29
HRC001DK: TM CONPARM,INHIBIT NON-DISPLAY DATA ?? HRC001DK 01582100
HRC001DK: BNO DCC014 HRC001DK 01582200
HRC001DK: ICM R1,15,VMHRCALL GET A(RECALL BUFFER) HRC001DK 01582300
HRC001DK: BZ *+4+4 NONE, FORGET IT HRC001DK 01582400
HRC001DK: OI 0(R1),INHIBIT DON'T KEEP THIS ONE ... HRC001DK 01582500
HRC001DK: DCC014 TM CONPARM,VMGENIO V.MACH READ ? @V200830 HRC001DK 01582600
BEGIN APPLY >>> ./ R 00377000 $ 377090 90 02/13/06 07:30:29
END APPLY >>> ./ R 00377000 $ 377090 90 02/13/06 07:30:29
BEGIN APPLY >>> ./ I 00587000 $ 587040 40 02/13/06 07:30:29
END APPLY >>> ./ I 00587000 $ 587040 40 02/13/06 07:30:29
BEGIN APPLY >>> ./ R 00869000 $ 869030 30 02/13/06 07:30:29
END APPLY >>> ./ R 00869000 $ 869030 30 02/13/06 07:30:29
BEGIN APPLY >>> ./ I 01582000 $ 1582100 100 02/13/06 07:30:29
END APPLY >>> ./ I 01582000 $ 1582100 100 02/13/06 07:30:29
Update Succeeded
Update Execution Time 39 milliseconds.
HRC029DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ I 00067100 $ 67150 50 02/22/06 10:59:59
HRC029DK: * DMKGRTAC - COUNT OF ENTRIES IN DMKGRTAI HRC029DK 00067150
HRC029DK: ./ I 00211600 $ 211650 50 02/22/06 10:59:59
HRC029DK: EXTRN DMKGRTAC HRC029DK 00211650
HRC029DK: ./ I 00377540 $ 377543 3 02/22/06 10:59:59
HRC029DK: CLI CPUID,X'FF' IS THIS A VIRTUAL MACHINE HRC029DK 00377543
HRC029DK: BNE CHKDISAG NO CONTINUE HRC029DK 00377546
HRC029DK: TM VMSVSTAT,VMLGHOLD WAS THIS A HOLD ? HRC029DK 00377549
HRC029DK: BO CHKDISAG YES, CONTINUE HRC029DK 00377552
HRC029DK: NI VMSVSTAT,X'FF'-VMLGHOLD CLEAR FLAG HRC029DK
HRC029DK: STM R0,R6,TEMPSAVE SAVE REGS TO BE USED HRC029DK 00377555
HRC029DK: LA R0,4 4 DOUBLE WORDS OF STOR HRC029DK 00377558
HRC029DK: CALL DMKFREE GO GET IT HRC029DK 00377561
HRC029DK: LR R3,R1 ADDRESS OF BUFFER HRC029DK 00377564
HRC029DK: CALL DMKSCNRD GET REAL ADDRESS HRC029DK 00377567
HRC029DK: CALL DMKCVTBH CONVERT TO HEX HRC029DK 00377570
HRC029DK: MVC 0(9,R3),=C'RESET CUU' FORMAT COMMAND HRC029DK 00377573
HRC029DK: STCM R1,B'0111',6(R3) ADD UNIT ADDRESS HRC029DK 00377576
HRC029DK: LA R4,16(R3) ADDRESS OF RESPONSE HRC029DK 00377579
HRC029DK: LA R5,9 LENGTH OF COMMAND HRC029DK 00377582
HRC029DK: LA R6,12 LENGTH OF RESPONSE HRC029DK 00377585
HRC029DK: ICM R5,B'1000',=X'40' TELL CP TO RETURN RESPONSE HRC029DK 00377588
HRC029DK: DC X'83350008' GO DO IT HRC029DK 00377591
HRC029DK: LR R1,R3 ADDRESS OF BUFFER HRC029DK 00377594
HRC029DK: LA R0,4 NUMBER OF DWORDS HRC029DK 00377597
HRC029DK: CALL DMKFRET RETURN STORAGE HRC029DK 00377600
HRC029DK: LM R0,R6,TEMPSAVE RESTORE REGS HRC029DK 00377603
HRC029DK: CHKDISAG EQU * HRC029DK 00377606
HRC029DK: ./ R 00855100 $ 855120 20 02/22/06 10:59:59
HRC029DK: L R1,=A(DMKGRTAC) LOAD TABLE ENTRY COUNT ADDRESS HRC029DK 00855120
HRC029DK: LH R0,0(R1) COUNT OF ENTRIES IN AID TABLE HRC029DK 00855140
BEGIN APPLY >>> ./ I 00067100 $ 67150 50 02/22/06 10:59:59
END APPLY >>> ./ I 00067100 $ 67150 50 02/22/06 10:59:59
BEGIN APPLY >>> ./ I 00211600 $ 211650 50 02/22/06 10:59:59
END APPLY >>> ./ I 00211600 $ 211650 50 02/22/06 10:59:59
BEGIN APPLY >>> ./ I 00377540 $ 377543 3 02/22/06 10:59:59
END APPLY >>> ./ I 00377540 $ 377543 3 02/22/06 10:59:59
BEGIN APPLY >>> ./ R 00855100 $ 855120 20 02/22/06 10:59:59
END APPLY >>> ./ R 00855100 $ 855120 20 02/22/06 10:59:59
Update Succeeded
Update Execution Time 39 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00061400 $ 61440 40 03/13/06 10:06:41
HRC101DK: * DMKBOXMD - LIST OF LOGOS MDL 2, 3, 4, 2A HRC101DK 00061440
HRC101DK: ./ R 00211700 $ 211720 20 03/13/06 10:06:41
HRC101DK: EXTRN DMKBOXMD HRC101DK 00211720
HRC101DK: EXTRN DMKGRTDS,DMKGRTFD,DMKGRTFO HRC101DK 00211740
HRC101DK: ./ R 00212000 $ 212490 490 03/13/06 10:06:41
HRC101DK: ENTRY DMKGRFIN,DMKGRFEN,DMKGRFIC,DMKGRFTI HRC101DK 00212490
HRC101DK: ./ R 00242000 $ 242490 490 03/13/06 10:06:41
HRC101DK: B IDLEIOB1 NO, IGNORE AND WAIT FOR DE HRC101DK 00242490
HRC101DK: ./ I 00266000 $ 266300 300 03/13/06 10:06:41
HRC101DK: TM RDEVGRIC,GRAPHAT SHOULD WE GET AN ATTN? HRC101DK 00266300
HRC101DK: BO ATTNINT1 YUP - GOT SET IT UP HRC101DK 00266600
HRC101DK: ./ I 00419000 $ 419300 300 03/13/06 10:06:41
HRC101DK: ATTNINT1 NI RDEVGRIC,255-GRAPHAT TURN ATTN FLAG OFF HRC101DK 00419300
HRC101DK: NI RDEVTFLG,255-RDEVCTL TURN OFF CNTRL FLAG HRC101DK 00419600
HRC101DK: ./ R 00807120 $ 807122 2 03/13/06 10:06:41
HRC101DK: SLR R2,R2 CLEAR PARM REG HRC101DK
HRC101DK: TM VMMLVL2,VMMHLITE HILIGHT REQUESTED? HRC101DK
HRC101DK: BZ CALLQCN1 NO, CONTINUE CALL HRC101DK
HRC101DK: L R2,=A(HILIGHT) SET HILIGHT PARM HRC101DK 00807120
HRC101DK: CALLQCN1 EQU * HRC101DK
HRC101DK: O R2,=A(NOTRESP) SIGNAL NOT A COMMAND RESPONSE HRC101DK 00807120
HRC101DK: ./ R 00940120 $ 940122 2 03/13/06 10:06:41
HRC101DK: SLR R2,R2 CLEAR PARM REG HRC101DK
HRC101DK: TM VMMLVL2,VMMHLITE HILIGHT REQUEST? HRC101DK
HRC101DK: BZ CALLQCN2 NO, CONTINUE HRC101DK
HRC101DK: L R2,=A(HILIGHT) SET PARM HRC101DK
HRC101DK: CALLQCN2 EQU * HRC101DK
HRC101DK: O R2,=A(NOTRESP) SIGNAL NOT A COMMAND RESPONSE HRC101DK 00940120
HRC101DK: ./ R 01060000 $ 1060490 490 03/13/06 10:06:41
HRC101DK: MVC VCONRBSZ,=AL2(BUFSIZE) SIZE OF VIRTUAL BUFFER HRC101DK 01060490
HRC101DK: ./ R 01066000 $ 1066490 490 03/13/06 10:06:41
HRC101DK: BZ TSTHLITE NO, CONT HRC101DK 01066000
HRC101DK: ./ I 01067000 $ 1067100 100 03/13/06 10:06:41
HRC101DK: B SETDATAD HRC101DK
HRC101DK: TSTHLITE DS 0H HRC101DK
HRC101DK: TM VMMLVL2,VMMHLITE HILIGHT REQUESTED ? HRC101DK
HRC101DK: BZ SETDATAD NO, CONTINUE HRC101DK
HRC101DK: O R2,=A(HILIGHT) SET PARM HRC101DK
HRC101DK: SETDATAD DS 0H HRC101DK
HRC101DK: ./ I 01158650 $ 1158720 70 03/13/06 10:06:41
HRC101DK: TM VMMLVL2,VMMHLITE HILIGHT REQUESTED ? HRC101DK
HRC101DK: BZ MCENDRD HRC101DK
HRC101DK: O R2,=A(HILIGHT) SET PARM HRC101DK 01159100
HRC101DK: MCENDRD EQU * HRC101DK
HRC101DK: ./ R 01243000 $ 1243190 190 03/13/06 10:06:41
HRC101DK: SETWNG DS 0H HRC101DK 01243190
HRC101DK: ICM R15,1,VMMORECL LENGTH OF MORE TIME HRC101DK 01243380
HRC101DK: BNZ SETINT LEAVE 10 SECONDS IF NOT THERE HRC101DK 01243570
HRC101DK: LA R15,10 HRC101DK 01243760
HRC101DK: ./ R 01245000 $ 1245490 490 03/13/06 10:06:41
HRC101DK: SETREJ LA R15,3 3 SECOND HOLD HRC101DK 01245490
HRC101DK: ./ R 01247000 01248500 $ 1247190 190 03/13/06 10:06:41
HRC101DK: SETMOR DS 0H HRC101DK 01247190
HRC101DK: ICM R15,1,VMMOREBP LENGTH OF MORE TIME HRC101DK 01247380
HRC101DK: BNZ SETINT LEAVE 50 SECONDS IF NOT THERE HRC101DK 01247570
HRC101DK: LA R15,50 HRC101DK 01247760
HRC101DK: SETINT DS 0H HRC101DK 01247950
HRC101DK: XC TMRVALUE,TMRVALUE CLEARA TMRVALUE HRC101DK 01248140
HRC101DK: STC R15,TMRVALUE+3 STORE TIME HRC101DK 01248330
HRC101DK: LA R15,DMKGRFTI TIMER INTERRUPT RETURN ADDRESS HRC101DK 01248520
HRC101DK: ./ I 01444000 $ 1444300 300 03/13/06 10:06:41
HRC101DK: TM VMMLVL2,VMMNHOLD ALLOWED TO HOLD SCREEN? HRC101DK 01444300
HRC101DK: BO TSTWRITE NO, NEVER HOLD HRC101DK 01444600
HRC101DK: ./ I 01446000 $ 1446500 500 03/13/06 10:06:41
HRC101DK: TSTWRITE DS 0H HRC101DK 01446500
HRC101DK: ./ I 01560000 $ 1560300 300 03/13/06 10:06:41
HRC101DK: TM VMMLVL2,VMMNHOLD ALLOWED TO HOLD? HRC101DK 01560300
HRC101DK: BO CRTMORE NOPE, NEVER HOLD HRC101DK 01560600
HRC101DK: ./ I 01642000 $ 1642200 200 03/13/06 10:06:41
HRC101DK: TM RDEVGRIC,GRAPHAT ATTN PENDING? HRC101DK 01642200
HRC101DK: BO ATTNINT1 YES - GO TAKE CARE OF IT HRC101DK 01642400
HRC101DK: IDLEIOB1 EQU * HRC101DK 01642600
HRC101DK: ./ R 01702000 01713000 $ 1702990 990 03/13/06 10:06:41
HRC101DK: SR R3,R3 HRC101DK 01702990
HRC101DK: IC R3,RDEVGRTY GET THE INDEXED VALUE HRC101DK 01703980
HRC101DK: L R1,=A(DMKBOXMD) HRC101DK 01704970
HRC101DK: L R1,0(R3,R1) GET ADDRESS OF LOGO HRC101DK 01705960
HRC101DK: MVC LOGOSIZE(2),0(R1) HRC101DK 01706950
HRC101DK: LA R1,2(,R1) HRC101DK 01707940
HRC101DK: STCM R1,B'0111',LOGOADDR HRC101DK 01708930
HRC101DK: ./ D 01715000 01717000 03/13/06 10:06:41
HRC101DK: ./ R 01780000 $ 1780010 10 03/13/06 10:06:41
HRC101DK: LOGOADDR EQU FMTLOGO+1,3 HRC101DK 01780010
HRC101DK: LOGOSIZE EQU FMTLOGO+6,2 HRC101DK 01780020
HRC101DK: MODEL2 EQU X'00' SCREEN DISP FOR 3278 MOD 2 IS 00 HRC101DK 01780030
HRC101DK: MODEL3 EQU X'04' SCREEN DISP FOR 3278 MOD 3 IS 04 HRC101DK 01780040
HRC101DK: MODEL4 EQU X'08' SCREEN DISP FOR 3278 MOD 4 IS 08 HRC101DK 01780050
HRC101DK: ./ D 01780200 03/13/06 10:06:41
HRC101DK: ./ R 01827000 $ 1830990 3990 03/13/06 10:06:41
HRC101DK: COPYDWSZ DC A(3848/8,5120/8,6880/8,3200/8) HRC101DK 01830990
BEGIN APPLY >>> ./ R 00061400 $ 61440 40 03/13/06 10:06:41
END APPLY >>> ./ R 00061400 $ 61440 40 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 00211700 $ 211720 20 03/13/06 10:06:41
END APPLY >>> ./ R 00211700 $ 211720 20 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 00212000 $ 212490 490 03/13/06 10:06:41
END APPLY >>> ./ R 00212000 $ 212490 490 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 00242000 $ 242490 490 03/13/06 10:06:41
END APPLY >>> ./ R 00242000 $ 242490 490 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 00266000 $ 266300 300 03/13/06 10:06:41
END APPLY >>> ./ I 00266000 $ 266300 300 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 00419000 $ 419300 300 03/13/06 10:06:41
END APPLY >>> ./ I 00419000 $ 419300 300 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 00807120 $ 807122 2 03/13/06 10:06:41
END APPLY >>> ./ R 00807120 $ 807122 2 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 00940120 $ 940122 2 03/13/06 10:06:41
END APPLY >>> ./ R 00940120 $ 940122 2 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01060000 $ 1060490 490 03/13/06 10:06:41
END APPLY >>> ./ R 01060000 $ 1060490 490 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01066000 $ 1066490 490 03/13/06 10:06:41
END APPLY >>> ./ R 01066000 $ 1066490 490 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01067000 $ 1067100 100 03/13/06 10:06:41
END APPLY >>> ./ I 01067000 $ 1067100 100 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01158650 $ 1158720 70 03/13/06 10:06:41
END APPLY >>> ./ I 01158650 $ 1158720 70 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01243000 $ 1243190 190 03/13/06 10:06:41
END APPLY >>> ./ R 01243000 $ 1243190 190 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01245000 $ 1245490 490 03/13/06 10:06:41
END APPLY >>> ./ R 01245000 $ 1245490 490 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01247000 01248500 $ 1247190 190 03/13/06 10:06:41
END APPLY >>> ./ R 01247000 01248500 $ 1247190 190 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01444000 $ 1444300 300 03/13/06 10:06:41
END APPLY >>> ./ I 01444000 $ 1444300 300 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01446000 $ 1446500 500 03/13/06 10:06:41
END APPLY >>> ./ I 01446000 $ 1446500 500 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01560000 $ 1560300 300 03/13/06 10:06:41
END APPLY >>> ./ I 01560000 $ 1560300 300 03/13/06 10:06:41
BEGIN APPLY >>> ./ I 01642000 $ 1642200 200 03/13/06 10:06:41
END APPLY >>> ./ I 01642000 $ 1642200 200 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01702000 01713000 $ 1702990 990 03/13/06 10:06:41
END APPLY >>> ./ R 01702000 01713000 $ 1702990 990 03/13/06 10:06:41
BEGIN APPLY >>> ./ D 01715000 01717000 03/13/06 10:06:41
END APPLY >>> ./ D 01715000 01717000 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01780000 $ 1780010 10 03/13/06 10:06:41
END APPLY >>> ./ R 01780000 $ 1780010 10 03/13/06 10:06:41
BEGIN APPLY >>> ./ D 01780200 03/13/06 10:06:41
END APPLY >>> ./ D 01780200 03/13/06 10:06:41
BEGIN APPLY >>> ./ R 01827000 $ 1830990 3990 03/13/06 10:06:41
END APPLY >>> ./ R 01827000 $ 1830990 3990 03/13/06 10:06:41
Update Succeeded
Update Execution Time 86 milliseconds.
HRC103DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC103DK: ./ I 00272100 $ 272500 400 03/15/06 13:41:31
HRC103DK: DISCUSR DS 0H HRC103DK
HRC103DK: ./ R 00275000 $ 275090 90 03/15/06 13:41:31
HRC103DK: BNE CONLOGOF YES, FORCE A DISC FOR SECURITY HRC103DK 00275000
HRC103DK: TM IOBSPEC,IOBUNSL ? HRC103DK
HRC103DK: BO ONEIOBLK HRC103DK
HRC103DK: TM RDEVFLAG,RDEVACTV IS THERE ACTIVE I/O? HRC103DK
HRC103DK: BNZ IDLEIOB YES, THERE MUST BE MORE HRC103DK
HRC103DK: ONEIOBLK DS 0H HRC103DK
HRC103DK: ./ R 00281000 $ 281490 490 03/15/06 13:41:31
HRC103DK: BNE DISCUSR YES, THEN DISCONNECT THE USER HRC103DK 00281000
HRC103DK: ./ I 00303600 $ 303640 40 03/15/06 13:41:31
HRC103DK: CLI IOBRCNT+1,1 FIRST ERROR? HRC103DK
HRC103DK: BNE GOFRET1 NO, CONTINUE NORMALLY HRC103DK
HRC103DK: QRYERR01 DS 0H HRC103DK
HRC103DK: BAL R3,FRETIOER HRC103DK
HRC103DK: NI IOBSTAT,X'FF'-IOBFATAL CLEAR THE ERROR FLAG HRC103DK
HRC103DK: NI IOBSPEC,X'FF'-IOBSENS CLEAR THE SENSE FLAG HRC103DK
HRC103DK: B BLD77FMT GO SET A LOGO HRC103DK
HRC103DK: GOFRET1 EQU * HRC103DK 00303600
HRC103DK: ./ R 00370000 $ 370190 190 03/15/06 13:41:31
HRC103DK: CONLOGOF DS 0H HRC103DK
HRC103DK: TM IOBCSW+5,PRGC PROGRAM CHECK HRC103DK
HRC103DK: BO QRYERR01 GO CLEANUP AND EXIT HRC103DK
HRC103DK: CALL DMKQCNCL CANCEL EVERYTHING ON CONSOLE HRC103DK 00370000
BEGIN APPLY >>> ./ I 00272100 $ 272500 400 03/15/06 13:41:31
END APPLY >>> ./ I 00272100 $ 272500 400 03/15/06 13:41:31
BEGIN APPLY >>> ./ R 00275000 $ 275090 90 03/15/06 13:41:31
END APPLY >>> ./ R 00275000 $ 275090 90 03/15/06 13:41:31
BEGIN APPLY >>> ./ R 00281000 $ 281490 490 03/15/06 13:41:31
END APPLY >>> ./ R 00281000 $ 281490 490 03/15/06 13:41:31
BEGIN APPLY >>> ./ I 00303600 $ 303640 40 03/15/06 13:41:31
END APPLY >>> ./ I 00303600 $ 303640 40 03/15/06 13:41:31
BEGIN APPLY >>> ./ R 00370000 $ 370190 190 03/15/06 13:41:31
END APPLY >>> ./ R 00370000 $ 370190 190 03/15/06 13:41:31
Update Succeeded
Update Execution Time 47 milliseconds.
HRC310DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC310DK: ./ * ************* HRC310DK 00001000
HRC310DK: ./ * * HRC310DK 00002000
HRC310DK: ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
HRC310DK: ./ * * HRC310DK 00004000
HRC310DK: ./ * * 3270 ALLOW HILIGHT AND ATTRIBUTES IN DIAG58 OUTPUT HRC310DK 00005000
HRC310DK: ./ * * HRC310DK 00006000
HRC310DK: ./ * ************* HRC310DK 00007000
HRC310DK: ./ I 00211800 $ 00211850 50 HRC310DK 00008000
HRC310DK: EXTRN DMKGRTBF TABLE OF LAST CHARACTERS HRC310DK 00009000
HRC310DK: ./ R 01655600 01655600 $ 01655660 10 HRC310DK 00056000
HRC310DK: MVI CONCCW4+4,WCC0 SET UP WRITE CONTROL CHARACTER HRC310DK 00057000
HRC310DK: ./ R 01669100 01669100 $ 01669105 5 HRC301DK
HRC310DK: LH R2,CONCCW4+8 GET SBA FROM DATA HRC301DK
HRC310DK: CH R2,=X'1DE8' IS THIS A HIGHLIGHT SBA HRC301DK
HRC310DK: BNE BLD77REG NO, CONTINUE HRC301DK
HRC310DK: LTR R3,R3 ON FIRST LINE? HRC310DK 00061000
HRC310DK: BZ BLD77LST YUP, PUT ON LAST LINE HRC310DK 00062000
HRC310DK: L R2,=A(DMKGRTBF) TABLE OF LAST CHARS HRC310DK 00064000
HRC310DK: S R3,F2 BACK UP ONE HRC310DK 00063000
HRC310DK: B BLD77SBA AND INSERT SBA HRC310DK 00065000
HRC310DK: BLD77LST L R2,RDEVGRTB GET THE RIGHT GRT BLOCK HRC310DK 00066000
HRC310DK: LA R3,GRTLAST-GRTBLOK POINT AT THE ADDR'S HRC310DK 00067000
HRC310DK: B BLD77SBA HRC301DK
HRC310DK: BLD77REG EQU * HRC310DK 00068000
HRC310DK: L R2,=A(DMKGRTBL) HRC301DK
HRC310DK: BLD77SBA EQU * HRC301DK
HRC310DK: ./ I 01735900 $ 01735950 50 HRC310DK 00082000
HRC310DK: MVI RDEVKEYC,0 CLEAR LAST INTERRUPT KEY HRC310DK 00083000
HRC310DK: ./ I 01745000 $ 01745100 100 HRC310DK 00084000
HRC310DK: BLD77RST LA R1,RST77CCW CCW ADDRESS HRC310DK 00085000
HRC310DK: B SETCCWS HRC310DK 00086000
HRC310DK: ./ I 02063040 $ 02063045 5 HRC310DK 00087000
HRC310DK: CNC77CCW EQU GRTCNCCP-GRTBLOK HRC310DK 00088000
HRC310DK: ./ I 02063130 $ 02063135 5 HRC310DK 00089000
HRC310DK: RST77CCW EQU GRTRSTCP-GRTBLOK HRC310DK 00090000
BEGIN APPLY >>> ./ * ************* HRC310DK 00001000
Comment >>> ./ * ************* HRC310DK 00001000
END APPLY >>> ./ * ************* HRC310DK 00001000
BEGIN APPLY >>> ./ * * HRC310DK 00002000
Comment >>> ./ * * HRC310DK 00002000
END APPLY >>> ./ * * HRC310DK 00002000
BEGIN APPLY >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
Comment >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
END APPLY >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
BEGIN APPLY >>> ./ * * HRC310DK 00004000
Comment >>> ./ * * HRC310DK 00004000
END APPLY >>> ./ * * HRC310DK 00004000
BEGIN APPLY >>> ./ * * 3270 ALLOW HILIGHT AND ATTRIBUTES IN DIAG58 OUTPUT HRC310DK 00005000
Comment >>> ./ * * 3270 ALLOW HILIGHT AND ATTRIBUTES IN DIAG58 OUTPUT HRC310DK 00005000
END APPLY >>> ./ * * 3270 ALLOW HILIGHT AND ATTRIBUTES IN DIAG58 OUTPUT HRC310DK 00005000
BEGIN APPLY >>> ./ * * HRC310DK 00006000
Comment >>> ./ * * HRC310DK 00006000
END APPLY >>> ./ * * HRC310DK 00006000
BEGIN APPLY >>> ./ * ************* HRC310DK 00007000
Comment >>> ./ * ************* HRC310DK 00007000
END APPLY >>> ./ * ************* HRC310DK 00007000
BEGIN APPLY >>> ./ I 00211800 $ 00211850 50 HRC310DK 00008000
END APPLY >>> ./ I 00211800 $ 00211850 50 HRC310DK 00008000
BEGIN APPLY >>> ./ R 01655600 01655600 $ 01655660 10 HRC310DK 00056000
END APPLY >>> ./ R 01655600 01655600 $ 01655660 10 HRC310DK 00056000
BEGIN APPLY >>> ./ R 01669100 01669100 $ 01669105 5 HRC301DK
END APPLY >>> ./ R 01669100 01669100 $ 01669105 5 HRC301DK
BEGIN APPLY >>> ./ I 01735900 $ 01735950 50 HRC310DK 00082000
END APPLY >>> ./ I 01735900 $ 01735950 50 HRC310DK 00082000
BEGIN APPLY >>> ./ I 01745000 $ 01745100 100 HRC310DK 00084000
END APPLY >>> ./ I 01745000 $ 01745100 100 HRC310DK 00084000
BEGIN APPLY >>> ./ I 02063040 $ 02063045 5 HRC310DK 00087000
END APPLY >>> ./ I 02063040 $ 02063045 5 HRC310DK 00087000
BEGIN APPLY >>> ./ I 02063130 $ 02063135 5 HRC310DK 00089000
END APPLY >>> ./ I 02063130 $ 02063135 5 HRC310DK 00089000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC370DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC370DK: ./ I 01705960 $ 1705970 10 07/13/10 10:06:58
HRC370DK: * If we are running on Hercules-380, then update the "VM/370 HRC370DK 01705970
HRC370DK: * Online" message to say "VM/380 Online". HRC370DK 01705980
HRC370DK: MVC 748(R1,1),INSTWRD1 zap with 7 or 8 from PSA HRC370DK 01705990
HRC370DK: ./ I 01708930 $ 1708940 10 07/13/10 10:06:58
HRC370DK: * We update the "VM/370" message on the logo screen as well. HRC370DK 01708940
HRC370DK: L R1,FMT77CCW get address of big logo screen HRC370DK 01708950
HRC370DK: MVC 8(1,R1),INSTWRD1 zap with 7 or 8 from PSA HRC370DK 01708960
BEGIN APPLY >>> ./ I 01705960 $ 1705970 10 07/13/10 10:06:58
END APPLY >>> ./ I 01705960 $ 1705970 10 07/13/10 10:06:58
BEGIN APPLY >>> ./ I 01708930 $ 1708940 10 07/13/10 10:06:58
END APPLY >>> ./ I 01708930 $ 1708940 10 07/13/10 10:06:58
Update Succeeded
Update Execution Time 23 milliseconds.
HRC058DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC058DK: ./ I 00208100 $ 208110 10
HRC058DK: EXTRN HDKD58TI HRC058DK
HRC058DK: ./ I 00496000 $ 496100 10
HRC058DK: CLD58FUL EQU * HRC058DK 01705970
HRC058DK: NI RDEVSTA3,255-X'01' DIAG 58 OFF HRC058DK 01705970
HRC058DK: OI TRQBFLAG,CRTUSEWA USE ERASE/WRITE CCW HRC058DK
HRC058DK: B GRFCLR AND GO BUILD DISPLAY HRC058DK
HRC058DK: CLD58PA1 EQU * HRC058DK 01705970
HRC058DK: NI RDEVSTA3,255-X'01' DIAG 58 OFF HRC058DK 01705970
HRC058DK: OI TRQBFLAG,CRTUSEWA USE ERASE/WRITE CCW HRC058DK
HRC058DK: LA R1,PA1KEY58 SET RETURN ADDR AFTER CLRHRC058DK
HRC058DK: ST R1,TRQBCRT SET IT IN TRQB HRC058DK
HRC058DK: B GRFCLRT AND GO BUILD CP DISPLAY HRC058DK
HRC058DK: ./ I 00520100 $ 520110 10
HRC058DK: TM RDEVSTA3,X'01' DIAG 58? HRC058DK 01705970
HRC058DK: BO CLD58PA1 YES, RESET DISPLAY FIRST HRC058DK 01705980
HRC058DK: * HRC058DK
HRC058DK: PA1KEY58 EQU * HRC058DK
HRC058DK: ./ I 00855200 $ 855210 10
HRC058DK: TM RDEVSTA3,X'01' DIAG 58? HRC058DK 01705970
HRC058DK: BZ KEYCLC NO HRC058DK 01705980
HRC058DK: CLI BUFFER,X'6C' PA1 KEY? HRC058DK 01705980
HRC058DK: BE CLD58PA1 Y, SET UP FOR IT HRC058DK
HRC058DK: BAL R3,FRETRD FRET BUFFERS HRC058DK
HRC058DK: GOTO HDKD58TI GO HANDLE TERMINAL INTRPTHRC058DK
HRC058DK: ./ I 01480000 $ 1480100 10
HRC058DK: TM RDEVSTA3,X'01' DIAG 58? HRC058DK 01705970
HRC058DK: BO CLD58FUL Y, CLEAR AFTER FULL SCR HRC058DK 01705980
BEGIN APPLY >>> ./ I 00208100 $ 208110 10
END APPLY >>> ./ I 00208100 $ 208110 10
BEGIN APPLY >>> ./ I 00496000 $ 496100 10
END APPLY >>> ./ I 00496000 $ 496100 10
BEGIN APPLY >>> ./ I 00520100 $ 520110 10
END APPLY >>> ./ I 00520100 $ 520110 10
BEGIN APPLY >>> ./ I 00855200 $ 855210 10
END APPLY >>> ./ I 00855200 $ 855210 10
BEGIN APPLY >>> ./ I 01480000 $ 1480100 10
END APPLY >>> ./ I 01480000 $ 1480100 10
Update Succeeded
Update Execution Time 39 milliseconds.
HRC059DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC059DK: ./ D 00208110
HRC059DK: ./ I 00855220 $ 855224 02
HRC059DK: TM VMRSTAT,VMLOGON USER NOT YET LOGGED ON? HRC059DK 01705970
HRC059DK: BO KEYCLCFS Y, LET DMKGRF HANDLE HRC059DK 01705980
HRC059DK: ./ R 00855260 $ 855260
HRC059DK: CALL DMKCFMAT POST ATTN INTRPT TO V.M. HRC059DK
HRC059DK: ./ I 00855260 $ 855280
HRC059DK: BZ NOCTL EXIT IF ATTN IS SET OK HRC059DK
HRC059DK: ./ I 00855300 $ 855500
HRC059DK: KEYCLCFS EQU * NO ATTN SET, OR RECONNECTHRC059DK
HRC059DK: NI RDEVSTA3,255-X'01' EXIT FULL SCREEN MODE HRC059DK
BEGIN APPLY >>> ./ D 00208110
END APPLY >>> ./ D 00208110
BEGIN APPLY >>> ./ I 00855220 $ 855224 02
END APPLY >>> ./ I 00855220 $ 855224 02
BEGIN APPLY >>> ./ R 00855260 $ 855260
END APPLY >>> ./ R 00855260 $ 855260
BEGIN APPLY >>> ./ I 00855260 $ 855280
END APPLY >>> ./ I 00855260 $ 855280
BEGIN APPLY >>> ./ I 00855300 $ 855500
END APPLY >>> ./ I 00855300 $ 855500
Update Succeeded
Update Execution Time 39 milliseconds.
HRC061DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC061DK: ./ I 00425100 $ 00425110 10
HRC061DK: TM RDEVSTA3,X'01' in DIAG58 full screen? HRC061DK
HRC061DK: BO PASSATTN Yes pass attn to v.m. HRC061DK
HRC061DK: ./ I 00855250 $ 00855253 3
HRC061DK: PASSATTN EQU * HRC061DK
HRC061DK: ./ I 00855280 $ 00855285 05
HRC061DK: NI RDEVSTA3,255-X'01' Else exit full screen HRC061DK
HRC061DK: B CTLACTV And let CP handle attn HRC061DK
BEGIN APPLY >>> ./ I 00425100 $ 00425110 10
END APPLY >>> ./ I 00425100 $ 00425110 10
BEGIN APPLY >>> ./ I 00855250 $ 00855253 3
END APPLY >>> ./ I 00855250 $ 00855253 3
BEGIN APPLY >>> ./ I 00855280 $ 00855285 05
END APPLY >>> ./ I 00855280 $ 00855285 05
Update Succeeded
Update Execution Time 23 milliseconds.
HRC062DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC062DK: ./ R 00425110 $ 00425110
HRC062DK: TM RDEVSTA3,RDEVFULL In DIAG58 full screen? HRC062DK
HRC062DK: ./ R 00496110 $ 00496110
HRC062DK: NI RDEVSTA3,255-RDEVFULL Exit full screen mode HRC062DK
HRC062DK: ./ R 00496150 $ 00496150
HRC062DK: NI RDEVSTA3,255-RDEVFULL Exit full screen mode HRC062DK
HRC062DK: ./ R 00520110 $ 00520110
HRC062DK: TM RDEVSTA3,RDEVFULL In DIAG58 full screen? HRC062DK
HRC062DK: ./ R 00855210 $ 00855210
HRC062DK: TM RDEVSTA3,RDEVFULL In DIAG58 full screen? HRC062DK
HRC062DK: ./ R 00855285 $ 00855285
HRC062DK: NI RDEVSTA3,255-RDEVFULL Else exit full screen HRC062DK
HRC062DK: ./ R 00855510 $ 00855510
HRC062DK: NI RDEVSTA3,255-RDEVFULL Exit full screen mode HRC062DK
HRC062DK: ./ R 01480100 $ 01480100
HRC062DK: TM RDEVSTA3,RDEVFULL In DIAG58 full screen? HRC062DK
BEGIN APPLY >>> ./ R 00425110 $ 00425110
END APPLY >>> ./ R 00425110 $ 00425110
BEGIN APPLY >>> ./ R 00496110 $ 00496110
END APPLY >>> ./ R 00496110 $ 00496110
BEGIN APPLY >>> ./ R 00496150 $ 00496150
END APPLY >>> ./ R 00496150 $ 00496150
BEGIN APPLY >>> ./ R 00520110 $ 00520110
END APPLY >>> ./ R 00520110 $ 00520110
BEGIN APPLY >>> ./ R 00855210 $ 00855210
END APPLY >>> ./ R 00855210 $ 00855210
BEGIN APPLY >>> ./ R 00855285 $ 00855285
END APPLY >>> ./ R 00855285 $ 00855285
BEGIN APPLY >>> ./ R 00855510 $ 00855510
END APPLY >>> ./ R 00855510 $ 00855510
BEGIN APPLY >>> ./ R 01480100 $ 01480100
END APPLY >>> ./ R 01480100 $ 01480100
Update Succeeded
Update Execution Time 63 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00218100 $ 00218200 100
HRC065DK: TM IOBRADD,X'80' Is this a LDEV? HRC065DK
HRC065DK: BO LDEV000 Yes HRC065DK
HRC065DK: ./ I 00220000 $ 00220100 050
HRC065DK: B LDEV010 Skip over LDF support HRC065DK
HRC065DK: *
HRC065DK: LDEV000 EQU * HRC065DK
HRC065DK: L R8,INSTWRD1 -> LDEVCTL HRC065DK
HRC065DK: USING LDEVCTL,R8 HRC065DK
HRC065DK: ICM R1,3,IOBRADD Get LDEV number HRC065DK
HRC065DK: N R1,F4095 Keep only the LDEV num HRC065DK
HRC065DK: SLL R1,2 Make into LDEV slot idx HRC065DK
HRC065DK: L R8,LDEVIDX(R1) -> LDEVBLOK for LDEV HRC065DK
HRC065DK: USING RDEVBLOK,R8 Pseudo-RDEVBLOK for LDEVHRC065DK
HRC065DK: * begins at offset 0, HRC065DK
HRC065DK: * e.g., -> R8 HRC065DK
HRC065DK: LDEV010 EQU * HRC065DK
HRC065DK: ./ I 00418220 $ 00418230 5
HRC065DK: TM TRQBDEV-TRQBLOK(R10),X'80' Is this an LDEV? HRC065DK
HRC065DK: BO LDEV100 Yes HRC065DK
HRC065DK: ./ I 00418275 $ 00418278 2
HRC065DK: B LDEV110 Skip over LDF support HRC065DK
HRC065DK: LDEV100 EQU * HRC065DK
HRC065DK: L R8,INSTWRD1 -> LDEVCTL HRC065DK
HRC065DK: USING LDEVCTL,R8 HRC065DK
HRC065DK: ICM R1,3,TRQBDEV-TRQBLOK(R10) Get LDEV number HRC065DK
HRC065DK: N R1,F4095 Keep only the LDEV num HRC065DK
HRC065DK: SLL R1,2 Make into LDEV slot idx HRC065DK
HRC065DK: L R8,LDEVIDX(R1) -> LDEVBLOK for LDEV HRC065DK
HRC065DK: USING RDEVBLOK,R8 Pseudo-RDEVBLOK for LDEVHRC065DK
HRC065DK: LDEV110 EQU * HRC065DK
HRC065DK: ./ I 01355000 $ 01355100 100
HRC065DK: TM RDEVADD,RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BO LDEV200 Yes HRC065DK
HRC065DK: ./ I 01358000 $ 01358100 100
HRC065DK: LDEV200 EQU * HRC065DK
HRC065DK: MVC TRQBDEV,RDEVADD Put LDEV addr in TRQBLOKHRC065DK
HRC065DK: BR R3 Return HRC065DK
HRC065DK: ./ I 01376000 $ 01376100 100
HRC065DK: MVC IOBRADD,RDEVADD Device address to IOB HRC065DK
BEGIN APPLY >>> ./ I 00218100 $ 00218200 100
END APPLY >>> ./ I 00218100 $ 00218200 100
BEGIN APPLY >>> ./ I 00220000 $ 00220100 050
END APPLY >>> ./ I 00220000 $ 00220100 050
BEGIN APPLY >>> ./ I 00418220 $ 00418230 5
END APPLY >>> ./ I 00418220 $ 00418230 5
BEGIN APPLY >>> ./ I 00418275 $ 00418278 2
END APPLY >>> ./ I 00418275 $ 00418278 2
BEGIN APPLY >>> ./ I 01355000 $ 01355100 100
END APPLY >>> ./ I 01355000 $ 01355100 100
BEGIN APPLY >>> ./ I 01358000 $ 01358100 100
END APPLY >>> ./ I 01358000 $ 01358100 100
BEGIN APPLY >>> ./ I 01376000 $ 01376100 100
END APPLY >>> ./ I 01376000 $ 01376100 100
Update Succeeded
Update Execution Time 39 milliseconds.
HRC071DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC071DK: ./ R 01405000 01405000 $ 01405000 100
HRC071DK: BLDCCWS EQU * HRC071DK
HRC071DK: TM RDEVSTA3,RDEVEWRT Erase/write required? HRC071DK
HRC071DK: BO NOFMT Y, skip logo redraw HRC071DK
HRC071DK: TM TRQBFLAG,CRTFMT Screen formatted? HRC071DK
HRC071DK: ./ I 01406000 $ 01406500 10
HRC071DK: NOFMT EQU * HRC071DK
HRC071DK: ./ I 01655700 $ 01655710 10
HRC071DK: TM RDEVSTA3,RDEVEWRT Erase/write required? HRC071DK
HRC071DK: BZ NOEWA No HRC071DK
HRC071DK: NI RDEVSTA3,255-RDEVEWRT Turn off flag HRC071DK
HRC071DK: MVI CONCCW4+4,WCC6 Use unlock WCC HRC071DK
HRC071DK: MVI CONCCW2,EWR Set CCW to Erase Write HRC071DK
HRC071DK: CLI RDEVMDL,X'02' Model num > 2 ? HRC071DK
HRC071DK: BNH NOEWA No, its 2 or less HRC071DK
HRC071DK: MVI CONCCW2,EWA CCW to Erase Write Alt HRC071DK
HRC071DK: NOEWA EQU * HRC071DK
HRC071DK: ./ I 01705960 $ 01705963 2
HRC071DK: SLL R3,2 Multiply index by 4 HRC071DK
HRC071DK: LA R3,FMT77M2(R3) -> CCW for this model # HRC071DK
HRC071DK: ./ R 01706950 $
HRC071DK: MVC 14(2,R3),0(R1) Move logo size to CCW HRC071DK
HRC071DK: ./ R 01708930 $
HRC071DK: STCM R1,7,9(R3) Move logo addr to CCW HRC071DK
HRC071DK: ./ R 01714000 $
HRC071DK: LR R1,R3 R1 -> Final CCW for IOS HRC071DK
HRC071DK: ./ R 01777000 01780020 $ 01777000 200
HRC071DK: FMT77M2 CCW X'01',DMKGRTFD,SILI+CD,24 Model 2 HRC071DK
HRC071DK: CCW X'00',*-*,SILI,792 HRC071DK
HRC071DK: FMT77M3 CCW X'01',DMKGRTFD,SILI+CD,24 Model 3 HRC071DK
HRC071DK: CCW X'00',*-*,SILI,792 HRC071DK
HRC071DK: FMT77M4 CCW X'01',DMKGRTFD,SILI+CD,24 Model 4 HRC071DK
HRC071DK: CCW X'00',*-*,SILI,792 HRC071DK
HRC071DK: FMT77M2A CCW X'01',DMKGRTFD,SILI+CD,24 Model 2A HRC071DK
HRC071DK: CCW X'00',*-*,SILI,792 HRC071DK
HRC071DK: FMT77CCW EQU FMT77M2 HRC071DK
BEGIN APPLY >>> ./ R 01405000 01405000 $ 01405000 100
END APPLY >>> ./ R 01405000 01405000 $ 01405000 100
BEGIN APPLY >>> ./ I 01406000 $ 01406500 10
END APPLY >>> ./ I 01406000 $ 01406500 10
BEGIN APPLY >>> ./ I 01655700 $ 01655710 10
END APPLY >>> ./ I 01655700 $ 01655710 10
BEGIN APPLY >>> ./ I 01705960 $ 01705963 2
END APPLY >>> ./ I 01705960 $ 01705963 2
BEGIN APPLY >>> ./ R 01706950 $
END APPLY >>> ./ R 01706950 $
BEGIN APPLY >>> ./ R 01708930 $
END APPLY >>> ./ R 01708930 $
BEGIN APPLY >>> ./ R 01714000 $
END APPLY >>> ./ R 01714000 $
BEGIN APPLY >>> ./ R 01777000 01780020 $ 01777000 200
END APPLY >>> ./ R 01777000 01780020 $ 01777000 200
Update Succeeded
Update Execution Time 39 milliseconds.
HRC072DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC072DK: ./ I 00208100 $ 00208150 10
HRC072DK: EXTRN HDKD8CEN Issue READ PARTITION QRYHRC072DK
HRC072DK: ./ I 01202100 $ 01202130 10
HRC072DK: TM RDEVGRIC,RDEVERPQ Device eligible for RPQ?HRC072DK
HRC072DK: BZ NORPQ No HRC072DK
HRC072DK: CALL HDKD8CEN Go issue RPQ sequence HRC072DK
HRC072DK: NORPQ EQU * HRC072DK
HRC072DK: ./ I 02057000 $ 02057500 10
HRC072DK: RDEVKEYC DS 0X Dummy field to accommodate whether HRC101DK HRC072DK
HRC072DK: * is present or not. HRC072DK
HRC072DK: ./ * 01735950
BEGIN APPLY >>> ./ I 00208100 $ 00208150 10
END APPLY >>> ./ I 00208100 $ 00208150 10
BEGIN APPLY >>> ./ I 01202100 $ 01202130 10
END APPLY >>> ./ I 01202100 $ 01202130 10
BEGIN APPLY >>> ./ I 02057000 $ 02057500 10
END APPLY >>> ./ I 02057000 $ 02057500 10
BEGIN APPLY >>> ./ * 01735950
Comment >>> ./ * 01735950
END APPLY >>> ./ * 01735950
Update Succeeded
Update Execution Time 31 milliseconds.
HRC073DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC073DK: ./ I 00208150 $ 00208250 100
HRC073DK: EXTRN DMKGRTCL,DMKGRTCF HRC073DK
HRC073DK: ./ R 01482000 01484000 $ 01482000 200
HRC073DK: SLR R15,R15 GET CURRENT OUTPUT LINE HRC073DK
HRC073DK: IC R15,RDEVCORD PICK UP CURRENT LINE.... HRC073DK
HRC073DK: SR R14,R14 CLEAR HRC073DK
HRC073DK: SR R4,R4 CLEAR HRC073DK
HRC073DK: IC R4,RDEVLLEN GET LINE LENGTH HRC073DK
HRC073DK: MR R14,R4 CONVERT TO BYTE COORDINATES HRC073DK
HRC073DK: LR R4,R15 COORDINATES TO R4 HRC073DK
HRC073DK: ./ I 01492000 $ 01492200 200
HRC073DK: SLR R15,R15 CLEAR FOR IC HRC073DK
HRC073DK: IC R15,RDEVLLEN GET LINE LENGTH HRC073DK
HRC073DK: LR R14,R15 COPY HRC073DK
HRC073DK: BCTR R14,0 LINE LEN LESS 1 FOR ROUND UP HRC073DK
HRC073DK: ./ R 01493000 01494000 $ 01493000 1000
HRC073DK: ALR R1,R14 ROUND UP TO NEXT LINE HRC073DK
HRC073DK: DR R0,R15 DIVIDE TO GET NUMBER OF LINES HRC073DK
HRC073DK: ./ R 01669200 01669200 $ 01669200 50
HRC073DK: * The following code thru label NOTMD5 allows this update to HRC073DK
HRC073DK: * be applied and operate correctly with or without the HRC073DK
HRC073DK: * presence of modification HRC310DK. HRC073DK
HRC073DK: CLI RDEVMDL,X'05' IS THIS A 3278-5? HRC073DK
HRC073DK: BNE NOTMD5 NO; NO SPECIAL PROCESSING HRC073DK
HRC073DK: C R2,=V(DMKGRTBF) USING 'LAST CHAR' TABLE? HRC073DK
HRC073DK: BE MD5LAST YES, SWITCH IT TO MOD 5 VERSION HRC073DK
HRC073DK: C R2,=A(DMKGRTBL) USING NORMAL SBA TABLE? HRC073DK
HRC073DK: BNE NOTMD5 NO; NO FURTHER ACTION REQUIRED HRC073DK
HRC073DK: L R2,=A(DMKGRTCL) USE MODEL 5 'NORMAL' SBA TABLE HRC073DK
HRC073DK: B NOTMD5 REJOIN ORIGINAL CODE HRC073DK
HRC073DK: MD5LAST EQU * HRC073DK
HRC073DK: L R2,=A(DMKGRTCF) USE MODEL 5 'LAST CHAR' TABLE HRC073DK
HRC073DK: NOTMD5 EQU * HRC073DK
HRC073DK: LH R3,0(R2,R3) LOAD CORRECT EBCDIC DATA @VA60A6B6 HRC073DK
HRC073DK: ./ I 01778400 $ 01778500 10
HRC073DK: FMT77M5 CCW X'01',DMKGRTFD,SILI+CD,24 Model 5 HRC073DK
HRC073DK: CCW X'00',*-*,SILI,792 HRC073DK
BEGIN APPLY >>> ./ I 00208150 $ 00208250 100
END APPLY >>> ./ I 00208150 $ 00208250 100
BEGIN APPLY >>> ./ R 01482000 01484000 $ 01482000 200
END APPLY >>> ./ R 01482000 01484000 $ 01482000 200
BEGIN APPLY >>> ./ I 01492000 $ 01492200 200
END APPLY >>> ./ I 01492000 $ 01492200 200
BEGIN APPLY >>> ./ R 01493000 01494000 $ 01493000 1000
END APPLY >>> ./ R 01493000 01494000 $ 01493000 1000
BEGIN APPLY >>> ./ R 01669200 01669200 $ 01669200 50
END APPLY >>> ./ R 01669200 01669200 $ 01669200 50
BEGIN APPLY >>> ./ I 01778400 $ 01778500 10
END APPLY >>> ./ I 01778400 $ 01778500 10
Update Succeeded
Update Execution Time 31 milliseconds.