ibm:vm370-lib:cp:dmkrga.assemble_hst
Table of Contents
DMKRGA History
References
- Fixes Applied : 29
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkrga.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator