ibm:vm370-lib:cp:dmkgrf.assemble_hst
Table of Contents
DMKGRF History
References
- Fixes Applied : 34
- Latest Source Date : Wednesday, January 17, 1979
- 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.
ibm/vm370-lib/cp/dmkgrf.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator