First issue

originals/asim.hp42s

@@ -0,0 +1,221 @@
+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