222 lines
2.2 KiB
Plaintext
222 lines
2.2 KiB
Plaintext
00 { 485-Byte Prgm }
|
||
01 LBL "A-SIM"
|
||
02 MVAR "U_IN"
|
||
03 MVAR "W"
|
||
04 MVAR "GAIN"
|
||
05 VARMENU "A-SIM"
|
||
06 STOP
|
||
07 EXITALL
|
||
08 RCL "REGS"
|
||
09 STO "RSAVE"
|
||
10 -2
|
||
11 10↑X
|
||
12 LBL 06
|
||
13 CF IND ST X
|
||
14 ISG ST X
|
||
15 GTO 06
|
||
16 INDEX "CIR"
|
||
17 J+
|
||
18 J+
|
||
19 [MAX]
|
||
20 J+
|
||
21 [MAX]
|
||
22 X<>Y
|
||
23 R↓
|
||
24 X<Y?
|
||
25 X<>Y
|
||
26 0
|
||
27 5
|
||
28 INDEX "CIR"
|
||
29 LBL 10
|
||
30 RCLEL
|
||
31 X=Y?
|
||
32 ISG ST Z
|
||
33 CLA
|
||
34 R↓
|
||
35 I+
|
||
36 FC? 76
|
||
37 GTO 10
|
||
38 J-
|
||
39 R↓
|
||
40 STO "D"
|
||
41 +
|
||
42 STO "C"
|
||
43 STO "E"
|
||
44 ENTER
|
||
45 DIM "REGS"
|
||
46 CLRG
|
||
47 LBL 18
|
||
48 RCLIJ
|
||
49 VIEW ST Y
|
||
50 CF 01
|
||
51 CF 03
|
||
52 CF 05
|
||
53 RCLEL
|
||
54 SF IND ST X
|
||
55 J+
|
||
56 GTO IND ST X
|
||
57 LBL 02
|
||
58 LBL 03
|
||
59 FS? 00
|
||
60 GTO 17
|
||
61 SF 00
|
||
62 CLST
|
||
63 COMPLEX
|
||
64 STO+ "REGS"
|
||
65 LBL 17
|
||
66 RCLEL
|
||
67 RCL× "W"
|
||
68 -1
|
||
69 SQRT
|
||
70 ×
|
||
71 LBL 01
|
||
72 FS? 01
|
||
73 RCLEL
|
||
74 FC? 03
|
||
75 1/X
|
||
76 STO "X"
|
||
77 J+
|
||
78 RCLEL
|
||
79 STO "A"
|
||
80 J+
|
||
81 RCLEL
|
||
82 STO "B"
|
||
83 J+
|
||
84 I-
|
||
85 X<>Y
|
||
86 X=0?
|
||
87 GTO 12
|
||
88 ENTER
|
||
89 XEQ 09
|
||
90 RCL "A"
|
||
91 RCL "B"
|
||
92 X=0?
|
||
93 GTO 00
|
||
94 XEQ 09
|
||
95 RCL "B"
|
||
96 RCL "A"
|
||
97 XEQ 09
|
||
98 LBL 12
|
||
99 RCL "B"
|
||
100 ENTER
|
||
101 XEQ 09
|
||
102 GTO 00
|
||
103 LBL 04
|
||
104 RCLEL
|
||
105 1
|
||
106 -
|
||
107 RCL× "C"
|
||
108 ENTER
|
||
109 RCL+ "C"
|
||
110 XEQ 19
|
||
111 RCL "GAIN"
|
||
112 1/X
|
||
113 STO "X"
|
||
114 RCLEL
|
||
115 ENTER
|
||
116 ENTER
|
||
117 XEQ 09
|
||
118 LBL 15
|
||
119 1
|
||
120 FS? 06
|
||
121 +/-
|
||
122 STO "X"
|
||
123 RCL ST T
|
||
124 ENTER
|
||
125 J+
|
||
126 RCLEL
|
||
127 X≠0?
|
||
128 XEQ 09
|
||
129 FS?C 06
|
||
130 GTO 16
|
||
131 SF 06
|
||
132 GTO 15
|
||
133 LBL 05
|
||
134 RCLEL
|
||
135 1/X
|
||
136 STO "X"
|
||
137 J+
|
||
138 XEQ 14
|
||
139 J-
|
||
140 CF 07
|
||
141 1
|
||
142 STO "X"
|
||
143 SF 09
|
||
144 XEQ 14
|
||
145 CF 07
|
||
146 CF 09
|
||
147 DSE "E"
|
||
148 LBL 16
|
||
149 J+
|
||
150 I-
|
||
151 CF 04
|
||
152 LBL 00
|
||
153 I+
|
||
154 FC? 76
|
||
155 GTO 18
|
||
156 GTO 07
|
||
157 LBL 14
|
||
158 RCL "E"
|
||
159 RCLEL
|
||
160 XEQ 09
|
||
161 FS? 07
|
||
162 RTN
|
||
163 J+
|
||
164 SF 07
|
||
165 GTO 14
|
||
166 LBL 09
|
||
167 FC? 09
|
||
168 X<>Y
|
||
169 X=Y?
|
||
170 SF 08
|
||
171 1
|
||
172 -
|
||
173 RCL× "C"
|
||
174 +
|
||
175 1
|
||
176 -
|
||
177 RCL "X"
|
||
178 FC? 07
|
||
179 FS?C 08
|
||
180 +/-
|
||
181 STO+ IND ST Y
|
||
182 RTN
|
||
183 LBL 07
|
||
184 CLD
|
||
185 1
|
||
186 RCL "C"
|
||
187 LBL 19
|
||
188 DSE ST X
|
||
189 3
|
||
190 10↑X
|
||
191 ÷
|
||
192 +
|
||
193 0
|
||
194 LBL 11
|
||
195 STO IND ST Y
|
||
196 ISG ST Y
|
||
197 GTO 11
|
||
198 FS? 04
|
||
199 RTN
|
||
200 1
|
||
201 STO 00
|
||
202 RCL "C"
|
||
203 1
|
||
204 NEWMAT
|
||
205 EDIT
|
||
206 LBL 08
|
||
207 ↑
|
||
208 FS? 05
|
||
209 1
|
||
210 DSE "D"
|
||
211 GTO 08
|
||
212 EDIT
|
||
213 RCL "U_IN"
|
||
214 EXITALL
|
||
215 RCL "RSAVE"
|
||
216 CLV "RSAVE"
|
||
217 X<> "REGS"
|
||
218 ÷
|
||
219 EDIT
|
||
220 END
|