Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
c/kcc/ccstmt.fai
There are no other files named ccstmt.fai in the archive.
TITLE CCSTMT
.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
FUNSTM:
SETZB 3,%BRKLV
MOVEM 3,%CASEL
MOVEM 3,%CONTL
PUSH 17,[156]
PUSHJ 17,NDEFOP
MOVEM 1,0(17)
PUSH 17,[176]
PUSHJ 17,NDEFL
MOVEM 1,-1(17)
ADJSP 17,-1
PUSH 17,[1]
PUSHJ 17,%COMPO
MOVEM 1,0(17)
PUSH 17,[176]
PUSHJ 17,NDEFLR
ADJSP 17,-3
POPJ 17,
%STATE:
ADJSP 17,4
MOVE 4,TOKEN
MOVM 5,4
IDIVI 5,31
CAME 4,$18(6)
JRST $16
JRST @$19(6)
$18==.
-1
1
-1
-1
-1
-1
37
-1
-1
155
156
157
160
161
-1
163
164
165
166
167
170
25
-1
-1
30
$19==.
IFIW $16
IFIW $17
IFIW $16
IFIW $16
IFIW $16
IFIW $16
IFIW $15
IFIW $16
IFIW $16
IFIW $10
IFIW $12
IFIW $13
IFIW $14
IFIW $11
IFIW $16
IFIW $9
IFIW $7
IFIW $8
IFIW $4
IFIW $5
IFIW $6
IFIW $2
IFIW $16
IFIW $16
IFIW $3
$2==.
PUSHJ 17,NEXTOK
SETZ 1,
ADJSP 17,-4
POPJ 17,
$3==.
PUSH 17,[0]
PUSHJ 17,%COMPO
ADJSP 17,-1
MOVEM 1,-1(17)
PUSHJ 17,NEXTOK
MOVE 1,-1(17)
ADJSP 17,-4
POPJ 17,
$4==.
ADJSP 17,-4
JRST %SWITC
$5==.
ADJSP 17,-4
JRST %CASES
$6==.
ADJSP 17,-4
JRST %DEFAU
$7==.
ADJSP 17,-4
JRST %DOSTM
$8==.
ADJSP 17,-4
JRST %WHILE
$9==.
ADJSP 17,-4
JRST %FORST
$10==.
ADJSP 17,-4
JRST %GOTOS
$11==.
ADJSP 17,-4
JRST %IFSTM
$12==.
ADJSP 17,-4
JRST %RETUR
$13==.
ADJSP 17,-4
JRST %BREAK
$14==.
ADJSP 17,-4
JRST %CONTI
$15==.
MOVE 4,CSYMBO
MOVEM 4,-3(17)
MOVE 5,TOKEN
MOVEM 5,0(17)
PUSHJ 17,NEXTOK
CAIE 1,32
JRST $20
PUSHJ 17,NEXTOK
PUSH 17,[1]
PUSH 17,-4(17)
PUSHJ 17,%PLABE
ADJSP 17,-2
MOVEM 1,-2(17)
PUSHJ 17,%STATE
PUSH 17,1
PUSH 17,[177]
PUSHJ 17,NDEFL
MOVE 4,-4(17)
MOVEM 4,3(1)
ADJSP 17,-6
POPJ 17,
$20==.
PUSH 17,-3(17)
PUSH 17,-1(17)
PUSHJ 17,TOKPUS
ADJSP 17,-2
$16==.
ADJSP 17,-4
JRST %EXPRS
$17==.
PUSH 17,[$$BP90+$$SECT,,$21]
PUSHJ 17,ERROR
SETZ 1,
ADJSP 17,-5
POPJ 17,
$21==.
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,146,165
BYTE (9) 156,143,164,151
BYTE (9) 157,156,0
%COMPO:
SKIPE 4,-1(17)
TDZA 1,1
PUSHJ 17,BEGLSY
PUSH 17,1
PUSHJ 17,NEXTOK
PUSHJ 17,LDECLL
PUSH 17,1
ADJSP 17,3
SETZB 3,-1(17)
MOVEM 3,-2(17)
$24==.
MOVE 5,TOKEN
CAIE 5,31
SOSN 5,5
JRST $25
PUSHJ 17,%STATE
PUSH 17,1
PUSH 17,[176]
PUSHJ 17,NDEFL
ADJSP 17,-2
MOVEM 1,0(17)
SKIPN 6,-1(17)
JRST $27
MOVEM 1,5(6)
JRST $26
$27==.
MOVE 4,0(17)
MOVEM 4,-2(17)
$26==.
MOVE 4,0(17)
MOVEM 4,-1(17)
JRST $24
$25==.
SKIPN 5,-3(17)
JRST $29
PUSH 17,-2(17)
PUSH 17,5
PUSH 17,[176]
PUSHJ 17,NDEFLR
ADJSP 17,-3
MOVEM 1,-3(17)
JRST $28
$29==.
MOVE 4,-2(17)
MOVEM 4,-3(17)
$28==.
PUSH 17,-4(17)
PUSHJ 17,ENDLSY
MOVE 1,-4(17)
ADJSP 17,-6
POPJ 17,
%DOSTM:
ADJSP 17,2
PUSHJ 17,NEXTOK
AOS 3,%CONTL
AOS 4,%BRKLV
PUSHJ 17,%STATE
MOVEM 1,0(17)
SOS 3,%BRKLV
SOS 4,%CONTL
PUSH 17,[165]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[23]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%EXPRC
MOVEM 1,-1(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,0(17)
PUSH 17,-2(17)
PUSH 17,[164]
PUSHJ 17,NDEFLR
ADJSP 17,-5
POPJ 17,
%WHILE:
ADJSP 17,2
PUSHJ 17,NEXTOK
PUSH 17,[23]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%EXPRC
MOVEM 1,-1(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
AOS 3,%BRKLV
AOS 4,%CONTL
PUSHJ 17,%STATE
MOVEM 1,0(17)
SOS 3,%BRKLV
SOS 4,%CONTL
PUSH 17,1
PUSH 17,-2(17)
PUSH 17,[165]
PUSHJ 17,NDEFLR
ADJSP 17,-5
POPJ 17,
%CONTI:
SKIPE 4,%CONTL
JRST $30
PUSH 17,[$$BP90+$$SECT,,$31]
PUSHJ 17,ERROR
ADJSP 17,-1
$30==.
PUSHJ 17,NEXTOK
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[160]
PUSHJ 17,NDEFOP
ADJSP 17,-1
POPJ 17,
$31==.
BYTE (9) 103,157,156,164
BYTE (9) 151,156,165,145
BYTE (9) 40,155,165,163
BYTE (9) 164,40,142,145
BYTE (9) 40,167,151,164
BYTE (9) 150,151,156,40
BYTE (9) 154,157,157,160
BYTE (9) 0
%BREAK:
SKIPE 4,%BRKLV
JRST $32
PUSH 17,[$$BP90+$$SECT,,$33]
PUSHJ 17,ERROR
ADJSP 17,-1
$32==.
PUSHJ 17,NEXTOK
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[157]
PUSHJ 17,NDEFOP
ADJSP 17,-1
POPJ 17,
$33==.
BYTE (9) 102,162,145,141
BYTE (9) 153,40,155,165
BYTE (9) 163,164,40,142
BYTE (9) 145,40,167,151
BYTE (9) 164,150,151,156
BYTE (9) 40,154,157,157
BYTE (9) 160,40,157,162
BYTE (9) 40,163,167,151
BYTE (9) 164,143,150,0
%FORST:
ADJSP 17,5
PUSHJ 17,NEXTOK
SETZB 3,-1(17)
MOVEM 3,-2(17)
MOVEM 3,-3(17)
PUSH 17,[23]
PUSHJ 17,EXPECT
ADJSP 17,-1
MOVE 4,TOKEN
CAIN 4,25
JRST $34
PUSHJ 17,%EXPRE
PUSH 17,1
PUSHJ 17,%EVALI
MOVEM 1,0(17)
PUSHJ 17,%EDISC
ADJSP 17,-1
MOVEM 1,-3(17)
$34==.
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
MOVE 4,TOKEN
CAIN 4,25
JRST $35
PUSHJ 17,%EXPRC
MOVEM 1,-2(17)
$35==.
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
MOVE 4,TOKEN
CAIN 4,24
JRST $36
PUSHJ 17,%EXPRE
PUSH 17,1
PUSHJ 17,%EVALI
MOVEM 1,0(17)
PUSHJ 17,%EDISC
ADJSP 17,-1
MOVEM 1,-1(17)
$36==.
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
AOS 3,%CONTL
AOS 4,%BRKLV
PUSHJ 17,%STATE
MOVEM 1,0(17)
SOS 3,%BRKLV
SOS 4,%CONTL
PUSH 17,-2(17)
PUSH 17,-4(17)
PUSH 17,[204]
PUSHJ 17,NDEFLR
ADJSP 17,-3
MOVEM 1,-4(17)
PUSH 17,-1(17)
PUSH 17,[204]
PUSHJ 17,NDEFL
MOVEM 1,-1(17)
ADJSP 17,-1
PUSH 17,-5(17)
PUSH 17,[204]
PUSHJ 17,NDEFLR
ADJSP 17,-3
MOVEM 1,-4(17)
PUSH 17,0(17)
PUSH 17,1
PUSH 17,[163]
PUSHJ 17,NDEFLR
ADJSP 17,-10
POPJ 17,
%IFSTM:
ADJSP 17,3
PUSHJ 17,NEXTOK
PUSH 17,[23]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%EXPRC
MOVEM 1,-2(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%STATE
MOVEM 1,-1(17)
MOVE 4,TOKEN
CAIE 4,162
JRST $38
PUSHJ 17,NEXTOK
PUSHJ 17,%STATE
MOVEM 1,0(17)
JRST $37
$38==.
SETZB 3,0(17)
$37==.
PUSH 17,0(17)
PUSH 17,-2(17)
PUSH 17,[204]
PUSHJ 17,NDEFLR
MOVEM 1,-2(17)
ADJSP 17,-2
PUSH 17,-3(17)
PUSH 17,[161]
PUSHJ 17,NDEFLR
ADJSP 17,-6
POPJ 17,
%GOTOS:
ADJSP 17,2
PUSHJ 17,NEXTOK
MOVE 4,CSYMBO
MOVEM 4,0(17)
PUSH 17,[37]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[155]
PUSHJ 17,NDEFOP
MOVEM 1,-2(17)
SETZB 16,0(17)
PUSH 17,-1(17)
PUSHJ 17,%PLABE
ADJSP 17,-2
MOVE 4,-1(17)
MOVEM 1,3(4)
PUSH 17,[25]
PUSHJ 17,EXPECT
MOVE 1,-2(17)
ADJSP 17,-3
POPJ 17,
%PLABE:
SKIPN 1,-1(17)
POPJ 17,
ADJSP 17,1
PUSH 17,1
PUSHJ 17,SYMFLA
ADJSP 17,-1
MOVEM 1,0(17)
JUMPE 1,$41
MOVE 6,-2(17)
SKIPE 3,0(6)
JRST $40
PUSH 17,6
PUSHJ 17,FREESY
ADJSP 17,-1
JRST $40
$41==.
PUSH 17,-2(17)
PUSHJ 17,SYMQCR
ADJSP 17,-1
MOVEM 1,0(17)
MOVEI 4,4000
IORB 4,1(1)
MOVEI 3,26
MOVEM 3,0(1)
PUSHJ 17,NEWLAB
MOVE 7,0(17)
MOVEM 1,12(7)
SKIPN 5,-3(17)
AOS 3,20(7)
$40==.
SKIPN 4,-3(17)
JRST $42
MOVE 7,0(17)
MOVE 3,0(7)
CAIE 3,25
JRST $43
PUSH 17,7
PUSH 17,[$$BP90+$$SECT,,$44]
PUSHJ 17,ERROR
ADJSP 17,-2
JRST $42
$43==.
MOVEI 3,25
MOVE 5,0(17)
MOVEM 3,0(5)
$42==.
POP 17,4
MOVE 1,12(4)
POPJ 17,
$44==.
BYTE (9) 114,141,142,145
BYTE (9) 154,40,45,123
BYTE (9) 40,141,154,162
BYTE (9) 145,141,144,171
BYTE (9) 40,144,145,146
BYTE (9) 151,156,145,144
BYTE (9) 0
%SWITC:
ADJSP 17,10
PUSHJ 17,NEXTOK
PUSH 17,[23]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%EXPRE
MOVEM 1,-7(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
MOVE 4,-7(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,10000
JRST $46
PUSH 17,[$$BP90+$$SECT,,$47]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-7(17)
JRST $45
$46==.
PUSH 17,-7(17)
PUSHJ 17,CONVUN
MOVEM 1,0(17)
PUSHJ 17,%EVALI
ADJSP 17,-1
MOVEM 1,-7(17)
$45==.
AOS 3,%CASEL
AOS 4,%BRKLV
XMOVEI 6,-4(17)
JUMPGE 17,.+5
MOVEI 16,(6)
HRLI 16,%SW
BLT 16,4(6)
JRST .+7
XMOVEI 16,-1(6)
PUSH 16,%SW
PUSH 16,%SW*1+1
PUSH 16,%SW*1+2
PUSH 16,%SW*1+3
PUSH 16,%SW*1+4
SETZB 7,%SW*1+2
MOVEM 7,%SW*1+1
MOVEM 7,%SW
MOVEM 7,%SW*1+3
SETOB 3,%SW*1+4
MOVE 15,-7(17)
MOVE 10,0(15)
CAIE 10,103
JRST $48
MOVE 13,4(15)
MOVE 12,0(13)
CAIE 12,41
JRST $49
AND 3,3(13)
MOVEM 3,%SW*1+4
$49==.
MOVE 7,-7(17)
MOVE 4,5(7)
MOVE 5,0(4)
CAIN 5,41
SKIPA 10,3(4)
TRNA
ANDB 10,%SW*1+4
$48==.
PUSHJ 17,%STATE
MOVEM 1,-6(17)
SOS 3,%CASEL
SOS 4,%BRKLV
PUSH 17,1
PUSH 17,-10(17)
PUSH 17,[166]
PUSHJ 17,NDEFLR
ADJSP 17,-3
MOVEM 1,-5(17)
SKIPN 6,%SW
JRST $51
MOVE 5,%SW*1+1
MOVEM 5,5(6)
MOVE 4,%SW
MOVEM 4,3(1)
JRST $50
$51==.
MOVE 4,%SW*1+1
MOVE 5,-5(17)
MOVEM 4,3(5)
$50==.
XMOVEI 4,%SW
JUMPGE 17,.+5
MOVEI 16,(4)
HRLI 16,-4(17)
BLT 16,4(4)
JRST .+7
XMOVEI 16,-1(4)
PUSH 16,-4(17)
PUSH 16,-3(17)
PUSH 16,-2(17)
PUSH 16,-1(17)
PUSH 16,0(17)
MOVE 1,-5(17)
ADJSP 17,-10
POPJ 17,
$47==.
BYTE (9) 123,167,151,164
BYTE (9) 143,150,40,145
BYTE (9) 170,160,162,145
BYTE (9) 163,163,151,157
BYTE (9) 156,40,155,165
BYTE (9) 163,164,40,142
BYTE (9) 145,40,157,146
BYTE (9) 40,151,156,164
BYTE (9) 145,147,162,141
BYTE (9) 154,40,164,171
BYTE (9) 160,145,0
%CASES:
PUSHJ 17,NEXTOK
PUSHJ 17,%EXPR1
PUSH 17,1
SKIPE 4,%CASEL
JRST $52
PUSH 17,[$$BP90+$$SECT,,$53]
PUSHJ 17,ERROR
ADJSP 17,-1
SETZB 3,0(17)
$52==.
ADJSP 17,2
PUSH 17,[167]
PUSHJ 17,NDEFOP
ADJSP 17,-1
MOVEM 1,-1(17)
SKIPN 5,-2(17)
JRST $54
PUSH 17,5
PUSHJ 17,CONVUN
MOVEM 1,0(17)
PUSHJ 17,EVALEX
ADJSP 17,-1
MOVEM 1,-2(17)
$54==.
SKIPN 5,-2(17)
JRST $55
MOVE 3,0(5)
CAIN 3,41
JRST $56
PUSH 17,[$$BP90+$$SECT,,$57]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $55
$56==.
MOVE 4,%SW*1+1
MOVEM 4,0(17)
$58==.
SKIPN 5,0(17)
JRST $59
MOVE 4,3(5)
MOVE 7,-2(17)
CAME 4,3(7)
JRST $60
PUSH 17,4
PUSH 17,[$$BP90+$$SECT,,$61]
PUSHJ 17,ERROR
ADJSP 17,-2
JRST $59
$60==.
MOVE 4,0(17)
MOVE 3,5(4)
MOVEM 3,0(17)
JRST $58
$59==.
SKIPE 4,0(17)
JRST $55
MOVE 6,-2(17)
MOVE 3,3(6)
AND 3,%SW*1+4
CAMN 3,3(6)
JRST $62
PUSH 17,3(6)
PUSH 17,[$$BP90+$$SECT,,$63]
PUSHJ 17,ADVISE
ADJSP 17,-2
$62==.
MOVE 4,-2(17)
MOVE 3,3(4)
MOVE 10,-1(17)
MOVEM 3,3(10)
SKIPN 6,%SW*1+2
JRST $65
MOVEM 10,5(6)
JRST $64
$65==.
MOVE 4,-1(17)
MOVEM 4,%SW*1+1
$64==.
MOVE 4,-1(17)
MOVEM 4,%SW*1+2
AOS 6,%SW*1+3
CAIG 6,1001
JRST $55
PUSH 17,[1001]
PUSH 17,6
PUSH 17,[$$BP90+$$SECT,,$66]
PUSHJ 17,ERROR
ADJSP 17,-3
$55==.
PUSH 17,[32]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%STATE
MOVE 5,-1(17)
MOVEM 1,4(5)
MOVE 1,5
ADJSP 17,-3
POPJ 17,
$66==.
BYTE (9) 124,157,157,40
BYTE (9) 155,141,156,171
BYTE (9) 40,143,141,163
BYTE (9) 145,40,163,164
BYTE (9) 141,164,145,155
BYTE (9) 145,156,164,163
BYTE (9) 40,50,45,144
BYTE (9) 73,40,155,141
BYTE (9) 170,40,151,163
BYTE (9) 40,45,144,51
BYTE (9) 0
$63==.
BYTE (9) 103,141,163,145
BYTE (9) 40,154,141,142
BYTE (9) 145,154,40,157
BYTE (9) 165,164,163,151
BYTE (9) 144,145,40,162
BYTE (9) 141,156,147,145
BYTE (9) 40,157,146,40
BYTE (9) 101,116,104,40
BYTE (9) 151,156,40,163
BYTE (9) 167,151,164,143
BYTE (9) 150,40,55,55
BYTE (9) 40,45,144,0
$61==.
BYTE (9) 123,167,151,164
BYTE (9) 143,150,40,163
BYTE (9) 164,141,164,145
BYTE (9) 155,145,156,164
BYTE (9) 40,150,141,163
BYTE (9) 40,144,165,160
BYTE (9) 154,151,143,141
BYTE (9) 164,145,40,143
BYTE (9) 141,163,145,40
BYTE (9) 154,141,142,145
BYTE (9) 154,163,72,40
BYTE (9) 45,144,0
$57==.
BYTE (9) 103,141,163,145
BYTE (9) 40,154,141,142
BYTE (9) 145,154,40,155
BYTE (9) 165,163,164,40
BYTE (9) 142,145,40,151
BYTE (9) 156,164,145,147
BYTE (9) 162,141,154,40
BYTE (9) 143,157,156,163
BYTE (9) 164,141,156,164
BYTE (9) 40,145,170,160
BYTE (9) 162,0
$53==.
BYTE (9) 103,141,163,145
BYTE (9) 40,154,141,142
BYTE (9) 145,154,40,157
BYTE (9) 165,164,163,151
BYTE (9) 144,145,40,163
BYTE (9) 167,151,164,143
BYTE (9) 150,40,163,164
BYTE (9) 141,164,145,155
BYTE (9) 145,156,164,0
%DEFAU:
ADJSP 17,1
PUSHJ 17,NEXTOK
SKIPE 4,%CASEL
JRST $68
PUSH 17,[$$BP90+$$SECT,,$69]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $67
$68==.
SKIPN 4,%SW
JRST $67
PUSH 17,[$$BP90+$$SECT,,$70]
PUSHJ 17,ERROR
ADJSP 17,-1
$67==.
PUSH 17,[32]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,[170]
PUSHJ 17,NDEFOP
ADJSP 17,-1
MOVEM 1,0(17)
MOVEM 1,%SW
PUSHJ 17,%STATE
POP 17,5
MOVEM 1,4(5)
MOVE 1,5
POPJ 17,
$70==.
BYTE (9) 123,167,151,164
BYTE (9) 143,150,40,163
BYTE (9) 164,141,164,145
BYTE (9) 155,145,156,164
BYTE (9) 40,150,141,163
BYTE (9) 40,155,165,154
BYTE (9) 164,151,160,154
BYTE (9) 145,40,42,144
BYTE (9) 145,146,141,165
BYTE (9) 154,164,42,40
BYTE (9) 154,141,142,145
BYTE (9) 154,163,0
$69==.
BYTE (9) 103,141,163,145
BYTE (9) 40,154,141,142
BYTE (9) 145,154,40,157
BYTE (9) 165,164,163,151
BYTE (9) 144,145,40,163
BYTE (9) 167,151,164,143
BYTE (9) 150,40,163,164
BYTE (9) 141,164,145,155
BYTE (9) 145,156,164,0
%RETUR:
ADJSP 17,2
MOVE 4,CURFN
MOVE 3,13(4)
MOVE 5,3(3)
MOVEM 5,0(17)
PUSHJ 17,NEXTOK
CAIE 1,25
JRST $72
SETZB 6,-1(17)
MOVE 4,0(17)
CAMN 6,0(4)
JRST $71
MOVE 3,0(4)
CAIN 3,15
JRST $71
PUSH 17,[$$BP90+$$SECT,,$73]
PUSHJ 17,WARN
ADJSP 17,-1
JRST $71
$72==.
MOVE 4,0(17)
SKIPN 3,0(4)
JRST $74
PUSHJ 17,%EXPRE
PUSH 17,1
PUSH 17,-1(17)
PUSHJ 17,CONVAS
MOVEM 1,-1(17)
ADJSP 17,-1
PUSHJ 17,%EVALI
ADJSP 17,-1
MOVEM 1,-1(17)
JRST $71
$74==.
PUSH 17,[$$BP90+$$SECT,,$75]
PUSHJ 17,WARN
ADJSP 17,-1
PUSHJ 17,%EXPRE
SETZB 3,-1(17)
$71==.
PUSH 17,[25]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,-1(17)
PUSH 17,[0]
PUSH 17,[156]
PUSHJ 17,NDEFLR
ADJSP 17,-5
POPJ 17,
$75==.
BYTE (9) 122,145,164,165
BYTE (9) 162,156,40,145
BYTE (9) 170,160,162,145
BYTE (9) 163,163,151,157
BYTE (9) 156,40,151,154
BYTE (9) 154,145,147,141
BYTE (9) 154,40,151,156
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,162,145
BYTE (9) 164,165,162,156
BYTE (9) 151,156,147,40
BYTE (9) 166,157,151,144
BYTE (9) 0
$73==.
BYTE (9) 116,157,40,162
BYTE (9) 145,164,165,162
BYTE (9) 156,40,166,141
BYTE (9) 154,165,145,40
BYTE (9) 146,157,162,40
BYTE (9) 166,141,154,165
BYTE (9) 145,55,162,145
BYTE (9) 164,165,162,156
BYTE (9) 151,156,147,40
BYTE (9) 146,165,156,143
BYTE (9) 164,151,157,156
BYTE (9) 0
%EXPRS:
ADJSP 17,1
PUSHJ 17,%EXPRE
PUSH 17,1
PUSHJ 17,%EVALI
MOVEM 1,0(17)
PUSHJ 17,%EDISC
ADJSP 17,-1
MOVEM 1,0(17)
PUSH 17,[25]
PUSHJ 17,EXPECT
MOVE 1,-1(17)
ADJSP 17,-2
POPJ 17,
%EXPRC:
PUSHJ 17,%EXPRE
PUSH 17,1
MOVE 3,1(1)
MOVE 4,1(3)
TRNE 4,70000
JRST $76
PUSH 17,[$$BP90+$$SECT,,$77]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-2
POPJ 17,
$76==.
PUSH 17,0(17)
PUSHJ 17,%EVALI
ADJSP 17,-2
POPJ 17,
$77==.
BYTE (9) 103,157,156,164
BYTE (9) 162,157,154,40
BYTE (9) 145,170,160,162
BYTE (9) 145,163,163,151
BYTE (9) 157,156,40,155
BYTE (9) 165,163,164,40
BYTE (9) 142,145,40,163
BYTE (9) 143,141,154,141
BYTE (9) 162,40,164,171
BYTE (9) 160,145,0
PCONST:
PUSHJ 17,%EXPR1
PUSH 17,1
MOVE 3,0(1)
CAIN 3,41
JRST $78
PUSH 17,[$$BP90+$$SECT,,$79]
PUSHJ 17,ERROR
SETZ 1,
ADJSP 17,-2
POPJ 17,
$78==.
POP 17,4
MOVE 1,3(4)
POPJ 17,
$79==.
BYTE (9) 111,156,164,145
BYTE (9) 147,162,141,154
BYTE (9) 40,143,157,156
BYTE (9) 163,164,141,156
BYTE (9) 164,40,145,170
BYTE (9) 160,145,143,164
BYTE (9) 145,144,0
%EXPR1:
PUSHJ 17,%CONDE
PUSH 17,1
PUSHJ 17,EVALEX
ADJSP 17,-1
POPJ 17,
%EVALI:
SKIPN 4,OPTPAR
JRST $80
PUSH 17,-1(17)
PUSHJ 17,EVALEX
ADJSP 17,-1
JRST $81
$80==.
MOVE 1,-1(17)
$81==.
POPJ 17,
%EDISC:
SKIPE 4,OPTPAR
JRST EVALDI
SKIPE 1,-1(17)
SKIPA 5,[200]
TRNA
IORB 5,2(1)
POPJ 17,
%EXPRE:
ADJSP 17,2
PUSHJ 17,ASGNEX
MOVEM 1,0(17)
MOVE 4,TOKEN
CAIN 4,33
JRST $84
ADJSP 17,-2
POPJ 17,
$84==.
SETZB 3,-1(17)
$85==.
PUSH 17,0(17)
PUSHJ 17,CONVAR
MOVEM 1,-1(17)
MOVEM 1,0(17)
PUSH 17,-2(17)
PUSH 17,[0]
PUSH 17,1(1)
PUSH 17,[124]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-1(17)
MOVE 4,TOKEN
CAIN 4,33
JRST $87
ADJSP 17,-2
POPJ 17,
$87==.
PUSH 17,0(17)
PUSHJ 17,%EDISC
ADJSP 17,-1
MOVE 5,-1(17)
MOVEM 1,5(5)
JUMPN 1,$89
MOVE 3,4(5)
MOVEM 3,-1(17)
JRST $88
$89==.
MOVEI 4,200
MOVE 6,-1(17)
IORB 4,2(6)
$88==.
PUSHJ 17,NEXTOK
PUSHJ 17,ASGNEX
MOVEM 1,0(17)
JRST $85
ASGNEX:
ADJSP 17,5
PUSHJ 17,%CONDE
MOVEM 1,-2(17)
MOVE 3,TOKEN
HLRE 4,TOK(3)
CAIE 4,6
JRST $90
MOVE 7,2(1)
TRNE 7,1
JRST $92
MOVE 6,0(1)
CAIN 6,110
TRNE 7,20
JRST $93
PUSH 17,[$$BP90+$$SECT,,$94]
PUSHJ 17,ADVISE
ADJSP 17,-1
$93==.
PUSH 17,[$$BP90+$$SECT,,$95]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $91
$92==.
MOVE 7,-2(17)
MOVE 4,1(7)
MOVE 3,1(4)
TRNN 3,1000
TLNE 3,4
TRNA
JRST $96
PUSH 17,[$$BP90+$$SECT,,$98]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $91
$96==.
MOVE 4,-2(17)
MOVE 3,1(4)
MOVE 5,0(3)
CAIE 5,2
JRST $99
PUSH 17,[$$BP90+$$SECT,,$100]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $91
$99==.
MOVE 4,-2(17)
PUSH 17,1(4)
PUSHJ 17,SIZETY
ADJSP 17,-1
JUMPN 1,$91
PUSH 17,[$$BP90+$$SECT,,$101]
PUSHJ 17,ERROR
ADJSP 17,-1
$91==.
MOVE 4,TOKEN
MOVEM 4,0(17)
PUSHJ 17,NEXTOK
PUSHJ 17,ASGNEX
MOVEM 1,-3(17)
MOVE 6,-2(17)
MOVEM 6,-4(17)
MOVE 5,1(6)
MOVEM 5,-1(17)
PUSH 17,1
PUSH 17,6
PUSH 17,[0]
PUSH 17,5
PUSH 17,-4(17)
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-2(17)
MOVE 4,0(17)
CAIL 4,111
CAIL 4,124
JRST $107
JRST @$108*1-111(4)
$108==.
IFIW $106
IFIW $103
IFIW $103
IFIW $104
IFIW $104
IFIW $105
IFIW $105
IFIW $105
IFIW $105
IFIW $105
IFIW $105
$103==.
MOVE 4,-4(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,70000
JRST $109
PUSH 17,[$$BP90+$$SECT,,$110]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$109==.
MOVE 4,-4(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,30000
JRST $111
MOVE 7,-3(17)
MOVE 6,1(7)
MOVE 10,1(6)
TRNE 10,10000
JRST $112
PUSH 17,[$$BP90+$$SECT,,$113]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$112==.
PUSH 17,-2(17)
MOVE 4,-1(17)
CAIN 4,112
SKIPA 3,[71]
MOVEI 3,72
PUSH 17,3
PUSHJ 17,%CHKAD
ADJSP 17,-2
MOVEM 1,-2(17)
JRST $102
$111==.
MOVE 4,-3(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,30000
JRST $116
PUSH 17,[$$BP90+$$SECT,,$117]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$116==.
PUSH 17,-2(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $102
$104==.
MOVE 4,-4(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNN 5,30000
JRST $119
MOVE 7,-3(17)
MOVE 6,1(7)
MOVE 10,1(6)
TRNE 10,30000
JRST $118
$119==.
PUSH 17,[$$BP90+$$SECT,,$120]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$118==.
PUSH 17,-2(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $102
$105==.
MOVE 4,-4(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNN 5,10000
JRST $122
MOVE 7,-3(17)
MOVE 6,1(7)
MOVE 10,1(6)
TRNE 10,10000
JRST $121
$122==.
PUSH 17,[$$BP90+$$SECT,,$123]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$121==.
PUSH 17,-2(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $102
$106==.
PUSH 17,-3(17)
PUSH 17,-2(17)
PUSHJ 17,CONVAS
ADJSP 17,-2
MOVE 4,-2(17)
MOVEM 1,5(4)
JRST $102
$107==.
PUSH 17,0(17)
PUSH 17,[$$BP90+$$SECT,,$124]
PUSHJ 17,INT.ER
SETZB 16,-1(17)
ADJSP 17,-1
PUSHJ 17,NDEFIC
ADJSP 17,-6
POPJ 17,
$102==.
MOVEI 3,2
MOVE 7,-2(17)
MOVEM 3,3(7)
MOVE 4,1(7)
CAMN 4,-1(17)
JRST $90
PUSH 17,7
PUSH 17,-2(17)
PUSHJ 17,CONVAS
ADJSP 17,-2
MOVEM 1,-2(17)
MOVE 3,0(1)
CAIE 3,60
JRST $90
MOVE 4,3(1)
MOVE 5,4(1)
MOVEM 4,3(5)
MOVE 11,4(1)
MOVEM 11,-2(17)
MOVE 10,-1(17)
MOVEM 10,1(11)
$90==.
MOVE 1,-2(17)
ADJSP 17,-5
POPJ 17,
$124==.
BYTE (9) 141,163,147,156
BYTE (9) 145,170,160,162
BYTE (9) 72,40,142,141
BYTE (9) 144,40,141,163
BYTE (9) 157,160,40,45
BYTE (9) 121,0
$123==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,151
BYTE (9) 156,164,145,147
BYTE (9) 162,141,154,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$120==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,141
BYTE (9) 162,151,164,150
BYTE (9) 155,145,164,151
BYTE (9) 143,40,164,171
BYTE (9) 160,145,0
$117==.
BYTE (9) 122,151,147,150
BYTE (9) 164,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,40,155,165
BYTE (9) 163,164,40,150
BYTE (9) 141,166,145,40
BYTE (9) 141,162,151,164
BYTE (9) 150,155,145,164
BYTE (9) 151,143,40,164
BYTE (9) 171,160,145,0
$113==.
BYTE (9) 122,151,147,150
BYTE (9) 164,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,40,155,165
BYTE (9) 163,164,40,150
BYTE (9) 141,166,145,40
BYTE (9) 151,156,164,145
BYTE (9) 147,162,141,154
BYTE (9) 40,164,171,160
BYTE (9) 145,0
$110==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,163
BYTE (9) 143,141,154,141
BYTE (9) 162,40,164,171
BYTE (9) 160,145,0
$101==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 141,163,163,151
BYTE (9) 147,156,155,145
BYTE (9) 156,164,40,143
BYTE (9) 141,156,156,157
BYTE (9) 164,40,142,145
BYTE (9) 40,151,156,143
BYTE (9) 157,155,160,154
BYTE (9) 145,164,145,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$100==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 141,163,163,151
BYTE (9) 147,156,155,145
BYTE (9) 156,164,40,143
BYTE (9) 141,156,156,157
BYTE (9) 164,40,142,145
BYTE (9) 40,141,162,162
BYTE (9) 141,171,0
$98==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 141,163,163,151
BYTE (9) 147,156,155,145
BYTE (9) 156,164,40,155
BYTE (9) 165,163,164,40
BYTE (9) 142,145,40,155
BYTE (9) 157,144,151,146
BYTE (9) 151,141,142,154
BYTE (9) 145,0
$95==.
BYTE (9) 114,166,141,154
BYTE (9) 165,145,40,162
BYTE (9) 145,161,165,151
BYTE (9) 162,145,144,40
BYTE (9) 141,163,40,154
BYTE (9) 145,146,164,40
BYTE (9) 157,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,141
BYTE (9) 163,163,151,147
BYTE (9) 156,155,145,156
BYTE (9) 164,0
$94==.
BYTE (9) 75,40,151,156
BYTE (9) 40,63,162,144
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 50,77,72,51
BYTE (9) 40,150,141,163
BYTE (9) 40,154,157,167
BYTE (9) 145,162,40,160
BYTE (9) 162,145,143,145
BYTE (9) 144,145,156,143
BYTE (9) 145,40,55,55
BYTE (9) 40,165,163,145
BYTE (9) 40,160,141,162
BYTE (9) 145,156,164,150
BYTE (9) 145,163,145,163
BYTE (9) 0
%CONDE:
ADJSP 17,2
PUSH 17,[1]
PUSHJ 17,%BINAR
ADJSP 17,-1
MOVEM 1,-1(17)
MOVE 4,TOKEN
CAIN 4,110
JRST $125
ADJSP 17,-2
POPJ 17,
$125==.
PUSHJ 17,NEXTOK
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,70000
JRST $126
PUSH 17,[$$BP90+$$SECT,,$127]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-1(17)
$126==.
PUSHJ 17,%EXPRE
MOVEM 1,0(17)
MOVE 3,0(1)
CAIE 3,124
JRST $128
MOVE 4,2(1)
TRNE 4,20
JRST $128
PUSH 17,[$$BP90+$$SECT,,$129]
PUSHJ 17,ADVISE
ADJSP 17,-1
$128==.
PUSH 17,[32]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%CONDE
PUSH 17,1
PUSH 17,-1(17)
PUSH 17,[204]
PUSHJ 17,NDEFLR
MOVEM 1,-3(17)
MOVEM 1,-2(17)
ADJSP 17,-2
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,0(17)
MOVE 6,4(1)
MOVE 3,1(6)
MOVE 5,5(1)
CAME 3,1(5)
JRST $131
MOVEM 3,1(1)
JRST $130
$131==.
PUSH 17,0(17)
PUSHJ 17,CONVTE
ADJSP 17,-1
MOVE 4,0(17)
MOVEM 1,1(4)
JUMPN 1,$130
PUSH 17,[$$BP90+$$SECT,,$132]
PUSHJ 17,ERROR
MOVE 7,-1(17)
MOVE 3,4(7)
MOVE 5,1(3)
MOVEM 5,1(7)
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVE 5,0(17)
MOVEM 1,5(5)
MOVEM 1,4(5)
$130==.
PUSH 17,0(17)
PUSH 17,-2(17)
PUSH 17,[0]
MOVE 4,-3(17)
PUSH 17,1(4)
PUSH 17,[110]
PUSHJ 17,NDEF
ADJSP 17,-7
POPJ 17,
$132==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,157,146,40
BYTE (9) 50,77,72,51
BYTE (9) 40,150,141,166
BYTE (9) 145,40,151,156
BYTE (9) 143,157,155,160
BYTE (9) 141,164,151,142
BYTE (9) 154,145,40,164
BYTE (9) 171,160,145,163
BYTE (9) 0
$129==.
BYTE (9) 103,157,155,155
BYTE (9) 141,40,151,156
BYTE (9) 163,151,144,145
BYTE (9) 40,50,77,72
BYTE (9) 51,40,150,141
BYTE (9) 163,40,154,157
BYTE (9) 167,145,162,40
BYTE (9) 160,162,145,143
BYTE (9) 145,144,145,156
BYTE (9) 143,145,40,55
BYTE (9) 55,40,165,163
BYTE (9) 145,40,160,141
BYTE (9) 162,145,156,164
BYTE (9) 150,145,163,145
BYTE (9) 163,0
$127==.
BYTE (9) 106,151,162,163
BYTE (9) 164,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,40,157,146
BYTE (9) 40,50,77,72
BYTE (9) 51,40,155,165
BYTE (9) 163,164,40,150
BYTE (9) 141,166,145,40
BYTE (9) 163,143,141,154
BYTE (9) 141,162,40,164
BYTE (9) 171,160,145,0
%BINAR:
ADJSP 17,6
PUSHJ 17,%CASTE
MOVEM 1,-2(17)
$133==.
MOVE 5,TOKEN
HLRE 6,TOK(5)
MOVEM 6,-3(17)
CAIL 6,4
CAILE 6,5
JRST $134
HRRE 3,TOK(5)
MOVEM 3,-5(17)
CAMG 3,-7(17)
JRST $134
MOVEM 5,-4(17)
PUSHJ 17,NEXTOK
PUSH 17,-5(17)
PUSHJ 17,%BINAR
MOVEM 1,-2(17)
MOVEM 1,0(17)
PUSH 17,-3(17)
PUSH 17,[0]
PUSH 17,TYPEPT
PUSH 17,-10(17)
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,0(17)
MOVE 4,-4(17)
CAIL 4,66
CAIL 4,110
JRST $137
JRST @$145*1-66(4)
$145==.
IFIW $140
IFIW $140
IFIW $141
IFIW $142
IFIW $142
IFIW $143
IFIW $143
IFIW $139
IFIW $139
IFIW $139
IFIW $139
IFIW $139
IFIW $139
IFIW $144
IFIW $144
IFIW $144
IFIW $138
IFIW $138
$137==.
PUSH 17,-4(17)
PUSH 17,[$$BP90+$$SECT,,$146]
PUSHJ 17,INT.ER
SETZB 16,-1(17)
ADJSP 17,-1
PUSHJ 17,NDEFIC
ADJSP 17,-7
POPJ 17,
$138==.
PUSH 17,-2(17)
PUSHJ 17,CONVAR
ADJSP 17,-1
MOVEM 1,-2(17)
PUSH 17,-1(17)
PUSHJ 17,CONVAR
ADJSP 17,-1
MOVEM 1,-1(17)
MOVE 4,-2(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNN 5,70000
JRST $148
MOVE 6,1(1)
MOVE 7,1(6)
TRNE 7,70000
JRST $147
$148==.
PUSH 17,[$$BP90+$$SECT,,$149]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$147==.
PUSH 17,-2(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVE 4,0(17)
MOVEM 1,4(4)
PUSH 17,-1(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVE 6,0(17)
MOVEM 1,5(6)
MOVE 3,TYPEPT*1+15
MOVEM 3,1(6)
JRST $136
$139==.
PUSH 17,0(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,0(17)
MOVE 5,-4(17)
CAIL 5,101
CAILE 5,102
JRST $150
PUSH 17,1
PUSHJ 17,CONVNU
MOVEM 1,-1(17)
MOVEM 1,0(17)
PUSHJ 17,CONVVO
ADJSP 17,-1
MOVEM 1,0(17)
$150==.
MOVE 4,0(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,70000
JRST $152
PUSH 17,[$$BP90+$$SECT,,$153]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$152==.
MOVE 11,0(17)
MOVE 4,4(11)
MOVE 6,1(4)
MOVE 5,5(11)
CAMN 6,1(5)
JRST $154
MOVE 12,0(6)
CAIE 12,5
JRST $154
MOVE 7,1(5)
CAME 12,0(7)
JRST $154
PUSH 17,3(7)
PUSH 17,3(6)
PUSHJ 17,CMPUTY
ADJSP 17,-2
JUMPN 1,$154
PUSH 17,[$$BP90+$$SECT,,$155]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$154==.
MOVE 3,TYPEPT*1+15
MOVE 5,0(17)
MOVEM 3,1(5)
JRST $136
$140==.
PUSH 17,0(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,0(17)
MOVE 3,1(1)
MOVE 4,1(3)
TRNN 4,30000
JRST $156
MOVE 5,4(1)
MOVE 6,1(5)
MOVE 7,5(1)
CAMN 6,1(7)
JRST $136
$156==.
PUSH 17,[$$BP90+$$SECT,,$157]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$141==.
PUSH 17,0(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,0(17)
MOVE 3,1(1)
MOVE 4,1(3)
TRNN 4,10000
JRST $158
MOVE 5,4(1)
MOVE 6,1(5)
MOVE 7,5(1)
CAMN 6,1(7)
JRST $136
$158==.
PUSH 17,[$$BP90+$$SECT,,$159]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$142==.
PUSH 17,0(17)
PUSH 17,-5(17)
PUSHJ 17,%CHKAD
ADJSP 17,-2
MOVEM 1,0(17)
JRST $136
$143==.
PUSH 17,-2(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVE 4,0(17)
MOVEM 1,4(4)
PUSH 17,-1(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVE 10,0(17)
MOVEM 1,5(10)
MOVE 3,4(10)
MOVE 4,1(3)
MOVE 6,1(4)
TRNN 6,10000
JRST $161
MOVE 7,1(1)
MOVE 5,1(7)
TRNE 5,10000
JRST $160
$161==.
PUSH 17,[$$BP90+$$SECT,,$162]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$160==.
MOVE 7,0(17)
MOVE 3,4(7)
MOVE 5,1(3)
MOVEM 5,1(7)
JRST $136
$144==.
PUSH 17,0(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,0(17)
MOVE 3,1(1)
MOVE 4,1(3)
TRNN 4,10000
JRST $163
MOVE 5,4(1)
MOVE 6,1(5)
MOVE 7,5(1)
CAMN 6,1(7)
JRST $136
$163==.
PUSH 17,[$$BP90+$$SECT,,$164]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
MOVEM 1,-2(17)
JRST $133
$136==.
MOVE 6,0(17)
MOVE 7,4(6)
MOVEM 7,-2(17)
MOVE 11,5(6)
MOVEM 11,-1(17)
MOVE 3,1(7)
SKIPN 5,0(3)
JRST $166
MOVE 4,1(11)
SKIPE 10,0(4)
JRST $165
$166==.
PUSH 17,[$$BP90+$$SECT,,$167]
PUSHJ 17,ERROR
ADJSP 17,-1
MOVE 3,TYPEPT*1+15
MOVE 5,0(17)
MOVEM 3,1(5)
MOVE 6,-1(17)
MOVEM 3,1(6)
MOVE 7,-2(17)
MOVEM 3,1(7)
$165==.
MOVE 4,-3(17)
CAIE 4,5
JRST $168
MOVE 5,-2(17)
MOVE 3,2(5)
TRNE 3,10
SOS 6,STACKR
MOVE 10,-1(17)
MOVE 7,2(10)
TRNE 7,10
SOS 11,STACKR
MOVEI 13,40
MOVE 15,0(17)
IORB 13,2(15)
$168==.
MOVE 6,0(17)
MOVE 4,0(6)
CAIE 4,103
CAIN 4,105
SKIPA 10,-2(17)
JRST $171
MOVE 5,2(10)
TRNE 5,40
TRNE 5,20
SKIPA 12,-1(17)
JRST $173
MOVE 7,2(12)
TRNE 7,40
TRNE 7,20
JRST $171
$173==.
PUSH 17,[$$BP90+$$SECT,,$175]
PUSHJ 17,ADVISE
ADJSP 17,-1
$171==.
MOVE 4,0(17)
MOVEM 4,-2(17)
JRST $133
$134==.
MOVE 1,-2(17)
ADJSP 17,-6
POPJ 17,
$175==.
BYTE (9) 102,151,164,167
BYTE (9) 151,163,145,40
BYTE (9) 157,160,145,162
BYTE (9) 141,164,151,157
BYTE (9) 156,40,157,156
BYTE (9) 40,162,145,163
BYTE (9) 165,154,164,40
BYTE (9) 157,146,40,143
BYTE (9) 157,155,160,141
BYTE (9) 162,151,163,157
BYTE (9) 156,40,55,55
BYTE (9) 40,165,163,145
BYTE (9) 40,160,141,162
BYTE (9) 145,156,164,150
BYTE (9) 145,163,145,163
BYTE (9) 0
$167==.
BYTE (9) 102,151,156,141
BYTE (9) 162,171,40,157
BYTE (9) 160,145,162,141
BYTE (9) 156,144,40,143
BYTE (9) 141,156,156,157
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,166
BYTE (9) 157,151,144,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$164==.
BYTE (9) 102,151,164,167
BYTE (9) 151,163,145,40
BYTE (9) 157,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,151
BYTE (9) 156,164,145,147
BYTE (9) 162,141,154,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$162==.
BYTE (9) 123,150,151,146
BYTE (9) 164,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,163,40,155
BYTE (9) 165,163,164,40
BYTE (9) 150,141,166,145
BYTE (9) 40,151,156,164
BYTE (9) 145,147,162,141
BYTE (9) 154,40,164,171
BYTE (9) 160,145,0
$159==.
BYTE (9) 122,145,155,141
BYTE (9) 151,156,144,145
BYTE (9) 162,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,163,40,155
BYTE (9) 165,163,164,40
BYTE (9) 150,141,166,145
BYTE (9) 40,151,156,164
BYTE (9) 145,147,162,141
BYTE (9) 154,40,164,171
BYTE (9) 160,145,0
$157==.
BYTE (9) 115,165,154,164
BYTE (9) 57,144,151,166
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 163,40,155,165
BYTE (9) 163,164,40,150
BYTE (9) 141,166,145,40
BYTE (9) 141,162,151,164
BYTE (9) 150,155,145,164
BYTE (9) 151,143,40,164
BYTE (9) 171,160,145,0
$155==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,157,146,40
BYTE (9) 143,157,155,160
BYTE (9) 141,162,151,163
BYTE (9) 157,156,40,155
BYTE (9) 165,163,164,40
BYTE (9) 150,141,166,145
BYTE (9) 40,163,141,155
BYTE (9) 145,40,164,171
BYTE (9) 160,145,0
$153==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,157,146,40
BYTE (9) 143,157,155,160
BYTE (9) 141,162,151,163
BYTE (9) 157,156,40,155
BYTE (9) 165,163,164,40
BYTE (9) 150,141,166,145
BYTE (9) 40,163,143,141
BYTE (9) 154,141,162,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$149==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,163
BYTE (9) 40,157,146,40
BYTE (9) 46,46,40,157
BYTE (9) 162,40,174,174
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,163
BYTE (9) 143,141,154,141
BYTE (9) 162,40,164,171
BYTE (9) 160,145,0
$146==.
BYTE (9) 142,151,156,141
BYTE (9) 162,171,72,40
BYTE (9) 151,154,154,145
BYTE (9) 147,141,154,40
BYTE (9) 157,160,40,45
BYTE (9) 121,0
%CASTE:
MOVE 4,TOKEN
CAIE 4,23
JRST %UNARY
ADJSP 17,2
PUSHJ 17,NEXTOK
SKIPN 7,CSYMBO
JRST $177
MOVE 3,TOKEN
HLRE 5,TOK(3)
CAIN 5,11
JRST $178
MOVE 4,0(7)
CAIE 4,3
JRST $177
$178==.
PUSHJ 17,TYPENA
MOVEM 1,0(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSHJ 17,%CASTE
PUSH 17,1
PUSHJ 17,CONVAR
MOVEM 1,0(17)
PUSH 17,-1(17)
PUSHJ 17,CONVCA
MOVEI 4,400
IORB 4,2(1)
ADJSP 17,-4
POPJ 17,
$177==.
PUSH 17,[0]
PUSH 17,[23]
PUSHJ 17,TOKPUS
ADJSP 17,-4
JRST %UNARY
%UNARY:
ADJSP 17,2
MOVE 4,TOKEN
MOVM 5,4
IDIVI 5,17
CAME 4,$190(6)
JRST $180
JRST @$191(6)
$190==.
36
-1
57
-1
61
62
-1
103
-1
66
-1
-1
71
72
35
$191==.
IFIW $183
IFIW $180
IFIW $181
IFIW $180
IFIW $184
IFIW $185
IFIW $180
IFIW $188
IFIW $180
IFIW $189
IFIW $180
IFIW $180
IFIW $186
IFIW $187
IFIW $182
$180==.
ADJSP 17,-2
JRST %POSTE
$181==.
ADJSP 17,-2
JRST %SIZEE
$182==.
PUSHJ 17,NEXTOK
PUSH 17,[55]
PUSHJ 17,%UNARY
PUSH 17,1
PUSHJ 17,%PINCD
ADJSP 17,-4
POPJ 17,
$183==.
PUSHJ 17,NEXTOK
PUSH 17,[56]
PUSHJ 17,%UNARY
PUSH 17,1
PUSHJ 17,%PINCD
ADJSP 17,-4
POPJ 17,
$184==.
MOVEI 3,61
MOVEM 3,0(17)
JRST $179
$185==.
MOVEI 3,62
MOVEM 3,0(17)
JRST $179
$186==.
MOVEI 3,71
MOVEM 3,0(17)
JRST $179
$187==.
MOVEI 3,63
MOVEM 3,0(17)
JRST $179
$188==.
MOVEI 3,64
MOVEM 3,0(17)
JRST $179
$189==.
MOVEI 3,65
MOVEM 3,0(17)
$179==.
PUSHJ 17,NEXTOK
PUSHJ 17,%CASTE
MOVEM 1,-1(17)
MOVE 3,1(1)
SKIPE 4,0(3)
JRST $192
PUSH 17,[$$BP90+$$SECT,,$193]
PUSHJ 17,ERROR
ADJSP 17,-1
$192==.
MOVE 4,0(17)
CAIL 4,55
CAIL 4,72
JRST $194
JRST @$202*1-55(4)
$202==.
IFIW $195
IFIW $195
IFIW $194
IFIW $194
IFIW $196
IFIW $197
IFIW $199
IFIW $200
IFIW $201
IFIW $194
IFIW $194
IFIW $194
IFIW $198
$195==.
PUSH 17,0(17)
PUSH 17,-2(17)
PUSHJ 17,%PINCD
ADJSP 17,-2
MOVEM 1,-1(17)
JRST $194
$196==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,10000
JRST $203
PUSH 17,[$$BP90+$$SECT,,$204]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$203==.
PUSH 17,-1(17)
PUSHJ 17,CONVUN
MOVEM 1,-2(17)
SETZB 3,0(17)
PUSH 17,1
PUSH 17,3
PUSH 17,1(1)
PUSH 17,-4(17)
PUSHJ 17,NDEF
ADJSP 17,-7
POPJ 17,
$197==.
PUSH 17,-1(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVEM 1,-1(17)
MOVE 3,1(1)
MOVE 4,1(3)
TRNE 4,70000
JRST $205
PUSH 17,[$$BP90+$$SECT,,$206]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$205==.
PUSH 17,[0]
PUSH 17,-2(17)
PUSH 17,[0]
PUSH 17,TYPEPT*1+15
PUSH 17,-4(17)
PUSHJ 17,NDEF
ADJSP 17,-7
POPJ 17,
$198==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,30000
JRST $207
PUSH 17,[$$BP90+$$SECT,,$208]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$207==.
PUSH 17,-1(17)
PUSHJ 17,CONVUN
ADJSP 17,-3
POPJ 17,
$199==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,30000
JRST $209
PUSH 17,[$$BP90+$$SECT,,$210]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$209==.
PUSH 17,-1(17)
PUSHJ 17,CONVUN
MOVEM 1,-2(17)
SETZB 3,0(17)
PUSH 17,1
PUSH 17,3
PUSH 17,1(1)
PUSH 17,-4(17)
PUSHJ 17,NDEF
ADJSP 17,-7
POPJ 17,
$200==.
MOVE 7,-1(17)
MOVE 4,1(7)
MOVE 5,0(4)
SOJE 5,$212
MOVE 3,0(4)
CAIE 3,2
JRST $211
$212==.
SKIPL 4,CLEVEL
CAIL 4,4
JRST $213
JRST @$216(4)
$216==.
IFIW $213
IFIW $214
IFIW $214
IFIW $215
$213==.
PUSH 17,[$$BP90+$$SECT,,$217]
PUSHJ 17,ERROR
ADJSP 17,-1
PUSH 17,-1(17)
PUSHJ 17,CONVAR
ADJSP 17,-3
POPJ 17,
$214==.
PUSH 17,[$$BP90+$$SECT,,$218]
PUSHJ 17,WARN
ADJSP 17,-1
PUSH 17,-1(17)
PUSHJ 17,CONVAR
ADJSP 17,-3
POPJ 17,
$215==.
MOVE 7,-1(17)
MOVE 3,1(7)
MOVE 5,0(3)
SOJN 5,$211
PUSH 17,7
PUSHJ 17,CONVAR
ADJSP 17,-3
POPJ 17,
$211==.
MOVE 4,-1(17)
MOVE 3,2(4)
TRNE 3,1
JRST $219
PUSH 17,[$$BP90+$$SECT,,$220]
PUSHJ 17,ERROR
ADJSP 17,-1
$219==.
MOVE 10,-1(17)
MOVE 3,0(10)
CAIE 3,37
JRST $221
MOVE 6,3(10)
MOVE 4,0(6)
CAIE 4,23
CAIN 4,21
TRNA
JRST $221
PUSH 17,[$$BP90+$$SECT,,$223]
PUSHJ 17,WARN
ADJSP 17,-1
$221==.
PUSH 17,[0]
PUSH 17,-2(17)
PUSH 17,[0]
MOVE 4,-4(17)
PUSH 17,1(4)
PUSH 17,[64]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-1(17)
MOVE 3,4(1)
MOVE 4,2(3)
TRNE 4,4
JRST $224
AOS 5,STACKR
MOVEI 7,10
IORB 7,2(1)
$224==.
MOVE 4,-1(17)
PUSH 17,1(4)
PUSH 17,[5]
PUSHJ 17,FINDTY
ADJSP 17,-2
MOVE 4,-1(17)
MOVEM 1,1(4)
JRST $194
$201==.
PUSH 17,-1(17)
PUSHJ 17,%PTRAP
ADJSP 17,-3
POPJ 17,
$194==.
MOVE 1,-1(17)
ADJSP 17,-2
POPJ 17,
$223==.
BYTE (9) 46,40,141,160
BYTE (9) 160,154,151,145
BYTE (9) 144,40,164,157
BYTE (9) 40,162,145,147
BYTE (9) 151,163,164,145
BYTE (9) 162,40,166,141
BYTE (9) 162,151,141,142
BYTE (9) 154,145,0
$220==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,46
BYTE (9) 40,155,165,163
BYTE (9) 164,40,142,145
BYTE (9) 40,154,166,141
BYTE (9) 154,165,145,0
$218==.
BYTE (9) 46,40,141,160
BYTE (9) 160,154,151,145
BYTE (9) 144,40,164,157
BYTE (9) 40,141,162,162
BYTE (9) 141,171,40,157
BYTE (9) 162,40,146,165
BYTE (9) 156,143,164,151
BYTE (9) 157,156,0
$217==.
BYTE (9) 46,40,141,160
BYTE (9) 160,154,151,145
BYTE (9) 144,40,164,157
BYTE (9) 40,141,162,162
BYTE (9) 141,171,40,157
BYTE (9) 162,40,146,165
BYTE (9) 156,143,164,151
BYTE (9) 157,156,0
$210==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,55
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,141
BYTE (9) 162,151,164,150
BYTE (9) 155,145,164,151
BYTE (9) 143,40,164,171
BYTE (9) 160,145,0
$208==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,53
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,141
BYTE (9) 162,151,164,150
BYTE (9) 155,145,164,151
BYTE (9) 143,40,164,171
BYTE (9) 160,145,0
$206==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,41
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,163
BYTE (9) 143,141,154,141
BYTE (9) 162,40,164,171
BYTE (9) 160,145,0
$204==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,176
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,151
BYTE (9) 156,164,145,147
BYTE (9) 162,141,154,40
BYTE (9) 164,171,160,145
BYTE (9) 0
$193==.
BYTE (9) 125,156,141,162
BYTE (9) 171,40,157,160
BYTE (9) 145,162,141,156
BYTE (9) 144,40,143,141
BYTE (9) 156,156,157,164
BYTE (9) 40,150,141,166
BYTE (9) 145,40,166,157
BYTE (9) 151,144,40,164
BYTE (9) 171,160,145,0
%PTRAP:
PUSH 17,-1(17)
PUSHJ 17,CONVUN
ADJSP 17,-1
MOVEM 1,-1(17)
MOVE 3,1(1)
MOVE 4,0(3)
CAIN 4,5
JRST $225
PUSH 17,[$$BP90+$$SECT,,$226]
PUSHJ 17,ERROR
ADJSP 17,-1
MOVE 4,-1(17)
PUSH 17,1(4)
PUSH 17,[5]
PUSHJ 17,FINDTY
ADJSP 17,-2
MOVE 4,-1(17)
MOVEM 1,1(4)
$225==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,3(3)
SKIPE 6,0(5)
JRST $227
PUSH 17,[$$BP90+$$SECT,,$228]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-1
POPJ 17,
$227==.
PUSH 17,[0]
PUSH 17,-2(17)
PUSH 17,[0]
MOVE 4,-4(17)
MOVE 3,1(4)
PUSH 17,3(3)
PUSH 17,[65]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-1(17)
MOVE 3,4(1)
MOVE 4,2(3)
TRNN 4,10
SKIPA 7,[4]
SOSA 5,STACKR
IORB 7,2(1)
MOVE 6,1(1)
MOVE 10,0(6)
SOJE 10,$231
MOVEI 12,1
IORB 12,2(1)
$231==.
MOVE 1,-1(17)
POPJ 17,
$228==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,52
BYTE (9) 40,143,141,156
BYTE (9) 156,157,164,40
BYTE (9) 142,145,40,160
BYTE (9) 164,162,40,164
BYTE (9) 157,40,166,157
BYTE (9) 151,144,0
$226==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,52
BYTE (9) 40,155,165,163
BYTE (9) 164,40,150,141
BYTE (9) 166,145,40,160
BYTE (9) 157,151,156,164
BYTE (9) 145,162,40,164
BYTE (9) 171,160,145,0
%SIZEE:
ADJSP 17,3
PUSH 17,SIZTYP
PUSH 17,[41]
PUSHJ 17,NDEFT
ADJSP 17,-2
MOVEM 1,-1(17)
SETZB 3,-2(17)
PUSHJ 17,NEXTOK
CAIE 1,23
JRST $232
PUSHJ 17,NEXTOK
SKIPN 7,CSYMBO
JRST $233
MOVE 3,TOKEN
HLRE 5,TOK(3)
CAIN 5,11
JRST $234
MOVE 4,0(7)
CAIE 4,3
JRST $233
$234==.
PUSHJ 17,TYPENA
MOVEM 1,-2(17)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
JRST $232
$233==.
PUSH 17,[0]
PUSH 17,[23]
PUSHJ 17,TOKPUS
ADJSP 17,-2
$232==.
SKIPE 4,-2(17)
JRST $235
PUSHJ 17,%UNARY
MOVEM 1,0(17)
MOVE 3,1(1)
MOVEM 3,-2(17)
MOVE 4,0(1)
CAIE 4,43
JRST $235
MOVE 5,4(1)
MOVE 1,-1(17)
MOVEM 5,3(1)
ADJSP 17,-3
POPJ 17,
$235==.
MOVE 5,-1(17)
SETZB 3,3(5)
MOVE 6,-2(17)
SKIPL 4,0(6)
CAIL 4,21
JRST $243
JRST @$244(4)
$244==.
IFIW $237
IFIW $238
IFIW $239
IFIW $240
IFIW $240
IFIW $243
IFIW $243
IFIW $243
IFIW $243
IFIW $243
IFIW $242
IFIW $241
IFIW $243
IFIW $243
IFIW $243
IFIW $242
IFIW $241
$237==.
PUSH 17,[$$BP90+$$SECT,,$245]
PUSHJ 17,WARN
ADJSP 17,-1
JRST $236
$238==.
PUSH 17,[$$BP90+$$SECT,,$246]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $236
$239==.
MOVE 4,-2(17)
SKIPE 3,2(4)
JRST $247
PUSH 17,[$$BP90+$$SECT,,$248]
PUSHJ 17,ERROR
ADJSP 17,-1
MOVE 5,-1(17)
SETZB 3,3(5)
JRST $236
$247==.
PUSH 17,-2(17)
PUSHJ 17,TISCHA
ADJSP 17,-1
JUMPE 1,$240
PUSH 17,-2(17)
PUSHJ 17,SIZEAR
ADJSP 17,-1
MOVE 4,-1(17)
MOVEM 1,3(4)
JRST $236
$240==.
PUSH 17,-2(17)
PUSHJ 17,SIZETY
ADJSP 17,-1
ASH 1,2
MOVE 4,-1(17)
MOVEM 1,3(4)
JRST $236
$241==.
MOVEI 3,1
MOVE 5,-1(17)
MOVEM 3,3(5)
JRST $236
$242==.
PUSH 17,[$$BP90+$$SECT,,$249]
PUSHJ 17,WARN
ADJSP 17,-1
$243==.
MOVE 6,-2(17)
MOVE 3,1(6)
TRNE 3,70000
JRST $250
PUSH 17,0(6)
PUSH 17,[$$BP90+$$SECT,,$251]
PUSHJ 17,INT.ER
ADJSP 17,-2
$250==.
MOVE 4,-2(17)
MOVE 3,1(4)
ANDI 3,777
ADDI 3,10
IDIVI 3,11
MOVE 6,-1(17)
MOVEM 3,3(6)
$236==.
MOVE 1,-1(17)
ADJSP 17,-3
POPJ 17,
$251==.
BYTE (9) 163,151,172,145
BYTE (9) 145,170,160,162
BYTE (9) 72,40,151,156
BYTE (9) 166,141,154,151
BYTE (9) 144,40,164,171
BYTE (9) 160,145,72,40
BYTE (9) 45,144,0
$249==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,163
BYTE (9) 151,172,145,157
BYTE (9) 146,40,150,141
BYTE (9) 163,40,142,151
BYTE (9) 164,146,151,145
BYTE (9) 154,144,40,164
BYTE (9) 171,160,145,0
$248==.
BYTE (9) 123,151,172,145
BYTE (9) 40,157,146,40
BYTE (9) 141,162,162,141
BYTE (9) 171,40,156,157
BYTE (9) 164,40,153,156
BYTE (9) 157,167,156,0
$246==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,163
BYTE (9) 151,172,145,157
BYTE (9) 146,40,150,141
BYTE (9) 163,40,146,165
BYTE (9) 156,143,164,151
BYTE (9) 157,156,40,164
BYTE (9) 171,160,145,0
$245==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,163
BYTE (9) 151,172,145,157
BYTE (9) 146,40,150,141
BYTE (9) 163,40,166,157
BYTE (9) 151,144,40,164
BYTE (9) 171,160,145,0
%%DATA
$252: 0
%%CODE
%POSTE:
ADJSP 17,13
PUSHJ 17,%PRIMA
MOVEM 1,-10(17)
$253==.
MOVE 4,TOKEN
MOVM 5,4
IDIVI 5,11
CAME 4,$260(6)
JRST $259
JRST @$261(6)
$260==.
-1
23
35
36
26
51
52
-1
-1
$261==.
IFIW $259
IFIW $255
IFIW $258
IFIW $258
IFIW $256
IFIW $257
IFIW $257
IFIW $259
IFIW $259
$255==.
MOVE 7,-10(17)
MOVE 10,1(7)
MOVEM 10,-7(17)
MOVE 4,0(7)
CAIN 4,37
SKIPA 5,3(7)
SETZ 5,
MOVEM 5,-5(17)
MOVE 3,0(10)
CAIN 3,5
JRST $265
CAIE 3,1
JRST $266
JRST $264
$265==.
SETZB 3,-5(17)
MOVE 5,-7(17)
MOVE 4,3(5)
MOVE 6,0(4)
SOJN 6,$266
MOVE 10,CLEVEL
SOJG 10,$267
PUSH 17,[$$BP90+$$SECT,,$268]
PUSHJ 17,WARN
ADJSP 17,-1
$267==.
MOVE 4,-7(17)
MOVE 3,3(4)
MOVEM 3,-7(17)
MOVE 10,-10(17)
MOVE 5,0(10)
CAIE 5,64
JRST $269
MOVE 12,4(10)
MOVEM 12,-10(17)
MOVE 6,0(12)
CAIN 6,37
SKIPA 7,3(12)
SETZ 7,
MOVEM 7,-5(17)
JRST $264
$269==.
PUSH 17,[0]
PUSH 17,-11(17)
PUSH 17,[0]
PUSH 17,-12(17)
PUSH 17,[65]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-10(17)
JRST $264
$266==.
PUSH 17,[$$BP90+$$SECT,,$272]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSH 17,-10(17)
PUSHJ 17,FINDFT
MOVEM 1,-11(17)
MOVEM 1,-1(17)
ADJSP 17,-1
PUSH 17,[40]
PUSHJ 17,NDEFT
ADJSP 17,-2
MOVEM 1,-10(17)
$264==.
PUSH 17,[0]
PUSH 17,-11(17)
PUSH 17,[0]
MOVE 4,-12(17)
PUSH 17,3(4)
PUSH 17,[50]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-10(17)
PUSH 17,1(1)
PUSHJ 17,SIZETY
ADJSP 17,-1
CAIG 1,2
JRST $274
MOVE 7,-10(17)
MOVE 4,1(7)
MOVE 3,0(4)
CAIE 3,3
CAIN 3,4
JRST $275
PUSH 17,[$$BP90+$$SECT,,$276]
PUSHJ 17,INT.ER
ADJSP 17,-1
$275==.
AOS 3,$252
PUSH 17,3
PUSH 17,[74]
PUSH 17,[$$BP90+$$SECT,,$277]
XMOVEI 4,-7(17)
TLO 4,$$BP90
PUSH 17,4
PUSHJ 17,SPRINT
ADJSP 17,-4
MOVE 4,-10(17)
PUSH 17,1(4)
XMOVEI 3,-5(17)
TLO 3,$$BP90
PUSH 17,3
PUSHJ 17,DEFAUT
ADJSP 17,-2
MOVE 4,-10(17)
MOVEM 1,3(4)
JRST $273
$274==.
MOVE 5,-10(17)
SETZB 3,3(5)
$273==.
PUSH 17,-7(17)
PUSH 17,-6(17)
PUSHJ 17,%PARGL
ADJSP 17,-2
MOVE 4,-10(17)
MOVEM 1,5(4)
JRST $253
$256==.
PUSHJ 17,NEXTOK
PUSH 17,-10(17)
PUSHJ 17,%EXPRE
PUSH 17,1
PUSH 17,[71]
PUSHJ 17,NDEFLR
MOVEM 1,-13(17)
MOVEM 1,-2(17)
ADJSP 17,-2
PUSH 17,[71]
PUSHJ 17,%CHKAD
ADJSP 17,-2
MOVEM 1,-10(17)
MOVE 5,1(1)
MOVEM 5,-7(17)
MOVE 3,0(5)
CAIN 3,5
JRST $278
PUSH 17,[$$BP90+$$SECT,,$279]
PUSHJ 17,ERROR
ADJSP 17,-1
$278==.
PUSH 17,[27]
PUSHJ 17,EXPECT
ADJSP 17,-1
MOVE 10,-10(17)
MOVE 3,4(10)
MOVE 5,2(3)
MOVE 4,5(10)
IOR 5,2(4)
ANDI 5,14
MOVEM 5,2(10)
MOVE 13,-7(17)
MOVE 7,3(13)
MOVE 11,0(7)
CAIE 11,2
JRST $280
MOVE 12,-10(17)
MOVEM 7,1(12)
MOVNI 14,2
MOVE 3,-10(17)
ANDB 14,2(3)
JRST $253
$280==.
PUSH 17,-10(17)
PUSHJ 17,%PTRAP
ADJSP 17,-1
MOVEM 1,-10(17)
JRST $253
$257==.
MOVE 4,TOKEN
MOVEM 4,-12(17)
PUSH 17,-10(17)
PUSHJ 17,CONVAR
ADJSP 17,-1
MOVEM 1,-10(17)
MOVE 7,1(1)
MOVEM 7,-7(17)
MOVE 5,-12(17)
CAIE 5,52
JRST $282
MOVE 3,0(7)
CAIE 3,5
JRST $283
MOVE 11,3(7)
MOVEM 11,-7(17)
JUMPE 11,$283
MOVE 6,0(11)
CAIE 6,3
CAIN 6,4
JRST $281
$283==.
PUSH 17,[$$BP90+$$SECT,,$284]
PUSHJ 17,ERROR
ADJSP 17,-1
MOVE 4,-10(17)
MOVE 7,1(4)
MOVEM 7,-7(17)
MOVE 3,0(7)
CAIL 3,3
CAILE 3,4
JRST $285
MOVEI 5,51
MOVEM 5,-12(17)
JRST $281
$285==.
SETZB 3,-7(17)
JRST $281
$282==.
MOVE 6,-7(17)
MOVE 4,0(6)
CAIE 4,3
CAIN 4,4
JRST $281
PUSH 17,[$$BP90+$$SECT,,$287]
PUSHJ 17,ERROR
ADJSP 17,-1
MOVE 6,-7(17)
MOVE 3,0(6)
CAIE 3,5
JRST $288
MOVE 10,3(6)
MOVEM 10,-7(17)
JUMPE 10,$288
MOVE 5,0(10)
CAIL 5,3
CAILE 5,4
JRST $288
MOVEI 4,52
MOVEM 4,-12(17)
JRST $281
$288==.
SETZB 3,-7(17)
$281==.
PUSHJ 17,NEXTOK
CAIN 1,37
JRST $290
PUSH 17,[$$BP90+$$SECT,,$291]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $253
$290==.
SKIPE 3,-7(17)
MOVE 3,3(3)
PUSH 17,3
PUSH 17,CSYMBO
PUSHJ 17,SYMFME
ADJSP 17,-2
MOVEM 1,-5(17)
JUMPN 1,$295
PUSH 17,CSYMBO
PUSH 17,[$$BP90+$$SECT,,$296]
PUSHJ 17,ERROR
ADJSP 17,-2
SETZB 3,-11(17)
MOVE 4,TYPEPT*1+15
MOVEM 4,-6(17)
JRST $294
$295==.
MOVE 6,-5(17)
MOVE 3,12(6)
MOVEM 3,-11(17)
MOVE 4,13(6)
MOVEM 4,-6(17)
$294==.
MOVE 6,CSYMBO
SKIPE 3,0(6)
JRST $297
PUSH 17,6
PUSHJ 17,FREESY
ADJSP 17,-1
$297==.
SKIPN 6,-7(17)
JRST $298
MOVE 4,1(6)
TRNN 4,3000
JRST $298
ANDI 4,3000
PUSH 17,4
PUSH 17,-7(17)
PUSHJ 17,FINDQT
ADJSP 17,-2
MOVEM 1,-6(17)
$298==.
PUSH 17,[0]
PUSH 17,-11(17)
MOVE 4,-12(17)
PUSH 17,2(4)
PUSH 17,-11(17)
PUSH 17,-16(17)
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-10(17)
MOVE 4,-11(17)
MOVEM 4,3(1)
MOVE 5,-12(17)
CAIE 5,52
JRST $299
MOVEI 6,1
MOVE 10,-10(17)
IORB 6,2(10)
MOVE 13,-10(17)
MOVE 3,2(13)
TRNN 3,10
JRST $300
SOS 11,STACKR
MOVNI 7,11
ANDB 7,2(13)
JRST $299
$300==.
MOVEI 4,4
MOVE 6,-10(17)
IORB 4,2(6)
$299==.
PUSHJ 17,NEXTOK
JRST $253
$258==.
MOVE 4,TOKEN
CAIN 4,35
SKIPA 3,[53]
MOVEI 3,54
PUSH 17,3
PUSH 17,-11(17)
PUSHJ 17,%PINCD
ADJSP 17,-2
MOVEM 1,-10(17)
PUSHJ 17,NEXTOK
JRST $253
$259==.
MOVE 1,-10(17)
ADJSP 17,-13
POPJ 17,
$296==.
BYTE (9) 125,156,153,156
BYTE (9) 157,167,156,40
BYTE (9) 163,164,162,165
BYTE (9) 143,164,57,165
BYTE (9) 156,151,157,156
BYTE (9) 40,143,157,155
BYTE (9) 160,157,156,145
BYTE (9) 156,164,40,45
BYTE (9) 123,0
$291==.
BYTE (9) 123,164,162,165
BYTE (9) 143,164,40,157
BYTE (9) 162,40,165,156
BYTE (9) 151,157,156,40
BYTE (9) 155,145,155,142
BYTE (9) 145,162,40,145
BYTE (9) 170,160,145,143
BYTE (9) 164,145,144,0
$287==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 56,40,155,165
BYTE (9) 163,164,40,142
BYTE (9) 145,40,163,164
BYTE (9) 162,165,143,164
BYTE (9) 40,157,162,40
BYTE (9) 165,156,151,157
BYTE (9) 156,0
$284==.
BYTE (9) 114,145,146,164
BYTE (9) 40,157,160,145
BYTE (9) 162,141,156,144
BYTE (9) 40,157,146,40
BYTE (9) 55,76,40,155
BYTE (9) 165,163,164,40
BYTE (9) 142,145,40,160
BYTE (9) 157,151,156,164
BYTE (9) 145,162,40,164
BYTE (9) 157,40,163,164
BYTE (9) 162,165,143,164
BYTE (9) 40,157,162,40
BYTE (9) 165,156,151,157
BYTE (9) 156,0
$279==.
BYTE (9) 101,162,162,141
BYTE (9) 171,40,157,162
BYTE (9) 40,160,157,151
BYTE (9) 156,164,145,162
BYTE (9) 40,164,171,160
BYTE (9) 145,40,162,145
BYTE (9) 161,165,151,162
BYTE (9) 145,144,0
$277==.
BYTE (9) 45,143,163,164
BYTE (9) 162,165,143,164
BYTE (9) 45,144,0
$276==.
BYTE (9) 160,157,163,164
BYTE (9) 145,170,160,162
BYTE (9) 72,40,106,156
BYTE (9) 40,162,145,164
BYTE (9) 166,141,154,40
BYTE (9) 164,157,157,40
BYTE (9) 154,141,162,147
BYTE (9) 145,0
$272==.
BYTE (9) 103,141,154,154
BYTE (9) 40,164,157,40
BYTE (9) 156,157,156,55
BYTE (9) 146,165,156,143
BYTE (9) 164,151,157,156
BYTE (9) 0
$268==.
BYTE (9) 101,163,163,165
BYTE (9) 155,151,156,147
BYTE (9) 40,160,164,162
BYTE (9) 40,164,157,40
BYTE (9) 146,165,156,143
BYTE (9) 164,151,157,156
BYTE (9) 40,151,163,40
BYTE (9) 146,165,156,143
BYTE (9) 164,151,157,156
BYTE (9) 0
%PINCD:
MOVE 4,-1(17)
MOVE 3,2(4)
TRNE 3,1
JRST $304
PUSH 17,[$$BP90+$$SECT,,$305]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $303
$304==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNE 5,70000
JRST $306
PUSH 17,[$$BP90+$$SECT,,$307]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $303
$306==.
MOVE 4,-1(17)
MOVE 3,1(4)
MOVE 5,1(3)
TRNN 5,1000
JRST $308
PUSH 17,[$$BP90+$$SECT,,$309]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $303
$308==.
MOVE 7,-1(17)
MOVE 4,1(7)
MOVE 5,0(4)
CAIE 5,5
JRST $310
MOVE 3,3(4)
SKIPE 6,0(3)
JRST $310
PUSH 17,[$$BP90+$$SECT,,$311]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $303
$310==.
PUSH 17,[0]
PUSH 17,-2(17)
PUSH 17,[0]
MOVE 4,-4(17)
PUSH 17,1(4)
PUSH 17,-6(17)
PUSHJ 17,NDEF
ADJSP 17,-5
POPJ 17,
$303==.
PUSH 17,[0]
PUSHJ 17,NDEFIC
ADJSP 17,-1
POPJ 17,
$311==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,53
BYTE (9) 53,40,157,162
BYTE (9) 40,55,55,40
BYTE (9) 143,141,156,156
BYTE (9) 157,164,40,142
BYTE (9) 145,40,160,164
BYTE (9) 162,40,164,157
BYTE (9) 40,166,157,151
BYTE (9) 144,0
$309==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,53
BYTE (9) 53,40,157,162
BYTE (9) 40,55,55,40
BYTE (9) 143,141,156,156
BYTE (9) 157,164,40,142
BYTE (9) 145,40,143,157
BYTE (9) 156,163,164,55
BYTE (9) 161,165,141,154
BYTE (9) 151,146,151,145
BYTE (9) 144,0
$307==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,53
BYTE (9) 53,40,157,162
BYTE (9) 40,55,55,40
BYTE (9) 155,165,163,164
BYTE (9) 40,150,141,166
BYTE (9) 145,40,163,143
BYTE (9) 141,154,141,162
BYTE (9) 40,164,171,160
BYTE (9) 145,0
$305==.
BYTE (9) 117,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 157,146,40,53
BYTE (9) 53,40,157,162
BYTE (9) 40,55,55,40
BYTE (9) 155,165,163,164
BYTE (9) 40,142,145,40
BYTE (9) 154,166,141,154
BYTE (9) 165,145,0
%PRIMA:
ADJSP 17,24
MOVE 4,TOKEN
MOVM 5,4
IDIVI 5,16
CAME 4,$321(6)
JRST $320
JRST @$322(6)
$321==.
16
-1
-1
37
-1
23
-1
-1
-1
171
172
13
14
15
$322==.
IFIW $316
IFIW $320
IFIW $320
IFIW $313
IFIW $320
IFIW $317
IFIW $320
IFIW $320
IFIW $320
IFIW $318
IFIW $319
IFIW $314
IFIW $315
IFIW $314
$313==.
MOVE 4,CSYMBO
MOVEM 4,-22(17)
PUSHJ 17,NEXTOK
MOVE 6,-22(17)
SKIPN 3,0(6)
JRST $324
CAIE 3,7
JRST $325
PUSH 17,12(6)
PUSHJ 17,NDEFIC
ADJSP 17,-25
POPJ 17,
$324==.
MOVE 4,TOKEN
CAIN 4,23
JRST $326
PUSH 17,-22(17)
PUSH 17,[$$BP90+$$SECT,,$327]
PUSHJ 17,ERROR
ADJSP 17,-2
PUSH 17,-22(17)
PUSHJ 17,FREESY
ADJSP 17,-1
PUSH 17,TYPEPT*1+15
PUSH 17,[40]
PUSHJ 17,NDEFT
ADJSP 17,-26
POPJ 17,
$326==.
PUSH 17,-22(17)
PUSH 17,[$$BP90+$$SECT,,$328]
PUSHJ 17,NOTE
MOVEI 3,11
MOVEM 3,-23(17)
SETZB 16,-1(17)
ADJSP 17,-1
PUSH 17,TYPEPT*1+15
PUSHJ 17,FINDFT
ADJSP 17,-2
MOVEM 1,-6(17)
PUSH 17,-22(17)
XMOVEI 3,-22(17)
PUSH 17,3
PUSH 17,[11]
PUSH 17,[0]
PUSHJ 17,FUNCHK
ADJSP 17,-4
MOVEM 1,-22(17)
AOS 3,20(1)
$325==.
PUSH 17,-22(17)
PUSHJ 17,NDEFID
ADJSP 17,-1
MOVEM 1,-23(17)
MOVE 6,-22(17)
MOVE 4,0(6)
CAIE 4,22
CAIN 4,23
JRST $329
CAIE 4,20
CAIN 4,21
JRST $329
MOVEI 5,4
IORB 5,2(1)
$329==.
MOVE 7,-23(17)
MOVE 3,1(7)
MOVE 5,0(3)
SOJE 5,$312
MOVEI 4,1
IORB 4,2(7)
JRST $312
$314==.
PUSH 17,CONSTA
PUSH 17,[41]
PUSHJ 17,NDEFT
ADJSP 17,-2
MOVEM 1,-23(17)
MOVE 4,CONSTA*1+1
MOVEM 4,3(1)
PUSHJ 17,NEXTOK
JRST $312
$315==.
PUSH 17,CONSTA
PUSH 17,[42]
PUSHJ 17,NDEFT
ADJSP 17,-2
MOVEM 1,-23(17)
MOVE 4,CONSTA
MOVE 3,0(4)
CAIN 3,11
JRST $333
CAIN 3,10
JRST $332
CAIE 3,7
JRST $330
MOVE 6,CONSTA*1+1
SETZ 7,
DMOVEM 6,3(1)
JRST $330
$332==.
DMOVE 4,CONSTA*1+1
MOVE 6,-23(17)
DMOVEM 4,3(6)
JRST $330
$333==.
DMOVE 4,CONSTA*1+1
MOVE 6,-23(17)
DMOVEM 4,3(6)
$330==.
PUSHJ 17,NEXTOK
JRST $312
$316==.
PUSH 17,CONSTA
PUSH 17,[43]
PUSHJ 17,NDEFT
ADJSP 17,-2
MOVEM 1,-23(17)
MOVE 4,CONSTA*1+1
MOVEM 4,3(1)
MOVE 5,CONSTA*1+2
MOVE 6,-23(17)
MOVEM 5,4(6)
PUSHJ 17,NEXTOK
JRST $312
$317==.
PUSHJ 17,NEXTOK
PUSHJ 17,%EXPRE
MOVEM 1,-23(17)
MOVEI 4,20
IORB 4,2(1)
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
JRST $312
$318==.
PUSHJ 17,%BIN.A
ADJSP 17,-24
POPJ 17,
$319==.
PUSHJ 17,%BIN.O
ADJSP 17,-24
POPJ 17,
$320==.
PUSH 17,[$$BP90+$$SECT,,$334]
PUSHJ 17,ERROR
ADJSP 17,-1
PUSH 17,TYPEPT*1+15
PUSH 17,[40]
PUSHJ 17,NDEFT
ADJSP 17,-26
POPJ 17,
$312==.
MOVE 1,-23(17)
ADJSP 17,-24
POPJ 17,
$334==.
BYTE (9) 120,162,151,155
BYTE (9) 141,162,171,40
BYTE (9) 145,170,160,162
BYTE (9) 40,145,170,160
BYTE (9) 145,143,164,145
BYTE (9) 144,0
$328==.
BYTE (9) 103,141,154,154
BYTE (9) 40,164,157,40
BYTE (9) 165,156,144,145
BYTE (9) 143,154,141,162
BYTE (9) 145,144,40,146
BYTE (9) 165,156,143,164
BYTE (9) 151,157,156,40
BYTE (9) 45,123,0
$327==.
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) 72,40,45,123
BYTE (9) 0
%BIN.A:
PUSHJ 17,NEXTOK
CAIN 1,23
JRST $335
PUSH 17,[$$BP90+$$SECT,,$336]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST %PRIMA
$335==.
ADJSP 17,1
PUSH 17,[0]
PUSH 17,[0]
PUSHJ 17,%PARGL
ADJSP 17,-2
MOVEM 1,0(17)
JUMPE 1,$338
SKIPE 3,4(1)
JRST $338
PUSH 17,5(1)
PUSHJ 17,EVALEX
ADJSP 17,-1
MOVEM 1,0(17)
JUMPE 1,$338
MOVE 3,0(1)
CAIN 3,43
JRST $337
$338==.
PUSH 17,[$$BP90+$$SECT,,$339]
PUSHJ 17,ERROR
ADJSP 17,-1
$337==.
PUSH 17,[0]
PUSH 17,-1(17)
PUSH 17,[0]
PUSH 17,TYPEPT
PUSH 17,[171]
PUSHJ 17,NDEF
ADJSP 17,-6
POPJ 17,
$339==.
BYTE (9) 101,162,147,40
BYTE (9) 164,157,40,42
BYTE (9) 141,163,155,42
BYTE (9) 40,155,165,163
BYTE (9) 164,40,142,145
BYTE (9) 40,141,40,163
BYTE (9) 151,156,147,154
BYTE (9) 145,40,163,164
BYTE (9) 162,151,156,147
BYTE (9) 40,154,151,164
BYTE (9) 145,162,141,154
BYTE (9) 0
$336==.
BYTE (9) 102,141,144,40
BYTE (9) 163,171,156,164
BYTE (9) 141,170,40,146
BYTE (9) 157,162,40,42
BYTE (9) 141,163,155,42
BYTE (9) 40,55,40,156
BYTE (9) 157,40,154,145
BYTE (9) 146,164,40,160
BYTE (9) 141,162,145,156
BYTE (9) 0
%BIN.O:
ADJSP 17,4
SETZB 3,0(17)
PUSHJ 17,NEXTOK
CAIN 1,23
JRST $340
PUSH 17,[$$BP90+$$SECT,,$341]
PUSHJ 17,ERROR
ADJSP 17,-5
JRST %PRIMA
$340==.
PUSHJ 17,NEXTOK
PUSHJ 17,TYPENA
MOVEM 1,-1(17)
MOVE 3,0(1)
CAIN 3,3
JRST $342
PUSH 17,[$$BP90+$$SECT,,$343]
PUSHJ 17,ERROR
ADJSP 17,-1
SETZB 3,-1(17)
$342==.
MOVE 4,TOKEN
CAIE 4,33
JRST $346
PUSHJ 17,NEXTOK
CAIN 1,37
JRST $345
$346==.
PUSH 17,[$$BP90+$$SECT,,$347]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $344
$345==.
SKIPN 5,-1(17)
JRST $348
PUSH 17,3(5)
PUSH 17,CSYMBO
PUSHJ 17,SYMFME
ADJSP 17,-2
JRST $349
$348==.
SETZ 1,
$349==.
MOVEM 1,-3(17)
JUMPN 1,$351
PUSH 17,CSYMBO
PUSH 17,[$$BP90+$$SECT,,$352]
PUSHJ 17,ERROR
ADJSP 17,-2
JRST $350
$351==.
MOVE 6,-3(17)
SOS 3,20(6)
MOVE 4,13(6)
MOVE 5,1(4)
TRNN 5,400000
JRST $353
PUSH 17,[$$BP90+$$SECT,,$354]
PUSHJ 17,ERROR
ADJSP 17,-1
JRST $350
$353==.
MOVE 4,-3(17)
MOVE 7,12(4)
MOVEM 7,0(17)
JUMPL 7,$355
ASH 7,2
MOVEM 7,0(17)
JRST $350
$355==.
MOVEI 3,44
MOVN 5,0(17)
ASH 5,-6
ANDI 5,77
MOVN 6,0(17)
ANDI 6,77
SUB 3,6
SUB 3,5
IDIVI 3,11
MOVN 7,0(17)
ASH 7,-14
ASH 7,2
ADD 3,7
MOVEM 3,0(17)
$350==.
MOVE 6,CSYMBO
SKIPE 3,0(6)
JRST $356
PUSH 17,6
PUSHJ 17,FREESY
ADJSP 17,-1
$356==.
PUSHJ 17,NEXTOK
$344==.
PUSH 17,[24]
PUSHJ 17,EXPECT
ADJSP 17,-1
PUSH 17,SIZTYP
PUSH 17,[41]
PUSHJ 17,NDEFT
ADJSP 17,-2
POP 17,3(1)
ADJSP 17,-3
POPJ 17,
$354==.
BYTE (9) 103,141,156,156
BYTE (9) 157,164,40,165
BYTE (9) 163,145,40,142
BYTE (9) 151,164,146,151
BYTE (9) 145,154,144,40
BYTE (9) 155,145,155,142
BYTE (9) 145,162,40,151
BYTE (9) 156,40,137,113
BYTE (9) 103,103,137,157
BYTE (9) 146,146,163,145
BYTE (9) 164,157,146,0
$352==.
BYTE (9) 125,156,153,156
BYTE (9) 157,167,156,40
BYTE (9) 163,164,162,165
BYTE (9) 143,164,165,162
BYTE (9) 145,40,143,157
BYTE (9) 155,160,157,156
BYTE (9) 145,156,164,40
BYTE (9) 45,123,0
$347==.
BYTE (9) 102,141,144,40
BYTE (9) 163,171,156,164
BYTE (9) 141,170,40,146
BYTE (9) 157,162,40,42
BYTE (9) 137,113,103,103
BYTE (9) 137,157,146,146
BYTE (9) 163,145,164,157
BYTE (9) 146,42,0
$343==.
BYTE (9) 123,164,162,165
BYTE (9) 143,164,165,162
BYTE (9) 145,40,164,171
BYTE (9) 160,145,40,145
BYTE (9) 170,160,145,143
BYTE (9) 164,145,144,0
$341==.
BYTE (9) 102,141,144,40
BYTE (9) 163,171,156,164
BYTE (9) 141,170,40,146
BYTE (9) 157,162,40,42
BYTE (9) 137,113,103,103
BYTE (9) 137,157,146,146
BYTE (9) 163,145,164,157
BYTE (9) 146,42,0
%PARGL:
ADJSP 17,4
SETZB 4,-2(17)
MOVEM 4,-1(17)
SKIPE 7,-6(17)
SKIPN 1,2(7)
TRNA
JRST $358
SKIPE 11,-5(17)
SKIPN 1,15(11)
JRST $359
AOS 5,-1(17)
JRST $358
$359==.
SETZ 1,
$358==.
MOVEM 1,0(17)
PUSHJ 17,NEXTOK
CAIE 1,24
JRST $360
SKIPE 5,0(17)
CAMN 1,0(5)
JRST $361
SKIPN 4,-1(17)
JRST $362
PUSH 17,[$$BP90+$$SECT,,$363]
PUSHJ 17,ADVISE
ADJSP 17,-1
JRST $361
$362==.
PUSH 17,[$$BP90+$$SECT,,$364]
PUSHJ 17,WARN
ADJSP 17,-1
$361==.
PUSHJ 17,NEXTOK
MOVE 1,-2(17)
ADJSP 17,-4
POPJ 17,
$360==.
SKIPN 5,0(17)
JRST $365
MOVE 3,0(5)
CAIE 3,24
JRST $365
SKIPN 6,-1(17)
JRST $367
PUSH 17,[$$BP90+$$SECT,,$368]
PUSHJ 17,ADVISE
ADJSP 17,-1
JRST $366
$367==.
PUSH 17,[$$BP90+$$SECT,,$369]
PUSHJ 17,WARN
ADJSP 17,-1
$366==.
SETZB 3,0(17)
$365==.
$370==.
PUSHJ 17,ASGNEX
MOVEM 1,-3(17)
SKIPE 4,0(17)
SKIPE 5,-1(17)
TRNA
JRST $373
PUSH 17,1
PUSHJ 17,CONVFU
ADJSP 17,-1
MOVEM 1,-3(17)
SKIPN 5,0(17)
JRST $372
PUSH 17,1(1)
PUSH 17,3(5)
PUSHJ 17,%CMPAT
ADJSP 17,-2
JUMPN 1,$372
PUSH 17,[$$BP90+$$SECT,,$375]
PUSHJ 17,ADVISE
ADJSP 17,-1
JRST $372
$373==.
PUSH 17,-3(17)
MOVE 4,-1(17)
PUSH 17,3(4)
PUSHJ 17,CONVAS
ADJSP 17,-2
MOVEM 1,-3(17)
$372==.
SKIPE 5,0(17)
SKIPA 3,2(5)
TRNA
MOVEM 3,0(17)
SKIPN 7,0(17)
JRST $377
MOVE 4,0(7)
CAIN 4,25
SETZB 6,0(17)
$377==.
PUSH 17,-3(17)
PUSH 17,-3(17)
PUSH 17,[0]
MOVE 4,-6(17)
PUSH 17,1(4)
PUSH 17,[124]
PUSHJ 17,NDEF
ADJSP 17,-5
MOVEM 1,-2(17)
MOVE 4,TOKEN
CAIE 4,33
JRST $371
PUSHJ 17,NEXTOK
JRST $370
$371==.
SKIPN 4,0(17)
JRST $378
SKIPN 5,-1(17)
JRST $379
PUSH 17,[$$BP90+$$SECT,,$380]
PUSHJ 17,ADVISE
ADJSP 17,-1
JRST $378
$379==.
PUSH 17,[$$BP90+$$SECT,,$381]
PUSHJ 17,WARN
ADJSP 17,-1
$378==.
PUSH 17,[24]
PUSHJ 17,EXPECT
MOVE 1,-3(17)
ADJSP 17,-5
POPJ 17,
$381==.
BYTE (9) 116,165,155,142
BYTE (9) 145,162,40,157
BYTE (9) 146,40,141,162
BYTE (9) 147,163,40,144
BYTE (9) 157,145,163,156
BYTE (9) 47,164,40,155
BYTE (9) 141,164,143,150
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,160,162
BYTE (9) 157,164,157,164
BYTE (9) 171,160,145,0
$380==.
BYTE (9) 116,165,155,142
BYTE (9) 145,162,40,157
BYTE (9) 146,40,141,162
BYTE (9) 147,163,40,144
BYTE (9) 157,145,163,156
BYTE (9) 47,164,40,155
BYTE (9) 141,164,143,150
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,144,145
BYTE (9) 146,0
$375==.
BYTE (9) 124,171,160,145
BYTE (9) 40,157,146,40
BYTE (9) 141,162,147,40
BYTE (9) 144,157,145,163
BYTE (9) 156,47,164,40
BYTE (9) 155,141,164,143
BYTE (9) 150,40,160,141
BYTE (9) 162,141,155,40
BYTE (9) 151,156,40,146
BYTE (9) 165,156,143,164
BYTE (9) 151,157,156,40
BYTE (9) 144,145,146,0
$369==.
BYTE (9) 116,165,155,142
BYTE (9) 145,162,40,157
BYTE (9) 146,40,141,162
BYTE (9) 147,163,40,144
BYTE (9) 157,145,163,156
BYTE (9) 47,164,40,155
BYTE (9) 141,164,143,150
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,160,162
BYTE (9) 157,164,157,164
BYTE (9) 171,160,145,0
$368==.
BYTE (9) 101,162,147,163
BYTE (9) 40,147,151,166
BYTE (9) 145,156,40,164
BYTE (9) 157,40,146,165
BYTE (9) 156,143,164,151
BYTE (9) 157,156,40,144
BYTE (9) 145,146,151,156
BYTE (9) 145,144,40,167
BYTE (9) 151,164,150,157
BYTE (9) 165,164,40,160
BYTE (9) 141,162,141,155
BYTE (9) 163,0
$364==.
BYTE (9) 116,165,155,142
BYTE (9) 145,162,40,157
BYTE (9) 146,40,141,162
BYTE (9) 147,163,40,144
BYTE (9) 157,145,163,156
BYTE (9) 47,164,40,155
BYTE (9) 141,164,143,150
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,160,162
BYTE (9) 157,164,157,164
BYTE (9) 171,160,145,0
$363==.
BYTE (9) 116,157,40,141
BYTE (9) 162,147,163,40
BYTE (9) 147,151,166,145
BYTE (9) 156,40,164,157
BYTE (9) 40,146,165,156
BYTE (9) 143,164,151,157
BYTE (9) 156,40,144,145
BYTE (9) 146,151,156,145
BYTE (9) 144,40,167,151
BYTE (9) 164,150,40,160
BYTE (9) 141,162,141,155
BYTE (9) 163,0
%CMPAT:
PUSH 17,-2(17)
PUSH 17,-2(17)
PUSHJ 17,CMPUTY
ADJSP 17,-2
JUMPE 1,$382
MOVEI 1,1
POPJ 17,
$382==.
MOVE 4,-1(17)
MOVE 3,0(4)
CAIL 3,15
CAIL 3,24
JRST $383
JRST @$388*1-15(3)
$388==.
IFIW $384
IFIW $386
IFIW $383
IFIW $383
IFIW $383
IFIW $385
IFIW $387
$384==.
MOVE 4,-2(17)
MOVE 3,0(4)
CAIE 3,22
TDZA 1,1
MOVEI 1,1
POPJ 17,
$385==.
MOVE 4,-2(17)
MOVE 3,0(4)
CAIE 3,15
TDZA 1,1
MOVEI 1,1
POPJ 17,
$386==.
MOVE 4,-2(17)
MOVE 3,0(4)
CAIE 3,23
TDZA 1,1
MOVEI 1,1
POPJ 17,
$387==.
MOVE 4,-2(17)
MOVE 3,0(4)
CAIE 3,16
TDZA 1,1
MOVEI 1,1
POPJ 17,
$383==.
SETZ 1,
POPJ 17,
%CHKAD:
PUSH 17,-2(17)
PUSHJ 17,CONVBI
ADJSP 17,-1
MOVEM 1,-2(17)
MOVE 3,4(1)
MOVE 4,1(3)
MOVE 5,1(4)
TRNN 5,30000
JRST $397
MOVE 6,5(1)
MOVE 7,1(6)
MOVE 10,1(7)
TRNE 10,30000
POPJ 17,
$397==.
MOVE 6,-2(17)
MOVE 3,4(6)
PUSH 17,1(3)
MOVE 4,5(6)
PUSH 17,1(4)
MOVE 11,1(3)
MOVE 5,0(11)
CAIE 5,5
JRST $400
PUSH 17,3(11)
PUSHJ 17,SIZETY
ADJSP 17,-1
JUMPE 1,$399
$400==.
MOVE 6,0(17)
MOVE 3,0(6)
CAIE 3,5
JRST $398
PUSH 17,3(6)
PUSHJ 17,SIZETY
ADJSP 17,-1
JUMPN 1,$398
$399==.
PUSH 17,[$$BP90+$$SECT,,$401]
PUSHJ 17,ERROR
MOVE 1,-5(17)
ADJSP 17,-3
POPJ 17,
$398==.
MOVE 4,-3(17)
CAIE 4,71
JRST $403
MOVE 5,-1(17)
MOVE 3,0(5)
CAIE 3,5
JRST $404
MOVE 7,0(17)
MOVE 6,1(7)
TRNN 6,10000
JRST $404
MOVE 1,-4(17)
ADJSP 17,-2
POPJ 17,
$404==.
MOVE 10,0(17)
MOVE 3,0(10)
CAIE 3,5
JRST $405
MOVE 6,-1(17)
MOVE 5,1(6)
TRNN 5,10000
JRST $405
MOVE 1,-4(17)
MOVEM 10,1(1)
ADJSP 17,-2
POPJ 17,
$405==.
PUSH 17,[$$BP90+$$SECT,,$406]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$403==.
MOVE 4,-1(17)
MOVE 3,0(4)
CAIE 3,5
JRST $407
MOVE 6,0(17)
MOVE 5,1(6)
TRNN 5,10000
JRST $408
MOVE 1,-4(17)
ADJSP 17,-2
POPJ 17,
$408==.
MOVE 6,0(17)
MOVE 3,0(6)
CAIE 3,5
JRST $407
PUSH 17,3(6)
MOVE 5,-2(17)
PUSH 17,3(5)
PUSHJ 17,CMPUTY
ADJSP 17,-2
JUMPE 1,$407
MOVE 4,PTRDIF
MOVE 1,-4(17)
MOVEM 4,1(1)
ADJSP 17,-2
POPJ 17,
$407==.
PUSH 17,[$$BP90+$$SECT,,$409]
PUSHJ 17,ERROR
SETZB 16,0(17)
PUSHJ 17,NDEFIC
ADJSP 17,-3
POPJ 17,
$409==.
BYTE (9) 102,141,144,40
BYTE (9) 157,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 164,171,160,145
BYTE (9) 40,143,157,155
BYTE (9) 142,151,156,141
BYTE (9) 164,151,157,156
BYTE (9) 40,146,157,162
BYTE (9) 40,55,0
$406==.
BYTE (9) 102,141,144,40
BYTE (9) 157,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 164,171,160,145
BYTE (9) 40,143,157,155
BYTE (9) 142,151,156,141
BYTE (9) 164,151,157,156
BYTE (9) 40,146,157,162
BYTE (9) 40,53,0
$401==.
BYTE (9) 120,157,151,156
BYTE (9) 164,145,162,40
BYTE (9) 157,160,145,162
BYTE (9) 141,156,144,40
BYTE (9) 146,157,162,40
BYTE (9) 53,40,157,162
BYTE (9) 40,55,40,155
BYTE (9) 165,163,164,40
BYTE (9) 160,157,151,156
BYTE (9) 164,40,164,157
BYTE (9) 40,166,141,154
BYTE (9) 151,144,40,157
BYTE (9) 142,152,145,143
BYTE (9) 164,0
%%DATA
%CONTL: BLOCK 1
%CASEL: BLOCK 1
%BRKLV: BLOCK 1
%SW: BLOCK 5
%%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 ERRLIN
; EXTERN ERPTR
; EXTERN ERPLEF
; EXTERN ERCSIZ
; EXTERN CURPP
; EXTERN CURVAL
; EXTERN CURPTR
; EXTERN CURSYM
EXTERN CONSTA
EXTERN TYPENA
EXTERN DEFAUT
EXTERN FUNCHK
EXTERN FINDTY
EXTERN FINDFT
EXTERN FINDQT
EXTERN SIZEAR
EXTERN NEWLAB
EXTERN SYMQCR
EXTERN SYMFLA
EXTERN SYMFME
EXTERN FREESY
; EXTERN IDPFCP
EXTERN SIZETY
EXTERN CMPUTY
; EXTERN MAPEXT
EXTERN EVALEX
EXTERN EVALDI
EXTERN CONVCA
EXTERN CONVAR
EXTERN CONVBI
EXTERN CONVUN
EXTERN CONVAS
EXTERN CONVFU
EXTERN CONVNU
EXTERN CONVVO
EXTERN CONVTE
EXTERN NEXTOK
EXTERN TOKPUS
INTERN PCONST
INTERN FUNSTM
INTERN ASGNEX
EXTERN LDECLL
EXTERN BEGLSY
EXTERN ENDLSY
END