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