[alt.folklore.computers] How to synthetically program a hp41

mcintyre@turing.cs.rpi.edu (David McIntyre) (01/17/90)

Note: this will erase your calc's memory.  Keep that in mind.

First, create the byte grabber:

1) Master clear, by holding down the <- while turning on.

2) ASN '+' to the LN key.

3) ASN 'DEL' to the LOG key.

4) Switch to PRGM mode.  "00 REG 45" on display.

5) Start CAT 1.  Press R/S immediately before the display blinks.  Do
   this step until you are fast enough.

6) Switch to ALPHA mode.  Press <- with the .END. in the display.

7) You should see "4094 RCL 01" on the display.  You are in unknown
   territory here.

8) GTO .005   You should see "05 LBL 03".

9)  Press USER, LOG, SQRT.  "04 STO 01" on display.

10) Key in the alpha line "?AAAAAA".  If you don't have an extended functions
    module, you will see "?A-----".

11) Switch out of PRGM mode, then GTO ..  .

The byte grabber is now attached to the LN key.  Be careful.

Now, let's try it out:

1) Switch into PRGM mode, and GTO ..

2) Key in this program:

	01 ENTER^
	02 X <> 88
	03 STO IND 31
	04 PI

3) PACK

4) Make sure you are in USER mode.

5) GTO .001

6) Switch to PRGM mode.

7) BYTE GRAB (ie, press the LN key).

8) You will see this "02 ^-?----*", where ^ is a TEE, and * is a character
   with all segments on.

9) The new character came from the X <> part of the X <> 88 line.
   Line 03 has turned into "03 E^X-1"

NOW BETTER STUFF:

1) GTO .003, the sto line.

2) BYTE GRAB

3) SST to check out "05 TONE Y".....a new tone!!!  There are over 100
   synthetic tones.

For more information, check out the book "HP-41 Synthetic Programming Made
Easy" by Keith Jarett, published by Synthetix.  This is probably available
from EduCalc.  Ask if it is not in their current catalog.  I copied this
example from there, without permission.  Sorry.

I don't know EduCalc's current address/phone, so don't ask......

				-dave

Dave "mr question" McIntyre     |                                             
mcintyre@turing.cs.rpi.edu      |      "....say you're thinking about a plate  
office : 518-276-8633		|	of shrimp.....and someone says to    
home   : 518-271-6664		|       you `plate,' or `shrimp'......"       

thomas@mvac23.UUCP (Thomas Lapp) (01/18/90)

> I don't know EduCalc's current address/phone, so don't ask......

EduCalc
27953 Cabot Rd.
Laguna Niguel, CA 92677

tel: (800) 677-7001


                         - tom
--
internet     : mvac23!thomas@udel.edu  or  thomas%mvac23@udel.edu
uucp         : {ucbvax,mcvax,psuvax1,uunet}!udel!mvac23!thomas
Europe Bitnet: THOMAS1@GRATHUN1
Location: Newark, DE, USA                          
Quote   : Virtual Address eXtension.  Is that like a 9-digit zip code?

--
The UUCP Mailer