(HP-97) Design one-shot multivibrators

[mfleming]

I see a couple of errors in the listed program. In program step 18, the command should be "RCL D" (the resistor value) rather than "RCL1". For steps 31 to 33, the operations should be reversed so that you do "RCL D" first then ".7" afterwards. Finally, to match the equation, line 34 should be "/" (divide) rather than "+".

Here's the modified program listing (with keycodes) in "Teenix" format

Code:


001  f LBL E     32 25 15
002  STO E       33 15
003  h F3set?    35 71 03
004  h RTN       35 22
005  f GSB 2     31 22 02
006  RCL C       34 13
007  X           71
008  f GSB 1     31 22 01
009  +           61
010  STO E       33 15
011  g SCI       32 23
012  DSP 1       23 01
013  f RND       31 24
014  f FIX       31 23
015  DSP 0       23 00
016  h RTN       35 22
017  f LBL 1     31 25 01
018  RCL D       34 14
019  .           83
020  8           61
021  3           61
022  7           61
023  h YtoX      35 63
024  1           61
025  1           61
026  .           83
027  8           61
028  X           71
029  h RTN       35 22
030  f LBL 2     31 25 02
031  .           83
032  7           07
033  RCL D       34 14
034  +           61
035  .           83
036  3           03
037  2           02
038  X           71
039  h RTN       35 22
040  f LBL C     32 25 13
041  ENTER       41
042  g FRAC      32 83
043  f x=0?      31 51
044  GTO C       22 31 13
045  CLx         44
046  EEX         43
047  6           06
048  X           71
049  ENTER       41
050  f LBL C     32 25 13
051  h ROLDN     35 53
052  STO C       33 13
053  h F3set?    35 71 03
054  h RTN       35 22
055  RCL E       34 15
056  f GSB 1     31 22 01
057  -           51
058  f GSB 2     31 22 02
059  /           81
060  STO C       33 13
061  .           83
062  9           09
063  h X<->Y     35 52
064  g x<=y?     32 71
065  GTO e       22 31 15
066  f FIX       31 23
067  DSP 0       23 00
068  h RTN       35 22
069  f LBL D     32 25 14
070  STO D       33 14
071  h F3set?    35 71 03
072  GTO D       22 31 14
073  3           03
074  h STO I     35 33
075  1           01
076  0           00
077  STO D       33 14
078  f LBL d     32 25 14
079  f GSB 2     31 22 02
080  RCL C       34 13
081  X           71
082  f GSB 1     31 22 01
083  +           61
084  RCL E       34 15
085  h X<->Y     35 52
086  /           81
087  RCL D       34 14
088  X           71
089  STO D       33 14
090  f DSZ       31 33
091  GTO d       22 31 14
092  f LBL D     32 25 14
093  4           04
094  .           83
095  9           09
096  h X<->Y     35 52
097  g x<=y?     32 71
098  GTO e       22 31 15
099  5           05
100  0           00
101  h X<->Y     35 52
102  g x>y?      32 81
103  GTO e       22 31 15
104  DSP 1       23 01
105  h RTN       35 22

N.B. Program listing and attachment updated with corrections. Contains program card for Teenix HP67 emulator and the above listing.