Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/kcc/ccpp.fai
There are no other files named ccpp.fai in the archive.
	TITLE	CCPP
	.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
%IFNAM:	$$BP90+$$SECT,,$1
	$$BP90+$$SECT,,$2
	$$BP90+$$SECT,,$3

	%%CODE
$3==.
	BYTE	(9) 145,154,151,146
	BYTE	(9) 0
	

$2==.
	BYTE	(9) 151,146,0
	

$1==.
	BYTE	(9) 145,154,163,145
	BYTE	(9) 0
	


	%%DATA
%PPCPT:	0
%MACTL:	0
%BACKS:	0
%BKSTR:	0
%DEFCS:	$$BP93+$$SECT,,%DEFCD
%DATES:	BYTE (9) 42,112,165,156
	BYTE (9) 40,60,67,40
	BYTE (9) 61,71,70,71
	BYTE (9) 42,0
%TIMES:	BYTE (9) 42,60,61,72
	BYTE (9) 62,63,72,64
	BYTE (9) 65,42,0
%DEBPP:	0
%FPP:	$$SECT,,.SIOS*1+46
%DBPPT:	1

	%%CODE
PPINIT:
	SETZB 7,EOF
	MOVEM 7,TLINE
	MOVEI 3,1
	MOVEM 3,LINE
	MOVEM 3,PAGE
	MOVEM 3,FLINE
	MOVEM 7,%PPCPT
	XMOVEI 4,%PPTOK
	MOVEM 4,%PPTPT
	MOVEM 7,%MACLE
	MOVEM 7,%INDIR
	MOVEM 7,%INASM
	MOVEM 7,%FLSHN
	MOVEM 7,%IFLEV
	MOVEM 7,%INLEV
	MOVEM 7,%IFTYP
	MOVEM 7,%TADSE
	MOVE 10,[$$BP90+$$SECT,,ERRLIN]
	MOVEM 10,ERPTR
	MOVEI 11,400
	MOVEM 11,ERPLEF
	PUSH 17,11
	PUSH 17,7
	PUSH 17,10
	PUSHJ 17,MEMSET
	ADJSP 17,-3
	PUSH 17,[$$BP90+$$SECT,,$4]
	PUSHJ 17,%PUSHS
	SETZB 16,0(17)
	PUSH 17,[-10]
	PUSH 17,[$$BP90+$$SECT,,$5]
	PUSHJ 17,%MDEFS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,[-3]
	PUSH 17,[$$BP90+$$SECT,,$6]
	PUSHJ 17,%MDEFS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,[-4]
	PUSH 17,[$$BP90+$$SECT,,$7]
	PUSHJ 17,%MDEFS
	ADJSP 17,-3
	SKIPG 4,CLEVEL
	 JRST $8
	PUSH 17,[0]
	PUSH 17,[-5]
	PUSH 17,[$$BP90+$$SECT,,$9]
	PUSHJ 17,%MDEFS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,[-6]
	PUSH 17,[$$BP90+$$SECT,,$10]
	PUSHJ 17,%MDEFS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,[-2]
	PUSH 17,[$$BP90+$$SECT,,$11]
	PUSHJ 17,%MDEFS
	ADJSP 17,-3
	ADDI 1,2
	TLO 1,$$BP90
	MOVEM 1,%DEFCS
	MOVEI 3,77
	DPB 3,1
$8==.
	MOVE 4,CLEVEL
	CAIGE 4,3
	 JRST $12
	PUSH 17,[$$BP90+$$SECT,,$13]
	PUSH 17,[-7]
	PUSH 17,[$$BP90+$$SECT,,$14]
	PUSHJ 17,%MDEFS
	ADJSP 17,-3
$12==.
	SKIPN 4,CLEVKC
	 JRST $15
	PUSH 17,[0]
	PUSH 17,[-11]
	PUSH 17,[$$BP90+$$SECT,,$16]
	PUSHJ 17,%MDEFS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,[-12]
	PUSH 17,[$$BP90+$$SECT,,$17]
	PUSHJ 17,%MDEFS
	ADJSP 17,-3
$15==.
	POPJ 17,
$17==.
	BYTE	(9) 137,113,103,103
	BYTE	(9) 163,171,155,166
	BYTE	(9) 141,154,0
	

$16==.
	BYTE	(9) 137,113,103,103
	BYTE	(9) 163,171,155,146
	BYTE	(9) 156,144,0
	

$14==.
	BYTE	(9) 137,137,123,124
	BYTE	(9) 104,103,137,137
	BYTE	(9) 0
	

$13==.
	BYTE	(9) 61,0
	

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

$10==.
	BYTE	(9) 137,137,124,111
	BYTE	(9) 115,105,137,137
	BYTE	(9) 0
	

$9==.
	BYTE	(9) 137,137,104,101
	BYTE	(9) 124,105,137,137
	BYTE	(9) 0
	

$7==.
	BYTE	(9) 137,137,106,111
	BYTE	(9) 114,105,137,137
	BYTE	(9) 0
	

$6==.
	BYTE	(9) 137,137,114,111
	BYTE	(9) 116,105,137,137
	BYTE	(9) 0
	

$5==.
	BYTE	(9) 137,137,103,117
	BYTE	(9) 115,120,111,114
	BYTE	(9) 105,122,137,113
	BYTE	(9) 103,103,137,137
	BYTE	(9) 0
	

$4==.
	BYTE	(9) 12,0
	

%DOTAD:
	ADJSP 17,2
	XMOVEI 3,0(17)
	PUSH 17,3
	PUSHJ 17,TIME
	ADJSP 17,-1
	AOJN 1,$18
	PUSH 17,[$$BP90+$$SECT,,%DATES]
	PUSH 17,[$$BP90+$$SECT,,%TIMES]
	PUSH 17,[$$BP90+$$SECT,,$19]
	PUSHJ 17,WARN
	ADJSP 17,-5
	POPJ 17,
$18==.
	XMOVEI 3,0(17)
	PUSH 17,3
	PUSHJ 17,CTIME
	ADJSP 17,-1
	MOVEM 1,-1(17)
	PUSH 17,[6]
	MOVEI 3,4
	ADJBP 3,1
	PUSH 17,3
	PUSH 17,[$$BP91+$$SECT,,%DATES]
	PUSHJ 17,STRNCP
	ADJSP 17,-3
	PUSH 17,[4]
	MOVEI 3,24
	ADJBP 3,-2(17)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,%DATES*1+2]
	PUSHJ 17,STRNCP
	ADJSP 17,-3
	PUSH 17,[10]
	MOVEI 3,13
	ADJBP 3,-2(17)
	PUSH 17,3
	PUSH 17,[$$BP91+$$SECT,,%TIMES]
	PUSHJ 17,STRNCP
	MOVEI 3,1
	MOVEM 3,%TADSE
	ADJSP 17,-5
	POPJ 17,
$19==.
	BYTE	(9) 103,141,156,156
	BYTE	(9) 157,164,40,147
	BYTE	(9) 145,164,40,144
	BYTE	(9) 141,164,145,57
	BYTE	(9) 164,151,155,145
	BYTE	(9) 54,40,165,163
	BYTE	(9) 151,156,147,40
	BYTE	(9) 45,163,40,45
	BYTE	(9) 163,0
	

PPDEFI:
	ADJSP 17,3
$20==.
	SOSGE 3,-4(17)
	 JRST $21
	MOVE 5,-5(17)
	PUSH 17,0(5)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,0(17)
	JUMPE 1,$23
	PUSH 17,1
	PUSHJ 17,%FREEM
	ADJSP 17,-1
	JRST $22
$23==.
	MOVE 4,-5(17)
	PUSH 17,0(4)
	PUSH 17,[$$BP90+$$SECT,,$24]
	PUSHJ 17,NOTE
	ADJSP 17,-2
$22==.
	AOS 3,-5(17)
	JRST $20
$21==.
$25==.
	SOSGE 3,-6(17)
	 JRST $26
	MOVE 5,-7(17)
	MOVE 4,0(5)
	MOVEM 4,-1(17)
$28==.
	ILDB 3,-1(17)
	CAIE 3,75
	 JUMPN 3,$28
	MOVEM 3,-2(17)
	SETZ 4,
	DPB 4,-1(17)
	MOVE 6,-7(17)
	PUSH 17,0(6)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,0(17)
	JUMPE 1,$30
	MOVE 4,-7(17)
	PUSH 17,0(4)
	PUSH 17,[$$BP90+$$SECT,,$31]
	PUSHJ 17,ADVISE
	ADJSP 17,-2
	PUSH 17,0(17)
	PUSHJ 17,%FREEM
	ADJSP 17,-1
$30==.
	SKIPN 4,-2(17)
	 JRST $32
	MOVE 1,-1(17)
	IBP 1
	JRST $33
$32==.
	MOVE 1,[$$BP90+$$SECT,,$34]
$33==.
	PUSH 17,1
	PUSH 17,[-1]
	MOVE 4,-11(17)
	PUSH 17,0(4)
	PUSHJ 17,%MDEFS
	ADJSP 17,-3
	MOVE 4,-2(17)
	DPB 4,-1(17)
	AOS 3,-7(17)
	JRST $25
$26==.
	ADJSP 17,-3
	POPJ 17,
$34==.
	BYTE	(9) 61,0
	

$31==.
	BYTE	(9) 122,145,144,145
	BYTE	(9) 146,151,156,151
	BYTE	(9) 156,147,40,155
	BYTE	(9) 141,143,162,157
	BYTE	(9) 72,40,55,104
	BYTE	(9) 45,163,0
	

$24==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,151,156
	BYTE	(9) 40,55,125,45
	BYTE	(9) 163,40,144,157
	BYTE	(9) 145,163,156,47
	BYTE	(9) 164,40,145,170
	BYTE	(9) 151,163,164,0
	

PASSTH:
	MOVE 5,-1(17)
	MOVEM 5,%PREPF
	MOVEM 5,%PASSF
	SKIPE 4,%DEBPP
	 SKIPN 6,%DBPPT
	 JRST $35
$36==.
	PUSHJ 17,NEXTPP
	SOJE 1,$37
	XMOVEI 3,%PPTOK
	MOVEM 3,%PPTPT
	SETZB 4,%PPCPT
	PUSH 17,-1(17)
	PUSH 17,CURVAL
	PUSH 17,CURPP
	PUSHJ 17,%TLMAK
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%PPTFP
	ADJSP 17,-2
	JRST $36
$37==.
	POPJ 17,
$35==.
$38==.
	MOVE 4,%CH
	CAIL 4,60
	 JRST $50
	MOVM 3,4
	ANDI 3,17
	CAME 4,$51(3)
	 JRST $44
	JRST @$52(3)
$51==.
	 40
	 -1
	 42
	 -1
	 -1
	 -1
	 -1
	 47
	 -1
	 11
	 12
	 13
	 14
	 15
	 56
	 57
$52==.
	IFIW $41
	IFIW $40
	IFIW $48
	IFIW $44
	IFIW $44
	IFIW $44
	IFIW $44
	IFIW $47
	IFIW $44
	IFIW $41
	IFIW $42
	IFIW $41
	IFIW $41
	IFIW $41
	IFIW $45
	IFIW $43
$50==.
	MOVM 5,4
	IDIVI 5,21
	CAME 4,$53(6)
	 JRST $44
	JRST @$54(6)
$53==.
	 63
	 64
	 65
	 66
	 67
	 70
	 71
	 -1
	 -1
	 -1
	 -1
	 140
	 -1
	 -1
	 60
	 61
	 62
$54==.
	IFIW $46
	IFIW $46
	IFIW $46
	IFIW $46
	IFIW $46
	IFIW $46
	IFIW $46
	IFIW $44
	IFIW $44
	IFIW $44
	IFIW $44
	IFIW $49
	IFIW $44
	IFIW $44
	IFIW $46
	IFIW $46
	IFIW $46
$40==.
	POPJ 17,
$41==.
	SKIPN 4,KEEPCM
	 JRST $55
	MOVE 10,-1(17)
	SOSGE 3,1(10)
	 JRST $56
	MOVE 7,%CH
	IDPB 7,2(10)
	JRST $57
$56==.
	PUSH 17,-1(17)
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$57==.
	PUSHJ 17,%NEXTC
	JRST $38
$55==.
	PUSHJ 17,%PSSHW
	JRST $38
$42==.
	PUSH 17,[0]
	PUSHJ 17,%PSSLN
	ADJSP 17,-1
	JRST $38
$43==.
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $58
	PUSHJ 17,%PSSCM
	JRST $38
$58==.
	MOVE 7,-1(17)
	SOSGE 3,1(7)
	 JRST $59
	MOVEI 4,57
	IDPB 4,2(7)
	JRST $38
$59==.
	PUSH 17,-1(17)
	PUSH 17,[57]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $38
$44==.
	MOVE 4,%CH
	MOVE 3,CTFTAB*1+1(4)
	TRNN 3,1140
	 JRST $60
	PUSH 17,-1(17)
	PUSHJ 17,%PASS.
	ADJSP 17,-1
	JRST $38
$60==.
	MOVE 7,-1(17)
	SOSGE 3,1(7)
	 JRST $61
	MOVE 6,%CH
	IDPB 6,2(7)
	JRST $62
$61==.
	PUSH 17,-1(17)
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$62==.
	PUSHJ 17,%NEXTC
	JRST $38
$45==.
	MOVE 7,-1(17)
	SOSGE 3,1(7)
	 JRST $63
	MOVEI 4,56
	IDPB 4,2(7)
	JRST $64
$63==.
	PUSH 17,-1(17)
	PUSH 17,[56]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$64==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNN 3,20
	 JRST $38
$46==.
	PUSHJ 17,%PSSNM
	JRST $38
$47==.
	MOVE 4,TGCPW
	ADDI 4,2
	PUSH 17,4
	PUSHJ 17,%PSSST
	ADJSP 17,-1
	JRST $38
$48==.
	PUSH 17,[0]
	PUSHJ 17,%PSSST
	ADJSP 17,-1
	JRST $38
$49==.
	SKIPN 4,CLEVKC
	 JRST $65
	PUSH 17,[0]
	PUSHJ 17,%PSSST
	ADJSP 17,-1
	JRST $38
$65==.
	MOVE 7,-1(17)
	SOSGE 3,1(7)
	 JRST $66
	MOVE 6,%CH
	IDPB 6,2(7)
	JRST $67
$66==.
	PUSH 17,-1(17)
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$67==.
	PUSHJ 17,%NEXTC
	JRST $38
%PASS.:
	ADJSP 17,3
	SKIPE 4,%PPCPT
	 JRST $68
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $69
$68==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$69==.
	MOVEM 1,0(17)
$70==.
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNE 3,1160
	 JRST $70
	SOSG 4,%PPCLE
	 JRST $73
	SETZ 5,
	IDPB 5,%PPCPT
	JRST $74
$73==.
	PUSHJ 17,%PPCER
$74==.
	PUSH 17,0(17)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JUMPE 1,$76
	PUSH 17,[0]
	PUSH 17,1
	PUSHJ 17,%MEXPT
	ADJSP 17,-2
	JUMPN 1,$75
$76==.
	PUSH 17,-4(17)
	PUSH 17,-1(17)
	PUSHJ 17,FPUTS
	SETZB 3,%PPCPT
	ADJSP 17,-5
	POPJ 17,
$75==.
	SKIPE 4,%INASM
	 JRST $78
$79==.
	MOVE 5,%CURTL
	MOVEM 5,-1(17)
	JUMPE 5,$77
	PUSH 17,-4(17)
	PUSH 17,5
	PUSHJ 17,%PPTFP
	ADJSP 17,-2
	MOVE 4,%CURTL
	MOVE 3,1(4)
	MOVEM 3,%CURTL
	JRST $79
$78==.
	PUSH 17,%CURTL
	PUSH 17,%CURTL*1+1
	PUSHJ 17,%TLSTR
	ADJSP 17,-2
	DMOVEM 1,%CURTL
	MOVE 5,2(1)
	MOVEM 5,0(17)
	PUSH 17,[0]
	PUSH 17,5
	PUSHJ 17,STRLEN
	SUBI 1,1
	ADJBP 1,-2(17)
	MOVE 3,-1(17)
	ADJSP 17,-2
	DPB 3,1
	PUSH 17,-4(17)
	MOVE 4,-1(17)
	IBP 4
	PUSH 17,4
	PUSHJ 17,FPUTS
	ADJSP 17,-2
$77==.
	SETZB 4,%CURTL*1+1
	MOVEM 4,%CURTL
	MOVEM 4,%PPCPT
	XMOVEI 3,%PPTOK
	MOVEM 3,%PPTPT
	ADJSP 17,-3
	POPJ 17,
%PSSNM:
	ADJSP 17,1
$81==.
	MOVE 5,%PASSF
	SOSGE 3,1(5)
	 JRST $83
	MOVE 6,%CH
	MOVEM 6,0(17)
	MOVE 7,%PASSF
	IDPB 6,2(7)
	JRST $84
$83==.
	PUSH 17,%PASSF
	MOVE 4,%CH
	MOVEM 4,-1(17)
	PUSH 17,4
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$84==.
	PUSHJ 17,%NEXTC
	CAIN 1,56
	 JRST $81
	CAIE 1,55
	 CAIN 1,53
	 TRNA 
	 JRST $86
	PUSH 17,0(17)
	PUSHJ 17,CHR2UP
	ADJSP 17,-1
	CAIN 1,105
	 JRST $81
	ADJSP 17,-1
	POPJ 17,
$86==.
	MOVE 4,%CH
	MOVE 3,CTFTAB*1+1(4)
	TRNE 3,1160
	 JRST $81
	ADJSP 17,-1
	POPJ 17,
%PSSST:
	PUSH 17,%CH
	MOVE 5,%PASSF
	SOSGE 3,1(5)
	 JRST $87
	MOVE 6,%CH
	MOVE 7,%PASSF
	IDPB 6,2(7)
	JRST $88
$87==.
	PUSH 17,%PASSF
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$88==.
$89==.
	PUSHJ 17,%NEXTC
	AOJE 1,$90
	MOVE 4,%CH
	CAIE 4,12
	 SOSN 3,-2(17)
	 JRST $90
	MOVE 7,%PASSF
	SOSGE 5,1(7)
	 JRST $91
	MOVE 10,%CH
	MOVE 11,%PASSF
	IDPB 10,2(11)
	JRST $92
$91==.
	PUSH 17,%PASSF
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$92==.
	MOVE 4,%CH
	CAME 4,0(17)
	 JRST $93
	ADJSP 17,-1
	JRST %NEXTC
$93==.
	MOVE 4,%CH
	CAIE 4,134
	 JRST $89
	MOVE 6,%PASSF
	SOSGE 3,1(6)
	 JRST $94
	PUSHJ 17,%NEXTC
	MOVE 4,%PASSF
	IDPB 1,2(4)
	JRST $89
$94==.
	PUSH 17,%PASSF
	PUSHJ 17,%NEXTC
	PUSH 17,1
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $89
$90==.
	MOVE 4,%CH
	AOJN 4,$95
	MOVE 5,0(17)
	CAIN 5,42
	 SKIPA 1,[$$BP90+$$SECT,,$98]
	 TRNA 
	 JRST $97
	CAIN 5,47
	 SKIPA 1,[$$BP90+$$SECT,,$100]
	 MOVE 1,[$$BP90+$$SECT,,$101]
$97==.
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$102]
	PUSHJ 17,ERROR
	ADJSP 17,-2
$95==.
	ADJSP 17,-1
	POPJ 17,
$102==.
	BYTE	(9) 125,156,145,170
	BYTE	(9) 160,145,143,164
	BYTE	(9) 145,144,40,105
	BYTE	(9) 117,106,40,167
	BYTE	(9) 151,164,150,151
	BYTE	(9) 156,40,45,163
	BYTE	(9) 0
	

$101==.
	BYTE	(9) 161,165,157,164
	BYTE	(9) 145,144,40,151
	BYTE	(9) 144,145,156,164
	BYTE	(9) 151,146,151,145
	BYTE	(9) 162,0
	

$100==.
	BYTE	(9) 143,150,141,162
	BYTE	(9) 40,143,157,156
	BYTE	(9) 163,164,141,156
	BYTE	(9) 164,0
	

$98==.
	BYTE	(9) 163,164,162,151
	BYTE	(9) 156,147,40,154
	BYTE	(9) 151,164,145,162
	BYTE	(9) 141,154,0
	

%PSSHW:
$103==.
$105==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNE 3,10000
	 JRST $105
	MOVE 5,%CH
	CAIE 5,57
	 JRST $104
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $106
	PUSHJ 17,%SCANC
	JRST $103
$106==.
	PUSH 17,%PASSF
	PUSH 17,[$$BP90+$$SECT,,$107]
	PUSHJ 17,FPUTS
	ADJSP 17,-2
	POPJ 17,
$104==.
	MOVE 4,%CH
	CAIN 4,12
	 JRST $108
	MOVE 6,%PASSF
	SOSGE 3,1(6)
	 JRST $109
	MOVEI 5,40
	MOVE 10,%PASSF
	IDPB 5,2(10)
	JRST $108
$109==.
	PUSH 17,%PASSF
	PUSH 17,[40]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$108==.
	POPJ 17,
$107==.
	BYTE	(9) 40,57,0
	

%PSSLN:
	ADJSP 17,40
	XMOVEI 3,-37(17)
	TLO 3,$$BP90
	MOVEM 3,-1(17)
	MOVEI 4,166
	MOVEM 4,0(17)
	SKIPE 7,-41(17)
	 JRST $110
	MOVE 10,%PASSF
	SOSGE 5,1(10)
	 JRST $111
	MOVEI 6,12
	MOVE 12,%PASSF
	IDPB 6,2(12)
	JRST $110
$111==.
	PUSH 17,%PASSF
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$110==.
	SKIPE 4,KEEPCM
	 SKIPE 5,%INASM
	 TRNA 
	 JRST $113
$115==.
	PUSHJ 17,%NEXTC
	MOVM 3,1
	ANDI 3,7
	CAME 1,$120(3)
	 JRST $116
	JRST @$121(3)
$120==.
	 40
	 11
	 12
	 13
	 14
	 15
	 -1
	 57
$121==.
	IFIW $118
	IFIW $118
	IFIW $119
	IFIW $118
	IFIW $118
	IFIW $118
	IFIW $116
	IFIW $117
$117==.
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 JRST $122
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	MOVEI 3,57
	MOVEM 3,%CH
	JRST $116
$122==.
	PUSHJ 17,%PSSCM
$118==.
	SOSG 3,0(17)
	 JRST $115
	MOVE 5,%CH
	DPB 5,-1(17)
	IBP -1(17)
	JRST $115
$119==.
	AOS 3,-41(17)
	PUSH 17,3
	PUSHJ 17,%PSSLN
	ADJSP 17,-41
	POPJ 17,
$116==.
	SETZ 3,
	DPB 3,-1(17)
	JRST $112
$113==.
$123==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNN 3,10000
	 JRST $124
	MOVE 6,%PASSF
	SOSGE 4,1(6)
	 JRST $125
	MOVE 7,%CH
	MOVE 10,%PASSF
	IDPB 7,2(10)
	JRST $123
$125==.
	PUSH 17,%PASSF
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $123
$124==.
	MOVE 4,%CH
	CAIE 4,57
	 JRST $112
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $127
	PUSHJ 17,%PSSCM
	JRST $123
$127==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	MOVEI 3,57
	MOVEM 3,%CH
$112==.
	MOVE 4,%CH
	CAIE 4,43
	 JRST $129
	PUSHJ 17,%NEXTC
	PUSHJ 17,%DIREC
$130==.
	SKIPN 4,%INASM
	 JRST $131
	PUSHJ 17,NEXTPP
	SOJE 1,$131
	XMOVEI 3,%PPTOK
	MOVEM 3,%PPTPT
	SETZB 4,%PPCPT
	PUSH 17,%PASSF
	PUSH 17,CURVAL
	PUSH 17,CURPP
	PUSHJ 17,%TLMAK
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%PPTFP
	ADJSP 17,-2
	JRST $130
$131==.
	MOVE 4,%CH
	AOJE 4,$132
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
$132==.
	AOS 3,-41(17)
	PUSH 17,3
	PUSHJ 17,%PSSLN
	ADJSP 17,-41
	POPJ 17,
$129==.
	SKIPE 4,KEEPCM
	 JRST $128
	PUSH 17,%PASSF
	XMOVEI 3,-40(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,FPUTS
	ADJSP 17,-2
$128==.
	ADJSP 17,-40
	POPJ 17,
%PSSCM:
	SKIPE 4,KEEPCM
	 JRST $134
	PUSHJ 17,%SCANC
	JRST $133
$134==.
	PUSH 17,%PASSF
	PUSH 17,[$$BP90+$$SECT,,$135]
	PUSHJ 17,FPUTS
	ADJSP 17,-2
	PUSHJ 17,%NEXTC
$136==.
	MOVE 5,%PASSF
	SOSGE 3,1(5)
	 JRST $137
	MOVE 6,%CH
	MOVE 7,%PASSF
	IDPB 6,2(7)
	JRST $138
$137==.
	PUSH 17,%PASSF
	PUSH 17,%CH
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$138==.
	MOVE 4,%CH
	CAIN 4,52
	 JRST $140
	PUSHJ 17,%NEXTC
	JRST $139
$140==.
	PUSHJ 17,%NEXTC
	CAIE 1,57
	 JRST $139
	MOVE 5,%PASSF
	SOSGE 3,1(5)
	 JRST $141
	MOVE 4,1
	MOVE 7,%PASSF
	IDPB 4,2(7)
	JRST $133
$141==.
	PUSH 17,%PASSF
	PUSH 17,[57]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $133
$139==.
	SKIPN 4,EOF
	 JRST $136
	PUSH 17,[$$BP90+$$SECT,,$142]
	PUSHJ 17,ERROR
	ADJSP 17,-1
$133==.
	MOVEI 3,40
	MOVEM 3,%CH
	POPJ 17,
$142==.
	BYTE	(9) 125,156,145,170
	BYTE	(9) 160,145,143,164
	BYTE	(9) 145,144,40,105
	BYTE	(9) 117,106,40,151
	BYTE	(9) 156,40,143,157
	BYTE	(9) 155,155,145,156
	BYTE	(9) 164,0
	

$135==.
	BYTE	(9) 57,52,0
	


	%%DATA
$143:	BLOCK 1
$144:	0

	%%CODE
%NEXTC:
	PUSH 17,%CH
	SKIPN 5,%BACKS
	 JRST $145
	IBP %BACKS
	LDB 1,5
	MOVEM 1,%CH
	JUMPE 1,$146
	CAIE 1,305
	 JRST $148
	PUSHJ 17,%TCHES
	MOVEM 1,%CH
$148==.
	ADJSP 17,-1
	POPJ 17,
$146==.
	PUSHJ 17,%BSTR1
	POP 17,%CH
	JRST %NEXTC
$145==.
	MOVE 5,IN
	SOSGE 3,1(5)
	 JRST $149
	MOVE 7,IN
	ILDB 1,2(7)
	JRST $150
$149==.
	PUSH 17,IN
	PUSHJ 17,FGETC
	ADJSP 17,-1
$150==.
	MOVEM 1,%CH
	MOVE 4,1
	DPB 4,ERPTR
	IBP ERPTR
	SOSLE 3,ERPLEF
	 JRST $151
	MOVE 5,[$$BP90+$$SECT,,ERRLIN]
	MOVEM 5,ERPTR
	MOVEI 6,400
	MOVEM 6,ERPLEF
$151==.
	MOVE 4,%CH
	MOVM 5,4
	IDIVI 5,16
	CAME 4,$158(6)
	 JRST $152
	JRST @$159(6)
$158==.
	 -1
	 -1
	 -1
	 -1
	 -1
	 -1
	 -1
	 77
	 134
	 -1
	 12
	 13
	 14
	 15
$159==.
	IFIW $152
	IFIW $153
	IFIW $152
	IFIW $152
	IFIW $152
	IFIW $152
	IFIW $152
	IFIW $154
	IFIW $155
	IFIW $152
	IFIW $157
	IFIW $157
	IFIW $156
	IFIW $157
$153==.
	MOVE 4,IN
	SKIPN 3,11(4)
	 JRST $161
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	PUSH 17,[$$BP90+$$SECT,,$162]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	JRST $160
$161==.
	MOVE 4,IN
	MOVE 3,5(4)
	TRNE 3,200
	 JRST $160
	PUSH 17,[$$BP90+$$SECT,,$163]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$160==.
	MOVE 5,0(17)
	CAIE 5,12
	 AOSN 5,5
	 JRST $164
	PUSH 17,[$$BP90+$$SECT,,$165]
	PUSHJ 17,WARN
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$166]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$164==.
	SKIPG 5,%INLEV
	 JRST $167
	PUSH 17,5
	PUSHJ 17,%IFPOP
	ADJSP 17,-1
	PUSH 17,IN
	PUSHJ 17,FCLOSE
	SOS 12,%INLEV
	IMULI 12,57
	MOVE 3,%INC(12)
	MOVEM 3,IN
	MOVE 4,%INC*1+54(12)
	MOVEM 4,PAGE
	MOVE 5,%INC*1+55(12)
	MOVEM 5,LINE
	MOVE 6,%INC*1+56(12)
	MOVEM 6,FLINE
	XMOVEI 12,%INC*1+1(12)
	TLO 12,$$BP90
	MOVEM 12,0(17)
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	PUSHJ 17,STRCPY
	ADJSP 17,-2
	SKIPN 4,%DEBPP
	 JRST $168
	PUSHJ 17,%NEXTC
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	MOVE 4,%INLEV
	ADDI 4,1
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$169]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	MOVE 1,%CH
	ADJSP 17,-6
	POPJ 17,
$168==.
	ADJSP 17,-1
	JRST %NEXTC
$167==.
	SKIPE 5,EOF
	 JRST $152
	MOVEI 3,1
	MOVEM 3,EOF
	SKIPN 6,%IFLEV
	 JRST $152
	PUSH 17,5
	PUSHJ 17,%IFPOP
	ADJSP 17,-1
	JRST $152
$154==.
	MOVE 4,CLEVEL
	CAIL 4,3
	 SKIPE 5,$144
	 JRST $152
	AOS 3,$144
	SKIPE 7,$143
	 JRST $170
	PUSHJ 17,%NEXTC
	CAIN 1,77
	 JRST $170
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	SETZB 3,$144
	PUSH 17,[$$BP90+$$SECT,,$171]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$170==.
	PUSHJ 17,%NEXTC
	SETZB 4,$144
	MOVEM 4,$143
	MOVE 5,%CH
	CAIL 5,57
	 JRST $183
	CAIL 5,41
	 CAIL 5,56
	 JRST $181
	JRST @$184*1-41(5)
$184==.
	IFIW $178
	IFIW $181
	IFIW $181
	IFIW $181
	IFIW $181
	IFIW $181
	IFIW $176
	IFIW $173
	IFIW $175
	IFIW $181
	IFIW $181
	IFIW $181
	IFIW $180
$183==.
	MOVM 3,5
	IDIVI 3,6
	CAME 5,$185(4)
	 JRST $181
	JRST @$186(4)
$185==.
	 74
	 75
	 76
	 77
	 -1
	 57
$186==.
	IFIW $177
	IFIW $172
	IFIW $179
	IFIW $182
	IFIW $181
	IFIW $174
$172==.
	MOVEI 3,43
	MOVEM 3,%CH
	JRST $152
$173==.
	MOVEI 3,133
	MOVEM 3,%CH
	JRST $152
$174==.
	MOVEI 3,134
	MOVEM 3,%CH
	JRST $152
$175==.
	MOVEI 3,135
	MOVEM 3,%CH
	JRST $152
$176==.
	MOVEI 3,136
	MOVEM 3,%CH
	JRST $152
$177==.
	MOVEI 3,173
	MOVEM 3,%CH
	JRST $152
$178==.
	MOVEI 3,174
	MOVEM 3,%CH
	JRST $152
$179==.
	MOVEI 3,175
	MOVEM 3,%CH
	JRST $152
$180==.
	MOVEI 3,176
	MOVEM 3,%CH
	JRST $152
$181==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$187]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$182==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	MOVEI 3,1
	MOVEM 3,$143
	PUSH 17,[$$BP90+$$SECT,,$188]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$155==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNN 3,2000
	 JRST $189
	SETZB 4,%CH
	ADJSP 17,-1
	JRST %NEXTC
$189==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$190]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$156==.
	AOS 3,PAGE
	MOVEI 4,1
	MOVEM 4,LINE
	JRST $152
$157==.
	AOS 3,LINE
	AOS 4,FLINE
	AOS 5,TLINE
$152==.
	MOVE 1,%CH
	ADJSP 17,-1
	POPJ 17,
$190==.
	BYTE	(9) 134,0
	

$188==.
	BYTE	(9) 77,0
	

$187==.
	BYTE	(9) 77,77,0
	

$171==.
	BYTE	(9) 77,0
	

$169==.
	BYTE	(9) 43,151,156,143
	BYTE	(9) 154,165,144,145
	BYTE	(9) 40,45,144,72
	BYTE	(9) 40,162,145,163
	BYTE	(9) 164,157,162,145
	BYTE	(9) 144,40,42,45
	BYTE	(9) 163,42,54,40
	BYTE	(9) 156,145,167,40
	BYTE	(9) 143,150,141,162
	BYTE	(9) 40,45,43,157
	BYTE	(9) 12,0
	

$166==.
	BYTE	(9) 12,0
	

$165==.
	BYTE	(9) 106,151,154,145
	BYTE	(9) 40,144,157,145
	BYTE	(9) 163,40,156,157
	BYTE	(9) 164,40,145,156
	BYTE	(9) 144,40,167,151
	BYTE	(9) 164,150,40,105
	BYTE	(9) 117,114,40,50
	BYTE	(9) 134,156,51,0
	

$163==.
	BYTE	(9) 156,145,170,164
	BYTE	(9) 143,150,72,40
	BYTE	(9) 163,160,165,162
	BYTE	(9) 151,157,165,163
	BYTE	(9) 40,105,117,106
	BYTE	(9) 0
	

$162==.
	BYTE	(9) 111,57,117,40
	BYTE	(9) 145,162,162,157
	BYTE	(9) 162,40,144,145
	BYTE	(9) 164,145,143,164
	BYTE	(9) 145,144,40,167
	BYTE	(9) 150,151,154,145
	BYTE	(9) 40,162,145,141
	BYTE	(9) 144,151,156,147
	BYTE	(9) 40,146,151,154
	BYTE	(9) 145,40,45,163
	BYTE	(9) 0
	

%TCHES:
	LDB 4,%BACKS
	IBP %BACKS
	PUSH 17,4
	CAIN 4,105
	 JRST $194
	CAIN 4,305
	 JRST $193
	PUSH 17,4
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$195]
	PUSHJ 17,INT.ER
	ADJSP 17,-3
$193==.
	POP 17,1
	POPJ 17,
$194==.
	MOVNI 3,2
	ADJBP 3,%BACKS
	MOVEM 3,%BACKS
	SETO 1,
	ADJSP 17,-1
	POPJ 17,
$195==.
	BYTE	(9) 164,143,150,145
	BYTE	(9) 163,143,72,40
	BYTE	(9) 164,157,153,145
	BYTE	(9) 156,40,145,163
	BYTE	(9) 143,141,160,145
	BYTE	(9) 40,143,150,141
	BYTE	(9) 162,40,45,144
	BYTE	(9) 75,47,45,143
	BYTE	(9) 47,0
	


	%%DATA
%EOFST:	BYTE (9) 305,105

	%%CODE
%SINBE:
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,%EOFST]
	PUSHJ 17,%BSTRP
	ADJSP 17,-1
	JRST %PUSHS
%SINEN:
$196==.
	MOVE 4,%BACKS
	CAMN 4,[$$BP90+$$SECT,,%EOFST]
	 JRST $197
	PUSH 17,[$$BP90+$$SECT,,$198]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	PUSHJ 17,%BSTR1
	JRST $196
$197==.
	PUSHJ 17,%BSTR1
	JRST %NEXTC
$198==.
	BYTE	(9) 163,151,156,145
	BYTE	(9) 156,144,72,40
	BYTE	(9) 154,145,146,164
	BYTE	(9) 157,166,145,162
	BYTE	(9) 40,151,156,160
	BYTE	(9) 165,164,0
	

%PUSHC:
	SKIPN 4,%BACKS
	 JRST $199
	SETO 7,
	ADJBP 7,%BACKS
	MOVEM 7,%BACKS
	MOVE 6,-1(17)
	LDB 3,7
	CAMN 6,3
	 JRST $200
	PUSH 17,[$$BP90+$$SECT,,$201]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$200==.
	POPJ 17,
$199==.
	PUSH 17,-1(17)
	PUSH 17,IN
	PUSH 17,-3(17)
	PUSHJ 17,UNGETC
	MOVE 3,-2(17)
	ADJSP 17,-3
	CAMN 1,3
	 JRST $202
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$203]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
$202==.
	MOVE 4,-1(17)
	MOVE 3,CTFTAB*1+1(4)
	TRNN 3,2000
	 JRST $204
	SOS 5,LINE
	SOS 6,FLINE
	SOS 7,TLINE
$204==.
	MOVE 4,ERPTR
	CAME 4,[$$BP90+$$SECT,,ERRLIN]
	 JRST $205
	MOVE 5,[$$BP90+$$SECT,,ERRLIN*1+100]
	MOVEM 5,ERPTR
	SETZB 3,ERPLEF
$205==.
	SETZ 3,
	SETO 4,
	ADJBP 4,ERPTR
	MOVEM 4,ERPTR
	DPB 3,4
	AOS 5,ERPLEF
	POPJ 17,
$203==.
	BYTE	(9) 160,165,163,150
	BYTE	(9) 143,150,72,40
	BYTE	(9) 165,156,147,145
	BYTE	(9) 164,143,40,146
	BYTE	(9) 141,151,154,145
	BYTE	(9) 144,72,40,45
	BYTE	(9) 157,0
	

$201==.
	BYTE	(9) 160,165,163,150
	BYTE	(9) 143,150,72,40
	BYTE	(9) 142,141,144,40
	BYTE	(9) 142,141,143,153
	BYTE	(9) 165,160,40,143
	BYTE	(9) 150,141,162,0
	

%PUSHS:
	PUSH 17,-1(17)
	PUSHJ 17,%BSTRP
	ADJSP 17,-1
	JRST %NEXTC
%BSTRP:
	MOVE 4,%BKSTR
	CAIGE 4,13
	 JRST $207
	PUSH 17,[$$BP90+$$SECT,,$208]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	MOVEI 3,13
	MOVEM 3,%BKSTR
	JRST $206
$207==.
	MOVE 4,%BACKS
	XMOVEI 3,%BKST1
	AOS 5,%BKSTR
	ADD 5,3
	MOVEM 4,-1(5)
	MOVE 7,-1(17)
	MOVEM 7,%BACKS
$206==.
	POPJ 17,
$208==.
	BYTE	(9) 142,163,164,162
	BYTE	(9) 160,165,163,150
	BYTE	(9) 72,40,142,153
	BYTE	(9) 163,164,162,163
	BYTE	(9) 40,157,166,145
	BYTE	(9) 162,146,154,157
	BYTE	(9) 167,0
	

%BSTR1:
	SOSL 3,%BKSTR
	 JRST $210
	PUSH 17,[$$BP90+$$SECT,,$211]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	SETZB 4,%BACKS
	MOVEM 4,%BKSTR
	JRST $209
$210==.
	MOVE 3,%BKSTR
	MOVE 4,%BKST1(3)
	MOVEM 4,%BACKS
$209==.
	POPJ 17,
$211==.
	BYTE	(9) 142,163,164,162
	BYTE	(9) 160,157,160,72
	BYTE	(9) 40,142,153,163
	BYTE	(9) 164,162,163,40
	BYTE	(9) 165,156,144,145
	BYTE	(9) 162,146,154,157
	BYTE	(9) 167,0
	

%NEXTR:
	SETZB 3,%RAWVA
	MOVE 5,%CH
	CAML 5,[-1]
	 CAIL 5,177
	 JRST $246
	JRST @$247*1+1(5)
$247==.
	IFIW $213
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $215
	IFIW $216
	IFIW $214
	IFIW $214
	IFIW $214
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $215
	IFIW $223
	IFIW $219
	IFIW $221
	IFIW $246
	IFIW $225
	IFIW $229
	IFIW $218
	IFIW $234
	IFIW $235
	IFIW $224
	IFIW $230
	IFIW $236
	IFIW $231
	IFIW $220
	IFIW $227
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $217
	IFIW $237
	IFIW $238
	IFIW $233
	IFIW $222
	IFIW $232
	IFIW $239
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $240
	IFIW $246
	IFIW $241
	IFIW $226
	IFIW $246
	IFIW $245
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $246
	IFIW $242
	IFIW $228
	IFIW $243
	IFIW $244
$213==.
	MOVEI 1,1
	MOVEM 1,%RAWPP
	POPJ 17,
$214==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
$215==.
	JRST %SCANH
$216==.
	MOVEI 3,3
	MOVEM 3,%RAWPP
	JRST $212
$217==.
	PUSH 17,[0]
	PUSHJ 17,%PPNCO
	ADJSP 17,-1
	POPJ 17,
$218==.
	PUSH 17,[0]
	PUSHJ 17,%PPSCO
	MOVEI 1,15
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$219==.
	PUSH 17,[0]
	PUSHJ 17,%PPSCO
	MOVEI 1,16
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$220==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNN 3,20
	 JRST $248
	PUSH 17,[56]
	PUSHJ 17,%PPNCO
	ADJSP 17,-1
	POPJ 17,
$248==.
	MOVE 4,%CH
	CAIN 4,56
	 JRST $249
	MOVEI 1,51
	MOVEM 1,%RAWPP
	POPJ 17,
$249==.
	PUSHJ 17,%NEXTC
	CAIN 1,56
	 JRST $250
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	MOVEI 3,56
	MOVEM 3,%CH
	MOVEI 1,51
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$250==.
	MOVEI 3,20
	MOVEM 3,%RAWPP
	JRST $212
$221==.
	PUSHJ 17,%NEXTC
	CAIN 1,43
	 JRST $251
	MOVEI 1,21
	MOVEM 1,%RAWPP
	POPJ 17,
$251==.
	PUSHJ 17,%NEXTC
	MOVEI 1,22
	MOVEM 1,%RAWPP
	POPJ 17,
$222==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $252
	MOVEI 1,111
	MOVEM 1,%RAWPP
	POPJ 17,
$252==.
	PUSHJ 17,%NEXTC
	MOVEI 1,101
	MOVEM 1,%RAWPP
	POPJ 17,
$223==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $253
	MOVEI 1,62
	MOVEM 1,%RAWPP
	POPJ 17,
$253==.
	PUSHJ 17,%NEXTC
	MOVEI 1,102
	MOVEM 1,%RAWPP
	POPJ 17,
$224==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $254
	MOVEI 1,66
	MOVEM 1,%RAWPP
	POPJ 17,
$254==.
	PUSHJ 17,%NEXTC
	MOVEI 1,114
	MOVEM 1,%RAWPP
	POPJ 17,
$225==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $255
	MOVEI 1,70
	MOVEM 1,%RAWPP
	POPJ 17,
$255==.
	PUSHJ 17,%NEXTC
	MOVEI 1,116
	MOVEM 1,%RAWPP
	POPJ 17,
$226==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $256
	MOVEI 1,104
	MOVEM 1,%RAWPP
	POPJ 17,
$256==.
	PUSHJ 17,%NEXTC
	MOVEI 1,122
	MOVEM 1,%RAWPP
	POPJ 17,
$227==.
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 JRST $259
	CAIN 1,75
	 JRST $258
	MOVEI 1,67
	MOVEM 1,%RAWPP
	POPJ 17,
$258==.
	PUSHJ 17,%NEXTC
	MOVEI 1,115
	MOVEM 1,%RAWPP
	POPJ 17,
$259==.
	PUSHJ 17,%SCANC
	JRST %SCANH
$228==.
	PUSHJ 17,%NEXTC
	CAIN 1,174
	 JRST $261
	CAIE 1,75
	 JRST $262
	PUSHJ 17,%NEXTC
	MOVEI 1,123
	MOVEM 1,%RAWPP
	POPJ 17,
$261==.
	PUSHJ 17,%NEXTC
	MOVEI 1,107
	MOVEM 1,%RAWPP
	POPJ 17,
$262==.
	MOVEI 1,105
	MOVEM 1,%RAWPP
	POPJ 17,
$229==.
	PUSHJ 17,%NEXTC
	CAIN 1,46
	 JRST $264
	CAIE 1,75
	 JRST $265
	PUSHJ 17,%NEXTC
	MOVEI 1,121
	MOVEM 1,%RAWPP
	POPJ 17,
$264==.
	PUSHJ 17,%NEXTC
	MOVEI 1,106
	MOVEM 1,%RAWPP
	POPJ 17,
$265==.
	MOVEI 1,103
	MOVEM 1,%RAWPP
	POPJ 17,
$230==.
	PUSHJ 17,%NEXTC
	CAIN 1,53
	 JRST $267
	CAIE 1,75
	 JRST $268
	PUSHJ 17,%NEXTC
	MOVEI 1,112
	MOVEM 1,%RAWPP
	POPJ 17,
$267==.
	PUSHJ 17,%NEXTC
	MOVEI 1,35
	MOVEM 1,%RAWPP
	POPJ 17,
$268==.
	MOVEI 1,71
	MOVEM 1,%RAWPP
	POPJ 17,
$231==.
	PUSHJ 17,%NEXTC
	CAIN 1,76
	 JRST $271
	CAIN 1,75
	 JRST $270
	CAIE 1,55
	 JRST $272
	MOVEI 3,36
	MOVEM 3,%RAWPP
	JRST $212
$270==.
	MOVEI 3,113
	MOVEM 3,%RAWPP
	JRST $212
$271==.
	MOVEI 3,52
	MOVEM 3,%RAWPP
	JRST $212
$272==.
	MOVEI 1,72
	MOVEM 1,%RAWPP
	POPJ 17,
$232==.
	PUSHJ 17,%NEXTC
	CAIN 1,76
	 JRST $275
	CAIN 1,75
	 JRST $274
	MOVEI 1,76
	MOVEM 1,%RAWPP
	POPJ 17,
$274==.
	MOVEI 3,100
	MOVEM 3,%RAWPP
	JRST $212
$275==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $276
	MOVEI 1,74
	MOVEM 1,%RAWPP
	POPJ 17,
$276==.
	PUSHJ 17,%NEXTC
	MOVEI 1,117
	MOVEM 1,%RAWPP
	POPJ 17,
$233==.
	PUSHJ 17,%NEXTC
	CAIN 1,74
	 JRST $279
	CAIN 1,75
	 JRST $278
	MOVEI 1,75
	MOVEM 1,%RAWPP
	POPJ 17,
$278==.
	MOVEI 3,77
	MOVEM 3,%RAWPP
	JRST $212
$279==.
	PUSHJ 17,%NEXTC
	CAIN 1,75
	 JRST $280
	MOVEI 1,73
	MOVEM 1,%RAWPP
	POPJ 17,
$280==.
	PUSHJ 17,%NEXTC
	MOVEI 1,120
	MOVEM 1,%RAWPP
	POPJ 17,
$234==.
	MOVEI 3,23
	MOVEM 3,%RAWPP
	JRST $212
$235==.
	MOVEI 3,24
	MOVEM 3,%RAWPP
	JRST $212
$236==.
	MOVEI 3,33
	MOVEM 3,%RAWPP
	JRST $212
$237==.
	MOVEI 3,32
	MOVEM 3,%RAWPP
	JRST $212
$238==.
	MOVEI 3,25
	MOVEM 3,%RAWPP
	JRST $212
$239==.
	MOVEI 3,110
	MOVEM 3,%RAWPP
	JRST $212
$240==.
	MOVEI 3,26
	MOVEM 3,%RAWPP
	JRST $212
$241==.
	MOVEI 3,27
	MOVEM 3,%RAWPP
	JRST $212
$242==.
	MOVEI 3,30
	MOVEM 3,%RAWPP
	JRST $212
$243==.
	MOVEI 3,31
	MOVEM 3,%RAWPP
	JRST $212
$244==.
	MOVEI 3,61
	MOVEM 3,%RAWPP
	JRST $212
$245==.
	SKIPN 4,CLEVKC
	 JRST $281
	PUSH 17,[0]
	PUSHJ 17,%PPSCO
	MOVEI 1,4
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$281==.
	JRST %PPUNK
$246==.
	MOVE 4,%CH
	MOVE 3,CTFTAB*1+1(4)
	TRNN 3,1140
	 JRST %PPUNK
	SKIPE 6,%PPCPT
	 JRST $283
	MOVEI 5,7637
	MOVEM 5,%PPCLE
	MOVEM 5,%PPCOC
	MOVE 7,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 7,%PPCPT
	MOVE 1,7
	IBP 1
	JRST $284
$283==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$284==.
	MOVEM 1,%RAWVA
	MOVE 4,%CH
	CAIE 4,114
	 JRST $285
	PUSHJ 17,%NEXTC
	CAIN 1,42
	 JRST $288
	CAIE 1,47
	 JRST $286
	PUSH 17,[114]
	PUSHJ 17,%PPSCO
	MOVEI 1,15
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$288==.
	PUSH 17,[114]
	PUSHJ 17,%PPSCO
	MOVEI 1,16
	MOVEM 1,%RAWPP
	ADJSP 17,-1
	POPJ 17,
$286==.
	SOSLE 3,%PPCLE
	 SKIPA 4,[114]
	 TRNA 
	 IDPB 4,%PPCPT
	MOVE 6,%CH
	MOVE 5,CTFTAB*1+1(6)
	TRNE 5,1160
	 JRST $285
	SOSG 7,%PPCLE
	 JRST $290
	SETZ 10,
	IDPB 10,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $291
$290==.
	PUSHJ 17,%PPCER
$291==.
	MOVEM 1,%RWPPL
	MOVEI 1,4
	MOVEM 1,%RAWPP
	POPJ 17,
$285==.
$292==.
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNE 3,1160
	 JRST $292
	SOSG 4,%PPCLE
	 JRST $295
	SETZ 5,
	IDPB 5,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $296
$295==.
	PUSHJ 17,%PPCER
$296==.
	MOVEM 1,%RWPPL
	MOVEI 1,4
	MOVEM 1,%RAWPP
	POPJ 17,
$212==.
	PUSHJ 17,%NEXTC
	MOVE 1,%RAWPP
	POPJ 17,
%SCANH:
$297==.
$299==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNE 3,20004
	 JRST $299
	MOVE 5,%CH
	MOVM 4,5
	ANDI 4,7
	CAME 5,$303(4)
	 JRST $298
	JRST @$304(4)
$303==.
	 -1
	 -1
	 -1
	 13
	 14
	 15
	 -1
	 57
$304==.
	IFIW $298
	IFIW $298
	IFIW $298
	IFIW $301
	IFIW $301
	IFIW $300
	IFIW $298
	IFIW $302
$300==.
	PUSHJ 17,%NEXTC
	CAIE 1,12
	 JRST $305
	PUSH 17,[$$BP90+$$SECT,,$306]
	PUSHJ 17,NOTE
	ADJSP 17,-1
	JRST $298
$305==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	MOVEI 3,15
	MOVEM 3,%CH
$301==.
	SKIPN 4,%INDIR
	 JRST $297
	PUSH 17,%CH
	PUSH 17,[$$BP90+$$SECT,,$307]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	PUSHJ 17,%NEXTC
	MOVEI 1,3
	MOVEM 1,%RAWPP
	POPJ 17,
$302==.
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $308
	PUSHJ 17,%SCANC
	JRST $297
$308==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	MOVEI 3,57
	MOVEM 3,%CH
$298==.
	MOVEI 1,2
	MOVEM 1,%RAWPP
	POPJ 17,
$307==.
	BYTE	(9) 151,156,166,141
	BYTE	(9) 154,151,144,40
	BYTE	(9) 167,150,151,164
	BYTE	(9) 145,163,160,141
	BYTE	(9) 143,145,40,151
	BYTE	(9) 156,40,144,151
	BYTE	(9) 162,145,143,164
	BYTE	(9) 151,166,145,72
	BYTE	(9) 40,47,134,45
	BYTE	(9) 43,157,47,0
	

$306==.
	BYTE	(9) 123,164,162,141
	BYTE	(9) 171,40,47,134
	BYTE	(9) 162,47,40,163
	BYTE	(9) 145,145,156,54
	BYTE	(9) 40,151,147,156
	BYTE	(9) 157,162,151,156
	BYTE	(9) 147,0
	

%SCANC:
$309==.
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 JRST $313
	CAIN 1,57
	 JRST $312
	CAME 1,[-1]
	 JRST $309
	PUSH 17,[$$BP90+$$SECT,,$314]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $310
$312==.
$315==.
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $317
	PUSH 17,[$$BP90+$$SECT,,$318]
	PUSHJ 17,ADVISE
	ADJSP 17,-1
	JRST $316
$317==.
	MOVE 4,%CH
	CAIN 4,57
	 JRST $315
$316==.
	MOVE 4,%CH
	CAIE 4,52
	 JRST $309
$313==.
$319==.
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 JRST $319
	MOVE 4,%CH
	CAIE 4,57
	 JRST $309
$310==.
	POPJ 17,
$318==.
	BYTE	(9) 116,145,163,164
	BYTE	(9) 145,144,40,143
	BYTE	(9) 157,155,155,145
	BYTE	(9) 156,164,0
	

$314==.
	BYTE	(9) 125,156,145,170
	BYTE	(9) 160,145,143,164
	BYTE	(9) 145,144,40,105
	BYTE	(9) 117,106,40,151
	BYTE	(9) 156,40,143,157
	BYTE	(9) 155,155,145,156
	BYTE	(9) 164,0
	


	%%DATA
$320:	BLOCK 1

	%%CODE
%PPNCO:
	SETZB 3,$320
	SKIPE 5,%PPCPT
	 JRST $321
	MOVEI 4,7637
	MOVEM 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 6,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 6,%PPCPT
	MOVE 1,6
	IBP 1
	JRST $322
$321==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$322==.
	MOVEM 1,%RAWVA
	SKIPN 6,-1(17)
	 JRST $324
	SOSLE 3,%PPCLE
	 IDPB 6,%PPCPT
	MOVEI 4,14
	MOVEM 4,%RAWPP
	JRST $323
$324==.
	MOVEI 3,13
	MOVEM 3,%RAWPP
$323==.
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
$327==.
	PUSHJ 17,%NEXTC
	MOVM 3,1
	IDIVI 3,12
	CAME 1,$335(4)
	 JRST $334
	JRST @$336(4)
$335==.
	 170
	 145
	 -1
	 53
	 -1
	 55
	 56
	 -1
	 130
	 105
$336==.
	IFIW $330
	IFIW $332
	IFIW $334
	IFIW $333
	IFIW $334
	IFIW $333
	IFIW $331
	IFIW $334
	IFIW $330
	IFIW $332
$330==.
	MOVE 4,%PPCOC
	SUB 4,%PPCLE
	SOJN 4,$329
	LDB 3,%PPCPT
	CAIN 3,60
	 AOS 5,$320
	JRST $329
$332==.
	SKIPE 4,$320
	 JRST $329
$331==.
	MOVEI 3,14
	MOVEM 3,%RAWPP
	JRST $329
$333==.
	LDB 3,%PPCPT
	PUSH 17,3
	PUSHJ 17,CHR2UP
	ADJSP 17,-1
	CAIE 1,105
	 JRST $328
	JRST $329
$334==.
	MOVE 4,%CH
	MOVE 3,CTFTAB*1+1(4)
	TRNN 3,1160
	 JRST $328
$329==.
	SOSG 3,%PPCLE
	 JRST $327
	MOVE 5,%CH
	IDPB 5,%PPCPT
	JRST $327
$328==.
	SOSG 3,%PPCLE
	 JRST $337
	SETZ 4,
	IDPB 4,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $338
$337==.
	PUSHJ 17,%PPCER
$338==.
	MOVEM 1,%RWPPL
	MOVE 1,%RAWPP
	POPJ 17,
%PPSCO:
	PUSH 17,%CH
	SKIPE 4,%PPCPT
	 JRST $339
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $340
$339==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$340==.
	MOVEM 1,%RAWVA
	SKIPE 6,-2(17)
	 SOSG 3,%PPCLE
	 TRNA 
	 IDPB 6,%PPCPT
	SOSLE 4,%PPCLE
	 SKIPA 7,%CH
	 TRNA 
	 IDPB 7,%PPCPT
$343==.
	PUSHJ 17,%NEXTC
	CAIN 1,134
	 JRST $346
	CAIE 1,12
	 CAMN 1,[-1]
	 JRST $344
	JRST $347
$346==.
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
	PUSHJ 17,%NEXTC
	CAIE 1,12
	 CAMN 1,[-1]
	 JRST $344
	JRST $345
$347==.
	MOVE 6,%CH
	CAME 6,0(17)
	 JRST $345
	SOSLE 3,%PPCLE
	 IDPB 6,%PPCPT
	SOSG 4,%PPCLE
	 JRST $350
	SETZ 5,
	IDPB 5,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $351
$350==.
	PUSHJ 17,%PPCER
$351==.
	MOVEM 1,%RWPPL
	ADJSP 17,-1
	JRST %NEXTC
$345==.
	SOSG 3,%PPCLE
	 JRST $343
	MOVE 5,%CH
	IDPB 5,%PPCPT
	JRST $343
$344==.
	SOSLE 3,%PPCLE
	 SKIPA 5,0(17)
	 TRNA 
	 IDPB 5,%PPCPT
	SOSG 4,%PPCLE
	 JRST $353
	SETZ 6,
	IDPB 6,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $354
$353==.
	PUSHJ 17,%PPCER
$354==.
	MOVEM 1,%RWPPL
	MOVE 4,0(17)
	CAIN 4,47
	 SKIPA 1,[$$BP90+$$SECT,,$357]
	 TRNA 
	 JRST $356
	CAIN 4,42
	 SKIPA 1,[$$BP90+$$SECT,,$359]
	 MOVE 1,[$$BP90+$$SECT,,$360]
$356==.
	PUSH 17,1
	MOVE 4,%CH
	CAIN 4,12
	 SKIPA 1,[$$BP90+$$SECT,,$363]
	 TRNA 
	 JRST $362
	AOJN 4,$364
	MOVE 1,[$$BP90+$$SECT,,$365]
	JRST $362
$364==.
	MOVE 1,[$$BP90+$$SECT,,$366]
$362==.
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$367]
	PUSHJ 17,ERROR
	ADJSP 17,-4
	POPJ 17,
$367==.
	BYTE	(9) 45,163,40,151
	BYTE	(9) 156,40,45,163
	BYTE	(9) 0
	

$366==.
	BYTE	(9) 111,154,154,145
	BYTE	(9) 147,141,154,40
	BYTE	(9) 143,150,141,162
	BYTE	(9) 0
	

$365==.
	BYTE	(9) 105,117,106,0
	

$363==.
	BYTE	(9) 105,117,114,0
	

$360==.
	BYTE	(9) 161,165,157,164
	BYTE	(9) 145,144,40,151
	BYTE	(9) 144,145,156,164
	BYTE	(9) 151,146,151,145
	BYTE	(9) 162,0
	

$359==.
	BYTE	(9) 163,164,162,151
	BYTE	(9) 156,147,40,154
	BYTE	(9) 151,164,145,162
	BYTE	(9) 141,154,0
	

$357==.
	BYTE	(9) 143,150,141,162
	BYTE	(9) 40,143,157,156
	BYTE	(9) 163,164,141,156
	BYTE	(9) 164,0
	

%PPUNK:
	SKIPE 4,%PPCPT
	 JRST $368
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $369
$368==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$369==.
	MOVEM 1,%RAWVA
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
	PUSHJ 17,%NEXTC
	SOSG 3,%PPCLE
	 JRST $371
	SETZ 4,
	IDPB 4,%PPCPT
	MOVE 1,%PPCOC
	SUB 1,%PPCLE
	SUBI 1,1
	JRST $372
$371==.
	PUSHJ 17,%PPCER
$372==.
	MOVEM 1,%RWPPL
	MOVEI 1,17
	MOVEM 1,%RAWPP
	POPJ 17,
%PPTER:
	PUSH 17,[$$BP90+$$SECT,,$373]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
	POPJ 17,
$373==.
	BYTE	(9) 120,162,145,160
	BYTE	(9) 162,157,143,145
	BYTE	(9) 163,163,157,162
	BYTE	(9) 40,164,157,153
	BYTE	(9) 145,156,40,164
	BYTE	(9) 141,142,154,145
	BYTE	(9) 40,157,166,145
	BYTE	(9) 162,146,154,157
	BYTE	(9) 167,0
	

NEXTPP:
	MOVE 7,%CURTL
	MOVEM 7,CURPTR
	JUMPE 7,$374
	HLRZ 3,0(7)
	MOVEM 3,CURPP
	MOVE 4,2(7)
	MOVEM 4,CURVAL
	MOVE 6,1(7)
	MOVEM 6,%CURTL
	JUMPN 6,$375
	MOVEM 6,%CURTL*1+1
	MOVEM 6,%CURTL
	XMOVEI 5,%PPTOK
	MOVEM 5,%PPTPT
	SKIPN 11,%INASM
	 JRST $375
	PUSHJ 17,%ASMRE
	DMOVEM 1,%CURTL
	PUSHJ 17,NEXTPP
	POPJ 17,
$375==.
	MOVE 1,CURPP
	CAIN 1,4
	 PUSHJ 17,%FINDI
	POPJ 17,
$374==.
	SETZB 3,%PPCPT
	PUSHJ 17,%NEXTR
	CAIE 1,3
	 JRST $378
$379==.
	PUSHJ 17,%TSKPL
	CAIE 1,21
	 JRST $378
	PUSHJ 17,%DIREC
	SKIPE 4,%CURTL
	 JRST NEXTPP
	JRST $379
$378==.
	MOVE 4,%RAWVA
	MOVEM 4,CURVAL
	MOVE 1,%RAWPP
	MOVEM 1,CURPP
	CAIN 1,4
	 PUSHJ 17,%FINDI
	POPJ 17,
PUSHPP:
	SKIPN 6,CURPTR
	 JRST $383
	MOVE 5,%CURTL
	MOVEM 5,1(6)
	JUMPN 5,$384
	MOVE 4,CURPTR
	MOVEM 4,%CURTL*1+1
	MOVEM 4,%CURTL
	JRST $382
$384==.
	MOVE 4,CURPTR
	MOVEM 4,%CURTL
	JRST $382
$383==.
	PUSH 17,CURVAL
	PUSH 17,CURPP
	PUSHJ 17,%TLMAK
	ADJSP 17,-2
	DMOVEM 1,%CURTL
$382==.
	POPJ 17,
%FINDI:
	PUSH 17,CURVAL
	LDB 3,CURVAL
	CAIE 3,140
	 JRST $385
	SETZB 4,CURSYM
	MOVE 1,CURPP
	ADJSP 17,-1
	POPJ 17,
$385==.
	PUSH 17,[1]
	PUSH 17,-1(17)
	PUSHJ 17,SYMFIN
	ADJSP 17,-2
	MOVEM 1,CURSYM
	MOVE 3,0(1)
	SOJN 3,$386
	SKIPE 4,CURPTR
	 JRST $387
	PUSH 17,4
	PUSH 17,1
	PUSHJ 17,%MEXPT
	ADJSP 17,-2
	JUMPE 1,$387
	ADJSP 17,-1
	JRST NEXTPP
$387==.
	PUSH 17,CURSYM
	PUSHJ 17,SYMFNE
	ADJSP 17,-1
	MOVEM 1,CURSYM
	JUMPN 1,$386
	PUSH 17,0(17)
	PUSHJ 17,SYMGCR
	MOVEM 1,0(17)
	PUSHJ 17,SHMACS
	ADJSP 17,-1
	MOVEM 1,CURSYM
$386==.
	MOVE 1,CURPP
	ADJSP 17,-1
	POPJ 17,
%FINDM:
	ADJSP 17,1
	PUSH 17,[0]
	PUSH 17,-3(17)
	PUSHJ 17,SYMFIN
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$388
	MOVE 3,0(1)
	SOJN 3,$389
	ADJSP 17,-1
	POPJ 17,
$389==.
	MOVE 5,0(17)
	SOS 3,20(5)
$388==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
%NEXTM:
	MOVE 7,%MCTL
	MOVEM 7,%RAWPT
	JUMPE 7,$390
	MOVE 3,2(7)
	MOVEM 3,%RAWVA
	HLRZ 4,0(7)
	MOVEM 4,%RAWPP
	SOJE 4,$391
	MOVE 5,1(7)
	MOVEM 5,%MCTL
	CAIN 5,0
	 PUSHJ 17,%MTLPO
$391==.
	MOVE 1,%RAWPP
	POPJ 17,
$390==.
	MOVE 7,%CURTL
	MOVEM 7,CURPTR
	JUMPE 7,$392
	MOVEM 7,%RAWPT
	HLRZ 3,0(7)
	MOVEM 3,CURPP
	MOVEM 3,%RAWPP
	MOVE 4,2(7)
	MOVEM 4,CURVAL
	MOVEM 4,%RAWVA
	MOVE 6,1(7)
	MOVEM 6,%CURTL
	JUMPN 6,$393
	MOVEM 6,%CURTL*1+1
	MOVEM 6,%CURTL
$393==.
	MOVE 1,CURPP
	POPJ 17,
$392==.
	JRST %NEXTR
%PUSHM:
	SKIPN 6,%RAWPT
	 JRST $395
	MOVE 5,%MCTL
	MOVEM 5,1(6)
	JUMPN 5,$396
	MOVE 4,%RAWPT
	MOVEM 4,%MCTL*1+1
	MOVEM 4,%MCTL
	JRST $394
$396==.
	MOVE 4,%RAWPT
	MOVEM 4,%MCTL
	JRST $394
$395==.
	PUSHJ 17,PUSHPP
$394==.
	POPJ 17,
%MTLPU:
	MOVE 4,%MACTL
	CAIGE 4,47
	 JRST $398
	PUSH 17,[$$BP90+$$SECT,,$399]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	JRST $397
$398==.
	DMOVE 4,%MCTL
	XMOVEI 3,%MCTLS
	AOS 6,%MACTL
	SUBI 6,1
	ASH 6,1
	ADD 6,3
	DMOVEM 4,0(6)
	DMOVE 7,-2(17)
	DMOVEM 7,%MCTL
$397==.
	POPJ 17,
$399==.
	BYTE	(9) 155,164,154,160
	BYTE	(9) 165,163,150,72
	BYTE	(9) 40,155,141,143
	BYTE	(9) 164,154,163,40
	BYTE	(9) 157,166,145,162
	BYTE	(9) 146,154,157,167
	BYTE	(9) 0
	

%MTLPO:
	SOSL 3,%MACTL
	 JRST $401
	PUSH 17,[$$BP90+$$SECT,,$402]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	SETZB 4,%MACTL
	MOVEM 4,%MCTL
	JRST $400
$401==.
	MOVE 5,%MACTL
	ASH 5,1
	DMOVE 3,%MCTLS(5)
	DMOVEM 3,%MCTL
$400==.
	POPJ 17,
$402==.
	BYTE	(9) 155,164,154,160
	BYTE	(9) 157,160,72,40
	BYTE	(9) 155,141,143,164
	BYTE	(9) 154,163,40,165
	BYTE	(9) 156,144,145,162
	BYTE	(9) 146,154,157,167
	BYTE	(9) 0
	

%TLTOM:
	ADJSP 17,2
	MOVE 4,-4(17)
	MOVEM 4,0(17)
$403==.
	SKIPN 5,0(17)
	 JRST $404
	HLRZ 4,0(5)
	MOVEM 4,-1(17)
	JUMPE 4,$406
	CAIL 4,206
	 JRST $406
	DPB 4,-5(17)
	IBP -5(17)
	MOVE 10,-1(17)
	SKIPE 6,TOKSTR(10)
	 JRST $405
	CAIL 10,6
	 CAIL 10,12
	 JRST $408
	JRST @$409*1-6(10)
$409==.
	IFIW $407
	IFIW $407
	IFIW $407
	IFIW $405
$407==.
	MOVE 4,0(17)
	MOVE 3,2(4)
	ADDI 3,60
	DPB 3,-5(17)
	IBP -5(17)
	JRST $405
$408==.
	MOVE 4,0(17)
	PUSH 17,2(4)
	PUSH 17,-6(17)
	PUSHJ 17,ESTRCP
	ADJSP 17,-2
	MOVEM 1,-5(17)
	IBP -5(17)
	JRST $405
$406==.
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$410]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
$405==.
	MOVE 4,0(17)
	MOVE 3,1(4)
	MOVEM 3,0(17)
	JRST $403
$404==.
	SETZ 3,
	DPB 3,-5(17)
	IBP -5(17)
	MOVE 1,-5(17)
	ADJSP 17,-2
	POPJ 17,
$410==.
	BYTE	(9) 164,154,164,157
	BYTE	(9) 155,141,143,0
	


	%%DATA
$411:	BLOCK 3

	%%CODE
%TLFRM:
	ADJSP 17,6
	SETZB 3,-4(17)
	MOVEM 3,-5(17)
	SKIPN 6,-7(17)
	 JRST $413
	LDB 4,6
	JUMPN 4,$412
$413==.
	DMOVE 1,-5(17)
	ADJSP 17,-6
	POPJ 17,
$412==.
$414==.
	LDB 5,-7(17)
	IBP -7(17)
	MOVEM 5,-3(17)
	JUMPE 5,$415
	CAIL 5,206
	 JRST $416
	XMOVEI 4,-2(17)
	XMOVEI 16,-1(4)
	PUSH 16,$411
	PUSH 16,$411*1+1
	PUSH 16,$411*1+2
	MOVE 6,-3(17)
	HRLM 6,-2(17)
	MOVE 11,-3(17)
	SKIPE 7,TOKSTR(11)
	 JRST $417
	CAIL 11,6
	 CAIL 11,12
	 JRST $419
	JRST @$420*1-6(11)
$420==.
	IFIW $418
	IFIW $418
	IFIW $418
	IFIW $417
$418==.
	LDB 3,-7(17)
	IBP -7(17)
	SUBI 3,60
	MOVEM 3,0(17)
	JRST $417
$419==.
	MOVE 5,-7(17)
	MOVEM 5,0(17)
	LDB 3,5
	JUMPE 3,$417
$421==.
	ILDB 3,-7(17)
	JUMPN 3,$421
$417==.
	XMOVEI 3,-2(17)
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $422
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $423
$422==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$423==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	JRST $414
$416==.
	PUSH 17,-3(17)
	PUSH 17,[$$BP90+$$SECT,,$428]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
	JRST $414
$415==.
	DMOVE 1,-5(17)
	ADJSP 17,-6
	POPJ 17,
$428==.
	BYTE	(9) 164,154,164,157
	BYTE	(9) 155,141,143,0
	

%TLTOS:
	ADJSP 17,2
$429==.
	SKIPN 6,-4(17)
	 JRST $430
	HLRZ 4,0(6)
	MOVEM 4,-1(17)
	CAIL 4,206
	 JRST $432
	SKIPN 5,TOKSTR(4)
	 MOVE 5,2(6)
	MOVEM 5,0(17)
	JUMPN 5,$434
	PUSH 17,4
	PUSH 17,[$$BP90+$$SECT,,$435]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
	JRST $430
$434==.
	PUSH 17,0(17)
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	MOVEM 1,-1(17)
	CAMLE 1,-6(17)
	 JRST $436
	PUSH 17,0(17)
	PUSH 17,-6(17)
	PUSHJ 17,ESTRCP
	ADJSP 17,-2
	MOVEM 1,-5(17)
	MOVN 5,-1(17)
	ADDB 5,-6(17)
	JRST $431
$436==.
	SETZ 3,
	DPB 3,-5(17)
	PUSH 17,-6(17)
	PUSH 17,-1(17)
	PUSH 17,-7(17)
	PUSHJ 17,STRNCA
	ADJSP 17,-3
	MOVE 4,-6(17)
	ADJBP 4,-5(17)
	MOVEM 4,-5(17)
	JRST $430
$432==.
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$437]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
$431==.
	MOVE 4,-4(17)
	MOVE 3,1(4)
	MOVEM 3,-4(17)
	JRST $429
$430==.
	MOVE 1,-5(17)
	ADJSP 17,-2
	POPJ 17,
$437==.
	BYTE	(9) 164,154,164,157
	BYTE	(9) 163,164,162,0
	

$435==.
	BYTE	(9) 164,154,164,157
	BYTE	(9) 163,164,162,0
	

%TLFRS:
	ADJSP 17,5
	SETZB 3,-3(17)
	MOVEM 3,-4(17)
	PUSH 17,-6(17)
	PUSHJ 17,%SINBE
	ADJSP 17,-1
$438==.
	PUSHJ 17,%NEXTR
	SOJE 1,$439
	XMOVEI 3,-2(17)
	PUSH 17,3
	PUSHJ 17,%TOKIZ
	XMOVEI 1,-3(17)
	MOVEM 1,0(17)
	SKIPE 4,-5(17)
	 JRST $440
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-4(17)
	MOVEM 1,-5(17)
	JRST $441
$440==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-4(17)
	MOVEM 1,1(4)
	MOVEM 1,-4(17)
$441==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	JRST $438
$439==.
	PUSHJ 17,%SINEN
	DMOVE 1,-4(17)
	ADJSP 17,-5
	POPJ 17,

	%%DATA
$446:	BYTE (18) 13
	BLOCK 2

	%%CODE
%TLIMA:
	ADJSP 17,3
	MOVE 4,%PPCLE
	CAIL 4,16
	 JRST $447
	SETOB 3,%PPCLE
	SOSG 5,%PPCLE
	 JRST $448
	SETZ 6,
	IDPB 6,%PPCPT
	JRST $449
$448==.
	PUSHJ 17,%PPCER
$449==.
$447==.
	XMOVEI 3,$446
	PUSH 17,3
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-2(17)
	MOVEM 1,-3(17)
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	SKIPE 4,%PPCPT
	 JRST $452
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $453
$452==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$453==.
	MOVEM 1,0(17)
	SKIPE 4,-5(17)
	 SKIPGE 6,-4(17)
	 JRST $455
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$456]
	PUSH 17,1
	PUSHJ 17,SPRINT
	ADJSP 17,-3
	JRST $454
$455==.
	PUSH 17,-4(17)
	PUSH 17,[$$BP90+$$SECT,,$457]
	PUSH 17,-2(17)
	PUSHJ 17,SPRINT
	ADJSP 17,-3
$454==.
	MOVE 6,0(17)
	MOVE 5,-2(17)
	MOVEM 6,2(5)
	PUSH 17,6
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	AOS 5,1
	MOVEM 5,-4(17)
	MOVN 4,5
	ADDB 4,%PPCLE
	ADJBP 5,%PPCPT
	MOVEM 5,%PPCPT
	DMOVE 1,-2(17)
	ADJSP 17,-3
	POPJ 17,
$457==.
	BYTE	(9) 45,43,157,0
	

$456==.
	BYTE	(9) 45,144,0
	


	%%DATA
$458:	BLOCK 3

	%%CODE
%TOKIZ:
	ADJSP 17,3
	XMOVEI 4,-2(17)
	XMOVEI 16,-1(4)
	PUSH 16,$458
	PUSH 16,$458*1+1
	PUSH 16,$458*1+2
	MOVE 5,%RAWPP
	HRLM 5,-2(17)
	MOVE 6,%RAWVA
	MOVEM 6,0(17)
	MOVE 7,-4(17)
	XMOVEI 16,-1(7)
	PUSH 16,-2(17)
	PUSH 16,-1(17)
	PUSH 16,0(17)
	ADJSP 17,-3
	POPJ 17,

	%%DATA
$459:	BLOCK 3

	%%CODE
%TLRAW:
	ADJSP 17,3
	XMOVEI 4,-2(17)
	XMOVEI 16,-1(4)
	PUSH 16,$459
	PUSH 16,$459*1+1
	PUSH 16,$459*1+2
	MOVE 5,%RAWPP
	HRLM 5,-2(17)
	MOVE 6,%RAWVA
	MOVEM 6,0(17)
	XMOVEI 3,-2(17)
	PUSH 17,3
	MOVE 10,-5(17)
	SKIPE 7,0(10)
	 JRST $460
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 5,-5(17)
	MOVEM 1,1(5)
	MOVEM 1,0(5)
	JRST $461
$460==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 6,-5(17)
	MOVE 3,1(6)
	MOVEM 1,1(3)
	MOVEM 1,1(6)
$461==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	ADJSP 17,-3
	POPJ 17,
%TLCOP:
	ADJSP 17,3
	SETZB 3,-1(17)
	MOVEM 3,-2(17)
$466==.
	SKIPN 5,-5(17)
	 JRST $467
	PUSH 17,5
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-1(17)
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 7,0(17)
	SETZB 3,1(7)
	SKIPE 6,-2(17)
	 JRST $471
	MOVEM 7,-1(17)
	MOVEM 7,-2(17)
	JRST $468
$471==.
	MOVE 4,0(17)
	MOVE 5,-1(17)
	MOVEM 4,1(5)
	MOVEM 4,-1(17)
$468==.
	MOVE 4,-5(17)
	MOVE 3,1(4)
	MOVEM 3,-5(17)
	JRST $466
$467==.
	DMOVE 1,-2(17)
	ADJSP 17,-3
	POPJ 17,
%TLSTR:
	ADJSP 17,1
	SKIPE 4,%PPCPT
	 JRST $472
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $473
$472==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$473==.
	MOVEM 1,0(17)
	SOSLE 3,%PPCLE
	 SKIPA 4,[42]
	 TRNA 
	 IDPB 4,%PPCPT
$475==.
	SKIPN 6,-3(17)
	 JRST $476
	HLRZ 3,0(6)
	CAIE 3,15
	 CAIN 3,16
	 TRNA 
	 JRST $479
	PUSH 17,2(6)
	PUSHJ 17,%PPCQS
	ADJSP 17,-1
	JRST $477
$479==.
	PUSH 17,-3(17)
	PUSHJ 17,%PPCTS
	ADJSP 17,-1
$477==.
	MOVE 4,-3(17)
	MOVE 3,1(4)
	MOVEM 3,-3(17)
	JRST $475
$476==.
	SOSLE 3,%PPCLE
	 SKIPA 4,[42]
	 TRNA 
	 IDPB 4,%PPCPT
	SOSG 5,%PPCLE
	 JRST $481
	SETZ 6,
	IDPB 6,%PPCPT
	JRST $482
$481==.
	PUSHJ 17,%PPCER
$482==.
	PUSH 17,0(17)
	PUSH 17,[16]
	PUSHJ 17,%TLMAK
	ADJSP 17,-3
	POPJ 17,
%PPTFP:
	ADJSP 17,1
	HLRZ 3,@-2(17)
	CAIL 3,206
	 JRST $483
	HLRZ 4,@-2(17)
	MOVE 5,TOKSTR(4)
	MOVEM 5,0(17)
	JUMPN 5,$484
	MOVE 7,-2(17)
	MOVE 6,2(7)
	MOVEM 6,0(17)
	JUMPE 6,$483
$484==.
	PUSH 17,-3(17)
	PUSH 17,-1(17)
	PUSHJ 17,FPUTS
	ADJSP 17,-3
	POPJ 17,
$483==.
	HLRZ 3,@-2(17)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$485]
	PUSHJ 17,%TKERR
	SETO 1,
	ADJSP 17,-3
	POPJ 17,
$485==.
	BYTE	(9) 160,160,164,146
	BYTE	(9) 160,165,164,0
	

%SLTOS:
	MOVE 4,-1(17)
	PUSH 17,2(4)
	ADJSP 17,1
$486==.
	SOSG 3,-5(17)
	 JRST $487
	ILDB 4,-1(17)
	MOVEM 4,0(17)
	JUMPE 4,$489
	CAIN 4,42
	 JRST $490
	CAIE 4,134
	 JRST $491
	ILDB 5,-1(17)
	DPB 5,-4(17)
	IBP -4(17)
	JRST $486
$490==.
	ILDB 3,-1(17)
	JUMPE 3,$487
$489==.
	PUSH 17,[$$BP90+$$SECT,,$492]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
	JRST $487
$491==.
	MOVE 4,0(17)
	DPB 4,-4(17)
	IBP -4(17)
	JRST $486
$487==.
	SETZ 3,
	DPB 3,-4(17)
	MOVE 1,-4(17)
	ADJSP 17,-2
	POPJ 17,
$492==.
	BYTE	(9) 163,154,164,164
	BYTE	(9) 157,163,164,162
	BYTE	(9) 72,40,142,141
	BYTE	(9) 144,40,154,151
	BYTE	(9) 164,0
	

%PPCQS:
	SETO 3,
	ADJBP 3,-1(17)
	MOVEM 3,-1(17)
$493==.
	ILDB 3,-1(17)
	CAIE 3,134
	 CAIN 3,42
	 JRST $497
	JUMPN 3,$495
	POPJ 17,
$497==.
	SOSLE 3,%PPCLE
	 SKIPA 4,[134]
	 TRNA 
	 IDPB 4,%PPCPT
$495==.
	SOSG 3,%PPCLE
	 JRST $493
	LDB 4,-1(17)
	IDPB 4,%PPCPT
	JRST $493
%PPCTS:
	ADJSP 17,1
	HLRZ 3,@-2(17)
	CAIL 3,206
	 JRST $499
	HLRZ 4,@-2(17)
	MOVE 5,TOKSTR(4)
	MOVEM 5,0(17)
	JUMPN 5,$500
	MOVE 7,-2(17)
	MOVE 6,2(7)
	MOVEM 6,0(17)
$500==.
	SKIPE 4,0(17)
	 JRST $501
	HLRZ 3,@-2(17)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$502]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
$501==.
	SETO 3,
	ADJBP 3,0(17)
	MOVEM 3,0(17)
$503==.
	ILDB 5,0(17)
	JUMPE 5,$498
	SOSLE 4,%PPCLE
	 IDPB 5,%PPCPT
	JRST $503
$499==.
	HLRZ 3,@-2(17)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$504]
	PUSHJ 17,%TKERR
	ADJSP 17,-2
$498==.
	ADJSP 17,-1
	POPJ 17,
$504==.
	BYTE	(9) 160,160,143,164
	BYTE	(9) 163,164,162,0
	

$502==.
	BYTE	(9) 160,160,143,164
	BYTE	(9) 163,164,162,0
	

%TKERR:
	PUSH 17,-2(17)
	PUSH 17,-2(17)
	PUSH 17,[$$BP90+$$SECT,,$505]
	PUSHJ 17,INT.ER
	ADJSP 17,-3
	POPJ 17,
$505==.
	BYTE	(9) 45,163,72,40
	BYTE	(9) 142,141,144,40
	BYTE	(9) 164,157,153,145
	BYTE	(9) 156,40,45,121
	BYTE	(9) 0
	

%PPCER:
	PUSH 17,[$$BP90+$$SECT,,$506]
	PUSHJ 17,EFATAL
	ADJSP 17,-1
	POPJ 17,
$506==.
	BYTE	(9) 120,162,145,160
	BYTE	(9) 162,157,143,145
	BYTE	(9) 163,163,157,162
	BYTE	(9) 40,164,157,153
	BYTE	(9) 145,156,40,143
	BYTE	(9) 150,141,162,40
	BYTE	(9) 160,157,157,154
	BYTE	(9) 40,157,166,145
	BYTE	(9) 162,146,154,157
	BYTE	(9) 167,0
	

%MEXPT:
	MOVE 4,-1(17)
	LDB 3,[331100,,12(4)]
	TRNE 3,400
	 TDOA 3,[-1000]
	 ANDI 3,777
	JUMPL 3,$507
	PUSHJ 17,%CSKIP
	CAIE 1,50
	 TDZA 1,1
	 TRNA 
	 POPJ 17,
$507==.
	SKIPN 4,%CURTL
	 SKIPE 5,%MCTL
	 TRNA 
	 JRST $508
	PUSH 17,[$$BP90+$$SECT,,$510]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$508==.
	ADJSP 17,2
	PUSH 17,-4(17)
	PUSH 17,-4(17)
	PUSHJ 17,%MEXPS
	ADJSP 17,-2
	DMOVEM 1,-1(17)
	JUMPE 1,$511
	SKIPN 5,%CURTL
	 JRST $512
	MOVE 4,0(17)
	MOVEM 5,1(4)
	MOVE 6,%CURTL*1+1
	MOVEM 6,0(17)
$512==.
	DMOVE 4,-1(17)
	DMOVEM 4,%CURTL
$511==.
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$510==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 164,157,160,72
	BYTE	(9) 40,156,157,164
	BYTE	(9) 40,164,157,160
	BYTE	(9) 154,145,166,0
	

%MPEEK:
	PUSH 17,%MCTL
	SKIPN 5,0(17)
	 JRST $513
	HLRZ 3,0(5)
	CAIE 3,23
	 JRST $514
	MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$514==.
	HLRZ 3,@0(17)
	CAIN 3,2
	 JRST $515
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$515==.
	MOVE 4,0(17)
	MOVE 6,1(4)
	MOVEM 6,0(17)
	JUMPE 6,$513
	HLRZ 3,0(6)
	CAIE 3,23
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$513==.
	PUSHJ 17,%CSKIP
	CAIE 1,50
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,

	%%DATA
$520:	BLOCK 12

	%%CODE
%MEXPS:
	SKIPN 4,%DEBPP
	 JRST $521
	PUSH 17,-2(17)
	MOVE 5,-2(17)
	ADDI 5,2
	TLO 5,$$BP90
	PUSH 17,5
	PUSH 17,-3(17)
	PUSH 17,[$$BP90+$$SECT,,$522]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-5
$521==.
	ADJSP 17,271
	SETZB 3,-267(17)
	MOVEM 3,-270(17)
	MOVE 10,-272(17)
	MOVE 4,1(10)
	TRNN 4,100
	 JRST $523
	MOVE 7,CLEVEL
	SOJG 7,$524
	ADDI 10,2
	TLO 10,$$BP90
	PUSH 17,10
	PUSH 17,[$$BP90+$$SECT,,$525]
	PUSHJ 17,ERROR
	ADJSP 17,-2
$524==.
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$523==.
	MOVE 4,%MACLE
	CAIGE 4,47
	 JRST $526
	MOVE 5,-272(17)
	ADDI 5,2
	TLO 5,$$BP90
	PUSH 17,5
	PUSH 17,[$$BP90+$$SECT,,$527]
	PUSHJ 17,ERROR
	MOVE 4,-274(17)
	LDB 3,[331100,,12(4)]
	TRNE 3,400
	 TDOA 3,[-1000]
	 ANDI 3,777
	MOVEM 3,-1(17)
	SETOB 16,0(17)
	PUSH 17,[0]
	PUSHJ 17,%MARGS
	ADJSP 17,-3
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$526==.
	MOVE 4,-272(17)
	LDB 6,[331100,,12(4)]
	TRNE 6,400
	 TDOA 6,[-1000]
	 ANDI 6,777
	MOVEM 6,-263(17)
	JUMPGE 6,$529
	CAML 6,[-12]
	 CAIL 6,0
	 JRST $539
	JRST @$540*1+12(6)
$540==.
	IFIW $537
	IFIW $538
	IFIW $531
	IFIW $530
	IFIW $535
	IFIW $534
	IFIW $533
	IFIW $532
	IFIW $536
	IFIW $530
$530==.
	MOVE 4,-272(17)
	MOVE 3,13(4)
	MOVEM 3,-260(17)
	JRST $528
$531==.
	LDB 4,[$$BP90+$$SECT,,$520]
	JUMPN 4,$541
	PUSH 17,CVERLI
	PUSH 17,CVERCO
	PUSH 17,CVERKC
	PUSH 17,CVERDI
	PUSH 17,[$$BP90+$$SECT,,$542]
	PUSH 17,[$$BP90+$$SECT,,$520]
	PUSHJ 17,SPRINT
	ADJSP 17,-6
$541==.
	PUSH 17,[$$BP90+$$SECT,,$520]
	PUSH 17,[16]
	PUSHJ 17,%TLMAK
	ADJSP 17,-273
	POPJ 17,
$532==.
	PUSH 17,[12]
	PUSH 17,FLINE
	PUSHJ 17,%TLIMA
	ADJSP 17,-273
	POPJ 17,
$533==.
	SKIPE 4,%PPCPT
	 JRST $543
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $544
$543==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$544==.
	MOVEM 1,-62(17)
	SOSLE 3,%PPCLE
	 SKIPA 4,[42]
	 TRNA 
	 IDPB 4,%PPCPT
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	PUSHJ 17,%PPCQS
	ADJSP 17,-1
	SOSLE 3,%PPCLE
	 SKIPA 4,[42]
	 TRNA 
	 IDPB 4,%PPCPT
	SOSG 5,%PPCLE
	 JRST $547
	SETZ 6,
	IDPB 6,%PPCPT
	JRST $548
$547==.
	PUSHJ 17,%PPCER
$548==.
	PUSH 17,-62(17)
	PUSH 17,[16]
	PUSHJ 17,%TLMAK
	ADJSP 17,-273
	POPJ 17,
$534==.
	SKIPN 4,%TADSE
	 PUSHJ 17,%DOTAD
	PUSH 17,[$$BP90+$$SECT,,%DATES]
	PUSH 17,[16]
	PUSHJ 17,%TLMAK
	ADJSP 17,-273
	POPJ 17,
$535==.
	SKIPN 4,%TADSE
	 PUSHJ 17,%DOTAD
	PUSH 17,[$$BP90+$$SECT,,%TIMES]
	PUSH 17,[16]
	PUSHJ 17,%TLMAK
	ADJSP 17,-273
	POPJ 17,
$536==.
$551==.
	PUSHJ 17,%NEXTM
	CAIN 1,2
	 JRST $551
	SETZB 3,-66(17)
	MOVE 5,%RAWPP
	CAIE 5,23
	 JRST $552
	AOS 4,-66(17)
$553==.
	PUSHJ 17,%NEXTM
	CAIN 1,2
	 JRST $553
$552==.
	MOVE 4,%RAWPP
	CAIN 4,4
	 JRST $554
	PUSH 17,[$$BP90+$$SECT,,$555]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	PUSHJ 17,%PUSHM
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$554==.
	PUSH 17,%RAWVA
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	JUMPE 1,$556
	MOVE 1,[$$BP90+$$SECT,,$558]
	JRST $557
$556==.
	MOVE 1,[$$BP90+$$SECT,,$559]
$557==.
	PUSH 17,1
	PUSH 17,[13]
	PUSHJ 17,%TLMAK
	ADJSP 17,-2
	DMOVEM 1,-270(17)
	SKIPN 4,-66(17)
	 JRST $560
$561==.
	PUSHJ 17,%NEXTM
	CAIN 1,2
	 JRST $561
	MOVE 4,%RAWPP
	CAIN 4,24
	 JRST $560
	PUSH 17,[$$BP90+$$SECT,,$562]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	PUSHJ 17,%PUSHM
$560==.
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$538==.
	SETZB 3,-65(17)
	JRST $563
$537==.
	MOVEI 3,1
	MOVEM 3,-65(17)
$563==.
	PUSH 17,[2]
	PUSH 17,[2]
	XMOVEI 3,-261(17)
	PUSH 17,3
	PUSHJ 17,%MARGS
	ADJSP 17,-3
	MOVEM 1,-67(17)
	CAIE 1,2
	 JRST $565
	PUSH 17,[1]
	PUSH 17,-274(17)
	PUSH 17,-261(17)
	PUSH 17,-261(17)
	PUSHJ 17,%MEXPL
	MOVEM 1,-2(17)
	MOVEM 2,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%TLWSP
	ADJSP 17,-3
	DMOVEM 1,-270(17)
	PUSH 17,[1]
	PUSH 17,-274(17)
	PUSH 17,-257(17)
	PUSH 17,-257(17)
	PUSHJ 17,%MEXPL
	MOVEM 1,-2(17)
	MOVEM 2,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%TLWSP
	ADJSP 17,-3
	DMOVEM 1,-266(17)
$565==.
	MOVE 4,-67(17)
	CAIE 4,2
	 JRST $567
	HLRZ 10,@-270(17)
	CAIE 10,16
	 JRST $567
	MOVE 6,-270(17)
	SKIPE 5,1(6)
	 JRST $567
	HLRZ 7,@-266(17)
	CAIE 7,16
	 JRST $567
	MOVE 11,-266(17)
	SKIPN 3,1(11)
	 JRST $566
$567==.
	SKIPE 4,-65(17)
	 SKIPA 3,[$$BP90+$$SECT,,$570]
	 MOVE 3,[$$BP90+$$SECT,,$571]
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$572]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	PUSH 17,[$$BP90+$$SECT,,$573]
	PUSH 17,[13]
	PUSHJ 17,%TLMAK
	ADJSP 17,-273
	POPJ 17,
$566==.
	XMOVEI 3,-61(17)
	TLO 3,$$BP90
	MOVEM 3,-64(17)
	PUSH 17,[310]
	XMOVEI 4,-62(17)
	TLO 4,$$BP90
	PUSH 17,4
	PUSH 17,-272(17)
	PUSHJ 17,%SLTOS
	MOVE 6,1
	IBP 6
	MOVEM 6,-66(17)
	MOVEI 4,310
	XMOVEI 3,-64(17)
	TLO 3,$$BP90
	LDB 16,[$$BPSZ,,6]
	SUB 6,3
	MUL 6,$BPMUL(16)
	ASH 7,-$$BSHF
	ADD 6,$BPADT(16)
	ADD 7,(6)
	SUB 4,7
	MOVEM 4,-2(17)
	ADJSP 17,-2
	PUSH 17,-64(17)
	PUSH 17,-270(17)
	PUSHJ 17,%SLTOS
	SETZB 16,-2(17)
	ADJSP 17,-2
	PUSH 17,-66(17)
	PUSH 17,-65(17)
	PUSH 17,-67(17)
	PUSHJ 17,SYMVAL
	MOVEM 1,-2(17)
	ADJSP 17,-2
	PUSHJ 17,%TLIMA
	ADJSP 17,-273
	POPJ 17,
$539==.
	PUSH 17,-263(17)
	PUSH 17,[$$BP90+$$SECT,,$574]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$529==.
	MOVE 6,-272(17)
	LDB 3,[221100,,12(6)]
	ADJBP 3,13(6)
	MOVEM 3,-260(17)
	PUSH 17,-263(17)
	PUSH 17,-264(17)
	XMOVEI 4,-261(17)
	PUSH 17,4
	PUSHJ 17,%MARGS
	ADJSP 17,-3
	MOVEM 1,-67(17)
	CAMN 1,-263(17)
	 JRST $528
	PUSH 17,1
	PUSH 17,-264(17)
	PUSH 17,[$$BP90+$$SECT,,$575]
	PUSHJ 17,ERROR
	ADJSP 17,-3
	SKIPGE 4,-67(17)
	 SETZB 3,-67(17)
$577==.
	MOVE 4,-67(17)
	CAML 4,-263(17)
	 JRST $528
	DMOVE 5,-270(17)
	XMOVEI 3,-257(17)
	AOS 7,-67(17)
	SUBI 7,1
	ASH 7,1
	ADD 7,3
	DMOVEM 5,0(7)
	JRST $577
$528==.
	AOS 3,%MACLE
	MOVE 5,-272(17)
	MOVEM 5,-264(17)
	PUSH 17,-273(17)
	XMOVEI 4,-265(17)
	PUSH 17,4
	PUSHJ 17,%MSUBS
	ADJSP 17,-2
	DMOVEM 1,-270(17)
	PUSH 17,-273(17)
	PUSH 17,-273(17)
	PUSHJ 17,%HSPUS
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSH 17,-271(17)
	PUSH 17,-271(17)
	PUSHJ 17,%MEXPA
	ADJSP 17,-3
	DMOVEM 1,-270(17)
	SOS 3,%MACLE
	DMOVE 1,-270(17)
	ADJSP 17,-271
	POPJ 17,
$575==.
	BYTE	(9) 127,162,157,156
	BYTE	(9) 147,40,156,165
	BYTE	(9) 155,142,145,162
	BYTE	(9) 40,157,146,40
	BYTE	(9) 155,141,143,162
	BYTE	(9) 157,40,141,162
	BYTE	(9) 147,163,40,55
	BYTE	(9) 40,45,144,40
	BYTE	(9) 145,170,160,145
	BYTE	(9) 143,164,145,144
	BYTE	(9) 54,40,45,144
	BYTE	(9) 40,163,145,145
	BYTE	(9) 156,0
	

$574==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 163,171,155,72
	BYTE	(9) 40,142,141,144
	BYTE	(9) 40,155,141,143
	BYTE	(9) 40,166,141,154
	BYTE	(9) 72,40,45,144
	BYTE	(9) 0
	

$573==.
	BYTE	(9) 60,0
	

$572==.
	BYTE	(9) 101,162,147,163
	BYTE	(9) 40,164,157,40
	BYTE	(9) 42,137,113,103
	BYTE	(9) 103,163,171,155
	BYTE	(9) 45,163,42,40
	BYTE	(9) 155,165,163,164
	BYTE	(9) 40,142,145,40
	BYTE	(9) 164,167,157,40
	BYTE	(9) 163,164,162,151
	BYTE	(9) 156,147,40,154
	BYTE	(9) 151,164,145,162
	BYTE	(9) 141,154,163,0
	

$571==.
	BYTE	(9) 146,156,144,0
	

$570==.
	BYTE	(9) 166,141,154,0
	

$562==.
	BYTE	(9) 115,151,163,163
	BYTE	(9) 151,156,147,40
	BYTE	(9) 47,51,47,40
	BYTE	(9) 146,157,162,40
	BYTE	(9) 42,144,145,146
	BYTE	(9) 151,156,145,144
	BYTE	(9) 42,40,157,160
	BYTE	(9) 145,162,141,164
	BYTE	(9) 157,162,0
	

$559==.
	BYTE	(9) 60,0
	

$558==.
	BYTE	(9) 61,0
	

$555==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 141,162,147,40
	BYTE	(9) 164,157,40,42
	BYTE	(9) 144,145,146,151
	BYTE	(9) 156,145,144,42
	BYTE	(9) 40,157,160,145
	BYTE	(9) 162,141,164,157
	BYTE	(9) 162,0
	

$542==.
	BYTE	(9) 42,113,103,103
	BYTE	(9) 55,45,144,56
	BYTE	(9) 45,144,50,143
	BYTE	(9) 45,144,154,45
	BYTE	(9) 144,51,42,0
	

$527==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,156,145
	BYTE	(9) 163,164,151,156
	BYTE	(9) 147,40,144,145
	BYTE	(9) 160,164,150,40
	BYTE	(9) 145,170,143,145
	BYTE	(9) 145,144,145,144
	BYTE	(9) 72,40,45,163
	BYTE	(9) 0
	

$525==.
	BYTE	(9) 122,145,143,165
	BYTE	(9) 162,163,151,166
	BYTE	(9) 145,40,155,141
	BYTE	(9) 143,162,157,40
	BYTE	(9) 145,170,160,141
	BYTE	(9) 156,163,151,157
	BYTE	(9) 156,72,40,45
	BYTE	(9) 163,0
	

$522==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 163,171,155,50
	BYTE	(9) 45,43,157,55
	BYTE	(9) 76,42,45,163
	BYTE	(9) 42,54,40,45
	BYTE	(9) 144,51,12,0
	

%MARGS:
	ADJSP 17,10
$578==.
	PUSHJ 17,%NEXTM
	CAIN 1,2
	 JRST $578
	MOVE 5,%RAWPP
	CAIN 5,3
	 JRST $578
	CAIN 5,23
	 JRST $579
	PUSHJ 17,%PUSHM
	SETO 1,
	ADJSP 17,-10
	POPJ 17,
$579==.
	SETZB 3,-7(17)
	MOVEI 4,1
	MOVEM 4,-6(17)
	MOVEM 3,-4(17)
	MOVEM 3,-5(17)
	MOVEM 3,-3(17)
$580==.
	SKIPG 4,-6(17)
	 JRST $581
	PUSHJ 17,%NEXTM
	MOVM 3,1
	IDIVI 3,12
	CAME 1,$589(4)
	 JRST $582
	JRST @$590(4)
$589==.
	 24
	 1
	 2
	 3
	 -1
	 -1
	 -1
	 33
	 -1
	 23
$590==.
	IFIW $586
	IFIW $585
	IFIW $584
	IFIW $583
	IFIW $582
	IFIW $582
	IFIW $582
	IFIW $587
	IFIW $582
	IFIW $588
$583==.
	MOVE 4,-7(17)
	CAMGE 4,-13(17)
	 JRST $584
	PUSH 17,[$$BP90+$$SECT,,$591]
	PUSHJ 17,ERROR
	MOVE 1,-10(17)
	ADJSP 17,-11
	POPJ 17,
$584==.
	SKIPN 4,-5(17)
	 JRST $580
	HLRZ 3,@-4(17)
	CAIN 3,2
	 JRST $580
	JRST $582
$585==.
	SKIPN 4,EOF
	 JRST $593
	PUSH 17,[$$BP90+$$SECT,,$594]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $592
$593==.
	PUSH 17,[$$BP90+$$SECT,,$595]
	PUSHJ 17,ERROR
	ADJSP 17,-1
$592==.
	SETZB 3,-6(17)
$586==.
	SOSLE 3,-6(17)
	 JRST $582
	SKIPN 4,-7(17)
	 CAME 4,-5(17)
	 JRST $587
	SETZ 1,
	ADJSP 17,-10
	POPJ 17,
$587==.
	MOVE 4,-6(17)
	SOJG 4,$582
	AOS 3,-7(17)
	CAMLE 3,-12(17)
	 JRST $596
	SKIPN 11,-3(17)
	 JRST $597
	HLRZ 5,@-4(17)
	CAIE 5,2
	 JRST $597
	MOVEM 11,-4(17)
	SETZB 7,1(11)
$597==.
	DMOVE 4,-5(17)
	MOVEI 3,2
	ADDB 3,-11(17)
	DMOVEM 4,-2(3)
$596==.
	SKIPG 4,-6(17)
	 JRST $580
	SETZB 3,-4(17)
	MOVEM 3,-5(17)
	JRST $580
$588==.
	AOS 3,-6(17)
$582==.
	MOVE 4,-4(17)
	MOVEM 4,-3(17)
	XMOVEI 3,-2(17)
	PUSH 17,3
	PUSHJ 17,%TOKIZ
	XMOVEI 1,-3(17)
	MOVEM 1,0(17)
	SKIPE 4,-6(17)
	 JRST $598
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $599
$598==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$599==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	JRST $580
$581==.
	MOVE 1,-7(17)
	ADJSP 17,-10
	POPJ 17,
$595==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,141,162
	BYTE	(9) 147,40,163,143
	BYTE	(9) 141,156,40,164
	BYTE	(9) 162,165,156,143
	BYTE	(9) 141,164,145,144
	BYTE	(9) 0
	

$594==.
	BYTE	(9) 125,156,145,170
	BYTE	(9) 160,145,143,164
	BYTE	(9) 145,144,40,105
	BYTE	(9) 117,106,40,144
	BYTE	(9) 165,162,151,156
	BYTE	(9) 147,40,155,141
	BYTE	(9) 143,162,157,40
	BYTE	(9) 141,162,147,40
	BYTE	(9) 163,143,141,156
	BYTE	(9) 0
	

$591==.
	BYTE	(9) 115,151,163,163
	BYTE	(9) 151,156,147,40
	BYTE	(9) 47,51,47,40
	BYTE	(9) 151,156,40,155
	BYTE	(9) 141,143,162,157
	BYTE	(9) 40,141,162,147
	BYTE	(9) 40,154,151,163
	BYTE	(9) 164,0
	


	%%DATA
$604:	BYTE (18) 1
	BLOCK 2

	%%CODE
%MEXPL:
	ADJSP 17,2
	XMOVEI 3,$604
	PUSH 17,3
	SKIPE 5,-5(17)
	 JRST $605
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-4(17)
	MOVEM 1,-5(17)
	JRST $606
$605==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-4(17)
	MOVEM 1,1(4)
	MOVEM 1,-4(17)
$606==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	PUSH 17,-5(17)
	PUSH 17,-5(17)
	PUSH 17,-5(17)
	PUSHJ 17,%MEXPA
	ADJSP 17,-3
	DMOVEM 1,-1(17)
	MOVE 4,%MCTL*1+1
	CAMN 4,-3(17)
	 JRST $611
	PUSH 17,[$$BP90+$$SECT,,$612]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$611==.
	MOVE 4,%MCTL
	CAMN 4,-3(17)
	 JRST $613
	PUSH 17,[$$BP90+$$SECT,,$614]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$613==.
	PUSHJ 17,%MTLPO
	DMOVE 1,-1(17)
	ADJSP 17,-2
	POPJ 17,
$614==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 154,151,155,72
	BYTE	(9) 40,151,156,160
	BYTE	(9) 165,164,40,156
	BYTE	(9) 157,164,40,141
	BYTE	(9) 154,154,40,162
	BYTE	(9) 145,141,144,0
	

$612==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 154,151,155,72
	BYTE	(9) 40,154,157,163
	BYTE	(9) 164,40,151,156
	BYTE	(9) 160,165,164,40
	BYTE	(9) 154,151,163,164
	BYTE	(9) 0
	

%MEXPA:
	SKIPN 4,%DEBPP
	 JRST $615
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSH 17,[$$BP90+$$SECT,,$616]
	PUSHJ 17,%PMACT
	ADJSP 17,-4
$615==.
	ADJSP 17,6
	SKIPE 4,-10(17)
	 JRST $617
	DMOVE 1,-10(17)
	ADJSP 17,-6
	POPJ 17,
$617==.
	PUSH 17,-10(17)
	PUSH 17,-10(17)
	PUSHJ 17,%MTLPU
	ADJSP 17,-2
	SETZB 3,0(17)
	MOVEM 3,-1(17)
	MOVE 5,%MACTL
	MOVEM 5,-4(17)
$618==.
	MOVE 4,-4(17)
	CAMLE 4,%MACTL
	 JRST $619
	PUSHJ 17,%NEXTM
	CAIN 1,4
	 JRST $623
	CAIN 1,5
	 JRST $622
	CAIE 1,1
	 JRST $624
	SKIPE 6,0(17)
	 SETZB 3,1(6)
	SKIPN 5,%DEBPP
	 JRST $626
	PUSH 17,-11(17)
	PUSH 17,-2(17)
	PUSH 17,-2(17)
	PUSH 17,[$$BP90+$$SECT,,$627]
	PUSHJ 17,%PMACT
	ADJSP 17,-4
$626==.
	DMOVE 1,-1(17)
	ADJSP 17,-6
	POPJ 17,
$622==.
	MOVE 4,%RAWPT
	MOVE 3,2(4)
	MOVEM 3,-5(17)
	JRST $620
$623==.
	HRRZ 3,@%RAWPT
	CAIL 3,0
	 CAIL 3,4
	 JRST $632
	JRST @$633(3)
$633==.
	IFIW $631
	IFIW $629
	IFIW $629
	IFIW $630
$629==.
	SKIPE 4,-1(17)
	 JRST $634
	MOVE 5,%RAWPT
	MOVEM 5,0(17)
	MOVEM 5,-1(17)
	JRST $618
$634==.
	MOVE 4,%RAWPT
	MOVE 5,0(17)
	MOVEM 4,1(5)
	MOVEM 4,0(17)
	JRST $618
$630==.
	PUSH 17,%RAWVA
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,-5(17)
	JUMPN 1,$628
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$635]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
	MOVEI 3,1
	HRRM 3,@%RAWPT
	SKIPE 5,-1(17)
	 JRST $636
	MOVE 6,%RAWPT
	MOVEM 6,0(17)
	MOVEM 6,-1(17)
	JRST $618
$636==.
	MOVE 4,%RAWPT
	MOVE 5,0(17)
	MOVEM 4,1(5)
	MOVEM 4,0(17)
	JRST $618
$631==.
	PUSH 17,%RAWVA
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,-5(17)
	JUMPN 1,$637
	MOVEI 3,1
	HRRM 3,@%RAWPT
	SKIPE 5,-1(17)
	 JRST $638
	MOVE 6,%RAWPT
	MOVEM 6,0(17)
	MOVEM 6,-1(17)
	JRST $618
$638==.
	MOVE 4,%RAWPT
	MOVE 5,0(17)
	MOVEM 4,1(5)
	MOVEM 4,0(17)
	JRST $618
$637==.
	PUSH 17,-11(17)
	PUSH 17,-6(17)
	PUSHJ 17,%MISHI
	ADJSP 17,-2
	JUMPE 1,$628
	MOVEI 3,2
	HRRM 3,@%RAWPT
	SKIPE 5,-1(17)
	 JRST $639
	MOVE 6,%RAWPT
	MOVEM 6,0(17)
	MOVEM 6,-1(17)
	JRST $618
$639==.
	MOVE 4,%RAWPT
	MOVE 5,0(17)
	MOVEM 4,1(5)
	MOVEM 4,0(17)
	JRST $618
$632==.
	HRRZ 3,@%RAWPT
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$640]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
$628==.
	MOVE 4,-5(17)
	LDB 3,[331100,,12(4)]
	TRNE 3,400
	 TDOA 3,[-1000]
	 ANDI 3,777
	JUMPL 3,$620
	PUSHJ 17,%MPEEK
	JUMPN 1,$620
$624==.
	SKIPE 4,-1(17)
	 JRST $641
	MOVE 5,%RAWPT
	MOVEM 5,0(17)
	MOVEM 5,-1(17)
	JRST $618
$641==.
	MOVE 4,%RAWPT
	MOVE 5,0(17)
	MOVEM 4,1(5)
	MOVEM 4,0(17)
	JRST $618
$620==.
	PUSH 17,-11(17)
	PUSH 17,-6(17)
	PUSHJ 17,%MEXPS
	ADJSP 17,-2
	DMOVEM 1,-3(17)
	JUMPE 1,$618
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSHJ 17,%MTLPU
	ADJSP 17,-2
	JRST $618
$619==.
	SKIPE 6,0(17)
	 SETZB 3,1(6)
	SKIPN 5,%DEBPP
	 JRST $643
	PUSH 17,-11(17)
	PUSH 17,-2(17)
	PUSH 17,-2(17)
	PUSH 17,[$$BP90+$$SECT,,$644]
	PUSHJ 17,%PMACT
	ADJSP 17,-4
$643==.
	DMOVE 1,-1(17)
	ADJSP 17,-6
	POPJ 17,
$644==.
	BYTE	(9) 154,145,141,166
	BYTE	(9) 145,40,155,145
	BYTE	(9) 170,160,141,156
	BYTE	(9) 144,0
	

$640==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 141,156,144,72
	BYTE	(9) 40,102,141,144
	BYTE	(9) 40,111,123,137
	BYTE	(9) 40,164,171,160
	BYTE	(9) 145,40,50,45
	BYTE	(9) 144,51,0
	

$635==.
	BYTE	(9) 155,145,170,160
	BYTE	(9) 141,156,144,72
	BYTE	(9) 40,103,141,156
	BYTE	(9) 156,157,164,40
	BYTE	(9) 154,157,157,153
	BYTE	(9) 165,160,40,111
	BYTE	(9) 123,137,115,105
	BYTE	(9) 130,120,40,42
	BYTE	(9) 45,163,42,0
	

$627==.
	BYTE	(9) 154,145,141,166
	BYTE	(9) 145,40,155,145
	BYTE	(9) 170,160,141,156
	BYTE	(9) 144,0
	

$616==.
	BYTE	(9) 145,156,164,145
	BYTE	(9) 162,40,155,145
	BYTE	(9) 170,160,141,156
	BYTE	(9) 144,0
	


	%%DATA
$645:	BLOCK 3

	%%CODE
%MSUBS:
	ADJSP 17,13
	SETZB 3,0(17)
	SKIPN 5,%DEBPP
	 JRST $646
	PUSH 17,-14(17)
	PUSH 17,[$$BP90+$$SECT,,$647]
	PUSHJ 17,%PMACF
	ADJSP 17,-2
$646==.
	SETZB 3,-11(17)
	MOVEM 3,-12(17)
	MOVE 5,-14(17)
	MOVE 4,4(5)
	MOVEM 4,-4(17)
	JUMPE 4,$648
$649==.
	LDB 4,-4(17)
	IBP -4(17)
	MOVEM 4,-6(17)
	JUMPE 4,$648
	CAIGE 4,206
	 JUMPGE 4,$650
	MOVE 5,-14(17)
	PUSH 17,0(5)
	PUSH 17,-6(17)
	PUSH 17,[$$BP90+$$SECT,,$652]
	PUSHJ 17,INT.ER
	ADJSP 17,-3
$650==.
	MOVE 4,-6(17)
	CAIL 4,6
	 CAIL 4,12
	 JRST $653
	JRST @$656*1-6(4)
$656==.
	IFIW $654
	IFIW $654
	IFIW $654
	IFIW $655
$654==.
	LDB 5,-4(17)
	IBP -4(17)
	SUBI 5,60
	MOVEM 5,-5(17)
	JUMPL 5,$658
	MOVE 4,-14(17)
	CAMGE 5,1(4)
	 JRST $657
$658==.
	MOVE 4,-14(17)
	PUSH 17,0(4)
	PUSH 17,-6(17)
	PUSH 17,[$$BP90+$$SECT,,$659]
	PUSHJ 17,INT.ER
	ADJSP 17,-3
$657==.
	MOVE 4,-14(17)
	ADDI 4,5
	MOVE 5,-5(17)
	ASH 5,1
	ADD 5,4
	DMOVE 6,0(5)
	DMOVEM 6,-10(17)
	MOVE 7,-6(17)
	CAIN 7,6
	 JRST $663
	CAIN 7,10
	 JRST $662
	CAIE 7,7
	 JRST $660
	PUSH 17,-10(17)
	PUSH 17,-10(17)
	PUSHJ 17,%TLSTR
	ADJSP 17,-2
	DMOVEM 1,-10(17)
	JRST $660
$662==.
	PUSH 17,-10(17)
	PUSH 17,-10(17)
	PUSHJ 17,%TLCOP
	ADJSP 17,-2
	DMOVEM 1,-10(17)
	JRST $660
$663==.
	PUSH 17,-15(17)
	PUSH 17,-11(17)
	PUSH 17,-11(17)
	PUSHJ 17,%TLCOP
	MOVEM 1,-1(17)
	MOVEM 2,0(17)
	PUSHJ 17,%MEXPL
	ADJSP 17,-3
	DMOVEM 1,-10(17)
$660==.
	SKIPN 6,-10(17)
	 JRST $649
	SKIPN 5,-12(17)
	 JRST $664
	MOVE 4,-11(17)
	MOVEM 6,1(4)
	MOVE 7,-7(17)
	MOVEM 7,-11(17)
	JRST $649
$664==.
	DMOVE 4,-10(17)
	DMOVEM 4,-12(17)
	JRST $649
$655==.
	AOS 3,0(17)
	XMOVEI 5,-3(17)
	XMOVEI 16,-1(5)
	PUSH 16,$645
	PUSH 16,$645*1+1
	PUSH 16,$645*1+2
	MOVE 6,-6(17)
	HRLM 6,-3(17)
	XMOVEI 4,-3(17)
	PUSH 17,4
	SKIPE 10,-13(17)
	 JRST $665
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-12(17)
	MOVEM 1,-13(17)
	JRST $666
$665==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-12(17)
	MOVEM 1,1(4)
	MOVEM 1,-12(17)
$666==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	JRST $649
$653==.
	XMOVEI 4,-3(17)
	XMOVEI 16,-1(4)
	PUSH 16,$645
	PUSH 16,$645*1+1
	PUSH 16,$645*1+2
	MOVE 5,-6(17)
	HRLM 5,-3(17)
	MOVE 3,-6(17)
	SKIPE 6,TOKSTR(3)
	 JRST $671
	MOVE 11,-4(17)
	MOVEM 11,-1(17)
	LDB 7,11
	JUMPE 7,$672
$673==.
	ILDB 3,-4(17)
	JUMPN 3,$673
$672==.
	IBP -4(17)
$671==.
	XMOVEI 3,-3(17)
	PUSH 17,3
	SKIPE 5,-13(17)
	 JRST $674
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-12(17)
	MOVEM 1,-13(17)
	JRST $675
$674==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-12(17)
	MOVEM 1,1(4)
	MOVEM 1,-12(17)
$675==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	JRST $649
$648==.
	SKIPN 5,0(17)
	 JRST $680
	PUSH 17,5
	PUSH 17,-16(17)
	PUSH 17,-14(17)
	PUSH 17,-14(17)
	PUSHJ 17,%MPAST
	ADJSP 17,-4
$680==.
	DMOVE 1,-12(17)
	ADJSP 17,-13
	POPJ 17,
$659==.
	BYTE	(9) 155,163,165,142
	BYTE	(9) 163,164,72,40
	BYTE	(9) 151,154,154,145
	BYTE	(9) 147,141,154,40
	BYTE	(9) 160,141,162,141
	BYTE	(9) 155,40,45,144
	BYTE	(9) 40,151,156,40
	BYTE	(9) 142,157,144,171
	BYTE	(9) 40,157,146,40
	BYTE	(9) 155,141,143,162
	BYTE	(9) 157,40,45,123
	BYTE	(9) 0
	

$652==.
	BYTE	(9) 155,163,165,142
	BYTE	(9) 163,164,72,40
	BYTE	(9) 151,154,154,145
	BYTE	(9) 147,141,154,40
	BYTE	(9) 164,157,153,145
	BYTE	(9) 156,40,45,144
	BYTE	(9) 40,151,156,40
	BYTE	(9) 142,157,144,171
	BYTE	(9) 40,157,146,40
	BYTE	(9) 155,141,143,162
	BYTE	(9) 157,40,45,123
	BYTE	(9) 0
	

$647==.
	BYTE	(9) 155,163,165,142
	BYTE	(9) 163,164,0
	

%MPAST:
	ADJSP 17,5
	SETZB 3,-3(17)
	SKIPN 5,%DEBPP
	 JRST $681
	PUSH 17,-11(17)
	PUSHJ 17,%PLEVI
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$682]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	SETZB 16,-3(17)
	ADJSP 17,-3
	PUSH 17,%FPP
	PUSH 17,-11(17)
	PUSH 17,-11(17)
	PUSHJ 17,%TLFPU
	ADJSP 17,-4
	MOVE 5,%FPP
	SOSGE 3,1(5)
	 JRST $683
	MOVEI 4,12
	MOVE 7,%FPP
	IDPB 4,2(7)
	JRST $684
$683==.
	PUSH 17,%FPP
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$684==.
$681==.
	MOVE 4,-7(17)
	MOVEM 4,-4(17)
$685==.
	SKIPN 5,-4(17)
	 JRST $686
	HLRZ 3,0(5)
	CAIE 3,11
	 JRST $687
	SKIPE 6,%PPCPT
	 JRST $688
	MOVEI 4,7637
	MOVEM 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 7,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 7,%PPCPT
	MOVE 1,7
	IBP 1
	JRST $689
$688==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$689==.
	MOVEM 1,0(17)
	PUSH 17,-3(17)
	PUSHJ 17,%PPCTS
	ADJSP 17,-1
$690==.
	MOVE 4,-4(17)
	MOVE 7,1(4)
	MOVEM 7,-4(17)
	SKIPE 6,-3(17)
	 JUMPN 7,$693
	PUSH 17,[$$BP90+$$SECT,,$695]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$693==.
	PUSH 17,-4(17)
	PUSHJ 17,%PPCTS
	ADJSP 17,-1
	MOVE 4,-4(17)
	MOVE 6,1(4)
	MOVEM 6,-4(17)
	SOSLE 5,-11(17)
	 CAIN 6,0
	 JRST $691
	HLRZ 3,0(6)
	CAIN 3,11
	 JRST $690
$691==.
	SOSG 3,%PPCLE
	 JRST $696
	SETZ 4,
	IDPB 4,%PPCPT
	JRST $697
$696==.
	PUSHJ 17,%PPCER
$697==.
	MOVE 6,0(17)
	MOVE 7,-3(17)
	MOVEM 6,2(7)
	MOVEI 3,17
	HRLM 3,0(7)
	PUSH 17,6
	PUSHJ 17,%TLFRS
	ADJSP 17,-1
	DMOVEM 1,-2(17)
	SKIPN 4,%DEBPP
	 JRST $698
	PUSHJ 17,%PLEVI
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$699]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	PUSH 17,[1]
	PUSH 17,%FPP
	PUSH 17,-5(17)
	PUSHJ 17,%TKFPU
	ADJSP 17,-3
	PUSH 17,%FPP
	PUSH 17,[$$BP90+$$SECT,,$700]
	PUSHJ 17,FPUTS
	ADJSP 17,-2
	PUSH 17,[1]
	PUSH 17,%FPP
	PUSH 17,-4(17)
	PUSH 17,-4(17)
	PUSHJ 17,%TLFPU
	ADJSP 17,-4
	MOVE 5,%FPP
	SOSGE 3,1(5)
	 JRST $701
	MOVEI 4,12
	MOVE 7,%FPP
	IDPB 4,2(7)
	JRST $702
$701==.
	PUSH 17,%FPP
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$702==.
$698==.
	MOVE 5,-2(17)
	CAME 5,-1(17)
	 JRST $703
	MOVE 4,-3(17)
	XMOVEI 16,-1(4)
	PUSH 16,0(5)
	PUSH 16,1(5)
	PUSH 16,2(5)
	MOVE 6,-4(17)
	MOVE 10,-3(17)
	MOVEM 6,1(10)
	PUSH 17,-10(17)
	PUSH 17,10
	PUSHJ 17,%TKHID
	ADJSP 17,-2
$703==.
	SKIPG 4,-11(17)
	 JRST $686
$687==.
	MOVE 5,-4(17)
	MOVEM 5,-3(17)
	MOVE 3,1(5)
	MOVEM 3,-4(17)
	JRST $685
$686==.
	ADJSP 17,-5
	POPJ 17,
$700==.
	BYTE	(9) 40,151,156,164
	BYTE	(9) 157,0
	

$699==.
	BYTE	(9) 45,163,122,145
	BYTE	(9) 164,157,153,145
	BYTE	(9) 156,151,172,145
	BYTE	(9) 144,40,0
	

$695==.
	BYTE	(9) 155,160,141,163
	BYTE	(9) 164,145,72,40
	BYTE	(9) 43,43,40,141
	BYTE	(9) 162,147,40,155
	BYTE	(9) 151,163,163,151
	BYTE	(9) 156,147,0
	

$682==.
	BYTE	(9) 45,163,155,160
	BYTE	(9) 141,163,164,145
	BYTE	(9) 72,40,45,144
	BYTE	(9) 40,143,141,164
	BYTE	(9) 163,40,151,156
	BYTE	(9) 72,0
	

%HSPUS:
	MOVE 5,-2(17)
	CAIGE 5,50
	 JRST $705
	PUSH 17,5
	PUSH 17,[$$BP90+$$SECT,,$706]
	PUSHJ 17,INT.ER
	ADJSP 17,-2
	JRST $704
$705==.
	MOVE 4,-1(17)
	MOVE 3,-2(17)
	MOVEM 4,%HIDEM(3)
$704==.
	MOVE 1,-2(17)
	ADDI 1,1
	POPJ 17,
$706==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,163,40,156
	BYTE	(9) 145,163,164,145
	BYTE	(9) 144,40,164,157
	BYTE	(9) 157,40,144,145
	BYTE	(9) 145,160,40,50
	BYTE	(9) 45,144,51,0
	

%TKHID:
	ADJSP 17,1
	HLRZ 3,@-2(17)
	CAIE 3,4
	 JRST $707
	MOVE 5,-2(17)
	PUSH 17,2(5)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,0(17)
	JUMPN 1,$709
	MOVEI 1,1
	HRRM 1,@-2(17)
	ANDI 1,777777
	ADJSP 17,-1
	POPJ 17,
$709==.
	PUSH 17,-3(17)
	PUSH 17,-1(17)
	PUSHJ 17,%MISHI
	ADJSP 17,-2
	JUMPE 1,$708
	MOVEI 1,2
	HRRM 1,@-2(17)
	ANDI 1,777777
	ADJSP 17,-1
	POPJ 17,
$708==.
	MOVEI 1,3
	HRRM 1,@-2(17)
	ANDI 1,777777
	ADJSP 17,-1
	POPJ 17,
$707==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
%MISHI:
	SKIPL 5,-2(17)
	 CAILE 5,50
	 TRNA 
	 JRST $710
	PUSH 17,[$$BP90+$$SECT,,$712]
	PUSHJ 17,INT.ER
	MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$710==.
$713==.
	SOSGE 6,-2(17)
	 JRST $714
	MOVE 7,%HIDEM(6)
	CAME 7,-1(17)
	 JRST $713
	SKIPN 5,%DEBPP
	 JRST $715
	ADDI 7,2
	TLO 7,$$BP90
	PUSH 17,7
	PUSHJ 17,%PLEVI
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$716]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-4
$715==.
	MOVEI 1,1
	POPJ 17,
$714==.
	SETZ 1,
	POPJ 17,
$716==.
	BYTE	(9) 45,163,155,151
	BYTE	(9) 163,150,151,144
	BYTE	(9) 50,51,40,163
	BYTE	(9) 165,160,160,162
	BYTE	(9) 145,163,163,145
	BYTE	(9) 144,40,45,163
	BYTE	(9) 41,12,0
	

$712==.
	BYTE	(9) 155,151,163,150
	BYTE	(9) 151,144,72,40
	BYTE	(9) 142,141,144,40
	BYTE	(9) 141,162,147,0
	


	%%DATA
$717:	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 40,40,40,40
	BYTE (9) 0

	%%CODE
%PLEVI:
	SKIPG 4,%MACLE
	 SKIPA 1,[$$BP90+$$SECT,,$720]
	 SKIPA 5,4
	 JRST $719
	ASH 5,2
	TLC 5,400000
	MOVEI 3,65
	TLC 3,400000
	CAMLE 5,3
	 SKIPA 1,[$$BP90+$$SECT,,$717]
	 SKIPA 1,[65]
	 JRST $719
	MOVE 10,%MACLE
	ASH 10,2
	SUB 1,10
	ADJBP 1,[$$BP90+$$SECT,,$717]
$719==.
	POPJ 17,
$720==.
	BYTE	(9) 0
	

%PMACF:
	ADJSP 17,4
	MOVE 4,-6(17)
	MOVE 3,0(4)
	MOVEM 3,-1(17)
	PUSHJ 17,%PLEVI
	MOVEM 1,0(17)
	MOVE 10,-1(17)
	HRRZ 3,12(10)
	MOVEM 3,-3(17)
	PUSH 17,3
	LDB 4,[221100,,12(10)]
	PUSH 17,4
	LDB 5,[331100,,12(10)]
	TRNE 5,400
	 TDOA 5,[-1000]
	 ANDI 5,777
	PUSH 17,5
	ADDI 10,2
	TLO 10,$$BP90
	PUSH 17,10
	PUSH 17,-5(17)
	PUSH 17,-12(17)
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$722]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	MOVE 4,-12(17)
	MOVE 3,13(4)
	MOVEM 3,-13(17)
	MOVEM 3,-10(17)
	ADJSP 17,-10
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$723]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-4
	SKIPN 4,-2(17)
	 JRST $724
$725==.
	SOSGE 3,-3(17)
	 JRST $724
	LDB 6,-2(17)
	MOVE 5,CTFTAB*1+1(6)
	TRNN 5,1
	 JRST $726
	IBP -2(17)
	XORI 6,100
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$727]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-3
	JRST $725
$726==.
	MOVE 5,%FPP
	SOSGE 3,1(5)
	 JRST $728
	LDB 4,-2(17)
	IBP -2(17)
	MOVE 7,%FPP
	IDPB 4,2(7)
	JRST $725
$728==.
	PUSH 17,%FPP
	LDB 3,-3(17)
	IBP -3(17)
	PUSH 17,3
	PUSHJ 17,FPUTC
	ADJSP 17,-2
	JRST $725
$724==.
	PUSH 17,[$$BP90+$$SECT,,$729]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-2
	SETZB 3,-3(17)
$730==.
	MOVE 6,-3(17)
	MOVE 5,-6(17)
	CAML 6,1(5)
	 JRST $731
	PUSH 17,6
	PUSH 17,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$733]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	SETZB 16,-3(17)
	ADJSP 17,-3
	PUSH 17,%FPP
	MOVE 4,-10(17)
	ADDI 4,5
	MOVE 5,-5(17)
	ASH 5,1
	ADD 5,4
	PUSH 17,0(5)
	PUSH 17,1(5)
	PUSHJ 17,%TLFPU
	ADJSP 17,-4
	MOVE 5,%FPP
	SOSGE 3,1(5)
	 JRST $734
	MOVEI 4,12
	MOVE 7,%FPP
	IDPB 4,2(7)
	JRST $732
$734==.
	PUSH 17,%FPP
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$732==.
	AOS 3,-3(17)
	JRST $730
$731==.
	ADJSP 17,-4
	POPJ 17,
$733==.
	BYTE	(9) 45,163,101,162
	BYTE	(9) 147,40,45,144
	BYTE	(9) 72,0
	

$729==.
	BYTE	(9) 42,12,0
	

$727==.
	BYTE	(9) 136,45,143,0
	

$723==.
	BYTE	(9) 45,163,102,157
	BYTE	(9) 144,171,72,40
	BYTE	(9) 45,43,157,55
	BYTE	(9) 76,40,42,0
	

$722==.
	BYTE	(9) 45,163,45,163
	BYTE	(9) 72,40,115,141
	BYTE	(9) 143,146,162,141
	BYTE	(9) 155,145,40,146
	BYTE	(9) 157,162,40,45
	BYTE	(9) 43,157,55,76
	BYTE	(9) 42,45,163,42
	BYTE	(9) 40,50,156,160
	BYTE	(9) 141,162,72,40
	BYTE	(9) 45,144,54,40
	BYTE	(9) 160,141,162,154
	BYTE	(9) 145,156,72,40
	BYTE	(9) 45,144,54,40
	BYTE	(9) 154,145,156,72
	BYTE	(9) 40,45,144,51
	BYTE	(9) 12,0
	

%PMACT:
	PUSHJ 17,%PLEVI
	PUSH 17,1
	PUSH 17,-5(17)
	PUSH 17,-3(17)
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$735]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-5
	PUSH 17,[1]
	PUSH 17,%FPP
	PUSH 17,-6(17)
	PUSH 17,-6(17)
	PUSHJ 17,%TLFPU
	ADJSP 17,-4
	MOVE 5,%FPP
	SOSGE 3,1(5)
	 JRST $736
	MOVEI 4,12
	MOVE 7,%FPP
	IDPB 4,2(7)
	JRST $737
$736==.
	PUSH 17,%FPP
	PUSH 17,[12]
	PUSHJ 17,FPUTC
	ADJSP 17,-2
$737==.
	ADJSP 17,-1
	POPJ 17,
$735==.
	BYTE	(9) 45,163,124,157
	BYTE	(9) 153,145,156,154
	BYTE	(9) 151,163,164,40
	BYTE	(9) 45,163,40,50
	BYTE	(9) 150,163,40,45
	BYTE	(9) 144,51,72,40
	BYTE	(9) 0
	

%TLFPU:
	PUSH 17,-2(17)
$738==.
	SKIPN 5,0(17)
	 JRST $739
	PUSH 17,-5(17)
	PUSH 17,-5(17)
	PUSH 17,5
	PUSHJ 17,%TKFPU
	ADJSP 17,-3
	MOVE 4,0(17)
	MOVE 3,1(4)
	MOVEM 3,0(17)
	JRST $738
$739==.
	ADJSP 17,-1
	POPJ 17,

	%%DATA
$741:	BLOCK 10

	%%CODE
%TKIDS:
	HRRZ 3,@-1(17)
	CAIL 3,0
	 CAIL 3,4
	 JRST $742
	JRST @$747(3)
$747==.
	IFIW $743
	IFIW $744
	IFIW $745
	IFIW $746
$743==.
	MOVE 1,[$$BP90+$$SECT,,$748]
	POPJ 17,
$744==.
	MOVE 1,[$$BP90+$$SECT,,$749]
	POPJ 17,
$745==.
	MOVE 1,[$$BP90+$$SECT,,$750]
	POPJ 17,
$746==.
	MOVE 1,[$$BP90+$$SECT,,$751]
	POPJ 17,
$742==.
	HRRZ 3,@-1(17)
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$752]
	PUSH 17,[$$BP90+$$SECT,,$741]
	PUSHJ 17,SPRINT
	MOVE 1,[$$BP90+$$SECT,,$741]
	ADJSP 17,-3
	POPJ 17,
$752==.
	BYTE	(9) 124,137,111,104
	BYTE	(9) 105,116,124,53
	BYTE	(9) 45,43,157,0
	

$751==.
	BYTE	(9) 111,123,137,115
	BYTE	(9) 105,130,120,0
	

$750==.
	BYTE	(9) 111,123,137,115
	BYTE	(9) 110,111,104,0
	

$749==.
	BYTE	(9) 111,123,137,115
	BYTE	(9) 116,117,124,0
	

$748==.
	BYTE	(9) 111,123,137,125
	BYTE	(9) 116,113,0
	

%TKFPU:
	HLRZ 6,@-1(17)
	PUSH 17,6
	ADJSP 17,1
	JUMPL 6,$755
	CAIL 6,206
	 JRST $755
	MOVE 3,TOKSTR(6)
	MOVEM 3,0(17)
	JUMPN 3,$754
	MOVE 5,-3(17)
	MOVE 4,2(5)
	MOVEM 4,0(17)
	JUMPN 4,$754
$755==.
	MOVE 4,-3(17)
	PUSH 17,2(4)
	MOVE 6,-2(17)
	CAIGE 6,206
	 SKIPA 3,NOPNAM(6)
	 MOVE 3,[$$BP90+$$SECT,,$758]
	PUSH 17,3
	PUSH 17,6
	PUSH 17,[$$BP90+$$SECT,,$759]
	PUSH 17,-10(17)
	PUSHJ 17,FPRINT
	ADJSP 17,-5
	JRST $753
$754==.
	SKIPN 4,-5(17)
	 JRST $760
	PUSH 17,0(17)
	MOVE 5,-2(17)
	CAIE 5,4
	 JRST $761
	PUSH 17,-4(17)
	PUSHJ 17,%TKIDS
	ADJSP 17,-1
	JRST $762
$761==.
	MOVE 3,-2(17)
	MOVE 1,NOPNAM(3)
$762==.
	PUSH 17,1
	PUSH 17,[$$BP90+$$SECT,,$763]
	PUSH 17,-7(17)
	PUSHJ 17,FPRINT
	ADJSP 17,-4
	JRST $753
$760==.
	PUSH 17,0(17)
	PUSH 17,[$$BP90+$$SECT,,$764]
	PUSH 17,-6(17)
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$753==.
	ADJSP 17,-2
	POPJ 17,
$764==.
	BYTE	(9) 40,74,45,163
	BYTE	(9) 76,0
	

$763==.
	BYTE	(9) 40,74,45,163
	BYTE	(9) 40,45,163,76
	BYTE	(9) 0
	

$759==.
	BYTE	(9) 40,74,45,144
	BYTE	(9) 75,45,163,40
	BYTE	(9) 45,43,157,76
	BYTE	(9) 0
	

$758==.
	BYTE	(9) 0
	

%DIREC:
	PUSH 17,[-1]
	ADJSP 17,1
	AOS 3,%INDIR
	SETZB 4,%PPCPT
	XMOVEI 5,%PPTOK
	MOVEM 5,%PPTPT
	PUSHJ 17,%TSKIP
	CAIE 1,4
	 JRST $765
	PUSH 17,%RAWVA
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	JRST $766
$765==.
	SETZ 1,
$766==.
	MOVEM 1,0(17)
	SKIPE 4,%DEBPP
	 CAIN 1,0
	 JRST $767
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$768]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-3
$767==.
	SKIPL 4,0(17)
	 CAIL 4,10
	 JRST $769
	JRST @$777(4)
$777==.
	IFIW $770
	IFIW $769
	IFIW $771
	IFIW $772
	IFIW $773
	IFIW $774
	IFIW $775
	IFIW $776
$770==.
	MOVE 4,%RAWPP
	CAIE 4,3
	 SKIPE 5,%FLSHN
	 JRST $778
	PUSH 17,[$$BP90+$$SECT,,$779]
	PUSHJ 17,ERROR
	ADJSP 17,-1
$778==.
	SETZB 3,-1(17)
	JRST $769
$771==.
	PUSH 17,[$$BP90+$$SECT,,$780]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	PUSHJ 17,%D.IF
	MOVEM 1,-1(17)
	JRST $769
$772==.
	PUSH 17,[$$BP90+$$SECT,,$781]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	SKIPN 4,CLEVKC
	 JRST $769
	SKIPN 5,%FLSHN
	 PUSHJ 17,%D.ASM
	MOVEM 1,-1(17)
	JRST $769
$773==.
	PUSH 17,[$$BP90+$$SECT,,$785]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$784
	PUSHJ 17,%D.ELS
	MOVEM 1,-1(17)
	JRST $769
$784==.
	PUSH 17,[$$BP90+$$SECT,,$787]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$786
	SKIPG 4,CLEVEL
	 JRST $786
	PUSHJ 17,%D.ELI
	MOVEM 1,-1(17)
	JRST $769
$786==.
	PUSH 17,[$$BP90+$$SECT,,$788]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.LIN
	MOVEM 1,-1(17)
	JRST $769
$774==.
	PUSH 17,[$$BP90+$$SECT,,$792]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$791
	PUSHJ 17,%DNDF
	MOVEM 1,-1(17)
	JRST $769
$791==.
	PUSH 17,[$$BP90+$$SECT,,$794]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$793
	PUSH 17,[1]
	PUSHJ 17,%D.IFD
	ADJSP 17,-1
	MOVEM 1,-1(17)
	JRST $769
$793==.
	PUSH 17,[$$BP90+$$SECT,,$796]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$795
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.UND
	MOVEM 1,-1(17)
	JRST $769
$795==.
	PUSH 17,[$$BP90+$$SECT,,$799]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.ERR
	MOVEM 1,-1(17)
	JRST $769
$775==.
	PUSH 17,[$$BP90+$$SECT,,$803]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$802
	PUSH 17,1
	PUSHJ 17,%D.IFD
	ADJSP 17,-1
	MOVEM 1,-1(17)
	JRST $769
$802==.
	PUSH 17,[$$BP90+$$SECT,,$805]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$804
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.DEF
	MOVEM 1,-1(17)
	JRST $769
$804==.
	PUSH 17,[$$BP90+$$SECT,,$809]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$808
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.PRA
	MOVEM 1,-1(17)
	JRST $769
$808==.
	PUSH 17,[$$BP90+$$SECT,,$812]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	SKIPN 4,CLEVKC
	 JRST $769
	SKIPN 5,%FLSHN
	 PUSHJ 17,%D.END
	MOVEM 1,-1(17)
	JRST $769
$776==.
	PUSH 17,[$$BP90+$$SECT,,$815]
	PUSH 17,%RAWVA
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$769
	SKIPN 4,%FLSHN
	 PUSHJ 17,%D.INC
	MOVEM 1,-1(17)
$769==.
	MOVE 4,-1(17)
	CAML 4,[-1]
	 CAIL 4,3
	 JRST $818
	JRST @$822*1+1(4)
$822==.
	IFIW $820
	IFIW $821
	IFIW $818
	IFIW $819
$819==.
	PUSHJ 17,%CHECK
	JRST $818
$820==.
	SKIPN 4,%FLSHN
	 JRST $823
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$824]
	PUSHJ 17,WARN
	ADJSP 17,-2
	JRST $821
$823==.
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$825]
	PUSHJ 17,ERROR
	ADJSP 17,-2
$821==.
	SETZB 3,%INDIR
	PUSHJ 17,%FLSHT
$818==.
	SETZB 4,%INDIR
	MOVEM 4,%PPCPT
	XMOVEI 3,%PPTOK
	MOVEM 3,%PPTPT
	ADJSP 17,-2
	POPJ 17,
$825==.
	BYTE	(9) 125,156,163,165
	BYTE	(9) 160,160,157,162
	BYTE	(9) 164,145,144,40
	BYTE	(9) 160,162,145,160
	BYTE	(9) 162,157,143,145
	BYTE	(9) 163,163,157,162
	BYTE	(9) 40,143,157,155
	BYTE	(9) 155,141,156,144
	BYTE	(9) 72,40,42,45
	BYTE	(9) 163,42,0
	

$824==.
	BYTE	(9) 125,156,163,165
	BYTE	(9) 160,160,157,162
	BYTE	(9) 164,145,144,40
	BYTE	(9) 160,162,145,160
	BYTE	(9) 162,157,143,145
	BYTE	(9) 163,163,157,162
	BYTE	(9) 40,143,157,155
	BYTE	(9) 155,141,156,144
	BYTE	(9) 72,40,42,45
	BYTE	(9) 163,42,0
	

$815==.
	BYTE	(9) 151,156,143,154
	BYTE	(9) 165,144,145,0
	

$812==.
	BYTE	(9) 145,156,144,141
	BYTE	(9) 163,155,0
	

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

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

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

$799==.
	BYTE	(9) 145,162,162,157
	BYTE	(9) 162,0
	

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

$794==.
	BYTE	(9) 151,146,144,145
	BYTE	(9) 146,0
	

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

$788==.
	BYTE	(9) 154,151,156,145
	BYTE	(9) 0
	

$787==.
	BYTE	(9) 145,154,151,146
	BYTE	(9) 0
	

$785==.
	BYTE	(9) 145,154,163,145
	BYTE	(9) 0
	

$781==.
	BYTE	(9) 141,163,155,0
	

$780==.
	BYTE	(9) 151,146,0
	

$779==.
	BYTE	(9) 120,162,145,160
	BYTE	(9) 162,157,143,145
	BYTE	(9) 163,163,157,162
	BYTE	(9) 40,144,151,162
	BYTE	(9) 145,143,164,151
	BYTE	(9) 166,145,40,145
	BYTE	(9) 170,160,145,143
	BYTE	(9) 164,145,144,0
	

$768==.
	BYTE	(9) 43,55,104,111
	BYTE	(9) 122,105,103,124
	BYTE	(9) 111,126,105,40
	BYTE	(9) 163,145,145,156
	BYTE	(9) 72,40,42,45
	BYTE	(9) 163,42,12,0
	

%D.DEF:
	PUSHJ 17,%TSKIP
	CAIN 1,4
	 JRST $826
	PUSH 17,[$$BP90+$$SECT,,$827]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$826==.
	PUSH 17,%RAWVA
	LDB 3,%RAWVA
	CAIE 3,140
	 JRST $828
	PUSH 17,[$$BP90+$$SECT,,$829]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$828==.
	ADJSP 17,177
	SETOB 3,-174(17)
	SETZB 4,-173(17)
	PUSHJ 17,%NEXTR
	CAIE 1,23
	 JRST $830
	SETZB 3,-174(17)
$831==.
	PUSHJ 17,%TSKIP
	CAIN 1,24
	 JRST $832
	MOVE 4,%RAWPP
	CAIN 4,4
	 JRST $833
	PUSH 17,[$$BP90+$$SECT,,$834]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SETZB 3,-174(17)
	MOVEM 3,-173(17)
	JRST $832
$833==.
	MOVE 4,-174(17)
	CAIGE 4,47
	 JRST $836
	PUSH 17,-177(17)
	PUSH 17,[50]
	PUSH 17,[$$BP90+$$SECT,,$837]
	PUSHJ 17,ERROR
	ADJSP 17,-3
	JRST $835
$836==.
	MOVE 4,%RAWVA
	XMOVEI 6,-170(17)
	ADD 6,-174(17)
	MOVEM 4,0(6)
	SETZB 3,0(17)
$838==.
	MOVE 6,0(17)
	CAML 6,-174(17)
	 JRST $839
	PUSH 17,%RAWVA
	ADD 6,17
	PUSH 17,-171(6)
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPN 1,$840
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$841]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	JRST $839
$840==.
	AOS 3,0(17)
	JRST $838
$839==.
	AOS 3,-174(17)
	PUSH 17,%RAWVA
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	ADD 1,-173(17)
	AOS 4,1
	MOVEM 4,-173(17)
$835==.
	PUSHJ 17,%TSKIP
	CAIN 1,33
	 JRST $831
$832==.
	MOVE 4,%RAWPP
	CAIN 4,24
	 JRST $842
	PUSH 17,[$$BP90+$$SECT,,$843]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $830
$842==.
	PUSHJ 17,%NEXTR
$830==.
	XMOVEI 3,-175(17)
	PUSH 17,3
	PUSHJ 17,%MDEFI
	ADJSP 17,-1
	JUMPN 1,$844
	ADJSP 17,-200
	POPJ 17,
$844==.
	MOVEI 3,144
	DPB 3,%DEFCS
	PUSH 17,-177(17)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,-176(17)
	MOVEI 3,77
	DPB 3,%DEFCS
	SKIPN 12,-176(17)
	 JRST $845
	MOVE 6,-174(17)
	LDB 4,[331100,,12(12)]
	TRNE 4,400
	 TDOA 4,[-1000]
	 ANDI 4,777
	CAME 6,4
	 JRST $846
	MOVE 10,-172(17)
	HRRZ 5,12(12)
	CAME 10,5
	 JRST $846
	JUMPE 10,$847
	PUSH 17,10
	PUSH 17,13(12)
	PUSH 17,-173(17)
	PUSHJ 17,MEMCMP
	ADJSP 17,-3
	JUMPN 1,$846
$847==.
	SKIPN 5,-171(17)
	 JRST $848
	PUSH 17,5
	PUSHJ 17,FREE
	ADJSP 17,-1
$848==.
	MOVEI 1,2
	ADJSP 17,-200
	POPJ 17,
$846==.
	MOVE 4,-176(17)
	LDB 3,[331100,,12(4)]
	TRNE 3,400
	 TDOA 3,[-1000]
	 ANDI 3,777
	AOJGE 3,$849
	PUSH 17,-177(17)
	PUSH 17,[$$BP90+$$SECT,,$850]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	SKIPN 5,-171(17)
	 JRST $851
	PUSH 17,5
	PUSHJ 17,FREE
	ADJSP 17,-1
$851==.
	SETZ 1,
	ADJSP 17,-200
	POPJ 17,
$849==.
	PUSH 17,-177(17)
	PUSH 17,[$$BP90+$$SECT,,$852]
	PUSHJ 17,WARN
	ADJSP 17,-2
	PUSH 17,-176(17)
	PUSHJ 17,%FREEM
	ADJSP 17,-1
$845==.
	XMOVEI 3,-175(17)
	PUSH 17,3
	PUSH 17,-200(17)
	PUSHJ 17,%MDFSY
	MOVEI 1,2
	ADJSP 17,-202
	POPJ 17,
$852==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,162,145
	BYTE	(9) 144,145,146,151
	BYTE	(9) 156,145,144,72
	BYTE	(9) 40,42,45,163
	BYTE	(9) 42,0
	

$850==.
	BYTE	(9) 111,154,154,145
	BYTE	(9) 147,141,154,40
	BYTE	(9) 164,157,40,162
	BYTE	(9) 145,144,145,146
	BYTE	(9) 151,156,145,40
	BYTE	(9) 42,45,163,42
	BYTE	(9) 0
	

$843==.
	BYTE	(9) 103,154,157,163
	BYTE	(9) 145,40,160,141
	BYTE	(9) 162,145,156,40
	BYTE	(9) 156,145,145,144
	BYTE	(9) 145,144,40,164
	BYTE	(9) 157,40,145,156
	BYTE	(9) 144,40,146,157
	BYTE	(9) 162,155,141,154
	BYTE	(9) 40,160,141,162
	BYTE	(9) 141,155,145,164
	BYTE	(9) 145,162,40,154
	BYTE	(9) 151,163,164,0
	

$841==.
	BYTE	(9) 104,165,160,154
	BYTE	(9) 151,143,141,164
	BYTE	(9) 145,40,146,157
	BYTE	(9) 162,155,141,154
	BYTE	(9) 40,160,141,162
	BYTE	(9) 141,155,145,164
	BYTE	(9) 145,162,40,151
	BYTE	(9) 156,40,155,141
	BYTE	(9) 143,162,157,40
	BYTE	(9) 144,145,146,73
	BYTE	(9) 40,42,45,163
	BYTE	(9) 42,0
	

$837==.
	BYTE	(9) 115,157,162,145
	BYTE	(9) 40,164,150,141
	BYTE	(9) 156,40,45,144
	BYTE	(9) 40,141,162,147
	BYTE	(9) 163,40,151,156
	BYTE	(9) 40,155,141,143
	BYTE	(9) 162,157,40,144
	BYTE	(9) 145,146,151,156
	BYTE	(9) 151,164,151,157
	BYTE	(9) 156,40,157,146
	BYTE	(9) 40,42,45,163
	BYTE	(9) 42,0
	

$834==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,146,157
	BYTE	(9) 162,155,141,154
	BYTE	(9) 40,160,141,162
	BYTE	(9) 141,155,145,164
	BYTE	(9) 145,162,40,155
	BYTE	(9) 165,163,164,40
	BYTE	(9) 142,145,40,151
	BYTE	(9) 144,145,156,164
	BYTE	(9) 151,146,151,145
	BYTE	(9) 162,0
	

$829==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,156,141
	BYTE	(9) 155,145,40,143
	BYTE	(9) 141,156,156,157
	BYTE	(9) 164,40,142,145
	BYTE	(9) 40,161,165,157
	BYTE	(9) 164,145,144,40
	BYTE	(9) 151,144,145,156
	BYTE	(9) 164,151,146,151
	BYTE	(9) 145,162,0
	

$827==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,156,141
	BYTE	(9) 155,145,40,145
	BYTE	(9) 170,160,145,143
	BYTE	(9) 164,145,144,0
	


	%%DATA
$853:	BYTE (18) 2
	BLOCK 2

	%%CODE
%MDEFI:
	ADJSP 17,5
	SETZB 3,-1(17)
	MOVEM 3,-2(17)
	MOVEM 3,0(17)
	MOVE 5,-6(17)
	MOVEM 3,3(5)
$854==.
	MOVE 4,%RAWPP
	CAIE 4,2
	 JRST $855
	PUSHJ 17,%NEXTR
	JRST $854
$855==.
$856==.
	SKIPGE 4,0(17)
	 JRST $857
	MOVE 5,%RAWPP
	MOVM 6,5
	IDIVI 6,6
	CAME 5,$865(7)
	 JRST $862
	JRST @$866(7)
$865==.
	 22
	 1
	 2
	 3
	 4
	 21
$866==.
	IFIW $864
	IFIW $859
	IFIW $860
	IFIW $859
	IFIW $861
	IFIW $863
$859==.
	SKIPN 5,-1(17)
	 JRST $867
	HLRZ 3,0(5)
	CAIE 3,11
	 JRST $867
	PUSH 17,[$$BP90+$$SECT,,$868]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	MOVEI 3,22
	HRLM 3,@-1(17)
$867==.
	SETOB 3,0(17)
	JRST $856
$860==.
	MOVEI 3,1
	MOVEM 3,0(17)
	SKIPN 6,-1(17)
	 JRST $869
	HLRZ 4,0(6)
	CAIN 4,11
	 SETZB 5,0(17)
$869==.
	PUSHJ 17,%NEXTR
	JRST $856
$861==.
	SETZB 3,-4(17)
$870==.
	MOVE 5,-4(17)
	MOVE 6,-6(17)
	CAML 5,1(6)
	 JRST $871
	PUSH 17,%RAWVA
	ADD 5,6
	PUSH 17,5(5)
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPE 1,$871
	AOS 3,-4(17)
	JRST $870
$871==.
	MOVE 4,-4(17)
	MOVE 5,-6(17)
	CAML 4,1(5)
	 JRST $862
	SKIPN 7,-1(17)
	 JRST $874
	HLRZ 3,0(7)
	CAIE 3,11
	 JRST $874
	MOVEI 6,10
	MOVEM 6,%RAWPP
	JRST $873
$874==.
	SKIPN 4,0(17)
	 JRST $875
	XMOVEI 3,$853
	PUSH 17,3
	SKIPE 6,-3(17)
	 JRST $876
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-2(17)
	MOVEM 1,-3(17)
	JRST $877
$876==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-2(17)
	MOVEM 1,1(4)
	MOVEM 1,-2(17)
$877==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 5,-6(17)
	AOS 3,3(5)
$875==.
	MOVEI 3,6
	MOVEM 3,%RAWPP
$873==.
	MOVE 4,-4(17)
	MOVEM 4,%RAWVA
	MOVEI 5,2
	MOVE 7,-6(17)
	ADDB 5,3(7)
	JRST $858
$862==.
	SKIPN 4,0(17)
	 JRST $882
	XMOVEI 3,$853
	PUSH 17,3
	SKIPE 6,-3(17)
	 JRST $883
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-2(17)
	MOVEM 1,-3(17)
	JRST $884
$883==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-2(17)
	MOVEM 1,1(4)
	MOVEM 1,-2(17)
$884==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 5,-6(17)
	AOS 3,3(5)
$882==.
	MOVE 5,-6(17)
	AOS 3,3(5)
	SKIPN 7,%RAWVA
	 JRST $858
	PUSH 17,7
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	AOS 3,1
	MOVE 6,-6(17)
	ADDB 3,3(6)
	JRST $858
$863==.
	PUSHJ 17,%TSKIP
	CAIN 1,4
	 JRST $889
	PUSH 17,[$$BP90+$$SECT,,$890]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $856
$889==.
	SETZB 3,-4(17)
$891==.
	MOVE 5,-4(17)
	MOVE 6,-6(17)
	CAML 5,1(6)
	 JRST $892
	PUSH 17,%RAWVA
	ADD 5,6
	PUSH 17,5(5)
	PUSHJ 17,STRCMP
	ADJSP 17,-2
	JUMPE 1,$892
	AOS 3,-4(17)
	JRST $891
$892==.
	MOVE 4,-4(17)
	MOVE 5,-6(17)
	CAMGE 4,1(5)
	 JRST $894
	PUSH 17,[$$BP90+$$SECT,,$895]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $856
$894==.
	SKIPN 4,0(17)
	 JRST $896
	XMOVEI 3,$853
	PUSH 17,3
	SKIPE 6,-3(17)
	 JRST $897
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-2(17)
	MOVEM 1,-3(17)
	JRST $898
$897==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-2(17)
	MOVEM 1,1(4)
	MOVEM 1,-2(17)
$898==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 5,-6(17)
	AOS 3,3(5)
$896==.
	MOVEI 3,7
	MOVEM 3,%RAWPP
	MOVE 5,-4(17)
	MOVEM 5,%RAWVA
	MOVEI 6,2
	MOVE 10,-6(17)
	ADDB 6,3(10)
	JRST $858
$864==.
	SKIPE 4,-1(17)
	 JRST $903
	PUSH 17,[$$BP90+$$SECT,,$904]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	PUSHJ 17,%NEXTR
	JRST $856
$903==.
	HLRZ 3,@-1(17)
	CAIN 3,6
	 SKIPA 4,[10]
	 TRNA 
	 HRLM 4,@-1(17)
	MOVEI 5,11
	MOVEM 5,%RAWPP
	MOVE 10,-6(17)
	AOS 6,3(10)
$858==.
	SETZB 3,0(17)
	XMOVEI 4,-2(17)
	PUSH 17,4
	PUSHJ 17,%TLRAW
	ADJSP 17,-1
	PUSHJ 17,%NEXTR
	JRST $856
$857==.
	MOVE 5,-6(17)
	MOVE 3,2(5)
	ADDB 3,3(5)
	JUMPN 3,$906
	MOVE 6,-6(17)
	MOVEM 3,4(6)
	MOVEI 1,1
	ADJSP 17,-5
	POPJ 17,
$906==.
	MOVE 4,-6(17)
	MOVE 3,3(4)
	ADDI 3,1
	PUSH 17,3
	PUSHJ 17,MALLOC
	ADJSP 17,-1
	MOVE 4,-6(17)
	MOVEM 1,4(4)
	MOVEM 1,-3(17)
	JUMPN 1,$907
	PUSH 17,[$$BP90+$$SECT,,$908]
	PUSHJ 17,ERROR
	MOVE 5,-7(17)
	SETZB 3,2(5)
	MOVE 6,-7(17)
	MOVEM 3,3(6)
	MOVEI 1,1
	ADJSP 17,-6
	POPJ 17,
$907==.
	MOVE 4,-6(17)
	SKIPG 3,1(4)
	 JRST $909
	SETZB 5,-4(17)
$910==.
	MOVE 5,-4(17)
	MOVE 6,-6(17)
	CAML 5,1(6)
	 JRST $911
	ADD 5,6
	PUSH 17,5(5)
	PUSH 17,-4(17)
	PUSHJ 17,ESTRCP
	ADJSP 17,-2
	MOVEM 1,-3(17)
	MOVEI 3,54
	DPB 3,1
	IBP -3(17)
	AOS 4,-4(17)
	JRST $910
$911==.
	MOVEI 3,51
	SETO 4,
	ADJBP 4,-3(17)
	DPB 3,4
$909==.
	MOVE 4,-3(17)
	MOVE 5,-6(17)
	LDB 16,[$$BPSZ,,4]
	SUB 4,4(5)
	MUL 4,$BPMUL(16)
	ASH 5,-$$BSHF
	ADD 4,$BPADT(16)
	ADD 5,(4)
	MOVE 6,-6(17)
	CAME 5,2(6)
	 JRST $914
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSHJ 17,%TLTOM
	ADJSP 17,-3
	MOVE 4,-6(17)
	LDB 16,[$$BPSZ,,1]
	SUB 1,4(4)
	MUL 1,$BPMUL(16)
	ASH 2,-$$BSHF
	ADD 1,$BPADT(16)
	ADD 2,(1)
	MOVE 5,-6(17)
	SUB 2,3(5)
	SOJE 2,$913
$914==.
	PUSH 17,[$$BP90+$$SECT,,$915]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$913==.
	MOVEI 1,1
	ADJSP 17,-5
	POPJ 17,
$915==.
	BYTE	(9) 155,144,145,146
	BYTE	(9) 151,156,160,72
	BYTE	(9) 40,142,141,144
	BYTE	(9) 40,155,141,143
	BYTE	(9) 40,154,145,156
	BYTE	(9) 0
	

$908==.
	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,155,141
	BYTE	(9) 143,162,157,40
	BYTE	(9) 142,157,144,171
	BYTE	(9) 0
	

$904==.
	BYTE	(9) 43,43,40,157
	BYTE	(9) 160,145,162,141
	BYTE	(9) 164,157,162,40
	BYTE	(9) 143,141,156,156
	BYTE	(9) 157,164,40,142
	BYTE	(9) 145,147,151,156
	BYTE	(9) 40,155,141,143
	BYTE	(9) 162,157,40,142
	BYTE	(9) 157,144,171,0
	

$895==.
	BYTE	(9) 106,157,162,155
	BYTE	(9) 141,154,40,160
	BYTE	(9) 141,162,141,155
	BYTE	(9) 145,164,145,162
	BYTE	(9) 40,155,165,163
	BYTE	(9) 164,40,146,157
	BYTE	(9) 154,154,157,167
	BYTE	(9) 40,164,150,145
	BYTE	(9) 40,43,40,157
	BYTE	(9) 160,145,162,141
	BYTE	(9) 164,157,162,0
	

$890==.
	BYTE	(9) 106,157,162,155
	BYTE	(9) 141,154,40,160
	BYTE	(9) 141,162,141,155
	BYTE	(9) 145,164,145,162
	BYTE	(9) 40,155,165,163
	BYTE	(9) 164,40,146,157
	BYTE	(9) 154,154,157,167
	BYTE	(9) 40,164,150,145
	BYTE	(9) 40,43,40,157
	BYTE	(9) 160,145,162,141
	BYTE	(9) 164,157,162,0
	

$868==.
	BYTE	(9) 43,43,40,157
	BYTE	(9) 160,145,162,141
	BYTE	(9) 164,157,162,40
	BYTE	(9) 143,141,156,156
	BYTE	(9) 157,164,40,145
	BYTE	(9) 156,144,40,155
	BYTE	(9) 141,143,162,157
	BYTE	(9) 40,142,157,144
	BYTE	(9) 171,0
	

%MDEFS:
	ADJSP 17,201
	MOVE 4,-203(17)
	MOVEM 4,-177(17)
	SETZB 3,-176(17)
	SKIPN 13,-204(17)
	 JRST $917
	MOVE 7,%PPTPT
	MOVEM 7,-3(17)
	MOVE 10,%PPCPT
	MOVEM 10,-2(17)
	MOVE 11,%PPCLE
	MOVEM 11,-1(17)
	MOVE 12,%PPCOC
	MOVEM 12,0(17)
	PUSH 17,13
	PUSHJ 17,%SINBE
	ADJSP 17,-1
	PUSHJ 17,%NEXTM
	XMOVEI 3,-200(17)
	PUSH 17,3
	PUSHJ 17,%MDEFI
	ADJSP 17,-1
	PUSHJ 17,%SINEN
	MOVE 4,-2(17)
	MOVEM 4,%PPCPT
	MOVE 5,-1(17)
	MOVEM 5,%PPCLE
	MOVE 6,0(17)
	MOVEM 6,%PPCOC
	MOVE 7,-3(17)
	MOVEM 7,%PPTPT
	JRST $916
$917==.
	SETZB 4,-174(17)
	MOVEM 4,-175(17)
$916==.
	XMOVEI 3,-200(17)
	PUSH 17,3
	PUSH 17,-203(17)
	PUSHJ 17,%MDFSY
	ADJSP 17,-203
	POPJ 17,
%MDFSY:
	ADJSP 17,1
	PUSH 17,[1]
	PUSH 17,-3(17)
	PUSHJ 17,SYMFIN
	ADJSP 17,-2
	MOVEM 1,0(17)
	SKIPN 3,0(1)
	 JRST $918
	SOS 4,20(1)
	PUSH 17,-2(17)
	PUSHJ 17,SYMGCR
	ADJSP 17,-1
	MOVEM 1,0(17)
$918==.
	MOVEI 3,1
	MOVE 11,0(17)
	MOVEM 3,0(11)
	MOVEI 5,40
	IORB 5,1(11)
	MOVE 7,-3(17)
	MOVE 4,1(7)
	DPB 4,[331100,,12(11)]
	MOVE 10,-3(17)
	MOVE 6,2(10)
	MOVE 13,0(17)
	DPB 6,[221100,,12(13)]
	MOVE 14,-3(17)
	MOVE 12,3(14)
	POP 17,1
	HRRM 12,12(1)
	MOVE 15,4(14)
	MOVEM 15,13(1)
	POPJ 17,
%D.UND:
	PUSHJ 17,%TSKIP
	CAIN 1,4
	 JRST $919
	PUSH 17,[$$BP90+$$SECT,,$920]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$919==.
	ADJSP 17,1
	MOVEI 3,144
	DPB 3,%DEFCS
	PUSH 17,%RAWVA
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,0(17)
	MOVEI 3,77
	DPB 3,%DEFCS
	SKIPN 7,0(17)
	 JRST $921
	LDB 4,[331100,,12(7)]
	TRNE 4,400
	 TDOA 4,[-1000]
	 ANDI 4,777
	AOJL 4,$922
	PUSH 17,7
	PUSHJ 17,%FREEM
	ADJSP 17,-1
	JRST $921
$922==.
	PUSH 17,%RAWVA
	PUSH 17,[$$BP90+$$SECT,,$923]
	PUSHJ 17,ERROR
	ADJSP 17,-2
$921==.
	ADJSP 17,-1
	POPJ 17,
$923==.
	BYTE	(9) 111,154,154,145
	BYTE	(9) 147,141,154,40
	BYTE	(9) 164,157,40,165
	BYTE	(9) 156,144,145,146
	BYTE	(9) 151,156,145,40
	BYTE	(9) 42,45,163,42
	BYTE	(9) 0
	

$920==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,156,141
	BYTE	(9) 155,145,40,145
	BYTE	(9) 170,160,145,143
	BYTE	(9) 164,145,144,0
	

%FREEM:
	MOVE 6,-1(17)
	SKIPN 4,13(6)
	 JRST $924
	PUSH 17,4
	PUSHJ 17,FREE
	ADJSP 17,-1
$924==.
	JRST FREESY
%D.ASM:
	PUSHJ 17,%FLSHT
	SKIPN 4,%INASM
	 JRST $925
	PUSH 17,[$$BP90+$$SECT,,$926]
	PUSHJ 17,ERROR
	MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$925==.
	MOVEI 3,1
	MOVEM 3,%INASM
	MOVE 5,FLINE
	MOVEM 5,%ASMFL
	SKIPN 6,%CURTL
	 JRST $927
	PUSH 17,[$$BP90+$$SECT,,$928]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$927==.
	PUSH 17,[0]
	PUSH 17,[3]
	PUSHJ 17,%TLMAK
	ADJSP 17,-2
	DMOVEM 1,%CURTL
	MOVEI 1,2
	POPJ 17,
$928==.
	BYTE	(9) 144,137,141,163
	BYTE	(9) 155,72,40,143
	BYTE	(9) 157,157,153,145
	BYTE	(9) 144,40,164,157
	BYTE	(9) 160,55,154,145
	BYTE	(9) 166,145,154,40
	BYTE	(9) 151,156,160,165
	BYTE	(9) 164,0
	

$926==.
	BYTE	(9) 101,154,162,145
	BYTE	(9) 141,144,171,40
	BYTE	(9) 151,156,40,43
	BYTE	(9) 141,163,155,54
	BYTE	(9) 40,143,141,156
	BYTE	(9) 47,164,40,156
	BYTE	(9) 145,163,164,0
	


	%%DATA
$929:	BYTE (18) 23
	BLOCK 2
$930:	BYTE (18) 16
	BLOCK 2
$931:	BYTE (18) 24
	BLOCK 2
$932:	BYTE (18) 25
	BLOCK 2
$933:	BYTE (18) 3
	BLOCK 2

	%%CODE
%ASMRE:
	ADJSP 17,6
	SETZB 4,-4(17)
	MOVEM 4,-5(17)
	MOVEM 4,%PPCPT
	XMOVEI 3,%PPTOK
	MOVEM 3,%PPTPT
$934==.
$936==.
	PUSHJ 17,%CSKIP
	CAIE 1,12
	 JRST $937
	PUSHJ 17,%NEXTC
	JRST $936
$937==.
	MOVE 4,%CH
	CAIE 4,43
	 JRST $935
	PUSHJ 17,%NEXTC
	PUSHJ 17,%DIREC
	SKIPE 4,%INASM
	 JRST $934
	MOVE 6,%CH
	CAIN 6,12
	 JRST $938
	PUSH 17,6
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$939]
	PUSHJ 17,%PUSHS
	ADJSP 17,-1
$938==.
	DMOVE 1,-5(17)
	ADJSP 17,-6
	POPJ 17,
$935==.
	PUSH 17,[$$BP90+$$SECT,,$940]
	PUSH 17,[4]
	PUSHJ 17,%TLMAK
	ADJSP 17,-2
	DMOVEM 1,-5(17)
	XMOVEI 3,$929
	PUSH 17,3
	JUMPN 1,$941
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $942
$941==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$942==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	SKIPE 4,%PPCPT
	 JRST $947
	MOVEI 3,7637
	MOVEM 3,%PPCLE
	MOVEM 3,%PPCOC
	MOVE 5,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 5,%PPCPT
	MOVE 1,5
	IBP 1
	JRST $948
$947==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$948==.
	MOVEM 1,$930*1+2
	SOSLE 3,%PPCLE
	 SKIPA 4,[42]
	 TRNA 
	 IDPB 4,%PPCPT
$950==.
	MOVE 4,%CH
	MOVM 5,4
	IDIVI 5,12
	CAME 4,$956(6)
	 JRST $955
	JRST @$957(6)
$956==.
	 12
	 -1
	 134
	 -1
	 42
	 -1
	 -1
	 57
	 -1
	 -1
$957==.
	IFIW $951
	IFIW $952
	IFIW $954
	IFIW $955
	IFIW $954
	IFIW $955
	IFIW $955
	IFIW $953
	IFIW $955
	IFIW $955
$952==.
	PUSH 17,%ASMFL
	PUSH 17,[$$BP90+$$SECT,,$958]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	SETZB 3,%INASM
	JRST $951
$953==.
	PUSHJ 17,%NEXTC
	CAIE 1,52
	 JRST $959
	PUSHJ 17,%SCANC
	PUSHJ 17,%NEXTC
	SOSLE 3,%PPCLE
	 SKIPA 4,[40]
	 TRNA 
	 IDPB 4,%PPCPT
	JRST $950
$959==.
	SOSG 3,%PPCLE
	 JRST $950
	MOVEI 4,57
	IDPB 4,%PPCPT
	JRST $950
$954==.
	SOSLE 3,%PPCLE
	 SKIPA 4,[134]
	 TRNA 
	 IDPB 4,%PPCPT
	SOSLE 5,%PPCLE
	 SKIPA 7,%CH
	 TRNA 
	 IDPB 7,%PPCPT
	PUSHJ 17,%NEXTC
	JRST $950
$955==.
	MOVE 7,%CH
	MOVE 3,CTFTAB*1+1(7)
	TRNE 3,1140
	 JRST $963
	SOSLE 5,%PPCLE
	 IDPB 7,%PPCPT
	PUSHJ 17,%NEXTC
	JRST $950
$963==.
	SOSLE 3,%PPCLE
	 SKIPA 5,%CH
	 TRNA 
	 IDPB 5,%PPCPT
	MOVE 6,%PPCPT
	MOVEM 6,-2(17)
$966==.
	PUSHJ 17,%NEXTC
	MOVE 3,CTFTAB*1+1(1)
	TRNN 3,1160
	 JRST $967
	SOSG 4,%PPCLE
	 JRST $966
	MOVE 6,%CH
	IDPB 6,%PPCPT
	JRST $966
$967==.
	SOSG 3,%PPCLE
	 JRST $968
	SETZ 4,
	IDPB 4,%PPCPT
	JRST $969
$968==.
	PUSHJ 17,%PPCER
$969==.
	PUSH 17,-2(17)
	PUSHJ 17,%FINDM
	ADJSP 17,-1
	MOVEM 1,-3(17)
	JUMPE 1,$971
	PUSH 17,[0]
	PUSH 17,1
	PUSHJ 17,%MEXPT
	ADJSP 17,-2
	JUMPN 1,$970
$971==.
	AOS 3,%PPCLE
	SETO 4,
	ADJBP 4,%PPCPT
	MOVEM 4,%PPCPT
	JRST $950
$970==.
	MOVEI 3,42
	DPB 3,-2(17)
	SETZ 4,
	IDPB 4,-2(17)
	XMOVEI 5,$930
	PUSH 17,5
	SKIPE 7,-6(17)
	 JRST $972
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $973
$972==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$973==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	PUSH 17,%CURTL
	PUSH 17,%CURTL*1+1
	PUSHJ 17,%TLSTR
	ADJSP 17,-2
	DMOVEM 1,-1(17)
	SETZB 3,%CURTL*1+1
	MOVEM 3,%CURTL
	MOVE 5,1
	MOVE 6,-4(17)
	MOVEM 5,1(6)
	MOVE 7,0(17)
	MOVEM 7,-4(17)
	SKIPE 10,%PPCPT
	 JRST $978
	MOVEI 4,7637
	MOVEM 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 11,[$$BP90+$$SECT,,%PPCPO]
	MOVEM 11,%PPCPT
	MOVE 1,11
	IBP 1
	JRST $979
$978==.
	MOVE 4,%PPCLE
	MOVEM 4,%PPCOC
	MOVE 1,%PPCPT
	IBP 1
$979==.
	MOVEM 1,$930*1+2
	SOSG 3,%PPCLE
	 JRST $950
	MOVEI 4,42
	IDPB 4,%PPCPT
	JRST $950
$951==.
	SOSLE 3,%PPCLE
	 SKIPA 4,[134]
	 TRNA 
	 IDPB 4,%PPCPT
	SOSLE 5,%PPCLE
	 SKIPA 6,[156]
	 TRNA 
	 IDPB 6,%PPCPT
	SOSLE 7,%PPCLE
	 SKIPA 10,[42]
	 TRNA 
	 IDPB 10,%PPCPT
	SOSG 11,%PPCLE
	 JRST $983
	SETZ 12,
	IDPB 12,%PPCPT
	JRST $984
$983==.
	PUSHJ 17,%PPCER
$984==.
	XMOVEI 3,$930
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $985
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $986
$985==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$986==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	XMOVEI 3,$931
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $991
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $992
$991==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$992==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	XMOVEI 3,$932
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $997
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $998
$997==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$998==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	XMOVEI 3,$933
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $1003
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $1004
$1003==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$1004==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	XMOVEI 3,$933
	PUSH 17,3
	SKIPE 5,-6(17)
	 JRST $1009
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-5(17)
	MOVEM 1,-6(17)
	JRST $1010
$1009==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,-5(17)
	MOVEM 1,1(4)
	MOVEM 1,-5(17)
$1010==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	DMOVE 1,-5(17)
	ADJSP 17,-6
	POPJ 17,
$958==.
	BYTE	(9) 105,117,106,40
	BYTE	(9) 167,151,164,150
	BYTE	(9) 151,156,40,165
	BYTE	(9) 156,164,145,162
	BYTE	(9) 155,151,156,141
	BYTE	(9) 164,145,144,40
	BYTE	(9) 43,141,163,155
	BYTE	(9) 40,142,145,147
	BYTE	(9) 151,156,156,151
	BYTE	(9) 156,147,40,141
	BYTE	(9) 164,40,154,151
	BYTE	(9) 156,145,40,45
	BYTE	(9) 144,0
	

$940==.
	BYTE	(9) 141,163,155,0
	

$939==.
	BYTE	(9) 12,0
	

%D.END:
	SKIPE 4,%INASM
	 JRST $1016
	PUSH 17,[$$BP90+$$SECT,,$1017]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST $1015
$1016==.
	SETZB 3,%INASM
$1015==.
	SETZ 1,
	POPJ 17,
$1017==.
	BYTE	(9) 116,157,164,40
	BYTE	(9) 151,156,40,43
	BYTE	(9) 141,163,155,54
	BYTE	(9) 40,151,147,156
	BYTE	(9) 157,162,151,156
	BYTE	(9) 147,40,43,145
	BYTE	(9) 156,144,141,163
	BYTE	(9) 155,0
	

%D.IFD:
	AOS 3,%IFLEV
	CAIGE 3,61
	 JRST $1018
	PUSH 17,[$$BP90+$$SECT,,$1019]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SOS 3,%IFLEV
$1018==.
	MOVEI 3,1
	MOVE 11,%IFLEV
	MOVEM 3,%IFTYP(11)
	SETZB 1,%IFFIL(11)
	MOVE 6,FLINE
	MOVEM 6,%IFLIN(11)
	SKIPE 7,%FLSHN
	 POPJ 17,
	PUSHJ 17,%NEXTR
	CAIE 1,2
	 JRST $1022
	PUSHJ 17,%NEXTR
	CAIN 1,4
	 JRST $1021
$1022==.
	PUSH 17,[$$BP90+$$SECT,,$1023]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$1021==.
	PUSH 17,-1(17)
	PUSH 17,%RAWVA
	PUSHJ 17,%FINDM
	CAIN 1,0
	 TDZA 3,3
	 MOVEI 3,1
	MOVE 4,-1(17)
	ADJSP 17,-2
	CAMN 3,4
	 SKIPA 1,[2]
	 TRNA 
	 POPJ 17,
	PUSHJ 17,%CHECK
	PUSHJ 17,%FLUSH
	MOVEI 1,1
	POPJ 17,
$1023==.
	BYTE	(9) 115,141,143,162
	BYTE	(9) 157,40,156,141
	BYTE	(9) 155,145,40,145
	BYTE	(9) 170,160,145,143
	BYTE	(9) 164,145,144,0
	

$1019==.
	BYTE	(9) 43,151,146,40
	BYTE	(9) 156,145,163,164
	BYTE	(9) 151,156,147,40
	BYTE	(9) 144,145,160,164
	BYTE	(9) 150,40,145,170
	BYTE	(9) 143,145,145,144
	BYTE	(9) 145,144,0
	

%D.IF:
	AOS 3,%IFLEV
	CAIGE 3,61
	 JRST $1027
	PUSH 17,[$$BP90+$$SECT,,$1028]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SOS 3,%IFLEV
$1027==.
	MOVEI 3,1
	MOVE 11,%IFLEV
	MOVEM 3,%IFTYP(11)
	SETZB 1,%IFFIL(11)
	MOVE 6,FLINE
	MOVEM 6,%IFLIN(11)
	SKIPE 7,%FLSHN
	 POPJ 17,
	PUSHJ 17,%IFTES
	CAIN 1,0
	 PUSHJ 17,%FLUSH
	MOVEI 1,1
	POPJ 17,
$1028==.
	BYTE	(9) 43,151,146,40
	BYTE	(9) 156,145,163,164
	BYTE	(9) 151,156,147,40
	BYTE	(9) 144,145,160,164
	BYTE	(9) 150,40,145,170
	BYTE	(9) 143,145,145,144
	BYTE	(9) 145,144,0
	

%D.ELI:
	MOVE 3,%IFLEV
	SKIPE 4,%IFTYP(3)
	 JRST $1031
	PUSH 17,[$$BP90+$$SECT,,$1032]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	JRST %D.IF
$1031==.
	MOVE 3,%IFLEV
	SKIPG 4,%IFFIL(3)
	 JRST $1033
	PUSH 17,[$$BP90+$$SECT,,$1034]
	PUSHJ 17,%IFFWA
	ADJSP 17,-1
$1033==.
	MOVE 6,%FLSHN
	CAME 6,%IFLEV
	 JRST $1035
	MOVE 3,%IFTYP(6)
	SOJN 3,$1035
	PUSHJ 17,%IFTES
	JUMPE 1,$1036
	SETZB 6,%FLSHN
	MOVEI 4,2
	MOVE 11,%IFLEV
	MOVEM 4,%IFTYP(11)
	MOVEM 6,%IFFIL(11)
	MOVE 5,FLINE
	SUBI 5,1
	MOVEM 5,%IFLIN(11)
$1036==.
	MOVEI 1,1
	POPJ 17,
$1035==.
	MOVEI 3,2
	MOVE 11,%IFLEV
	MOVEM 3,%IFTYP(11)
	SETZB 1,%IFFIL(11)
	MOVE 6,FLINE
	MOVEM 6,%IFLIN(11)
	SKIPE 7,%FLSHN
	 POPJ 17,
	PUSHJ 17,%FLSHT
	PUSHJ 17,%FLUSH
	MOVEI 1,1
	POPJ 17,
$1034==.
	BYTE	(9) 145,154,151,146
	BYTE	(9) 0
	

$1032==.
	BYTE	(9) 43,145,154,151
	BYTE	(9) 146,40,167,151
	BYTE	(9) 164,150,157,165
	BYTE	(9) 164,40,160,162
	BYTE	(9) 145,143,145,144
	BYTE	(9) 151,156,147,40
	BYTE	(9) 43,151,146,54
	BYTE	(9) 40,164,162,145
	BYTE	(9) 141,164,151,156
	BYTE	(9) 147,40,141,163
	BYTE	(9) 40,43,151,146
	BYTE	(9) 0
	

%D.ELS:
	MOVE 3,%IFLEV
	PUSH 17,%IFTYP(3)
	SKIPE 5,%IFTYP(3)
	 JRST $1038
	PUSH 17,[$$BP90+$$SECT,,$1039]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SKIPE 4,%IFLEV
	 JRST $1038
	MOVEI 3,1
	AOS 11,%IFLEV
	MOVEM 3,%IFTYP(11)
	MOVEM 3,0(17)
	MOVEM 4,%IFFIL(11)
	MOVE 5,FLINE
	MOVEM 5,%IFLIN(11)
	MOVEM 4,%FLSHN
$1038==.
	MOVE 3,%IFLEV
	SKIPG 4,%IFFIL(3)
	 JRST $1040
	PUSH 17,[$$BP90+$$SECT,,$1041]
	PUSHJ 17,%IFFWA
	ADJSP 17,-1
$1040==.
	MOVE 10,%IFLEV
	SETZB 3,%IFTYP(10)
	MOVEM 3,%IFFIL(10)
	MOVE 4,FLINE
	MOVEM 4,%IFLIN(10)
	CAME 3,%FLSHN
	 JRST $1043
	PUSHJ 17,%CHECK
	PUSHJ 17,%FLUSH
	JRST $1042
$1043==.
	MOVE 4,%FLSHN
	CAME 4,%IFLEV
	 JRST $1044
	MOVE 5,0(17)
	CAIN 5,2
	 JRST $1044
	SETZB 3,%FLSHN
	JRST $1042
$1044==.
	MOVE 4,%FLSHN
	CAME 4,%IFLEV
	 PUSHJ 17,%FLSHT
$1042==.
	MOVEI 1,2
	ADJSP 17,-1
	POPJ 17,
$1041==.
	BYTE	(9) 145,154,163,145
	BYTE	(9) 0
	

$1039==.
	BYTE	(9) 43,145,154,163
	BYTE	(9) 145,40,167,151
	BYTE	(9) 164,150,157,165
	BYTE	(9) 164,40,160,162
	BYTE	(9) 145,143,145,144
	BYTE	(9) 151,156,147,40
	BYTE	(9) 43,151,146,0
	

%DNDF:
	SKIPN 7,%IFLEV
	 JRST $1046
	CAMN 7,%FLSHN
	 SETZB 3,%FLSHN
	SKIPG 4,%IFFIL(7)
	 JRST $1048
	PUSH 17,[$$BP90+$$SECT,,$1049]
	PUSHJ 17,%IFFWA
	ADJSP 17,-1
$1048==.
	SOS 3,%IFLEV
	JRST $1045
$1046==.
	PUSH 17,[$$BP90+$$SECT,,$1050]
	PUSHJ 17,ERROR
	ADJSP 17,-1
$1045==.
	SKIPE 4,%FLSHN
	 PUSHJ 17,%FLSHT
	MOVEI 1,2
	POPJ 17,
$1050==.
	BYTE	(9) 125,156,155,141
	BYTE	(9) 164,143,150,145
	BYTE	(9) 144,40,43,145
	BYTE	(9) 156,144,151,146
	BYTE	(9) 0
	

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

%FLUSH:
	MOVE 4,%IFLEV
	MOVEM 4,%FLSHN
	SETZB 3,%INDIR
$1052==.
	PUSHJ 17,%TSKIP
	CAIE 1,21
	 JRST $1055
	PUSHJ 17,%DIREC
	JRST $1054
$1055==.
	PUSHJ 17,%FLSHT
$1054==.
	SKIPE 4,%FLSHN
	 SKIPE 5,EOF
	 TRNA 
	 JRST $1052
	POPJ 17,

	%%DATA
$1056:	BYTE (18) 25
	BLOCK 2
$1057:	BYTE (18) 3
	BLOCK 2

	%%CODE
%IFTES:
	ADJSP 17,3
	SETZB 3,-1(17)
	SKIPN 5,%CURTL
	 JRST $1058
	PUSH 17,[$$BP90+$$SECT,,$1059]
	PUSHJ 17,INT.ER
	ADJSP 17,-1
$1058==.
	MOVEI 3,144
	DPB 3,%DEFCS
	PUSH 17,[0]
	PUSHJ 17,%GETLI
	PUSH 17,1
	PUSH 17,2
	PUSHJ 17,%MEXPL
	ADJSP 17,-3
	DMOVEM 1,%CURTL
	MOVEI 3,77
	DPB 3,%DEFCS
	MOVE 5,%CURTL
	MOVEM 5,-2(17)
$1060==.
	SKIPN 6,-2(17)
	 JRST $1061
	HLRZ 3,0(6)
	CAIE 3,4
	 JRST $1062
	PUSH 17,2(6)
	PUSH 17,[$$BP90+$$SECT,,$1063]
	PUSHJ 17,NOTE
	ADJSP 17,-2
	MOVEI 3,13
	HRLM 3,@-2(17)
	MOVE 4,[$$BP90+$$SECT,,$1064]
	MOVE 6,-2(17)
	MOVEM 4,2(6)
$1062==.
	MOVE 4,-2(17)
	MOVE 3,1(4)
	MOVEM 3,-2(17)
	JRST $1060
$1061==.
	SKIPN 6,%CURTL
	 JRST $1065
	XMOVEI 3,$1056
	PUSH 17,3
	JUMPN 6,$1066
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,%CURTL*1+1
	MOVEM 1,%CURTL
	JRST $1067
$1066==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,%CURTL*1+1
	MOVEM 1,1(4)
	MOVEM 1,%CURTL*1+1
$1067==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	XMOVEI 3,$1057
	PUSH 17,3
	SKIPE 5,%CURTL
	 JRST $1072
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,%CURTL*1+1
	MOVEM 1,%CURTL
	JRST $1073
$1072==.
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVE 4,%CURTL*1+1
	MOVEM 1,1(4)
	MOVEM 1,%CURTL*1+1
$1073==.
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 4,%CURTL*1+1
	MOVEM 4,-2(17)
	SKIPN 5,%DEBPP
	 JRST $1078
	PUSH 17,[0]
	PUSH 17,%CURTL
	PUSH 17,%CURTL*1+1
	PUSH 17,[$$BP90+$$SECT,,$1079]
	PUSHJ 17,%PMACT
	ADJSP 17,-4
$1078==.
	PUSHJ 17,NEXTOK
	PUSHJ 17,PCONST
	MOVEM 1,0(17)
	SETZB 5,CURPTR
	SKIPE 6,%CURTL
	 CAMN 6,-2(17)
	 AOS 4,-1(17)
	MOVEM 5,%CURTL*1+1
	MOVEM 5,%CURTL
$1065==.
	SKIPE 4,-1(17)
	 JRST $1082
	PUSH 17,[$$BP90+$$SECT,,$1083]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SETZB 3,0(17)
$1082==.
	SKIPN 4,0(17)
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-3
	POPJ 17,
$1083==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 163,171,156,164
	BYTE	(9) 141,170,40,146
	BYTE	(9) 157,162,40,43
	BYTE	(9) 151,146,40,145
	BYTE	(9) 170,160,162,145
	BYTE	(9) 163,163,151,157
	BYTE	(9) 156,54,40,165
	BYTE	(9) 163,151,156,147
	BYTE	(9) 40,60,0
	

$1079==.
	BYTE	(9) 151,146,164,145
	BYTE	(9) 163,164,0
	

$1064==.
	BYTE	(9) 60,114,0
	

$1063==.
	BYTE	(9) 125,156,144,145
	BYTE	(9) 146,151,156,145
	BYTE	(9) 144,40,151,144
	BYTE	(9) 145,156,164,151
	BYTE	(9) 146,151,145,162
	BYTE	(9) 40,42,45,163
	BYTE	(9) 42,40,55,40
	BYTE	(9) 163,165,142,163
	BYTE	(9) 164,151,164,165
	BYTE	(9) 164,151,156,147
	BYTE	(9) 40,42,60,114
	BYTE	(9) 42,0
	

$1059==.
	BYTE	(9) 151,146,164,145
	BYTE	(9) 163,164,72,40
	BYTE	(9) 160,141,162,163
	BYTE	(9) 151,156,147,40
	BYTE	(9) 43,151,146,40
	BYTE	(9) 167,151,164,150
	BYTE	(9) 40,141,143,164
	BYTE	(9) 151,166,145,40
	BYTE	(9) 143,165,162,164
	BYTE	(9) 154,0
	

%IFFWA:
	MOVE 7,%IFLEV
	PUSH 17,%IFLIN(7)
	MOVE 3,%IFFIL(7)
	SUBI 3,1
	IMULI 3,57
	XMOVEI 3,%INC*1+1(3)
	TLO 3,$$BP90
	PUSH 17,3
	MOVE 4,%IFTYP(7)
	PUSH 17,%IFNAM(4)
	PUSH 17,-4(17)
	PUSH 17,[$$BP90+$$SECT,,$1086]
	PUSHJ 17,WARN
	ADJSP 17,-5
	POPJ 17,
$1086==.
	BYTE	(9) 43,45,163,40
	BYTE	(9) 155,141,164,143
	BYTE	(9) 150,145,163,40
	BYTE	(9) 43,45,163,40
	BYTE	(9) 146,162,157,155
	BYTE	(9) 40,144,151,146
	BYTE	(9) 146,145,162,145
	BYTE	(9) 156,164,40,146
	BYTE	(9) 151,154,145,40
	BYTE	(9) 50,42,45,163
	BYTE	(9) 42,54,40,154
	BYTE	(9) 151,156,145,40
	BYTE	(9) 45,144,51,0
	

%IFPUS:
	AOS 3,-1(17)
	PUSH 17,%IFLEV
$1087==.
	SKIPG 10,0(17)
	 JRST $1088
	SKIPN 3,%IFFIL(10)
	 SKIPA 5,-2(17)
	 TRNA 
	 MOVEM 5,%IFFIL(10)
	SOS 4,0(17)
	JRST $1087
$1088==.
	ADJSP 17,-1
	POPJ 17,
%IFPOP:
	ADJSP 17,1
	SKIPN 4,-2(17)
	 JRST $1091
	MOVE 5,%IFLEV
	MOVEM 5,0(17)
$1092==.
	SKIPG 6,0(17)
	 JRST $1090
	SKIPE 3,%IFFIL(6)
	 JRST $1094
	PUSH 17,%IFLIN(6)
	MOVE 4,%IFTYP(6)
	PUSH 17,%IFNAM(4)
	PUSH 17,[$$BP90+$$SECT,,$1095]
	PUSHJ 17,WARN
	ADJSP 17,-3
	MOVE 4,0(17)
	SETOB 3,%IFFIL(4)
	JRST $1093
$1094==.
	MOVE 10,0(17)
	MOVE 4,%IFFIL(10)
	CAMN 4,-2(17)
	 SETZB 5,%IFFIL(10)
$1093==.
	SOS 3,0(17)
	JRST $1092
$1091==.
	MOVE 4,%IFLEV
	MOVEM 4,0(17)
$1096==.
	SKIPG 7,0(17)
	 JRST $1090
	SKIPE 3,%IFFIL(7)
	 SKIPA 4,[$$BP90+$$SECT,,$1100]
	 MOVE 4,[$$BP90+$$SECT,,$1101]
	PUSH 17,4
	PUSH 17,%IFLIN(7)
	MOVE 5,%IFTYP(7)
	PUSH 17,%IFNAM(5)
	PUSH 17,[$$BP90+$$SECT,,$1102]
	PUSHJ 17,ERROR
	ADJSP 17,-4
	SOS 3,0(17)
	JRST $1096
$1090==.
	ADJSP 17,-1
	POPJ 17,
$1102==.
	BYTE	(9) 125,156,164,145
	BYTE	(9) 162,155,151,156
	BYTE	(9) 141,164,145,144
	BYTE	(9) 40,43,45,163
	BYTE	(9) 40,50,163,164
	BYTE	(9) 141,162,164,151
	BYTE	(9) 156,147,40,141
	BYTE	(9) 164,40,154,151
	BYTE	(9) 156,145,40,45
	BYTE	(9) 144,45,163,51
	BYTE	(9) 0
	

$1101==.
	BYTE	(9) 0
	

$1100==.
	BYTE	(9) 40,157,146,40
	BYTE	(9) 141,156,40,151
	BYTE	(9) 156,143,154,165
	BYTE	(9) 144,145,144,40
	BYTE	(9) 146,151,154,145
	BYTE	(9) 0
	

$1095==.
	BYTE	(9) 125,156,164,145
	BYTE	(9) 162,155,151,156
	BYTE	(9) 141,164,145,144
	BYTE	(9) 40,43,45,163
	BYTE	(9) 40,50,163,164
	BYTE	(9) 141,162,164,151
	BYTE	(9) 156,147,40,141
	BYTE	(9) 164,40,154,151
	BYTE	(9) 156,145,40,45
	BYTE	(9) 144,51,0
	

%D.INC:
	ADJSP 17,131
	SETZB 4,-1(17)
	MOVEM 4,0(17)
	PUSH 17,[252]
	XMOVEI 3,-131(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,%GETFI
	ADJSP 17,-2
	MOVEM 1,-2(17)
	JUMPN 1,$1103
	ADJSP 17,-131
	POPJ 17,
$1103==.
	LDB 4,[331100,,-130(17)]
	CAIE 4,57
	 JRST $1105
	PUSH 17,[$$BP90+$$SECT,,$1106]
	XMOVEI 3,-131(17)
	TLO 3,$$BP90
	PUSH 17,3
	XMOVEI 5,-57(17)
	TLO 5,$$BP90
	PUSH 17,5
	PUSHJ 17,STRCPY
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSHJ 17,FOPEN
	ADJSP 17,-2
	MOVEM 1,0(17)
	AOS 3,-1(17)
	JRST $1104
$1105==.
	MOVE 4,-2(17)
	CAIN 4,76
	 JRST $1104
	PUSH 17,[$$BP90+$$SECT,,INPFSU]
	XMOVEI 3,-131(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,INPFDI]
	XMOVEI 5,-60(17)
	TLO 5,$$BP90
	PUSH 17,5
	PUSHJ 17,ESTRCP
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSHJ 17,ESTRCP
	MOVEM 1,-1(17)
	ADJSP 17,-1
	PUSHJ 17,ESTRCP
	ADJSP 17,-2
	PUSH 17,[$$BP90+$$SECT,,$1108]
	XMOVEI 3,-56(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,FOPEN
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPE 1,$1107
	AOS 3,-1(17)
	JRST $1104
$1107==.
	SKIPN 11,NINCPA
	 JRST $1104
	XMOVEI 3,0(17)
	PUSH 17,3
	XMOVEI 5,-131(17)
	TLO 5,$$BP90
	PUSH 17,5
	XMOVEI 6,-57(17)
	TLO 6,$$BP90
	PUSH 17,6
	XMOVEI 7,INCPAT
	PUSH 17,7
	PUSH 17,11
	PUSHJ 17,%CINCT
	ADJSP 17,-5
	MOVEM 1,-1(17)
$1104==.
	SKIPE 4,-1(17)
	 JRST $1109
	SKIPN 5,NHFSYP
	 JRST $1110
	PUSH 17,[4]
	PUSH 17,[$$BP90+$$SECT,,$1111]
	XMOVEI 3,-132(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,STRNCM
	ADJSP 17,-3
	JUMPN 1,$1110
	MOVE 4,NHFSYP
	SOJLE 4,$1112
	XMOVEI 3,0(17)
	PUSH 17,3
	XMOVEI 6,-130(17)
	TLO 6,$$BP90
	PUSH 17,6
	XMOVEI 5,-57(17)
	TLO 5,$$BP90
	PUSH 17,5
	XMOVEI 10,HFSYPA*1+1
	PUSH 17,10
	MOVE 11,NHFSYP
	SUBI 11,1
	PUSH 17,11
	PUSHJ 17,%CINCT
	ADJSP 17,-5
	JUMPN 1,$1110
$1112==.
	XMOVEI 3,0(17)
	PUSH 17,3
	XMOVEI 5,-130(17)
	TLO 5,$$BP90
	PUSH 17,5
	XMOVEI 4,-57(17)
	TLO 4,$$BP90
	PUSH 17,4
	XMOVEI 6,HFSYPA
	PUSH 17,6
	PUSH 17,[1]
	PUSHJ 17,%CINCT
	ADJSP 17,-5
$1110==.
	SKIPE 4,0(17)
	 JRST $1109
	MOVE 5,NHFPAT
	SOJLE 5,$1113
	XMOVEI 3,0(17)
	PUSH 17,3
	XMOVEI 6,-131(17)
	TLO 6,$$BP90
	PUSH 17,6
	XMOVEI 7,-57(17)
	TLO 7,$$BP90
	PUSH 17,7
	XMOVEI 11,HFPATH*1+1
	PUSH 17,11
	MOVE 12,NHFPAT
	SUBI 12,1
	PUSH 17,12
	PUSHJ 17,%CINCT
	ADJSP 17,-5
	JUMPN 1,$1109
$1113==.
	XMOVEI 3,0(17)
	PUSH 17,3
	XMOVEI 4,-131(17)
	TLO 4,$$BP90
	PUSH 17,4
	XMOVEI 5,-57(17)
	TLO 5,$$BP90
	PUSH 17,5
	XMOVEI 6,HFPATH
	PUSH 17,6
	PUSH 17,[1]
	PUSHJ 17,%CINCT
	ADJSP 17,-5
$1109==.
	SKIPE 4,0(17)
	 JRST $1115
	XMOVEI 3,-55(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSH 17,[$$BP90+$$SECT,,$1116]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	JRST $1114
$1115==.
	PUSH 17,[1]
	PUSH 17,[1]
	PUSH 17,[1]
	XMOVEI 3,-60(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSH 17,-4(17)
	PUSHJ 17,%FILEP
	ADJSP 17,-5
$1114==.
	MOVEI 1,1
	ADJSP 17,-131
	POPJ 17,
$1116==.
	BYTE	(9) 103,141,156,47
	BYTE	(9) 164,40,157,160
	BYTE	(9) 145,156,40,151
	BYTE	(9) 156,143,154,165
	BYTE	(9) 144,145,40,146
	BYTE	(9) 151,154,145,54
	BYTE	(9) 40,154,141,163
	BYTE	(9) 164,40,164,162
	BYTE	(9) 151,145,144,40
	BYTE	(9) 42,45,163,42
	BYTE	(9) 0
	

$1111==.
	BYTE	(9) 163,171,163,57
	BYTE	(9) 0
	

$1108==.
	BYTE	(9) 162,0
	

$1106==.
	BYTE	(9) 162,0
	

%CINCT:
$1117==.
	SOSGE 3,-1(17)
	 JRST $1118
	MOVE 7,-2(17)
	SKIPN 5,0(7)
	 JRST $1121
	LDB 4,5
	JUMPN 4,$1120
$1121==.
	MOVEI 1,1
	POPJ 17,
$1120==.
	PUSH 17,-4(17)
	MOVE 4,-3(17)
	PUSH 17,0(4)
	PUSH 17,-5(17)
	PUSHJ 17,FSTRCP
	ADJSP 17,-3
	PUSH 17,[$$BP90+$$SECT,,$1122]
	PUSH 17,-4(17)
	PUSHJ 17,FOPEN
	ADJSP 17,-2
	MOVE 4,-5(17)
	MOVEM 1,0(4)
	JUMPE 1,$1119
	MOVEI 1,1
	POPJ 17,
$1119==.
	AOS 3,-2(17)
	JRST $1117
$1118==.
	SETZ 1,
	POPJ 17,
$1122==.
	BYTE	(9) 162,0
	

%FILEP:
	MOVE 4,%INLEV
	CAIGE 4,11
	 JRST $1123
	PUSH 17,-2(17)
	PUSH 17,[$$BP90+$$SECT,,$1124]
	PUSHJ 17,ERROR
	ADJSP 17,-2
	POPJ 17,
$1123==.
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	SKIPE 4,EOF
	 SETZB 3,EOF
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	MOVE 7,%INLEV
	IMULI 7,57
	XMOVEI 7,%INC*1+1(7)
	TLO 7,$$BP90
	PUSH 17,7
	PUSHJ 17,STRCPY
	ADJSP 17,-2
	MOVE 4,IN
	MOVE 12,%INLEV
	IMULI 12,57
	MOVEM 4,%INC(12)
	MOVE 5,PAGE
	MOVEM 5,%INC*1+54(12)
	MOVE 6,LINE
	MOVEM 6,%INC*1+55(12)
	MOVE 7,FLINE
	MOVEM 7,%INC*1+56(12)
	PUSH 17,%INLEV
	PUSHJ 17,%IFPUS
	ADJSP 17,-1
	AOS 3,%INLEV
	PUSH 17,-3(17)
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	PUSHJ 17,STRCPY
	ADJSP 17,-2
	MOVE 4,-2(17)
	MOVEM 4,IN
	MOVE 5,-6(17)
	MOVEM 5,FLINE
	MOVE 6,-4(17)
	MOVEM 6,LINE
	MOVE 7,-5(17)
	MOVEM 7,PAGE
	SKIPN 10,%DEBPP
	 JRST $1126
	MOVE 11,%CH
	MOVEM 11,0(17)
	PUSHJ 17,%NEXTC
	PUSH 17,%CH
	PUSH 17,-4(17)
	PUSH 17,-2(17)
	PUSH 17,%INLEV
	PUSH 17,[$$BP90+$$SECT,,$1127]
	PUSH 17,%FPP
	PUSHJ 17,FPRINT
	ADJSP 17,-7
	POPJ 17,
$1126==.
	ADJSP 17,-1
	JRST %NEXTC
$1127==.
	BYTE	(9) 43,151,156,143
	BYTE	(9) 154,165,144,145
	BYTE	(9) 40,45,144,72
	BYTE	(9) 40,163,141,166
	BYTE	(9) 145,144,40,143
	BYTE	(9) 150,141,162,40
	BYTE	(9) 45,43,157,54
	BYTE	(9) 40,156,145,167
	BYTE	(9) 40,146,151,154
	BYTE	(9) 145,40,42,45
	BYTE	(9) 163,42,54,40
	BYTE	(9) 156,145,167,40
	BYTE	(9) 143,150,141,162
	BYTE	(9) 40,45,43,157
	BYTE	(9) 12,0
	

$1124==.
	BYTE	(9) 111,156,143,154
	BYTE	(9) 165,144,145,40
	BYTE	(9) 146,151,154,145
	BYTE	(9) 40,156,145,163
	BYTE	(9) 164,151,156,147
	BYTE	(9) 40,144,145,160
	BYTE	(9) 164,150,40,145
	BYTE	(9) 170,143,145,145
	BYTE	(9) 144,145,144,40
	BYTE	(9) 55,55,40,151
	BYTE	(9) 147,156,157,162
	BYTE	(9) 151,156,147,40
	BYTE	(9) 45,163,0
	

%D.LIN:
	ADJSP 17,4
	PUSH 17,[1]
	PUSH 17,[0]
	PUSHJ 17,%GETLI
	PUSH 17,1
	PUSH 17,2
	PUSHJ 17,%MEXPL
	MOVEM 1,-2(17)
	MOVEM 2,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%TLWSP
	ADJSP 17,-3
	DMOVEM 1,-3(17)
	MOVEM 1,-1(17)
	JUMPN 1,$1128
	PUSH 17,[$$BP90+$$SECT,,$1129]
	PUSHJ 17,WARN
	MOVEI 1,2
	ADJSP 17,-5
	POPJ 17,
$1128==.
	HLRZ 3,@-1(17)
	CAIN 3,13
	 JRST $1130
	PUSH 17,[$$BP90+$$SECT,,$1131]
	PUSHJ 17,WARN
	MOVEI 1,2
	ADJSP 17,-5
	POPJ 17,
$1130==.
	MOVE 4,-1(17)
	MOVE 6,1(4)
	MOVEM 6,0(17)
	JUMPE 6,$1132
	HLRZ 3,0(6)
	CAIN 3,16
	 JRST $1133
	PUSH 17,[$$BP90+$$SECT,,$1134]
	PUSHJ 17,WARN
	MOVEI 1,2
	ADJSP 17,-5
	POPJ 17,
$1133==.
	MOVE 4,0(17)
	SKIPN 3,1(4)
	 JRST $1132
	PUSH 17,[$$BP90+$$SECT,,$1135]
	PUSHJ 17,WARN
	MOVEI 1,2
	ADJSP 17,-5
	POPJ 17,
$1132==.
	MOVE 4,-1(17)
	PUSH 17,2(4)
	PUSHJ 17,ATOI
	ADJSP 17,-1
	MOVEM 1,FLINE
	SKIPN 5,0(17)
	 JRST $1136
	PUSH 17,[251]
	PUSH 17,[$$BP90+$$SECT,,INPFNA]
	PUSH 17,5
	PUSHJ 17,%SLTOS
	ADJSP 17,-3
$1136==.
	MOVEI 1,2
	ADJSP 17,-4
	POPJ 17,
$1135==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 43,154,151,156
	BYTE	(9) 145,40,163,171
	BYTE	(9) 156,164,141,170
	BYTE	(9) 0
	

$1134==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 43,154,151,156
	BYTE	(9) 145,40,146,151
	BYTE	(9) 154,145,156,141
	BYTE	(9) 155,145,0
	

$1131==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 43,154,151,156
	BYTE	(9) 145,40,156,165
	BYTE	(9) 155,142,145,162
	BYTE	(9) 0
	

$1129==.
	BYTE	(9) 105,155,160,164
	BYTE	(9) 171,40,43,154
	BYTE	(9) 151,156,145,0
	

%D.ERR:
	ADJSP 17,36
	PUSH 17,[167]
	XMOVEI 3,-36(17)
	TLO 3,$$BP90
	PUSH 17,3
	PUSHJ 17,%GETLI
	PUSH 17,1
	PUSH 17,2
	PUSHJ 17,%TLTOS
	XMOVEI 3,-41(17)
	TLO 3,$$BP90
	MOVEM 3,-3(17)
	ADJSP 17,-3
	PUSH 17,[$$BP90+$$SECT,,$1137]
	PUSHJ 17,ERROR
	MOVEI 1,2
	ADJSP 17,-40
	POPJ 17,
$1137==.
	BYTE	(9) 43,145,162,162
	BYTE	(9) 157,162,72,40
	BYTE	(9) 45,163,0
	

%D.PRA:
	PUSHJ 17,%FLSHT
	PUSH 17,[$$BP90+$$SECT,,$1138]
	PUSHJ 17,NOTE
	MOVEI 1,2
	ADJSP 17,-1
	POPJ 17,
$1138==.
	BYTE	(9) 125,156,153,156
	BYTE	(9) 157,167,156,40
	BYTE	(9) 43,160,162,141
	BYTE	(9) 147,155,141,0
	

%GETFI:
	ADJSP 17,3
	MOVE 4,-4(17)
	MOVEM 4,0(17)
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSHJ 17,%SCANH
	MOVE 3,%CH
	CAIN 3,12
	 JRST $1142
	CAIN 3,74
	 JRST $1141
	CAIE 3,42
	 JRST $1143
	MOVEM 3,-1(17)
	JRST $1139
$1141==.
	MOVEI 3,76
	MOVEM 3,-1(17)
	JRST $1139
$1142==.
	PUSH 17,[$$BP90+$$SECT,,$1144]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-4
	POPJ 17,
$1143==.
	PUSH 17,-5(17)
	PUSH 17,-5(17)
	PUSH 17,[0]
	PUSH 17,[0]
	PUSHJ 17,%GETLI
	PUSH 17,1
	PUSH 17,2
	PUSHJ 17,%MEXPL
	MOVEM 1,-2(17)
	MOVEM 2,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%TLWSP
	MOVEM 1,-2(17)
	MOVEM 2,-1(17)
	ADJSP 17,-1
	PUSHJ 17,%TLTOS
	ADJSP 17,-4
	SETZB 3,-1(17)
	LDB 5,-4(17)
	CAIE 5,42
	 JRST $1146
	MOVEM 5,-1(17)
	JRST $1145
$1146==.
	LDB 3,-4(17)
	CAIN 3,74
	 SKIPA 4,[76]
	 TRNA 
	 MOVEM 4,-1(17)
$1145==.
	SKIPN 4,-1(17)
	 JRST $1148
	PUSH 17,-4(17)
	PUSHJ 17,STRLEN
	ADJSP 17,-1
	MOVEM 1,-2(17)
	SUBI 1,1
	ADJBP 1,-4(17)
	LDB 3,1
	CAMN 3,-1(17)
	 JRST $1147
$1148==.
	PUSH 17,-4(17)
	PUSH 17,[$$BP90+$$SECT,,$1149]
	PUSHJ 17,ERROR
	SETZ 1,
	ADJSP 17,-5
	POPJ 17,
$1147==.
	MOVNI 5,2
	ADDB 5,-2(17)
	PUSH 17,5
	MOVE 3,-5(17)
	IBP 3
	PUSH 17,3
	PUSH 17,-6(17)
	PUSHJ 17,MEMMOV
	SETZ 3,
	MOVE 5,-5(17)
	ADJBP 5,-7(17)
	DPB 3,5
	MOVE 1,-4(17)
	ADJSP 17,-6
	POPJ 17,
$1139==.
	PUSHJ 17,%NEXTC
	MOVE 4,-5(17)
	MOVEM 4,-2(17)
$1150==.
	SOSG 3,-2(17)
	 JRST $1151
	MOVE 7,%CH
	MOVE 4,CTFTAB*1+1(7)
	TRNN 4,2000
	 AOJN 7,$1152
	SETZB 5,-1(17)
	JRST $1151
$1152==.
	MOVE 5,%CH
	CAMN 5,-1(17)
	 JRST $1154
	DPB 5,0(17)
	IBP 0(17)
	PUSHJ 17,%NEXTC
	JRST $1150
$1154==.
	SETZ 3,
	DPB 3,0(17)
	PUSHJ 17,%NEXTC
	PUSHJ 17,%TSKIP
	CAIN 1,3
	 JRST $1151
	SETZB 3,-1(17)
	PUSH 17,[$$BP90+$$SECT,,$1155]
	PUSHJ 17,ERROR
	ADJSP 17,-1
$1151==.
	SKIPLE 4,-2(17)
	 JRST $1156
	PUSH 17,[$$BP90+$$SECT,,$1157]
	PUSHJ 17,ERROR
	ADJSP 17,-1
	SETZB 3,-1(17)
$1156==.
	SETZ 3,
	DPB 3,0(17)
	PUSHJ 17,%FLSHT
	MOVE 1,-1(17)
	ADJSP 17,-3
	POPJ 17,
$1157==.
	BYTE	(9) 106,151,154,145
	BYTE	(9) 156,141,155,145
	BYTE	(9) 40,164,157,157
	BYTE	(9) 40,154,157,156
	BYTE	(9) 147,0
	

$1155==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 43,151,156,143
	BYTE	(9) 154,165,144,145
	BYTE	(9) 40,163,171,156
	BYTE	(9) 164,141,170,54
	BYTE	(9) 40,152,165,156
	BYTE	(9) 153,40,146,157
	BYTE	(9) 154,154,157,167
	BYTE	(9) 163,40,146,151
	BYTE	(9) 154,145,156,141
	BYTE	(9) 155,145,0
	

$1149==.
	BYTE	(9) 102,141,144,40
	BYTE	(9) 163,171,156,164
	BYTE	(9) 141,170,40,146
	BYTE	(9) 157,162,40,43
	BYTE	(9) 151,156,143,154
	BYTE	(9) 165,144,145,40
	BYTE	(9) 146,151,154,145
	BYTE	(9) 72,40,45,163
	BYTE	(9) 0
	

$1144==.
	BYTE	(9) 116,157,40,146
	BYTE	(9) 151,154,145,156
	BYTE	(9) 141,155,145,40
	BYTE	(9) 146,157,162,40
	BYTE	(9) 43,151,156,143
	BYTE	(9) 154,165,144,145
	BYTE	(9) 0
	

%TSKIP:
$1158==.
	PUSHJ 17,%NEXTR
	CAIN 1,2
	 JRST $1158
	MOVE 1,%RAWPP
	POPJ 17,
%TSKPL:
$1159==.
	PUSHJ 17,%NEXTR
	CAIE 1,3
	 CAIN 1,2
	 JRST $1159
	MOVE 1,%RAWPP
	POPJ 17,
%FLSHT:
	MOVE 1,%RAWPP
	CAIN 1,3
	 POPJ 17,
$1163==.
	MOVE 4,%CH
	CAIN 4,57
	 JRST $1167
	CAIN 4,12
	 JRST $1166
	CAME 4,[-1]
	 JRST $1168
	MOVEI 1,1
	MOVEM 1,%RAWPP
	POPJ 17,
$1166==.
	PUSHJ 17,%NEXTC
	MOVEI 1,3
	MOVEM 1,%RAWPP
	POPJ 17,
$1167==.
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 PUSHJ 17,%SCANC
$1168==.
	PUSHJ 17,%NEXTC
	JRST $1163
%CSKIP:
	PUSH 17,[0]
$1169==.
	MOVE 4,%CH
	CAIN 4,12
	 JRST $1172
	CAIE 4,57
	 JRST $1173
	PUSHJ 17,%NEXTC
	CAIN 1,52
	 JRST $1174
	PUSH 17,%CH
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$1175]
	PUSHJ 17,%PUSHS
	ADJSP 17,-2
	POPJ 17,
$1174==.
	PUSHJ 17,%SCANC
	PUSHJ 17,%NEXTC
	JRST $1169
$1172==.
	AOS 3,0(17)
$1173==.
	MOVE 5,%CH
	MOVE 3,CTFTAB*1+1(5)
	TRNE 3,2
	 JRST $1176
	SKIPE 6,0(17)
	 CAIE 5,43
	 JRST $1177
	PUSH 17,5
	PUSHJ 17,%PUSHC
	ADJSP 17,-1
	PUSH 17,[$$BP90+$$SECT,,$1178]
	PUSHJ 17,%PUSHS
	ADJSP 17,-1
$1177==.
	MOVE 1,%CH
	ADJSP 17,-1
	POPJ 17,
$1176==.
	PUSHJ 17,%NEXTC
	JRST $1169
$1178==.
	BYTE	(9) 12,0
	

$1175==.
	BYTE	(9) 57,0
	

%CHECK:
	MOVE 5,%RAWPP
	CAIE 5,3
	 SOSN 5,5
	 POPJ 17,
$1181==.
	PUSHJ 17,%NEXTR
	CAIE 1,1
	 CAIN 1,3
	 JRST $1184
	CAIN 1,2
	 JRST $1181
	PUSH 17,[$$BP90+$$SECT,,$1185]
	PUSHJ 17,WARN
	ADJSP 17,-1
	PUSHJ 17,%FLSHT
$1184==.
	POPJ 17,
$1185==.
	BYTE	(9) 116,157,156,55
	BYTE	(9) 167,150,151,164
	BYTE	(9) 145,163,160,141
	BYTE	(9) 143,145,40,146
	BYTE	(9) 157,154,154,157
	BYTE	(9) 167,151,156,147
	BYTE	(9) 40,144,151,162
	BYTE	(9) 145,143,164,151
	BYTE	(9) 166,145,0
	

%GETLI:
	ADJSP 17,2
	SETZB 3,0(17)
	MOVEM 3,-1(17)
$1186==.
	PUSHJ 17,%NEXTR
	CAIN 1,3
	 JRST $1187
	MOVE 4,%RAWPP
	SOJE 4,$1187
	XMOVEI 3,-1(17)
	PUSH 17,3
	PUSHJ 17,%TLRAW
	ADJSP 17,-1
	JRST $1186
$1187==.
	DMOVE 1,-1(17)
	ADJSP 17,-2
	POPJ 17,
%TLWSP:
	ADJSP 17,2
	SETZB 3,0(17)
	MOVE 5,-4(17)
	MOVEM 5,-1(17)
$1188==.
	SKIPN 5,-1(17)
	 JRST $1189
	HLRZ 3,0(5)
	CAIE 3,2
	 JRST $1190
	SKIPN 6,-5(17)
	 CAMN 5,-4(17)
	 JRST $1191
	CAME 5,-3(17)
	 JRST $1190
$1191==.
	SKIPN 7,0(17)
	 JRST $1193
	MOVE 5,-1(17)
	MOVE 3,1(5)
	MOVEM 3,1(7)
	JRST $1192
$1193==.
	MOVE 4,-1(17)
	MOVE 3,1(4)
	MOVEM 3,-4(17)
$1192==.
	MOVE 4,-1(17)
	MOVE 3,1(4)
	MOVEM 3,-1(17)
	JUMPN 3,$1188
	SKIPN 5,0(17)
	 MOVE 5,-4(17)
	MOVEM 5,-3(17)
	JRST $1188
$1190==.
	MOVE 5,-1(17)
	MOVEM 5,0(17)
	MOVE 3,1(5)
	MOVEM 3,-1(17)
	JRST $1188
$1189==.
	DMOVE 1,-4(17)
	ADJSP 17,-2
	POPJ 17,

	%%DATA
$1196:	BLOCK 3

	%%CODE
%TLMAK:
	ADJSP 17,2
	XMOVEI 3,$1196
	PUSH 17,3
	MOVEI 1,3
	ADDB 1,%PPTPT
	XMOVEI 16,%PPTOK*1+27335
	CAMLE 1,16
	 PUSHJ 17,%PPTER
	MOVEM 1,-1(17)
	MOVEM 1,-2(17)
	POP 17,3
	XMOVEI 16,-1(1)
	PUSH 16,0(3)
	PUSH 16,1(3)
	PUSH 16,2(3)
	MOVE 4,-3(17)
	HRLM 4,@-1(17)
	MOVE 5,-4(17)
	MOVE 6,-1(17)
	MOVEM 5,2(6)
	DMOVE 1,-1(17)
	ADJSP 17,-2
	POPJ 17,

	%%DATA
%INLEV:	BLOCK 1
%INC:	BLOCK 726
%IFLEV:	BLOCK 1
%FLSHN:	BLOCK 1
%IFLIN:	BLOCK 62
%IFFIL:	BLOCK 62
%IFTYP:	BLOCK 62
%INDIR:	BLOCK 1
%INASM:	BLOCK 1
%PREPF:	BLOCK 1
%PPTPT:	BLOCK 1
%PPTOK:	BLOCK 27340
%PPCLE:	BLOCK 1
%PPCOC:	BLOCK 1
%PPCPO:	BLOCK 1750
%RAWPP:	BLOCK 1
%RAWVA:	BLOCK 1
%RWPPL:	BLOCK 1
%RAWPT:	BLOCK 1
%MCTL:	BLOCK 2
%MCTLS:	BLOCK 120
%CURTL:	BLOCK 2
%CH:	BLOCK 1
%BKST1:	BLOCK 14
%HIDEM:	BLOCK 50
%MACLE:	BLOCK 1
%DEFCD:	BLOCK 1
%TADSE:	BLOCK 1
%PASSF:	BLOCK 1
%ASMFL:	BLOCK 1


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

	LIT
	EXTERN	$BPADT
	EXTERN	$BPMUL
	EXTERN	$$BSHF
	EXTERN	$$BPSZ
	EXTERN	$$BP93
	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
;	EXTERN	TISCHP
;	EXTERN	TISBYP
;	EXTERN	TISCHA
;	EXTERN	TISBYA
;	EXTERN	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	ERRLIN
	EXTERN	ERPTR
	EXTERN	ERPLEF
;	EXTERN	ERCSIZ
	EXTERN	CURPP
	EXTERN	CURVAL
	EXTERN	CURPTR
	EXTERN	CURSYM
;	EXTERN	CONSTA
;	EXTERN	CLOCK
;	EXTERN	DIFFTI
;	EXTERN	MKTIME
	EXTERN	TIME
;	EXTERN	ASCTIM
	EXTERN	CTIME
;	EXTERN	GMTIME
;	EXTERN	LOCALT
;	EXTERN	STRFTI
;	EXTERN	MEMCPY
	EXTERN	MEMMOV
	EXTERN	STRCPY
	EXTERN	STRNCP
;	EXTERN	STRCAT
	EXTERN	STRNCA
	EXTERN	MEMCMP
	EXTERN	STRCMP
;	EXTERN	STRCOL
	EXTERN	STRNCM
;	EXTERN	STRXFR
;	EXTERN	MEMCHR
;	EXTERN	STRCHR
;	EXTERN	STRCSP
;	EXTERN	STRPBR
;	EXTERN	STRRCH
;	EXTERN	STRSPN
;	EXTERN	STRSTR
;	EXTERN	STRTOK
	EXTERN	MEMSET
;	EXTERN	STRERR
	EXTERN	STRLEN
;	EXTERN	INDEX
;	EXTERN	RINDEX
;	EXTERN	STRPOS
;	EXTERN	STRRPO
;	EXTERN	STRRPB
;	EXTERN	MEMCCP
;	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.
	EXTERN	SYMFIN
	EXTERN	SYMGCR
	EXTERN	SYMFNE
	EXTERN	SHMACS
	EXTERN	FREESY
	EXTERN	PCONST
	EXTERN	ESTRCP
	EXTERN	FSTRCP
	EXTERN	SYMVAL
	EXTERN	NEXTOK
	INTERN	PPINIT
	INTERN	PPDEFI
	INTERN	PASSTH
	INTERN	NEXTPP
	INTERN	PUSHPP
	END