Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/kcc/cccse.fai
There are no other files named cccse.fai in the archive.
	TITLE	CCCSE
	.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
FOLDMO:
	MOVE 6,-1(17)
	PUSH 17,2(6)
	MOVE 4,1(6)
	CAIE 4,45
	 CAIN 4,125
	 TRNA 
	 JRST $1
	ADJSP 17,-1
	POPJ 17,
$1==.
	ADJSP 17,1
	PUSH 17,[0]
	PUSH 17,-4(17)
	PUSH 17,-3(17)
	PUSHJ 17,%FINDC
	ADJSP 17,-3
	MOVEM 1,0(17)
	JUMPE 1,$3
	PUSH 17,1
	PUSH 17,-2(17)
	PUSH 17,[60]
	PUSHJ 17,CODE00
	ADJSP 17,-3
$3==.
	ADJSP 17,-2
	POPJ 17,
FOLDDI:
	ADJSP 17,2
	PUSH 17,-3(17)
	PUSHJ 17,VRREAL
	MOVEM 1,-2(17)
	SETZB 16,0(17)
	PUSH 17,PREVIO
	PUSH 17,1
	PUSHJ 17,%FINDC
	ADJSP 17,-3
	MOVEM 1,0(17)
	JUMPE 1,$4
	PUSH 17,1
	PUSH 17,-2(17)
	PUSH 17,[60]
	PUSHJ 17,CODE00
	ADJSP 17,-3
$4==.
	ADJSP 17,-2
	POPJ 17,
FOLDID:
	ADJSP 17,1
	PUSH 17,[1]
	PUSH 17,-3(17)
	PUSHJ 17,BEFORE
	MOVEM 1,0(17)
	MOVE 4,-4(17)
	PUSH 17,5(4)
	PUSHJ 17,%FINDC
	ADJSP 17,-3
	MOVEM 1,0(17)
	JUMPE 1,$5
	MOVE 4,1
	MOVE 5,-2(17)
	MOVEM 4,5(5)
$5==.
	ADJSP 17,-1
	POPJ 17,
FOLDRC:
	PUSH 17,[1]
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSHJ 17,%FINDC
	ADJSP 17,-3
	POPJ 17,
%CSEIN:
	ADJSP 17,2
	SETZB 3,0(17)
$6==.
	AOS 6,0(17)
	SETOB 3,%ISIND*1-1(6)
	CAIGE 6,20
	 JRST $6
	SETOB 4,%MAXFL
	SETZB 7,%JUMPE
	MOVEM 7,%MAXCS
	MOVE 10,-4(17)
	MOVEM 10,-1(17)
$9==.
	SKIPE 1,-1(17)
	 JRST $11
	ADJSP 17,-2
	POPJ 17,
$11==.
	MOVE 4,-1(17)
	MOVE 3,1(4)
	MOVM 5,3
	IDIVI 5,57
	CAME 3,$16(6)
	 JRST $15
	JRST @$17(6)
$16==.
	 -1
	 60
	 2
	 3
	 63
	 5
	 -1
	 -1
	 -1
	 -1
	 -1
	 -1
	 -1
	 -1
	 75
	 -1
	 77
	 100
	 -1
	 -1
	 -1
	 -1
	 105
	 27
	 30
	 31
	 32
	 33
	 34
	 -1
	 36
	 37
	 -1
	 41
	 -1
	 43
	 -1
	 45
	 125
	 -1
	 127
	 51
	 52
	 -1
	 -1
	 55
	 56
$17==.
	IFIW $15
	IFIW $14
	IFIW $13
	IFIW $13
	IFIW $14
	IFIW $13
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $14
	IFIW $15
	IFIW $14
	IFIW $14
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $15
	IFIW $13
	IFIW $13
	IFIW $13
	IFIW $14
	IFIW $14
	IFIW $13
	IFIW $13
	IFIW $15
	IFIW $14
	IFIW $14
	IFIW $15
	IFIW $14
	IFIW $15
	IFIW $14
	IFIW $15
	IFIW $13
	IFIW $13
	IFIW $15
	IFIW $13
	IFIW $13
	IFIW $13
	IFIW $15
	IFIW $15
	IFIW $14
	IFIW $13
$13==.
	SETZB 3,0(17)
	JRST $12
$14==.
	MOVEI 3,1
	MOVEM 3,0(17)
	JRST $12
$15==.
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$12==.
	MOVE 6,-1(17)
	MOVE 4,1(6)
	TRNE 4,10000
	 JRST $19
	ANDI 4,377
	MOVE 3,POPFLG(4)
	TRNN 3,1
	 JRST $18
$19==.
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$18==.
	MOVE 5,-1(17)
	MOVE 4,1(5)
	CAIE 4,45
	 CAIN 4,125
	 SKIPA 3,2(5)
	 JRST $21
	SUB 3,-3(17)
	AOJN 3,$21
	SOS 6,-3(17)
	MOVEI 7,1
	MOVE 10,%MAXCS
	MOVEM 7,%ISMOD(10)
	JRST $20
$21==.
	MOVE 4,%MAXCS
	SETZB 3,%ISMOD(4)
$20==.
	SKIPL 4,%MAXFL
	 JRST $23
	MOVE 10,-1(17)
	MOVE 3,2(10)
	CAMN 3,-3(17)
	 JRST $23
	MOVE 5,0(10)
	ANDI 5,17
	CAIN 5,2
	 JRST $25
	CAIE 5,3
	 CAIN 5,4
	 SKIPA 6,5(10)
	 JRST $23
	CAME 6,-3(17)
	 JRST $23
	MOVE 11,%MAXCS
	MOVEM 11,%MAXFL
	JRST $23
$25==.
	MOVE 4,-1(17)
	MOVE 3,5(4)
	CAMN 3,-3(17)
	 SKIPA 6,%MAXCS
	 TRNA 
	 MOVEM 6,%MAXFL
$23==.
	MOVE 6,-1(17)
	MOVE 3,2(6)
	CAMN 3,-3(17)
	 JRST $26
	PUSH 17,6
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-1(17)
	JRST $9
$26==.
	MOVE 4,-1(17)
	SKIPLE 3,0(4)
	 CAIL 3,27
	 JRST $30
	JRST @$31*1-1(3)
$31==.
	IFIW $27
	IFIW $28
	IFIW $29
	IFIW $29
	IFIW $30
	IFIW $30
	IFIW $27
	IFIW $27
	IFIW $27
	IFIW $27
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $30
	IFIW $29
	IFIW $30
	IFIW $30
	IFIW $27
$28==.
	MOVE 4,%MAXCS
	ADDI 4,1
	XMOVEI 5,%ISIND
	MOVE 6,-1(17)
	ADD 5,5(6)
	MOVEM 4,0(5)
	JRST $27
$29==.
	MOVE 4,%MAXCS
	ADDI 4,1
	XMOVEI 5,%ISIND
	MOVE 6,-1(17)
	ADD 5,5(6)
	MOVEM 4,0(5)
	JRST $27
$30==.
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$27==.
	MOVE 4,-1(17)
	XMOVEI 3,%TARGE
	AOS 5,%MAXCS
	ADD 5,3
	MOVEM 4,-1(5)
	SKIPE 1,0(17)
	 JRST $10
	MOVE 10,%MAXCS
	CAIGE 10,12
	 JRST $32
	ADJSP 17,-2
	POPJ 17,
$32==.
	PUSH 17,-1(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-1(17)
	JRST $9
$10==.
	SETZB 3,0(17)
$33==.
	PUSH 17,0(17)
	PUSHJ 17,RFREE
	ADJSP 17,-1
	SKIPN 4,-5(17)
	 JUMPE 1,$37
	MOVE 11,0(17)
	SKIPL 5,%ISIND(11)
	 JRST $37
	SETZB 6,%MTCHD(11)
	JRST $36
$37==.
	MOVE 4,0(17)
	SETOB 3,%MTCHD(4)
$36==.
	MOVE 4,0(17)
	MOVEM 4,%REGRE(4)
	AOS 6,0(17)
	CAIGE 6,20
	 JRST $33
	MOVE 3,-3(17)
	SKIPGE 5,%ISIND(3)
	 JRST $39
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$39==.
	MOVE 4,-3(17)
	SETZB 5,%MTCHD(4)
	CAMG 5,%MAXFL
	 JRST $41
	MOVE 6,%MAXCS
	MOVEM 6,%MAXFL
	JRST $40
$41==.
	SKIPE 1,%MAXFL
	 JRST $40
	ADJSP 17,-2
	POPJ 17,
$40==.
	SETOB 3,%ISIND*1+17
	MOVEM 3,%ISIND
	SETZB 4,%STKOF
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
%FINDC:
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSHJ 17,%CSEIN
	ADJSP 17,-3
	CAIN 1,0
	 POPJ 17,
	PUSH 17,-2(17)
	ADJSP 17,2
	SETZB 3,0(17)
$43==.
	SKIPE 1,-2(17)
	 JRST $45
	ADJSP 17,-3
	POPJ 17,
$45==.
	MOVE 6,0(17)
	CAML 6,%MAXFL
	 JRST $46
	MOVE 7,%TARGE(6)
	CAME 7,-2(17)
	 JRST $46
	AOS 4,0(17)
	PUSH 17,7
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$46==.
	MOVE 4,-2(17)
	MOVE 3,1(4)
	ANDI 3,10377
	CAIL 3,56
	 JRST $67
	CAILE 3,1
	 CAIL 3,56
	 JRST $66
	JRST @$68*1-2(3)
$68==.
	IFIW $53
	IFIW $53
	IFIW $63
	IFIW $53
	IFIW $61
	IFIW $55
	IFIW $66
	IFIW $66
	IFIW $64
	IFIW $64
	IFIW $52
	IFIW $52
	IFIW $66
	IFIW $52
	IFIW $52
	IFIW $52
	IFIW $55
	IFIW $52
	IFIW $48
	IFIW $66
	IFIW $66
	IFIW $53
	IFIW $53
	IFIW $56
	IFIW $56
	IFIW $53
	IFIW $53
	IFIW $66
	IFIW $56
	IFIW $56
	IFIW $57
	IFIW $56
	IFIW $57
	IFIW $56
	IFIW $51
	IFIW $53
	IFIW $49
	IFIW $66
	IFIW $50
	IFIW $53
	IFIW $53
	IFIW $60
	IFIW $60
	IFIW $47
$67==.
	CAIL 3,121
	 JRST $69
	CAIL 3,56
	 CAIL 3,121
	 JRST $66
	JRST @$70*1-56(3)
$70==.
	IFIW $53
	IFIW $66
	IFIW $59
	IFIW $55
	IFIW $66
	IFIW $56
	IFIW $66
	IFIW $66
	IFIW $66
	IFIW $66
	IFIW $60
	IFIW $66
	IFIW $62
	IFIW $66
	IFIW $66
	IFIW $56
	IFIW $66
	IFIW $56
	IFIW $56
	IFIW $58
	IFIW $66
	IFIW $61
	IFIW $55
	IFIW $53
	IFIW $66
	IFIW $53
	IFIW $65
	IFIW $53
	IFIW $53
	IFIW $66
	IFIW $66
	IFIW $66
	IFIW $66
	IFIW $53
	IFIW $65
$69==.
	CAIL 3,10034
	 JRST $71
	MOVM 4,3
	IDIVI 4,21
	CAME 3,$72(5)
	 JRST $66
	JRST @$73(5)
$72==.
	 125
	 10002
	 127
	 -1
	 10005
	 10027
	 10030
	 -1
	 -1
	 10033
	 -1
	 -1
	 -1
	 121
	 122
	 -1
	 -1
$73==.
	IFIW $53
	IFIW $55
	IFIW $53
	IFIW $66
	IFIW $55
	IFIW $55
	IFIW $55
	IFIW $66
	IFIW $66
	IFIW $55
	IFIW $66
	IFIW $66
	IFIW $66
	IFIW $53
	IFIW $53
	IFIW $66
	IFIW $66
$71==.
	MOVM 4,3
	ANDI 4,17
	CAME 3,$74(4)
	 JRST $66
	JRST @$75(4)
$74==.
	 10100
	 -1
	 10062
	 10063
	 -1
	 10045
	 -1
	 10127
	 -1
	 10051
	 10052
	 -1
	 10034
	 10075
	 -1
	 10077
$75==.
	IFIW $54
	IFIW $66
	IFIW $55
	IFIW $55
	IFIW $66
	IFIW $55
	IFIW $66
	IFIW $55
	IFIW $66
	IFIW $55
	IFIW $55
	IFIW $66
	IFIW $55
	IFIW $55
	IFIW $66
	IFIW $54
$47==.
	PUSH 17,[55]
	PUSH 17,-3(17)
	PUSHJ 17,%SAFEM
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$48==.
	MOVE 5,-2(17)
	CAME 5,%TARGE
	 JRST $49
	PUSH 17,5
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$49==.
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$50==.
	PUSH 17,[55]
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	JUMPE 1,$76
	MOVE 4,-2(17)
	MOVE 3,2(4)
	MOVEM 3,-4(17)
	JRST $44
$76==.
	PUSH 17,-2(17)
	PUSHJ 17,%FLSHL
	ADJSP 17,-1
	JUMPE 1,$77
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$77==.
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$51==.
	PUSH 17,[44]
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	JUMPE 1,$78
	MOVE 6,%TARGE
	MOVE 3,1(6)
	CAIN 3,24
	 JRST $80
	CAIE 3,55
	 JRST $78
	PUSH 17,-2(17)
	PUSH 17,6
	PUSHJ 17,BEFORE
	MOVE 3,-1(17)
	ADJSP 17,-2
	CAME 1,3
	 JRST $78
	MOVEI 4,50
	MOVE 6,%TARGE
	MOVEM 4,1(6)
	MOVE 10,-2(17)
	SETZB 1,1(10)
	ADJSP 17,-3
	POPJ 17,
$80==.
	PUSH 17,-2(17)
	PUSH 17,%TARGE
	PUSHJ 17,BEFORE
	MOVE 3,-1(17)
	ADJSP 17,-2
	CAME 1,3
	 JRST $78
	MOVEI 4,46
	MOVE 6,%TARGE
	MOVEM 4,1(6)
	MOVE 10,-2(17)
	SETZB 1,1(10)
	ADJSP 17,-3
	POPJ 17,
$78==.
	PUSH 17,-2(17)
	PUSHJ 17,%FLSHL
	ADJSP 17,-1
	JUMPE 1,$81
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$81==.
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$52==.
	MOVE 4,-2(17)
	MOVE 3,2(4)
	ADDI 3,1
	PUSH 17,3
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
$53==.
	MOVE 5,-2(17)
	PUSH 17,1(5)
	PUSH 17,5
	PUSHJ 17,%SAFEM
	ADJSP 17,-2
	MOVEM 1,-4(17)
	CAIE 1,0
	 AOS 3,%MTCHD(1)
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$54==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	TRZ 3,10000
	PUSH 17,3
	PUSH 17,6
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
$55==.
	PUSH 17,[60]
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
	PUSH 17,-2(17)
	PUSHJ 17,%FLSHL
	ADJSP 17,-1
	JUMPE 1,$83
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$83==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	CAIN 3,61
	 JRST $84
	PUSH 17,2(6)
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
$84==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	CAIE 3,22
	 JRST $85
	MOVE 4,2(6)
	ADDI 4,1
	PUSH 17,4
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
$85==.
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$56==.
	MOVE 5,-2(17)
	PUSH 17,1(5)
	PUSH 17,5
	PUSHJ 17,%SAFEM
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$57==.
	MOVE 7,-2(17)
	MOVE 3,1(7)
	CAIN 3,42
	 SKIPA 5,[43]
	 MOVEI 5,37
	PUSH 17,5
	PUSH 17,7
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	JUMPE 1,$86
	MOVE 4,-2(17)
	MOVE 3,2(4)
	MOVEM 3,-4(17)
	JRST $44
$86==.
	PUSH 17,-2(17)
	PUSHJ 17,%FLSHL
	ADJSP 17,-1
	JUMPE 1,$89
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$89==.
	MOVE 4,-2(17)
	PUSH 17,2(4)
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$58==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	CAIE 3,2501
	 JRST $59
	PUSH 17,6
	PUSHJ 17,AFTER
	MOVEM 1,0(17)
	PUSHJ 17,DROPSO
	ADJSP 17,-1
	JUMPE 1,$59
	PUSH 17,[100]
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
$59==.
	PUSH 17,-2(17)
	PUSHJ 17,DROPSO
	ADJSP 17,-1
	JUMPN 1,$90
	PUSH 17,[60]
	PUSH 17,-3(17)
	PUSHJ 17,%SAFEM
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
$90==.
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$60==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	CAIE 3,3054
	 JRST $91
	PUSH 17,[100]
	PUSH 17,6
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
$91==.
	MOVEI 3,1
	MOVEM 3,%JUMPE
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$61==.
	MOVE 6,-2(17)
	MOVE 3,1(6)
	ANDI 3,7000
	CAIE 3,3000
	 JRST $92
	PUSH 17,[100]
	PUSH 17,6
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
$92==.
	MOVEI 3,1
	MOVEM 3,%JUMPE
	MOVE 5,-2(17)
	PUSH 17,2(5)
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$62==.
	PUSH 17,[60]
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,-4(17)
	JUMPN 1,$44
	PUSH 17,-2(17)
	PUSHJ 17,%CHGPU
	ADJSP 17,-1
	JUMPE 1,$93
	PUSH 17,-6(17)
	PUSH 17,-6(17)
	MOVE 4,%TARGE
	PUSH 17,2(4)
	PUSHJ 17,%FINDC
	ADJSP 17,-6
	POPJ 17,
$93==.
	AOS 3,%STKOF
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$63==.
	MOVE 5,-2(17)
	MOVE 6,4(5)
	ADDB 6,%STKOF
	PUSH 17,5
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$64==.
	PUSH 17,-2(17)
	PUSHJ 17,AFTER
	MOVEM 1,0(17)
	PUSHJ 17,DROPSO
	ADJSP 17,-1
	JUMPE 1,$65
	MOVE 6,-2(17)
	MOVE 3,1(6)
	ANDI 3,7000
	CAIE 3,2000
	 JRST $65
	PUSH 17,[60]
	PUSH 17,6
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	JUMPE 1,$65
	MOVE 4,-2(17)
	MOVE 3,2(4)
	MOVEM 3,-4(17)
	JRST $44
$65==.
	PUSH 17,-2(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-2(17)
	JRST $43
$66==.
	SETZ 1,
	ADJSP 17,-3
	POPJ 17,
$44==.
	SETZB 3,-1(17)
$94==.
	MOVE 7,-1(17)
	CAML 7,%MAXFL
	 JRST $95
	MOVE 4,%TARGE(7)
	SETZB 3,1(4)
	AOS 5,-1(17)
	JRST $94
$95==.
	PUSHJ 17,FIXPRE
	MOVE 3,-4(17)
	MOVE 1,%REGRE(3)
	ADJSP 17,-3
	POPJ 17,
SAMEAD:
	MOVE 10,-1(17)
	MOVE 3,0(10)
	TRZ 3,120
	MOVE 6,-2(17)
	MOVE 5,0(6)
	TRZ 5,120
	CAME 3,5
	 TDZA 1,1
	 SKIPA 4,0(10)
	 POPJ 17,
	ANDI 4,17
	CAILE 4,0
	 CAIL 4,13
	 JRST $109
	JRST @$110*1-1(4)
$110==.
	IFIW $108
	IFIW $99
	IFIW $101
	IFIW $100
	IFIW $107
	IFIW $106
	IFIW $102
	IFIW $103
	IFIW $104
	IFIW $105
$99==.
	MOVE 4,-1(17)
	MOVE 3,5(4)
	MOVE 6,-2(17)
	CAME 3,5(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$100==.
	MOVE 4,-1(17)
	MOVE 3,6(4)
	MOVE 6,-2(17)
	CAME 3,6(6)
	 TDZA 1,1
	 TRNA 
	 POPJ 17,
$101==.
	MOVE 7,-1(17)
	MOVE 3,0(7)
	ANDI 3,20
	MOVE 12,-2(17)
	MOVE 5,0(12)
	ANDI 5,20
	CAME 3,5
	 TDZA 1,1
	 SKIPA 4,5(7)
	 POPJ 17,
	CAME 4,5(12)
	 JRST $115
	MOVE 6,3(7)
	CAMN 6,3(12)
	 JRST $114
$115==.
	SETZ 1,
	POPJ 17,
$114==.
	MOVE 6,-1(17)
	MOVE 3,5(6)
	CAIE 3,17
	 JRST $116
	MOVE 4,4(6)
	MOVE 7,-2(17)
	SUB 4,4(7)
	ADD 4,-3(17)
	CAIE 4,0
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$116==.
	MOVE 4,-1(17)
	MOVE 3,4(4)
	MOVE 6,-2(17)
	CAME 3,4(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$102==.
	MOVE 4,-1(17)
	MOVE 3,6(4)
	MOVE 6,-2(17)
	CAME 3,6(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$103==.
	MOVE 4,-1(17)
	DMOVE 5,6(4)
	MOVE 7,-2(17)
	DMOVE 10,6(7)
	CAMN 6,11
	 CAME 5,10
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$104==.
	MOVE 4,-1(17)
	MOVE 3,6(4)
	MOVE 6,-2(17)
	CAME 3,6(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$105==.
	MOVE 3,-1(17)
	MOVE 4,7(3)
	MOVE 5,-2(17)
	CAME 4,7(5)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$106==.
	MOVE 4,-1(17)
	MOVE 3,4(4)
	MOVE 6,-2(17)
	CAME 3,4(6)
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$107==.
	MOVE 6,-1(17)
	MOVE 3,3(6)
	MOVE 11,-2(17)
	CAME 3,3(11)
	 JRST $132
	MOVE 4,6(6)
	CAMN 4,6(11)
	 SKIPA 5,4(6)
	 TRNA 
	 CAME 5,4(11)
$132==.
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
$108==.
	MOVEI 1,1
	POPJ 17,
$109==.
	PUSH 17,[$$BP90+$$SECT,,$133]
	PUSHJ 17,INT.ER
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$133==.
	BYTE	(9) 163,141,155,145
	BYTE	(9) 141,144,144,162
	BYTE	(9) 72,40,142,141
	BYTE	(9) 144,40,120,164
	BYTE	(9) 171,160,145,0
	

ALIAS:
	ADJSP 17,2
	MOVE 6,-3(17)
	MOVE 3,0(6)
	ANDI 3,17
	CAIN 3,4
	 JRST $135
	MOVE 4,0(6)
	ANDI 4,17
	CAIE 4,3
	 JRST $134
$135==.
	MOVE 6,-4(17)
	MOVE 3,0(6)
	ANDI 3,17
	CAIN 3,4
	 JRST $136
	MOVE 4,0(6)
	ANDI 4,17
	CAIE 4,3
	 JRST $134
$136==.
	MOVE 10,-3(17)
	MOVE 3,0(10)
	MOVEM 3,-1(17)
	MOVE 13,-4(17)
	MOVE 5,0(13)
	MOVEM 5,0(17)
	MOVE 7,5(10)
	CAME 7,5(13)
	 JRST $137
	MOVE 6,3(10)
	CAME 6,3(13)
	 JRST $137
	CAIE 7,17
	 JRST $138
	MOVE 4,4(10)
	SUB 4,4(13)
	ADD 4,-5(17)
	JUMPN 4,$137
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$138==.
	MOVE 4,-3(17)
	MOVE 3,4(4)
	MOVE 6,-4(17)
	CAME 3,4(6)
	 JRST $137
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$137==.
	MOVE 4,-1(17)
	IOR 4,0(17)
	TRNN 4,40
	 JRST $139
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$139==.
	MOVE 4,-3(17)
	MOVE 3,5(4)
	CAIE 3,17
	 JRST $140
	MOVE 6,-1(17)
	TRNE 6,20
	 JRST $140
	SKIPE 1,STACKR
	 JRST $141
	ADJSP 17,-2
	POPJ 17,
$141==.
	MOVE 4,-4(17)
	MOVE 3,5(4)
	CAIE 3,17
	 JRST $142
	MOVE 6,0(17)
	TRNE 6,20
	 JRST $142
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$142==.
	MOVE 4,-4(17)
	SKIPE 3,3(4)
	 SKIPA 6,0(17)
	 TRNA 
	 TRNE 6,20
	 SKIPA 1,[1]
	 SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$140==.
	MOVE 4,-4(17)
	MOVE 3,5(4)
	CAIE 3,17
	 JRST $145
	MOVE 6,0(17)
	TRNE 6,20
	 JRST $145
	SKIPE 1,STACKR
	 JRST $146
	ADJSP 17,-2
	POPJ 17,
$146==.
	MOVE 4,-3(17)
	SKIPE 3,3(4)
	 SKIPA 6,-1(17)
	 TRNA 
	 TRNE 6,20
	 SKIPA 1,[1]
	 SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$145==.
	MOVE 4,-1(17)
	TRNE 4,20
	 JRST $149
	MOVE 5,0(17)
	TRNE 5,20
	 JRST $149
	MOVE 6,-3(17)
	MOVE 3,5(6)
	MOVE 10,-4(17)
	CAME 3,5(10)
	 JRST $150
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$150==.
	MOVE 10,-3(17)
	SKIPN 4,3(10)
	 JRST $149
	MOVE 7,-4(17)
	SKIPE 3,3(7)
	 CAMN 4,3
	 JRST $149
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
$149==.
	MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,
$134==.
	SETZ 1,
	ADJSP 17,-2
	POPJ 17,
%MATCH:
	MOVE 6,-1(17)
	MOVE 3,0(6)
	TRNN 3,100
	 JRST $151
	PUSH 17,6
	PUSHJ 17,AFTER
	MOVEM 1,0(17)
	PUSHJ 17,DROPSO
	ADJSP 17,-1
	CAIN 1,0
	 POPJ 17,
$151==.
	ADJSP 17,1
	MOVE 4,-2(17)
	MOVE 3,1(4)
	ANDI 3,377
	MOVM 5,3
	IDIVI 5,5
	CAME 3,$156(6)
	 JRST $152
	JRST @$157(6)
$156==.
	 125
	 44
	 45
	 72
	 -1
$157==.
	IFIW $155
	IFIW $153
	IFIW $155
	IFIW $154
	IFIW $152
$153==.
	SKIPE 4,%JUMPE
	 JRST $159
	PUSH 17,%STKOF
	PUSH 17,-3(17)
	PUSH 17,%TARGE
	PUSHJ 17,SAMEAD
	ADJSP 17,-3
	CAIN 1,0
$159==.
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-1
	POPJ 17,
$154==.
	MOVE 7,-2(17)
	MOVE 3,0(7)
	TRZ 3,100
	CAIE 3,2
	 JRST $160
	MOVE 5,5(7)
	MOVE 13,%MTCHD(5)
	MOVEM 13,0(17)
	JUMPL 13,$160
	MOVE 10,%TARGE(13)
	MOVE 6,1(10)
	CAME 6,-3(17)
	 JRST $160
	PUSH 17,10
	PUSHJ 17,%STKTO
	ADJSP 17,-1
	JUMPE 1,$160
	MOVE 4,-2(17)
	MOVE 1,5(4)
	JRST $161
$160==.
	SETZ 1,
$161==.
	ADJSP 17,-1
	POPJ 17,
$155==.
	MOVE 7,-2(17)
	MOVE 4,2(7)
	MOVE 5,%MTCHD*1+1(4)
	MOVEM 5,0(17)
	ADDI 4,1
	PUSH 17,4
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
	SKIPL 7,0(17)
	 SKIPN 3,%ISMOD(7)
	 JRST $152
	PUSH 17,%STKOF
	PUSH 17,-3(17)
	PUSH 17,%TARGE(7)
	PUSHJ 17,SAMEAD
	ADJSP 17,-3
	JUMPE 1,$152
	POP 17,4
	XMOVEI 5,%MTCHD
	MOVE 10,-1(17)
	ADD 5,2(10)
	MOVEM 4,0(5)
	MOVE 7,2(10)
	MOVE 6,%REGRE*1+1(7)
	MOVEM 6,%REGRE(7)
	MOVE 1,2(10)
	POPJ 17,
$152==.
	XMOVEI 4,%MTCHD
	MOVE 5,-2(17)
	ADD 4,2(5)
	MOVE 10,0(4)
	MOVEM 10,0(17)
	JUMPL 10,$163
	SKIPN 3,%ISMOD(10)
	 JRST $162
$163==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
$162==.
	MOVE 7,-3(17)
	CAIE 7,100
	 JRST $164
	MOVE 3,0(17)
	MOVE 5,%TARGE(3)
	CAME 7,1(5)
	 JRST $164
	MOVE 6,-2(17)
	MOVE 1,2(6)
	ADJSP 17,-1
	POPJ 17,
$164==.
	MOVE 10,0(17)
	MOVE 3,%TARGE(10)
	MOVE 5,1(3)
	CAME 5,-3(17)
	 JRST $165
	PUSH 17,%STKOF
	PUSH 17,-3(17)
	PUSH 17,3
	PUSHJ 17,SAMEAD
	ADJSP 17,-3
	JUMPE 1,$165
	MOVE 4,-2(17)
	MOVE 1,2(4)
	ADJSP 17,-1
	POPJ 17,
$165==.
	MOVE 4,-3(17)
	CAIE 4,63
	 JRST $168
	MOVE 3,0(17)
	MOVE 5,%TARGE(3)
	MOVE 6,1(5)
	CAIN 6,60
	 JRST $167
$168==.
	MOVE 4,-3(17)
	CAIE 4,60
	 JRST $166
	MOVE 3,0(17)
	MOVE 5,%TARGE(3)
	MOVE 6,1(5)
	CAIE 6,63
	 JRST $166
$167==.
	MOVE 6,-2(17)
	MOVE 10,0(6)
	ANDI 10,17
	CAIE 10,6
	 JRST $166
	MOVE 13,0(17)
	MOVE 4,%TARGE(13)
	MOVE 7,0(4)
	ANDI 7,17
	CAIE 7,6
	 JRST $166
	MOVN 3,4(6)
	CAME 3,4(4)
	 JRST $166
	MOVE 1,2(6)
	ADJSP 17,-1
	POPJ 17,
$166==.
	SETZ 1,
	ADJSP 17,-1
	POPJ 17,
%SAFEM:
	ADJSP 17,1
	PUSH 17,-3(17)
	PUSH 17,-3(17)
	PUSHJ 17,%MATCH
	ADJSP 17,-2
	MOVEM 1,0(17)
	JUMPN 1,$169
	MOVE 4,-2(17)
	PUSH 17,2(4)
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
$169==.
	POP 17,1
	POPJ 17,
%STKTO:
	MOVE 10,-1(17)
	MOVE 3,0(10)
	CAIN 3,3
	 SKIPE 4,3(10)
	 JRST $171
	MOVN 5,4(10)
	CAMN 5,%STKOF
	 SKIPA 6,5(10)
	 TRNA 
	 CAIE 6,17
$171==.
	 TDZA 1,1
	 MOVEI 1,1
	POPJ 17,
%CHGPU:
	ADJSP 17,6
	MOVE 4,-7(17)
	MOVE 3,0(4)
	MOVM 5,3
	IDIVI 5,13
	CAME 3,$176(6)
	 JRST $175
	JRST @$177(6)
$176==.
	 26
	 -1
	 2
	 3
	 4
	 -1
	 -1
	 7
	 -1
	 11
	 12
$177==.
	IFIW $172
	IFIW $175
	IFIW $173
	IFIW $174
	IFIW $175
	IFIW $175
	IFIW $175
	IFIW $172
	IFIW $175
	IFIW $172
	IFIW $172
$173==.
	MOVE 7,-7(17)
	SKIPE 5,5(7)
	 CAIN 5,17
	 JRST $172
	SKIPN 3,%MTCHD(5)
	 JRST $172
	SETZ 1,
	ADJSP 17,-6
	POPJ 17,
$174==.
	MOVE 7,-7(17)
	SKIPE 5,5(7)
	 CAIN 5,17
	 JRST $172
	SKIPN 3,%MTCHD(5)
	 JRST $172
$175==.
	SETZ 1,
	ADJSP 17,-6
	POPJ 17,
$172==.
	SETZB 3,-2(17)
	MOVE 5,%TARGE
	MOVEM 5,-5(17)
$178==.
	MOVE 7,-5(17)
	CAMN 7,-7(17)
	 JRST $179
	MOVE 3,1(7)
	ANDI 3,377
	CAIN 3,67
	 JRST $183
	CAIN 3,72
	 JRST $182
	CAIE 3,4
	 JRST $184
	MOVE 4,2(7)
	CAIE 4,17
	 JRST $180
	MOVE 10,4(7)
	ADDB 10,-2(17)
	JRST $180
$182==.
	MOVE 4,-5(17)
	MOVE 3,2(4)
	CAIN 3,17
	 AOSA 5,-2(17)
	 TDZA 1,1
	 JRST $180
	ADJSP 17,-6
	POPJ 17,
$183==.
	MOVE 4,-5(17)
	MOVE 3,2(4)
	CAIN 3,17
	 SOS 5,-2(17)
$184==.
	MOVE 6,-5(17)
	MOVE 4,1(6)
	TRNE 4,10000
	 JRST $186
	ANDI 4,377
	MOVE 3,POPFLG(4)
	TRNN 3,1
	 JRST $180
$186==.
	MOVE 4,%STKOF
	ADDI 4,1
	SUB 4,-2(17)
	PUSH 17,4
	PUSH 17,-6(17)
	PUSH 17,-11(17)
	PUSHJ 17,SAMEAD
	ADJSP 17,-3
	JUMPN 1,$187
	MOVE 4,%STKOF
	ADDI 4,1
	SUB 4,-2(17)
	PUSH 17,4
	PUSH 17,-6(17)
	PUSH 17,-11(17)
	PUSHJ 17,ALIAS
	ADJSP 17,-3
	JUMPE 1,$180
$187==.
	SETZ 1,
	ADJSP 17,-6
	POPJ 17,
$180==.
	PUSH 17,-5(17)
	PUSHJ 17,BEFORE
	ADJSP 17,-1
	MOVEM 1,-5(17)
	JRST $178
$179==.
	SETZB 4,-4(17)
	MOVEM 4,-3(17)
$188==.
	MOVE 6,-3(17)
	CAML 6,%MAXCS
	 JRST $189
	PUSH 17,%TARGE(6)
	PUSHJ 17,%STKTO
	ADJSP 17,-1
	JUMPE 1,$190
	MOVE 12,-3(17)
	MOVE 6,%TARGE(12)
	MOVE 5,1(6)
	MOVEM 5,-1(17)
	MOVE 4,2(6)
	MOVEM 4,0(17)
	MOVE 7,-7(17)
	JUMPGE 17,.+5
	MOVEI 16,(6)
	HRLI 16,0(7)
	BLT 16,7(6)
	JRST .+12
	XMOVEI 16,-1(6)
	PUSH 16,0(7)
	PUSH 16,1(7)
	PUSH 16,2(7)
	PUSH 16,3(7)
	PUSH 16,4(7)
	PUSH 16,5(7)
	PUSH 16,6(7)
	PUSH 16,7(7)
	MOVE 10,-1(17)
	MOVE 5,-3(17)
	MOVE 11,%TARGE(5)
	MOVEM 10,1(11)
	MOVE 14,0(17)
	MOVE 13,%TARGE(5)
	MOVEM 14,2(13)
	MOVE 3,%TARGE(5)
	MOVE 15,0(3)
	ANDI 15,17
	CAIN 15,3
	 JRST $192
	MOVE 4,0(3)
	ANDI 4,17
	CAIE 4,4
	 JRST $191
$192==.
	MOVE 12,-3(17)
	MOVE 6,%TARGE(12)
	MOVE 5,5(6)
	CAIE 5,17
	 JRST $191
	MOVN 4,%STKOF
	SUBI 4,1
	ADDB 4,4(6)
$191==.
	MOVEI 3,1
	MOVEM 3,-4(17)
$190==.
	AOS 3,-3(17)
	JRST $188
$189==.
	MOVE 1,-4(17)
	ADJSP 17,-6
	POPJ 17,
%FLUSH:
	MOVE 3,-1(17)
	PUSH 17,%ISIND(3)
	PUSHJ 17,%FLSHT
	MOVE 4,-2(17)
	SETOB 3,%MTCHD(4)
	ADJSP 17,-1
	POPJ 17,
%FLSHT:
	PUSH 17,[0]
$193==.
	MOVE 10,0(17)
	MOVE 4,%MTCHD(10)
	CAMGE 4,-2(17)
	 SETOB 5,%MTCHD(10)
	AOS 7,0(17)
	CAIGE 7,20
	 JRST $193
	ADJSP 17,-1
	POPJ 17,
%FLSHL:
	MOVE 6,-1(17)
	MOVE 3,0(6)
	ANDI 3,17
	CAIE 3,2
	 JRST $196
	PUSH 17,5(6)
	PUSHJ 17,%FLUSH
	ADJSP 17,-1
$196==.
	ADJSP 17,3
	SETOB 3,0(17)
	SETZB 4,-2(17)
$197==.
	MOVE 6,-2(17)
	CAML 6,%MAXCS
	 JRST $198
	PUSH 17,%STKOF
	PUSH 17,-5(17)
	PUSH 17,%TARGE(6)
	PUSHJ 17,SAMEAD
	ADJSP 17,-3
	JUMPN 1,$200
	PUSH 17,%STKOF
	PUSH 17,-5(17)
	MOVE 3,-4(17)
	PUSH 17,%TARGE(3)
	PUSHJ 17,ALIAS
	ADJSP 17,-3
	JUMPE 1,$199
$200==.
	MOVE 4,-2(17)
	ADDI 4,1
	MOVEM 4,0(17)
$199==.
	AOS 3,-2(17)
	JRST $197
$198==.
	SKIPGE 4,0(17)
	 JRST $201
	MOVE 5,-4(17)
	MOVE 3,0(5)
	TRNN 3,100
	 JRST $201
	MOVEI 1,1
	ADJSP 17,-3
	POPJ 17,
$201==.
	XMOVEI 4,%MTCHD
	MOVE 5,-4(17)
	ADD 4,2(5)
	MOVE 3,0(4)
	MOVEM 3,-1(17)
	PUSH 17,0(17)
	PUSHJ 17,%FLSHT
	ADJSP 17,-1
	MOVE 4,-4(17)
	MOVE 3,1(4)
	CAIN 3,61
	 JRST $203
	SETOB 5,-1(17)
	JRST $202
$203==.
	MOVE 4,-1(17)
	XMOVEI 5,%MTCHD
	MOVE 6,-4(17)
	ADD 5,2(6)
	MOVEM 4,0(5)
$202==.
	POP 17,4
	CAMN 4,%MAXCS
	 SKIPL 5,0(17)
	 TDZA 1,1
	 MOVEI 1,1
	ADJSP 17,-2
	POPJ 17,

	%%DATA
%TARGE:	BLOCK 12
%MAXCS:	BLOCK 1
%STKOF:	BLOCK 1
%MAXFL:	BLOCK 1
%JUMPE:	BLOCK 1
%ISMOD:	BLOCK 12
%REGRE:	BLOCK 20
%MTCHD:	BLOCK 20
%ISIND:	BLOCK 20


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

	LIT
	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	VR.RET
;	EXTERN	VR.SP
;	EXTERN	VRINIT
;	EXTERN	VRENDC
;	EXTERN	VRGET
;	EXTERN	VRDGET
;	EXTERN	VRRETG
;	EXTERN	VRRETD
;	EXTERN	VRFREE
	EXTERN	VRREAL
;	EXTERN	VRTORE
;	EXTERN	VRSTOR
;	EXTERN	VRALLS
;	EXTERN	VRWIDE
;	EXTERN	VRLOWI
;	EXTERN	VRNARR
;	EXTERN	VRUFCR
;	EXTERN	VRISPA
	EXTERN	RFREE
;	EXTERN	RHASVA
;	EXTERN	RBREF
;	EXTERN	RBSET
;	EXTERN	RBMOD
;	EXTERN	RBUSE
;	EXTERN	RBCHG
;	EXTERN	RBIN
;	EXTERN	RRREF
;	EXTERN	RRSET
;	EXTERN	RRMOD
;	EXTERN	RRUSE
;	EXTERN	RRCHG
;	EXTERN	RRIN
;	EXTERN	RBINCO
;	EXTERN	RBINRE
;	EXTERN	RBINAD
;	EXTERN	RINCOD
;	EXTERN	RINREG
;	EXTERN	RINADD
;	EXTERN	RBITS
;	EXTERN	DRBITS
;	EXTERN	NEWLAB
;	EXTERN	STACKO
;	EXTERN	BRKLAB
;	EXTERN	LOOPLA
;	EXTERN	LITSTR
;	EXTERN	LITNOD
;	EXTERN	CODES
	EXTERN	PREVIO
;	EXTERN	MAXCOD
;	EXTERN	MINCOD
;	EXTERN	POPOST
	EXTERN	POPFLG
;	EXTERN	POPPRC
	INTERN	FOLDMO
	INTERN	FOLDDI
;	EXTERN	FOLDCS
	INTERN	SAMEAD
	INTERN	ALIAS
	EXTERN	BEFORE
	EXTERN	AFTER
	EXTERN	CODE00
	EXTERN	FIXPRE
	EXTERN	DROPSO
	INTERN	FOLDID
	INTERN	FOLDRC
	END