 101 003       job  1401 Fortran compiler tape generator                   50993
 102           ctl  645 11
 103           xinitx1,x2,x3
 104 xbegin    equ  838
 105           org  6000
 106 begin     r
 107           ss   1
 108           r
 109           ss   1
 110           r
 111           ss   1
 112           rwd  1
 113           sw   1,40
 114           sw   47,54
 115           sw   61,68
 116           sw   72
 117 nutap     r
 118           ss   1
 119           c    4,@,015@
 120           be   compt
 121           c    4,@]]]]@                      all 11-5-8
 122           be   funct
 123           bwz  *&5,44,2
 124           b    mov
 125           c    46,@111@
 126           bh   nutap
 127 mov       mcw  46,lod&6
 128 lod       lca  0,0
 129           sbr  x1
 130           mcw  trap,71
 131           b    47
 132 retrn     r
 133           ss   1
 134           bce  ckfst,40,/
 135           bce  ckfst,68,b
 136           mcw  trap,71
 137           b    40
 138 ckfst     b    first
 139 put       wtw  1,1&x1
 140           ber  tperr
 141           blc  end
 142           cs   20
 143           sw   1
 144           mcw  @r99@,x2
 145 cleer     cs   0&x2
 146           sbr  x2
 147           c    x2,@299@
 148           bu   cleer
 149           b    nutap
 150 tperr     bsp  1
 151           skp  1
 152           s    &1,count
 153           bwz  erxt,count,b
 154           messg@bad tape one - replace and restart@,65,1,1
 155           h    1111,1111
 156           mcw  &10,count
 157 erxt      b    put
 158 end       wtm  1
 159           rwd  1
 160           messg@1401 Fortran compiler generated on tu 1@,70,1,1
 161 eoj       h    2222,2222
 162           b    eoj
 163 funct     cw   1
 164           sbr  erxt&3,lgm
 165 lgm       lca  @}@,80          gm
 166           wtw  1,1
 167           ber  tperr
 168           c    4,@;;;;@      all 11-6-8
 169           be   ndfun
 170           r
 171           ssb  lgm,1
 172 ndfun     sw   1
 173           cw   80
 174           sbr  erxt&3,put
 175           b    nutap
 176 first     mcw  @n@,ckfst
 177           lca  fixed,14
 178           lca
 179           lca
 180           lca
 181           b    put
 182 compt     r
 183           ss   1
 184           b    nutap
 185           dcw  @b010l@
 186           dcw  @b@
 187           dc   xbegin
 188           dcw  @.010@
 189 fixed     dcw  0
 190 count     dcw  10
 191           dcw  @b@
 192 trap      dc   retrn
 193           end  begin
