File psl-1983/3-1/kernel/20/io.mac from the latest check-in


	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


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]