First issue

originals/dsim.hp42s

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