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