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