1 *JOBID,LIST
2 *DUMP
3 PROGRAM HTEST
4 WRITE(3,298)
5 100 READ(2,200,END=300,ERR=300) II,B,D
6 WRITE(3,200) II,B,D
7 GOTO 100
8 200 FORMAT (14H ,I2,2(1H , F8.2) )
9 298 FORMAT (//' STARTING PROGRAM')
10 299 FORMAT (' END OF DATA')
11 300 WRITE(3,299)
12 END
13 *DATA
END OF COMPILE
00001 PROG HTEST
00002 ADMODE3
0002474 00003 ORG 1340
0002474 00004 $FLIB RESV 0
0002474 01 00005 $ACBOIODC #1B1
0002475 02 00006 DC #1B2
0002476 04 00007 $ACBFXPDC #1B4
0002477 03 00008 $ACBFPHDC #1B3
0002500 00 00009 $FEXIT DC #1B0
0002501 00010 $FLIB1 RESV 0
0002501 W 00 00011 $IOFLG DCW #1B0
0002502 00012 $FLIB2 RESV 0
0002502 W 000000 00013 II DCW #3B0
0002505 W 0000000000000000 00014 B DCW F0.00000000000E+00
0002515 W 0000000000000000 00015 D DCW F0.00000000000E+00
0002525 WI 01043015151515151515+00016 R $00200DCW #32A14H ,I2,2(1H ,F8.2)
0002565 WI 61611215626321516331+00017 R $00298DCW #21A//' STARTING PROGRAM'
0002612 WI 12152545241546261524+00018 R $00299DCW #14A' END OF DATA'
0002630 W 4200 00019 $START CAM 00
0002632 W 65077777 00020 B 0-1
0002636 W 26465163512145 00021 DCW @FORTRAN@
0002645 W 002474 00022 DSA $FLIB
0002650 W 002501 00023 DSA $FLIB1
0002653 WI 002502 00024 R DSA $FLIB2
00025 SETLIN3
00026 SETLIN4
0002656 W 65002474 00027 B $ACBOIO
0002662 W 002565 00028 DSA $00298
0002665 R 20 00029 R DCW #1C20
0002666 W 65002474 00030 B $ACBOIO
0002672 W 002565 00031 DSA $00298
0002675 R 77 00032 R DCW #1C77
00033 SETLIN5
0002676 00034 $00100 RESV 0
0002676 W 65002474 00035 B $ACBOIO
0002702 W 002525 00036 DSA $00200
0002705 R 50 00037 R DCW #1C50
0002706 W 43 00038 CSM
0002707 WI 002504 00039 R DSA II
0002712 W 43 00040 CSM
0002713 WI 002514 00041 R DSA B
0002716 W 43 00042 CSM
0002717 WI 002524 00043 R DSA D
0002722 W 65002474 00044 B $ACBOIO
0002726 W 002525 00045 DSA $00200
0002731 R 77 00046 R DCW #1C77
0002732 W 5600301200250104 00047 BBE $00300,$IOFLG,04
0002742 W 5600301200250103 00048 BBE $00300,$IOFLG,03
00049 SETLIN6
0002752 W 65002474 00050 B $ACBOIO
0002756 W 002525 00051 DSA $00200
0002761 R 20 00052 R DCW #1C20
0002762 W 43 00053 CSM
0002763 WI 002504 00054 R DSA II
0002766 W 43 00055 CSM
0002767 WI 002514 00056 R DSA B
0002772 W 43 00057 CSM
0002773 WI 002524 00058 R DSA D
0002776 W 65002474 00059 B $ACBOIO
0003002 W 002525 00060 DSA $00200
0003005 R 77 00061 R DCW #1C77
00062 SETLIN7
0003006 W 65002676 00063 B $00100
00064 SETLIN8
00065 SETLIN9
00066 SETLIN10
00067 SETLIN11
0003012 00068 $00300 RESV 0
0003012 W 65002474 00069 B $ACBOIO
0003016 W 002612 00070 DSA $00299
0003021 R 20 00071 R DCW #1C20
0003022 W 65002474 00072 B $ACBOIO
0003026 W 002612 00073 DSA $00299
0003031 R 77 00074 R DCW #1C77
00075 SETLIN12
0003032 W 65003042 00076 B $ENDAA
0003036 W 45003036 00077 H *
0003042 W 2400305670 00078 $ENDAA SCR $ENDZZ,70
0003047 W 65002500 00079 B $FEXIT
0003053 W 65000000 00080 $ENDZZB 0
0003057 W 40 00081 NOP
0002630 00082 END $START
END OF ASSEMBLY
SYMBOL TABLE:
$00100 0002676 $00200 0002525 $00298 0002565 $00299 0002612 $00300 0003012 $ACBFPH 0002477 $ACBFXP 0002476
$ACBOIO 0002474 $ENDAA 0003042 $ENDZZ 0003056 $FEXIT 0002500 $FLIB 0002474 $FLIB1 0002501 $FLIB2 0002502
$IOFLG 0002501 $START 0002630 B 0002514 D 0002524 II 0002504
MEMORY MAP
SYMBOL ADDRESS ALTERNATE
II 0002504
B 0002514
D 0002524
STARTING PROGRAM
..A.......... 0 123.46 12.35
..B.......... 1 1234.57 123.46
..C.......... 2 12345.67 1234.57
..D.......... 3 ******** 12345.67
..E.......... 4 ******** ********
END OF DATA
MEMORY DUMP: 0002474 - 0003057
0002400 1 2 3 4 5 6 7 0002500 1 2 3 4 5 6 7
124300004BVQ)000D■90*T:0+14H...E..........,I2,2(1H ,F8.2)//' STARTIN
00000000026530002310561020033332333333333373070703172130366116625634
12430000425040004610434001403335333333333331232410536032411252311315
WW W W W IW
0002600 1 2 3 4 5 6 7 0002700 1 2 3 4 5 6 7
G PROGRAM'' END OF DATA'K0V7¢¢FORTRAN0D(0E10E2V0D(0EV+V0D(0EV¢V0D(0EEQL0E4L0E:L0EDV0D(0EE¢≠0H'0E14≠0H'0E13V0D(0EE+L0E4L0E:L0EDV0
21454252411124214212262140607724565240270200206027026260270267602702254020402140226027022750310200503102006027022240204021402260
75716711422555456654131220577766131150440510525044055050440557504405503054305430545044055760020514600205135044055030543054305450
IW IW W W W W W IW W RW W RW W RWW IWW IWW IW W RW W W W RWW IWW IWW IW
0003000 1 2 3 4 5 6 7 0003100 1 2 3 4 5 6 7
D(0EE¢V0F□V0D(0F'+V0D(0F'¢V0HKN0H■D0H≠YV0E0V0H■-
270227602760270212602702176034403320357602060334
440557506650440620504406275002500640060505050060
W RW W W RW W RW W W W W W