Post Reply 
4K HP 67 Games rom attached for testing
10-30-2016, 02:11 AM
Post: #29
HP-67 AOS program to debug
This is an AOS (algebraic operating system) program for the HP 41 from an original written by Jim Horn (Hi Jim!) found on my website here:

http://rskey.org/gene/calcmuseum/67aos.htm

with a link to the original PPC Journal program listing here:

HP-67 AOS

I wonder if my use of flag 2 rather than 22 has messed this up for number entry (possibly) or something else I have not quite done right. I don't understand the last two steps either.

here's the .raw file.

AOS .raw file

here's the text listing:

Code:
01 LBL "AOS" 
 02 LBL a 
 03 CF 01 
 04 CF 02 
 05 CF 03 
 06 CLRG 
 07 12 
 08 STO 23 
 09 -1 
 10 STO 24 
 11 CLX 
 12 RTN 
 13 LBL A 
 14 61 
 15 GTO 00 
 16 LBL B 
 17 51 
 18 GTO 00 
 19 LBL C 
 20 42 
 21 GTO 00 
 22 LBL D 
 23 32 
 24 GTO 00 
 25 LBL b 
 26 14 
 27 GTO 00 
 28 LBL c 
 29 23 
 30 GTO 00 
 31 LBL d 
 32 5 
 33 LBL 00 
 34 10 
 35 / 
 36 STO 22 
 37 INT 
 38 X!=0? 
 39 GTO 00 
 40 FS? 01 
 41 XEQ 03 
 42 LBL 00 
 43 RDN 
 44 FS?C 03 
 45 XEQ 02 
 46 RCL 22 
 47 RDN 
 48 FS?C 03 
 49 XEQ 02 
 50 RCL 22 
 51 INT 
 52 X=0? 
 53 GTO 00 
 54 RCL 24 
 55 X<0? 
 56 GTO 00 
 57 STO 25 
 58 RCL IND 25 
 59 FRC 
 60 RCL 22 
 61 FRC 
 62 X>Y? 
 63 GTO 00 
 64 RCL IND 25 
 65 INT 
 66 X!=0? 
 67 XEQ 01 
 68 LBL 00 
 69 RCL 24 
 70 1 
 71 + 
 72 STO 24 
 73 STO 25 
 74 13 
 75 X<=Y? 
 76 ASIN 
 77 RCL 22 
 78 STO IND 25 
 79 RCL 23 
 80 STO 25 
 81 RCL IND 25 
 82 CF 01 
 83 GTO B 
 84 LBL e 
 85 1 
 86 STO 22 
 87 X<>Y 
 88 FS?C 03 
 89 XEQ 02 
 90 RCL 24 
 91 X<0? 
 92 SQRT 
 93 STO 25 
 94 RCL IND 25 
 95 INT 
 96 X=0? 
 97 GTO A 
 98 XEQ 01 
 99 GTO e 
100 LBL A 
101 RCL 24 
102 1 
103 - 
104 STO 24 
105 RCL 23 
106 STO 25 
107 RCL IND 25 
108 SF 01 
109 GTO B 
110 LBL E 
111 1 
112 STO 22 
113 X<>Y 
114 FS?C 03 
115 XEQ 02 
116 RCL 24 
117 X<0? 
118 GTO 00 
119 STO 25 
120 RCL IND 25 
121 XEQ 01 
122 GTO E 
123 LBL 00 
124 RCL IND 25 
125 XEQ a 
126 RDN 
127 RDN 
128 SF 03 
129 GTO b 
130 LBL 02 
131 21 
132 RCL 23 
133 1 
134 + 
135 STO 23 
136 STO 25 
137 - 
138 X<0? 
139 SQRT 
140 RDN 
141 STO IND 25 
142 RCL 22 
143 INT 
144 X!=0? 
145 RTN 
146 LBL 03 
147 RCL 24 
148 1 
149 + 
150 STO 24 
151 STO 25 
152 4.2 
153 STO IND 25 
154 RDN 
155 RDN 
156 RTN 
157 LBL 01 
158 RCL 23 
159 1 
160 - 
161 STO 23 
162 STO 25 
163 RCL IND 25 
164 ISG 25 
165 LBL 10 
166 RCL IND 25 
167 R^ 
168 STO 25 
169 RDN 
170 XEQ IND 25 
171 RCL 23 
172 FS? 02 
173 10 
174 FC?C 02 
175 0 
176 + 
177 STO 23 
178 STO 25 
179 13 
180 - 
181 X<0? 
182 SQRT 
183 X<>Y 
184 STO IND 25 
185 RCL 24 
186 1 
187 - 
188 STO 24 
189 RTN 
190 LBL 01 
191 Y^X 
192 RTN 
193 LBL 02 
194 CHS 
195 LBL 00 
196 SF 02 
197 RTN 
198 LBL 03 
199 / 
200 RTN 
201 LBL 04 
202 * 
203 RTN 
204 LBL 05 
205 CHS 
206 LBL 06 
207 + 
208 LBL B 
209 RTN 
210 SF 03 
211 END


If we can get this working and if it will fit, I'd like to include it in the HP 67 4K rom file.

Help!
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
HP-67 AOS program to debug - Gene - 10-30-2016 02:11 AM



User(s) browsing this thread: 9 Guest(s)