BOX TITLE 'DMKBOX (CP) VM/370 - RELEASE 6' 00001000
MACRO HRC101DK 00001040
&LABEL LOGO &X,&Y,&LINE HRC101DK 00001080
GBLC &INDEXES,&INIT HRC101DK 00001120
LCLA &A,&B,&C HRC101DK 00001160
LCLC &XVAL,&YVAL HRC101DK 00001200
AIF ( '&X' EQ '' ).NOX HRC101DK 00001240
AIF ( '&Y' EQ '' ).NOY HRC101DK 00001280
AIF ('&INIT' EQ 'YES').NOINIT HRC101DK 00001320
$INIT HRC101DK 00001360
.NOINIT ANOP HRC101DK 00001400
&C SETA (&X*80)+&Y-81 HRC101DK 00001440
&A SETA &C/64 HRC101DK 00001480
&B SETA &C-(&A*64) HRC101DK 00001520
&A SETA 1+&A+&A HRC101DK 00001560
&B SETA 1+&B+&B HRC101DK 00001600
&XVAL SETC '&INDEXES'(&A,2) HRC101DK 00001640
&YVAL SETC '&INDEXES'(&B,2) HRC101DK 00001680
DC X'11&XVAL.&YVAL',CL46&LINE HRC101DK 00001720
MEXIT , HRC101DK 00001760
.NOX MNOTE 8,'NO X VALUE SPECIFIED' HRC101DK 00001800
MEXIT , HRC101DK 00001840
.NOY MNOTE 8,'NO Y VALUE SPECIFIED' HRC101DK 00001880
MEND , HRC101DK 00001920
EJECT , HRC101DK 00001960
DMKBOX CSECT 00002000
ENTRY DMKBOXBX 00003000
ENTRY DMKBOXHR 00004000
ENTRY DMKBOXMD HRC101DK 00004500
ID DC CL8'DMKBOX' 00005000
SPACE , HRC370DK 00005010
DMKBOXMD DC A(DMKBOX02,DMKBOX03,DMKBOX04,DMKBOX2A) HRC370DK 00005020
DC A(DMKBOX05) HRC073DK 00005025
SPACE , HRC370DK 00005030
DMKBOX02 DS 0H HRC370DK 00005040
DC AL2(DMKBXL02) HRC370DK 00005050
LOGO 5,18,' VV VV MM MM ' HRC370DK 00005060
LOGO 6,18,' VV VV MMM MMM ' HRC370DK 00005070
LOGO 7,18,' 3333333333 777777777777 MM00000000 ' HRC370DK 00005080
LOGO 8,18,' 333333333333 77777777777MM MM0000000000 ' HRC370DK 00005090
LOGO 9,18,' 33 VV33 77VV 77 MMMM00MM 00 ' HRC370DK 00005100
LOGO 10,18,' V33 VV 77M MM 00MM 00 ' HRC370DK 00005110
LOGO 11,18,' 33 VV 77MM 00MM 00 ' HRC370DK 00005120
LOGO 12,18,' 3333VV VV 77 MM 00MM 00 ' HRC370DK 00005130
LOGO 13,18,' 3333 VVVV 77 MM 00MM 00 ' HRC370DK 00005140
LOGO 14,18,' 33 VV 77 MM 00MM 00 ' HRC370DK 00005150
LOGO 15,18,' 33 77 00 00 ' HRC370DK 00005160
LOGO 16,18,' 33 33 77 00 00 ' HRC370DK 00005170
LOGO 17,18,' 333333333333 77 0000000000 ' HRC370DK 00005180
LOGO 18,18,' 3333333333 77 00000000 ' HRC370DK 00005190
LOGO 19,18,' ' HRC370DK 00005200
LOGO 20,18,' VM/370 Release 6 "SixPack" version 1.2 ' HRC370DK 00005210
DMKBXL02 EQU *-DMKBOX02-2 HRC370DK 00005220
DMKBOX2A EQU DMKBOX02 HRC370DK 00005230
EJECT , HRC370DK 00005240
DMKBOX03 DS 0H HRC370DK 00005250
DC AL2(DMKBXL03) HRC370DK 00005260
LOGO 9,18,' VV VV MM MM ' HRC370DK 00005270
LOGO 10,18,' VV VV MMM MMM ' HRC370DK 00005280
LOGO 11,18,' 3333333333 777777777777 MM00000000 ' HRC370DK 00005290
LOGO 12,18,' 333333333333 77777777777MM MM0000000000 ' HRC370DK 00005300
LOGO 13,18,' 33 VV33 77VV 77 MMMM00MM 00 ' HRC370DK 00005310
LOGO 14,18,' V33 VV 77M MM 00MM 00 ' HRC370DK 00005320
LOGO 15,18,' 33 VV 77MM 00MM 00 ' HRC370DK 00005330
LOGO 16,18,' 3333VV VV 77 MM 00MM 00 ' HRC370DK 00005340
LOGO 17,18,' 3333 VVVV 77 MM 00MM 00 ' HRC370DK 00005350
LOGO 18,18,' 33 VV 77 MM 00MM 00 ' HRC370DK 00005360
LOGO 19,18,' 33 77 00 00 ' HRC370DK 00005370
LOGO 20,18,' 33 33 77 00 00 ' HRC370DK 00005380
LOGO 21,18,' 333333333333 77 0000000000 ' HRC370DK 00005390
LOGO 22,18,' 3333333333 77 00000000 ' HRC370DK 00005400
LOGO 23,18,' ' HRC370DK 00005410
LOGO 24,18,' VM/370 Release 6 "SixPack" version 1.2 ' HRC370DK 00005420
DMKBXL03 EQU *-DMKBOX03-2 HRC370DK 00005430
EJECT , HRC370DK 00005440
DMKBOX04 DS 0H HRC370DK 00005450
DC AL2(DMKBXL04) HRC370DK 00005460
LOGO 14,18,' VV VV MM MM ' HRC370DK 00005470
LOGO 15,18,' VV VV MMM MMM ' HRC370DK 00005480
LOGO 16,18,' 3333333333 777777777777 MM00000000 ' HRC370DK 00005490
LOGO 17,18,' 333333333333 77777777777MM MM0000000000 ' HRC370DK 00005500
LOGO 18,18,' 33 VV33 77VV 77 MMMM00MM 00 ' HRC370DK 00005510
LOGO 19,18,' V33 VV 77M MM 00MM 00 ' HRC370DK 00005520
LOGO 20,18,' 33 VV 77MM 00MM 00 ' HRC370DK 00005530
LOGO 21,18,' 3333VV VV 77 MM 00MM 00 ' HRC370DK 00005540
LOGO 22,18,' 3333 VVVV 77 MM 00MM 00 ' HRC370DK 00005550
LOGO 23,18,' 33 VV 77 MM 00MM 00 ' HRC370DK 00005560
LOGO 24,18,' 33 77 00 00 ' HRC370DK 00005570
LOGO 25,18,' 33 33 77 00 00 ' HRC370DK 00005580
LOGO 26,18,' 333333333333 77 0000000000 ' HRC370DK 00005590
LOGO 27,18,' 3333333333 77 00000000 ' HRC370DK 00005600
LOGO 28,18,' ' HRC370DK 00005610
LOGO 29,18,' VM/370 Release 6 "SixPack" version 1.2 ' HRC370DK 00005620
DMKBXL04 EQU *-DMKBOX04-2 HRC370DK 00005630
EJECT , HRC370DK 00005640
DMKBOX05 DS 0H HRC073DK 00005700
DC AL2(DMKBXL05) HRC073DK 00005710
LOGO 11,35,' VV VV MM MM ' HRC073DK 00005720
LOGO 13,07,' VV VV MMM MMM ' HRC073DK 00005730
LOGO 14,59,' 3333333333 777777777777 MM00000000 ' HRC073DK 00005740
LOGO 16,31,' 333333333333 77777777777MM MM0000000000 ' HRC073DK 00005750
LOGO 18,03,' 33 VV33 77VV 77 MMMM00MM 00 ' HRC073DK 00005760
LOGO 19,55,' V33 VV 77M MM 00MM 00 ' HRC073DK 00005770
LOGO 21,27,' 33 VV 77MM 00MM 00 ' HRC073DK 00005780
LOGO 22,79,' 3333VV VV 77 MM 00MM 00 ' HRC073DK 00005790
LOGO 24,51,' 3333 VVVV 77 MM 00MM 00 ' HRC073DK 00005800
LOGO 26,23,' 33 VV 77 MM 00MM 00 ' HRC073DK 00005810
LOGO 27,75,' 33 77 00 00 ' HRC073DK 00005820
LOGO 29,47,' 33 33 77 00 00 ' HRC073DK 00005830
LOGO 31,19,' 333333333333 77 0000000000 ' HRC073DK 00005840
LOGO 32,71,' 3333333333 77 00000000 ' HRC073DK 00005850
LOGO 34,43,' ' HRC073DK 00005860
LOGO 36,15,' VM/370 Release 6 "SixPack" version 1.2 ' HRC073DK 00005870
DMKBXL05 EQU *-DMKBOX05-2 HRC073DK 00005880
DMKBOXBX EQU * HRC370DK 00006010
DC CL46' VV VV MM MM ' HRC370DK 00006020
DC CL46' VV VV MMM MMM ' HRC370DK 00006030
DC CL46' 3333333333 777777777777 MM00000000 ' HRC370DK 00006040
DC CL46'333333333333 77777777777MM MM0000000000 ' HRC370DK 00006050
DC CL46'33 VV33 77VV 77 MMMM00MM 00 ' HRC370DK 00006060
DC CL46' V33 VV 77M MM 00MM 00 ' HRC370DK 00006070
DC CL46' 33 VV 77MM 00MM 00 ' HRC370DK 00006080
DC CL46' 3333VV VV 77 MM 00MM 00 ' HRC370DK 00006090
DC CL46' 3333 VVVV 77 MM 00MM 00 ' HRC370DK 00006100
DC CL46' 33 VV 77 MM 00MM 00 ' HRC370DK 00006110
DC CL46' 33 77 00 00 ' HRC370DK 00006120
DC CL46'33 33 77 00 00 ' HRC370DK 00006130
DC CL46'333333333333 77 0000000000 ' HRC370DK 00006140
DC CL46' 3333333333 77 00000000 ' HRC370DK 00006150
DC CL46' ' HRC370DK 00006160
DC CL46' VM/370 Release 6 "SixPack" version 1.2 ' HRC370DK 00006170
DMKBOXHR DC CL46' ' SPACE FOR CLASS X PAGE TRAILER @VA00841 00023000
END 00024000