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