DMKOPR History
References
-
-
Fixes Applied : 4
-
Last Fix ID : [HRC101DK]
Update History
CMS File Input : DMKOPR ASSEMBLE
Date : 12/7/1978 5:11:00 PM
VM Context : MAINT(394)
File Name : DMKOPR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R11129DK 614 UV01174 DMKOPR DOES NOT PROVIDE PROPER GRAPHIC SCREEN MGMT
R12247DK 618 UV02975 VM11129 CAUSING GARBLED MESSAGES FROM DMKOPR
R14139DK 625 UV05573 MSDMKDMP908I NOT DISPLAYED IF SCREEN IS FULL
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
R11129DK
Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
R11129DK: ./ I 16000 $ 16100 100 00001000
R11129DK: * 00002000
R11129DK: * IF MESSAGE LENGTH IS GREATER THAN 160 BYTES AND MESSAGE 00003000
R11129DK: * IS FOR A GRAPHICS TYPE DEVICE IT WILL BE TRUNCATED TO 00004000
R11129DK: * 160 BYTES. 00005000
R11129DK: * 00006000
R11129DK: ./ I 116000 $ 116100 100 00007000
R11129DK: BAL R10,SETMSLEN PUT MSG IN 80 OR 160 BYTE BUFFER @VA11129 00008000
R11129DK: ./ I 127000 $ 127100 100 00009000
R11129DK: BAL R10,SETMSLEN PUT MSG IN 80 OR 160 BYTE BUFFER @VA11129 00010000
R11129DK: ./ I 194000 $ 194100 20 00011000
R11129DK: SETMSLEN DS 0H @VA11129 00012000
R11129DK: L R5,R0 GET MSG LENGTH @VA11129 00013000
R11129DK: CH R0,=H'80' WHAT IS MESSAGE LENGTH @VA11129 00014000
R11129DK: BL MSLEN80 LESS THAN SET TO 80 @VA11129 00015000
R11129DK: BER R10 IF EQUAL TO 80, CONTINUE @VA11129 00016000
R11129DK: CH R0,=H'160' IS IT MORE THAN 160 BYTES @VA11129 00018000
R11129DK: BNH MSLEN160 YES, SET IT FOR 160 BYTES @VA11129 00020000
R11129DK: LA R5,160 SET MOVE FOR MAXIMUM LENGTH @VA11129 00021000
R11129DK: MSLEN160 DS 0H @VA11129 00022000
R11129DK: LA R0,160 SET WRITE FOR MAXIMUM LENGTH @VA11129 00023000
R11129DK: B SETMS @VA11129 00024000
R11129DK: MSLEN80 DS 0H @VA11129 00025000
R11129DK: LA R0,80 SET WRITE FOR MINIMUM LENGTH @VA11129 00026000
R11129DK: SETMS DS 0H @VA11129 00027000
R11129DK: XC MSGBUF(160),MSGBUF CLEAR BUFFER @VA11129 00028000
R11129DK: BCTR R5,0 SUBTRACT ONE FOR EXECUTE @VA11129 00029000
R11129DK: EX R5,MSGMVC MOVE MESSAGE TO BUFFER @VA11129 00030000
R11129DK: LA R1,MSGBUF @VA11129 00031000
R11129DK: BR R10 RETURN TO MAINLINE @VA11129 00032000
R11129DK: SPACE 2 00033000
R11129DK: MSGMVC MVC MSGBUF(*-*),0(R1) EXECUTED INSTRUCTION - MSG @VA11129 00034000
R11129DK: ./ I 261000 $ 261100 100 00035000
R11129DK: MSGBUF DS CL160 NEW MESSAGE BUFFER @VA11129 00036000
BEGIN APPLY >>> ./ I 16000 $ 16100 100 00001000
END APPLY >>> ./ I 16000 $ 16100 100 00001000
BEGIN APPLY >>> ./ I 116000 $ 116100 100 00007000
END APPLY >>> ./ I 116000 $ 116100 100 00007000
BEGIN APPLY >>> ./ I 127000 $ 127100 100 00009000
END APPLY >>> ./ I 127000 $ 127100 100 00009000
BEGIN APPLY >>> ./ I 194000 $ 194100 20 00011000
END APPLY >>> ./ I 194000 $ 194100 20 00011000
BEGIN APPLY >>> ./ I 261000 $ 261100 100 00035000
END APPLY >>> ./ I 261000 $ 261100 100 00035000
Update Succeeded
Update Execution Time 16 milliseconds.
R12247DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12247DK: ./ R 194120 $ 194125 5 00001000
R12247DK: LR R5,R0 GET MESSAGE LENGTH @VA12247 00002000
BEGIN APPLY >>> ./ R 194120 $ 194125 5 00001000
END APPLY >>> ./ R 194120 $ 194125 5 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R14139DK
Date Thursday Oct 08, 1981 04:16:00 PM
Loaded from MAINT(294)
R14139DK: ./ R 176000 $ 176100
R14139DK: BL SETCC0 NO - RETURN TO CALLER @VA14139
BEGIN APPLY >>> ./ R 176000 $ 176100
END APPLY >>> ./ R 176000 $ 176100
Update Succeeded
Update Execution Time 8 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00126200 00126500 $ 126250 50 03/30/06 22:51:11
HRC101DK: BNE TRY3273 TRY MODEL 3 HRC101DK 00126250
HRC101DK: MVC LAB3270A+2(2),ADDR2A1 CHANGE ADDR FOR 3278 HRC101DK 00126300
HRC101DK: MVC LAB3270A+8(2),ADDR2A2 HRC101DK 00126350
HRC101DK: MVC MAXLEN,LEN327A MAX LEN FOR 3278 MOD2A=1440 HRC101DK 00126400
HRC101DK: ./ R 00126600 00126700 $ 126610 10 03/30/06 22:51:11
HRC101DK: SPACE , HRC101DK 00126610
HRC101DK: TRY3273 EQU * HRC101DK 00126620
HRC101DK: CLI RDEVGRTY,MODEL3 IS THIS 3278 MODEL 3 ? HRC101DK 00126630
HRC101DK: BNE TRY3274 TRY MODEL 4 HRC101DK 00126640
HRC101DK: MVC LAB3270A+2(2),ADDR031 CHANGE ADDR FOR 3278 HRC101DK 00126650
HRC101DK: MVC LAB3270A+8(2),ADDR032 HRC101DK 00126660
HRC101DK: MVC MAXLEN,LEN3273 MAX LEN FOR 3278 MOD3 =2400 HRC101DK 00126670
HRC101DK: B MOD3278 DON'T OVERLAY WITH 3270 HRC101DK 00126680
HRC101DK: SPACE , HRC101DK 00126690
HRC101DK: TRY3274 EQU * HRC101DK 00126700
HRC101DK: CLI RDEVGRTY,MODEL4 IS THIS 3278 MODEL 4 ? HRC101DK 00126710
HRC101DK: BNE YES3270 ASSUME MODEL 2 HRC101DK 00126720
HRC101DK: MVC LAB3270A+2(2),ADDR041 CHANGE ADDR FOR 3278 HRC101DK 00126730
HRC101DK: MVC LAB3270A+8(2),ADDR042 HRC101DK 00126740
HRC101DK: MVC MAXLEN,LEN3274 MAX LEN FOR 3278 MOD4 =3280 HRC101DK 00126750
HRC101DK: B MOD3278 DON'T OVERLAY WITH 3270 HRC101DK 00126760
HRC101DK: SPACE , HRC101DK 00126770
HRC101DK: YES3270 EQU * HRC101DK 00126780
HRC101DK: MVC MAXLEN,LEN3272 MAX LEN FOR 3272=1760 HRC101DK 00126790
HRC101DK: ./ I 00237000 $ 237200 200 03/30/06 22:51:11
HRC101DK: * FIFTH DC ARE ADDRESSES FOR LINES 25 - 30 HRC101DK 00237000
HRC101DK: * SIXTH DC ARE ADDRESSES FOR LINES 31 - 36 HRC101DK 00237000
HRC101DK: * SEVENTHDC ARE ADDRESSES FOR LINES 37 - 42 HRC101DK 00237000
HRC101DK: * EIGHT DC ARE ADDRESSES FOR LINES 43 HRC101DK 00237000
HRC101DK: ./ I 00244000 $ 244200 200 03/30/06 22:51:11
HRC101DK: DC X'5E405F50606061F0E340E450' HRC101DK 00244000
HRC101DK: DC X'E560E6F0E840E9506A606BF0' HRC101DK 00244000
HRC101DK: DC X'6D406E506F60F0F0F240F350' HRC101DK 00244000
HRC101DK: DC X'F460' HRC101DK 00244000
HRC101DK: ./ R 00254100 00254200 $ 254110 10 03/30/06 22:51:11
HRC101DK: ADDR2A1 DC X'D65F' LOCATION LINE 18 COL 80 HRC101DK 00254110
HRC101DK: ADDR2A2 DC X'D86B' LOCATION LINE 20 COL 60 HRC101DK 00254120
HRC101DK: ADDR031 DC X'E55F' LOCATION LINE 18 COL 80 HRC101DK 00254130
HRC101DK: ADDR032 DC X'E76B' LOCATION LINE 20 COL 60 HRC101DK 00254140
HRC101DK: ADDR041 DC X'F34F' LOCATION LINE 18 COL 80 HRC101DK 00254150
HRC101DK: ADDR042 DC X'F55B' LOCATION LINE 20 COL 60 HRC101DK 00254160
HRC101DK: ./ R 00254400 00254500 $ 254490 90 03/30/06 22:51:11
HRC101DK: LEN327A DC F'1440' SCREEN FOR 3278 MOD2A = 1440 HRC101DK 00254490
HRC101DK: LEN3272 DC F'1760' SCREEN FOR 3272=1760 HRC101DK 00254580
HRC101DK: LEN3273 DC F'2400' SCREEN FOR 3273=2400 HRC101DK 00254670
HRC101DK: LEN3274 DC F'3280' SCREEN FOR 3274=3280 HRC101DK 00254760
HRC101DK: ./ I 00272100 $ 272120 20 03/30/06 22:51:11
HRC101DK: MODEL2 EQU X'00' GIVES CORRECT VALUE TO DETERMINE HRC101DK 00272120
HRC101DK: MODEL3 EQU X'04' GIVES CORRECT VALUE TO DETERMINE HRC101DK 00272140
HRC101DK: MODEL4 EQU X'08' GIVES CORRECT VALUE TO DETERMINE HRC101DK 00272160
HRC101DK: MODEL5 EQU X'10' GIVES CORRECT VALUE TO DETERMINE HRC101DK 00272180
BEGIN APPLY >>> ./ R 00126200 00126500 $ 126250 50 03/30/06 22:51:11
END APPLY >>> ./ R 00126200 00126500 $ 126250 50 03/30/06 22:51:11
BEGIN APPLY >>> ./ R 00126600 00126700 $ 126610 10 03/30/06 22:51:11
END APPLY >>> ./ R 00126600 00126700 $ 126610 10 03/30/06 22:51:11
BEGIN APPLY >>> ./ I 00237000 $ 237200 200 03/30/06 22:51:11
END APPLY >>> ./ I 00237000 $ 237200 200 03/30/06 22:51:11
BEGIN APPLY >>> ./ I 00244000 $ 244200 200 03/30/06 22:51:11
END APPLY >>> ./ I 00244000 $ 244200 200 03/30/06 22:51:11
BEGIN APPLY >>> ./ R 00254100 00254200 $ 254110 10 03/30/06 22:51:11
END APPLY >>> ./ R 00254100 00254200 $ 254110 10 03/30/06 22:51:11
BEGIN APPLY >>> ./ R 00254400 00254500 $ 254490 90 03/30/06 22:51:11
END APPLY >>> ./ R 00254400 00254500 $ 254490 90 03/30/06 22:51:11
BEGIN APPLY >>> ./ I 00272100 $ 272120 20 03/30/06 22:51:11
END APPLY >>> ./ I 00272100 $ 272120 20 03/30/06 22:51:11
Update Succeeded
Update Execution Time 23 milliseconds.