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