本篇重在介绍,怎么把内存的实际数据显示出来,首先看下汇编怎么实现的,接下来是用COBOL实现的
000000 00000 00100 1 MAIN CSECT
R:C 00000 2 USING *,12
000000 90EC D00C 0000C 3 STM 14,12,12(13)
000004 0DC0 4 BASR 12,0
000006 50D0 C02C 0002C 5 ST 13,SAVE+4
00000A 41D0 C028 00028 6 LA 13,SAVE
0000E 7 START EQU *
00000E F384 C075 C070 00075 00070 8 UNPK OUTPUT(9),INPUT(5)
000014 DC07 C075 C000 00075 00000 9 TR OUTPUT,HEXTAB
0001A 10 EXIT EQU *
00001A 58D0 C02C 0002C 11 L 13,SAVE+4
00001E 98EC D00C 0000C 12 LM 14,12,12(13)
000022 41F0 0000 00000 13 LA 15,0
000026 07FE 14 BR 14
000028 15 SAVE DS 18F
000070 A0B1C2D312 16 INPUT DC X'A0B1C2D3',X'12'
000075 4040404040404040 17 OUTPUT DC CL8' ',C' '
00007E 0007E 000F0 18 ORG MAIN+C'0'
0000F0 000F0 000F0 19 ORG ,
00000 20 HEXTAB EQU *-C'0'
0000F0 F0F1F2F3F4F5F6F7 21 DC C'0123456789ABCDEF'
000000