So how do you get the Apple-1 to play Twinkle Twinkle though the ACI....

3 replies [Last post]
Offline
Joined: Oct 9 2011
Posts: 1057

Hook up a +40-60db microphone pre-amp to your stereo (If your TV you are using as a monitor has a good amp built in you may hear something on max volume) or use a bass guitar or PA amp like I am, though I tested my DYNEX 15" TV on max volume and can hear it.

Link to Text and Wav file

Then type in the following program....

1 REM TWINKLE TWINKLE LITTLE STAR
2 REM FOR THE APPLE I BY COREY COHEN
10 GOSUB 10010
40 POKE 768,255: POKE 769,127: CALL 770
41 POKE 768,255: POKE 769,127: CALL 770
42 POKE 768,170: POKE 769,127: CALL 770
43 POKE 768,170: POKE 769,127: CALL 770
44 POKE 768,152: POKE 769,127: CALL 770
45 POKE 768,152: POKE 769,127: CALL 770
46 POKE 768,170: POKE 769,255: CALL 770

50 POKE 768,191: POKE 769,127: CALL 770
51 POKE 768,191: POKE 769,127: CALL 770
52 POKE 768,202: POKE 769,127: CALL 770
53 POKE 768,202: POKE 769,127: CALL 770
54 POKE 768,227: POKE 769,127: CALL 770
55 POKE 768,227: POKE 769,127: CALL 770
56 POKE 768,255: POKE 769,255: CALL 770

60 POKE 768,170: POKE 769,127: CALL 770
61 POKE 768,170: POKE 769,127: CALL 770
62 POKE 768,191: POKE 769,127: CALL 770
63 POKE 768,191: POKE 769,127: CALL 770
64 POKE 768,202: POKE 769,127: CALL 770
65 POKE 768,202: POKE 769,127: CALL 770
66 POKE 768,227: POKE 769,255: CALL 770

70 POKE 768,170: POKE 769,127: CALL 770
71 POKE 768,170: POKE 769,127: CALL 770
72 POKE 768,191: POKE 769,127: CALL 770
73 POKE 768,191: POKE 769,127: CALL 770
74 POKE 768,202: POKE 769,127: CALL 770
75 POKE 768,202: POKE 769,127: CALL 770
76 POKE 768,227: POKE 769,255: CALL 770

80 POKE 768,255: POKE 769,127: CALL 770
81 POKE 768,255: POKE 769,127: CALL 770
82 POKE 768,170: POKE 769,127: CALL 770
83 POKE 768,170: POKE 769,127: CALL 770
84 POKE 768,152: POKE 769,127: CALL 770
85 POKE 768,152: POKE 769,127: CALL 770
86 POKE 768,170: POKE 769,255: CALL 770

90 POKE 768,191: POKE 769,127: CALL 770
91 POKE 768,191: POKE 769,127: CALL 770
92 POKE 768,202: POKE 769,127: CALL 770
93 POKE 768,202: POKE 769,127: CALL 770
94 POKE 768,227: POKE 769,127: CALL 770
95 POKE 768,227: POKE 769,127: CALL 770
96 POKE 768,255: POKE 769,255: CALL 770

1000 END
10000 REM DURATION POKE BETWEEN 0 AND 255 TO 769
10001 REM NOTES POKE BELOW VALUE TO 768
10002 REM NOTE LOW MED HIGH
10003 REM =====================
10004 REM C 255 128 64
10005 REM C# 241 121 60
10006 REM D 227 114 57
10007 REM D# 214 108 54
10008 REM E 202 102 51
10009 REM F 191 96 48
10010 REM F# 180 91 45
10011 REM G 170 85 43
10012 REM G# 161 81 40
10013 REM A 152 76 38
10014 REM A# 143 72 36
10015 REM B 135 68 34
10016 REM =====================
10020 POKE 770,173
10021 POKE 771,00
10022 POKE 772,192
10023 POKE 773,136
10024 POKE 774,208
10025 POKE 775,5
10026 POKE 776,206
10027 POKE 777,1
10028 POKE 778,3
10029 POKE 779,240
10030 POKE 780,9
10031 POKE 781,202
10032 POKE 782,208
10033 POKE 783,245
10034 POKE 784,174
10035 POKE 785,0
10036 POKE 786,3
10037 POKE 787,76
10038 POKE 788,2
10039 POKE 789,3
10040 POKE 790,96
10050 RETURN

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
Offline
Joined: Oct 9 2011
Posts: 1057
Re: So how do you get the Apple-1 to play Twinkle Twinkle ...

Oh and if all you need to do is make a beep like the "BELL" on an Apple II, simply reuse the header code in the ACI ROM, but change it's duration to really really short.

POKE 768,169:POKE 769,01:POKE 770,32:POKE 771,204:POKE 772,193:POKE 773,96:CALL 768

Offline
Joined: Jun 5 2008
Posts: 381
Re: So how do you get the Apple-1 to play Twinkle Twinkle ...

This simple preamp I built some time ago will provide line level compatible output, if connected to the cassette output.
http://www.willegal.net/preamp/preamp.htm

Also note that any single bit apple II sound programs should be easily ported to the apple 1.

Regards,
Mike Willegal

Offline
Joined: Oct 9 2011
Posts: 1057
Re: So how do you get the Apple-1 to play Twinkle Twinkle ...

Yep any Apple II sound program just needs the "Speaker" address changed from $C030 to $C000, and maybe a little timing tweak if you mind it being a little off key.

The big part of the discovery was even thinking to use the cassette output as a "sound card".

Mike, I thank you for the inspiration to add sound to one of my Apple II to Apple I code conversions and my own laziness for not wanting to build a sound card.

Cheers,
Corey