5054.s 5054-v3m4.s ====== =========== 1: 101 job 1401 Fortran format package 5054a 1: 101 job 1401 Fortran format package 5054a 2: 102 ctl 645 11 2: 102 ctl 645 11 3: 103 sfx q 3: 103 sfx q 4: 104 110 dcw @formatpak@ 4: 104 110 dcw @formatpak@ 5: 105 x1 equ 089 5: 105 x1 equ 089 6: 106 x2 equ 094 6: 106 x2 equ 094 7: 107 x3 equ 099 7: 107 x3 equ 099 8: 108 parama equ 686 8: 108 parama equ 686 9: 109 monter equ 700 9: 109 monter equ 700 10: 110 tclear equ 710 10: 110 tclear equ 710 11: 111 montor equ 769 11: 111 montor equ 769 12: 112 startr equ 934 12: 112 startr equ 934 13: 113 org startr 13: 113 org startr 14: 114 fomat sw gmwm,format 14: 114 fomat sw gmwm,format 15: 115 bce tpsys,montor,n tape or card system 15: 115 bce tpsys,montor,n tape or card system 16: 116 cdsys bce cdlio,parama&10,l l#limited i/o 16: 116 cdsys bce cdlio,parama&10,l l#limited i/o 17: 117 sklio r 17: 117 sklio r 18: 118 bce ntest,68,b 18: 118 bce ntest,68,b 19: 119 b sklio 19: 119 b sklio 20: 120 ntest bce skfio,parama&10,x x#no i/o 20: 120 ntest bce skfio,parama&10,x x#no i/o 21: 121 r 040 21: 121 r 040 22: 122 cwfio cw gmk 22: 122 cwfio cw gmk 23: 123 c parama&4,@01@ 23: 123 c parama&4,@01@ 24: 124 bu atest 24: 124 bu atest 25: 125 lca @n@,cwmks 25: 125 lca @n@,cwmks 26: 126 atest bce cdaf,parama&10,a a#a format 26: 126 atest bce cdaf,parama&10,a a#a format 27: 127 skaio r 27: 127 skaio r 28: 128 bce exita,68,b 28: 128 bce exita,68,b 29: 129 b skaio 29: 129 b skaio 30: 130 cdlio r 040 30: 130 cdlio r 040 31: 131 cwlio cw gpwdmk 31: 131 cwlio cw gpwdmk 32: 132 skfio r 32: 132 skfio r 33: 133 bce atest,68,b 33: 133 bce atest,68,b 34: 134 b skfio 34: 134 b skfio 35: 135 cdaf r 040 35: 135 cdaf r 040 36: 136 cwaf cw gm54d 36: 136 cwaf cw gm54d 37: 137 b exita 37: 137 b exita 38: 138 tpsys bce tplio,parama&10,l 38: 138 tpsys bce tplio,parama&10,l 39: 139 skpl rtw 1,gmwm 39: 139 skpl rtw 1,gmwm 40: 140 ber tper 40: 140 ber tper 41: 141 bce skpf,parama&10,x 41: 141 bce skpf,parama&10,x 42: 142 fulio rtw 1,format 42: 142 fulio rtw 1,format 43: 143 ber tper 43: 143 ber tper 44: 144 c parama&4,@01@ 44: 144 c parama&4,@01@ 45: 145 bu tstaf 45: 145 bu tstaf 46: 146 lca @n@,cwmks 46: 146 lca @n@,cwmks 47: 147 tstaf bce tpaf,parama&10,a 47: 147 tstaf bce tpaf,parama&10,a 48: 148 skpaf rtw 1,gmwm 48: 148 skpaf rtw 1,gmwm 49: 149 ber tper 49: 149 ber tper 50: 150 exita fendxc,,,,,,gmwm,replace 2 50: 150 exita fendxc,,,,,,gmwm,replace 2 51: 151 tplio rtw 1,format 51: 151 tplio rtw 1,format 52: 152 ber tper 52: 152 ber tper 53: 153 skpf rtw 1,gmwm 53: 153 skpf rtw 1,gmwm 54: 154 ber tper 54: 154 ber tper 55: 155 b skpaf 55: 155 b skpaf 56: 156 tpaf rtw 1,abegn 56: 156 tpaf rtw 1,abegn 57: 157 ber tper 57: 157 ber tper 58: 158 b exita 58: 158 b exita 59: 159 tper sbr bback&3 59: 159 tper sbr bback&3 60: 160 ma @i8g@,bback&3 60: 160 ma @i8g@,bback&3 61: 161 bsp 1 61: 161 bsp 1 62: 162 h 3333,3333 62: 162 h 3333,3333 63: 163 bback b 0 63: 163 bback b 0 64: 164 ltorg* 64: 164 ltorg* 65: 165 gmwm dcw @}@ group mark 65: 165 gmwm dcw @}@ group mark 66: 166 xfr fomat next comes lio, then full i/o 66: 166 xfr fomat next comes lio, then full i/o 67: 167 job object time format 5054b 67: 167 job object time format 5054b 68: 168 org 1697 68: 168 org 1697 69: 169 start sbr x1 69: 169 start sbr x1 70: 170 sw gpwdmk 70: 170 sw gpwdmk 71: 171 cw 0&x1 71: 171 cw 0&x1 72: 172 mcw x3,savx3#3 save x3 72: 172 mcw x3,savx3#3 save x3 73: 173 lca @001@,x3 73: 173 lca @001@,x3 74: 174 bwz wrtap,0&x1,s go to write tape on zone. 74: 174 bwz wrtap,0&x1,s go to write tape on zone. 75: 175 mcw @r@,io4&7 set read tape D modifier 75: 175 mcw @r@,io4&7 set read tape D modifier 76: 176 rdtap mcw 6&x1,loc#3 76: 176 rdtap mcw 6&x1,loc#3 77: 177 io1 mcw loc,io12&6 77: 177 io1 mcw loc,io12&6 78: 178 io12 bce ret,000,. . is end of list, return 78: 178 io12 bce ret,000,. . is end of list, return 79: 179 ma @006@,loc 79: 179 ma @006@,loc 80: 180 mcw loc,io15&3 80: 180 mcw loc,io15&3 81: 181 io15 mcw 000,addr#6 addr is loc of data addr 81: 181 io15 mcw 000,addr#6 addr is loc of data addr 82: 182 sw addr-2 82: 182 sw addr-2 83: 183 ma @001@,addr addr is now loc of data addr &1 83: 183 ma @001@,addr addr is now loc of data addr &1 84: 184 mcw addr,io2&3 84: 184 mcw addr,io2&3 85: 185 io2 mcw 000,savch#1 save char after data area 85: 185 io2 mcw 000,savch#1 save char after data area 86: 186 mcw addr,io3&6 86: 186 mcw addr,io3&6 87: 187 io3 lca gpwdmk,000 move gp mk wd mk to data addr &1 87: 187 io3 lca gpwdmk,000 move gp mk wd mk to data addr &1 88: 188 mcw addr-3,io4&6 move first char addr of data 88: 188 mcw addr-3,io4&6 move first char addr of data 89: 189 mn 0&x1,io4&3 move tape no. 89: 189 mn 0&x1,io4&3 move tape no. 90: 190 s count#1,count clear read-error counter 90: 190 s count#1,count clear read-error counter 91: 191 mz @a@,io4&5 91: 191 mz @a@,io4&5 92: 192 io4 rtw 1,000 92: 192 io4 rtw 1,000 93: 193 bef rwt78 < 94: 194 ber rwt31 93: 194 ber rwt31 95: 195 mcw addr,io5&6 94: 195 mcw addr,io5&6 96: 196 io5 mcw savch,000 return char after data area 95: 196 io5 mcw savch,000 return char after data area 97: 197 ma @001@,loc step to next variable in list 96: 197 ma @001@,loc step to next variable in list 98: 198 cw addr-2 97: 198 cw addr-2 > 98: 1981 bef rwt78 v3m4 > 99: 1982 ma @001@,loc v3m4 99: 199 b io1 100: 199 b io1 100: 200 ret mcw savx3,x3 restore x3 101: 200 ret mcw savx3,x3 restore x3 101: 201 sw 0&x1 102: 201 sw 0&x1 102: 202 b 7&x1 103: 202 b 7&x1 103: 203 wrtap mcw @w@,io4&7 set write tape D modifier 104: 203 wrtap mcw @w@,io4&7 set write tape D modifier 104: 204 b rdtap 105: 204 b rdtap 105: 205 rwt31 bce rwt77,count,i test read-error counter 106: 205 rwt31 bce rwt77,count,i test read-error counter 106: 206 mn io4&3,*&4 107: 206 mn io4&3,*&4 107: 207 ub%u0 backspace 108: 207 ub%u0 backspace 108: 208 bce rwt41,io4&7,w 109: 208 bce rwt41,io4&7,w 109: 209 a @1@,count increase read-error counter 110: 209 a @1@,count increase read-error counter 110: 210 b io4 111: 210 b io4 111: 211 rwt41 mn io4&3,*&4 112: 211 rwt41 mn io4&3,*&4 112: 212 ue%u0 skip and erase 113: 212 ue%u0 skip and erase 113: 213 b io4 114: 213 b io4 114: 214 rwt77 h *-6,777 tape-error 115: 214 rwt77 h *-6,777 tape-error 115: 215 rwt78 h *-6,888 end-of-file 116: 215 rwt78 h *-6,888 end-of-file 116: 216 ltorg* 117: 216 ltorg* 117: 217 dcw @ @ 118: 217 dcw @ @ 118: 218 gpwdmk dcw @}@ group mark 119: 218 gpwdmk dcw @}@ group mark 119: 219 xfr cwlio 120: 219 xfr cwlio 120: 220 job object time format 5054c 121: 220 job object time format 5054c 121: 221 org 1697 122: 221 org 1697 122: 222 format sbr x1 123: 222 format sbr x1 123: 223 mlc 0&x1,fmtzon save i/o code 124: 223 mlc 0&x1,fmtzon save i/o code 124: 224 mlc *-6,io 125: 224 mlc *-6,io 125: 225 sbr fmtxt&3, 7&x1 store exit from format routn 126: 225 sbr fmtxt&3, 7&x1 store exit from format routn 126: 226 mcw 6&x1,list&6 127: 226 mcw 6&x1,list&6 127: 227 za *-6,pctr set scale factor to zero 128: 227 za *-6,pctr set scale factor to zero 128: 228 cw insw#1 129: 228 cw insw#1 129: 229 sw gmk 130: 229 sw gmk 130: 230 mcw 3&x1, xl2 mv addr of spec to x2 131: 230 mcw 3&x1, xl2 mv addr of spec to x2 131: 231 sbr x3, 200 initilze wkarea ctr to lft 132: 231 sbr x3, 200 initilze wkarea ctr to lft 132: 232 sbr tumuch#3,334 133: 232 sbr tumuch#3,334 133: 233 bce readc, 0&x1, & read card 134: 233 bce readc, 0&x1, & read card 134: 234 bce punch, 0&x1, - punch card 135: 234 bce punch, 0&x1, - punch card 135: 235 bce print, 0&x1, * print line 136: 235 bce print, 0&x1, * print line 136: 236 bwz rditp, 0&x1, k read input tape 137: 236 bwz rditp, 0&x1, k read input tape 137: 237 bwz wt2,0&x1,b write output tape 138: 237 bwz wt2,0&x1,b write output tape 138: 238 sbr x2,rdrtb set retrn for read tape 139: 238 sbr x2,rdrtb set retrn for read tape 139: 239 cs 332 clear wrk area for read tape 140: 239 cs 332 clear wrk area for read tape 140: 240 cs and write tape 141: 240 cs and write tape 141: 241 cs 142: 241 cs 142: 242 sbr x3,100 set wkarea to 100 143: 242 sbr x3,100 set wkarea to 100 143: 243 mlc ell,io 144: 243 mlc ell,io 144: 244 loop2 sw 0&x3 145: 244 loop2 sw 0&x3 145: 245 b getad 146: 245 b getad 146: 246 bwz rditp,fmtzon,2 exit if read tape 147: 246 bwz rditp,fmtzon,2 exit if read tape 147: 247 sbr buckt,100 148: 247 sbr buckt,100 148: 248 mvagn mlc 0&x1,0&x3 149: 248 mvagn mlc 0&x1,0&x3 149: 249 sar x2 150: 249 sar x2 150: 250 b sbrx3 151: 250 b sbrx3 151: 251 bw *&5,1&x2 152: 251 bw *&5,1&x2 152: 252 b mvagn 153: 252 b mvagn 153: 253 b ckovf go ck if we are past 332 154: 253 b ckovf go ck if we are past 332 154: 254 sbr outpt&3,tpcmnd 155: 254 sbr outpt&3,tpcmnd 155: 255 b loop2 go get nxt addrs of data 156: 255 b loop2 go get nxt addrs of data 156: 256 out b ckovf go ck if we are past 332 157: 256 out b ckovf go ck if we are past 332 157: 257 mlcwa0&x3,0&x1 mv data frm wrkarea to strge 158: 257 mlcwa0&x3,0&x1 mv data frm wrkarea to strge 158: 258 b getad go get nxt addr of data 159: 258 b getad go get nxt addr of data 159: 259 rdrtn b sbrx3 160: 259 rdrtn b sbrx3 160: 260 rdrtb bw out,1&x3 161: 260 rdrtb bw out,1&x3 161: 261 b rdrtn no brnch to step ctr 162: 261 b rdrtn no brnch to step ctr 162: 262 fmain sbr outpt&3 retrn fromm rd,pch,prt,rd-wtp 163: 262 fmain sbr outpt&3 retrn fromm rd,pch,prt,rd-wtp 163: 263 mlc x3,buckt#3 164: 263 mlc x3,buckt#3 164: 264 b 0&x2 go process accrdng to format 165: 264 b 0&x2 go process accrdng to format 165: 265 getad sbr gtxt&3 166: 265 getad sbr gtxt&3 166: 266 mlc x2,save2&6 free x2 for list routine 167: 266 mlc x2,save2&6 free x2 for list routine 167: 267 bw alrdy,lkhed 168: 267 bw alrdy,lkhed 168: 268 list t oblist 169: 268 list t oblist 169: 269 mlbox dcw #3 170: 269 mlbox dcw #3 170: 270 sbr x2 end of oblst, array adres 171: 270 sbr x2 end of oblst, array adres 171: 271 rmvzn mz nozn,x1-1 172: 271 rmvzn mz nozn,x1-1 172: 272 bce ntray,x1,. entire array for write tape 173: 272 bce ntray,x1,. entire array for write tape 173: 273 bce undun,x1, blank 174: 273 bce undun,x1, blank 174: 274 save2 sbr x2, xxx restore x2 175: 274 save2 sbr x2, xxx restore x2 175: 275 gtxt b xxx 176: 275 gtxt b xxx 176: 276 undun bw fmtxt,insw 177: 276 undun bw fmtxt,insw 177: 277 c buckt,x3 178: 277 c buckt,x3 178: 278 bu ndlin 179: 278 bu ndlin 179: 279 b fmtxt 180: 279 b fmtxt 180: 280 alrdy cw lkhed 181: 280 alrdy cw lkhed 181: 281 mlc save1,x1 182: 281 mlc save1,x1 182: 282 b rmvzn 183: 282 b rmvzn 183: 283 ntray mlc 2&x2,x3 mv lft addr of array-1 to x3 184: 283 ntray mlc 2&x2,x3 mv lft addr of array-1 to x3 184: 284 mlc 5&x2,x1 mv right addr of array to x1 185: 284 mlc 5&x2,x1 mv right addr of array to x1 185: 285 mlc 1&x1,gmkhd#1 save char at righthand addr 186: 285 mlc 1&x1,gmkhd#1 save char at righthand addr 186: 286 bw *&5,1&x1 plus one and replace by gmk 187: 286 bw *&5,1&x1 plus one and replace by gmk 187: 287 cw gmksw#1 for reading or writing from 188: 287 cw gmksw#1 for reading or writing from 188: 288 ell mlcwagmk,1&x1 189: 288 ell mlcwagmk,1&x1 189: 289 b sbrx3 190: 289 b sbrx3 190: 290 sbr x2,arrtn set return from i/o routine 191: 290 sbr x2,arrtn set return from i/o routine 191: 291 bwz rditp,fmtzon,2 go read tap e entire array 192: 291 bwz rditp,fmtzon,2 go read tap e entire array 192: 292 b tpcmnd 193: 292 b tpcmnd 193: 293 arrtn mlc gmkhd,1&x1 return from read or write tp 194: 293 arrtn mlc gmkhd,1&x1 return from read or write tp 194: 294 bw fmtxt,gmksw entire array- reset charactr 195: 294 bw fmtxt,gmksw entire array- reset charactr 195: 295 cw 1&x1 wheregmk was inserted 196: 295 cw 1&x1 wheregmk was inserted 196: 296 sw gmksw 197: 296 sw gmksw 197: 297 fmtxt b xxx egress 198: 297 fmtxt b xxx egress 198: 298 fmtzon dcw @ @ 199: 298 fmtzon dcw @ @ 199: 299 sbrx3 sbr sbrx3&14 200: 299 sbrx3 sbr sbrx3&14 200: 300 sbr x3,1&x3 201: 300 sbr x3,1&x3 201: 301 b 0 202: 301 b 0 202: 302 opnpr sbr x2 entry for lft paren in frmat 203: 302 opnpr sbr x2 entry for lft paren in frmat 203: 303 mn 0&x2 204: 303 mn 0&x2 204: 304 mn 205: 304 mn 205: 305 mn 206: 305 mn 206: 306 mn 207: 306 mn 207: 307 sar repeat&3 208: 307 sar repeat&3 208: 308 mcw 2&x2, rtpa#3 mv nmbr of times routine is 209: 308 mcw 2&x2, rtpa#3 mv nmbr of times routine is 209: 309 sbr last1&3,3&x2 210: 309 sbr last1&3,3&x2 210: 310 b decra to be executed to hld area 211: 310 b decra to be executed to hld area 211: 311 clspr sbr x2 entry for right paren frm 212: 311 clspr sbr x2 entry for right paren frm 212: 312 decra s one,rtpa 213: 312 decra s one,rtpa 213: 313 bm 0&x2, rtpa have finished this set of 214: 313 bm 0&x2, rtpa have finished this set of 214: 314 last1 b xxx 215: 314 last1 b xxx 215: 315 ndlin sbr x2 entry for / in format routin 216: 315 ndlin sbr x2 entry for / in format routin 216: 316 mlc buckt,x3 217: 316 mlc buckt,x3 217: 317 outpt b xxx 218: 317 outpt b xxx 218: 318 eoj1 bw nopsw,insw 219: 318 eoj1 bw nopsw,insw 219: 319 c buckt,x3 220: 319 c buckt,x3 220: 320 bu ndlin 221: 320 bu ndlin 221: 321 nopsw mlc list&6,*&7 222: 321 nopsw mlc list&6,*&7 222: 322 bce nopbr,0,, 223: 322 bce nopbr,0,, 223: 323 mlc list&6,*&7 224: 323 mlc list&6,*&7 224: 324 t oblist 225: 324 t oblist 225: 325 ejbox dcw #3 226: 325 ejbox dcw #3 226: 326 bce fmtxt,x1, 227: 326 bce fmtxt,x1, 227: 327 mlc ejbox,mlbox 228: 327 mlc ejbox,mlbox 228: 328 mlc x1,save1#3 229: 328 mlc x1,save1#3 229: 329 sw lkhed 230: 329 sw lkhed 230: 330 nopbr bw ndlin,insw go get new rcd if input 231: 330 nopbr bw ndlin,insw go get new rcd if input 231: 331 repeat b xxx 232: 331 repeat b xxx 232: 332 scale sbr x2 233: 332 scale sbr x2 233: 333 za 2&x2,pctr save scaling factor 234: 333 za 2&x2,pctr save scaling factor 234: 334 b 3&x2 return to format spec 235: 334 b 3&x2 return to format spec 235: 335 pctr dcw &000 236: 335 pctr dcw &000 236: 336 hollr sbr x2 237: 336 hollr sbr x2 237: 337 testh bw holin,insw 238: 337 testh bw holin,insw 238: 338 hlout mlc 0&x2,0&x3 239: 338 hlout mlc 0&x2,0&x3 239: 339 holin mlc 0&x3,0&x2 240: 339 holin mlc 0&x3,0&x2 240: 340 b sbrx3 241: 340 b sbrx3 241: 341 sbr x2,1&x2 242: 341 sbr x2,1&x2 242: 342 bw *&5,0&x2 243: 342 bw *&5,0&x2 243: 343 b testh 244: 343 b testh 244: 344 b ckovf 245: 344 b ckovf 245: 345 b 0&x2 246: 345 b 0&x2 246: 346 getw sbr x2 247: 346 getw sbr x2 247: 347 mcw 3&x2, rptb#3 248: 347 mcw 3&x2, rptb#3 248: 348 dcrpb s one,rptb 249: 348 dcrpb s one,rptb 249: 349 bwz gtrtn,rptb,b 250: 349 bwz gtrtn,rptb,b 250: 350 bce 7&x2,0&x2,i 251: 350 bce 7&x2,0&x2,i 251: 351 bce 7&x2,0&x2,a 252: 351 bce 7&x2,0&x2,a 252: 352 b 10&x2 253: 352 b 10&x2 253: 353 gtrtn b getad 254: 353 gtrtn b getad 254: 354 afixws,fixwd 255: 354 afixws,fixwd 255: 355 efntn afltwsw,fltwd,-1 256: 355 efntn afltwsw,fltwd,-1 256: 356 bw inefi, insw 257: 356 bw inefi, insw 257: 357 cs 24 258: 357 cs 24 258: 358 sw 0&x3 259: 358 sw 0&x3 259: 359 mn 260: 359 mn 260: 360 sbr x3 261: 360 sbr x3 261: 361 sbr joe4&3,2&x3 262: 361 sbr joe4&3,2&x3 262: 362 sbr fins&3 263: 362 sbr fins&3 263: 363 sw 001 264: 363 sw 001 264: 364 bce inotn, 0&x2, i 265: 364 bce inotn, 0&x2, i 265: 365 bce aout,0&x2,a 266: 365 bce aout,0&x2,a 266: 366 efout bfltwmlc,@0|0@,fltwd 267: 366 efout bfltwmlc,@0|0@,fltwd 267: 367 mcw 268: 367 mcw 268: 368 sbr xl1 269: 368 sbr xl1 269: 369 sw 0&x1 270: 369 sw 0&x1 270: 370 a wd, xl3 271: 370 a wd, xl3 271: 371 sbr fins-1,2&x3 272: 371 sbr fins-1,2&x3 272: 372 mlc @0.0@ 273: 372 mlc @0.0@ 273: 373 sw 2&x3 274: 373 sw 2&x3 274: 374 bce efti,1&x1,0 275: 374 bce efti,1&x1,0 275: 375 bfltwbwz,fovfl,fltwd,-2,2 276: 375 bfltwbwz,fovfl,fltwd,-2,2 276: 376 efti bce *&12,0&x2,e 277: 376 efti bce *&12,0&x2,e 277: 377 bfltwa,pctr,fltwd 278: 377 bfltwa,pctr,fltwd 278: 378 b *&8 279: 378 b *&8 279: 379 bfltws,pctr,fltwd 280: 379 bfltws,pctr,fltwd 280: 380 afltwmlns,fltwd,,econ 281: 380 afltwmlns,fltwd,,econ 281: 381 mn 282: 381 mn 282: 382 afltwmlc,fltwd 283: 382 afltwmlc,fltwd 283: 383 bce ftyp,0&x2,f 284: 383 bce ftyp,0&x2,f 284: 384 c econ,zero4-2 285: 384 c econ,zero4-2 285: 385 be *&9 286: 385 be *&9 286: 386 bwz *&8,econ-2,k 287: 386 bwz *&8,econ-2,k 287: 387 mlzs nozn,econ-2 288: 387 mlzs nozn,econ-2 288: 388 bfltwza,pctr,fltwd 289: 388 bfltwza,pctr,fltwd 289: 389 upx1 afltwmlns,fltwd,,*&8 290: 389 upx1 afltwmlns,fltwd,,*&8 290: 390 mn 291: 390 mn 291: 391 sbr x1, xxx&x1 292: 391 sbr x1, xxx&x1 292: 392 za 837,point change if arith reassembled 293: 392 za 837,point change if arith reassembled 293: 393 s doprt,point 294: 393 s doprt,point 294: 394 bfltwc,point,fltwd 295: 394 bfltwc,point,fltwd 295: 395 bh integ 296: 395 bh integ 296: 396 b ok1 297: 396 b ok1 297: 397 fovfl mlc @ x @,2&x3 298: 397 fovfl mlc @ x @,2&x3 298: 398 mlc 299: 398 mlc 299: 399 sbr x3,2&x3 300: 399 sbr x3,2&x3 300: 400 sbr finsi-1 301: 400 sbr finsi-1 301: 401 a d, x3 302: 401 a d, x3 302: 402 b cwmks 303: 402 b cwmks 303: 403 ftyp bm negx,econ-2 304: 403 ftyp bm negx,econ-2 304: 404 c wd, econ 305: 404 c wd, econ 305: 405 bl upx1 306: 405 bl upx1 306: 406 b fovfl 307: 406 b fovfl 307: 407 integ s 23 308: 407 integ s 23 308: 408 afixwmcm,fixwd,&1,001 309: 408 afixwmcm,fixwd,&1,001 309: 409 mlc zero4 310: 409 mlc zero4 310: 410 mz 311: 410 mz 311: 411 mlc econ,x1 312: 411 mlc econ,x1 312: 412 mlc zero4-3 313: 412 mlc zero4-3 313: 413 mlc gmk,3&x1 314: 413 mlc gmk,3&x1 314: 414 b ok1 315: 414 b ok1 315: 415 negx mz nozn,0&x1 316: 415 negx mz nozn,0&x1 316: 416 c d,econ 317: 416 c d,econ 317: 417 bu brhi 318: 417 bu brhi 318: 418 afixwc,fixwd,&1,five 319: 418 afixwc,fixwd,&1,five 319: 419 brhi bh mvdat 320: 419 brhi bh mvdat 320: 420 ok1 afltwmlzs,fltwd,-2,@0|0@ 321: 420 ok1 afltwmlzs,fltwd,-2,@0|0@ 321: 421 b mvdat 322: 421 b mvdat 322: 422 ckovf sbr ovfex&3 323: 422 ckovf sbr ovfex&3 323: 423 c tumuch,x3 324: 423 c tumuch,x3 324: 424 bl ovfex 325: 424 bl ovfex 325: 425 nop 3700 326: 425 nop 3700 326: 426 h 327: 426 h 327: 427 ovfex b xxx 328: 427 ovfex b xxx 328: 428 inotn bfixwmlc,@0|0@,fixwd 329: 428 inotn bfixwmlc,@0|0@,fixwd 329: 429 a w, xl3 330: 429 a w, xl3 330: 430 mcw w, xl1 331: 430 mcw w, xl1 331: 431 afixwza,fixwd,,@0|0@ 332: 431 afixwza,fixwd,,@0|0@ 332: 432 b sbrx3 333: 432 b sbrx3 333: 433 mvdat mcs 0&x1,0&x3 334: 433 mvdat mcs 0&x1,0&x3 334: 434 sbr save&6 335: 434 sbr save&6 335: 435 mlns 0&x1,0&x3 336: 435 mlns 0&x1,0&x3 336: 436 sbr mcs&3,0&x3 337: 436 sbr mcs&3,0&x3 337: 437 sbr finsi-1 338: 437 sbr finsi-1 338: 438 joe4 sw xxx 339: 438 joe4 sw xxx 339: 439 bwz back,0&x1,k 340: 439 bwz back,0&x1,k 340: 440 b save 341: 440 b save 341: 441 back bce exit,0&x3, blank 342: 441 back bce exit,0&x3, blank 342: 442 sbr x3 343: 442 sbr x3 343: 443 bw save,1&x3 no room for sign 344: 443 bw save,1&x3 no room for sign 344: 444 b back 345: 444 b back 345: 445 exit mlzs minus,0&x3 346: 445 exit mlzs minus,0&x3 346: 446 sw 1&x3 347: 446 sw 1&x3 347: 447 sbr finsi-1,1&x3 348: 447 sbr finsi-1,1&x3 348: 448 save sbr x3,111 dummy address 349: 448 save sbr x3,111 dummy address 349: 449 bce fins,0&x2,i 350: 449 bce fins,0&x2,i 350: 450 a d,x3 351: 450 a d,x3 351: 451 bce jumpf,0&x2,f 352: 451 bce jumpf,0&x2,f 352: 452 mlns 0&x3 353: 452 mlns 0&x3 353: 453 mlns 354: 453 mlns 354: 454 mlns 355: 454 mlns 355: 455 mlns 356: 455 mlns 356: 456 sbr x3 357: 456 sbr x3 357: 457 jumpf sbr ovr1&6,1&x3 358: 457 jumpf sbr ovr1&6,1&x3 358: 458 s 1&x3 359: 458 s 1&x3 359: 459 mlns 360: 459 mlns 360: 460 sar x3 361: 460 sar x3 361: 461 bce mdig,0&x2,e 362: 461 bce mdig,0&x2,e 362: 462 bwz mdig,econ-2,b 363: 462 bwz mdig,econ-2,b 363: 463 c d,econ 364: 463 c d,econ 364: 464 bh ovr1 365: 464 bh ovr1 365: 465 a econ,x3 366: 465 a econ,x3 366: 466 mdig bce ovr1,3&x1,} gmk 367: 466 mdig bce ovr1,3&x1,} gmk 367: 467 mlns 1&x1,2&x3 368: 467 mlns 1&x1,2&x3 368: 468 sbr x1,1&x1 369: 468 sbr x1,1&x1 369: 469 bwz ovr1,2&x3,b 370: 469 bwz ovr1,2&x3,b 370: 470 sbr x3 371: 470 sbr x3 371: 471 b mdig 372: 471 b mdig 372: 472 ovr1 sbr x3,xxx 373: 472 ovr1 sbr x3,xxx 373: 473 bav *&1 374: 473 bav *&1 374: 474 a econ-3,0&x3 375: 474 a econ-3,0&x3 375: 475 mlc nozn,0&x3 376: 475 mlc nozn,0&x3 376: 476 bce cwmks-5,0&x2,f 377: 476 bce cwmks-5,0&x2,f 377: 477 sbr x3,4&x3 378: 477 sbr x3,4&x3 378: 478 mlns 0&x3 379: 478 mlns 0&x3 379: 479 mcw econ 380: 479 mcw econ 380: 480 mz 381: 480 mz 381: 481 mcw 382: 481 mcw 382: 482 bav arrav 383: 482 bav arrav 383: 483 cwmks afixwcw,fixwd 384: 483 cwmks afixwcw,fixwd 384: 484 cw xxx 385: 484 cw xxx 385: 485 fins cw 000 386: 485 fins cw 000 386: 486 cw xxx 387: 486 cw xxx 387: 487 finsi afixwsw,fixwd,&1 388: 487 finsi afixwsw,fixwd,&1 388: 488 b ckovf 389: 488 b ckovf 389: 489 b dcrpb 390: 489 b dcrpb 390: 490 arrav mlc fins-1,x1 391: 490 arrav mlc fins-1,x1 391: 491 mlzs nozn,0&x1 392: 491 mlzs nozn,0&x1 392: 492 mlc 393: 492 mlc 393: 493 a 394: 493 a 394: 494 bav ovr9s 395: 494 bav ovr9s 395: 495 mcs mcs 0 396: 495 mcs mcs 0 396: 496 b cwmks 397: 496 b cwmks 397: 497 ovr9s mn 0&x1 398: 497 ovr9s mn 0&x1 398: 498 c 399: 498 c 399: 499 mn 400: 499 mn 400: 500 sbr x1 401: 500 sbr x1 401: 501 c fins&3,x1 402: 501 c fins&3,x1 402: 502 bl clear 403: 502 bl clear 403: 503 sw 0&x1 404: 503 sw 0&x1 404: 504 mlc 1&x1,0&x1 405: 504 mlc 1&x1,0&x1 405: 505 cw 406: 505 cw 406: 506 mcw one,1&x1 | 407: 5061 lca @10@,2&x1 v3m4 > 408: 5062 cw 1&x1 v3m4 407: 507 b cwmks 409: 507 b cwmks 408: 508 clear mlc 1&x3,0&x3 410: 508 clear mlc 1&x3,0&x3 409: 509 mlc 411: 509 mlc 410: 510 mlc 412: 510 mlc 411: 511 mlc @ x @,3&x1 413: 511 mlc @ x @,3&x1 412: 512 b cwmks 414: 512 b cwmks 413: 513 dcw 1 415: 513 dcw 1 414: 514 dcw @.@ 416: 514 dcw @.@ 415: 515 nozn dcw @ @ 417: 515 nozn dcw @ @ 416: 516 zero4 dcw 0000 418: 516 zero4 dcw 0000 417: 517 ini mlc x1,x3 419: 517 ini mlc x1,x3 418: 518 mlzs zaflt,*&8 420: 518 mlzs zaflt,*&8 419: 519 bfixwmlns,@0?0@,fixwd,&1 421: 519 bfixwmlns,@0?0@,fixwd,&1 420: 520 za 422: 520 za 421: 521 mlc urzro&6,x1 423: 521 mlc urzro&6,x1 422: 522 afixwmlcwa,fixwd,,@0|0@ 424: 522 afixwmlcwa,fixwd,,@0|0@ 423: 523 b mrwm 425: 523 b mrwm 424: 524 hltgo nop 4002 426: 524 hltgo nop 4002 425: 525 h 427: 525 h 426: 526 rditp sw insw 428: 526 rditp sw insw 427: 527 rd2 cs 332 429: 527 rd2 cs 332 428: 528 cs 430: 528 cs 429: 529 b tpcmnd 431: 529 b tpcmnd 430: 530 cmbck bef hltgo 432: 530 cmbck bef hltgo 431: 531 bce tpcmnd,12&x3,} gm 433: 531 bce tpcmnd,12&x3,} gm 432: 532 chain12 434: 532 chain12 433: 533 b fmain 435: 533 b fmain 434: 534 b rd2 436: 534 b rd2 435: 535 wtm mlns fmtzon,*&4 437: 535 wtm mlns fmtzon,*&4 436: 536 wtm 0 438: 536 wtm 0 437: 537 nop 4003 439: 537 nop 4003 438: 538 h 440: 538 h 439: 539 wt2 cs 332 441: 539 wt2 cs 332 440: 540 cs 442: 540 cs 441: 541 b fmain 443: 541 b fmain 442: 542 tpcmnd mlns fmtzon,io&3 444: 542 tpcmnd mlns fmtzon,io&3 443: 543 mlc @r@,io&7 445: 543 mlc @r@,io&7 444: 544 za @r@,point 446: 544 za @r@,point 445: 545 bw svgmk,insw 447: 545 bw svgmk,insw 446: 546 mlc @w@,io&7 448: 546 mlc @w@,io&7 447: 547 a &41,point 449: 547 a &41,point 448: 548 svgmk mlcwagmk,333 450: 548 svgmk mlcwagmk,333 449: 549 io rt 0,0&x3 451: 549 io rt 0,0&x3 450: 550 mlcwaformat,333 452: 550 mlcwaformat,333 451: 551 ber tperr 453: 551 ber tperr 452: 552 bce cmbck,io&7,r 454: 552 bce cmbck,io&7,r 453: 553 bef wtm 455: 553 bef wtm 454: 554 b wt2 456: 554 b wt2 455: 555 print cs 333 457: 555 print cs 333 456: 556 cs 458: 556 cs 457: 557 b fmain 459: 557 b fmain 458: 558 przro bce doprt,200, blank 460: 558 przro bce doprt,200, blank 459: 559 bce space, 200, 0 461: 559 bce space, 200, 0 460: 560 mn 200, *&2 462: 560 mn 200, *&2 461: 561 cc 0 463: 561 cc 0 462: 562 doprt w 464: 562 doprt w 463: 563 bcv *&5 465: 563 bcv *&5 464: 564 b print 466: 564 b print 465: 565 ccb print,1 467: 565 ccb print,1 466: 566 space ccb doprt,j 468: 566 space ccb doprt,j 467: 567 punch mlc @281@,tumuch 469: 567 punch mlc @281@,tumuch 468: 568 cs fmain,285 470: 568 cs fmain,285 469: 569 sw 200 471: 569 sw 200 470: 570 lca 279,180 472: 570 lca 279,180 471: 571 p 473: 571 p 472: 572 ssb punch,4 474: 572 ssb punch,4 473: 573 readc cs 80 475: 573 readc cs 80 474: 574 mlc @281@,tumuch 476: 574 mlc @281@,tumuch 475: 575 sw 1, insw 477: 575 sw 1, insw 476: 576 one r 478: 576 one r 477: 577 lca 80,279 479: 577 lca 80,279 478: 578 ssb fmain,1 480: 578 ssb fmain,1 479: 579 b readc 481: 579 b readc 480: 580 tperr mlns fmtzon,bsptp&3 482: 580 tperr mlns fmtzon,bsptp&3 481: 581 mlns fmtzon,skp&3 483: 581 mlns fmtzon,skp&3 482: 582 bsptp bsp 0 484: 582 bsptp bsp 0 483: 583 bce *&6,io&7,r 485: 583 bce *&6,io&7,r 484: 584 skp skp 0 486: 584 skp skp 0 485: 585 s one,point 487: 585 s one,point 486: 586 bwz svgmk,point,b 488: 586 bwz svgmk,point,b 487: 587 nop 1111 489: 587 nop 1111 488: 588 h 490: 588 h 489: 589 b tpcmnd 491: 589 b tpcmnd 490: 590 dcw @e@ 492: 590 dcw @e@ 491: 591 dcw @ @ 493: 591 dcw @ @ 492: 592 econ dcw 00 494: 592 econ dcw 00 493: 593 inefi sw 0&x3 495: 593 inefi sw 0&x3 494: 594 mlc x1,urzro&6 496: 594 mlc x1,urzro&6 495: 595 mlc x3,x1 497: 595 mlc x3,x1 496: 596 a wd,x1 498: 596 a wd,x1 497: 597 bce outq,0&x2,i 499: 597 bce outq,0&x2,i 498: 598 bce outqa,0&x2,a 500: 598 bce outqa,0&x2,a 499: 599 a d,x1 501: 599 a d,x1 500: 600 outq sw 0&x1 502: 600 outq sw 0&x1 501: 601 sbr mrwm&3,0&x1 503: 601 sbr mrwm&3,0&x1 502: 602 afltws,fltwd 504: 602 afltws,fltwd 503: 603 s 505: 603 s 504: 604 scnbl bce blank, 0&x3, blank | 506: 6031 bfltwmlzs,nozn,fltwd,-2 v3m4 505: 605 mlzs minus,zaflt | 507: 6032scnbl mlzs plus4,zaflt v3m4 506: 606 bce kill,0&x3,- | 508: 6044 bce blank, 0&x3, blank v3m4 507: 607 bce kill,0&x3,@ | 509: 6054 bce minus,0&x3,- v3m4 508: 608 minus zs zaflt | 510: 6064 bce minus,0&x3,@ 4-8 v3m4 > 511: 608 zs zaflt v3m4 509: 609 bce kill,0&x3,& 512: 609 bce kill,0&x3,& 510: 610 b mv2wk 513: 610 b mv2wk 511: 611 blank bw urzro-8,1&x3 514: 611 blank bw urzro-8,1&x3 512: 612 b sbrx3 515: 612 b sbrx3 513: 613 b scnbl 516: 613 b scnbl > 517: 6131minus zs zaflt v3m4 514: 614 kill sw 1&x3 518: 614 kill sw 1&x3 515: 615 b sbrx3 | 519: 6154plus4 b sbrx3 v3m4 516: 616 mv2wk bce ini, 0&x2, i 520: 616 mv2wk bce ini, 0&x2, i 517: 617 bfixwsbr,089,fixwd,-1 521: 617 bfixwsbr,089,fixwd,-1 518: 618 bfltwmlzs,nozn,fltwd,-2 522: 618 bfltwmlzs,nozn,fltwd,-2 519: 619 cw sigsw#1,swb#1 523: 619 cw sigsw#1,swb#1 520: 620 cw swa#1 524: 620 cw swa#1 521: 621 s xpn 525: 621 s xpn 522: 622 bce abegn,0&x2,a 526: 622 bce abegn,0&x2,a 523: 623 b lewp2 527: 623 b lewp2 524: 624 pynt1 sbr point,0&x3 528: 624 pynt1 sbr point,0&x3 525: 625 sw swa 529: 625 sw swa 526: 626 bw lewp, sigsw q. data not fractional 530: 626 bw lewp, sigsw q. data not fractional 527: 627 sbr point, 1&x3 531: 627 sbr point, 1&x3 528: 628 lewp bw ovr,1&x3 532: 628 lewp bw ovr,1&x3 529: 629 bce ovr,1&x3, blank 533: 629 bce ovr,1&x3, blank 530: 630 b sbrx3 534: 630 b sbrx3 531: 631 lewp2 bce pynt1,0&x3,. 535: 631 lewp2 bce pynt1,0&x3,. 532: 632 c 0&x3,zero4-3 536: 632 c 0&x3,zero4-3 533: 633 bl mvdig 537: 633 bl mvdig 534: 634 bh qftyp 538: 634 bh qftyp 535: 635 bw mvdig, sigsw q. significant zero 539: 635 bw mvdig, sigsw q. significant zero 536: 636 b lewp 540: 636 b lewp 537: 637 qftyp bce fhlt,0&x2,f 541: 637 qftyp bce fhlt,0&x2,f 538: 638 sbr end,4&x3 542: 638 sbr end,4&x3 539: 639 mlzs plus,zaexp 543: 639 mlzs plus,zaexp 540: 640 bce proce, 0&x3, e 544: 640 bce proce, 0&x3, e 541: 641 zond mz 0&x3, zaexp 545: 641 zond mz 0&x3, zaexp 542: 642 fbceqgrab, 0&x3, &,- 546: 642 fbceqgrab, 0&x3, &,- 543: 643 fhlt nop 1121 error halt data is wrong 547: 643 fhlt nop 1121 error halt data is wrong 544: 644 h mode 548: 644 h mode 545: 645 plus b fhlt 549: 645 plus b fhlt 546: 646 proce bwz here,1&x3,2 550: 646 proce bwz here,1&x3,2 547: 647 b sbrx3 551: 647 b sbrx3 548: 648 b zond 552: 648 b zond 549: 649 here bce *&5,1&x3, blank 553: 649 here bce *&5,1&x3, blank 550: 650 b *&5 554: 650 b *&5 551: 651 b sbrx3 555: 651 b sbrx3 552: 652 grab sw 1&x3 556: 652 grab sw 1&x3 553: 653 mv2wm bw zaexp, 2&x3 557: 653 mv2wm bw zaexp, 2&x3 554: 654 bce zaexp,2&x3, blank 558: 654 bce zaexp,2&x3, blank 555: 655 sbr x3 559: 655 sbr x3 556: 656 zaexp za 1&x3, xpn 560: 656 zaexp za 1&x3, xpn 557: 657 b zaflt 561: 657 b zaflt 558: 658 ovr bce fhlt, 0&x2, e 562: 658 ovr bce fhlt, 0&x2, e 559: 659 sbr end, 1&x3 563: 659 sbr end, 1&x3 560: 660 zaflt afltwza,fltwd,-2 564: 660 zaflt afltwza,fltwd,-2 561: 661 bw *&5, sigsw 565: 661 bw *&5, sigsw 562: 662 b urzro 566: 662 b urzro 563: 663 bw noswt, swa a. actual decimal pt. in data 567: 663 bw noswt, swa a. actual decimal pt. in data 564: 664 s d, end 568: 664 s d, end 565: 665 za end, point 569: 665 za end, point 566: 666 noswt s point, msd 570: 666 noswt s point, msd 567: 667 a pctr,xpn 571: 667 a pctr,xpn 568: 668 zs msd 572: 668 zs msd 569: 669 a msd,xpn 573: 669 a msd,xpn 570: 670 bfltwza,xpn,fltwd 574: 670 bfltwza,xpn,fltwd 571: 671 bce ini,0&x2,i 575: 671 bce ini,0&x2,i 572: 672 urzro afltwmlc,fltwd,,xxx 576: 672 urzro afltwmlc,fltwd,,xxx 573: 673 lca 577: 673 lca 574: 674 mlc mrwm&3,x3 578: 674 mlc mrwm&3,x3 575: 675 mrwm cw xxx 579: 675 mrwm cw xxx 576: 676 b finsi 580: 676 b finsi 577: 677 mvdig bw *&12, sigsw 581: 677 mvdig bw *&12, sigsw 578: 678 sbr msd, 0&x3 582: 678 sbr msd, 0&x3 579: 679 sw sigsw 583: 679 sw sigsw 580: 680 bw lewp, swb 584: 680 bw lewp, swb 581: 681 mn 0&x3, 2&x1 585: 681 mn 0&x3, 2&x1 582: 682 sbr x1 586: 682 sbr x1 583: 683 sw swb 587: 683 sw swb 584: 684 bce lewp,4&x1,} gmk 588: 684 bce lewp,4&x1,} gmk 585: 685 cw swb 589: 685 cw swb 586: 686 b lewp 590: 686 b lewp 587: 687 xpn dcw #3 591: 687 xpn dcw #3 588: 688 end dcw #3 592: 688 end dcw #3 589: 689 msd dcw #3 593: 689 msd dcw #3 590: 690 point dcw #3 594: 690 point dcw #3 591: 691 five dcw @5@ 595: 691 five dcw @5@ 592: 692 lkhed dc #1 596: 692 lkhed dc #1 593: 693 ltorg* 597: 693 ltorg* 594: 594 gmk dcw @}@ group mark 598: 594 gmk dcw @}@ group mark 595: 695 w equ 6&x2 599: 695 w equ 6&x2 596: 696 wd equ 6&x2 600: 696 wd equ 6&x2 597: 697 d equ 9&x2 601: 697 d equ 9&x2 598: 698 xxx equ 0 602: 698 xxx equ 0 599: 699 xl1 equ 089 603: 699 xl1 equ 089 600: 700 xl2 equ 094 604: 700 xl2 equ 094 601: 701 xl3 equ 099 605: 701 xl3 equ 099 602: 702 oblist equ 912 606: 702 oblist equ 912 603: 703 cexit equ 988 607: 703 cexit equ 988 604: 704 xfr cwfio 608: 704 xfr cwfio 605: 705 job a format 5054d 609: 705 job a format 5054d 606: 706 org 4280 610: 706 org 4280 607: 707 abegn bw *&12,sigsw 611: 707 abegn bw *&12,sigsw 608: 708 sbr msd,0&x3 612: 708 sbr msd,0&x3 609: 709 sw sigsw 613: 709 sw sigsw 610: 710 bw lewpa,swb 614: 710 bw lewpa,swb 611: 711 mn 0&x3,2&x1 615: 711 mn 0&x3,2&x1 612: 712 mz 0&x3,2&x1 616: 712 mz 0&x3,2&x1 613: 713 sbr x1 617: 713 sbr x1 614: 714 sw swb 618: 714 sw swb 615: 715 bce lewpa,4&x1,} group mark 619: 715 bce lewpa,4&x1,} group mark 616: 716 cw swb 620: 716 cw swb 617: 717 lewpa bw ovra,1&x3 621: 717 lewpa bw ovra,1&x3 618: 718 b sbrx3 622: 718 b sbrx3 619: 719 b abegn 623: 719 b abegn 620: 720 ovra sbr end,1&x3 624: 720 ovra sbr end,1&x3 621: 721 mcw urzro&6,nexta&6 625: 721 mcw urzro&6,nexta&6 622: 722 nexta mcw 0,0 626: 722 nexta mcw 0,0 623: 723 lca 627: 723 lca 624: 724 mlc mrwm&3,x3 628: 724 mlc mrwm&3,x3 625: 725 b finsi 629: 725 b finsi 626: 726 outqa bfltwmcw,blk3,fltwd 630: 726 outqa bfltwmcw,blk3,fltwd 627: 727 bfltwmcw,blk20,fltwd,-2 631: 727 bfltwmcw,blk20,fltwd,-2 628: 728 sw 0&x1 632: 728 sw 0&x1 629: 729 sbr mrwm&3,0&x1 633: 729 sbr mrwm&3,0&x1 630: 730 b mv2wk 634: 730 b mv2wk 631: 731 aout mcw efout&6,nexa&6 635: 731 aout mcw efout&6,nexa&6 632: 732 nexa mcw 0,0 636: 732 nexa mcw 0,0 633: 733 mcw 637: 733 mcw 634: 734 sbr x1 638: 734 sbr x1 635: 735 sbr tempx1#3,1&x1 639: 735 sbr tempx1#3,1&x1 636: 736 sbr tempx3#3,0&x3 640: 736 sbr tempx3#3,0&x3 637: 737 ma 6&x2,tempx3 641: 737 ma 6&x2,tempx3 638: 738 sbr temp32,1&x3 642: 738 sbr temp32,1&x3 639: 739 mcw nexa&6,tfltwd#3 643: 739 mcw nexa&6,tfltwd#3 640: 740 ma @i9h@,tfltwd 644: 740 ma @i9h@,tfltwd 641: 741 movnum mn 1&x1,2&x3 645: 741 movnum mn 1&x1,2&x3 642: 742 mz 1&x1,2&x3 646: 742 mz 1&x1,2&x3 643: 743 c temp32,tempx3 647: 743 c temp32,tempx3 644: 744 be fini1 648: 744 be fini1 645: 745 c tempx1,tfltwd 649: 745 c tempx1,tfltwd 646: 746 be fini1 650: 746 be fini1 647: 747 ma @001@,tempx1 651: 747 ma @001@,tempx1 648: 748 ma @001@,temp32 652: 748 ma @001@,temp32 649: 749 sbr x1,1&x1 653: 749 sbr x1,1&x1 650: 750 sbr x3,1&x3 654: 750 sbr x3,1&x3 651: 751 b movnum 655: 751 b movnum 652: 752 fini1 sbr fins&7,0&x3 656: 752 fini1 sbr fins&7,0&x3 653: 753 mcw tempx3,x3 657: 753 mcw tempx3,x3 654: 754 sbr x3,2&x3 658: 754 sbr x3,2&x3 655: 755 b fins 659: 755 b fins 656: 756 blk3 dcw #3 660: 756 blk3 dcw #3 657: 757 blk20 dcw #20 661: 757 blk20 dcw #20 658: 758 temp32 dcw @ @ 662: 758 temp32 dcw @ @ 659: 759 ltorg* 663: 759 ltorg* 660: 760 gm54d dcw @}@ group mark 664: 760 gm54d dcw @}@ group mark 661: 761 xfr cwaf 665: 761 xfr cwaf 662: 762 * 666: 762 * 663: 763 ** place preceding cards between phases 53 and 55 667: 763 ** place preceding cards between phases 53 and 55 664: 764 * 668: 764 * 665: 765 end 669: 765 end