DMKRGA History
References
-
-
Fixes Applied : 29
-
Last Fix ID : [HRC101DK]
Update History
CMS File Input : DMKRGA ASSEMBLE
Date : 12/7/1978 5:13:00 PM
VM Context : MAINT(394)
File Name : DMKRGA.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R08850DK 601 COPY COMMAND DOES NOT WORK WITH REMOTE 3270
R09123DK 601 PE V08730
R09296DK 601 REASSEMBLE FOR V09296
R09031DK 602 CORRECT BAD BRANCH + UNNEEDED CODE REMOVED
R09168DK 602 PROVIDE ENTRY IN KEYTBLP FOR TESTREQ KEY PROCESSING
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R08995DK 606 ABENDRGA001 WHEN UNIT EXCEPTION ON WRITE TEXT
R09459DK 607 REDEFINE NOMC PARM TO AVOID CONFLICT WITH FSS PARMS
R09444DK 610 DATA NOT TRANSLATED IF TERM MODE TEXT AND #CP ENTERED
R10217DK 610 CNCL(PA2) TERM MODE CP AND HOLDING STATUS DOESN'T GIVE RC=8
R10513DK 610 WACK RESPONSE FROM D/T3271 CAUSES LINE TIMEOUT
R10521DK 610 RVI SENT FROM TCU IS RECEIVING GARBLED
EOT FROM 3270 CU
R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
R11299DK 612 D/T3275 COPY TO D/T3284 WACK ENQ LOOP AFTER ERROR
R09707DK 614 UV00769 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R11623DK 618 UV01795 NET SHUTDOWN CMD ALLOWS OTHER NET CMDS TO EXECUTE
R11787DK 618 UV02014 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R11899DK 618 UV02094 ABENDPRG005 AFTER APAR VM11299 IF LACK RESPONSE
R12636DK 619 UV03707 MONITOR CALL NOT DONE IF CP READ, VM READ
R13084DK 621 UV04406 BSC LINE TIME OUT DURING RVI OPERATION
R13071DK 621 UV04292 LOK001 AFTER UNSOLICITED IFCC DURING LOGON
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13123DK 623 UV04823 SPLIT DMKRGA INTO DMKRGF AND DMKRGA
R13518DK 623 UV05138 ABENDPTR007 ENABLING REMOTE 3275 THAT DOESN'T EXIST
R13944DK 625 UV05417 BISYNC ERROR RECOVERY IS NOT CORRECT
R11660DK 625 UV01816 PE VM10521 RVI CAN STILL BE SENT IF GARBLED
EOT R12356DK 627 UV03106 ENQ-ACK0 LOOP FOLLOWING WACK RESPONSE
HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
R08850DK
Date Wednesday Dec 20, 1978 11:21:00 AM
Loaded from MAINT(294)
R08850DK: ./ R 2377000 $ 2377500 00001000
R08850DK: COPY3277 DC AL1(X'7B',X'40') @VA08850 00002000
BEGIN APPLY >>> ./ R 2377000 $ 2377500 00001000
END APPLY >>> ./ R 2377000 $ 2377500 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09123DK
Date Wednesday Dec 20, 1978 12:13:00 PM
Loaded from MAINT(294)
R09123DK: ./ I 1782300 $ 1782320 20 00001000
R09123DK: L R1,IOBCAW RE-LOAD CCW ADDRESS @VA09123 00002000
BEGIN APPLY >>> ./ I 1782300 $ 1782320 20 00001000
END APPLY >>> ./ I 1782300 $ 1782320 20 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09296DK
Date Monday Jan 29, 1979 02:39:00 PM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09031DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R09031DK: ./ R 665000 $ 665010 00001000
R09031DK: L R7,=A(DMKTBMZI) TRANSLATE COMPOUND CHARACTERS @VA09031 00002000
R09031DK: ./ R 665300 $ 665310 00003000
R09031DK: L R7,=A(DMKTBMTI) TRANSLATE TEXT COMPOUND CHAR. @VA09031 00004000
R09031DK: ./ D 666100 $ 00005000
R09031DK: ./ R 1928700 $ 1928710 100 00006000
R09031DK: BAL R3,SELECTCW GO RESELECT TUBE @VA09031 00007000
R09031DK: B RESTART GO RESTART I/O TO LINE @VA09031 00008000
BEGIN APPLY >>> ./ R 665000 $ 665010 00001000
END APPLY >>> ./ R 665000 $ 665010 00001000
BEGIN APPLY >>> ./ R 665300 $ 665310 00003000
END APPLY >>> ./ R 665300 $ 665310 00003000
BEGIN APPLY >>> ./ D 666100 $ 00005000
END APPLY >>> ./ D 666100 $ 00005000
BEGIN APPLY >>> ./ R 1928700 $ 1928710 100 00006000
END APPLY >>> ./ R 1928700 $ 1928710 100 00006000
Update Succeeded
Update Execution Time 39 milliseconds.
R09168DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R09168DK: ./ I 2508000 $ 2508500 00001000
R09168DK: DC A(TESTREQ) 1C @VA09168 00002000
BEGIN APPLY >>> ./ I 2508000 $ 2508500 00001000
END APPLY >>> ./ I 2508000 $ 2508500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R08995DK
Date Friday Nov 02, 1979 04:11:00 AM
Loaded from MAINT(294)
R08995DK: ./ R 01782400 $ 01782400 00001000
R08995DK: CLI 5(R1),X'0A' IS THIS A WRITE TEXT OPERATION @VA08995 00002000
R08995DK: ./ R 2364100 $ 2364100 00003000
R08995DK: WRT77CCW DC X'01',AL3(0),AL1(SILI+CC,X'0A'),AL2(0) @VA08995 00004000
R08995DK: ./ R 2373000 2374000 $ 2373000 1000 00005000
R08995DK: WIN77CCW DC X'01',AL3(0),AL1(SILI+CD,X'0A'),AL2(WIN77DL+3) @VA08995 00006000
R08995DK: DC X'00',AL3(0),AL1(SILI+CC,X'0A'),AL2(0) @VA08995 00007000
BEGIN APPLY >>> ./ R 01782400 $ 01782400 00001000
END APPLY >>> ./ R 01782400 $ 01782400 00001000
BEGIN APPLY >>> ./ R 2364100 $ 2364100 00003000
END APPLY >>> ./ R 2364100 $ 2364100 00003000
BEGIN APPLY >>> ./ R 2373000 2374000 $ 2373000 1000 00005000
END APPLY >>> ./ R 2373000 2374000 $ 2373000 1000 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
R09459DK
Date Friday Nov 30, 1979 09:10:00 AM
Loaded from MAINT(294)
R09459DK: ./ R 2479500 $ 2479500 00001000
R09459DK: NOMC DC X'10' DON'T ALLOW MONITOR CALL @VA09459 00002000
BEGIN APPLY >>> ./ R 2479500 $ 2479500 00001000
END APPLY >>> ./ R 2479500 $ 2479500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09444DK
Date Thursday Mar 06, 1980 11:21:00 AM
Loaded from MAINT(294)
R09444DK: ./ I 0912000 $ 0912100 100 00006000
R09444DK: L R1,NICUSER USER VMBLOK ADDRESS @VA09444
R09444DK: TM VMOSTAT-VMBLOK(R1),VMCF IN CP READ?? @VA09444 00007000
R09444DK: BO RDATA2 YES, EDIT THIS LINE @VA09444 00008000
R09444DK: TM VMMLEVEL-VMBLOK(R1),VMMCPENV TERM MODE CP??? @VA09444 00009000
R09444DK: BZ RDATA2 NO, MUST BE VMREAD @VA09444 00010000
R09444DK: ./ I 0913200 $ 0913300 100 00030000
R09444DK: RDATA2 DS 0H INSURE EDIT OF CP INPUT @VA09444 00031000
R09444DK: ./ R 0924000 $ 0924100 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 0912000 $ 0912100 100 00006000
END APPLY >>> ./ I 0912000 $ 0912100 100 00006000
BEGIN APPLY >>> ./ I 0913200 $ 0913300 100 00030000
END APPLY >>> ./ I 0913200 $ 0913300 100 00030000
BEGIN APPLY >>> ./ R 0924000 $ 0924100 50
END APPLY >>> ./ R 0924000 $ 0924100 50
Update Succeeded
Update Execution Time 31 milliseconds.
R10217DK
Date Friday Mar 14, 1980 03:14:00 AM
Loaded from MAINT(294)
R10217DK: ./ R 01046100 01046300 $ 01046310 10 00001000
R10217DK: * CNCL(PA2) KEY WITH TERM MODE CP AND IN HOLDING STATUS
R10217DK: * CLEARS THE SCREEN AND GIVES RETURN CODE 8
BEGIN APPLY >>> ./ R 01046100 01046300 $ 01046310 10 00001000
END APPLY >>> ./ R 01046100 01046300 $ 01046310 10 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10513DK
Date Friday Mar 14, 1980 12:14:00 PM
Loaded from MAINT(294)
R10513DK: ./ R 1429100 $ 1429200 00001000
R10513DK: BAL R7,RESEOT RESET BISYNC TO CONTROL MODE @VA10513 00002000
BEGIN APPLY >>> ./ R 1429100 $ 1429200 00001000
END APPLY >>> ./ R 1429100 $ 1429200 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10521DK
Date Friday Mar 14, 1980 01:29:00 AM
Loaded from MAINT(294)
R10521DK: ./ I 458400 $ 458410 10 00001000
R10521DK: TM BSCFLAG,BSCRVI WAS EOT EXPECTED? @VA10521 00002000
R10521DK: BO ISRVI YES, GO ISSUE SPECIFIC POLL @VA10521 00003000
BEGIN APPLY >>> ./ I 458400 $ 458410 10 00001000
END APPLY >>> ./ I 458400 $ 458410 10 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.
R11299DK
Date Monday May 05, 1980 04:21:00 AM
Loaded from MAINT(294)
R11299DK: ./ R 473000 $ 473100 00001000
R11299DK: BAL R3,SELECTCW GO RESTART ADDRESSING SEQUENCE @VA11299 00002000
BEGIN APPLY >>> ./ R 473000 $ 473100 00001000
END APPLY >>> ./ R 473000 $ 473100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09707DK
Date Wednesday Jul 02, 1980 03:34:00 PM
Loaded from MAINT(294)
R09707DK: ./ I 896100 $ 896120 20 00001000
R09707DK: L R7,NICQPNT 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: ./ I 899000 $ 899100 00011000
R09707DK: NOATT DS 0H @VA09707 00012000
R09707DK: ./ R 979350 980100 $ 979400 1000 00013000
R09707DK: BNO BYPWRITS SET UP SCREEN STATUS @VA09707 00014000
R09707DK: MVI CONLABEL,RTNCPNAT RETURN TO GET SCREEN STATUS @VA09707 00015000
R09707DK: ./ R 2335000 $ 2335100 00016000
R09707DK: VM370 DC CL2'VM' CONSTANT FOR WRITING 'VM READ' @VA09707 00017000
BEGIN APPLY >>> ./ I 896100 $ 896120 20 00001000
END APPLY >>> ./ I 896100 $ 896120 20 00001000
BEGIN APPLY >>> ./ I 899000 $ 899100 00011000
END APPLY >>> ./ I 899000 $ 899100 00011000
BEGIN APPLY >>> ./ R 979350 980100 $ 979400 1000 00013000
END APPLY >>> ./ R 979350 980100 $ 979400 1000 00013000
BEGIN APPLY >>> ./ R 2335000 $ 2335100 00016000
END APPLY >>> ./ R 2335000 $ 2335100 00016000
Update Succeeded
Update Execution Time 39 milliseconds.
R11623DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11623DK: ./ I 1411000 $ 1411050 50 00001000
R11623DK: NI BSCFLAG1,X'FF'-BSCSHUT TURN OFF SHUTDOWN FLAG @VA11623 00003000
BEGIN APPLY >>> ./ I 1411000 $ 1411050 50 00001000
END APPLY >>> ./ I 1411000 $ 1411050 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11787DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11787DK: ./ D 896120 896280 00001000
R11787DK: ./ D 899100 00002000
R11787DK: ./ R 979400 980400 $ 979350 200 00003000
R11787DK: BO DIAG IF SO, BRANCH @VA11787 00004000
R11787DK: B BYPWRITS SET UP SCREEN STATUS @VA11787 00005000
R11787DK: DIAG MVI CONLABEL,RTNCPNAT RET. TO RITE STAT SECTION @VA11787 00006000
BEGIN APPLY >>> ./ D 896120 896280 00001000
END APPLY >>> ./ D 896120 896280 00001000
BEGIN APPLY >>> ./ D 899100 00002000
END APPLY >>> ./ D 899100 00002000
BEGIN APPLY >>> ./ R 979400 980400 $ 979350 200 00003000
END APPLY >>> ./ R 979400 980400 $ 979350 200 00003000
Update Succeeded
Update Execution Time 31 milliseconds.
R11899DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11899DK: ./ I 473100 $ 473200 00001000
R11899DK: BAL R7,RESTART GO RESTART I/O OPERATION TO LINE @VA11899 00002000
BEGIN APPLY >>> ./ I 473100 $ 473200 00001000
END APPLY >>> ./ I 473100 $ 473200 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R12636DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12636DK: ./ I 910000 $ 910100 100 00001000
R12636DK: MC MNCOERD,MNCLRESP RESPONSE CLASS, END READ @VA12636 00002000
BEGIN APPLY >>> ./ I 910000 $ 910100 100 00001000
END APPLY >>> ./ I 910000 $ 910100 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R13084DK
Date Wednesday Jun 03, 1981 05:08:00 AM
Loaded from MAINT(294)
R13084DK: ./ R 01433000 $ 1433000 300 04/13/81 13:34:04
R13084DK: TM BSCFLAG,BSCRVI POSSIBLY GARBLED EOT ON RVI? @VA13084 01433000
R13084DK: BO CORRACK NORMAL PROCESSING IF RVI @VA13084 01433300
R13084DK: * OTHERWISE, RETRANSMIT REPLY 01433600
BEGIN APPLY >>> ./ R 01433000 $ 1433000 300 04/13/81 13:34:04
END APPLY >>> ./ R 01433000 $ 1433000 300 04/13/81 13:34:04
Update Succeeded
Update Execution Time 31 milliseconds.
R13071DK
Date Wednesday Jun 03, 1981 05:27:00 AM
Loaded from MAINT(294)
R13071DK: ./ R 613000 $ 613100 100 00001000
R13071DK: LA R0,TRQBSIZE+CRTEXT GET SIZE OF TRQBLOK @VA13071 00002000
R13071DK: ./ R 1397000 $ 1397100 100 00003000
R13071DK: LA R0,TRQBSIZE+CRTEXT GET SIZE OF TRQBLOK @VA13071 00004000
R13071DK: ./ R 1979000 $ 1979100 100 00005000
R13071DK: LA R0,TRQBSIZE+CRTEXT GET SIZE OF TRQBLOK @VA13071 00006000
R13071DK: ./ R 1982000 $ 1982100 100 00007000
R13071DK: XC TRQBLOK(TRQBSIZE*8+CRTEXTSZ),TRQBLOK CLR TRQ+EXT@VA13071 00008000
R13071DK: ./ R 2119000 $ 2119100 100 00009000
R13071DK: LA R0,TRQBSIZE+CRTEXT GET SIZE OF TRQBLOK @VA13071 00010000
R13071DK: ./ D 2553000 2557000 00011000
BEGIN APPLY >>> ./ R 613000 $ 613100 100 00001000
END APPLY >>> ./ R 613000 $ 613100 100 00001000
BEGIN APPLY >>> ./ R 1397000 $ 1397100 100 00003000
END APPLY >>> ./ R 1397000 $ 1397100 100 00003000
BEGIN APPLY >>> ./ R 1979000 $ 1979100 100 00005000
END APPLY >>> ./ R 1979000 $ 1979100 100 00005000
BEGIN APPLY >>> ./ R 1982000 $ 1982100 100 00007000
END APPLY >>> ./ R 1982000 $ 1982100 100 00007000
BEGIN APPLY >>> ./ R 2119000 $ 2119100 100 00009000
END APPLY >>> ./ R 2119000 $ 2119100 100 00009000
BEGIN APPLY >>> ./ D 2553000 2557000 00011000
END APPLY >>> ./ D 2553000 2557000 00011000
Update Succeeded
Update Execution Time 39 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:35:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R13123DK
Date Friday Aug 07, 1981 06:29:00 AM
Loaded from MAINT(294)
R13123DK: ./ R 00042000 $ 42000 500 03/26/81 16:27:22
R13123DK: EXTRN DMKRGFEN @VA13123 00041950
R13123DK: SPACE 1 @VA13123 00042000
R13123DK: ./ R 00044000 $ 44000 500 03/26/81 16:27:22
R13123DK: ENTRY DMKRGACR @VA13123 00043900
R13123DK: EJECT , @VA13123 00044000
R13123DK: ./ R 00627500 00701000 $ 627500 10000 03/26/81 16:27:22
R13123DK: LA R14,NDXRGFFN PASS ENTRY BRANCH TABLE OFFSET @VA13123 00627500
R13123DK: GOTO DMKRGFEN GO HANDLE THE INPUT DATA @VA13123 00637500
R13123DK: SPACE 1 @VA13123 00647500
R13123DK: SECOND EQU * FIND COMPOUND CHARACTERS @VA13123 00657500
R13123DK: LA R14,NDXRGF02 PASS ENTRY INDEX @VA13123 00667500
R13123DK: GOTO DMKRGFEN GO HANDLE THE INPUT DATA @VA13123 00677500
R13123DK: SPACE 1 @VA13123 00687500
R13123DK: ./ R 00703000 00714000 $ 703000 3000 03/26/81 16:27:22
R13123DK: LA R14,NDXRGFCC PASS ENTRY INDEX @VA13123 00703000
R13123DK: GOTO DMKRGFEN GO CHECK KEY @VA13123 00706000
R13123DK: SPACE 1 @VA13123 00709000
R13123DK: NOTKEY DS 0H @VA13123 00712000
R13123DK: ./ D 00720000 00763000 03/26/81 16:27:22
R13123DK: ./ R 00765000 00792000 $ 765000 800 03/26/81 16:27:22
R13123DK: LA R14,NDXRGFDC PASS ENTRY INDEX @VA13123 00765000
R13123DK: GOTO DMKRGFEN GO CHECK KEY @VA13123 00765800
R13123DK: SPACE 1 @VA13123 00766600
R13123DK: DMKRGACR DS 0H VALIDATE VECTOR OFFSET @VA13123 00767400
R13123DK: LTR R14,R14 POSITIVE REGISTER? @VA13123 00768200
R13123DK: BNM RGACRTN1 YES - GO COMPLETE VALIDATE @VA13123 00769000
R13123DK: ABEND 3 GO DIE @VA13123 00769800
R13123DK: RGACRTN1 DS 0H @VA13123 00770600
R13123DK: CLM R14,B'1111',VECTBLST VALID OFFSET? @VA13123 00771400
R13123DK: BL VECTBLGC(R14) YES - GO TO INDICATED ROUTINE @VA13123 00772200
R13123DK: B RGA3 GO DIE @VA13123 00773000
R13123DK: VECTBLGC DS 0H VECTOR TABLE USED ON RETURN FROM @VA13123*00773800
R13123DK: DMKRGF @VA13123 00774600
R13123DK: B EDNULL @VA13123 00775400
R13123DK: B RVIRESP @VA13123 00776200
R13123DK: B LOGUSER @VA13123 00777000
R13123DK: B CLRKEY @VA13123 00777800
R13123DK: B PA1KEY @VA13123 00778600
R13123DK: B PA3KEY @VA13123 00779400
R13123DK: B PFKEY @VA13123 00780200
R13123DK: B CNCLKEY @VA13123 00781000
R13123DK: B TESTREQ @VA13123 00781800
R13123DK: B CRTMOR @VA13123 00782600
R13123DK: B POSTINT @VA13123 00783400
R13123DK: B SETHOLD1 @VA13123 00784200
R13123DK: B NOTKEY @VA13123 00785000
R13123DK: B RDRTN @VA13123 00785800
R13123DK: B RDATA @VA13123 00786600
R13123DK: B CFMBK @VA13123 00787400
R13123DK: B VIRTBUFF @VA13123 00788200
R13123DK: B TESTCF @VA13123 00789000
R13123DK: VECTBLST DC AL4(*-VECTBLGC) VECTOR TABLE SIZE FOR COMPARE @VA13123 00789800
R13123DK: SPACE 1 @VA13123 00790600
R13123DK: ./ R 00798000 00806000 $ 798000 9000 03/26/81 16:27:22
R13123DK: SETHOLD1 DS 0H @VA13123 00798000
R13123DK: ./ I 01148000 $ 1148500 500 03/26/81 16:27:22
R13123DK: USING BUFFER,R3 ADDRESSABILITY FOR READ BUFFER @VA13123 01148500
R13123DK: ./ D 01641000 01652000
R13123DK: ./ R 01887000 01906000 $ 1887000 20000 03/26/81 16:27:22
R13123DK: SPACE 2 @VA13123 01887000
R13123DK: ./ D 02323000 03/26/81 16:27:22
R13123DK: ./ R 02502000 $ 2502000 1000 03/26/81 16:27:22
R13123DK: KEYTBLP DC A(RGA3) 00 INPUT DATA INVALID @VA13123 02502000
R13123DK: ./ R 02506000 $ 2506000 1000 03/26/81 16:27:22
R13123DK: DC A(RGA3) 10 CARD READER INVALID @VA13123 02506000
R13123DK: ./ I 02509000 $ 2509100 100 03/26/81 16:27:22
R13123DK: NDXRGFFN EQU X'00' PROCESS INPUT DATA @VA13123 02509100
R13123DK: NDXRGF02 EQU X'04' PROCESS DATA IN BUFFER @VA13123 02509200
R13123DK: NDXRGFCC EQU X'08' GO DETERMINE ENTRY KEY @VA13123 02509300
R13123DK: NDXRGFDC EQU X'0C' GO PROCESS INPUT DATA @VA13123 02509400
R13123DK: SPACE 1 @VA13123 02509500
BEGIN APPLY >>> ./ R 00042000 $ 42000 500 03/26/81 16:27:22
END APPLY >>> ./ R 00042000 $ 42000 500 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 00044000 $ 44000 500 03/26/81 16:27:22
END APPLY >>> ./ R 00044000 $ 44000 500 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 00627500 00701000 $ 627500 10000 03/26/81 16:27:22
END APPLY >>> ./ R 00627500 00701000 $ 627500 10000 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 00703000 00714000 $ 703000 3000 03/26/81 16:27:22
END APPLY >>> ./ R 00703000 00714000 $ 703000 3000 03/26/81 16:27:22
BEGIN APPLY >>> ./ D 00720000 00763000 03/26/81 16:27:22
END APPLY >>> ./ D 00720000 00763000 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 00765000 00792000 $ 765000 800 03/26/81 16:27:22
END APPLY >>> ./ R 00765000 00792000 $ 765000 800 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 00798000 00806000 $ 798000 9000 03/26/81 16:27:22
END APPLY >>> ./ R 00798000 00806000 $ 798000 9000 03/26/81 16:27:22
BEGIN APPLY >>> ./ I 01148000 $ 1148500 500 03/26/81 16:27:22
END APPLY >>> ./ I 01148000 $ 1148500 500 03/26/81 16:27:22
BEGIN APPLY >>> ./ D 01641000 01652000
END APPLY >>> ./ D 01641000 01652000
BEGIN APPLY >>> ./ R 01887000 01906000 $ 1887000 20000 03/26/81 16:27:22
END APPLY >>> ./ R 01887000 01906000 $ 1887000 20000 03/26/81 16:27:22
BEGIN APPLY >>> ./ D 02323000 03/26/81 16:27:22
END APPLY >>> ./ D 02323000 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 02502000 $ 2502000 1000 03/26/81 16:27:22
END APPLY >>> ./ R 02502000 $ 2502000 1000 03/26/81 16:27:22
BEGIN APPLY >>> ./ R 02506000 $ 2506000 1000 03/26/81 16:27:22
END APPLY >>> ./ R 02506000 $ 2506000 1000 03/26/81 16:27:22
BEGIN APPLY >>> ./ I 02509000 $ 2509100 100 03/26/81 16:27:22
END APPLY >>> ./ I 02509000 $ 2509100 100 03/26/81 16:27:22
Update Succeeded
Update Execution Time 86 milliseconds.
R13518DK
Date Thursday Aug 27, 1981 08:07:00 AM
Loaded from MAINT(294)
R13518DK: ./ R 01379160 $ 1379160 40 06/29/81 14:02:25
R13518DK: BO FATALERA YES, SEE IF CMD REJECT ON DISABLE@VA13518 01379170
R13518DK: ./ I 01379320 $ 1379340 20 06/29/81 14:02:25
R13518DK: MVI IOBMISC2+3,NONE CLEAR POTENTIAL CMD REJECT FLAG @VA13518
R13518DK: ./ R 01379400 $ 1379400 3 06/29/81 14:02:25
R13518DK: SPACE 01379370
R13518DK: FATALERA EQU * SEE IF CMD REJECT ON DISABLE SEQ.@VA13518 01379375
R13518DK: TM IOBSTAT,IOBFATAL IS IOBFATAL ON? @VA13518 01379380
R13518DK: BZ FATALER1 NO, MUST BE CC3-HANDLE AS BEFORE @VA13518 01379385
R13518DK: * IOBMISC2+3 FILLED IN BY DMKBSC 01379390
R13518DK: TM IOBMISC2+3,COMRJ CMD REJECT INDICATED? @VA13518 01379395
R13518DK: BZ FATALER1 NO, HANDLE AS BEFORE @VA13518 01379400
R13518DK: OI RDEVSTAT,RDEVNRDY SET NOT AVAILABLE FLAG @VA13518 01379405
R13518DK: MVI IOBMISC2+2,COMRJ REMEMBER CMD REJECT FOR LATER @VA13518 01379410
R13518DK: B FATAL2A CONTINUE FATAL ERROR PROCESSING @VA13518 01379415
R13518DK: SPACE 01379420
R13518DK: ./ I 01380000 $ 1380100 100 06/29/81 14:02:25
R13518DK: MVI IOBMISC2+2,NONE CLEAR FLAG BYTE FOR LATER @VA13518 01380100
R13518DK: TM IOBSTAT,IOBFATAL UNRECOVERABLE ERROR? @VA13518 01380200
R13518DK: BO FATAL2A YES, IOBMISC2+2 CORRECT @VA13518 01380300
R13518DK: MVI IOBMISC2+2,DISA REMEMBER TO SET RDEVDISA @VA13518 01380400
R13518DK: FATAL2A EQU * @VA13518 01380500
R13518DK: ./ R 01387300 01387400 $ 1387300 100 06/29/81 14:02:25
R13518DK: CLI IOBMISC2+2,NONE UNRECOVERABLE ERROR? @VA13518 01387310
R13518DK: BE *+8 YES, FOR SWITCHED REENABLE @VA13518 01387410
R13518DK: ./ R 01399400 01399500 $ 1399400 100 06/29/81 14:02:25
R13518DK: CLI IOBMISC2+2,NONE UNRECOVERABLE ERROR? @VA13518 01399410
R13518DK: BE TP14 YES, GO DISABLE AND REENABLE LINE@VA13518 01399510
R13518DK: ./ R 01405000 $ 1405000 200 06/29/81 14:02:25
R13518DK: BO FATAL4A YES, SEND MESSAGE 455 @VA13518 01405100
R13518DK: TM IOBMISC2+2,COMRJ WAS THIS A CMD REJECT? @VA13518 01405200
R13518DK: BZ DISASTA NO, SKIP MESSAGE 455 @VA13518 01405300
R13518DK: FATAL4A EQU * @VA13518 01405400
R13518DK: ./ I 01407000 $ 1407100 100 06/29/81 14:02:25
R13518DK: LA R0,2 GET STORAGE FOR ERROR MESSAGE @VA13518 01407050
R13518DK: CALL DMKFREE GET STORAGE @VA13518 01407100
R13518DK: LR R3,R1 SAVE ADDRESS OF STORAGE @VA13518 01407150
R13518DK: XC 0(16,R3),0(R3) CLEAR STORAGE @VA13518 01407200
R13518DK: MVC 5(L'CC3,R3),CC3 INITIALIZE MESSAGE @VA13518 01407250
R13518DK: TM IOBSTAT,IOBCC3 WAS IT A CC3? @VA13518 01407300
R13518DK: BO FATAL4B YES, MESSAGE O.K. @VA13518 01407350
R13518DK: MVC 5(L'CMDRJ,R3),CMDRJ MUST BE CMD REJECT @VA13518 01407400
R13518DK: FATAL4B EQU * @VA13518 01407450
R13518DK: ./ I 01412000 $ 1412500 500 06/29/81 14:02:25
R13518DK: SLR R3,R3 CLEAR R3 FOR ERRMSGS ROUTINE @VA13518 01412100
R13518DK: ./ I 02040000 $ 2040100 100 06/29/81 14:02:25
R13518DK: LTR R3,R3 TEST FOR MESSAGE 455 @VA13518 02040100
R13518DK: BZ CALLERM IF 0, NOT 455, CALL ERM NOW @VA13518 02040200
R13518DK: ST R1,0(,R3) STORE LINE ADDRESS FOR MSG @VA13518 02040300
R13518DK: LR R1,R3 LOAD DATA ADDRESS FOR ERM @VA13518 02040400
R13518DK: ICM R3,8,F2+3 NO. OF DW IN REG FOR ERM @VA13518 02040500
R13518DK: ICM R0,1,F16+3 NO. OF BYTES IN REG FOR ERM @VA13518 02040600
R13518DK: CALLERM EQU * @VA13518 02040700
R13518DK: ./ I 02334000 $ 2334300 300 06/29/81 14:02:25
R13518DK: CC3 DC C' CC=3' DATA FOR MSG 455 @VA13518 02334100
R13518DK: CMDRJ DC C' CMD REJECT' DATA FOR MSG 455 @VA13518 02334200
R13518DK: ./ I 02537000 $ 2537100 100 06/29/81 14:02:25
R13518DK: SPACE 02537100
R13518DK: * SETTINGS FOR IOBMISC2+2 @VA13518 02537200
R13518DK: SPACE 02537300
R13518DK: COMRJ EQU X'80' COMMAND REJECT IN SENSE DATA @VA13518 02537400
R13518DK: DISA EQU X'20' INDICATOR TO SET RDEVDISA @VA13518 02537500
R13518DK: NONE EQU X'00' @VA13518 02537600
BEGIN APPLY >>> ./ R 01379160 $ 1379160 40 06/29/81 14:02:25
END APPLY >>> ./ R 01379160 $ 1379160 40 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 01379320 $ 1379340 20 06/29/81 14:02:25
END APPLY >>> ./ I 01379320 $ 1379340 20 06/29/81 14:02:25
BEGIN APPLY >>> ./ R 01379400 $ 1379400 3 06/29/81 14:02:25
END APPLY >>> ./ R 01379400 $ 1379400 3 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 01380000 $ 1380100 100 06/29/81 14:02:25
END APPLY >>> ./ I 01380000 $ 1380100 100 06/29/81 14:02:25
BEGIN APPLY >>> ./ R 01387300 01387400 $ 1387300 100 06/29/81 14:02:25
END APPLY >>> ./ R 01387300 01387400 $ 1387300 100 06/29/81 14:02:25
BEGIN APPLY >>> ./ R 01399400 01399500 $ 1399400 100 06/29/81 14:02:25
END APPLY >>> ./ R 01399400 01399500 $ 1399400 100 06/29/81 14:02:25
BEGIN APPLY >>> ./ R 01405000 $ 1405000 200 06/29/81 14:02:25
END APPLY >>> ./ R 01405000 $ 1405000 200 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 01407000 $ 1407100 100 06/29/81 14:02:25
END APPLY >>> ./ I 01407000 $ 1407100 100 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 01412000 $ 1412500 500 06/29/81 14:02:25
END APPLY >>> ./ I 01412000 $ 1412500 500 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 02040000 $ 2040100 100 06/29/81 14:02:25
END APPLY >>> ./ I 02040000 $ 2040100 100 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 02334000 $ 2334300 300 06/29/81 14:02:25
END APPLY >>> ./ I 02334000 $ 2334300 300 06/29/81 14:02:25
BEGIN APPLY >>> ./ I 02537000 $ 2537100 100 06/29/81 14:02:25
END APPLY >>> ./ I 02537000 $ 2537100 100 06/29/81 14:02:25
Update Succeeded
Update Execution Time 47 milliseconds.
R13944DK
Date Wednesday Oct 14, 1981 10:09:00 AM
Loaded from MAINT(294)
R13944DK: ./ I 187200 $ 187300 100 00001000
R13944DK: * 15 SEND ACK AFTER FSS WRITE 00002000
R13944DK: * 16 WRITE TEXT CCW 00003000
R13944DK: ./ I 424200 $ 424250 00004000
R13944DK: B TP16 WRITE TEXT CCW @VA13944 00005000
R13944DK: ./ I 427000 $ 427100 100 00005000
R13944DK: TP16 DS 0H WRITE TEXT CCW @VA13944 00005000
R13944DK: ./ R 430000 437000 $ 430100 100 00006000
R13944DK: BAL R3,RTYCOUNT CHECK RETRY FIELD FOR MAXIMUM @VA13944 00007000
R13944DK: TM IOBCSW+4,CE+DE+UE IS THIS A CE,DE, AND UE @VA13944 00007000
R13944DK: BNO FATALER NO, FATAL SITUATION @VA13944 00007000
R13944DK: ./ R 439000 $ 439100 100 00009000
R13944DK: LA R1,UNEPTCCW SET UP TO DO A READ SKIP @VA13944 00010000
R13944DK: ./ R 461000 $ 461000 50 00011000
R13944DK: BAL R3,RTYCOUNT CHECK RETRY COUNTER @VA13944 00012000
R13944DK: B RESTARTA DO IT AGAIN, SAM @VA13944 00013000
R13944DK: ./ I 522000 $ 522100 100 00014000
R13944DK: TM IOBCSW+4,UE DID WE GET AN EOT SOMEWHERE? @VA13944 00015000
R13944DK: BO RESTARTA YES, START THE LINE AGAIN @VA13944 00016000
R13944DK: ./ R 1782400 $ 1782450 100 00017000
R13944DK: CLI 5(R1),X'10' IS THIS A WRITE TEXT CCW? @VA13944 00018000
R13944DK: ./ I 1782800 $ 1782900 100 00019000
R13944DK: XC BSCRESP(L'BSCRESP),BSCRESP CLEAR RESPONSE FIELD @VA13944 00020000
R13944DK: ./ R 2364100 $ 2364100 100 00021000
R13944DK: WRT77CCW DC X'01',AL3(0),AL1(SILI+CC,X'10'),AL2(0) @VA13944 00022000
R13944DK: ./ R 2366000 $ 2366100 100 00023000
R13944DK: UNEPTCCW DC X'02',AL3(0),AL1(SILI+SKIP,X'08'),AL2(X'100') @VA13944 00024000
R13944DK: ./ R 2373000 2374000 $ 2373000 1000 00025000
R13944DK: WIN77CCW DC X'01',AL3(0),AL1(SILI+CD,X'10'),AL2(WIN77DL+3) @VA13944 00026000
R13944DK: DC X'00',AL3(0),AL1(SILI+CC,X'10'),AL2(0) @VA13944 00027000
BEGIN APPLY >>> ./ I 187200 $ 187300 100 00001000
END APPLY >>> ./ I 187200 $ 187300 100 00001000
BEGIN APPLY >>> ./ I 424200 $ 424250 00004000
END APPLY >>> ./ I 424200 $ 424250 00004000
BEGIN APPLY >>> ./ I 427000 $ 427100 100 00005000
END APPLY >>> ./ I 427000 $ 427100 100 00005000
BEGIN APPLY >>> ./ R 430000 437000 $ 430100 100 00006000
END APPLY >>> ./ R 430000 437000 $ 430100 100 00006000
BEGIN APPLY >>> ./ R 439000 $ 439100 100 00009000
END APPLY >>> ./ R 439000 $ 439100 100 00009000
BEGIN APPLY >>> ./ R 461000 $ 461000 50 00011000
END APPLY >>> ./ R 461000 $ 461000 50 00011000
BEGIN APPLY >>> ./ I 522000 $ 522100 100 00014000
END APPLY >>> ./ I 522000 $ 522100 100 00014000
BEGIN APPLY >>> ./ R 1782400 $ 1782450 100 00017000
END APPLY >>> ./ R 1782400 $ 1782450 100 00017000
BEGIN APPLY >>> ./ I 1782800 $ 1782900 100 00019000
END APPLY >>> ./ I 1782800 $ 1782900 100 00019000
BEGIN APPLY >>> ./ R 2364100 $ 2364100 100 00021000
END APPLY >>> ./ R 2364100 $ 2364100 100 00021000
BEGIN APPLY >>> ./ R 2366000 $ 2366100 100 00023000
END APPLY >>> ./ R 2366000 $ 2366100 100 00023000
BEGIN APPLY >>> ./ R 2373000 2374000 $ 2373000 1000 00025000
END APPLY >>> ./ R 2373000 2374000 $ 2373000 1000 00025000
Update Succeeded
Update Execution Time 70 milliseconds.
R11660DK
Date Thursday Oct 22, 1981 01:25:00 PM
Loaded from MAINT(294)
R11660DK: ./ I 460000 $ 460100 100 DMK00010
R11660DK: TM BSCFLAG,BSCRVI WAS EOT EXPECTED? @VA11660 DMK00020
R11660DK: BO ISRVI YES, GO ISSUE SPECIFIC POLL @VA11660 DMK00030
BEGIN APPLY >>> ./ I 460000 $ 460100 100 DMK00010
END APPLY >>> ./ I 460000 $ 460100 100 DMK00010
Update Succeeded
Update Execution Time 16 milliseconds.
R12356DK
Date Friday Jan 15, 1982 04:26:00 PM
Loaded from MAINT(294)
R12356DK: ./ I 472000 $ 472100 100
R12356DK: LA R1,BSCSCCW1 GET SELECT CCW @VA12356
R12356DK: C R1,IOBCAW IS IT THE ONE? @VA12356
R12356DK: BE OKCAW YES, RESTART AT THE SELECT @VA12356
R12356DK: ./ R 473200 $ 473300
R12356DK: OKCAW BAL R7,SETCAW ... @VA12356
BEGIN APPLY >>> ./ I 472000 $ 472100 100
END APPLY >>> ./ I 472000 $ 472100 100
BEGIN APPLY >>> ./ R 473200 $ 473300
END APPLY >>> ./ R 473200 $ 473300
Update Succeeded
Update Execution Time 31 milliseconds.
HRC029DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ I 02499000 $ 2499070 70 03/11/06 20:44:50
HRC029DK: DC X'C114' PF13 HRC101DK 02499070
HRC029DK: DC X'C214' PF14 HRC101DK 02499140
HRC029DK: DC X'C314' PF15 HRC101DK 02499210
HRC029DK: DC X'C414' PF16 HRC101DK 02499280
HRC029DK: DC X'C514' PF17 HRC101DK 02499350
HRC029DK: DC X'C614' PF18 HRC101DK 02499420
HRC029DK: DC X'C714' PF19 HRC101DK 02499490
HRC029DK: DC X'C814' PF20 HRC101DK 02499560
HRC029DK: DC X'C914' PF21 HRC101DK 02499630
HRC029DK: DC X'4A14' PF22 HRC101DK 02499700
HRC029DK: DC X'4B14' PF23 HRC101DK 02499770
HRC029DK: DC X'4C14' PF24 HRC101DK 02499840
BEGIN APPLY >>> ./ I 02499000 $ 2499070 70 03/11/06 20:44:50
END APPLY >>> ./ I 02499000 $ 2499070 70 03/11/06 20:44:50
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00882000 $ 882490 490 03/13/06 11:28:59
HRC101DK: MVC VCONRBSZ,=AL2(BUFSIZE) SIZE OF VIRT BUFFER HRV101DK 00882490
HRC101DK: ./ I 01952000 $ 1952700 700 03/13/06 11:28:59
HRC101DK: TM VMMLVL2-VMBLOK(R15),VMMHLITE HILIGHT REQUESTED? HRV101DK
HRC101DK: BZ CALLQCN NO, CONTINUE HRV101DK
HRC101DK: O R2,=A(HILIGHT) SET PARM ON HRV101DK
HRC101DK: CALLQCN EQU * HRV101DK
BEGIN APPLY >>> ./ R 00882000 $ 882490 490 03/13/06 11:28:59
END APPLY >>> ./ R 00882000 $ 882490 490 03/13/06 11:28:59
BEGIN APPLY >>> ./ I 01952000 $ 1952700 700 03/13/06 11:28:59
END APPLY >>> ./ I 01952000 $ 1952700 700 03/13/06 11:28:59
Update Succeeded
Update Execution Time 39 milliseconds.