Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/kcc/ccsym.fai
There are no other files named ccsym.fai in the archive.
	TITLE	CCSYM
	.REQUEST C:LIBc.REL
	$$CVER==<2,,3>
	INTERN $$CVER
	OPDEF ADJBP [IBP]
DEFINE %%CHBP(A,M)
<	SETO A,
	ADJBP A,M
>
IFNDEF ERJMP,< OPDEF ERJMP [JUMP 16,] >
OPDEF ERJMPA [ERJMP]
OPDEF	XMOVEI	[SETMI]
	DEFINE IFIW <SETZ >
OPDEF XBLT [020000,,0]
	TWOSEG	400000	
	RELOC	0	
	RELOC	400000	
	DEFINE %%CODE <RELOC>
	DEFINE %%DATA <RELOC>
PURGE IFE,IFN,IFG,IFGE,IFL,IFLE,IFDEF,IFNDEF,IFIDN,IFDIF

	%%DATA
%SYMFL:	0
%NSYMB:	0

	%%CODE
SYMINI:
	ADJSP 17,4
	SETZB 3,%CHMAS
	MOVEM 3,-1(17)
	MOVEM 3,-3(17)
$1==.
	MOVE 4,-3(17)
	TLC 4,400000
	MOVEI 3,4
	TLC 3,400000
	CAML 4,3
	 JRST $2
	MOVEI 5,777
	MOVE 10,-3(17)
	ADJBP 10,[331100,,-1(17)]
	DPB 5,10
	MOVE 7,-1(17)
	AOS 6,-3(17)
	MOVEM 7,%CHMAS(6)
	JRST $1
$2==.
	SETCM 3,%CHMAS*1+3
	MOVEM 3,%LASTW
	PUSHJ 17,%LABIN
	PUSHJ 17,%SMAPI
	XMOVEI 3,%SYMTA
	PUSH 17,3
	XMOVEI 4,SYMBOL
	PUSH 17,4
	PUSHJ 17,%INISY
	XMOVEI 3,%LOCTA
	MOVEM 3,-1(17)
	XMOVEI 4,%LOCSY
	MOVEM 4,0(17)
	PUSHJ 17,%INISY
	ADJSP 17,-2
	SETZB 4,LSYMHE
	MOVEM 4,-3(17)
$4==.
	AOS 6,-3(17)
	SETZB 4,HTABLE*1-1(6)
	CAIGE 6,10000
	 JRST $4
	MOVEM 4,-3(17)
$7==.
	AOS 7,-3(17)
	CAIL 7,206
	 JRST $8
	HLRE 3,TOK(7)
	CAIL 3,11
	 CAIL 3,15
	 JRST $7
	HRRE 10,TOK(7)
	MOVEM 10,-2(17)
	TRNN 10,300
	 JRST $10
	TRNE 10,100
	 SKIPA 5,CLEVEL
	 TRNA 
	 SOJG 5,$10
	TRNE 10,200
	 SKIPN 6,CLEVKC
	 JRST $7
$10==.
	MOVE 3,-3(17)
	PUSH 17,TOKSTR(3)
	PUSHJ 17,SYMGCR
	ADJSP 17,-1
	MOVEM 1,0(17)
	MOVEI 3,2
	MOVEM 3,0(1)
	MOVE 7,-3(17)
	MOVEM 7,12(1)
	HLRE 4,TOK(7)
	MOVEM 4,13(1)
	JRST $7
$8==.
	MOVE 4,%SYMTA
	MOVEM 4,MINSYM
	ADJSP 17,-4
	JRST %TYPEI
%INISY:
	ADJSP 17,2
	MOVE 4,-3(17)
	SKIPE 3,0(4)
	 JRST $14
	PUSH 17,[110]
	PUSHJ 17,MALLOC
	ADJSP 17,-1
	TLZ 1,$$BPPS
	MOVEM 1,-1(17)
	JUMPN 1,$13
	PUSH 17,[$$BP90+$$SECT,,$15]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
	JRST $13
$14==.
	MOVE 4,-3(17)
	MOVE 3,0(4)
	MOVE 5,17(3)
	MOVEM 5,0(17)
$16==.
	MOVE 7,0(17)
	MOVEM 7,-1(17)
	JUMPE 7,$17
	MOVE 3,0(7)
	SOJN 3,$18
	SKIPN 5,13(7)
	 JRST $18
	PUSH 17,5
	PUSHJ 17,FREE
	ADJSP 17,-1
$18==.
	MOVE 6,-1(17)
	MOVE 3,17(6)
	MOVEM 3,0(17)
	PUSH 17,6
	PUSHJ 17,%RETSY
	ADJSP 17,-1
	JRST $16
$17==.
	MOVE 4,-3(17)
	MOVE 3,0(4)
	MOVEM 3,-1(17)
$13==.
	MOVE 10,-1(17)
	MOVE 5,-4(17)
	MOVEM 10,0(5)
	MOVE 6,-3(17)
	MOVEM 10,0(6)
	SETZB 4,16(10)
	MOVEM 4,17(10)
	MOVEM 4,0(10)
	ADJSP 17,-2
	POPJ 17,
$15==.
	BYTE	(9) 116,157,40,155
	BYTE	(9) 145,155,157,162
	BYTE	(9) 171,40,146,157
	BYTE	(9) 162,40,163,171
	BYTE	(9) 155,142,157,154
	BYTE	(9) 163,0
	

SYMFIN:
	ADJSP 17,24
	PUSH 17,-25(17)
	XMOVEI 3,-22(17)
	PUSH 17,3
	PUSHJ 17,%IDCPY
	ADJSP 17,-2
	MOVEM 1,-22(17)
	MOVE 4,-7(17)
	MOVE 3,HTABLE(4)
	MOVEM 3,-23(17)
$19==.
	SKIPN 7,-23(17)
	 JRST $20
	MOVE 3,1(7)
	TRNE 3,7002
	 JRST $21
	XMOVEI 4,-21(17)
	PUSH 17,4
	PUSH 17,7
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$21
	MOVE 7,-23(17)
	SKIPE 3,0(7)
	 AOSA 5,20(7)
	 TRNA 
	 JRST $20
$21==.
	MOVE 4,-23(17)
	MOVE 3,21(4)
	MOVEM 3,-23(17)
	JRST $19
$20==.
	SKIPE 4,-23(17)
	 JRST $22
	SKIPE 1,-26(17)
	 JRST $23
	ADJSP 17,-24
	POPJ 17,
$23==.
	XMOVEI 3,%SYMTA
	PUSH 17,3
	PUSH 17,-10(17)
	XMOVEI 4,-23(17)
	PUSH 17,4
	PUSHJ 17,%SYMMK
	ADJSP 17,-3
	MOVEM 1,-23(17)
$22==.
	SKIPN 4,-22(17)
	 JRST $24
	PUSH 17,-23(17)
	PUSH 17,[$$BP90+$$SECT,,$25]
	PUSHJ 17,NOTE
	ADJSP 17,-2
$24==.
	MOVE 1,-23(17)
	ADJSP 17,-24
	POPJ 17,
$25==.
	BYTE	(9) 111,144,145,156
	BYTE	(9) 164,151,146,145
	BYTE	(9) 162,40,164,162
	BYTE	(9) 165,156,143,141
	BYTE	(9) 164,145,144,72
	BYTE	(9) 40,45,123,0
	

SYMFID:
	ADJSP 17,1
	PUSH 17,[0]
	PUSH 17,-3(17)
	PUSHJ 17,SYMFIN
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$26
	MOVE 3,0(1)
	SOJN 3,$26
	PUSH 17,1
	PUSHJ 17,SYMFNE
	ADJSP 17,-1
	MOVEM 1,0(17)
$26==.
	POP 17,1
	POPJ 17,
SYMFNE:
	PUSH 17,-1(17)
$27==.
	MOVE 4,0(17)
	MOVE 7,21(4)
	MOVEM 7,0(17)
	JUMPE 7,$28
	MOVE 3,1(7)
	TRNE 3,7042
	 JRST $27
	PUSH 17,-2(17)
	PUSH 17,7
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$27
	MOVE 5,0(17)
	AOS 3,20(5)
$28==.
	POP 17,1
	POPJ 17,
FINDGS:
	PUSH 17,-1(17)
$29==.
	MOVE 4,0(17)
	MOVE 7,21(4)
	MOVEM 7,0(17)
	JUMPE 7,$30
	MOVE 3,1(7)
	TRNE 3,7043
	 JRST $29
	PUSH 17,-2(17)
	PUSH 17,7
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$29
	MOVE 5,0(17)
	AOS 3,20(5)
$30==.
	POP 17,1
	POPJ 17,
SYMFLA:
	PUSH 17,[4000]
	PUSH 17,-2(17)
	PUSHJ 17,%SYMFF
	ADJSP 17,-2
	POPJ 17,
SYMFTA:
	PUSH 17,[2000]
	PUSH 17,-2(17)
	PUSHJ 17,%SYMFF
	ADJSP 17,-2
	POPJ 17,
%SYMFF:
	PUSH 17,-1(17)
	MOVE 6,-2(17)
	SKIPN 3,0(6)
	 JRST $31
	SOS 5,20(6)
	PUSH 17,6
	PUSHJ 17,%SYMHA
	ADJSP 17,-1
	MOVE 3,HTABLE(1)
	MOVEM 3,0(17)
$31==.
$32==.
	MOVE 5,0(17)
	MOVE 3,1(5)
	ANDI 3,7042
	CAME 3,-3(17)
	 JRST $34
	CAMN 5,-2(17)
	 JRST $35
	PUSH 17,5
	PUSH 17,-3(17)
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$34
$35==.
	MOVE 5,0(17)
	AOS 3,20(5)
	JRST $33
$34==.
	MOVE 4,0(17)
	MOVE 3,21(4)
	MOVEM 3,0(17)
	JUMPN 3,$32
$33==.
	POP 17,1
	POPJ 17,
SYMFME:
	PUSH 17,-1(17)
	MOVE 6,-2(17)
	SKIPN 3,0(6)
	 JRST $36
	SOS 5,20(6)
	PUSH 17,6
	PUSHJ 17,%SYMHA
	ADJSP 17,-1
	MOVE 3,HTABLE(1)
	MOVEM 3,0(17)
$36==.
$37==.
	MOVE 6,0(17)
	MOVE 3,1(6)
	ANDI 3,7042
	CAIE 3,1000
	 JRST $39
	MOVE 4,15(6)
	CAME 4,-3(17)
	 JRST $39
	CAMN 6,-2(17)
	 JRST $40
	PUSH 17,6
	PUSH 17,-3(17)
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$39
$40==.
	MOVE 5,0(17)
	AOS 3,20(5)
	JRST $38
$39==.
	MOVE 4,0(17)
	MOVE 3,21(4)
	MOVEM 3,0(17)
	JUMPN 3,$37
$38==.
	POP 17,1
	POPJ 17,
SYMFXE:
	PUSH 17,-1(17)
	MOVE 1,-2(17)
	SKIPN 3,0(1)
	 JRST $41
	ADJSP 17,-1
	POPJ 17,
$41==.
$42==.
	MOVE 4,0(17)
	MOVE 7,21(4)
	MOVEM 7,0(17)
	JUMPE 7,$43
	MOVE 3,0(7)
	CAIE 3,10
	 JRST $42
	PUSH 17,7
	PUSH 17,-3(17)
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$42
	PUSH 17,-2(17)
	PUSHJ 17,FREESY
	MOVNI 4,3
	MOVE 1,-1(17)
	ANDB 4,1(1)
	AOS 3,20(1)
	ADJSP 17,-2
	POPJ 17,
$43==.
	MOVE 1,-2(17)
	ADJSP 17,-1
	POPJ 17,
FREESY:
	ADJSP 17,2
	PUSH 17,-3(17)
	PUSHJ 17,%SYMHA
	ADJSP 17,-1
	MOVEM 1,0(17)
	MOVE 4,HTABLE(1)
	MOVEM 4,-1(17)
	CAME 4,-3(17)
	 JRST $45
	MOVE 3,21(4)
	MOVEM 3,HTABLE(1)
	JRST $44
$45==.
$46==.
	SKIPE 4,-1(17)
	 JRST $49
	PUSH 17,[$$BP90+$$SECT,,$50]
	PUSHJ 17,INT.ER
	ADJSP 17,-3
	POPJ 17,
$49==.
	MOVE 6,-1(17)
	MOVE 4,21(6)
	CAMN 4,-3(17)
	 JRST $47
	MOVEM 4,-1(17)
	JRST $46
$47==.
	MOVE 4,-3(17)
	MOVE 3,21(4)
	MOVE 6,-1(17)
	MOVEM 3,21(6)
$44==.
	ADJSP 17,-2
	JRST %RETSY
$50==.
	BYTE	(9) 146,162,145,145
	BYTE	(9) 163,171,155,72
	BYTE	(9) 40,163,171,155
	BYTE	(9) 40,156,157,164
	BYTE	(9) 40,157,156,40
	BYTE	(9) 150,141,163,150
	BYTE	(9) 40,154,151,163
	BYTE	(9) 164,0
	

CREATS:
	SKIPN 4,LSYMHE
	 JRST SYMGCR
	ADJSP 17,1
	XMOVEI 3,%LOCTA
	PUSH 17,3
	PUSH 17,-3(17)
	PUSHJ 17,%MKSYM
	MOVEI 4,1
	IORB 4,1(1)
	ADJSP 17,-3
	POPJ 17,
SYMGCR:
	XMOVEI 3,%SYMTA
	PUSH 17,3
	PUSH 17,-2(17)
	PUSHJ 17,%MKSYM
	ADJSP 17,-2
	POPJ 17,
%MAKEL:
	MOVE 15,-1(17)
	CAMN 15,%SYMTA
	 SKIPA 3,16(15)
	 TRNA 
	 MOVEM 3,%SYMTA
	SKIPE 6,16(15)
	 SKIPA 5,17(15)
	 TRNA 
	 MOVEM 5,17(6)
	SKIPE 10,17(15)
	 SKIPA 7,16(15)
	 TRNA 
	 MOVEM 7,16(10)
	MOVE 11,%LOCTA
	MOVEM 11,16(15)
	SETZB 4,17(15)
	MOVE 14,%LOCTA
	MOVEM 15,17(14)
	MOVEM 15,%LOCTA
	MOVEI 13,1
	IORB 13,1(15)
	POPJ 17,
%MAKEG:
	MOVE 15,-1(17)
	CAMN 15,%LOCTA
	 SKIPA 3,16(15)
	 TRNA 
	 MOVEM 3,%LOCTA
	SKIPE 6,16(15)
	 SKIPA 5,17(15)
	 TRNA 
	 MOVEM 5,17(6)
	SKIPE 10,17(15)
	 SKIPA 7,16(15)
	 TRNA 
	 MOVEM 7,16(10)
	MOVE 11,%SYMTA
	MOVEM 11,16(15)
	SETZB 4,17(15)
	MOVE 14,%SYMTA
	MOVEM 15,17(14)
	MOVEM 15,%SYMTA
	MOVNI 13,2
	ANDB 13,1(15)
	POPJ 17,
UNIQSY:
	MOVE 7,-1(17)
	SKIPE 3,0(7)
	 SOS 5,20(7)
	JRST SYMQCR
SYMQCR:
	MOVE 7,-1(17)
	SKIPN 3,0(7)
	 JRST $59
	MOVE 4,1(7)
	TRNN 4,200
	 JRST $60
	ADDI 7,2
	TLO 7,$$BP90
	PUSH 17,7
	PUSHJ 17,CREATS
	MOVEM 1,0(17)
	PUSHJ 17,SHMACS
	ADJSP 17,-1
	POPJ 17,
$60==.
	MOVE 4,-1(17)
	ADDI 4,2
	TLO 4,$$BP90
	PUSH 17,4
	PUSHJ 17,CREATS
	ADJSP 17,-1
	POPJ 17,
$59==.
	SKIPN 4,LSYMHE
	 JRST $61
	MOVE 7,-1(17)
	MOVE 3,1(7)
	TRNE 3,1
	 JRST $61
	PUSH 17,7
	PUSHJ 17,%MAKEL
	ADJSP 17,-1
$61==.
	MOVE 1,-1(17)
	POPJ 17,
ISDUPS:
	MOVE 4,-1(17)
	SKIPN 1,0(4)
	 POPJ 17,
	SKIPN 6,LSYMHE
	 SKIPA 1,[1]
	 TRNA 
	 POPJ 17,
	PUSH 17,6
$64==.
	MOVE 4,0(17)
	MOVE 6,17(4)
	MOVEM 6,0(17)
	JUMPE 6,$65
	CAME 6,-2(17)
	 JRST $64
	MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$65==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
%MKSYM:
	ADJSP 17,1
	PUSH 17,-3(17)
	PUSHJ 17,%GETSY
	ADJSP 17,-1
	MOVEM 1,0(17)
	PUSH 17,-2(17)
	PUSH 17,1
	PUSHJ 17,%IDCPY
	MOVE 1,-2(17)
	MOVE 4,12(1)
	MOVE 5,HTABLE(4)
	MOVEM 5,21(1)
	MOVEM 1,HTABLE(4)
	SETZB 3,0(1)
	MOVEM 3,1(1)
	MOVEM 3,13(1)
	MOVEM 3,12(1)
	MOVEM 3,20(1)
	ADJSP 17,-3
	POPJ 17,
%SYMMK:
	ADJSP 17,1
	PUSH 17,-4(17)
	PUSHJ 17,%GETSY
	MOVEM 1,-1(17)
	MOVE 10,-4(17)
	MOVE 4,HTABLE(10)
	MOVEM 4,21(1)
	MOVEM 1,HTABLE(10)
	MOVE 5,-3(17)
	ADDI 1,2
	JUMPGE 17,.+5
	MOVEI 16,(1)
	HRLI 16,2(5)
	BLT 16,7(1)
	JRST .+12
	XMOVEI 16,-1(1)
	PUSH 16,2(5)
	PUSH 16,3(5)
	PUSH 16,4(5)
	PUSH 16,5(5)
	PUSH 16,6(5)
	PUSH 16,7(5)
	PUSH 16,10(5)
	PUSH 16,11(5)
	MOVE 1,-1(17)
	SETZB 3,0(1)
	MOVEM 3,1(1)
	MOVEM 3,13(1)
	MOVEM 3,12(1)
	MOVEM 3,20(1)
	ADJSP 17,-2
	POPJ 17,
SHMACS:
	ADJSP 17,3
	SETZB 3,-1(17)
	MOVEI 5,200
	MOVE 6,-4(17)
	IORB 5,1(6)
	PUSH 17,6
	PUSHJ 17,%SYMHA
	ADJSP 17,-1
	MOVEM 1,0(17)
	MOVE 3,HTABLE(1)
	MOVEM 3,-2(17)
$66==.
	SKIPN 6,-2(17)
	 JRST $67
	MOVE 3,0(6)
	SOJN 3,$68
	PUSH 17,6
	PUSH 17,-5(17)
	PUSHJ 17,%SYMCM
	ADJSP 17,-2
	JUMPE 1,$68
	SKIPN 7,-1(17)
	 JRST $67
	MOVE 10,-2(17)
	MOVE 3,21(10)
	MOVEM 3,21(7)
	MOVE 12,0(17)
	MOVE 6,HTABLE(12)
	MOVEM 6,21(10)
	MOVEM 10,HTABLE(12)
	JRST $67
$68==.
	MOVE 5,-2(17)
	MOVEM 5,-1(17)
	MOVE 3,21(5)
	MOVEM 3,-2(17)
	JRST $66
$67==.
	MOVE 1,-4(17)
	ADJSP 17,-3
	POPJ 17,
%GETSY:
	PUSH 17,%SYMFL
	SKIPN 5,0(17)
	 JRST $70
	MOVE 3,17(5)
	MOVEM 3,%SYMFL
	JRST $69
$70==.
	PUSH 17,[110]
	PUSHJ 17,MALLOC
	ADJSP 17,-1
	TLZ 1,$$BPPS
	MOVEM 1,0(17)
	JUMPN 1,$71
	PUSH 17,[$$BP90+$$SECT,,$72]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
	JRST $69
$71==.
	AOS 3,%NSYMB
$69==.
	MOVE 7,-2(17)
	MOVE 3,0(7)
	POP 17,1
	MOVEM 3,16(1)
	SETZB 5,17(1)
	MOVE 4,0(7)
	MOVEM 1,17(4)
	MOVEM 1,0(7)
	POPJ 17,
$72==.
	BYTE	(9) 117,165,164,40
	BYTE	(9) 157,146,40,155
	BYTE	(9) 145,155,157,162
	BYTE	(9) 171,40,146,157
	BYTE	(9) 162,40,163,171
	BYTE	(9) 155,142,157,154
	BYTE	(9) 163,0
	

%RETSY:
	MOVE 5,-1(17)
	CAME 5,%SYMTA
	 JRST $74
	MOVE 3,16(5)
	MOVEM 3,%SYMTA
	JRST $73
$74==.
	MOVE 5,-1(17)
	CAMN 5,%LOCTA
	 SKIPA 3,16(5)
	 TRNA 
	 MOVEM 3,%LOCTA
$73==.
	MOVE 11,-1(17)
	SKIPE 5,16(11)
	 SKIPA 4,17(11)
	 TRNA 
	 MOVEM 4,17(5)
	SKIPE 7,17(11)
	 SKIPA 6,16(11)
	 TRNA 
	 MOVEM 6,16(7)
	MOVE 10,%SYMFL
	MOVEM 10,17(11)
	MOVEM 11,%SYMFL
	POPJ 17,
COPYSY:
	MOVE 4,-2(17)
	MOVE 5,-1(17)
	JUMPGE 17,.+5
	MOVEI 16,(5)
	HRLI 16,0(4)
	BLT 16,13(5)
	JRST .+11
	PUSH 17,14
	PUSH 17,15
	MOVEI 14,14
	XMOVEI 15,0(4)
	MOVE 16,5
	EXTEND 14,[XBLT]
	POP 17,15
	POP 17,14
	POPJ 17,
%IDCMP:
	LDB 3,-1(17)
	LDB 4,-2(17)
	CAME 3,4
	 JRST $77
$78==.
	ILDB 5,-1(17)
	ILDB 4,-2(17)
	CAME 5,4
	 JRST $77
	JUMPN 5,$78
	MOVEI 1,1
	POPJ 17,
$77==.
	SETZ 1,
	POPJ 17,
%SYMCM:
	MOVE 4,-1(17)
	ADDI 4,2
	PUSH 17,4
	MOVE 5,-3(17)
	ADDI 5,2
	PUSH 17,5
$79==.
	MOVE 7,-1(17)
	MOVE 4,0(7)
	MOVE 6,0(17)
	CAME 4,0(6)
	 JRST $80
	TDNE 4,%LASTW
	 JRST $81
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$81==.
	AOS 3,-1(17)
	AOS 4,0(17)
	JRST $79
$80==.
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
%IDCPY:
	PUSH 17,[40]
	MOVE 6,-2(17)
	ADDI 6,2
	TLO 6,$$BP90
	PUSH 17,6
	LDB 3,-4(17)
	DPB 3,6
	PUSH 17,3
	JUMPE 3,$82
	SOS 4,-2(17)
$83==.
	ILDB 3,-5(17)
	IDPB 3,-1(17)
	JUMPE 3,$82
	SOSG 4,-2(17)
	 JRST $84
	LDB 7,-5(17)
	ADD 7,0(17)
	ADDB 7,0(17)
	JRST $83
$84==.
	SETZ 3,
	DPB 3,-1(17)
	POP 17,5
	ANDI 5,7777
	MOVE 6,-3(17)
	MOVEM 5,12(6)
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$82==.
	MOVEI 6,40
	ADDI 6,1
	SUB 6,-2(17)
	ANDI 6,3
	MOVEM 6,-2(17)
	JUMPE 6,$85
	MOVE 4,%CHMAS(6)
	MOVE 5,-1(17)
	TLZ 5,$$BPPS
	AND 4,0(5)
	MOVE 7,-1(17)
	TLZ 7,$$BPPS
	MOVEM 4,0(7)
$85==.
	POP 17,4
	ANDI 4,7777
	MOVE 5,-3(17)
	MOVEM 4,12(5)
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
HASH:
	LDB 3,-1(17)
	PUSH 17,3
	ADJSP 17,1
	JUMPE 3,$86
	MOVEI 4,37
	MOVEM 4,0(17)
$87==.
	SOSG 3,0(17)
	 JRST $86
	ILDB 6,-3(17)
	JUMPE 6,$86
	ADD 6,-1(17)
	ADDB 6,-1(17)
	JRST $87
$86==.
	MOVE 1,-1(17)
	ANDI 1,7777
	ADJSP 17,-2
	POPJ 17,
%SYMHA:
	MOVE 5,-1(17)
	ADDI 5,2
	TLO 5,$$BP90
	PUSH 17,5
	LDB 3,5
	PUSH 17,3
	JUMPE 3,$88
$89==.
	ILDB 5,-1(17)
	JUMPE 5,$88
	ADD 5,0(17)
	ADDB 5,0(17)
	JRST $89
$88==.
	POP 17,1
	ANDI 1,7777
	ADJSP 17,-1
	POPJ 17,
BEGLSY:
	PUSH 17,LSYMHE
	MOVE 4,%LOCTA
	MOVEM 4,LSYMHE
	POP 17,1
	POPJ 17,
ENDLSY:
	PUSH 17,LSYMHE
	MOVE 4,0(17)
	ADJSP 17,1
	JUMPN 4,$91
	PUSH 17,[$$BP90+$$SECT,,$92]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	JRST $90
$91==.
$93==.
	MOVE 4,-1(17)
	MOVE 6,17(4)
	MOVEM 6,-1(17)
	JUMPE 6,$90
	MOVE 3,0(6)
	CAIL 3,11
	 CAIL 3,27
	 JRST $94
	JRST @$99*1-11(3)
$99==.
	IFIW $98
	IFIW $94
	IFIW $94
	IFIW $94
	IFIW $94
	IFIW $94
	IFIW $97
	IFIW $96
	IFIW $96
	IFIW $95
	IFIW $95
	IFIW $94
	IFIW $93
	IFIW $93
$95==.
	MOVE 7,-1(17)
	SKIPE 3,20(7)
	 JRST $94
	MOVE 4,1(7)
	TRNE 4,2
	 JRST $94
	PUSH 17,7
	PUSH 17,[$$BP90+$$SECT,,$100]
	PUSHJ 17,NOTE
	ADJSP 17,-2
	JRST $94
$96==.
	SKIPE 6,-3(17)
	 JRST $94
	MOVE 4,-1(17)
	CAME 6,20(4)
	 JRST $94
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$101]
	PUSHJ 17,NOTE
	ADJSP 17,-2
	JRST $94
$97==.
	MOVE 7,-1(17)
	SKIPE 3,20(7)
	 JRST $94
	MOVE 4,1(7)
	TRNE 4,2
	 JRST $94
	PUSH 17,7
	PUSH 17,[$$BP90+$$SECT,,$102]
	PUSHJ 17,NOTE
	ADJSP 17,-2
	JRST $94
$98==.
	MOVE 7,-1(17)
	MOVE 3,16(7)
	MOVEM 3,0(17)
	SKIPE 4,20(7)
	 JRST $103
	PUSH 17,7
	PUSH 17,[$$BP90+$$SECT,,$104]
	PUSHJ 17,NOTE
	ADJSP 17,-2
	JRST $94
$103==.
	MOVEI 3,10
	MOVE 7,-1(17)
	MOVEM 3,0(7)
	MOVEI 5,2
	IORB 5,1(7)
	PUSH 17,7
	PUSHJ 17,%MAKEG
	ADJSP 17,-1
	MOVE 4,0(17)
	MOVEM 4,-1(17)
	JRST $93
$94==.
	MOVEI 4,2
	MOVE 6,-1(17)
	IORB 4,1(6)
	JRST $93
$90==.
	MOVE 4,-3(17)
	MOVEM 4,LSYMHE
	ADJSP 17,-2
	POPJ 17,
$104==.
	BYTE	(9) 105,170,164,145
	BYTE	(9) 162,156,141,154
	BYTE	(9) 40,45,123,40
	BYTE	(9) 156,157,164,40
	BYTE	(9) 165,163,145,144
	BYTE	(9) 0
	

$102==.
	BYTE	(9) 111,156,164,145
	BYTE	(9) 162,156,141,154
	BYTE	(9) 40,163,164,141
	BYTE	(9) 164,151,143,40
	BYTE	(9) 45,123,40,156
	BYTE	(9) 157,164,40,165
	BYTE	(9) 163,145,144,0
	

$101==.
	BYTE	(9) 120,141,162,141
	BYTE	(9) 155,145,164,145
	BYTE	(9) 162,40,45,123
	BYTE	(9) 40,156,157,164
	BYTE	(9) 40,165,163,145
	BYTE	(9) 144,0
	

$100==.
	BYTE	(9) 101,165,164,157
	BYTE	(9) 40,45,123,40
	BYTE	(9) 156,157,164,40
	BYTE	(9) 165,163,145,144
	BYTE	(9) 0
	

$92==.
	BYTE	(9) 145,156,144,154
	BYTE	(9) 163,171,155,72
	BYTE	(9) 40,164,162,145
	BYTE	(9) 141,164,151,156
	BYTE	(9) 147,40,164,157
	BYTE	(9) 160,40,154,145
	BYTE	(9) 166,145,154,40
	BYTE	(9) 141,163,40,142
	BYTE	(9) 154,157,143,153
	BYTE	(9) 0
	

RIDLSY:
	ADJSP 17,1
	SKIPE 4,-2(17)
	 JRST $106
	MOVE 5,%LOCSY
	MOVEM 5,0(17)
	JRST $105
$106==.
	MOVE 4,LSYMHE
	MOVEM 4,0(17)
	JUMPN 4,$105
	PUSH 17,[$$BP90+$$SECT,,$107]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
	POPJ 17,
$105==.
	SKIPN 4,DEBSYM
	 JRST $108
	MOVE 10,0(17)
	SKIPN 5,17(10)
	 JRST $108
	MOVE 7,CURFN
	ADDI 7,2
	TLO 7,$$BP90
	PUSH 17,7
	PUSH 17,5
	PUSHJ 17,SYMDUM
	ADJSP 17,-2
$108==.
$109==.
	MOVE 5,%LOCTA
	CAMN 5,0(17)
	 JRST $110
	MOVE 3,0(5)
	MOVM 6,3
	IDIVI 6,14
	CAME 3,$116(7)
	 JRST $111
	JRST @$117(7)
$116==.
	 -1
	 -1
	 -1
	 17
	 4
	 5
	 -1
	 -1
	 -1
	 25
	 26
	 -1
$117==.
	IFIW $111
	IFIW $111
	IFIW $111
	IFIW $114
	IFIW $112
	IFIW $112
	IFIW $111
	IFIW $111
	IFIW $111
	IFIW $115
	IFIW $113
	IFIW $111
$112==.
	MOVE 5,%LOCTA
	MOVE 4,1(5)
	TRNN 4,4
	 JRST $111
	IORI 4,2
	MOVEM 4,1(5)
	MOVE 7,%LOCTA
	SETZB 3,14(7)
	PUSH 17,%LOCTA
	PUSHJ 17,%MAKEG
	ADJSP 17,-1
	JRST $109
$113==.
	PUSH 17,%LOCTA
	PUSH 17,[$$BP90+$$SECT,,$118]
	PUSHJ 17,ERROR
	ADJSP 17,-2
$114==.
	MOVE 4,%LOCTA
	PUSH 17,12(4)
	PUSHJ 17,FREELA
	ADJSP 17,-1
	JRST $111
$115==.
	MOVE 6,%LOCTA
	SKIPE 3,20(6)
	 JRST $119
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$120]
	PUSHJ 17,NOTE
	ADJSP 17,-2
$119==.
	MOVE 4,%LOCTA
	PUSH 17,12(4)
	PUSHJ 17,FREELA
	ADJSP 17,-1
$111==.
	PUSH 17,%LOCTA
	PUSHJ 17,FREESY
	ADJSP 17,-1
	JRST $109
$110==.
	MOVE 4,-2(17)
	MOVEM 4,LSYMHE
	ADJSP 17,-1
	POPJ 17,
$120==.
	BYTE	(9) 114,141,142,145
	BYTE	(9) 154,40,45,123
	BYTE	(9) 40,156,145,166
	BYTE	(9) 145,162,40,165
	BYTE	(9) 163,145,144,0
	

$118==.
	BYTE	(9) 107,157,164,157
	BYTE	(9) 40,154,141,142
	BYTE	(9) 145,154,40,45
	BYTE	(9) 123,40,156,145
	BYTE	(9) 166,145,162,40
	BYTE	(9) 144,145,146,151
	BYTE	(9) 156,145,144,0
	

$107==.
	BYTE	(9) 162,151,144,154
	BYTE	(9) 163,171,155,72
	BYTE	(9) 40,164,162,145
	BYTE	(9) 141,164,151,156
	BYTE	(9) 147,40,164,157
	BYTE	(9) 160,40,154,145
	BYTE	(9) 166,145,154,40
	BYTE	(9) 141,163,40,142
	BYTE	(9) 154,157,143,153
	BYTE	(9) 0
	

%SMAPI:
	SKIPN 5,%MAPTA
	 JRST $121
	SKIPE 5,5
	 TLO 5,$$BP90
	PUSH 17,5
	PUSHJ 17,FREE
	ADJSP 17,-1
$121==.
	SETZB 4,%MAPTA
	MOVEM 4,%MAPTU
	MOVEM 4,%MAPTL
	POPJ 17,
%SMAPM:
	PUSH 17,%MAPTA
	PUSH 17,%MAPTU
	ADJSP 17,1
$122==.
	SOSGE 3,-1(17)
	 JRST $123
	AOS 4,-2(17)
	MOVE 5,-1(4)
	CAME 5,-4(17)
	 JRST $122
	MOVEI 1,1
	ADJSP 17,-3
	POPJ 17,
$123==.
	MOVE 4,%MAPTU
	CAMGE 4,%MAPTL
	 JRST $124
	MOVE 5,%MAPTL
	ADDI 5,62
	LSH 5,2
	PUSH 17,5
	SKIPE 6,%MAPTA
	 TLO 6,$$BP90
	PUSH 17,6
	PUSHJ 17,REALLO
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPN 1,$126
	PUSH 17,[$$BP90+$$SECT,,$127]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-4
	POPJ 17,
$126==.
	MOVE 4,0(17)
	TLZ 4,$$BPPS
	MOVEM 4,%MAPTA
	MOVEI 6,62
	ADDB 6,%MAPTL
$124==.
	MOVE 4,-4(17)
	AOS 3,%MAPTU
	ADD 3,%MAPTA
	MOVEM 4,-1(3)
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$127==.
	BYTE	(9) 117,165,164,40
	BYTE	(9) 157,146,40,155
	BYTE	(9) 145,155,157,162
	BYTE	(9) 171,40,146,157
	BYTE	(9) 162,40,163,171
	BYTE	(9) 155,142,157,154
	BYTE	(9) 40,154,151,156
	BYTE	(9) 153,141,147,145
	BYTE	(9) 40,155,141,160
	BYTE	(9) 0
	

MAPEXT:
	PUSH 17,[44]
	ADJSP 17,3
	SETZB 3,-1(17)
	MOVE 6,-5(17)
	ADDI 6,2
	TLO 6,$$BP90
	MOVEM 6,0(17)
	LDB 4,6
	CAIN 4,140
	 JRST $128
	SETO 5,
	ADJBP 5,0(17)
	MOVEM 5,0(17)
$128==.
$129==.
	SKIPG 7,-3(17)
	 JRST $130
	ILDB 5,0(17)
	JUMPE 5,$130
	CAIN 5,137
	 MOVEI 5,56
	MOVEM 5,-2(17)
	TRNN 5,100
	 SKIPA 5,-2(17)
	 TROA 5,40
	 TRZ 5,40
	ANDI 5,77
	SUBI 7,6
	MOVEM 7,-3(17)
	LSH 5,0(7)
	IORB 5,-1(17)
	JRST $129
$130==.
	MOVE 6,-1(17)
	MOVE 5,-5(17)
	MOVEM 6,12(5)
	PUSH 17,6
	PUSHJ 17,%SMAPM
	CAIE 1,0
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-5
	POPJ 17,
MAPINT:
	ADJSP 17,6
	MOVEI 6,6
	MOVEM 6,-2(17)
	XMOVEI 4,-5(17)
	TLO 4,$$BP90
	MOVEM 4,-1(17)
	MOVE 7,-7(17)
	ADDI 7,2
	TLO 7,$$BP90
	MOVEM 7,0(17)
	LDB 5,7
	CAIE 5,140
	 JRST $137
	MOVEM 6,-2(17)
	SETO 3,
	ADJBP 3,-1(17)
	MOVEM 3,-1(17)
	JRST $136
$137==.
	MOVEI 3,5
	MOVEM 3,-2(17)
	SETO 4,
	ADJBP 4,0(17)
	MOVEM 4,0(17)
	MOVEI 5,45
	DPB 5,-1(17)
$136==.
$138==.
	SOSGE 3,-2(17)
	 JRST $139
	ILDB 4,0(17)
	CAIN 4,137
	 MOVEI 4,56
	IDPB 4,-1(17)
	TRNE 4,777
	 JRST $138
$139==.
	SKIPGE 4,-2(17)
	 TDZA 3,3
	 TRNA 
	 IDPB 3,-1(17)
	XMOVEI 5,-5(17)
	TLO 5,$$BP90
	PUSH 17,5
	PUSHJ 17,SIXBIT
	MOVEM 1,-4(17)
	MOVEM 1,0(17)
	PUSHJ 17,%SMAPM
	ADJSP 17,-1
	JUMPN 1,$143
	MOVE 4,-3(17)
	MOVE 5,-7(17)
	MOVEM 4,12(5)
	ADJSP 17,-6
	POPJ 17,
$143==.
	MOVEI 3,4
	MOVEM 3,-2(17)
	XMOVEI 5,-5(17)
	TLO 5,$$BP91
	MOVEM 5,-1(17)
	MOVE 6,-7(17)
	ADDI 6,2
	TLO 6,$$BP90
	MOVEM 6,0(17)
$144==.
	ILDB 7,0(17)
	JUMPE 7,$145
	SKIPN 5,-2(17)
	 JRST $145
	MOVE 3,CTFTAB*1+1(7)
	TRNN 3,40000
	 CAIN 7,137
	 JRST $144
	SOS 4,-2(17)
	IDPB 7,-1(17)
	JRST $144
$145==.
	SETZ 3,
	IDPB 3,-1(17)
	XMOVEI 4,-5(17)
	TLO 4,$$BP90
	PUSH 17,4
	PUSHJ 17,SIXBIT
	MOVEM 1,-4(17)
	MOVEM 1,0(17)
	PUSHJ 17,%SMAPM
	ADJSP 17,-1
	JUMPN 1,$146
	MOVE 4,-3(17)
	MOVE 5,-7(17)
	MOVEM 4,12(5)
	ADJSP 17,-6
	POPJ 17,
$146==.
	SKIPG 4,-2(17)
	 JRST $147
$148==.
	SOSGE 3,-2(17)
	 JRST $149
	MOVEI 4,60
	IDPB 4,-1(17)
	JRST $148
$149==.
	SETZ 3,
	IDPB 3,-1(17)
$147==.
$150==.
	XMOVEI 3,-5(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,SIXBIT
	MOVEM 1,-4(17)
	MOVEM 1,0(17)
	PUSHJ 17,%SMAPM
	ADJSP 17,-1
	JUMPN 1,$152
	MOVE 4,-3(17)
	MOVE 5,-7(17)
	MOVEM 4,12(5)
	ADJSP 17,-6
	POPJ 17,
$152==.
	XMOVEI 4,-4(17)
	TLO 4,$$BP91
	MOVEM 4,-1(17)
$153==.
	LDB 3,-1(17)
	MOVE 4,CTFTAB*1+1(3)
	TRNE 4,20
	 JRST $155
	MOVEI 5,61
	DPB 5,-1(17)
	JRST $150
$155==.
	LDB 4,-1(17)
	CAIN 4,71
	 JRST $154
	ADDI 4,1
	DPB 4,-1(17)
	JRST $150
$154==.
	MOVEI 3,60
	DPB 3,-1(17)
	SETO 4,
	ADJBP 4,-1(17)
	MOVEM 4,-1(17)
	JRST $153

	%%DATA
%FLLIS:	0
%FLPRE:	0
%NLABE:	0

	%%CODE
%LABIN:
	SETZB 3,%MAXLA
	JRST CLEANL
NEWLAB:
	PUSH 17,%FLLIS
	SKIPN 4,0(17)
	 JRST $157
	MOVE 5,%FLLIS
	MOVE 3,17(5)
	MOVEM 3,%FLLIS
	JRST $156
$157==.
	PUSH 17,[110]
	PUSHJ 17,MALLOC
	ADJSP 17,-1
	TLZ 1,$$BPPS
	MOVEM 1,0(17)
	JUMPN 1,$158
	PUSH 17,[$$BP90+$$SECT,,$159]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
	JRST $156
$158==.
	AOS 3,%NLABE
$156==.
	MOVEI 3,27
	MOVE 7,0(17)
	MOVEM 3,0(7)
	AOS 4,%MAXLA
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$160]
	ADDI 7,2
	TLO 7,$$BP90
	PUSH 17,7
	PUSHJ 17,SPRINT
	MOVE 1,-3(17)
	SETZB 3,12(1)
	ADJSP 17,-4
	POPJ 17,
$160==.
	BYTE	(9) 44,45,144,0
	

$159==.
	BYTE	(9) 117,165,164,40
	BYTE	(9) 157,146,40,155
	BYTE	(9) 145,155,157,162
	BYTE	(9) 171,40,146,157
	BYTE	(9) 162,40,154,141
	BYTE	(9) 142,145,154,163
	BYTE	(9) 0
	

REFLAB:
	SKIPN 6,-1(17)
	 JRST $161
	MOVE 3,0(6)
	CAIN 3,27
	 SKIPA 4,-2(17)
	 TRNA 
	 ADDB 4,12(6)
$161==.
	POPJ 17,
FREELA:
	MOVE 4,%FLPRE
	MOVE 6,-1(17)
	MOVEM 4,16(6)
	MOVEM 6,%FLPRE
	POPJ 17,
CLEANL:
$162==.
	SKIPN 5,%FLPRE
	 JRST $163
	PUSH 17,5
	PUSHJ 17,%REALF
	ADJSP 17,-1
	MOVE 4,%FLPRE
	MOVE 3,16(4)
	MOVEM 3,%FLPRE
	JRST $162
$163==.
	POPJ 17,
%REALF:
	MOVE 4,%FLLIS
	MOVE 6,-1(17)
	MOVEM 4,17(6)
	MOVEM 6,%FLLIS
	POPJ 17,
SYMDUM:
	ADJSP 17,23
	PUSH 17,-25(17)
	PUSH 17,[$$BP90+$$SECT,,$164]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 4,-24(17)
	MOVEM 4,-2(17)
$165==.
	SKIPN 5,-2(17)
	 JRST $166
	MOVE 3,0(5)
	MOVEM 3,-22(17)
	CAIL 3,0
	 CAIL 3,27
	 JRST $192
	JRST @$193(3)
$193==.
	IFIW $169
	IFIW $171
	IFIW $170
	IFIW $174
	IFIW $172
	IFIW $173
	IFIW $186
	IFIW $190
	IFIW $175
	IFIW $176
	IFIW $179
	IFIW $177
	IFIW $180
	IFIW $178
	IFIW $181
	IFIW $182
	IFIW $183
	IFIW $184
	IFIW $187
	IFIW $188
	IFIW $185
	IFIW $189
	IFIW $191
$169==.
	MOVE 3,[$$BP90+$$SECT,,$194]
	MOVEM 3,-21(17)
	JRST $168
$170==.
	MOVE 3,[$$BP90+$$SECT,,$195]
	MOVEM 3,-21(17)
	JRST $168
$171==.
	MOVE 3,[$$BP90+$$SECT,,$196]
	MOVEM 3,-21(17)
	JRST $168
$172==.
	MOVE 3,[$$BP90+$$SECT,,$197]
	MOVEM 3,-21(17)
	JRST $168
$173==.
	MOVE 3,[$$BP90+$$SECT,,$198]
	MOVEM 3,-21(17)
	JRST $168
$174==.
	MOVE 3,[$$BP90+$$SECT,,$199]
	MOVEM 3,-21(17)
	JRST $168
$175==.
	MOVE 3,[$$BP90+$$SECT,,$200]
	MOVEM 3,-21(17)
	JRST $168
$176==.
	MOVE 3,[$$BP90+$$SECT,,$201]
	MOVEM 3,-21(17)
	JRST $168
$177==.
	MOVE 3,[$$BP90+$$SECT,,$202]
	MOVEM 3,-21(17)
	JRST $168
$178==.
	MOVE 3,[$$BP90+$$SECT,,$203]
	MOVEM 3,-21(17)
	JRST $168
$179==.
	MOVE 3,[$$BP90+$$SECT,,$204]
	MOVEM 3,-21(17)
	JRST $168
$180==.
	MOVE 3,[$$BP90+$$SECT,,$205]
	MOVEM 3,-21(17)
	JRST $168
$181==.
	MOVE 3,[$$BP90+$$SECT,,$206]
	MOVEM 3,-21(17)
	JRST $168
$182==.
	MOVE 3,[$$BP90+$$SECT,,$207]
	MOVEM 3,-21(17)
	JRST $168
$183==.
	MOVE 3,[$$BP90+$$SECT,,$208]
	MOVEM 3,-21(17)
	JRST $168
$184==.
	MOVE 3,[$$BP90+$$SECT,,$209]
	MOVEM 3,-21(17)
	JRST $168
$185==.
	MOVE 3,[$$BP90+$$SECT,,$210]
	MOVEM 3,-21(17)
	JRST $168
$186==.
	MOVE 3,[$$BP90+$$SECT,,$211]
	MOVEM 3,-21(17)
	JRST $168
$187==.
	MOVE 3,[$$BP90+$$SECT,,$212]
	MOVEM 3,-21(17)
	JRST $168
$188==.
	MOVE 3,[$$BP90+$$SECT,,$213]
	MOVEM 3,-21(17)
	JRST $168
$189==.
	MOVE 3,[$$BP90+$$SECT,,$214]
	MOVEM 3,-21(17)
	JRST $168
$190==.
	MOVE 3,[$$BP90+$$SECT,,$215]
	MOVEM 3,-21(17)
	JRST $168
$191==.
	MOVE 3,[$$BP90+$$SECT,,$216]
	MOVEM 3,-21(17)
	JRST $168
$192==.
	PUSH 17,-22(17)
	PUSH 17,[$$BP90+$$SECT,,$217]
	XMOVEI 3,-21(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,SPRINT
	ADJSP 17,-3
	XMOVEI 3,-17(17)
	TLO 3,$$BP90
	MOVEM 3,-21(17)
$168==.
	MOVE 5,-2(17)
	ADDI 5,2
	TLO 5,$$BP90
	MOVEM 5,-20(17)
	PUSH 17,-21(17)
	PUSH 17,5
	PUSH 17,[$$BP90+$$SECT,,$218]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-4
	MOVE 6,-2(17)
	SKIPN 4,1(6)
	 JRST $219
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$220]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$219==.
	MOVE 4,-2(17)
	PUSH 17,20(4)
	PUSH 17,[$$BP90+$$SECT,,$221]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 4,-22(17)
	SOJE 4,$222
	MOVE 5,-22(17)
	CAIN 5,4
	 JRST $222
	MOVE 10,-2(17)
	SKIPN 6,13(10)
	 JRST $222
	XMOVEI 16,TYPES
	SUB 6,16
	IDIVI 6,5
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$223]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 6,-2(17)
	MOVE 5,13(6)
	MOVE 3,0(5)
	CAIL 3,3
	 CAILE 3,4
	 JRST $224
	MOVE 7,3(5)
	ADDI 7,2
	TLO 7,$$BP91
	PUSH 17,7
	PUSH 17,[$$BP90+$$SECT,,$226]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$224==.
	MOVE 4,-2(17)
	PUSH 17,13(4)
	PUSHJ 17,SIZETY
	MOVEM 1,0(17)
	PUSH 17,[$$BP90+$$SECT,,$227]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$222==.
	SKIPLE 4,-22(17)
	 CAIL 4,24
	 JRST $228
	JRST @$235*1-1(4)
$235==.
	IFIW $234
	IFIW $228
	IFIW $228
	IFIW $231
	IFIW $228
	IFIW $233
	IFIW $231
	IFIW $228
	IFIW $228
	IFIW $228
	IFIW $232
	IFIW $232
	IFIW $228
	IFIW $228
	IFIW $228
	IFIW $230
	IFIW $230
	IFIW $229
	IFIW $229
$229==.
	MOVE 4,-2(17)
	MOVE 3,12(4)
	ADDI 3,1
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$236]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $228
$230==.
	MOVE 4,-2(17)
	MOVN 3,12(4)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$237]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $228
$231==.
	MOVE 4,-2(17)
	PUSH 17,12(4)
	PUSH 17,[$$BP90+$$SECT,,$238]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $228
$232==.
	MOVE 10,-2(17)
	MOVE 3,13(10)
	MOVE 5,0(3)
	SOJN 5,$228
	SKIPN 6,15(10)
	 JRST $228
	XMOVEI 16,TYPES
	SUB 6,16
	IDIVI 6,5
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$239]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $228
$233==.
	MOVE 4,-2(17)
	PUSH 17,12(4)
	PUSHJ 17,%SHOFF
	ADJSP 17,-1
	JRST $228
$234==.
	MOVE 7,-2(17)
	HRRZ 3,12(7)
	PUSH 17,3
	LDB 4,[221100,,12(7)]
	PUSH 17,4
	LDB 5,[331100,,12(7)]
	TRNE 5,400
	 TDOA 5,[-1000]
	 ANDI 5,777
	PUSH 17,5
	PUSH 17,[$$BP90+$$SECT,,$240]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-5
	MOVE 4,-2(17)
	SKIPE 3,13(4)
	 JRST $241
	PUSH 17,FSYM
	PUSH 17,[$$BP90+$$SECT,,$242]
	PUSHJ 17,FPUTS
	ADJSP 17,-2
	JRST $228
$241==.
	MOVE 6,-2(17)
	HRRZ 3,12(6)
	MOVEM 3,-1(17)
	MOVE 4,13(6)
	MOVEM 4,0(17)
	MOVE 10,FSYM
	SOSGE 5,1(10)
	 JRST $243
	MOVEI 7,42
	MOVE 12,FSYM
	IDPB 7,2(12)
	JRST $244
$243==.
	PUSH 17,FSYM
	PUSH 17,[42]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$244==.
$245==.
	SOSGE 3,-1(17)
	 JRST $246
	MOVE 6,FSYM
	SOSGE 4,1(6)
	 JRST $247
	LDB 5,0(17)
	IBP 0(17)
	MOVE 10,FSYM
	IDPB 5,2(10)
	JRST $245
$247==.
	PUSH 17,FSYM
	LDB 3,-1(17)
	IBP -1(17)
	PUSH 17,3
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $245
$246==.
	MOVE 5,FSYM
	SOSGE 3,1(5)
	 JRST $248
	MOVEI 4,42
	MOVE 7,FSYM
	IDPB 4,2(7)
	JRST $249
$248==.
	PUSH 17,FSYM
	PUSH 17,[42]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$249==.
$228==.
	MOVE 5,FSYM
	SOSGE 3,1(5)
	 JRST $250
	MOVEI 4,12
	MOVE 7,FSYM
	IDPB 4,2(7)
	JRST $167
$250==.
	PUSH 17,FSYM
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$167==.
	MOVE 4,-2(17)
	MOVE 3,17(4)
	MOVEM 3,-2(17)
	JRST $165
$166==.
	ADJSP 17,-23
	POPJ 17,
$242==.
	BYTE	(9) 116,125,114,114
	BYTE	(9) 0
	

$240==.
	BYTE	(9) 54,40,156,141
	BYTE	(9) 162,147,163,40
	BYTE	(9) 45,144,54,40
	BYTE	(9) 160,141,162,154
	BYTE	(9) 145,156,40,45
	BYTE	(9) 144,54,40,154
	BYTE	(9) 145,156,40,45
	BYTE	(9) 144,75,0
	

$239==.
	BYTE	(9) 54,40,123,150
	BYTE	(9) 160,162,157,164
	BYTE	(9) 157,40,45,144
	BYTE	(9) 0
	

$238==.
	BYTE	(9) 54,40,166,141
	BYTE	(9) 154,165,145,40
	BYTE	(9) 45,144,0
	

$237==.
	BYTE	(9) 54,40,157,146
	BYTE	(9) 146,163,145,164
	BYTE	(9) 40,45,144,0
	

$236==.
	BYTE	(9) 54,40,157,146
	BYTE	(9) 146,163,145,164
	BYTE	(9) 40,45,144,0
	

$227==.
	BYTE	(9) 54,40,164,163
	BYTE	(9) 151,172,145,40
	BYTE	(9) 45,144,0
	

$226==.
	BYTE	(9) 54,40,163,164
	BYTE	(9) 162,165,143,164
	BYTE	(9) 40,45,163,0
	

$223==.
	BYTE	(9) 54,40,164,171
	BYTE	(9) 160,145,40,45
	BYTE	(9) 144,0
	

$221==.
	BYTE	(9) 54,40,162,145
	BYTE	(9) 146,163,40,45
	BYTE	(9) 144,0
	

$220==.
	BYTE	(9) 40,50,45,157
	BYTE	(9) 51,0
	

$218==.
	BYTE	(9) 45,55,61,60
	BYTE	(9) 163,72,40,45
	BYTE	(9) 163,0
	

$217==.
	BYTE	(9) 111,114,114,105
	BYTE	(9) 107,101,114,40
	BYTE	(9) 163,171,155,142
	BYTE	(9) 157,154,40,143
	BYTE	(9) 154,141,163,163
	BYTE	(9) 40,45,144,0
	

$216==.
	BYTE	(9) 165,156,144,145
	BYTE	(9) 146,151,156,145
	BYTE	(9) 144,40,147,157
	BYTE	(9) 164,157,40,154
	BYTE	(9) 141,142,145,154
	BYTE	(9) 0
	

$215==.
	BYTE	(9) 145,156,165,155
	BYTE	(9) 145,162,141,164
	BYTE	(9) 145,144,40,164
	BYTE	(9) 171,160,145,0
	

$214==.
	BYTE	(9) 147,157,164,157
	BYTE	(9) 40,154,141,142
	BYTE	(9) 145,154,0
	

$213==.
	BYTE	(9) 162,145,147,151
	BYTE	(9) 163,164,145,162
	BYTE	(9) 55,141,165,164
	BYTE	(9) 157,0
	

$212==.
	BYTE	(9) 141,165,164,157
	BYTE	(9) 0
	

$211==.
	BYTE	(9) 163,164,162,165
	BYTE	(9) 143,164,40,155
	BYTE	(9) 145,155,142,145
	BYTE	(9) 162,0
	

$210==.
	BYTE	(9) 162,145,147,151
	BYTE	(9) 163,164,145,162
	BYTE	(9) 0
	

$209==.
	BYTE	(9) 162,145,147,151
	BYTE	(9) 163,164,145,162
	BYTE	(9) 55,141,162,147
	BYTE	(9) 0
	

$208==.
	BYTE	(9) 141,162,147,165
	BYTE	(9) 155,145,156,164
	BYTE	(9) 0
	

$207==.
	BYTE	(9) 154,157,143,141
	BYTE	(9) 154,55,163,164
	BYTE	(9) 141,164,151,143
	BYTE	(9) 0
	

$206==.
	BYTE	(9) 151,156,164,145
	BYTE	(9) 162,156,55,164
	BYTE	(9) 156,164,144,145
	BYTE	(9) 146,0
	

$205==.
	BYTE	(9) 151,156,164,145
	BYTE	(9) 162,156,55,144
	BYTE	(9) 145,146,0
	

$204==.
	BYTE	(9) 151,156,164,145
	BYTE	(9) 162,156,55,162
	BYTE	(9) 145,146,0
	

$203==.
	BYTE	(9) 145,170,164,145
	BYTE	(9) 162,156,55,164
	BYTE	(9) 156,164,144,145
	BYTE	(9) 146,0
	

$202==.
	BYTE	(9) 145,170,164,145
	BYTE	(9) 162,156,55,144
	BYTE	(9) 145,146,0
	

$201==.
	BYTE	(9) 145,170,164,145
	BYTE	(9) 162,156,55,162
	BYTE	(9) 145,146,0
	

$200==.
	BYTE	(9) 145,170,55,145
	BYTE	(9) 170,164,145,162
	BYTE	(9) 156,55,162,145
	BYTE	(9) 146,0
	

$199==.
	BYTE	(9) 164,171,160,145
	BYTE	(9) 144,145,146,0
	

$198==.
	BYTE	(9) 165,156,144,145
	BYTE	(9) 146,40,163,164
	BYTE	(9) 162,165,143,164
	BYTE	(9) 165,162,145,40
	BYTE	(9) 164,141,147,0
	

$197==.
	BYTE	(9) 163,164,162,165
	BYTE	(9) 143,164,165,162
	BYTE	(9) 145,40,164,141
	BYTE	(9) 147,0
	

$196==.
	BYTE	(9) 155,141,143,162
	BYTE	(9) 157,0
	

$195==.
	BYTE	(9) 162,145,163,145
	BYTE	(9) 162,166,145,144
	BYTE	(9) 40,167,157,162
	BYTE	(9) 144,0
	

$194==.
	BYTE	(9) 165,156,144,145
	BYTE	(9) 146,151,156,145
	BYTE	(9) 144,0
	

$164==.
	BYTE	(9) 12,55,55,40
	BYTE	(9) 123,171,155,142
	BYTE	(9) 157,154,163,40
	BYTE	(9) 146,157,162,40
	BYTE	(9) 45,163,40,55
	BYTE	(9) 55,12,12,0
	

%SHOFF:
	ADJSP 17,1
	SKIPGE 5,-2(17)
	 JRST $252
	PUSH 17,5
	PUSH 17,[$$BP90+$$SECT,,$253]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $251
$252==.
	MOVN 6,-2(17)
	MOVEM 6,0(17)
	MOVEI 3,44
	LSH 6,-6
	ANDI 6,77
	SUB 3,6
	MOVE 5,0(17)
	ANDI 5,77
	SUB 3,5
	PUSH 17,3
	MOVE 7,-1(17)
	ANDI 7,77
	PUSH 17,7
	MOVE 10,-2(17)
	LSH 10,-14
	PUSH 17,10
	PUSH 17,[$$BP90+$$SECT,,$254]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-5
$251==.
	ADJSP 17,-1
	POPJ 17,
$254==.
	BYTE	(9) 54,40,157,146
	BYTE	(9) 146,163,145,164
	BYTE	(9) 40,45,144,54
	BYTE	(9) 40,167,151,144
	BYTE	(9) 164,150,40,45
	BYTE	(9) 144,54,40,142
	BYTE	(9) 151,164,40,157
	BYTE	(9) 146,146,163,145
	BYTE	(9) 164,40,45,144
	BYTE	(9) 0
	

$253==.
	BYTE	(9) 54,40,157,146
	BYTE	(9) 146,163,145,164
	BYTE	(9) 40,45,144,0
	

%TYPEI:
	MOVE 4,TGCSIZ
	MOVEM 4,TYPBSI*1+20
	MOVEM 4,TYPBSI*1+13
	SETZB 5,MAXTYP
	PUSH 17,5
$255==.
	AOS 6,0(17)
	SETZB 4,TTABLE*1-1(6)
	CAIGE 6,1775
	 JRST $255
	MOVEM 4,0(17)
$258==.
	SKIPE 5,0(17)
	 SKIPE 3,TYPSIZ(5)
	 TRNA 
	 JRST $261
	PUSH 17,[0]
	PUSH 17,5
	PUSHJ 17,FINDTY
	ADJSP 17,-2
	MOVE 3,0(17)
	MOVEM 1,TYPEPT(3)
	JRST $260
$261==.
	MOVE 4,0(17)
	SETZB 3,TYPEPT(4)
$260==.
	AOS 5,0(17)
	CAIGE 5,24
	 JRST $258
	MOVE 6,TYPEPT*1+20
	MOVEM 6,CHARTY
	PUSH 17,6
	PUSH 17,[5]
	PUSHJ 17,FINDTY
	ADJSP 17,-2
	MOVEM 1,STRCON
	PUSH 17,TYPEPT
	PUSH 17,[5]
	PUSHJ 17,FINDTY
	ADJSP 17,-2
	MOVEM 1,VOIDPT
	MOVE 4,CLEVEL
	SOJLE 4,$263
	MOVE 1,TYPEPT*1+22
	JRST $264
$263==.
	MOVE 1,TYPEPT*1+15
$264==.
	MOVEM 1,SIZTYP
	MOVE 3,TYPEPT*1+15
	MOVEM 3,PTRDIF
	ADJSP 17,-1
	POPJ 17,
FINDTY:
	PUSH 17,-2(17)
	MOVE 4,-2(17)
	PUSH 17,TYPSIZ(4)
	PUSH 17,TYPBSI(4)
	PUSH 17,4
	PUSHJ 17,FINDCT
	ADJSP 17,-4
	POPJ 17,
FINDSZ:
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	MOVE 5,-3(17)
	PUSH 17,TYPBSI(5)
	PUSH 17,5
	PUSHJ 17,FINDCT
	ADJSP 17,-4
	POPJ 17,
FINDUT:
	MOVE 1,-1(17)
	MOVE 3,1(1)
	TDNN 3,[14003000]
	 JRST $266
	PUSH 17,3(1)
	PUSH 17,2(1)
	MOVE 4,3
	AND 4,[-14003001]
	PUSH 17,4
	PUSH 17,0(1)
	PUSHJ 17,FINDCT
	ADJSP 17,-4
$266==.
	POPJ 17,
FINDQT:
	MOVE 7,-1(17)
	PUSH 17,3(7)
	PUSH 17,2(7)
	MOVE 3,1(7)
	MOVE 6,-4(17)
	TRZ 6,3000
	IOR 3,6
	PUSH 17,3
	PUSH 17,0(7)
	PUSHJ 17,FINDCT
	ADJSP 17,-4
	POPJ 17,
FINDFT:
	PUSH 17,-1(17)
	PUSH 17,-3(17)
	PUSH 17,[0]
	PUSH 17,[1]
	PUSHJ 17,FINDCT
	ADJSP 17,-4
	POPJ 17,
FINDPT:
	SKIPN 5,-3(17)
	 JRST $269
	MOVE 3,1(5)
	TRNE 3,3000
	 JRST $267
$269==.
	MOVE 1,-3(17)
	JRST $268
$267==.
	MOVE 6,-3(17)
	PUSH 17,3(6)
	PUSH 17,2(6)
	MOVE 3,1(6)
	TRZ 3,3000
	PUSH 17,3
	PUSH 17,0(6)
	PUSHJ 17,FINDCT
	ADJSP 17,-4
$268==.
	PUSH 17,1
	PUSH 17,-3(17)
	PUSH 17,[0]
	PUSH 17,-4(17)
	PUSHJ 17,FINDCT
	ADJSP 17,-4
	POPJ 17,
FINDCT:
	ADJSP 17,2
	MOVE 5,-3(17)
	MOVE 6,TFLTAB(5)
	IORB 6,-4(17)
	IMULI 5,53
	ADD 5,-6(17)
	MOVE 4,-5(17)
	IMULI 4,145
	ADD 5,4
	IDIVI 5,1775
	MOVEM 6,0(17)
	MOVE 3,TTABLE(6)
	MOVEM 3,-1(17)
$270==.
	SKIPN 1,-1(17)
	 JRST $271
	MOVE 3,0(1)
	CAME 3,-3(17)
	 JRST $272
	MOVE 4,1(1)
	CAME 4,-4(17)
	 JRST $272
	MOVE 5,2(1)
	CAME 5,-5(17)
	 JRST $272
	MOVE 6,3(1)
	CAME 6,-6(17)
	 JRST $272
	ADJSP 17,-2
	POPJ 17,
$272==.
	MOVE 4,-1(17)
	MOVE 3,4(4)
	MOVEM 3,-1(17)
	JRST $270
$271==.
	AOS 3,MAXTYP
	SUBI 3,1
	IMULI 3,5
	XMOVEI 3,TYPES(3)
	MOVEM 3,-1(17)
	MOVE 5,MAXTYP
	CAIGE 5,1775
	 JRST $273
	PUSH 17,[$$BP90+$$SECT,,$274]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
$273==.
	MOVE 4,-3(17)
	MOVE 1,-1(17)
	MOVEM 4,0(1)
	MOVE 6,-4(17)
	MOVEM 6,1(1)
	MOVE 5,-5(17)
	MOVEM 5,2(1)
	MOVE 7,-6(17)
	MOVEM 7,3(1)
	POP 17,14
	MOVE 10,TTABLE(14)
	MOVEM 10,4(1)
	MOVEM 1,TTABLE(14)
	ADJSP 17,-1
	POPJ 17,
$274==.
	BYTE	(9) 124,171,160,145
	BYTE	(9) 40,164,141,142
	BYTE	(9) 154,145,40,157
	BYTE	(9) 166,145,162,146
	BYTE	(9) 154,157,167,0
	

CMPTYP:
	MOVE 5,-1(17)
	CAMN 5,-2(17)
	 JRST $276
	PUSH 17,-2(17)
	PUSH 17,5
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	CAIE 1,0
$276==.
	 SKIPA 1,[1]
	 SETZ 1,
	POPJ 17,
CMPUTY:
	MOVE 11,-1(17)
	CAMN 11,-2(17)
	 SKIPA 1,[1]
	 SKIPA 6,0(11)
	 POPJ 17,
	MOVE 10,-2(17)
	CAME 6,0(10)
	 JRST $278
	MOVE 4,1(11)
	TRZ 4,3000
	MOVE 5,1(10)
	TRZ 5,3000
	CAME 4,5
	 JRST $278
	CAILE 6,0
	 CAIL 6,6
	 JRST $283
	JRST @$284*1-1(6)
$284==.
	IFIW $279
	IFIW $280
	IFIW $282
	IFIW $282
	IFIW $281
$279==.
	PUSH 17,-2(17)
	PUSH 17,-2(17)
	PUSHJ 17,TCOMPO
	CAIN 1,0
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$280==.
	MOVE 10,-1(17)
	SKIPN 4,2(10)
	 JRST $281
	MOVE 7,-2(17)
	SKIPE 3,2(7)
	 CAMN 4,3
	 TRNA 
	 JRST $278
$281==.
	MOVE 6,-1(17)
	MOVE 4,3(6)
	MOVE 7,-2(17)
	CAMN 4,3(7)
	 JRST $288
	PUSH 17,3(7)
	PUSH 17,4
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	CAIE 1,0
$288==.
	 SKIPA 1,[1]
	 SETZ 1,
	POPJ 17,
$282==.
	MOVE 4,-1(17)
	MOVE 3,3(4)
	MOVE 6,-2(17)
	CAME 3,3(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$283==.
	MOVEI 1,1
	POPJ 17,
$278==.
	SETZ 1,
	POPJ 17,
TCOMPO:
	MOVE 1,-1(17)
	CAMN 1,-2(17)
	 POPJ 17,
	ADJSP 17,1
	MOVE 3,1(1)
	MOVE 7,-3(17)
	CAME 3,1(7)
	 JRST $293
	MOVE 4,0(1)
	CAMN 4,0(7)
	 JRST $292
$293==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$292==.
	MOVE 11,-2(17)
	MOVE 3,0(11)
	CAIN 3,1
	 JRST $297
	CAIN 3,5
	 JRST $296
	CAIE 3,2
	 JRST $294
	SKIPN 6,2(11)
	 JRST $298
	MOVE 10,-3(17)
	SKIPE 4,2(10)
	 CAMN 6,4
	 TRNA 
	 JRST $294
$298==.
	MOVE 6,-2(17)
	MOVE 4,3(6)
	MOVE 7,-3(17)
	CAMN 4,3(7)
	 JRST $299
	PUSH 17,3(7)
	PUSH 17,4
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$294
	PUSH 17,1
	MOVE 7,-3(17)
	SKIPN 3,2(7)
	 SKIPA 4,-4(17)
	 TRNA 
	 MOVE 3,2(4)
	PUSH 17,3
	PUSH 17,1(7)
	PUSH 17,[2]
	PUSHJ 17,FINDCT
	ADJSP 17,-5
	POPJ 17,
$299==.
	MOVE 1,-2(17)
	SKIPN 3,2(1)
	 MOVE 1,-3(17)
	ADJSP 17,-1
	POPJ 17,
$296==.
	MOVE 4,-3(17)
	PUSH 17,3(4)
	MOVE 5,-3(17)
	PUSH 17,3(5)
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$294
	PUSH 17,1
	MOVE 5,-3(17)
	PUSH 17,2(5)
	PUSH 17,1(5)
	PUSH 17,[5]
	PUSHJ 17,FINDCT
	ADJSP 17,-5
	POPJ 17,
$297==.
	MOVE 7,-2(17)
	MOVE 3,3(7)
	MOVE 1,-3(17)
	CAME 3,3(1)
	 JRST $305
	SKIPE 4,2(7)
	 JRST $306
	ADJSP 17,-1
	POPJ 17,
$306==.
	MOVE 4,-3(17)
	SKIPE 3,2(4)
	 JRST $307
	MOVE 1,-2(17)
	ADJSP 17,-1
	POPJ 17,
$307==.
	MOVE 4,-2(17)
	MOVE 3,3(4)
	MOVEM 3,0(17)
	JRST $304
$305==.
	MOVE 4,-3(17)
	PUSH 17,3(4)
	MOVE 5,-3(17)
	PUSH 17,3(5)
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$294
$304==.
	MOVE 4,-2(17)
	SKIPE 3,2(4)
	 JRST $309
	MOVE 6,-3(17)
	MOVE 5,2(6)
	MOVEM 5,-3(17)
	JRST $308
$309==.
	MOVE 4,-3(17)
	SKIPE 3,2(4)
	 JRST $310
	MOVE 6,-2(17)
	MOVE 5,2(6)
	MOVEM 5,-3(17)
	JRST $308
$310==.
	MOVE 4,-3(17)
	PUSH 17,2(4)
	MOVE 5,-3(17)
	PUSH 17,2(5)
	PUSHJ 17,%TCOMP
	ADJSP 17,-2
	MOVEM 1,-3(17)
	JUMPE 1,$294
$308==.
	PUSH 17,-3(17)
	PUSH 17,-1(17)
	PUSHJ 17,FINDFT
	ADJSP 17,-3
	POPJ 17,
$294==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
%TCOMP:
	MOVE 1,-1(17)
	CAMN 1,-2(17)
	 POPJ 17,
	MOVE 4,0(1)
	MOVE 6,-2(17)
	CAMN 4,0(6)
	 CAIE 4,26
	 TDZA 1,1
	 TRNA 
	 POPJ 17,
	ADJSP 17,1
	PUSH 17,3(6)
	MOVE 5,-3(17)
	PUSH 17,3(5)
	PUSHJ 17,TCOMPO
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPN 1,$314
	ADJSP 17,-1
	POPJ 17,
$314==.
	MOVE 7,-2(17)
	SKIPN 4,2(7)
	 JRST $316
	MOVE 10,-3(17)
	SKIPN 6,2(10)
	 JRST $316
	PUSH 17,6
	PUSH 17,4
	PUSHJ 17,%TCOMP
	ADJSP 17,-2
	MOVEM 1,-3(17)
	JUMPN 1,$315
	ADJSP 17,-1
	POPJ 17,
$316==.
	MOVE 4,-2(17)
	SKIPE 3,2(4)
	 JRST $317
	MOVE 6,-3(17)
	SKIPE 7,2(6)
	 JRST $317
	MOVEM 7,-3(17)
	JRST $315
$317==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$315==.
	PUSH 17,0(17)
	PUSH 17,-4(17)
	PUSH 17,[26]
	PUSHJ 17,FINDPT
	ADJSP 17,-4
	POPJ 17,
SIZETY:
	SKIPE 4,-1(17)
	 JRST $318
	PUSH 17,[$$BP90+$$SECT,,$319]
	PUSHJ 17,INT.ER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$318==.
	PUSH 17,[1]
$320==.
	MOVE 5,-2(17)
	MOVE 3,0(5)
	CAIE 3,2
	 JRST $321
	MOVE 7,2(5)
	IMULB 7,0(17)
	MOVE 4,3(5)
	MOVEM 4,-2(17)
	JRST $320
$321==.
	MOVE 6,-2(17)
	MOVE 4,1(6)
	TLNN 4,2
	 JRST $322
	TRNE 4,777
	 JRST $323
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$323==.
	MOVEI 3,44
	MOVE 12,-2(17)
	MOVE 5,1(12)
	ANDI 5,777
	IDIV 3,5
	ADD 3,0(17)
	SUBI 3,1
	MOVEI 7,44
	MOVE 6,1(12)
	ANDI 6,777
	IDIV 7,6
	IDIV 3,7
	MOVE 1,3
	ADJSP 17,-1
	POPJ 17,
$322==.
	MOVE 10,-2(17)
	MOVE 3,0(10)
	CAIN 3,5
	 JRST $326
	CAIE 3,4
	 CAIN 3,3
	 SKIPA 6,3(10)
	 JRST $324
	MOVE 5,0(6)
	CAIN 5,4
	 JRST $324
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$327]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	JRST $324
$326==.
	MOVE 6,-2(17)
	MOVE 4,2(6)
	CAMN 4,TYPSIZ*1+5
	 JRST $324
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$328]
	PUSHJ 17,INT.ER
	MOVE 1,TYPSIZ*1+5
	IMUL 1,-2(17)
	ADJSP 17,-3
	POPJ 17,
$324==.
	MOVE 4,-2(17)
	MOVE 1,2(4)
	IMUL 1,0(17)
	ADJSP 17,-1
	POPJ 17,
$328==.
	BYTE	(9) 142,141,144,40
	BYTE	(9) 160,157,151,156
	BYTE	(9) 164,145,162,40
	BYTE	(9) 163,151,172,145
	BYTE	(9) 72,40,45,144
	BYTE	(9) 0
	

$327==.
	BYTE	(9) 123,164,162,165
	BYTE	(9) 143,164,165,162
	BYTE	(9) 145,40,45,123
	BYTE	(9) 40,165,156,144
	BYTE	(9) 145,146,151,156
	BYTE	(9) 145,144,54,40
	BYTE	(9) 163,151,172,145
	BYTE	(9) 40,165,156,153
	BYTE	(9) 156,157,167,156
	BYTE	(9) 0
	

$319==.
	BYTE	(9) 163,151,172,145
	BYTE	(9) 164,171,160,145
	BYTE	(9) 72,40,156,165
	BYTE	(9) 154,154,40,164
	BYTE	(9) 171,160,145,0
	

SIZEPT:
	PUSH 17,-1(17)
	PUSHJ 17,TISBYP
	ADJSP 17,-1
	JUMPE 1,$329
	MOVE 4,-1(17)
	PUSH 17,3(4)
	PUSHJ 17,SIZEAR
	ADJSP 17,-1
	JRST $330
$329==.
	MOVE 4,-1(17)
	PUSH 17,3(4)
	PUSHJ 17,SIZETY
	ADJSP 17,-1
$330==.
	POPJ 17,
SIZEAR:
	PUSH 17,[1]
$331==.
	MOVE 5,-2(17)
	MOVE 3,0(5)
	CAIE 3,2
	 JRST $332
	MOVE 7,2(5)
	IMULB 7,0(17)
	MOVE 4,3(5)
	MOVEM 4,-2(17)
	JRST $331
$332==.
	POP 17,1
	POPJ 17,
%ARYER:
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$333]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
	POPJ 17,
$333==.
	BYTE	(9) 45,163,72,40
	BYTE	(9) 141,162,162,141
	BYTE	(9) 171,40,157,146
	BYTE	(9) 40,156,165,154
	BYTE	(9) 154,0
	

ELEMBS:
	MOVE 6,-1(17)
	MOVE 4,0(6)
	CAIE 4,5
	 CAIN 4,2
	 JRST $334
	SETZ 1,
	POPJ 17,
$334==.
$335==.
	MOVE 4,-1(17)
	MOVE 10,3(4)
	MOVEM 10,-1(17)
	JUMPE 10,$336
	MOVE 3,0(10)
	CAIN 3,2
	 JRST $335
	MOVE 1,1(10)
	TRNN 1,70000
	 JRST $337
	ANDI 1,777
	JRST $338
$337==.
	SETZ 1,
$338==.
	POPJ 17,
$336==.
	PUSH 17,[$$BP90+$$SECT,,$339]
	PUSHJ 17,%ARYER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$339==.
	BYTE	(9) 145,154,145,155
	BYTE	(9) 142,163,151,172
	BYTE	(9) 145,0
	

TISPUR:
$340==.
	MOVE 6,-1(17)
	MOVE 3,0(6)
	CAIE 3,2
	 JRST $341
	MOVE 4,3(6)
	MOVEM 4,-1(17)
	JRST $340
$341==.
	MOVE 6,-1(17)
	MOVE 4,1(6)
	TDNN 4,[10002000]
	 TRNN 4,1000
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
TISCHP:
	MOVE 6,-1(17)
	MOVE 4,0(6)
	CAIE 4,5
	 CAIN 4,2
	 JRST $344
	SETZ 1,
	POPJ 17,
$344==.
$345==.
	MOVE 4,-1(17)
	MOVE 7,3(4)
	MOVEM 7,-1(17)
	JUMPE 7,$346
	MOVE 3,0(7)
	CAIN 3,2
	 JRST $345
	MOVE 1,1(7)
	ANDI 1,200000
	POPJ 17,
$346==.
	PUSH 17,[$$BP90+$$SECT,,$347]
	PUSHJ 17,%ARYER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$347==.
	BYTE	(9) 164,151,163,143
	BYTE	(9) 150,141,162,160
	BYTE	(9) 157,151,156,164
	BYTE	(9) 145,162,0
	

TISBYP:
	MOVE 6,-1(17)
	MOVE 4,0(6)
	CAIE 4,5
	 CAIN 4,2
	 JRST $348
	SETZ 1,
	POPJ 17,
$348==.
$349==.
	MOVE 4,-1(17)
	MOVE 7,3(4)
	MOVEM 7,-1(17)
	JUMPE 7,$350
	MOVE 3,0(7)
	CAIN 3,2
	 JRST $349
	MOVE 1,1(7)
	AND 1,[2000000]
	POPJ 17,
$350==.
	PUSH 17,[$$BP90+$$SECT,,$351]
	PUSHJ 17,%ARYER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$351==.
	BYTE	(9) 164,151,163,142
	BYTE	(9) 171,164,145,160
	BYTE	(9) 157,151,156,164
	BYTE	(9) 145,162,0
	

TISCHA:
	MOVE 4,-1(17)
	MOVE 3,0(4)
	CAIE 3,2
	 TDZA 1,1
	 TRNA 
	 POPJ 17,
$353==.
	MOVE 4,-1(17)
	MOVE 7,3(4)
	MOVEM 7,-1(17)
	JUMPE 7,$354
	MOVE 3,0(7)
	CAIN 3,2
	 JRST $353
	MOVE 1,1(7)
	ANDI 1,200000
	POPJ 17,
$354==.
	PUSH 17,[$$BP90+$$SECT,,$355]
	PUSHJ 17,%ARYER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$355==.
	BYTE	(9) 164,151,163,143
	BYTE	(9) 150,141,162,141
	BYTE	(9) 162,162,141,171
	BYTE	(9) 0
	

TISBYA:
	MOVE 4,-1(17)
	MOVE 3,0(4)
	CAIE 3,2
	 TDZA 1,1
	 TRNA 
	 POPJ 17,
$357==.
	MOVE 4,-1(17)
	MOVE 7,3(4)
	MOVEM 7,-1(17)
	JUMPE 7,$358
	MOVE 3,0(7)
	CAIN 3,2
	 JRST $357
	MOVE 1,1(7)
	AND 1,[2000000]
	POPJ 17,
$358==.
	PUSH 17,[$$BP90+$$SECT,,$359]
	PUSHJ 17,%ARYER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$359==.
	BYTE	(9) 164,151,163,142
	BYTE	(9) 171,164,145,141
	BYTE	(9) 162,162,141,171
	BYTE	(9) 0
	


	%%DATA
%TFLAG:	1000
	103
	$$BP90+$$SECT,,$360
	2000
	126
	$$BP90+$$SECT,,$361
	10000
	151
	$$BP90+$$SECT,,$362
	20000
	146
	$$BP90+$$SECT,,$363
	40000
	163
	$$BP90+$$SECT,,$364
	100000
	165
	$$BP90+$$SECT,,$365
	200000
	143
	$$BP90+$$SECT,,$366
	400000
	142
	$$BP90+$$SECT,,$367
	2000000
	102
	$$BP90+$$SECT,,$368
	1000000
	123
	$$BP90+$$SECT,,$369
	4000000
	156
	$$BP90+$$SECT,,$370
	10000000
	166
	$$BP90+$$SECT,,$371
	0
	0
	0

	%%CODE
$371==.
	BYTE	(9) 123,57,125,40
	BYTE	(9) 143,157,156,164
	BYTE	(9) 141,151,156,163
	BYTE	(9) 40,141,40,166
	BYTE	(9) 157,154,141,164
	BYTE	(9) 151,154,145,0
	

$370==.
	BYTE	(9) 123,57,125,40
	BYTE	(9) 143,157,156,164
	BYTE	(9) 141,151,156,163
	BYTE	(9) 40,141,40,143
	BYTE	(9) 157,156,163,164
	BYTE	(9) 0
	

$369==.
	BYTE	(9) 123,164,162,165
	BYTE	(9) 143,164,40,157
	BYTE	(9) 162,40,125,156
	BYTE	(9) 151,157,156,0
	

$368==.
	BYTE	(9) 102,171,164,145
	BYTE	(9) 40,50,156,157
	BYTE	(9) 156,55,167,157
	BYTE	(9) 162,144,51,0
	

$367==.
	BYTE	(9) 102,151,164,146
	BYTE	(9) 151,145,154,144
	BYTE	(9) 0
	

$366==.
	BYTE	(9) 103,150,141,162
	BYTE	(9) 0
	

$365==.
	BYTE	(9) 125,156,163,151
	BYTE	(9) 147,156,145,144
	BYTE	(9) 0
	

$364==.
	BYTE	(9) 123,143,141,154
	BYTE	(9) 141,162,0
	

$363==.
	BYTE	(9) 106,154,157,141
	BYTE	(9) 164,151,156,147
	BYTE	(9) 55,160,157,151
	BYTE	(9) 156,164,0
	

$362==.
	BYTE	(9) 111,156,164,145
	BYTE	(9) 147,162,141,154
	BYTE	(9) 0
	

$361==.
	BYTE	(9) 126,157,154,141
	BYTE	(9) 164,151,154,145
	BYTE	(9) 55,161,165,141
	BYTE	(9) 154,151,146,151
	BYTE	(9) 145,144,0
	

$360==.
	BYTE	(9) 103,157,156,163
	BYTE	(9) 164,55,161,165
	BYTE	(9) 141,154,151,146
	BYTE	(9) 151,145,144,0
	

TYPEDU:
	ADJSP 17,20
	PUSH 17,[$$BP90+$$SECT,,$372]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-2
	XMOVEI 3,%TFLAG
	MOVEM 3,0(17)
$373==.
	MOVE 5,0(17)
	SKIPN 3,0(5)
	 JRST $374
	PUSH 17,2(5)
	PUSH 17,1(5)
	PUSH 17,[$$BP90+$$SECT,,$376]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-4
	MOVEI 3,3
	ADDB 3,0(17)
	JRST $373
$374==.
	PUSH 17,[$$BP90+$$SECT,,$377]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-2
	SETZB 3,-15(17)
$378==.
	MOVE 6,-15(17)
	CAML 6,MAXTYP
	 JRST $379
	IMULI 6,5
	XMOVEI 12,TYPES(6)
	MOVEM 12,-13(17)
	XMOVEI 3,-11(17)
	TLO 3,$$BP90
	MOVEM 3,-1(17)
	SETZB 4,-16(17)
	MOVEM 4,-14(17)
	MOVE 11,0(12)
	MOVEM 11,-17(17)
	CAMG 4,11
	 CAIL 11,24
	 JRST $382
	MOVE 5,TSNAME(11)
	MOVEM 5,-14(17)
	SOJE 11,$381
	MOVE 7,1(12)
	ANDI 7,777
	MOVEM 7,-16(17)
	JRST $381
$382==.
	MOVE 4,-17(17)
	CAIN 4,26
	 JRST $385
	CAIN 4,25
	 JRST $384
	CAIE 4,24
	 JRST $381
	MOVE 3,[$$BP90+$$SECT,,$386]
	MOVEM 3,-14(17)
	JRST $381
$384==.
	MOVE 3,[$$BP90+$$SECT,,$387]
	MOVEM 3,-14(17)
	JRST $381
$385==.
	MOVE 3,[$$BP90+$$SECT,,$388]
	MOVEM 3,-14(17)
$381==.
	XMOVEI 3,%TFLAG
	MOVEM 3,0(17)
$389==.
	MOVE 4,0(17)
	SKIPN 5,0(4)
	 JRST $390
	MOVE 6,-13(17)
	TDNN 5,1(6)
	 JRST $391
	MOVE 3,1(4)
	DPB 3,-1(17)
	IBP -1(17)
$391==.
	MOVEI 3,3
	ADDB 3,0(17)
	JRST $389
$390==.
	SETZ 3,
	DPB 3,-1(17)
	SKIPN 6,-14(17)
	 JRST $393
	PUSH 17,6
	PUSH 17,-17(17)
	XMOVEI 4,-13(17)
	TLO 4,$$BP90
	PUSH 17,4
	PUSH 17,-20(17)
	PUSH 17,[$$BP90+$$SECT,,$394]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-6
	JRST $392
$393==.
	MOVE 4,-13(17)
	MOVE 3,3(4)
	XMOVEI 16,TYPES
	SUB 3,16
	IDIVI 3,5
	PUSH 17,3
	MOVE 7,-14(17)
	PUSH 17,3(7)
	PUSH 17,2(7)
	PUSH 17,1(7)
	PUSH 17,0(7)
	XMOVEI 5,-16(17)
	TLO 5,$$BP90
	PUSH 17,5
	PUSH 17,-23(17)
	PUSH 17,[$$BP90+$$SECT,,$395]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-11
$392==.
	SETZB 3,-14(17)
	SKIPLE 5,-17(17)
	 CAIL 5,27
	 JRST $396
	JRST @$403*1-1(5)
$403==.
	IFIW $401
	IFIW $398
	IFIW $402
	IFIW $402
	IFIW $397
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $396
	IFIW $399
	IFIW $399
	IFIW $400
$397==.
	MOVE 3,[$$BP90+$$SECT,,$404]
	MOVEM 3,-14(17)
	JRST $396
$398==.
	MOVE 4,-13(17)
	PUSH 17,2(4)
	PUSH 17,[$$BP90+$$SECT,,$405]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 3,[$$BP90+$$SECT,,$406]
	MOVEM 3,-14(17)
	JRST $396
$399==.
	MOVE 6,-13(17)
	SKIPN 4,3(6)
	 JRST $407
	XMOVEI 16,TYPES
	SUB 4,16
	IDIVI 4,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$408]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$407==.
	MOVE 6,-13(17)
	SKIPN 4,2(6)
	 JRST $396
	XMOVEI 16,TYPES
	SUB 4,16
	IDIVI 4,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$409]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $396
$400==.
	MOVE 6,-13(17)
	SKIPN 4,3(6)
	 JRST $411
	XMOVEI 16,TYPES
	SUB 4,16
	IDIVI 4,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$412]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $410
$411==.
	PUSH 17,[$$BP90+$$SECT,,$413]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-2
$410==.
	MOVE 6,-13(17)
	SKIPN 4,2(6)
	 JRST $396
	XMOVEI 16,TYPES
	SUB 4,16
	IDIVI 4,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$414]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $396
$401==.
	MOVE 6,-13(17)
	SKIPN 4,2(6)
	 JRST $416
	XMOVEI 16,TYPES
	SUB 4,16
	IDIVI 4,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$417]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $415
$416==.
	PUSH 17,[$$BP90+$$SECT,,$418]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-2
$415==.
	MOVE 3,[$$BP90+$$SECT,,$419]
	MOVEM 3,-14(17)
	JRST $396
$402==.
	MOVE 4,-13(17)
	MOVE 3,3(4)
	ADDI 3,2
	TLO 3,$$BP90
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$420]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 4,-13(17)
	MOVE 3,3(4)
	MOVE 5,0(3)
	CAIN 5,4
	 JRST $421
	PUSH 17,[$$BP90+$$SECT,,$422]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-2
	JRST $396
$421==.
	PUSH 17,-13(17)
	PUSHJ 17,SIZETY
	MOVEM 1,0(17)
	PUSH 17,[$$BP90+$$SECT,,$423]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	MOVE 4,-13(17)
	MOVE 3,3(4)
	MOVE 5,14(3)
	MOVEM 5,-12(17)
$424==.
	SKIPN 6,-12(17)
	 JRST $396
	MOVE 3,13(6)
	XMOVEI 16,TYPES
	SUB 3,16
	IDIVI 3,5
	PUSH 17,3
	ADDI 6,2
	TLO 6,$$BP90
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$425]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-4
	MOVE 4,-12(17)
	PUSH 17,12(4)
	PUSHJ 17,%SHOFF
	ADJSP 17,-1
	MOVE 4,-12(17)
	MOVE 3,14(4)
	MOVEM 3,-12(17)
	JRST $424
$396==.
	SKIPN 4,-14(17)
	 JRST $426
	MOVE 7,-13(17)
	SKIPN 5,3(7)
	 JRST $426
	XMOVEI 16,TYPES
	SUB 5,16
	IDIVI 5,5
	PUSH 17,5
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$427]
	PUSH 17,FSYM
	PUSHJ 17,FPRINT
	ADJSP 17,-4
$426==.
	MOVE 5,FSYM
	SOSGE 3,1(5)
	 JRST $428
	MOVEI 4,12
	MOVE 7,FSYM
	IDPB 4,2(7)
	JRST $380
$428==.
	PUSH 17,FSYM
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$380==.
	AOS 3,-15(17)
	JRST $378
$379==.
	ADJSP 17,-20
	POPJ 17,
$427==.
	BYTE	(9) 54,40,45,163
	BYTE	(9) 40,45,144,0
	

$425==.
	BYTE	(9) 12,40,40,40
	BYTE	(9) 40,40,40,45
	BYTE	(9) 163,72,40,164
	BYTE	(9) 171,160,145,40
	BYTE	(9) 45,144,0
	

$423==.
	BYTE	(9) 54,40,163,151
	BYTE	(9) 172,145,40,45
	BYTE	(9) 144,0
	

$422==.
	BYTE	(9) 40,50,156,157
	BYTE	(9) 164,40,144,145
	BYTE	(9) 146,151,156,145
	BYTE	(9) 144,51,0
	

$420==.
	BYTE	(9) 54,40,164,141
	BYTE	(9) 147,40,45,163
	BYTE	(9) 0
	

$419==.
	BYTE	(9) 162,145,164,165
	BYTE	(9) 162,156,163,0
	

$418==.
	BYTE	(9) 54,40,156,157
	BYTE	(9) 40,160,162,157
	BYTE	(9) 164,157,0
	

$417==.
	BYTE	(9) 54,40,160,162
	BYTE	(9) 157,164,157,40
	BYTE	(9) 45,144,0
	

$414==.
	BYTE	(9) 54,40,156,145
	BYTE	(9) 170,164,72,40
	BYTE	(9) 45,144,0
	

$413==.
	BYTE	(9) 54,40,102,101
	BYTE	(9) 104,40,164,171
	BYTE	(9) 160,145,72,40
	BYTE	(9) 116,125,114,114
	BYTE	(9) 0
	

$412==.
	BYTE	(9) 54,40,157,146
	BYTE	(9) 40,45,144,0
	

$409==.
	BYTE	(9) 54,40,102,101
	BYTE	(9) 104,40,156,145
	BYTE	(9) 170,164,72,40
	BYTE	(9) 45,144,0
	

$408==.
	BYTE	(9) 54,40,102,101
	BYTE	(9) 104,40,164,171
	BYTE	(9) 160,145,72,40
	BYTE	(9) 45,144,0
	

$406==.
	BYTE	(9) 157,146,0
	

$405==.
	BYTE	(9) 54,40,163,151
	BYTE	(9) 172,145,40,45
	BYTE	(9) 144,0
	

$404==.
	BYTE	(9) 164,157,0
	

$395==.
	BYTE	(9) 45,64,144,40
	BYTE	(9) 45,55,67,163
	BYTE	(9) 40,77,77,77
	BYTE	(9) 40,102,101,104
	BYTE	(9) 40,55,40,165
	BYTE	(9) 156,153,156,157
	BYTE	(9) 167,156,40,124
	BYTE	(9) 163,160,145,143
	BYTE	(9) 40,45,43,157
	BYTE	(9) 54,40,124,146
	BYTE	(9) 154,141,147,40
	BYTE	(9) 45,43,157,54
	BYTE	(9) 40,124,163,151
	BYTE	(9) 172,145,45,43
	BYTE	(9) 157,54,40,124
	BYTE	(9) 163,165,142,164
	BYTE	(9) 40,45,43,157
	BYTE	(9) 40,50,45,144
	BYTE	(9) 51,0
	

$394==.
	BYTE	(9) 45,64,144,40
	BYTE	(9) 45,55,67,163
	BYTE	(9) 40,45,63,144
	BYTE	(9) 40,45,163,0
	

$388==.
	BYTE	(9) 160,141,162,141
	BYTE	(9) 155,0
	

$387==.
	BYTE	(9) 160,141,162,141
	BYTE	(9) 155,40,42,56
	BYTE	(9) 56,56,42,0
	

$386==.
	BYTE	(9) 160,141,162,141
	BYTE	(9) 155,40,42,166
	BYTE	(9) 157,151,144,42
	BYTE	(9) 0
	

$377==.
	BYTE	(9) 40,111,144,170
	BYTE	(9) 40,106,154,141
	BYTE	(9) 147,163,40,40
	BYTE	(9) 102,151,164,163
	BYTE	(9) 40,124,171,160
	BYTE	(9) 145,12,0
	

$376==.
	BYTE	(9) 11,40,40,45
	BYTE	(9) 143,40,55,40
	BYTE	(9) 45,163,40,164
	BYTE	(9) 171,160,145,12
	BYTE	(9) 0
	

$372==.
	BYTE	(9) 12,12,55,55
	BYTE	(9) 40,124,171,160
	BYTE	(9) 145,163,40,55
	BYTE	(9) 55,12,12,11
	BYTE	(9) 124,171,160,145
	BYTE	(9) 40,146,154,141
	BYTE	(9) 147,163,72,12
	BYTE	(9) 0
	


	%%DATA
LSYMHE:	BLOCK 1
%SYMTA:	BLOCK 1
%LOCSY:	BLOCK 1
%LOCTA:	BLOCK 1
%CHMAS:	BLOCK 5
%LASTW:	BLOCK 1
%MAPTA:	BLOCK 1
%MAPTL:	BLOCK 1
%MAPTU:	BLOCK 1
%MAXLA:	BLOCK 1


	%%CODE
$$CPKI==0
	INTERN $$CPKI
$$CPKA==0
	INTERN $$CPKA

	LIT
	EXTERN	$$BPPS
	EXTERN	$$BP91
	EXTERN	$$BP90
	EXTERN	$$SECT
	EXTERN	$$$CPU
	EXTERN	$$$CRT
;	EXTERN	.SIOS
;	EXTERN	REMOVE
;	EXTERN	RENAME
;	EXTERN	TMPFIL
;	EXTERN	TMPNAM
;	EXTERN	FCLOSE
;	EXTERN	FFLUSH
;	EXTERN	FOPEN
;	EXTERN	FREOPE
;	EXTERN	SETBUF
;	EXTERN	SETVBU
	EXTERN	FPRINT
;	EXTERN	FSCANF
;	EXTERN	PRINTF
;	EXTERN	SCANF
	EXTERN	SPRINT
;	EXTERN	SSCANF
;	EXTERN	VFPRIN
;	EXTERN	VPRINT
;	EXTERN	VSPRIN
;	EXTERN	FGETC
;	EXTERN	FGETS
	EXTERN	FPUTC
	EXTERN	FPUTS
;	EXTERN	GETC
;	EXTERN	GETCHA
;	EXTERN	GETS
;	EXTERN	PUTC
;	EXTERN	PUTCHA
;	EXTERN	PUTS
;	EXTERN	UNGETC
;	EXTERN	FREAD
;	EXTERN	FWRITE
;	EXTERN	FGETPO
;	EXTERN	FSEEK
;	EXTERN	FSETPO
;	EXTERN	FTELL
;	EXTERN	REWIND
;	EXTERN	CLEARE
;	EXTERN	FEOF
;	EXTERN	FERROR
;	EXTERN	PERROR
;	EXTERN	FDOPEN
;	EXTERN	SOPEN
;	EXTERN	.SETBU
;	EXTERN	SETLIN
;	EXTERN	MKTEMP
;	EXTERN	GETW
;	EXTERN	PUTW
;	EXTERN	FILENO
;	EXTERN	CTERMI
;	EXTERN	CUSERI
;	EXTERN	.FILE.
;	EXTERN	.MAKEF
;	EXTERN	.FILBU
;	EXTERN	.READA
;	EXTERN	.WRITE
;	EXTERN	.PRIME
;	EXTERN	.SIOFL
;	EXTERN	.CLEAN
;	EXTERN	.FREEF
;	EXTERN	.SETFI
	INTERN	TISCHP
	INTERN	TISBYP
	INTERN	TISCHA
	INTERN	TISBYA
	INTERN	TISPUR
	EXTERN	TFLTAB
	EXTERN	SYMBOL
;	EXTERN	CSYMBO
	EXTERN	MINSYM
;	EXTERN	BYTSYM
	EXTERN	HTABLE
	EXTERN	TTABLE
	EXTERN	TYPES
;	EXTERN	NODEIN
;	EXTERN	NODEDU
;	EXTERN	NODEID
;	EXTERN	NDEF
;	EXTERN	NDEFOP
;	EXTERN	NDEFT
;	EXTERN	NDEFTF
;	EXTERN	NDEFTL
;	EXTERN	NDEFTR
;	EXTERN	NDEFL
;	EXTERN	NDEFR
;	EXTERN	NDEFLR
;	EXTERN	NDEFIC
;	EXTERN	NDEFID
;	EXTERN	JMSG
;	EXTERN	JERR
	EXTERN	NOTE
;	EXTERN	ADVISE
;	EXTERN	WARN
;	EXTERN	INT.WA
	EXTERN	ERROR
	EXTERN	INT.ER
	EXTERN	EFATAL
;	EXTERN	FATAL
;	EXTERN	ERRFOP
;	EXTERN	EXPECT
;	EXTERN	ERRFLU
;	EXTERN	OPTPAR
;	EXTERN	OPTGEN
;	EXTERN	OPTOBJ
;	EXTERN	DEBPAR
;	EXTERN	DEBGEN
;	EXTERN	DEBPHO
	EXTERN	DEBSYM
;	EXTERN	VRBFUN
;	EXTERN	VRBSTA
;	EXTERN	VRBLD
;	EXTERN	LDEXTF
;	EXTERN	LDPSEC
;	EXTERN	LDPSDA
;	EXTERN	LDPSCO
;	EXTERN	LDPSST
;	EXTERN	ASSEMB
;	EXTERN	DELETE
;	EXTERN	LINK
;	EXTERN	PREPF
;	EXTERN	NOWARN
;	EXTERN	CONDCC
;	EXTERN	KEEPCM
;	EXTERN	ASMHFI
;	EXTERN	ASMTFI
;	EXTERN	NPREDE
;	EXTERN	NPREUN
;	EXTERN	NINCPA
;	EXTERN	NHFPAT
;	EXTERN	NHFSYP
;	EXTERN	PREDEF
;	EXTERN	PREUND
;	EXTERN	INCPAT
;	EXTERN	HFPATH
;	EXTERN	HFSYPA
;	EXTERN	LIBPAT
	EXTERN	CLEVKC
	EXTERN	CLEVEL
;	EXTERN	CVERCO
;	EXTERN	CVERLI
;	EXTERN	CVERDI
;	EXTERN	CVERKC
;	EXTERN	TGSYS
;	EXTERN	TGCPU
;	EXTERN	TGASM
	EXTERN	TGCSIZ
;	EXTERN	TGCPW
;	EXTERN	TGCMAS
;	EXTERN	TGMACH
	EXTERN	TOK
;	EXTERN	NOPNAM
	EXTERN	TOKSTR
	EXTERN	CHARTY
	EXTERN	STRCON
	EXTERN	VOIDPT
	EXTERN	SIZTYP
	EXTERN	PTRDIF
	EXTERN	TYPEPT
	EXTERN	TYPSIZ
	EXTERN	TYPBSI
	EXTERN	TSNAME
;	EXTERN	INPFNA
;	EXTERN	INPFDI
;	EXTERN	INPFMO
;	EXTERN	INPFSU
;	EXTERN	OUTFNA
;	EXTERN	PREFNA
;	EXTERN	DEBFNA
;	EXTERN	PHOFNA
;	EXTERN	SYMFNA
;	EXTERN	IN
;	EXTERN	OUT
;	EXTERN	FDEB
;	EXTERN	FPHO
	EXTERN	FSYM
	EXTERN	MAXTYP
;	EXTERN	PAGE
;	EXTERN	LINE
;	EXTERN	FLINE
;	EXTERN	TLINE
;	EXTERN	EOF
;	EXTERN	TOKEN
;	EXTERN	NERROR
;	EXTERN	NODES
;	EXTERN	SAVELI
	EXTERN	CURFN
;	EXTERN	CURFNL
;	EXTERN	CURFNN
;	EXTERN	MAXAUT
;	EXTERN	STACKR
;	EXTERN	STKGOT
	EXTERN	CTFTAB
;	EXTERN	CHR2IN
;	EXTERN	CHR2LO
;	EXTERN	CHR2UP
;	EXTERN	ATOF
;	EXTERN	ATOI
;	EXTERN	ATOL
;	EXTERN	STRTOD
;	EXTERN	STRTOL
;	EXTERN	STRTOU
;	EXTERN	RAND
;	EXTERN	SRAND
;	EXTERN	CALLOC
	EXTERN	FREE
	EXTERN	MALLOC
	EXTERN	REALLO
;	EXTERN	ABORT
;	EXTERN	ATEXIT
;	EXTERN	EXIT
;	EXTERN	GETENV
;	EXTERN	SYSTEM
;	EXTERN	BSEARC
;	EXTERN	QSORT
;	EXTERN	ABS
;	EXTERN	DIV
;	EXTERN	LABS
;	EXTERN	LDIV
;	EXTERN	MBLEN
;	EXTERN	MBTOWC
;	EXTERN	WCTOMB
;	EXTERN	MBSTOW
;	EXTERN	WCSTOM
;	EXTERN	.N.EXI
;	EXTERN	.EXIT.
	INTERN	SYMINI
	INTERN	SYMFIN
	INTERN	SYMFTA
	INTERN	SYMFME
	INTERN	SYMFLA
	INTERN	SYMFID
	INTERN	SYMFNE
	INTERN	SYMQCR
	INTERN	CREATS
	INTERN	SYMGCR
	INTERN	UNIQSY
	INTERN	SHMACS
	INTERN	FREESY
	INTERN	COPYSY
	INTERN	ISDUPS
	INTERN	HASH
	INTERN	BEGLSY
	INTERN	ENDLSY
	INTERN	RIDLSY
	INTERN	SYMDUM
	INTERN	NEWLAB
	INTERN	REFLAB
	INTERN	FREELA
	INTERN	CLEANL
	INTERN	MAPEXT
	INTERN	MAPINT
	INTERN	FINDTY
	INTERN	FINDSZ
	INTERN	FINDCT
	INTERN	FINDFT
	INTERN	FINDUT
	INTERN	FINDQT
	INTERN	TCOMPO
	INTERN	SIZETY
	INTERN	SIZEPT
	INTERN	SIZEAR
	INTERN	ELEMBS
	EXTERN	SIXBIT
	INTERN	LSYMHE
	INTERN	FINDGS
	INTERN	SYMFXE
	INTERN	FINDPT
	INTERN	CMPTYP
	INTERN	CMPUTY
	INTERN	TYPEDU
	END