ibm:vm370-lib:cp:dmkgrt.assemble_hst
Table of Contents
DMKGRT History
References
- Fixes Applied : 7
- Latest Source Date : Wednesday, January 17, 1979
- Last Fix ID : [HRC109DK]
Update History
CMS File Input : DMKGRT ASSEMBLE
Date : 1/17/1979 11:11:00 AM
VM Context : MAINT(394)
File Name : DMKGRT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
- R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
- HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
- HRC370DK V03 Make “VM/370 Online” meesage mixed case.
- HRC073DK V01 Support for 3278 model 5 devices
- HRC108DK H40 Implement SYSID (System Identification)
- HRC109DK H40 Extend SysID to Model 5
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.
HRC029DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ I 00023000 $ 23500 500 02/14/06 10:06:15
HRC029DK: ENTRY DMKGRTAC HRC029DK 00023500
HRC029DK: ./ I 00348000 $ 348070 70 02/14/06 10:06:15
HRC029DK: DC X'C114' PF13 HRC029DK 00348070
HRC029DK: DC X'C214' PF14 HRC029DK 00348140
HRC029DK: DC X'C314' PF15 HRC029DK 00348210
HRC029DK: DC X'C414' PF16 HRC029DK 00348280
HRC029DK: DC X'C514' PF17 HRC029DK 00348350
HRC029DK: DC X'C614' PF18 HRC029DK 00348420
HRC029DK: DC X'C714' PF19 HRC029DK 00348490
HRC029DK: DC X'C814' PF20 HRC029DK 00348560
HRC029DK: DC X'C914' PF21 HRC029DK 00348630
HRC029DK: DC X'4A14' PF22 HRC029DK 00348700
HRC029DK: DC X'4B14' PF23 HRC029DK 00348770
HRC029DK: DC X'4C14' PF24 HRC029DK 00348840
HRC029DK: ./ I 00349000 $ 349500 500 02/14/06 10:06:15
HRC029DK: DMKGRTAC DC AL2((*-DMKGRTAI)/2) TABLE ENTRY COUNT HRC029DK
BEGIN APPLY >>> ./ I 00023000 $ 23500 500 02/14/06 10:06:15
END APPLY >>> ./ I 00023000 $ 23500 500 02/14/06 10:06:15
BEGIN APPLY >>> ./ I 00348000 $ 348070 70 02/14/06 10:06:15
END APPLY >>> ./ I 00348000 $ 348070 70 02/14/06 10:06:15
BEGIN APPLY >>> ./ I 00349000 $ 349500 500 02/14/06 10:06:15
END APPLY >>> ./ I 00349000 $ 349500 500 02/14/06 10:06:15
Update Succeeded
Update Execution Time 16 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ D 00014000 00015000 03/08/06 16:34:50
HRC101DK: ./ R 00025000 $ 25290 290 03/08/06 16:34:50
HRC101DK: ENTRY DMKGRTCN HRC101DK 00025290
HRC101DK: ENTRY DMKGRTFO,DMKGRTHL,DMKGRTIN HRC101DK 00025580
HRC101DK: ./ R 00028000 00029000 $ 28990 990 03/08/06 16:34:50
HRC101DK: ENTRY DMKGRTBF HRC101DK 00028990
HRC101DK: ./ D 00035000 00153000 03/08/06 16:34:50
HRC101DK: ./ R 00358000 $ 358070 70 03/08/06 16:34:50
HRC101DK: DC X'5E40,5F50,6060,61F0,E340,E450,E560,E6F0' +24 HRC101DK 00358070
HRC101DK: DC X'E840,E950,6A60,6BF0,6D40,6E50,6F60,F0F0' +32 HRC101DK 00358140
HRC101DK: DC X'F240,F350,F460' +40 HRC101DK 00358210
HRC101DK: SPACE , HRC101DK 00358280
HRC101DK: DMKGRTBF DS 0H 00 - 01 - 02 - 03 - 04 - 05 - 06 - 07 HRC101DK 00358350
HRC101DK: DC X'C14F,C25F,C36F,C47F,C64F,C75F,C86F,C97F' +0 HRC101DK 00358420
HRC101DK: DC X'4B4F,4C5F,4D6F,4E7F,504F,D15F,D26F,D37F' +8 HRC101DK 00358490
HRC101DK: DC X'D54F,D65F,D76F,D87F,5A4F,5B5F,5C6F,5D7F' +16 HRC101DK 00358560
HRC101DK: DC X'5F4F,605F,616F,E27F,E44F,E55F,E66F,E77F' +24 HRC101DK 00358630
HRC101DK: DC X'E94F,6A5F,6B6F,6C7F,6E4F,6F5F,F06F,F17F' +32 HRC101DK 00358700
HRC101DK: DC X'F34F,F45F,F56F' +40 HRC101DK 00358770
HRC101DK: ./ R 00365000 $ 365490 490 03/08/06 16:34:50
HRC101DK: DMKGRTDS DC F'1760,2400,3280,1440' DSP INPUT OFFSETS HRC101DK 00365490
HRC101DK: ./ R 00369000 00370000 $ 369490 490 03/08/06 16:34:50
HRC101DK: DMKGRTIN DC AL1(22,23,0,0) 3277/3278 MOD 2 INPUT LINE HRC101DK 00369490
HRC101DK: DC AL1(30,31,0,0) 3278 MOD 3 HRC101DK 00369980
HRC101DK: DC AL1(41,42,0,0) 3278 MOD 4 HRC101DK 00370470
HRC101DK: ./ I 00378000 $ 378500 500 03/08/06 16:34:50
HRC101DK: DMKGRTCN EQU GRTCNCDS PA2 CLEAR HRC101DK 00378500
BEGIN APPLY >>> ./ D 00014000 00015000 03/08/06 16:34:50
END APPLY >>> ./ D 00014000 00015000 03/08/06 16:34:50
BEGIN APPLY >>> ./ R 00025000 $ 25290 290 03/08/06 16:34:50
END APPLY >>> ./ R 00025000 $ 25290 290 03/08/06 16:34:50
BEGIN APPLY >>> ./ R 00028000 00029000 $ 28990 990 03/08/06 16:34:50
END APPLY >>> ./ R 00028000 00029000 $ 28990 990 03/08/06 16:34:50
BEGIN APPLY >>> ./ D 00035000 00153000 03/08/06 16:34:50
END APPLY >>> ./ D 00035000 00153000 03/08/06 16:34:50
BEGIN APPLY >>> ./ R 00358000 $ 358070 70 03/08/06 16:34:50
END APPLY >>> ./ R 00358000 $ 358070 70 03/08/06 16:34:50
BEGIN APPLY >>> ./ R 00365000 $ 365490 490 03/08/06 16:34:50
END APPLY >>> ./ R 00365000 $ 365490 490 03/08/06 16:34:50
BEGIN APPLY >>> ./ R 00369000 00370000 $ 369490 490 03/08/06 16:34:50
END APPLY >>> ./ R 00369000 00370000 $ 369490 490 03/08/06 16:34:50
BEGIN APPLY >>> ./ I 00378000 $ 378500 500 03/08/06 16:34:50
END APPLY >>> ./ I 00378000 $ 378500 500 03/08/06 16:34:50
Update Succeeded
Update Execution Time 23 milliseconds.
HRC370DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC370DK: ./ R 00363000 00363000 $ 363000 07/12/10 20:33:58
HRC370DK: DMKGRTFO DC CL20'VM/370 Online' AT TOP OF SCREEN HRC370DK 00363000
BEGIN APPLY >>> ./ R 00363000 00363000 $ 363000 07/12/10 20:33:58
END APPLY >>> ./ R 00363000 00363000 $ 363000 07/12/10 20:33:58
Update Succeeded
Update Execution Time 16 milliseconds.
HRC073DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC073DK: ./ I 00025580 $ 00025600 10
HRC073DK: ENTRY DMKGRTCL,DMKGRTCF HRC073DK
HRC073DK: ./ I 00358770 $ 00358900 5
HRC073DK: *
HRC073DK: DMKGRTCL DS 0H 00 - 01 - 02 - 03 - 04 - 05 - 06 - 07 HRC073DK
HRC073DK: DC X'4040,C204,C4C8,C64C,C850,4AD4,4CD8,4E5C' +0 HRC073DK
HRC073DK: DC X'5060,D2E4,D4E8,D66C,D8F0,5AF4,5CF8,5E7C' +8 HRC073DK
HRC073DK: DC X'6140,E3C4,E5C8,E74C,E950,6BD4,6DD8,6F5C' +16 HRC073DK
HRC073DK: DC X'F160,F3E4,F5E8' +24 HRC073DK
HRC073DK: *
HRC073DK: DMKGRTCF DS 0H 00 - 01 - 02 - 03 - 04 - 05 - 06 - 07 HRC073DK
HRC073DK: DC X'C2C3,C4C7,C64B,C84F,4AD3,4CD7,4E5B,505F' +0 HRC073DK
HRC073DK: DC X'D2E3,D4E7,D66B,D86F,5AF3,5CF7,5E7B,607F' +8 HRC073DK
HRC073DK: DC X'E3C3,E5C7,E74B,E94F,6BD3,6DD7,6F5B,F15F' +16 HRC073DK
HRC073DK: DC X'F3E3,F5E7,F76B' +24 HRC073DK
HRC073DK: ./ R 00365490 $ 00365490
HRC073DK: DMKGRTDS DC F'1760,2400,3280,1440,3300' DSP INPUT OFFSETS HRC073DK
HRC073DK: ./ I 00371000 $ 00371100 10
HRC073DK: DC AL1(25,26,0,0) 3278 MOD 5 HRC073DK
BEGIN APPLY >>> ./ I 00025580 $ 00025600 10
END APPLY >>> ./ I 00025580 $ 00025600 10
BEGIN APPLY >>> ./ I 00358770 $ 00358900 5
END APPLY >>> ./ I 00358770 $ 00358900 5
BEGIN APPLY >>> ./ R 00365490 $ 00365490
END APPLY >>> ./ R 00365490 $ 00365490
BEGIN APPLY >>> ./ I 00371000 $ 00371100 10
END APPLY >>> ./ I 00371000 $ 00371100 10
Update Succeeded
Update Execution Time 16 milliseconds.
HRC108DK
Date Friday Mar 03, 2017 12:17:00 AM
Loaded from MAINT(094)
HRC108DK: ./ I 00018000 $ 00018100 100
HRC108DK: * DMKGRTID - Copy DKMSYSID into the 3270 status areas HRC108DK
HRC108DK: * in DMKGRTB, DMKGRWTB. DMKGRUTB, DMKGRVTB HRC108DK
HRC108DK: ./ I 00027000 $ 00027100 100
HRC108DK: ENTRY DMKGRTID HRC108DK
HRC108DK: ./ I 00030000 $ 00030100 100
HRC108DK: EXTRN DMKSYSID,DMKGRWTB,DMKGRUTB,DMKGRVTB HRC108DK
HRC108DK: SPACE 3 HRC108DK
HRC108DK: ./ I 00318000 $ 00318100 10
HRC108DK: *. HRC108DK
HRC108DK: * Subroutine name - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * DMKGRTID HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Function - HRC108DK
HRC108DK: * To copy the system identification from DMKSYSID into HRC108DK
HRC108DK: * the various 3270 status areas in the various GRTBLOKs HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Attributes - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Serially reusable, resident, called via SVC HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Entry point - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * DMKGRTID HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Entry conditions - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * GPR12 = Address of DMKGRTID HRC108DK
HRC108DK: * GPR13 = Address of the save area HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Exit conditions - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * None HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Calls to other routines - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * None HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * External references - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * DMKGRWTB,DMKGRUTB,DMKGRVTB GRTBLOK addresses HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Tables / work areas - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * SAVEAREA HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Register usage - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * GPR1 = Address of GRTBLOK HRC108DK
HRC108DK: * GPR2 = Address DMKSYSID HRC108DK
HRC108DK: * GPR3 = Return address from subroutine HRC108DK
HRC108DK: * GPR12 = Base address HRC108DK
HRC108DK: * GPR13 = Address of the save area HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Notes - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * None HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * Operation - HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * 1. Get address of DMKSYSID HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * 2. Call subroutine GRTSYSID for each GRTBLOK to be HRC108DK
HRC108DK: * updated with the address of the GRTBLOK in R2 HRC108DK
HRC108DK: * to cause the SYSID to be copied into the various HRC108DK
HRC108DK: * different status areas within that GRTBLOK. HRC108DK
HRC108DK: * HRC108DK
HRC108DK: * 3. Return to caller HRC108DK
HRC108DK: *. HRC108DK
HRC108DK: SPACE 1 HRC108DK
HRC108DK: DMKGRTID DS 0H HRC108DK
HRC108DK: USING DMKGRTID,R12 Establish base address HRC108DK
HRC108DK: STM R0,R11,SAVEREGS Save registers HRC108DK
HRC108DK: L R2,=A(DMKSYSID) Get address of SYSID HRC108DK
HRC108DK: LA R1,DMKGRTB Get address of std GRTBLOK HRC108DK
HRC108DK: BAL R3,GRTSYSID Copy SYSID to status areas HRC108DK
HRC108DK: L R1,=A(DMKGRWTB) Get address of M2A GRTBLOK HRC108DK
HRC108DK: BAL R3,GRTSYSID Copy SYSID to status areas HRC108DK
HRC108DK: L R1,=A(DMKGRUTB) Get address of M3 GRTBLOK HRC108DK
HRC108DK: BAL R3,GRTSYSID Copy SYSID to status areas HRC108DK
HRC108DK: L R1,=A(DMKGRVTB) Get address of M4 GRTBLOK HRC108DK
HRC108DK: BAL R3,GRTSYSID Copy SYSID to status areas HRC108DK
HRC108DK: EXIT Return to caller HRC108DK
HRC108DK: * HRC108DK
HRC108DK: GRTSYSID DS 0H HRC108DK
HRC108DK: MVC GRTRNST1-DMKGRTB(8,R1),0(R2) RUNNING status msg HRC108DK
HRC108DK: MVC GRTRNST2-DMKGRTB(8,R1),0(R2) RUNNING status msg HRC108DK
HRC108DK: MVC GRTCPRST-DMKGRTB(8,R1),0(R2) CP READ status msg HRC108DK
HRC108DK: MVC GRTRNST3-DMKGRTB(8,R1),0(R2) RUNNING status msg HRC108DK
HRC108DK: MVC GRTHLDST-DMKGRTB(8,R1),0(R2) HOLDING status msg HRC108DK
HRC108DK: MVC GRTMORST-DMKGRTB(8,R1),0(R2) MORE... status msg HRC108DK
HRC108DK: MVC GRTRNST4-DMKGRTB(8,R1),0(R2) RUNNING status msg HRC108DK
HRC108DK: MVC GRTVMRST-DMKGRTB(8,R1),0(R2) VM READ status msg HRC108DK
HRC108DK: BR R3 Return to caller HRC108DK
HRC108DK: DROP R12 HRC108DK
BEGIN APPLY >>> ./ I 00018000 $ 00018100 100
END APPLY >>> ./ I 00018000 $ 00018100 100
BEGIN APPLY >>> ./ I 00027000 $ 00027100 100
END APPLY >>> ./ I 00027000 $ 00027100 100
BEGIN APPLY >>> ./ I 00030000 $ 00030100 100
END APPLY >>> ./ I 00030000 $ 00030100 100
BEGIN APPLY >>> ./ I 00318000 $ 00318100 10
END APPLY >>> ./ I 00318000 $ 00318100 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC109DK
Date Monday Feb 05, 2018 11:08:00 AM
Loaded from MAINT(094)
HRC109DK: ./ I 00030100 $ 00030110
HRC109DK: EXTRN DMKGRXTB
HRC109DK: ./ R 00318420 $ 00318422
HRC109DK: * DMKGRWTB,DMKGRUTB,DMKGRVTB,DMKGRXTB GRTBLOK addresses HRC109DK
HRC109DK: ./ I 00318830 $ 00318834 2
HRC109DK: L R1,=A(DMKGRXTB) Get address of M5 GRTBLOK HRC109DK
HRC109DK: BAL R3,GRTSYSID Copy SYSID to status areas HRC109DK
BEGIN APPLY >>> ./ I 00030100 $ 00030110
END APPLY >>> ./ I 00030100 $ 00030110
BEGIN APPLY >>> ./ R 00318420 $ 00318422
END APPLY >>> ./ R 00318420 $ 00318422
BEGIN APPLY >>> ./ I 00318830 $ 00318834 2
END APPLY >>> ./ I 00318830 $ 00318834 2
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkgrt.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator