-
Notifications
You must be signed in to change notification settings - Fork 85
/
Copy pathcode3
139 lines (139 loc) · 1.51 KB
/
code3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
.PAG 'CODE3'
LIST BCC GOLST
BEQ GOLST
CMP #MINUTK
BNE STKRTS
GOLST JSR LINGET
JSR FNDLIN
JSR CHRGOT
BEQ LSTEND
CMP #MINUTK
BNE FLNRTS
JSR CHRGET
JSR LINGET
BNE FLNRTS
LSTEND PLA
PLA
LDA LINNUM
ORA LINNUM+1
BNE LIST4
LDA #255
STA LINNUM
STA LINNUM+1
LIST4 LDY #1
STY DORES
LDA (LOWTR)Y
BEQ GRODY
JSR ISCNTC
JSR CRDO
INY
LDA (LOWTR)Y
TAX
INY
LDA (LOWTR)Y
CMP LINNUM+1
BNE TSTDUN
CPX LINNUM
BEQ TYPLIN
TSTDUN BCS GRODY
TYPLIN STY LSTPNT
JSR LINPRT
LDA #'
PRIT4 LDY LSTPNT
AND #127
PLOOP JSR OUTDO
CMP #34
BNE PLOOP1
LDA DORES
EOR #@377
STA DORES
PLOOP1 INY
BEQ GRODY
LDA (LOWTR)Y
BNE QPLOP
TAY
LDA (LOWTR)Y
TAX
INY
LDA (LOWTR)Y
STX LOWTR
STA LOWTR+1
BNE LIST4
GRODY JMP READY
QPLOP JMP (IQPLOP)
NQPLOP BPL PLOOP
CMP #PI
BEQ PLOOP
BIT DORES
BMI PLOOP
SEC
SBC #127
TAX
STY LSTPNT
LDY #255
RESRCH DEX
BEQ PRIT3
RESCR1 INY
LDA RESLST,Y
BPL RESCR1
BMI RESRCH
PRIT3 INY
LDA RESLST,Y
BMI PRIT4
JSR OUTDO
BNE PRIT3
FOR LDA #128
STA SUBFLG
JSR LET
JSR FNDFOR
BNE NOTOL
TXA
ADC #FORSIZ-3
TAX
TXS
NOTOL PLA
PLA
LDA #8+ADDPRC
JSR GETSTK
JSR DATAN
CLC
TYA
ADC TXTPTR
PHA
LDA TXTPTR+1
ADC #0
PHA
LDA CURLIN+1
PHA
LDA CURLIN
PHA
LDA #TOTK
JSR SYNCHR
JSR CHKNUM
JSR FRMNUM
LDA FACSGN
ORA #127
AND FACHO
STA FACHO
LDA #<LDFONE
LDY #>LDFONE
STA INDEX1
STY INDEX1+1
JMP FORPSH
LDFONE LDA #<FONE
LDY #>FONE
JSR MOVFM
JSR CHRGOT
CMP #STEPTK
BNE ONEON
JSR CHRGET
JSR FRMNUM
ONEON JSR SIGN
JSR PUSHF
LDA FORPNT+1
PHA
LDA FORPNT
PHA
LDA #FORTK
PHA
.END