hp41programs

Big-Ben

Westminster Chime for the HP-41


Overview
 

-With this short routine, your HP-41 becomes a miniature "Big-Ben"
-The standard TONE 0 , TONE 1 , TONE 2 and three synthetic tones are used:

   TONE 13      decimal codes    159 ,  13
   TONE 96      decimal codes    159 ,  96
   TONE H       decimal codes    159 , 109

-You can also use the "byte grabber"  to create the corresponding program lines:

   STO IND 31   LBL 12    and grab the STO byte   to get  TONE 13
   STO IND 31     1/X        and grab the STO byte   to get  TONE 96
   STO IND 31     HR         and grab the STO byte   to get  TONE H
 

Program Listing
 

Data Registers: /
Flags: /
Subroutines: /

-TONE 13 is displayed TONE 3  ( lines 09-25 )
-TONE 96 is displayed TONE 6  ( lines 17-33 )
 
 

01  LBL "BIGBEN"
02  1
03  TONE 0
04  SQRT
05  TONE 2
06  SQRT
07  TONE 1
08  SQRT
09  TONE 13         
10  SQRT
11  TONE 0
12  SQRT
13  TONE 1
14  SQRT
15  TONE 2
16  SQRT
17  TONE 96         
18  SQRT
19  TONE 2
20  SQRT
21  TONE 0
22  SQRT
23  TONE 1
24  SQRT
25  TONE 13         
26  SQRT
27  TONE H
28  SQRT
29  TONE 1
30  SQRT
31  TONE 2
32  SQRT
33  TONE 96         
34  END

 
  ( 61 bytes / SIZE 000 )
 

                                        Ding!                                             Ding!                  Ding!                                                      Ding!
                                                Ding!                           Ding!                                               Ding!                          Ding!
  XEQ "BIGBEN"    Ding!                                 Ding!                      Donnng!!!            Ding!                                                      Donnng!!!
                                                         Donnng!!!                                                                         Donnng!!!   Ding!

Notes:

-If you have a TIME module, this may be used as an alarm clock.
-Your HP-41 may emit a strange "frrrrrrrr" after the TONE 96  ( press your ear against the calculator to check )
-Simply execute a BEEP or any non-synthetic TONE to remove this parasitic vibration.