Artifact 6fbe085c71fa92fa5d40302fa90f2dcec96a4a535d6a2bb2aa1e4b0da01e3788:
- File
psl-1983/3-1/kernel/20/io.mac
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 63145) [annotate] [blame] [check-ins using] [more...]
search monsym,macsym radix 10 extern SYMNAM extern SYMVAL extern SYMFNC extern SYMPRP extern L0001 extern L0002 extern L0003 extern L2110 extern L2253 extern L2254 extern L2255 extern L2256 extern L2257 extern L2258 extern L2259 extern L2260 L2262: 14 byte(7)67,104,97,110,110,101,108,82,101,97,100,67,104,97,114,0 1 ; (!*ENTRY CHANNELREADCHAR EXPR 1) L2263: intern L2263 ADJSP 15,3 MOVEM 1,0(15) MOVEM 1,-2(15) JUMPL 1,L2264 CAIG 1,31 JRST L2265 L2264: MOVE 2,L2261 PUSHJ 15,SYMFNC+492 L2265: MOVE 1,-2(15) MOVE 1,L2256(1) MOVEM 1,-1(15) JUMPE 1,L2266 MOVE 7,-2(15) SETZM L2256(7) JRST L2267 L2266: MOVE 2,-2(15) MOVE 2,L2253(2) MOVE 1,-2(15) ADJSP 15,-3 TLZ 2,258048 JRST SYMFNC(2) L2267: ADJSP 15,-3 POPJ 15,0 L2261: <4_30>+<1_18>+L2262 0 ; (!*ENTRY READCHAR EXPR 0) L2268: intern L2268 MOVE 1,SYMVAL+600 JRST SYMFNC+598 L2271: 15 byte(7)67,104,97,110,110,101,108,87,114,105,116,101,67,104,97,114,0 2 ; (!*ENTRY CHANNELWRITECHAR EXPR 2) L2272: intern L2272 PUSH 15,1 PUSH 15,2 JUMPL 1,L2273 CAIG 1,31 JRST L2274 L2273: MOVE 2,L2269 PUSHJ 15,SYMFNC+492 L2274: MOVE 6,0(15) CAIE 6,10 JRST L2275 MOVE 7,-1(15) SETZM L2257(7) MOVE 6,-1(15) AOS L2258(6) JRST L2276 L2275: MOVE 6,0(15) CAIE 6,9 JRST L2277 MOVE 1,-1(15) MOVE 1,L2257(1) ADDI 1,8 AND 1,L2270 MOVE 7,-1(15) MOVEM 1,L2257(7) JRST L2276 L2277: MOVE 6,0(15) CAIE 6,12 JRST L2278 MOVE 7,-1(15) SETZM L2258(7) MOVE 7,-1(15) SETZM L2257(7) JRST L2276 L2278: MOVE 6,-1(15) AOS L2257(6) L2276: MOVE 3,-1(15) MOVE 3,L2254(3) MOVE 2,0(15) MOVE 1,-1(15) TLZ 3,258048 PUSHJ 15,SYMFNC(3) MOVE 1,0 ADJSP 15,-2 POPJ 15,0 L2270: -8 L2269: <4_30>+<1_18>+L2271 1 ; (!*ENTRY WRITECHAR EXPR 1) L2279: intern L2279 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+359 2 ; (!*ENTRY CHANNELUNREADCHAR EXPR 2) L2280: intern L2280 MOVEM 2,L2256(1) MOVE 1,2 POPJ 15,0 1 ; (!*ENTRY UNREADCHAR EXPR 1) L2281: intern L2281 MOVE 2,1 MOVE 1,SYMVAL+600 JRST SYMFNC+601 L2292: 18 byte(7)85,110,107,110,111,119,110,32,97,99,99,101,115,115,32,116,121,112,101,0 L2293: 37 byte(7)73,109,112,114,111,112,101,114,108,121,32,115,101,116,45,117,112,32,115,112,101,99,105,97,108,32,73,79,32,111,112,101,110,32,99,97,108,108,0 2 ; (!*ENTRY OPEN EXPR 2) OPEN: intern OPEN ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-2(15) CAME 2,L2282 JRST L2294 PUSHJ 15,SYMFNC+604 MOVEM 1,-2(15) SETZM L2256(1) MOVE 6,L2283 MOVEM 6,L2254(1) JRST L2295 L2294: CAME 2,L2284 JRST L2296 PUSHJ 15,SYMFNC+605 MOVEM 1,-2(15) SETZM L2257(1) HRRZI 6,80 MOVEM 6,L2259(1) MOVE 6,L2285 MOVEM 6,L2253(1) JRST L2295 L2296: CAME 2,L2286 JRST L2297 LDB 11,L2287 CAIE 11,30 JRST L2298 LDB 11,L2288 CAIE 11,30 JRST L2298 LDB 11,L2289 CAIE 11,30 JRST L2298 PUSHJ 15,SYMFNC+606 MOVEM 1,-2(15) SETZM L2257(1) HRRZI 6,80 MOVEM 6,L2259(1) SETZM L2256(1) MOVE 2,SYMVAL+607 TLZ 2,258048 MOVEM 2,L2253(1) MOVE 3,SYMVAL+608 TLZ 3,258048 MOVEM 3,L2254(1) MOVE 4,SYMVAL+609 TLZ 4,258048 MOVEM 4,L2255(1) JRST L2295 L2298: MOVE 1,L2290 JRST L2299 L2297: MOVE 1,L2291 L2299: PUSHJ 15,SYMFNC+507 L2295: MOVE 1,-2(15) ADJSP 15,-3 POPJ 15,0 L2287: point 6,<SYMVAL+607>,5 L2288: point 6,<SYMVAL+608>,5 L2289: point 6,<SYMVAL+609>,5 L2291: <4_30>+<1_18>+L2292 L2290: <4_30>+<1_18>+L2293 L2286: <30_30>+610 L2285: <30_30>+504 L2284: <30_30>+611 L2283: <30_30>+505 L2282: <30_30>+612 L2302: 4 byte(7)67,108,111,115,101,0 1 ; (!*ENTRY CLOSE EXPR 1) CLOSE: intern CLOSE PUSH 15,1 PUSH 15,1 JUMPL 1,L2303 CAIG 1,31 JRST L2304 L2303: MOVE 2,L2300 PUSHJ 15,SYMFNC+492 L2304: MOVE 2,-1(15) MOVE 2,L2255(2) MOVE 1,-1(15) TLZ 2,258048 PUSHJ 15,SYMFNC(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+614 MOVE 7,-1(15) MOVE 6,L2301 MOVEM 6,L2253(7) MOVE 7,-1(15) MOVE 6,L2301 MOVEM 6,L2254(7) MOVE 7,-1(15) MOVE 6,L2301 MOVEM 6,L2255(7) MOVE 1,0(15) ADJSP 15,-2 POPJ 15,0 L2301: <30_30>+502 L2300: <4_30>+<1_18>+L2302 L2308: 32 byte(7)67,104,97,110,110,101,108,32,110,111,116,32,111,112,101,110,32,102,111,114,32,105,110,112,117,116,32,105,110,32,82,68,83,0 1 ; (!*ENTRY RDS EXPR 1) RDS: intern RDS ADJSP 15,3 MOVEM 1,0(15) CAMN 0,SYMVAL+615 JRST L2309 MOVE 3,SYMVAL+615 MOVE 2,1 MOVE 1,SYMVAL+600 MOVE 6,3 PUSHJ 15,SYMFNC+288 L2309: MOVE 6,SYMVAL+600 MOVEM 6,-1(15) CAME 0,0(15) JRST L2310 MOVE 6,SYMVAL+616 MOVEM 6,0(15) L2310: MOVE 6,0(15) MOVE 6,L2253(6) MOVEM 6,-2(15) MOVE 6,-2(15) CAMN 6,L2305 JRST L2311 MOVE 6,-2(15) CAME 6,L2306 JRST L2312 L2311: MOVE 2,L2307 MOVE 1,0(15) ADJSP 15,-3 JRST SYMFNC+503 L2312: MOVE 6,0(15) MOVEM 6,SYMVAL+600 MOVE 1,-1(15) ADJSP 15,-3 POPJ 15,0 L2307: <4_30>+<1_18>+L2308 L2306: <30_30>+504 L2305: <30_30>+502 L2316: 33 byte(7)67,104,97,110,110,101,108,32,110,111,116,32,111,112,101,110,32,102,111,114,32,111,117,116,112,117,116,32,105,110,32,87,82,83,0 1 ; (!*ENTRY WRS EXPR 1) WRS: intern WRS ADJSP 15,3 MOVEM 1,0(15) CAMN 0,SYMVAL+617 JRST L2317 MOVE 3,SYMVAL+617 MOVE 2,1 MOVE 1,SYMVAL+311 MOVE 6,3 PUSHJ 15,SYMFNC+288 L2317: MOVE 6,SYMVAL+311 MOVEM 6,-1(15) CAME 0,0(15) JRST L2318 MOVE 6,SYMVAL+618 MOVEM 6,0(15) L2318: MOVE 6,0(15) MOVE 6,L2254(6) MOVEM 6,-2(15) MOVE 6,-2(15) CAMN 6,L2313 JRST L2319 MOVE 6,-2(15) CAME 6,L2314 JRST L2320 L2319: MOVE 2,L2315 MOVE 1,0(15) ADJSP 15,-3 JRST SYMFNC+503 L2320: MOVE 6,0(15) MOVEM 6,SYMVAL+311 MOVE 1,-1(15) ADJSP 15,-3 POPJ 15,0 L2315: <4_30>+<1_18>+L2316 L2314: <30_30>+505 L2313: <30_30>+502 1 ; (!*ENTRY CHANNELEJECT EXPR 1) L2321: intern L2321 HRRZI 2,12 PUSHJ 15,SYMFNC+359 MOVE 1,0 POPJ 15,0 0 ; (!*ENTRY EJECT EXPR 0) EJECT: intern EJECT MOVE 1,SYMVAL+311 JRST SYMFNC+619 L2325: 27 byte(7)37,114,32,105,115,32,97,110,32,105,110,118,97,108,105,100,32,108,105,110,101,32,108,101,110,103,116,104,0 2 ; (!*ENTRY CHANNELLINELENGTH EXPR 2) L2326: intern L2326 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVE 6,L2259(1) MOVEM 6,-2(15) CAMN 2,0 JRST L2327 LDB 11,L2323 CAIN 11,63 JRST L2322 CAILE 11,0 JRST L2328 L2322: JUMPL 2,L2328 MOVEM 2,L2259(1) JRST L2327 L2328: MOVE 1,L2324 PUSHJ 15,SYMFNC+155 PUSHJ 15,SYMFNC+156 L2327: MOVE 1,-2(15) ADJSP 15,-4 POPJ 15,0 L2323: point 6,2,5 L2324: <4_30>+<1_18>+L2325 1 ; (!*ENTRY LINELENGTH EXPR 1) L2329: intern L2329 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+621 1 ; (!*ENTRY CHANNELPOSN EXPR 1) L2330: intern L2330 MOVE 1,L2257(1) POPJ 15,0 0 ; (!*ENTRY POSN EXPR 0) POSN: intern POSN MOVE 1,SYMVAL+311 JRST SYMFNC+362 1 ; (!*ENTRY CHANNELLPOSN EXPR 1) L2331: intern L2331 MOVE 1,L2258(1) POPJ 15,0 0 ; (!*ENTRY LPOSN EXPR 0) LPOSN: intern LPOSN MOVE 1,SYMVAL+311 JRST SYMFNC+624 1 ; (!*ENTRY CHANNELREADCH EXPR 1) L2332: intern L2332 ADJSP 15,2 MOVEM 1,0(15) PUSHJ 15,SYMFNC+598 MOVEM 1,-1(15) CAMN 0,SYMVAL+627 JRST L2333 CAIGE 1,97 JRST L2333 CAILE 1,122 JRST L2333 MOVNI 7,32 ADDM 7,-1(15) L2333: MOVE 1,-1(15) HRLI 1,122880 ADJSP 15,-2 POPJ 15,0 0 ; (!*ENTRY READCH EXPR 0) READCH: intern READCH MOVE 1,SYMVAL+600 JRST SYMFNC+626 1 ; (!*ENTRY CHANNELTERPRI EXPR 1) L2334: intern L2334 HRRZI 2,10 PUSHJ 15,SYMFNC+359 MOVE 1,0 POPJ 15,0 0 ; (!*ENTRY TERPRI EXPR 0) TERPRI: intern TERPRI MOVE 1,SYMVAL+311 JRST SYMFNC+309 1 ; (!*ENTRY CHANNELREADTOKENWITHHOOKS EXPR 1) L2336: intern L2336 ADJSP 15,3 MOVEM 1,0(15) MOVEM 0,-2(15) PUSHJ 15,SYMFNC+633 MOVEM 1,-1(15) MOVE 7,SYMVAL+634 CAIE 7,3 JRST L2337 MOVE 2,SYMVAL+631 PUSHJ 15,SYMFNC+522 MOVE 2,1 MOVEM 2,-2(15) CAMN 2,0 JRST L2337 MOVE 3,2 MOVE 2,-1(15) MOVE 1,0(15) ADJSP 15,-3 TLZ 3,258048 JRST SYMFNC(3) L2337: MOVE 1,-1(15) ADJSP 15,-3 POPJ 15,0 1 ; (!*ENTRY CHANNELREAD EXPR 1) L2339: intern L2339 PUSH 15,1 JSP 10,SYMFNC+443 byte(18)0,631 byte(18)0,635 MOVE 6,SYMVAL+637 MOVEM 6,SYMVAL+635 MOVE 6,L2338 MOVEM 6,SYMVAL+631 PUSHJ 15,SYMFNC+632 JSP 10,SYMFNC+447 2 ADJSP 15,-1 POPJ 15,0 L2338: <30_30>+638 0 ; (!*ENTRY READ EXPR 0) READ: intern READ PUSHJ 15,SYMFNC+639 MOVE 1,SYMVAL+600 JRST SYMFNC+636 L2341: 41 byte(7)85,110,101,120,112,101,99,116,101,100,32,69,79,70,32,119,104,105,108,101,32,114,101,97,100,105,110,103,32,111,110,32,99,104,97,110,110,101,108,32,37,114,0 2 ; (!*ENTRY CHANNELREADEOF EXPR 2) L2342: intern L2342 PUSH 15,2 PUSH 15,1 CAMN 0,SYMVAL+640 JRST L2343 JSP 10,SYMFNC+443 byte(18)0,640 MOVE 2,1 MOVE 1,L2340 PUSHJ 15,SYMFNC+155 PUSHJ 15,SYMFNC+156 JSP 10,SYMFNC+447 1 JRST L2344 L2343: MOVE 1,SYMVAL+642 L2344: ADJSP 15,-2 POPJ 15,0 L2340: <4_30>+<1_18>+L2341 2 ; (!*ENTRY CHANNELREADQUOTEDEXPRESSION EXPR 2) L2345: intern L2345 PUSHJ 15,SYMFNC+632 JRST SYMFNC+234 2 ; (!*ENTRY CHANNELREADLISTORDOTTEDPAIR EXPR 2) L2348: intern L2348 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVEM 0,-4(15) JSP 10,SYMFNC+443 byte(18)0,640 MOVE 6,SYMVAL+84 MOVEM 6,SYMVAL+640 PUSHJ 15,SYMFNC+632 MOVEM 1,-2(15) MOVE 7,SYMVAL+634 CAIE 7,3 JRST L2349 CAME 1,L2346 JRST L2350 PUSHJ 15,L2351 JRST L2352 L2350: CAME 1,L2347 JRST L2349 MOVE 1,0 JRST L2352 L2349: PUSHJ 15,SYMFNC+172 MOVE 2,1 MOVEM 2,-4(15) MOVEM 2,-3(15) L2353: MOVE 1,0(15) PUSHJ 15,SYMFNC+632 MOVEM 1,-2(15) MOVE 7,SYMVAL+634 CAIE 7,3 JRST L2354 CAME 1,L2347 JRST L2355 MOVE 1,-3(15) JRST L2352 L2355: CAME 1,L2346 JRST L2354 MOVE 1,0(15) PUSHJ 15,SYMFNC+632 MOVEM 1,-2(15) MOVE 7,SYMVAL+634 CAIE 7,3 JRST L2356 CAMN 1,L2347 JRST L2357 CAME 1,L2346 JRST L2356 L2357: PUSHJ 15,L2351 JRST L2352 L2356: MOVE 7,-4(15) MOVEM 1,1(7) MOVE 1,0(15) PUSHJ 15,SYMFNC+632 MOVEM 1,-2(15) MOVE 7,SYMVAL+634 CAIE 7,3 JRST L2358 CAME 1,L2347 JRST L2358 MOVE 1,-3(15) JRST L2352 L2358: PUSHJ 15,L2351 JRST L2352 L2354: MOVE 1,-2(15) PUSHJ 15,SYMFNC+172 MOVE 7,-4(15) MOVEM 1,1(7) MOVE 2,-4(15) MOVE 2,1(2) MOVEM 2,-4(15) JRST L2353 L2352: JSP 10,SYMFNC+447 1 ADJSP 15,-5 POPJ 15,0 L2347: <30_30>+41 L2346: <30_30>+46 L2360: 30 byte(7)42,42,42,32,85,110,109,97,116,99,104,101,100,32,114,105,103,104,116,32,112,97,114,101,110,116,104,101,115,105,115,0 2 ; (!*ENTRY CHANNELREADRIGHTPAREN EXPR 2) L2361: intern L2361 PUSH 15,1 CAMN 0,SYMVAL+640 JRST L2362 MOVE 1,2 JRST L2363 L2362: CAMN 1,SYMVAL+616 JRST L2364 MOVE 1,L2359 PUSHJ 15,SYMFNC+418 L2364: MOVE 1,0(15) ADJSP 15,-1 JRST SYMFNC+632 L2363: ADJSP 15,-1 POPJ 15,0 L2359: <4_30>+<1_18>+L2360 L2366: 16 byte(7)68,111,116,32,99,111,110,116,101,120,116,32,101,114,114,111,114,0 ; (!*ENTRY DOTCONTEXTERROR EXPR 0) L2351: intern L2351 MOVE 1,L2365 JRST SYMFNC+507 L2365: <4_30>+<1_18>+L2366 1 ; (!*ENTRY CHANNELREADVECTOR EXPR 1) L2368: intern L2368 ADJSP 15,4 MOVEM 1,0(15) JSP 10,SYMFNC+443 byte(18)0,640 MOVE 6,SYMVAL+84 MOVEM 6,SYMVAL+640 MOVE 1,0 PUSHJ 15,SYMFNC+172 MOVE 2,1 MOVEM 2,-3(15) MOVEM 2,-2(15) L2369: MOVE 1,0(15) PUSHJ 15,SYMFNC+632 MOVEM 1,-1(15) MOVE 2,SYMVAL+634 MOVE 1,SYMVAL+84 CAIE 2,3 JRST L2370 MOVE 1,0 L2370: CAME 1,0 JRST L2371 MOVE 1,SYMVAL+84 MOVE 6,-1(15) CAME 6,L2367 JRST L2371 MOVE 1,0 L2371: CAMN 1,0 JRST L2372 MOVE 1,-1(15) PUSHJ 15,SYMFNC+172 MOVE 7,-3(15) MOVEM 1,1(7) MOVE 2,-3(15) MOVE 2,1(2) MOVEM 2,-3(15) JRST L2369 L2372: MOVE 1,-2(15) MOVE 1,1(1) PUSHJ 15,SYMFNC+152 JSP 10,SYMFNC+447 1 ADJSP 15,-4 POPJ 15,0 L2367: <30_30>+93 extern TOKCH extern L2373 extern L2374 extern L2375 extern L2376 extern L2377 extern L2378 extern L2379 extern L2380 extern L2381 L2383: 37 byte(7)42,42,42,42,42,32,82,69,65,68,32,66,117,102,102,101,114,32,111,118,101,114,102,108,111,119,44,32,84,114,117,110,99,97,116,105,110,103,0 ; (!*ENTRY READINBUF EXPR 0) L2384: intern L2384 MOVE 1,L2373 PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH MOVE 3,1 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 2,SYMVAL+635 TLZ 2,258048 ADDM 3,2 MOVE 6,1(2) MOVEM 6,L2374 MOVE 7,L2375 CAIL 7,5000 JRST L2385 AOS L2375 MOVE 1,L2375 POPJ 15,0 L2385: MOVE 7,L2375 CAIE 7,5000 JRST L2386 MOVE 1,L2382 PUSHJ 15,SYMFNC+418 L2386: HRRZI 1,5001 MOVEM 1,L2375 POPJ 15,0 L2382: <4_30>+<1_18>+L2383 ; (!*ENTRY MAKEBUFINTOID EXPR 0) L2387: intern L2387 SETZM SYMVAL+634 MOVE 7,L2375 CAIE 7,1 JRST L2388 SETZM 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 LDB 1,2 HRLI 1,122880 POPJ 15,0 L2388: SETZM 3 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 1,L2375 SOS 1 MOVEM 1,L2110 CAMN 0,SYMVAL+647 JRST L2389 XMOVEI 1,L2110 PUSHJ 15,SYMFNC+395 JRST SYMFNC+649 L2389: XMOVEI 1,L2110 TLZ 1,258048 TLO 1,16384 JRST SYMFNC+560 ; (!*ENTRY MAKEBUFINTOSTRING EXPR 0) L2390: intern L2390 HRRZI 6,1 MOVEM 6,SYMVAL+634 SETZM 3 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 1,L2375 SOS 1 MOVEM 1,L2110 XMOVEI 1,L2110 JRST SYMFNC+395 ; (!*ENTRY MAKEBUFINTOSYSNUMBER EXPR 2) L2391: intern L2391 MOVE 5,1 MOVE 4,2 SETZM 3 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 1,L2375 SOS 1 MOVEM 1,L2110 MOVE 3,4 MOVE 2,5 XMOVEI 1,L2110 JRST L2392 ; (!*ENTRY MAKEBUFINTOLISPINTEGER EXPR 2) L2393: intern L2393 MOVE 5,1 MOVE 4,2 HRRZI 6,2 MOVEM 6,SYMVAL+634 SETZM 3 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 1,L2375 SOS 1 MOVEM 1,L2110 MOVE 3,4 MOVE 2,5 XMOVEI 1,L2110 TLZ 1,258048 TLO 1,16384 JRST SYMFNC+650 extern L2394 extern L2395 extern L2396 extern L2397 ; (!*ENTRY MAKEBUFINTOFLOAT EXPR 2) L2398: intern L2398 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-2(15) HRRZI 2,10 XMOVEI 1,L2396 FLTR 2,2 MOVEM 2,0(1) SETZM 1(1) SETZM 2 XMOVEI 1,L2394 FLTR 2,2 MOVEM 2,0(1) SETZM 1(1) SETZM 2 XMOVEI 1,L2397 FLTR 2,2 MOVEM 2,0(1) SETZM 1(1) MOVE 1,L2375 SOS 1 MOVEM 1,-3(15) SETZM -4(15) L2399: MOVE 6,-4(15) CAMLE 6,-3(15) JRST L2400 MOVE 2,-4(15) XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 LDB 1,2 PUSHJ 15,SYMFNC+651 MOVE 2,1 XMOVEI 1,L2395 FLTR 2,2 MOVEM 2,0(1) SETZM 1(1) XMOVEI 3,L2396 XMOVEI 2,L2394 XMOVEI 1,L2394 DMOVE 3,0(3) DFMP 3,0(2) DMOVEM 3,0(1) XMOVEI 3,L2395 XMOVEI 2,L2394 XMOVEI 1,L2394 DMOVE 3,0(3) DFAD 3,0(2) DMOVEM 3,0(1) AOS -4(15) JRST L2399 L2400: SKIPG 0(15) JRST L2401 MOVEM 0,-4(15) HRRZI 6,1 MOVEM 6,-4(15) L2402: MOVE 6,-4(15) CAMLE 6,0(15) JRST L2403 XMOVEI 3,L2396 XMOVEI 2,L2394 XMOVEI 1,L2394 DMOVE 3,0(3) DFMP 3,0(2) DMOVEM 3,0(1) AOS -4(15) JRST L2402 L2401: SKIPL 0(15) JRST L2403 MOVN 1,0(15) MOVEM 1,0(15) MOVEM 0,-4(15) HRRZI 6,1 MOVEM 6,-4(15) L2404: MOVE 6,-4(15) CAMLE 6,0(15) JRST L2403 XMOVEI 3,L2396 XMOVEI 2,L2394 XMOVEI 1,L2394 DMOVE 4,0(2) DFDV 4,0(3) DMOVEM 4,0(1) AOS -4(15) JRST L2404 L2403: CAMN 0,-1(15) JRST L2405 XMOVEI 3,L2394 XMOVEI 2,L2397 XMOVEI 1,L2394 DMOVE 4,0(2) DFSB 4,0(3) DMOVEM 4,0(1) L2405: HRRZI 6,2 MOVEM 6,SYMVAL+634 PUSHJ 15,SYMFNC+388 MOVEM 1,-2(15) XMOVEI 2,L2394 AOS 1 DMOVE 2,0(2) DMOVEM 2,0(1) MOVE 1,-2(15) TLZ 1,258048 TLO 1,12288 ADJSP 15,-5 POPJ 15,0 L2417: 24 byte(7)77,105,115,115,105,110,103,32,101,120,112,111,110,101,110,116,32,105,110,32,102,108,111,97,116,0 L2418: 17 byte(7)68,105,103,105,116,32,111,117,116,32,111,102,32,114,97,110,103,101,0 L2419: 17 byte(7)82,97,100,105,120,32,111,117,116,32,111,102,32,114,97,110,103,101,0 L2420: 27 byte(7)69,79,70,32,101,110,99,111,117,110,116,101,114,101,100,32,105,110,115,105,100,101,32,97,110,32,73,68,0 L2421: 30 byte(7)69,79,70,32,101,110,99,111,117,110,116,101,114,101,100,32,105,110,115,105,100,101,32,97,32,115,116,114,105,110,103,0 L2422: 36 byte(7)42,42,42,32,83,116,114,105,110,103,32,99,111,110,116,105,110,117,101,100,32,111,118,101,114,32,101,110,100,45,111,102,45,108,105,110,101,0 L2423: 46 byte(7)73,108,108,101,103,97,108,32,116,111,32,102,111,108,108,111,119,32,112,97,99,107,97,103,101,32,105,110,100,105,99,97,116,111,114,32,119,105,116,104,32,110,111,110,32,73,68,0 L2424: 17 byte(7)85,110,107,110,111,119,110,32,116,111,107,101,110,32,116,121,112,101,0 L2425: 32 byte(7)73,110,116,101,114,110,97,108,32,101,114,114,111,114,32,45,32,99,111,110,115,117,108,116,32,97,32,119,105,122,97,114,100,0 1 ; (!*ENTRY CHANNELREADTOKEN EXPR 1) L2426: intern L2426 PUSH 15,1 MOVEM 1,L2373 SETZM L2376 SETZM L2375 L2427: MOVE 1,0(15) PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,L2374 MOVE 7,L2374 CAIN 7,17 JRST L2427 MOVE 3,1 MOVE 2,L2375 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 AOS L2375 MOVE 1,L2374 JUMPL 1,L2428 CAIG 1,9 JRST L2429 L2428: CAIL 1,10 CAILE 1,21 JRST L2430 JRST @L2431-10(1) L2431: IFIW L2432 IFIW L2433 IFIW L2434 IFIW L2435 IFIW L2436 IFIW L2437 IFIW L2438 IFIW L2439 IFIW L2440 IFIW L2441 IFIW L2442 IFIW L2443 L2430: JRST L2444 L2429: HRRZI 6,1 MOVEM 6,L2378 JRST L2445 L2432: CAMN 0,SYMVAL+627 JRST L2446 CAIGE 3,97 JRST L2447 CAILE 3,122 JRST L2447 SUBI 3,32 MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2447 L2433: HRRZI 6,3 MOVEM 6,SYMVAL+634 MOVE 1,3 HRLI 1,122880 JRST L2448 L2435: MOVE 2,3 HRLI 2,122880 MOVE 1,L2373 ADJSP 15,-1 JRST L2449 L2436: CAME 0,SYMVAL+627 JRST L2450 JRST L2451 L2437: SOS L2375 JRST L2452 L2438: SETZM L2375 HRRZI 6,1 MOVEM 6,L2376 MOVE 1,L2406 PUSHJ 15,SYMFNC+652 CAME 0,SYMVAL+627 JRST L2453 JRST L2454 L2439: MOVE 1,L2407 PUSHJ 15,L2455 JRST L2451 L2440: SETOM L2378 JRST L2456 L2441: HRRZI 6,1 MOVEM 6,L2378 JRST L2456 L2442: SETZM L2375 PUSHJ 15,L2384 MOVE 7,L2374 CAIGE 7,10 JRST L2457 MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 MOVE 2,L2408 MOVE 1,L2373 ADJSP 15,-1 JRST L2449 L2457: HRRZI 6,1 MOVEM 6,L2378 JRST L2458 L2443: SOS L2375 JRST L2459 L2444: MOVE 1,L2409 ADJSP 15,-1 JRST L2455 L2451: SOS L2375 PUSHJ 15,L2384 L2446: PUSHJ 15,L2384 MOVE 7,L2374 CAIG 7,10 JRST L2446 MOVE 7,L2374 CAIN 7,19 JRST L2446 MOVE 7,L2374 CAIN 7,18 JRST L2446 MOVE 7,L2374 CAIN 7,14 JRST L2451 MOVE 7,L2374 CAIE 7,16 JRST L2460 SOS L2375 HRRZI 6,1 MOVEM 6,L2376 PUSHJ 15,L2387 PUSHJ 15,SYMFNC+652 SETZM L2375 JRST L2454 L2460: MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 SKIPN L2376 JRST L2461 MOVE 1,SYMVAL+653 PUSHJ 15,SYMFNC+652 L2461: ADJSP 15,-1 JRST L2387 L2454: PUSHJ 15,L2384 MOVE 7,L2374 CAIN 7,10 JRST L2446 MOVE 7,L2374 CAIN 7,14 JRST L2451 MOVE 1,L2410 PUSHJ 15,L2455 L2450: SOS L2375 PUSHJ 15,L2384 L2447: PUSHJ 15,L2384 MOVE 7,L2374 CAIGE 7,10 JRST L2447 MOVE 7,L2374 CAIN 7,19 JRST L2447 MOVE 7,L2374 CAIN 7,18 JRST L2447 MOVE 7,L2374 CAIE 7,10 JRST L2462 MOVE 7,TOKCH CAIGE 7,97 JRST L2447 MOVE 7,TOKCH CAILE 7,122 JRST L2447 MOVE 3,TOKCH SUBI 3,32 MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2447 L2462: MOVE 7,L2374 CAIN 7,14 JRST L2450 MOVE 7,L2374 CAIE 7,16 JRST L2463 SOS L2375 HRRZI 6,1 MOVEM 6,L2376 PUSHJ 15,L2387 PUSHJ 15,SYMFNC+652 SETZM L2375 JRST L2453 L2463: MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 SKIPN L2376 JRST L2464 MOVE 1,SYMVAL+653 PUSHJ 15,SYMFNC+652 L2464: ADJSP 15,-1 JRST L2387 L2453: PUSHJ 15,L2384 MOVE 7,L2374 CAIE 7,10 JRST L2465 MOVE 7,TOKCH CAIGE 7,97 JRST L2447 MOVE 7,TOKCH CAILE 7,122 JRST L2447 MOVE 3,TOKCH SUBI 3,32 MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2447 L2465: MOVE 7,L2374 CAIN 7,14 JRST L2450 MOVE 1,L2410 PUSHJ 15,L2455 L2452: PUSHJ 15,L2384 MOVE 7,L2374 CAIE 7,15 JRST L2466 SOS L2375 PUSHJ 15,L2384 MOVE 7,L2374 CAIN 7,15 JRST L2452 MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 ADJSP 15,-1 JRST L2390 L2466: MOVE 7,TOKCH CAIE 7,10 JRST L2467 CAME 0,SYMVAL+648 JRST L2467 MOVE 1,L2411 PUSHJ 15,SYMFNC+418 JRST L2452 L2467: MOVE 7,TOKCH CAIE 7,26 JRST L2452 MOVE 1,L2412 PUSHJ 15,L2455 JRST L2452 L2459: PUSHJ 15,L2384 MOVE 7,L2374 CAIE 7,21 JRST L2468 SOS L2375 ADJSP 15,-1 JRST L2387 L2468: MOVE 7,L2374 CAIE 7,14 JRST L2469 SOS L2375 PUSHJ 15,L2384 JRST L2459 L2469: MOVE 7,TOKCH CAIE 7,26 JRST L2459 MOVE 1,L2413 PUSHJ 15,L2455 JRST L2459 L2456: SETZM L2375 PUSHJ 15,L2384 MOVE 7,TOKCH CAIE 7,46 JRST L2470 HRRZI 3,48 SETZM 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 HRRZI 6,2 MOVEM 6,L2375 JRST L2471 L2470: MOVE 7,L2374 CAIN 7,10 JRST L2472 MOVE 7,L2374 CAIN 7,18 JRST L2472 MOVE 7,L2374 CAIE 7,19 JRST L2473 L2472: SETZM L2375 SKIPL L2378 JRST L2474 HRRZI 1,45 JRST L2475 L2474: HRRZI 1,43 L2475: MOVE 3,1 SETZM 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 3,TOKCH HRRZI 2,1 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 HRRZI 6,2 MOVEM 6,L2375 CAMN 0,SYMVAL+627 JRST L2446 CAIGE 3,97 JRST L2447 CAILE 3,122 JRST L2447 SUBI 3,32 MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2447 L2473: MOVE 7,L2374 CAIE 7,14 JRST L2476 SETZM L2375 SKIPL L2378 JRST L2477 HRRZI 1,45 JRST L2478 L2477: HRRZI 1,43 L2478: MOVE 3,1 SETZM 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 HRRZI 6,1 MOVEM 6,L2375 CAMN 0,SYMVAL+627 JRST L2451 JRST L2450 L2476: MOVE 7,L2374 CAIG 7,9 JRST L2445 MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SKIPL L2378 JRST L2479 HRRZI 1,45 JRST L2480 L2479: HRRZI 1,43 L2480: MOVE 2,1 HRLI 2,122880 MOVE 1,0(15) ADJSP 15,-1 JRST L2449 L2445: PUSHJ 15,L2384 MOVE 7,L2374 CAIGE 7,10 JRST L2445 MOVE 7,TOKCH CAIE 7,35 JRST L2481 SOS L2375 HRRZI 2,1 HRRZI 1,10 PUSHJ 15,L2391 MOVEM 1,L2377 SETZM L2375 CAIGE 1,2 JRST L2482 CAIG 1,36 JRST L2483 L2482: MOVE 1,L2414 ADJSP 15,-1 JRST L2455 L2483: CAILE 1,10 JRST L2484 JRST L2485 L2481: MOVE 7,TOKCH CAIN 7,46 JRST L2471 MOVE 7,TOKCH CAIN 7,66 JRST L2486 MOVE 7,TOKCH CAIE 7,98 JRST L2487 L2486: SOS L2375 MOVE 2,L2378 HRRZI 1,8 ADJSP 15,-1 JRST L2393 L2487: MOVE 7,TOKCH CAIN 7,69 JRST L2488 MOVE 7,TOKCH CAIE 7,101 JRST L2489 L2488: SETZM L2379 JRST L2490 L2489: MOVE 7,L2374 CAIN 7,10 JRST L2491 MOVE 7,L2374 CAIN 7,18 JRST L2491 MOVE 7,L2374 CAIE 7,19 JRST L2492 L2491: CAMN 0,SYMVAL+627 JRST L2446 MOVE 7,TOKCH CAIGE 7,97 JRST L2447 MOVE 7,TOKCH CAILE 7,122 JRST L2447 MOVE 3,TOKCH SUBI 3,32 MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2447 L2492: MOVE 7,L2374 CAIE 7,14 JRST L2493 CAMN 0,SYMVAL+627 JRST L2451 JRST L2450 L2493: MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 MOVE 2,L2378 HRRZI 1,10 ADJSP 15,-1 JRST L2393 L2485: PUSHJ 15,L2384 MOVE 6,L2377 CAMLE 6,L2374 JRST L2485 MOVE 7,L2374 CAIL 7,10 JRST L2494 MOVE 1,L2415 ADJSP 15,-1 JRST L2455 L2494: MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 MOVE 2,L2378 MOVE 1,L2377 ADJSP 15,-1 JRST L2393 L2484: PUSHJ 15,L2384 MOVE 7,L2374 CAIGE 7,10 JRST L2484 MOVE 7,L2374 CAILE 7,10 JRST L2494 MOVE 7,TOKCH CAIGE 7,97 JRST L2495 MOVE 7,TOKCH CAILE 7,122 JRST L2495 MOVNI 7,32 ADDM 7,TOKCH MOVE 3,TOKCH MOVE 2,L2375 SOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 L2495: MOVE 1,L2377 ADDI 1,55 CAMLE 1,TOKCH JRST L2484 JRST L2494 L2471: SOS L2375 PUSHJ 15,L2384 MOVE 7,TOKCH CAIN 7,69 JRST L2496 MOVE 7,TOKCH CAIE 7,101 JRST L2497 L2496: SETZM L2379 JRST L2490 L2497: MOVE 7,L2374 CAIGE 7,10 JRST L2458 MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 MOVE 1,L2378 MOVE 2,SYMVAL+84 JUMPL 1,L2498 MOVE 2,0 L2498: SETZM 1 ADJSP 15,-1 JRST L2398 L2458: HRRZI 6,1 MOVEM 6,L2379 L2499: PUSHJ 15,L2384 MOVE 7,L2374 CAIL 7,10 JRST L2500 MOVE 7,L2379 CAIL 7,9 JRST L2501 AOS L2379 JRST L2499 L2501: SOS L2375 JRST L2499 L2500: MOVE 7,TOKCH CAIN 7,69 JRST L2490 MOVE 7,TOKCH CAIN 7,101 JRST L2490 MOVE 2,TOKCH MOVE 1,0(15) PUSHJ 15,SYMFNC+601 SOS L2375 MOVE 1,L2378 MOVE 2,SYMVAL+84 JUMPL 1,L2502 MOVE 2,0 L2502: MOVN 1,L2379 ADJSP 15,-1 JRST L2398 L2490: SOS L2375 HRRZI 6,1 MOVEM 6,L2380 SETZM L2381 MOVE 1,L2373 PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,L2374 MOVE 7,L2374 CAIGE 7,10 JRST L2503 CAIE 1,45 JRST L2504 SETOM L2380 JRST L2505 L2504: CAIN 1,43 JRST L2505 MOVE 1,L2416 ADJSP 15,-1 JRST L2455 L2505: MOVE 1,L2373 PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,L2374 MOVE 7,L2374 CAIGE 7,10 JRST L2503 MOVE 1,L2416 ADJSP 15,-1 JRST L2455 L2503: MOVE 6,L2374 MOVEM 6,L2381 L2506: MOVE 1,L2373 PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,L2374 MOVE 7,L2374 CAIL 7,10 JRST L2507 MOVE 2,L2381 IMULI 2,10 ADD 2,L2374 MOVEM 2,L2381 JRST L2506 L2507: MOVE 2,1 MOVE 1,0(15) PUSHJ 15,SYMFNC+601 MOVE 1,L2378 MOVE 2,SYMVAL+84 JUMPL 1,L2508 MOVE 2,0 L2508: MOVE 1,L2380 IMUL 1,L2381 SUB 1,L2379 ADJSP 15,-1 JRST L2398 L2434: MOVE 1,0(15) PUSHJ 15,SYMFNC+598 MOVEM 1,TOKCH CAIE 1,10 JRST L2509 SETZM L2375 JRST L2427 L2509: CAIE 1,26 JRST L2434 MOVE 1,SYMVAL+642 L2448: ADJSP 15,-1 POPJ 15,0 L2416: <4_30>+<1_18>+L2417 L2415: <4_30>+<1_18>+L2418 L2414: <4_30>+<1_18>+L2419 L2413: <4_30>+<1_18>+L2420 L2412: <4_30>+<1_18>+L2421 L2411: <4_30>+<1_18>+L2422 L2410: <4_30>+<1_18>+L2423 L2409: <4_30>+<1_18>+L2424 L2408: <30_30>+46 L2407: <4_30>+<1_18>+L2425 L2406: <30_30>+654 0 ; (!*ENTRY RATOM EXPR 0) RATOM: intern RATOM MOVE 1,SYMVAL+600 JRST SYMFNC+633 1 ; (!*ENTRY DIGITTONUMBER EXPR 1) L2510: intern L2510 CAIGE 1,48 JRST L2511 CAILE 1,57 JRST L2511 SUBI 1,48 POPJ 15,0 L2511: SUBI 1,55 POPJ 15,0 3 ; (!*ENTRY MAKESTRINGINTOLISPINTEGER EXPR 3) L2512: intern L2512 PUSHJ 15,L2392 JRST SYMFNC+138 ; (!*ENTRY MAKESTRINGINTOSYSINTEGER EXPR 3) L2392: intern L2392 ADJSP 15,7 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVEM 0,-3(15) MOVEM 0,-4(15) MOVE 1,2 PUSHJ 15,L2516 MOVE 4,1 MOVEM 4,-5(15) CAMN 4,0 JRST L2517 MOVE 4,-2(15) MOVE 3,-5(15) MOVE 2,-1(15) MOVE 1,0(15) ADJSP 15,-7 JRST L2518 L2517: MOVE 2,0(15) TLZ 2,258048 MOVEM 2,0(15) MOVE 6,0(2) LDB 3,L2513 TDNE 3,L2514 TDO 3,L2515 MOVEM 3,-3(15) SETZM -4(15) SETZM -6(15) L2519: MOVE 6,-6(15) CAMLE 6,-3(15) JRST L2520 MOVE 2,-6(15) MOVE 1,0(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 PUSHJ 15,SYMFNC+651 MOVE 2,-4(15) IMUL 2,-1(15) ADDM 2,1 MOVEM 1,-4(15) AOS -6(15) JRST L2519 L2520: SKIPL -2(15) JRST L2521 MOVN 1,-4(15) JRST L2522 L2521: MOVE 1,-4(15) L2522: ADJSP 15,-7 POPJ 15,0 L2513: point 30,6,35 L2514: 536870912 L2515: -536870912 ; (!*ENTRY MAKESTRINGINTOBITSTRING EXPR 4) L2518: intern L2518 ADJSP 15,7 MOVEM 2,-1(15) MOVEM 3,-2(15) MOVEM 4,-3(15) TLZ 1,258048 MOVEM 1,0(15) MOVE 6,0(1) LDB 5,L2523 TDNE 5,L2524 TDO 5,L2525 MOVEM 5,-4(15) SETZM -5(15) SETZM -6(15) L2526: MOVE 6,-6(15) CAMLE 6,-4(15) JRST L2527 MOVE 1,-5(15) MOVE 7,-2(15) LSH 1,0(7) MOVEM 1,-5(15) MOVE 2,-6(15) MOVE 1,0(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 PUSHJ 15,SYMFNC+651 IOR 1,-5(15) MOVEM 1,-5(15) AOS -6(15) JRST L2526 L2527: SKIPL -3(15) JRST L2528 MOVN 1,-5(15) JRST L2529 L2528: MOVE 1,-5(15) L2529: ADJSP 15,-7 POPJ 15,0 L2523: point 30,6,35 L2524: 536870912 L2525: -536870912 ; (!*ENTRY SYSPOWEROF2P EXPR 1) L2516: intern L2516 CAIL 1,1 CAILE 1,8 JRST L2530 JRST @L2531-1(1) L2531: IFIW L2532 IFIW L2533 IFIW L2534 IFIW L2535 IFIW L2534 IFIW L2534 IFIW L2534 IFIW L2536 L2530: CAIN 1,16 JRST L2537 CAIN 1,32 JRST L2538 JRST L2534 L2532: SETZM 1 POPJ 15,0 L2533: HRRZI 1,1 POPJ 15,0 L2535: HRRZI 1,2 POPJ 15,0 L2536: HRRZI 1,3 POPJ 15,0 L2537: HRRZI 1,4 POPJ 15,0 L2538: HRRZI 1,5 POPJ 15,0 L2534: MOVE 1,0 POPJ 15,0 L2540: 31 byte(7)42,42,42,42,42,32,69,114,114,111,114,32,105,110,32,116,111,107,101,110,32,115,99,97,110,110,101,114,58,32,37,115,0 ; (!*ENTRY SCANNERERROR EXPR 1) L2455: intern L2455 MOVE 2,1 MOVE 1,L2539 PUSHJ 15,SYMFNC+155 JRST SYMFNC+156 L2539: <4_30>+<1_18>+L2540 ; (!*ENTRY SCANPOSSIBLEDIPHTHONG EXPR 2) L2449: intern L2449 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVEM 0,-4(15) HRRZI 6,3 MOVEM 6,SYMVAL+634 MOVE 2,SYMVAL+635 TLZ 2,258048 MOVE 2,129(2) MOVE 1,-1(15) PUSHJ 15,SYMFNC+522 MOVE 3,1 MOVEM 3,-2(15) CAME 3,0 JRST L2541 MOVE 1,-1(15) JRST L2542 L2541: MOVE 1,0(15) PUSHJ 15,SYMFNC+598 MOVE 2,-2(15) HRLI 1,122880 MOVEM 1,-4(15) PUSHJ 15,SYMFNC+335 MOVE 2,1 MOVEM 2,-3(15) CAME 2,0 JRST L2543 MOVE 2,-4(15) TLZ 2,258048 MOVE 1,0(15) PUSHJ 15,SYMFNC+601 MOVE 1,-1(15) JRST L2542 L2543: MOVE 1,1(2) L2542: ADJSP 15,-5 POPJ 15,0 0 ; (!*ENTRY READLINE EXPR 0) L2544: intern L2544 PUSHJ 15,SYMFNC+639 MOVE 1,SYMVAL+600 JRST SYMFNC+657 L2546: -1 byte(7)0 1 ; (!*ENTRY CHANNELREADLINE EXPR 1) L2547: intern L2547 ADJSP 15,2 MOVEM 1,0(15) SETOM L2110 L2548: MOVE 1,0(15) PUSHJ 15,SYMFNC+598 MOVEM 1,-1(15) CAIN 1,10 JRST L2549 CAIN 1,26 JRST L2549 AOS L2110 MOVE 3,1 MOVE 2,L2110 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 JRST L2548 L2549: SKIPGE L2110 JRST L2550 SETZM 3 MOVE 2,L2110 AOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 XMOVEI 1,L2110 TLZ 1,258048 TLO 1,16384 ADJSP 15,-2 JRST SYMFNC+395 L2550: MOVE 1,L2545 ADJSP 15,-2 POPJ 15,0 L2545: <4_30>+<1_18>+L2546 1 ; (!*ENTRY PACKAGE EXPR 1) L2551: intern L2551 MOVE 1,0 POPJ 15,0 0 ; (!*ENTRY MAKEINPUTAVAILABLE EXPR 0) L2552: intern L2552 MOVE 1,0 POPJ 15,0 ; (!*ENTRY CHECKLINEFIT EXPR 4) L2553: intern L2553 ADJSP 15,3 MOVEM 2,0(15) MOVEM 3,-1(15) MOVEM 4,-2(15) MOVE 5,1 ADD 5,L2257(2) CAMG 5,L2259(2) JRST L2554 SKIPG L2259(2) JRST L2554 HRRZI 2,10 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2554: MOVE 3,-1(15) MOVE 2,-2(15) MOVE 1,0(15) ADJSP 15,-3 TLZ 3,258048 JRST SYMFNC(3) 2 ; (!*ENTRY CHANNELWRITESTRING EXPR 2) L2558: intern L2558 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVE 4,2 TLZ 4,258048 MOVE 6,0(4) LDB 3,L2555 TDNE 3,L2556 TDO 3,L2557 MOVEM 3,-2(15) SETZM -3(15) L2559: MOVE 6,-3(15) CAMLE 6,-2(15) JRST L2560 MOVE 2,-3(15) MOVE 1,-1(15) TLZ 1,258048 AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVE 2,1 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 AOS -3(15) JRST L2559 L2560: MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2555: point 30,6,35 L2556: 536870912 L2557: -536870912 1 ; (!*ENTRY WRITESTRING EXPR 1) L2561: intern L2561 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+660 extern L2562 extern L2563 3 ; (!*ENTRY CHANNELWRITESYSINTEGER EXPR 3) L2564: intern L2564 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVEM 0,-4(15) MOVE 1,3 PUSHJ 15,L2516 MOVE 4,1 MOVEM 4,-3(15) CAMN 4,0 JRST L2565 MOVE 3,-2(15) SOS 3 MOVE 2,-1(15) MOVE 1,0(15) ADJSP 15,-5 JRST L2566 L2565: SKIPL -1(15) JRST L2567 HRRZI 2,45 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 MOVE 2,-2(15) MOVE 1,-1(15) IDIV 1,2 MOVE 3,-2(15) MOVN 2,1 MOVE 1,0(15) PUSHJ 15,L2568 MOVE 2,-2(15) MOVE 1,-1(15) IDIV 1,2 MOVE 1,2 MOVN 2,1 XMOVEI 1,1+L2562 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVE 2,1 MOVE 1,0(15) ADJSP 15,-5 JRST SYMFNC+359 L2567: SKIPE -1(15) JRST L2569 HRRZI 2,48 MOVE 1,0(15) ADJSP 15,-5 JRST SYMFNC+359 L2569: MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) ADJSP 15,-5 JRST L2568 ; (!*ENTRY WRITENUMBER1 EXPR 3) L2568: intern L2568 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) JUMPE 2,L2570 MOVE 2,3 MOVE 1,-1(15) IDIV 1,2 MOVE 2,1 MOVE 1,0(15) PUSHJ 15,L2568 MOVE 2,-2(15) MOVE 1,-1(15) IDIV 1,2 MOVE 1,2 MOVE 2,1 XMOVEI 1,1+L2562 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVE 2,1 MOVE 1,0(15) ADJSP 15,-3 JRST SYMFNC+359 L2570: ADJSP 15,-3 POPJ 15,0 ; (!*ENTRY CHANNELWRITEBITSTRING EXPR 4) L2566: intern L2566 JUMPN 2,L2571 HRRZI 2,48 JRST SYMFNC+359 L2571: JRST SYMFNC+663 4 ; (!*ENTRY CHANNELWRITEBITSTRAUX EXPR 4) L2572: intern L2572 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) JUMPE 2,L2573 MOVN 5,4 LSH 2,0(5) PUSHJ 15,L2572 MOVE 2,-1(15) AND 2,-2(15) XMOVEI 1,1+L2562 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVE 2,1 MOVE 1,0(15) ADJSP 15,-3 JRST SYMFNC+359 L2573: ADJSP 15,-3 POPJ 15,0 2 ; (!*ENTRY WRITESYSINTEGER EXPR 2) L2574: intern L2574 MOVE 3,2 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+662 2 ; (!*ENTRY CHANNELWRITEFIXNUM EXPR 2) L2575: intern L2575 TLZ 2,258048 MOVE 2,1(2) JRST SYMFNC+666 2 ; (!*ENTRY CHANNELWRITEINTEGER EXPR 2) L2576: intern L2576 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVE 3,SYMVAL+658 MOVEM 3,-2(15) CAIN 3,10 JRST L2577 HRRZI 3,10 MOVE 2,-2(15) PUSHJ 15,SYMFNC+662 HRRZI 2,35 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2577: MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+662 MOVE 1,0 ADJSP 15,-3 POPJ 15,0 2 ; (!*ENTRY CHANNELWRITESYSFLOAT EXPR 2) L2578: intern L2578 PUSH 15,1 XMOVEI 1,L2563 PUSHJ 15,SYMFNC+668 XMOVEI 2,L2563 MOVE 1,0(15) PUSHJ 15,SYMFNC+660 MOVE 1,0 ADJSP 15,-1 POPJ 15,0 2 ; (!*ENTRY CHANNELWRITEFLOAT EXPR 2) L2579: intern L2579 TLZ 2,258048 AOS 2 JRST SYMFNC+667 2 ; (!*ENTRY CHANNELPRINTSTRING EXPR 2) L2583: intern L2583 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) HRRZI 2,34 PUSHJ 15,SYMFNC+359 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2580 TDNE 1,L2581 TDO 1,L2582 MOVEM 1,-2(15) SETZM -4(15) L2584: MOVE 6,-4(15) CAMLE 6,-2(15) JRST L2585 MOVE 2,-4(15) MOVE 1,-1(15) TLZ 1,258048 AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) CAIE 1,34 JRST L2586 HRRZI 2,34 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2586: MOVE 2,-3(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 AOS -4(15) JRST L2584 L2585: HRRZI 2,34 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 MOVE 1,0 ADJSP 15,-5 POPJ 15,0 L2580: point 30,6,35 L2581: 536870912 L2582: -536870912 2 ; (!*ENTRY CHANNELWRITEID EXPR 2) L2590: intern L2590 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) CAME 0,SYMVAL+573 JRST L2591 TLZ 2,258048 MOVE 2,SYMNAM(2) ADJSP 15,-5 JRST SYMFNC+660 L2591: MOVEM 0,-2(15) MOVEM 0,-3(15) MOVE 3,2 TLZ 3,258048 MOVE 2,SYMNAM(3) TLZ 2,258048 MOVEM 2,-1(15) MOVE 6,0(2) LDB 4,L2587 TDNE 4,L2588 TDO 4,L2589 MOVEM 4,-3(15) MOVEM 0,-4(15) SETZM -4(15) L2592: MOVE 6,-4(15) CAMLE 6,-3(15) JRST L2593 MOVE 2,-4(15) MOVE 1,-1(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-2(15) CAIGE 1,65 JRST L2594 CAILE 1,90 JRST L2594 HRRZI 7,32 ADDM 7,-2(15) L2594: MOVE 2,-2(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 AOS -4(15) JRST L2592 L2593: MOVE 1,0 ADJSP 15,-5 POPJ 15,0 L2587: point 30,6,35 L2588: 536870912 L2589: -536870912 L2596: 9 byte(7)35,60,85,110,98,111,117,110,100,58,0 2 ; (!*ENTRY CHANNELWRITEUNBOUND EXPR 2) L2597: intern L2597 PUSH 15,2 PUSH 15,1 MOVE 2,L2595 PUSHJ 15,SYMFNC+660 MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+671 HRRZI 2,62 MOVE 1,0(15) ADJSP 15,-2 JRST SYMFNC+359 L2595: <4_30>+<1_18>+L2596 2 ; (!*ENTRY CHANNELPRINTID EXPR 2) L2601: intern L2601 ADJSP 15,6 MOVEM 1,0(15) MOVEM 0,-4(15) MOVE 3,2 TLZ 3,258048 MOVE 2,SYMNAM(3) TLZ 2,258048 MOVEM 2,-1(15) MOVE 6,0(2) LDB 4,L2598 TDNE 4,L2599 TDO 4,L2600 MOVEM 4,-2(15) SETZM 2 MOVE 1,-1(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) MOVE 5,SYMVAL+635 TLZ 5,258048 ADDM 1,5 MOVE 7,1(5) CAIN 7,10 JRST L2602 MOVE 2,SYMVAL+659 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2602: CAME 0,SYMVAL+573 JRST L2603 MOVE 2,-3(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 MOVEM 0,-5(15) HRRZI 6,1 MOVEM 6,-5(15) L2604: MOVE 6,-5(15) CAMLE 6,-2(15) JRST L2605 MOVE 2,-5(15) MOVE 1,-1(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,-4(15) MOVE 6,-4(15) CAIG 6,10 JRST L2606 MOVE 6,-4(15) CAIN 6,19 JRST L2606 MOVE 6,-4(15) CAIN 6,18 JRST L2606 MOVE 2,SYMVAL+659 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2606: MOVE 2,-3(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 AOS -5(15) JRST L2604 L2603: MOVE 6,-3(15) CAIGE 6,65 JRST L2607 MOVE 6,-3(15) CAILE 6,90 JRST L2607 HRRZI 7,32 ADDM 7,-3(15) L2607: MOVE 2,-3(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 MOVEM 0,-5(15) HRRZI 6,1 MOVEM 6,-5(15) L2608: MOVE 6,-5(15) CAMLE 6,-2(15) JRST L2605 MOVE 2,-5(15) MOVE 1,-1(15) AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) MOVE 3,SYMVAL+635 TLZ 3,258048 ADDM 1,3 MOVE 6,1(3) MOVEM 6,-4(15) MOVE 6,-4(15) CAIG 6,10 JRST L2609 MOVE 6,-4(15) CAIN 6,19 JRST L2609 MOVE 6,-4(15) CAIN 6,18 JRST L2609 MOVE 2,SYMVAL+659 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2609: MOVE 6,-3(15) CAIGE 6,65 JRST L2610 MOVE 6,-3(15) CAILE 6,90 JRST L2610 HRRZI 7,32 ADDM 7,-3(15) L2610: MOVE 2,-3(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+359 AOS -5(15) JRST L2608 L2605: MOVE 1,0 ADJSP 15,-6 POPJ 15,0 L2598: point 30,6,35 L2599: 536870912 L2600: -536870912 L2612: 9 byte(7)35,60,85,110,98,111,117,110,100,32,0 2 ; (!*ENTRY CHANNELPRINTUNBOUND EXPR 2) L2613: intern L2613 PUSH 15,2 PUSH 15,1 MOVE 2,L2611 PUSHJ 15,SYMFNC+660 MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+673 HRRZI 2,62 MOVE 1,0(15) ADJSP 15,-2 JRST SYMFNC+359 L2611: <4_30>+<1_18>+L2612 L2615: 6 byte(7)35,60,67,111,100,101,32,0 2 ; (!*ENTRY CHANNELWRITECODEPOINTER EXPR 2) L2616: intern L2616 ADJSP 15,3 MOVEM 1,0(15) TLZ 2,258048 MOVEM 2,-1(15) MOVE 2,L2614 PUSHJ 15,SYMFNC+660 MOVE 6,-1(15) MOVE 6,-1(6) MOVEM 6,-2(15) SKIPGE -2(15) JRST L2617 MOVE 6,-2(15) CAILE 6,15 JRST L2617 HRRZI 3,10 MOVE 2,-2(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+662 HRRZI 2,32 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 L2617: HRRZI 3,8 MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+662 HRRZI 2,62 MOVE 1,0(15) PUSHJ 15,SYMFNC+359 MOVE 1,0 ADJSP 15,-3 POPJ 15,0 L2614: <4_30>+<1_18>+L2615 L2619: 9 byte(7)35,60,85,110,107,110,111,119,110,32,0 2 ; (!*ENTRY CHANNELWRITEUNKNOWNITEM EXPR 2) L2620: intern L2620 PUSH 15,2 PUSH 15,1 MOVE 2,L2618 PUSHJ 15,SYMFNC+660 HRRZI 3,8 MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+662 HRRZI 2,62 MOVE 1,0(15) ADJSP 15,-2 JRST SYMFNC+359 L2618: <4_30>+<1_18>+L2619 1 ; (!*ENTRY CHANNELWRITEBLANKOREOL EXPR 1) L2621: intern L2621 MOVE 2,L2257(1) AOS 2 CAMGE 2,L2259(1) JRST L2622 SKIPG L2259(1) JRST L2622 HRRZI 2,10 JRST L2623 L2622: HRRZI 2,32 L2623: JRST SYMFNC+359 L2635: 2 byte(7)46,46,46,0 L2636: 2 byte(7)32,46,32,0 L2637: 3 byte(7)32,46,46,46,0 3 ; (!*ENTRY CHANNELWRITEPAIR EXPR 3) L2638: intern L2638 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2625 CAIN 11,63 JRST L2624 CAILE 11,0 JRST L2639 L2624: CAMGE 3,SYMVAL+678 JRST L2639 HRRZI 2,35 ADJSP 15,-4 JRST SYMFNC+359 L2639: MOVEM 0,-3(15) AOS -2(15) HRRZI 4,40 MOVE 3,L2626 MOVE 2,1 HRRZI 1,1 PUSHJ 15,L2553 LDB 11,L2628 CAIN 11,63 JRST L2627 CAILE 11,0 JRST L2640 L2627: SKIPG SYMVAL+679 JRST L2641 L2640: MOVE 3,-2(15) MOVE 2,-1(15) MOVE 2,0(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+680 HRRZI 6,2 MOVEM 6,-3(15) MOVE 1,-1(15) MOVE 1,1(1) MOVEM 1,-1(15) L2642: LDB 11,L2629 CAIE 11,9 JRST L2643 LDB 11,L2628 CAIN 11,63 JRST L2630 CAILE 11,0 JRST L2644 L2630: MOVE 6,-3(15) CAMLE 6,SYMVAL+679 JRST L2643 L2644: MOVE 1,0(15) PUSHJ 15,SYMFNC+676 MOVE 3,-2(15) MOVE 2,-1(15) MOVE 2,0(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+680 AOS -3(15) MOVE 1,-1(15) MOVE 1,1(1) MOVEM 1,-1(15) JRST L2642 L2643: LDB 11,L2629 CAIE 11,9 JRST L2645 MOVE 4,L2631 JRST L2646 L2645: CAMN 0,-1(15) JRST L2647 MOVE 4,L2632 MOVE 3,L2633 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+680 JRST L2647 L2641: MOVE 4,L2634 L2646: MOVE 3,L2633 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2647: HRRZI 4,41 MOVE 3,L2626 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2625: point 6,<SYMVAL+678>,5 L2628: point 6,<SYMVAL+679>,5 L2629: point 6,-1(15),5 L2634: <4_30>+<1_18>+L2635 L2633: <30_30>+660 L2632: <4_30>+<1_18>+L2636 L2631: <4_30>+<1_18>+L2637 L2626: <30_30>+359 L2659: 2 byte(7)46,46,46,0 L2660: 2 byte(7)32,46,32,0 L2661: 3 byte(7)32,46,46,46,0 3 ; (!*ENTRY CHANNELPRINTPAIR EXPR 3) L2662: intern L2662 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2649 CAIN 11,63 JRST L2648 CAILE 11,0 JRST L2663 L2648: CAMGE 3,SYMVAL+678 JRST L2663 HRRZI 2,35 ADJSP 15,-4 JRST SYMFNC+359 L2663: MOVEM 0,-3(15) AOS -2(15) HRRZI 4,40 MOVE 3,L2650 MOVE 2,1 HRRZI 1,1 PUSHJ 15,L2553 LDB 11,L2652 CAIN 11,63 JRST L2651 CAILE 11,0 JRST L2664 L2651: SKIPG SYMVAL+679 JRST L2665 L2664: MOVE 3,-2(15) MOVE 2,-1(15) MOVE 2,0(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+682 HRRZI 6,2 MOVEM 6,-3(15) MOVE 1,-1(15) MOVE 1,1(1) MOVEM 1,-1(15) L2666: LDB 11,L2653 CAIE 11,9 JRST L2667 LDB 11,L2652 CAIN 11,63 JRST L2654 CAILE 11,0 JRST L2668 L2654: MOVE 6,-3(15) CAMLE 6,SYMVAL+679 JRST L2667 L2668: MOVE 1,0(15) PUSHJ 15,SYMFNC+676 MOVE 3,-2(15) MOVE 2,-1(15) MOVE 2,0(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+682 AOS -3(15) MOVE 1,-1(15) MOVE 1,1(1) MOVEM 1,-1(15) JRST L2666 L2667: LDB 11,L2653 CAIE 11,9 JRST L2669 MOVE 4,L2655 JRST L2670 L2669: CAMN 0,-1(15) JRST L2671 MOVE 4,L2656 MOVE 3,L2657 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+682 JRST L2671 L2665: MOVE 4,L2658 L2670: MOVE 3,L2657 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2671: HRRZI 4,41 MOVE 3,L2650 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2649: point 6,<SYMVAL+678>,5 L2652: point 6,<SYMVAL+679>,5 L2653: point 6,-1(15),5 L2658: <4_30>+<1_18>+L2659 L2657: <30_30>+660 L2656: <4_30>+<1_18>+L2660 L2655: <4_30>+<1_18>+L2661 L2650: <30_30>+359 L2682: 2 byte(7)46,46,46,0 3 ; (!*ENTRY CHANNELWRITEVECTOR EXPR 3) L2683: intern L2683 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2673 CAIN 11,63 JRST L2672 CAILE 11,0 JRST L2684 L2672: CAMGE 3,SYMVAL+678 JRST L2684 HRRZI 2,35 ADJSP 15,-5 JRST SYMFNC+359 L2684: MOVEM 0,-3(15) MOVEM 0,-4(15) AOS -2(15) HRRZI 4,91 MOVE 3,L2674 MOVE 2,1 HRRZI 1,1 PUSHJ 15,L2553 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2675 TDNE 1,L2676 TDO 1,L2677 MOVEM 1,-3(15) JUMPGE 1,L2685 HRRZI 4,93 MOVE 3,L2674 MOVE 2,0(15) HRRZI 1,1 ADJSP 15,-5 JRST L2553 L2685: SETZM -4(15) L2686: LDB 11,L2679 CAIN 11,63 JRST L2678 CAILE 11,0 JRST L2687 L2678: MOVE 6,-4(15) CAML 6,SYMVAL+679 JRST L2688 L2687: MOVE 3,-2(15) MOVE 2,-1(15) TLZ 2,258048 ADD 2,-4(15) MOVE 2,1(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+680 AOS -4(15) MOVE 6,-4(15) CAMLE 6,-3(15) JRST L2689 MOVE 1,0(15) PUSHJ 15,SYMFNC+676 JRST L2686 L2688: MOVE 4,L2680 MOVE 3,L2681 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2689: HRRZI 4,93 MOVE 3,L2674 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-5 POPJ 15,0 L2673: point 6,<SYMVAL+678>,5 L2675: point 30,6,35 L2676: 536870912 L2677: -536870912 L2679: point 6,<SYMVAL+679>,5 L2681: <30_30>+660 L2680: <4_30>+<1_18>+L2682 L2674: <30_30>+359 L2700: 2 byte(7)46,46,46,0 3 ; (!*ENTRY CHANNELPRINTVECTOR EXPR 3) L2701: intern L2701 ADJSP 15,5 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2691 CAIN 11,63 JRST L2690 CAILE 11,0 JRST L2702 L2690: CAMGE 3,SYMVAL+678 JRST L2702 HRRZI 2,35 ADJSP 15,-5 JRST SYMFNC+359 L2702: MOVEM 0,-3(15) MOVEM 0,-4(15) AOS -2(15) HRRZI 4,91 MOVE 3,L2692 MOVE 2,1 HRRZI 1,1 PUSHJ 15,L2553 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2693 TDNE 1,L2694 TDO 1,L2695 MOVEM 1,-3(15) JUMPGE 1,L2703 HRRZI 4,93 MOVE 3,L2692 MOVE 2,0(15) HRRZI 1,1 ADJSP 15,-5 JRST L2553 L2703: SETZM -4(15) L2704: LDB 11,L2697 CAIN 11,63 JRST L2696 CAILE 11,0 JRST L2705 L2696: MOVE 6,-4(15) CAML 6,SYMVAL+679 JRST L2706 L2705: MOVE 3,-2(15) MOVE 2,-1(15) TLZ 2,258048 ADD 2,-4(15) MOVE 2,1(2) MOVE 1,0(15) PUSHJ 15,SYMFNC+682 AOS -4(15) MOVE 6,-4(15) CAMLE 6,-3(15) JRST L2707 MOVE 1,0(15) PUSHJ 15,SYMFNC+676 JRST L2704 L2706: MOVE 4,L2698 MOVE 3,L2699 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2707: HRRZI 4,93 MOVE 3,L2692 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-5 POPJ 15,0 L2691: point 6,<SYMVAL+678>,5 L2693: point 30,6,35 L2694: 536870912 L2695: -536870912 L2697: point 6,<SYMVAL+679>,5 L2699: <30_30>+660 L2698: <4_30>+<1_18>+L2700 L2692: <30_30>+359 L2713: 9 byte(7)35,60,69,86,101,99,116,111,114,32,0 3 ; (!*ENTRY CHANNELWRITEEVECTOR EXPR 3) L2714: intern L2714 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2709 CAIN 11,63 JRST L2708 CAILE 11,0 JRST L2715 L2708: CAMGE 3,SYMVAL+678 JRST L2715 HRRZI 2,35 JRST L2716 L2715: MOVE 1,L2710 PUSHJ 15,SYMFNC+318 CAMN 1,0 JRST L2717 MOVE 2,L2711 MOVE 1,-1(15) PUSHJ 15,SYMFNC+686 MOVE 2,1 CAMN 2,0 JRST L2717 MOVE 5,2 MOVE 4,0 MOVE 3,-2(15) MOVE 2,0(15) MOVE 1,-1(15) MOVE 6,5 PUSHJ 15,SYMFNC+288 JRST L2718 L2717: MOVE 2,L2712 MOVE 1,0(15) PUSHJ 15,SYMFNC+660 HRRZI 3,8 MOVE 2,-1(15) TLZ 2,258048 MOVE 1,0(15) PUSHJ 15,SYMFNC+662 HRRZI 2,62 MOVE 1,0(15) L2716: PUSHJ 15,SYMFNC+359 L2718: MOVE 1,0 ADJSP 15,-3 POPJ 15,0 L2709: point 6,<SYMVAL+678>,5 L2712: <4_30>+<1_18>+L2713 L2711: <30_30>+687 L2710: <30_30>+686 L2724: 9 byte(7)35,60,69,86,101,99,116,111,114,32,0 3 ; (!*ENTRY CHANNELPRINTEVECTOR EXPR 3) L2725: intern L2725 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) LDB 11,L2720 CAIN 11,63 JRST L2719 CAILE 11,0 JRST L2726 L2719: CAMGE 3,SYMVAL+678 JRST L2726 HRRZI 2,35 JRST L2727 L2726: MOVE 1,L2721 PUSHJ 15,SYMFNC+318 CAMN 1,0 JRST L2728 MOVE 2,L2722 MOVE 1,-1(15) PUSHJ 15,SYMFNC+686 MOVE 2,1 CAMN 2,0 JRST L2728 MOVE 5,2 MOVE 4,SYMVAL+84 MOVE 3,-2(15) MOVE 2,0(15) MOVE 1,-1(15) MOVE 6,5 PUSHJ 15,SYMFNC+288 JRST L2729 L2728: MOVE 2,L2723 MOVE 1,0(15) PUSHJ 15,SYMFNC+660 HRRZI 3,8 MOVE 2,-1(15) TLZ 2,258048 MOVE 1,0(15) PUSHJ 15,SYMFNC+662 HRRZI 2,62 MOVE 1,0(15) L2727: PUSHJ 15,SYMFNC+359 L2729: MOVE 1,0 ADJSP 15,-3 POPJ 15,0 L2720: point 6,<SYMVAL+678>,5 L2723: <4_30>+<1_18>+L2724 L2722: <30_30>+687 L2721: <30_30>+686 L2740: 2 byte(7)46,46,46,0 L2741: 7 byte(7)35,60,87,111,114,100,115,58,0 2 ; (!*ENTRY CHANNELWRITEWORDS EXPR 2) L2742: intern L2742 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVE 2,L2730 PUSHJ 15,SYMFNC+660 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2731 TDNE 1,L2732 TDO 1,L2733 MOVEM 1,-2(15) JUMPGE 1,L2743 HRRZI 4,62 MOVE 3,L2734 MOVE 2,0(15) HRRZI 1,1 ADJSP 15,-4 JRST L2553 L2743: SETZM -3(15) L2744: LDB 11,L2736 CAIN 11,63 JRST L2735 CAILE 11,0 JRST L2745 L2735: MOVE 6,-3(15) CAML 6,SYMVAL+679 JRST L2746 L2745: MOVE 4,-1(15) TLZ 4,258048 ADD 4,-3(15) MOVE 4,1(4) MOVE 3,L2737 MOVE 2,0(15) HRRZI 1,10 PUSHJ 15,L2553 AOS -3(15) MOVE 6,-3(15) CAMLE 6,-2(15) JRST L2747 MOVE 1,0(15) PUSHJ 15,SYMFNC+676 JRST L2744 L2746: MOVE 4,L2738 MOVE 3,L2739 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2747: HRRZI 4,62 MOVE 3,L2734 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2731: point 30,6,35 L2732: 536870912 L2733: -536870912 L2736: point 6,<SYMVAL+679>,5 L2739: <30_30>+660 L2738: <4_30>+<1_18>+L2740 L2737: <30_30>+666 L2734: <30_30>+359 L2730: <4_30>+<1_18>+L2741 L2758: 2 byte(7)46,46,46,0 L2759: 11 byte(7)35,60,72,97,108,102,119,111,114,100,115,58,0 2 ; (!*ENTRY CHANNELWRITEHALFWORDS EXPR 2) L2760: intern L2760 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVE 2,L2748 PUSHJ 15,SYMFNC+660 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2749 TDNE 1,L2750 TDO 1,L2751 MOVEM 1,-2(15) JUMPGE 1,L2761 HRRZI 4,62 MOVE 3,L2752 MOVE 2,0(15) HRRZI 1,1 ADJSP 15,-4 JRST L2553 L2761: SETZM -3(15) L2762: LDB 11,L2754 CAIN 11,63 JRST L2753 CAILE 11,0 JRST L2763 L2753: MOVE 6,-3(15) CAML 6,SYMVAL+679 JRST L2764 L2763: MOVE 2,-3(15) MOVE 1,-1(15) TLZ 1,258048 AOS 1 TLO 1,245760 ADJBP 2,1 LDB 1,2 MOVE 4,1 MOVE 3,L2755 MOVE 2,0(15) HRRZI 1,10 PUSHJ 15,L2553 AOS -3(15) MOVE 6,-3(15) CAMLE 6,-2(15) JRST L2765 MOVE 1,0(15) PUSHJ 15,SYMFNC+676 JRST L2762 L2764: MOVE 4,L2756 MOVE 3,L2757 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2765: HRRZI 4,62 MOVE 3,L2752 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2749: point 30,6,35 L2750: 536870912 L2751: -536870912 L2754: point 6,<SYMVAL+679>,5 L2757: <30_30>+660 L2756: <4_30>+<1_18>+L2758 L2755: <30_30>+666 L2752: <30_30>+359 L2748: <4_30>+<1_18>+L2759 L2776: 2 byte(7)46,46,46,0 L2777: 7 byte(7)35,60,66,121,116,101,115,58,0 2 ; (!*ENTRY CHANNELWRITEBYTES EXPR 2) L2778: intern L2778 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 0,-3(15) MOVE 2,L2766 PUSHJ 15,SYMFNC+660 MOVE 2,-1(15) TLZ 2,258048 MOVE 6,0(2) LDB 1,L2767 TDNE 1,L2768 TDO 1,L2769 MOVEM 1,-2(15) JUMPGE 1,L2779 HRRZI 4,62 MOVE 3,L2770 MOVE 2,0(15) HRRZI 1,1 ADJSP 15,-4 JRST L2553 L2779: SETZM -3(15) L2780: LDB 11,L2772 CAIN 11,63 JRST L2771 CAILE 11,0 JRST L2781 L2771: MOVE 6,-3(15) CAML 6,SYMVAL+679 JRST L2782 L2781: MOVE 2,-3(15) MOVE 1,-1(15) TLZ 1,258048 AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVE 4,1 MOVE 3,L2773 MOVE 2,0(15) HRRZI 1,10 PUSHJ 15,L2553 AOS -3(15) MOVE 6,-3(15) CAMLE 6,-2(15) JRST L2783 MOVE 1,0(15) PUSHJ 15,SYMFNC+676 JRST L2780 L2782: MOVE 4,L2774 MOVE 3,L2775 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,L2553 L2783: HRRZI 4,62 MOVE 3,L2770 MOVE 2,0(15) HRRZI 1,1 PUSHJ 15,L2553 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L2767: point 30,6,35 L2768: 536870912 L2769: -536870912 L2772: point 6,<SYMVAL+679>,5 L2775: <30_30>+660 L2774: <4_30>+<1_18>+L2776 L2773: <30_30>+666 L2770: <30_30>+359 L2766: <4_30>+<1_18>+L2777 2 ; (!*ENTRY CHANNELPRIN2 EXPR 2) L2335: intern L2335 SETZM 3 JRST SYMFNC+680 3 ; (!*ENTRY RECURSIVECHANNELPRIN2 EXPR 3) L2796: intern L2796 PUSH 15,2 PUSH 15,1 LDB 1,L2784 CAIL 1,0 CAILE 1,10 JRST L2797 JRST @L2798-0(1) L2798: IFIW L2799 IFIW L2800 IFIW L2801 IFIW L2802 IFIW L2803 IFIW L2804 IFIW L2805 IFIW L2806 IFIW L2807 IFIW L2808 IFIW L2809 L2797: CAIN 1,15 JRST L2810 CAIN 1,29 JRST L2811 CAIN 1,30 JRST L2812 CAIE 1,63 JRST L2801 L2799: MOVE 4,2 MOVE 3,L2785 MOVE 2,0(15) HRRZI 1,10 PUSHJ 15,L2553 JRST L2813 L2812: MOVE 4,2 MOVE 3,L2786 MOVE 2,0(15) MOVE 1,4 TLZ 1,258048 MOVE 5,SYMNAM(1) TLZ 5,258048 MOVE 6,0(5) LDB 1,L2787 TDNE 1,L2788 TDO 1,L2789 AOS 1 PUSHJ 15,L2553 JRST L2813 L2811: MOVE 4,2 MOVE 3,L2790 MOVE 2,0(15) MOVE 1,4 TLZ 1,258048 MOVE 5,SYMNAM(1) TLZ 5,258048 MOVE 6,0(5) LDB 1,L2787 TDNE 1,L2788 TDO 1,L2789 ADDI 1,12 PUSHJ 15,L2553 JRST L2813 L2803: MOVE 4,2 MOVE 3,L2791 MOVE 2,0(15) MOVE 5,4 TLZ 5,258048 MOVE 6,0(5) LDB 1,L2787 TDNE 1,L2788 TDO 1,L2789 AOS 1 PUSHJ 15,L2553 JRST L2813 L2810: MOVE 4,2 MOVE 3,L2792 MOVE 2,0(15) HRRZI 1,14 PUSHJ 15,L2553 JRST L2813 L2800: MOVE 4,2 MOVE 3,L2793 MOVE 2,0(15) HRRZI 1,20 PUSHJ 15,L2553 JRST L2813 L2802: MOVE 4,2 MOVE 3,L2794 MOVE 2,0(15) HRRZI 1,30 PUSHJ 15,L2553 JRST L2813 L2806: MOVE 1,0(15) PUSHJ 15,SYMFNC+689 JRST L2813 L2805: MOVE 1,0(15) PUSHJ 15,SYMFNC+690 JRST L2813 L2804: MOVE 1,0(15) PUSHJ 15,SYMFNC+691 JRST L2813 L2808: MOVE 1,0(15) PUSHJ 15,SYMFNC+677 JRST L2813 L2807: MOVE 1,0(15) PUSHJ 15,SYMFNC+683 JRST L2813 L2809: MOVE 1,0(15) PUSHJ 15,SYMFNC+685 JRST L2813 L2801: MOVE 4,2 MOVE 3,L2795 MOVE 2,0(15) HRRZI 1,20 PUSHJ 15,L2553 L2813: MOVE 1,-1(15) ADJSP 15,-2 POPJ 15,0 L2784: point 6,2,5 L2787: point 30,6,35 L2788: 536870912 L2789: -536870912 L2795: <30_30>+468 L2794: <30_30>+669 L2793: <30_30>+665 L2792: <30_30>+675 L2791: <30_30>+660 L2790: <30_30>+672 L2786: <30_30>+671 L2785: <30_30>+666 1 ; (!*ENTRY PRIN2 EXPR 1) PRIN2: intern PRIN2 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+356 2 ; (!*ENTRY CHANNELPRIN1 EXPR 2) L2814: intern L2814 SETZM 3 JRST SYMFNC+682 3 ; (!*ENTRY RECURSIVECHANNELPRIN1 EXPR 3) L2827: intern L2827 PUSH 15,2 PUSH 15,1 LDB 1,L2815 CAIL 1,0 CAILE 1,10 JRST L2828 JRST @L2829-0(1) L2829: IFIW L2830 IFIW L2831 IFIW L2832 IFIW L2833 IFIW L2834 IFIW L2835 IFIW L2836 IFIW L2837 IFIW L2838 IFIW L2839 IFIW L2840 L2828: CAIN 1,15 JRST L2841 CAIN 1,29 JRST L2842 CAIN 1,30 JRST L2843 CAIE 1,63 JRST L2832 L2830: MOVE 4,2 MOVE 3,L2816 MOVE 2,0(15) HRRZI 1,10 PUSHJ 15,L2553 JRST L2844 L2843: MOVE 4,2 MOVE 3,L2817 MOVE 2,0(15) MOVE 1,4 TLZ 1,258048 MOVE 5,SYMNAM(1) TLZ 5,258048 MOVE 6,0(5) LDB 1,L2818 TDNE 1,L2819 TDO 1,L2820 ADDI 1,5 PUSHJ 15,L2553 JRST L2844 L2842: MOVE 4,2 MOVE 3,L2821 MOVE 2,0(15) MOVE 1,4 TLZ 1,258048 MOVE 5,SYMNAM(1) TLZ 5,258048 MOVE 6,0(5) LDB 1,L2818 TDNE 1,L2819 TDO 1,L2820 ADDI 1,16 PUSHJ 15,L2553 JRST L2844 L2834: MOVE 4,2 MOVE 3,L2822 MOVE 2,0(15) MOVE 5,4 TLZ 5,258048 MOVE 6,0(5) LDB 1,L2818 TDNE 1,L2819 TDO 1,L2820 ADDI 1,4 PUSHJ 15,L2553 JRST L2844 L2841: MOVE 4,2 MOVE 3,L2823 MOVE 2,0(15) HRRZI 1,14 PUSHJ 15,L2553 JRST L2844 L2831: MOVE 4,2 MOVE 3,L2824 MOVE 2,0(15) HRRZI 1,20 PUSHJ 15,L2553 JRST L2844 L2833: MOVE 4,2 MOVE 3,L2825 MOVE 2,0(15) HRRZI 1,20 PUSHJ 15,L2553 JRST L2844 L2837: MOVE 1,0(15) PUSHJ 15,SYMFNC+689 JRST L2844 L2836: MOVE 1,0(15) PUSHJ 15,SYMFNC+690 JRST L2844 L2835: MOVE 1,0(15) PUSHJ 15,SYMFNC+691 JRST L2844 L2839: MOVE 1,0(15) PUSHJ 15,SYMFNC+681 JRST L2844 L2838: MOVE 1,0(15) PUSHJ 15,SYMFNC+684 JRST L2844 L2840: MOVE 1,0(15) PUSHJ 15,SYMFNC+688 JRST L2844 L2832: MOVE 4,2 MOVE 3,L2826 MOVE 2,0(15) HRRZI 1,20 PUSHJ 15,L2553 L2844: MOVE 1,-1(15) ADJSP 15,-2 POPJ 15,0 L2815: point 6,2,5 L2818: point 30,6,35 L2819: 536870912 L2820: -536870912 L2826: <30_30>+468 L2825: <30_30>+669 L2824: <30_30>+665 L2823: <30_30>+675 L2822: <30_30>+670 L2821: <30_30>+674 L2817: <30_30>+673 L2816: <30_30>+666 1 ; (!*ENTRY PRIN1 EXPR 1) PRIN1: intern PRIN1 MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+308 L2847: 19 byte(7)67,111,117,108,100,110,39,116,32,112,114,105,110,116,32,102,108,111,97,116,0 2 ; (!*ENTRY WRITEFLOAT EXPR 2) L2848: intern L2848 MOVE 6,1 AOS 1 HRLI 1,147904 MOVE 7,1 MOVE 3,1(2) MOVE 2,0(2) MOVE 4,L2845 DFOUT JRST L2849 SETOM 4 L2850: CAMN 1,7 JRST L2851 IBP 7 AOJA 4,L2850 L2851: MOVEM 4,0(6) SETZM 2 IDPB 4,1 POPJ 15,0 L2849: MOVE 1,L2846 JRST SYMFNC+507 L2845: 2686452736 L2846: <4_30>+<1_18>+L2847 15 ; (!*ENTRY PRINTF EXPR 15) PRINTF: intern PRINTF JSP 10,SYMFNC+443 byte(18)1,693 MOVE 1,SYMVAL+693 PUSHJ 15,L2852 JSP 10,SYMFNC+447 1 POPJ 15,0 ; (!*ENTRY PRINTF1 EXPR 15) L2852: intern L2852 PUSH 15,2 XMOVEI 1,0(15) PUSH 15,3 PUSH 15,4 PUSH 15,5 PUSH 15,L0002+0 PUSH 15,L0002+1 PUSH 15,L0002+2 PUSH 15,L0002+3 PUSH 15,L0002+4 PUSH 15,L0002+5 PUSH 15,L0002+6 PUSH 15,L0002+7 PUSH 15,L0002+8 PUSH 15,L0002+9 PUSHJ 15,L2853 ADJSP 15,-14 POPJ 15,0 L2858: 36 byte(7)85,110,107,110,111,119,110,32,99,104,97,114,97,99,116,101,114,32,99,111,100,101,32,102,111,114,32,80,114,105,110,116,70,58,32,37,114,0 ; (!*ENTRY PRINTF2 EXPR 1) L2853: intern L2853 ADJSP 15,5 MOVEM 1,0(15) MOVEM 0,-3(15) MOVEM 0,-4(15) MOVE 3,SYMVAL+693 TLZ 3,258048 MOVE 6,0(3) LDB 2,L2854 TDNE 2,L2855 TDO 2,L2856 MOVEM 2,-1(15) SETZM -2(15) L2859: MOVE 6,-2(15) CAMLE 6,-1(15) JRST L2860 MOVE 2,-2(15) MOVE 1,SYMVAL+693 TLZ 1,258048 AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) CAIN 1,37 JRST L2861 PUSHJ 15,SYMFNC+467 JRST L2862 L2861: AOS -2(15) MOVE 2,-2(15) MOVE 1,SYMVAL+693 TLZ 1,258048 AOS 1 TLO 1,204800 ADJBP 2,1 LDB 1,2 MOVEM 1,-3(15) CAIGE 1,97 JRST L2863 CAILE 1,122 JRST L2863 SUBI 1,32 L2863: MOVEM 1,-4(15) CAIN 1,37 JRST L2864 CAIL 1,66 CAILE 1,70 JRST L2865 JRST @L2866-66(1) L2866: IFIW L2867 IFIW L2868 IFIW L2869 IFIW L2870 IFIW L2871 L2865: CAIL 1,76 CAILE 1,88 JRST L2872 JRST @L2873-76(1) L2873: IFIW L2874 IFIW L2875 IFIW L2876 IFIW L2877 IFIW L2878 IFIW L2875 IFIW L2879 IFIW L2880 IFIW L2881 IFIW L2875 IFIW L2875 IFIW L2882 IFIW L2883 L2872: JRST L2875 L2867: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+360 AOS 0(15) JRST L2862 L2868: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+467 AOS 0(15) JRST L2862 L2869: HRRZI 2,10 MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+664 AOS 0(15) JRST L2862 L2870: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+261 AOS 0(15) JRST L2862 L2871: PUSHJ 15,SYMFNC+623 JUMPLE 1,L2862 HRRZI 1,10 PUSHJ 15,SYMFNC+467 JRST L2862 L2874: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+694 AOS 0(15) JRST L2862 L2876: HRRZI 1,10 PUSHJ 15,SYMFNC+467 JRST L2862 L2877: HRRZI 2,8 MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+664 AOS 0(15) JRST L2862 L2883: HRRZI 2,16 MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+664 AOS 0(15) JRST L2862 L2878: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+470 AOS 0(15) JRST L2862 L2879: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+695 AOS 0(15) JRST L2862 L2880: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+661 AOS 0(15) JRST L2862 L2881: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+363 AOS 0(15) JRST L2862 L2882: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+692 AOS 0(15) JRST L2862 L2864: HRRZI 1,37 PUSHJ 15,SYMFNC+467 JRST L2862 L2875: MOVE 2,-3(15) HRLI 2,122880 MOVE 1,L2857 PUSHJ 15,SYMFNC+155 PUSHJ 15,SYMFNC+156 L2862: AOS -2(15) JRST L2859 L2860: MOVE 1,0 ADJSP 15,-5 POPJ 15,0 L2854: point 30,6,35 L2855: 536870912 L2856: -536870912 L2857: <4_30>+<1_18>+L2858 5 ; (!*ENTRY ERRORPRINTF EXPR 5) L2884: intern L2884 ADJSP 15,6 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVEM 4,-3(15) MOVEM 5,-4(15) MOVE 1,SYMVAL+476 PUSHJ 15,SYMFNC+477 MOVEM 1,-5(15) MOVE 3,SYMVAL+476 SKIPG L2257(3) JRST L2885 PUSHJ 15,SYMFNC+444 L2885: MOVE 5,-4(15) MOVE 4,-3(15) MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+461 MOVE 2,SYMVAL+476 SKIPG L2257(2) JRST L2886 PUSHJ 15,SYMFNC+444 L2886: MOVE 1,-5(15) PUSHJ 15,SYMFNC+477 MOVE 1,0 ADJSP 15,-6 POPJ 15,0 L2889: 48 byte(7)66,117,102,102,101,114,32,111,118,101,114,102,108,111,119,32,119,104,105,108,101,32,99,111,110,115,116,114,117,99,116,105,110,103,32,101,114,114,111,114,32,109,101,115,115,97,103,101,58,0 L2890: 24 byte(7)84,104,101,32,116,114,117,110,99,97,116,101,100,32,114,101,115,117,108,116,32,119,97,115,58,0 2 ; (!*ENTRY TOSTRINGWRITECHAR EXPR 2) L2891: intern L2891 MOVE 7,L2110 CAIGE 7,4999 JRST L2892 HRRZI 6,80 MOVEM 6,L2110 SETZM 3 HRRZI 2,80 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 XMOVEI 1,L2110 TLZ 1,258048 TLO 1,16384 PUSHJ 15,SYMFNC+395 MOVE 4,1 MOVE 3,L2887 MOVE 2,SYMVAL+693 MOVE 1,L2888 PUSHJ 15,SYMFNC+250 JRST SYMFNC+156 L2892: AOS L2110 MOVE 3,2 MOVE 2,L2110 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 POPJ 15,0 L2888: <4_30>+<1_18>+L2889 L2887: <4_30>+<1_18>+L2890 5 ; (!*ENTRY BLDMSG EXPR 5) BLDMSG: intern BLDMSG ADJSP 15,6 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVEM 4,-3(15) MOVEM 5,-4(15) SETZM 2+L2257 SETOM L2110 MOVE 6,SYMVAL+311 MOVEM 6,-5(15) HRRZI 6,2 MOVEM 6,SYMVAL+311 PUSHJ 15,SYMFNC+461 SETZM 3 MOVE 2,L2110 AOS 2 XMOVEI 1,1+L2110 TLO 1,204800 ADJBP 2,1 DPB 3,2 MOVE 6,-5(15) MOVEM 6,SYMVAL+311 XMOVEI 1,L2110 ADJSP 15,-6 JRST SYMFNC+395 1 ; (!*ENTRY ERRPRIN EXPR 1) L2893: intern L2893 PUSH 15,1 HRRZI 1,96 PUSHJ 15,SYMFNC+467 MOVE 1,0(15) PUSHJ 15,SYMFNC+470 HRRZI 1,39 ADJSP 15,-1 JRST SYMFNC+467 1 ; (!*ENTRY PRIN2L EXPR 1) PRIN2L: intern PRIN2L PUSH 15,1 CAMN 1,0 JRST L2895 LDB 11,L2894 CAIN 11,9 JRST L2896 ADJSP 15,-1 JRST SYMFNC+692 L2896: MOVE 1,0(15) MOVE 1,0(1) PUSHJ 15,SYMFNC+692 MOVE 1,0(15) MOVE 1,1(1) MOVEM 1,0(15) LDB 11,L2894 CAIN 11,9 JRST L2897 MOVE 1,0 JRST L2898 L2897: MOVE 1,SYMVAL+84 L2898: CAME 1,0 JRST L2899 MOVE 1,0 JRST L2900 L2899: MOVE 1,SYMVAL+311 PUSHJ 15,SYMFNC+676 JRST L2896 L2900: CAMN 0,0(15) JRST L2895 MOVE 1,SYMVAL+311 PUSHJ 15,SYMFNC+676 MOVE 1,0(15) ADJSP 15,-1 JRST SYMFNC+692 L2895: MOVE 1,0 ADJSP 15,-1 POPJ 15,0 L2894: point 6,1,5 15 ; (!*ENTRY CHANNELPRINTF EXPR 15) L2901: intern L2901 ADJSP 15,13 MOVEM 2,0(15) MOVEM 3,-1(15) MOVEM 4,-2(15) MOVEM 5,-3(15) XMOVEI 6,L0002+0 MOVEM 6,-4(15) XMOVEI 6,L0002+1 MOVEM 6,-5(15) XMOVEI 6,L0002+2 MOVEM 6,-6(15) XMOVEI 6,L0002+3 MOVEM 6,-7(15) XMOVEI 6,L0002+4 MOVEM 6,-8(15) XMOVEI 6,L0002+5 MOVEM 6,-9(15) XMOVEI 6,L0002+6 MOVEM 6,-10(15) XMOVEI 6,L0002+7 MOVEM 6,-11(15) XMOVEI 6,L0002+8 MOVEM 6,-12(15) JSP 10,SYMFNC+443 byte(18)1,311 XMOVEI 6,L0002+9 MOVEM 6,L0002+8 MOVE 6,-12(15) MOVEM 6,L0002+7 MOVE 6,-11(15) MOVEM 6,L0002+6 MOVE 6,-10(15) MOVEM 6,L0002+5 MOVE 6,-9(15) MOVEM 6,L0002+4 MOVE 6,-8(15) MOVEM 6,L0002+3 MOVE 6,-7(15) MOVEM 6,L0002+2 MOVE 6,-6(15) MOVEM 6,L0002+1 MOVE 6,-5(15) MOVEM 6,L0002+0 MOVE 5,-4(15) MOVE 4,-3(15) MOVE 3,-2(15) MOVE 2,-1(15) MOVE 1,0(15) PUSHJ 15,SYMFNC+461 JSP 10,SYMFNC+447 1 ADJSP 15,-13 POPJ 15,0 2 ; (!*ENTRY EXPLODEWRITECHAR EXPR 2) L2902: intern L2902 MOVE 1,2 HRLI 1,122880 PUSHJ 15,SYMFNC+172 MOVE 7,SYMVAL+697 MOVEM 1,1(7) MOVEM 1,SYMVAL+697 POPJ 15,0 1 ; (!*ENTRY EXPLODE EXPR 1) L2903: intern L2903 ADJSP 15,2 MOVEM 1,0(15) MOVE 1,0 PUSHJ 15,SYMFNC+172 MOVE 2,1 MOVEM 2,SYMVAL+697 MOVEM 2,-1(15) SETZM 3+L2257 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,SYMFNC+308 MOVE 1,-1(15) MOVE 1,1(1) ADJSP 15,-2 POPJ 15,0 1 ; (!*ENTRY EXPLODE2 EXPR 1) L2904: intern L2904 ADJSP 15,2 MOVEM 1,0(15) MOVE 1,0 PUSHJ 15,SYMFNC+172 MOVE 2,1 MOVEM 2,SYMVAL+697 MOVEM 2,-1(15) SETZM 3+L2257 MOVE 2,0(15) HRRZI 1,3 PUSHJ 15,SYMFNC+356 MOVE 1,-1(15) MOVE 1,1(1) ADJSP 15,-2 POPJ 15,0 extern L2905 2 ; (!*ENTRY FLATSIZEWRITECHAR EXPR 2) L2906: intern L2906 AOS L2905 MOVE 1,L2905 POPJ 15,0 1 ; (!*ENTRY FLATSIZE EXPR 1) L2907: intern L2907 SETZM L2905 SETZM 4+L2257 MOVE 2,1 HRRZI 1,4 PUSHJ 15,SYMFNC+308 MOVE 1,L2905 POPJ 15,0 1 ; (!*ENTRY FLATSIZE2 EXPR 1) L2908: intern L2908 SETZM L2905 SETZM 4+L2257 MOVE 2,1 HRRZI 1,4 PUSHJ 15,SYMFNC+356 MOVE 1,L2905 POPJ 15,0 extern L2909 1 ; (!*ENTRY COMPRESSREADCHAR EXPR 1) L2911: intern L2911 MOVE 5,1 MOVE 4,0 CAMN 0,L2909 JRST L2912 JRST SYMFNC+701 L2912: LDB 11,L2910 CAIN 11,9 JRST L2913 MOVE 6,SYMVAL+84 MOVEM 6,L2909 HRRZI 1,32 POPJ 15,0 L2913: MOVE 2,SYMVAL+702 MOVE 2,0(2) MOVE 4,2 MOVE 3,SYMVAL+702 MOVE 3,1(3) MOVEM 3,SYMVAL+702 MOVE 1,2 JRST SYMFNC+135 L2910: point 6,<SYMVAL+702>,5 0 ; (!*ENTRY CLEARCOMPRESSCHANNEL EXPR 0) L2914: intern L2914 SETZM 3+L2256 MOVE 1,0 MOVEM 1,L2909 POPJ 15,0 L2916: 37 byte(7)80,111,111,114,108,121,32,102,111,114,109,101,100,32,83,45,101,120,112,114,101,115,115,105,111,110,32,105,110,32,67,79,77,80,82,69,83,83,0 0 ; (!*ENTRY COMPRESSERROR EXPR 0) L2917: intern L2917 MOVE 1,L2915 JRST SYMFNC+156 L2915: <4_30>+<1_18>+L2916 1 ; (!*ENTRY COMPRESS EXPR 1) L2918: intern L2918 JSP 10,SYMFNC+443 byte(18)1,702 JSP 10,SYMFNC+443 byte(18)0,647 MOVE 6,SYMVAL+84 MOVEM 6,SYMVAL+647 PUSHJ 15,SYMFNC+703 HRRZI 1,3 PUSHJ 15,SYMFNC+636 JSP 10,SYMFNC+447 1 JSP 10,SYMFNC+447 1 POPJ 15,0 1 ; (!*ENTRY IMPLODE EXPR 1) L2919: intern L2919 JSP 10,SYMFNC+443 byte(18)1,702 PUSHJ 15,SYMFNC+703 HRRZI 1,3 PUSHJ 15,SYMFNC+636 JSP 10,SYMFNC+447 1 POPJ 15,0 1 ; (!*ENTRY CHANNELTYI EXPR 1) L2920: intern L2920 JRST SYMFNC+598 2 ; (!*ENTRY CHANNELTYO EXPR 2) L2921: intern L2921 PUSH 15,1 MOVE 1,2 PUSHJ 15,SYMFNC+135 MOVE 2,1 MOVE 1,0(15) ADJSP 15,-1 JRST SYMFNC+359 0 ; (!*ENTRY TYI EXPR 0) TYI: intern TYI MOVE 1,SYMVAL+600 JRST SYMFNC+706 1 ; (!*ENTRY TYO EXPR 1) TYO: intern TYO MOVE 2,1 MOVE 1,SYMVAL+311 JRST SYMFNC+707 end