(34C) Musical Notes (Original by J.M. Bowsher)

[Hans Brueggemann]

one of my favourite programs for the HP-34C is the "Calculator Program For Musical Notes", originally written for the HP-29C by J.M. Bowsher, published in the "Journal of The Audio Engineering Society", 1980 June, Volume 28, Number 6, Page 437.
the program lets you convert tonal frequencies into their corresponding musical notation and vice versa, by simply entering either the frequency in Hz or a musical notation in the form of an integer number that represents the notation in the following way:

Code:


C    0
C#    1
D    2
D#    3
E    4
F    5
F#    6
G    7
Ab    8
A    9
Bb    10
B    11

so that for example 440 Hz gets converted to 9.400, which is exactly the 4th octave of A. in the same way, slightly "off" tones like 441 Hz are converted to 9.404, which is again the 4th octave of A, but high by 4c (or "cents").

this is the transcript of Bowsher's program for the HP-34C:

Code:


001    LBL    0
002    R/S    
003    LBL    A
004    1    
005    5    
006    .    
007    8    
008    8    
009    6    
010    0    
011    9    
012    9    
013    5    
014    8    
015    STO    8
016    X<>Y    
017    EEX    
018    1    
019    5    
020    CHS    
021    +    
022    STO    1
023    ABS    
024    STO    2
025    1    
026    6    
027    2    
028    6    
029    4    
030    X<>Y    
031    X>Y    
032    GTO    9
033    1    
034    1    
035    .    
036    9    
037    4    
038    9    
039    5    
040    X<>Y    
041    X>Y    
042    GTO    1
043    FIX    1
044    INT    
045    EEX    
046    2    
047    *    
048    STO    0
049    RCL    2
050    FRAC    
051    EEX    
052    1    
053    *    
054    ENTER    
055    INT    
056    1    
057    2    
058    0    
059    0    
060    *    
061    STO+    0
062    X<>Y    
063    FRAC    
064    EEX    
065    2    
066    *    
067    5    
068    0    
069    STO+    0
070    X<>Y    
071    X>Y    
072    GTO    9
073    RCL    1
074    RCL    2
075    /    
076    *    
077    STO+    0
078    RCL    0
079    1    
080    2    
081    0    
082    0    
083    /    
084    2    
085    LN    
086    *    
087    e^x    
088    RCL    8
089    *    
090    GTO    0
091    LBL    1
092    FIX    3
093    RCL    1
094    RCL    8
095    /    
096    LN    
097    X<0    
098    GTO    9
099    2    
100    LN    
101    /    
102    ENTER    
103    INT    
104    1    
105    0    
106    /    
107    STO    0
108    X<>Y    
109    FRAC    
110    1    
111    2    
112    *    
113    ENTER    
114    INT    
115    STO+    0
116    X<>Y    
117    FRAC    
118    EEX    
119    2    
120    *    
121    5    
122    0    
123    -    
124    EEX    
125    3    
126    /    
127    ENTER    
128    ABS    
129    STO+    0
130    /    
131    RCL    0
132    5    
133    EEX    
134    CHS    
135    4    
136    X>Y    
137    GTO    2
138    RDN    
139    *    
140    GTO    0
141    LBL    2
142    CLX

enjoy!