v3m0.s v3m4.s ====== ====== 1: 101 273 job 1401 Fortran system version three 50003 1: 101 273 job 1401 Fortran system version three 50003 2: 102 ctl 645 11 2: 102 ctl 645 11 3: 103 org 111 3: 103 org 111 4: 104 xdoad1 dcw #1 4: 104 xdoad1 dcw #1 5: 105 xdoad2 dcw #1 5: 105 xdoad2 dcw #1 6: 106 xdoad3 dcw #1 6: 106 xdoad3 dcw #1 7: 107 xdoini dcw #1 7: 107 xdoini dcw #1 8: 108 xoblst dcw #1 8: 108 xoblst dcw #1 9: 109 xdosbs dcw #1 9: 109 xdosbs dcw #1 10: 110 xcomf1 dcw #1 10: 110 xcomf1 dcw #1 11: 111 xsinfu dcw #1 11: 111 xsinfu dcw #1 12: 112 xlogfn dcw #1 12: 112 xlogfn dcw #1 13: 113 xxpntl dcw #1 13: 113 xxpntl dcw #1 14: 114 xatanf dcw #1 14: 114 xatanf dcw #1 15: 115 xabsva dcw #1 15: 115 xabsva dcw #1 16: 116 xnegtf dcw #1 16: 116 xnegtf dcw #1 17: 117 xfixfu dcw #1 17: 117 xfixfu dcw #1 18: 118 xfltfu dcw #1 18: 118 xfltfu dcw #1 19: 119 xsqrtf dcw #1 19: 119 xsqrtf dcw #1 20: 120 xuser1 dcw #1 20: 120 xuser1 dcw #1 21: 121 xuser2 dcw #1 21: 121 xuser2 dcw #1 22: 122 xuser3 dcw #1 22: 122 xuser3 dcw #1 23: 123 xuser4 dcw #1 23: 123 xuser4 dcw #1 24: 124 xuser5 dcw #1 24: 124 xuser5 dcw #1 25: 125 xuser6 dcw #1 25: 125 xuser6 dcw #1 26: 126 xuser7 dcw #1 26: 126 xuser7 dcw #1 27: 127 xuser8 dcw #1 27: 127 xuser8 dcw #1 28: 128 xuser9 dcw #1 28: 128 xuser9 dcw #1 29: 129 xusr10 dcw #1 29: 129 xusr10 dcw #1 30: 130 xusr11 dcw #1 30: 130 xusr11 dcw #1 31: 131 xusr12 dcw #1 31: 131 xusr12 dcw #1 32: 132 xlinkf dcw #1 32: 132 xlinkf dcw #1 33: 133 ndtabl equ *&1 33: 133 ndtabl equ *&1 34: 134 oneadr dcw #3 Address of constant one 34: 134 oneadr dcw #3 Address of constant one 35: 135 adtbll dcw #3 NXBTM for STNUM TWO & RESORT 4 35: 135 adtbll dcw #3 NXBTM for STNUM TWO & RESORT 4 36: 136 bsauce dcw #3 Bottom of object for RESORT 36: 136 bsauce dcw #3 Bottom of object for RESORT 37: 137 gnstmz dcw #3 Total No of DO-generated stmts 37: 137 gnstmz dcw #3 Total No of DO-generated stmts 38: 138 period dcw #3 Address of period (no list) 38: 138 period dcw #3 Address of period (no list) 39: 139 xexpon dcw #3 Address of constant .1 39: 139 xexpon dcw #3 Address of constant .1 40: 140 plusdf dcw #3 (PARAMA&2)-CONLST#16000s comp. of MACFLS 40: 140 plusdf dcw #3 (PARAMA&2)-CONLST#16000s comp. of MACFLS 41: 141 macfls dcw #3 Compile time adr.&MACFLS#OBJ. time adr. 41: 141 macfls dcw #3 Compile time adr.&MACFLS#OBJ. time adr. 42: 142 org 181 42: 142 org 181 43: 143 intstz dcw #3 Total number of input statements 43: 143 intstz dcw #3 Total number of input statements 44: 144 gogogo equ * Address of first executable stmt 44: 144 gogogo equ * Address of first executable stmt 45: 145 failsw dc #1 Cripple GO condition switch 45: 145 failsw dc #1 Cripple GO condition switch 46: 146 xlinkw dcw #1 Load XLINK switch 46: 146 xlinkw dcw #1 Load XLINK switch 47: 147 gotofn dcw #3 Addr of func select routine 47: 147 gotofn dcw #3 Addr of func select routine 48: 148 subscr dcw #3 Objt time addr of DOSBS func 48: 148 subscr dcw #3 Objt time addr of DOSBS func 49: 149 conlst dcw #3 Adr. of pos. imm. before arrays 49: 149 conlst dcw #3 Adr. of pos. imm. before arrays 50: 150 funcsw dc #1 50: 150 funcsw dc #1 51: 151 org 196 51: 151 org 196 52: 152 dcw @V3M0@ | 52: 152 dcw @V3M4@ 53: 153 job 1401 Fortran Snapshot routine 50003 53: 153 job 1401 Fortran Snapshot routine 50003 54: 154 sfx 7 54: 154 sfx 7 55: 155 xxx equ 0 55: 155 xxx equ 0 56: 156 xl1 equ 089 56: 156 xl1 equ 089 57: 157 089 dcw 000 57: 157 089 dcw 000 58: 158 xl3 equ 099 58: 158 xl3 equ 099 59: 159 099 dcw 000 59: 159 099 dcw 000 60: 160 org 333 60: 160 org 333 61: 161 sbr prtxt&3 61: 161 sbr prtxt&3 62: 162 sbr hldxt&6 62: 162 sbr hldxt&6 63: 163 mcw @000@,linct-2 63: 163 mcw @000@,linct-2 64: 164 mcw xl3, hld32&6 64: 164 mcw xl3, hld32&6 65: 165 mcw xl1, hld31&6 65: 165 mcw xl1, hld31&6 66: 166 sbr xl1, 1 66: 166 sbr xl1, 1 67: 167 sbr xl3, 202 67: 167 sbr xl3, 202 68: 168 cs 332 68: 168 cs 332 69: 169 cs 69: 169 cs 70: 170 mcw 110,210 70: 170 mcw 110,210 71: 171 bss only,f 71: 171 bss only,f 72: 172 cc 1 72: 172 cc 1 73: 173 mcw 094,250 73: 173 mcw 094,250 74: 174 hldxt sbr 216,xxx 74: 174 hldxt sbr 216,xxx 75: 175 hld32 sbr 256,xxx 75: 175 hld32 sbr 256,xxx 76: 176 hld31 sbr 244,xxx 76: 176 hld31 sbr 244,xxx 77: 177 w 77: 177 w 78: 178 cc k 78: 178 cc k 79: 179 za &2,pgctr#2 79: 179 za &2,pgctr#2 80: 180 nuline cs 332 80: 180 nuline cs 332 81: 181 cs 81: 181 cs 82: 182 cc j 82: 182 cc j 83: 183 mcw linct,306 83: 183 mcw linct,306 84: 184 mcw 84: 184 mcw 85: 185 sbr mvhed&6 85: 185 sbr mvhed&6 86: 186 mcw @9@, ctr-1 86: 186 mcw @9@, ctr-1 87: 187 mvhed mcw ctr-1,xxx 87: 187 mvhed mcw ctr-1,xxx 88: 188 mcw head 88: 188 mcw head 89: 189 sbr mvhed&6 89: 189 sbr mvhed&6 90: 190 a @i0@, ctr#2 90: 190 a @i0@, ctr#2 91: 191 bwz mvhed, ctr-1, 2 91: 191 bwz mvhed, ctr-1, 2 92: 192 a &1,linct-2 92: 192 a &1,linct-2 93: 193 w 93: 193 w 94: 194 loop sw 0&x3 94: 194 loop sw 0&x3 95: 195 mcw 0&x1,0&x3 95: 195 mcw 0&x1,0&x3 96: 196 bw cmpab,0&x1 96: 196 bw cmpab,0&x1 97: 197 cw 0&x3 97: 197 cw 0&x3 98: 198 cmpab c xl1,parama&2 98: 198 cmpab c xl1,parama&2 99: 199 bu cpl 99: 199 bu cpl 100: 200 w 100: 200 w 101: 201 wm 101: 201 wm 102: 202 rstrx mcw hld31&6,xl1 102: 202 rstrx mcw hld31&6,xl1 103: 203 mcw hld32&6,xl3 103: 203 mcw hld32&6,xl3 104: 204 cs 332 104: 204 cs 332 105: 205 cs 105: 205 cs 106: 206 bss *&5,g 106: 206 bss *&5,g 107: 207 b prtxt 107: 207 b prtxt 108: 208 h 108: 208 h 109: 209 prtxt b 0 109: 209 prtxt b 0 110: 210 cpl sbr xl1, 1&x1 110: 210 cpl sbr xl1, 1&x1 111: 211 bce inc, xl3-2, 2 111: 211 bce inc, xl3-2, 2 112: 212 sbr xl3, 201 112: 212 sbr xl3, 201 113: 213 w 113: 213 w 114: 214 wm 114: 214 wm 115: 215 a &1,pgctr 115: 215 a &1,pgctr 116: 216 c pgctr,&15 116: 216 c pgctr,&15 117: 217 bu nuline 117: 217 bu nuline 118: 218 s pgctr 118: 218 s pgctr 119: 219 ccb nuline,1 119: 219 ccb nuline,1 120: 220 only mcw @executed@,220 120: 220 only mcw @executed@,220 121: 221 w rstrx 121: 221 w rstrx 122: 222 inc a &1,xl3 122: 222 inc a &1,xl3 123: 223 b loop 123: 223 b loop 124: 224 head dcw @9........@ 124: 224 head dcw @9........@ 125: 225 dcw @9-@ 125: 225 dcw @9-@ 126: 226 linct dcw 00000 126: 226 linct dcw 00000 127: 227 ltorg* 127: 227 ltorg* 128: 228 job 1401 Fortran System monitor and parameter card 50013 128: 228 job 1401 Fortran System monitor and parameter card 50013 129: 229 sfx a 129: 229 sfx a 130: 230 prmcd da 1x19 130: 230 prmcd da 1x19 131: 231 param 6 131: 231 param 6 132: 232 monter mcw bclear-2,cclear-2 132: 232 monter mcw bclear-2,cclear-2 133: 233 aclear cs 0 133: 233 aclear cs 0 134: 234 sbr tclear 134: 234 sbr tclear 135: 235 c tclear,cclear 135: 235 c tclear,cclear 136: 236 bu aclear 136: 236 bu aclear 137: 237 sw lod&4 137: 237 sw lod&4 138: 238 mcw tclear,lod&6 138: 238 mcw tclear,lod&6 139: 239 cw lod&4 139: 239 cw lod&4 140: 240 ck c lod&6,bclear#3 140: 240 ck c lod&6,bclear#3 141: 241 be montor 141: 241 be montor 142: 242 lod lca @ @,0 blank 142: 242 lod lca @ @,0 blank 143: 243 sbr lod&6 143: 243 sbr lod&6 144: 244 b ck 144: 244 b ck 145: 245 tclear equ aclear&3 145: 245 tclear equ aclear&3 146: 246 *Restrictions on clear routine 146: 246 *Restrictions on clear routine 147: 247 * 1. Must clear at least one century 147: 247 * 1. Must clear at least one century 148: 248 * 2. Cannot clear above 4k 148: 248 * 2. Cannot clear above 4k 149: 249 montor r 040 149: 249 montor r 040 150: 250 nine mcw &9,rdcnt 150: 250 nine mcw &9,rdcnt 151: 251 initap rtw 1,xbegin 151: 251 initap rtw 1,xbegin 152: 252 ber errtp 152: 252 ber errtp 153: 253 initxt b xbegin 153: 253 initxt b xbegin 154: 254 errtp bsp 1 154: 254 errtp bsp 1 155: 255 s &1,rdcnt#1 155: 255 s &1,rdcnt#1 156: 256 bwz initap,rdcnt,B 156: 256 bwz initap,rdcnt,B 157: 257 h 3333,3333 157: 257 h 3333,3333 158: 258 b nine 158: 258 b nine 159: 259 cclear dcw 999 159: 259 cclear dcw 999 160: 260 ltorg* 160: 260 ltorg* 161: 261 xbegin equ *&1 161: 261 xbegin equ *&1 162: 262 job 1401 Fortran Loader phase 50023 162: 262 job 1401 Fortran Loader phase 50023 163: 263 fbegnloader,xl1,r,xl2,r,xl3,r,a 163: 263 fbegnloader,xl1,r,xl2,r,xl3,r,a 164: 264 start bce *&8,1, blank 164: 264 start bce *&8,1, blank 165: 265 mcw @n@,montor 165: 265 mcw @n@,montor 166: 266 cs 080 166: 266 cs 080 167: 267 sw 1,gm 167: 267 sw 1,gm 168: 268 sw 81,84 168: 268 sw 81,84 169: 269 cs 332 169: 269 cs 332 170: 270 cs 170: 270 cs 171: 271 r 171: 271 r 172: 272 lca 19,prmcd&18 172: 272 lca 19,prmcd&18 173: 273 c prmcd&4,@param@ 173: 273 c prmcd&4,@param@ 174: 274 bu noprm 174: 274 bu noprm 175: 275 sw 073 175: 275 sw 073 176: 276 sw 006,007 176: 276 sw 006,007 177: 277 sw param 177: 277 sw param 178: 278 mcw 80,param-1 178: 278 mcw 80,param-1 179: 279 cs 0 determine top of 179: 279 cs 0 determine top of 180: 280 sbr larry#3 machine 180: 280 sbr larry#3 machine 181: 281 mcw param&2,dum3#3 181: 281 mcw param&2,dum3#3 182: 282 b unpak 182: 282 b unpak 183: 283 mcw dum5#5,wk5 183: 283 mcw dum5#5,wk5 184: 284 mcw larry,dum3 184: 284 mcw larry,dum3 185: 285 b unpak 185: 285 b unpak 186: 286 mcw dum5,wk51 186: 286 mcw dum5,wk51 187: 287 a &1,wk5 187: 287 a &1,wk5 188: 288 a &1,wk51 188: 288 a &1,wk51 189: 289 cs 332 189: 289 cs 332 190: 290 cs 190: 290 cs 191: 291 messg@start of Fortran compilation@,28,1,j 191: 291 messg@start of Fortran compilation@,28,1,j 192: 292 mcw wk5,231 192: 292 mcw wk5,231 193: 293 mcw @machine size specified is @ 193: 293 mcw @machine size specified is @ 194: 294 w 194: 294 w 195: 295 cs 235 195: 295 cs 235 196: 296 mcw wk51,228 196: 296 mcw wk51,228 197: 297 mcw @actual machine size is @ 197: 297 mcw @actual machine size is @ 198: 298 bce exit,param&9,t 198: 298 bce exit,param&9,t 199: 299 w 199: 299 w 200: 300 c wk51#5,wk5#5 200: 300 c wk51#5,wk5#5 201: 301 bh mserr 201: 301 bh mserr 202: 302 c wk5,@03900@ 202: 302 c wk5,@03900@ 203: 303 bl exit 203: 303 bl exit 204: 304 messg@machine size error@,18,j 204: 304 messg@machine size error@,18,j 205: 305 b l2prm 205: 305 b l2prm 206: 306 mserr mcw @specified is greater than actual machine size.@,267 206: 306 mserr mcw @specified is greater than actual machine size.@,267 207: 307 mcw @error - machine size @ 207: 307 mcw @error - machine size @ 208: 308 w 208: 308 w 209: 309 l2prm mcw larry,param&2 209: 309 l2prm mcw larry,param&2 210: 310 exit mcw param&2,clr&3 210: 310 exit mcw param&2,clr&3 211: 311 clr cs 0 211: 311 clr cs 0 212: 312 sbr clr&3 212: 312 sbr clr&3 213: 313 c clr&3,&sysgm 213: 313 c clr&3,&sysgm 214: 314 bu clr 214: 314 bu clr 215: 315 r 215: 315 r 216: 316 mz *-006,work&76 216: 316 mz *-006,work&76 217: 317 mz *-006,abit&007 217: 317 mz *-006,abit&007 218: 318 mz *-6,abit2&7 218: 318 mz *-6,abit2&7 219: 319 mz *-6,char-1 219: 319 mz *-6,char-1 220: 320 mcw number,work&003 220: 320 mcw number,work&003 221: 321 mcw param&002,dummy&003 221: 321 mcw param&002,dummy&003 222: 322 dummy cw 0000 222: 322 dummy cw 0000 223: 323 sbr store&006 223: 323 sbr store&006 224: 324 move bw mvipt,endsw 224: 324 move bw mvipt,endsw 225: 325 bce scanr,001,: 5-8 225: 325 bce scanr,001,: 5-8 226: 326 prmsg messg@message 1-system does not follow end card@,70,1,1 226: 326 prmsg messg@message 1-system does not follow end card@,70,1,1 227: 327 h *-3 227: 327 h *-3 228: 328 mvipt mcw 0072,work&075 228: 328 mvipt mcw 0072,work&075 229: 329 mcw 229: 329 mcw 230: 330 mcw 230: 330 mcw 231: 331 bce scanr,work&004,: 5-8 231: 331 bce scanr,work&004,: 5-8 232: 332 tovl bin prthd, carriage overflow test - initialized 232: 332 tovl bin prthd, carriage overflow test - initialized 233: 333 m2prt cs 300 233: 333 m2prt cs 300 234: 334 cs 234: 334 cs 235: 335 mcw 0072,0283 235: 335 mcw 0072,0283 236: 336 mcw 006,215 236: 336 mcw 006,215 237: 337 bce cmnt,work&4,c 237: 337 bce cmnt,work&4,c 238: 338 fstnu b new 238: 338 fstnu b new 239: 339 bce new,work&009,0 239: 339 bce new,work&009,0 240: 340 bce new,work&009, 240: 340 bce new,work&009, 241: 341 a &1,ctucd 241: 341 a &1,ctucd 242: 342 bce *&8,ctucd-1,0 242: 342 bce *&8,ctucd-1,0 243: 343 mcw @continue cd err@,300 243: 343 mcw @continue cd err@,300 244: 344 w 244: 344 w 245: 345 mcw inilz1,sel&003 245: 345 mcw inilz1,sel&003 246: 346 sel mcw 0000,fixed 246: 346 sel mcw 0000,fixed 247: 347 sw sel&001 247: 347 sw sel&001 248: 348 a one,sel&003 248: 348 a one,sel&003 249: 349 cw sel&001 249: 349 cw sel&001 250: 350 sw1 nop cklhc 250: 350 sw1 nop cklhc 251: 351 bce sel,fixed, blank 251: 351 bce sel,fixed, blank 252: 352 mcw fixed,*&8 252: 352 mcw fixed,*&8 253: 353 bce abit,char,0 253: 353 bce abit,char,0 254: 354 chain5 254: 354 chain5 255: 355 store mcw fixed,0000 255: 355 store mcw fixed,0000 256: 356 sbr store&006 256: 356 sbr store&006 257: 357 incto a &1,total#5 257: 357 incto a &1,total#5 258: 358 c store&6,&ldrnd 258: 358 c store&6,&ldrnd 259: 359 be quit 259: 359 be quit 260: 360 hsw bce hollr,fixed,h 260: 360 hsw bce hollr,fixed,h 261: 361 hsw2 nop @b@,hsw 261: 361 hsw2 nop @b@,hsw 262: 362 cmpar c sel&003,inilz1 262: 362 cmpar c sel&003,inilz1 263: 363 swtch2 bin sel,/ 263: 363 swtch2 bin sel,/ 264: 364 sw store&004 264: 364 sw store&004 265: 365 jump mcw store&006,xl2 265: 365 jump mcw store&006,xl2 266: 366 cw store&004 266: 366 cw store&004 267: 367 mcw n,jump 267: 367 mcw n,jump 268: 368 mcw n,swtch2 268: 368 mcw n,swtch2 269: 369 a ten,count 269: 369 a ten,count 270: 370 bce tstnd,count-1,5 270: 370 bce tstnd,count-1,5 271: 371 sw endsw 271: 371 sw endsw 272: 372 bwz sel,count-001,2 272: 372 bwz sel,count-001,2 273: 373 mcw b,swtch2 273: 373 mcw b,swtch2 274: 374 remove mcw 0&x2,out 274: 374 remove mcw 0&x2,out 275: 375 c format,out 275: 375 c format,out 276: 376 bu sel 276: 376 bu sel 277: 377 mcw @b@,hsw 277: 377 mcw @b@,hsw 278: 378 mcw 0&x3,work6#6 278: 378 mcw 0&x3,work6#6 279: 379 mcw @f@,work6-3 279: 379 mcw @f@,work6-3 280: 380 mcw work6,0&x3 280: 380 mcw work6,0&x3 281: 381 b sel 281: 381 b sel 282: 382 slash mcw @@@,fixed 282: 382 slash mcw @@@,fixed 283: 383 b store 283: 383 b store 284: 384 new mcw @n@,fstnu 284: 384 new mcw @n@,fstnu 285: 385 a &1,stmno#3 285: 385 a &1,stmno#3 286: 386 mcw @n@,hsw 286: 386 mcw @n@,hsw 287: 387 mcw @n@,hsw2 287: 387 mcw @n@,hsw2 288: 388 mcw 5,211 288: 388 mcw 5,211 289: 389 s ctucd#2 289: 389 s ctucd#2 290: 309 mcw @n@,sw1 290: 309 mcw @n@,sw1 291: 391 mcs stmno,203 291: 391 mcs stmno,203 292: 392 w 292: 392 w 293: 393 sw store&004 293: 393 sw store&004 294: 394 mcw store&006,loadgm&006 294: 394 mcw store&006,loadgm&006 295: 395 cw store&4 295: 395 cw store&4 296: 396 mcw m,jump 296: 396 mcw m,jump 297: 397 loadgm lca gm,0000 297: 397 loadgm lca gm,0000 298: 398 sbr xl3 298: 398 sbr xl3 299: 399 sbr store&006 299: 399 sbr store&006 300: 400 mcw mark,work&009 300: 400 mcw mark,work&009 301: 401 mcw b,swtch2 301: 401 mcw b,swtch2 302: 402 mcw two,count 302: 402 mcw two,count 303: 403 mcw inilz2,sel&003 303: 403 mcw inilz2,sel&003 304: 404 b sel 304: 404 b sel 305: 405 tstnd c 0&x2,@dne@ 305: 405 tstnd c 0&x2,@dne@ 306: 406 bu sel 306: 406 bu sel 307: 407 cw endsw#1 307: 407 cw endsw#1 308: 408 b sel 308: 408 b sel 309: 409 atsgn mcw @-@,fixed 309: 409 atsgn mcw @-@,fixed 310: 410 b store 310: 410 b store 311: 411 abit bce input,fixed, abit 311: 411 abit bce input,fixed, abit 312: 412 bce input,fixed,| 312: 412 bce input,fixed,| 313: 413 bce slash,fixed,/ 313: 413 bce slash,fixed,/ 314: 414 bce atsgn,fixed,@ 314: 414 bce atsgn,fixed,@ 315: 415 mcw @*@,300 315: 415 mcw @*@,300 316: 416 mcw kproc 316: 416 mcw kproc 317: 417 mcw fixed#1 317: 417 mcw fixed#1 318: 418 b store 318: 418 b store 319: 419 hollr mcw store&6,xl1 319: 419 hollr mcw store&6,xl1 320: 420 mcw @n@,hsw 320: 420 mcw @n@,hsw 321: 421 mcw @n@,hsw2 321: 421 mcw @n@,hsw2 322: 422 mcw @b@,sw1 322: 422 mcw @b@,sw1 323: 423 mcw 4&x1,work3#3 323: 423 mcw 4&x1,work3#3 324: 424 bce *&9,work3-1,@ 324: 424 bce *&9,work3-1,@ 325: 425 bwz myb2,work3-1,2 325: 425 bwz myb2,work3-1,2 326: 426 mcw work3-2,work3 326: 426 mcw work3-2,work3 327: 427 mcw @00@ 327: 427 mcw @00@ 328: 428 b cmpar 328: 428 b cmpar 329: 429 myb2 bce *&9,work3,@ 329: 429 myb2 bce *&9,work3,@ 330: 430 bwz istri,work3,2 330: 430 bwz istri,work3,2 331: 431 mcw work3-2,work3 331: 431 mcw work3-2,work3 332: 432 mcw @0@,work3-2 332: 432 mcw @0@,work3-2 333: 433 b cmpar 333: 433 b cmpar 334: 434 istri mcw work3,sav1#1 334: 434 istri mcw work3,sav1#1 335: 435 mcw work3-2,work3 335: 435 mcw work3-2,work3 336: 436 mcw sav1,work3-2 336: 436 mcw sav1,work3-2 337: 437 b cmpar 337: 437 b cmpar 338: 438 unpak sbr pkxt&3 338: 438 unpak sbr pkxt&3 339: 439 unpakdum3,dum5 339: 439 unpakdum3,dum5 340: 440 pkxt b 000 340: 440 pkxt b 000 341: 441 abit2 equ *&1 341: 441 abit2 equ *&1 342: 442 cklhc bce input,fixed, 342: 442 cklhc bce input,fixed, 343: 443 s &1,work3 343: 443 s &1,work3 344: 444 c work3,&000 344: 444 c work3,&000 345: 445 bu store 345: 445 bu store 346: 446 mcw @m@,hsw2 346: 446 mcw @m@,hsw2 347: 447 mcw n,sw1 347: 447 mcw n,sw1 348: 448 mcw sel&3,xl1 348: 448 mcw sel&3,xl1 349: 449 c 0&x1,@,@ 349: 449 c 0&x1,@,@ 350: 450 be store 350: 450 be store 351: 451 mcw store&6,*&7 351: 451 mcw store&6,*&7 352: 452 mcw 0,0 352: 452 mcw 0,0 353: 453 mcw @,@ 353: 453 mcw @,@ 354: 454 sbr store&6 354: 454 sbr store&6 355: 455 a &1,total 355: 455 a &1,total 356: 446 b incto 356: 446 b incto 357: 457 b store 357: 457 b store 358: 458 scanr mcw store&6,xl1 358: 458 scanr mcw store&6,xl1 359: 459 lca gm,0&x1 359: 459 lca gm,0&x1 360: 460 sbr xl1 360: 460 sbr xl1 361: 461 cc 1 361: 461 cc 1 362: 462 cs 332 362: 462 cs 332 363: 463 cs 363: 463 cs 364: 464 mcs total,205 364: 464 mcs total,205 365: 465 mcw @input characters@,222 365: 465 mcw @input characters@,222 366: 466 w 366: 466 w 367: 467 cc j 367: 467 cc j 368: 468 mcw stmno,intstz 368: 468 mcw stmno,intstz 369: 469 lca @ }POTS:R000@,0&x1 g-m,5-8 369: 469 lca @ }POTS:R000@,0&x1 g-m,5-8 370: 470 sbr xl1 370: 470 sbr xl1 371: 471 sw 2&x1 371: 471 sw 2&x1 372: 472 a &1,intstz 372: 472 a &1,intstz 373: 473 bce *&5,ldrnd, blank 373: 473 bce *&5,ldrnd, blank 374: 474 b quit 374: 474 b quit 375: 475 sbr tclear,sysgm 375: 475 sbr tclear,sysgm 376: 476 sbr bclear,xbegin 376: 476 sbr bclear,xbegin 377: 477 bss 333,c 377: 477 bss 333,c 378: 478 lca @scanner@,110 378: 478 lca @scanner@,110 379: 479 cs 080 379: 479 cs 080 380: 480 sw 1,40 380: 480 sw 1,40 381: 481 sw 47,54 381: 481 sw 47,54 382: 482 sw 61,68 382: 482 sw 61,68 383: 483 sw 72 383: 483 sw 72 384: 484 bce monter,montor,n tape system 384: 484 bce monter,montor,n tape system 385: 485 r 385: 485 r 386: 486 c 7,@scanner@ 386: 486 c 7,@scanner@ 387: 487 be monter 387: 487 be monter 388: 488 b prmsg 388: 488 b prmsg 389: 489 quit fquit 389: 489 quit fquit 390: 490 prthd cc 1 390: 490 prthd cc 1 391: 491 mcw @@@,tovl&4 391: 491 mcw @@@,tovl&4 392: 492 cs 299 392: 492 cs 299 393: 493 a one,pgno#003 393: 493 a one,pgno#003 394: 494 mcs pgno,299 394: 494 mcs pgno,299 395: 495 mcw @ page @,295 395: 495 mcw @ page @,295 396: 496 mcw 080 396: 496 mcw 080 397: 497 w 397: 497 w 398: 498 cs 299 398: 498 cs 299 399: 499 mcw kfsm,234 399: 499 mcw kfsm,234 400: 500 w 400: 500 w 401: 501 cc j 401: 501 cc j 402: 502 b m2prt 402: 502 b m2prt 403: 503 noprm messg@message 3 - no parameter card@,70,1,1 403: 503 noprm messg@message 3 - no parameter card@,70,1,1 404: 504 bce *&6,montor,1 404: 504 bce *&6,montor,1 405: 505 rwd 1 405: 505 rwd 1 406: 506 h *-3 406: 506 h *-3 407: 507 cmnt mcw blnk3#3,203 407: 507 cmnt mcw blnk3#3,203 408: 508 mcw 005,211 408: 508 mcw 005,211 409: 509 w 409: 509 w 410: 510 input blc scanr 410: 510 input blc scanr 411: 511 r 411: 511 r 412: 512 b move 412: 512 b move 413: 513 char dcw @$@/| @ last two a-bit,blank 413: 513 char dcw @$@/| @ last two a-bit,blank 414: 514 kfsm dcw @ seq stmnt FORTRAN STATEMENT@ 414: 514 kfsm dcw @ seq stmnt FORTRAN STATEMENT@ 415: 515 dcw @ @ 415: 515 dcw @ @ 416: 516 work ds 01 416: 516 work ds 01 417: 517 ds 76 417: 517 ds 76 418: 518 count dcw #2 418: 518 count dcw #2 419: 519 inilz1 dsa &work&010 419: 519 inilz1 dsa &work&010 420: 520 inilz2 dsa &work 420: 520 inilz2 dsa &work 421: 521 one dcw @1@ 421: 521 one dcw @1@ 422: 522 b dc @b@ 422: 522 b dc @b@ 423: 523 two dc @20@ 423: 523 two dc @20@ 424: 524 out dcw @ @ 424: 524 out dcw @ @ 425: 525 format dcw @%tamrof@ 425: 525 format dcw @%tamrof@ 426: 526 n dc @n@ 426: 526 n dc @n@ 427: 527 gm dc @}@ group mark 427: 527 gm dc @}@ group mark 428: 528 number dcw @000r@ 428: 528 number dcw @000r@ 429: 529 mark dcw @:@ 5-8 429: 529 mark dcw @:@ 5-8 430: 530 ten dcw @10@ 430: 530 ten dcw @10@ 431: 531 m dc @m@ 431: 531 m dc @m@ 432: 532 kproc dcw @ processed @ 432: 532 kproc dcw @ processed @ 433: 533 ltorg* 433: 533 ltorg* 434: 534 org *&x00 434: 534 org *&x00 435: 535 org *-1 435: 535 org *-1 436: 536 sysgm dcw @}@ work and system group mark 436: 536 sysgm dcw @}@ work and system group mark 437: 537 ldrnd equ *&1 437: 537 ldrnd equ *&1 438: 538 xfr start 438: 538 xfr start 439: 539 job 1401 Fortran Scanner phase 50033 439: 539 job 1401 Fortran Scanner phase 50033 440: 540 110 dcw @:@ 5-8 first card 440: 540 110 dcw @:@ 5-8 first card 441: 541 fbegnscanner,x1,r,,,,,b 441: 541 fbegnscanner,x1,r,,,,,b 442: 542 org xbegin 442: 542 org xbegin 443: 543 start mcw parama&2,dummy&6 443: 543 start mcw parama&2,dummy&6 444: 544 sw parama&3,parama&5 444: 544 sw parama&3,parama&5 445: 545 bce *&5,parama&4, blank 445: 545 bce *&5,parama&4, blank 446: 546 b *&8 446: 546 b *&8 447: 547 mcw @05@,parama&4 447: 547 mcw @05@,parama&4 448: 548 bce *&5,parama&6, blank 448: 548 bce *&5,parama&6, blank 449: 549 b *&8 449: 549 b *&8 450: 550 mcw @08@,parama&6 450: 550 mcw @08@,parama&6 451: 551 c parama&4,@01@ 451: 551 c parama&4,@01@ 452: 552 bh rdxer 452: 552 bh rdxer 453: 553 c parama&4,@20@ 453: 553 c parama&4,@20@ 454: 554 bl rdxer 454: 554 bl rdxer 455: 555 ckcmt c parama&6,@20@ 455: 555 ckcmt c parama&6,@20@ 456: 556 bl mnter 456: 556 bl mnter 457: 557 c parama&6,@02@ 457: 557 c parama&6,@02@ 458: 558 bh mnter 458: 558 bh mnter 459: 559 prdx cs 332 459: 559 prdx cs 332 460: 560 cs 460: 560 cs 461: 561 mcw @modulus is@,210 461: 561 mcw @modulus is@,210 462: 562 mcs parama&4,213 462: 562 mcs parama&4,213 463: 563 w 463: 563 w 464: 564 cs 299 464: 564 cs 299 465: 565 mcw @mantissa is@,211 465: 565 mcw @mantissa is@,211 466: 566 mcs parama&6,214 466: 566 mcs parama&6,214 467: 567 w 467: 567 w 468: 568 cc j 468: 568 cc j 469: 569 dummy bce dummy,0000,0 469: 569 dummy bce dummy,0000,0 470: 570 bce 470: 570 bce 471: 571 sbr marty&6 471: 571 sbr marty&6 472: 572 sbr remv&003 472: 572 sbr remv&003 473: 573 remv lca 0000,work 473: 573 remv lca 0000,work 474: 574 sar remv&003 474: 574 sar remv&003 475: 575 mcw nmbr,work 475: 575 mcw nmbr,work 476: 576 a one,nmbr 476: 576 a one,nmbr 477: 577 bce replce,work-3,f 477: 577 bce replce,work-3,f 478: 578 sbr twlv58&6,work-4 478: 578 sbr twlv58&6,work-4 479: 579 sbr first,work-5 479: 579 sbr first,work-5 480: 580 twlv58 bce arith1,work-4,: 5-8 undefined char.. 480: 580 twlv58 bce arith1,work-4,: 5-8 undefined char.. 481: 581 sbr twlv58&006 481: 581 sbr twlv58&006 482: 582 sbr lenny&006 482: 582 sbr lenny&006 483: 583 lenny bce lenny,0000, 483: 583 lenny bce lenny,0000, 484: 584 sbr first 484: 584 sbr first 485: 585 b twlv58 485: 585 b twlv58 486: 586 arith1 mcw first,test1&006 486: 586 arith1 mcw first,test1&006 487: 587 mcw first,test2&006 487: 587 mcw first,test2&006 488: 588 test1 bce encode,0000,} group mark 488: 588 test1 bce encode,0000,} group mark 489: 589 bce 489: 589 bce 490: 590 sbr test1&6 490: 590 sbr test1&6 491: 591 test2 bce arith2,0000,# 491: 591 test2 bce arith2,0000,# 492: 592 bce 492: 592 bce 493: 593 sbr test2&6 493: 593 sbr test2&6 494: 594 b test1 494: 594 b test1 495: 595 arith2 sw test1&004 495: 595 arith2 sw test1&004 496: 596 mcw test1&006,sel&003 496: 596 mcw test1&006,sel&003 497: 597 cw test1&004 497: 597 cw test1&004 498: 598 sel mcw 0000,fixed 498: 598 sel mcw 0000,fixed 499: 599 sar sel&003 499: 599 sar sel&003 500: 600 bce ckfun, fixed,% 500: 600 bce ckfun, fixed,% 501: 601 bce ckfun, fixed,} group mark 501: 601 bce ckfun, fixed,} group mark 502: 602 bce encode,fixed,, 502: 602 bce encode,fixed,, 503: 603 b sel 503: 603 b sel 504: 604 encode mcw first,grab10&003 504: 604 encode mcw first,grab10&003 505: 605 grab10 mcw 0000,front 505: 605 grab10 mcw 0000,front 506: 606 sw front 506: 606 sw front 507: 607 sw 507: 607 sw 508: 608 mcw front,scfb&007 508: 608 mcw front,scfb&007 509: 609 scfb bce store1,code, column 39 modified 509: 609 scfb bce store1,code, column 39 modified 510: 610 chain3 510: 610 chain3 511: 611 mcw front-001,auniq&007 511: 611 mcw front-001,auniq&007 512: 612 auniq bce store2,code-004, column 39 modified 512: 612 auniq bce store2,code-004, column 39 modified 513: 613 chain4 513: 613 chain4 514: 614 sw work-003 514: 614 sw work-003 515: 615 b easy 515: 615 b easy 516: 616 store1 c front-2,@esn@ sense light 516: 616 store1 c front-2,@esn@ sense light 517: 617 be sense 517: 617 be sense 518: 618 mcw front,work-003 518: 618 mcw front,work-003 519: 619 b clear 519: 619 b clear 520: 620 sense mcw @j@,work-3 520: 620 sense mcw @j@,work-3 521: 621 b clear 521: 621 b clear 522: 622 store2 mcw front-001,work-003 522: 622 store2 mcw front-001,work-003 523: 623 bce *&5,auniq&7,n 523: 623 bce *&5,auniq&7,n 524: 624 b clear 524: 624 b clear 525: 625 c front-2,@elifd@ 525: 625 c front-2,@elifd@ 526: 626 be clear 526: 626 be clear 527: 627 mcw @/@,work-3 527: 627 mcw @/@,work-3 528: 628 clear cw front 528: 628 clear cw front 529: 629 cw 529: 629 cw 530: 630 replce cw work-003 530: 630 replce cw work-003 531: 631 marty lca work,0000 531: 631 marty lca work,0000 532: 632 sbr marty&006 532: 632 sbr marty&006 533: 633 sbr end&006 533: 633 sbr end&006 534: 634 sbr 083 534: 634 sbr 083 535: 635 end bce relokt,0000, 535: 635 end bce relokt,0000, 536: 636 b remv 536: 636 b remv 537: 637 ckfun mcw test2&6,x1 537: 637 ckfun mcw test2&6,x1 538: 638 bce mayfn,1&x1,) 538: 638 bce mayfn,1&x1,) 539: 639 bce 539: 639 bce 540: 640 b replce 540: 640 b replce 541: 641 mayfn bce ndfnd,2&x1,% 541: 641 mayfn bce ndfnd,2&x1,% 542: 642 sbr x1 542: 642 sbr x1 543: 643 b mayfn 543: 643 b mayfn 544: 644 ndfnd bce probf,3&x1,f 544: 644 ndfnd bce probf,3&x1,f 545: 645 b replce 545: 645 b replce 546: 646 probf bce replce,6&x1,: 5-8 546: 646 probf bce replce,6&x1,: 5-8 547: 647 bce 547: 647 bce 548: 648 bce 548: 648 bce 549: 649 mcw @R@,work-3 549: 649 mcw @R@,work-3 550: 650 sw funcsw 550: 650 sw funcsw 551: 651 b replce 551: 651 b replce 552: 652 easy cw front 552: 652 easy cw front 553: 653 cw 553: 653 cw 554: 654 c front,snse if sense switch 554: 654 c front,snse if sense switch 555: 655 bin do,/ 555: 655 bin do,/ 556: 656 bce light,front-8,L 556: 656 bce light,front-8,L 557: 657 mcw const,work-003 557: 657 mcw const,work-003 558: 658 b replce 558: 658 b replce 559: 659 light mcw @k@,work-3 559: 659 light mcw @k@,work-3 560: 660 b replce 560: 660 b replce 561: 661 rdxer messg@error 42 - modulus@,18,,j 561: 661 rdxer messg@error 42 - modulus@,18,,j 562: 662 mcw @05@,parama&4 562: 662 mcw @05@,parama&4 563: 663 b ckcmt 563: 663 b ckcmt 564: 664 mnter messg@error 43 - mantissa@,19,,j 564: 664 mnter messg@error 43 - mantissa@,19,,j 565: 665 mcw @08@,parama&6 565: 665 mcw @08@,parama&6 566: 666 b prdx 566: 666 b prdx 567: 667 do bce put1,front,d d for do 567: 667 do bce put1,front,d d for do 568: 668 bce put2,front-002,% 3rd paren if 568: 668 bce put2,front-002,% 3rd paren if 569: 669 bce put3,front-004,% 5th paren go to 569: 669 bce put3,front-004,% 5th paren go to 570: 670 bce put4,front,g g for go to 570: 670 bce put4,front,g g for go to 571: 671 bce put5,front,p p fo print 571: 671 bce put5,front,p p fo print 572: 672 bwz put6,front-004,2 5th numerl readn 572: 672 bwz put6,front-004,2 5th numerl readn 573: 673 bce put7,front-005,d 6th d for rewind 573: 673 bce put7,front-005,d 6th d for rewind 574: 674 mcw one,work-003 574: 674 mcw one,work-003 575: 675 mn front-005,work-003 575: 675 mn front-005,work-003 > 576: 6751 mn front-5,tnmbr&7 v3m4 > 577: 6752tnmbr bce replce,@6531@,0 v3m4 > 578: 6573 chain3 v3m4 > 579: 6754 mn @9@,work-3 v3m4 576: 676 b replce 580: 676 b replce 577: 677 put1 mcw const-001,work-003 581: 677 put1 mcw const-001,work-003 578: 678 b replce 582: 678 b replce 579: 679 put2 mcw const-002,work-003 583: 679 put2 mcw const-002,work-003 580: 680 b replce 584: 680 b replce 581: 681 put3 mcw const-003,work-003 585: 681 put3 mcw const-003,work-003 582: 682 b replce 586: 682 b replce 583: 683 put4 mcw const-004,work-003 587: 683 put4 mcw const-004,work-003 584: 684 b replce 588: 684 b replce 585: 685 put5 mcw const-005,work-003 589: 685 put5 mcw const-005,work-003 586: 686 b replce 590: 686 b replce 587: 687 put6 mcw const-006,work-003 591: 687 put6 mcw const-006,work-003 588: 688 b replce 592: 688 b replce 589: 689 put7 mcw const-007,work-003 593: 689 put7 mcw const-007,work-003 590: 690 b replce 594: 690 b replce 591: 691 relokt fendxc,,,,beginc,,clrfct,sorter one 595: 691 relokt fendxc,,,,beginc,,clrfct,sorter one 592: 692 dcw @ @ blank 596: 692 dcw @ @ blank 593: 693 dcw @ @ 597: 693 dcw @ @ 594: 694 org *&693 598: 694 org *&693 595: 695 work ds 01 599: 695 work ds 01 596: 696 nmbr dcw @001@ 600: 696 nmbr dcw @001@ 597: 697 one dcw @1@ 601: 697 one dcw @1@ 598: 698 first dcw #3 602: 698 first dcw #3 599: 699 fixed dcw #1 603: 699 fixed dcw #1 600: 700 front dcw #10 604: 700 front dcw #10 601: 701 code dc @qinuabfcs@ 605: 701 code dc @qinuabfcs@ 602: 702 snse dcw @esnes%fi@ 606: 702 snse dcw @esnes%fi@ 603: 703 const dc @zlpgtedw@ 607: 703 const dc @zlpgtedw@ 604: 704 ltorg* 608: 704 ltorg* 605: 705 org *&x00 609: 705 org *&x00 606: 706 clrfct equ * 610: 706 clrfct equ * 607: 707 dcw @}@ system group mark 611: 707 dcw @}@ system group mark 608: 708 xfr start 612: 708 xfr start 609: 709 job 1401 Fortran sorter phase one 50043 613: 709 job 1401 Fortran sorter phase one 50043 610: 710 fbegnsorter one,xl1,r,xl2,r,xl3,r,c,xxxx 614: 710 fbegnsorter one,xl1,r,xl2,r,xl3,r,c,xxxx 611: 711 org xbegin 615: 711 org xbegin 612: 712 table da 40x3,c 616: 712 table da 40x3,c 613: 713 org *&x00 617: 713 org *&x00 614: 714 ds 6 618: 714 ds 6 615: 715 zone dcw @2skb@ 619: 715 zone dcw @2skb@ 616: 716 begin cs clrfct 620: 716 begin cs clrfct 617: 717 chain8 621: 717 chain8 618: 718 start mcw 083,xl3 622: 718 start mcw 083,xl3 619: 719 mcm 2&x3 get last statement 623: 719 mcm 2&x3 get last statement 620: 720 mcw number 624: 720 mcw number 621: 721 sbr xl3 625: 721 sbr xl3 622: 722 mcw 0&x3,work3#3 626: 722 mcw 0&x3,work3#3 623: 723 za work3,hold5#5 multiply by three 627: 723 za work3,hold5#5 multiply by three 624: 724 a hold5 628: 724 a hold5 625: 725 a work3,hold5 629: 725 a work3,hold5 626: 726 s &2,hold5 630: 726 s &2,hold5 627: 727 mcw hold5,hld5a#5 631: 727 mcw hold5,hld5a#5 628: 728 mcw @16000@,hold5 632: 728 mcw @16000@,hold5 629: 729 s hld5a,hold5 633: 729 s hld5a,hold5 630: 730 bav *&1 634: 730 bav *&1 631: 731 sub a &96,hold5-3 compute new address 635: 731 sub a &96,hold5-3 compute new address 632: 732 bav sub 636: 732 bav sub 633: 733 mn hold5-3,*&4 637: 733 mn hold5-3,*&4 634: 734 mz zone,hold5-2 638: 734 mz zone,hold5-2 635: 735 mcw 083,xl1 639: 735 mcw 083,xl1 636: 736 mcw xl1,nop&3 640: 736 mcw xl1,nop&3 637: 737 mcw hold5,xl2 641: 737 mcw hold5,xl2 638: 738 mz @j@,nop&2 642: 738 mz @j@,nop&2 639: 739 nop nop xxxx 643: 739 nop nop xxxx 640: 740 sar xl2 644: 740 sar xl2 641: 741 unpakxl2,hold5 645: 741 unpakxl2,hold5 642: 742 c hold5,@02900@ 646: 742 c hold5,@02900@ 643: 743 bl move 647: 743 bl move 644: 744 fquit 648: 744 fquit 645: 745 move mcw xl2,083 649: 745 move mcw xl2,083 646: 746 mcm 0&x1 650: 746 mcm 0&x1 647: 747 sar xl1 651: 747 sar xl1 648: 748 fendxc,,,start,nustm,start,sysmk,sort 2 652: 748 fendxc,,,start,nustm,start,sysmk,sort 2 649: 749 dcw 0 653: 749 dcw 0 650: 750 ltorg* 654: 750 ltorg* 651: 751 sysmk dcw @}@ system group mark 655: 751 sysmk dcw @}@ system group mark 652: 752 xfr begin 656: 752 xfr begin 653: 753 job 1401 Fortran sorter phase two 50053 657: 753 job 1401 Fortran sorter phase two 50053 654: 754 110 dcw @sort 2@ 658: 754 110 dcw @sort 2@ 655: 755 org start 659: 755 org start 656: 756 nustm mcw xl1,xl3 660: 756 nustm mcw xl1,xl3 657: 757 sw gm2 661: 757 sw gm2 658: 758 mcm 0&x1 662: 758 mcm 0&x1 659: 759 mn 663: 759 mn 660: 760 mn 664: 760 mn 661: 761 sar xl1 665: 761 sar xl1 662: 762 lca 0&x1, hold-3 666: 762 lca 0&x1, hold-3 663: 763 mcm 0&x1 667: 763 mcm 0&x1 664: 764 sar xl1 668: 764 sar xl1 665: 765 mcm 0&x3,0&x2 669: 765 mcm 0&x3,0&x2 666: 766 sbr xl2 670: 766 sbr xl2 667: 767 lca hold,1&x2 671: 767 lca hold,1&x2 668: 768 s xl3&1 672: 768 s xl3&1 669: 769 mcw 0&x2,hold6#6 673: 769 mcw 0&x2,hold6#6 670: 770 mn hold6-5, xl3 674: 770 mn hold6-5, xl3 671: 771 mcw xl3,save3 675: 771 mcw xl3,save3 672: 772 a xl3 676: 772 a xl3 673: 773 a save3,xl3 677: 773 a save3,xl3 674: 774 bwz cntu,hold6-5, 2 678: 774 bwz cntu,hold6-5, 2 675: 775 a &30,xl3 679: 775 a &30,xl3 676: 776 bwz cntu,hold6-5, s 680: 776 bwz cntu,hold6-5, s 677: 777 a &30,xl3 681: 777 a &30,xl3 678: 778 bwz cntu,hold6-5, k 682: 778 bwz cntu,hold6-5, k 679: 779 a &30,xl3 683: 779 a &30,xl3 680: 780 cntu mcw table&2&x3,1&x2 insert table entry 684: 780 cntu mcw table&2&x3,1&x2 insert table entry 681: 781 lca gm2,2&x2 685: 781 lca gm2,2&x2 682: 782 sbr table&2&x3 686: 782 sbr table&2&x3 683: 783 mcm 2&x2 687: 783 mcm 2&x2 684: 784 sar xl2 688: 784 sar xl2 685: 785 c xl2,parama&2 689: 785 c xl2,parama&2 686: 786 bu nustm 690: 786 bu nustm 687: 787 fendxc,gm2,,,,,end-1,sort 3 691: 787 fendxc,gm2,,,,,end-1,sort 3 688: 788 dcw 0 692: 788 dcw 0 689: 789 gm2 dc @}@ g-m 693: 789 gm2 dc @}@ g-m 690: 790 org *&700 694: 790 org *&700 691: 791 hold dc #3 695: 791 hold dc #3 692: 792 org *&x00 696: 792 org *&x00 693: 793 eotwo equ *&1 697: 793 eotwo equ *&1 694: 794 ltorg* 698: 794 ltorg* 695: 795 dcw @}@ system group mark 699: 795 dcw @}@ system group mark 696: 796 xfr nustm 700: 796 xfr nustm 697: 797 job 1401 Fortran sorter phase 3 50063 701: 797 job 1401 Fortran sorter phase 3 50063 698: 798 110 dcw @sort 3@ 702: 798 110 dcw @sort 3@ 699: 799 x1 equ 089 703: 799 x1 equ 089 700: 800 x2 equ 094 704: 800 x2 equ 094 701: 801 org start 705: 801 org start 702: 802 again mcw 083,xl3 706: 802 again mcw 083,xl3 703: 803 sw gm 707: 803 sw gm 704: 804 sbr xl1,end-1 708: 804 sbr xl1,end-1 705: 805 sw end 709: 805 sw end 706: 806 mn 0&x3 710: 806 mn 0&x3 707: 807 lca gm 711: 807 lca gm 708: 808 sbr pick&6 712: 808 sbr pick&6 709: 809 sbr tbegin#3,list 713: 809 sbr tbegin#3,list 710: 810 nutyp mcw tbegin,xl3 get list entry 714: 810 nutyp mcw tbegin,xl3 get list entry 711: 811 mcw 0&x3,xl3 715: 811 mcw 0&x3,xl3 712: 812 sar tbegin 716: 812 sar tbegin 713: 813 bce eoj,xl3,x 717: 813 bce eoj,xl3,x 714: 814 mcw table&2&x3,xl3 get table entry 718: 814 mcw table&2&x3,xl3 get table entry 715: 815 bce nutyp,xl3, any of this type 719: 815 bce nutyp,xl3, any of this type 716: 816 pick mcw 0&x3,xxxx pickup statement 720: 816 pick mcw 0&x3,xxxx pickup statement 717: 817 sar xl2 721: 817 sar xl2 718: 818 bce aok1,1&x2,} can it fit g-m 722: 818 bce aok1,1&x2,} can it fit g-m 719: 819 b pack 723: 819 b pack 720: 820 aok1 sbr xl2,2&x2 724: 820 aok1 sbr xl2,2&x2 721: 821 back5 mcm 0&x2 725: 821 back5 mcm 0&x2 722: 822 sbr sbr6&6 726: 822 sbr sbr6&6 723: 823 mcm 0&x2,1&x1 727: 823 mcm 0&x2,1&x1 724: 824 sbr x1 728: 824 sbr x1 725: 825 mn 0&x1 729: 825 mn 0&x1 726: 826 sbr x1 730: 826 sbr x1 727: 827 sbr6 sbr x2,0 731: 827 sbr6 sbr x2,0 728: 828 bce back5,0&x1,| 732: 828 bce back5,0&x1,| 729: 829 sbr x1,1&x1 733: 829 sbr x1,1&x1 730: 830 cw paksw 734: 830 cw paksw 731: 831 mn 0&x1 735: 831 mn 0&x1 732: 832 chain3 736: 832 chain3 733: 833 sar xl1 737: 833 sar xl1 734: 834 lca gm,0&x1 738: 834 lca gm,0&x1 735: 835 sbr 083 739: 835 sbr 083 736: 836 sbr xl1 740: 836 sbr xl1 737: 837 pmov1 mcm 1&x1 741: 837 pmov1 mcm 1&x1 738: 838 mn 742: 838 mn 739: 839 sar xl1 743: 839 sar xl1 740: 840 bce pmov1,0&x1,| 744: 840 bce pmov1,0&x1,| 741: 841 mn 0&x3 745: 841 mn 0&x3 742: 842 chain5 746: 842 chain5 743: 843 sar xl3 747: 843 sar xl3 744: 844 mn 0&x1 748: 844 mn 0&x1 745: 845 lca 3&x3 749: 845 lca 3&x3 746: 846 mcw @#@,0&x3 750: 846 mcw @#@,0&x3 747: 847 pmov2 mcm 2&x3 751: 847 pmov2 mcm 2&x3 748: 848 mn 752: 848 mn 749: 849 mn 753: 849 mn 750: 850 sar xl3 754: 850 sar xl3 751: 851 bce pmov2,1&x3,| 755: 851 bce pmov2,1&x3,| 752: 852 bce nutyp,0&x3, 756: 852 bce nutyp,0&x3, 753: 853 mcw 0&x3,xl3 757: 853 mcw 0&x3,xl3 754: 854 b pick 758: 854 b pick 755: 855 pack bw cerr,paksw 759: 855 pack bw cerr,paksw 756: 856 sw paksw 760: 856 sw paksw 757: 857 mcw parama&2,xl2 761: 857 mcw parama&2,xl2 758: 858 mn 0&x2 762: 858 mn 0&x2 759: 859 sar xl2 763: 859 sar xl2 760: 860 mcw xl2,xl3 764: 860 mcw xl2,xl3 761: 861 loop1 lca 0&x2,0&x3 765: 861 loop1 lca 0&x2,0&x3 762: 862 sar xl2 766: 862 sar xl2 763: 863 mcw 0&x3,work9#9 767: 863 mcw 0&x3,work9#9 764: 864 bce done,work9-6,# 768: 864 bce done,work9-6,# 765: 865 lca 0&x3,0&x3 769: 865 lca 0&x3,0&x3 766: 866 sar xl3 770: 866 sar xl3 767: 867 done c pick&6,xl2 771: 867 done c pick&6,xl2 768: 868 bu loop1 772: 868 bu loop1 769: 869 mcw xl3,pick&6 773: 869 mcw xl3,pick&6 770: 870 mcw xl3,xl2 774: 870 mcw xl3,xl2 771: 871 mz xl3,all92 775: 871 mz xl3,all92 772: 872 mz 776: 872 mz > 777: 8724* mlzs acchi&x3,nsign wasn't actually done v3m4 773: 873 mcw 778: 873 mcw 774: 874 mz xl1,all9 779: 874 mz xl1,all9 775: 875 mz 780: 875 mz 776: 876 mcw 781: 876 mcw 777: 877 c all9,all92 782: 877 c all9,all92 778: 878 be zadd 783: 878 be zadd 779: 879 cleer cs 0&x3 784: 879 cleer cs 0&x3 780: 880 sbr xl3 785: 880 sbr xl3 781: 881 c xl3,all9 786: 881 c xl3,all9 782: 882 bu cleer 787: 882 bu cleer 783: 883 zadd za &39,save3 788: 883 zadd za &39,save3 784: 884 s xl3&1 789: 884 s xl3&1 785: 885 muve mcw blnk3#3,table&2&x3 790: 885 muve mcw blnk3#3,table&2&x3 786: 886 s &1,save3 791: 886 s &1,save3 787: 887 bm exit,save3 792: 887 bm exit,save3 788: 888 a &3,xl3 793: 888 a &3,xl3 789: 889 b muve 794: 889 b muve 790: 890 exit mcm 1&x2 795: 890 exit mcm 1&x2 791: 891 mn 796: 891 mn 792: 892 sar xl2 797: 892 sar xl2 793: 893 bce exit,0&x2,| 798: 893 bce exit,0&x2,| 794: 894 sbr xl2,1&x2 799: 894 sbr xl2,1&x2 795: 895 s xl3&1 800: 895 s xl3&1 796: 896 c 0&x2 801: 896 c 0&x2 797: 897 sar *&4 802: 897 sar *&4 798: 898 mcw 0,work9 803: 898 mcw 0,work9 799: 899 mn work9-6,xl3 804: 899 mn work9-6,xl3 800: 900 mcw xl3,save3 805: 900 mcw xl3,save3 801: 901 a xl3 806: 901 a xl3 802: 902 a save3,xl3 807: 902 a save3,xl3 803: 903 bwz cnt,work9-6,2 808: 903 bwz cnt,work9-6,2 804: 904 a &30,xl3 809: 904 a &30,xl3 805: 905 bwz cnt,work9-6,s 810: 905 bwz cnt,work9-6,s 806: 906 a &30,xl3 811: 906 a &30,xl3 807: 907 bwz cnt,work9-6,k 812: 907 bwz cnt,work9-6,k 808: 908 a &30,xl3 813: 908 a &30,xl3 809: 909 cnt mn 0&x2 814: 909 cnt mn 0&x2 810: 910 mn 815: 910 mn 811: 911 mcw table&2&x3 816: 911 mcw table&2&x3 812: 912 c 0&x2 817: 912 c 0&x2 813: 913 sar table&2&x3 818: 913 sar table&2&x3 814: 914 c xl2,parama&2 819: 914 c xl2,parama&2 815: 915 bu exit 820: 915 bu exit 816: 916 mcw tbegin,xl3 821: 916 mcw tbegin,xl3 817: 917 nop 3&x3 822: 917 nop 3&x3 818: 918 sar tbegin 823: 918 sar tbegin 819: 919 b nutyp 824: 919 b nutyp 820: 920 eoj fendxc,gm,,xbegin,xbegin,xbegin,save3,group mark 825: 920 eoj fendxc,gm,,xbegin,xbegin,xbegin,save3,group mark 821: 921 cerr fquit 826: 921 cerr fquit 822: 922 dcw @xxx@ 827: 922 dcw @xxx@ 823: 923 dcw 117 I dimension 828: 923 dcw 117 I dimension 824: 924 dcw 084 Q equivalence 829: 924 dcw 084 Q equivalence 825: 925 dcw 108 F format 830: 925 dcw 108 F format 826: 926 dcw 009 3 write tape 831: 926 dcw 009 3 write tape 827: 927 dcw 003 1 read tape 832: 927 dcw 003 1 read tape 828: 928 dcw 018 6 write output tape 833: 928 dcw 018 6 write output tape 829: 929 dcw 081 p print 834: 929 dcw 081 p print 830: 930 dcw 042 u pnch 835: 930 dcw 042 u pnch 831: 931 dcw 015 5 read input tape 836: 931 dcw 015 5 read input tape 832: 932 dcw 069 l read 837: 932 dcw 069 l read 833: 933 dcw 087 r arith 838: 933 dcw 087 r arith 834: 934 dcw 105 e if 839: 934 dcw 105 e if 835: 935 dcw 027 9 function stmts 840: 935 dcw 027 9 function stmts 836: 936 dcw 096 b backspace 841: 936 dcw 096 b backspace 837: 937 dcw 057 z rewind 842: 937 dcw 057 z rewind 838: 938 dcw 075 n end of file 843: 938 dcw 075 n end of file 839: 939 dcw 039 t computed go to 844: 939 dcw 039 t computed go to 840: 940 dcw 111 g go to 845: 940 dcw 111 g go to 841: 941 dcw 036 s stop 846: 941 dcw 036 s stop 842: 942 dcw 093 a pause 847: 942 dcw 093 a pause 843: 943 dcw 063 j sense light 848: 943 dcw 063 j sense light 844: 944 dcw 066 k if sense light 849: 944 dcw 066 k if sense light 845: 945 dcw 048 w if sense switch 850: 945 dcw 048 w if sense switch 846: 946 dcw 099 c continue 851: 946 dcw 099 c continue 847: 947 list dcw 102 d do 852: 947 list dcw 102 d do 848: 948 all9 dcw 999 853: 948 all9 dcw 999 849: 949 all92 dcw 999 854: 949 all92 dcw 999 850: 950 gm dc @}@ group mark 855: 950 gm dc @}@ group mark 851: 951 paksw dc 0 856: 951 paksw dc 0 852: 952 ltorg* 857: 952 ltorg* 853: 953 org eotwo&1 858: 953 org eotwo&1 854: 954 save3 dcw #3 859: 954 save3 dcw #3 855: 955 org orgvbi&x00 varbl one longest 860: 955 org orgvbi&x00 varbl one longest 856: 956 end equ *&1 861: 956 end equ *&1 857: 957 dcw @}@ system group mark 862: 957 dcw @}@ system group mark 858: 958 xfr again 863: 958 xfr again 859: 959 job 1401 Fortran insert group phase 50073 864: 959 job 1401 Fortran insert group phase 50073 860: 960 fbegngroup mark,x1,r,x2,r,,,d 865: 960 fbegngroup mark,x1,r,x2,r,,,d 861: 961 org xbegin 866: 961 org xbegin 862: 962 start mcw 083,x1 867: 962 start mcw 083,x1 863: 963 sw gm 868: 963 sw gm 864: 964 loop1 bce rplce,0&x1,: 5-8 869: 964 loop1 bce rplce,0&x1,: 5-8 865: 965 btest bce eoj,0&x1, blank 870: 965 btest bce eoj,0&x1, blank 866: 966 bce ckfmt,0&x1,} group mark 871: 966 bce ckfmt,0&x1,} group mark 867: 967 sbr x1 872: 967 sbr x1 868: 968 b loop1 873: 968 b loop1 869: 969 rplce lca gm, 0&x1 insert gm/wm 874: 969 rplce lca gm, 0&x1 insert gm/wm 870: 970 sbr x1 875: 970 sbr x1 871: 971 c 0&x1 876: 971 c 0&x1 872: 972 sar x1 877: 972 sar x1 873: 973 b loop1 878: 973 b loop1 874: 974 ckfmt mcw 0&x1,hold5#5 879: 974 ckfmt mcw 0&x1,hold5#5 875: 975 bce isfmt,hold5-4,f 880: 975 bce isfmt,hold5-4,f 876: 976 mcw @b@,btest 881: 976 mcw @b@,btest 877: 977 bump mn 0&x1 882: 977 bump mn 0&x1 878: 978 sbr x1 883: 978 sbr x1 879: 979 b loop1 884: 979 b loop1 880: 980 isfmt mcw @n@,btest 885: 980 isfmt mcw @n@,btest 881: 981 b bump 886: 981 b bump 882: 982 eoj mcw parama&2,x2 887: 982 eoj mcw parama&2,x2 883: 983 mz 083,all9 888: 983 mz 083,all9 884: 984 mz 889: 984 mz 885: 985 mcw 890: 985 mcw 886: 986 clear cs 0&x2 891: 986 clear cs 0&x2 887: 987 sbr x2 892: 987 sbr x2 888: 988 c x2,all9 893: 988 c x2,all9 889: 989 bu clear 894: 989 bu clear 890: 990 cmpar c 083,x2 895: 990 cmpar c 083,x2 891: 991 be fxprm 896: 991 be fxprm 892: 992 mcw blank#1,0&x2 897: 992 mcw blank#1,0&x2 893: 993 cw 0&x2 898: 993 cw 0&x2 894: 994 sbr x2 899: 994 sbr x2 895: 995 b cmpar 900: 995 b cmpar 896: 996 fxprm sw parama&3 901: 996 fxprm sw parama&3 897: 997 a blank,parama&6 902: 997 a blank,parama&6 898: 998 c parama&4,@00@ 903: 998 c parama&4,@00@ 899: 999 bu *&8 904: 999 bu *&8 900: 1000 mcw @05@,parama&4 905: 1000 mcw @05@,parama&4 901: 1001 c parama&6,@00@ 906: 1001 c parama&6,@00@ 902: 1002 bu eophs 907: 1002 bu eophs 903: 1003 mcw @08@,parama&6 908: 1003 mcw @08@,parama&6 904: 1004 eophs fendxc,gm,,,,,sys1,squoze 909: 1004 eophs fendxc,gm,,,,,sys1,squoze 905: 1005 all9 dcw 999 910: 1005 all9 dcw 999 906: 1006 gm dc @}@ group mark 911: 1006 gm dc @}@ group mark 907: 1007 ltorg* 912: 1007 ltorg* 908: 1008 sys1 dcw @}@ system group mark 913: 1008 sys1 dcw @}@ system group mark 909: 1009 xfr start 914: 1009 xfr start 910: 1010 job 1401 Fortran squoze phase 50083 915: 1010 job 1401 Fortran squoze phase 50083 911: 1011 fbegnsquoze,xl1,r,xl2,r,xl3,r,e,xxxx 916: 1011 fbegnsquoze,xl1,r,xl2,r,xl3,r,e,xxxx 912: 1012 x1 equ xl1 917: 1012 x1 equ xl1 913: 1013 x2 equ xl2 918: 1013 x2 equ xl2 914: 1014 stloc equ 083 919: 1014 stloc equ 083 915: 1015 org xbegin 920: 1015 org xbegin 916: 1016 begin mcw stloc,xl2 initialize index locs 921: 1016 begin mcw stloc,xl2 initialize index locs 917: 1017 mcw stloc,xl1 with start address 922: 1017 mcw stloc,xl1 with start address 918: 1018 nustm mcw 0&x1,stmno#3 save statement number 923: 1018 nustm mcw 0&x1,stmno#3 save statement number 919: 1019 mcw 0&x1,hold4#4 924: 1019 mcw 0&x1,hold4#4 920: 1020 bce arith,hold4-3,r 925: 1020 bce arith,hold4-3,r 921: 1021 bce endcd,hold4-3,/ 926: 1021 bce endcd,hold4-3,/ 922: 1022 byp bce lod,hold4-3,x 927: 1022 byp bce lod,hold4-3,x 923: 1023 mz hold4-3,byp&7 928: 1023 mz hold4-3,byp&7 924: 1024 mn hold4-3,byp&7 929: 1024 mn hold4-3,byp&7 925: 1025 mn hold4-3,hold1#1 generate table entry 930: 1025 mn hold4-3,hold1#1 generate table entry 926: 1026 za hold1,hold3#3 address 931: 1026 za hold1,hold3#3 address 927: 1027 a hold3 932: 1027 a hold3 928: 1028 a hold1,hold3 933: 1028 a hold1,hold3 929: 1029 mz blank#1,hold3 934: 1029 mz blank#1,hold3 930: 1030 lca &table-3,rtrev&3 935: 1030 lca &table-3,rtrev&3 931: 1031 a hold3,rtrev&3 936: 1031 a hold3,rtrev&3 932: 1032 mz hold4-3,rtrev&2 937: 1032 mz hold4-3,rtrev&2 933: 1033 cw rtrev&1 938: 1033 cw rtrev&1 934: 1034 mcw xl2,holdx#8 save index locs 1 & 2 939: 1034 mcw xl2,holdx#8 save index locs 1 & 2 935: 1035 mcw 940: 1035 mcw 936: 1036 mcm data,xl1-2 retrieve table entry 941: 1036 mcm data,xl1-2 retrieve table entry 937: 1037 rtrev mcw xxxx,xl3 942: 1037 rtrev mcw xxxx,xl3 938: 1038 mcw holdx,xl2 943: 1038 mcw holdx,xl2 939: 1039 mcw 944: 1039 mcw 940: 1040 lod mvdwnx1,x2 945: 1040 lod mvdwnx1,x2 941: 1041 c 0&x1,0&x3 check statement name 946: 1041 c 0&x1,0&x3 check statement name 942: 1042 sar xl1 947: 1042 sar xl1 943: 1043 bu error 948: 1043 bu error 944: 1044 shift mvdwnx1,x2 949: 1044 shift mvdwnx1,x2 945: 1045 ckdon bce done,0&x1, blank check for eoj 950: 1045 ckdon bce done,0&x1, blank check for eoj 946: 1046 b nustm 951: 1046 b nustm 947: 1047 done cs 0&x2 952: 1047 done cs 0&x2 948: 1048 cs 953: 1048 cs 949: 1049 fendxc,,,,initlf,,sys1,dimen1 954: 1049 fendxc,,,,initlf,,sys1,dimen1 950: 1050 error ftmsg1,undeterminable statement,stmno,25 955: 1050 error ftmsg1,undeterminable statement,stmno,25 951: 1051 pmov3 mcm 2&x2 956: 1051 pmov3 mcm 2&x2 952: 1052 mn 957: 1052 mn 953: 1053 mn 958: 1053 mn 954: 1054 sar xl2 959: 1054 sar xl2 955: 1055 bce pmov3,1&x2,| 960: 1055 bce pmov3,1&x2,| 956: 1056 c 0&x1 961: 1056 c 0&x1 957: 1057 sar xl1 962: 1057 sar xl1 958: 1058 b ckdon 963: 1058 b ckdon 959: 1059 arith lca 0&x1,0&x2 964: 1059 arith lca 0&x1,0&x2 960: 1060 sar xl1 965: 1060 sar xl1 961: 1061 lca 0&x2,0&x2 966: 1061 lca 0&x2,0&x2 962: 1062 sbr xl2 967: 1062 sbr xl2 963: 1063 b shift 968: 1063 b shift 964: 1064 endcd c 0&x1 969: 1064 endcd c 0&x1 965: 1065 c 970: 1065 c 966: 1066 sar xl1 971: 1066 sar xl1 967: 1067 b ckdon / end 972: 1067 b ckdon / end 968: 1068 table dcw rdtap 1 read tape 973: 1068 table dcw rdtap 1 read tape 969: 1069 dcw xxxx 2 974: 1069 dcw xxxx 2 970: 1070 dcw wrtap 3 write tape 975: 1070 dcw wrtap 3 write tape 971: 1071 dcw xxxx 4 976: 1071 dcw xxxx 4 972: 1072 dcw rditp 5 read input tape 977: 1072 dcw rditp 5 read input tape 973: 1073 dcw wtotp 6 write output tape 978: 1073 dcw wtotp 6 write output tape 974: 1074 dcw xxxx 7 979: 1074 dcw xxxx 7 975: 1075 dcw xxxx 8 980: 1075 dcw xxxx 8 976: 1076 dcw blank 9 function statements 981: 1076 dcw blank 9 function statements 977: 1077 dcw xxxx / 982: 1077 dcw xxxx / 978: 1078 dcw stop s stop 983: 1078 dcw stop s stop 979: 1079 dcw cgoto t computed go to 984: 1079 dcw cgoto t computed go to 980: 1080 dcw punch u punch 985: 1080 dcw punch u punch 981: 1081 dcw xxxx v 986: 1081 dcw xxxx v 982: 1082 dcw ifssw w if sense switch 987: 1082 dcw ifssw w if sense switch 983: 1083 dcw xxxx x 988: 1083 dcw xxxx x 984: 1084 dcw xxxx y 989: 1084 dcw xxxx y 985: 1085 dcw rwd z rewind 990: 1085 dcw rwd z rewind 986: 1086 dcw senlt j sense light 991: 1086 dcw senlt j sense light 987: 1087 dcw ifsl k if sense light 992: 1087 dcw ifsl k if sense light 988: 1088 dcw read l read 993: 1088 dcw read l read 989: 1089 dcw xxxx m 994: 1089 dcw xxxx m 990: 1090 dcw eof n end of file 995: 1090 dcw eof n end of file 991: 1091 dcw xxxx o 996: 1091 dcw xxxx o 992: 1092 dcw print p print 997: 1092 dcw print p print 993: 1093 dcw equiv q equivalence 998: 1093 dcw equiv q equivalence 994: 1094 dcw xxxx r arithmetic 999: 1094 dcw xxxx r arithmetic 995: 1095 dcw pause a pause 1000: 1095 dcw pause a pause 996: 1096 dcw bsp b backspace 1001: 1096 dcw bsp b backspace 997: 1097 dcw cntu c continue 1002: 1097 dcw cntu c continue 998: 1098 dcw do d do 1003: 1098 dcw do d do 999: 1099 dcw if e if 1004: 1099 dcw if e if 1000: 1100 dcw frmat f format 1005: 1100 dcw frmat f format 1001: 1101 dcw goto g go to 1006: 1101 dcw goto g go to 1002: 1102 dcw xxxx h 1007: 1102 dcw xxxx h 1003: 1103 dcw dmsn i dimension 1008: 1103 dcw dmsn i dimension 1004: 1104 goto dcw @otog@ 1009: 1104 goto dcw @otog@ 1005: 1105 cgoto dcw @%otog@ 1010: 1105 cgoto dcw @%otog@ 1006: 1106 if dcw @fi@ 1011: 1106 if dcw @fi@ 1007: 1107 ifssw dcw @hctiwsesnes%fi@ 1012: 1107 ifssw dcw @hctiwsesnes%fi@ 1008: 1108 pause dcw @esuap@ 1013: 1108 pause dcw @esuap@ 1009: 1109 stop dcw @pots@ 1014: 1109 stop dcw @pots@ 1010: 1110 do dcw @od@ 1015: 1110 do dcw @od@ 1011: 1111 cntu dcw @eunitnoc@ 1016: 1111 cntu dcw @eunitnoc@ 1012: 1112 frmat dcw @%tamrof@ 1017: 1112 frmat dcw @%tamrof@ 1013: 1113 read dcw @daer@ 1018: 1113 read dcw @daer@ 1014: 1114 rditp dcw @epattupnidaer@ 1019: 1114 rditp dcw @epattupnidaer@ 1015: 1115 punch dcw @hcnup@ 1020: 1115 punch dcw @hcnup@ 1016: 1116 print dcw @tnirp@ 1021: 1116 print dcw @tnirp@ 1017: 1117 wtotp dcw @epattuptuoetirw@ 1022: 1117 wtotp dcw @epattuptuoetirw@ 1018: 1118 rdtap dcw @epatdaer@ 1023: 1118 rdtap dcw @epatdaer@ 1019: 1119 wrtap dcw @epatetirw@ 1024: 1119 wrtap dcw @epatetirw@ 1020: 1120 eof dcw @elifdne@ 1025: 1120 eof dcw @elifdne@ 1021: 1121 rwd dcw @dniwer@ 1026: 1121 rwd dcw @dniwer@ 1022: 1122 bsp dcw @ecapskcab@ 1027: 1122 bsp dcw @ecapskcab@ 1023: 1123 dmsn dcw @noisnemid@ 1028: 1123 dmsn dcw @noisnemid@ 1024: 1124 equiv dcw @ecnelaviuqe@ 1029: 1124 equiv dcw @ecnelaviuqe@ 1025: 1125 ifsl dcw @thgilesnes%fi@ 1030: 1125 ifsl dcw @thgilesnes%fi@ 1026: 1126 senlt dcw @thgilesnes@ 1031: 1126 senlt dcw @thgilesnes@ 1027: 1127 data equ *&1 1032: 1127 data equ *&1 1028: 1128 dcw @0270005400081|@ 1033: 1128 dcw @0270005400081|@ 1029: 1129 ltorg* 1034: 1129 ltorg* 1030: 1130 sys1 dcw @}@ system group mark 1035: 1130 sys1 dcw @}@ system group mark 1031: 1131 xfr begin 1036: 1131 xfr begin 1032: 1132 job 1401 Fortran dimension phase one 50093 1037: 1132 job 1401 Fortran dimension phase one 50093 1033: 1133 fbegndimen 1,x1,,x2,r,x3,r,f 1038: 1133 fbegndimen 1,x1,,x2,r,x3,r,f 1034: 1134 org xbegin 1039: 1134 org xbegin 1035: 1135 compat dcw 0 1040: 1135 compat dcw 0 1036: 1136 initl sw gm 1041: 1136 initl sw gm 1037: 1137 mcw 83,x1 1042: 1137 mcw 83,x1 1038: 1138 a blank#1,parama&6 1043: 1138 a blank#1,parama&6 1039: 1139 mcw parama&6,hold#2 1044: 1139 mcw parama&6,hold#2 1040: 1140 a &2,hold 1045: 1140 a &2,hold 1041: 1141 c parama&4,hold 1046: 1141 c parama&4,hold 1042: 1142 bu *&5 1047: 1142 bu *&5 1043: 1143 cw compat 1048: 1143 cw compat 1044: 1144 lca gm,1&x1 1049: 1144 lca gm,1&x1 1045: 1145 lca parama&2,x2 1050: 1145 lca parama&2,x2 1046: 1146 mn 0000&x2 1051: 1146 mn 0000&x2 1047: 1147 mn 1052: 1147 mn 1048: 1148 mcw @ @ blank 1053: 1148 mcw @ @ blank 1049: 1149 sbr x2 1054: 1149 sbr x2 1050: 1150 start mcw blank,001 b op initialized 1055: 1150 start mcw blank,001 b op initialized 1051: 1151 mcw @<@,2&x1 12-6-8 1056: 1151 mcw @<@,2&x1 12-6-8 1052: 1152 nop 2&x1 1057: 1152 nop 2&x1 1053: 1153 sar start&6 1058: 1153 sar start&6 1054: 1154 lca 0&x1,work 1059: 1154 lca 0&x1,work 1055: 1155 sar x1 1060: 1155 sar x1 1056: 1156 sbr x3 1061: 1156 sbr x3 1057: 1157 bce cknod,work, blank 1062: 1157 bce cknod,work, blank 1058: 1158 bce dimen,work-3,i 1063: 1158 bce dimen,work-3,i 1059: 1159 bce byp,work-3,/ 1064: 1159 bce byp,work-3,/ 1060: 1160 b cknod 1065: 1160 b cknod 1061: 1161 dimen bce name,000&x1,% left paren 1066: 1161 dimen bce name,000&x1,% left paren 1062: 1162 fbceqsyner,0&x1,,,),} 12-7-8 1067: 1162 fbceqsyner,0&x1,,,),} 12-7-8 1063: 1163 sbr x1 1068: 1163 sbr x1 1064: 1164 b dimen 1069: 1164 b dimen 1065: 1165 name sw dimsw 1070: 1165 name sw dimsw 1066: 1166 mn 0&x1 1071: 1166 mn 0&x1 1067: 1167 sar x1 1072: 1167 sar x1 1068: 1168 sw 002&x1 1073: 1168 sw 002&x1 1069: 1169 mcw x2,hex2#3 1074: 1169 mcw x2,hex2#3 1070: 1170 * test to see if array was previously defined 1075: 1170 * test to see if array was previously defined 1071: 1171 bw ok,dsw#1 1076: 1171 bw ok,dsw#1 1072: 1172 uniq mcm 1&x2 1077: 1172 uniq mcm 1&x2 1073: 1173 sar x2 1078: 1173 sar x2 1074: 1174 bce ok,0&x2, blank 1079: 1174 bce ok,0&x2, blank 1075: 1175 get mcm 2&x2 1080: 1175 get mcm 2&x2 1076: 1176 mn 1081: 1176 mn 1077: 1177 mn 1082: 1177 mn 1078: 1178 sbr x2 1083: 1178 sbr x2 1079: 1179 bce get,1&x2,| 1084: 1179 bce get,1&x2,| 1080: 1180 comp c 0&x2,0&x3 rest v. new 1085: 1180 comp c 0&x2,0&x3 rest v. new 1081: 1181 sar x2 1086: 1181 sar x2 1082: 1182 bu uniq 1087: 1182 bu uniq 1083: 1183 * can get equal compare if a field longer than b field 1088: 1183 * can get equal compare if a field longer than b field 1084: 1184 bwz multy,1&x2,1 1089: 1184 bwz multy,1&x2,1 1085: 1185 b uniq 1090: 1185 b uniq 1086: 1186 ok mcw hex2,x2 1091: 1186 ok mcw hex2,x2 1087: 1187 lca gm,000&x2 1092: 1187 lca gm,000&x2 1088: 1188 lca 000&x3 1093: 1188 lca 000&x3 1089: 1189 lca pred 1094: 1189 lca pred 1090: 1190 sbr x2 1095: 1190 sbr x2 1091: 1191 mcw pred,x3 pred initially blank 1096: 1191 mcw pred,x3 pred initially blank 1092: 1192 bce *&5,x3, blank 1097: 1192 bce *&5,x3, blank 1093: 1193 b *&8 1098: 1193 b *&8 1094: 1194 a blank,x3 1099: 1194 a blank,x3 1095: 1195 lca @ @,000&x2 1100: 1195 lca @ @,000&x2 1096: 1196 lca @ @ 1101: 1196 lca @ @ 1097: 1197 sbr 006&x3 1102: 1197 sbr 006&x3 1098: 1198 sbr pred 1103: 1198 sbr pred 1099: 1199 lca @ @ 1104: 1199 lca @ @ 1100: 1200 sbr x2 1105: 1200 sbr x2 1101: 1201 reset fflip0&x1,mn,x1,x3,,,,,),} group mark 1106: 1201 reset fflip0&x1,mn,x1,x3,,,,,),} group mark 1102: 1202 bce syner,1&x1,} 12-7-8 1107: 1202 bce syner,1&x1,} 12-7-8 1103: 1203 lca 001&x3,000&x2 1108: 1203 lca 001&x3,000&x2 1104: 1204 sbr x2 1109: 1204 sbr x2 1105: 1205 bce reset,1&x1,, 1110: 1205 bce reset,1&x1,, 1106: 1206 mcw start&6,x3 1111: 1206 mcw start&6,x3 1107: 1207 bce *&5,0&x3,< 12-6-8 1112: 1207 bce *&5,0&x3,< 12-6-8 1108: 1208 b fail 1113: 1208 b fail 1109: 1209 cw dsw 1114: 1209 cw dsw 1110: 1210 ckgm bce next,0&x1,} 12-7-8 1115: 1210 ckgm bce next,0&x1,} 12-7-8 1111: 1211 b last char of dimen might be , 1116: 1211 b last char of dimen might be , 1112: 1212 bce *&5,0&x1,, 1117: 1212 bce *&5,0&x1,, 1113: 1213 b syner 1118: 1213 b syner 1114: 1214 mn 000&x1 1119: 1214 mn 000&x1 1115: 1215 sar x1 1120: 1215 sar x1 1116: 1216 sbr x3 1121: 1216 sbr x3 1117: 1217 b dimen 1122: 1217 b dimen 1118: 1218 next c 0&x1 1123: 1218 next c 0&x1 1119: 1219 sar x1 1124: 1219 sar x1 1120: 1220 b start 1125: 1220 b start 1121: 1221 multy cs 332 1126: 1221 multy cs 332 1122: 1222 cs 1127: 1222 cs 1123: 1223 sw failsw 1128: 1223 sw failsw 1124: 1224 mcw @error 2 - doubly defined array@,230 1129: 1224 mcw @error 2 - doubly defined array@,230 1125: 1225 mcw comp&6,x2 1130: 1225 mcw comp&6,x2 1126: 1226 fflip0&x3,232,x3,x2,incl,wm 1131: 1226 fflip0&x3,232,x3,x2,incl,wm 1127: 1227 w 1132: 1227 w 1128: 1228 forms 1133: 1228 forms 1129: 1229 lozsc bce ctul,0&x1,) 1134: 1229 lozsc bce ctul,0&x1,) 1130: 1230 sbr x1 1135: 1230 sbr x1 1131: 1231 bce syner,1&x1,} 12-7-8 1136: 1231 bce syner,1&x1,} 12-7-8 1132: 1232 b lozsc 1137: 1232 b lozsc 1133: 1233 ctul mn 0&x1 1138: 1233 ctul mn 0&x1 1134: 1234 sar x1 1139: 1234 sar x1 1135: 1235 mcw hex2,x2 1140: 1235 mcw hex2,x2 1136: 1236 b ckgm 1141: 1236 b ckgm 1137: 1237 syner ftmsg3,dimension syntax,work,17 1142: 1237 syner ftmsg3,dimension syntax,work,17 1138: 1238 mcw hex2,x2 1143: 1238 mcw hex2,x2 1139: 1239 bce start,1&x1,} 12-7-8 1144: 1239 bce start,1&x1,} 12-7-8 1140: 1240 byp c 0&x1 1145: 1240 byp c 0&x1 1141: 1241 sar x1 1146: 1241 sar x1 1142: 1242 b start 1147: 1242 b start 1143: 1243 cknod bw out,dimsw 1148: 1243 cknod bw out,dimsw 1144: 1244 lca gm,0&x2 1149: 1244 lca gm,0&x2 1145: 1245 lca @:@ 5-8 1150: 1245 lca @:@ 5-8 1146: 1246 lca blnk3#3 1151: 1246 lca blnk3#3 1147: 1247 lca blnk3 1152: 1247 lca blnk3 1148: 1248 lca blnk3 1153: 1248 lca blnk3 1149: 1249 lca blank5#5 1154: 1249 lca blank5#5 1150: 1250 lca @10@ 1155: 1250 lca @10@ 1151: 1251 sbr x2 1156: 1251 sbr x2 1152: 1252 out nop 002&x1 1157: 1252 out nop 002&x1 1153: 1253 mcm 1158: 1253 mcm 1154: 1254 mcw 1159: 1254 mcw 1155: 1255 sar x1 1160: 1255 sar x1 1156: 1256 mcw 006,086 1161: 1256 mcw 006,086 1157: 1257 fendxc,gm,,xbegin&1,initlg,xbegin&1,sys1,equiv one 1162: 1257 fendxc,gm,,xbegin&1,initlg,xbegin&1,sys1,equiv one 1158: 1258 fail fquit 1163: 1258 fail fquit 1159: 1259 dcw 0 1164: 1259 dcw 0 1160: 1260 work dcw #10 1165: 1260 work dcw #10 1161: 1261 gm dc @}@ 12-7-8 1166: 1261 gm dc @}@ 12-7-8 1162: 1262 pred dcw #3 1167: 1262 pred dcw #3 1163: 1263 mn dcw #1 1168: 1263 mn dcw #1 1164: 2164 dc #4 1169: 2164 dc #4 1165: 1265 dimsw dc #1 1170: 1265 dimsw dc #1 1166: 1266 ltorg* 1171: 1266 ltorg* 1167: 1267 sys1 dcw @}@ system group mark 1172: 1267 sys1 dcw @}@ system group mark 1168: 1268 xfr initl 1173: 1268 xfr initl 1169: 1269 job 1401 Fortran equivalence phase one 50103 1174: 1269 job 1401 Fortran equivalence phase one 50103 1170: 1270 fbegnequiv one,x1,,x2,,x3,r,g 1175: 1270 fbegnequiv one,x1,,x2,,x3,r,g 1171: 1271 org xbegin&1 1176: 1271 org xbegin&1 1172: 1272 first equ 086 1177: 1272 first equ 086 1173: 1273 gm dc @}@ 12-7-8 1178: 1273 gm dc @}@ 12-7-8 1174: 1274 work dc #10 1179: 1274 work dc #10 1175: 1275 dress dcw #3 1180: 1275 dress dcw #3 1176: 1276 champ dcw #5 1181: 1276 champ dcw #5 1177: 1277 dc #3 1182: 1277 dc #3 1178: 1278 tally dcw #5 1183: 1278 tally dcw #5 1179: 1279 dc #3 1184: 1279 dc #3 1180: 1280 accum dcw #5 1185: 1280 accum dcw #5 1181: 1281 hex3 dc #3 1186: 1281 hex3 dc #3 1182: 1282 dc #1 1187: 1282 dc #1 1183: 1283 space dcw #1 1188: 1283 space dcw #1 1184: 1284 dc #4 1189: 1284 dc #4 1185: 1285 syner ftmsg4,equivalence syntax,work,19 1190: 1285 syner ftmsg4,equivalence syntax,work,19 1186: 1286 c 0&x1 1191: 1286 c 0&x1 1187: 1287 sar x1 1192: 1287 sar x1 1188: 1288 b start 1193: 1288 b start 1189: 1289 loop fbceqname,0&x1,,,%,) 1194: 1289 loop fbceqname,0&x1,,,%,) 1190: 1290 bce syner,0&x1,} g-m 1195: 1290 bce syner,0&x1,} g-m 1191: 1291 sbr x1 1196: 1291 sbr x1 1192: 1292 b loop 1197: 1292 b loop 1193: 1293 name sw 001&x1 1198: 1293 name sw 001&x1 1194: 1294 mcw dress,x2 dress equals &table-2 1199: 1294 mcw dress,x2 dress equals &table-2 1195: 1295 find bce cksim,2&x2, blank 1200: 1295 find bce cksim,2&x2, blank 1196: 1296 get mcm 2&x2 1201: 1296 get mcm 2&x2 1197: 1297 mn 1202: 1297 mn 1198: 1298 mn 1203: 1298 mn 1199: 1299 sar x2 1204: 1299 sar x2 1200: 1300 bce get,1&x2,| 1205: 1300 bce get,1&x2,| 1201: 1301 comp c 000,000&x2 equiv v. table 1206: 1301 comp c 000,000&x2 equiv v. table 1202: 1302 sar x3 1207: 1302 sar x3 1203: 1303 bu find 1208: 1303 bu find 1204: 1304 a3 bwz isin,1&x3,1 1209: 1304 a3 bwz isin,1&x3,1 1205: 1305 b find 1210: 1305 b find 1206: 1306 initl mn 000&x2 1211: 1306 initl mn 000&x2 1207: 1307 sar dress 1212: 1307 sar dress 1208: 1308 sbr hex3 1213: 1308 sbr hex3 1209: 1309 sw gm 1214: 1309 sw gm 1210: 1310 bw *&8,compat 1215: 1310 bw *&8,compat 1211: 1311 mcw @B@,cmpsw 1216: 1311 mcw @B@,cmpsw 1212: 1312 mcw x1,save1 1217: 1312 mcw x1,save1 1213: 1313 mcw @<@,2&x1 12-6-8 1218: 1313 mcw @<@,2&x1 12-6-8 1214: 1314 sbr klobr&6,2&x1 1219: 1314 sbr klobr&6,2&x1 1215: 1315 get2 mcm 2&x2 1220: 1315 get2 mcm 2&x2 1216: 1316 mn 1221: 1316 mn 1217: 1317 mn 1222: 1317 mn 1218: 1318 sar x2 1223: 1318 sar x2 1219: 1319 bce get2,1&x2,| 1224: 1319 bce get2,1&x2,| 1220: 1320 c 0&x2 1225: 1320 c 0&x2 1221: 1321 chain3 1226: 1321 chain3 1222: 1322 sar pred#3 1227: 1322 sar pred#3 1223: 1323 start lca 000&x1,work 1228: 1323 start lca 000&x1,work 1224: 1324 sar x1 1229: 1324 sar x1 1225: 1325 a1 bce out1,work, blank 1230: 1325 a1 bce out1,work, blank 1226: 1326 bce ckprn,work-3,q 1231: 1326 bce ckprn,work-3,q 1227: 1327 a2 b out1 1232: 1327 a2 b out1 1228: 1328 ckprn bce isequ,0&x1,% 1233: 1328 ckprn bce isequ,0&x1,% 1229: 1329 b syner 1234: 1329 b syner 1230: 1330 isequ sw fxsw#1,fltsw#1 1235: 1330 isequ sw fxsw#1,fltsw#1 1231: 1331 equiv mn 000&x1 1236: 1331 equiv mn 000&x1 1232: 1332 sar x1 1237: 1332 sar x1 1233: 1333 sbr comp&3 1238: 1333 sbr comp&3 1234: 1334 cmpsw nop loop 1239: 1334 cmpsw nop loop 1235: 1335 svorg equ *&1 1240: 1335 svorg equ *&1 1236: 1336 mn 0&x1,tst1&7 1241: 1336 mn 0&x1,tst1&7 1237: 1337 mz 0&x1,tst1&7 1242: 1337 mz 0&x1,tst1&7 1238: 1338 tst1 bce fixed,@ijklmn@,x 1243: 1338 tst1 bce fixed,@ijklmn@,x 1239: 1339 chain5 1244: 1339 chain5 1240: 1340 cw fltsw 1245: 1340 cw fltsw 1241: 1341 b *&5 1246: 1341 b *&5 1242: 1342 fixed cw fxsw 1247: 1342 fixed cw fxsw 1243: 1343 bw loop,fltsw 1248: 1343 bw loop,fltsw 1244: 1344 bwz 1249: 1344 bwz 1245: 1345 ftmsg5,illegal equivalence mixing,work,27 1250: 1345 ftmsg5,illegal equivalence mixing,work,27 1246: 1346 sw fxsw,fltsw 1251: 1346 sw fxsw,fltsw 1247: 1347 b loop 1252: 1347 b loop 1248: 1348 cksim mcw x1,x3 1253: 1348 cksim mcw x1,x3 1249: 1349 bce err,0&x1,% 1254: 1349 bce err,0&x1,% 1250: 1350 mcw dress,x2 1255: 1350 mcw dress,x2 1251: 1351 lca gm,1&x2 1256: 1351 lca gm,1&x2 1252: 1352 sbr x2 1257: 1352 sbr x2 1253: 1353 mcw comp&3,x3 1258: 1353 mcw comp&3,x3 1254: 1354 lca 0&x3,0&x2 1259: 1354 lca 0&x3,0&x2 1255: 1355 sbr x2 1260: 1355 sbr x2 1256: 1356 mcw pred,x3 1261: 1356 mcw pred,x3 1257: 1357 lca pred,0&x2 1262: 1357 lca pred,0&x2 1258: 1358 lca blnk5-2 1263: 1358 lca blnk5-2 1259: 1359 lca blnk5-2 1264: 1359 lca blnk5-2 1260: 1360 sbr pred 1265: 1360 sbr pred 1261: 1361 sbr x2 1266: 1361 sbr x2 1262: 1362 lca blnk5#5,0&x2 1267: 1362 lca blnk5#5,0&x2 1263: 1363 lca @1@ 1268: 1363 lca @1@ 1264: 1364 sbr x2 1269: 1364 sbr x2 1265: 1365 mcw pred,6&x3 1270: 1365 mcw pred,6&x3 1266: 1366 bce newcd,086, 1271: 1366 bce newcd,086, 1267: 1367 oldcd mn 0&x2 1272: 1367 oldcd mn 0&x2 1268: 1368 sar dress 1273: 1368 sar dress 1269: 1369 klobr bce bstar,0,< 12-6-8 1274: 1369 klobr bce bstar,0,< 12-6-8 1270: 1370 fquit 1275: 1370 fquit 1271: 1371 newcd mcw pred,086 equiv with no dimen stmt 1276: 1371 newcd mcw pred,086 equiv with no dimen stmt 1272: 1372 b oldcd 1277: 1372 b oldcd 1273: 1373 bstar bce *&5,0&x1,) 1278: 1373 bstar bce *&5,0&x1,) 1274: 1374 b eqbx1 1279: 1374 b eqbx1 1275: 1375 sw fxsw,fltsw 1280: 1375 sw fxsw,fltsw 1276: 1376 eqbx1 mn 0&x1 1281: 1376 eqbx1 mn 0&x1 1277: 1377 sbr x1 1282: 1377 sbr x1 1278: 1378 sbr comp&3 1283: 1378 sbr comp&3 1279: 1379 bce ctu4,0&x1,, 1284: 1379 bce ctu4,0&x1,, 1280: 1380 bce bstar,0&x1,} group mark 1285: 1380 bce bstar,0&x1,} group mark 1281: 1381 bce start,1&x1,} 12-7-8 1286: 1381 bce start,1&x1,} 12-7-8 1282: 1382 b cmpsw 1287: 1382 b cmpsw 1283: 1383 err cs 299 1288: 1383 err cs 299 1284: 1384 mcw x3,x1 1289: 1384 mcw x3,x1 1285: 1385 mcw x2,hex2#3 1290: 1385 mcw x2,hex2#3 1286: 1386 fflip0&x1,248,x1,x2,,,% 1291: 1386 fflip0&x1,248,x1,x2,,,% 1287: 1387 mcw hex2,x2 1292: 1387 mcw hex2,x2 1288: 1388 sw failsw 1293: 1388 sw failsw 1289: 1389 mn work,240 1294: 1389 mn work,240 1290: 1390 chain2 1295: 1390 chain2 1291: 1391 mcw @error 6 - undefined array, statement @ 1296: 1391 mcw @error 6 - undefined array, statement @ 1292: 1392 forms 1297: 1392 forms 1293: 1393 w 1298: 1393 w 1294: 1394 scan2 mn 0&x1 1299: 1394 scan2 mn 0&x1 1295: 1395 sar x1 1300: 1395 sar x1 1296: 1396 bce ctu4,0&x1,) 1301: 1396 bce ctu4,0&x1,) 1297: 1397 fbceqsyner,0&x1,%,} close paren, gm 1302: 1397 fbceqsyner,0&x1,%,} close paren, gm 1298: 1398 bce scan2,0&x1,, 1303: 1398 bce scan2,0&x1,, 1299: 1399 bwz scan2,0&x1,2 1304: 1399 bwz scan2,0&x1,2 1300: 1400 b syner 1305: 1400 b syner 1301: 1401 ctu4 mn 0&x1 1306: 1401 ctu4 mn 0&x1 1302: 1402 sar x1 1307: 1402 sar x1 1303: 1403 b bstar 1308: 1403 b bstar 1304: 1404 isin bce scan2,0&x1,% 1309: 1404 isin bce scan2,0&x1,% 1305: 1405 b bstar 1310: 1405 b bstar 1306: 1406 out1 sbr a1&3,out 1311: 1406 out1 sbr a1&3,out 1307: 1407 sbr a2&3,out 1312: 1407 sbr a2&3,out 1308: 1408 sbr find&3,notin 1313: 1408 sbr find&3,notin 1309: 1409 sbr a3&3,found 1314: 1409 sbr a3&3,found 1310: 1410 mcw dress,hex3 1315: 1410 mcw dress,hex3 1311: 1411 mcw save1#3,x1 1316: 1411 mcw save1#3,x1 1312: 1412 mcw @b@,cmpsw 1317: 1412 mcw @b@,cmpsw 1313: 1413 mcw @n@,isequ 1318: 1413 mcw @n@,isequ 1314: 1414 fendxc,,,svorg,start,svorg,sys1,equiv two 1319: 1414 fendxc,,,svorg,start,svorg,sys1,equiv two 1315: 1415 ltorg* 1320: 1415 ltorg* 1316: 1416 sys1 dcw @}@ system group mark 1321: 1416 sys1 dcw @}@ system group mark 1317: 1417 xfr initl 1322: 1417 xfr initl 1318: 1418 job 1401 Fortran equivalence phase 2 50113 1323: 1418 job 1401 Fortran equivalence phase 2 50113 1319: 1419 110 dcw @equiv two@ 1324: 1419 110 dcw @equiv two@ 1320: 1420 org svorg 1325: 1420 org svorg 1321: 1421 found lca @00000@,tally 1326: 1421 found lca @00000@,tally 1322: 1422 nop 000&x2 1327: 1422 nop 000&x2 1323: 1423 mcw 1328: 1423 mcw 1324: 1424 mcw 1329: 1424 mcw 1325: 1425 mcw 1330: 1425 mcw 1326: 1426 mcw 1331: 1426 mcw 1327: 1427 sar x2 1332: 1427 sar x2 1328: 1428 bav *&1 1333: 1428 bav *&1 1329: 1429 s erctr#3 1334: 1429 s erctr#3 1330: 1430 nest bce nomo,001&x2, blank 1335: 1430 nest bce nomo,001&x2, blank 1331: 1431 a 000&x2,tally 1336: 1431 a 000&x2,tally 1332: 1432 mcw 003&x2,x2 1337: 1432 mcw 003&x2,x2 1333: 1433 a &1,erctr 1338: 1433 a &1,erctr 1334: 1434 bav msg 1339: 1434 bav msg 1335: 1435 b nest 1340: 1435 b nest 1336: 1436 nomo mcw x2,tally&3 1341: 1436 nomo mcw x2,tally&3 1337: 1437 bce turn,000&x1,% 1342: 1437 bce turn,000&x1,% 1338: 1438 a @1@,tally 1343: 1438 a @1@,tally 1339: 1439 fight mcw hex3,x3 1344: 1439 fight mcw hex3,x3 1340: 1440 lca champ,accum 1345: 1440 lca champ,accum 1341: 1441 s tally,accum 1346: 1441 s tally,accum 1342: 1442 bwz chump,accum,k 1347: 1442 bwz chump,accum,k 1343: 1443 lca tally&3,000&x3 1348: 1443 lca tally&3,000&x3 1344: 1444 sbr hex3 1349: 1444 sbr hex3 1345: 1445 anymo bce equiv,000&x1,, comma 1350: 1445 anymo bce equiv,000&x1,, comma 1346: 1446 bce bpdwn,0&x1,) 1351: 1446 bce bpdwn,0&x1,) 1347: 1447 b syner 1352: 1447 b syner 1348: 1448 bpdwn mn 0&x1 1353: 1448 bpdwn mn 0&x1 1349: 1449 mn 1354: 1449 mn 1350: 1450 sar hex1#3 1355: 1450 sar hex1#3 1351: 1451 mcw hex3,x3 1356: 1451 mcw hex3,x3 1352: 1452 lca @$@,000&x3 1357: 1452 lca @$@,000&x3 1353: 1453 mcw dress,x3 1358: 1453 mcw dress,x3 1354: 1454 main bce done,000&x3,$ 1359: 1454 main bce done,000&x3,$ 1355: 1455 mcw 0&x3,hold3#3 1360: 1455 mcw 0&x3,hold3#3 1356: 1456 c champ&3,hold3 1361: 1456 c champ&3,hold3 1357: 1457 be oops1 1362: 1457 be oops1 1358: 1458 gt1 mcw 0&x3,x2 1363: 1458 gt1 mcw 0&x3,x2 1359: 1459 sar hex3 1364: 1459 sar hex3 1360: 1460 bce *&5,0&x2, blank 1365: 1460 bce *&5,0&x2, blank 1361: 1461 b oops2 1366: 1461 b oops2 1362: 1462 pull1 mcw 9&x2,x1 1367: 1462 pull1 mcw 9&x2,x1 1363: 1463 lower mcw 006&x2,x3 after tail of new follower 1368: 1463 lower mcw 006&x2,x3 after tail of new follower 1364: 1464 bce last,x3, blank 1369: 1464 bce last,x3, blank 1365: 1465 bce last,001&x3, blank 1370: 1465 bce last,001&x3, blank 1366: 1466 sbr x2 tail of new follower 1371: 1466 sbr x2 tail of new follower 1367: 1467 b lower 1372: 1467 b lower 1368: 1468 last bce *&8,x3, blank 1373: 1468 last bce *&8,x3, blank 1369: 1469 mcw x1,9&x3 1374: 1469 mcw x1,9&x3 1370: 1470 bce inish,x1, blank 1375: 1470 bce inish,x1, blank 1371: 1471 mcw x3,6&x1 1376: 1471 mcw x3,6&x1 1372: 1472 link mcw champ&3,x1 head of leader 1377: 1472 link mcw champ&3,x1 head of leader 1373: 1473 mcw 006&x1,006&x2 1378: 1473 mcw 006&x1,006&x2 1374: 1474 mcw 6&x1,x3 1379: 1474 mcw 6&x1,x3 1375: 1475 mcw x2,9&x3 1380: 1475 mcw x2,9&x3 1376: 1476 mcw hex3,x3 1381: 1476 mcw hex3,x3 1377: 1477 mcw 003&x3,x2 head of new follower 1382: 1477 mcw 003&x3,x2 head of new follower 1378: 1478 mcw x2,006&x1 1383: 1478 mcw x2,006&x1 1379: 1479 mcw x1,9&x2 1384: 1479 mcw x1,9&x2 1380: 1480 mcw champ&3,003&x2 1385: 1480 mcw champ&3,003&x2 1381: 1481 mcw 1386: 1481 mcw 1382: 1482 s 000&x3,000&x2 1387: 1482 s 000&x3,000&x2 1383: 1483 sar x3 1388: 1483 sar x3 1384: 1484 bw main,errsw 1389: 1484 bw main,errsw 1385: 1485 sw errsw 1390: 1485 sw errsw 1386: 1486 c 0&x2, save5 1391: 1486 c 0&x2, save5 1387: 1487 be isred 1392: 1487 be isred 1388: 1488 b qverr 1393: 1488 b qverr 1389: 1489 b main 1394: 1489 b main 1390: 1490 isred b rdmsg 1395: 1490 isred b rdmsg 1391: 1491 b main 1396: 1491 b main 1392: 1492 turn fflip0&x1,space-1,x1,x3,,,) 1397: 1492 turn fflip0&x1,space-1,x1,x3,,,) 1393: 1493 a 001&x3,tally 1398: 1493 a 001&x3,tally 1394: 1494 b fight 1399: 1494 b fight 1395: 1495 chump bce cinch,champ, blank 1400: 1495 chump bce cinch,champ, blank 1396: 1496 lca champ&3,000&x3 1401: 1496 lca champ&3,000&x3 1397: 1497 sbr hex3 1402: 1497 sbr hex3 1398: 1498 cinch mcw tally&3,champ&3 1403: 1498 cinch mcw tally&3,champ&3 1399: 1499 b anymo 1404: 1499 b anymo 1400: 1500 done mcw hex1,x1 1405: 1500 done mcw hex1,x1 1401: 1501 lca @ @,champ 1406: 1501 lca @ @,champ 1402: 1502 mcw dress,hex3 1407: 1502 mcw dress,hex3 1403: 1503 bce isequ,1&x1,, 1408: 1503 bce isequ,1&x1,, 1404: 1504 bce start,1&x1,} g-m 1409: 1504 bce start,1&x1,} g-m 1405: 1505 b syner 1410: 1505 b syner 1406: 1506 inish mcw x3,first 1411: 1506 inish mcw x3,first 1407: 1507 b link 1412: 1507 b link 1408: 1508 out mcw dress,x3 1413: 1508 out mcw dress,x3 1409: 1509 mcw gm, 001&x3 1414: 1509 mcw gm, 001&x3 1410: 1510 mcm 5&x1 1415: 1510 mcm 5&x1 1411: 1511 mn 1416: 1511 mn 1412: 1512 mn 1417: 1512 mn 1413: 1513 sar x1 1418: 1513 sar x1 1414: 1514 fendxc,gm,,xbegin,xbegin,xbegin,sys2,dimen two 1419: 1514 fendxc,gm,,xbegin,xbegin,xbegin,sys2,dimen two 1415: 1515 notin bce ctu3,0&x1,) 1420: 1515 notin bce ctu3,0&x1,) 1416: 1516 sbr x1 1421: 1516 sbr x1 1417: 1517 b notin 1422: 1517 b notin 1418: 1518 ctu3 mn 0&x1 1423: 1518 ctu3 mn 0&x1 1419: 1519 sar x1 1424: 1519 sar x1 1420: 1520 b equiv 1425: 1520 b equiv 1421: 1521 oops1 mcw 0&x3, x2 1426: 1521 oops1 mcw 0&x3, x2 1422: 1522 sar x2 1427: 1522 sar x2 1423: 1523 c 0&x2, champ 1428: 1523 c 0&x2, champ 1424: 1524 be redun 1429: 1524 be redun 1425: 1525 b qverr 1430: 1525 b qverr 1426: 1526 b gt1 1431: 1526 b gt1 1427: 1527 redun b rdmsg 1432: 1527 redun b rdmsg 1428: 1528 b gt1 1433: 1528 b gt1 1429: 1529 qverr sbr qvxt&3 1434: 1529 qverr sbr qvxt&3 1430: 1530 ftmsg7,illegal equivalence,work,20 1435: 1530 ftmsg7,illegal equivalence,work,20 1431: 1531 qvxt b 0 1436: 1531 qvxt b 0 1432: 1532 rdmsg sbr rdxt&3 1437: 1532 rdmsg sbr rdxt&3 1433: 1533 ftmsg8,redundant equivalence,work,22 1438: 1533 ftmsg8,redundant equivalence,work,22 1434: 1534 rdxt b 0 1439: 1534 rdxt b 0 1435: 1535 msg messg@correct errors indicated and restart@,70,l,1 1440: 1535 msg messg@correct errors indicated and restart@,70,l,1 1436: 1536 h *-3 1441: 1536 h *-3 1437: 1537 oops2 mcw 0&x2, save5#5 1442: 1537 oops2 mcw 0&x2, save5#5 1438: 1538 cw errsw#1 1443: 1538 cw errsw#1 1439: 1539 b pull1 1444: 1539 b pull1 1440: 1540 ltorg* 1445: 1540 ltorg* 1441: 1541 sys2 dcw @}@ system group mark 1446: 1541 sys2 dcw @}@ system group mark 1442: 1542 xfr start 1447: 1542 xfr start 1443: 1543 job 1401 Fortran dimension phase two 50123 1448: 1543 job 1401 Fortran dimension phase two 50123 1444: 1544 fbegndimen two,x1,,x2,r,x3,,h 1449: 1544 fbegndimen two,x1,,x2,r,x3,,h 1445: 1545 param equ parama 1450: 1545 param equ parama 1446: 1546 org xbegin 1451: 1546 org xbegin 1447: 1547 tstio bce initl,param&10, blank 1452: 1547 tstio bce initl,param&10, blank 1448: 1548 sbr x2,aform 1453: 1548 sbr x2,aform 1449: 1549 bce move,param&10,a 1454: 1549 bce move,param&10,a 1450: 1550 sbr x2,limio 1455: 1550 sbr x2,limio 1451: 1551 bce move,param&10,l 1456: 1551 bce move,param&10,l 1452: 1552 sbr x2,noio 1457: 1552 sbr x2,noio 1453: 1553 bce move,param&10,x 1458: 1553 bce move,param&10,x 1454: 1554 initl mcw x3,083 address of table-1 1459: 1554 initl mcw x3,083 address of table-1 1455: 1555 a &2,param&6 1460: 1555 a &2,param&6 1456: 1556 sw gm 1461: 1556 sw gm 1457: 1557 lca gm,001&x3 1462: 1557 lca gm,001&x3 1458: 1558 bce nix,086, blank, no dimension 1463: 1558 bce nix,086, blank, no dimension 1459: 1559 mcw 086,x3 address of lowest array 1464: 1559 mcw 086,x3 address of lowest array 1460: 1560 start s accum#6 1465: 1560 start s accum#6 1461: 1561 mcw 006&x3,link#3 1466: 1561 mcw 006&x3,link#3 1462: 1562 bce leadr,001&x3, blank 1467: 1562 bce leadr,001&x3, blank 1463: 1563 mcw 003&x3,x2 address of leader in x2 1468: 1563 mcw 003&x3,x2 address of leader in x2 1464: 1564 za 000&x3,prod 1469: 1564 za 000&x3,prod 1465: 1565 m 005&x2,prod&3 1470: 1565 m 005&x2,prod&3 1466: 1566 a 000&x2,prod&3 1471: 1566 a 000&x2,prod&3 1467: 1567 mcw prod&3,000&x3 1472: 1567 mcw prod&3,000&x3 1468: 1568 pack mcw 000&x3,accum 1473: 1568 pack mcw 000&x3,accum 1469: 1569 sar x3 1474: 1569 sar x3 1470: 1570 s &1,accum 1475: 1570 s &1,accum 1471: 1571 mcw x3,x2 1476: 1571 mcw x3,x2 1472: 1572 loop3 mcm 2&x2 1477: 1572 loop3 mcm 2&x2 1473: 1573 mn 1478: 1573 mn 1474: 1574 mn 1479: 1574 mn 1475: 1575 sar x2 1480: 1575 sar x2 1476: 1576 bce loop3,1&x2,| 1481: 1576 bce loop3,1&x2,| 1477: 1577 mcw 0&x2,box#1 1482: 1577 mcw 0&x2,box#1 1478: 1578 mcw box,*&8 1483: 1578 mcw box,*&8 1479: 1579 bce fix1,@ijklmn@,0 1484: 1579 bce fix1,@ijklmn@,0 1480: 1580 chain5 1485: 1580 chain5 1481: 1581 a parama&6,accum 1486: 1581 a parama&6,accum 1482: 1582 ctu3 mcw accum,14&x3 1487: 1582 ctu3 mcw accum,14&x3 1483: 1583 mcw accum-3,x2 1488: 1583 mcw accum-3,x2 1484: 1584 a x2 1489: 1584 a x2 1485: 1585 mz zones&x2,012&x3 1490: 1585 mz zones&x2,012&x3 1486: 1586 mz zones&1&x2,014&x3 1491: 1586 mz zones&1&x2,014&x3 1487: 1587 za @0@,prod 1492: 1587 za @0@,prod 1488: 1588 mcw 000&x3,prod 1493: 1588 mcw 000&x3,prod 1489: 1589 mcw blank 1494: 1589 mcw blank 1490: 1590 sbr mplr&6 1495: 1590 sbr mplr&6 1491: 1591 nop 000&x3 1496: 1591 nop 000&x3 1492: 1592 mcw 1497: 1592 mcw 1493: 1593 sar x2 1498: 1593 sar x2 1494: 1594 bce nocol,000&x2,} 12-7-8, initl sets in dress&1 1499: 1594 bce nocol,000&x2,} 12-7-8, initl sets in dress&1 1495: 1595 mplr mcw 000&x2,000 1500: 1595 mplr mcw 000&x2,000 1496: 1596 m 000&x3,prod 1501: 1596 m 000&x3,prod 1497: 1597 nocol lca @ @,008&x3 1502: 1597 nocol lca @ @,008&x3 1498: 1598 mcw x1,hold1#3 1503: 1598 mcw x1,hold1#3 1499: 1599 mcw 14&x3,x1 1504: 1599 mcw 14&x3,x1 1500: 1600 mcw box,*&8 1505: 1600 mcw box,*&8 1501: 1601 bce fixed,@ijklmn@,0 1506: 1601 bce fixed,@ijklmn@,0 1502: 1602 chain5 1507: 1602 chain5 1503: 1603 m param&6,prod&3 1508: 1603 m param&6,prod&3 1504: 1604 mz @a@,007&x3 1509: 1604 mz @a@,007&x3 1505: 1605 mcw param&6,010&x3 1510: 1605 mcw param&6,010&x3 1506: 1606 bump mz 7&x3,13&x3 1511: 1606 bump mz 7&x3,13&x3 1507: 1607 mcw hold1,x1 1512: 1607 mcw hold1,x1 1508: 1608 s 10&x3,accum 1513: 1608 s 10&x3,accum 1509: 1609 a prod&3,accum 1514: 1609 a prod&3,accum 1510: 1610 fpackaccum,8&x3,x2 1515: 1610 fpackaccum,8&x3,x2 1511: 1611 a &1,accum 1516: 1611 a &1,accum 1512: 1612 s accum,count 1517: 1612 s accum,count 1513: 1613 bwz alter,count,k 1518: 1613 bwz alter,count,k 1514: 1614 a accum,count 1519: 1614 a accum,count 1515: 1615 test bce out,link, blank 1520: 1615 test bce out,link, blank 1516: 1616 mcw link,x3 1521: 1616 mcw link,x3 1517: 1617 b start 1522: 1617 b start 1518: 1618 fix1 a parama&4,accum 1523: 1618 fix1 a parama&4,accum 1519: 1619 b ctu3 1524: 1619 b ctu3 1520: 1620 leadr mcw count,000&x3 1525: 1620 leadr mcw count,000&x3 1521: 1621 b pack 1526: 1621 b pack 1522: 1622 alter mcw accum,count 1527: 1622 alter mcw accum,count 1523: 1623 b test 1528: 1623 b test 1524: 1624 fixed m param&4,prod&3 1529: 1624 fixed m param&4,prod&3 1525: 1625 mz @j@,007&x3 1530: 1625 mz @j@,007&x3 1526: 1626 mcw param&4,010&x3 1531: 1626 mcw param&4,010&x3 1527: 1627 b bump 1532: 1627 b bump 1528: 1628 out unpakparam&2,reloc 1533: 1628 out unpakparam&2,reloc 1529: 1629 s count,reloc 1534: 1629 s count,reloc 1530: 1630 s &1,reloc 1535: 1630 s &1,reloc 1531: 1631 bwz tubig,reloc,k 1536: 1631 bwz tubig,reloc,k 1532: 1632 fpackreloc,adjst,x2 1537: 1632 fpackreloc,adjst,x2 1533: 1633 mcw nxtop,conlst 1538: 1633 mcw nxtop,conlst 1534: 1634 ma adjst,conlst 1539: 1634 ma adjst,conlst 1535: 1635 b skipf 1540: 1635 b skipf 1536: 1636 tubig bw skipf,lgsw 1541: 1636 tubig bw skipf,lgsw 1537: 1637 cs 332 1542: 1637 cs 332 1538: 1638 cs 1543: 1638 cs 1539: 1639 mlc @message 2 - object program too large@,270 1544: 1639 mlc @message 2 - object program too large@,270 1540: 1640 w 1545: 1640 w 1541: 1641 sw failsw,lgsw 1546: 1641 sw failsw,lgsw 1542: 1642 s reloc 1547: 1642 s reloc 1543: 1643 nix mcw param&2,conlst 1548: 1643 nix mcw param&2,conlst 1544: 1644 skipf mcw nxtop,086 1549: 1644 skipf mcw nxtop,086 1545: 1645 *dump array table 1550: 1645 *dump array table 1546: 1646 cc l 1551: 1646 cc l 1547: 1647 forms 1552: 1647 forms 1548: 1648 cs 332 1553: 1648 cs 332 1549: 1649 cs 1554: 1649 cs 1550: 1650 mcw @storage assignment-arrays & equated variables@,247 1555: 1650 mcw @storage assignment-arrays & equated variables@,247 1551: 1651 w 1556: 1651 w 1552: 1652 cc j 1557: 1652 cc j 1553: 1653 mcw 083,x3 1558: 1653 mcw 083,x3 1554: 1654 loopa nop 10&x3 1559: 1654 loopa nop 10&x3 1555: 1655 mcm 1560: 1655 mcm 1556: 1656 sar x3 1561: 1656 sar x3 1557: 1657 cs 299 1562: 1657 cs 299 1558: 1658 tsdun bce nodun,0&x3,| 1563: 1658 tsdun bce nodun,0&x3,| 1559: 1659 bce 1564: 1659 bce 1560: 1660 mn 0&x3 1565: 1660 mn 0&x3 1561: 1661 mn 1566: 1661 mn 1562: 1662 sar x3 1567: 1662 sar x3 1563: 1663 bce noray,0&x3,: 5-8 1568: 1663 bce noray,0&x3,: 5-8 1564: 1664 fflip0&x3,201,x3,x2,inc,wm 1569: 1664 fflip0&x3,201,x3,x2,inc,wm 1565: 1665 c 0&x3 1570: 1665 c 0&x3 1566: 1666 chain3 1571: 1666 chain3 1567: 1667 sar x2 1572: 1667 sar x2 1568: 1668 a reloc,5&x2 1573: 1668 a reloc,5&x2 1569: 1669 ma adjst,8&x2 1574: 1669 ma adjst,8&x2 1570: 1670 ma adjst,14&x2 1575: 1670 ma adjst,14&x2 1571: 1671 mcs 5&x2,218 1576: 1671 mcs 5&x2,218 1572: 1672 mcw 8&x2,234 1577: 1672 mcw 8&x2,234 1573: 1673 mz blank,233 1578: 1673 mz blank,233 1574: 1674 sw 220 1579: 1674 sw 220 1575: 1675 unpak8&x2,224 1580: 1675 unpak8&x2,224 1576: 1676 mcw @-@,219 1581: 1676 mcw @-@,219 1577: 1677 fpack5&x2,230,x2 1582: 1677 fpack5&x2,230,x2 1578: 1678 forms 1583: 1678 forms 1579: 1679 w 1584: 1679 w 1580: 1680 cs 299 1585: 1680 cs 299 1581: 1681 mcm 1&x3 1586: 1681 mcm 1&x3 1582: 1682 sar x3 1587: 1682 sar x3 1583: 1683 bce eoj,0&x3, blank 1588: 1683 bce eoj,0&x3, blank 1584: 1684 b loopa 1589: 1684 b loopa 1585: 1685 nodun mcm 0&x3 1590: 1685 nodun mcm 0&x3 1586: 1686 sbr x3 1591: 1686 sbr x3 1587: 1687 b tsdun 1592: 1687 b tsdun 1588: 1688 noray messg@no arrays@,9 1593: 1688 noray messg@no arrays@,9 1589: 1689 eoj cc l 1594: 1689 eoj cc l 1590: 1690 fendxe,gm,,,,,sys2,varbl1 1595: 1690 fendxe,gm,,,,,sys2,varbl1 1591: 1691 move mcw 0&x2,nxtop 1596: 1691 move mcw 0&x2,nxtop 1592: 1692 mcw 1597: 1692 mcw 1593: 1693 b initl 1598: 1693 b initl 1594: 1694 count dcw 04280 change 1599: 1694 count dcw 04280 change 1595: 1695 nxtop dsa 4279 on 1600: 1695 nxtop dsa 4279 on 1596: 1696 dcw 04617 reassembly 1601: 1696 dcw 04617 reassembly 1597: 1697 aform dsa 4616 of 1602: 1697 aform dsa 4616 of 1598: 1698 dcw 02016 object 1603: 1698 dcw 02016 object 1599: 1699 limio dsa 2015 time 1604: 1699 limio dsa 2015 time 1600: 1700 dcw 01697 format 1605: 1700 dcw 01697 format 1601: 1701 noio dsa 1696 packages 1606: 1701 noio dsa 1696 packages 1602: 1702 reloc dcw 00000 1607: 1702 reloc dcw 00000 1603: 1703 adjst dsa 000 1608: 1703 adjst dsa 000 1604: 1704 gm dc @}@ g-m 1609: 1704 gm dc @}@ g-m 1605: 1705 prod dcw #6 1610: 1705 prod dcw #6 1606: 1706 dc #3 1611: 1706 dc #3 1607: 1707 lgsw dc #1 1612: 1707 lgsw dc #1 1608: 1708 blank dcw #01 1613: 1708 blank dcw #01 1609: 1709 org * 1614: 1709 org * 1610: ltorg* WVS: Autocoder shouldn't load incld at org 1615: ltorg* WVS: Autocoder shouldn't load incld at org 1611: 1710 sys2 dcw @}@ system and work group mark 1616: 1710 sys2 dcw @}@ system and work group mark 1612: 1711 xfr tstio 1617: 1711 xfr tstio 1613: 1712 job 1401 Fortran variables phase one 50133 1618: 1712 job 1401 Fortran variables phase one 50133 1614: 1713 fbegnvarbl 1,x1,,x2,r,x3,r,i 1619: 1713 fbegnvarbl 1,x1,,x2,r,x3,r,i 1615: 1714 org xbegin 1620: 1714 org xbegin 1616: 1715 * replace array names in source program with addresses, 1621: 1715 * replace array names in source program with addresses, 1617: 1716 * process subscripts 1622: 1716 * process subscripts 1618: 1717 * mark simple variables with a delta for varbl, phase 2 1623: 1717 * mark simple variables with a delta for varbl, phase 2 1619: 1718 initl mcw 083,x2 1624: 1718 initl mcw 083,x2 1620: 1719 mcw x2,dress#3 1625: 1719 mcw x2,dress#3 1621: 1720 sw gm 1626: 1720 sw gm 1622: 1721 start bce out,000&x1, blank 1627: 1721 start bce out,000&x1, blank 1623: 1722 lca 000&x1,work#10 1628: 1722 lca 000&x1,work#10 1624: 1723 sar x1 1629: 1723 sar x1 1625: 1724 sbr x3 1630: 1724 sbr x3 1626: 1725 lca work,000&x2 1631: 1725 lca work,000&x2 1627: 1726 sbr x2 1632: 1726 sbr x2 1628: 1727 bce fmat,code-3,f 1633: 1727 bce fmat,code-3,f 1629: 1728 sw work-3 1634: 1728 sw work-3 1630: 1729 mcw code-3,*&8 1635: 1729 mcw code-3,*&8 1631: 1730 bce list,@3l5up61@,0 d-char modified 1636: 1730 bce list,@3l5up61@,0 d-char modified 1632: 1731 chain6 1637: 1731 chain6 1633: 1732 mcw @n@,swcha 1638: 1732 mcw @n@,swcha 1634: 1733 mcw @n@,swchb 1639: 1733 mcw @n@,swchb 1635: 1734 * search for alpha character which might be variable name 1640: 1734 * search for alpha character which might be variable name 1636: 1735 find mcw 000&x1,box#1 1641: 1735 find mcw 000&x1,box#1 1637: 1736 sar x1 1642: 1736 sar x1 1638: 1737 bwz find,box,2 no zone, numerics and equals 1643: 1737 bwz find,box,2 no zone, numerics and equals 1639: 1738 swcha nop rtpar 1644: 1738 swcha nop rtpar 1640: 1739 mdify mcw box,*&8 1645: 1739 mdify mcw box,*&8 1641: 1740 bce find,@@*-&.%),@,0 d char modified 1646: 1740 bce find,@@*-&.%),@,0 d char modified 1642: 1741 chain7 1647: 1741 chain7 1643: 1742 bce ckxpn,box,e may be exponent 1648: 1742 bce ckxpn,box,e may be exponent 1644: 1743 bce sw1,box,} group mark 1649: 1743 bce sw1,box,} group mark 1645: 1744 mcw 2&x1,box2#1 1650: 1744 mcw 2&x1,box2#1 1646: 1745 mcw box2,*&8 1651: 1745 mcw box2,*&8 1647: 1746 bce sw1,mrkrs,0 @*&-,#%) and gm 1652: 1746 bce sw1,mrkrs,0 @*&-,#%) and gm 1648: 1747 chain8 1653: 1747 chain8 1649: 1748 bce sw1,code-3,d do stmt 1654: 1748 bce sw1,code-3,d do stmt 1650: 1749 vserr fmesg9,variable syntax,code,16 1655: 1749 vserr fmesg9,variable syntax,code,16 1651: 1750 bw syn2r,syn2s 1656: 1750 bw syn2r,syn2s 1652: 1751 sbr x1,1&x1 1657: 1751 sbr x1,1&x1 1653: 1752 sw errsw 1658: 1752 sw errsw 1654: 1753 b limit 1659: 1753 b limit 1655: 1754 rtna lca @0?0@,0&x2 0,12-0,0 1660: 1754 rtna lca @0?0@,0&x2 0,12-0,0 1656: 1755 sbr x2 1661: 1755 sbr x2 1657: 1756 sbr x3,1&x1 1662: 1756 sbr x3,1&x1 1658: 1757 sbr x1 1663: 1757 sbr x1 1659: 1758 b botm 1664: 1758 b botm 1660: 1759 sw1 sw 1&x1 1665: 1759 sw1 sw 1&x1 1661: 1760 *shift all but variable 1666: 1760 *shift all but variable 1662: 1761 lca 00&x3,000&x2 slide one extra char 1667: 1761 lca 00&x3,000&x2 slide one extra char 1663: 1762 sbr x2 necess. if 1st char is alpha 1668: 1762 sbr x2 necess. if 1st char is alpha 1664: 1763 cw 001&x1 1669: 1763 cw 001&x1 1665: 1764 sbr x3,1&x1 1670: 1764 sbr x3,1&x1 1666: 1765 sbr klobr&6,2&x1 1671: 1765 sbr klobr&6,2&x1 1667: 1766 mcw @;@ 11-6-8 1672: 1766 mcw @;@ 11-6-8 1668: 1767 bce nomo,box,} group mark 1673: 1767 bce nomo,box,} group mark 1669: 1768 za &1,count#2 1674: 1768 za &1,count#2 1670: 1769 * scan to bottom of variable 1675: 1769 * scan to bottom of variable 1671: 1770 limit mcw 000&x1,box 1676: 1770 limit mcw 000&x1,box 1672: 1771 sar x1 1677: 1771 sar x1 1673: 1772 mcw box,*&8 1678: 1772 mcw box,*&8 1674: 1773 bce look,mrkrs,0 @*&-,#%) and gm 1679: 1773 bce look,mrkrs,0 @*&-,#%) and gm 1675: 1774 chain8 1680: 1774 chain8 1676: 1775 a &1,count 1681: 1775 a &1,count 1677: 1776 b limit 1682: 1776 b limit 1678: 1777 look bw rtnb,ervbl 1683: 1777 look bw rtnb,ervbl 1679: 1778 bw rtna,errsw 1684: 1778 bw rtna,errsw 1680: 1779 sw 002&x1 1685: 1779 sw 002&x1 1681: 1780 sar hex1#3 1686: 1780 sar hex1#3 1682: 1781 tlu mcw dress,x1 address of array table 1687: 1781 tlu mcw dress,x1 address of array table 1683: 1782 bce equal,box,# equal 1688: 1782 bce equal,box,# equal 1684: 1783 *determine if variable is an array name 1689: 1783 *determine if variable is an array name 1685: 1784 loop bce notin,002&x1, blank 1690: 1784 loop bce notin,002&x1, blank 1686: 1785 mcm2 mcm 2&x1 1691: 1785 mcm2 mcm 2&x1 1687: 1786 mn 1692: 1786 mn 1688: 1787 mn 1693: 1787 mn 1689: 1788 sar x1 1694: 1788 sar x1 1690: 1789 bce mcm2,1&x1,| 1695: 1789 bce mcm2,1&x1,| 1691: 1790 c 000&x3,00&x1 1696: 1790 c 000&x3,00&x1 1692: 1791 bu loop 1697: 1791 bu loop 1693: 1792 c 000&x1,000&x3 1698: 1792 c 000&x1,000&x3 1694: 1793 bu loop 1699: 1793 bu loop 1695: 1794 * move x1 pointer to hi address of variable 1700: 1794 * move x1 pointer to hi address of variable 1696: 1795 c 0&x1 1701: 1795 c 0&x1 1697: 1796 chain3 1702: 1796 chain3 1698: 1797 sar x1 1703: 1797 sar x1 1699: 1798 * check to see if there are any subscripts 1704: 1798 * check to see if there are any subscripts 1700: 1799 bw sbray,subsw 1705: 1799 bw sbray,subsw 1701: 1800 bce sbscr,box,% left paren 1706: 1800 bce sbscr,box,% left paren 1702: 1801 swchb nop array 1707: 1801 swchb nop array 1703: 1802 tuno lca 9&x1,1&x2 1708: 1802 tuno lca 9&x1,1&x2 1704: 1803 sbr x2 1709: 1803 sbr x2 1705: 1804 resto mcw hex1,x1 1710: 1804 resto mcw hex1,x1 1706: 1805 b botm 1711: 1805 b botm 1707: 1806 array lca 9&x1,1&x2 1712: 1806 array lca 9&x1,1&x2 1708: 1807 lca 3&x1 1713: 1807 lca 3&x1 1709: 1808 sbr x2 1714: 1808 sbr x2 1710: 1809 cw 4&x2 1715: 1809 cw 4&x2 1711: 1810 b resto 1716: 1810 b resto 1712: 1811 notin mcw hex1,x1 1717: 1811 notin mcw hex1,x1 1713: 1812 bw lod2,subsw 1718: 1812 bw lod2,subsw 1714: 1813 bce rufn,box,% 1719: 1813 bce rufn,box,% 1715: 1814 lca @ _@,1&x2 blank,delta 11-7-8 1720: 1814 lca @ _@,1&x2 blank,delta 11-7-8 1716: 1815 sbr x2 1721: 1815 sbr x2 1717: 1816 slide lca 000&x3,001&x2 1722: 1816 slide lca 000&x3,001&x2 1718: 1817 sbr x2 1723: 1817 sbr x2 1719: 1818 cw 001&x2 1724: 1818 cw 001&x2 1720: 1819 s &2,count 1725: 1819 s &2,count 1721: 1820 bwz load1,count,k b-zone 1726: 1820 bwz load1,count,k b-zone 1722: 1821 botm cw 001&x1 1727: 1821 botm cw 001&x1 1723: 1822 sar x3 1728: 1822 sar x3 1724: 1823 botm2 cw 1&x2 1729: 1823 botm2 cw 1&x2 1725: 1824 cw fewsw,errsw 1730: 1824 cw fewsw,errsw 1726: 1825 cw tusw 1731: 1825 cw tusw 1727: 1826 klobr bce find,0,; 11-6-8 1732: 1826 klobr bce find,0,; 11-6-8 1728: 1827 mcw @$@,x1 1733: 1827 mcw @$@,x1 1729: 1828 b out 1734: 1828 b out 1730: 1829 * if @subscripted@ variable not function then error 1735: 1829 * if @subscripted@ variable not function then error 1731: 1830 rufn bce slide,1&x1,f 1736: 1830 rufn bce slide,1&x1,f 1732: 1831 ftmsg6,undefined array,code,16 1737: 1831 ftmsg6,undefined array,code,16 1733: 1832 lca @%000@,1&x2 1738: 1832 lca @%000@,1&x2 1734: 1833 sbr x2 1739: 1833 sbr x2 1735: 1834 mz vzone,3&x2 1740: 1834 mz vzone,3&x2 1736: 1835 skloz bce fndlz,0&x1,) 1741: 1835 skloz bce fndlz,0&x1,) 1737: 1836 bce nomo1,0&x1,} gm 1742: 1836 bce nomo1,0&x1,} gm 1738: 1837 sbr x1 1743: 1837 sbr x1 1739: 1838 b skloz 1744: 1838 b skloz 1740: 1839 fndlz mn 0&x1 1745: 1839 fndlz mn 0&x1 1741: 1840 sar x1 1746: 1840 sar x1 1742: 1841 b botm2 1747: 1841 b botm2 1743: 1842 * process subscripts 1748: 1842 * process subscripts 1744: 1843 sbscr za 00&x1,accum#6 1749: 1843 sbscr za 00&x1,accum#6 1745: 1844 sar x3 1750: 1844 sar x3 1746: 1845 sw vblsw 1751: 1845 sw vblsw 1747: 1846 za 000&x3,rows#5 1752: 1846 za 000&x3,rows#5 1748: 1847 za 005&x1,wordl 1753: 1847 za 005&x1,wordl 1749: 1848 s &1,accum 1754: 1848 s &1,accum 1750: 1849 mz 8&x1,vzone#1 1755: 1849 mz 8&x1,vzone#1 1751: 1850 mcw hex1,x1 1756: 1850 mcw hex1,x1 1752: 1851 lca @ $@,001&x2 1757: 1851 lca @ $@,001&x2 1753: 1852 sbr x2 1758: 1852 sbr x2 1754: 1853 mn 000&x1 1759: 1853 mn 000&x1 1755: 1854 sar x1 1760: 1854 sar x1 1756: 1855 sbr x3 1761: 1855 sbr x3 1757: 1856 split bwz const,000&x1,2 no zone 1762: 1856 split bwz const,000&x1,2 no zone 1758: 1857 * process variable suscripts 1763: 1857 * process variable suscripts 1759: 1858 sbr x1,2&x1 1764: 1858 sbr x1,2&x1 1760: 1859 lca @*1@,000&x1 1765: 1859 lca @*1@,000&x1 1761: 1860 b const 1766: 1860 b const 1762: 1861 delta lca @ _@,001&x2 11-7-8 delta 1767: 1861 delta lca @ _@,001&x2 11-7-8 delta 1763: 1862 sbr x2 1768: 1862 sbr x2 1764: 1863 feed mcw 000&x1,box 1769: 1863 feed mcw 000&x1,box 1765: 1864 sar x1 1770: 1864 sar x1 1766: 1865 mcw box,*&8 1771: 1865 mcw box,*&8 1767: 1866 bce xpand,@-&),@,0 1772: 1866 bce xpand,@-&),@,0 1768: 1867 b 1773: 1867 b 1769: 1868 b 1774: 1868 b 1770: 1869 b 1775: 1869 b 1771: 1870 b feed 1776: 1870 b feed 1772: 1871 xpand sw 2&x1 1777: 1871 xpand sw 2&x1 1773: 1872 sw 1778: 1872 sw 1774: 1873 sar hex1 1779: 1873 sar hex1 1775: 1874 sw subsw 1780: 1874 sw subsw 1776: 1875 b tlu 1781: 1875 b tlu 1777: 1876 sbray lca 9&x1,2&x2 1782: 1876 sbray lca 9&x1,2&x2 1778: 1877 sbr x2 1783: 1877 sbr x2 1779: 1878 cw 1&x2 1784: 1878 cw 1&x2 1780: 1879 mn 1785: 1879 mn 1781: 1880 sar x2 1786: 1880 sar x2 1782: 1881 b ldcom 1787: 1881 b ldcom 1783: 1882 lod2 lca 000&x3,001&x2 1788: 1882 lod2 lca 000&x3,001&x2 1784: 1883 lca 1789: 1883 lca 1785: 1884 sbr x2 1790: 1884 sbr x2 1786: 1885 cw 2&x2 1791: 1885 cw 2&x2 1787: 1886 ldcom mcw hex1,x1 1792: 1886 ldcom mcw hex1,x1 1788: 1887 cw 2&x1 1793: 1887 cw 2&x1 1789: 1888 bce load2,003&x2,_ delta 11-7-8 1794: 1888 bce load2,003&x2,_ delta 11-7-8 1790: 1889 lca @ ,@,1&x2 blank comma 1795: 1889 lca @ ,@,1&x2 blank comma 1791: 1890 sbr x2 1796: 1890 sbr x2 1792: 1891 cw subsw 1797: 1891 cw subsw 1793: 1892 bce putc,box,, comma 1798: 1892 bce putc,box,, comma 1794: 1893 bce phew,box,) rt paren 1799: 1893 bce phew,box,) rt paren 1795: 1894 mz box,wordl 1800: 1894 mz box,wordl 1796: 1895 copy mcw x1,x3 1801: 1895 copy mcw x1,x3 1797: 1896 b split 1802: 1896 b split 1798: 1897 *flip constant 1803: 1897 *flip constant 1799: 1898 const sbr x3,verse-2 1804: 1898 const sbr x3,verse-2 1800: 1899 turn mcw 000&x1,box 1805: 1899 turn mcw 000&x1,box 1801: 1900 sar x1 1806: 1900 sar x1 1802: 1901 mcw box,002&x3 1807: 1901 mcw box,002&x3 1803: 1902 sbr x3 1808: 1902 sbr x3 1804: 1903 bwz turn,000&x1,2 no zone 1809: 1903 bwz turn,000&x1,2 no zone 1805: 1904 sbr x1 1810: 1904 sbr x1 1806: 1905 m wordl,007&x3 switch c, since wordl modified 1811: 1905 m wordl,007&x3 switch c, since wordl modified 1807: 1906 bce varbl,001&x1,* asterisk 1812: 1906 bce varbl,001&x1,* asterisk 1808: 1907 a 007&x3,accum 1813: 1907 a 007&x3,accum 1809: 1908 bce phew,1&x1,) 1814: 1908 bce phew,1&x1,) 1810: 1909 bce putc,1&x1,, 1815: 1909 bce putc,1&x1,, 1811: 1910 sw syn2s 1816: 1910 sw syn2s 1812: 1911 b vserr 1817: 1911 b vserr 1813: 1912 syn2r cw syn2s 1818: 1912 syn2r cw syn2s 1814: 1913 sw ervbl 1819: 1913 sw ervbl 1815: 1914 b limit 1820: 1914 b limit 1816: 1915 rtnb cw ervbl 1821: 1915 rtnb cw ervbl 1817: 1916 * end of process subscript 1822: 1916 * end of process subscript 1818: 1917 phew nop accum-7 1823: 1917 phew nop accum-7 1819: 1918 sar x3 1824: 1918 sar x3 1820: 1919 sw fewsw 1825: 1919 sw fewsw 1821: 1920 b norml 1826: 1920 b norml 1822: 1921 ldolr lca @$@,0&x2 1827: 1921 ldolr lca @$@,0&x2 1823: 1922 sbr x2 1828: 1922 sbr x2 1824: 1923 mz vzone,3&x2 1829: 1923 mz vzone,3&x2 1825: 1924 b botm 1830: 1924 b botm 1826: 1925 * process variable subscript 1831: 1925 * process variable subscript 1827: 1926 varbl cw 1&x1,vblsw#1 1832: 1926 varbl cw 1&x1,vblsw#1 1828: 1927 b norml 1833: 1927 b norml 1829: 1928 lca @ *@,000&x2 blank, asterisk 1834: 1928 lca @ *@,000&x2 blank, asterisk 1830: 1929 sbr x2 1835: 1929 sbr x2 1831: 1930 cw 001&x2 1836: 1930 cw 001&x2 1832: 1931 mcw x1,x3 1837: 1931 mcw x1,x3 1833: 1932 b delta 1838: 1932 b delta 1834: 1933 norml sbr exit&3 1839: 1933 norml sbr exit&3 1835: 1934 x3and equ 007&x3 1840: 1934 x3and equ 007&x3 1836: 1935 subtr s &16000,x3and 1841: 1935 subtr s &16000,x3and 1837: 1936 bwz subtr,x3and,b ab zone 1842: 1936 bwz subtr,x3and,b ab zone 1838: 1937 add a &16000,x3and 1843: 1937 add a &16000,x3and 1839: 1938 bwz add,x3and,k b zone 1844: 1938 bwz add,x3and,k b zone 1840: 1939 bw alcon,fewsw 1845: 1939 bw alcon,fewsw 1841: 1940 get sbr x3,1&x3 1846: 1940 get sbr x3,1&x3 1842: 1941 bce get,002&x3,0 zero 1847: 1941 bce get,002&x3,0 zero 1843: 1942 sbr x2,1&x2 1848: 1942 sbr x2,1&x2 1844: 1943 lca blnk6#6 1849: 1943 lca blnk6#6 1845: 1944 twist mcw 002&x3,box 1850: 1944 twist mcw 002&x3,box 1846: 1945 sar x3 1851: 1945 sar x3 1847: 1946 mcw box,000&x2 1852: 1946 mcw box,000&x2 1848: 1947 sbr x2 1853: 1947 sbr x2 1849: 1948 bwz twist,001&x3,2 no zone 1854: 1948 bwz twist,001&x3,2 no zone 1850: 1949 mz blank,1&x2 1855: 1949 mz blank,1&x2 1851: 1950 exit b 00 1856: 1950 exit b 00 1852: 1951 out fendxc,,,,phse2p,,orgvb-1,varbl two 1857: 1951 out fendxc,,,,phse2p,,orgvb-1,varbl two 1853: 1952 list mcw @b@,swcha 1858: 1952 list mcw @b@,swcha 1854: 1953 mcw @b@,swchb 1859: 1953 mcw @b@,swchb 1855: 1954 mcw code-3,*&8 1860: 1954 mcw code-3,*&8 1856: 1955 bce tu,@1356@,0 1861: 1955 bce tu,@1356@,0 1857: 1956 chain3 1862: 1956 chain3 1858: 1957 b find 1863: 1957 b find 1859: 1958 tu sw tusw 1864: 1958 tu sw tusw 1860: 1959 b find 1865: 1959 b find 1861: 1960 rtpar bce putb,box,) rt paren 1866: 1960 rtpar bce putb,box,) rt paren 1862: 1961 b mdify 1867: 1961 b mdify 1863: 1962 putb mcw @b@,swchb 1868: 1962 putb mcw @b@,swchb 1864: 1963 b mdify 1869: 1963 b mdify 1865: 1964 nomo1 mn 0&x2 1870: 1964 nomo1 mn 0&x2 1866: 1965 sar x2 1871: 1965 sar x2 1867: 1966 nomo lca gm,001&x2 1872: 1966 nomo lca gm,001&x2 1868: 1967 b start 1873: 1967 b start 1869: 1968 equal mcw @n@,swchb 1874: 1968 equal mcw @n@,swchb 1870: 1969 b loop 1875: 1969 b loop 1871: 1970 load2 lca blnk2,1&x2 1876: 1970 load2 lca blnk2,1&x2 1872: 1971 sbr x2 1877: 1971 sbr x2 1873: 1972 b ldcom 1878: 1972 b ldcom 1874: 1973 load1 lca blank,0&x2 1879: 1973 load1 lca blank,0&x2 1875: 1974 sbr x2 1880: 1974 sbr x2 1876: 1975 cw 001&x2 1881: 1975 cw 001&x2 1877: 1976 b botm 1882: 1976 b botm 1878: 1977 ckxpn bce sw1,2&x1,# 1883: 1977 ckxpn bce sw1,2&x1,# 1879: 1978 bce sw1,2&x1,@ 1884: 1978 bce sw1,2&x1,@ 1880: 1979 bwz find,2&x1,2 1885: 1979 bwz find,2&x1,2 1881: 1980 bce find,2&x1,. 1886: 1980 bce find,2&x1,. 1882: 1981 b sw1 1887: 1981 b sw1 1883: 1982 alcon mcw 7&x3,hold5#5 1888: 1982 alcon mcw 7&x3,hold5#5 1884: 1983 fpackhold5,work3,x3 1889: 1983 fpackhold5,work3,x3 1885: 1984 bce *&8,2&x2,, 1890: 1984 bce *&8,2&x2,, 1886: 1985 sbr x2,1&x2 1891: 1985 sbr x2,1&x2 1887: 1986 lca work3,1&x2 1892: 1986 lca work3,1&x2 1888: 1987 sbr x2 1893: 1987 sbr x2 1889: 1988 cw 1&x2 1894: 1988 cw 1&x2 1890: 1989 mz vzone,2&x2 1895: 1989 mz vzone,2&x2 1891: 1990 bw botm,vblsw 1896: 1990 bw botm,vblsw 1892: 1991 b ldolr 1897: 1991 b ldolr 1893: 1992 putc mz *-4,wordl 1898: 1992 putc mz *-4,wordl 1894: 1993 m rows,wordl&6 1899: 1993 m rows,wordl&6 1895: 1994 mcm wordl&2,wordl-4 rows*wordl in wordl %2 dimens) 1900: 1994 mcm wordl&2,wordl-4 rows*wordl in wordl %2 dimens) 1896: 1995 s wordl,accum 1901: 1995 s wordl,accum 1897: 1996 b copy 1902: 1996 b copy 1898: 1997 fmat lca 0&x1,0&x2 1903: 1997 fmat lca 0&x1,0&x2 1899: 1998 sbr x2 1904: 1998 sbr x2 1900: 1999 c 0&x1 1905: 1999 c 0&x1 1901: 2000 sar x1 1906: 2000 sar x1 1902: 2001 b start 1907: 2001 b start 1903: 2002 mrkrs dcw @#,}*@&-%)@ equals,comma,gr mark 1908: 2002 mrkrs dcw @#,}*@&-%)@ equals,comma,gr mark 1904: 2003 syn2s dc #1 1909: 2003 syn2s dc #1 1905: 2004 subsw dc #1 1910: 2004 subsw dc #1 1906: 2005 errsw dc #1 1911: 2005 errsw dc #1 1907: 2006 verse dcw #1 1912: 2006 verse dcw #1 1908: 2007 dc #49 1913: 2007 dc #49 1909: 2008 gm dc @}@ g-m 1914: 2008 gm dc @}@ g-m 1910: 2009 kerr dcw @error @ 1915: 2009 kerr dcw @error @ 1911: 2010 kvstm dcw @ variable, statement @ 1916: 2010 kvstm dcw @ variable, statement @ 1912: 2011 wordl dcw #5 1917: 2011 wordl dcw #5 1913: 2012 dc #6 1918: 2012 dc #6 1914: 2013 dc @|@ record mark 1919: 2013 dc @|@ record mark 1915: 2014 work3 dcw #3 1920: 2014 work3 dcw #3 1916: 2015 fewsw dc #1 1921: 2015 fewsw dc #1 1917: 2016 tusw dc #1 1922: 2016 tusw dc #1 1918: 2017 ervbl dc #1 1923: 2017 ervbl dc #1 1919: 2018 org * 1924: 2018 org * 1920: ltorg* WVS: Autocoder shouldn't load incld at org 1925: ltorg* WVS: Autocoder shouldn't load incld at org 1921: 2019 code equ work 1926: 2019 code equ work 1922: 2020 blank equ blnk6-5 1927: 2020 blank equ blnk6-5 1923: 2021 blnk2 equ blnk6-4 1928: 2021 blnk2 equ blnk6-4 1924: 2022 dcw @}@ system group mark 1929: 2022 dcw @}@ system group mark 1925: 2023 orgvb equ *&1 1930: 2023 orgvb equ *&1 1926: 2024 xfr initl 1931: 2024 xfr initl 1927: 2025 job 1401 fortran variables phase two 50143 1932: 2025 job 1401 fortran variables phase two 50143 1928: 2026 * moves the source program up to sauce and computes parameters for 1933: 2026 * moves the source program up to sauce and computes parameters for 1929: 2027 * the randomizer in varbl. phase 3 1934: 2027 * the randomizer in varbl. phase 3 1930: 2028 fbegnvarbl two,x1,r,x2,,x3,r,p 1935: 2028 fbegnvarbl two,x1,r,x2,,x3,r,p 1931: 2029 sauce equ saucek 1936: 2029 sauce equ saucek 1932: 2030 org xbegin 1937: 2030 org xbegin 1933: 2031 base dcw #3 1938: 2031 base dcw #3 1934: 2032 max dcw #4 1939: 2032 max dcw #4 1935: 2033 dc #1 1940: 2033 dc #1 1936: 2034 uplim dcw #3 1941: 2034 uplim dcw #3 1937: 2035 nxbtm equ 083 1942: 2035 nxbtm equ 083 1938: 2036 phse2 mcw nxbtm,x3 1943: 2036 phse2 mcw nxbtm,x3 1939: 2037 bce fquit,x1,$ 1944: 2037 bce fquit,x1,$ 1940: 2038 sbr nomo#3,2&x3 1945: 2038 sbr nomo#3,2&x3 1941: 2039 mcw x2,x3 1946: 2039 mcw x2,x3 1942: 2040 clr1 cs 000&x3 1947: 2040 clr1 cs 000&x3 1943: 2041 sbr x3 1948: 2041 sbr x3 1944: 2042 c x3,&sauce-1 1949: 2042 c x3,&sauce-1 1945: 2043 bu clr1 1950: 2043 bu clr1 1946: 2044 sbr x1,sauce-1 1951: 2044 sbr x1,sauce-1 1947: 2045 * shift source program up to compiler program 1952: 2045 * shift source program up to compiler program 1948: 2046 movupx2,x1,nomo,all,| 1953: 2046 movupx2,x1,nomo,all,| 1949: 2047 cw 0&x2 1954: 2047 cw 0&x2 1950: 2048 cw 1955: 2048 cw 1951: 2049 sbr base,2&x1 1956: 2049 sbr base,2&x1 1952: 2050 mn two9,base 1957: 2050 mn two9,base 1953: 2051 mn 1958: 2051 mn 1954: 2052 mcw parama&2,x3 1959: 2052 mcw parama&2,x3 1955: 2053 mn 000&x3 1960: 2053 mn 000&x3 1956: 2054 sw 1961: 2054 sw 1957: 2055 sar nxbtm 1962: 2055 sar nxbtm 1958: 2056 sbr x3 1963: 2056 sbr x3 1959: 2057 * clear balance of core 1964: 2057 * clear balance of core 1960: 2058 clr2 cs 000&x3 1965: 2058 clr2 cs 000&x3 1961: 2059 sbr x3 1966: 2059 sbr x3 1962: 2060 c x3,base 1967: 2060 c x3,base 1963: 2061 bu clr2 1968: 2061 bu clr2 1964: 2062 mcw @<@,0&x3 12-6-8 1969: 2062 mcw @<@,0&x3 12-6-8 1965: 2063 * divide rest of core for tables ratio 3 to 7 1970: 2063 * divide rest of core for tables ratio 3 to 7 1966: 2064 mcw nxbtm,loc 1971: 2064 mcw nxbtm,loc 1967: 2065 b unpak 1972: 2065 b unpak 1968: 2066 mcw num#5,max&1 1973: 2066 mcw num#5,max&1 1969: 2067 mcw base,loc 1974: 2067 mcw base,loc 1970: 2068 b unpak 1975: 2068 b unpak 1971: 2069 s num,max&1 1976: 2069 s num,max&1 1972: 2070 a max,accum#6 1977: 2070 a max,accum#6 1973: 2071 a accum 1978: 2071 a accum 1974: 2072 a max,accum 3*max in accum 1979: 2072 a max,accum 3*max in accum 1975: 2073 * 1/10 of nxbtm-base in max 1980: 2073 * 1/10 of nxbtm-base in max 1976: 2074 a num,accum 1981: 2074 a num,accum 1977: 2075 mcw accum-3,x3 1982: 2075 mcw accum-3,x3 1978: 2076 a x3 1983: 2076 a x3 1979: 2077 mz zones&x3,accum-2 1984: 2077 mz zones&x3,accum-2 1980: 2078 mz zones&1&x3,accum 1985: 2078 mz zones&1&x3,accum 1981: 2079 mcw accum,x3 1986: 2079 mcw accum,x3 1982: 2080 sw 002&x3 1987: 2080 sw 002&x3 1983: 2081 mcw @<@ 12-6-8 1988: 2081 mcw @<@ 12-6-8 1984: 2082 sbr uplim 1989: 2082 sbr uplim 1985: 2083 mcw x1,x2 1990: 2083 mcw x1,x2 1986: 2084 mn 0&x2 1991: 2084 mn 0&x2 1987: 2085 sar x1 1992: 2085 sar x1 1988: 2086 fendxc,,,work5j-4,phse3j,work5j,sys2,varbl tri 1993: 2086 fendxc,,,work5j-4,phse3j,work5j,sys2,varbl tri 1989: 2087 fquit fquit 1994: 2087 fquit fquit 1990: 2088 unpak sbr exit&3 1995: 2088 unpak sbr exit&3 1991: 2089 mn loc,num 1996: 2089 mn loc,num 1992: 2090 mn 1997: 2090 mn 1993: 2091 mn 1998: 2091 mn 1994: 2092 mcw 1999: 2092 mcw 1995: 2093 mz loc,two9 2000: 2093 mz loc,two9 1996: 2094 mz loc-2,two9-1 2001: 2094 mz loc-2,two9-1 1997: 2095 nop zones-3 2002: 2095 nop zones-3 1998: 2096 sar x3 2003: 2096 sar x3 1999: 2097 comp c 004&x3,two9 2004: 2097 comp c 004&x3,two9 2000: 2098 sar x3 2005: 2098 sar x3 2001: 2099 a &1,num-3 2006: 2099 a &1,num-3 2002: 2100 bu comp 2007: 2100 bu comp 2003: 2101 mz blank#1,num-3 2008: 2101 mz blank#1,num-3 2004: 2102 exit b 000 2009: 2102 exit b 000 2005: 2103 loc dcw @0j @ 2010: 2103 loc dcw @0j @ 2006: 2104 two9 dcw @99@ 2011: 2104 two9 dcw @99@ 2007: 2105 zones dc @9@ 2012: 2105 zones dc @9@ 2008: 2106 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 2013: 2106 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 2009: 2107 ltorg* 2014: 2107 ltorg* 2010: 2108 ltorg* 2015: 2108 ltorg* 2011: 2109 sys2 dcw @}@ system group mark 2016: 2109 sys2 dcw @}@ system group mark 2012: 2110 xfr phse2 2017: 2110 xfr phse2 2013: 2111 job 1401 fortran variables phase three 50153 2018: 2111 job 1401 fortran variables phase three 50153 2014: 2112 fbegnvarbl tri,x1,,x2,,x3,r,j 2019: 2112 fbegnvarbl tri,x1,,x2,,x3,r,j 2015: 2113 * defines variables in source program 2020: 2113 * defines variables in source program 2016: 2114 org xbegin 2021: 2114 org xbegin 2017: 2115 base ds 3 2022: 2115 base ds 3 2018: 2116 max ds 4 2023: 2116 max ds 4 2019: 2117 uplim ds 4 2024: 2117 uplim ds 4 2020: 2118 nxtop equ 086 2025: 2118 nxtop equ 086 2021: 2119 nxbtm equ 083 2026: 2119 nxbtm equ 083 2022: 2120 work5 dcw #5 2027: 2120 work5 dcw #5 2023: 2121 save2 dcw #3 2028: 2121 save2 dcw #3 2024: 2122 phse3 messg@storage assignment - simple variables@,37,l,j 2029: 2122 phse3 messg@storage assignment - simple variables@,37,l,j 2025: 2123 mcw @ @,saucek-1 blank 2030: 2123 mcw @ @,saucek-1 blank 2026: 2124 mcw x2,save2 2031: 2124 mcw x2,save2 2027: 2125 unpaknxtop,work5 2032: 2125 unpaknxtop,work5 2028: 2126 fendxc,,,phse3,,phse3,saucek-1,varbl quad 2033: 2126 fendxc,,,phse3,,phse3,saucek-1,varbl quad 2029: 2127 ltorg* 2034: 2127 ltorg* 2030: 2128 dcw @}@ system group mark 2035: 2128 dcw @}@ system group mark 2031: 2129 xfr phse3 2036: 2129 xfr phse3 2032: 2130 job 1401 fortran variables phase four 50163 2037: 2130 job 1401 fortran variables phase four 50163 2033: 2131 110 dcw @varbl quad@ 2038: 2131 110 dcw @varbl quad@ 2034: 2132 org phse3 2039: 2132 org phse3 2035: 2133 begin mcw base,bump&3 2040: 2133 begin mcw base,bump&3 2036: 2134 mz @s@,bump&2 2041: 2134 mz @s@,bump&2 2037: 2135 sw gm 2042: 2135 sw gm 2038: 2136 cw isfsw 2043: 2136 cw isfsw 2039: 2137 start bce out,000&x1, blank 2044: 2137 start bce out,000&x1, blank 2040: 2138 mcw 000&x1,code#4 2045: 2138 mcw 000&x1,code#4 2041: 2139 lca 000&x1,work#10 2046: 2139 lca 000&x1,work#10 2042: 2140 sar x1 2047: 2140 sar x1 2043: 2141 sbr x3 2048: 2141 sbr x3 2044: 2142 lca work,000&x2 2049: 2142 lca work,000&x2 2045: 2143 sbr x2 2050: 2143 sbr x2 2046: 2144 bce pass,code-3,/ bad statement 2051: 2144 bce pass,code-3,/ bad statement 2047: 2145 bce pass,code-3,f 2052: 2145 bce pass,code-3,f 2048: 2146 mcw @01@,fnctr#2 2053: 2146 mcw @01@,fnctr#2 2049: 2147 * determine if in run one of run two 2054: 2147 * determine if in run one of run two 2050: 2148 swche b test 2055: 2148 swche b test 2051: 2149 find2 bce seek,000&x1,_ delta 11-7-8 2056: 2149 find2 bce seek,000&x1,_ delta 11-7-8 2052: 2150 chain5 2057: 2150 chain5 2053: 2151 bce pass,000&x1,} group mark 2058: 2151 bce pass,000&x1,} group mark 2054: 2152 chain5 2059: 2152 chain5 2055: 2153 sbr x1 2060: 2153 sbr x1 2056: 2154 b find2 2061: 2154 b find2 2057: 2155 seek bce found,000&x1,_ delta 11-7-8 2062: 2155 seek bce found,000&x1,_ delta 11-7-8 2058: 2156 sbr x1 2063: 2156 sbr x1 2059: 2157 b seek 2064: 2157 b seek 2060: 2158 found sw 001&x1 2065: 2158 found sw 001&x1 2061: 2159 cw dummy 2066: 2159 cw dummy 2062: 2160 cw dummy 2067: 2160 cw dummy 2063: 2161 cw dummy 2068: 2161 cw dummy 2064: 2162 sar x1 2069: 2162 sar x1 2065: 2163 bce copy,004&x1,} group mk, first char may be delta 2070: 2163 bce copy,004&x1,} group mk, first char may be delta 2066: 2164 lca 000&x3,000&x2 2071: 2164 lca 000&x3,000&x2 2067: 2165 sbr x2 2072: 2165 sbr x2 2068: 2166 cw 001&x2 2073: 2166 cw 001&x2 2069: 2167 copy sbr x3,2&x1 2074: 2167 copy sbr x3,2&x1 2070: 2168 * scan for ending character 2075: 2168 * scan for ending character 2071: 2169 limit mcw 000&x1,box#1 2076: 2169 limit mcw 000&x1,box#1 2072: 2170 sar x1 2077: 2170 sar x1 2073: 2171 mcw box,*&8 2078: 2171 mcw box,*&8 2074: 2172 bce randm,@@}#*-&),@,0 at,12-7-8 etc 2079: 2172 bce randm,@@}#*-&),@,0 at,12-7-8 etc 2075: 2173 chain7 2080: 2173 chain7 2076: 2174 b limit 2081: 2174 b limit 2077: 2175 randm bce swchf,box,# equal 2082: 2175 randm bce swchf,box,# equal 2078: 2176 bce *&5,2&x1,] 11-5-8 funct stmt 2083: 2176 bce *&5,2&x1,] 11-5-8 funct stmt 2079: 2177 b *&5 2084: 2177 b *&5 2080: 2178 sw isfsw#1 2085: 2178 sw isfsw#1 2081: 2179 swcha nop botm 2086: 2179 swcha nop botm 2082: 2180 * randomizing variable name 2087: 2180 * randomizing variable name 2083: 2181 mixup sw 002&x1 2088: 2181 mixup sw 002&x1 2084: 2182 za 000&x3,mod#4 2089: 2182 za 000&x3,mod#4 2085: 2183 a 004&x1,mod 2090: 2183 a 004&x1,mod 2086: 2184 mz @ @,mod 2091: 2184 mz @ @,mod 2087: 2185 mz 2092: 2185 mz 2088: 2186 mz 2093: 2186 mz 2089: 2187 mcw 3 digit no. in mod 2094: 2187 mcw 3 digit no. in mod 2090: 2188 subtr s max,mod 2095: 2188 subtr s max,mod 2091: 2189 bwz subtr,mod,b 2096: 2189 bwz subtr,mod,b 2092: 2190 a max,mod 2097: 2190 a max,mod 2093: 2191 mz @ @,mod blank 2098: 2191 mz @ @,mod blank 2094: 2192 mcw x2,hex2#8 2099: 2192 mcw x2,hex2#8 2095: 2193 mcw stores x1 in hex1 2100: 2193 mcw stores x1 in hex1 2096: 2194 mcw mod,x1 2101: 2194 mcw mod,x1 2097: 2195 a x1 2102: 2195 a x1 2098: 2196 a mod,x1 2103: 2196 a mod,x1 2099: 2197 * get table 1 address 2104: 2197 * get table 1 address 2100: 2198 bump nop 000 2105: 2198 bump nop 000 2101: 2199 sar x1 tagged by A-bit 2106: 2199 sar x1 tagged by A-bit 2102: 2200 mcw @n@,ovflw 2107: 2200 mcw @n@,ovflw 2103: 2201 chain bce new,000&x1, blank varbl not yet endountered 2108: 2201 chain bce new,000&x1, blank varbl not yet endountered 2104: 2202 bce ovflw,000&x1,< 12-6-8 2109: 2202 bce ovflw,000&x1,< 12-6-8 2105: 2203 * see if defined already 2110: 2203 * see if defined already 2106: 2204 mcw 000&x1,x2 2111: 2204 mcw 000&x1,x2 2107: 2205 sar x1 2112: 2205 sar x1 2108: 2206 c 000&x3,000&x2 2113: 2206 c 000&x3,000&x2 2109: 2207 bu chain 2114: 2207 bu chain 2110: 2208 c 000&x2,000&x3 2115: 2208 c 000&x2,000&x3 2111: 2209 sar swchc&3 2116: 2209 sar swchc&3 2112: 2210 bu chain 2117: 2210 bu chain 2113: 2211 swchc mn 0 2118: 2211 swchc mn 0 2114: 2212 sar send&3 2119: 2212 sar send&3 2115: 2213 restr mcw hex2,x2 2120: 2213 restr mcw hex2,x2 2116: 2214 mcw 2121: 2214 mcw 2117: 2215 send lca 000,000&x2 2122: 2215 send lca 000,000&x2 2118: 2216 sbr x2 2123: 2216 sbr x2 2119: 2217 cw 001&x2 2124: 2217 cw 001&x2 2120: 2218 sbr x3,1&x1 2125: 2218 sbr x3,1&x1 2121: 2219 sbr x1 2126: 2219 sbr x1 2122: 2220 gobak b find1 operand set to find2 for run2 2127: 2220 gobak b find1 operand set to find2 for run2 2123: 2221 new mcw nxbtm,x2 2128: 2221 new mcw nxbtm,x2 2124: 2222 mcw nxbtm,000&x1 2129: 2222 mcw nxbtm,000&x1 2125: 2223 mcw 000&x3,000&x2 2130: 2223 mcw 000&x3,000&x2 2126: 2224 sbr x2 2131: 2224 sbr x2 2127: 2225 * check to see if there is room for address 2132: 2225 * check to see if there is room for address 2128: 2226 bce full,000&x2,< 12-6-8 2133: 2226 bce full,000&x2,< 12-6-8 2129: 2227 chain4 2134: 2227 chain4 2130: 2228 sw 000&x3 2135: 2228 sw 000&x3 2131: 2229 mcw 000&x3,*&8 2136: 2229 mcw 000&x3,*&8 2132: 2230 bce fixed,@ijklmn@,0 2137: 2230 bce fixed,@ijklmn@,0 2133: 2231 chain5 2138: 2231 chain5 2134: 2232 mz @A@,vzone#1 2139: 2232 mz @A@,vzone#1 2135: 2233 bw funst,isfsw 2140: 2233 bw funst,isfsw 2136: 2234 a parama&6,work5 2141: 2234 a parama&6,work5 2137: 2235 pack c work5,&16000 2142: 2235 pack c work5,&16000 2138: 2236 bh pack2 2143: 2236 bh pack2 2139: 2237 bw pack2,lgsw 2144: 2237 bw pack2,lgsw 2140: 2238 cs 332 2145: 2238 cs 332 2141: 2239 cs 2146: 2239 cs 2142: 2240 mlc @message 2 - object program too large@,270 2147: 2240 mlc @message 2 - object program too large@,270 2143: 2241 w 2148: 2241 w 2144: 2242 sw failsw,lgsw 2149: 2242 sw failsw,lgsw 2145: 2243 pack2 mcw work5,hold5#5 2150: 2243 pack2 mcw work5,hold5#5 2146: 2244 mcw x3,hold8#8 2151: 2244 mcw x3,hold8#8 2147: 2245 mcw 2152: 2245 mcw 2148: 2246 fpackhold5,nxtop,x2 2153: 2246 fpackhold5,nxtop,x2 2149: 2247 mcw nxtop,adrss#3 2154: 2247 mcw nxtop,adrss#3 2150: 2248 rtn2 cw 0&x3 2155: 2248 rtn2 cw 0&x3 2151: 2249 cs 299 2156: 2249 cs 299 2152: 2250 fflip0&x3,201,x3,x2,inc,wm 2157: 2250 fflip0&x3,201,x3,x2,inc,wm 2153: 2251 mcw hold8,x3 2158: 2251 mcw hold8,x3 2154: 2252 mcw 2159: 2252 mcw 2155: 2253 mcw nxtop,227 2160: 2253 mcw nxtop,227 2156: 2254 mcs work5,219 2161: 2254 mcs work5,219 2157: 2255 bw swix2,isfsw 2162: 2255 bw swix2,isfsw 2158: 2256 w 2163: 2256 w 2159: 2257 forms 2164: 2257 forms 2160: 2258 swix2 sw 1&x2 2165: 2258 swix2 sw 1&x2 2161: 2259 lca gm 2166: 2259 lca gm 2162: 2260 sbr send&3 2167: 2260 sbr send&3 2163: 2261 lca adrss 2168: 2261 lca adrss 2164: 2262 sbr nxbtm 2169: 2262 sbr nxbtm 2165: 2263 sbr x2 2170: 2263 sbr x2 2166: 2264 bce *&5,code-3,d 2171: 2264 bce *&5,code-3,d 2167: 2265 b *&5 2172: 2265 b *&5 2168: 2266 cw 4&x2 2173: 2266 cw 4&x2 2169: 2267 mz vzone,2&x2 2174: 2267 mz vzone,2&x2 2170: 2268 cw isfsw 2175: 2268 cw isfsw 2171: 2269 b restr 2176: 2269 b restr 2172: 2270 funst mcw fnctr,adrss 2177: 2270 funst mcw fnctr,adrss 2173: 2271 mcw @]@ 11-5-8 2178: 2271 mcw @]@ 11-5-8 2174: 2272 a &1,fnctr 2179: 2272 a &1,fnctr 2175: 2273 b rtn2 2180: 2273 b rtn2 2176: 2274 test fbceqinput,code-3,1,5,l 2181: 2274 test fbceqinput,code-3,1,5,l 2177: 2275 mcw @b@,swcha 2182: 2275 mcw @b@,swcha 2178: 2276 mcw @n@,swchb 2183: 2276 mcw @n@,swchb 2179: 2277 mcw @n@,swchf 2184: 2277 mcw @n@,swchf 2180: 2278 mcw @n@,swchg 2185: 2278 mcw @n@,swchg 2181: 2279 find1 bce found,000&x1,_ delta 11-7-8 2186: 2279 find1 bce found,000&x1,_ delta 11-7-8 2182: 2280 swchb nop rtpar,000&x1,) rt paren 2187: 2280 swchb nop rtpar,000&x1,) rt paren 2183: 2281 swchg nop dolr1,000&x1,$ dollar, a-operand also modified 2188: 2281 swchg nop dolr1,000&x1,$ dollar, a-operand also modified 2184: 2282 done bce pass,000&x1,} group mark 2189: 2282 done bce pass,000&x1,} group mark 2185: 2283 sbr x1 2190: 2283 sbr x1 2186: 2284 b find1 2191: 2284 b find1 2187: 2285 input mcw @n@,swcha 2192: 2285 input mcw @n@,swcha 2188: 2286 mcw @b@,swchb 2193: 2286 mcw @b@,swchb 2189: 2287 mcw @m@,swchf 2194: 2287 mcw @m@,swchf 2190: 2288 mcw @b@,swchg 2195: 2288 mcw @b@,swchg 2191: 2289 b find1 2196: 2289 b find1 2192: 2290 rtpar mcw @n@,swcha 2197: 2290 rtpar mcw @n@,swcha 2193: 2291 b done 2198: 2291 b done 2194: 2292 swchf nop @b@,swchb 2199: 2292 swchf nop @b@,swchb 2195: 2293 mcw @b@,swcha 2200: 2293 mcw @b@,swcha 2196: 2294 b mixup 2201: 2294 b mixup 2197: 2295 undef cs 299 2202: 2295 undef cs 299 2198: 2296 sw failsw 2203: 2296 sw failsw 2199: 2297 mcw @error 10 - undefined variable @,230 2204: 2297 mcw @error 10 - undefined variable @,230 2200: 2298 fflip0&x3,231,x3,x1,inc,wm 2205: 2298 fflip0&x3,231,x3,x1,inc,wm 2201: 2299 mn code,255 2206: 2299 mn code,255 2202: 2300 mn 2207: 2300 mn 2203: 2301 mn 2208: 2301 mn 2204: 2302 mcw @statement @ 2209: 2302 mcw @statement @ 2205: 2303 w 2210: 2303 w 2206: 2304 forms 2211: 2304 forms 2207: 2305 sbr send&3,zeroz 2212: 2305 sbr send&3,zeroz 2208: 2306 bwz ckfix,231,k 2213: 2306 bwz ckfix,231,k 2209: 2307 zna mz @a@,zeroz-1 2214: 2307 zna mz @a@,zeroz-1 2210: 2308 b restr 2215: 2308 b restr 2211: 2309 ckfix sw 231 2216: 2309 ckfix sw 231 2212: 2310 mcw 231,*&8 2217: 2310 mcw 231,*&8 2213: 2311 bce zna,@opqr@, initialized 2218: 2311 bce zna,@opqr@, initialized 2214: 2312 chain3 2219: 2312 chain3 2215: 2313 mz @k@,zeroz-1 2220: 2313 mz @k@,zeroz-1 2216: 2314 b restr 2221: 2314 b restr 2217: 2315 ovflw nop full 2222: 2315 ovflw nop full 2218: 2316 mcw @b@,ovflw 2223: 2316 mcw @b@,ovflw 2219: 2317 mcw uplim,x1 2224: 2317 mcw uplim,x1 2220: 2318 b chain 2225: 2318 b chain 2221: 2319 dolr1 sbr swchg&3,dolr2 2226: 2319 dolr1 sbr swchg&3,dolr2 2222: 2320 mcw @b@,swcha 2227: 2320 mcw @b@,swcha 2223: 2321 b done 2228: 2321 b done 2224: 2322 dolr2 sbr swchg&3,dolr1 2229: 2322 dolr2 sbr swchg&3,dolr1 2225: 2323 mcw @n@,swcha 2230: 2323 mcw @n@,swcha 2226: 2324 b done 2231: 2324 b done 2227: 2325 fixed mz @j@,vzone 2232: 2325 fixed mz @j@,vzone 2228: 2326 bw funst,isfsw 2233: 2326 bw funst,isfsw 2229: 2327 a parama&4,work5 2234: 2327 a parama&4,work5 2230: 2328 b pack 2235: 2328 b pack 2231: 2329 out mlc save2,x1 2236: 2329 out mlc save2,x1 2232: 2330 cs 0&x2 2237: 2330 cs 0&x2 2233: 2331 cs 2238: 2331 cs 2234: 2332 sbr tclear,sys4 2239: 2332 sbr tclear,sys4 2235: 2333 swchd nop dun 2240: 2333 swchd nop dun 2236: 2334 sw gm 2241: 2334 sw gm 2237: 2335 mcw @b@,swchd 2242: 2335 mcw @b@,swchd 2238: 2336 mcw @)@,swchc 2243: 2336 mcw @)@,swchc 2239: 2337 mcw @n@,swche 2244: 2337 mcw @n@,swche 2240: 2338 mcw @n@,swcha 2245: 2338 mcw @n@,swcha 2241: 2339 sbr chain&3,undef 2246: 2339 sbr chain&3,undef 2242: 2340 sbr gobak&3,find2 2247: 2340 sbr gobak&3,find2 2243: 2341 cs 0&x2 2248: 2341 cs 0&x2 2244: 2342 sbr x2,1&x1 2249: 2342 sbr x2,1&x1 2245: 2343 sbr save2 2250: 2343 sbr save2 2246: 2344 cc j 2251: 2344 cc j 2247: 2345 b start 2252: 2345 b start 2248: 2346 dun bss 333,c 2253: 2346 dun bss 333,c 2249: 2347 mcw @varblquin@,110 2254: 2347 mcw @varblquin@,110 2250: 3448 b montor 2255: 3448 b montor 2251: 2349 pass mvdwnx3,x2 2256: 2349 pass mvdwnx3,x2 2252: 2350 mcw x3,x1 2257: 2350 mcw x3,x1 2253: 2351 b start 2258: 2351 b start 2254: 2352 botm sbr x1,1&x1 2259: 2352 botm sbr x1,1&x1 2255: 2353 sbr x3,1&x3 2260: 2353 sbr x3,1&x3 2256: 2354 b find1 2261: 2354 b find1 2257: 2355 full fquit 2262: 2355 full fquit 2258: 2356 zeroz dcw @000@ 2263: 2356 zeroz dcw @000@ 2259: 2357 lgsw dc #1 2264: 2357 lgsw dc #1 2260: 2358 org * 2265: 2358 org * 2261: ltorg* WVS: Autocoder shouldn't load incld at org 2266: ltorg* WVS: Autocoder shouldn't load incld at org 2262: 2359 gm dc @}@ g-m 2267: 2359 gm dc @}@ g-m 2263: 2360 dc @ @ space for fancy scan 2268: 2360 dc @ @ space for fancy scan 2264: 2361 sys4 dcw @}@ work and system group mark 2269: 2361 sys4 dcw @}@ work and system group mark 2265: 2362 xfr begin 2270: 2362 xfr begin 2266: 2363 job 1401 fortran variables phase five 50173 2271: 2363 job 1401 fortran variables phase five 50173 2267: 2364 110 dcw @varbl quin@ 2272: 2364 110 dcw @varbl quin@ 2268: 2365 org phse3 2273: 2365 org phse3 2269: 2366 ckref cc j 2274: 2366 ckref cc j 2270: 2367 mcw x1,keep2#3 2275: 2367 mcw x1,keep2#3 2271: 2368 mcw parama&2,x2 2276: 2368 mcw parama&2,x2 2272: 2369 scan bce isgm,0&x2,} 12-7-8 2277: 2369 scan bce isgm,0&x2,} 12-7-8 2273: 2370 sbr x2 2278: 2370 sbr x2 2274: 2371 c x2,nxbtm 2279: 2371 c x2,nxbtm 2275: 2372 bu scan 2280: 2372 bu scan 2276: 2373 mcw keep2,x1 2281: 2373 mcw keep2,x1 2277: 2374 fendxd,,,xbegin,xbegin,xbegin,saucek-2,const one 2282: 2374 fendxd,,,xbegin,xbegin,xbegin,saucek-2,const one 2278: 2375 isgm bw unref,0&x2 2283: 2375 isgm bw unref,0&x2 2279: 2376 mn 0&x2 2284: 2376 mn 0&x2 2280: 2377 sbr x2 2285: 2377 sbr x2 2281: 2378 b scan 2286: 2378 b scan 2282: 2379 unref cs 299 2287: 2379 unref cs 299 2283: 2380 mcw @error 11 - unreferenced variable @,233 2288: 2380 mcw @error 11 - unreferenced variable @,233 2284: 2381 mcw x2,x3 2289: 2381 mcw x2,x3 2285: 2382 nopr nop 1&x3 2290: 2382 nopr nop 1&x3 2286: 2383 sar x3 2291: 2383 sar x3 2287: 2384 bw flip,2&x3 2292: 2384 bw flip,2&x3 2288: 2385 b nopr 2293: 2385 b nopr 2289: 2386 flip fflip1&x3,234,x3,x1,incl,wm 2294: 2386 flip fflip1&x3,234,x3,x1,incl,wm 2290: 2387 w 2295: 2387 w 2291: 2388 forms 2296: 2388 forms 2292: 2389 mn 0&x2 2297: 2389 mn 0&x2 2293: 2390 sar x2 2298: 2390 sar x2 2294: 2391 b scan 2299: 2391 b scan 2295: 2392 ltorg* 2300: 2392 ltorg* 2296: 2393 dcw @}@ system group mark 2301: 2393 dcw @}@ system group mark 2297: 2394 xfr ckref 2302: 2394 xfr ckref 2298: 2395 job 1401 fortran constant phase one 50183 2303: 2395 job 1401 fortran constant phase one 50183 2299: 2396 fbegnconst one,x1,,x2,r,x3,r,k 2304: 2396 fbegnconst one,x1,,x2,r,x3,r,k 2300: 2397 org xbegin 2305: 2397 org xbegin 2301: 2398 track equ 200 2306: 2398 track equ 200 2302: 2399 nxbtm equ 083 2307: 2399 nxbtm equ 083 2303: 2400 initl cs track&99 2308: 2400 initl cs track&99 2304: 2401 sw gm 2309: 2401 sw gm 2305: 2402 sw track 2310: 2402 sw track 2306: 2403 mcw parama&2,x2 2311: 2403 mcw parama&2,x2 2307: 2404 mn 000&x2 2312: 2404 mn 000&x2 2308: 2405 mn 2313: 2405 mn 2309: 2406 sar x2 2314: 2406 sar x2 2310: 2407 sbr nxbtm 2315: 2407 sbr nxbtm 2311: 2408 lca gm, 1&x2 2316: 2408 lca gm, 1&x2 2312: 2409 start bce out,000&x1, blank 2317: 2409 start bce out,000&x1, blank 2313: 2410 mcw 000&x1,code#4 2318: 2410 mcw 000&x1,code#4 2314: 2411 lca 000&x1,work#10 2319: 2411 lca 000&x1,work#10 2315: 2412 sar x1 2320: 2412 sar x1 2316: 2413 sbr hex3#3 2321: 2413 sbr hex3#3 2317: 2414 sbr kill#3,0&x2 2322: 2414 sbr kill#3,0&x2 2318: 2415 lca work,000&x2 2323: 2415 lca work,000&x2 2319: 2416 sbr x2 2324: 2416 sbr x2 2320: 2417 mcw code-3,*&8 2325: 2417 mcw code-3,*&8 2321: 2418 bce tryit,@upl3165der@,0 2326: 2418 bce tryit,@upl3165der@,0 2322: 2419 chain9 2327: 2419 chain9 2323: 2420 mvdwnx1,x2 2328: 2420 mvdwnx1,x2 2324: 2421 b start 2329: 2421 b start 2325: 2422 tryit sbr x3,table-4 2330: 2422 tryit sbr x3,table-4 2326: 2423 mcw code-3,scan&7 2331: 2423 mcw code-3,scan&7 2327: 2424 scan bce setup,004&x3,0 d-char modified 2332: 2424 scan bce setup,004&x3,0 d-char modified 2328: 2425 sbr x3 2333: 2425 sbr x3 2329: 2426 b scan 2334: 2426 b scan 2330: 2427 setup mcw 006&x3,cntrl#2 2335: 2427 setup mcw 006&x3,cntrl#2 2331: 2428 mcw cntrl-1,test2&7 2336: 2428 mcw cntrl-1,test2&7 2332: 2429 test1 bce guts,cntrl,2 2337: 2429 test1 bce guts,cntrl,2 2333: 2430 a @1@,cntrl 2338: 2430 a @1@,cntrl 2334: 2431 test2 bce bump1,0&x1,0 2339: 2431 test2 bce bump1,0&x1,0 2335: 2432 bce guts,0&x1,} gm 2340: 2432 bce guts,0&x1,} gm 2336: 2433 sbr x1 2341: 2433 sbr x1 2337: 2434 b test2 2342: 2434 b test2 2338: 2435 bump1 mn 0&x1 2343: 2435 bump1 mn 0&x1 2339: 2436 sar x1 2344: 2436 sar x1 2340: 2437 b test1 2345: 2437 b test1 2341: 2438 guts bwz maybe,000&x1,3 number,equal sign,word mk 2346: 2438 guts bwz maybe,000&x1,3 number,equal sign,word mk 2342: 2439 sbr x1 2347: 2439 sbr x1 2343: 2440 bce subsc,1&x1,$ 2348: 2440 bce subsc,1&x1,$ 2344: 2441 b guts 2349: 2441 b guts 2345: 2442 maybe bce pass,000&x1,} 12-7-8 2350: 2442 maybe bce pass,000&x1,} 12-7-8 2346: 2443 sbr x1 2351: 2443 sbr x1 2347: 2444 bce guts,001&x1,# 2352: 2444 bce guts,001&x1,# 2348: 2445 bce guts,1&x1,@ 2353: 2445 bce guts,1&x1,@ 2349: 2446 mcw 002&x1,box&1 2354: 2446 mcw 002&x1,box&1 2350: 2447 mcw 2355: 2447 mcw 2351: 2448 mcw 2356: 2448 mcw 2352: 2449 sar x1 2357: 2449 sar x1 2353: 2450 mcw box&1,*&8 2358: 2450 mcw box&1,*&8 2354: 2451 bce rucon,@)}@.#%$,*-&@,0 rt paren,group mark 2359: 2451 bce rucon,@)}@.#%$,*-&@,0 rt paren,group mark 2355: 2452 chain10 2360: 2452 chain10 2356: 2453 bce pass,1&x1,} gm 2361: 2453 bce pass,1&x1,} gm 2357: 2454 bmpx1 sbr x1,1&x1 2362: 2454 bmpx1 sbr x1,1&x1 2358: 2455 b guts 2363: 2455 b guts 2359: 2456 subsc nop sub2 2364: 2456 subsc nop sub2 2360: 2457 mcw @b@,subsc 2365: 2457 mcw @b@,subsc 2361: 2458 mcw blank,subsw&4 2366: 2458 mcw blank,subsw&4 2362: 2459 b guts 2367: 2459 b guts 2363: 2460 sub2 mcw @n@,subsc 2368: 2460 sub2 mcw @n@,subsc 2364: 2461 mcw @/@,subsw&4 2369: 2461 mcw @/@,subsw&4 2365: 2462 b guts 2370: 2462 b guts 2366: 2463 rucon bce bakup,3&x1,. 2371: 2463 rucon bce bakup,3&x1,. 2367: 2464 mcw box-1,*&8 2372: 2464 mcw box-1,*&8 2368: 2465 bce bmpx1,@?abcdefghi!jklmnopqr@,0 &zero,- zero 2373: 2465 bce bmpx1,@?abcdefghi!jklmnopqr@,0 &zero,- zero 2369: 2466 chain19 2374: 2466 chain19 2370: 2467 bce ckif,3&x1,) 2375: 2467 bce ckif,3&x1,) 2371: 2468 set sw 003&x1 2376: 2468 set sw 003&x1 2372: 2469 mcw hex3,x3 2377: 2469 mcw hex3,x3 2373: 2470 lca 000&x3,000&x2 2378: 2470 lca 000&x3,000&x2 2374: 2471 sbr x2 2379: 2471 sbr x2 2375: 2472 mcw @<@,3&x1 12-6-8 2380: 2472 mcw @<@,3&x1 12-6-8 2376: 2473 sbr klobr&6,3&x1 2381: 2473 sbr klobr&6,3&x1 2377: 2474 cw 001&x2 2382: 2474 cw 001&x2 2378: 2475 lca @_@,000&x2 11-7-8 2383: 2475 lca @_@,000&x2 11-7-8 2379: 2476 sbr x2 2384: 2476 sbr x2 2380: 2477 cw 001&x2 2385: 2477 cw 001&x2 2381: 2478 cw oddsw 2386: 2478 cw oddsw 2382: 2479 s xpont#2 2387: 2479 s xpont#2 2383: 2480 s count#3 2388: 2480 s count#3 2384: 2481 s total 2389: 2481 s total 2385: 2482 mcw @,@,stodd 2390: 2482 mcw @,@,stodd 2386: 2483 mcw @n@,swchx 2391: 2483 mcw @n@,swchx 2387: 2484 mcw @b@,swchz 2392: 2484 mcw @b@,swchz 2388: 2485 sbr swcha&3,a 2393: 2485 sbr swcha&3,a 2389: 2486 sbr swchs&3,s 2394: 2486 sbr swchs&3,s 2390: 2487 sbr x1,2&x1 2395: 2487 sbr x1,2&x1 2391: 2488 norml mcw 000&x1,box 2396: 2488 norml mcw 000&x1,box 2392: 2489 sar x1 2397: 2489 sar x1 2393: 2490 swchx nop &1,xpont 2398: 2490 swchx nop &1,xpont 2394: 2491 a &1,total#3 2399: 2491 a &1,total#3 2395: 2492 swchz bce norml,box,0 passes by leading zeros 2400: 2492 swchz bce norml,box,0 passes by leading zeros 2396: 2493 bce swchs,box,. 2401: 2493 bce swchs,box,. 2397: 2494 bce swcha,swchz,b branches on first signif char 2402: 2494 bce swcha,swchz,b branches on first signif char 2398: 2495 a &1,count 2403: 2495 a &1,count 2399: 2496 test bce cnlft,box,# 2404: 2496 test bce cnlft,box,# 2400: 2497 bce *&9,box,@ 2405: 2497 bce *&9,box,@ 2401: 2498 bwz norml,box,2 no zone 2406: 2498 bwz norml,box,2 no zone 2402: 2499 cr c swcha&3,nopad 2407: 2499 cr c swcha&3,nopad 2403: 2500 * decimal point sends the address of nop to swcha&3 2408: 2500 * decimal point sends the address of nop to swcha&3 2404: 2501 * cannot use address constant 2409: 2501 * cannot use address constant 2405: 2502 bu fixed 2410: 2502 bu fixed 2406: 2503 bwz mark,xpont,b 2411: 2503 bwz mark,xpont,b 2407: 2504 a &1,xpont 2412: 2504 a &1,xpont 2408: 2505 mark sw 002&x1 2413: 2505 mark sw 002&x1 2409: 2506 bce oddbl,2&x1,. 2414: 2506 bce oddbl,2&x1,. 2410: 2507 cktal bce tail,box,e 2415: 2507 cktal bce tail,box,e 2411: 2508 float c total,&01 2416: 2508 float c total,&01 2412: 2509 nop syntx 2417: 2509 nop syntx 2413: 2510 nop 2418: 2510 nop 2414: 2511 c count,&000 2419: 2511 c count,&000 2415: 2512 bu rtlft 2420: 2512 bu rtlft 2416: 2513 ldzer lca @?0?@,0&x2 12-0,0,12-0 2421: 2513 ldzer lca @?0?@,0&x2 12-0,0,12-0 2417: 2414 sbr x2 2422: 2414 sbr x2 2418: 2515 cw 001&x2 2423: 2515 cw 001&x2 2419: 2516 b botm2 2424: 2516 b botm2 2420: 2517 rtlft mcw x1,hex1#3 2425: 2517 rtlft mcw x1,hex1#3 2421: 2518 bw *&8,oddsw 2426: 2518 bw *&8,oddsw 2422: 2519 lca 000&x3,001&x3 2427: 2519 lca 000&x3,001&x3 2423: 2520 mcw right#3,x1 2428: 2520 mcw right#3,x1 2424: 2521 mcw parama&6,presz#2 2429: 2521 mcw parama&6,presz#2 2425: 2522 a &2,presz 2430: 2522 a &2,presz 2426: 2523 sbr x3,track-2 2431: 2523 sbr x3,track-2 2427: 2524 sw track 2432: 2524 sw track 2428: 2525 twist mcw 000&x1,box 2433: 2525 twist mcw 000&x1,box 2429: 2526 sar x1 2434: 2526 sar x1 2430: 2527 mcw box,002&x3 2435: 2527 mcw box,002&x3 2431: 2528 sbr x3 2436: 2528 sbr x3 2432: 2529 bwz phew,001&x1,1 word mark 2437: 2529 bwz phew,001&x1,1 word mark 2433: 2530 s &1,presz 2438: 2530 s &1,presz 2434: 2531 c presz,&00 2439: 2531 c presz,&00 2435: 2532 bu twist 2440: 2532 bu twist 2436: 2533 phew sbr x3,1&x3 2441: 2533 phew sbr x3,1&x3 2437: 2534 phew1 bce *&5,0&x3,0 2442: 2534 phew1 bce *&5,0&x3,0 2438: 2535 b xeunt 2443: 2535 b xeunt 2439: 2536 mn 0&x3 2444: 2536 mn 0&x3 2440: 2537 sar x3 2445: 2537 sar x3 2441: 2538 b phew1 2446: 2538 b phew1 2442: 2539 xeunt mn 0&x3 2447: 2539 xeunt mn 0&x3 2443: 2540 sar x3 2448: 2540 sar x3 2444: 2541 mcw xpont,3&x3 2449: 2541 mcw xpont,3&x3 2445: 2542 mz @a@,1&x3 2450: 2542 mz @a@,1&x3 2446: 2543 lca 003&x3,000&x2 2451: 2543 lca 003&x3,000&x2 2447: 2544 sbr x2 2452: 2544 sbr x2 2448: 2545 b botm 2453: 2545 b botm 2449: 2546 cnlft cs 332 2454: 2546 cnlft cs 332 2450: 2547 cs 2455: 2547 cs 2451: 2548 sw failsw 2456: 2548 sw failsw 2452: 2549 mn code,256 2457: 2549 mn code,256 2453: 2550 chain2 2458: 2550 chain2 2454: 2551 mcw @equal sign, statement @ 2459: 2551 mcw @equal sign, statement @ 2455: 2552 mcw @error 41 - constant left side of @ 2460: 2552 mcw @error 41 - constant left side of @ 2456: 2553 w 2461: 2553 w 2457: 2554 forms 2462: 2554 forms 2458: 2555 mcw kill,x2 2463: 2555 mcw kill,x2 2459: 2556 mcw blank#1,0&x2 2464: 2556 mcw blank#1,0&x2 2460: 2557 c 0&x1 2465: 2557 c 0&x1 2461: 2558 sar x1 2466: 2558 sar x1 2462: 2559 b start 2467: 2559 b start 2463: 2560 syntx ftmsg44,constant syntax,code,17 2468: 2560 syntx ftmsg44,constant syntax,code,17 2464: 2561 b ldzer 2469: 2561 b ldzer 2465: 2562 oddbl mcw @0@,2&x1 2470: 2562 oddbl mcw @0@,2&x1 2466: 2563 sw oddsw#1 2471: 2563 sw oddsw#1 2467: 2564 b cktal 2472: 2564 b cktal 2468: 2565 tail za &0,bump#2 2473: 2565 tail za &0,bump#2 2469: 2566 bwz flip,000&x1,2 no zone 2474: 2566 bwz flip,000&x1,2 no zone 2470: 2567 mz 000&x1,bump 2475: 2567 mz 000&x1,bump 2471: 2568 * zone respectively 2476: 2568 * zone respectively 2472: 2569 sar x1 2477: 2569 sar x1 2473: 2570 flip mn 000&x1 2478: 2570 flip mn 000&x1 2474: 2571 sar x1 2479: 2571 sar x1 2475: 2572 c 0&x1,@z@ 2480: 2572 c 0&x1,@z@ 2476: 2573 bl units numeric, two digit expon 2481: 2573 bl units numeric, two digit expon 2477: 2574 mn 001&x1,bump 2482: 2574 mn 001&x1,bump 2478: 2575 b bumpr 2483: 2575 b bumpr 2479: 2576 units mn 001&x1,bump-1 2484: 2576 units mn 001&x1,bump-1 2480: 2577 mn 000&x1,bump 2485: 2577 mn 000&x1,bump 2481: 2578 sar x1 2486: 2578 sar x1 2482: 2579 bumpr a bump,xpont 2487: 2579 bumpr a bump,xpont 2483: 2580 mn 0&x1 2488: 2580 mn 0&x1 2484: 2581 sar x1 2489: 2581 sar x1 2485: 2582 b float 2490: 2582 b float 2486: 2583 fixed c count,&000 2491: 2583 fixed c count,&000 2487: 2584 bu lftrt 2492: 2584 bu lftrt 2488: 2585 lca @ 0@,000&x2 blank, zero 2493: 2585 lca @ 0@,000&x2 blank, zero 2489: 2586 sbr x2 2494: 2586 sbr x2 2490: 2587 cw 001&x2 2495: 2587 cw 001&x2 2491: 2588 b botm2 2496: 2588 b botm2 2492: 2589 lftrt mcw x1,hex1 2497: 2589 lftrt mcw x1,hex1 2493: 2590 mcw right,x3 2498: 2590 mcw right,x3 2494: 2591 sw 0&x3 2499: 2591 sw 0&x3 2495: 2592 sbr x3,track&99 2500: 2592 sbr x3,track&99 2496: 2593 mcw parama&4,presz 2501: 2593 mcw parama&4,presz 2497: 2594 turn mcw 002&x1,box 2502: 2594 turn mcw 002&x1,box 2498: 2595 sar x1 2503: 2595 sar x1 2499: 2596 mcw box,000&x3 2504: 2596 mcw box,000&x3 2500: 2597 sbr x3 2505: 2597 sbr x3 2501: 2598 bwz wow,001&x1,1 word mark 2506: 2598 bwz wow,001&x1,1 word mark 2502: 2599 s &1,presz 2507: 2599 s &1,presz 2503: 2600 c presz,&00 2508: 2600 c presz,&00 2504: 2601 subsw bu turn 2509: 2601 subsw bu turn 2505: 2602 wow sw 001&x3 2510: 2602 wow sw 001&x3 2506: 2603 lca track&99,000&x2 2511: 2603 lca track&99,000&x2 2507: 2604 sbr x2 2512: 2604 sbr x2 2508: 2605 cw 001&x3 2513: 2605 cw 001&x3 2509: 2606 c count,&001 2514: 2606 c count,&001 2510: 2607 bu botm 2515: 2607 bu botm 2511: 2608 cw 001&x2 2516: 2608 cw 001&x2 2512: 2609 lca @ @,000&x2 blank 2517: 2609 lca @ @,000&x2 blank 2513: 2610 sbr x2 2518: 2610 sbr x2 2514: 2611 botm cw 001&x2 2519: 2611 botm cw 001&x2 2515: 2612 mcw hex1,x1 2520: 2612 mcw hex1,x1 2516: 2613 botm2 sbr x1,1&x1 2521: 2613 botm2 sbr x1,1&x1 2517: 2614 sbr hex3 2522: 2614 sbr hex3 2518: 2615 klobr bce guts,0,< 12-6-8 2523: 2615 klobr bce guts,0,< 12-6-8 2519: 2616 fquit 2524: 2616 fquit 2520: 2617 out fendxc,gm,,,phse2o,,sys1,const two 2525: 2617 out fendxc,gm,,,phse2o,,sys1,const two 2521: 2618 ckif bce pass,code-3,e 2526: 2618 ckif bce pass,code-3,e 2522: 2619 b set 2527: 2619 b set 2523: 2620 pass mcw hex3,x3 2528: 2620 pass mcw hex3,x3 2524: 2621 mvdwnx3,x2 2529: 2621 mvdwnx3,x2 2525: 2622 mcw x3,x1 2530: 2622 mcw x3,x1 2526: 2623 b start 2531: 2623 b start 2527: 2624 bakup sbr x1,1&x1 2532: 2624 bakup sbr x1,1&x1 2528: 2625 b set 2533: 2625 b set 2529: 2626 swchs mcw @s@,swchx 2534: 2626 swchs mcw @s@,swchx 2530: 2627 mcw nopad,swcha&3 2535: 2627 mcw nopad,swcha&3 2531: 2628 mcw x1,x3 2536: 2628 mcw x1,x3 2532: 2629 stodd sw oddsw 2537: 2629 stodd sw oddsw 2533: 2630 b norml 2538: 2630 b norml 2534: 2631 swcha mcw @a@,swchx 2539: 2631 swcha mcw @a@,swchx 2535: 2632 mcw nopad,swchs&3 2540: 2632 mcw nopad,swchs&3 2536: 2633 mcw @n@,swchz 2541: 2633 mcw @n@,swchz 2537: 2634 sbr right,1&x1 2542: 2634 sbr right,1&x1 2538: 2635 mcw @n@,stodd 2543: 2635 mcw @n@,stodd 2539: 2636 b test 2544: 2636 b test 2540: 2637 table equ *&1 2545: 2637 table equ *&1 2541: 2638 dcw @r 2e 2d#1l,15,0u,1p,16,01,13,1@ 2546: 2638 dcw @r 2e 2d#1l,15,0u,1p,16,01,13,1@ 2542: 2639 a dcw @a@ 2547: 2639 a dcw @a@ 2543: 2640 s dcw @s@ 2548: 2640 s dcw @s@ 2544: 2641 nopad dcw &@n@ 2549: 2641 nopad dcw &@n@ 2545: 2642 dcw @ @ blank 2550: 2642 dcw @ @ blank 2546: 2643 box dcw @ @ blank 2551: 2643 box dcw @ @ blank 2547: 2644 dcw @ @ blank 2552: 2644 dcw @ @ blank 2548: 2645 gm dc @}@ group mark 2553: 2645 gm dc @}@ group mark 2549: 2646 ltorg* 2554: 2646 ltorg* 2550: 2647 sys1 dcw @}@ system group mark 2555: 2647 sys1 dcw @}@ system group mark 2551: 2648 org *&x00 2556: 2648 org *&x00 2552: 2649 sauce equ *&1 2557: 2649 sauce equ *&1 2553: 2650 xfr initl 2558: 2650 xfr initl 2554: 2651 job 1401 fortran constant phase two 50193 2559: 2651 job 1401 fortran constant phase two 50193 2555: 2652 fbegnconst two,x1,r,x2,,x3,r,o 2560: 2652 fbegnconst two,x1,r,x2,,x3,r,o 2556: 2653 org xbegin 2561: 2653 org xbegin 2557: 2654 nxbtm equ 083 2562: 2654 nxbtm equ 083 2558: 2655 nomo equ parama&2 2563: 2655 nomo equ parama&2 2559: 2656 base dcw #3 2564: 2656 base dcw #3 2560: 2657 max dcw #4 2565: 2657 max dcw #4 2561: 2658 dc #1 2566: 2658 dc #1 2562: 2659 uplim dcw #3 2567: 2659 uplim dcw #3 2563: 2660 phse2 mcw x2, x3 2568: 2660 phse2 mcw x2, x3 2564: 2661 sw gm2 2569: 2661 sw gm2 2565: 2662 clr1 cs 000&x3 2570: 2662 clr1 cs 000&x3 2566: 2663 sbr x3 2571: 2663 sbr x3 2567: 2664 c x3,&sauce-1 2572: 2664 c x3,&sauce-1 2568: 2665 bu clr1 2573: 2665 bu clr1 2569: 2666 sbr x1,sauce-1 2574: 2666 sbr x1,sauce-1 2570: 2667 * shift source program up to compiler program 2575: 2667 * shift source program up to compiler program 2571: 2668 movupx2,x1,nomo,all,| 2576: 2668 movupx2,x1,nomo,all,| 2572: 2669 cw 0&x2 2577: 2669 cw 0&x2 2573: 2670 cw 2578: 2670 cw 2574: 2671 sbr base,1&x1 2579: 2671 sbr base,1&x1 2575: 2672 mn two9,base 2580: 2672 mn two9,base 2576: 2673 mn 2581: 2673 mn 2577: 2674 mcw nxbtm,x3 2582: 2674 mcw nxbtm,x3 2578: 2675 * clear balance of core 2583: 2675 * clear balance of core 2579: 2676 clr2 cs 000&x3 2584: 2676 clr2 cs 000&x3 2580: 2677 sbr x3 2585: 2677 sbr x3 2581: 2678 c x3,base 2586: 2678 c x3,base 2582: 2679 bu clr2 2587: 2679 bu clr2 2583: 2680 mcw @<@,0&x3 12-6-8 2588: 2680 mcw @<@,0&x3 12-6-8 2584: 2681 * divide rest of core for tables ratio 3 to 7 2589: 2681 * divide rest of core for tables ratio 3 to 7 2585: 2682 mcw nxbtm,loc 2590: 2682 mcw nxbtm,loc 2586: 2683 b unpak 2591: 2683 b unpak 2587: 2684 mcw num#5,max&1 2592: 2684 mcw num#5,max&1 2588: 2685 mcw base,loc 2593: 2685 mcw base,loc 2589: 2686 b unpak 2594: 2686 b unpak 2590: 2687 s num,max&1 2595: 2687 s num,max&1 2591: 2688 a max,accum#6 2596: 2688 a max,accum#6 2592: 2689 a accum 2597: 2689 a accum 2593: 2690 a max,accum 3*max in accum 2598: 2690 a max,accum 3*max in accum 2594: 2691 * 1/10 of nxbtm-base in max 2599: 2691 * 1/10 of nxbtm-base in max 2595: 2692 a num,accum 2600: 2692 a num,accum 2596: 2693 mcw accum-3,x3 2601: 2693 mcw accum-3,x3 2597: 2694 a x3 2602: 2694 a x3 2598: 2695 mz zon19&x3,accum-2 2603: 2695 mz zon19&x3,accum-2 2599: 2696 mz zon19&1&x3,accum 2604: 2696 mz zon19&1&x3,accum 2600: 2697 mcw accum,x3 2605: 2697 mcw accum,x3 2601: 2698 sw 002&x3 2606: 2698 sw 002&x3 2602: 2699 mcw @<@ 12-6-8 2607: 2699 mcw @<@ 12-6-8 2603: 2700 sbr uplim 2608: 2700 sbr uplim 2604: 2701 mcw x1,x2 2609: 2701 mcw x1,x2 2605: 2702 mn 0&x2 2610: 2702 mn 0&x2 2606: 2703 sar x1 2611: 2703 sar x1 2607: 2704 mcw nxbtm,x3 2612: 2704 mcw nxbtm,x3 2608: 2705 lca gm2,1&x3 2613: 2705 lca gm2,1&x3 2609: 2706 cs 299 2614: 2706 cs 299 2610: 2707 mcw parama&6,x3 2615: 2707 mcw parama&6,x3 2611: 2708 mcw @0@ 2616: 2708 mcw @0@ 2612: 2709 sw 200 2617: 2709 sw 200 2613: 2710 mcw nxbtm,ldflt&6 2618: 2710 mcw nxbtm,ldflt&6 2614: 2711 ldflt lca 199&x3,0 2619: 2711 ldflt lca 199&x3,0 2615: 2712 sbr nxbtm 2620: 2712 sbr nxbtm 2616: 2713 sbr lodx&6 2621: 2713 sbr lodx&6 2617: 2714 mn parama&4,x3 2622: 2714 mn parama&4,x3 2618: 2715 mn 2623: 2715 mn 2619: 2716 lodx lca 199&x3,0 2624: 2716 lodx lca 199&x3,0 2620: 2717 sbr x3 2625: 2717 sbr x3 2621: 2718 sbr oneadr 2626: 2718 sbr oneadr 2622: 2719 lca @1@,0&x3 2627: 2719 lca @1@,0&x3 2623: 2720 sbr xexpon 2628: 2720 sbr xexpon 2624: 2721 lca @a0?@ 0,12-0 2629: 2721 lca @a0?@ 0,12-0 2625: 2722 sbr nxbtm 2630: 2722 sbr nxbtm 2626: 2723 fendxc,gm2,,phse2,,phse2,sys2,const tri 2631: 2723 fendxc,gm2,,phse2,,phse2,sys2,const tri 2627: 2724 unpak sbr exit&3 2632: 2724 unpak sbr exit&3 2628: 2725 mn loc,num 2633: 2725 mn loc,num 2629: 2726 mn 2634: 2726 mn 2630: 2727 mn 2635: 2727 mn 2631: 2728 mcw 2636: 2728 mcw 2632: 2729 mz loc,two9 2637: 2729 mz loc,two9 2633: 2730 mz loc-2,two9-1 2638: 2730 mz loc-2,two9-1 2634: 2731 nop zon19-3 2639: 2731 nop zon19-3 2635: 2732 sar x3 2640: 2732 sar x3 2636: 2733 comp c 004&x3,two9 2641: 2733 comp c 004&x3,two9 2637: 2734 sar x3 2642: 2734 sar x3 2638: 2735 a &1,num-3 2643: 2735 a &1,num-3 2639: 2736 bu comp 2644: 2736 bu comp 2640: 2737 mz @ @,num-3 2645: 2737 mz @ @,num-3 2641: 2738 exit b 000 2646: 2738 exit b 000 2642: 2739 loc dcw @0j @ 2647: 2739 loc dcw @0j @ 2643: 2740 two9 dcw @99@ 2648: 2740 two9 dcw @99@ 2644: 2741 gm2 dc @}@ 2649: 2741 gm2 dc @}@ 2645: 2742 zon19 dc @9@ 2650: 2742 zon19 dc @9@ 2646: 2743 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 2651: 2743 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 2647: 2744 ltorg* 2652: 2744 ltorg* 2648: 2745 sys2 dcw @}@ system group mark 2653: 2745 sys2 dcw @}@ system group mark 2649: 2746 xfr phse2 2654: 2746 xfr phse2 2650: 2747 job 1401 fortran constant phase three 50203 2655: 2747 job 1401 fortran constant phase three 50203 2651: 2748 110 dcw @const tri@ 2656: 2748 110 dcw @const tri@ 2652: 2749 org phse2 2657: 2749 org phse2 2653: 2750 * defines normalized constants in sauce 2658: 2750 * defines normalized constants in sauce 2654: 2751 * calculating amount by which object time addresses of 2659: 2751 * calculating amount by which object time addresses of 2655: 2752 * constants, formats, and lists must be reduced 2660: 2752 * constants, formats, and lists must be reduced 2656: 2753 * (via MA instructions) because of array storage 2661: 2753 * (via MA instructions) because of array storage 2657: 2754 * plusdf is used in phases 24,26&50 2662: 2754 * plusdf is used in phases 24,26&50 2658: 2755 * macfls is used in phases 20,24,25,26,&50 2663: 2755 * macfls is used in phases 20,24,25,26,&50 2659: 2756 phse3 unpakparama&2,wk5 2664: 2756 phse3 unpakparama&2,wk5 2660: 2757 mcw x2,savx2#3 save x2 2665: 2757 mcw x2,savx2#3 save x2 2661: 2758 unpakconlst,cnls5 2666: 2758 unpakconlst,cnls5 2662: 2759 s cnls5#5,wk5#5 2667: 2759 s cnls5#5,wk5#5 2663: 2760 c @0000?@,wk5 plus zero 2668: 2760 c @0000?@,wk5 plus zero 2664: 2761 be rsx2 2669: 2761 be rsx2 2665: 2762 fpackwk5,plusdf,x2 2670: 2762 fpackwk5,plusdf,x2 2666: 2763 mcw @16000@,mcfl5#5 2671: 2763 mcw @16000@,mcfl5#5 2667: 2764 s wk5,mcfl5 2672: 2764 s wk5,mcfl5 2668: 2765 fpackmcfl5,macfls,x2 2673: 2765 fpackmcfl5,macfls,x2 2669: 2766 rsx2 mcw savx2,x2 restore x2 2674: 2766 rsx2 mcw savx2,x2 restore x2 2670: 2767 ma macfls,oneadr 2675: 2767 ma macfls,oneadr 2671: 2768 ma macfls,xexpon 2676: 2768 ma macfls,xexpon 2672: 2769 mcw base,bump&3 2677: 2769 mcw base,bump&3 2673: 2770 mz @s@,bump&2 2678: 2770 mz @s@,bump&2 2674: 2771 mcw x2,hex1#3 2679: 2771 mcw x2,hex1#3 2675: 2772 mcw @ @,sauce-1 blank, may not be necessary 2680: 2772 mcw @ @,sauce-1 blank, may not be necessary 2676: 2773 start bce out,000&x1, blank 2681: 2773 start bce out,000&x1, blank 2677: 2774 mcw 000&x1,code#4 2682: 2774 mcw 000&x1,code#4 2678: 2775 lca 000&x1,work#10 2683: 2775 lca 000&x1,work#10 2679: 2776 sar x1 2684: 2776 sar x1 2680: 2777 sbr x3 2685: 2777 sbr x3 2681: 2778 lca work,000&x2 2686: 2778 lca work,000&x2 2682: 2779 sbr x2 2687: 2779 sbr x2 2683: 2780 bce pass,code-3,/ 2688: 2780 bce pass,code-3,/ 2684: 2781 find bce seek,000&x1,_ delta 11-7-8 2689: 2781 find bce seek,000&x1,_ delta 11-7-8 2685: 2782 chain5 2690: 2782 chain5 2686: 2783 bce pass,000&x1,} group mark 2691: 2783 bce pass,000&x1,} group mark 2687: 2784 chain5 2692: 2784 chain5 2688: 2785 sbr x1 2693: 2785 sbr x1 2689: 2786 b find 2694: 2786 b find 2690: 2787 seek bce found,000&x1,_ delta 11-7-8 2695: 2787 seek bce found,000&x1,_ delta 11-7-8 2691: 2788 sbr x1 2696: 2788 sbr x1 2692: 2789 b seek 2697: 2789 b seek 2693: 2790 found sw 001&x1 2698: 2790 found sw 001&x1 2694: 2791 cw 2699: 2791 cw 2695: 2792 cw 2700: 2792 cw 2696: 2793 cw 2701: 2793 cw 2697: 2794 sar x1 2702: 2794 sar x1 2698: 2795 bce copy, 004&x1,} group mk, first char may be dlta 2703: 2795 bce copy, 004&x1,} group mk, first char may be dlta 2699: 2796 lca 000&x3,000&x2 2704: 2796 lca 000&x3,000&x2 2700: 2797 sbr x2 2705: 2797 sbr x2 2701: 2798 cw 001&x2 2706: 2798 cw 001&x2 2702: 2799 copy sbr x3,2&x1 2707: 2799 copy sbr x3,2&x1 2703: 2800 limit mcw 000&x1,box#1 2708: 2800 limit mcw 000&x1,box#1 2704: 2801 sar x1 2709: 2801 sar x1 2705: 2802 mcw box,*&8 2710: 2802 mcw box,*&8 2706: 2803 bce randm,@#}@*-&)$,@,0 equal, gm 2711: 2803 bce randm,@#}@*-&)$,@,0 equal, gm 2707: 2804 chain8 2712: 2804 chain8 2708: 2805 b limit 2713: 2805 b limit 2709: 2806 randm sw 002&x1 2714: 2806 randm sw 002&x1 2710: 2807 za 000&x3,mod#4 2715: 2807 za 000&x3,mod#4 2711: 2808 a 004&x1,mod 2716: 2808 a 004&x1,mod 2712: 2809 bce squoz,002&x1, blank, 1 char fixed pt. num 2717: 2809 bce squoz,002&x1, blank, 1 char fixed pt. num 2713: 2810 strip mz @ @,mod 2718: 2810 strip mz @ @,mod 2714: 2811 mz 2719: 2811 mz 2715: 2812 mz 2720: 2812 mz 2716: 2813 mcw 3 digit no. in mod 2721: 2813 mcw 3 digit no. in mod 2717: 2814 subtr s max,mod 2722: 2814 subtr s max,mod 2718: 2815 bwz subtr,mod,b 2723: 2815 bwz subtr,mod,b 2719: 2816 a max,mod 2724: 2816 a max,mod 2720: 2817 mz @ @,mod blank 2725: 2817 mz @ @,mod blank 2721: 2818 mcw x2,hex2#8 2726: 2818 mcw x2,hex2#8 2722: 2819 mcw stores x1 2727: 2819 mcw stores x1 2723: 2820 mcw mod,x1 2728: 2820 mcw mod,x1 2724: 2821 a x1 2729: 2821 a x1 2725: 2822 a mod,x1 2730: 2822 a mod,x1 2726: 2823 bump nop 000 base & 3*mod in x1, table 1 entry address 2731: 2823 bump nop 000 base & 3*mod in x1, table 1 entry address 2727: 2824 sar x1 2732: 2824 sar x1 2728: 2825 mcw @n@,ovflw 2733: 2825 mcw @n@,ovflw 2729: 2826 chain bce new,000&x1, blank, const not yet encountered 2734: 2826 chain bce new,000&x1, blank, const not yet encountered 2730: 2827 bce ovflw,000&x1,< 12-6-8 2735: 2827 bce ovflw,000&x1,< 12-6-8 2731: 2828 mcw 000&x1,x2 2736: 2828 mcw 000&x1,x2 2732: 2829 sar x1 2737: 2829 sar x1 2733: 2830 c 000&x3,000&x2 2738: 2830 c 000&x3,000&x2 2734: 2831 bu chain 2739: 2831 bu chain 2735: 2832 c 000&x2,000&x3 2740: 2832 c 000&x2,000&x3 2736: 2833 bu chain 2741: 2833 bu chain 2737: 2834 restr mcw x2,temp#3 2742: 2834 restr mcw x2,temp#3 2738: 2835 mcw temp,temp2 compute correct constant addrs. before 2743: 2835 mcw temp,temp2 compute correct constant addrs. before 2739: 2836 ma macfls,temp putting them in arithmetic strings. 2744: 2836 ma macfls,temp putting them in arithmetic strings. 2740: 2837 mcw hex2,x2 2745: 2837 mcw hex2,x2 2741: 2838 mcw 2746: 2838 mcw 2742: 2839 lca temp,0&x2 2747: 2839 lca temp,0&x2 2743: 2840 sbr x2 2748: 2840 sbr x2 2744: 2841 cw 001&x2 2749: 2841 cw 001&x2 2745: 2842 mcw temp2#3,*&7 2750: 2842 mcw temp2#3,*&7 2746: 2843 bwz fixed,0,2 2751: 2843 bwz fixed,0,2 2747: 2844 mz @ @,002&x2 blank 2752: 2844 mz @ @,002&x2 blank 2748: 2845 botm sbr x1,1&x1 2753: 2845 botm sbr x1,1&x1 2749: 2846 sbr x3 2754: 2846 sbr x3 2750: 2847 b find 2755: 2847 b find 2751: 2848 new mcw nxbtm,x2 2756: 2848 new mcw nxbtm,x2 2752: 2849 mcw nxbtm,000&x1 2757: 2849 mcw nxbtm,000&x1 2753: 2850 mcw 000&x3,000&x2 2758: 2850 mcw 000&x3,000&x2 2754: 2851 sbr x1 2759: 2851 sbr x1 2755: 2852 sbr nxbtm 2760: 2852 sbr nxbtm 2756: 2853 bce full,000&x1,< 12-6-8 2761: 2853 bce full,000&x1,< 12-6-8 2757: 2854 sw 001&x1 2762: 2854 sw 001&x1 2758: 2855 b restr 2763: 2855 b restr 2759: 2856 ovflw nop full 2764: 2856 ovflw nop full 2760: 2857 mcw @s@,ovflw 2765: 2857 mcw @s@,ovflw 2761: 2858 mcw uplim,x1 2766: 2858 mcw uplim,x1 2762: 2859 b chain 2767: 2859 b chain 2763: 2860 fixed mz *-6,2&x2 2768: 2860 fixed mz *-6,2&x2 2764: 2861 b botm 2769: 2861 b botm 2765: 2862 squoz sw 003&x1 2770: 2862 squoz sw 003&x1 2766: 2863 b strip 2771: 2863 b strip 2767: 2864 full fquit 2772: 2864 full fquit 2768: 2865 pass mvdwnx3,x2 2773: 2865 pass mvdwnx3,x2 2769: 2866 mcw x3,x1 2774: 2866 mcw x3,x1 2770: 2867 b start 2775: 2867 b start 2771: 2868 out mcw hex1,x1 2776: 2868 out mcw hex1,x1 2772: 2869 cs 332 2777: 2869 cs 332 2773: 2870 cs 2778: 2870 cs 2774: 2871 mcw @constants located from @,223 2779: 2871 mcw @constants located from @,223 2775: 2872 unpaknxbtm,wk51 2780: 2872 unpaknxbtm,wk51 2776: 2873 s wk5,wk51 2781: 2873 s wk5,wk51 2777: 2874 mz @ @,wk51 remove sign 2782: 2874 mz @ @,wk51 remove sign 2778: 2875 a &1,wk51#5 2783: 2875 a &1,wk51#5 2779: 2876 mcw nxbtm,x3 2784: 2876 mcw nxbtm,x3 2780: 2877 ma macfls,x3 2785: 2877 ma macfls,x3 2781: 2878 sbr x3,1&x3 2786: 2878 sbr x3,1&x3 2782: 2879 mcw conlst,247 2787: 2879 mcw conlst,247 2783: 2880 mcw @-@ 2788: 2880 mcw @-@ 2784: 2881 mcw x3 2789: 2881 mcw x3 2785: 2882 mcw @ @ 2790: 2882 mcw @ @ 2786: 2883 mcw cnls5 2791: 2883 mcw cnls5 2787: 2884 mcw @ to @ 2792: 2884 mcw @ to @ 2788: 2885 mcw wk51 2793: 2885 mcw wk51 2789: 2886 cc j 2794: 2886 cc j 2790: 2887 w 2795: 2887 w 2791: 2888 cc j 2796: 2888 cc j 2792: 2889 forms 2797: 2889 forms 2793: 2890 fendxd,,,xbegin,xbegin,xbegin,sauce-2,subscr 2798: 2890 fendxd,,,xbegin,xbegin,xbegin,sauce-2,subscr 2794: 2891 org * 2799: 2891 org * 2795: ltorg* WVS: Autocoder shouldn't load incld at org 2800: ltorg* WVS: Autocoder shouldn't load incld at org 2796: 2892 dcw @}@ system group mark 2801: 2892 dcw @}@ system group mark 2797: 2893 org tamaxt&x00 2802: 2893 org tamaxt&x00 2798: 2894 sauce equ *&1 2803: 2894 sauce equ *&1 2799: 2895 xfr phse3 2804: 2895 xfr phse3 2800: 2896 job 1401 fortran subscripts phase 50213 2805: 2896 job 1401 fortran subscripts phase 50213 2801: 2897 fbegnsubscr,x1,,x2,,x3,r,w 2806: 2897 fbegnsubscr,x1,,x2,,x3,r,w 2802: 2898 org xbegin 2807: 2898 org xbegin 2803: 2899 * squeeze addresses between $ signs together, error check 2808: 2899 * squeeze addresses between $ signs together, error check 2804: 2900 initl cs 0&x2 2809: 2900 initl cs 0&x2 2805: 2901 cs 2810: 2901 cs 2806: 2902 sbr x2,1&x1 2811: 2902 sbr x2,1&x1 2807: 2903 sbr hex1#3 2812: 2903 sbr hex1#3 2808: 2904 start bce out,000&x1, blank 2813: 2904 start bce out,000&x1, blank 2809: 2905 mcw 000&x1,code#4 2814: 2905 mcw 000&x1,code#4 2810: 2906 b slide x2 initially greater than x1 2815: 2906 b slide x2 initially greater than x1 2811: 2907 bce pass,code-3,/ 2816: 2907 bce pass,code-3,/ 2812: 2908 bce pass,code-3,f 2817: 2908 bce pass,code-3,f 2813: 2909 find bce seek,000&x1,$ 2818: 2909 find bce seek,000&x1,$ 2814: 2910 chain5 2819: 2910 chain5 2815: 2911 bwz fnish,000&x1,1 word mk 2820: 2911 bwz fnish,000&x1,1 word mk 2816: 2912 chain5 2821: 2912 chain5 2817: 2913 sbr x1 2822: 2913 sbr x1 2818: 2914 b find 2823: 2914 b find 2819: 2915 seek bce found,000&x1,$ 2824: 2915 seek bce found,000&x1,$ 2820: 2916 sbr x1 2825: 2916 sbr x1 2821: 2917 b seek 2826: 2917 b seek 2822: 2918 found sw 000&x1 2827: 2918 found sw 000&x1 2823: 2919 b send 2828: 2919 b send 2824: 2920 mn 000&x1 2829: 2920 mn 000&x1 2825: 2921 sar x1 2830: 2921 sar x1 2826: 2922 b drop4 2831: 2922 b drop4 2827: 2923 squoz sw 2&x1 2832: 2923 squoz sw 2&x1 2828: 2924 b send 2833: 2924 b send 2829: 2925 b drop4 2834: 2925 b drop4 2830: 2926 bwz cpar,3&x1,s 2835: 2926 bwz cpar,3&x1,s 2831: 2927 bwz cpar,3&x1,k 2836: 2927 bwz cpar,3&x1,k 2832: 2928 ftmsg12,floating point subscript,code,26 2837: 2928 ftmsg12,floating point subscript,code,26 2833: 2929 cpar sw 2&x1 2838: 2929 cpar sw 2&x1 2834: 2930 b send 2839: 2930 b send 2835: 2931 b drop4 2840: 2931 b drop4 2836: 2932 c 001&x1,@$@ 2841: 2932 c 001&x1,@$@ 2837: 2933 bu squoz 2842: 2933 bu squoz 2838: 2934 sw 001&x1 2843: 2934 sw 001&x1 2839: 2935 b send 2844: 2935 b send 2840: 2936 mcw x1,x3 2845: 2936 mcw x1,x3 2841: 2937 b find 2846: 2937 b find 2842: 2938 slide sbr exsld&3 2847: 2938 slide sbr exsld&3 2843: 2939 mvdwnx1,x2 2848: 2939 mvdwnx1,x2 2844: 2940 mcw x1,x3 2849: 2940 mcw x1,x3 2845: 2941 exsld b 000 2850: 2941 exsld b 000 2846: 2942 drop4 sbr exdrp&3 2851: 2942 drop4 sbr exdrp&3 2847: 2943 mcw x1,x3 2852: 2943 mcw x1,x3 2848: 2944 mn 0&x1 2853: 2944 mn 0&x1 2849: 2945 chain3 2854: 2945 chain3 2850: 2946 sbr x1 2855: 2946 sbr x1 2851: 2947 exdrp b 000 2856: 2947 exdrp b 000 2852: 2948 fnish mcw x3,x1 2857: 2948 fnish mcw x3,x1 2853: 2949 pass b slide 2858: 2949 pass b slide 2854: 2950 b start 2859: 2950 b start 2855: 2951 out mcw hex1,x1 2860: 2951 out mcw hex1,x1 2856: 2952 fendxc,,,,,,sys1,stnum one 2861: 2952 fendxc,,,,,,sys1,stnum one 2857: 2953 send sbr exsnd&3 2862: 2953 send sbr exsnd&3 2858: 2954 lca 000&x3,000&x2 2863: 2954 lca 000&x3,000&x2 2859: 2955 sbr x2 2864: 2955 sbr x2 2860: 2956 cw 001&x2 2865: 2956 cw 001&x2 2861: 2957 exsnd b 000 2866: 2957 exsnd b 000 2862: 2958 ltorg* 2867: 2958 ltorg* 2863: 2959 sys1 dcw @}@ system group mark 2868: 2959 sys1 dcw @}@ system group mark 2864: 2960 xfr initl 2869: 2960 xfr initl 2865: 2961 job 1401 Fortran statement number phase one 50223 2870: 2961 job 1401 Fortran statement number phase one 50223 2866: 2962 fbegnstnum one,x1,,x2,,x3,r,m 2871: 2962 fbegnstnum one,x1,,x2,,x3,r,m 2867: 2963 org xbegin 2872: 2963 org xbegin 2868: 2964 nxbtm equ 083 2873: 2964 nxbtm equ 083 2869: 2965 initl cs 0&x2 2874: 2965 initl cs 0&x2 2870: 2966 mcw nxbtm,x2 2875: 2966 mcw nxbtm,x2 2871: 2967 sw gm from the bottom 2876: 2967 sw gm from the bottom 2872: 2968 lca gm,000&x2 2877: 2968 lca gm,000&x2 2873: 2969 sbr x2 2878: 2969 sbr x2 2874: 2970 start bce out,000&x1, blank 2879: 2970 start bce out,000&x1, blank 2875: 2971 lca 000&x1,work1#10 2880: 2971 lca 000&x1,work1#10 2876: 2972 sar x1 2881: 2972 sar x1 2877: 2973 cw 001&x1 2882: 2973 cw 001&x1 2878: 2974 sw work1-3 2883: 2974 sw work1-3 2879: 2975 lca work1,000&x2 2884: 2975 lca work1,000&x2 2880: 2976 sbr x2 2885: 2976 sbr x2 2881: 2977 cw 001&x2 2886: 2977 cw 001&x2 2882: 2978 bwz label,work1-4,2 no zone 2887: 2978 bwz label,work1-4,2 no zone 2883: 2979 top lca gm,000&x2 2888: 2979 top lca gm,000&x2 2884: 2980 sbr x2 2889: 2980 sbr x2 2885: 2981 mcw work1-3,test&7 2890: 2981 mcw work1-3,test&7 2886: 2982 test bce worry,@wt65upldegk@,0 2891: 2982 test bce worry,@wt65upldegk@,0 2887: 2983 chain10 2892: 2983 chain10 2888: 2984 bce kill,work1-3,/ 2893: 2984 bce kill,work1-3,/ 2889: 2985 botm mvdwnx1,x2 2894: 2985 botm mvdwnx1,x2 2890: 2986 b start 2895: 2986 b start 2891: 2987 kill c 0&x1 2896: 2987 kill c 0&x1 2892: 2988 sar x1 2897: 2988 sar x1 2893: 2989 mcm 4&x2 2898: 2989 mcm 4&x2 2894: 2990 mn 2899: 2990 mn 2895: 2991 mn 2900: 2991 mn 2896: 2992 sar x2 2901: 2992 sar x2 2897: 2993 b start 2902: 2993 b start 2898: 2994 label lca work1-4,state#6 2903: 2994 label lca work1-4,state#6 2899: 2995 sbr x3 2904: 2995 sbr x3 2900: 2996 sw 002&x3 2905: 2996 sw 002&x3 2901: 2997 b alpha 2906: 2997 b alpha 2902: 2998 b top 2907: 2998 b top 2903: 2999 worry b ifexp,work1-3,e 2908: 2999 worry b ifexp,work1-3,e 2904: 3000 bce do,work1-3,d 2909: 3000 bce do,work1-3,d 2905: 3001 bce inout,work1-3,5 2910: 3001 bce inout,work1-3,5 2906: 3002 bce inout,work1-3,6 2911: 3002 bce inout,work1-3,6 2907: 3003 bce pute,work1-3,t 2912: 3003 bce pute,work1-3,t 2908: 3004 bce sense,work1-3,w 2913: 3004 bce sense,work1-3,w 2909: 3005 bce sense,work1-3,k 2914: 3005 bce sense,work1-3,k 2910: 3006 b grab1 2915: 3006 b grab1 2911: 3007 b botm 2916: 3007 b botm 2912: 3008 pute b grab1 2917: 3008 pute b grab1 2913: 3009 bce over,000&x1,) rt paren 2918: 3009 bce over,000&x1,) rt paren 2914: 3010 bce syner,0&x1,} gm 2919: 3010 bce syner,0&x1,} gm 2915: 3011 sbr x1 2920: 3011 sbr x1 2916: 3012 b pute 2921: 3012 b pute 2917: 3013 over mn 000&x1 2922: 3013 over mn 000&x1 2918: 3014 sar x1 2923: 3014 sar x1 2919: 3015 b botm 2924: 3015 b botm 2920: 3016 inout mcw x1,load&3 2925: 3016 inout mcw x1,load&3 2921: 3017 find bce tpnam,000&x1,, comma 2926: 3017 find bce tpnam,000&x1,, comma 2922: 3018 bce syner,0&x1,} gm 2927: 3018 bce syner,0&x1,} gm 2923: 3019 sbr x1 2928: 3019 sbr x1 2924: 3020 b find 2929: 3020 b find 2925: 3021 tpnam sw 001&x1 2930: 3021 tpnam sw 001&x1 2926: 3022 mn 2931: 3022 mn 2927: 3023 sar x1 2932: 3023 sar x1 2928: 3024 b grab1 2933: 3024 b grab1 2929: 3025 load lca 000,000&x2 2934: 3025 load lca 000,000&x2 2930: 3026 sbr x2 2935: 3026 sbr x2 2931: 3027 cw 001&x2 2936: 3027 cw 001&x2 2932: 3028 b botm 2937: 3028 b botm 2933: 3029 sense mcw x1,load&3 2938: 3029 sense mcw x1,load&3 2934: 3030 find2 bce witch,000&x1,) rt paren 2939: 3030 find2 bce witch,000&x1,) rt paren 2935: 3031 bce syner,0&x1,} gm 2940: 3031 bce syner,0&x1,} gm 2936: 3032 sbr x1 2941: 3032 sbr x1 2937: 3033 b find2 2942: 3033 b find2 2938: 3034 witch sw 001&x1 2943: 3034 witch sw 001&x1 2939: 3035 mn 2944: 3035 mn 2940: 3036 sar x1 2945: 3036 sar x1 2941: 3037 b grab1 2946: 3037 b grab1 2942: 3038 mn 000&x1 2947: 3038 mn 000&x1 2943: 3039 sar x1 2948: 3039 sar x1 2944: 3040 bce syner,0&x1,} gm 2949: 3040 bce syner,0&x1,} gm 2945: 3041 b grab1 2950: 3041 b grab1 2946: 3042 comma lca @,@,000&x2 2951: 3042 comma lca @,@,000&x2 2947: 3043 sbr x2 2952: 3043 sbr x2 2948: 3044 cw 001&x2 2953: 3044 cw 001&x2 2949: 3045 b load 2954: 3045 b load 2950: 3046 do mcw x1,x3 2955: 3046 do mcw x1,x3 2951: 3047 varbl bce back2,0&x3,# 2956: 3047 varbl bce back2,0&x3,# 2952: 3048 sbr x3 2957: 3048 sbr x3 2953: 3049 b varbl 2958: 3049 b varbl 2954: 3050 back2 mcw 3&x3,svzn#1 2959: 3050 back2 mcw 3&x3,svzn#1 2955: 3051 mcw @,@,3&x3 2960: 3051 mcw @,@,3&x3 2956: 3052 sbr hex3#3,3&x3 2961: 3052 sbr hex3#3,3&x3 2957: 3053 b grab1 2962: 3053 b grab1 2958: 3054 c hex3,x1 2963: 3054 c hex3,x1 2959: 3055 bu syner 2964: 3055 bu syner 2960: 3056 mcw svzn,0&x1 2965: 3056 mcw svzn,0&x1 2961: 3057 lca @,@,000&x2 2966: 3057 lca @,@,000&x2 2962: 3058 sbr x2 2967: 3058 sbr x2 2963: 3059 cw 001&x2 2968: 3059 cw 001&x2 2964: 3060 b botm 2969: 3060 b botm 2965: 3061 ifexp mcw x1,load&3 2970: 3061 ifexp mcw x1,load&3 2966: 3062 rtpar bce nozo,000&x1,) 2971: 3062 rtpar bce nozo,000&x1,) 2967: 3063 bce syner,0&x1,} gm 2972: 3063 bce syner,0&x1,} gm 2968: 3064 sbr x1 2973: 3064 sbr x1 2969: 3065 b rtpar 2974: 3065 b rtpar 2970: 3066 nozo mn 000&x1 2975: 3066 nozo mn 000&x1 2971: 3067 sar x1 2976: 3067 sar x1 2972: 3068 bwz yeah,000&x1,2 no zone 2977: 3068 bwz yeah,000&x1,2 no zone 2973: 3069 b rtpar 2978: 3069 b rtpar 2974: 3070 yeah bce rtpar,0&x1,@ 2979: 3070 yeah bce rtpar,0&x1,@ 2975: 3071 sw 1&x1 2980: 3071 sw 1&x1 2976: 3072 b grab1 2981: 3072 b grab1 2977: 3073 mn 000&x1 2982: 3073 mn 000&x1 2978: 3074 sar x1 2983: 3074 sar x1 2979: 3075 bce syner,0&x1,} gm | 2984: 30754 bce badst,0&x1,} gm v3m4 2980: 3076 b grab1 | 2985: 30764 mn 0&x1 v3m4 2981: 3077 mn 000&x1 | 2986: 30774 sar x1 v3m4 2982: 3078 sar x1 | 2987: 30784 b grab1 v3m4 2983: 3079 bce syner,0&x1,} gm | 2988: 30794 bce badst,0&x1,} gm v3m4 2984: 3080 b grab1 2989: 3080 b grab1 2985: 3081 b comma 2990: 3081 b comma 2986: 3082 grab1 sbr exit2&3 2991: 3082 grab1 sbr exit2&3 2987: 3083 mcw x1,take&3 2992: 3083 mcw x1,take&3 2988: 3084 bwz loop,000&x1,2 no zone 2993: 3084 bwz loop,000&x1,2 no zone 2989: 3085 b badst 2994: 3085 b badst 2990: 3086 loop mn 000&x1 2995: 3086 loop mn 000&x1 2991: 3087 sar x1 2996: 3087 sar x1 2992: 3088 bwz loop,000&x1,2 no zone 2997: 3088 bwz loop,000&x1,2 no zone 2993: 3089 fbceqsetwm,0&x1,,,},) comma,gm 2998: 3089 fbceqsetwm,0&x1,,,},) comma,gm 2994: 3090 b badst 2999: 3090 b badst 2995: 3091 setwm sw 1&x1 3000: 3091 setwm sw 1&x1 > 3001: 30911 sw mktst&1 v3m4 > 3002: 30912 mlc take&3,mktst&3 v3m4 > 3003: 30913 cw mktst&1 v3m4 > 3004: 30914mktst mlc 0,test v3m4 > 3005: 30915 b take,test5-5,: 5-8 v3m4 > 3006: 30916 mlc @:@,test5-5 5-8 v3m4 > 3007: 30917 b badst v3m4 > 3008: 30918test5 dcw @: @ 5-8, blank.... v3m4 2996: 3092 take lca 000,state 3009: 3092 take lca 000,state 2997: 3093 cw 001&x1 3010: 3093 cw 001&x1 2998: 3094 b alpha 3011: 3094 b alpha 2999: 3095 exit2 b 000 3012: 3095 exit2 b 000 3000: 3096 alpha sbr exit1&3 3013: 3096 alpha sbr exit1&3 3001: 3097 lca six0,place 3014: 3097 lca six0,place 3002: 3098 c six0,state 3015: 3098 c six0,state 3003: 3099 bu norm 3016: 3099 bu norm 3004: 3100 b set3 3017: 3100 b set3 3005: 3101 norm sbr x3,state&1 3018: 3101 norm sbr x3,state&1 3006: 3102 zero mn 000&x3 3019: 3102 zero mn 000&x3 3007: 3103 sar x3 3020: 3103 sar x3 3008: 3104 bce zero,000&x3,0 3021: 3104 bce zero,000&x3,0 3009: 3105 mcw 000&x3,place 3022: 3105 mcw 000&x3,place 3010: 3106 mcw @1@ 3023: 3106 mcw @1@ 3011: 3107 set3 sw place-1 3024: 3107 set3 sw place-1 3012: 3108 cw 3025: 3108 cw 3013: 3109 sw 3026: 3109 sw 3014: 3110 cw 3027: 3110 cw 3015: 3111 sw 3028: 3111 sw 3016: 3112 s @5050@,place 3029: 3112 s @5050@,place 3017: 3113 s 3030: 3113 s 3018: 3114 bwz try2,place,k b-bit 3031: 3114 bwz try2,place,k b-bit 3019: 3115 a @1@,place-5 3032: 3115 a @1@,place-5 3020: 3116 try2 bwz strip,place-2,k b-bit 3033: 3116 try2 bwz strip,place-2,k b-bit 3021: 3117 a @2@,place-5 3034: 3117 a @2@,place-5 3022: 3118 strip mz @z z z @,place set up for gener 3035: 3118 strip mz @z z z @,place set up for gener 3023: 3119 chain5 3036: 3119 chain5 3024: 3120 mcw x1,hex1 3037: 3120 mcw x1,hex1 3025: 3121 mcw &table-49,x1 3038: 3121 mcw &table-49,x1 3026: 3122 mcw &place,x3 3039: 3122 mcw &place,x3 3027: 3123 cool mcw 000&x3,gener&3 3040: 3123 cool mcw 000&x3,gener&3 3028: 3124 sar x3 3041: 3124 sar x3 3029: 3125 gener mcw 000,box modified and indexed by x1 3042: 3125 gener mcw 000,box modified and indexed by x1 3030: 3126 lca box,000&x2 3043: 3126 lca box,000&x2 3031: 3127 sbr x2 3044: 3127 sbr x2 3032: 3128 cw 001&x2 3045: 3128 cw 001&x2 3033: 3129 bwz cool,000&x3,2 no zone 3046: 3129 bwz cool,000&x3,2 no zone 3034: 3130 mcw hex1,x1 3047: 3130 mcw hex1,x1 3035: 3131 exit1 b 000 3048: 3131 exit1 b 000 3036: 3132 syner ftmsg13,statement number syntax,work1,25 3049: 3132 syner ftmsg13,statement number syntax,work1,25 3037: 3133 bw pmov,badsw 3050: 3133 bw pmov,badsw 3038: 3134 b err 3051: 3134 b err 3039: 3135 badst sw badsw 3052: 3135 badst sw badsw 3040: 3136 b syner 3053: 3136 b syner 3041: 3137 pmov mcm 1&x2 3054: 3137 pmov mcm 1&x2 3042: 3138 mn 3055: 3138 mn 3043: 3139 sar x2 3056: 3139 sar x2 3044: 3140 bce pmov,0&x2,| 3057: 3140 bce pmov,0&x2,| 3045: 3141 cw badsw 3058: 3141 cw badsw 3046: 3142 err mcm 4&x2 3059: 3142 err mcm 4&x2 3047: 3143 mn 3060: 3143 mn 3048: 3144 mn 3061: 3144 mn 3049: 3145 sar x2 3062: 3145 sar x2 3050: 3146 c 0&x1 3063: 3146 c 0&x1 3051: 3147 sar x1 3064: 3147 sar x1 3052: 3148 b start 3065: 3148 b start 3053: 3149 out fendxc,,,,tamrof,,tamr1t,tamrof one 3066: 3149 out fendxc,,,,tamrof,,tamr1t,tamrof one 3054: 3150 dcw @ @ 3067: 3150 dcw @ @ 3055: 3151 gm dc @}@ g-m 3068: 3151 gm dc @}@ g-m 3056: 3152 dc @.@ 3069: 3152 dc @.@ 3057: 3153 place dcw @ @ 3070: 3153 place dcw @ @ 3058: 3154 box dcw @ @ 3071: 3154 box dcw @ @ 3059: 3155 hex1 dcw @ @ 3072: 3155 hex1 dcw @ @ 3060: 3156 badsw dc #1 3073: 3156 badsw dc #1 3061: 3157 table dc @.")&$*-%#@?abcdefghi!jklmnopqr_/stuvwxyz0123456789@ 3074: 3157 table dc @.")&$*-%#@?abcdefghi!jklmnopqr_/stuvwxyz0123456789@ 3062: 3158 dc @.@ 3075: 3158 dc @.@ 3063: 3159 six0 dcw @000000@ 3076: 3159 six0 dcw @000000@ 3064: 3160 * & is 12-0 punch, - 11-0 punch .,0-7-8 r,11-7-8 3077: 3160 * & is 12-0 punch, - 11-0 punch .,0-7-8 r,11-7-8 3065: 3161 * no comma, record mark, or group mark in table 3078: 3161 * no comma, record mark, or group mark in table 3066: 3162 ltorg* 3079: 3162 ltorg* 3067: 3163 dcw @}@ system group mark 3080: 3163 dcw @}@ system group mark 3068: 3164 xfr initl 3081: 3164 xfr initl 3069: 3165 job 1401 Fortran tamrof phase one format specs 50233 3082: 3165 job 1401 Fortran tamrof phase one format specs 50233 3070: 3166 fbegntamrof one,x1,r,x2,,x3,r,t,xxx 3083: 3166 fbegntamrof one,x1,r,x2,,x3,r,t,xxx 3071: 3167 * 3084: 3167 * 3072: 3168 nxbtm equ 83 3085: 3168 nxbtm equ 83 3073: 3169 * 3086: 3169 * 3074: 3170 org xbegin 3087: 3170 org xbegin 3075: 3171 klobr fquit 3088: 3171 klobr fquit 3076: 3172 ckbit dcw @;@ 11-6-8 3089: 3172 ckbit dcw @;@ 11-6-8 3077: 3173 hex3 dcw #3 3090: 3173 hex3 dcw #3 3078: 3174 code dcw #4 3091: 3174 code dcw #4 3079: 3175 * error message routine 3092: 3175 * error message routine 3080: 3176 * 3093: 3176 * 3081: 3177 error equ 206 3094: 3177 error equ 206 3082: 3178 prntn equ 250 3095: 3178 prntn equ 250 3083: 3179 * 3096: 3179 * 3084: 3180 getst sbr gstxt&3 3097: 3180 getst sbr gstxt&3 3085: 3181 forms 3098: 3181 forms 3086: 3182 cs 332 3099: 3182 cs 332 3087: 3183 cs 3100: 3183 cs 3088: 3184 sw failsw 3101: 3184 sw failsw 3089: 3185 mn code,prntn 3102: 3185 mn code,prntn 3090: 3186 chain2 3103: 3186 chain2 3091: 3187 mcw @statement @ 3104: 3187 mcw @statement @ 3092: 3188 mcw @error@, error-1 3105: 3188 mcw @error@, error-1 3093: 3189 gstxt b xxx 3106: 3189 gstxt b xxx 3094: 3190 * 3107: 3190 * 3095: 3191 ltorg* 3108: 3191 ltorg* 3096: 3192 * 3109: 3192 * 3097: 3193 tamrof cs 1&x2 3110: 3193 tamrof cs 1&x2 3098: 3194 sbr x1 3111: 3194 sbr x1 3099: 3195 sw gm1 3112: 3195 sw gm1 3100: 3196 clr cs 0&x1 3113: 3196 clr cs 0&x1 3101: 3197 sbr x1 3114: 3197 sbr x1 3102: 3198 c x1, &tamr1 3115: 3198 c x1, &tamr1 3103: 3199 bu clr 3116: 3199 bu clr 3104: 3200 lca gm1, tamax&1 3117: 3200 lca gm1, tamax&1 3105: 3201 sbr x1, tamax&2 3118: 3201 sbr x1, tamax&2 3106: 3202 sbr x2, 2&x2 3119: 3202 sbr x2, 2&x2 3107: 3203 mcw @.@, 96 3120: 3203 mcw @.@, 96 3108: 3204 sw iosw#1 3121: 3204 sw iosw#1 3109: 3205 chknd mcw nxbtm, x3 3122: 3205 chknd mcw nxbtm, x3 3110: 3206 sbr x3, 1&x3 3123: 3206 sbr x3, 1&x3 3111: 3207 c x3,x2 3124: 3207 c x3,x2 3112: 3208 be fini 3125: 3208 be fini 3113: 3209 cw dblsw#1 3126: 3209 cw dblsw#1 3114: 3210 mn 0&x2 3127: 3210 mn 0&x2 3115: 3211 sar x3 3128: 3211 sar x3 3116: 3212 mcw ckbit 3129: 3212 mcw ckbit 3117: 3213 mvup2 movupx2,x1,,,| 3130: 3213 mvup2 movupx2,x1,,,| 3118: 3214 bw both,dblsw 3131: 3214 bw both,dblsw 3119: 3215 sw dblsw 3132: 3215 sw dblsw 3120: 3216 b mvup2 3133: 3216 b mvup2 3121: 3217 both mn 0&x1 3134: 3217 both mn 0&x1 3122: 3218 mn 3135: 3218 mn 3123: 3219 sar x3 3136: 3219 sar x3 3124: 3220 sbr mkfmt&6 3137: 3220 sbr mkfmt&6 3125: 3221 mcw 0&x3, code 3138: 3221 mcw 0&x3, code 3126: 3222 sar x3 3139: 3222 sar x3 3127: 3223 b ckfmt, code-3, f 3140: 3223 b ckfmt, code-3, f 3128: 3224 mcw code-3, *&8 3141: 3224 mcw code-3, *&8 3129: 3225 bce yesio, @56ulp@, x 3142: 3225 bce yesio, @56ulp@, x 3130: 3226 chain4 3143: 3226 chain4 3131: 3227 b chknd 3144: 3227 b chknd 3132: 3228 fini mn 0&x1 3145: 3228 fini mn 0&x1 3133: 3229 mn 3146: 3229 mn 3134: 3230 sar x1 3147: 3230 sar x1 3135: 3231 mcw lstio, x2 3148: 3231 mcw lstio, x2 3136: 3232 mcw nxbtm, x3 3149: 3232 mcw nxbtm, x3 3137: 3233 mcw @ @, 0&x3 3150: 3233 mcw @ @, 0&x3 3138: 3234 mcw 0&x3 3151: 3234 mcw 0&x3 3139: 3235 mcw ckbit, 0&x3 3152: 3235 mcw ckbit, 0&x3 3140: 3236 fendxc,gm1,,tamrof,,tamrof,tamax,tamrof 2 3153: 3236 fendxc,gm1,,tamrof,,tamrof,tamax,tamrof 2 3141: 3237 * 3154: 3237 * 3142: 3238 yesio mz @a@, 3&x3 3155: 3238 yesio mz @a@, 3&x3 3143: 3239 cw iosw 3156: 3239 cw iosw 3144: 3240 mn 0&x1 3157: 3240 mn 0&x1 3145: 3241 mn 3158: 3241 mn 3146: 3242 sar lstio#3 3159: 3242 sar lstio#3 3147: 3243 b chknd 3160: 3243 b chknd 3148: 3244 * 3161: 3244 * 3149: 3245 ckfmt mcw @ @, 96 3162: 3245 ckfmt mcw @ @, 96 3150: 3246 bw unref, iosw 3163: 3246 bw unref, iosw 3151: 3247 bce unref, 0&x3,} gmwm 3164: 3247 bce unref, 0&x3,} gmwm 3152: 3248 mcw 0&x3, fbox#3 3165: 3248 mcw 0&x3, fbox#3 3153: 3249 mcw lstio, x3 3166: 3249 mcw lstio, x3 3154: 3250 ruio bwz iotyp, 0&x3, b 3167: 3250 ruio bwz iotyp, 0&x3, b 3155: 3251 bwz 3168: 3251 bwz 3156: 3252 unref ftmsg14,unreferenced format,code,21,nofail 3169: 3252 unref ftmsg14,unreferenced format,code,21,nofail 3157: 3253 mkfmt mz @a@, xxx 3170: 3253 mkfmt mz @a@, xxx 3158: 3254 b chknd 3171: 3254 b chknd 3159: 3255 iotyp c 0&x3 3172: 3255 iotyp c 0&x3 3160: 3256 sar x3 3173: 3256 sar x3 3161: 3257 c 0&x3, fbox 3174: 3257 c 0&x3, fbox 3162: 3258 be chknd 3175: 3258 be chknd 3163: 3259 c 0&x3 3176: 3259 c 0&x3 3164: 3260 sar x3 3177: 3260 sar x3 3165: 3261 b ruio 3178: 3261 b ruio 3166: 3262 * 3179: 3262 * 3167: 3263 ltorg* 3180: 3263 ltorg* 3168: 3264 gm1 dcw @}@ system and work gm 3181: 3264 gm1 dcw @}@ system and work gm 3169: 3265 org *&x00 3182: 3265 org *&x00 3170: 3266 tamr1 equ * 3183: 3266 tamr1 equ * 3171: 3267 xfr tamrof 3184: 3267 xfr tamrof 3172: 3268 job 1401 Fortran tamrof two 50243 3185: 3268 job 1401 Fortran tamrof two 50243 3173: 3269 110 dcw @tamrof 2@ 3186: 3269 110 dcw @tamrof 2@ 3174: 3270 * 3187: 3270 * 3175: 3271 xl2 equ x2 3188: 3271 xl2 equ x2 3176: 3272 xl3 equ x3 3189: 3272 xl3 equ x3 3177: 3273 org tamrof 3190: 3273 org tamrof 3178: 3274 * 3191: 3274 * 3179: 3275 phse2 bce end2, 96, . 3192: 3275 phse2 bce end2, 96, . 3180: 3276 mcw x2, iobgn&6 3193: 3276 mcw x2, iobgn&6 3181: 3277 retrn sbr x2, 2&x1 3194: 3277 retrn sbr x2, 2&x1 3182: 3278 lca @ @ 3195: 3278 lca @ @ 3183: 3279 mcw 0&x1, code 3196: 3279 mcw 0&x1, code 3184: 3280 bce mor, code-3, f 3197: 3280 bce mor, code-3, f 3185: 3281 end2 fendxc,gm2,,xbegin,phse1x,xbegin,sys2,listr1 3198: 3281 end2 fendxc,gm2,,xbegin,phse1x,xbegin,sys2,listr1 3186: 3282 mor c 0&x1 3199: 3282 mor c 0&x1 3187: 3283 sar x1 3200: 3283 sar x1 3188: 3284 sbr compl&6 3201: 3284 sbr compl&6 3189: 3285 mcw 4&x1, fmtno#3 3202: 3285 mcw 4&x1, fmtno#3 3190: 3286 sw sw1#1 3203: 3286 sw sw1#1 3191: 3287 cw parsw#1 3204: 3287 cw parsw#1 3192: 3288 za &1, nctr 3205: 3288 za &1, nctr 3193: 3289 bce ersig, 0&x1, ) q. first char right paren 3206: 3289 bce ersig, 0&x1, ) q. first char right paren 3194: 3290 mcw x2,scnbx#3 3207: 3290 mcw x2,scnbx#3 3195: 3291 b bgin 3208: 3291 b bgin 3196: 3292 * 3209: 3292 * 3197: 3293 compl sbr x1, xxx 3210: 3293 compl sbr x1, xxx 3198: 3294 setn za &1, nctr#3 3211: 3294 setn za &1, nctr#3 3199: 3295 comrt bce rtpar,0&x1, ) 3212: 3295 comrt bce rtpar,0&x1, ) 3200: 3296 sbr compl&6 3213: 3296 sbr compl&6 3201: 3297 bce lfpar, 0&x1,% 3214: 3297 bce lfpar, 0&x1,% 3202: 3298 fbceqarit, 0&x1,i,f,e 3215: 3298 fbceqarit, 0&x1,i,f,e 3203: 3299 bce arit,0&x1,a 3216: 3299 bce arit,0&x1,a 3204: 3300 fbceqpget, 0&x1, &,- 3217: 3300 fbceqpget, 0&x1, &,- 3205: 3301 bce slash,0&x1,@ 3218: 3301 bce slash,0&x1,@ 3206: 3302 c 0&x1, @z@ 3219: 3302 c 0&x1, @z@ 3207: 3303 bl mv2n 3220: 3303 bl mv2n 3208: 3304 bl putn 3221: 3304 bl putn 3209: 3305 bw ersig, sw1 3222: 3305 bw ersig, sw1 3210: 3306 bce hnot, 0&x1, h 3223: 3306 bce hnot, 0&x1, h 3211: 3307 sbr x1 3224: 3307 sbr x1 3212: 3308 bce xnot, 1&x1, x 3225: 3308 bce xnot, 1&x1, x 3213: 3309 bce pnot, 1&x1, p 3226: 3309 bce pnot, 1&x1, p 3214: 3310 * 3227: 3310 * 3215: 3311 ersig b getst 3228: 3311 ersig b getst 3216: 3312 mcw @15 - format syntax@,error&17 3229: 3312 mcw @15 - format syntax@,error&17 3217: 3313 errwt w 3230: 3313 errwt w 3218: 3314 mz @a@,code 3231: 3314 mz @a@,code 3219: 3315 b finis 3232: 3315 b finis 3220: 3316 * 3233: 3316 * 3221: 3317 xnot sw 8&x2 3234: 3317 xnot sw 8&x2 3222: 3318 sbr x2 3235: 3318 sbr x2 3223: 3319 lca kx 3236: 3319 lca kx 3224: 3320 mn nctr, 0&x2 3237: 3320 mn nctr, 0&x2 3225: 3321 mn 3238: 3321 mn 3226: 3322 mn 3239: 3322 mn 3227: 3323 b mknd 3240: 3323 b mknd 3228: 3324 * 3241: 3324 * 3229: 3325 hnot sw 5&x2 3242: 3325 hnot sw 5&x2 3230: 3326 cw 3243: 3326 cw 3231: 3327 sbr x2 3244: 3327 sbr x2 3232: 3328 lca kh, 1&x2 3245: 3328 lca kh, 1&x2 3233: 3329 s &1, nctr 3246: 3329 s &1, nctr 3234: 3330 bm ersig, nctr 3247: 3330 bm ersig, nctr 3235: 3331 mn 0&x1 3248: 3331 mn 0&x1 3236: 3332 sar x1 3249: 3332 sar x1 3237: 3333 flip mn 0&x1, 2&x2 3250: 3333 flip mn 0&x1, 2&x2 3238: 3334 sbr x2 3251: 3334 sbr x2 3239: 3335 mz 0&x1, 1&x2 3252: 3335 mz 0&x1, 1&x2 3240: 3336 sar x1 3253: 3336 sar x1 3241: 3337 sbr compl&6 3254: 3337 sbr compl&6 3242: 3338 cw 2&x2 3255: 3338 cw 2&x2 3243: 3339 s &1, nctr 3256: 3339 s &1, nctr 3244: 3340 bce hlerr,0&x1,} gm 3257: 3340 bce hlerr,0&x1,} gm 3245: 3341 bwz flip, nctr, b 3258: 3341 bwz flip, nctr, b 3246: 3342 bx2b2 sbr x2,1&x2 3259: 3342 bx2b2 sbr x2,1&x2 3247: 3343 b mknd 3260: 3343 b mknd 3248: 3344 hlerr b getst 3261: 3344 hlerr b getst 3249: 3345 mcw @45 - hollerith count@,error &25 3262: 3345 mcw @45 - hollerith count@,error &25 3250: 3346 w bx2b2 3263: 3346 w bx2b2 3251: 3347 * 3264: 3347 * 3252: 3348 pget mz 0&x1, nctr 3265: 3348 pget mz 0&x1, nctr 3253: 3349 sar x1 3266: 3349 sar x1 3254: 3350 b mv2n 3267: 3350 b mv2n 3255: 3351 c x3,@020@ 3268: 3351 c x3,@020@ 3256: 3352 bl ersig 3269: 3352 bl ersig 3257: 3353 mn x3, nctr 3270: 3353 mn x3, nctr 3258: 3354 mn 3271: 3354 mn 3259: 3355 c 0&x1, @p@ 3272: 3355 c 0&x1, @p@ 3260: 3356 sar compl&6 3273: 3356 sar compl&6 3261: 3357 sbr x1 3274: 3357 sbr x1 3262: 3358 bu ersig 3275: 3358 bu ersig 3263: 3359 * 3276: 3359 * 3264: 3360 pnot sbr x2, 7&x2 3277: 3360 pnot sbr x2, 7&x2 3265: 3361 lca nctr 3278: 3361 lca nctr 3266: 3362 lca kp 3279: 3362 lca kp 3267: 3363 b mknd 3280: 3363 b mknd 3268: 3364 * 3281: 3364 * 3269: 3365 lfpar bw parer, parsw 3282: 3365 lfpar bw parer, parsw 3270: 3366 sw parsw 3283: 3366 sw parsw 3271: 3367 bgin sw 8&x2 3284: 3367 bgin sw 8&x2 3272: 3368 sbr x2 3285: 3368 sbr x2 3273: 3369 cw urfsw 3286: 3369 cw urfsw 3274: 3370 lca nctr,0&x2 3287: 3370 lca nctr,0&x2 3275: 3371 lca kleft 3288: 3371 lca kleft 3276: 3372 set1 sw sw1 3289: 3372 set1 sw sw1 3277: 3373 b compl 3290: 3373 b compl 3278: 3374 * 3291: 3374 * 3279: 3375 rtpar mn 0&x1 3292: 3375 rtpar mn 0&x1 3280: 3376 sar compl&6 3293: 3376 sar compl&6 3281: 3377 sbr *&7 3294: 3377 sbr *&7 3282: 3378 bce eostm, xxx, } gmwm 3295: 3378 bce eostm, xxx, } gmwm 3283: 3379 bw parok, parsw 3296: 3379 bw parok, parsw 3284: 3380 parer b getst 3297: 3380 parer b getst 3285: 3381 mcw @16 - parenthesis error@,error&22 3298: 3381 mcw @16 - parenthesis error@,error&22 3286: 3382 b errwt 3299: 3382 b errwt 3287: 3383 * 3300: 3383 * 3288: 3384 parok cw parsw 3301: 3384 parok cw parsw 3289: 3385 sw 5&x2 3302: 3385 sw 5&x2 3290: 3386 sbr x2 3303: 3386 sbr x2 3291: 3387 lca krite 3304: 3387 lca krite 3292: 3388 mn 0&x1 3305: 3388 mn 0&x1 3293: 3389 sar x1 3306: 3389 sar x1 3294: 3390 b mknd 3307: 3390 b mknd 3295: 3391 * 3308: 3391 * 3296: 3392 eostm cw 5&x2 3309: 3392 eostm cw 5&x2 3297: 3393 sbr x2 3310: 3393 sbr x2 3298: 3394 lca keoj 3311: 3394 lca keoj 3299: 3395 bw parer, parsw 3312: 3395 bw parer, parsw 3300: 3396 b finis 3313: 3396 b finis 3301: 3397 * 3314: 3397 * 3302: 3398 slash bw *&5,sw1 3315: 3398 slash bw *&5,sw1 3303: 3399 b ersig 3316: 3399 b ersig 3304: 3400 sw 5&x2 3317: 3400 sw 5&x2 3305: 3401 sbr x2 3318: 3401 sbr x2 3306: 3402 lca kline 3319: 3402 lca kline 3307: 3403 b compl 3320: 3403 b compl 3308: 3404 * 3321: 3404 * 3309: 3405 arit sw 5&x2 3322: 3405 arit sw 5&x2 3310: 3406 lca karit 3323: 3406 lca karit 3311: 3407 mvrpt lca nctr,8&x2 3324: 3407 mvrpt lca nctr,8&x2 3312: 3408 mcw 0&x1 3325: 3408 mcw 0&x1 3313: 3409 sar x1 3326: 3409 sar x1 3314: 3410 b mv2n 3327: 3410 b mv2n 3315: 3411 za xl3, wctr#3 3328: 3411 za xl3, wctr#3 3316: 3412 sw iexit&4 3329: 3412 sw iexit&4 3317: 3413 bce clri, 5&x2, f 3330: 3413 bce clri, 5&x2, f 3318: 3314 fbceqnosub, 5&x2, i, a 3331: 3314 fbceqnosub, 5&x2, i, a 3319: 3315 s &4, wctr 3332: 3315 s &4, wctr 3320: 3316 clri cw iexit&4 3333: 3316 clri cw iexit&4 3321: 3417 c 0&x1, @.@ 3334: 3417 c 0&x1, @.@ 3322: 3418 sar x1 3335: 3418 sar x1 3323: 3419 bu ersig 3336: 3419 bu ersig 3324: 3420 b mv2n 3337: 3420 b mv2n 3325: 3421 s xl3, wctr 3338: 3421 s xl3, wctr 3326: 3422 bm einpt,wctr | 3339: 34224 bm teste,wctr v3m4 3327: 3423 nosub bce *&8, 5&x2, f 3340: 3423 nosub bce *&8, 5&x2, f 3328: 3424 a &4, x3 3341: 3424 a &4, x3 3329: 3425 here sbr x2,11&x2 3342: 3425 here sbr x2,11&x2 3330: 3426 mz *-4,wctr 3343: 3426 mz *-4,wctr 3331: 3427 lca wctr,0&x2 3344: 3427 lca wctr,0&x2 3332: 3428 iexit bce ckzro, *-7, c 3345: 3428 iexit bce ckzro, *-7, c 3333: 3429 sbr xl2, 3&x2 3346: 3429 sbr xl2, 3&x2 3334: 3430 lca xl3 3347: 3430 lca xl3 3335: 3431 ckzro bm ersig,wctr 3348: 3431 ckzro bm ersig,wctr 3336: 3432 mknd sw sw1 3349: 3432 mknd sw sw1 3337: 3433 lk4cm c 0&x1,@,@ 3350: 3433 lk4cm c 0&x1,@,@ 3338: 3434 sar compl&6 3351: 3434 sar compl&6 3339: 3435 sbr x1 3352: 3435 sbr x1 3340: 3436 be lk4cm 3353: 3436 be lk4cm 3341: 3437 sbr x1,1&x1 3354: 3437 sbr x1,1&x1 3342: 3438 b setn 3355: 3438 b setn 3343: 3439 einpt a xl3,wctr 3356: 3439 einpt a xl3,wctr 3344: 3440 a @4@,wctr 3357: 3440 a @4@,wctr 3345: 3441 mn wctr,xl3 3358: 3441 mn wctr,xl3 3346: 3442 mn 3359: 3442 mn 3347: 3443 mn 3360: 3443 mn 3348: 3444 mcw @000@,wctr 3361: 3444 mcw @000@,wctr 3349: 3445 b here 3362: 3445 b here 3350: 3446 * 3363: 3446 * 3351: 3447 mv2n sbr mv2xt&3 3364: 3447 mv2n sbr mv2xt&3 3352: 3448 s xl3&1 3365: 3448 s xl3&1 3353: 3449 c 0&x1, @0@ 3366: 3449 c 0&x1, @0@ 3354: 3450 bh ersig 3367: 3450 bh ersig 3355: 3451 mvdig mn 0&x1, xl3 3368: 3451 mvdig mn 0&x1, xl3 3356: 3452 sar x1 3369: 3452 sar x1 3357: 3453 c 0&x1, @0@ 3370: 3453 c 0&x1, @0@ 3358: 3454 bh chkn 3371: 3454 bh chkn 3359: 3455 c xl3,@133@ 3372: 3455 c xl3,@133@ 3360: 3456 bl ersig 3373: 3456 bl ersig 3361: 3457 mn xl3-1, xl3-2 3374: 3457 mn xl3-1, xl3-2 3362: 3458 mn xl3, xl3-1 3375: 3458 mn xl3, xl3-1 3363: 3459 b mvdig 3376: 3459 b mvdig 3364: 3460 * 3377: 3460 * 3365: 3461 chkn c @134@, xl3 3378: 3461 chkn c @134@, xl3 3366: 3462 bh ersig 3379: 3462 bh ersig 3367: 3463 be ersig 3380: 3463 be ersig 3368: 3464 mv2xt b xxx 3381: 3464 mv2xt b xxx 3369: 3465 * 3382: 3465 * 3370: *teste bce einpt, 5&x2, e | 3383: 34651teste bce einpt, 5&x2, e v3m4 3371: * b ersig | 3384: 34652 b ersig v3m4 3372: 3466 * 3385: 3466 * 3373: 3467 putn za xl3, nctr 3386: 3467 putn za xl3, nctr 3374: 3468 sw bceq&7 3387: 3468 sw bceq&7 3375: 3469 mcw 0&x1, bceq&7 3388: 3469 mcw 0&x1, bceq&7 3376: 3470 cw bceq&7, sw1 3389: 3470 cw bceq&7, sw1 3377: 3471 bceq bce comrt, @paxhife%@, x 3390: 3471 bceq bce comrt, @paxhife%@, x 3378: 3472 chain7 3391: 3472 chain7 3379: 3473 b ersig 3392: 3473 b ersig 3380: 3474 * 3393: 3474 * 3381: 3475 finis mcw nxbtm, x3 3394: 3475 finis mcw nxbtm, x3 3382: 3476 bwz setx2, code, b 3395: 3476 bwz setx2, code, b 3383: 3477 c 0&x3,ckbit 3396: 3477 c 0&x3,ckbit 3384: 3478 bu klobr 3397: 3478 bu klobr 3385: 3479 mvdwn lca 0&x2,0&x3 3398: 3479 mvdwn lca 0&x2,0&x3 3386: 3480 sar x2 3399: 3480 sar x2 3387: 3481 c 0&x3 3400: 3481 c 0&x3 3388: 3482 sar x3 3401: 3482 sar x3 3389: 3483 cw 1&x2 3402: 3483 cw 1&x2 3390: 3484 c x2,scnbx 3403: 3484 c x2,scnbx 3391: 3485 bu mvdwn 3404: 3485 bu mvdwn 3392: 3486 sbr hex3, 0&x3 3405: 3486 sbr hex3, 0&x3 3393: 3487 cw 0&x2 3406: 3487 cw 0&x2 3394: 3488 cw 3407: 3488 cw 3395: 3489 mcw 3408: 3489 mcw 3396: 3490 sar x2 3409: 3490 sar x2 3397: 3491 cw 1&x2 3410: 3491 cw 1&x2 3398: 3492 bw mv2gm,urfsw 3411: 3492 bw mv2gm,urfsw 3399: 3493 bce mv2gm,iobgn&5, blank 3412: 3493 bce mv2gm,iobgn&5, blank 3400: 3494 iobgn sbr x2, xxx 3413: 3494 iobgn sbr x2, xxx 3401: 3495 cw refsw#1 3414: 3495 cw refsw#1 3402: 3496 sbr mvadr&6, 1&x3 3415: 3496 sbr mvadr&6, 1&x3 3403: 3497 repls mn 0&x2 3416: 3497 repls mn 0&x2 3404: 3498 chain2 3417: 3498 chain2 3405: 3499 sar x3 3418: 3499 sar x3 3406: 3500 mn 0&x3, *&15 3419: 3500 mn 0&x3, *&15 3407: 3501 mz 0&x3, *&8 3420: 3501 mz 0&x3, *&8 3408: 3502 bce iowk, @56ulp@, x 3421: 3502 bce iowk, @56ulp@, x 3409: 3503 chain4 3422: 3503 chain4 3410: 3504 bw ndrpl, refsw 3423: 3504 bw ndrpl, refsw 3411: 3505 b getst 3424: 3505 b getst 3412: 3506 mcw @17 - doubly defined format@,error&26 3425: 3506 mcw @17 - doubly defined format@,error&26 3413: 3507 w 3426: 3507 w 3414: 3508 b fbad 3427: 3508 b fbad 3415: 3509 ndrpl mcw hex3, x3 3428: 3509 ndrpl mcw hex3, x3 3416: 3510 bwz fbad, code, b 3429: 3510 bwz fbad, code, b 3417: 3511 fokay mcw x3, nxbtm 3430: 3511 fokay mcw x3, nxbtm 3418: 3512 mcw ckbit, 0&x3 3431: 3512 mcw ckbit, 0&x3 3419: 3513 mv2gm c 0&x1 3432: 3513 mv2gm c 0&x1 3420: 3514 sar x1 3433: 3514 sar x1 3421: 3515 b retrn 3434: 3515 b retrn 3422: 3516 setx2 mcw x2, x3 3435: 3516 setx2 mcw x2, x3 3423: 3517 sw urfsw#1 3436: 3517 sw urfsw#1 3424: 3518 b mvdwn 3437: 3518 b mvdwn 3425: 3519 fbad mcw nxbtm, x3 3438: 3519 fbad mcw nxbtm, x3 3426: 3520 lca @.@,0&x3 3439: 3520 lca @.@,0&x3 3427: 3521 sbr x3 3440: 3521 sbr x3 3428: 3522 b fokay 3441: 3522 b fokay 3429: 3523 iowk c 0&x3 3442: 3523 iowk c 0&x3 3430: 3524 sar x2 3443: 3524 sar x2 3431: 3525 bwz *&5, 2&x3, b 3444: 3525 bwz *&5, 2&x3, b 3432: 3526 b noswt 3445: 3526 b noswt 3433: 3527 c 0&x2, fmtno 3446: 3527 c 0&x2, fmtno 3434: 3528 bu noswt 3447: 3528 bu noswt 3435: 3529 sw refsw 3448: 3529 sw refsw 3436: 3530 ma macfls,mvadr&6 3449: 3530 ma macfls,mvadr&6 3437: 3531 mvadr sbr 0&x2, xxx 3450: 3531 mvadr sbr 0&x2, xxx 3438: 3532 mz @ @, 2&x3 3451: 3532 mz @ @, 2&x3 3439: 3533 ma plusdf,mvadr&6 3452: 3533 ma plusdf,mvadr&6 3440: 3534 noswt c 0&x2 3453: 3534 noswt c 0&x2 3441: 3535 sar x2 3454: 3535 sar x2 3442: 3536 b repls 3455: 3536 b repls 3443: 3537 * 3456: 3537 * 3444: 3538 kh dcw @bl28@ hollr change if obj format reassembled 3457: 3538 kh dcw @bl28@ hollr change if obj format reassembled 3445: 3539 kx dcw @h0990&0@ 3458: 3539 kx dcw @h0990&0@ 3446: 3540 kleft dcw @bj52@ openr change if obj format reassembled 3459: 3540 kleft dcw @bj52@ openr change if obj format reassembled 3447: 3541 krite dcw @bj85@ clspr change if obj format reassembled 3460: 3541 krite dcw @bj85@ clspr change if obj format reassembled 3448: 3542 kline dcw @bk08@ ndlin change if obj format reassembled 3461: 3542 kline dcw @bk08@ ndlin change if obj format reassembled 3449: 3543 karit dcw @bl85@ getw change if obj format reassembled 3462: 3543 karit dcw @bl85@ getw change if obj format reassembled 3450: 3544 keoj dcw @bk23@ eoj1 change if obj format reassembled 3463: 3544 keoj dcw @bk23@ eoj1 change if obj format reassembled 3451: 3545 kp dcw @bl10@ scale change if obj format reassembled 3464: 3545 kp dcw @bl10@ scale change if obj format reassembled 3452: 3546 ltorg* 3465: 3546 ltorg* 3453: 3547 org *&x00 3466: 3547 org *&x00 3454: 3548 org *-1 3467: 3548 org *-1 3455: 3549 sys2 dcw @}@ system group mark 3468: 3549 sys2 dcw @}@ system group mark 3456: 3550 tamax dcw #1 3469: 3550 tamax dcw #1 3457: 3551 xfr phse2 3470: 3551 xfr phse2 3458: 3552 job 1401 Fortran lists phase one 50253 3471: 3552 job 1401 Fortran lists phase one 50253 3459: 3553 fbegnlistr1,x1,,x2,r,x3,r,x 3472: 3553 fbegnlistr1,x1,,x2,r,x3,r,x 3460: 3554 nxbtm equ 083 3473: 3554 nxbtm equ 083 3461: 3555 * checks for duplicate lists 3474: 3555 * checks for duplicate lists 3462: 3556 org xbegin 3475: 3556 org xbegin 3463: 3557 code dcw #4 3476: 3557 code dcw #4 3464: 3558 abotm dcw #3 3477: 3558 abotm dcw #3 3465: 3559 phse1 mcw x1,abotm 3478: 3559 phse1 mcw x1,abotm 3466: 3560 mcw nxbtm,x2 3479: 3560 mcw nxbtm,x2 3467: 3561 lca @.@,0&x2 3480: 3561 lca @.@,0&x2 3468: 3562 cw 0&x2 3481: 3562 cw 0&x2 3469: 3563 sbr nxbtm 3482: 3563 sbr nxbtm 3470: 3564 sbr period,0&x2 3483: 3564 sbr period,0&x2 3471: 3565 ma macfls,period 3484: 3565 ma macfls,period 3472: 3566 start bce dun,000&x1, blank 3485: 3566 start bce dun,000&x1, blank 3473: 3567 mcw 000&x1,code 3486: 3567 mcw 000&x1,code 3474: 3568 mcw x1,alter&6 3487: 3568 mcw x1,alter&6 3475: 3569 mcw code-3,*&8 3488: 3569 mcw code-3,*&8 3476: 3570 bce list,@5613lup@,0 3489: 3570 bce list,@5613lup@,0 3477: 3571 chain6 3490: 3571 chain6 3478: 3572 b dun 3491: 3572 b dun 3479: 3573 list c 000&x1 3492: 3573 list c 000&x1 3480: 3574 sar x1 3493: 3574 sar x1 3481: 3575 b comma 3494: 3575 b comma 3482: 3576 cw xdoini 3495: 3576 cw xdoini 3483: 3577 bce next1,parama&10,l 3496: 3577 bce next1,parama&10,l 3484: 3578 cw xoblst 3497: 3578 cw xoblst 3485: 3579 next1 sw 000&x1 3498: 3579 next1 sw 000&x1 3486: 3580 sar x1 3499: 3580 sar x1 3487: 3581 mcw abotm,x3 3500: 3581 mcw abotm,x3 3488: 3582 rudup c 0&x3 3501: 3582 rudup c 0&x3 3489: 3583 c 3502: 3583 c 3490: 3584 sar x3 3503: 3584 sar x3 3491: 3585 bce rudup,1&x3,} gm 3504: 3585 bce rudup,1&x3,} gm 3492: 3586 c x1,x3 3505: 3586 c x1,x3 3493: 3587 bu comp 3506: 3587 bu comp 3494: 3588 pass c 000&x1 3507: 3588 pass c 000&x1 3495: 3589 sar x1 3508: 3589 sar x1 3496: 3590 b start 3509: 3590 b start 3497: 3591 comp c 000&x1,000&x3 3510: 3591 comp c 000&x1,000&x3 3498: 3592 bu reset 3511: 3592 bu reset 3499: 3593 c 000&x3,000&x1 3512: 3593 c 000&x3,000&x1 3500: 3594 bu reset 3513: 3594 bu reset 3501: 3595 bwz wrong,0&x1,1 3514: 3595 bwz wrong,0&x1,1 3502: 3596 bwz 3515: 3596 bwz 3503: 3597 bwz 3516: 3597 bwz 3504: 3598 lca x3,000&x1 3517: 3598 lca x3,000&x1 3505: 3599 sbr x1 3518: 3599 sbr x1 3506: 3600 b pass 3519: 3600 b pass 3507: 3601 reset c 000&x3 3520: 3601 reset c 000&x3 3508: 3602 sar x3 3521: 3602 sar x3 3509: 3603 bce rudup,1&x3,} gm 3522: 3603 bce rudup,1&x3,} gm 3510: 3604 b reset 3523: 3604 b reset 3511: 3605 comma sbr excma&3 3524: 3605 comma sbr excma&3 3512: 3606 ckng bw pass,0&x1 3525: 3606 ckng bw pass,0&x1 3513: 3607 excma bce 000,000&x1,, 3526: 3607 excma bce 000,000&x1,, 3514: 3608 sbr x1 3527: 3608 sbr x1 3515: 3609 b ckng 3528: 3609 b ckng 3516: 3610 wrong ftmsg18,list syntax,code,13 3529: 3610 wrong ftmsg18,list syntax,code,13 3517: 3611 mcw @/@,code-3 3530: 3611 mcw @/@,code-3 3518: 3612 alter mcw code,000 3531: 3612 alter mcw code,000 3519: 3613 b pass 3532: 3613 b pass 3520: 3614 dun sw 000&x1 3533: 3614 dun sw 000&x1 3521: 3615 mcw abotm,x1 3534: 3615 mcw abotm,x1 3522: 3616 fendxc,,,phse1,,phse1,sys1,listr two 3535: 3616 fendxc,,,phse1,,phse1,sys1,listr two 3523: 3617 ltorg* 3536: 3617 ltorg* 3524: 3618 sys1 dcw @}@ system group mark 3537: 3618 sys1 dcw @}@ system group mark 3525: 3619 xfr phse1 3538: 3619 xfr phse1 3526: 3620 job 1401 Fortran lists phase two 50263 3539: 3620 job 1401 Fortran lists phase two 50263 3527: 3621 * reorders, squeezes, error checks, and stores list 3540: 3621 * reorders, squeezes, error checks, and stores list 3528: 3622 110 dcw @listr two@ 3541: 3622 110 dcw @listr two@ 3529: 3623 org phse1 3542: 3623 org phse1 3530: 3624 phse2 mcw nxbtm,x2 3543: 3624 phse2 mcw nxbtm,x2 3531: 3625 go bwz out,000&x1,1 3544: 3625 go bwz out,000&x1,1 3532: 3626 mcw x2,hex2#3 3545: 3626 mcw x2,hex2#3 3533: 3627 mcw 000&x1,code 3546: 3627 mcw 000&x1,code 3534: 3628 mcw x1,emasq&6 3547: 3628 mcw x1,emasq&6 3535: 3629 c 000&x1 3548: 3629 c 000&x1 3536: 3630 sar x1 3549: 3630 sar x1 3537: 3631 sbr x3 3550: 3631 sbr x3 3538: 3632 slip c 0&x3 3551: 3632 slip c 0&x3 3539: 3633 sar x3 3552: 3633 sar x3 3540: 3634 bce *&5,1&x3,} gm 3553: 3634 bce *&5,1&x3,} gm 3541: 3635 b slip 3554: 3635 b slip 3542: 3636 sbr nxguy&6,0&x3 3555: 3636 sbr nxguy&6,0&x3 3543: 3637 c 000&x1 3556: 3637 c 000&x1 3544: 3638 c 3557: 3638 c 3545: 3639 sar hex1#3 3558: 3639 sar hex1#3 3546: 3640 bce hex1x,0&x1,, 3559: 3640 bce hex1x,0&x1,, 3547: 3641 chain6 3560: 3641 chain6 3548: 3642 b cktyp 3561: 3642 b cktyp 3549: 3643 hex1x mcw hex1,x1 3562: 3643 hex1x mcw hex1,x1 3550: 3644 bce new,001&x1,} group mk 3563: 3644 bce new,001&x1,} group mk 3551: 3645 mcw 003&x1,x3 duplicates were chained 3564: 3645 mcw 003&x1,x3 duplicates were chained 3552: 3646 bwz error,001&x3,1 duplicate was bad statement 3565: 3646 bwz error,001&x3,1 duplicate was bad statement 3553: 3647 lca 001&x3,004&x1 3566: 3647 lca 001&x3,004&x1 3554: 3648 cw 3567: 3648 cw 3555: 3649 b nxguy 3568: 3649 b nxguy 3556: 3650 new bce cklst,2&x3,, allow last char of comma 3569: 3650 new bce cklst,2&x3,, allow last char of comma 3557: 3651 sbr x3 3570: 3651 sbr x3 3558: 3652 sndpt lca @.@,000&x2 3571: 3652 sndpt lca @.@,000&x2 3559: 3653 sbr x2 3572: 3653 sbr x2 3560: 3654 cw 001&x2 3573: 3654 cw 001&x2 3561: 3655 s count#1 3574: 3655 s count#1 3562: 3656 main sbr x3,001&x3 3575: 3656 main sbr x3,001&x3 3563: 3657 bce rtpar,000&x3,) 3576: 3657 bce rtpar,000&x3,) 3564: 3658 bce dollr,000&x3,$ 3577: 3658 bce dollr,000&x3,$ 3565: 3659 b ruadr 3578: 3659 b ruadr 3566: 3660 lca adrss,000&x2 3579: 3660 lca adrss,000&x2 3567: 3661 sbr x2 3580: 3661 sbr x2 3568: 3662 bce ckwmk,0&x3,, 3581: 3662 bce ckwmk,0&x3,, 3569: 3663 bce lfpar,0&x3,% 3582: 3663 bce lfpar,0&x3,% 3570: 3664 b ruadr 3583: 3664 b ruadr 3571: 3665 lca adrss,000&x2 3584: 3665 lca adrss,000&x2 3572: 3666 lca @,@ 3585: 3666 lca @,@ 3573: 3667 sbr x2 3586: 3667 sbr x2 3574: 3668 cw 5&x2 3587: 3668 cw 5&x2 3575: 3669 cw 001&x2 3588: 3669 cw 001&x2 3576: 3670 mz 3&x2,svzn#1 3589: 3670 mz 3&x2,svzn#1 3577: 3671 mcw x1,sv1#3 3590: 3671 mcw x1,sv1#3 3578: 3672 za parama&4,hold5 3591: 3672 za parama&4,hold5 3579: 3673 bwz dun2,3&x2,k 3592: 3673 bwz dun2,3&x2,k 3580: 3674 mcw parama&6,hold5#5 3593: 3674 mcw parama&6,hold5#5 3581: 3675 dun2 s &16000,hold5 3594: 3675 dun2 s &16000,hold5 3582: 3676 fpackhold5,hold3,x1 3595: 3676 fpackhold5,hold3,x1 3583: 3677 mcw hold3#3,x1 3596: 3677 mcw hold3#3,x1 3584: 3678 mcw 4&x2,sbr4&6 3597: 3678 mcw 4&x2,sbr4&6 3585: 3679 mz *-6,sbr4&5 3598: 3679 mz *-6,sbr4&5 3586: 3680 sbr4 sbr 4&x2,0 3599: 3680 sbr4 sbr 4&x2,0 3587: 3681 mz svzn,3&x2 3600: 3681 mz svzn,3&x2 3588: 3682 mcw sv1,x1 3601: 3682 mcw sv1,x1 3589: 3683 mz *-4,6&x2 3602: 3683 mz *-4,6&x2 3590: 3684 cklfp bce lfpar,0&x3,% 3603: 3684 cklfp bce lfpar,0&x3,% 3591: 3685 ckcom c 000&x3,@,@ 3604: 3685 ckcom c 000&x3,@,@ 3592: 3686 bu error 3605: 3686 bu error 3593: 3687 ckwmk bwz fnliz,000&x3,1 word mk 3606: 3687 ckwmk bwz fnliz,000&x3,1 word mk 3594: 3688 b main 3607: 3688 b main 3595: 3689 rtpar bce setup,count,? plus zero 3608: 3689 rtpar bce setup,count,? plus zero 3596: 3690 puts mcw x1,save1#3 3609: 3690 puts mcw x1,save1#3 3597: 3691 lca @.@,000&x1 3610: 3691 lca @.@,000&x1 3598: 3692 sbr x1 3611: 3692 sbr x1 3599: 3693 a &1,count 3612: 3693 a &1,count 3600: 3694 bce error,count,d allow for nest three deep 3613: 3694 bce error,count,d allow for nest three deep 3601: 3695 b putmi 3614: 3695 b putmi 3602: 3696 c 000&x3,@,@ 3615: 3696 c 000&x3,@,@ 3603: 3697 bu error 3616: 3697 bu error 3604: 3698 b putmi 3617: 3698 b putmi 3605: 3699 bce putmi,000&x3,, 3618: 3699 bce putmi,000&x3,, 3606: 3700 c 000&x3,@#@ 3619: 3700 c 000&x3,@#@ 3607: 3701 bu error 3620: 3701 bu error 3608: 3702 b putmi 3621: 3702 b putmi 3609: 3703 sbr 000&x1,001&x2 3622: 3703 sbr 000&x1,001&x2 3610: 3704 cw 000&x1 3623: 3704 cw 000&x1 3611: 3705 cw 3624: 3705 cw 3612: 3706 sw 3625: 3706 sw 3613: 3707 sar x1 3626: 3707 sar x1 3614: 3708 mcw x3,hex3#3 3627: 3708 mcw x3,hex3#3 3615: 3709 mn 000&x3 3628: 3709 mn 000&x3 3616: 3710 sar x3 3629: 3710 sar x3 3617: 3711 loopy bce inner,002&x3,% lfpar 3630: 3711 loopy bce inner,002&x3,% lfpar 3618: 3712 bce outer,002&x3,) rtpar 3631: 3712 bce outer,002&x3,) rtpar 3619: 3713 bwz error,002&x3,1 3632: 3713 bwz error,002&x3,1 3620: 3714 sbr x3 3633: 3714 sbr x3 3621: 3715 b loopy 3634: 3715 b loopy 3622: 3716 inner lca @)@,000&x2 3635: 3716 inner lca @)@,000&x2 3623: 3717 sbr x2 3636: 3717 sbr x2 3624: 3718 cw 001&x2 3637: 3718 cw 001&x2 3625: 3719 b restr 3638: 3719 b restr 3626: 3720 outer lca @# @,000&x2 3 blanks 3639: 3720 outer lca @# @,000&x2 3 blanks 3627: 3721 sbr x2 3640: 3721 sbr x2 3628: 3722 sw 002&x2 3641: 3722 sw 002&x2 3629: 3723 cw 3642: 3723 cw 3630: 3724 restr mcw hex3,x3 3643: 3724 restr mcw hex3,x3 3631: 3725 b ckcom 3644: 3725 b ckcom 3632: 3726 lfpar s &1,count 3645: 3726 lfpar s &1,count 3633: 3727 bwz error,count,k 3646: 3727 bwz error,count,k 3634: 3728 ma macfls,3&x1 3647: 3728 ma macfls,3&x1 3635: 3729 lca 003&x1,000&x2 3648: 3729 lca 003&x1,000&x2 3636: 3730 lca 6&x1 3649: 3730 lca 6&x1 3637: 3731 sbr x2 3650: 3731 sbr x2 3638: 3732 bce m3is1,013&x1,. 3651: 3732 bce m3is1,013&x1,. 3639: 3733 lca 015&x1,000&x2 3652: 3733 lca 015&x1,000&x2 3640: 3734 sbr x2 3653: 3734 sbr x2 3641: 3735 sndm2 lca 012&x1,000&x2 3654: 3735 sndm2 lca 012&x1,000&x2 3642: 3736 lca 3655: 3736 lca 3643: 3737 lca @%@ 3656: 3737 lca @%@ 3644: 3738 sbr x2 3657: 3738 sbr x2 3645: 3739 cw 001&x2 3658: 3739 cw 001&x2 3646: 3740 swtch nop swoff 3659: 3740 swtch nop swoff 3647: 3741 mcw 003&x1,x1 3660: 3741 mcw 003&x1,x1 3648: 3742 mn 000&x1 3661: 3742 mn 000&x1 3649: 3743 sar x1 3662: 3743 sar x1 3650: 3744 ma plusdf,x1 3663: 3744 ma plusdf,x1 3651: 3745 ma macfls,x2 3664: 3745 ma macfls,x2 3652: 3746 sbr 0&x1,1&x2 3665: 3746 sbr 0&x1,1&x2 3653: 3747 ma plusdf,x2 3666: 3747 ma plusdf,x2 3654: 3748 bump sbr x3,001&x3 3667: 3748 bump sbr x3,001&x3 3655: 3749 mcw save1,x1 3668: 3749 mcw save1,x1 3656: 3750 b cklfp 3669: 3750 b cklfp 3657: 3751 swoff mcw @n@,swtch 3670: 3751 swoff mcw @n@,swtch 3658: 3752 b bump 3671: 3752 b bump 3659: 3753 m3is1 lca adone,000&x2 obj time addr of fix pt one 3672: 3753 m3is1 lca adone,000&x2 obj time addr of fix pt one 3660: 3754 sbr x2 3673: 3754 sbr x2 3661: 3755 b sndm2 3674: 3755 b sndm2 3662: 3756 setup sbr x1,space#48 3675: 3756 setup sbr x1,space#48 3663: 3757 mcw @b@,swtch 3676: 3757 mcw @b@,swtch 3664: 3758 b puts 3677: 3758 b puts 3665: 3759 putmi sbr expmi&3 3678: 3759 putmi sbr expmi&3 3666: 3760 sbr x3,001&x3 3679: 3760 sbr x3,001&x3 3667: 3761 b ruadr 3680: 3761 b ruadr 3668: 3762 lca adrss,000&x1 3681: 3762 lca adrss,000&x1 3669: 3763 sbr x1 3682: 3763 sbr x1 3670: 3764 mz *-4,2&x1 3683: 3764 mz *-4,2&x1 3671: 3765 bwz error,000&x3,1 3684: 3765 bwz error,000&x3,1 3672: 3766 expmi b 000 3685: 3766 expmi b 000 3673: 3767 fnliz c count,@?@ plus zero 3686: 3767 fnliz c count,@?@ plus zero 3674: 3768 bu error 3687: 3768 bu error 3675: 3769 cw 000&x3 3688: 3769 cw 000&x3 3676: 3770 cw 3689: 3770 cw 3677: 3771 sw 3690: 3771 sw 3678: 3772 sar x3 3691: 3772 sar x3 3679: 3773 sbr 003&x3,001&x2 3692: 3773 sbr 003&x3,001&x2 3680: 3774 ma macfls,3&x3 3693: 3774 ma macfls,3&x3 3681: 3775 b nxguy 3694: 3775 b nxguy 3682: 3776 dollr sw 0&x3 3695: 3776 dollr sw 0&x3 3683: 3777 sar x3 3696: 3777 sar x3 3684: 3778 sbr cw&3,1&x3 3697: 3778 sbr cw&3,1&x3 3685: 3779 loop bce ndolr,2&x3,$ 3698: 3779 loop bce ndolr,2&x3,$ 3686: 3780 sbr x3 3699: 3780 sbr x3 3687: 3781 b loop 3700: 3781 b loop 3688: 3782 ndolr lca 2&x3,0&x2 3701: 3782 ndolr lca 2&x3,0&x2 3689: 3783 sbr x2 3702: 3783 sbr x2 3690: 3784 cw 1&x2 3703: 3784 cw 1&x2 3691: 3785 sbr x3,3&x3 3704: 3785 sbr x3,3&x3 3692: 3786 cw cw 0 3705: 3786 cw cw 0 3693: 3787 b cklfp 3706: 3787 b cklfp 3694: 3788 cklst bwz rmvcm,2&x3,1 3707: 3788 cklst bwz rmvcm,2&x3,1 3695: 3789 sbr x3,2&x3 3708: 3789 sbr x3,2&x3 3696: 3790 b sndpt 3709: 3790 b sndpt 3697: 3791 rmvcm sw 3&x3 3710: 3791 rmvcm sw 3&x3 3698: 3792 cw 3711: 3792 cw 3699: 3793 cktyp fbceqerror,code-3,1,3 3712: 3793 cktyp fbceqerror,code-3,1,3 3700: 3794 b emasq 3713: 3794 b emasq 3701: 3795 ruadr sbr exrua&3 3714: 3795 ruadr sbr exrua&3 3702: 3796 mn 002&x3,exruk&7 3715: 3796 mn 002&x3,exruk&7 3703: 3797 b ruok 3716: 3797 b ruok 3704: 3798 mn 001&x3,exruk&7 3717: 3798 mn 001&x3,exruk&7 3705: 3799 b ruok 3718: 3799 b ruok 3706: 3800 mn 000&x3,exruk&7 3719: 3800 mn 000&x3,exruk&7 3707: 3801 b ruok 3720: 3801 b ruok 3708: 3802 mcw 002&x3,adrss#3 3721: 3802 mcw 002&x3,adrss#3 3709: 3803 sbr x3,003&x3 3722: 3803 sbr x3,003&x3 3710: 3804 exrua b 000 3723: 3804 exrua b 000 3711: 3805 ruok sbr exruk&3 3724: 3805 ruok sbr exruk&3 3712: 3806 exruk bce 000,@0123456789@,0 3725: 3806 exruk bce 000,@0123456789@,0 3713: 3807 chain9 3726: 3807 chain9 3714: 3808 b error 3727: 3808 b error 3715: 3809 error ftmsg47,bad list,code,10 3728: 3809 error ftmsg47,bad list,code,10 3716: 3810 mcw @/@,code-3 3729: 3810 mcw @/@,code-3 3717: 3811 emasq mcw code,000 3730: 3811 emasq mcw code,000 3718: 3812 mcw hex2,x2 3731: 3812 mcw hex2,x2 3719: 3813 nxguy sbr x1,0 3732: 3813 nxguy sbr x1,0 3720: 3814 b go 3733: 3814 b go 3721: 3815 out mcw abotm,x1 3734: 3815 out mcw abotm,x1 3722: 3816 fendxc,,,,,,sys2,listr tri 3735: 3816 fendxc,,,,,,sys2,listr tri 3723: 3817 org * 3736: 3817 org * 3724: ltorg* WVS: Autocoder shouldn't load incld at org 3737: ltorg* WVS: Autocoder shouldn't load incld at org 3725: 3818 sys2 dcw @}@ system group mark 3738: 3818 sys2 dcw @}@ system group mark 3726: 3819 adone equ oneadr 3739: 3819 adone equ oneadr 3727: 3820 xfr phse2 3740: 3820 xfr phse2 3728: 3821 job 1401 Fortran lists phase three 50273 3741: 3821 job 1401 Fortran lists phase three 50273 3729: 3822 110 dcw @listr tri@ 3742: 3822 110 dcw @listr tri@ 3730: 3823 * moves down program 3743: 3823 * moves down program 3731: 3824 org phse2 3744: 3824 org phse2 3732: 3825 phse3 mcw x2,nxbtm 3745: 3825 phse3 mcw x2,nxbtm 3733: 3826 sw gm 3746: 3826 sw gm 3734: 3827 lca gm,0&x2 3747: 3827 lca gm,0&x2 3735: 3828 sbr x2 3748: 3828 sbr x2 3736: 3829 begin bwz nolst,000&x1,1 3749: 3829 begin bwz nolst,000&x1,1 3737: 3830 b slide 3750: 3830 b slide 3738: 3831 b slide 3751: 3831 b slide 3739: 3832 bce begin,1&x2,} gm 3752: 3832 bce begin,1&x2,} gm 3740: 3833 cw 001&x2 3753: 3833 cw 001&x2 3741: 3834 c 0&x1 3754: 3834 c 0&x1 3742: 3835 sar x1 3755: 3835 sar x1 3743: 3836 sbr x1,001&x1 3756: 3836 sbr x1,001&x1 3744: 3837 b slide 3757: 3837 b slide 3745: 3838 b begin 3758: 3838 b begin 3746: 3839 nolst cw 000&x1 3759: 3839 nolst cw 000&x1 3747: 3840 rudun bce exph3,000&x1, blank 3760: 3840 rudun bce exph3,000&x1, blank 3748: 3841 b slide 3761: 3841 b slide 3749: 3842 b slide 3762: 3842 b slide 3750: 3843 b rudun 3763: 3843 b rudun 3751: 3844 slide sbr exsld&3 3764: 3844 slide sbr exsld&3 3752: 3845 mvdwnx1,x2 3765: 3845 mvdwnx1,x2 3753: 3846 exsld b 000 3766: 3846 exsld b 000 3754: 3847 exph3 fendxd,,,xbegin,phse2n,xbegin,sys3,stnum2 3767: 3847 exph3 fendxd,,,xbegin,phse2n,xbegin,sys3,stnum2 3755: 3848 dcw @ @ blank 3768: 3848 dcw @ @ blank 3756: 3849 gm dc @}@ group mark 3769: 3849 gm dc @}@ group mark 3757: 3850 ltorg* 3770: 3850 ltorg* 3758: 3851 sys3 dcw @}@ system group mark 3771: 3851 sys3 dcw @}@ system group mark 3759: 3852 xfr phse3 3772: 3852 xfr phse3 3760: 3853 job 1401 Fortran statement number definer two 50283 3773: 3853 job 1401 Fortran statement number definer two 50283 3761: 3854 fbegnstnum two,x1,,x2,,x3,r,n 3774: 3854 fbegnstnum two,x1,,x2,,x3,r,n 3762: 3855 org xbegin 3775: 3855 org xbegin 3763: 3856 base dcw #3 3776: 3856 base dcw #3 3764: 3857 max dcw #4 3777: 3857 max dcw #4 3765: 3858 dc #2 3778: 3858 dc #2 3766: 3859 uplim dcw #3 3779: 3859 uplim dcw #3 3767: 3860 nomo dcw #3 3780: 3860 nomo dcw #3 3768: 3861 mvup sbr exmvp&3 3781: 3861 mvup sbr exmvp&3 3769: 3862 movupx2,x1,nomo,all,| 3782: 3862 movupx2,x1,nomo,all,| 3770: 3863 mn 000&x1 3783: 3863 mn 000&x1 3771: 3864 sar x1 3784: 3864 sar x1 3772: 3865 sbr x2 3785: 3865 sbr x2 3773: 3866 exmvp b 000 3786: 3866 exmvp b 000 3774: 3867 nxbtm equ 083 3787: 3867 nxbtm equ 083 3775: 3868 phse2 mcw nxbtm,x3 3788: 3868 phse2 mcw nxbtm,x3 3776: 3869 sbr nomo,1&x3 3789: 3869 sbr nomo,1&x3 3777: 3870 mcw x2,x3 3790: 3870 mcw x2,x3 3778: 3871 clr1 cs 000&x3 3791: 3871 clr1 cs 000&x3 3779: 3872 sbr x3 3792: 3872 sbr x3 3780: 3873 c x3,&sauce-1 3793: 3873 c x3,&sauce-1 3781: 3874 bu clr1 3794: 3874 bu clr1 3782: 3875 sbr x1,sauce-1 3795: 3875 sbr x1,sauce-1 3783: 3876 * shift source program up to compiler program 3796: 3876 * shift source program up to compiler program 3784: 3877 b mvup 3797: 3877 b mvup 3785: 3878 sbr base,5&x1 3798: 3878 sbr base,5&x1 3786: 3879 mn two9,base 3799: 3879 mn two9,base 3787: 3880 mn 3800: 3880 mn 3788: 3881 mcw nxbtm,x3 3801: 3881 mcw nxbtm,x3 3789: 3882 * clear balance of core 3802: 3882 * clear balance of core 3790: 3883 clr2 cs 000&x3 3803: 3883 clr2 cs 000&x3 3791: 3884 sbr x3 3804: 3884 sbr x3 3792: 3885 c x3,base 3805: 3885 c x3,base 3793: 3886 bu clr2 3806: 3886 bu clr2 3794: 3887 mcw @<@,0&x3 12-6-8 3807: 3887 mcw @<@,0&x3 12-6-8 3795: 3888 * divide rest of core for tables ratio 3 to 7 3808: 3888 * divide rest of core for tables ratio 3 to 7 3796: 3889 mcw nxbtm,loc 3809: 3889 mcw nxbtm,loc 3797: 3890 b unpak 3810: 3890 b unpak 3798: 3891 mcw num#5,max&2 3811: 3891 mcw num#5,max&2 3799: 3892 mcw base,loc 3812: 3892 mcw base,loc 3800: 3893 b unpak 3813: 3893 b unpak 3801: 3894 s num,max&2 3814: 3894 s num,max&2 3802: 3895 a max&2 3815: 3895 a max&2 3803: 3896 a max&2 3816: 3896 a max&2 3804: 3897 a max&2 3817: 3897 a max&2 3805: 3898 a max&2 3818: 3898 a max&2 3806: 3899 a max,accum#6 3819: 3899 a max,accum#6 3807: 3900 a accum 3820: 3900 a accum 3808: 3901 a max,accum 3*max in accum 3821: 3901 a max,accum 3*max in accum 3809: 3902 a num,accum 3822: 3902 a num,accum 3810: 3903 mcw accum-3,x3 3823: 3903 mcw accum-3,x3 3811: 3904 a x3 3824: 3904 a x3 3812: 3905 mz zones&x3,accum-2 3825: 3905 mz zones&x3,accum-2 3813: 3906 mz zones&1&x3,accum 3826: 3906 mz zones&1&x3,accum 3814: 3907 mcw accum,x3 3827: 3907 mcw accum,x3 3815: 3908 sw 002&x3 3828: 3908 sw 002&x3 3816: 3909 mcw @<@ 12-6-8 3829: 3909 mcw @<@ 12-6-8 3817: 3910 sbr uplim 3830: 3910 sbr uplim 3818: 3911 fendxc,,,phse2,phse3,phse2,sauce-1,stnum tri 3831: 3911 fendxc,,,phse2,phse3,phse2,sauce-1,stnum tri 3819: 3912 unpak sbr exit&3 3832: 3912 unpak sbr exit&3 3820: 3913 mn loc,num 3833: 3913 mn loc,num 3821: 3914 mn 3834: 3914 mn 3822: 3915 mn 3835: 3915 mn 3823: 3916 mcw 3836: 3916 mcw 3824: 3917 mz loc,two9 3837: 3917 mz loc,two9 3825: 3918 mz loc-2,two9-1 3838: 3918 mz loc-2,two9-1 3826: 3919 sbr x3,zones-3 3839: 3919 sbr x3,zones-3 3827: 3920 comp c 004&x3,two9 3840: 3920 comp c 004&x3,two9 3828: 3921 sar x3 3841: 3921 sar x3 3829: 3922 a &1,num-3 3842: 3922 a &1,num-3 3830: 3923 bu comp 3843: 3923 bu comp 3831: 3924 mz @ @,num-3 3844: 3924 mz @ @,num-3 3832: 3925 exit b 0 3845: 3925 exit b 0 3833: 3926 loc dcw @0j @ 3846: 3926 loc dcw @0j @ 3834: 3927 two9 dcw @99@ 3847: 3927 two9 dcw @99@ 3835: 3928 zones dc @9@ 3848: 3928 zones dc @9@ 3836: 3929 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 3849: 3929 dc @9z9r9i99zzzrziz9rzrrrir9iziriii@ 3837: 3930 ltorg* 3850: 3930 ltorg* 3838: 3931 dcw @}@ system group mark 3851: 3931 dcw @}@ system group mark 3839: 3932 xfr phse2 3852: 3932 xfr phse2 3840: 3933 job 1401 Fortran statement number phase three 50293 3853: 3933 job 1401 Fortran statement number phase three 50293 3841: 3934 110 dcw @stnum tri@ 3854: 3934 110 dcw @stnum tri@ 3842: 3935 org phse2 3855: 3935 org phse2 3843: 3936 slide sbr exsld&3 3856: 3936 slide sbr exsld&3 3844: 3937 mvdwnx1,x2 3857: 3937 mvdwnx1,x2 3845: 3938 exsld b 000 3858: 3938 exsld b 000 3846: 3939 randm sbr exrdm&3 3859: 3939 randm sbr exrdm&3 3847: 3940 mcw 000&x1,alph 3860: 3940 mcw 000&x1,alph 3848: 3941 sar hex1 3861: 3941 sar hex1 3849: 3942 mn alph,mod 3862: 3942 mn alph,mod 3850: 3943 chain3 blank in alph-3 implies 3 digit no. in mod 3863: 3943 chain3 blank in alph-3 implies 3 digit no. in mod 3851: 3944 subtr s max,mod 3864: 3944 subtr s max,mod 3852: 3945 bwz subtr,mod,b 3865: 3945 bwz subtr,mod,b 3853: 3946 a max,mod 3866: 3946 a max,mod 3854: 3947 mz *-4,mod 3867: 3947 mz *-4,mod 3855: 3948 mcw mod,x1 3868: 3948 mcw mod,x1 3856: 3949 a x1 3869: 3949 a x1 3857: 3950 a mod,x1 3870: 3950 a mod,x1 3858: 3951 bump nop 000 initialized by phse3 3871: 3951 bump nop 000 initialized by phse3 3859: 3952 sar x1 3872: 3952 sar x1 3860: 3953 exrdm b 000 3873: 3953 exrdm b 000 3861: 3954 dcw #1 3874: 3954 dcw #1 3862: 3955 alph dcw #3 3875: 3955 alph dcw #3 3863: 3956 hex1 dcw #3 3876: 3956 hex1 dcw #3 3864: 3957 mod dcw #4 3877: 3957 mod dcw #4 3865: 3958 code dcw #4 3878: 3958 code dcw #4 3866: 3959 next dcw #3 3879: 3959 next dcw #3 3867: 3960 full fquit 3880: 3960 full fquit 3868: 3961 out mcw save1,x1 3881: 3961 out mcw save1,x1 3869: 3962 fendxc,,,phse3,,phse3,sys3,stnum 4 3882: 3962 fendxc,,,phse3,,phse3,sys3,stnum 4 3870: 3963 save1 dcw #3 3883: 3963 save1 dcw #3 3871: 3964 ltorg* 3884: 3964 ltorg* 3872: 3965 phse3 mcw nxbtm,next 3885: 3965 phse3 mcw nxbtm,next 3873: 3966 mcw nxbtm,adtbll 3886: 3966 mcw nxbtm,adtbll 3874: 3967 mcw base,bump&3 3887: 3967 mcw base,bump&3 3875: 3968 mz @s@,bump&2 3888: 3968 mz @s@,bump&2 3876: 3969 sbr nomo,2&x2 3889: 3969 sbr nomo,2&x2 3877: 3970 mcw x1,save1 3890: 3970 mcw x1,save1 3878: 3971 rucgt mcw 000&x1,code 3891: 3971 rucgt mcw 000&x1,code 3879: 3972 bce cgoto,code-3,t 3892: 3972 bce cgoto,code-3,t 3880: 3973 mcw @b@,swch 3893: 3973 mcw @b@,swch 3881: 3974 mcw next,nxbtm 3894: 3974 mcw next,nxbtm 3882: 3975 c x1,x2 3895: 3975 c x1,x2 3883: 3976 be *&5 3896: 3976 be *&5 3884: 3977 b mvup 3897: 3977 b mvup 3885: 3978 norml bce out,000&x1, blank 3898: 3978 norml bce out,000&x1, blank 3886: 3979 mcw 000&x1,code 3899: 3979 mcw 000&x1,code 3887: 3980 b slide 3900: 3980 b slide 3888: 3981 mcw code-3,*&8 3901: 3981 mcw code-3,*&8 3889: 3982 bce worry,@wtdegk@,0 3902: 3982 bce worry,@wtdegk@,0 3890: 3983 chain5 3903: 3983 chain5 3891: 3984 btmnl b slide 3904: 3984 btmnl b slide 3892: 3985 b norml 3905: 3985 b norml 3893: 3986 worry b randm 3906: 3986 worry b randm 3894: 3987 b chain 3907: 3987 b chain 3895: 3988 mcw x3,000&x2 3908: 3988 mcw x3,000&x2 3896: 3989 sbr x2 3909: 3989 sbr x2 3897: 3990 mcw hex1,x1 3910: 3990 mcw hex1,x1 3898: 3991 bce btmnl,000&x1,} group mk 3911: 3991 bce btmnl,000&x1,} group mk 3899: 3992 bce btmnl,000&x1,, 3912: 3992 bce btmnl,000&x1,, 3900: 3993 b worry 3913: 3993 b worry 3901: 3994 cgoto c 0&x1 3914: 3994 cgoto c 0&x1 3902: 3995 mn 3915: 3995 mn 3903: 3996 sar x3 3916: 3996 sar x3 3904: 3997 s count#3 3917: 3997 s count#3 3905: 3998 rtlft mn 000&x3 3918: 3998 rtlft mn 000&x3 3906: 3999 mn 3919: 3999 mn 3907: 4000 mn 3920: 4000 mn 3908: 4001 sar x3 3921: 4001 sar x3 3909: 4002 a @1@,count 3922: 4002 a @1@,count 3910: 4003 bce fork,001&x3,, 3923: 4003 bce fork,001&x3,, 3911: 4004 b rtlft 3924: 4004 b rtlft 3912: 4005 fork s &11,count 3925: 4005 fork s &11,count 3913: 4006 bwz big,count,b plus 3926: 4006 bwz big,count,b plus 3914: 4007 b slide 3927: 4007 b slide 3915: 4008 btmcg b slide 3928: 4008 btmcg b slide 3916: 4009 b rucgt 3929: 4009 b rucgt 3917: 4010 big mn 000&x1 3930: 4010 big mn 000&x1 3918: 4011 mn 3931: 4011 mn 3919: 4012 mn 3932: 4012 mn 3920: 4013 mcw @h@ 3933: 4013 mcw @h@ 3921: 4014 b slide 3934: 4014 b slide 3922: 4015 mcw x3,hex3#3 3935: 4015 mcw x3,hex3#3 3923: 4016 mn 000&x3 3936: 4016 mn 000&x3 3924: 4017 mn 3937: 4017 mn 3925: 4018 sar x1 3938: 4018 sar x1 3926: 4019 a &9,count 3939: 4019 a &9,count 3927: 4020 loop sbr x1,6&x1 3940: 4020 loop sbr x1,6&x1 3928: 4021 b randm 3941: 4021 b randm 3929: 4022 b chain 3942: 4022 b chain 3930: 4023 mcw hex1,x1 3943: 4023 mcw hex1,x1 3931: 4024 bce headr,004&x1,} group mk 3944: 4024 bce headr,004&x1,} group mk 3932: 4025 b loop 3945: 4025 b loop 3933: 4026 headr mcw next,000&x2 3946: 4026 headr mcw next,000&x2 3934: 4027 mcw count 3947: 4027 mcw count 3935: 4028 sbr x2 3948: 4028 sbr x2 3936: 4029 mcw hex3,x1 3949: 4029 mcw hex3,x1 3937: 4030 b btmcg 3950: 4030 b btmcg 3938: 4031 chain sbr exchn&3 3951: 4031 chain sbr exchn&3 3939: 4032 mcw @n@,ovflw 3952: 4032 mcw @n@,ovflw 3940: 4033 again mcw 000&x1,x3 3953: 4033 again mcw 000&x1,x3 3941: 4034 sar x1 3954: 4034 sar x1 3942: 4035 bce new,003&x1, blank 3955: 4035 bce new,003&x1, blank 3943: 4036 bce ovflw,003&x1,< 12-6-8 alter stnum phse 1 3956: 4036 bce ovflw,003&x1,< 12-6-8 alter stnum phse 1 3944: 4037 c 000&x3,alph 3957: 4037 c 000&x3,alph 3945: 4038 bu again 3958: 4038 bu again 3946: 4039 swch nop exchn 3959: 4039 swch nop exchn 3947: 4040 mcw next,000&x3 3960: 4040 mcw next,000&x3 3948: 4041 sbr x3 3961: 4041 sbr x3 3949: 4042 mz @ A@,002&x3 blank 3962: 4042 mz @ A@,002&x3 blank 3950: 4043 cw dummy on A-oper, effective on B-oper 3963: 4043 cw dummy on A-oper, effective on B-oper 3951: 4044 new lca next,003&x1 3964: 4044 new lca next,003&x1 3952: 4045 mcw next,x3 3965: 4045 mcw next,x3 3953: 4046 bce full,000&x3,< 12-6-8 3966: 4046 bce full,000&x3,< 12-6-8 3954: 4047 b 3967: 4047 b 3955: 4048 b 3968: 4048 b 3956: 4049 lca alph,000&x3 3969: 4049 lca alph,000&x3 3957: 4050 sbr next 3970: 4050 sbr next 3958: 4051 exchn b 000 3971: 4051 exchn b 000 3959: 4052 ovflw nop full 3972: 4052 ovflw nop full 3960: 4053 mcw @b@,ovflw 3973: 4053 mcw @b@,ovflw 3961: 4054 mcw uplim,x1 3974: 4054 mcw uplim,x1 3962: 4055 b again 3975: 4055 b again 3963: 4056 ltorg* 3976: 4056 ltorg* 3964: 4057 sys3 dcw @}@ system group mark 3977: 4057 sys3 dcw @}@ system group mark 3965: 4058 org ndrith&x00 3978: 4058 org ndrith&x00 3966: 4059 org *-5 3979: 4059 org *-5 3967: 4060 dcw #5 3980: 4060 dcw #5 3968: 4061 sauce equ *&1 3981: 4061 sauce equ *&1 3969: 4062 xfr phse3 3982: 4062 xfr phse3 3970: 4063 job 1401 Fortran statement number phase four 50303 3983: 4063 job 1401 Fortran statement number phase four 50303 3971: 4064 110 dcw @stnum for@ 3984: 4064 110 dcw @stnum for@ 3972: 4065 org phse3 3985: 4065 org phse3 3973: 4066 phse4 lca @ @,000&x2 blank 3986: 4066 phse4 lca @ @,000&x2 blank 3974: 4067 sw gm 3987: 4067 sw gm 3975: 4068 mcw x1,x2 3988: 4068 mcw x1,x2 3976: 4069 start bce out1,0&x1, blank 3989: 4069 start bce out1,0&x1, blank 3977: 4070 mcw 000&x1,code 3990: 4070 mcw 000&x1,code 3978: 4071 sar x1 3991: 4071 sar x1 3979: 4072 bce nonum,000&x1,} group mk 3992: 4072 bce nonum,000&x1,} group mk 3980: 4073 b randm 3993: 4073 b randm 3981: 4074 mcw @n@,wrap 3994: 4074 mcw @n@,wrap 3982: 4075 nothr mcw 000&x1,x3 3995: 4075 nothr mcw 000&x1,x3 3983: 4076 sar x1 3996: 4076 sar x1 3984: 4077 bwz notyt,001&x1,1 word mk 3997: 4077 bwz notyt,001&x1,1 word mk 3985: 4078 bce wrap,003&x1,< 12-6-8 3998: 4078 bce wrap,003&x1,< 12-6-8 3986: 4079 bce unref,1&x1, blank 3999: 4079 bce unref,1&x1, blank 3987: 4080 c 003&x1,alph 4000: 4080 c 003&x1,alph 3988: 4081 bu nothr 4001: 4081 bu nothr 3989: 4082 b multy 4002: 4082 b multy 3990: 4083 notyt c 000&x3,alph 4003: 4083 notyt c 000&x3,alph 3991: 4084 bu nothr 4004: 4084 bu nothr 3992: 4085 mz code-1,zone#1 4005: 4085 mz code-1,zone#1 3993: 4086 mz *-4,code-1 4006: 4086 mz *-4,code-1 3994: 4087 mcw code,000&x3 4007: 4087 mcw code,000&x3 3995: 4088 sbr x3 4008: 4088 sbr x3 3996: 4089 cw 001&x3 4009: 4089 cw 001&x3 3997: 4090 mcw 003&x1,code 4010: 4090 mcw 003&x1,code 3998: 4091 mz zone,code-1 4011: 4091 mz zone,code-1 3999: 4092 mcw alph,003&x1 4012: 4092 mcw alph,003&x1 4000: 4093 cw 001&x1 4013: 4093 cw 001&x1 4001: 4094 hex2x mcw hex1,x1 4014: 4094 hex2x mcw hex1,x1 4002: 4095 botm sbr x1,4&x1 4015: 4095 botm sbr x1,4&x1 4003: 4096 mcw code 4016: 4096 mcw code 4004: 4097 b slide 4017: 4097 b slide 4005: 4098 b slide 4018: 4098 b slide 4006: 4099 b start 4019: 4099 b start 4007: 4100 wrap nop unref 4020: 4100 wrap nop unref 4008: 4101 mcw @b@,wrap 4021: 4101 mcw @b@,wrap 4009: 4102 mcw uplim,x1 4022: 4102 mcw uplim,x1 4010: 4103 b nothr 4023: 4103 b nothr 4011: 4104 unref ftmsg19,unreferenced stmt number,code,26,nofail 4024: 4104 unref ftmsg19,unreferenced stmt number,code,26,nofail 4012: 4105 b prnum 4025: 4105 b prnum 4013: 4106 multy ftmsg20,doubly defined stmt,code,21 4026: 4106 multy ftmsg20,doubly defined stmt,code,21 4014: 4107 b hex2x 4027: 4107 b hex2x 4015: 4108 out1 mcw next,x3 4028: 4108 out1 mcw next,x3 4016: 4109 lca gm,0&x3 4029: 4109 lca gm,0&x3 4017: 4110 sbr x3 4030: 4110 sbr x3 4018: 4111 sbr bsauce 4031: 4111 sbr bsauce 4019: 4112 cs 0&x2 4032: 4112 cs 0&x2 4020: 4113 mcw save1,x1 4033: 4113 mcw save1,x1 4021: 4114 sw 0&x2 4034: 4114 sw 0&x2 4022: 4115 fendxc,gm,,xbegin,xbegin,xbegin,sys4,stnum 5 4035: 4115 fendxc,gm,,xbegin,xbegin,xbegin,sys4,stnum 5 4023: 4116 prnum mcw hex1,x1 4036: 4116 prnum mcw hex1,x1 4024: 4117 nonum bce psudo,code-3,d 4037: 4117 nonum bce psudo,code-3,d 4025: 4118 b botm 4038: 4118 b botm 4026: 4119 psudo mcw next,x3 4039: 4119 psudo mcw next,x3 4027: 4120 mcw code,000&x3 4040: 4120 mcw code,000&x3 4028: 4121 sbr x3 4041: 4121 sbr x3 4029: 4122 bce full,000&x3,< 12-6-8 4042: 4122 bce full,000&x3,< 12-6-8 4030: 4123 mcw next,code 4043: 4123 mcw next,code 4031: 4124 sbr next,1&x3 4044: 4124 sbr next,1&x3 4032: 4125 b botm 4045: 4125 b botm 4033: 4126 ltorg* 4046: 4126 ltorg* 4034: 4127 gm dc @}@ gm 4047: 4127 gm dc @}@ gm 4035: 4128 sys4 dcw @}@ system group mark 4048: 4128 sys4 dcw @}@ system group mark 4036: 4129 xfr phse4 4049: 4129 xfr phse4 4037: 4130 job 1401 Fortran statement number phase five 50313 4050: 4130 job 1401 Fortran statement number phase five 50313 4038: 4131 fbegnstnum 5,x1,,x2,r,x3,,l 4051: 4131 fbegnstnum 5,x1,,x2,r,x3,,l 4039: 4132 org xbegin 4052: 4132 org xbegin 4040: 4133 initl mcw x3,hex3#3 4053: 4133 initl mcw x3,hex3#3 4041: 4134 mcw x1,hex1#3 4054: 4134 mcw x1,hex1#3 4042: 4135 c 0&x3 4055: 4135 c 0&x3 4043: 4136 sar x3 4056: 4136 sar x3 4044: 4137 cw 1&x3 4057: 4137 cw 1&x3 4045: 4138 mcw adtbl,x2 4058: 4138 mcw adtbl,x2 4046: 4139 c 000&x2 4059: 4139 c 000&x2 4047: 4140 sar x2 4060: 4140 sar x2 4048: 4141 c x2,hex3 4061: 4141 c x2,hex3 4049: 4142 be out 4062: 4142 be out 4050: 4143 mcw adtbl,cgbtm#3 4063: 4143 mcw adtbl,cgbtm#3 4051: 4144 start bwz out,000&x1,1 4064: 4144 start bwz out,000&x1,1 4052: 4145 mcw 000&x1,code#4 4065: 4145 mcw 000&x1,code#4 4053: 4146 c 000&x1 4066: 4146 c 000&x1 4054: 4147 sar x1 4067: 4147 sar x1 4055: 4148 mcw @ @,count#3 4068: 4148 mcw @ @,count#3 4056: 4149 bce worry,code-3,h 4069: 4149 bce worry,code-3,h 4057: 4150 mcw code-3,*&8 4070: 4150 mcw code-3,*&8 4058: 4151 bce rubad,@twedgk@,0 check 4071: 4151 bce rubad,@twedgk@,0 check 4059: 4152 chain5 4072: 4152 chain5 4060: 4153 skip c 000&x1 4073: 4153 skip c 000&x1 4061: 4154 sar x1 4074: 4154 sar x1 4062: 4155 b start 4075: 4155 b start 4063: 4156 worry mcw cgbtm,x3 4076: 4156 worry mcw cgbtm,x3 4064: 4157 ckext c 000&x1,x3 4077: 4157 ckext c 000&x1,x3 4065: 4158 be thru 4078: 4158 be thru 4066: 4159 mn 000&x3 4079: 4159 mn 000&x3 4067: 4160 mn 4080: 4160 mn 4068: 4161 mn 4081: 4161 mn 4069: 4162 sar x3 4082: 4162 sar x3 4070: 4163 sbr x2 4083: 4163 sbr x2 4071: 4164 chain bwz add1,001&x2,1 4084: 4164 chain bwz add1,001&x2,1 4072: 4165 bwz ckext,002&x2,2 4085: 4165 bwz ckext,002&x2,2 4073: 4166 mcw 003&x2,x2 4086: 4166 mcw 003&x2,x2 4074: 4167 mz @ @,x2-1 blank 4087: 4167 mz @ @,x2-1 blank 4075: 4168 mn 000&x2 4088: 4168 mn 000&x2 4076: 4169 mn 4089: 4169 mn 4077: 4170 mn 4090: 4170 mn 4078: 4171 sar x2 4091: 4171 sar x2 4079: 4172 b chain 4092: 4172 b chain 4080: 4173 thru mcw x3,cgbtm 4093: 4173 thru mcw x3,cgbtm 4081: 4174 dun bce skip,count, blank 4094: 4174 dun bce skip,count, blank 4082: 4175 bwz *&5,code,2 4095: 4175 bwz *&5,code,2 4083: 4176 b zone 4096: 4176 b zone 4084: 4177 bwz print,code-2,2 4097: 4177 bwz print,code-2,2 4085: 4178 zone mcw code,x3 4098: 4178 zone mcw code,x3 4086: 4179 mcw 000&x3,code 4099: 4179 mcw 000&x3,code 4087: 4180 print cs 299 4100: 4180 print cs 299 4088: 4181 sw failsw 4101: 4181 sw failsw 4089: 4182 mcw @error 21 -@,210 4102: 4182 mcw @error 21 -@,210 4090: 4183 mcw @undefined statement numbers, statement@,253 4103: 4183 mcw @undefined statement numbers, statement@,253 4091: 4184 mn code,257 4104: 4184 mn code,257 4092: 4185 mn 4105: 4185 mn 4093: 4186 mn 4106: 4186 mn 4094: 4187 mcs count,214 4107: 4187 mcs count,214 4095: 4188 c count,@001@ 4108: 4188 c count,@001@ 4096: 4189 bu *&8 4109: 4189 bu *&8 4097: 4190 mcw @, @,243 4110: 4190 mcw @, @,243 4098: 4191 w 4111: 4191 w 4099: 4192 forms 4112: 4192 forms 4100: 4193 b skip 4113: 4193 b skip 4101: 4194 add1 a @1@,count 4114: 4194 add1 a @1@,count 4102: 4195 b ckext 4115: 4195 b ckext 4103: 4196 rubad bwz dun,000&x1,1 4116: 4196 rubad bwz dun,000&x1,1 4104: 4197 bce dun,000&x1,, 4117: 4197 bce dun,000&x1,, 4105: 4198 mcw 000&x1,x3 4118: 4198 mcw 000&x1,x3 4106: 4199 sar x1 4119: 4199 sar x1 4107: 4200 mn 000&x3 4120: 4200 mn 000&x3 4108: 4201 mn 4121: 4201 mn 4109: 4202 sar x3 4122: 4202 sar x3 4110: 4203 bwz plus1,000&x3,1 4123: 4203 bwz plus1,000&x3,1 4111: 4204 b rubad 4124: 4204 b rubad 4112: 4205 plus1 a @1@,count 4125: 4205 plus1 a @1@,count 4113: 4206 b rubad 4126: 4206 b rubad 4114: 4207 out mcw hex1,x1 4127: 4207 out mcw hex1,x1 4115: 4208 mcw hex3,x3 4128: 4208 mcw hex3,x3 4116: 4209 fendxe,,,,,,sys5,i/o one 4129: 4209 fendxe,,,,,,sys5,i/o one 4117: 4210 ltorg* 4130: 4210 ltorg* 4118: 4211 sys5 dcw @}@ system group mark 4131: 4211 sys5 dcw @}@ system group mark 4119: 4212 xfr initl 4132: 4212 xfr initl 4120: 4213 job 1401 Fortran input/output phase one 50323 4133: 4213 job 1401 Fortran input/output phase one 50323 4121: 4214 fbegni/o one,x1,,x2,r,x3,,9 4134: 4214 fbegni/o one,x1,,x2,r,x3,,9 4122: 4215 org xbegin 4135: 4215 org xbegin 4123: 4216 begin sw gm1 4136: 4216 begin sw gm1 4124: 4217 start bce out2,0&x1, blank 4137: 4217 start bce out2,0&x1, blank 4125: 4218 lca 0&x1,code#5 4138: 4218 lca 0&x1,code#5 4126: 4219 cw xtpsw 4139: 4219 cw xtpsw 4127: 4220 sw code-3 4140: 4220 sw code-3 4128: 4221 mcw code-3,*&8 4141: 4221 mcw code-3,*&8 4129: 4222 bce iotyp,@1356lpu@,0 4142: 4222 bce iotyp,@1356lpu@,0 4130: 4223 chain6 4143: 4223 chain6 4131: 4224 out2 sbr x1,1&x1 4144: 4224 out2 sbr x1,1&x1 4132: 4225 mz x3,all9 4145: 4225 mz x3,all9 4133: 4226 mz 4146: 4226 mz 4134: 4227 mcw 4147: 4227 mcw 4135: 4228 mz x1,all91 4148: 4228 mz x1,all91 4136: 4229 mz 4149: 4229 mz 4137: 4230 mcw 4150: 4230 mcw 4138: 4231 c all9,all91 4151: 4231 c all9,all91 4139: 4232 be sngl 4152: 4232 be sngl 4140: 4233 clr cs 0&x3 4153: 4233 clr cs 0&x3 4141: 4234 sbr clr&3 4154: 4234 sbr clr&3 4142: 4235 c clr&3,all91 4155: 4235 c clr&3,all91 4143: 4236 bu clr 4156: 4236 bu clr 4144: 4237 sngl mcw all91,x2 4157: 4237 sngl mcw all91,x2 4145: 4238 back3 c x2,x1 4158: 4238 back3 c x2,x1 4146: 4239 be out3 4159: 4239 be out3 4147: 4240 lca blank,0&x2 4160: 4240 lca blank,0&x2 4148: 4241 cw 0&x2 4161: 4241 cw 0&x2 4149: 4242 sar x2 4162: 4242 sar x2 4150: 4243 b back3 4163: 4243 b back3 4151: 4244 out3 mn 0&x1 4164: 4244 out3 mn 0&x1 4152: 4245 sar x1 4165: 4245 sar x1 4153: 4246 fendxc,gm1,,,,,sys1,arith one 4166: 4246 fendxc,gm1,,,,,sys1,arith one 4154: 4247 iotyp sw code-2 4167: 4247 iotyp sw code-2 4155: 4248 mcw @<@,2&x1 12-6-8 4168: 4248 mcw @<@,2&x1 12-6-8 4156: 4249 sbr klobr&6,2&x1 4169: 4249 sbr klobr&6,2&x1 4157: 4250 c 0&x1 4170: 4250 c 0&x1 4158: 4251 sar x1 4171: 4251 sar x1 4159: 4252 lca code,0&x3 4172: 4252 lca code,0&x3 4160: 4253 lca gm1 4173: 4253 lca gm1 4161: 4254 sbr x3 4174: 4254 sbr x3 4162: 4255 cw 2&x3 4175: 4255 cw 2&x3 4163: 4256 bwz nofmt,code-1,b 4176: 4256 bwz nofmt,code-1,b 4164: 4257 fbceqdolst,code-3,1,3 4177: 4257 fbceqdolst,code-3,1,3 4165: 4258 fbceqdospc,code-3,l,p,u 4178: 4258 fbceqdospc,code-3,l,p,u 4166: 4259 mcw 0&x1,spec 4179: 4259 mcw 0&x1,spec 4167: 4260 sar x1 4180: 4260 sar x1 4168: 4261 dolst mcw 0&x1,tuno 4181: 4261 dolst mcw 0&x1,tuno 4169: 4262 sar x1 4182: 4262 sar x1 4170: 4263 mcw 0&x1,tuno-3 4183: 4263 mcw 0&x1,tuno-3 4171: 4264 bce actl,tuno-4,} gm 4184: 4264 bce actl,tuno-4,} gm 4172: 4265 bce actl,tuno-1,} gm 4185: 4265 bce actl,tuno-1,} gm 4173: 4266 mn @1@,tape 4186: 4266 mn @1@,tape 4174: 4267 bce othr2,tuno-3,} gm 4187: 4267 bce othr2,tuno-3,} gm 4175: 4268 xxx mcw 0&x1,list 4188: 4268 xxx mcw 0&x1,list 4176: 4269 sar x1 4189: 4269 sar x1 4177: 4270 retrn lca list,0&x3 4190: 4270 retrn lca list,0&x3 4178: 4271 sbr x3 4191: 4271 sbr x3 4179: 4272 lca spec,0&x3 4192: 4272 lca spec,0&x3 4180: 4273 sbr x3 4193: 4273 sbr x3 4181: 4274 lca tape,0&x3 4194: 4274 lca tape,0&x3 4182: 4275 lca branch 4195: 4275 lca branch 4183: 4276 sbr x3 4196: 4276 sbr x3 4184: 4277 fbceqtlgm,code-3,l,p,u,1 4197: 4277 fbceqtlgm,code-3,l,p,u,1 4185: 4278 mz @s@,5&x3 4198: 4278 mz @s@,5&x3 4186: 4279 bce tlgm,code-3,3 4199: 4279 bce tlgm,code-3,3 4187: 4280 mz @k@,5&x3 4200: 4280 mz @k@,5&x3 4188: 4281 bce tlgm,code-3,5 4201: 4281 bce tlgm,code-3,5 4189: 4282 mz @b@,5&x3 4202: 4282 mz @b@,5&x3 4190: 4283 tlgm bw lgm,xtpsw 4203: 4283 tlgm bw lgm,xtpsw 4191: 4284 bwz lgm,tuno-1,2 4204: 4284 bwz lgm,tuno-1,2 4192: 4285 mcw tuno,mask1-3 4205: 4285 mcw tuno,mask1-3 4193: 4286 mz blank,mask1-4 4206: 4286 mz blank,mask1-4 4194: 4287 lca mask1,0&x3 4207: 4287 lca mask1,0&x3 4195: 4288 sbr x3 4208: 4288 sbr x3 4196: 4289 mcw blnk#3,tuno | 4209: 42894lgm mcw blnk#3,tuno-3 v3m4 4197: 4290 lgm lca gm1,0&x3 | 4210: 42904 lca gm1,0&x3 v3m4 4198: 4291 sbr x3 4211: 4291 sbr x3 4199: 4292 c 0&x1 4212: 4292 c 0&x1 4200: 4293 sar x1 4213: 4293 sar x1 4201: 4294 klobr bce start,0,< 12-6-8 4214: 4294 klobr bce start,0,< 12-6-8 4202: 4295 fquit 4215: 4295 fquit 4203: 4296 actl mn tuno,tape#1 4216: 4296 actl mn tuno,tape#1 4204: 4297 sw xtpsw 4217: 4297 sw xtpsw 4205: 4298 bce other,tuno-1,} gm 4218: 4298 bce other,tuno-1,} gm 4206: 4299 sbr x1,2&x1 4219: 4299 sbr x1,2&x1 4207: 4300 b xxx 4220: 4300 b xxx 4208: 4301 other sbr x1,1&x1 4221: 4301 other sbr x1,1&x1 4209: 4302 othr2 mcw period,list 4222: 4302 othr2 mcw period,list 4210: 4303 b retrn 4223: 4303 b retrn 4211: 4304 nofmt mz blank#1,3&x3 4224: 4304 nofmt mz blank#1,3&x3 4212: 4305 mcw 4&x3,adr#3 4225: 4305 mcw 4&x3,adr#3 4213: 4306 bwz *&5,adr,2 4226: 4306 bwz *&5,adr,2 4214: 4307 b gtadr 4227: 4307 b gtadr 4215: 4308 bwz err,adr-2,2 4228: 4308 bwz err,adr-2,2 4216: 4309 gtadr mcw adr,*&4 4229: 4309 gtadr mcw adr,*&4 4217: 4310 mcw 0,adr 4230: 4310 mcw 0,adr 4218: 4311 err ftmsg22,undefined format,adr,18 4231: 4311 err ftmsg22,undefined format,adr,18 4219: 4312 mz *-4,code-1 4232: 4312 mz *-4,code-1 4220: 4313 b dolst 4233: 4313 b dolst 4221: 4314 dospc mcw 0&x1,spec 4234: 4314 dospc mcw 0&x1,spec 4222: 4315 sar x1 4235: 4315 sar x1 4223: 4316 mcw period,list 4236: 4316 mcw period,list 4224: 4317 bce here,0&x1,} gm 4237: 4317 bce here,0&x1,} gm 4225: 4318 mcw 0&x1,list 4238: 4318 mcw 0&x1,list 4226: 4319 sar x1 4239: 4319 sar x1 4227: 4320 here mcw @&@,tape 4240: 4320 here mcw @&@,tape 4228: 4321 bce setp,code-3,l 4241: 4321 bce setp,code-3,l 4229: 4322 mcw @-@,tape 4242: 4322 mcw @-@,tape 4230: 4323 bce setp,code-3,u 4243: 4323 bce setp,code-3,u 4231: 4324 mcw @*@,tape 4244: 4324 mcw @*@,tape 4232: 4325 setp sw xtpsw#1 4245: 4325 setp sw xtpsw#1 4233: 4326 b retrn 4246: 4326 b retrn 4234: 4327 all9 dcw 999 4247: 4327 all9 dcw 999 4235: 4328 all91 dcw 999 4248: 4328 all91 dcw 999 4236: 4329 mask1 dcw @dxxx0?5@ plus zero 4249: 4329 mask1 dcw @dxxx0?5@ plus zero 4237: 4330 gm1 dc @}@ group mark 4250: 4330 gm1 dc @}@ group mark 4238: 4331 branch dcw @bw97@ change on reassm of obj format 4251: 4331 branch dcw @bw97@ change on reassm of obj format 4239: 4332 dcw #4 4252: 4332 dcw #4 4240: 4333 tuno dcw #3 4253: 4333 tuno dcw #3 4241: 4334 list dcw 000 4254: 4334 list dcw 000 4242: 4335 spec dcw 000 4255: 4335 spec dcw 000 4243: 4336 ltorg* 4256: 4336 ltorg* 4244: 4337 sys1 dcw @}@ system group mark 4257: 4337 sys1 dcw @}@ system group mark 4245: 4338 xfr begin 4258: 4338 xfr begin 4246: 4339 job arith phase one 50333 4259: 4339 job arith phase one 50333 4247: 4340 fbegnarith 1, x1,,x2,r,x3,,< 12-6-8 suffix 4260: 4340 fbegnarith 1, x1,,x2,r,x3,,< 12-6-8 suffix 4248: 4341 org xbegin 4261: 4341 org xbegin 4249: 4342 * 4262: 4342 * 4250: 4343 * arith phase one error checking algorithm 4263: 4343 * arith phase one error checking algorithm 4251: 4344 * 4264: 4344 * 4252: 4345 * previous character 4265: 4345 * previous character 4253: 4346 * 4266: 4346 * 4254: 4347 * opnd &*/. - gm f% # % ) neg 4267: 4347 * opnd &*/. - gm f% # % ) neg 4255: 4348 * 4268: 4348 * 4256: 4349 * & ok dd dd ls kl kl kl ok dd 4269: 4349 * & ok dd dd ls kl kl kl ok dd 4257: 4350 * c - ok dd dd ls ng ng ng ok dd 4270: 4350 * c - ok dd dd ls ng ng ng ok dd 4258: 4351 * c h */ ok dd dd ls sy sy sy ok dd 4271: 4351 * c h */ ok dd dd ls sy sy sy ok dd 4259: 4352 * u a # ok a2 a2 ls a2 a2 a2 a2 a2 4272: 4352 * u a # ok a2 a2 ls a2 a2 a2 a2 a2 4260: 4353 * r r % sy ok ok ls ok ok ok sy ok 4273: 4353 * r r % sy ok ok ls ok ok ok sy ok 4261: 4354 * r a ) ok sy sy ls a2 sy a2 ok sy 4274: 4354 * r a ) ok sy sy ls a2 sy a2 ok sy 4262: 4355 * e c gm ok sy sy ls a2 sy sy ok sy 4275: 4355 * e c gm ok sy sy ls a2 sy sy ok sy 4263: 4356 * n t . ok dd dd ls sy sy sy ok dd 4276: 4356 * n t . ok dd dd ls sy sy sy ok dd 4264: 4357 * t e neg -- -- -- ls ok ok ok -- dd 4277: 4357 * t e neg -- -- -- ls ok ok ok -- dd 4265: 4358 * r f% sy ok ok ls ok ok ok sy ok 4278: 4358 * r f% sy ok ok ls ok ok ok sy ok 4266: 4359 * oprnd -- ok ok ls ok ok ok sy ok 4279: 4359 * oprnd -- ok ok ls ok ok ok sy ok 4267: 4360 * 4280: 4360 * 4268: 4361 * ok- valid 4281: 4361 * ok- valid 4269: 4362 * dd- double operators 4282: 4362 * dd- double operators 4270: 4363 * sy- syntax error 4283: 4363 * sy- syntax error 4271: 4364 * a2- error noted in arith phase two 4284: 4364 * a2- error noted in arith phase two 4272: 4365 * ls- left side invalid 4285: 4365 * ls- left side invalid 4273: 4366 * ng- generate negate function 4286: 4366 * ng- generate negate function 4274: 4367 * --- syntactically inadmissible 4287: 4367 * --- syntactically inadmissible 4275: 4368 * kl- delete unary plus operator 4288: 4368 * kl- delete unary plus operator 4276: 4369 * 4289: 4369 * 4277: 4370 * 4290: 4370 * 4278: 4371 start sbr nomo,2&x3 4291: 4371 start sbr nomo,2&x3 4279: 4372 sw gm1 4292: 4372 sw gm1 4280: 4373 mcw 0&x1,code 4293: 4373 mcw 0&x1,code 4281: 4374 fbceqdocod,code-3,r,e | 4294: 43744 fbceqnustm,code-3,r,e v3m4 4282: 4375 mcw @.@,x2 4295: 4375 mcw @.@,x2 4283: 4376 b fendx 4296: 4376 b fendx 4284: 4377 nustm mcw 0&x1,code#4 4297: 4377 nustm mcw 0&x1,code#4 4285: 4378 sbr kill#3,0&x3 4298: 4378 sbr kill#3,0&x3 4286: 4379 fbceqdocod,code-3,r,e 4299: 4379 fbceqdocod,code-3,r,e 4287: 4380 mcw nomo#3,x2 4300: 4380 mcw nomo#3,x2 4288: 4381 fendx fendxc,,,,,,sysgm,arith two 4301: 4381 fendx fendxc,,,,,,sysgm,arith two 4289: 4382 docod mvdwnx1,x3 4302: 4382 docod mvdwnx1,x3 4290: 4383 bwz *&5, code,2 4303: 4383 bwz *&5, code,2 4291: 4384 b indir 4304: 4384 b indir 4292: 4385 bwz main,code-2,2 4305: 4385 bwz main,code-2,2 4293: 4386 indir mcw code,x2 4306: 4386 indir mcw code,x2 4294: 4387 mn 0&x2,code 4307: 4387 mn 0&x2,code 4295: 4388 mn 4308: 4388 mn 4296: 4389 mn 4309: 4389 mn 4297: 4390 main c 0&x1 4310: 4390 main c 0&x1 4298: 4391 sar next#3 4311: 4391 sar next#3 4299: 4392 bce artyp,code-3,r 4312: 4392 bce artyp,code-3,r 4300: 4393 c 0&x1,blk10#10 4313: 4393 c 0&x1,blk10#10 4301: 4394 sar x1 4314: 4394 sar x1 4302: 4395 sw 1&x1 4315: 4395 sw 1&x1 4303: 4396 lca 10&x1,0&x3 4316: 4396 lca 10&x1,0&x3 4304: 4397 sar x1 4317: 4397 sar x1 4305: 4398 c 0&x3 4318: 4398 c 0&x3 4306: 4399 sar x3 4319: 4399 sar x3 4307: 4400 cw 1&x1,1&x3 4320: 4400 cw 1&x1,1&x3 4308: 4401 lca gm1 4321: 4401 lca gm1 4309: 4402 lca @#<99@ 12-6-8 4322: 4402 lca @#<99@ 12-6-8 4310: 4403 sbr x3 4323: 4403 sbr x3 4311: 4404 cw 1&x3,5&x3 4324: 4404 cw 1&x3,5&x3 4312: 4405 sbr last,0&x1 4325: 4405 sbr last,0&x1 4313: 4406 b loop3 4326: 4406 b loop3 4314: 4407 artyp sbr x2,1&x1 4327: 4407 artyp sbr x2,1&x1 4315: 4408 bce cdint,0&x1,# 4328: 4408 bce cdint,0&x1,# 4316: 4409 sbr last#3,0&x1 4329: 4409 sbr last#3,0&x1 4317: 4410 eqscn bce goteq,0&x1,# 4330: 4410 eqscn bce goteq,0&x1,# 4318: 4411 bce cdint,0&x1,} g-m 4331: 4411 bce cdint,0&x1,} g-m 4319: 4412 sbr x1 4332: 4412 sbr x1 4320: 4413 b eqscn 4333: 4413 b eqscn 4321: 4414 goteq b mesur 4334: 4414 goteq b mesur 4322: 4415 loop1 mn 0&x1 4335: 4415 loop1 mn 0&x1 4323: 4416 sar x1 4336: 4416 sar x1 4324: 4417 loop3 sbr x2,1&x1 4337: 4417 loop3 sbr x2,1&x1 4325: 4418 sbr funbx#3 4338: 4418 sbr funbx#3 4326: 4419 loop2 mn 0&x1,tst1&7 4339: 4419 loop2 mn 0&x1,tst1&7 4327: 4420 mz 0&x1,tst1&7 4340: 4420 mz 0&x1,tst1&7 4328: 4421 sar x1 4341: 4421 sar x1 4329: 4422 tst1 bce gotop,@&-@*#%)}@,0 g-m 4342: 4422 tst1 bce gotop,@&-@*#%)}@,0 g-m 4330: 4423 chain7 4343: 4423 chain7 4331: 4424 b loop2 4344: 4424 b loop2 4332: 4425 gotop sbr x1,1&x1 4345: 4425 gotop sbr x1,1&x1 4333: 4426 bce ckng,0&x1,- 4346: 4426 bce ckng,0&x1,- 4334: 4427 bce ckfun,0&x1,% 4347: 4427 bce ckfun,0&x1,% 4335: 4428 bce ckxp,0&x1,* 4348: 4428 bce ckxp,0&x1,* 4336: 4429 bce plus,0&x1,& 4349: 4429 bce plus,0&x1,& 4337: 4430 bce div,0&x1,@ 4350: 4430 bce div,0&x1,@ 4338: 4431 bce loop1,0&x1,# 4351: 4431 bce loop1,0&x1,# 4339: 4432 bce close,0&x1,) 4352: 4432 bce close,0&x1,) 4340: 4433 mn 1&x1,ckgm&7 ergo group mark 4353: 4433 mn 1&x1,ckgm&7 ergo group mark 4341: 4434 mz 1&x1,ckgm&7 4354: 4434 mz 1&x1,ckgm&7 4342: 4435 ckgm bce syner,@&-*@.#,@,0 4355: 4435 ckgm bce syner,@&-*@.#,@,0 4343: 4436 chain6 4356: 4436 chain6 4344: 4437 bce eostm,1&x1, 4357: 4437 bce eostm,1&x1, 4345: 4438 bce eostm,1&x1,% 4358: 4438 bce eostm,1&x1,% 4346: 4439 bce eostm,1&x1,) 4359: 4439 bce eostm,1&x1,) 4347: 4440 b mesur 4360: 4440 b mesur 4348: 4441 eostm mcw last,x2 4361: 4441 eostm mcw last,x2 4349: 4442 lca 0&x2,0&x3 4362: 4442 lca 0&x2,0&x3 4350: 4443 sbr x3 4363: 4443 sbr x3 4351: 4444 mcw next,x1 4364: 4444 mcw next,x1 4352: 4445 b nustm 4365: 4445 b nustm 4353: 4446 close mlc 0&x1,box#2 4366: 4446 close mlc 0&x1,box#2 4354: 4447 mlc box-1,*&8 4367: 4447 mlc box-1,*&8 4355: 4448 bce clzok,@&*@-})@,0 g-m,) 4368: 4448 bce clzok,@&*@-})@,0 g-m,) 4356: 4449 chain5 4369: 4449 chain5 4357: 4450 bce clzok,box-1,# 4370: 4450 bce clzok,box-1,# 4358: 4451 b syner 4371: 4451 b syner 4359: 4452 clzok mn 1&x1,clsck&7 4372: 4452 clzok mn 1&x1,clsck&7 4360: 4453 mz 1&x1,clsck&7 4373: 4453 mz 1&x1,clsck&7 4361: 4454 clsck bce syner,@&-*.@ %,@,0 4374: 4454 clsck bce syner,@&-*.@ %,@,0 4362: 4455 chain7 4375: 4455 chain7 4363: 4456 bce loop1,1&x1,# 4376: 4456 bce loop1,1&x1,# 4364: 4457 bce loop1,1&x1,) 4377: 4457 bce loop1,1&x1,) 4365: 4458 b mesur 4378: 4458 b mesur 4366: 4459 b loop1 4379: 4459 b loop1 4367: 4460 ckxp mcw 0&x1,box2#2 4380: 4460 ckxp mcw 0&x1,box2#2 4368: 4461 bce isxp,box2-1,* 4381: 4461 bce isxp,box2-1,* 4369: 4462 div fbceqsyner,1&x1,#,% 4382: 4462 div fbceqsyner,1&x1,#,% 4370: 4463 bce syner,1&x1, 4383: 4463 bce syner,1&x1, 4371: 4464 div2 mn 1&x1,divck&7 4384: 4464 div2 mn 1&x1,divck&7 4372: 4465 mz 1&x1,divck&7 4385: 4465 mz 1&x1,divck&7 4373: 4466 divck bce dblop,@&-@*.,@,0 4386: 4466 divck bce dblop,@&-@*.,@,0 4374: 4467 chain5 4387: 4467 chain5 4375: 4468 bce loop1,1&x1,) 4388: 4468 bce loop1,1&x1,) 4376: 4469 b mesur 4389: 4469 b mesur 4377: 4470 b loop1 4390: 4470 b loop1 4378: 4471 isxp mn 0&x1 4391: 4471 isxp mn 0&x1 4379: 4472 mn 4392: 4472 mn 4380: 4473 sar x1 4393: 4473 sar x1 4381: 4474 mcw @.@,2&x1 4394: 4474 mcw @.@,2&x1 4382: 4475 lca 0&x1 4395: 4475 lca 0&x1 4383: 4476 sbr x1,2&x1 4396: 4476 sbr x1,2&x1 4384: 4477 b div 4397: 4477 b div 4385: 4478 plus fbceqsquoz,1&x1,#,% 4398: 4478 plus fbceqsquoz,1&x1,#,% 4386: 4479 bce squoz,1&x1, 4399: 4479 bce squoz,1&x1, 4387: 4480 b div2 4400: 4480 b div2 4388: 4481 squoz mn 0&x1 4401: 4481 squoz mn 0&x1 4389: 4482 sar x1 4402: 4482 sar x1 4390: 4483 lca 0&x1,1&x1 4403: 4483 lca 0&x1,1&x1 4391: 4484 sbr x1,1&x1 4404: 4484 sbr x1,1&x1 4392: 4485 b loop3 4405: 4485 b loop3 4393: 4486 ckng fbceqnegat,1&x1,#,% 4406: 4486 ckng fbceqnegat,1&x1,#,% 4394: 4487 bce negat,1&x1, 4407: 4487 bce negat,1&x1, 4395: 4488 b div2 4408: 4488 b div2 4396: 4489 negat mcw @,@,0&x1 4409: 4489 negat mcw @,@,0&x1 4397: 4490 cw xnegtf 4410: 4490 cw xnegtf 4398: 4491 b loop1 4411: 4491 b loop1 4399: 4492 ckfun bce isfun,1&x1,f 4412: 4492 ckfun bce isfun,1&x1,f 4400: 4493 mn 1&x1,opnck&7 4413: 4493 mn 1&x1,opnck&7 4401: 4494 mz 1&x1,opnck&7 4414: 4494 mz 1&x1,opnck&7 4402: 4495 opnck bce loop1,@&-*@ #%,.@,0 4415: 4495 opnck bce loop1,@&-*@ #%,.@,0 4403: 4496 chain8 4416: 4496 chain8 4404: 4497 b syner 4417: 4497 b syner 4405: 4498 isfun mcw x2,hex2#3 4418: 4498 isfun mcw x2,hex2#3 4406: 4499 mcw funbx,x2 4419: 4499 mcw funbx,x2 4407: 4500 mn 0&x2 4420: 4500 mn 0&x2 4408: 4501 sar x2 4421: 4501 sar x2 4409: 4502 sw 0&x1 4422: 4502 sw 0&x1 4410: 4503 sbr funbx,2&x1 4423: 4503 sbr funbx,2&x1 4411: 4504 c funbx,x2 4424: 4504 c funbx,x2 4412: 4505 be syner 4425: 4505 be syner 4413: 4506 sbr funbx,3&x1 4426: 4506 sbr funbx,3&x1 4414: 4507 c funbx,x2 4427: 4507 c funbx,x2 4415: 4508 be syner 4428: 4508 be syner 4416: 4509 mcw x3,hex3#3 4429: 4509 mcw x3,hex3#3 4417: 4510 mcw x1,hex1#3 4430: 4510 mcw x1,hex1#3 4418: 4511 sbr x1,xsinfu 4431: 4511 sbr x1,xsinfu 4419: 4512 sbr x3,ftbl1-1 4432: 4512 sbr x3,ftbl1-1 4420: 4513 fscan bce nofun,0&x3,* 4433: 4513 fscan bce nofun,0&x3,* 4421: 4514 sbr x3 4434: 4514 sbr x3 4422: 4515 c 0&x3,0&x2 4435: 4515 c 0&x3,0&x2 4423: 4516 be gotfn 4436: 4516 be gotfn 4424: 4517 c 0&x3 4437: 4517 c 0&x3 4425: 4518 sar x3 4438: 4518 sar x3 4426: 4519 sbr x1,1&x1 4439: 4519 sbr x1,1&x1 4427: 4520 b fscan 4440: 4520 b fscan 4428: 4521 nofun ftmsg29,undefined function name,code,25 4441: 4521 nofun ftmsg29,undefined function name,code,25 4429: 4522 b zonch 4442: 4522 b zonch 4430: 4523 comfn cw xcomf1 4443: 4523 comfn cw xcomf1 4431: 4524 b mov 4444: 4524 b mov 4432: 4525 cosin cw xsinfu 4445: 4525 cosin cw xsinfu 4433: 4526 b comfn 4446: 4526 b comfn 4434: 4527 absvl cw xabsva,xnegtf 4447: 4527 absvl cw xabsva,xnegtf 4435: 4528 b mov 4448: 4528 b mov 4436: 4529 gotfn sw 1&x3 4449: 4529 gotfn sw 1&x3 4437: 4530 bce cosin,1&x3,c 4450: 4530 bce cosin,1&x3,c 4438: 4531 bce absvl,1&x3,a 4451: 4531 bce absvl,1&x3,a 4439: 4532 cw 0&x1 4452: 4532 cw 0&x1 4440: 4533 mcw 1&x3,*&8 4453: 4533 mcw 1&x3,*&8 4441: 4534 bce comfn,@sgect@,0 4454: 4534 bce comfn,@sgect@,0 4442: 4535 chain4 4455: 4535 chain4 4443: 4536 mov bce keepx,0&x2,x 4456: 4536 mov bce keepx,0&x2,x 4444: 4537 mcw 1&x3,0&x2 4457: 4537 mcw 1&x3,0&x2 4445: 4538 mcw blnk1#1 4458: 4538 mcw blnk1#1 4446: 4539 sbr x2 4459: 4539 sbr x2 4447: 4540 mcw hex3,x3 4460: 4540 mcw hex3,x3 4448: 4541 mcw hex1,x1 4461: 4541 mcw hex1,x1 4449: 4542 cw 0&x1 4462: 4542 cw 0&x1 4450: 4543 sar x1 4463: 4543 sar x1 4451: 4544 lca 0&x1,0&x2 4464: 4544 lca 0&x1,0&x2 4452: 4545 sbr x1,0&x2 4465: 4545 sbr x1,0&x2 4453: 4546 b loop3 4466: 4546 b loop3 4454: 4547 keepx mn 0&x2 4467: 4547 keepx mn 0&x2 4455: 4548 sar x2 4468: 4548 sar x2 4456: 4549 b mov&8 4469: 4549 b mov&8 4457: 4550 cdint ftmsg23,coding unintelligible,code,23 4470: 4550 cdint ftmsg23,coding unintelligible,code,23 4458: 4551 zonch mcw kill,x3 4471: 4551 zonch mcw kill,x3 4459: 4552 mcw next,x1 4472: 4552 mcw next,x1 4460: 4553 b nustm 4473: 4553 b nustm 4461: 4554 mesur sbr mesxt&3 4474: 4554 mesur sbr mesxt&3 4462: 4555 bce subsc,1&x1,$ 4475: 4555 bce subsc,1&x1,$ 4463: 4556 sbr mesbx#3,4&x1 4476: 4556 sbr mesbx#3,4&x1 4464: 4557 mescm c mesbx,x2 4477: 4557 mescm c mesbx,x2 4465: 4558 mesxt be 0 4478: 4558 mesxt be 0 4466: 4559 ftmsg25,left side invalid,code,19 4479: 4559 ftmsg25,left side invalid,code,19 4467: 4560 b zonch 4480: 4560 b zonch 4468: 4561 syner ftmsg27,arithmetic syntax error,code,25 4481: 4561 syner ftmsg27,arithmetic syntax error,code,25 4469: 4562 b zonch 4482: 4562 b zonch 4470: 4563 gm1 dc @}@ g-m 4483: 4563 gm1 dc @}@ g-m 4471: 4564 dblop ftmsg31,double operators,code,18 4484: 4564 dblop ftmsg31,double operators,code,18 4472: 4565 b zonch 4485: 4565 b zonch 4473: 4566 subsc sbr mesbx,12&x1 4486: 4566 subsc sbr mesbx,12&x1 4474: 4567 bce mescm,11&x1,$ 4487: 4567 bce mescm,11&x1,$ 4475: 4568 sbr mesbx,18&x1 4488: 4568 sbr mesbx,18&x1 4476: 4569 b mescm 4489: 4569 b mescm 4477: 4570 * 4490: 4570 * 4478: 4571 * table of fortran functions 4491: 4571 * table of fortran functions 4479: 4572 * 4492: 4572 * 4480: 4573 dcw @*@ signals end of table 4493: 4573 dcw @*@ signals end of table 4481: 4574 * 4494: 4574 * 4482: 4575 dcw @ %fsocc@ 4495: 4575 dcw @ %fsocc@ 4483: 4576 dcw @ %fsbaxa@ 4496: 4576 dcw @ %fsbaxa@ 4484: 4577 dcw @ %fknilxi@ 4497: 4577 dcw @ %fknilxi@ 4485: 4578 * user functions 4498: 4578 * user functions 4486: 4579 dcw @ h@ user fn 12 4499: 4579 dcw @ h@ user fn 12 4487: 4580 dcw @ d@ user fn 11 4500: 4580 dcw @ d@ user fn 11 4488: 4581 dcw @ m@ user fn 10 4501: 4581 dcw @ m@ user fn 10 4489: 4582 dcw @ l@ user fn 9 4502: 4582 dcw @ l@ user fn 9 4490: 4583 dcw @ k@ user fn 8 4503: 4583 dcw @ k@ user fn 8 4491: 4584 dcw @ j@ user fn 7 4504: 4584 dcw @ j@ user fn 7 4492: 4585 dcw @ z@ user fn 6 4505: 4585 dcw @ z@ user fn 6 4493: 4586 dcw @ y@ user fn 5 4506: 4586 dcw @ y@ user fn 5 4494: 4587 dcw @ w@ user fn 4 4507: 4587 dcw @ w@ user fn 4 4495: 4588 dcw @ p@ user fn 3 4508: 4588 dcw @ p@ user fn 3 4496: 4589 dcw @ u@ user fn 2 4509: 4589 dcw @ u@ user fn 2 4497: 4590 dcw @ r@ user fn 1 4510: 4590 dcw @ r@ user fn 1 4498: 4591 dcw @ %ftrqsq@ 4511: 4591 dcw @ %ftrqsq@ 4499: 4592 dcw @ %ftaolff@ 4512: 4592 dcw @ %ftaolff@ 4500: 4593 dcw @ %fxifxx@ 4513: 4593 dcw @ %fxifxx@ 4501: 4594 dcw #9 4514: 4594 dcw #9 4502: 4595 dcw @ %fsbaa@ 4515: 4595 dcw @ %fsbaa@ 4503: 4596 dcw @ %fnatat@ 4516: 4596 dcw @ %fnatat@ 4504: 4597 dcw @ %fpxee@ 4517: 4597 dcw @ %fpxee@ 4505: 4598 dcw @ %fgolg@ 4518: 4598 dcw @ %fgolg@ 4506: 4599 dcw @ %fniss@ 4519: 4599 dcw @ %fniss@ 4507: 4600 ftbl1 dcw #1 4520: 4600 ftbl1 dcw #1 4508: 4601 ltorg* 4521: 4601 ltorg* 4509: 4602 sysgm dcw @}@ system group mark 4522: 4602 sysgm dcw @}@ system group mark 4510: 4603 xfr start 4523: 4603 xfr start 4511: 4604 job arith phase two 50343 4524: 4604 job arith phase two 50343 4512: 4605 fbegnarith 2,x1,,x2,,x3,,0 4525: 4605 fbegnarith 2,x1,,x2,,x3,,0 4513: 4606 org xbegin 4526: 4606 org xbegin 4514: 4607 initl bce out,x2,. 4527: 4607 initl bce out,x2,. 4515: 4608 sw gm 4528: 4608 sw gm 4516: 4609 mcw x2,nomo#3 4529: 4609 mcw x2,nomo#3 4517: 4610 sbr x3,2&x3 4530: 4610 sbr x3,2&x3 4518: 4611 sbr x1,2&x1 4531: 4611 sbr x1,2&x1 4519: 4612 mcw x1,x2 4532: 4612 mcw x1,x2 4520: 4613 clr1 mn x2,tail#2 4533: 4613 clr1 mn x2,tail#2 4521: 4614 mn 4534: 4614 mn 4522: 4615 c tail,@00@ 4535: 4615 c tail,@00@ 4523: 4616 be sto 4536: 4616 be sto 4524: 4617 cw 0&x2 4537: 4617 cw 0&x2 4525: 4618 sbr x2,1&x2 4538: 4618 sbr x2,1&x2 4526: 4619 b clr1 4539: 4619 b clr1 4527: 4620 sto mn 0&x2 4540: 4620 sto mn 0&x2 4528: 4621 sar last#3 4541: 4621 sar last#3 4529: 4622 mn 0&x3 4542: 4622 mn 0&x3 4530: 4623 sar x2 4543: 4623 sar x2 4531: 4624 clr2 c x2,last 4544: 4624 clr2 c x2,last 4532: 4625 be mvup 4545: 4625 be mvup 4533: 4626 cs 0&x2 4546: 4626 cs 0&x2 4534: 4627 sbr x2 4547: 4627 sbr x2 4535: 4628 b clr2 4548: 4628 b clr2 4536: 4629 mvup movupx3,x1,nomo,all,| 4549: 4629 mvup movupx3,x1,nomo,all,| 4537: 4630 mn 0&x1 4550: 4630 mn 0&x1 4538: 4631 sar x1 4551: 4631 sar x1 4539: 4632 mn 0&x3 4552: 4632 mn 0&x3 4540: 4633 sbr nxbtm#3 4553: 4633 sbr nxbtm#3 4541: 4634 bce start,0&x3,} group mk 4554: 4634 bce start,0&x3,} group mk 4542: 4635 sbr x3 4555: 4635 sbr x3 4543: 4636 lca gm 4556: 4636 lca gm 4544: 4637 sbr nxbtm 4557: 4637 sbr nxbtm 4545: 4638 mcw x3,nomo 4558: 4638 mcw x3,nomo 4546: 4639 start mcw nxbtm,hex2#3 4559: 4639 start mcw nxbtm,hex2#3 4547: 4640 mcw 0&x1,x3 4560: 4640 mcw 0&x1,x3 4548: 4641 bwz *&5,x3,2 4561: 4641 bwz *&5,x3,2 4549: 4642 b *&9 4562: 4642 b *&9 4550: 4643 bwz *&8,x3-2,2 4563: 4643 bwz *&8,x3-2,2 4551: 4644 mcw 0&x3,x3 4564: 4644 mcw 0&x3,x3 4552: 4645 mcw x3,code#3 4565: 4645 mcw x3,code#3 4553: 4646 mcw blnks,cntr 4566: 4646 mcw blnks,cntr 4554: 4647 mcw @]@,40&x1 11-5-8 4567: 4647 mcw @]@,40&x1 11-5-8 4555: 4648 sbr klobr&6,40&x1 4568: 4648 sbr klobr&6,40&x1 4556: 4649 b mvdwn 4569: 4649 b mvdwn 4557: 4650 bce if,2&x1,e 4570: 4650 bce if,2&x1,e 4558: 4651 c 2&x1,@r@ 4571: 4651 c 2&x1,@r@ 4559: 4652 bu dun 4572: 4652 bu dun 4560: 4653 arith mcw x1,x3 4573: 4653 arith mcw x1,x3 4561: 4654 sbr tukit&3,0&x1 4574: 4654 sbr tukit&3,0&x1 4562: 4655 c 0&x3 4575: 4655 c 0&x3 4563: 4656 sar next#3 4576: 4656 sar next#3 4564: 4657 b getlf 4577: 4657 b getlf 4565: 4658 klobr bce cntrl,0,] 11-5-8 4578: 4658 klobr bce cntrl,0,] 11-5-8 4566: 4659 fquit 4579: 4659 fquit 4567: 4660 if mcw x1,x3 4580: 4660 if mcw x1,x3 4568: 4661 rucom bce pass,0&x3,, 4581: 4661 rucom bce pass,0&x3,, 4569: 4662 sbr x3 4582: 4662 sbr x3 4570: 4663 b rucom 4583: 4663 b rucom 4571: 4664 pass mn 0&x3 4584: 4664 pass mn 0&x3 4572: 4665 sw 4585: 4665 sw 4573: 4666 b mvdwn 4586: 4666 b mvdwn 4574: 4667 b arith 4587: 4667 b arith 4575: 4668 mvdwn sbr exmvd&3 4588: 4668 mvdwn sbr exmvd&3 4576: 4669 mcw nxbtm,x2 4589: 4669 mcw nxbtm,x2 4577: 4670 lca 0&x1,0&x2 4590: 4670 lca 0&x1,0&x2 4578: 4671 sbr nxbtm 4591: 4671 sbr nxbtm 4579: 4672 c 0&x1 4592: 4672 c 0&x1 4580: 4673 sar x1 4593: 4673 sar x1 4581: 4674 exmvd b 0 4594: 4674 exmvd b 0 4582: 4675 getlf sbr exgtl&3 4595: 4675 getlf sbr exgtl&3 4583: 4676 bce sbscr,0&x3,$ 4596: 4676 bce sbscr,0&x3,$ 4584: 4677 loop mcw 0&x3,philf 4597: 4677 loop mcw 0&x3,philf 4585: 4678 sar x3 4598: 4678 sar x3 4586: 4679 mcw philf,*&8 4599: 4679 mcw philf,*&8 4587: 4680 bce exgtl,ops,0 4600: 4680 bce exgtl,ops,0 4588: 4681 chain10 4601: 4681 chain10 4589: 4682 b loop 4602: 4682 b loop 4590: 4683 exgtl b 0 4603: 4683 exgtl b 0 4591: 4684 sbscr c 0&x3,blnks#12 4604: 4684 sbscr c 0&x3,blnks#12 4592: 4685 sar x3 4605: 4685 sar x3 4593: 4686 bce exgtl,2&x3,$ 4606: 4686 bce exgtl,2&x3,$ 4594: 4687 c 0&x3,blnks-6 4607: 4687 c 0&x3,blnks-6 4595: 4688 sar x3 4608: 4688 sar x3 4596: 4689 b exgtl 4609: 4689 b exgtl 4597: 4690 cntrl mcw 1&x3,philf#1 4610: 4690 cntrl mcw 1&x3,philf#1 4598: 4691 mcw 1&x1,phirt#1 4611: 4691 mcw 1&x1,phirt#1 4599: 4692 mcw phirt,ckop&7 4612: 4692 mcw phirt,ckop&7 4600: 4693 mcw blnks,units#3 4613: 4693 mcw blnks,units#3 4601: 4694 b gtnum 4614: 4694 b gtnum 4602: 4695 mn num#1,units-1 4615: 4695 mn num#1,units-1 4603: 4696 mcw philf,ckop&7 4616: 4696 mcw philf,ckop&7 4604: 4697 b gtnum 4617: 4697 b gtnum 4605: 4698 mn num,units 4618: 4698 mn num,units 4606: 4699 mcw units,x2 4619: 4699 mcw units,x2 4607: 4700 mn matrx&x2,x2 4620: 4700 mn matrx&x2,x2 4608: 4701 mcw blnks 4621: 4701 mcw blnks 4609: 4702 bwz err5,x2,s 4622: 4702 bwz err5,x2,s 4610: 4703 a x2 4623: 4703 a x2 4611: 4704 a x2 4624: 4704 a x2 4612: 4705 b *&1&x2 4625: 4705 b *&1&x2 4613: 4706 b skip 4626: 4706 b skip 4614: 4707 b paren 4627: 4707 b paren 4615: 4708 b force 4628: 4708 b force 4616: 4709 b eoj 4629: 4709 b eoj 4617: 4710 b neg 4630: 4710 b neg 4618: 4711 b fun 4631: 4711 b fun 4619: 4712 b err1 4632: 4712 b err1 4620: 4713 b err2 4633: 4713 b err2 4621: 4714 b err3 4634: 4714 b err3 4622: 4715 b err4 4635: 4715 b err4 4623: 4716 gtnum sbr ckop&3 4636: 4716 gtnum sbr ckop&3 4624: 4717 bce gotum,ckop&7,- 4637: 4717 bce gotum,ckop&7,- 4625: 4718 nish s num 4638: 4718 nish s num 4626: 4719 mcw &ops,ckop&6 4639: 4719 mcw &ops,ckop&6 4627: 4720 ckop bce 0,0,0 4640: 4720 ckop bce 0,0,0 4628: 4721 sbr ckop&6 4641: 4721 sbr ckop&6 4629: 4722 a @1@,num 4642: 4722 a @1@,num 4630: 4723 b ckop 4643: 4723 b ckop 4631: 4724 gotum mcw @&@,ckop&7 4644: 4724 gotum mcw @&@,ckop&7 4632: 4725 b nish 4645: 4725 b nish 4633: 4726 gntmp sbr exgtp&3 4646: 4726 gntmp sbr exgtp&3 4634: 4727 a @1@,cntr#3 4647: 4727 a @1@,cntr#3 4635: 4728 mz cntr-1,temp 4648: 4728 mz cntr-1,temp 4636: 4729 mn cntr,temp 4649: 4729 mn cntr,temp 4637: 4730 mn 4650: 4730 mn 4638: 4731 exgtp b 0 4651: 4731 exgtp b 0 4639: 4732 skip mcw x3,x1 4652: 4732 skip mcw x3,x1 4640: 4733 b getlf 4653: 4733 b getlf 4641: 4734 b cntrl 4654: 4734 b cntrl 4642: 4735 paren sw 2&x3 4655: 4735 paren sw 2&x3 4643: 4736 lca 0&x1,1&x1 4656: 4736 lca 0&x1,1&x1 4644: 4737 cw 3&x3 4657: 4737 cw 3&x3 4645: 4738 cw 4658: 4738 cw 4646: 4739 lca 0&x3,2&x3 4659: 4739 lca 0&x3,2&x3 4647: 4740 sbr x1,1&x1 4660: 4740 sbr x1,1&x1 4648: 4741 sbr x3,1&x3 4661: 4741 sbr x3,1&x3 4649: 4742 b cntrl 4662: 4742 b cntrl 4650: 4743 force mcw nxbtm,x2 4663: 4743 force mcw nxbtm,x2 4651: 4744 mz 4&x3,zone#1 4664: 4744 mz 4&x3,zone#1 4652: 4745 bce *&8,2&x3,$ 4665: 4745 bce *&8,2&x3,$ 4653: 4746 mz 3&x3,zone 4666: 4746 mz 3&x3,zone 4654: 4747 sw 2&x3 4667: 4747 sw 2&x3 4655: 4748 lca 0&x1,0&x2 4668: 4748 lca 0&x1,0&x2 4656: 4749 sbr x2 4669: 4749 sbr x2 4657: 4750 cw 1&x2 4670: 4750 cw 1&x2 4658: 4751 sw 2&x1 4671: 4751 sw 2&x1 4659: 4752 sw 4672: 4752 sw 4660: 4753 lca 1&x1,0&x2 4673: 4753 lca 1&x1,0&x2 4661: 4754 sbr x2 4674: 4754 sbr x2 4662: 4755 sbr nxbtm 4675: 4755 sbr nxbtm 4663: 4756 cw 1&x2 4676: 4756 cw 1&x2 4664: 4757 bce sbvrt,2&x1,$ 4677: 4757 bce sbvrt,2&x1,$ 4665: 4758 lca 4&x1,0&x2 4678: 4758 lca 4&x1,0&x2 4666: 4759 sbr nxbtm 4679: 4759 sbr nxbtm 4667: 4760 mz 3&x1,temp-1 4680: 4760 mz 3&x1,temp-1 4668: 4761 sar x1 4681: 4761 sar x1 4669: 4762 fnish b gntmp 4682: 4762 fnish b gntmp 4670: 4763 lca temp,2&x1 4683: 4763 lca temp,2&x1 4671: 4764 lca 1&x3 4684: 4764 lca 1&x3 4672: 4765 cw 0&x1 4685: 4765 cw 0&x1 4673: 4766 mn 4686: 4766 mn 4674: 4767 sar x3 4687: 4767 sar x3 4675: 4768 sbr x1,2&x1 4688: 4768 sbr x1,2&x1 4676: 4769 bwz ruint,temp-1,s 4689: 4769 bwz ruint,temp-1,s 4677: 4770 bwz ruint,temp-1,k 4690: 4770 bwz ruint,temp-1,k 4678: 4771 bwz klobr,zone,2 4691: 4771 bwz klobr,zone,2 4679: 4772 bwz klobr,zone,b 4692: 4772 bwz klobr,zone,b 4680: 4773 bce klobr,phirt,. 4693: 4773 bce klobr,phirt,. 4681: 4774 b err46 4694: 4774 b err46 4682: 4775 ruint bwz klobr,zone,s 4695: 4775 ruint bwz klobr,zone,s 4683: 4776 bwz klobr,zone,k 4696: 4776 bwz klobr,zone,k 4684: 4777 err46 ftmsg46,mixing in arith,code,17 4697: 4777 err46 ftmsg46,mixing in arith,code,17 4685: 4778 b kill 4698: 4778 b kill 4686: 4779 sbvrt sbr x2,10&x1 4699: 4779 sbvrt sbr x2,10&x1 4687: 4780 bce send,2&x2,$ 4700: 4780 bce send,2&x2,$ 4688: 4781 sbr x2,6&x2 4701: 4781 sbr x2,6&x2 4689: 4782 send mcw nxbtm,*&7 4702: 4782 send mcw nxbtm,*&7 4690: 4783 lca 2&x2,0 4703: 4783 lca 2&x2,0 4691: 4784 sbr nxbtm 4704: 4784 sbr nxbtm 4692: 4785 mz 4&x1,temp-1 4705: 4785 mz 4&x1,temp-1 4693: 4786 mcw x2,x1 4706: 4786 mcw x2,x1 4694: 4787 b fnish 4707: 4787 b fnish 4695: 4788 neg mcw @n@,1&x1 4708: 4788 neg mcw @n@,1&x1 4696: 4789 mz 4&x3,temp-1 4709: 4789 mz 4&x3,temp-1 4697: 4790 bce funy,2&x3,$ 4710: 4790 bce funy,2&x3,$ 4698: 4791 mz 3&x3,temp-1 4711: 4791 mz 3&x3,temp-1 4699: 4792 b funy 4712: 4792 b funy 4700: 4793 fun mcw 3&x1,type#2 4713: 4793 fun mcw 3&x1,type#2 4701: 4794 bce fxmod,3&x1,x 4714: 4794 bce fxmod,3&x1,x 4702: 4795 mz *-4,temp-1 4715: 4795 mz *-4,temp-1 4703: 4796 ckusr sw 2&x1 4716: 4796 ckusr sw 2&x1 4704: 4797 mcw 2&x1,*&8 4717: 4797 mcw 2&x1,*&8 4705: 4798 bce okay,@rupwyzkjlmdh@,0 4718: 4798 bce okay,@rupwyzkjlmdh@,0 4706: 4799 chain11 4719: 4799 chain11 4707: 4800 mz 4&x3,zone 4720: 4800 mz 4&x3,zone 4708: 4801 bce *&8,2&x3,$ 4721: 4801 bce *&8,2&x3,$ 4709: 4802 mz 3&x3,zone 4722: 4802 mz 3&x3,zone 4710: 4803 bce rufix,2&x1,f 4723: 4803 bce rufix,2&x1,f 4711: 4804 bce rufix,2&x1,i 4724: 4804 bce rufix,2&x1,i 4712: 4805 c type,@ax@ 4725: 4805 c type,@ax@ 4713: 4806 be rufix 4726: 4806 be rufix 4714: 4807 bwz err6,zone,s 4727: 4807 bwz err6,zone,s 4715: 4808 bwz err6,zone,k 4728: 4808 bwz err6,zone,k 4716: 4809 okay mcw 2&x1,1&x1 4729: 4809 okay mcw 2&x1,1&x1 4717: 4810 mcw @%@,2&x1 4730: 4810 mcw @%@,2&x1 4718: 4811 cw 2&x1 4731: 4811 cw 2&x1 4719: 4812 funy mcw nxbtm,x2 4732: 4812 funy mcw nxbtm,x2 4720: 4813 sw 2&x3 4733: 4813 sw 2&x3 4721: 4814 lca 1&x1,0&x2 4734: 4814 lca 1&x1,0&x2 4722: 4815 sbr nxbtm 4735: 4815 sbr nxbtm 4723: 4816 b gntmp 4736: 4816 b gntmp 4724: 4817 lca temp,1&x1 4737: 4817 lca temp,1&x1 4725: 4818 lca 1&x3 4738: 4818 lca 1&x3 4726: 4819 mn 0&x1 4739: 4819 mn 0&x1 4727: 4820 cw 4740: 4820 cw 4728: 4821 mn 4741: 4821 mn 4729: 4822 sar x3 4742: 4822 sar x3 4730: 4823 sbr x1,1&x1 4743: 4823 sbr x1,1&x1 4731: 4824 b klobr 4744: 4824 b klobr 4732: 4825 fxmod mz *-6,temp-1 4745: 4825 fxmod mz *-6,temp-1 4733: 4826 lca 2&x1,3&x1 4746: 4826 lca 2&x1,3&x1 4734: 4827 sbr x1,1&x1 4747: 4827 sbr x1,1&x1 4735: 4828 sbr x3,1&x3 4748: 4828 sbr x3,1&x3 4736: 4829 b ckusr 4749: 4829 b ckusr 4737: 4830 rufix bwz okay,zone,s 4750: 4830 rufix bwz okay,zone,s 4738: 4831 bwz okay,zone,k 4751: 4831 bwz okay,zone,k 4739: 4832 err6 cs 332 4752: 4832 err6 cs 332 4740: 4833 cs 4753: 4833 cs 4741: 4834 sw failsw 4754: 4834 sw failsw 4742: 4835 mn code,224&37 4755: 4835 mn code,224&37 4743: 4836 mn 4756: 4836 mn 4744: 4837 mn 4757: 4837 mn 4745: 4838 mcw bgmsg 4758: 4838 mcw bgmsg 4746: 4839 w 4759: 4839 w 4747: 4840 bcv *&5 4760: 4840 bcv *&5 4748: 4841 b *&3 4761: 4841 b *&3 4749: 4842 cc 1 4762: 4842 cc 1 4750: 4843 b kill 4763: 4843 b kill 4751: 4844 err5 ftmsg24,system error,code,14 4764: 4844 err5 ftmsg24,system error,code,14 4752: 4845 b kill 4765: 4845 b kill 4753: 4846 err4 ftmsg26,excess of # signs,code,19 4766: 4846 err4 ftmsg26,excess of # signs,code,19 4754: 4847 b kill 4767: 4847 b kill 4755: 4848 err3 ftmsg32,multiple exponent,code,19 4768: 4848 err3 ftmsg32,multiple exponent,code,19 4756: 4849 b kill 4769: 4849 b kill 4757: 4850 err2 ftmsg16,parenthesis error,code,19 4770: 4850 err2 ftmsg16,parenthesis error,code,19 4758: 4851 b kill 4771: 4851 b kill 4759: 4852 err1 ftmsg25,left side invalid,code,19 4772: 4852 err1 ftmsg25,left side invalid,code,19 4760: 4853 kill mcw hex2,nxbtm 4773: 4853 kill mcw hex2,nxbtm 4761: 4854 b reset 4774: 4854 b reset 4762: 4855 eoj mcw nxbtm,x2 4775: 4855 eoj mcw nxbtm,x2 4763: 4856 sw 2&x3 4776: 4856 sw 2&x3 4764: 4857 lca 0&x1,0&x2 4777: 4857 lca 0&x1,0&x2 4765: 4858 lca @#@ 4778: 4858 lca @#@ 4766: 4859 sbr x2 4779: 4859 sbr x2 4767: 4860 cw 2&x2 4780: 4860 cw 2&x2 4768: 4861 cw 4781: 4861 cw 4769: 4862 sw 2&x1 4782: 4862 sw 2&x1 4770: 4863 tukit lca 0,0&x2 4783: 4863 tukit lca 0,0&x2 4771: 4864 lca gm 4784: 4864 lca gm 4772: 4865 sbr nxbtm 4785: 4865 sbr nxbtm 4773: 4866 reset mcw next,x1 4786: 4866 reset mcw next,x1 4774: 4867 b start 4787: 4867 b start 4775: 4868 dun sbr x1,5&x1 4788: 4868 dun sbr x1,5&x1 4776: 4869 mcw nxbtm,x3 4789: 4869 mcw nxbtm,x3 4777: 4870 sbr x2,5&x3 4790: 4870 sbr x2,5&x3 4778: 4871 mcw nomo,x3 4791: 4871 mcw nomo,x3 4779: 4872 out fendxc,,,,,,sysgm,arith tri 4792: 4872 out fendxc,,,,,,sysgm,arith tri 4780: 4873 dcw @<@ delta 12-6-8 4793: 4873 dcw @<@ delta 12-6-8 4781: 4874 temp dc @ @ blanks 4794: 4874 temp dc @ @ blanks 4782: 4875 gm dc @}@ group mk 4795: 4875 gm dc @}@ group mk 4783: 4876 dcw @error 28 - incorrect mode of function argument, st@ 4796: 4876 dcw @error 28 - incorrect mode of function argument, st@ 4784: 4877 bgmsg dc @atement @ 4797: 4877 bgmsg dc @atement @ 4785: 4878 dcw @-@ 4798: 4878 dcw @-@ 4786: 4879 ops dcw @, .@&}#%)*@ plus, g-m, equal 4799: 4879 ops dcw @, .@&}#%)*@ plus, g-m, equal 4787: 4880 matrx equ *&1 4800: 4880 matrx equ *&1 4788: 4881 dc @220922200sssssssssss010970000007093000006660s66666@ 4801: 4881 dc @220922200sssssssssss010970000007093000006660s66666@ 4789: 4882 dc @020922000s220922200s220922280s0509700000440944400s@ 4802: 4882 dc @020922000s220922200s220922280s0509700000440944400s@ 4790: 4883 * 4803: 4883 * 4791: 4884 * 4804: 4884 * 4792: 4885 * arith algorithm 4805: 4885 * arith algorithm 4793: 4886 * 4806: 4886 * 4794: 4887 * 4807: 4887 * 4795: 4888 * 4808: 4888 * 4796: 4889 * phi left 4809: 4889 * phi left 4797: 4890 * 4810: 4890 * 4798: 4891 * - 4811: 4891 * - 4799: 4892 * * ) % # gm & / ** f% ng 4812: 4892 * * ) % # gm & / ** f% ng 4800: 4893 * 4813: 4893 * 4801: 4894 * p * 2 2 0 9 2 2 2 0 0 s 4814: 4894 * p * 2 2 0 9 2 2 2 0 0 s 4802: 4895 * h ) s s s s s s s s s s 4815: 4895 * h ) s s s s s s s s s s 4803: 4896 * i % 0 1 0 9 7 0 0 0 0 0 4816: 4896 * i % 0 1 0 9 7 0 0 0 0 0 4804: 4897 * # 0 7 0 9 3 0 0 0 0 0 4817: 4897 * # 0 7 0 9 3 0 0 0 0 0 4805: 4898 * r gm 6 6 6 0 s 6 6 6 6 6 4818: 4898 * r gm 6 6 6 0 s 6 6 6 6 6 4806: 4899 * i -& 0 2 0 9 2 2 0 0 0 s 4819: 4899 * i -& 0 2 0 9 2 2 0 0 0 s 4807: 4900 * g / 2 2 0 9 2 2 2 0 0 s 4820: 4900 * g / 2 2 0 9 2 2 2 0 0 s 4808: 4901 * h .** 2 2 0 9 2 2 2 8 0 s 4821: 4901 * h .** 2 2 0 9 2 2 2 8 0 s 4809: 4902 * t f% 0 5 0 9 7 0 0 0 0 0 4822: 4902 * t f% 0 5 0 9 7 0 0 0 0 0 4810: 4903 * ,ng 4 4 0 9 4 4 4 0 0 s 4823: 4903 * ,ng 4 4 0 9 4 4 4 0 0 s 4811: 4904 * 4824: 4904 * 4812: 4905 * 4825: 4905 * 4813: 4906 * 0 skip to next op 4826: 4906 * 0 skip to next op 4814: 4907 * 1 delete parens 4827: 4907 * 1 delete parens 4815: 4908 * 2 force binary op 4828: 4908 * 2 force binary op 4816: 4909 * 3 eoj 4829: 4909 * 3 eoj 4817: 4910 * 4 negate fn 4830: 4910 * 4 negate fn 4818: 4911 * 5 other fn 4831: 4911 * 5 other fn 4819: 4912 * 6 left side invalid 4832: 4912 * 6 left side invalid 4820: 4913 * 7 paren error 4833: 4913 * 7 paren error 4821: 4914 * 8 double exponentiation 4834: 4914 * 8 double exponentiation 4822: 4915 * 9 multiple # signs 4835: 4915 * 9 multiple # signs 4823: 4916 * s compiler error 4836: 4916 * s compiler error 4824: 4917 * 4837: 4917 * 4825: 4918 * 4838: 4918 * 4826: 4919 ltorg* 4839: 4919 ltorg* 4827: 4920 sysgm dcw @}@ system group mk 4840: 4920 sysgm dcw @}@ system group mk 4828: 4921 xfr initl 4841: 4921 xfr initl 4829: 4922 job arith phase three 50353 4842: 4922 job arith phase three 50353 4830: 4923 sfx [ 12-5-8 4843: 4923 sfx [ 12-5-8 4831: 4924 110 dcw @arith 3@ 4844: 4924 110 dcw @arith 3@ 4832: 4925 org xbegin 4845: 4925 org xbegin 4833: 4926 start fendxc,,,,,,sysgm,arith 4 4846: 4926 start fendxc,,,,,,sysgm,arith 4 4834: 4927 org *&200 4847: 4927 org *&200 4835: 4928 ltorg* 4848: 4928 ltorg* 4836: 4929 sysgm dcw @}@ system gm 4849: 4929 sysgm dcw @}@ system gm 4837: 4930 xfr start 4850: 4930 xfr start 4838: 4931 job arith phase four 50363 4851: 4931 job arith phase four 50363 4839: 4932 fbegnarith 4, x1,,x2,,x3,,7 4852: 4932 fbegnarith 4, x1,,x2,,x3,,7 4840: 4933 org xbegin 4853: 4933 org xbegin 4841: 4934 * start - initialization 4854: 4934 * start - initialization 4842: 4935 start bce fendx,x2,. 4855: 4935 start bce fendx,x2,. 4843: 4936 sw gm1 4856: 4936 sw gm1 4844: 4937 sbr savx3#3,0&x3 4857: 4937 sbr savx3#3,0&x3 4845: 4938 sbr x1,1&x1 4858: 4938 sbr x1,1&x1 4846: 4939 sbr x2,1&x2 4859: 4939 sbr x2,1&x2 4847: 4940 * start of every statement 4860: 4940 * start of every statement 4848: 4941 nustm s tblr 4861: 4941 nustm s tblr 4849: 4942 c x2, savx3 4862: 4942 c x2, savx3 4850: 4943 be fendx 4863: 4943 be fendx 4851: 4944 mcw blk4,maxdl 4864: 4944 mcw blk4,maxdl 4852: 4945 sbr hex1#3,0&x1 4865: 4945 sbr hex1#3,0&x1 4853: 4946 * start of every delta string 4866: 4946 * start of every delta string 4854: 4947 blkop mcw blk4, hldop#1 4867: 4947 blkop mcw blk4, hldop#1 4855: 4948 cwprt cw prtsw 4868: 4948 cwprt cw prtsw 4856: 4949 b fix x2 at high order minus one 4869: 4949 b fix x2 at high order minus one 4857: 4950 bce delt1,left-2,< 12-6-8 x2 at units pos 4870: 4950 bce delt1,left-2,< 12-6-8 x2 at units pos 4858: 4951 ckdl2 bce delt2,right-2,< 12-6-8 4871: 4951 ckdl2 bce delt2,right-2,< 12-6-8 4859: 4952 bce outpt,1&x2,} gm 4872: 4952 bce outpt,1&x2,} gm 4860: 4953 bw big,prtsw 4873: 4953 bw big,prtsw 4861: 4954 add3 a @i99@,curdl#3 4874: 4954 add3 a @i99@,curdl#3 4862: 4955 mcw curdl,x3 4875: 4955 mcw curdl,x3 4863: 4956 bce add3,table&x3,1 4876: 4956 bce add3,table&x3,1 4864: 4957 b blkop 4877: 4957 b blkop 4865: 4958 * delta is left operand 4878: 4958 * delta is left operand 4866: 4959 delt1 bce ckdl2,op,# 4879: 4959 delt1 bce ckdl2,op,# 4867: 4960 bce tuf,op,. 4880: 4960 bce tuf,op,. 4868: 4961 b cvtdl 4881: 4961 b cvtdl 4869: 4962 dcw left 4882: 4962 dcw left 4870: 4963 d2 b getdl cvt3 has delta no of sought temp 4883: 4963 d2 b getdl cvt3 has delta no of sought temp 4871: 4964 mn &1,table&x1 mark delta deleted 4884: 4964 mn &1,table&x1 mark delta deleted 4872: 4965 lca 0&x3,hld35#35 4885: 4965 lca 0&x3,hld35#35 4873: 4966 sar x1 4886: 4966 sar x1 4874: 4967 * delete temp 4887: 4967 * delete temp 4875: 4968 cmp3 c x1,x2 4888: 4968 cmp3 c x1,x2 4876: 4969 be hlft 4889: 4969 be hlft 4877: 4970 mvdwnx1,x3 4890: 4970 mvdwnx1,x3 4878: 4971 b cmp3 4891: 4971 b cmp3 4879: 4972 * x1 # x2 units posn of temp to be optimized 4892: 4972 * x1 # x2 units posn of temp to be optimized 4880: 4973 * x3 # units of insertion of optimized temp 4893: 4973 * x3 # units of insertion of optimized temp 4881: 4974 * insert temp in string 4894: 4974 * insert temp in string 4882: 4975 hlft c 0&x2 4895: 4975 hlft c 0&x2 4883: 4976 sar x1 x1 at hi ord of old temp 4896: 4976 sar x1 x1 at hi ord of old temp 4884: 4977 bw cw2,prtsw 4897: 4977 bw cw2,prtsw 4885: 4978 ckrt bce nort,right,* 4898: 4978 ckrt bce nort,right,* 4886: 4979 bce fst1,op,# 4899: 4979 bce fst1,op,# 4887: 4980 lca right,0&x3 4900: 4980 lca right,0&x3 4888: 4981 sbr x3 4901: 4981 sbr x3 4889: 4982 cw 1&x3 4902: 4982 cw 1&x3 4890: 4983 nort lca op,0&x3 4903: 4983 nort lca op,0&x3 4891: 4984 sbr x3 4904: 4984 sbr x3 4892: 4985 cw 1&x3 4905: 4985 cw 1&x3 4893: 4986 lca hld35,0&x3 4906: 4986 lca hld35,0&x3 4894: 4987 sbr x3 4907: 4987 sbr x3 4895: 4988 sbr x2 x2 noa at new loc of temp 4908: 4988 sbr x2 x2 noa at new loc of temp 4896: 4989 * shift rest of statement 4909: 4989 * shift rest of statement 4897: 4990 load2 lca 0&x1,0&x3 4910: 4990 load2 lca 0&x1,0&x3 4898: 4991 sar x1 4911: 4991 sar x1 4899: 4992 c 0&x3 4912: 4992 c 0&x3 4900: 4993 sar x3 4913: 4993 sar x3 4901: 4994 bce *&5,1&x1,} gm 4914: 4994 bce *&5,1&x1,} gm 4902: 4995 b load2 4915: 4995 b load2 4903: 4996 b blkop 4916: 4996 b blkop 4904: 4997 * delta is right operand 4917: 4997 * delta is right operand 4905: 4998 delt2 bce *&5,hldop, blank 4918: 4998 delt2 bce *&5,hldop, blank 4906: 4999 b canu 4919: 4999 b canu 4907: 5000 bce first,op,# 4920: 5000 bce first,op,# 4908: 5001 fbceqcomut,op,&,* 4921: 5001 fbceqcomut,op,&,* 4909: 5002 bce negat,op,- 4922: 5002 bce negat,op,- 4910: 5003 b cknd 4923: 5003 b cknd 4911: 5004 comut lca left,hld35 4924: 5004 comut lca left,hld35 4912: 5005 lca right,left 4925: 5005 lca right,left 4913: 5006 lca hld35,right 4926: 5006 lca hld35,right 4914: 5007 b delt1 4927: 5007 b delt1 4915: 5008 negat bw kwm,prtsw 4928: 5008 negat bw kwm,prtsw 4916: 5009 lca left,0&x2 4929: 5009 lca left,0&x2 4917: 5010 lca @&@ 4930: 5010 lca @&@ 4918: 5011 sbr x2 4931: 5011 sbr x2 4919: 5012 cw 2&x2,xnegtf 4932: 5012 cw 2&x2,xnegtf 4920: 5013 neg3 lca right,left 4933: 5013 neg3 lca right,left 4921: 5014 lca @***@,right 4934: 5014 lca @***@,right 4922: 5015 mcw @n@,op 4935: 5015 mcw @n@,op 4923: 5016 cw xnegtf 4936: 5016 cw xnegtf 4924: 5017 sw prtsw 4937: 5017 sw prtsw 4925: 5018 b delt1 4938: 5018 b delt1 4926: 5019 * in the middle of partially optimized temp 4939: 5019 * in the middle of partially optimized temp 4927: 5020 big bce tuf,right,* 4940: 5020 big bce tuf,right,* 4928: 5021 mcw op,bce1&7 4941: 5021 mcw op,bce1&7 4929: 5022 bce1 bce maybe,@&-*@@, 0 4942: 5022 bce1 bce maybe,@&-*@@, 0 4930: 5023 chain3 4943: 5023 chain3 4931: 5024 tuf bw *&5,prtsw 4944: 5024 tuf bw *&5,prtsw 4932: 5025 b add3 4945: 5025 b add3 4933: 5026 b kwm 4946: 5026 b kwm 4934: 5027 tuf2 bw adjst,2&x2 4947: 5027 tuf2 bw adjst,2&x2 4935: 5028 sbr x2 4948: 5028 sbr x2 4936: 5029 b tuf2 4949: 5029 b tuf2 4937: 5030 adjst sbr x2,1&x2 4950: 5030 adjst sbr x2,1&x2 4938: 5031 bce outpt,1&x2,} gm 4951: 5031 bce outpt,1&x2,} gm 4939: 5032 b add3 4952: 5032 b add3 4940: 5033 kwm sbr kwmxt&3 4953: 5033 kwm sbr kwmxt&3 4941: 5034 cw 1&x2 4954: 5034 cw 1&x2 4942: 5035 kwmxt b 0 4955: 5035 kwmxt b 0 4943: 5036 maybe bce *&5,hldop, blank 4956: 5036 maybe bce *&5,hldop, blank 4944: 5037 b adnl 4957: 5037 b adnl 4945: 5038 mcw op,hldop 4958: 5038 mcw op,hldop 4946: 5039 mesur cw 1&x2 4959: 5039 mesur cw 1&x2 4947: 5040 lca right,0&x2 4960: 5040 lca right,0&x2 4948: 5041 sbr x2 4961: 5041 sbr x2 4949: 5042 cw midsw#1 4962: 5042 cw midsw#1 4950: 5043 sbr cw5&3,1&x2 4963: 5043 sbr cw5&3,1&x2 4951: 5044 b cwprt 4964: 5044 b cwprt 4952: 5045 adnl fbceqhope,hldop,&,- 4965: 5045 adnl fbceqhope,hldop,&,- 4953: 5046 fbceqmesur,op,*,/ 4966: 5046 fbceqmesur,op,*,/ 4954: 5047 b tuf 4967: 5047 b tuf 4955: 5048 hope fbceqmesur,op,&,- 4968: 5048 hope fbceqmesur,op,&,- 4956: 5049 b tuf 4969: 5049 b tuf 4957: 5050 * delta found in middle of large string 4970: 5050 * delta found in middle of large string 4958: 5051 canu mcw op,*&8 4971: 5051 canu mcw op,*&8 4959: 5052 bce swap,hldop,0 4972: 5052 bce swap,hldop,0 4960: 5053 fbceqhope2,hldop,&,- 4973: 5053 fbceqhope2,hldop,&,- 4961: 5054 cknd bce outpt,1&x2,} gm 4974: 5054 cknd bce outpt,1&x2,} gm 4962: 5055 bw tuf,prtsw 4975: 5055 bw tuf,prtsw 4963: 5056 bw add3,1&x2 4976: 5056 bw add3,1&x2 4964: 5057 b tuf 4977: 5057 b tuf 4965: 5058 hope2 fbceqswap,op,&,- 4978: 5058 hope2 fbceqswap,op,&,- 4966: 5059 b cknd 4979: 5059 b cknd 4967: 5060 * shift middle delta to front of string 4980: 5060 * shift middle delta to front of string 4968: 5061 swap bce tuf,op,@ 4981: 5061 swap bce tuf,op,@ 4969: 5062 bw kwm,prtsw 4982: 5062 bw kwm,prtsw 4970: 5063 c 0&x2,blk4 4983: 5063 c 0&x2,blk4 4971: 5064 sar x3 4984: 5064 sar x3 4972: 5065 mcw 0&x3,0&x2 4985: 5065 mcw 0&x3,0&x2 4973: 5066 sbr x2 4986: 5066 sbr x2 4974: 5067 bce neg2,op,- 4987: 5067 bce neg2,op,- 4975: 5068 mcw op,0&x2 4988: 5068 mcw op,0&x2 4976: 5069 mcw right 4989: 5069 mcw right 4977: 5070 c 0&x2 4990: 5070 c 0&x2 4978: 5071 sbr x2 ??? SAR ??? 4991: 5071 sbr x2 ??? SAR ??? 4979: 5072 b blkop 4992: 5072 b blkop 4980: 5073 neg2 lca @&@,0&x2 4993: 5073 neg2 lca @&@,0&x2 4981: 5074 sbr x2 4994: 5074 sbr x2 4982: 5075 sw prtsw 4995: 5075 sw prtsw 4983: 5076 b neg3 4996: 5076 b neg3 4984: 5077 first b cvtdl 4997: 5077 first b cvtdl 4985: 5078 dcw right 4998: 5078 dcw right 4986: 5079 mcw right,maxdl#3 4999: 5079 mcw right,maxdl#3 4987: 5080 mcw cvt3,curdl 5000: 5080 mcw cvt3,curdl 4988: 5081 a &1,curdl 5001: 5081 a &1,curdl 4989: 5082 b d2 5002: 5082 b d2 4990: 5083 fst1 lca hld35,0&x3 5003: 5083 fst1 lca hld35,0&x3 4991: 5084 sbr x2 5004: 5084 sbr x2 4992: 5085 lca op 5005: 5085 lca op 4993: 5086 sbr x3 5006: 5086 sbr x3 4994: 5087 cw 1&x3 5007: 5087 cw 1&x3 4995: 5088 lca left,0&x3 5008: 5088 lca left,0&x3 4996: 5089 lca gm1 5009: 5089 lca gm1 4997: 5090 b blkop 5010: 5090 b blkop 4998: 5091 * all optimization has taken place - output statement 5011: 5091 * all optimization has taken place - output statement 4999: 5092 outpt mcw hex1,x1 5012: 5092 outpt mcw hex1,x1 5000: 5093 sbr hex2#3,0&x2 5013: 5093 sbr hex2#3,0&x2 5001: 5094 bce noptm,2&x2,, if statement 5014: 5094 bce noptm,2&x2,, if statement 5002: 5095 bce noptm,maxdl-2,< 12-6-8 5015: 5095 bce noptm,maxdl-2,< 12-6-8 5003: 5096 bce noptm,0&x2,$ 5016: 5096 bce noptm,0&x2,$ 5004: 5097 bce noptm,bop,$ 5017: 5097 bce noptm,bop,$ 5005: 5098 bwz ckfix,bop-1,k 5018: 5098 bwz ckfix,bop-1,k 5006: 5099 bwz noptm,aop-1,k 5019: 5099 bwz noptm,aop-1,k 5007: 5100 bwz noptm,aop-1,s 5020: 5100 bwz noptm,aop-1,s 5008: 5101 b optm 5021: 5101 b optm 5009: 5102 ckfix bwz noptm,aop-1,2 5022: 5102 ckfix bwz noptm,aop-1,2 5010: 5103 bwz noptm,aop-1,b 5023: 5103 bwz noptm,aop-1,b 5011: 5104 * generate inline coding 5024: 5104 * generate inline coding 5012: 5105 optm b noptm 5025: 5105 optm b noptm 5013: 5106 lca bop 5026: 5106 lca bop 5014: 5107 lca aop 5027: 5107 lca aop 5015: 5108 lca @l@ 5028: 5108 lca @l@ 5016: 5109 sbr x3 5029: 5109 sbr x3 5017: 5110 cw 2&x3,5&x3 5030: 5110 cw 2&x3,5&x3 5018: 5111 mz *-4,3&x3 5031: 5111 mz *-4,3&x3 5019: 5112 mz *-4,6&x3 5032: 5112 mz *-4,6&x3 5020: 5113 sbr x1,6&x1 5033: 5113 sbr x1,6&x1 5021: 5114 lca 6&x2 5034: 5114 lca 6&x2 5022: 5115 lca 5035: 5115 lca 5023: 5116 sbr x2,6&x2 5036: 5116 sbr x2,6&x2 5024: 5117 b nustm 5037: 5117 b nustm 5025: 5118 * cannot generate inline coding 5038: 5118 * cannot generate inline coding 5026: 5119 noptm mcw @01@,maxdl 5039: 5119 noptm mcw @01@,maxdl 5027: 5120 mcw @001@,x3 5040: 5120 mcw @001@,x3 5028: 5121 mcw @01@,dl2#2 5041: 5121 mcw @01@,dl2#2 5029: 5122 sbr x1,4&x1 5042: 5122 sbr x1,4&x1 5030: 5123 lca @b700@ 5043: 5123 lca @b700@ 5031: 5124 ckzro bce prodl,table&x3,0 5044: 5124 ckzro bce prodl,table&x3,0 5032: 5125 decr a &1,dl2 5045: 5125 decr a &1,dl2 5033: 5126 mcw dl2,maxdl 5046: 5126 mcw dl2,maxdl 5034: 5127 mz dl2-1,maxdl 5047: 5127 mz dl2-1,maxdl 5035: 5128 a &1,x3 5048: 5128 a &1,x3 5036: 5129 sw prtsw 5049: 5129 sw prtsw 5037: 5130 b ckzro 5050: 5130 b ckzro 5038: 5131 prodl lca @#@,4&x1 5051: 5131 prodl lca @#@,4&x1 5039: 5132 lca maxdl 5052: 5132 lca maxdl 5040: 5133 cw 4&x1 5053: 5133 cw 4&x1 5041: 5134 c 0&x1,@b700@ 5054: 5134 c 0&x1,@b700@ 5042: 5135 be *&5 5055: 5135 be *&5 5043: 5136 cw 1&x1 5056: 5136 cw 1&x1 5044: 5137 lca gm1,1&x2 5057: 5137 lca gm1,1&x2 5045: 5138 cx2 c 0&x2 5058: 5138 cx2 c 0&x2 5046: 5139 sar x2 5059: 5139 sar x2 5047: 5140 bce kwm2,0&x2,# 5060: 5140 bce kwm2,0&x2,# 5048: 5141 bce sub3,1&x2,$ 5061: 5141 bce sub3,1&x2,$ 5049: 5142 mz 2&x2,2&x1 5062: 5142 mz 2&x2,2&x1 5050: 5143 bmpx1 sbr x1,4&x1 5063: 5143 bmpx1 sbr x1,4&x1 5051: 5144 * string to output area 5064: 5144 * string to output area 5052: 5145 pmov mcm 1&x2,1&x1 5065: 5145 pmov mcm 1&x2,1&x1 5053: 5146 mn 5066: 5146 mn 5054: 5147 sbr x1 5067: 5147 sbr x1 5055: 5148 mcm 1&x2 5068: 5148 mcm 1&x2 5056: 5149 mn 5069: 5149 mn 5057: 5150 sar x2 5070: 5150 sar x2 5058: 5151 bce pmov,0&x2,| 5071: 5151 bce pmov,0&x2,| 5059: 5152 c 0&x2 5072: 5152 c 0&x2 5060: 5153 sar x2 5073: 5153 sar x2 5061: 5154 mcw x3,hex3#3 5074: 5154 mcw x3,hex3#3 5062: 5155 mcw @|@,0&x1 5075: 5155 mcw @|@,0&x1 5063: 5156 lca 0&x2 5076: 5156 lca 0&x2 5064: 5157 sbr x3 5077: 5157 sbr x3 5065: 5158 cw 0&x1,1&x3 5078: 5158 cw 0&x1,1&x3 5066: 5159 c 0&x2 5079: 5159 c 0&x2 5067: 5160 sar x3 5080: 5160 sar x3 5068: 5161 bce eostr,0&x3,} gm 5081: 5161 bce eostr,0&x3,} gm 5069: 5162 sbr x2,0&x3 5082: 5162 sbr x2,0&x3 5070: 5163 mcw hex3,x3 5083: 5163 mcw hex3,x3 5071: 5164 b decr 5084: 5164 b decr 5072: 5165 kwm2 cw 1&x2 5085: 5165 kwm2 cw 1&x2 5073: 5166 b cx2 5086: 5166 b cx2 5074: 5167 sub3 mz 3&x2,2&x1 5087: 5167 sub3 mz 3&x2,2&x1 5075: 5168 b bmpx1 5088: 5168 b bmpx1 5076: 5169 * all of statement to output area 5089: 5169 * all of statement to output area 5077: 5170 eostr c 0&x1,blk4#4 5090: 5170 eostr c 0&x1,blk4#4 5078: 5171 sar x1 5091: 5171 sar x1 5079: 5172 lca @|@,0&x1 5092: 5172 lca @|@,0&x1 5080: 5173 mcw 0&x2 5093: 5173 mcw 0&x2 5081: 5174 mcw hex2,x2 5094: 5174 mcw hex2,x2 5082: 5175 bw docod,6&x2 5095: 5175 bw docod,6&x2 5083: 5176 sw 3&x2 5096: 5176 sw 3&x2 5084: 5177 sbr x1,9&x1 5097: 5177 sbr x1,9&x1 5085: 5178 lca 11&x2 5098: 5178 lca 11&x2 5086: 5179 sbr x2,11&x2 5099: 5179 sbr x2,11&x2 5087: 5180 docod sbr x1,6&x1 5100: 5180 docod sbr x1,6&x1 5088: 5181 lca 6&x2 5101: 5181 lca 6&x2 5089: 5182 lca 5102: 5182 lca 5090: 5183 sbr x2,6&x2 5103: 5183 sbr x2,6&x2 5091: 5184 b nustm 5104: 5184 b nustm 5092: 5185 gm1 dc @}@ g-m 5105: 5185 gm1 dc @}@ g-m 5093: 5186 table da 1x332,c 5106: 5186 table da 1x332,c 5094: 5187 tblr equ * 5107: 5187 tblr equ * 5095: 5188 * gets operand left, operator, operand right 5108: 5188 * gets operand left, operator, operand right 5096: 5189 fix sbr fixt&3 5109: 5189 fix sbr fixt&3 5097: 5190 bce sub1,1&x2,$ 5110: 5190 bce sub1,1&x2,$ 5098: 5191 lca 3&x2,left#18 5111: 5191 lca 3&x2,left#18 5099: 5192 mcw 4&x2,op#1 5112: 5192 mcw 4&x2,op#1 5100: 5193 sbr x2,4&x2 5113: 5193 sbr x2,4&x2 5101: 5194 bw *&5,midsw 5114: 5194 bw *&5,midsw 5102: 5195 cw5 cw 0 5115: 5195 cw5 cw 0 5103: 5196 sw midsw 5116: 5196 sw midsw 5104: 5197 bw unary,1&x2 5117: 5197 bw unary,1&x2 5105: 5198 sw 1&x2 5118: 5198 sw 1&x2 5106: 5199 sbr cw&3,1&x2 5119: 5199 sbr cw&3,1&x2 5107: 5200 mn 0&x2,bce3&7 5120: 5200 mn 0&x2,bce3&7 5108: 5201 mz 0&x2,bce3&7 5121: 5201 mz 0&x2,bce3&7 5109: 5202 bce3 bce istwo,@&-*@.#@,0 5122: 5202 bce3 bce istwo,@&-*@.#@,0 5110: 5203 chain5 5123: 5203 chain5 5111: 5204 sw prtsw 5124: 5204 sw prtsw 5112: 5205 unary lca @***@,right 5125: 5205 unary lca @***@,right 5113: 5206 b fixt 5126: 5206 b fixt 5114: 5207 istwo bce sub1,1&x2,$ 5127: 5207 istwo bce sub1,1&x2,$ 5115: 5208 lca 3&x2,right#18 5128: 5208 lca 3&x2,right#18 5116: 5209 sbr x2,3&x2 5129: 5209 sbr x2,3&x2 5117: 5210 bw cw,1&x2 5130: 5210 bw cw,1&x2 5118: 5211 sw 1&x2,prtsw 5131: 5211 sw 1&x2,prtsw 5119: 5212 cw cw 0 5132: 5212 cw cw 0 5120: 5213 fixt b 0 5133: 5213 fixt b 0 5121: 5214 sub1 sbr subxt&3 5134: 5214 sub1 sbr subxt&3 5122: 5215 sbr x2,8&x2 5135: 5215 sbr x2,8&x2 5123: 5216 bce subxt,3&x2,$ 5136: 5216 bce subxt,3&x2,$ 5124: 5217 sbr x2,6&x2 5137: 5217 sbr x2,6&x2 5125: 5218 subxt b 0 5138: 5218 subxt b 0 5126: 5219 * converts any delta number to three characters 5139: 5219 * converts any delta number to three characters 5127: 5220 cvtdl sbr x1 5140: 5220 cvtdl sbr x1 5128: 5221 sbr cvtxt&3,3&x1 5141: 5221 sbr cvtxt&3,3&x1 5129: 5222 mcw 2&x1,x1 5142: 5222 mcw 2&x1,x1 5130: 5223 mn 0&x1,cvt3#3 5143: 5223 mn 0&x1,cvt3#3 5131: 5224 mn 5144: 5224 mn 5132: 5225 mcw @0@ 5145: 5225 mcw @0@ 5133: 5226 bwz cvtxt,0&x1,2 5146: 5226 bwz cvtxt,0&x1,2 5134: 5227 a &100,cvt3 5147: 5227 a &100,cvt3 5135: 5228 bwz cvtxt,0&x1,s 5148: 5228 bwz cvtxt,0&x1,s 5136: 5229 a &100,cvt3 5149: 5229 a &100,cvt3 5137: 5230 bwz cvtxt,0&x1,k 5150: 5230 bwz cvtxt,0&x1,k 5138: 5231 a &100,cvt3 5151: 5231 a &100,cvt3 5139: 5232 cvtxt b 0 5152: 5232 cvtxt b 0 5140: 5233 * finds temp to be optimized 5153: 5233 * finds temp to be optimized 5141: 5234 getdl sbr gdlxt&3 5154: 5234 getdl sbr gdlxt&3 5142: 5235 sbr x3,0&x2 5155: 5235 sbr x3,0&x2 5143: 5236 mcw curdl,x1 x1 has current delta 5156: 5236 mcw curdl,x1 x1 has current delta 5144: 5237 bw getwm,prtsw 5157: 5237 bw getwm,prtsw 5145: 5238 cmp2 c x1,cvt3 5158: 5238 cmp2 c x1,cvt3 5146: 5239 gdlxt be 0 5159: 5239 gdlxt be 0 5147: 5240 bce add1,table&x1,1 5160: 5240 bce add1,table&x1,1 5148: 5241 a @i99@,x1 5161: 5241 a @i99@,x1 5149: 5242 getwm bw gotwm,2&x3 5162: 5242 getwm bw gotwm,2&x3 5150: 5243 sbr x3 5163: 5243 sbr x3 5151: 5244 b getwm 5164: 5244 b getwm 5152: 5245 gotwm sbr x3,1&x3 5165: 5245 gotwm sbr x3,1&x3 5153: 5246 b cmp2 5166: 5246 b cmp2 5154: 5247 add1 a @i99@,x1 5167: 5247 add1 a @i99@,x1 5155: 5248 b cmp2 5168: 5248 b cmp2 5156: 5249 cw2 cw 1&x3 5169: 5249 cw2 cw 1&x3 5157: 5250 b ckrt 5170: 5250 b ckrt 5158: 5251 prtsw dc #1 5171: 5251 prtsw dc #1 5159: 5252 fendx fendxc,,,,,,sysgm, arith 5 5172: 5252 fendx fendxc,,,,,,sysgm, arith 5 5160: 5253 ltorg* 5173: 5253 ltorg* 5161: 5254 aop equ right 5174: 5254 aop equ right 5162: 5255 bop equ left 5175: 5255 bop equ left 5163: 5256 sysgm dcw @}@ system group mark 5176: 5256 sysgm dcw @}@ system group mark 5164: 5257 org *&50 5177: 5257 org *&50 5165: 5258 ndrith equ * 5178: 5258 ndrith equ * 5166: 5259 xfr start 5179: 5259 xfr start 5167: 5260 job arith phase five 50373 5180: 5260 job arith phase five 50373 5168: 5261 fbegnarith 5,x1,,x2,,x3,,y 5181: 5261 fbegnarith 5,x1,,x2,,x3,,y 5169: 5262 org xbegin 5182: 5262 org xbegin 5170: 5263 start bce noari,x2,. 5183: 5263 start bce noari,x2,. 5171: 5264 c 0&x2 5184: 5264 c 0&x2 5172: 5265 sar x2 5185: 5265 sar x2 5173: 5266 sbr savx3#3 5186: 5266 sbr savx3#3 5174: 5267 c 0&x1 5187: 5267 c 0&x1 5175: 5268 sar x1 5188: 5268 sar x1 5176: 5269 * beginning of processing of each statement 5189: 5269 * beginning of processing of each statement 5177: 5270 nustm mcw 0&x1,code 5190: 5270 nustm mcw 0&x1,code 5178: 5271 mcw 5191: 5271 mcw 5179: 5272 bce mvdwn,code-3,e 5192: 5272 bce mvdwn,code-3,e 5180: 5273 bce *&5,code-3,r 5193: 5273 bce *&5,code-3,r 5181: 5274 b fendx 5194: 5274 b fendx 5182: 5275 mvdwn mvdwnx1,x2 5195: 5275 mvdwn mvdwnx1,x2 5183: 5276 lca 1&x2,2&x2 5196: 5276 lca 1&x2,2&x2 5184: 5277 sbr x2 5197: 5277 sbr x2 5185: 5278 cw modsw#1 5198: 5278 cw modsw#1 5186: 5279 bce iftyp,2&x1,e 5199: 5279 bce iftyp,2&x1,e 5187: 5280 ckxf mvdwnx1,x2 5200: 5280 ckxf mvdwnx1,x2 5188: 5281 sbr x3,0&x1 5201: 5281 sbr x3,0&x1 5189: 5282 sbr hex3#3 5202: 5282 sbr hex3#3 5190: 5283 bce eostr,0&x1,} gm 5203: 5283 bce eostr,0&x1,} gm 5191: 5284 * generate fix or float function if left side and right 5204: 5284 * generate fix or float function if left side and right 5192: 5285 * side are not of same mode 5205: 5285 * side are not of same mode 5193: 5286 next mn 0&x3,bce5&7 5206: 5286 next mn 0&x3,bce5&7 5194: 5287 mz 0&x3,bce5&7 5207: 5287 mz 0&x3,bce5&7 5195: 5288 sar x3 5208: 5288 sar x3 5196: 5289 bce5 bce gotsq,@&-@*.#@,0 5209: 5289 bce5 bce gotsq,@&-@*.#@,0 5197: 5290 chain5 5210: 5290 chain5 5198: 5291 b next 5211: 5291 b next 5199: 5292 gotsq bce worry,1&x3,. 5212: 5292 gotsq bce worry,1&x3,. 5200: 5293 mz 4&x3,opmd#1 5213: 5293 mz 4&x3,opmd#1 5201: 5294 bce sub5,2&x3,$ 5214: 5294 bce sub5,2&x3,$ 5202: 5295 mz 3&x3,opmd 5215: 5295 mz 3&x3,opmd 5203: 5296 bmp4 sbr x3,4&x3 5216: 5296 bmp4 sbr x3,4&x3 5204: 5297 cmp5 c x3,hex3 5217: 5297 cmp5 c x3,hex3 5205: 5298 be scneq 5218: 5298 be scneq 5206: 5299 sbr x3,1&x3 5219: 5299 sbr x3,1&x3 5207: 5300 fbceqmodch,0&x3,f,x 5220: 5300 fbceqmodch,0&x3,f,x 5208: 5301 b cmp5 5221: 5301 b cmp5 5209: 5302 modch bw cw1,modsw 5222: 5302 modch bw cw1,modsw 5210: 5303 sw modsw 5223: 5303 sw modsw 5211: 5304 b cmp5 5224: 5304 b cmp5 5212: 5305 cw1 cw modsw 5225: 5305 cw1 cw modsw 5213: 5306 b cmp5 5226: 5306 b cmp5 5214: 5307 worry sbr bmpum&6,0&x3 5227: 5307 worry sbr bmpum&6,0&x3 5215: 5308 bce grief,0&x3,$ 5228: 5308 bce grief,0&x3,$ 5216: 5309 sbr x3 5229: 5309 sbr x3 5217: 5310 sndum mz 0&x3,opmd 5230: 5310 sndum mz 0&x3,opmd 5218: 5311 bmpum sbr x3,0 5231: 5311 bmpum sbr x3,0 5219: 5312 bce sub5,2&x3,$ 5232: 5312 bce sub5,2&x3,$ 5220: 5313 b bmp4 5233: 5313 b bmp4 5221: 5314 grief c 0&x3,blk8 5234: 5314 grief c 0&x3,blk8 5222: 5315 sar x3 5235: 5315 sar x3 5223: 5316 bce sndum,0&x3,$ dummy 5236: 5316 bce sndum,0&x3,$ dummy 5224: 5317 b dummy 5237: 5317 b dummy 5225: 5318 b 5238: 5318 b 5226: 5319 c 0&x3,blk6 5239: 5319 c 0&x3,blk6 5227: 5320 sar x3 5240: 5320 sar x3 5228: 5321 b sndum 5241: 5321 b sndum 5229: 5322 sub5 sbr x3,12&x3 5242: 5322 sub5 sbr x3,12&x3 5230: 5323 bce cmp5,0&x3,$ 5243: 5323 bce cmp5,0&x3,$ 5231: 5324 sbr x3,6&x3 5244: 5324 sbr x3,6&x3 5232: 5325 b cmp5 5245: 5325 b cmp5 5233: 5326 scneq bce goteq,0&x3,# 5246: 5326 scneq bce goteq,0&x3,# 5234: 5327 sbr x3 5247: 5327 sbr x3 5235: 5328 b scneq 5248: 5328 b scneq 5236: 5329 goteq mcw 0&x3,hld18#18 5249: 5329 goteq mcw 0&x3,hld18#18 5237: 5330 bce sub1,hld18-1,$ 5250: 5330 bce sub1,hld18-1,$ 5238: 5331 mz hld18-2,fstmd#1 5251: 5331 mz hld18-2,fstmd#1 5239: 5332 nowop bwz ckfix,fstmd,s 5252: 5332 nowop bwz ckfix,fstmd,s 5240: 5333 bwz ckfix,fstmd,k 5253: 5333 bwz ckfix,fstmd,k 5241: 5334 bwz ckswf,opmd,2 5254: 5334 bwz ckswf,opmd,2 5242: 5335 bwz ckswf,opmd,b 5255: 5335 bwz ckswf,opmd,b 5243: 5336 bw nocvt,modsw 5256: 5336 bw nocvt,modsw 5244: 5337 mkflt mcw @f@,0&x2 5257: 5337 mkflt mcw @f@,0&x2 5245: 5338 sbr x2 5258: 5338 sbr x2 5246: 5339 cw 1&x2,xfltfu 5259: 5339 cw 1&x2,xfltfu 5247: 5340 b nocvt 5260: 5340 b nocvt 5248: 5341 ckswf bw mkflt,modsw 5261: 5341 ckswf bw mkflt,modsw 5249: 5342 b nocvt 5262: 5342 b nocvt 5250: 5343 ckswx bw mkfix,modsw 5263: 5343 ckswx bw mkfix,modsw 5251: 5344 b nocvt 5264: 5344 b nocvt 5252: 5345 ckfix bwz ckswx,opmd,s 5265: 5345 ckfix bwz ckswx,opmd,s 5253: 5346 bwz ckswx,opmd,k 5266: 5346 bwz ckswx,opmd,k 5254: 5347 bw nocvt,modsw 5267: 5347 bw nocvt,modsw 5255: 5348 mkfix mcw @x@,0&x2 5268: 5348 mkfix mcw @x@,0&x2 5256: 5349 sbr x2 5269: 5349 sbr x2 5257: 5350 cw 1&x2,xfixfu 5270: 5350 cw 1&x2,xfixfu 5258: 5351 scan equ *&1 5271: 5351 scan equ *&1 5259: 5352 nocvt sbr x3,0&x1 5272: 5352 nocvt sbr x3,0&x1 5260: 5353 scan2 bce expn,0&x1,. 5273: 5353 scan2 bce expn,0&x1,. 5261: 5354 bce div,0&x1,@ 5274: 5354 bce div,0&x1,@ 5262: 5355 bce eostr,0&x1,} gm 5275: 5355 bce eostr,0&x1,} gm 5263: 5356 sbr x1 5276: 5356 sbr x1 5264: 5357 b scan2 5277: 5357 b scan2 5265: 5358 * end of statement routine 5278: 5358 * end of statement routine 5266: 5359 eostr mvdwnx3,x2 5279: 5359 eostr mvdwnx3,x2 5267: 5360 bce *&5,1&x3,} gm 5280: 5360 bce *&5,1&x3,} gm 5268: 5361 b eostr 5281: 5361 b eostr 5269: 5362 sbr x1,0&x3 5282: 5362 sbr x1,0&x3 5270: 5363 b nustm 5283: 5363 b nustm 5271: 5364 * substitute / for @ as divide symbol 5284: 5364 * substitute / for @ as divide symbol 5272: 5365 div mcw @/@,0&x1 5285: 5365 div mcw @/@,0&x1 5273: 5366 sbr x1 5286: 5366 sbr x1 5274: 5367 b scan2 5287: 5367 b scan2 5275: 5368 fendx sbr x1,5&x1 5288: 5368 fendx sbr x1,5&x1 5276: 5369 mcw savx3,x3 5289: 5369 mcw savx3,x3 5277: 5370 sbr x3,2&x3 5290: 5370 sbr x3,2&x3 5278: 5371 noari fendxc,,,,,,sysgm,arith6 5291: 5371 noari fendxc,,,,,,sysgm,arith6 5279: 5372 * generate if exits 5292: 5372 * generate if exits 5280: 5373 iftyp c 0&x1 5293: 5373 iftyp c 0&x1 5281: 5374 sar x1 5294: 5374 sar x1 5282: 5375 mcw 9&x1,minus 5295: 5375 mcw 9&x1,minus 5283: 5376 mcw 6&x1,zero 5296: 5376 mcw 6&x1,zero 5284: 5377 mcw 3&x1,plus 5297: 5377 mcw 3&x1,plus 5285: 5378 mz @k@,minus-1 5298: 5378 mz @k@,minus-1 5286: 5379 mz @k@,zero-1 5299: 5379 mz @k@,zero-1 5287: 5380 mz @k@,plus-1 5300: 5380 mz @k@,plus-1 5288: 5381 mcw plus,else&3 5301: 5381 mcw plus,else&3 5289: 5382 lca blk20#20,hld20 5302: 5382 lca blk20#20,hld20 5290: 5383 sbr x3,hld20-20 5303: 5383 sbr x3,hld20-20 5291: 5384 c plus,zero 5304: 5384 c plus,zero 5292: 5385 be pz 5305: 5385 be pz 5293: 5386 c zero,minus 5306: 5386 c zero,minus 5294: 5387 be mkpls 5307: 5387 be mkpls 5295: 5388 sbr x3,8&x3 5308: 5388 sbr x3,8&x3 5296: 5389 mcw ifzro 5309: 5389 mcw ifzro 5297: 5390 mcw 5310: 5390 mcw 5298: 5391 lca 5311: 5391 lca 5299: 5392 c plus,minus 5312: 5392 c plus,minus 5300: 5393 be mvls 5313: 5393 be mvls 5301: 5394 mkpls sbr x3,8&x3 5314: 5394 mkpls sbr x3,8&x3 5302: 5395 mcw ifpls 5315: 5395 mcw ifpls 5303: 5396 mcw 5316: 5396 mcw 5304: 5397 lca 5317: 5397 lca 5305: 5398 mcw minus,else&3 5318: 5398 mcw minus,else&3 5306: 5399 mvls mcw x3,hex3 5319: 5399 mvls mcw x3,hex3 5307: 5400 bwz *&5,code,2 5320: 5400 bwz *&5,code,2 5308: 5401 b *&9 5321: 5401 b *&9 5309: 5402 bwz lsadd,code-2,2 5322: 5402 bwz lsadd,code-2,2 5310: 5403 mcw code,x3 5323: 5403 mcw code,x3 5311: 5404 mcw 0&x3,code 5324: 5404 mcw 0&x3,code 5312: 5405 lsadd a &1,code 5325: 5405 lsadd a &1,code 5313: 5406 mcw else&3,x3 5326: 5406 mcw else&3,x3 5314: 5407 c 0&x3,code 5327: 5407 c 0&x3,code 5315: 5408 mcw hex3,x3 5328: 5408 mcw hex3,x3 5316: 5409 be nobr 5329: 5409 be nobr 5317: 5410 all3 sbr x3,4&x3 5330: 5410 all3 sbr x3,4&x3 5318: 5411 mcw else&3 5331: 5411 mcw else&3 5319: 5412 lca 5332: 5412 lca 5320: 5413 nobr mvdwnx3,x2 5333: 5413 nobr mvdwnx3,x2 5321: 5414 bce ckxf,0&x3,| 5334: 5414 bce ckxf,0&x3,| 5322: 5415 b nobr 5335: 5415 b nobr 5323: 5416 pz c plus,minus 5336: 5416 pz c plus,minus 5324: 5417 be all3 5337: 5417 be all3 5325: 5418 sbr x3,8&x3 5338: 5418 sbr x3,8&x3 5326: 5419 mcw ifmns 5339: 5419 mcw ifmns 5327: 5420 mcw 5340: 5420 mcw 5328: 5421 lca 5341: 5421 lca 5329: 5422 b mvls 5342: 5422 b mvls 5330: 5423 * process exponentiation 5343: 5423 * process exponentiation 5331: 5424 expn sw 1&x1 5344: 5424 expn sw 1&x1 5332: 5425 bce xsub,1&x1,$ 5345: 5425 bce xsub,1&x1,$ 5333: 5426 lca 3&x1,xpon#17 5346: 5426 lca 3&x1,xpon#17 5334: 5427 mz 2&x1,xpmod#1 5347: 5427 mz 2&x1,xpmod#1 5335: 5428 sbr hex31#3,3&x1 5348: 5428 sbr hex31#3,3&x1 5336: 5429 c hex31,x3 5349: 5429 c hex31,x3 5337: 5430 be skip 5350: 5430 be skip 5338: 5431 sw 4&x1 5351: 5431 sw 4&x1 5339: 5432 mvbal mvdwnx3,x2 5352: 5432 mvbal mvdwnx3,x2 5340: 5433 cw 1&x2 5353: 5433 cw 1&x2 5341: 5434 skip c 0&x1,blk4#4 5354: 5434 skip c 0&x1,blk4#4 5342: 5435 sar x1 5355: 5435 sar x1 5343: 5436 bce bsub,3&x1,$ 5356: 5436 bce bsub,3&x1,$ 5344: 5437 mz 2&x1,bmod#1 5357: 5437 mz 2&x1,bmod#1 5345: 5438 sw 1&x1 5358: 5438 sw 1&x1 5346: 5439 load lca 3&x1,base#17 5359: 5439 load lca 3&x1,base#17 5347: 5440 sar x1 5360: 5440 sar x1 5348: 5441 bwz fixxp,xpmod,s 5361: 5441 bwz fixxp,xpmod,s 5349: 5442 bwz fixxp,xpmod,k 5362: 5442 bwz fixxp,xpmod,k 5350: 5443 cw xlogfn,xxpntl 5363: 5443 cw xlogfn,xxpntl 5351: 5444 cw xcomf1 5364: 5444 cw xcomf1 5352: 5445 * process floating exponentiation 5365: 5445 * process floating exponentiation 5353: 5446 bwz flt,bmod,2 5366: 5446 bwz flt,bmod,2 5354: 5447 bwz flt,bmod,b 5367: 5447 bwz flt,bmod,b 5355: 5448 bwz *&5,code,2 5368: 5448 bwz *&5,code,2 5356: 5449 b *&9 5369: 5449 b *&9 5357: 5450 bwz ftmsg,code-2,2 5370: 5450 bwz ftmsg,code-2,2 5358: 5451 mcw code,x3 5371: 5451 mcw code,x3 5359: 5452 mcw 0&x3,code 5372: 5452 mcw 0&x3,code 5360: 5453 ftmsg ftmsg30,fix to float power,code,20 5373: 5453 ftmsg ftmsg30,fix to float power,code,20 5361: 5454 flt lca @e@,0&x2 5374: 5454 flt lca @e@,0&x2 5362: 5455 lca xpon 5375: 5455 lca xpon 5363: 5456 lca @g*@ 5376: 5456 lca @g*@ 5364: 5457 sbr x2 5377: 5457 sbr x2 5365: 5458 cw 3&x2,1&x1 5378: 5458 cw 3&x2,1&x1 5366: 5459 lca base,0&x2 5379: 5459 lca base,0&x2 5367: 5460 sbr x2 5380: 5460 sbr x2 5368: 5461 cw 1&x2 5381: 5461 cw 1&x2 5369: 5462 b scan 5382: 5462 b scan 5370: 5463 * process fixed point exponentiation 5383: 5463 * process fixed point exponentiation 5371: 5464 fixxp bwz sweat,xpmod,k 5384: 5464 fixxp bwz sweat,xpmod,k 5372: 5465 bce sweat,xpon-2,< 12-6-8 5385: 5465 bce sweat,xpon-2,< 12-6-8 5373: 5466 mcw xpon,x3 5386: 5466 mcw xpon,x3 5374: 5467 ma plusdf,x3 5387: 5467 ma plusdf,x3 5375: 5468 c @3@,0&x3 5388: 5468 c @3@,0&x3 5376: 5469 bh sweat 5389: 5469 bh sweat 5377: 5470 lca base,0&x2 5390: 5470 lca base,0&x2 5378: 5471 lca @*@ 5391: 5471 lca @*@ 5379: 5472 sbr x2 5392: 5472 sbr x2 5380: 5473 sbr sav2#3 5393: 5473 sbr sav2#3 5381: 5474 cw 1&x2,2&x2 5394: 5474 cw 1&x2,2&x2 5382: 5475 lca base,0&x2 5395: 5475 lca base,0&x2 5383: 5476 sbr x2 5396: 5476 sbr x2 5384: 5477 cw 1&x2 5397: 5477 cw 1&x2 5385: 5478 bce huh,0&x3,0 5398: 5478 bce huh,0&x3,0 5386: 5479 bce huh2,0&x3,1 5399: 5479 bce huh2,0&x3,1 5387: 5480 bce scan,0&x3,2 5400: 5480 bce scan,0&x3,2 5388: 5481 lca @*@,0&x2 5401: 5481 lca @*@,0&x2 5389: 5482 sbr x2 5402: 5482 sbr x2 5390: 5483 cw 1&x2 5403: 5483 cw 1&x2 5391: 5484 lca base,0&x2 5404: 5484 lca base,0&x2 5392: 5485 sbr x2 5405: 5485 sbr x2 5393: 5486 cw 1&x2 5406: 5486 cw 1&x2 5394: 5487 b scan 5407: 5487 b scan 5395: 5488 huh mcw sav2,x3 5408: 5488 huh mcw sav2,x3 5396: 5489 mcw @/@,1&x3 5409: 5489 mcw @/@,1&x3 5397: 5490 b scan 5410: 5490 b scan 5398: 5491 huh2 mcw sav2,x2 5411: 5491 huh2 mcw sav2,x2 5399: 5492 sbr x2,1&x2 5412: 5492 sbr x2,1&x2 5400: 5493 b scan 5413: 5493 b scan 5401: 5494 sweat cw xlogfn,xxpntl 5414: 5494 sweat cw xlogfn,xxpntl 5402: 5495 cw xcomf1,xfltfu 5415: 5495 cw xcomf1,xfltfu 5403: 5496 bwz ctu1,bmod,2 5416: 5496 bwz ctu1,bmod,2 5404: 5497 bwz ctu1,bmod,b 5417: 5497 bwz ctu1,bmod,b 5405: 5498 lca @x@,0&x2 5418: 5498 lca @x@,0&x2 5406: 5499 sbr x2 5419: 5499 sbr x2 5407: 5500 cw 0&x2,xfixfu 5420: 5500 cw 0&x2,xfixfu 5408: 5501 lca xexpon,0&x2 5421: 5501 lca xexpon,0&x2 5409: 5502 lca @&@ 5422: 5502 lca @&@ 5410: 5503 sbr x2 5423: 5503 sbr x2 5411: 5504 cw 2&x2 5424: 5504 cw 2&x2 5412: 5505 ctu1 lca @e@,0&x2 5425: 5505 ctu1 lca @e@,0&x2 5413: 5506 lca @f*<4?@ f,*,12-6-8,4,12-0 5426: 5506 lca @f*<4?@ f,*,12-6-8,4,12-0 5414: 5507 lca xpon 5427: 5507 lca xpon 5415: 5508 sbr x2 5428: 5508 sbr x2 5416: 5509 cw 1&x2 5429: 5509 cw 1&x2 5417: 5510 c 0&x1,blk4 5430: 5510 c 0&x1,blk4 5418: 5511 sar x3 5431: 5511 sar x3 5419: 5512 bce fsub,3&x3,$ 5432: 5512 bce fsub,3&x3,$ 5420: 5513 swm sw 1&x3 5433: 5513 swm sw 1&x3 5421: 5514 mvdwnx1,x2 5434: 5514 mvdwnx1,x2 5422: 5515 cw 1&x2 5435: 5515 cw 1&x2 5423: 5516 lca @g|@ 5436: 5516 lca @g|@ 5424: 5517 sbr x2 5437: 5517 sbr x2 5425: 5518 bwz bsflt,bmod,2 5438: 5518 bwz bsflt,bmod,2 5426: 5519 bwz bsflt,bmod,b 5439: 5519 bwz bsflt,bmod,b 5427: 5520 lca @f@,0&x2 5440: 5520 lca @f@,0&x2 5428: 5521 sbr x2 5441: 5521 sbr x2 5429: 5522 bsflt lca base,0&x2 5442: 5522 bsflt lca base,0&x2 5430: 5523 lca @<4?#@ 5443: 5523 lca @<4?#@ 5431: 5524 sbr x2 5444: 5524 sbr x2 5432: 5525 cw 5&x2 5445: 5525 cw 5&x2 5433: 5526 c 0&x1,@b700@ 5446: 5526 c 0&x1,@b700@ 5434: 5527 be scan 5447: 5527 be scan 5435: 5528 cw 1&x2 5448: 5528 cw 1&x2 5436: 5529 b scan 5449: 5529 b scan 5437: 5530 dcw @|@ 5450: 5530 dcw @|@ 5438: 5531 hld20 dcw #20 5451: 5531 hld20 dcw #20 5439: 5532 else b 5452: 5532 else b 5440: 5533 dcw #3 5453: 5533 dcw #3 5441: 5534 bwz 5454: 5534 bwz 5442: 5535 plus dcw #3 5455: 5535 plus dcw #3 5443: 5536 dsa 277&x3 5456: 5536 dsa 277&x3 5444: 5537 ifpls dc @b@ 5457: 5537 ifpls dc @b@ 5445: 5538 bce 5458: 5538 bce 5446: 5539 zero dcw #3 5459: 5539 zero dcw #3 5447: 5540 dsa 280 5460: 5540 dsa 280 5448: 5541 ifzro dc @0@ 5461: 5541 ifzro dc @0@ 5449: 5542 bwz 5462: 5542 bwz 5450: 5543 minus dcw #3 5463: 5543 minus dcw #3 5451: 5544 dsa 277&x3 5464: 5544 dsa 277&x3 5452: 5545 ifmns dc @k@ 5465: 5545 ifmns dc @k@ 5453: 5546 xsub mz 3&x1,xpmod 5466: 5546 xsub mz 3&x1,xpmod 5454: 5547 sbr x1,11&x1 5467: 5547 sbr x1,11&x1 5455: 5548 bce gotsb,0&x1,$ 5468: 5548 bce gotsb,0&x1,$ 5456: 5549 sbr x1,6&x1 5469: 5549 sbr x1,6&x1 5457: 5550 gotsb c x1,x3 5470: 5550 gotsb c x1,x3 5458: 5551 be *&5 5471: 5551 be *&5 5459: 5552 sw 1&x1 5472: 5552 sw 1&x1 5460: 5553 lca 0&x1,xpon 5473: 5553 lca 0&x1,xpon 5461: 5554 sar x1 5474: 5554 sar x1 5462: 5555 be skip 5475: 5555 be skip 5463: 5556 b mvbal 5476: 5556 b mvbal 5464: 5557 bsub c 0&x1,blk8#8 5477: 5557 bsub c 0&x1,blk8#8 5465: 5558 sar x3 5478: 5558 sar x3 5466: 5559 bce gtsub,1&x3,$ 5479: 5559 bce gtsub,1&x3,$ 5467: 5560 c 0&x3,blk6 5480: 5560 c 0&x3,blk6 5468: 5561 sar x3 5481: 5561 sar x3 5469: 5562 gtsub mz 3&x3,bmod 5482: 5562 gtsub mz 3&x3,bmod 5470: 5563 sw 1&x3 5483: 5563 sw 1&x3 5471: 5564 b load 5484: 5564 b load 5472: 5565 fsub c 0&x3,blk8 5485: 5565 fsub c 0&x3,blk8 5473: 5566 sar x3 5486: 5566 sar x3 5474: 5567 bce swm,1&x3,$ 5487: 5567 bce swm,1&x3,$ 5475: 5568 c 0&x3,blk6#6 5488: 5568 c 0&x3,blk6#6 5476: 5569 sar x3 5489: 5569 sar x3 5477: 5570 b swm 5490: 5570 b swm 5478: 5571 sub1 mz hld18-9,fstmd 5491: 5571 sub1 mz hld18-9,fstmd 5479: 5572 bce nowop,hld18-11,$ 5492: 5572 bce nowop,hld18-11,$ 5480: 5573 mz hld18-15,fstmd 5493: 5573 mz hld18-15,fstmd 5481: 5574 b nowop 5494: 5574 b nowop 5482: 5575 dcw #1 5495: 5575 dcw #1 5483: 5576 code dcw #3 5496: 5576 code dcw #3 5484: 5577 ltorg* 5497: 5577 ltorg* 5485: 5578 sysgm dcw @}@ system group mark 5498: 5578 sysgm dcw @}@ system group mark 5486: 5579 xfr start 5499: 5579 xfr start 5487: 5580 job Fortran arith phase six 50383 5500: 5580 job Fortran arith phase six 50383 5488: 5581 fbegnarith six,x1,,x2,,x3,,s 5501: 5581 fbegnarith six,x1,,x2,,x3,,s 5489: 5582 nxtop equ 086 5502: 5582 nxtop equ 086 5490: 5583 org xbegin 5503: 5583 org xbegin 5491: 5584 inish bce fendx,x2,. 5504: 5584 inish bce fendx,x2,. 5492: 5585 sbr hex2#3,0&x2 5505: 5585 sbr hex2#3,0&x2 5493: 5586 mn 0&x3 5506: 5586 mn 0&x3 5494: 5587 mn 5507: 5587 mn 5495: 5588 sar nomo#3 5508: 5588 sar nomo#3 5496: 5589 sbr hex1#3,0&x1 5509: 5589 sbr hex1#3,0&x1 5497: 5590 mcw nxtop,mxtmp 5510: 5590 mcw nxtop,mxtmp 5498: 5591 mcw parama&6,tmpsz#3 5511: 5591 mcw parama&6,tmpsz#3 5499: 5592 mn &0,tmpsz-2 5512: 5592 mn &0,tmpsz-2 5500: 5593 a &2,tmpsz 5513: 5593 a &2,tmpsz 5501: 5594 c tmpsz,parama&4 5514: 5594 c tmpsz,parama&4 5502: 5595 bl start 5515: 5595 bl start 5503: 5596 mcw parama&4,tmpsz 5516: 5596 mcw parama&4,tmpsz 5504: 5597 start c x2,nomo 5517: 5597 start c x2,nomo 5505: 5598 be dun 5518: 5598 be dun 5506: 5599 mcw table&165,table&164 5519: 5599 mcw table&165,table&164 5507: 5600 getum bce gotum,2&x2,< delta 12-6-8 5520: 5600 getum bce gotum,2&x2,< delta 12-6-8 5508: 5601 sbr x2 5521: 5601 sbr x2 5509: 5602 bce nxguy,1&x2,} gm 5522: 5602 bce nxguy,1&x2,} gm 5510: 5603 b getum 5523: 5603 b getum 5511: 5604 gotum mn 4&x2,dlval#3 5524: 5604 gotum mn 4&x2,dlval#3 5512: 5605 mn 5525: 5605 mn 5513: 5606 mcw @0@ 5526: 5606 mcw @0@ 5514: 5607 bwz bmpum,4&x2,2 5527: 5607 bwz bmpum,4&x2,2 5515: 5608 a &100,dlval 5528: 5608 a &100,dlval 5516: 5609 bwz bmpum,4&x2,s 5529: 5609 bwz bmpum,4&x2,s 5517: 5610 a &100,dlval 5530: 5610 a &100,dlval 5518: 5611 bwz bmpum,4&x2,k 5531: 5611 bwz bmpum,4&x2,k 5519: 5612 a &100,dlval 5532: 5612 a &100,dlval 5520: 5613 bmpum mcw dlval,x3 5533: 5613 bmpum mcw dlval,x3 5521: 5614 a x3 5534: 5614 a x3 5522: 5615 a dlval,x3 5535: 5615 a dlval,x3 5523: 5616 bce assgn,5&x2,# 5536: 5616 bce assgn,5&x2,# 5524: 5617 mcw matrx-1&x3,x1 5537: 5617 mcw matrx-1&x3,x1 5525: 5618 mcw @|@,table-1&x1 5538: 5618 mcw @|@,table-1&x1 5526: 5619 b cmpad 5539: 5619 b cmpad 5527: 5620 assgn mcm table 5540: 5620 assgn mcm table 5528: 5621 sar x1 5541: 5621 sar x1 5529: 5622 ma -table,x1 5542: 5622 ma -table,x1 5530: 5623 mcw *-6,table-1&x1 5543: 5623 mcw *-6,table-1&x1 5531: 5624 mcw x1,matrx-1&x3 5544: 5624 mcw x1,matrx-1&x3 5532: 5625 cmpad za x1,accum-4 5545: 5625 cmpad za x1,accum-4 5533: 5626 m tmpsz,accum#7 5546: 5626 m tmpsz,accum#7 5534: 5627 sw accum-4 5547: 5627 sw accum-4 5535: 5628 fpackaccum,4&x2,x3 5548: 5628 fpackaccum,4&x2,x3 5536: 5629 cw accum-4 5549: 5629 cw accum-4 5537: 5630 ma nxtop,4&x2 5550: 5630 ma nxtop,4&x2 5538: 5631 c x1,hytest#3 5551: 5631 c x1,hytest#3 5539: 5632 bh gobak 5552: 5632 bh gobak 5540: 5633 mcw x1,hytest 5553: 5633 mcw x1,hytest 5541: 5634 mcw 4&x2,mxtmp#3 5554: 5634 mcw 4&x2,mxtmp#3 5542: 5635 bwz blwup,mxtmp,2 | 5555: 56354 bwz tstzn,mxtmp,2 v3m4 5543: 5636 gobak sbr x2,3&x2 5556: 5636 gobak sbr x2,3&x2 5544: 5637 b getum 5557: 5637 b getum 5545: 5638 nxguy sbr x2,4&x2 5558: 5638 nxguy sbr x2,4&x2 5546: 5639 b start 5559: 5639 b start 5547: 5640 dun mcw hex2,x3 5560: 5640 dun mcw hex2,x3 5548: 5641 mcw hex1,x1 5561: 5641 mcw hex1,x1 5549: 5642 c 0&x1 5562: 5642 c 0&x1 5550: 5643 c 5563: 5643 c 5551: 5644 sar x1 5564: 5644 sar x1 5552: 5645 mcw mxtmp,nxtop 5565: 5645 mcw mxtmp,nxtop 5553: 5646 fendx fendxd,,,,,,sys6,i/o two 5566: 5646 fendx fendxd,,,,,,sys6,i/o two 5554: 5647 blwup bw gobak,lgsw 5567: 5647 blwup bw gobak,lgsw 5555: 5648 cs 332 5568: 5648 cs 332 5556: 5649 cs 5569: 5649 cs 5557: 5650 mlc @message 2 - object program too large@,270 5570: 5650 mlc @message 2 - object program too large@,270 5558: 5651 w 5571: 5651 w 5559: 5652 sw failsw,lgsw 5572: 5652 sw failsw,lgsw 5560: 5653 b gobak 5573: 5653 b gobak > 5574: 56531tstzn bwz blwup,mxtmp-2,2 v3m4 > 5575: 56532 b gobak v3m4 5561: 5654 matrx da 1x1023 5576: 5654 matrx da 1x1023 5562: 5655 table da 1x165,| 5577: 5655 table da 1x165,| 5563: 5656 lgsw dc #1 5578: 5656 lgsw dc #1 5564: 5657 org * 5579: 5657 org * 5565: ltorg* WVS: Autocoder shouldn't load incld at org 5580: ltorg* WVS: Autocoder shouldn't load incld at org 5566: 5658 sys6 dcw @}@ system and work group mark 5581: 5658 sys6 dcw @}@ system and work group mark 5567: 5659 xfr inish 5582: 5659 xfr inish 5568: 5660 job 1401 Fortran input/output phase two 50393 5583: 5660 job 1401 Fortran input/output phase two 50393 5569: 5661 fbegni/o two,x1,,x2,r,x3,,u 5584: 5661 fbegni/o two,x1,,x2,r,x3,,u 5570: 5662 org xbegin 5585: 5662 org xbegin 5571: 5663 start bce out,0&x1, 5586: 5663 start bce out,0&x1, 5572: 5664 mcw 0&x1,code#4 5587: 5664 mcw 0&x1,code#4 5573: 5665 mcw code-3,*&8 5588: 5665 mcw code-3,*&8 5574: 5666 bce work,@bzn@,0 d char initialized 5589: 5666 bce work,@bzn@,0 d char initialized 5575: 5667 bce 5590: 5667 bce 5576: 5668 bce 5591: 5668 bce 5577: 5669 out fendxc,,,,,,sys1,cgoto 5592: 5669 out fendxc,,,,,,sys1,cgoto 5578: 5670 work mcw @b@,iocw 5593: 5670 work mcw @b@,iocw 5579: 5671 mcw @<@,2&x1 12-6-8 5594: 5671 mcw @<@,2&x1 12-6-8 5580: 5672 sbr klobr&6,2&x1 5595: 5672 sbr klobr&6,2&x1 5581: 5673 bce ctu1,code-3,b 5596: 5673 bce ctu1,code-3,b 5582: 5674 mcw @r@,iocw 5597: 5674 mcw @r@,iocw 5583: 5675 bce ctu1,code-3,z 5598: 5675 bce ctu1,code-3,z 5584: 5676 mcw @m@,iocw 5599: 5676 mcw @m@,iocw 5585: 5677 ctu1 mvdwnx1,x3 5600: 5677 ctu1 mvdwnx1,x3 5586: 5678 lca 1&x1,2&x3 5601: 5678 lca 1&x1,2&x3 5587: 5679 sbr x3 5602: 5679 sbr x3 5588: 5680 bwz *&5,code,2 5603: 5680 bwz *&5,code,2 5589: 5681 b chng 5604: 5681 b chng 5590: 5682 bwz cknum,code-2,2 5605: 5682 bwz cknum,code-2,2 5591: 5683 chng mcw code,x2 5606: 5683 chng mcw code,x2 5592: 5684 mcw 0&x2,code 5607: 5684 mcw 0&x2,code 5593: 5685 cknum bce nonum,0&x1,} 12-7-8 5608: 5685 cknum bce nonum,0&x1,} 12-7-8 5594: 5686 mn 0&x1 5609: 5686 mn 0&x1 5595: 5687 sar x2 5610: 5687 sar x2 5596: 5688 bce const,0&x2,} 12-7-8 5611: 5688 bce const,0&x2,} 12-7-8 5597: 5689 symb mcw @0@,tuno 5612: 5689 symb mcw @0@,tuno 5598: 5690 mcw 0&x1,mvmsk-3 5613: 5690 mcw 0&x1,mvmsk-3 5599: 5691 mcw @d@,mvmsk-6 5614: 5691 mcw @d@,mvmsk-6 5600: 5692 mz *-4,mvmsk-4 5615: 5692 mz *-4,mvmsk-4 5601: 5693 cw mvsw#1 5616: 5693 cw mvsw#1 5602: 5694 slide c 0&x1 5617: 5694 slide c 0&x1 5603: 5695 sar x1 5618: 5695 sar x1 5604: 5696 lca iocw,0&x3 5619: 5696 lca iocw,0&x3 5605: 5697 sbr x3 to source 5620: 5697 sbr x3 to source 5606: 5698 bw noint,mvsw 5621: 5698 bw noint,mvsw 5607: 5699 sw mvsw 5622: 5699 sw mvsw 5608: 5700 lca mvmsk,0&x3 load initialize 5623: 5700 lca mvmsk,0&x3 load initialize 5609: 5701 sbr x3 5624: 5701 sbr x3 5610: 5702 noint lca 1&x1,0&x3 load gm 5625: 5702 noint lca 1&x1,0&x3 load gm 5611: 5703 sbr x3 5626: 5703 sbr x3 5612: 5704 klobr bce start,0,< 12-6-8 5627: 5704 klobr bce start,0,< 12-6-8 5613: 5705 fquit 5628: 5705 fquit 5614: 5706 nonum ftmsg33,no tape unit number,code,21 5629: 5706 nonum ftmsg33,no tape unit number,code,21 5615: 5707 mcw @0@,tuno 5630: 5707 mcw @0@,tuno 5616: 5708 b symb 5631: 5708 b symb 5617: 5709 const mn 0&x1,tuno 5632: 5709 const mn 0&x1,tuno 5618: 5710 b slide 5633: 5710 b slide 5619: 5711 mvmsk dcw @mxxx0?4@ 0,12-0,4 5634: 5711 mvmsk dcw @mxxx0?4@ 0,12-0,4 5620: 5712 iocw dcw @u%u0x@ 5635: 5712 iocw dcw @u%u0x@ 5621: 5713 tuno equ iocw-1 5636: 5713 tuno equ iocw-1 5622: 5714 ltorg* 5637: 5714 ltorg* 5623: 5715 sys1 dcw @}@ system group mark 5638: 5715 sys1 dcw @}@ system group mark 5624: 5716 xfr start 5639: 5716 xfr start 5625: 5717 job 1401 Fortran computed go to phase 50403 5640: 5717 job 1401 Fortran computed go to phase 50403 5626: 5718 fbegncgoto,x1,,x2,r,x3,,. 5641: 5718 fbegncgoto,x1,,x2,r,x3,,. 5627: 5719 org xbegin 5642: 5719 org xbegin 5628: 5720 initl sw gm1,gm2 5643: 5720 initl sw gm1,gm2 5629: 5721 start bwz out,0&x1,1 5644: 5721 start bwz out,0&x1,1 5630: 5722 mcw 0&x1,id#3 5645: 5722 mcw 0&x1,id#3 5631: 5723 mcw id,mask 5646: 5723 mcw id,mask 5632: 5724 mcw @]@,1&x1 11-5-8 5647: 5724 mcw @]@,1&x1 11-5-8 5633: 5725 sbr klobr&6,1&x1 5648: 5725 sbr klobr&6,1&x1 5634: 5726 c 0&x1 5649: 5726 c 0&x1 5635: 5727 sar x1 5650: 5727 sar x1 5636: 5728 c 2&x1,@t@ 5651: 5728 c 2&x1,@t@ 5637: 5729 bu dun 5652: 5729 bu dun 5638: 5730 small s max#2 5653: 5730 small s max#2 5639: 5731 loop mn 0&x1 5654: 5731 loop mn 0&x1 5640: 5732 mn 5655: 5732 mn 5641: 5733 mn 5656: 5733 mn 5642: 5734 sar x1 5657: 5734 sar x1 5643: 5735 a &1,max 5658: 5735 a &1,max 5644: 5736 c max,&11 5659: 5736 c max,&11 5645: 5737 be error 5660: 5737 be error 5646: 5738 c 0&x1,@,@ 5661: 5738 c 0&x1,@,@ 5647: 5739 bu loop 5662: 5739 bu loop 5648: 5740 mn 0&x1 5663: 5740 mn 0&x1 5649: 5741 sar x1 5664: 5741 sar x1 5650: 5742 b ruadr 5665: 5742 b ruadr 5651: 5743 lca mask,0&x3 5666: 5743 lca mask,0&x3 5652: 5744 lca trap 5667: 5744 lca trap 5653: 5745 lca 5668: 5745 lca 5654: 5746 lca 5669: 5746 lca 5655: 5747 sbr x3 5670: 5747 sbr x3 5656: 5748 sbr x1,1&x1 5671: 5748 sbr x1,1&x1 5657: 5749 anymo bw nomo,4&x1 5672: 5749 anymo bw nomo,4&x1 5658: 5750 sw brnch-6 5673: 5750 sw brnch-6 5659: 5751 mn max,brnch 5674: 5751 mn max,brnch 5660: 5752 mcw I 5675: 5752 mcw I 5661: 5753 mcw 6&x1 5676: 5753 mcw 6&x1 5662: 5754 sar x1 5677: 5754 sar x1 5663: 5755 cw brnch-6 5678: 5755 cw brnch-6 5664: 5756 mz @k@,brnch-5 5679: 5756 mz @k@,brnch-5 5665: 5757 mz *-4,brnch-2 5680: 5757 mz *-4,brnch-2 5666: 5758 lca brnch,0&x3 5681: 5758 lca brnch,0&x3 5667: 5759 sbr x3 5682: 5759 sbr x3 5668: 5760 s &1,max 5683: 5760 s &1,max 5669: 5761 b anymo 5684: 5761 b anymo 5670: 5762 nomo lca gm1,0&x3 5685: 5762 nomo lca gm1,0&x3 5671: 5763 sbr x3 5686: 5763 sbr x3 5672: 5764 botm c 0&x1 5687: 5764 botm c 0&x1 5673: 5765 sar x1 5688: 5765 sar x1 5674: 5766 klobr bce start,0,] 11-5-8 5689: 5766 klobr bce start,0,] 11-5-8 5675: 5767 fquit 5690: 5767 fquit 5676: 5768 ruadr sbr exrua&3 5691: 5768 ruadr sbr exrua&3 5677: 5769 s count#1 5692: 5769 s count#1 5678: 5770 ok mn 0&x1,test&7 5693: 5770 ok mn 0&x1,test&7 5679: 5771 sar x1 5694: 5771 sar x1 5680: 5772 bce rufix,count,b 5695: 5772 bce rufix,count,b 5681: 5773 a &1,count 5696: 5773 a &1,count 5682: 5774 test bce ok,@0123456789@,0 5697: 5774 test bce ok,@0123456789@,0 5683: 5775 chain9 5698: 5775 chain9 5684: 5776 err1 bce error,0&x1,} 12-7-8 5699: 5776 err1 bce error,0&x1,} 12-7-8 5685: 5777 sbr x1 5700: 5777 sbr x1 5686: 5778 b err1 5701: 5778 b err1 5687: 5779 rufix bwz fixed,2&x1,k 5702: 5779 rufix bwz fixed,2&x1,k 5688: 5780 b err1 5703: 5780 b err1 5689: 5781 fixed mz blank#1,2&x1 5704: 5781 fixed mz blank#1,2&x1 5690: 5782 mcw 3&x1,i 5705: 5782 mcw 3&x1,i 5691: 5783 c 0&x1,gm1 5706: 5783 c 0&x1,gm1 5692: 5784 bu err1 5707: 5784 bu err1 5693: 5785 exrua b 0 5708: 5785 exrua b 0 5694: 5786 error bwz *&5,id,2 5709: 5786 error bwz *&5,id,2 5695: 5787 b zone 5710: 5787 b zone 5696: 5788 bwz print,id-2,2 5711: 5788 bwz print,id-2,2 5697: 5789 zone mcw id,x2 5712: 5789 zone mcw id,x2 5698: 5790 mcw 0&x2,id 5713: 5790 mcw 0&x2,id 5699: 5791 print ftmsg34,computed go to syntax,id,23 5714: 5791 print ftmsg34,computed go to syntax,id,23 5700: 5792 b botm 5715: 5792 b botm 5701: 5793 gm1 dc @}@ gm 5716: 5793 gm1 dc @}@ gm 5702: 5794 dcw @t@ 5717: 5794 dcw @t@ 5703: 5795 dc xlinks inoperative in ver 3 5718: 5795 dc xlinks inoperative in ver 3 5704: 5796 i dcw #3 5719: 5796 i dcw #3 5705: 5797 dcw #3 max value of i 5720: 5797 dcw #3 max value of i 5706: 5798 base dcw #3 base address of table 5721: 5798 base dcw #3 base address of table 5707: 5799 gm2 dc @}@ gm 5722: 5799 gm2 dc @}@ gm 5708: 5800 mask dc #3 5723: 5800 mask dc #3 5709: 5801 dun sbr x1,5&x1 5724: 5801 dun sbr x1,5&x1 5710: 5802 out fendxc,,,,,,syscg,gomsk 5725: 5802 out fendxc,,,,,,syscg,gomsk 5711: 5803 brnch dcw @bxxxxxxa@ 5726: 5803 brnch dcw @bxxxxxxa@ 5712: 5804 nop 1001 5727: 5804 nop 1001 5713: 5805 h 5728: 5805 h 5714: 5806 trap dcw @biib@ 5729: 5806 trap dcw @biib@ 5715: 5807 ltorg* 5730: 5807 ltorg* 5716: 5808 syscg dcw @}@ system group mark 5731: 5808 syscg dcw @}@ system group mark 5717: 5809 xfr initl 5732: 5809 xfr initl 5718: 5810 job 1401 Fortran go to mask phase 50413 5733: 5810 job 1401 Fortran go to mask phase 50413 5719: 5811 fbegngomsk,x1,,,,x3,,* 5734: 5811 fbegngomsk,x1,,,,x3,,* 5720: 5812 org xbegin 5735: 5812 org xbegin 5721: 5813 start bce out,0&x1, blank 5736: 5813 start bce out,0&x1, blank 5722: 5814 mcw 0&x1,code#4 5737: 5814 mcw 0&x1,code#4 5723: 5815 bce ctu,code-3,g 5738: 5815 bce ctu,code-3,g 5724: 5816 out fendxc,,,,,,sys1,stop/pause 5739: 5816 out fendxc,,,,,,sys1,stop/pause 5725: 5817 ctu mvdwnx1,x3 5740: 5817 ctu mvdwnx1,x3 5726: 5818 lca 1&x3,2&x3 5741: 5818 lca 1&x3,2&x3 5727: 5819 sbr x3 5742: 5819 sbr x3 5728: 5820 mvdwnx1,x3 5743: 5820 mvdwnx1,x3 5729: 5821 mcw @b@,1&x3 5744: 5821 mcw @b@,1&x3 5730: 5822 lca 1&x1 5745: 5822 lca 1&x1 5731: 5823 sbr x3 5746: 5823 sbr x3 5732: 5824 mz @k@,4&x3 5747: 5824 mz @k@,4&x3 5733: 5825 b start 5748: 5825 b start 5734: 5826 ltorg* 5749: 5826 ltorg* 5735: 5827 sys1 dcw @}@ system group mark 5750: 5827 sys1 dcw @}@ system group mark 5736: 5828 xfr start 5751: 5828 xfr start 5737: 5829 job 1401 Fortran stop/pause phase 50423 5752: 5829 job 1401 Fortran stop/pause phase 50423 5738: 5830 fbegnstop/pause,x1,,x2,,x3,,3 5753: 5830 fbegnstop/pause,x1,,x2,,x3,,3 5739: 5831 org xbegin 5754: 5831 org xbegin 5740: 5832 start cs 299 5755: 5832 start cs 299 5741: 5833 nutyp bce out,0&x1, blank 5756: 5833 nutyp bce out,0&x1, blank 5742: 5834 mcw 0&x1,code#4 5757: 5834 mcw 0&x1,code#4 5743: 5835 fbceqdoit,code-3,a,s 5758: 5835 fbceqdoit,code-3,a,s 5744: 5836 out fendxc,,,,,,sys1,light 5759: 5836 out fendxc,,,,,,sys1,light 5745: 5837 doit mcw @<@,2&x1 12-6-8 5760: 5837 doit mcw @<@,2&x1 12-6-8 5746: 5838 sbr klobr&6,2&x1 5761: 5838 sbr klobr&6,2&x1 5747: 5839 mvdwnx1,x3 5762: 5839 mvdwnx1,x3 5748: 5840 lca 1&x3,2&x3 5763: 5840 lca 1&x3,2&x3 5749: 5841 sbr x3 5764: 5841 sbr x3 5750: 5842 bce noad,0&x1,} gm 5765: 5842 bce noad,0&x1,} gm 5751: 5843 cs work 5766: 5843 cs work 5752: 5844 fflip0&x1,lowk,x1,x2,,wm 5767: 5844 fflip0&x1,lowk,x1,x2,,wm 5753: 5845 sw lowk 5768: 5845 sw lowk 5754: 5846 bce okay2,lowk&3, blank 5769: 5846 bce okay2,lowk&3, blank 5755: 5847 mcw msg1,222 5770: 5847 mcw msg1,222 5756: 5848 mcw msg2,247 5771: 5848 mcw msg2,247 5757: 5849 mcw lowk&4,228 5772: 5849 mcw lowk&4,228 5758: 5850 mcw lowk&2,251 5773: 5850 mcw lowk&2,251 5759: 5851 okay2 bce *&5,lowk&2, blank 5774: 5851 okay2 bce *&5,lowk&2, blank 5760: 5852 b setup 5775: 5852 b setup 5761: 5853 mcw lowk&1,lowk&2 5776: 5853 mcw lowk&1,lowk&2 5762: 5854 mcw @0@ 5777: 5854 mcw @0@ 5763: 5855 b okay2 5778: 5855 b okay2 5764: 5856 noad lca @000@,lowk&2 5779: 5856 noad lca @000@,lowk&2 5765: 5857 c 0&x1 5780: 5857 c 0&x1 5766: 5858 sar x1 5781: 5858 sar x1 5767: 5859 setup mcw lowk&2,save3#3 5782: 5859 setup mcw lowk&2,save3#3 5768: 5860 a @0@,lowk&3 5783: 5860 a @0@,lowk&3 5769: 5861 c lowk&2,save3 5784: 5861 c lowk&2,save3 5770: 5862 be aok 5785: 5862 be aok 5771: 5863 bce nuerr,201, blank 5786: 5863 bce nuerr,201, blank 5772: 5864 rtn mz blnk3#3,251 5787: 5864 rtn mz blnk3#3,251 5773: 5865 mz 5788: 5865 mz 5774: 5866 mz 5789: 5866 mz 5775: 5867 b aok 5790: 5867 b aok 5776: 5868 nuerr mcw msg1,222 5791: 5868 nuerr mcw msg1,222 5777: 5869 mcw msg2,247 5792: 5869 mcw msg2,247 5778: 5870 mcw lowk&2,226 5793: 5870 mcw lowk&2,226 5779: 5871 mcw lowk&2,251 5794: 5871 mcw lowk&2,251 5780: 5872 mcw blank,223 5795: 5872 mcw blank,223 5781: 5873 b rtn 5796: 5873 b rtn 5782: 5874 aok bce ctu,201, blank 5797: 5874 aok bce ctu,201, blank 5783: 5875 w 5798: 5875 w 5784: 5876 forms 5799: 5876 forms 5785: 5877 cs 299 5800: 5877 cs 299 5786: 5878 ctu cw lowk 5801: 5878 ctu cw lowk 5787: 5879 bce pause,code-3,a 5802: 5879 bce pause,code-3,a 5788: 5880 lca @biib@,0&x3 5803: 5880 lca @biib@,0&x3 5789: 5881 lca @.@ 5804: 5881 lca @.@ 5790: 5882 lca lowk&2 5805: 5882 lca lowk&2 5791: 5883 lca 1&x1 5806: 5883 lca 1&x1 5792: 5884 sbr x3 5807: 5884 sbr x3 5793: 5885 b klobr 5808: 5885 b klobr 5794: 5886 pause lca @.@,0&x3 5809: 5886 pause lca @.@,0&x3 5795: 5887 lca lowk&2 5810: 5887 lca lowk&2 5796: 5888 lca 1&x1 5811: 5888 lca 1&x1 5797: 5889 sbr x3 5812: 5889 sbr x3 5798: 5890 klobr bce nutyp,0,< 12-6-8 5813: 5890 klobr bce nutyp,0,< 12-6-8 5799: 5891 fquit 5814: 5891 fquit 5800: 5892 msg1 dcw @error 35 - halt number@ 5815: 5892 msg1 dcw @error 35 - halt number@ 5801: 5893 msg2 dcw @to be displayed as@ 5816: 5893 msg2 dcw @to be displayed as@ 5802: 5894 org *&x00 5817: 5894 org *&x00 5803: 5895 org *&99 5818: 5895 org *&99 5804: 5896 dcw @n@ 5819: 5896 dcw @n@ 5805: 5897 lowk ds 1 5820: 5897 lowk ds 1 5806: 5898 work ds 98 5821: 5898 work ds 98 5807: 5899 ltorg* 5822: 5899 ltorg* 5808: 5900 sys1 dcw @}@ system group mark 5823: 5900 sys1 dcw @}@ system group mark 5809: 5901 blank equ blnk3-2 5824: 5901 blank equ blnk3-2 5810: 5902 xfr start 5825: 5902 xfr start 5811: 5903 job 1401 Fortran sense light phase 50433 5826: 5903 job 1401 Fortran sense light phase 50433 5812: 5904 fbegnlight,x1,,x2,r,x3,,5 5827: 5904 fbegnlight,x1,,x2,r,x3,,5 5813: 5905 org xbegin 5828: 5905 org xbegin 5814: 5906 start bce out,0&x1, blank 5829: 5906 start bce out,0&x1, blank 5815: 5907 mcw 0&x1,code#4 5830: 5907 mcw 0&x1,code#4 5816: 5908 bce doit,code-3,j 5831: 5908 bce doit,code-3,j 5817: 5909 out fendxc,,,,,,sysl,ifcond 5832: 5909 out fendxc,,,,,,sysl,ifcond 5818: 5910 doit mvdwnx1,x3 5833: 5910 doit mvdwnx1,x3 5819: 5911 sbr klobr&6,1&x1 5834: 5911 sbr klobr&6,1&x1 5820: 5912 mcw @]@,1&x1 11-5-8 5835: 5912 mcw @]@,1&x1 11-5-8 5821: 5913 lca 1&x3,2&x3 5836: 5913 lca 1&x3,2&x3 5822: 5914 sbr x3 5837: 5914 sbr x3 5823: 5915 mcw code,hold#3 mcw 0&x2,hold 5838: 5915 mcw code,hold#3 mcw 0&x2,hold 5824: 5916 bwz *&5,hold,2 5839: 5916 bwz *&5,hold,2 5825: 5917 b sweat 5840: 5917 b sweat 5826: 5918 bwz ckgm,hold-2,2 5841: 5918 bwz ckgm,hold-2,2 5827: 5919 sweat mcw hold,x2 5842: 5919 sweat mcw hold,x2 5828: 5920 mcw 0&x2,hold 5843: 5920 mcw 0&x2,hold 5829: 5921 ckgm bce bad,0&x1,} gm 5844: 5921 ckgm bce bad,0&x1,} gm 5830: 5922 mcw 0&x1,hld2#2 5845: 5922 mcw 0&x1,hld2#2 5831: 5923 bce *&5,hld2-1,} gm 5846: 5923 bce *&5,hld2-1,} gm 5832: 5924 b bad 5847: 5924 b bad 5833: 5925 mn 0&x1,*&8 5848: 5925 mn 0&x1,*&8 5834: 5926 bce ok,@01234@,0 5849: 5926 bce ok,@01234@,0 5835: 5927 chain4 5850: 5927 chain4 5836: 5928 bad ftmsg36,illegal sense light,hold,21 5851: 5928 bad ftmsg36,illegal sense light,hold,21 5837: 5929 sbr x3,4&x3 5852: 5929 sbr x3,4&x3 5838: 5930 c 0&x1 5853: 5930 c 0&x1 5839: 5931 sar x1 5854: 5931 sar x1 5840: 5932 b start 5855: 5932 b start 5841: 5933 ok mz *-4,0&x1 5856: 5933 ok mz *-4,0&x1 5842: 5934 bce zero,0&x1,0 5857: 5934 bce zero,0&x1,0 5843: 5935 mn 0&x1,mask1 5858: 5935 mn 0&x1,mask1 5844: 5936 lca mask1,0&x3 5859: 5936 lca mask1,0&x3 5845: 5937 sbr x3 5860: 5937 sbr x3 5846: 5938 rtn c 0&x1 5861: 5938 rtn c 0&x1 5847: 5939 sar x1 5862: 5939 sar x1 5848: 5940 lca 1&x1,0&x3 5863: 5940 lca 1&x1,0&x3 5849: 5941 sbr x3 5864: 5941 sbr x3 5850: 5942 klobr bce start,0,] 11-5-8 5865: 5942 klobr bce start,0,] 11-5-8 5851: 5943 fquit 5866: 5943 fquit 5852: 5944 zero lca @,@,0&x3 5867: 5944 zero lca @,@,0&x3 5853: 5945 lca @,082084@ 5868: 5945 lca @,082084@ 5854: 5946 sbr x3 5869: 5946 sbr x3 5855: 5947 b rtn 5870: 5947 b rtn 5856: 5948 mask1 dcw @)080@ 5871: 5948 mask1 dcw @)080@ 5857: 5949 ltorg* 5872: 5949 ltorg* 5858: 5950 sysl dcw @}@ system group mark 5873: 5950 sysl dcw @}@ system group mark 5859: 5951 xfr start 5874: 5951 xfr start 5860: 5952 job 1401 Fortran if %hardware) phase 50443 5875: 5952 job 1401 Fortran if %hardware) phase 50443 5861: 5953 fbegnifcond,x1,,x2,r,x3,,4 5876: 5953 fbegnifcond,x1,,x2,r,x3,,4 5862: 5954 org xbegin 5877: 5954 org xbegin 5863: 5955 start bce out,0&x1, blank 5878: 5955 start bce out,0&x1, blank 5864: 5956 mcw 0&x1,code 5879: 5956 mcw 0&x1,code 5865: 5957 mcw 5880: 5957 mcw 5866: 5958 fbceqdoit,code-3,w,k 5881: 5958 fbceqdoit,code-3,w,k 5867: 5959 out fendxc,,,,,,sys1,continue 5882: 5959 out fendxc,,,,,,sys1,continue 5868: 5960 doit mcw @<@,2&x1 12-6-8 5883: 5960 doit mcw @<@,2&x1 12-6-8 5869: 5961 sbr klobr&6,2&x1 5884: 5961 sbr klobr&6,2&x1 5870: 5962 mvdwnx1,x3 5885: 5962 mvdwnx1,x3 5871: 5963 lca 1&x3,2&x3 5886: 5963 lca 1&x3,2&x3 5872: 5964 sbr x3 5887: 5964 sbr x3 5873: 5965 mcw 0&x1,on 5888: 5965 mcw 0&x1,on 5874: 5966 mcw 5889: 5966 mcw 5875: 5967 sar x1 5890: 5967 sar x1 5876: 5968 mz @k@,on-1 5891: 5968 mz @k@,on-1 5877: 5969 mz @k@,off-1 5892: 5969 mz @k@,off-1 5878: 5970 bwz *&5,code,2 5893: 5970 bwz *&5,code,2 5879: 5971 b flip 5894: 5971 b flip 5880: 5972 bwz ckcom,code-2,2 5895: 5972 bwz ckcom,code-2,2 5881: 5973 flip mcw code,x2 5896: 5973 flip mcw code,x2 5882: 5974 mcw 0&x2,code 5897: 5974 mcw 0&x2,code 5883: 5975 ckcom b aok 5898: 5975 ckcom b aok 5884: 5976 kill c 0&x1 5899: 5976 kill c 0&x1 5885: 5977 sar x1 5900: 5977 sar x1 5886: 5978 sbr x3,4&x3 5901: 5978 sbr x3,4&x3 5887: 5979 b start 5902: 5979 b start 5888: 5980 aok mn 0&x1 5903: 5980 aok mn 0&x1 5889: 5981 sar x1 5904: 5981 sar x1 5890: 5982 bce light,code-3,k 5905: 5982 bce light,code-3,k 5891: 5983 mcw 0&x1,box#1 process if sense 5906: 5983 mcw 0&x1,box#1 process if sense 5892: 5984 mcw box,*&8 switch 5907: 5984 mcw box,*&8 switch 5893: 5985 bce aok2,@0123456@,0 5908: 5985 bce aok2,@0123456@,0 5894: 5986 chain6 5909: 5986 chain6 5895: 5987 ftmsg37,illegal sense switch,code,22 5910: 5987 ftmsg37,illegal sense switch,code,22 5896: 5988 b kill 5911: 5988 b kill 5897: 5989 aok2 a &1,box 5912: 5989 aok2 a &1,box 5898: 5990 mn box,mask1 5913: 5990 mn box,mask1 5899: 5991 mcw on,mask1-1 5914: 5991 mcw on,mask1-1 5900: 5992 mcw off,x2 5915: 5992 mcw off,x2 5901: 5993 mcw 0&x2,x2 5916: 5993 mcw 0&x2,x2 5902: 5994 s &10,x2&1 5917: 5994 s &10,x2&1 5903: 5995 c code,x2 5918: 5995 c code,x2 5904: 5996 be noxtr 5919: 5996 be noxtr 5905: 5997 mcw off,mask2 5920: 5997 mcw off,mask2 5906: 5998 lca mask2,0&x3 5921: 5998 lca mask2,0&x3 5907: 5999 lca mask1 5922: 5999 lca mask1 5908: 6000 sbr x3 5923: 6000 sbr x3 5909: 6001 retrn c 0&x1 5924: 6001 retrn c 0&x1 5910: 6002 sar x1 5925: 6002 sar x1 5911: 6003 lca 1&x1,0&x3 5926: 6003 lca 1&x1,0&x3 5912: 6004 sbr x3 5927: 6004 sbr x3 5913: 6005 klobr bce start,0,< 12-6-8 5928: 6005 klobr bce start,0,< 12-6-8 5914: 6006 fquit 5929: 6006 fquit 5915: 6007 noxtr lca mask1,0&x3 5930: 6007 noxtr lca mask1,0&x3 5916: 6008 sbr x3 5931: 6008 sbr x3 5917: 6009 b retrn 5932: 6009 b retrn 5918: 6010 light mcw 0&x1,box 5933: 6010 light mcw 0&x1,box 5919: 6011 mcw box,*&8 5934: 6011 mcw box,*&8 5920: 6012 bce aok3,@1234@,0 5935: 6012 bce aok3,@1234@,0 5921: 6013 chain3 5936: 6013 chain3 5922: 6014 ftmsg36,illegal sense light,code,21 5937: 6014 ftmsg36,illegal sense light,code,21 5923: 6015 b kill 5938: 6015 b kill 5924: 6016 aok3 mcw @080@,work3#3 5939: 6016 aok3 mcw @080@,work3#3 5925: 6017 a box,work3 5940: 6017 a box,work3 5926: 6018 mcw work3,mask3-1 5941: 6018 mcw work3,mask3-1 5927: 6019 mcw off 5942: 6019 mcw off 5928: 6020 mcw work3,mask4 5943: 6020 mcw work3,mask4 5929: 6021 mcw on,x2 5944: 6021 mcw on,x2 5930: 6022 mcw 0&x2,x2 5945: 6022 mcw 0&x2,x2 5931: 6023 s &10,x2&1 5946: 6023 s &10,x2&1 5932: 6024 c code,x2 5947: 6024 c code,x2 5933: 6025 be cheap 5948: 6025 be cheap 5934: 6026 mcw on,mask2 5949: 6026 mcw on,mask2 5935: 6027 lca mask2,0&x3 5950: 6027 lca mask2,0&x3 5936: 6028 lca mask4 5951: 6028 lca mask4 5937: 6029 lca mask3 5952: 6029 lca mask3 5938: 6030 sbr x3 5953: 6030 sbr x3 5939: 6031 b retrn 5954: 6031 b retrn 5940: 6032 cheap lca mask4,0&x3 5955: 6032 cheap lca mask4,0&x3 5941: 6033 lca mask3 5956: 6033 lca mask3 5942: 6034 sbr x3 5957: 6034 sbr x3 5943: 6035 b retrn 5958: 6035 b retrn 5944: 6036 off dcw #3 5959: 6036 off dcw #3 5945: 6037 on dcw #3 5960: 6037 on dcw #3 5946: 6038 mask1 dcw @b &@ 5961: 6038 mask1 dcw @b &@ 5947: 6039 dcw #1 5962: 6039 dcw #1 5948: 6040 code dcw #3 5963: 6040 code dcw #3 5949: 6041 mask2 dcw @b @ 5964: 6041 mask2 dcw @b @ 5950: 6042 mask3 dcw @v 1@ 5965: 6042 mask3 dcw @v 1@ 5951: 6043 mask4 dcw @, @ 5966: 6043 mask4 dcw @, @ 5952: 6044 ltorg* 5967: 6044 ltorg* 5953: 6045 sys1 dcw @}@ system group mark 5968: 6045 sys1 dcw @}@ system group mark 5954: 6046 xfr start 5969: 6046 xfr start 5955: 6047 job 1401 Fortran continue phase 50453 5970: 6047 job 1401 Fortran continue phase 50453 5956: 6048 fbegncontinue,x1,,,,x3,,& 5971: 6048 fbegncontinue,x1,,,,x3,,& 5957: 6049 org xbegin 5972: 6049 org xbegin 5958: 6050 start bce out,0&x1, blank 5973: 6050 start bce out,0&x1, blank 5959: 6051 mcw 0&x1,code#4 5974: 6051 mcw 0&x1,code#4 5960: 6052 bce isctu,code-3,c 5975: 6052 bce isctu,code-3,c 5961: 6053 out fendxc,,,,,,sys1,domsk 5976: 6053 out fendxc,,,,,,sys1,domsk 5962: 6054 isctu mvdwnx1,x3 5977: 6054 isctu mvdwnx1,x3 5963: 6055 lca 1&x1,2&x3 5978: 6055 lca 1&x1,2&x3 5964: 6056 c 0&x1 5979: 6056 c 0&x1 5965: 6057 sar x1 5980: 6057 sar x1 5966: 6058 b start 5981: 6058 b start 5967: 6059 ltorg* 5982: 6059 ltorg* 5968: 6060 sys1 dcw @}@ system group mark 5983: 6060 sys1 dcw @}@ system group mark 5969: 6061 xfr start 5984: 6061 xfr start 5970: 6062 job 1401 Fortran do phase 50463 5985: 6062 job 1401 Fortran do phase 50463 5971: 6063 fbegndomsk,x1,,x2,r,x3,,% 5986: 6063 fbegndomsk,x1,,x2,r,x3,,% 5972: 6064 * do phase algorithm 5987: 6064 * do phase algorithm 5973: 6065 * 5988: 6065 * 5974: 6066 * outer 5989: 6066 * outer 5975: 6067 * 5990: 6067 * 5976: 6068 * no same diff 5991: 6068 * no same diff 5977: 6069 * i b xt b xt b xt 5992: 6069 * i b xt b xt b xt 5978: 6070 * n 5993: 6070 * n 5979: 6071 * n gm t bk t in t bk 5994: 6071 * n gm t bk t in t bk 5980: 6072 * e ez b bk b in b bk 5995: 6072 * e ez b bk b in b bk 5981: 6073 * r hd - bk - in - bk 5996: 6073 * r hd - bk - in - bk 5982: 6074 * 5997: 6074 * 5983: 6075 org xbegin 5998: 6075 org xbegin 5984: 6076 initl sw gm1,gm2 5999: 6076 initl sw gm1,gm2 5985: 6077 sw gm3,gm4 6000: 6077 sw gm3,gm4 5986: 6078 mcw x3,hex3#3 6001: 6078 mcw x3,hex3#3 5987: 6079 start bwz out,000&x1,1 6002: 6079 start bwz out,000&x1,1 5988: 6080 mcw @<@,2&x1 12-6-8 6003: 6080 mcw @<@,2&x1 12-6-8 5989: 6081 sbr klobr&6,2&x1 6004: 6081 sbr klobr&6,2&x1 5990: 6082 c 000&x1 6005: 6082 c 000&x1 5991: 6083 sar x1 6006: 6083 sar x1 5992: 6084 c 002&x1,@d@ 6007: 6084 c 002&x1,@d@ 5993: 6085 bu dun 6008: 6085 bu dun 5994: 6086 cw xdoad1,xdoad2 6009: 6086 cw xdoad1,xdoad2 5995: 6087 cw xdoad3,xdoini 6010: 6087 cw xdoad3,xdoini 5996: 6088 mcw 005&x1,x2 6011: 6088 mcw 005&x1,x2 5997: 6089 mcw 000&x2,top#3 6012: 6089 mcw 000&x2,top#3 5998: 6090 mcw 000&x1,x2 6013: 6090 mcw 000&x1,x2 5999: 6091 sar x1 6014: 6091 sar x1 6000: 6092 mcw 000&x2,botm#3 6015: 6092 mcw 000&x2,botm#3 6001: 6093 za top,accum#3 6016: 6093 za top,accum#3 6002: 6094 s botm,accum 6017: 6094 s botm,accum 6003: 6095 mcw @n@,swtch 6018: 6095 mcw @n@,swtch 6004: 6096 bwz err1,accum,b 6019: 6096 bwz err1,accum,b 6005: 6097 mcw x1,x2 6020: 6097 mcw x1,x2 6006: 6098 mcw @ @,exit 6021: 6098 mcw @ @,exit 6007: 6099 mcw @t@,gobak-3 6022: 6099 mcw @t@,gobak-3 6008: 6100 mcw @b@,noapx 6023: 6100 mcw @b@,noapx 6009: 6101 loop c 000&x2 6024: 6101 loop c 000&x2 6010: 6102 c 6025: 6102 c 6011: 6103 sar x2 6026: 6103 sar x2 6012: 6104 c 002&x2,@d@ 6027: 6104 c 002&x2,@d@ 6013: 6105 bu difnt 6028: 6105 bu difnt 6014: 6106 mcw 000&x2,x3 6029: 6106 mcw 000&x2,x3 6015: 6107 c 000&x3,top 6030: 6107 c 000&x3,top 6016: 6108 bh loop 6031: 6108 bh loop 6017: 6109 c 000&x3,botm 6032: 6109 c 000&x3,botm 6018: 6110 bh err2 6033: 6110 bh err2 6019: 6111 bce rudif,1&x2,h 6034: 6111 bce rudif,1&x2,h 6020: 6112 mcw @e@,1&x2 6035: 6112 mcw @e@,1&x2 6021: 6113 rudif bl difnt 6036: 6113 rudif bl difnt 6022: 6114 mcw @h@,1&x2 6037: 6114 mcw @h@,1&x2 6023: 6115 mcw 5&x2,exit 6038: 6115 mcw 5&x2,exit 6024: 6116 difnt bce mdify,4&x1,h 6039: 6116 difnt bce mdify,4&x1,h 6025: 6117 mcw @n@,noapx 6040: 6117 mcw @n@,noapx 6026: 6118 bce mdify,4&x1,} group mk 6041: 6118 bce mdify,4&x1,} group mk 6027: 6119 mcw @b@,gobak-3 6042: 6119 mcw @b@,gobak-3 6028: 6120 mdify mcw botm,mask 6043: 6120 mdify mcw botm,mask 6029: 6121 sw 006&x1 6044: 6121 sw 006&x1 6030: 6122 mcw 008&x1,mask-9 6045: 6122 mcw 008&x1,mask-9 6031: 6123 mcw 008&x1,gobak 6046: 6123 mcw 008&x1,gobak 6032: 6124 cksyn b test 6047: 6124 cksyn b test 6033: 6125 dcw @,@ 6048: 6125 dcw @,@ 6034: 6126 dcw &i 6049: 6126 dcw &i 6035: 6127 b test 6050: 6127 b test 6036: 6128 dcw @#@ 6051: 6128 dcw @#@ 6037: 6129 dcw &m1 6052: 6129 dcw &m1 6038: 6130 b test 6053: 6130 b test 6039: 6131 dcw @,@ 6054: 6131 dcw @,@ 6040: 6132 dcw &m2 6055: 6132 dcw &m2 6041: 6133 bwz m3is1,000&x1,1 6056: 6133 bwz m3is1,000&x1,1 6042: 6134 b test 6057: 6134 b test 6043: 6135 dcw @,@ 6058: 6135 dcw @,@ 6044: 6136 dcw &m3 6059: 6136 dcw &m3 6045: 6137 bwz send,000&x1,1 6060: 6137 bwz send,000&x1,1 6046: 6138 b error 6061: 6138 b error 6047: 6139 send mcw hex3,x3 6062: 6139 send mcw hex3,x3 6048: 6140 mn 000&x1 6063: 6140 mn 000&x1 6049: 6141 sar x1 6064: 6141 sar x1 6050: 6142 swtch nop klobr 6065: 6142 swtch nop klobr 6051: 6143 noapx nop reg 6066: 6143 noapx nop reg 6052: 6144 a &1,gnstmz 6067: 6144 a &1,gnstmz 6053: 6145 lca mask,000&x3 6068: 6145 lca mask,000&x3 6054: 6146 chain2 6069: 6146 chain2 6055: 6147 sbr x3 6070: 6147 sbr x3 6056: 6148 reg lca gm2-1,0&x3 6071: 6148 reg lca gm2-1,0&x3 6057: 6149 chain8 6072: 6149 chain8 6058: 6150 sbr hex3 6073: 6150 sbr hex3 6059: 6151 klobr bce start,0,< 12-6-8 6074: 6151 klobr bce start,0,< 12-6-8 6060: 6152 fquit 6075: 6152 fquit 6061: 6153 test sbr x2 6076: 6153 test sbr x2 6062: 6154 c 000&x1,000&x2 6077: 6154 c 000&x1,000&x2 6063: 6155 sar x1 6078: 6155 sar x1 6064: 6156 bu error 6079: 6156 bu error 6065: 6157 mcw 003&x2,*&7 6080: 6157 mcw 003&x2,*&7 6066: 6158 mcw 000&x1,000 6081: 6158 mcw 000&x1,000 6067: 6159 s count#1 6082: 6159 s count#1 6068: 6160 ok a &1,count 6083: 6160 ok a &1,count 6069: 6161 bce 004&x2,count,d 6084: 6161 bce 004&x2,count,d 6070: 6162 mn 000&x1,ruok&7 6085: 6162 mn 000&x1,ruok&7 6071: 6163 sar x1 6086: 6163 sar x1 6072: 6164 ruok bce ok,@0123456789@,0 6087: 6164 ruok bce ok,@0123456789@,0 6073: 6165 chain9 6088: 6165 chain9 6074: 6166 b error 6089: 6166 b error 6075: 6167 m3is1 mcw oneadr,m3 6090: 6167 m3is1 mcw oneadr,m3 6076: 6168 b send 6091: 6168 b send 6077: 6169 err1 ftmsg38,illegal range of do,top,21 6092: 6169 err1 ftmsg38,illegal range of do,top,21 6078: 6170 avoid mcw @b@,swtch 6093: 6170 avoid mcw @b@,swtch 6079: 6171 b cksyn 6094: 6171 b cksyn 6080: 6172 err2 ftmsg39,illegal nesting,top,17 6095: 6172 err2 ftmsg39,illegal nesting,top,17 6081: 6173 b avoid 6096: 6173 b avoid 6082: 6174 error ftmsg40,do syntax,top,11 6097: 6174 error ftmsg40,do syntax,top,11 6083: 6175 c 001&x1 6098: 6175 c 001&x1 6084: 6176 sar x1 6099: 6176 sar x1 6085: 6177 b klobr 6100: 6177 b klobr 6086: 6178 dun sbr x1,5&x1 6101: 6178 dun sbr x1,5&x1 6087: 6179 out mcw hex3,x3 6102: 6179 out mcw hex3,x3 6088: 6180 mn 0&x3 6103: 6180 mn 0&x3 6089: 6181 sar x2 6104: 6181 sar x2 6090: 6182 klear cs 0&x2 6105: 6182 klear cs 0&x2 6091: 6183 sbr x2 6106: 6183 sbr x2 6092: 6184 c 0&x2,doend 6107: 6184 c 0&x2,doend 6093: 6185 bu klear 6108: 6185 bu klear 6094: 6186 fendxe,gm1,,,beginz,,tabelz,resort 1 6109: 6186 fendxe,gm1,,,beginz,,tabelz,resort 1 6095: 6187 gm1 dc @}@ group mk 6110: 6187 gm1 dc @}@ group mk 6096: 6188 dcw @t@ 6111: 6188 dcw @t@ 6097: 6189 dc doadr1 6112: 6189 dc doadr1 6098: 6190 dcw @t@ 6113: 6190 dcw @t@ 6099: 6191 dc doadr2 6114: 6191 dc doadr2 6100: 6192 m1 dcw #3 6115: 6192 m1 dcw #3 6101: 6193 m2 dcw #3 6116: 6193 m2 dcw #3 6102: 6194 m3 dcw #3 6117: 6194 m3 dcw #3 6103: 6195 i dcw #3 6118: 6195 i dcw #3 6104: 6196 exit dcw #3 6119: 6196 exit dcw #3 6105: 6197 gm4 dc @}@ group mk 6120: 6197 gm4 dc @}@ group mk 6106: 6198 dc #3 xyz of internal number 6121: 6198 dc #3 xyz of internal number 6107: 6199 gm2 dc @}@ group mk 6122: 6199 gm2 dc @}@ group mk 6108: 6200 dcw @t@ 6123: 6200 dcw @t@ 6109: 6201 gobak dc #3 6124: 6201 gobak dc #3 6110: 6202 gm3 dc @}@ group mk 6125: 6202 gm3 dc @}@ group mk 6111: 6203 mask dc #3 6126: 6203 mask dc #3 6112: 6204 ltorg* 6127: 6204 ltorg* 6113: 6205 dcw @}@ system group mark 6128: 6205 dcw @}@ system group mark 6114: 6206 org *&x00 6129: 6206 org *&x00 6115: 6207 doend equ * 6130: 6207 doend equ * 6116: 6208 xfr initl 6131: 6208 xfr initl 6117: 6209 job 1401 Fortran resort phase one 50473 6132: 6209 job 1401 Fortran resort phase one 50473 6118: 6210 fbegnresort 1,x1,,x2,,x3,,z 6133: 6210 fbegnresort 1,x1,,x2,,x3,,z 6119: 6211 org xbegin 6134: 6211 org xbegin 6120: 6212 three dcw 0 6135: 6212 three dcw 0 6121: 6213 count dcw 000 6136: 6213 count dcw 000 6122: 6214 aside dcw 000 6137: 6214 aside dcw 000 6123: 6215 tbl1 dcw 000 6138: 6215 tbl1 dcw 000 6124: 6216 last dcw 000 6139: 6216 last dcw 000 6125: 6217 store dcw 000 6140: 6217 store dcw 000 6126: 6218 sauce dcw 000 6141: 6218 sauce dcw 000 6127: 6219 diff dcw 000 6142: 6219 diff dcw 000 6128: 6220 addin dcw 000 6143: 6220 addin dcw 000 6129: 6221 intno dcw 000 6144: 6221 intno dcw 000 6130: 6222 fromx equ sauce 6145: 6222 fromx equ sauce 6131: 6223 wkbk1 dcw 00000 6146: 6223 wkbk1 dcw 00000 6132: 6224 wkbk2 dcw 00000 6147: 6224 wkbk2 dcw 00000 6133: 6225 area1 dcw 00000 6148: 6225 area1 dcw 00000 6134: 6226 adres equ bsauce 6149: 6226 adres equ bsauce 6135: 6227 tbl2 dcw 000 6150: 6227 tbl2 dcw 000 6136: 6228 test1 dcw 0 6151: 6228 test1 dcw 0 6137: 6229 zone dcw 99 6152: 6229 zone dcw 99 6138: 6230 hold dcw @ @ 6153: 6230 hold dcw @ @ 6139: 6231 cnvrt dcw @ @ 6154: 6231 cnvrt dcw @ @ 6140: 6232 table dcw 9 6155: 6232 table dcw 9 6141: 6233 dc 9 6156: 6233 dc 9 6142: 6234 dcw @z9@ 6157: 6234 dcw @z9@ 6143: 6235 dcw @r9@ 6158: 6235 dcw @r9@ 6144: 6236 dcw @i9@ 6159: 6236 dcw @i9@ 6145: 6237 dcw @9z@ 6160: 6237 dcw @9z@ 6146: 6238 dcw @zz@ 6161: 6238 dcw @zz@ 6147: 6239 dcw @rz@ 6162: 6239 dcw @rz@ 6148: 6240 dcw @iz@ 6163: 6240 dcw @iz@ 6149: 6241 dcw @9r@ 6164: 6241 dcw @9r@ 6150: 6242 dcw @zr@ 6165: 6242 dcw @zr@ 6151: 6243 dcw @rr@ 6166: 6243 dcw @rr@ 6152: 6244 dcw @ir@ 6167: 6244 dcw @ir@ 6153: 6245 dcw @9i@ 6168: 6245 dcw @9i@ 6154: 6246 dcw @zi@ 6169: 6246 dcw @zi@ 6155: 6247 dcw @ri@ 6170: 6247 dcw @ri@ 6156: 6248 dcw @ii@ 6171: 6248 dcw @ii@ 6157: 6249 k5tok3 sbr cmbck&3 convert five digit number 6172: 6249 k5tok3 sbr cmbck&3 convert five digit number 6158: 6250 za cnvrt-3,x1 to three digit adres 6173: 6250 za cnvrt-3,x1 to three digit adres 6159: 6251 mz @ @,x1 blank 6174: 6251 mz @ @,x1 blank 6160: 6252 a x1 6175: 6252 a x1 6161: 6253 mz table&x1,cnvrt-2 6176: 6253 mz table&x1,cnvrt-2 6162: 6254 mz table&1&x1,cnvrt 6177: 6254 mz table&1&x1,cnvrt 6163: 6255 cmbck b 0000 6178: 6255 cmbck b 0000 6164: 6256 expnd sbr czone&10 convert three digit adres 6179: 6256 expnd sbr czone&10 convert three digit adres 6165: 6257 mlc @ @,hold to five digit number 6180: 6257 mlc @ @,hold to five digit number 6166: 6258 mn cnvrt,hold 6181: 6258 mn cnvrt,hold 6167: 6359 mn 6182: 6359 mn 6168: 6260 mn 6183: 6260 mn 6169: 6261 mz cnvrt,zone 6184: 6261 mz cnvrt,zone 6170: 6262 mz cnvrt-2,zone-1 6185: 6262 mz cnvrt-2,zone-1 6171: 6263 mlc &table&1,czone&6 6186: 6263 mlc &table&1,czone&6 6172: 6264 s cnvrt 6187: 6264 s cnvrt 6173: 6265 czone c zone,000 6188: 6265 czone c zone,000 6174: 6266 be 000 6189: 6266 be 000 6175: 6267 a @1@,hold-3 6190: 6267 a @1@,hold-3 6176: 6268 sw czone&4 6191: 6268 sw czone&4 6177: 6269 a @002@,czone&6 6192: 6269 a @002@,czone&6 6178: 6270 cw czone&4 6193: 6270 cw czone&4 6179: 6271 b czone 6194: 6271 b czone 6180: 6272 imvup sbr here&3 6195: 6272 imvup sbr here&3 6181: 6273 mn 0&x3 6196: 6273 mn 0&x3 6182: 6274 sar x3 6197: 6274 sar x3 6183: 6275 remck mcm 1&x3 6198: 6275 remck mcm 1&x3 6184: 6276 mn 6199: 6276 mn 6185: 6277 sbr x3 6200: 6277 sbr x3 6186: 6278 bce remck,0&x3,| 6201: 6278 bce remck,0&x3,| 6187: 6279 sbr x3,1&x3 6202: 6279 sbr x3,1&x3 6188: 6280 here b 0 6203: 6280 here b 0 6189: 6281 errms fquit 6204: 6281 errms fquit 6190: 6282 ltorg* 6205: 6282 ltorg* 6191: 6283 begin sbr sauce,0&x3 6206: 6283 begin sbr sauce,0&x3 6192: 6284 sbr x1,end 6207: 6284 sbr x1,end 6193: 6285 sbr tbl1 equiv to one below tbl1 6208: 6285 sbr tbl1 equiv to one below tbl1 6194: 6286 mlc intst,tms3&6 6209: 6286 mlc intst,tms3&6 6195: 6287 mz @z@,tms3&5 6210: 6287 mz @z@,tms3&5 6196: 6288 tms3 sbr x1,0 6211: 6288 tms3 sbr x1,0 6197: 6289 a @1@,three 6212: 6289 a @1@,three 6198: 6290 c three,@3@ 6213: 6290 c three,@3@ 6199: 6291 bh tms3 6214: 6291 bh tms3 6200: 6292 sbr count,0&x1 6215: 6292 sbr count,0&x1 6201: 6293 sbr tbl2,1&x1 starting adres of tbl2 6216: 6293 sbr tbl2,1&x1 starting adres of tbl2 6202: 6294 mlc @ @,three 6217: 6294 mlc @ @,three 6203: 6295 bce *&5,gnstm, do gen stmnts exist, tst blank 6218: 6295 bce *&5,gnstm, do gen stmnts exist, tst blank 6204: 6296 b *&27 6219: 6296 b *&27 6205: 6297 sbr addin,1&x1 6220: 6297 sbr addin,1&x1 6206: 6298 sbr cnvrt 6221: 6298 sbr cnvrt 6207: 6299 b expnd 6222: 6299 b expnd 6208: 6300 mlc hold,wkbk1 6223: 6300 mlc hold,wkbk1 6209: 6301 b room 6224: 6301 b room 6210: 6302 mlc gnstm,wkbk2 starting adres of tbl2 6225: 6302 mlc gnstm,wkbk2 starting adres of tbl2 6211: 6303 a wkbk2 multiply by six 6226: 6303 a wkbk2 multiply by six 6212: 6304 a wkbk2 6227: 6304 a wkbk2 6213: 6305 a gnstm 6228: 6305 a gnstm 6214: 6306 a gnstm,wkbk2 6229: 6306 a gnstm,wkbk2 6215: 6307 sbr cnvrt,1&x1 6230: 6307 sbr cnvrt,1&x1 6216: 6308 b expnd 6231: 6308 b expnd 6217: 6309 mlc hold,wkbk1 6232: 6309 mlc hold,wkbk1 6218: 6310 a wkbk2,wkbk1 6233: 6310 a wkbk2,wkbk1 6219: 6311 mlc wkbk1,cnvrt 6234: 6311 mlc wkbk1,cnvrt 6220: 6312 b k5tok3 6235: 6312 b k5tok3 6221: 6313 mlc cnvrt,addin one pos above tbl2 6236: 6313 mlc cnvrt,addin one pos above tbl2 6222: 6314 room mlc sauce,cnvrt 6237: 6314 room mlc sauce,cnvrt 6223: 6315 b expnd 6238: 6315 b expnd 6224: 6316 mlc hold,area1 6239: 6316 mlc hold,area1 6225: 6317 c wkbk1,area1 6240: 6317 c wkbk1,area1 6226: 6318 bh *&5 6241: 6318 bh *&5 6227: 6319 b errms 6242: 6319 b errms 6228: 6320 messg@starting address of statements@,43,1,k 6243: 6320 messg@starting address of statements@,43,1,k 6229: 6321 cs 332 6244: 6321 cs 332 6230: 6322 cs 6245: 6322 cs 6231: 6323 mcw @seq@,208 6246: 6323 mcw @seq@,208 6232: 6324 mcw @starting address@,242 6247: 6324 mcw @starting address@,242 6233: 6325 mcw @display@,256 6248: 6325 mcw @display@,256 6234: 6326 w 6249: 6326 w 6235: 6327 cc j 6250: 6327 cc j 6236: 6328 cs 332 6251: 6328 cs 332 6237: 6329 cs 6252: 6329 cs 6238: 6330 lca @000@,208 6253: 6330 lca @000@,208 6239: 6331 mlc fromx,x1 6254: 6331 mlc fromx,x1 6240: 6332 sbr x1,2&x1 gmwm1&1 top 6255: 6332 sbr x1,2&x1 gmwm1&1 top 6241: 6333 sbr x3 6256: 6333 sbr x3 6242: 6334 b imvup 6257: 6334 b imvup 6243: 6335 mlc x3,x2 6258: 6335 mlc x3,x2 6244: 6336 fendxc,,,begin,begin,begin,sys1,resort 2 6259: 6336 fendxc,,,begin,begin,begin,sys1,resort 2 6245: 6337 ltorg* 6260: 6337 ltorg* 6246: 6338 sys1 dcw @}@ system group mark 6261: 6338 sys1 dcw @}@ system group mark 6247: 6339 xfr begin 6262: 6339 xfr begin 6248: 6340 job 1401 Fortran resort phase two 50483 6263: 6340 job 1401 Fortran resort phase two 50483 6249: 6341 org begin 6264: 6341 org begin 6250: 6342 110 dc 2 6265: 6342 110 dc 2 6251: 6343 mlc tbl2,x3 adres of tbl2 in x3 6266: 6343 mlc tbl2,x3 adres of tbl2 in x3 6252: 6344 b save 6267: 6344 b save 6253: 6345 init sbr x2,2&x2 6268: 6345 init sbr x2,2&x2 6254: 6346 mz x3,aside 6269: 6346 mz x3,aside 6255: 6347 mlc x2,x3 6270: 6347 mlc x2,x3 6256: 6248 b imvup 6271: 6248 b imvup 6257: 6249 mlc x3,x2 pos gmwm2&1 in x2 6272: 6249 mlc x3,x2 pos gmwm2&1 in x2 6258: 6250 mlc aside,x3 6273: 6250 mlc aside,x3 6259: 6351 save sbr store,2&x2 pos gmwm3-1 in store 6274: 6351 save sbr store,2&x2 pos gmwm3-1 in store 6260: 6352 bwz *&5,0&x2,2 zone in huns pos of int no 6275: 6352 bwz *&5,0&x2,2 zone in huns pos of int no 6261: 6353 b *&9 6276: 6353 b *&9 6262: 6354 bwz cntnu,2&x2,2 tst for zn in unts pos of int no 6277: 6354 bwz cntnu,2&x2,2 tst for zn in unts pos of int no 6263: 6355 mlc 2&x2,x2 pckup intno from tbl put in x2 6278: 6355 mlc 2&x2,x2 pckup intno from tbl put in x2 6264: 6356 mlc 0&x2,x2 6279: 6356 mlc 0&x2,x2 6265: 6357 b *&8 6280: 6357 b *&8 6266: 6358 cntnu mlc 2&x2,x2 place intno in x2 6281: 6358 cntnu mlc 2&x2,x2 place intno in x2 6267: 6359 sbr intno,0&x2 6282: 6359 sbr intno,0&x2 6268: 6360 sbr mlply&6 6283: 6360 sbr mlply&6 6269: 6361 mz @r@,mlply&5 6284: 6361 mz @r@,mlply&5 6270: 6362 mlply sbr x2,0 6285: 6362 mlply sbr x2,0 6271: 6363 mlc intno,*&14 6286: 6363 mlc intno,*&14 6272: 6364 mz @r@,*&6 6287: 6364 mz @r@,*&6 6273: 6365 sbr x2,0 6288: 6365 sbr x2,0 6274: 6366 c tabel&x2,@ @ test for filled table-blanks 6289: 6366 c tabel&x2,@ @ test for filled table-blanks 6275: 6367 bu gntbl 6290: 6367 bu gntbl 6276: 6368 mlc x1,tabel&x2 hi ord pos of inst in tbl1 6291: 6368 mlc x1,tabel&x2 hi ord pos of inst in tbl1 6277: 6369 b setx1 6292: 6369 b setx1 6278: 6370 gntbl sw 3&x3 6293: 6370 gntbl sw 3&x3 6279: 6371 mlc tabel&x2,5&x3 gen branch second in tbl2 6294: 6371 mlc tabel&x2,5&x3 gen branch second in tbl2 6280: 6372 cw 3&x3 6295: 6372 cw 3&x3 6281: 6373 mlc x1,2&x3 orig inst first in tbl2 6296: 6373 mlc x1,2&x3 orig inst first in tbl2 6282: 6374 mlc @1@,test1 swtch for replc tbl 6297: 6374 mlc @1@,test1 swtch for replc tbl 6283: 6375 sbr tabel&x2,2&x3 low order pos of entry1, tbl2 6298: 6375 sbr tabel&x2,2&x3 low order pos of entry1, tbl2 6284: 6376 mz @z@,tabel-1&x2 a zone in tens pos of tbl1 6299: 6376 mz @z@,tabel-1&x2 a zone in tens pos of tbl1 6285: 6377 sbr x3,6&x3 6300: 6377 sbr x3,6&x3 6286: 6378 setx1 mlc store,x2 6301: 6378 setx1 mlc store,x2 6287: 6379 c adres,store 6302: 6379 c adres,store 6288: 6380 bu reset 6303: 6380 bu reset 6289: 6381 bce ctoal,test1,0 6304: 6381 bce ctoal,test1,0 6290: 6382 mlc @0@,test1 6305: 6382 mlc @0@,test1 6291: 6383 mlc x1,x3 6306: 6383 mlc x1,x3 6292: 6384 b imvup 6307: 6384 b imvup 6293: 6385 mz @z@,1&x3 6308: 6385 mz @z@,1&x3 6294: 6386 ctoal mlc addin,x2 6309: 6386 ctoal mlc addin,x2 6295: 6387 lca @:@,0&x2 5-8 with wm above program 6310: 6387 lca @:@,0&x2 5-8 with wm above program 6296: 6388 mlc tbl1,x3 adres one pos above table 1 6311: 6388 mlc tbl1,x3 adres one pos above table 1 6297: 6389 sbr x3,3&x3 6312: 6389 sbr x3,3&x3 6298: 6390 mlc 86,cnvrt true starting adres 6313: 6390 mlc 86,cnvrt true starting adres 6299: 6391 b expnd 6314: 6391 b expnd 6300: 6392 mlc hold,wkbk1 6315: 6392 mlc hold,wkbk1 6301: 6393 sbr cnvrt,0&x2 6316: 6393 sbr cnvrt,0&x2 6302: 6394 b expnd 6317: 6394 b expnd 6303: 6395 mlc hold,wkbk2 6318: 6395 mlc hold,wkbk2 6304: 6396 s wkbk2,wkbk1 6319: 6396 s wkbk2,wkbk1 6305: 6397 bwz *&5,wkbk1,k is diff neg 6320: 6397 bwz *&5,wkbk1,k is diff neg 6306: 6398 b *&8 6321: 6398 b *&8 6307: 6399 a @16000@,wkbk1 6322: 6399 a @16000@,wkbk1 6308: 6400 mlc wkbk1,cnvrt 6323: 6400 mlc wkbk1,cnvrt 6309: 6401 b k5tok3 6324: 6401 b k5tok3 6310: 6402 mlc cnvrt,diff diff bet act and fixed adres 6325: 6402 mlc cnvrt,diff diff bet act and fixed adres 6311: 6403 sbr x2,1&x2 high ord adres of sorted program 6326: 6403 sbr x2,1&x2 high ord adres of sorted program 6312: 6404 sbr intst 6327: 6404 sbr intst 6313: 6405 fendxc,,,,,,sys2,resort 3 6328: 6405 fendxc,,,,,,sys2,resort 3 6314: 6406 reset mlc x3,aside 6329: 6406 reset mlc x3,aside 6315: 6407 mlc x1,x3 6330: 6407 mlc x1,x3 6316: 6408 b imvup set x1 to gmwm1&1 of nxt instr 6331: 6408 b imvup set x1 to gmwm1&1 of nxt instr 6317: 6409 mlc x3,x1 6332: 6409 mlc x3,x1 6318: 6410 mlc aside,x3 6333: 6410 mlc aside,x3 6319: 6411 bce *&15,test1,0 6334: 6411 bce *&15,test1,0 6320: 6412 mlc @0@,test1 6335: 6412 mlc @0@,test1 6321: 6413 mz @z@,1&x1 6336: 6413 mz @z@,1&x1 6322: 6414 sbr x1,4&x1 6337: 6414 sbr x1,4&x1 6323: 6415 b init 6338: 6415 b init 6324: 6416 ltorg* 6339: 6416 ltorg* 6325: 6417 sys2 dcw @}@ system group mark 6340: 6417 sys2 dcw @}@ system group mark 6326: 6418 xfr begin 6341: 6418 xfr begin 6327: 6419 job 1401 Fortran resort phase three 50493 6342: 6419 job 1401 Fortran resort phase three 50493 6328: 6420 org begin 6343: 6420 org begin 6329: 6421 110 dc @3@ 6344: 6421 110 dc @3@ 6330: 6422 sw gmwm 6345: 6422 sw gmwm 6331: 6423 b next&7 6346: 6423 b next&7 6332: 6424 next sbr x3,0 re-init x3 6347: 6424 next sbr x3,0 re-init x3 6333: 6425 sbr last 6348: 6425 sbr last 6334: 6426 bce adone,0&x3, tst for blanks in tbl 6349: 6426 bce adone,0&x3, tst for blanks in tbl 6335: 6427 sbr next&6,3&x3 6350: 6427 sbr next&6,3&x3 6336: 6428 mn 0&x3 6351: 6428 mn 0&x3 6337: 6429 sar *&7 6352: 6429 sar *&7 6338: 6430 bwz case2,0,s a zone in tens pos of tbl1 6353: 6430 bwz case2,0,s a zone in tens pos of tbl1 6339: 6431 mlc 0&x3,x1 place hi ord pos of inst in x1 6354: 6431 mlc 0&x3,x1 place hi ord pos of inst in x1 6340: 6432 sbr addin,0&x3 6355: 6432 sbr addin,0&x3 6341: 6433 mlc x1,prep1#3 save x1 6356: 6433 mlc x1,prep1#3 save x1 6342: 6434 space mlc x1,x3 6357: 6434 space mlc x1,x3 6343: 6435 b imvup 6358: 6435 b imvup 6344: 6436 mlc x3,cnvrt 6359: 6436 mlc x3,cnvrt 6345: 6437 b expnd 6360: 6437 b expnd 6346: 6438 mlc hold,area1 6361: 6438 mlc hold,area1 6347: 6439 a @1@,area1 6362: 6439 a @1@,area1 6348: 6440 mlc prep1,cnvrt 6363: 6440 mlc prep1,cnvrt 6349: 6441 b expnd 6364: 6441 b expnd 6350: 6442 mlc hold,area2 6365: 6442 mlc hold,area2 6351: 6443 s area2,area1 lngth of nxt inst to be moved 6366: 6443 s area2,area1 lngth of nxt inst to be moved 6352: 6444 mlc x2,cnvrt nxt avail pos in sorted area 6367: 6444 mlc x2,cnvrt nxt avail pos in sorted area 6353: 6445 b expnd 6368: 6445 b expnd 6354: 6446 mlc hold,wkbk1 6369: 6446 mlc hold,wkbk1 6355: 6447 b nufrm 6370: 6447 b nufrm 6356: 6448 bl squez 6371: 6448 bl squez 6357: 6449 list mlc prep1,x1 6372: 6449 list mlc prep1,x1 6358: 6450 bce *&12,test2,1 print stmt no, hi ord adres 6373: 6450 bce *&12,test2,1 print stmt no, hi ord adres 6359: 6451 a @1@,208 6374: 6451 a @1@,208 6360: 6452 b addr1 6375: 6452 b addr1 6361: 6453 mlc @0@,test2 reset indicator 6376: 6453 mlc @0@,test2 reset indicator 6362: 6454 mlc x3,gary&6 6377: 6454 mlc x3,gary&6 6363: 6455 mcw 3&x1,x3 6378: 6455 mcw 3&x1,x3 6364: 6456 mcw 0&x3,x3 6379: 6456 mcw 0&x3,x3 6365: 6457 sbr 3&x1,4&x3 6380: 6457 sbr 3&x1,4&x3 6366: 6458 ma diff,3&x1 6381: 6458 ma diff,3&x1 6367: 6459 mcw x1,hex1#3 6382: 6459 mcw x1,hex1#3 6368: 6460 round mz *-4,9&x3 6383: 6460 round mz *-4,9&x3 6369: 6461 mz *-4,12&x3 6384: 6461 mz *-4,12&x3 6370: 6462 mz *-4,15&x3 6385: 6462 mz *-4,15&x3 6371: 6463 mz *-4,18&x3 6386: 6463 mz *-4,18&x3 6372: 6464 bce outer,22&x3, blank 6387: 6464 bce outer,22&x3, blank 6373: 6465 mcw 22&x3,x1 6388: 6465 mcw 22&x3,x1 6374: 6466 mcw 0&x1,22&x3 6389: 6466 mcw 0&x1,22&x3 6375: 6467 ma @004@,22&x3 6390: 6467 ma @004@,22&x3 6376: 6468 ma diff,22&x3 6391: 6468 ma diff,22&x3 6377: 6469 mcw 0&x1,x3 6392: 6469 mcw 0&x1,x3 6378: 6470 b round 6393: 6470 b round 6379: 6471 outer sbr 22&x3,4&x2 6394: 6471 outer sbr 22&x3,4&x2 6380: 6472 ma diff,22&x3 6395: 6472 ma diff,22&x3 6381: 6473 mcw hex1,x1 6396: 6473 mcw hex1,x1 6382: 6474 bce *&8,0&x1,b 6397: 6474 bce *&8,0&x1,b 6383: 6475 sbr 3&x1,doadr3 6398: 6475 sbr 3&x1,doadr3 6384: 6476 gary sbr x3,0 6399: 6476 gary sbr x3,0 6385: 6477 addr1 mcw diff,227 6400: 6477 addr1 mcw diff,227 6386: 6478 ma x2,227 6401: 6478 ma x2,227 6387: 6479 mcw 227,x3 6402: 6479 mcw 227,x3 6388: 6480 mcw x3,cnvrt 6403: 6480 mcw x3,cnvrt 6389: 6481 b expnd 6404: 6481 b expnd 6390: 6482 mcs hold,244 6405: 6482 mcs hold,244 6391: 6483 mcw x3,256 6406: 6483 mcw x3,256 6392: 6484 ma @004@,256 6407: 6484 ma @004@,256 6393: 6485 w 6408: 6485 w 6394: 6486 forms 6409: 6486 forms 6395: 6587 mlc x2,symbl-1 6410: 6587 mlc x2,symbl-1 6396: 6488 bce cntu2,0&x1,} duz stmnt exist 12-7-8 6411: 6488 bce cntu2,0&x1,} duz stmnt exist 12-7-8 6397: 6489 mn 0&x2 move statement 6412: 6489 mn 0&x2 move statement 6398: 6490 sar x2 6413: 6490 sar x2 6399: 6491 ctnmv mcm 0&x1 6414: 6491 ctnmv mcm 0&x1 6400: 6492 sar strx1&6 6415: 6492 sar strx1&6 6401: 6493 mcm 0&x1,1&x2 6416: 6493 mcm 0&x1,1&x2 6402: 6494 mn 6417: 6494 mn 6403: 6495 sbr x2 6418: 6495 sbr x2 6404: 6496 strx1 sbr x1,0 6419: 6496 strx1 sbr x1,0 6405: 6497 bce ctnmv,0&x2,| | 6420: 64971 b *&15 v3m4 > 6421: 64972cntu2 sbr x1,1&x1 v3m4 > 6422: 64973 mlc @b@,symbl&7 v3m4 6406: 6498 bwz *&5,0&x1,2 duz replc tbl need updating 6423: 6498 bwz *&5,0&x1,2 duz replc tbl need updating 6407: 6499 b chnge 6424: 6499 b chnge 6408: 6500 bwz symbl,2&x1,2 6425: 6500 bwz symbl,2&x1,2 6409: 6501 b chnge < 6410: 6502 cntu2 sbr x1,1&x1 < 6411: 6503 mlc @b@,symbl&7 < 6412: 6504 chnge mlc 2&x1,x3 update replc table 6426: 6504 chnge mlc 2&x1,x3 update replc table 6413: 6505 sbr 0&x3,0 6427: 6505 sbr 0&x3,0 6414: 6506 symbl mlc @:@,0&x1 mv symb into stmnt 5-8 6428: 6506 symbl mlc @:@,0&x1 mv symb into stmnt 5-8 6415: 6507 nop botom skip trawm for no stmnt 6429: 6507 nop botom skip trawm for no stmnt 6416: 6508 mn 0&x1 6430: 6508 mn 0&x1 6417: 6509 mn 6431: 6509 mn 6418: 6510 sar x1 gmwm2-1 of stmnt just moved 6432: 6510 sar x1 gmwm2-1 of stmnt just moved 6419: 6511 mn 0&x2 6433: 6511 mn 0&x2 6420: 6512 sar trawm&6 6434: 6512 sar trawm&6 6421: 6513 trawm lca 0&x1,0&x2 transfer word marks 6435: 6513 trawm lca 0&x1,0&x2 transfer word marks 6422: 6514 sbr trawm&6 6436: 6514 sbr trawm&6 6423: 6515 c 0&x1 6437: 6515 c 0&x1 6424: 6516 sar x1 6438: 6516 sar x1 6425: 6517 bce *&5,0&x1,} 12-7-8 6439: 6517 bce *&5,0&x1,} 12-7-8 6426: 6518 b trawm 6440: 6518 b trawm 6427: 6519 botom mlc @n@,symbl&7 re-init nop branch 6441: 6519 botom mlc @n@,symbl&7 re-init nop branch 6428: 6520 c last,count 6442: 6520 c last,count 6429: 6521 bu tstcs 6443: 6521 bu tstcs 6430: 6522 ldsym lca @:@,0&x2 5-8 6444: 6522 ldsym lca @:@,0&x2 5-8 6431: 6523 sbr x3 6445: 6523 sbr x3 6432: 6524 fendxc,,,,,,sysgm,resort 4 6446: 6524 fendxc,,,,,,sysgm,resort 4 6433: 6525 tstcs bce part2,test1,1 tst for 2nd part of gen int no 6447: 6525 tstcs bce part2,test1,1 tst for 2nd part of gen int no 6434: 6526 b next sort next statement 6448: 6526 b next sort next statement 6435: 6527 case2 mlc 0&x3,x3 low ord adres of tbl2 6449: 6527 case2 mlc 0&x3,x3 low ord adres of tbl2 6436: 6528 mlc 0&x3,x1 6450: 6528 mlc 0&x3,x1 6437: 6529 sbr part2&10,3&x3 6451: 6529 sbr part2&10,3&x3 6438: 6530 mlc @1@,test1 6452: 6530 mlc @1@,test1 6439: 6531 b space-14 6453: 6531 b space-14 6440: 6532 part2 mlc @0@,test1 reset indicator 6454: 6532 part2 mlc @0@,test1 reset indicator 6441: 6533 mlc 0,x1 6455: 6533 mlc 0,x1 6442: 6534 mlc part2&10,addin prepx3 for wmtst 6456: 6534 mlc part2&10,addin prepx3 for wmtst 6443: 6535 mlc @1@,test2 6457: 6535 mlc @1@,test2 6444: 6536 b space-7 6458: 6536 b space-7 6445: 6537 nufrm sbr streg&3 6459: 6537 nufrm sbr streg&3 6446: 6538 mlc fromx,cnvrt 6460: 6538 mlc fromx,cnvrt 6447: 6539 b expnd 6461: 6539 b expnd 6448: 6540 mlc hold,wkbk2 6462: 6540 mlc hold,wkbk2 6449: 6541 s wkbk1,wkbk2 space avail for nxt inst 6463: 6541 s wkbk1,wkbk2 space avail for nxt inst 6450: 6542 c area1,wkbk2 6464: 6542 c area1,wkbk2 6451: 6543 streg b 0 6465: 6543 streg b 0 6452: 6544 adone a @1@,208 add 1 for vanished stmnt 6466: 6544 adone a @1@,208 add 1 for vanished stmnt 6453: 6545 c last,count 6467: 6545 c last,count 6454: 6546 be ldsym 6468: 6546 be ldsym 6455: 6547 sbr x3,3&x3 6469: 6547 sbr x3,3&x3 6456: 6548 sbr last 6470: 6548 sbr last 6457: 6549 b next&11 6471: 6549 b next&11 6458: 6550 fixit sbr fromx,2&x3 new gmwm1-1 if hi ord stmnt 6472: 6550 fixit sbr fromx,2&x3 new gmwm1-1 if hi ord stmnt 6459: 6551 squez mlc fromx,x3 gmwm1-1 or hiord stmnt 6473: 6551 squez mlc fromx,x3 gmwm1-1 or hiord stmnt 6460: 6552 sbr x3,2&x3 gmwm1&1 of hi ord stmnt 6474: 6552 sbr x3,2&x3 gmwm1&1 of hi ord stmnt 6461: 6553 b imvup 6475: 6553 b imvup 6462: 6554 bce fixit,0&x3,: tst for used hi ord stmnts 5-8 6476: 6554 bce fixit,0&x3,: tst for used hi ord stmnts 5-8 6463: 6555 b nufrm 6477: 6555 b nufrm 6464: 6556 bl loop-7 6478: 6556 bl loop-7 6465: 6557 b list 6479: 6557 b list 6466: 6558 sbr save1&6,0&x2 6480: 6558 sbr save1&6,0&x2 6467: 6559 loop c x3,parama&2 6481: 6559 loop c x3,parama&2 6468: 6560 be lopp 6482: 6560 be lopp 6469: 6561 sbr x1,3&x3 save gmwm3 6483: 6561 sbr x1,3&x3 save gmwm3 6470: 6562 bce mvagn-7,0&x1,} 12-7-8 6484: 6562 bce mvagn-7,0&x1,} 12-7-8 6471: 6563 lopp b nufrm 6485: 6563 lopp b nufrm 6472: 6564 bl errms 6486: 6564 bl errms 6473: 6565 b save1 6487: 6565 b save1 6474: 6566 sbr x3,4&x3 6488: 6566 sbr x3,4&x3 6475: 6567 mvagn b imvup 6489: 6567 mvagn b imvup 6476: 6568 c 0&x3,@:@ search for used stmnt 5-8 6490: 6568 c 0&x3,@:@ search for used stmnt 5-8 6477: 6569 bu loop 6491: 6569 bu loop 6478: 6570 sbr hold2&6,0&x3 6492: 6570 sbr hold2&6,0&x3 6479: 6571 sbr store,2&x3 6493: 6571 sbr store,2&x3 6480: 6572 sbr x3,3&x3 tox adres in x3 6494: 6572 sbr x3,3&x3 tox adres in x3 6481: 6573 mvdwn lca 0&x1,0&x3 overlay used stmnts 6495: 6573 mvdwn lca 0&x1,0&x3 overlay used stmnts 6482: 6574 sar x1 6496: 6574 sar x1 6483: 6575 c 0&x3 6497: 6575 c 0&x3 6484: 6576 sar x3 6498: 6576 sar x3 6485: 6577 bce *&5,0&x1,} 12-7-8 6499: 6577 bce *&5,0&x1,} 12-7-8 6486: 6578 b mvdwn 6500: 6578 b mvdwn 6487: 6579 mn 0&x1 6501: 6579 mn 0&x1 6488: 6580 sar aside 6502: 6580 sar aside 6489: 6581 hold2 sbr x1,0 6503: 6581 hold2 sbr x1,0 6490: 6582 bwz *&5,1&x1,s a zone in tens pos of inst 6504: 6582 bwz *&5,1&x1,s a zone in tens pos of inst 6491: 6583 b *&8 6505: 6583 b *&8 6492: 6584 mlc @1@,test3 6506: 6584 mlc @1@,test3 6493: 6585 bwz *&5,0&x1,2 tst for zn in intno st just moved 6507: 6585 bwz *&5,0&x1,2 tst for zn in intno st just moved 6494: 6586 b *&9 6508: 6586 b *&9 6495: 6587 bwz updat,2&x1,2 tst for zn in units pos 6509: 6587 bwz updat,2&x1,2 tst for zn in units pos 6496: 6588 mlc 2&x1,x1 adres of int no 6510: 6588 mlc 2&x1,x1 adres of int no 6497: 6589 mlc 0&x1,x2 int no in x2 6511: 6589 mlc 0&x1,x2 int no in x2 6498: 6590 b *&8 6512: 6590 b *&8 6499: 6591 updat mlc 2&x1,x2 init no in x2 6513: 6591 updat mlc 2&x1,x2 init no in x2 6500: 6592 sbr intno,0&x2 mult int no by 3 6514: 6592 sbr intno,0&x2 mult int no by 3 6501: 6593 sbr mult&6 6515: 6593 sbr mult&6 6502: 6594 mz @r@,mult&5 6516: 6594 mz @r@,mult&5 6503: 6595 mult sbr x2,0 6517: 6595 mult sbr x2,0 6504: 6596 mlc intno,*&14 6518: 6596 mlc intno,*&14 6505: 6597 mz @r@,*&6 6519: 6597 mz @r@,*&6 6506: 6598 sbr x2,0 entry pos on tbl1 6520: 6598 sbr x2,0 entry pos on tbl1 6507: 6599 bwz achck,tabel-1&x2,s 6521: 6599 bwz achck,tabel-1&x2,s 6508: 6600 sbr tabel&x2,1&x3 new hi ord pos in tbl1 6522: 6600 sbr tabel&x2,1&x3 new hi ord pos in tbl1 6509: 6601 b nupos&14 6523: 6601 b nupos&14 6510: 6602 achck mlc tabel&x2,x1 6524: 6602 achck mlc tabel&x2,x1 6511: 6603 bce nupos,test3,1 6525: 6603 bce nupos,test3,1 6512: 6604 sbr 3&x1,1&x3 new hi ord pos in tbl2, entry2 6526: 6604 sbr 3&x1,1&x3 new hi ord pos in tbl2, entry2 6513: 6605 b nupos&14 6527: 6605 b nupos&14 6514: 6606 nupos sbr 0&x1,1&x3 new hi ord pos in tbl2, entry1 6528: 6606 nupos sbr 0&x1,1&x3 new hi ord pos in tbl2, entry1 6515: 6607 mlc @0@,test3 6529: 6607 mlc @0@,test3 6516: 6608 c aside,fromx was whole top moved down 6530: 6608 c aside,fromx was whole top moved down 6517: 6609 be rtnld 6531: 6609 be rtnld 6518: 6610 mlc aside,x1 6532: 6610 mlc aside,x1 6519: 6611 mn 0&x3 6533: 6611 mn 0&x3 6520: 6612 mn 6534: 6612 mn 6521: 6613 mn 6535: 6613 mn 6522: 6614 sar hold2&6 6536: 6614 sar hold2&6 6523: 6615 sbr x1,1&x1 6537: 6615 sbr x1,1&x1 6524: 6616 b mvdwn 6538: 6616 b mvdwn 6525: 6617 rtnld lca gmwm,0&x3 6539: 6617 rtnld lca gmwm,0&x3 6526: 6618 sbr fromx new gmwm1-1 of hi ord unsrt inst 6540: 6618 sbr fromx new gmwm1-1 of hi ord unsrt inst 6527: 6619 c adres,store 6541: 6619 c adres,store 6528: 6620 be finis 6542: 6620 be finis 6529: 6621 mlc store,x3 6543: 6621 mlc store,x3 6530: 6622 sbr x1,1&x3 6544: 6622 sbr x1,1&x3 6531: 6623 sbr x3,2&x3 6545: 6623 sbr x3,2&x3 6532: 6624 b mvagn 6546: 6624 b mvagn 6533: 6625 finis b nufrm 6547: 6625 finis b nufrm 6534: 6626 bl errms 6548: 6626 bl errms 6535: 6627 save1 sbr x2,0 6549: 6627 save1 sbr x2,0 6536: 6628 mlc addin,x3 6550: 6628 mlc addin,x3 6537: 6629 mlc 0&x3,prep1 6551: 6629 mlc 0&x3,prep1 6538: 6630 b list 6552: 6630 b list 6539: 6631 area2 dcw 00000 6553: 6631 area2 dcw 00000 6540: 6632 test2 dcw 0 6554: 6632 test2 dcw 0 6541: 6633 test3 dcw 0 6555: 6633 test3 dcw 0 6542: 6634 ltorg* 6556: 6634 ltorg* 6543: 6635 gmwm dc @}@ work group mk 6557: 6635 gmwm dc @}@ work group mk 6544: 6636 sysgm dcw @}@ system group mk 6558: 6636 sysgm dcw @}@ system group mk 6545: 6637 org *&x00 6559: 6637 org *&x00 6546: 6638 end equ * 6560: 6638 end equ * 6547: 6639 tabel equ end 6561: 6639 tabel equ end 6548: 6640 xfr begin 6562: 6640 xfr begin 6549: 6641 job 1401 Fortran resort phase four 5050a 6563: 6641 job 1401 Fortran resort phase four 5050a 6550: 6642 org begin 6564: 6642 org begin 6551: 6643 110 dc 4 6565: 6643 110 dc 4 6552: 6644 mlc bsauce,x1 6566: 6644 mlc bsauce,x1 6553: 6645 sbr x1,1&x1 6567: 6645 sbr x1,1&x1 6554: 6646 c adtbll,x1 6568: 6646 c adtbll,x1 6555: 6647 be endph 6569: 6647 be endph 6556: 6648 const sbr x1,3&x1 nxt tbl entry 6570: 6648 const sbr x1,3&x1 nxt tbl entry 6557: 6649 mlc 0&x1,x2 contrnts of tbl in x2 6571: 6649 mlc 0&x1,x2 contrnts of tbl in x2 6558: 6650 bwz byp4,x2-1,2 6572: 6650 bwz byp4,x2-1,2 6559: 6651 mcw 0&x2,0&x1 6573: 6651 mcw 0&x2,0&x1 6560: 6652 b cmp4 6574: 6652 b cmp4 6561: 6653 byp4 ma diff,x2 6575: 6653 byp4 ma diff,x2 6562: 6654 mcw x2,0&x1 6576: 6654 mcw x2,0&x1 6563: 6655 cmp4 c x1,adtbll 6577: 6655 cmp4 c x1,adtbll 6564: 6656 bu const 6578: 6656 bu const 6565: 6657 endph mcw diff,x1 6579: 6657 endph mcw diff,x1 6566: 6658 ma x3,x1 6580: 6658 ma x3,x1 6567: 6659 mcw x1,rtr&6 6581: 6659 mcw x1,rtr&6 6568: 6660 sbr cnvrt,0&x3 6582: 6660 sbr cnvrt,0&x3 6569: 6661 b expnd 6583: 6661 b expnd 6570: 6662 mlc hold,wkbk1 6584: 6662 mlc hold,wkbk1 6571: 6663 mcw hold,wkbk3#5 6585: 6663 mcw hold,wkbk3#5 6572: 6664 mlc diff,cnvrt 6586: 6664 mlc diff,cnvrt 6573: 6665 b expnd 6587: 6665 b expnd 6574: 6666 a hold,wkbk1 6588: 6666 a hold,wkbk1 6575: 6667 c sixtn,wkbk1 6589: 6667 c sixtn,wkbk1 6576: 6668 bl *&8 6590: 6668 bl *&8 6577: 6669 s sixtn,wkbk1 6591: 6669 s sixtn,wkbk1 6578: 6670 mlc bsauce,cnvrt 6592: 6670 mlc bsauce,cnvrt 6579: 6671 b expnd 6593: 6671 b expnd 6580: 6672 c hold,wkbk1 6594: 6672 c hold,wkbk1 6581: 6673 bh errms 6595: 6673 bh errms 6582: 6674 mz x1,testa&7 6596: 6674 mz x1,testa&7 6583: 6675 mcw x1-2,testb&7 6597: 6675 mcw x1-2,testb&7 6584: 6676 mlc intst,x2 6598: 6676 mlc intst,x2 6585: 6677 ma diff,intst 6599: 6677 ma diff,intst 6586: 6678 c wkbk1,wkbk3 6600: 6678 c wkbk1,wkbk3 6587: 6679 bh wmtst 6601: 6679 bh wmtst 6588: 6680 mvd lca 0&x3,0&x1 6602: 6680 mvd lca 0&x3,0&x1 6589: 6681 sar x3 6603: 6681 sar x3 6590: 6682 c 0&x1 6604: 6682 c 0&x1 6591: 6683 sar x1 6605: 6683 sar x1 6592: 6684 bce *&5,0&x3,: 5-8 6606: 6684 bce *&5,0&x3,: 5-8 6593: 6685 b mvd 6607: 6685 b mvd 6594: 6686 dun cs 0&x1 6608: 6686 dun cs 0&x1 6595: 6687 sbr x1 6609: 6687 sbr x1 6596: 6688 c x1,@w99@ 6610: 6688 c x1,@w99@ 6597: 6689 bu dun 6611: 6689 bu dun 6598: 6690 cw 0&x1 6612: 6690 cw 0&x1 6599: 6691 cw 6613: 6691 cw 6600: 6692 cw 6614: 6692 cw 6601: 6693 rtr sbr x3,0 6615: 6693 rtr sbr x3,0 6602: 6694 sw 0&x1,1&x3 6616: 6694 sw 0&x1,1&x3 6603: 6695 mlc diff,x2 6617: 6695 mlc diff,x2 6604: 6696 fendxd,,,,,,gm50a,shift cfl 6618: 6696 fendxd,,,,,,gm50a,shift cfl 6605: 6697 add1 a &1,x2 | 6619: 66974add1 ma @001@,x2 v3m4 6606: 6698 wmtst bw ldwrd,1&x2 6620: 6698 wmtst bw ldwrd,1&x2 6607: 6699 b add1 6621: 6699 b add1 6608: 6700 ldwrd mlc x2,x1 6622: 6700 ldwrd mlc x2,x1 6609: 6701 ma diff,x1 6623: 6701 ma diff,x1 6610: 6702 lca 0&x2,0&x1 6624: 6702 lca 0&x2,0&x1 6611: 6703 c x2,x3 6625: 6703 c x2,x3 6612: 6704 bu add1 6626: 6704 bu add1 6613: 6705 lca @ @,2&x3 blanks 6627: 6705 lca @ @,2&x3 blanks 6614: 6706 cw 1&x3 6628: 6706 cw 1&x3 6615: 6707 testa bwz testb,x3,2 6629: 6707 testa bwz testb,x3,2 6616: 6708 cs 0&x3 6630: 6708 cs 0&x3 6617: 6709 sbr x3 6631: 6709 sbr x3 6618: 6710 b testa 6632: 6710 b testa 6619: 6711 testb bce testc,x3-2,0 6633: 6711 testb bce testc,x3-2,0 6620: 6712 cs 0&x3 6634: 6712 cs 0&x3 6621: 6713 sbr x3 6635: 6713 sbr x3 6622: 6714 b testb 6636: 6714 b testb 6623: 6715 testc c x3,x1 6637: 6715 testc c x3,x1 6624: 6716 be fin1s 6638: 6716 be fin1s 6625: 6717 lca @ @,0&x3 blank 6639: 6717 lca @ @,0&x3 blank 6626: 6718 cw 0&x3 6640: 6718 cw 0&x3 6627: 6719 sbr x3 6641: 6719 sbr x3 6628: 6720 b testc 6642: 6720 b testc 6629: 6721 fin1s mcw intst,x1 6643: 6721 fin1s mcw intst,x1 6630: 6722 ma @i9i@,x1 6644: 6722 ma @i9i@,x1 6631: 6723 b dun 6645: 6723 b dun 6632: 6724 sixtn dcw @16000@ 6646: 6724 sixtn dcw @16000@ 6633: 6725 ltorg* 6647: 6725 ltorg* 6634: 6726 gm50a dcw @}@ group mark 6648: 6726 gm50a dcw @}@ group mark 6635: 6727 xfr begin 6649: 6727 xfr begin 6636: 6728 job shift constants,formats,and lists 5050b 6650: 6728 job shift constants,formats,and lists 5050b 6637: 6729 110 dcw @shift cfl@ 6651: 6729 110 dcw @shift cfl@ 6638: 6730 nxbtm equ 83 6652: 6730 nxbtm equ 83 6639: 6731 org beginz 6653: 6731 org beginz 6640: 6732 c parama&2,conlst 6654: 6732 c parama&2,conlst 6641: 6733 be exit 6655: 6733 be exit 6642: 6734 mcw bsauce,x1 6656: 6734 mcw bsauce,x1 6643: 6735 mcw bsauce,x2 6657: 6735 mcw bsauce,x2 6644: 6736 ma macfls,x2 6658: 6736 ma macfls,x2 6645: 6737 sbr rsx3&6,0&x3 6659: 6737 sbr rsx3&6,0&x3 6646: 6738 cw cnvrt-2 6660: 6738 cw cnvrt-2 6647: 6739 mcw x2,cnvrt 6661: 6739 mcw x2,cnvrt 6648: 6740 b expnd 6662: 6740 b expnd 6649: 6741 mcw hold,x25#5 6663: 6741 mcw hold,x25#5 6650: 6742 mcw x3,cnvrt 6664: 6742 mcw x3,cnvrt 6651: 6743 b expnd 6665: 6743 b expnd 6652: 6744 mcw hold,x35#5 6666: 6744 mcw hold,x35#5 6653: 6745 c x25,x35 6667: 6745 c x25,x35 6654: 6746 bh errms 6668: 6746 bh errms 6655: 6747 mcw bsauce,cnvrt 6669: 6747 mcw bsauce,cnvrt 6656: 6748 b expnd 6670: 6748 b expnd 6657: 6749 mcw hold,nxbtm5#5 6671: 6749 mcw hold,nxbtm5#5 6658: 6750 mcw conlst,cnvrt 6672: 6750 mcw conlst,cnvrt 6659: 6751 b expnd 6673: 6751 b expnd 6660: 6752 mcw hold,cnlst5#5 6674: 6752 mcw hold,cnlst5#5 6661: 6753 c nxbtm5,cnlst5 6675: 6753 c nxbtm5,cnlst5 6662: 6754 bl wrdmv | 6676: 67544 bh mad v3m4 > 6677: 67545 b wrdmv v3m4 6663: 6755 mad ma @001@,x1 6678: 6755 mad ma @001@,x1 6664: 6756 ma @001@,x2 6679: 6756 ma @001@,x2 6665: 6757 bw ldwm,0&x1 6680: 6757 bw ldwm,0&x1 6666: 6758 cw 0&x2 6681: 6758 cw 0&x2 6667: 6759 mn 0&x1,0&x2 6682: 6759 mn 0&x1,0&x2 6668: 6760 mz 0&x1,0&x2 6683: 6760 mz 0&x1,0&x2 6669: 6761 cwx1 cw 0&x1 6684: 6761 cwx1 cw 0&x1 6670: 6762 c x1,conlst 6685: 6762 c x1,conlst 6671: 6763 bu mad 6686: 6763 bu mad 6672: 6764 mlc conlst,x3 6687: 6764 mlc conlst,x3 6673: 6765 b tstwm 6688: 6765 b tstwm 6674: 6766 ldwm lca 0&x1,0&x2 6689: 6766 ldwm lca 0&x1,0&x2 6675: 6767 b cwx1 6690: 6767 b cwx1 6676: 6768 wrdmv mlc bsauce,x3 6691: 6768 wrdmv mlc bsauce,x3 6677: 6769 tstwm bw manxb,1&x3 test for word markin test adr&1 6692: 6769 tstwm bw manxb,1&x3 test for word markin test adr&1 6678: 6770 cw wmsw#1 6693: 6770 cw wmsw#1 6679: 6771 sw 1&x3 6694: 6771 sw 1&x3 6680: 6772 manxb mcw parama&2,x1 6695: 6772 manxb mcw parama&2,x1 6681: 6773 mcw conlst,x2 6696: 6773 mcw conlst,x2 6682: 6774 load lca 0&x1,0&x2 6697: 6774 load lca 0&x1,0&x2 6683: 6775 sbr x2 6698: 6775 sbr x2 6684: 6776 sbr x1 6699: 6776 sbr x1 6685: 6777 ma plusdf,x1 6700: 6777 ma plusdf,x1 6686: 6778 c x1,x3 6701: 6778 c x1,x3 6687: 6779 bu load 6702: 6779 bu load 6688: 6780 bw rsx3,wmsw branch if wm switch is on 6703: 6780 bw rsx3,wmsw branch if wm switch is on 6689: 6781 ma macfls,x3 6704: 6781 ma macfls,x3 6690: 6782 cw 1&x3 6705: 6782 cw 1&x3 6691: 6783 rsx3 sbr x3,0 6706: 6783 rsx3 sbr x3,0 6692: 6784 ma macfls,nxbtm 6707: 6784 ma macfls,nxbtm 6693: 6785 ma macfls,adtbll 6708: 6785 ma macfls,adtbll 6694: 6786 ma macfls,bsauce 6709: 6786 ma macfls,bsauce 6695: 6787 mcw parama&2,x1 6710: 6787 mcw parama&2,x1 6696: 6788 cx1cn c x1,conlst 6711: 6788 cx1cn c x1,conlst 6697: 6789 be exit 6712: 6789 be exit 6698: 6790 mcw @ @,0&x1 move blanks to clear storage. 6713: 6790 mcw @ @,0&x1 move blanks to clear storage. 6699: 6791 cw 0&x1 6714: 6791 cw 0&x1 6700: 6792 sbr x1 6715: 6792 sbr x1 6701: 6793 b cx1cn 6716: 6793 b cx1cn 6702: 6794 exit fendxc,,,xbegin,xbegin,,gm50c,replace 1 6717: 6794 exit fendxc,,,xbegin,xbegin,,gm50c,replace 1 6703: 6795 ltorg* 6718: 6795 ltorg* 6704: 6796 gm50c dcw @}@ group mark 6719: 6796 gm50c dcw @}@ group mark 6705: 6797 xfr begin 6720: 6797 xfr begin 6706: 6798 job 1401 Fortran replace phase one 50513 6721: 6798 job 1401 Fortran replace phase one 50513 6707: 6799 fbegnreplace 1,x1,r,x2,,x3,,v 6722: 6799 fbegnreplace 1,x1,r,x2,,x3,,v 6708: 6800 org xbegin 6723: 6800 org xbegin 6709: 6801 init mcw x3,gary#3 6724: 6801 init mcw x3,gary#3 6710: 6802 mcw bsauce,*&7 6725: 6802 mcw bsauce,*&7 6711: 6803 mcw @>@,0 6-8 punch 6726: 6803 mcw @>@,0 6-8 punch 6712: 6804 mcw period,x2 6727: 6804 mcw period,x2 6713: 6805 mcw @>@,1600 6-8 punch 6728: 6805 mcw @>@,1600 6-8 punch 6714: 6806 scndl bce dolr,0&x2,$ 6729: 6806 scndl bce dolr,0&x2,$ 6715: 6807 chain9 6730: 6807 chain9 6716: 6808 ru68 bce skgbg,0&x2,> 6-8 punch 6731: 6808 ru68 bce skgbg,0&x2,> 6-8 punch 6717: 6609 chain9 6732: 6609 chain9 6718: 6610 sbr x2 6733: 6610 sbr x2 6719: 6811 b scndl 6734: 6811 b scndl 6720: 6812 dolr bce fnd,0&x2,$ | 6735: 68114dolr bce ru68,0&x2,> 6-8 punch v3m4 > 6736: 68124 bce fnd,0&x2,$ v3m4 6721: 6813 sbr x2 6737: 6813 sbr x2 6722: 6814 b dolr 6738: 6814 b dolr 6723: 6815 fnd mn 0&x2 6739: 6815 fnd mn 0&x2 6724: 6816 sar x2 6740: 6816 sar x2 6725: 6817 bce setsw,0&x2,$ 6741: 6817 bce setsw,0&x2,$ 6726: 6818 chain15 6742: 6818 chain15 6727: 6819 b scndl 6743: 6819 b scndl 6728: 6820 setsw cw xdosbs 6744: 6820 setsw cw xdosbs 6729: 6821 dloop mn 0&x2 6745: 6821 dloop mn 0&x2 6730: 6822 chain2 6746: 6822 chain2 6731: 6823 sar x2 6747: 6823 sar x2 6732: 6824 sw 1&x2 6748: 6824 sw 1&x2 6733: 6825 bce ndolr,0&x2,$ 6749: 6825 bce ndolr,0&x2,$ 6734: 6826 mz *-4,2&x2 6750: 6826 mz *-4,2&x2 6735: 6827 b dloop 6751: 6827 b dloop 6736: 6828 ndolr mn 0&x2 6752: 6828 ndolr mn 0&x2 6737: 6829 sar x2 6753: 6829 sar x2 6738: 6830 b scndl 6754: 6830 b scndl 6739: 6831 skgbg mcw &test5,ru68&3 6755: 6831 skgbg mcw &test5,ru68&3 6740: 6832 mcw x3,x2 6756: 6832 mcw x3,x2 6741: 6833 b scndl 6757: 6833 b scndl 6742: 6834 test5 bce exit,0&x3, blank 6758: 6834 test5 bce exit,0&x3, blank 6743: 6835 mcw x3,sbr&6 6759: 6835 mcw x3,sbr&6 6744: 6836 c 0&x3 move pointer 6760: 6836 c 0&x3 move pointer 6745: 6837 sbr x2 6761: 6837 sbr x2 6746: 6838 sbr x3 6762: 6838 sbr x3 6747: 6839 bce pskip,1&x3,| 6763: 6839 bce pskip,1&x3,| 6748: 6840 test2 bwz test5,4&x2,1 6764: 6840 test2 bwz test5,4&x2,1 6749: 6841 bwz 6765: 6841 bwz 6750: 6842 bwz 6766: 6842 bwz 6751: 6843 bm replc,3&x2 6767: 6843 bm replc,3&x2 6752: 6844 c 4&x2,@2g7@ change on reas. of obj arith 6768: 6844 c 4&x2,@2g7@ change on reas. of obj arith 6753: 6845 be test5 6769: 6845 be test5 6754: 6846 bwz addu,3&x2,b 6770: 6846 bwz addu,3&x2,b 6755: 6847 right sbr x2,3&x2 6771: 6847 right sbr x2,3&x2 6756: 6848 b test2 6772: 6848 b test2 6757: 6849 addu mcw 4&x2,x1 6773: 6849 addu mcw 4&x2,x1 6758: 6850 mz *-6,sbr&5 6774: 6850 mz *-6,sbr&5 6759: 6851 sbr sbr 4&x2,0 6775: 6851 sbr sbr 4&x2,0 6760: 6852 b right 6776: 6852 b right 6761: 6853 replc mcw 4&x2,x1 6777: 6853 replc mcw 4&x2,x1 6762: 6854 ma macfls,x1 6778: 6854 ma macfls,x1 6763: 6855 mcw 0&x1,x1 6779: 6855 mcw 0&x1,x1 6764: 6856 mcw x1,4&x2 6780: 6856 mcw x1,4&x2 6765: 6857 b right 6781: 6857 b right 6766: 6858 pskip bw skip,2&x3 6782: 6858 pskip bw skip,2&x3 6767: 6859 b test5 6783: 6859 b test5 6768: 6860 skip c 0&x3 6784: 6860 skip c 0&x3 6769: 6861 sbr x3 6785: 6861 sbr x3 6770: 6862 c 4&x3,@b700@ change on reorigin of obj arith 6786: 6862 c 4&x3,@b700@ change on reorigin of obj arith 6771: 6863 be test5 6787: 6863 be test5 6772: 6864 b skip 6788: 6864 b skip 6773: 6865 exit mcw gary,x3 6789: 6865 exit mcw gary,x3 6774: 6866 fendxc,,,,startr,,sys1,load 52b&c 6790: 6866 fendxc,,,,startr,,sys1,load 52b&c 6775: 6867 ltorg* 6791: 6867 ltorg* 6776: 6868 sys1 dcw @}@ system group mark 6792: 6868 sys1 dcw @}@ system group mark 6777: 6869 xfr init 6793: 6869 xfr init 6778: 6870 job load phase 52-sections b & c 5052a 6794: 6870 job load phase 52-sections b & c 5052a 6779: 6871 sfx r 6795: 6871 sfx r 6780: 6872 110 dcw @load 52b&c@ 6796: 6872 110 dcw @load 52b&c@ 6781: 6873 org xbegin 6797: 6873 org xbegin 6782: 6874 xlinks dcw #3 6798: 6874 xlinks dcw #3 6783: 6875 yusr12 dcw #3 6799: 6875 yusr12 dcw #3 6784: 6876 yusr11 dcw #3 6800: 6876 yusr11 dcw #3 6785: 6877 yusr10 dcw #3 6801: 6877 yusr10 dcw #3 6786: 6878 yuser9 dcw #3 6802: 6878 yuser9 dcw #3 6787: 6879 yuser8 dcw #3 6803: 6879 yuser8 dcw #3 6788: 6880 yuser7 dcw #3 6804: 6880 yuser7 dcw #3 6789: 6881 yuser6 dcw #3 6805: 6881 yuser6 dcw #3 6790: 6882 yuser5 dcw #3 6806: 6882 yuser5 dcw #3 6791: 6883 yuser4 dcw #3 6807: 6883 yuser4 dcw #3 6792: 6884 yuser3 dcw #3 6808: 6884 yuser3 dcw #3 6793: 6885 yuser2 dcw #3 6809: 6885 yuser2 dcw #3 6794: 6886 yuser1 dcw #3 6810: 6886 yuser1 dcw #3 6795: 6887 sqrtfn dcw #3 6811: 6887 sqrtfn dcw #3 6796: 6888 fltfun dcw #3 6812: 6888 fltfun dcw #3 6797: 6889 fixfun dcw #3 6813: 6889 fixfun dcw #3 6798: 6890 negtfn dcw #3 6814: 6890 negtfn dcw #3 6799: 6891 absval dcw #3 6815: 6891 absval dcw #3 6800: 6892 atanfn dcw #3 6816: 6892 atanfn dcw #3 6801: 6893 xpnetl dcw #3 6817: 6893 xpnetl dcw #3 6802: 6894 logfun dcw #3 6818: 6894 logfun dcw #3 6803: 6895 sinfun dcw #3 6819: 6895 sinfun dcw #3 6804: 6896 comfn1 dcw #3 6820: 6896 comfn1 dcw #3 6805: 6897 dosbsc dcw #3 6821: 6897 dosbsc dcw #3 6806: 6898 oblist dcw @j32@ fmtxt change if obj format reassembled 6822: 6898 oblist dcw @j32@ fmtxt change if obj format reassembled 6807: 6899 doinit dcw #3 6823: 6899 doinit dcw #3 6808: 6900 doadr3 dcw #3 6824: 6900 doadr3 dcw #3 6809: 6901 doadr2 dcw #3 6825: 6901 doadr2 dcw #3 6810: 6902 doadr1 dcw #3 6826: 6902 doadr1 dcw #3 6811: 6903 tblad dcw doadr1 6827: 6903 tblad dcw doadr1 6812: 6904 fixwd dcw #3 6828: 6904 fixwd dcw #3 6813: 6905 fltwd dcw #3 6829: 6905 fltwd dcw #3 6814: 6906 start b exit3 | 6830: 69064start b adjx3 v3m4 6815: 6907 ld52c fendx,,,start,start1,,gmwm,funload c 6831: 6907 ld52c fendx,,,start,start1,,gmwm,funload c 6816: 6908 ltorg* 6832: 6908 ltorg* 6817: 6909 exit3 sbr initap&6,333 6833: 6909 exit3 sbr initap&6,333 6818: 6910 sbr bclear,exit3 6834: 6910 sbr bclear,exit3 6819: 6911 fendxc,,,,ld52c,,gmwm,funload b 6835: 6911 fendxc,,,,ld52c,,gmwm,funload b > 6836: 69111adjx3 bwz ckx3,x3,2 v3m4 > 6837: 69112 b exit3 v3m4 > 6838: 69113ckx3 bwz chgx3,x3-2,s v3m4 > 6839: 69114 b exit3 v3m4 > 6840: 69115chgx3 sbr x3,2000 v3m4 > 6841: 69116 b exit3 v3m4 6820: 6912 ltorg* 6842: 6912 ltorg* 6821: 6913 org 1696 6843: 6913 org 1696 6822: 6914 gmwm dcw @}@ group mark 6844: 6914 gmwm dcw @}@ group mark 6823: 6915 xfr start 6845: 6915 xfr start 6824: 6916 job 1401 Fortran function/subroutine loader-b 5052b 6846: 6916 job 1401 Fortran function/subroutine loader-b 5052b 6825: 6917 fbegnfunload b,x1,r,x2,r,x3,,r 6847: 6917 fbegnfunload b,x1,r,x2,r,x3,,r 6826: 6918 nxbtm equ 83 6848: 6918 nxbtm equ 83 6827: 6919 org 333 6849: 6919 org 333 6828: 6920 h 333 6850: 6920 h 333 6829: 6921 start1 cs 080 6851: 6921 start1 cs 080 6830: 6922 mcw x3,hex3 6852: 6922 mcw x3,hex3 6831: 6923 sbr x3,1&x3 6853: 6923 sbr x3,1&x3 6832: 6924 sw 1,40 6854: 6924 sw 1,40 6833: 6925 sw 47,54 6855: 6925 sw 47,54 6834: 6926 sw 61,68 6856: 6926 sw 61,68 6835: 6927 sw 72 6857: 6927 sw 72 6836: 6928 mcw montor,read 6858: 6928 mcw montor,read 6837: 6929 b get 6859: 6929 b get 6838: 6930 mcw nxbtm,x2 6860: 6930 mcw nxbtm,x2 6839: 6931 mn 0&x2 6861: 6931 mn 0&x2 6840: 6932 mn 6862: 6932 mn 6841: 6933 sbr klobr&6 6863: 6933 sbr klobr&6 6842: 6934 mcw @_@ 11-7-8 6864: 6934 mcw @_@ 11-7-8 6843: 6935 nop 6865: 6935 nop 6844: 6936 loop2 mcw x3,nop4&3 6866: 6936 loop2 mcw x3,nop4&3 6845: 6937 mz @b@,nop4&2 6867: 6937 mz @b@,nop4&2 6846: 6938 mcw dsa,x3 6868: 6938 mcw dsa,x3 6847: 5939 nop4 nop 0 6869: 5939 nop4 nop 0 6848: 5940 sar x3 6870: 5940 sar x3 6849: 5941 get2 b get 6871: 5941 get2 b get 6850: 5942 aget2 c 005,@____@ all 11-7-8 6872: 5942 aget2 c 005,@____@ all 11-7-8 6851: 5943 bu mvad 6873: 5943 bu mvad 6852: 6944 mcw x3,hxcmn#3 6874: 6944 mcw x3,hxcmn#3 6853: 6945 b get2 6875: 6945 b get2 6854: 6946 mvad mcw tbad2,x1 6876: 6946 mvad mcw tbad2,x1 6855: 6947 bmpt2 sbr tbad2,1&x1 6877: 6947 bmpt2 sbr tbad2,1&x1 6856: 6948 cx1 c x1,&ndtabl 6878: 6948 cx1 c x1,&ndtabl 6857: 6949 be out 6879: 6949 be out 6858: 6950 mcw @h@,bmpt2 6880: 6950 mcw @h@,bmpt2 6859: 6951 c tblad,&yuser1 6881: 6951 c tblad,&yuser1 6860: 6952 ckusr be stotp 6882: 6952 ckusr be stotp 6861: 6953 mcw tblad,x2 6883: 6953 mcw tblad,x2 6862: 6954 c 0&x2 6884: 6954 c 0&x2 6863: 6955 sar tblad 6885: 6955 sar tblad 6864: 6956 bw nodic,0&x1 6886: 6956 bw nodic,0&x1 6865: 6957 nopsw mcw @n@,sw1 6887: 6957 nopsw mcw @n@,sw1 6866: 6958 ckzn bwz pure,42,2 6888: 6958 ckzn bwz pure,42,2 6867: 6959 mn 46,load&6 6889: 6959 mn 46,load&6 6868: 6960 chain5 6890: 6960 chain5 6869: 6961 mz 46,load&6 6891: 6961 mz 46,load&6 6870: 6962 mn 6892: 6962 mn 6871: 6963 mz 6893: 6963 mz 6872: 6964 load lca 0,0&x3 6894: 6964 load lca 0,0&x3 6873: 6965 sbr x2 6895: 6965 sbr x2 6874: 6966 sw1 nop ctu1 6896: 6966 sw1 nop ctu1 6875: 6967 mcw tblad,x1 6897: 6967 mcw tblad,x1 6876: 6968 sbr 3&x1,1&x2 6898: 6968 sbr 3&x1,1&x2 6877: 6969 mcw @b@,sw1 6899: 6969 mcw @b@,sw1 6878: 6970 ctu1 mz 45,hldzn#1 6900: 6970 ctu1 mz 45,hldzn#1 6879: 6971 b reloc field 6901: 6971 b reloc field 6880: 6972 s x1&1 6902: 6972 s x1&1 6881: 6973 dowm c 50&x1,@040@ process subsequent 6903: 6973 dowm c 50&x1,@040@ process subsequent 6882: 6974 be read2 data fields if any 6904: 6974 be read2 data fields if any 6883: 6975 mcw 50&x1,setwm&3 6905: 6975 mcw 50&x1,setwm&3 6884: 6976 mz @b@,setwm&2 6906: 6976 mz @b@,setwm&2 6885: 6977 bce setwm,setwm,) 6907: 6977 bce setwm,setwm,) 6886: 6978 mcw @,@,setwm 6908: 6978 mcw @,@,setwm 6887: 6979 setwm sw 0&x3 set word mark in 6909: 6979 setwm sw 0&x3 set word mark in 6888: 6980 sar x2 storage 6910: 6980 sar x2 storage 6889: 6981 b brelc 6911: 6981 b brelc 6890: 6982 nop 000 6912: 6982 nop 000 6891: 6983 gmk1 dcw @}@ group mark 6913: 6983 gmk1 dcw @}@ group mark 6892: 6984 xfr ld52cr 6914: 6984 xfr ld52cr 6893: 6985 job 1401 Fortran function/subroutine loader-c 5052c 6915: 6985 job 1401 Fortran function/subroutine loader-c 5052c 6894: 6986 110 dcw @funload c@ 6916: 6986 110 dcw @funload c@ 6895: 6987 org startr 6917: 6987 org startr 6896: 6988 brelc mz 49&x1,hldzn 6918: 6988 brelc mz 49&x1,hldzn 6897: 5989 b reloc relocate operands 6919: 5989 b reloc relocate operands 6898: 6990 adds nop @4@,x1 6920: 6990 adds nop @4@,x1 6899: 6991 adds2 a @3@,x1 6921: 6991 adds2 a @3@,x1 6900: 6992 bce type1,adds,a 6922: 6992 bce type1,adds,a 6901: 6993 mcw @a@,adds 6923: 6993 mcw @a@,adds 6902: 6994 mcw @n@,adds2 6924: 6994 mcw @n@,adds2 6903: 6995 bce adds,setwm,) 6925: 6995 bce adds,setwm,) 6904: 6996 b dowm 6926: 6996 b dowm 6905: 6997 type1 mcw @n@,adds 6927: 6997 type1 mcw @n@,adds 6906: 6998 mcw @a@,adds2 6928: 6998 mcw @a@,adds2 6907: 6999 b dowm 6929: 6999 b dowm 6908: 7000 read2 mcw 46,last#3 6930: 7000 read2 mcw 46,last#3 6909: 7001 mcw @n@,adds 6931: 7001 mcw @n@,adds 6910: 7002 mcw @a@,adds2 6932: 7002 mcw @a@,adds2 6911: 7003 b get 6933: 7003 b get 6912: 7004 ckex bce end,68,b 6934: 7004 ckex bce end,68,b 6913: 7005 bce end,40,/ 6935: 7005 bce end,40,/ 6914: 7006 b ckzn 6936: 7006 b ckzn 6915: 7007 end mcw last,nop3&3 6937: 7007 end mcw last,nop3&3 6916: 7008 mz @b@,nop3&2 6938: 7008 mz @b@,nop3&2 6917: 7009 nop3 nop 0&x3 6939: 7009 nop3 nop 0&x3 6918: 7010 sar x3 6940: 7010 sar x3 6919: 7011 sbr hex3 6941: 7011 sbr hex3 6920: 7012 sbr x3,1&x3 6942: 7012 sbr x3,1&x3 6921: 7013 klobr bce loop2,0,_ 11-7-8 6943: 7013 klobr bce loop2,0,_ 11-7-8 6922: 7014 cs 332 6944: 7014 cs 332 6923: 7015 cs 6945: 7015 cs 6924: 7016 cc 1 6946: 7016 cc 1 6925: 7017 mcw @message 2 - object program too large@,270 6947: 7017 mcw @message 2 - object program too large@,270 6926: 7018 w 6948: 7018 w 6927: 7019 cc 1 6949: 7019 cc 1 6928: 7020 bce *&6,montor,1 6950: 7020 bce *&6,montor,1 6929: 7021 rwd 1 6951: 7021 rwd 1 6930: 7022 h *-3 6952: 7022 h *-3 6931: 7023 pure sbr 71,read2 6953: 7023 pure sbr 71,read2 6932: 7024 mcw @b@,68 6954: 7024 mcw @b@,68 6933: 7025 b 40 6955: 7025 b 40 6934: 7026 get sbr getxt&3 6956: 7026 get sbr getxt&3 6935: 7027 mcw @ @,001 6957: 7027 mcw @ @,001 6936: 7028 read r getxt 6958: 7028 read r getxt 6937: 7029 mvnin mcw &9,rdcnt#1 6959: 7029 mvnin mcw &9,rdcnt#1 6938: 7030 rdtap rt 1,1 6960: 7030 rdtap rt 1,1 6939: 7031 ber tperr 6961: 7031 ber tperr 6940: 7032 getxt b 0 6962: 7032 getxt b 0 6941: 7033 tperr bsp 1 6963: 7033 tperr bsp 1 6942: 7034 s &1,rdcnt 6964: 7034 s &1,rdcnt 6943: 7035 bwz rdtap,rdcnt,b 6965: 7035 bwz rdtap,rdcnt,b 6944: 7036 nop 3333 6966: 7036 nop 3333 6945: 7037 h 6967: 7037 h 6946: 7038 b mvnin 6968: 7038 b mvnin 6947: 7039 reloc sbr relxt&3 6969: 7039 reloc sbr relxt&3 6948: 7040 bwz relxt,hldzn,2 6970: 7040 bwz relxt,hldzn,2 6949: 7041 bwz isb,hldzn,s 6971: 7041 bwz isb,hldzn,s 6950: 7042 mcw x3,hex3#3 6972: 7042 mcw x3,hex3#3 6951: 7043 bwz sw2x2,4&x2,2 6973: 7043 bwz sw2x2,4&x2,2 6952: 7044 mcw hxcmn,x3 6974: 7044 mcw hxcmn,x3 6953: 7045 mz *-4,4&x2 6975: 7045 mz *-4,4&x2 6954: 7046 sw2x2 ma x3,4&x2 6976: 7046 sw2x2 ma x3,4&x2 6955: 7067 mcw hex3,x3 6977: 7067 mcw hex3,x3 6956: 7048 bwz relxt,hldzn,k 6978: 7048 bwz relxt,hldzn,k 6957: 7049 isb mcw x3,hex3 6979: 7049 isb mcw x3,hex3 6958: 7050 bwz mcwx2,7&x2,2 6980: 7050 bwz mcwx2,7&x2,2 6959: 7051 mcw hxcmn,x3 6981: 7051 mcw hxcmn,x3 6960: 7052 mz *-4,7&x2 6982: 7052 mz *-4,7&x2 6961: 7053 mcwx2 ma x3,7&x2 6983: 7053 mcwx2 ma x3,7&x2 6962: 7054 mcw hex3,x3 6984: 7054 mcw hex3,x3 6963: 7055 relxt b 0 6985: 7055 relxt b 0 6964: 7056 nodic b get 6986: 7056 nodic b get 6965: 7057 bce get2,40,/ 6987: 7057 bce get2,40,/ 6966: 7058 bce get2,68,b 6988: 7058 bce get2,68,b 6967: 7059 b nodic 6989: 7059 b nodic 6968: 7060 out nop out2 6990: 7060 out nop out2 6969: 7061 mcw @b@,out 6991: 7061 mcw @b@,out 6970: 7062 sbr tbad2,xsinfu 6992: 7062 sbr tbad2,xsinfu 6971: 7063 mcw hex3,x2 6993: 7063 mcw hex3,x2 6972: 7064 sbr gotofn,1&x2 6994: 7064 sbr gotofn,1&x2 6973: 7065 mcw @n@,bmpt2 6995: 7065 mcw @n@,bmpt2 6974: 7066 mcw @n@,nopsw 6996: 7066 mcw @n@,nopsw 6975: 7067 mcw @b@,sw1 6997: 7067 mcw @b@,sw1 6976: 7068 mcw hex3,btm#3 6998: 7068 mcw hex3,btm#3 6977: 7069 b aget2 6999: 7069 b aget2 6978: 7070 stotp mcw hex3,top#3 7000: 7070 stotp mcw hex3,top#3 6979: 7071 mcw @n@,ckusr 7001: 7071 mcw @n@,ckusr 6980: 7072 b ckusr&5 7002: 7072 b ckusr&5 6981: 7073 out2 mcw hex3,x3 7003: 7073 out2 mcw hex3,x3 6982: 7074 mcw parama&2,x2 7004: 7074 mcw parama&2,x2 6983: 7075 c 0&x2 7005: 7075 c 0&x2 6984: 7076 sar x2 7006: 7076 sar x2 6985: 7077 sbr fltwd 7007: 7077 sbr fltwd 6986: 7078 c 0&x2 7008: 7078 c 0&x2 6987: 7079 sar fixwd 7009: 7079 sar fixwd 6988: 7080 bce mtpx1,xlinks, blank 7010: 7080 bce mtpx1,xlinks, blank 6989: 7081 mcw xlinks,x1 7011: 7081 mcw xlinks,x1 6990: 7082 ma @013@,x1 7012: 7082 ma @013@,x1 6991: 7083 mlc conlst,0&x1 7013: 7083 mlc conlst,0&x1 6992: 7084 cw xlinkw 7014: 7084 cw xlinkw 6993: 7085 mtpx1 mcw top,x1 7015: 7085 mtpx1 mcw top,x1 6994: 7086 mcw btm,x2 7016: 7086 mcw btm,x2 6995: 7087 fendx,,,start,start,,1696,reload ss 7017: 7087 fendx,,,start,start,,1696,reload ss 6996: 7088 dsa dsa -2000 7018: 7088 dsa dsa -2000 6997: 7089 tbad2 dcw xdoad1 7019: 7089 tbad2 dcw xdoad1 6998: 7090 logsw dc #1 7020: 7090 logsw dc #1 6999: 7091 ltorg* 7021: 7091 ltorg* 7000: 7092 dcw @}@ system group mark 7022: 7092 dcw @}@ system group mark 7001: 7093 xfr start1 7023: 7093 xfr start1 7002: 7094 job 1401 Fortran Relocatable package 50533 7024: 7094 job 1401 Fortran Relocatable package 50533 7003: 7095 110 dcw @]]]]]@ all 11-5-8 first card of package 7025: 7095 110 dcw @]]]]]@ all 11-5-8 first card of package 7004: 7096 * 7026: 7096 * 7005: 7097 * 7027: 7097 * 7006: 7098 * relocatable package appears here in system deck 7028: 7098 * relocatable package appears here in system deck 7007: 7099 * must manually zone address in oblst to relocate 7029: 7099 * must manually zone address in oblst to relocate 7008: 7100 * 7030: 7100 * 7009: 7101 * 7031: 7101 * 7010: 7102 110 dcw @;;;;;@ all 11-6-8 last card of package 7032: 7102 110 dcw @;;;;;@ all 11-6-8 last card of package 7011: 7103 job 1401 Fortran reloading snapshot 5053r 7033: 7103 job 1401 Fortran reloading snapshot 5053r 7012: 7104 sfx # 7034: 7104 sfx # 7013: 7105 110 dcw @reload ss@ 7035: 7105 110 dcw @reload ss@ 7014: 7106 org startr 7036: 7106 org startr 7015: 7107 begin b exit1 7037: 7107 begin b exit1 7016: 7108 retrn mcw @d@,word 7038: 7108 retrn mcw @d@,word 7017: 7109 cw word 7039: 7109 cw word 7018: 7110 fendxc,,,startr,startr,,gm53s,formatpak 7040: 7110 fendxc,,,startr,startr,,gm53s,formatpak 7019: 7111 ltorg* 7041: 7111 ltorg* 7020: 7112 exit1 sbr initap&6,333 7042: 7112 exit1 sbr initap&6,333 7021: 7113 sbr bclear,exit1 7043: 7113 sbr bclear,exit1 7022: 7114 sbr initxt&3,retrn 7044: 7114 sbr initxt&3,retrn 7023: 7115 sbr tclear,gm53s 7045: 7115 sbr tclear,gm53s 7024: 7116 lca @snapshot53@,110 7046: 7116 lca @snapshot53@,110 7025: 7117 b monter 7047: 7117 b monter 7026: 7118 ltorg* 7048: 7118 ltorg* 7027: 7119 org 1696 7049: 7119 org 1696 7028: 7120 gm53s dcw @}@ group mark 7050: 7120 gm53s dcw @}@ group mark 7029: 7121 xfr begin 7051: 7121 xfr begin 7030: 7122 job 1401 Fortran snapshot 53s 5053s 7052: 7122 job 1401 Fortran snapshot 53s 5053s 7031: 7123 xxx equ 0 7053: 7123 xxx equ 0 7032: 7124 xl1 equ 089 7054: 7124 xl1 equ 089 7033: 7125 xl2 equ 094 7055: 7125 xl2 equ 094 7034: 7126 xl3 equ 099 7056: 7126 xl3 equ 099 7035: 7127 org 333 7057: 7127 org 333 7036: 7128 sbr prtxt&3 7058: 7128 sbr prtxt&3 7037: 7129 sbr hldxt&6 7059: 7129 sbr hldxt&6 7038: 7130 mcw @000@,linct-2 7060: 7130 mcw @000@,linct-2 7039: 7131 mcw xl3, hld32&6 7061: 7131 mcw xl3, hld32&6 7040: 7132 mcw xl1, hld31&6 7062: 7132 mcw xl1, hld31&6 7041: 7133 sbr xl1, 1 7063: 7133 sbr xl1, 1 7042: 7134 sbr xl3, 202 7064: 7134 sbr xl3, 202 7043: 7135 cs 332 7065: 7135 cs 332 7044: 7136 cs 7066: 7136 cs 7045: 7137 mcw 110,210 7067: 7137 mcw 110,210 7046: 7138 bss only,f 7068: 7138 bss only,f 7047: 7139 cc 1 7069: 7139 cc 1 7048: 7140 mcw 094,250 7070: 7140 mcw 094,250 7049: 7141 hldxt sbr 216,xxx 7071: 7141 hldxt sbr 216,xxx 7050: 7142 hld32 sbr 256,xxx 7072: 7142 hld32 sbr 256,xxx 7051: 7143 hld31 sbr 244,xxx 7073: 7143 hld31 sbr 244,xxx 7052: 7144 w 7074: 7144 w 7053: 7145 cc k 7075: 7145 cc k 7054: 7146 za &2,pgctr#2 7076: 7146 za &2,pgctr#2 7055: 7147 nulin cs 332 7077: 7147 nulin cs 332 7056: 7148 cs 7078: 7148 cs 7057: 7149 cc j 7079: 7149 cc j 7058: 7150 mcw linct,306 7080: 7150 mcw linct,306 7059: 7151 mcw 7081: 7151 mcw 7060: 7152 sbr mvhed&6 7082: 7152 sbr mvhed&6 7061: 7153 mcw @9@, ctr-1 7083: 7153 mcw @9@, ctr-1 7062: 7154 mvhed mcw ctr-1,xxx 7084: 7154 mvhed mcw ctr-1,xxx 7063: 7155 mcw head 7085: 7155 mcw head 7064: 7156 sbr mvhed&6 7086: 7156 sbr mvhed&6 7065: 7157 a @i0@, ctr#2 7087: 7157 a @i0@, ctr#2 7066: 7158 bwz mvhed, ctr-1, 2 7088: 7158 bwz mvhed, ctr-1, 2 7067: 7159 a &1,linct-2 7089: 7159 a &1,linct-2 7068: 7160 w 7090: 7160 w 7069: 7161 loop sw 0&x3 7091: 7161 loop sw 0&x3 7070: 7162 mcw 0&x1,0&x3 7092: 7162 mcw 0&x1,0&x3 7071: 7163 bw cmpab,0&x1 7093: 7163 bw cmpab,0&x1 7072: 7164 cw 0&x3 7094: 7164 cw 0&x3 7073: 7165 cmpab c xl1,parama&2 7095: 7165 cmpab c xl1,parama&2 7074: 7166 bu cpl 7096: 7166 bu cpl 7075: 7167 w 7097: 7167 w 7076: 7168 wm 7098: 7168 wm 7077: 7169 rstrx mcw hld31&6,xl1 7099: 7169 rstrx mcw hld31&6,xl1 7078: 7170 mcw hld32&6,xl3 7100: 7170 mcw hld32&6,xl3 7079: 7171 cs 332 7101: 7171 cs 332 7080: 7171 cs 7102: 7171 cs 7081: 7173 bss *&5,g 7103: 7173 bss *&5,g 7082: 7174 b prtxt 7104: 7174 b prtxt 7083: 7175 h 7105: 7175 h 7084: 7176 prtxt b 0 7106: 7176 prtxt b 0 7085: 7177 cpl sbr xl1, 1&x1 7107: 7177 cpl sbr xl1, 1&x1 7086: 7178 bce inc, xl3-2, 2 7108: 7178 bce inc, xl3-2, 2 7087: 7179 sbr xl3, 201 7109: 7179 sbr xl3, 201 7088: 7180 w 7110: 7180 w 7089: 7181 wm 7111: 7181 wm 7090: 7182 a &1,pgctr 7112: 7182 a &1,pgctr 7091: 7183 c pgctr,&15 7113: 7183 c pgctr,&15 7092: 7184 bu nulin 7114: 7184 bu nulin 7093: 7185 s pgctr 7115: 7185 s pgctr 7094: 7186 ccb nulin,1 7116: 7186 ccb nulin,1 7095: 7187 only mcw word,220 7117: 7187 only mcw word,220 7096: 7188 w rstrx 7118: 7188 w rstrx 7097: 7189 inc a &1,xl3 7119: 7189 inc a &1,xl3 7098: 7190 b loop 7120: 7190 b loop 7099: 7191 head dcw @9........@ 7121: 7191 head dcw @9........@ 7100: 7192 dcw @9-@ 7122: 7192 dcw @9-@ 7101: 7193 linct dcw 00000 7123: 7193 linct dcw 00000 7102: 7194 ltorg* 7124: 7194 ltorg* 7103: 7195 dcw @execute@ 7125: 7195 dcw @execute@ 7104: 7196 word dcw @}@ group mark in 680 7126: 7196 word dcw @}@ group mark in 680 7105: 7197 xfr retrn 7127: 7197 xfr retrn 7106: 7198 job 1401 Fortran replace phase two 50553 7128: 7198 job 1401 Fortran replace phase two 50553 7107: 7199 sfx q 7129: 7199 sfx q 7108: 7200 nxtop equ 086 7130: 7200 nxtop equ 086 7109: 7201 nxbtm equ 083 7131: 7201 nxbtm equ 083 7110: 7202 x1 equ 089 7132: 7202 x1 equ 089 7111: 7203 x2 equ 094 7133: 7203 x2 equ 094 7112: 7204 x3 equ 099 7134: 7204 x3 equ 099 7113: 7205 fixwd equ fixwdr 7135: 7205 fixwd equ fixwdr 7114: 7206 fltwd equ fltwdr 7136: 7206 fltwd equ fltwdr 7115: 7207 org startr 7137: 7207 org startr 7116: 7208 init sbr gary#3,1&x3 7138: 7208 init sbr gary#3,1&x3 7117: 7209 sw 1&x3 7139: 7209 sw 1&x3 7118: 7210 sbr limit#3,0&x2 7140: 7210 sbr limit#3,0&x2 7119: 7211 sbr top#3,0&x1 7141: 7211 sbr top#3,0&x1 7120: 7212 mcw parama&2,x2 7142: 7212 mcw parama&2,x2 7121: 7213 c 0&x2 7143: 7213 c 0&x2 7122: 7214 c 7144: 7214 c 7123: 7215 c 7145: 7215 c 7124: 7216 sbr ron&6 7146: 7216 sbr ron&6 7125: 7217 mcw nxtop,x2 7147: 7217 mcw nxtop,x2 7126: 7218 mn 0&x2 7148: 7218 mn 0&x2 7127: 7219 sar top2#3 7149: 7219 sar top2#3 7128: 7220 test5 c x3,limit 7150: 7220 test5 c x3,limit 7129: 7221 swtch be exita 7151: 7221 swtch be exita 7130: 7222 c 0&x3 7152: 7222 c 0&x3 7131: 7223 sbr x2 7153: 7223 sbr x2 7132: 7224 sbr x3 7154: 7224 sbr x3 7133: 7225 bce test2,1&x3,t 7155: 7225 bce test2,1&x3,t 7134: 7226 ckfx mcw 4&x3,box 7156: 7226 ckfx mcw 4&x3,box 7135: 7227 bce fxflt,box-2,; 11-6-8 7157: 7227 bce fxflt,box-2,; 11-6-8 7136: 7228 bce fxflt,box-2,_ 11-7-8 7158: 7228 bce fxflt,box-2,_ 11-7-8 7137: 7229 bce ron,box-2,] 11-5-8 7159: 7229 bce ron,box-2,] 11-5-8 7138: 7230 mcw box,4&x3 7160: 7230 mcw box,4&x3 7139: 7231 ckbop mcw 7&x3,box#3 7161: 7231 ckbop mcw 7&x3,box#3 7140: 7232 bce fxflt,box-2,; 11-6-8 7162: 7232 bce fxflt,box-2,; 11-6-8 7141: 7233 bce fxflt,box-2,_ 11-7-8 7163: 7233 bce fxflt,box-2,_ 11-7-8 7142: 7234 mcw box,7&x3 7164: 7234 mcw box,7&x3 7143: 7235 b test5 7165: 7235 b test5 7144: 7236 test2 bce test5,4&x3,$ 7166: 7236 test2 bce test5,4&x3,$ 7145: 7237 c 0&x3,@b700@ 7167: 7237 c 0&x3,@b700@ 7146: 7238 be test5 7168: 7238 be test5 7147: 7239 bwz ckfx,4&x2,1 7169: 7239 bwz ckfx,4&x2,1 7148: 7240 bwz 7170: 7240 bwz 7149: 7241 bwz 7171: 7241 bwz 7150: 7242 mcw @b@,1&x3 7172: 7242 mcw @b@,1&x3 7151: 7243 mcw 4&x2,x1 7173: 7243 mcw 4&x2,x1 7152: 7244 mcw 0&x1,x1 7174: 7244 mcw 0&x1,x1 7153: 7245 mcw x1,4&x2 7175: 7245 mcw x1,4&x2 7154: 7246 b ckfx 7176: 7246 b ckfx 7155: 7247 exita mcw &exit,swtch&3 7177: 7247 exita mcw &exit,swtch&3 7156: 7248 mcw top,x3 7178: 7248 mcw top,x3 7157: 7249 mcw @w96@,limit form-1 chg on reassm of obj format 7179: 7249 mcw @w96@,limit form-1 chg on reassm of obj format 7158: 7250 b test5 7180: 7250 b test5 7159: 7251 exit mcw gary,x3 7181: 7251 exit mcw gary,x3 7160: 7252 sbr x3,1&x3 7182: 7252 sbr x3,1&x3 7161: 7253 mz x3,all9 7183: 7253 mz x3,all9 7162: 7254 mz 7184: 7254 mz 7163: 7255 mcw 7185: 7255 mcw 7164: 7256 mz nxbtm,all91 7186: 7256 mz nxbtm,all91 7165: 7257 mz 7187: 7257 mz 7166: 7258 mcw 7188: 7258 mcw 7167: 7259 c all9,all91 7189: 7259 c all9,all91 7168: 7260 be spcl 7190: 7260 be spcl 7169: 7261 mcw nxbtm,x3 7191: 7261 mcw nxbtm,x3 7170: 7262 cleer cs 0&x3 7192: 7262 cleer cs 0&x3 7171: 7263 sbr x3 7193: 7263 sbr x3 7172: 7264 c x3,all9 7194: 7264 c x3,all9 7173: 7265 bu cleer 7195: 7265 bu cleer 7174: 7266 sngl c x3,gary 7196: 7266 sngl c x3,gary 7175: 7267 be eoj 7197: 7267 be eoj 7176: 7268 lca blnk#1,0&x3 7198: 7268 lca blnk#1,0&x3 7177: 7269 sbr x3 7199: 7269 sbr x3 7178: 7270 cw 1&x3 7200: 7270 cw 1&x3 7179: 7271 b sngl 7201: 7271 b sngl 7180: 7272 spcl mcw nxbtm,x3 7202: 7272 spcl mcw nxbtm,x3 7181: 7273 b sngl 7203: 7273 b sngl 7182: 7274 eoj mcw nxbtm,x3 7204: 7274 eoj mcw nxbtm,x3 7183: 7275 mcw @|@,0&x3 7205: 7275 mcw @|@,0&x3 7184: 7276 sbr x3 7206: 7276 sbr x3 7185: 7277 mcw @]@,0&x3 11-5-8 7207: 7277 mcw @]@,0&x3 11-5-8 7186: 7278 mcw 0&x3 7208: 7278 mcw 0&x3 7187: 7279 sbr x3 7209: 7279 sbr x3 7188: 7280 lca blnk,2&x3 7210: 7280 lca blnk,2&x3 7189: 7281 lca blnk 7211: 7281 lca blnk 7190: 7282 mcw dosbsc,subscr 7212: 7282 mcw dosbsc,subscr 7191: 7283 fendxc,,,xbegin,xbegin,xbegin,sys2,snapshot 7213: 7283 fendxc,,,xbegin,xbegin,xbegin,sys2,snapshot 7192: 7284 ron sbr 4&x3,0 7214: 7284 ron sbr 4&x3,0 7193: 7285 b ckbop 7215: 7285 b ckbop 7194: 7286 fxflt sbr fxt&3 7216: 7286 fxflt sbr fxt&3 7195: 7287 mcw fixwd,box2 7217: 7287 mcw fixwd,box2 7196: 7288 bce *&8,box-2,_ 11-7-8 7218: 7288 bce *&8,box-2,_ 11-7-8 7197: 7289 mcw fltwd,box2 7219: 7289 mcw fltwd,box2 7198: 7290 bce eofx,box,0 7220: 7290 bce eofx,box,0 7199: 7291 bwz postv,box,b 7221: 7291 bwz postv,box,b 7200: 7292 box2 equ x2 7222: 7292 box2 equ x2 7201: 7293 sw box-1 7223: 7293 sw box-1 7202: 7294 loop a &1,box 7224: 7294 loop a &1,box 7203: 7295 bwz dun2,box,b 7225: 7295 bwz dun2,box,b 7204: 7296 mn 0&x2 7226: 7296 mn 0&x2 7205: 7297 sar x2 7227: 7297 sar x2 7206: 7298 b loop 7228: 7298 b loop 7207: 7299 dun2 cw box-1 7229: 7299 dun2 cw box-1 7208: 7300 eofx mcw box2,box 7230: 7300 eofx mcw box2,box 7209: 7301 fxt b 0 7231: 7301 fxt b 0 7210: 7302 postv mn box,sbr&6 7232: 7302 postv mn box,sbr&6 7211: 7303 mn 7233: 7303 mn 7212: 7304 sbr sbr box,0&x2 7234: 7304 sbr sbr box,0&x2 7213: 7305 b fxt 7235: 7305 b fxt 7214: 7306 all9 dcw 999 7236: 7306 all9 dcw 999 7215: 7307 all91 dcw 999 7237: 7307 all91 dcw 999 7216: 7308 ltorg* 7238: 7308 ltorg* 7217: 7309 sys2 dcw @}@ system group mark 7239: 7309 sys2 dcw @}@ system group mark 7218: 7310 xfr init 7240: 7310 xfr init 7219: 7311 job 1401 Fortran snapshot phase 50563 7241: 7311 job 1401 Fortran snapshot phase 50563 7220: 7312 fbegnsnapshot,x1,r,,,x3,r,8,xxx 7242: 7312 fbegnsnapshot,x1,r,,,x3,r,8,xxx 7221: 7313 org xbegin 7243: 7313 org xbegin 7222: 7314 start bce *&5,parama&8,s 7244: 7314 start bce *&5,parama&8,s 7223: 7315 b rstrx 7245: 7315 b rstrx 7224: 7316 bw nogud,failsw 7246: 7316 bw nogud,failsw 7225: 7317 sbr x1,4200 7247: 7317 sbr x1,4200 7226: 7318 sbr x3,201 7248: 7318 sbr x3,201 7227: 7319 bce noio,parama&10,x 7249: 7319 bce noio,parama&10,x 7228: 7320 bce lio,parama&10,l 7250: 7320 bce lio,parama&10,l 7229: 7321 bce aform,parama&10,a 7251: 7321 bce aform,parama&10,a 7230: 7322 b print 7252: 7322 b print 7231: 7323 noio sbr x1,1600 7253: 7323 noio sbr x1,1600 7232: 7324 mcw @01600@,linct 7254: 7324 mcw @01600@,linct 7233: 7325 mcw @1696@,bigms 7255: 7325 mcw @1696@,bigms 7234: 7326 b print 7256: 7326 b print 7235: 7327 lio sbr x1,2000 7257: 7327 lio sbr x1,2000 7236: 7328 mcw @02000@,linct 7258: 7328 mcw @02000@,linct 7237: 7329 mcw @2015@,bigms 7259: 7329 mcw @2015@,bigms 7238: 7330 b print 7260: 7330 b print 7239: 7331 aform sbr x1,4600 7261: 7331 aform sbr x1,4600 7240: 7332 mcw @04600@,linct 7262: 7332 mcw @04600@,linct 7241: 7333 mcw @4616@,bigms 7263: 7333 mcw @4616@,bigms 7242: 7334 print messg@snapshot of object program@,60,1,j 7264: 7334 print messg@snapshot of object program@,60,1,j 7243: 7335 messg@input/output areas located from 001-332@,39,,j 7265: 7335 messg@input/output areas located from 001-332@,39,,j 7244: 7336 messgbigms,48,,k 7266: 7336 messgbigms,48,,k 7245: 7337 za &3,pgctr 7267: 7337 za &3,pgctr 7246: 7338 nulin cs 332 7268: 7338 nulin cs 332 7247: 7339 cs 7269: 7339 cs 7248: 7340 cc j 7270: 7340 cc j 7249: 7341 mcw linct,311 7271: 7341 mcw linct,311 7250: 7342 mcw 7272: 7342 mcw 7251: 7343 mcw 7273: 7343 mcw 7252: 7344 sbr mvhed&6 7274: 7344 sbr mvhed&6 7253: 7345 mcw @9@,ctr-1 7275: 7345 mcw @9@,ctr-1 7254: 7346 mvhed mcw ctr-1,xxx 7276: 7346 mvhed mcw ctr-1,xxx 7255: 7347 mcw head 7277: 7347 mcw head 7256: 7348 sbr mvhed&6 7278: 7348 sbr mvhed&6 7257: 7349 a @i0@,ctr#2 7279: 7349 a @i0@,ctr#2 7258: 7350 bwz mvhed,ctr-1,2 7280: 7350 bwz mvhed,ctr-1,2 7259: 7351 a &1,linct-2 7281: 7351 a &1,linct-2 7260: 7352 w 7282: 7352 w 7261: 7353 loop sw 0&x3 7283: 7353 loop sw 0&x3 7262: 7354 mcw 0&x1,0&x3 7284: 7354 mcw 0&x1,0&x3 7263: 7355 bw cmpab,0&x1 7285: 7355 bw cmpab,0&x1 7264: 7356 cw 0&x3 7286: 7356 cw 0&x3 7265: 7357 cmpab c x1,parama&2 7287: 7357 cmpab c x1,parama&2 7266: 7358 bu cpl 7288: 7358 bu cpl 7267: 7359 w 7289: 7359 w 7268: 7360 wm 7290: 7360 wm 7269: 7361 rstrx fendxc,,,,begin/,,sysg,condeck1 7291: 7361 rstrx fendxc,,,,begin/,,sysg,condeck1 7270: 7362 nogud messg@snapshot deferred due to input errors@,37,j 7292: 7362 nogud messg@snapshot deferred due to input errors@,37,j 7271: 7363 forms 7293: 7363 forms 7272: 7364 b rstrx 7294: 7364 b rstrx 7273: 7365 cpl sbr x1,1&x1 7295: 7365 cpl sbr x1,1&x1 7274: 7366 bce inc,x3-2,2 7296: 7366 bce inc,x3-2,2 7275: 7367 sbr x3,201 7297: 7367 sbr x3,201 7276: 7368 w 7298: 7368 w 7277: 7369 wm 7299: 7369 wm 7278: 7370 a &1,pgctr#2 7300: 7370 a &1,pgctr#2 7279: 7371 c pgctr,&15 7301: 7371 c pgctr,&15 7280: 7372 bu nulin 7302: 7372 bu nulin 7281: 7373 s pgctr 7303: 7373 s pgctr 7282: 7374 cc 1 7304: 7374 cc 1 7283: 7375 b nulin 7305: 7375 b nulin 7284: 7376 inc a &1,x3 7306: 7376 inc a &1,x3 7285: 7377 b loop 7307: 7377 b loop 7286: 7378 bigms dcw @fixed object time routines located from 333-4279@ 7308: 7378 bigms dcw @fixed object time routines located from 333-4279@ 7287: 7379 head dcw @9........@ 7309: 7379 head dcw @9........@ 7288: 7380 dcw @9@ 7310: 7380 dcw @9@ 7289: 7381 dcw @-area-@ 7311: 7381 dcw @-area-@ 7290: 7382 linct dcw 04200 7312: 7382 linct dcw 04200 7291: 7383 ltorg* 7313: 7383 ltorg* 7292: 7384 sysg dcw @}@ system group mark 7314: 7384 sysg dcw @}@ system group mark 7293: 7385 xfr start 7315: 7385 xfr start 7294: 7386 job 1401 Fortran condensed deck phase one 50573 7316: 7386 job 1401 Fortran condensed deck phase one 50573 7295: 7387 fbegncondeck1,,,,,,,/ 7317: 7387 fbegncondeck1,,,,,,,/ 7296: 7388 last equ conlst 7318: 7388 last equ conlst 7297: 7389 org xbegin 7319: 7389 org xbegin 7298: 7390 pchcd sbr pxt&3 7320: 7390 pchcd sbr pxt&3 7299: 7391 a &1,175 7321: 7391 a &1,175 7300: 7392 bss mcw18,b 7322: 7392 bss mcw18,b 7301: 7393 p 7323: 7393 p 7302: 7394 pxt b 0 7324: 7394 pxt b 0 7303: 7395 mcw18 mcw 180,280 7325: 7395 mcw18 mcw 180,280 7304: 7396 mcw 7326: 7396 mcw 7305: 7397 wp 7327: 7397 wp 7306: 7398 forms 7328: 7398 forms 7307: 7399 b pxt 7329: 7399 b pxt 7308: 7400 ltorg* 7330: 7400 ltorg* 7309: 7401 begin bce gotta,parama&7,p 7331: 7401 begin bce gotta,parama&7,p 7310: 7402 b fendx 7332: 7402 b fendx 7311: 7403 gotta bw fendx,failsw 7333: 7403 gotta bw fendx,failsw 7312: 7404 lca conlst,last 7334: 7404 lca conlst,last 7313: 7405 cs 180 7335: 7405 cs 180 7314: 7406 sw 101 7336: 7406 sw 101 7315: 7407 mcw parama-1,180 7337: 7407 mcw parama-1,180 7316: 7408 bss messg,b 7338: 7408 bss messg,b 7317: 7409 b cddmp 7339: 7409 b cddmp 7318: 7410 messg messg@condensed deck@,60,1,j 7340: 7410 messg messg@condensed deck@,60,1,j 7319: 7411 b cddmp 7341: 7411 b cddmp 7320: 7412 fendx fendxc,,,begin,begin,begin,sys1,condeck2 7342: 7412 fendx fendxc,,,begin,begin,begin,sys1,condeck2 7321: 7413 cddmp lca @0000@,175 7343: 7413 cddmp lca @0000@,175 7322: 7414 bwz litcs,parama&2,2 7344: 7414 bwz litcs,parama&2,2 7323: 7415 mcw cs1a,152 7345: 7415 mcw cs1a,152 7324: 7416 b pchcd 7346: 7416 b pchcd 7325: 7417 mcw parama&2,cs2xa 7347: 7417 mcw parama&2,cs2xa 7326: 7418 mcw cs2a,171 7348: 7418 mcw cs2a,171 7327: 7419 b pchcd 7349: 7419 b pchcd 7328: 7420 b dobc1 7350: 7420 b dobc1 7329: 7421 litcs mcw cs1,144 7351: 7421 litcs mcw cs1,144 7330: 7422 b pchcd 7352: 7422 b pchcd 7331: 7423 mcw parama&2,cs2x 7353: 7423 mcw parama&2,cs2x 7332: 7424 mcw cs2, 170 7354: 7424 mcw cs2, 170 7333: 7425 b pchcd 7355: 7425 b pchcd 7334: 7426 dobc1 mcw bc1,171 7356: 7426 dobc1 mcw bc1,171 7335: 7427 cs 7357: 7427 cs 7336: 7428 lca bc2,146 7358: 7428 lca bc2,146 7337: 7429 b pchcd 7359: 7429 b pchcd 7338: 7430 b fendx 7360: 7430 b fendx 7339: 7431 cs1 dcw @,008015,019026,030,034041,045,053,0570571026@ 7361: 7431 cs1 dcw @,008015,019026,030,034041,045,053,0570571026@ 7340: 7432 cs2x dcw @L068112,102106,113/101099/I99@ 7362: 7432 cs2x dcw @L068112,102106,113/101099/I99@ 7341: 7433 cs2 dc @,027a070028)027b0010270b0261,001/001113I0@ 7363: 7433 cs2 dc @,027a070028)027b0010270b0261,001/001113I0@ 7342: 7434 bc1 dcw @,0010011040@ 7364: 7434 bc1 dcw @,0010011040@ 7343: 7435 bc2 dcw @,008015,022029,036040,047054,061068,072/061039@ 7365: 7435 bc2 dcw @,008015,022029,036040,047054,061068,072/061039@ 7344: 7436 dcw @,008015,022026,030037,044,049,053053@ | 7366: 74364 dcw @,008015,022026,030037,044,049,053034@ v3m4 7345: 7437 cs1a dc @N000000N00001026@ | 7367: 7437 cs1a dc @,035036N00001026@ v3m4 7346: 7438 cs2xa dcw @L068116,105106,110117B101/I9I@ 7368: 7438 cs2xa dcw @L068116,105106,110117B101/I9I@ 7347: 7439 cs2a dc @#071029C029056B026/B001/0991,001/001117I0?@ | 7369: 7439 cs2a dc @H029NNNC029056B026/B001/0991,001/001117I0?@ v3m4 7348: 7440 ltorg* 7370: 7440 ltorg* 7349: 7441 sys1 dcw @}@ system group mark 7371: 7441 sys1 dcw @}@ system group mark 7350: 7442 xfr begin 7372: 7442 xfr begin 7351: 7443 job 1401 Fortran condensed deck phase two 50583 7373: 7443 job 1401 Fortran condensed deck phase two 50583 7352: 7444 fbegncondeck2,,,,,,,2 7374: 7444 fbegncondeck2,,,,,,,2 7353: 7445 org begin/ 7375: 7445 org begin/ 7354: 7446 start mcw montor,read 7376: 7446 start mcw montor,read 7355: 7447 bw pchts,xlinkw branch if xlinkf switch off 7377: 7447 bw pchts,xlinkw branch if xlinkf switch off 7356: 7448 mcw montor,skpss skip snapshot 7378: 7448 mcw montor,skpss skip snapshot 7357: 7449 sbr tperr&15,rdtps 7379: 7449 sbr tperr&15,rdtps 7358: 7450 sbr ck4b-1,mvnss 7380: 7450 sbr ck4b-1,mvnss 7359: 7451 skpss r endss 7381: 7451 skpss r endss 7360: 7452 mvnss mcw &9,rdcnt 7382: 7452 mvnss mcw &9,rdcnt 7361: 7453 rdtps rt 1,1 7383: 7453 rdtps rt 1,1 7362: 7454 ber tperr 7384: 7454 ber tperr 7363: 7455 endss bce *&5,68,b 7385: 7455 endss bce *&5,68,b 7364: 7456 b skpss 7386: 7456 b skpss 7365: 7457 sbr getxt&3,ck4b 11-5-8 card already read 7387: 7457 sbr getxt&3,ck4b 11-5-8 card already read 7366: 7458 sbr tperr&15,rdtap restore tperr operands 7388: 7458 sbr tperr&15,rdtap restore tperr operands 7367: 7459 sbr ck4b-1,mvnin 7389: 7459 sbr ck4b-1,mvnin 7368: 7460 a &1,nbrsw 7390: 7460 a &1,nbrsw 7369: 7461 pchts bce *&5,parama&7,p 7391: 7461 pchts bce *&5,parama&7,p 7370: 7462 b read 7392: 7462 b read 7371: 7463 bw nopun,failsw 7393: 7463 bw nopun,failsw 7372: 7464 mcw @1040@,171 7394: 7464 mcw @1040@,171 7373: 7465 mcw @l014100,092097,081082,083084@ 7395: 7465 mcw @l014100,092097,081082,083084@ 7374: 7466 cs 7396: 7466 cs 7375: 7467 lca @00000000000000@, 114 7397: 7467 lca @00000000000000@, 114 7376: 7468 mcw @b@,retrn 7398: 7468 mcw @b@,retrn 7377: 7469 nop pchcd | 7399: 7469 b pchcd v3m4 7378: 7470 mcw @1040@,171 7400: 7470 mcw @1040@,171 7379: 7471 mcw ldfmt-1 7401: 7471 mcw ldfmt-1 7380: 7472 cs 7402: 7472 cs 7381: 7473 mcw mask,157 7403: 7473 mcw mask,157 7382: 7474 sw sysc2 7404: 7474 sw sysc2 7383: 7475 mcw sysc2,108 7405: 7475 mcw sysc2,108 7384: 7576 mcw parama&6 7406: 7576 mcw parama&6 7385: 7577 mcw 7407: 7577 mcw 7386: 7578 lca 7408: 7578 lca 7387: 7479 retrn nop pchcd 7409: 7479 retrn nop pchcd 7388: 7480 read r getxt 7410: 7480 read r getxt 7389: 7481 mvnin mcw &9,rdcnt#1 7411: 7481 mvnin mcw &9,rdcnt#1 7390: 7482 rdtap rt 1,1 7412: 7482 rdtap rt 1,1 7391: 7483 ber tperr 7413: 7483 ber tperr 7392: 7484 getxt b once 7414: 7484 getxt b once 7393: 7485 tperr bsp 1 7415: 7485 tperr bsp 1 7394: 7486 s &1,rdcnt 7416: 7486 s &1,rdcnt 7395: 7487 bwz rdtap,rdcnt,b 7417: 7487 bwz rdtap,rdcnt,b 7396: 7488 nop 3333 7418: 7488 nop 3333 7397: 7489 h 7419: 7489 h 7398: 7490 b mvnin 7420: 7490 b mvnin 7399: 7491 ck4b bce fendx,68,b 7421: 7491 ck4b bce fendx,68,b 7400: 7492 mcw 71,171 7422: 7492 mcw 71,171 7401: 7493 chain5 7423: 7493 chain5 7402: 7494 b retrn 7424: 7494 b retrn 7403: 7495 once sbr getxt&3,ck4b 7425: 7495 once sbr getxt&3,ck4b 7404: 7496 b read 7426: 7496 b read 7405: 7497 nopun messgmessg,43,,j 7427: 7497 nopun messgmessg,43,,j 7406: 7498 b read 7428: 7498 b read 7407: 7499 fendx a &1,nbrsw#1 7429: 7499 fendx a &1,nbrsw#1 7408: 7500 bce exit,nbrsw,3 7430: 7500 bce exit,nbrsw,3 7409: 7501 bce read,nbrsw,2 7431: 7501 bce read,nbrsw,2 7410: 7502 bw *&5,xlinkw branch if xlinkf switch off 7432: 7502 bw *&5,xlinkw branch if xlinkf switch off 7411: 7503 b read 7433: 7503 b read 7412: 7504 mcw montor,skpxl skip xlink 7434: 7504 mcw montor,skpxl skip xlink 7413: 7505 sbr tperr&15,rdtpx 7435: 7505 sbr tperr&15,rdtpx 7414: 7506 sbr ck4b-1,mvnxl 7436: 7506 sbr ck4b-1,mvnxl 7415: 7507 skpxl r endxl 7437: 7507 skpxl r endxl 7416: 7508 mvnxl mcw &9,rdcnt 7438: 7508 mvnxl mcw &9,rdcnt 7417: 7509 rdtpx rt 1,1 7439: 7509 rdtpx rt 1,1 7418: 7510 ber tperr 7440: 7510 ber tperr 7419: 7511 endxl bce *&5,68,b 7441: 7511 endxl bce *&5,68,b 7420: 7512 b skpxl 7442: 7512 b skpxl 7421: 7513 sbr tperr&15,rdtap restore tperr operands 7443: 7513 sbr tperr&15,rdtap restore tperr operands 7422: 7514 sbr ck4b-1,mvnin 7444: 7514 sbr ck4b-1,mvnin 7423: 7515 b fendx 7445: 7515 b fendx 7424: 7516 exit sbr getxt&3,fend2 7446: 7516 exit sbr getxt&3,fend2 7425: 7517 b read 7447: 7517 b read 7426: 7518 fend2 bce fend3,retrn,n 7448: 7518 fend2 bce fend3,retrn,n 7427: 7519 cs 171 7449: 7519 cs 171 7428: 7520 sw 101 7450: 7520 sw 101 7429: 7521 mcw @1040@,171 7451: 7521 mcw @1040@,171 7430: 7522 mcw ldfmt-1 7452: 7522 mcw ldfmt-1 7431: 7523 mcw @m002v36@,146 change on reasm of ob arith xsize&6 7453: 7523 mcw @m002v36@,146 change on reasm of ob arith xsize&6 7432: 7524 mcw parama&4,102 7454: 7524 mcw parama&4,102 7433: 7525 b pchcd 7455: 7525 b pchcd 7434: 7526 mcw @837@,146 change on reasm of ob arith fsize&6 7456: 7526 mcw @837@,146 change on reasm of ob arith fsize&6 7435: 7527 mcw parama&6,102 7457: 7527 mcw parama&6,102 7436: 7528 b pchcd 7458: 7528 b pchcd 7437: 7529 mcw @3t30@,146 change on reasm of ob arith out1-1 7459: 7529 mcw @3t30@,146 change on reasm of ob arith out1-1 7438: 7530 mcw gotofn,103 7460: 7530 mcw gotofn,103 7439: 7531 b pchcd 7461: 7531 b pchcd 7440: 7532 mcw @s09@,146 change on reasm of ob arith stsub&3 7462: 7532 mcw @s09@,146 change on reasm of ob arith stsub&3 7441: 7533 mcw subscr,103 7463: 7533 mcw subscr,103 7442: 7534 b pchcd 7464: 7534 b pchcd 7443: 7535 fend3 fendxc,,,xbegin,xbegin,xbegin,sysc2,condeck3 7465: 7535 fend3 fendxc,,,xbegin,xbegin,xbegin,sysc2,condeck3 7444: 7536 dcw @l008@ 7466: 7536 dcw @l008@ 7445: 7537 dc parama&7 7467: 7537 dc parama&7 7446: 7538 dc @,@ 7468: 7538 dc @,@ 7447: 7539 dc parama&3 7469: 7539 dc parama&3 7448: 7540 dc parama&5 7470: 7540 dc parama&5 7449: 7541 dc @,@ 7471: 7541 dc @,@ 7450: 7542 mask dc parama&7 7472: 7542 mask dc parama&7 7451: 7543 messg dcw @condensed deck deferred due to input errors@ 7473: 7543 messg dcw @condensed deck deferred due to input errors@ 7452: 7544 ldfmt dcw @l039000,040040,040040,040040$@ 7474: 7544 ldfmt dcw @l039000,040040,040040,040040$@ 7453: 7545 ltorg* 7475: 7545 ltorg* 7454: 7546 sysc2 dcw @}@ system group mark 7476: 7546 sysc2 dcw @}@ system group mark 7455: 7547 pchcd equ pchcd/ 7477: 7547 pchcd equ pchcd/ 7456: 7548 xfr start 7478: 7548 xfr start 7457: 7549 job 1401 Fortran fixed routine for condensing routine 50593 7479: 7549 job 1401 Fortran fixed routine for condensing routine 50593 7458: 7550 110 dcw @]]]]]@ all 11-5-8 first card 7480: 7550 110 dcw @]]]]]@ all 11-5-8 first card 7459: 7551 * 7481: 7551 * 7460: 7552 * 7482: 7552 * 7461: 7553 * copy of fixed package 7483: 7553 * copy of fixed package 7462: 7554 * snapshot - xlink - arith 7484: 7554 * snapshot - xlink - arith 7463: 7555 * 7485: 7555 * 7464: 7556 110 dcw @;;;;;@ all 11-6-8 last card 7486: 7556 110 dcw @;;;;;@ all 11-6-8 last card 7465: 7557 job 1401 Fortran condensed deck phase three 50603 7487: 7557 job 1401 Fortran condensed deck phase three 50603 7466: 7558 fbegncondeck3,x1,r,x2,r,x3,r,1 7488: 7558 fbegncondeck3,x1,r,x2,r,x3,r,1 7467: 7559 last equ conlst 7489: 7559 last equ conlst 7468: 7560 org xbegin 7490: 7560 org xbegin 7469: 7561 begin mcw gogogo,x1 7491: 7561 begin mcw gogogo,x1 7470: 7562 bce *&5,parama&7,p 7492: 7562 bce *&5,parama&7,p 7471: 7563 b gary 7493: 7563 b gary 7472: 7564 bw gary,failsw 7494: 7564 bw gary,failsw 7473: 7565 rest sbr wpb&3,reset 7495: 7565 rest sbr wpb&3,reset 7474: 7566 mcw con40-11,box1 7496: 7566 mcw con40-11,box1 7475: 7567 mcw @146@,x3 7497: 7567 mcw @146@,x3 7476: 7568 mcw @l@,140 7498: 7568 mcw @l@,140 7477: 7569 reset cs 139 7499: 7569 reset cs 139 7478: 7570 forms 7500: 7570 forms 7479: 7571 mcw con40,171 7501: 7571 mcw con40,171 7480: 7572 sw 140 7502: 7572 sw 140 7481: 7573 cs 332 7503: 7573 cs 332 7482: 7574 cs 7504: 7574 cs 7483: 7575 sw 101 7505: 7575 sw 101 7484: 7576 mcw @001@,x2 7506: 7576 mcw @001@,x2 7485: 7577 mcw @1@,flip#1 7507: 7577 mcw @1@,flip#1 7486: 7578 mcw box1#7,153 7508: 7578 mcw box1#7,153 7487: 7579 bw skip2,skpsw 7509: 7579 bw skip2,skpsw 7488: 7580 move mn 0&x1,100&x2 7510: 7580 move mn 0&x1,100&x2 7489: 7581 mz 0&x1,100&x2 7511: 7581 mz 0&x1,100&x2 7490: 7582 cpar c last,x1 7512: 7582 cpar c last,x1 7491: 7583 be term 7513: 7583 be term 7492: 7584 sbr x1,1&x1 7514: 7584 sbr x1,1&x1 7493: 7585 sbr x2,1&x2 7515: 7585 sbr x2,1&x2 7494: 7586 bce skip,0&x1,] 11-5-8 7516: 7586 bce skip,0&x1,] 11-5-8 7495: 7587 bw cdful,0&x1 7517: 7587 bw cdful,0&x1 7496: 7588 tbkff c @040@,x2 7518: 7588 tbkff c @040@,x2 7497: 7589 bl move 7519: 7589 bl move 7498: 7590 c @160@,x3 7520: 7590 c @160@,x3 7499: 7591 bl lozng 7521: 7591 bl lozng 7500: 7592 mcw @040@,167 7522: 7592 mcw @040@,167 7501: 7593 bh *&8 7523: 7593 bh *&8 7502: 7594 mcw @040@, 164 7524: 7594 mcw @040@, 164 7503: 7595 cw 140 7525: 7595 cw 140 7504: 7596 sw sw 000 7526: 7596 sw sw 000 7505: 7597 sbr x2 7527: 7597 sbr x2 7506: 7598 a -990,x2&1 7528: 7598 a -990,x2&1 7507: 7599 mcw 239,139 7529: 7599 mcw 239,139 7508: 7600 sbr sbr x1,000 7530: 7600 sbr sbr x1,000 7509: 7601 comma mcw con40-11,box1 7531: 7601 comma mcw con40-11,box1 7510: 7602 mcw @146@,x3 7532: 7602 mcw @146@,x3 7511: 7603 wp a @1@,cdno 7533: 7603 wp a @1@,cdno 7512: 7604 mn 0&x2 7534: 7604 mn 0&x2 7513: 7605 sbr 143 7535: 7605 sbr 143 7514: 7606 c 143,@000@ 7536: 7606 c 143,@000@ 7515: 7607 be end2 | 7537: 7607 be end1 v3m4 7516: 7608 mn 0&x1 7538: 7608 mn 0&x1 7517: 7609 sbr 146 7539: 7609 sbr 146 7518: 7610 lca 180,280 7540: 7610 lca 180,280 7519: 7611 lca 7541: 7611 lca 7520: 7612 lca 7542: 7612 lca 7521: 7613 bss swlwp,b 7543: 7613 bss swlwp,b 7522: 7614 wpb p reset 7544: 7614 wpb p reset 7523: 7615 swlwp sw lwpb&1 7545: 7615 swlwp sw lwpb&1 7524: 7616 mcw wpb&3,lwpb&3 7546: 7616 mcw wpb&3,lwpb&3 7525: 7617 cw lwpb&1 7547: 7617 cw lwpb&1 7526: 7618 lwpb wp reset 7548: 7618 lwpb wp reset 7527: 7619 lozng mcw @)@,box1-6 7549: 7619 lozng mcw @)@,box1-6 7528: 7620 mcw x1,box1 7550: 7620 mcw x1,box1 7529: 7621 mcw x1 7551: 7621 mcw x1 7530: 7622 mcw @153@,x3 7552: 7622 mcw @153@,x3 7531: 7623 b wp 7553: 7623 b wp 7532: 7624 term sbr wpb&3,end1 7554: 7624 term sbr wpb&3,end1 7533: 7625 b wp 7555: 7625 b wp 7534: 7626 cdful mcw x1,sbr&6 7556: 7626 cdful mcw x1,sbr&6 7535: 7627 sbr sw&3,100&x2 7557: 7627 sbr sw&3,100&x2 7536: 7628 c @040@,x2 7558: 7628 c @040@,x2 7537: 7629 be comma 7559: 7629 be comma 7538: 7630 c @167@,x3 7560: 7630 c @167@,x3 7539: 7631 be comma 7561: 7631 be comma 7540: 7632 sbr x3,3&x3 7562: 7632 sbr x3,3&x3 7541: 7633 zs flip 7563: 7633 zs flip 7542: 7634 bm plus1,flip 7564: 7634 bm plus1,flip 7543: 7625 mcw mcw x1,0&x3 7565: 7625 mcw mcw x1,0&x3 7544: 7636 b move 7566: 7636 b move 7545: 7637 skip sw skpsw 7567: 7637 skip sw skpsw 7546: 7638 b comma 7568: 7638 b comma 7547: 7639 skip2 cw skpsw 7569: 7639 skip2 cw skpsw 7548: 7640 mcm 0&x1 7570: 7640 mcm 0&x1 7549: 7641 sbr x1 7571: 7641 sbr x1 7550: 7642 bw move,0&x1 7572: 7642 bw move,0&x1 7551: 7643 mcw x1,153 7573: 7643 mcw x1,153 7552: 7644 mcw x1 7574: 7644 mcw x1 7553: 7645 mcw @)@ 7575: 7645 mcw @)@ 7554: 7646 mcw @153@,x3 7576: 7646 mcw @153@,x3 7555: 7647 b move 7577: 7647 b move 7556: 7648 plus1 sbr x3,1&x3 7578: 7648 plus1 sbr x3,1&x3 7557: 7649 b mcw 7579: 7649 b mcw 7558: 7650 end1 sbr x1,1697 format 7580: 7650 end1 sbr x1,1697 format 7559: 7651 bce end2,parama&10,x 7581: 7651 bce end2,parama&10,x 7560: 7652 bce lio,parama&10,l 7582: 7652 bce lio,parama&10,l 7561: 7653 bce aform,parama&10,a 7583: 7653 bce aform,parama&10,a 7562: 7654 next1 sbr cpar&3,hifmt 7584: 7654 next1 sbr cpar&3,hifmt 7563: 7655 sbr wpb&3,reset | 7585: 7655 sbr wp&25,end2 v3m4 7564: 7656 sbr term&6,end2 7586: 7656 sbr term&6,end2 7565: 7657 b rest 7587: 7657 b rest 7566: 7658 lio sbr hifmt,2016 7588: 7658 lio sbr hifmt,2016 7567: 7659 b next1 7589: 7659 b next1 7568: 7660 aform sbr hifmt,4617 7590: 7660 aform sbr hifmt,4617 7569: 7661 b next1 7591: 7661 b next1 7570: 7662 end2 cs 171 7592: 7662 end2 cs 171 7571: 7663 mcw @080@,146 7593: 7663 mcw @080@,146 7572: 7664 mcw gogogo 7594: 7664 mcw gogogo 7573: 7665 lca @/@ 7595: 7665 lca @/@ 7574: 7666 a @1@,cdno 7596: 7666 a @1@,cdno 7575: 7667 lca 180,280 7597: 7667 lca 180,280 7576: 7668 lca 7598: 7668 lca 7577: 7669 cs 7599: 7669 cs 7578: 7670 bss wpcs,b 7600: 7670 bss wpcs,b 7579: 7671 p 7601: 7671 p 7580: 7672 cs180 cs 180 7602: 7672 cs180 cs 180 7581: 7673 p 7603: 7673 p 7582: 7674 ss 8 7604: 7674 ss 8 7583: 7675 gary fendxc,,,,,,sys2,gaux one 7605: 7675 gary fendxc,,,,,,sys2,gaux one 7584: 7676 wpcs wp cs180 7606: 7676 wpcs wp cs180 7585: 7677 hifmt dsa 4280 change if arrays donot origin at 4280 7607: 7677 hifmt dsa 4280 change if arrays donot origin at 4280 7586: 7678 con40 dcw @,040040,0400401040@ 7608: 7678 con40 dcw @,040040,0400401040@ 7587: 7679 skpsw dc #1 7609: 7679 skpsw dc #1 7588: 7680 ltorg* 7610: 7680 ltorg* 7589: 7681 dcw @i99@ 7611: 7681 dcw @i99@ 7590: 7682 sys2 dcw @}@ system group mark 7612: 7682 sys2 dcw @}@ system group mark 7591: 7683 cdno equ 175 7613: 7683 cdno equ 175 7592: 7684 xfr begin 7614: 7684 xfr begin 7593: 7685 job 1401 Fortran geaux phase one 5061a 7615: 7685 job 1401 Fortran geaux phase one 5061a 7594: 7686 fbegngeaux 1,x1,r,,,,,6 7616: 7686 fbegngeaux 1,x1,r,,,,,6 7595: 7687 org xbegin 7617: 7687 org xbegin 7596: 7688 start lca blnk4#4,84 initialize sense 7618: 7688 start lca blnk4#4,84 initialize sense 7597: 7689 sw 84 lights 7619: 7689 sw 84 lights 7598: 7690 sw 7620: 7690 sw 7599: 7691 sw 7621: 7691 sw 7600: 7692 messg@end of compilation@,18,1 7622: 7692 messg@end of compilation@,18,1 7601: 7693 mcw gogogo,x1 7623: 7693 mcw gogogo,x1 7602: 7694 bw bad,failsw 7624: 7694 bw bad,failsw 7603: 7695 messg@press start to go@,17,j 7625: 7695 messg@press start to go@,17,j 7604: 7696 out sw sys2 7626: 7696 out sw sys2 7605: 7697 lca sys2,693 7627: 7697 lca sys2,693 7606: 7698 bce cdsys,montor,1 7628: 7698 bce cdsys,montor,1 7607: 7699 bw skpxl,xlinkw 7629: 7699 bw skpxl,xlinkw 7608: 7700 sbr tperx&15,rtpxl 7630: 7700 sbr tperx&15,rtpxl 7609: 7701 rtpxl rtw 1,333 7631: 7701 rtpxl rtw 1,333 7610: 7702 ber tperx 7632: 7702 ber tperx 7611: 7703 b out33 7633: 7703 b out33 7612: 7704 tperx bsp 1 7634: 7704 tperx bsp 1 7613: 7705 h 4444,4444 7635: 7705 h 4444,4444 7614: 7706 b skpxl 7636: 7706 b skpxl 7615: 7707 cdsys bw skpxc,xlinkw 7637: 7707 cdsys bw skpxc,xlinkw 7616: 7708 r 040 7638: 7708 r 040 7617: 7709 skpxc r 7639: 7709 skpxc r 7618: 7710 bce out2,68,b if b, branch to read arith 7640: 7710 bce out2,68,b if b, branch to read arith 7619: 7711 b skpxc 7641: 7711 b skpxc 7620: 7712 skpxl rtw 1,sys2 7642: 7712 skpxl rtw 1,sys2 7621: 7713 ber tperx 7643: 7713 ber tperx 7622: 7714 out2 bss 333,c 7644: 7714 out2 bss 333,c 7623: 7715 lca @n@,381 7645: 7715 lca @n@,381 7624: 7716 lca @.@,564 7646: 7716 lca @.@,564 7625: 7717 out33 cw 680 return from loading xlink 7647: 7717 out33 cw 680 return from loading xlink 7626: 7718 sbr tclear,sys2 7648: 7718 sbr tclear,sys2 7627: 7719 sbr initap&6,201 7649: 7719 sbr initap&6,201 7628: 7720 sbr initxt&3,201 7650: 7720 sbr initxt&3,201 7629: 7721 sbr bclear,xbegin 7651: 7721 sbr bclear,xbegin 7630: 7722 b monter 7652: 7722 b monter 7631: 7723 bad messg@correct errors and recompile@,28,j 7653: 7723 bad messg@correct errors and recompile@,28,j 7632: 7724 b out 7654: 7724 b out 7633: 7725 ltorg* 7655: 7725 ltorg* 7634: 7726 sys2 dcw @}@ system group mark 7656: 7726 sys2 dcw @}@ system group mark 7635: 7727 xfr start 7657: 7727 xfr start 7636: 7728 job 1401 Fortran fixed xlink routine 5061b 7658: 7728 job 1401 Fortran fixed xlink routine 5061b 7637: 7729 sfx # as in snapshots 7659: 7729 sfx # as in snapshots 7638: 7730 org 333 7660: 7730 org 333 7639: 7731 h 333 7661: 7731 h 333 7640: 7732 start mcw 86,xl2 x2 follows b700 7662: 7732 start mcw 86,xl2 x2 follows b700 7641: 7733 cs 80 7663: 7733 cs 80 7642: 7734 bce array,0&x2,$ 7664: 7734 bce array,0&x2,$ 7643: 7735 clear cs 000 7665: 7735 clear cs 000 7644: 7736 sbr adr3 7666: 7736 sbr adr3 7645: 7737 c adr3,@699@ 7667: 7737 c adr3,@699@ 7646: 7738 bu clear 7668: 7738 bu clear 7647: 7739 sw acchi-5&x3 7669: 7739 sw acchi-5&x3 7648: 7740 mz acchi&x3,field 7670: 7740 mz acchi&x3,field 7649: 7741 c field,acchi&x3 7671: 7741 c field,acchi&x3 7650: 7742 be cards 7672: 7742 be cards 7651: 7743 bm getm,acchi&x3 7673: 7743 bm getm,acchi&x3 7652: 7744 mz zero,acchi&x3 7674: 7744 mz zero,acchi&x3 7653: 7745 c 699,acchi&x3 7675: 7745 c 699,acchi&x3 7654: 7746 be getm 7676: 7746 be getm 7655: 7747 sw 22 7677: 7747 sw 22 7656: 7748 mcw gm,22 7678: 7748 mcw gm,22 7657: 7749 serch rt 1,1 7679: 7749 serch rt 1,1 7658: 7750 bef out 7680: 7750 bef out 7659: 7751 c 10,@lib@ 7681: 7751 c 10,@lib@ 7660: 7752 bu serch 7682: 7752 bu serch 7661: 7753 c 17,acchi&x3 7683: 7753 c 17,acchi&x3 7662: 7754 be t1 7684: 7754 be t1 7663: 7755 b serch 7685: 7755 b serch 7664: 7756 out nop cards 7686: 7756 out nop cards 7665: 7757 mcw 333,out | 7687: 7757 mcw tperm,out v3m4 7666: 7758 rwd 1 7688: 7758 rwd 1 7667: 7759 b serch 7689: 7759 b serch 7668: 7760 t1 lca zeros,101 7690: 7760 t1 lca zeros,101 7669: 7761 lca zeros 7691: 7761 lca zeros 7670: 7762 lca zeros 7692: 7762 lca zeros 7671: 7763 rtw 1,333 7693: 7763 rtw 1,333 7672: 7764 ber err 7694: 7764 ber err 7673: 7765 mcw zero,ctrr 7695: 7765 mcw zero,ctrr 7674: 7766 sbr tperm-1,t2 7696: 7766 sbr tperm-1,t2 7675: 7767 t2 rtw 1,700 7697: 7767 t2 rtw 1,700 7676: 7768 ber err 7698: 7768 ber err 7677: 7769 tboot b 000 from libed 7699: 7769 tboot b 000 from libed 7678: 7770 err a one,ctrr 7700: 7770 err a one,ctrr 7679: 7771 bce tperm,ctrr,9 7701: 7771 bce tperm,ctrr,9 7680: 7772 bsp 1 7702: 7772 bsp 1 7681: 7773 b t1 7703: 7773 b t1 7682: 7774 tperm h tperm 7704: 7774 tperm h tperm 7683: 7775 array mcw 3&x2,adr3 7705: 7775 array mcw 3&x2,adr3 7684: 7776 mz zero,adr3-1 7706: 7776 mz zero,adr3-1 7685: 7777 b clear 7707: 7777 b clear 7686: 7778 cards sw 1 7708: 7778 cards sw 1 7687: 7779 r 7709: 7779 r 7688: 7780 bce 1,1,, 7710: 7780 bce 1,1,, 7689: 7781 b cards 7711: 7781 b cards 7690: 7782 getm rwd 1 7712: 7782 getm rwd 1 7691: 7783 rtw 1,1 7713: 7783 rtw 1,1 7692: 7784 b 1 execute monitor program 7714: 7784 b 1 execute monitor program 7693: 7785 adr3 equ clear&3 7715: 7785 adr3 equ clear&3 7694: 7786 field dcw @000000@ 7716: 7786 field dcw @000000@ 7695: 7787 zeros equ field-1 7717: 7787 zeros equ field-1 7696: 7788 zero equ zeros-4 7718: 7788 zero equ zeros-4 7697: 7789 ctrr equ zeros 7719: 7789 ctrr equ zeros 7698: 7790 acchi equ 279 7720: 7790 acchi equ 279 7699: 7791 ltorg* 7721: 7791 ltorg* 7700: 7792 org 679 7722: 7792 org 679 7701: 7793 one dcw @1@ 7723: 7793 one dcw @1@ 7702: 7794 gm dcw @}@ group mark in 680 7724: 7794 gm dcw @}@ group mark in 680 7703: 7795 xfr out336 7725: 7795 xfr out336 7704: 7796 job 1401 Fortran geaux phase two 50623 7726: 7796 job 1401 Fortran geaux phase two 50623 7705: 7797 sfx 6 7727: 7797 sfx 6 7706: 7798 110 dcw @geaux two@ 7728: 7798 110 dcw @geaux two@ 7707: 7799 org 201 7729: 7799 org 201 7708: 7800 yipee bce montor,montor,1 7730: 7800 yipee bce montor,montor,1 7709: 7801 rtp rtw 1,monter 7731: 7801 rtp rtw 1,monter 7710: 7802 ber tperr 7732: 7802 ber tperr 7711: 7803 rwd 1 7733: 7803 rwd 1 7712: 7804 init mcw subscr,arsub 7734: 7804 init mcw subscr,arsub 7713: 7805 cw 1696 7735: 7805 cw 1696 7714: 7806 mcw gotofn,func 7736: 7806 mcw gotofn,func 7715: 7807 mcw parama&4,fixsz 7737: 7807 mcw parama&4,fixsz 7716: 7808 mcw parama&6,fltsz 7738: 7808 mcw parama&6,fltsz 7717: 7809 cc 1 7739: 7809 cc 1 7718: 7810 bw halt,failsw 7740: 7810 bw halt,failsw 7719: 7811 mcw gogogo,x1 7741: 7811 mcw gogogo,x1 7720: 7812 h 0&x1 7742: 7812 h 0&x1 7721: 7813 halt h *-3 7743: 7813 halt h *-3 7722: 7814 tperr bsp 1 7744: 7814 tperr bsp 1 7723: 7815 h 3333,3333 7745: 7815 h 3333,3333 7724: 7816 b rtp 7746: 7816 b rtp 7725: 7817 dcw 0 7747: 7817 dcw 0 7726: 7818 func equ 1330 change on reasm of ob arith out1-1 7748: 7818 func equ 1330 change on reasm of ob arith out1-1 7727: 7819 fixsz equ 1536 change on reasm of ob arith xsize&6 7749: 7819 fixsz equ 1536 change on reasm of ob arith xsize&6 7728: 7820 fltsz equ 837 change on reasm of ob arith fsize&6 7750: 7820 fltsz equ 837 change on reasm of ob arith fsize&6 7729: 7821 arsub equ 1209 change on reasm of ob arith stsub&3 7751: 7821 arsub equ 1209 change on reasm of ob arith stsub&3 7730: 7822 ltorg* 7752: 7822 ltorg* 7731: 7823 dcw @}@ system group mark 7753: 7823 dcw @}@ system group mark 7732: 7824 xfr yipee 7754: 7824 xfr yipee 7733: 7825 * 7755: 7825 * 7734: 7826 * phase 63 goes here 7756: 7826 * phase 63 goes here 7735: 7827 * 7757: 7827 * 7736: 7828 end init the deed is done 7758: 7828 end init the deed is done