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