203 lines
2.0 KiB
Plaintext
203 lines
2.0 KiB
Plaintext
00 { 463-Byte Prgm }
|
|
01 LBL "FCTR"
|
|
02 STO "X_FCTR"
|
|
03 R↓
|
|
04 STO "Y_FCTR"
|
|
05 R↓
|
|
06 STO "Z_FCTR"
|
|
07 R↓
|
|
08 STO "T_FCTR"
|
|
09 LASTX
|
|
10 STO "L_FCTR"
|
|
11 RCL "REGS"
|
|
12 STO "R_FCTR"
|
|
13 SIZE 02
|
|
14 CLA
|
|
15 R↑
|
|
16 1
|
|
17 X<>Y
|
|
18 0
|
|
19 FS?C 00
|
|
20 X<> ST Z
|
|
21 STO 01
|
|
22 R↓
|
|
23 REAL?
|
|
24 GTO 05
|
|
25 LBL 06
|
|
26 "Invalid type"
|
|
27 GTO 04
|
|
28 LBL 05
|
|
29 FP
|
|
30 X≠0?
|
|
31 GTO 06
|
|
32 LASTX
|
|
33 X<0?
|
|
34 "-"
|
|
35 ABS
|
|
36 X=0?
|
|
37 GTO 06
|
|
38 1ᴇ8
|
|
39 X>Y?
|
|
40 GTO 00
|
|
41 "Out of range"
|
|
42 GTO 04
|
|
43 LBL 01
|
|
44 STO 00
|
|
45 X<>Y
|
|
46 STO ST Y
|
|
47 LASTX
|
|
48 FS? 00
|
|
49 ⊢"*"
|
|
50 SF 00
|
|
51 AIP
|
|
52 ÷
|
|
53 STO ST Y
|
|
54 LASTX
|
|
55 MOD
|
|
56 X≠0?
|
|
57 RTN
|
|
58 ⊢"↑"
|
|
59 LBL 02
|
|
60 X<>Y
|
|
61 STO ST Y
|
|
62 LASTX
|
|
63 ÷
|
|
64 ISG 00
|
|
65 RTN
|
|
66 STO ST Y
|
|
67 LASTX
|
|
68 MOD
|
|
69 X=0?
|
|
70 GTO 02
|
|
71 X<>Y
|
|
72 RCL 00
|
|
73 ISG ST X
|
|
74 RTN
|
|
75 AIP
|
|
76 RTN
|
|
77 LBL 00
|
|
78 R↓
|
|
79 STO ST Y
|
|
80 1
|
|
81 X=Y?
|
|
82 AIP
|
|
83 R↓
|
|
84 2
|
|
85 MOD
|
|
86 X=0?
|
|
87 XEQ 01
|
|
88 X<>Y
|
|
89 STO ST Y
|
|
90 3
|
|
91 MOD
|
|
92 X=0?
|
|
93 XEQ 01
|
|
94 X<>Y
|
|
95 STO ST Y
|
|
96 5
|
|
97 MOD
|
|
98 X=0?
|
|
99 XEQ 01
|
|
100 X<>Y
|
|
101 STO ST Y
|
|
102 7
|
|
103 MOD
|
|
104 X=0?
|
|
105 XEQ 01
|
|
106 LBL 03
|
|
107 X<>Y
|
|
108 STO ST Y
|
|
109 LASTX
|
|
110 4
|
|
111 +
|
|
112 MOD
|
|
113 X=0?
|
|
114 XEQ 01
|
|
115 X<>Y
|
|
116 STO ST Y
|
|
117 LASTX
|
|
118 2
|
|
119 +
|
|
120 MOD
|
|
121 X=0?
|
|
122 XEQ 01
|
|
123 X<>Y
|
|
124 STO ST Y
|
|
125 LASTX
|
|
126 4
|
|
127 +
|
|
128 MOD
|
|
129 X=0?
|
|
130 XEQ 01
|
|
131 X<>Y
|
|
132 STO ST Y
|
|
133 LASTX
|
|
134 2
|
|
135 +
|
|
136 MOD
|
|
137 X=0?
|
|
138 XEQ 01
|
|
139 X<>Y
|
|
140 STO ST Y
|
|
141 LASTX
|
|
142 4
|
|
143 +
|
|
144 MOD
|
|
145 X=0?
|
|
146 XEQ 01
|
|
147 X<>Y
|
|
148 STO ST Y
|
|
149 LASTX
|
|
150 6
|
|
151 +
|
|
152 MOD
|
|
153 X=0?
|
|
154 XEQ 01
|
|
155 X<>Y
|
|
156 STO ST Y
|
|
157 LASTX
|
|
158 2
|
|
159 +
|
|
160 MOD
|
|
161 X=0?
|
|
162 XEQ 01
|
|
163 X<>Y
|
|
164 STO ST Y
|
|
165 LASTX
|
|
166 6
|
|
167 +
|
|
168 MOD
|
|
169 X=0?
|
|
170 XEQ 01
|
|
171 X<>Y
|
|
172 LASTX
|
|
173 X↑2
|
|
174 X≤Y?
|
|
175 GTO 03
|
|
176 1
|
|
177 RCL ST Z
|
|
178 X=Y?
|
|
179 GTO 04
|
|
180 FS? 00
|
|
181 ⊢"*"
|
|
182 AIP
|
|
183 LBL 04
|
|
184 AVIEW
|
|
185 CF 00
|
|
186 RCL 01
|
|
187 X>0?
|
|
188 SF 00
|
|
189 RCL "R_FCTR"
|
|
190 STO "REGS"
|
|
191 RCL "L_FCTR"
|
|
192 STO ST L
|
|
193 RCL "T_FCTR"
|
|
194 RCL "Z_FCTR"
|
|
195 RCL "Y_FCTR"
|
|
196 RCL "X_FCTR"
|
|
197 CLV "R_FCTR"
|
|
198 CLV "L_FCTR"
|
|
199 CLV "T_FCTR"
|
|
200 CLV "Z_FCTR"
|
|
201 CLV "Y_FCTR"
|
|
202 CLV "X_FCTR" |