MACRO 00010000 &NAME @DUMP &ADDR,&LEN,&GEN=NO 00020000 LCLC &NDX 00030000 &NDX SETC '&SYSNDX' 00040000 AIF ('&GEN' EQ 'YES').GEN 00050000 &NAME @RGCK &ADDR,REG=R1 00060000 @RGCK &LEN,REG=R0 00070000 LA R15,@DUMP 00080000 BALR R14,R15 00090000 MEXIT , 00100000 .* 00110000 .* 00120000 .GEN ANOP , 00130000 @DUMP STM R14,R12,12(R13) 00140000 LA R15,@&NDX.80 NEW SAVE AREA 00150000 ST R15,8(,R13) 00160000 ST R13,4(,R15) 00170000 LR R13,R15 00180000 * 00190000 LR R10,R1 DATA ADDRESS 00200000 LR R11,R0 LENGTH 00210000 AR R11,R10 END ADDRESS 00220000 * 00230000 N R10,@&NDX.83 ALIGN 00240000 @&NDX.01 DS 0H 00250000 MVI @&NDX.70,C' ' CLEAR PRINT BUFFER 00260000 MVC @&NDX.70+1(L'@&NDX.70-1),@&NDX.70 00270000 ST R10,@&NDX.81 ADDRESS 00280000 UNPK @&NDX.82(9),@&NDX.81(5) 00290000 TR @&NDX.82(8),@&NDX.99-C'0' 00300000 MVC @&NDX.71,@&NDX.82 00310000 * 00320000 MVC @&NDX.74,0(R10) 00330000 TR @&NDX.74,@&NDX.98 KEEP ONLY PRINTABLE 00340000 * 00350000 LA R2,@&NDX.72 FIRST DATA AREA 00360000 LA R3,4 00370000 @&NDX.02 DS 0H 00380000 MVC @&NDX.81(4),0(R10) 00390000 UNPK @&NDX.82(9),@&NDX.81(5) 00400000 TR @&NDX.82(8),@&NDX.99-C'0' 00410000 MVC 0(8,R2),@&NDX.82 00420000 LA R10,4(,R10) 00430000 LA R2,9(,R2) 00440000 BCT R3,@&NDX.02 00450000 * 00460000 * 00470000 @PRINT @&NDX.70 00480000 * 00490000 * 00500000 CR R10,R11 STILL MORE TO DO 00510000 BL @&NDX.01 YES - LOOP BACK 00520000 * 00530000 * 00540000 L R13,4(,R13) 00550000 LM R14,R12,12(R13) 00560000 BR R14 00570000 * 00580000 * 00590000 @&NDX.70 DC CL132' ' 00600000 ORG @&NDX.70 00610000 @&NDX.71 DS CL8 00620000 DS CL2 00630000 @&NDX.72 DS CL8,CL1,CL8,CL1,CL8,CL1,CL8,CL2 00640000 @&NDX.74 DS CL16 00650000 ORG , 00660000 * 00670000 @&NDX.80 DC 18F'0' 00680000 @&NDX.81 DC F'0' 00690000 @&NDX.82 DC CL9'0' 00700000 DS 0F 00710000 @&NDX.83 DC X'00FFFFF0' 00720000 * 00730000 * 00740000 @&NDX.98 DS 0C 00750000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00760000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 00 00770000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 10 00780000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 20 00790000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 30 00800000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' 40 00810000 DC X'504B4B4B4B4B4B4B4B4B5A5B5C5D5E5F' 50 00820000 DC X'60614B4B4B4B4B4B4B4B6A6B6C6D6E6F' 60 00830000 DC X'4B4B4B4B4B4B4B4B4B4B7A7B7C7D7E7F' 70 00840000 DC X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B' 80 00850000 DC X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B' 90 00860000 DC X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B' A0 00870000 DC X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B' B0 00880000 DC X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B' C0 00890000 DC X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B' D0 00900000 DC X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B' E0 00910000 DC X'F0F1F2F3F4F5F6F7F8F94B4B4B4B4B4B' F0 00920000 * 00930000 * 00940000 @&NDX.99 DC C'0123456789ABCDEF' 00950000 MEND , 00960000