ibm:vm370-lib:cp:dmkbox.assemble_src
Table of Contents
DMKBOX Source
References
- Fixes Applied : 4
- This Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC073DK]
Source Listing
- DMKBOX.ASSEMBLE.txt
- 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
ibm/vm370-lib/cp/dmkbox.assemble_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator