From 827ac2dda7bcd058b76ae8b5b153c46fd95b217c Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 15 Jul 2019 01:24:29 -0400
Subject: [PATCH] ootw: getting silly with audio

---
 ootw/Makefile              |  14 ++-
 ootw/audio.s               | 197 +++++++++++++++++++++++++++++++++++++
 ootw/ootw_audio/NOTES      |  10 ++
 ootw/ootw_audio/mytuba.btc | Bin 0 -> 3840 bytes
 4 files changed, 219 insertions(+), 2 deletions(-)
 create mode 100644 ootw/audio.s
 create mode 100644 ootw/ootw_audio/NOTES
 create mode 100644 ootw/ootw_audio/mytuba.btc

diff --git a/ootw/Makefile b/ootw/Makefile
index bda85784..7c5af603 100644
--- a/ootw/Makefile
+++ b/ootw/Makefile
@@ -7,13 +7,14 @@ PNG2LZ4 = ../gr-utils/png2lz4
 
 all:	ootw.dsk
 
-ootw.dsk:	HELLO LOADER INTRO OOTW OOTW_C2 OOTW_C3
+ootw.dsk:	HELLO LOADER INTRO OOTW OOTW_C2 OOTW_C3 AUDIO_TEST
 	$(DOS33) -y ootw.dsk SAVE A HELLO
 	$(DOS33) -y ootw.dsk BSAVE -a 0x1400 LOADER
 	$(DOS33) -y ootw.dsk BSAVE -a 0x1700 INTRO
 	$(DOS33) -y ootw.dsk BSAVE -a 0x1700 OOTW
 	$(DOS33) -y ootw.dsk BSAVE -a 0x1700 OOTW_C2
 	$(DOS33) -y ootw.dsk BSAVE -a 0x1700 OOTW_C3
+	$(DOS33) -y ootw.dsk BSAVE -a 0x1700 AUDIO_TEST
 #	$(DOS33) -y ootw.dsk BSAVE -a 0x2000 COMPRESS-TEST
 
 
@@ -77,6 +78,15 @@ ootw_c3.o:	ootw_c3.s \
 
 ####
 
+AUDIO_TEST:	audio.o
+	ld65 -o AUDIO_TEST audio.o -C ../linker_scripts/apple2_1700.inc
+
+audio.o:	audio.s
+	ca65 -o audio.o audio.s -l audio.lst
+
+
+####
+
 INTRO:	intro.o
 	ld65 -o INTRO intro.o -C ../linker_scripts/apple2_1700_9000.inc
 
@@ -208,6 +218,6 @@ compress_test.o:	compress_test.s lz4_decode.s compress_test.inc
 
 clean:		
 		rm -f *~ *.o *.lst *.lz4 HELLO OOTW OOTW_C2 INTRO LOADER \
-			COMPRESS-TEST \
+			COMPRESS-TEST AUDIO_TEST \
 			intro_data_01 intro_data_04 intro_data_06 \
 			intro_data_08 intro_data_09
diff --git a/ootw/audio.s b/ootw/audio.s
new file mode 100644
index 00000000..3be04c87
--- /dev/null
+++ b/ootw/audio.s
@@ -0,0 +1,197 @@
+; Based on BTC.SYSTEM by Oliver Schmidt
+
+spkr	=	$C030
+btc_lo	=	$FE
+btc_hi	=	$FF
+
+
+;****************************************************************
+;*                        Audio playback                        *
+;****************************************************************
+playaud:
+	lda	#>audio
+	STA	btc_hi
+	lda	#<audio
+	STA	btc_lo
+	LDX	#$f		; play $0f pages of data
+	ldy	#0
+
+ ; loop here as long as BITs are [F]alse (aka 0)
+F_NX:	NOP			; 2 2
+	NOP			; 2 2
+	NOP			; 2 2
+	BIT	$00		; 3 3
+F_RD:	LDA	(btc_lo),y	; 5 5 5
+	ASL			; 2 2 2
+	BCS	T_1_SW		; 2/3 2
+	NOP			; 2 2
+	NOP			; 2 2
+	NOP			; 2 2
+	NOP			; 2 2
+F_1:	JSR	delay		; 6 (+13) 19
+	ASL			; 2 2 = 31
+	BCS	T_2_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_2:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_3_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_3:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_4_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_4:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_5_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_5:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_6_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_6:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_7_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+F_7:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCS	T_8_SW		; 2/3 2 2
+	NOP			; 2 2 2
+	NOP			; 2 2 2
+	NOP			; 2 2 2
+	NOP			; 2 2 2
+F_8:	INY			; 2 2 2
+	BNE	F_NX		; 2/3 3 = 31 2
+	INC	btc_hi		; 5 5
+	DEX			; 2 2
+	BNE	F_RD		; 2/3 3 = 31
+	RTS
+				; click speaker on transitions
+T_1_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [1]
+	BCS	T_1		; 3 (always)
+T_2_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [2]
+	BCS	T_2		; 3 (always)
+T_3_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [3]
+	BCS	T_3		; 3 (always)
+T_4_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [4]
+	BCS	T_4		; 3 (always)
+T_5_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [5]
+	BCS	T_5		; 3 (always)
+T_6_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [6]
+	BCS	T_6		; 3 (always)
+T_7_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [7]
+	BCS	T_7		; 3 (always)
+T_8_SW:	STA	spkr		; 4 [SW]itch to [T]rue on BIT [8]
+	BCS	T_8		; 3 (always)
+
+F_1_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [1]
+	BCC	F_1		; 3 (always)
+F_2_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [2]
+	BCC	F_2		; 3 (always)
+F_3_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [3]
+	BCC	F_3		; 3 (always)
+F_4_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [4]
+	BCC	F_4		; 3 (always)
+F_5_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [5]
+	BCC	F_5		; 3 (always)
+F_6_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [6]
+	BCC	F_6		; 3 (always)
+F_7_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [7]
+	BCC	F_7		; 3 (always)
+F_8_SW:	STA	spkr		; 4 [SW]itch to [F]alse on BIT [8]
+	BCC	F_8		; 3 (always)
+
+ ; loop here as long as BITs are [T]rue (aka 1)
+T_NX:	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	BIT	$00		; 3
+T_RD:	LDA	(btc_lo),y		; 5
+	ASL			; 2
+	BCC	F_1_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_1:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_2_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_2:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_3_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_3:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_4_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_4:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_5_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_5:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_6_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_6:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_7_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_7:	JSR	delay		; 6 (+13)
+	ASL			; 2
+	BCC	F_8_SW		; 2/3
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+	NOP			; 2
+T_8:	INY			; 2
+	BNE	T_NX		; 2/3
+	INC	btc_hi		; 5
+	DEX			; 2
+	BNE	T_RD		; 2/3
+	RTS
+
+delay:
+	nop			; 2
+	nop			; 2
+	BIT	$00		; 3
+	RTS			; 6 = 13
+
+
+audio:
+.incbin "ootw_audio/mytuba.btc"
diff --git a/ootw/ootw_audio/NOTES b/ootw/ootw_audio/NOTES
new file mode 100644
index 00000000..90ba3187
--- /dev/null
+++ b/ootw/ootw_audio/NOTES
@@ -0,0 +1,10 @@
+
+Based on info here:
+	https://groups.google.com/forum/#!searchin/comp.sys.apple2/qkumba$20audio/comp.sys.apple2/Fx2SkEWuXAE/aCS8ie20GQAJ
+
+Get wav file.
+Use audacity to convert to a mono 33kHz wave.
+
+Load into BtC converter via wine, write out 1-bit btc file.
+
+
diff --git a/ootw/ootw_audio/mytuba.btc b/ootw/ootw_audio/mytuba.btc
new file mode 100644
index 0000000000000000000000000000000000000000..530138df2ab50ad7eb7e7115eca7037b1faf1e57
GIT binary patch
literal 3840
zcmeHJeRLGn6(<ph334hCqT(lU6WEEtL&%1zwWgTlWG7iAvvVh8)_@W=!YmW~D4~j$
zz!3{rC|P!*y8*<ovu568!eNuy7$ZU}f~>@YA+t(C&>~O_M0zY=%13%9@uSCc+S5P!
zXWu#dcHVuzci+A5{qB7i;Q#GEoB&UTnhdo0uK{pFW9%fBNHh@w|0<KEVO4|}Kj@^1
zR>S~B0$ql=R3DZXM~MW?(0CZjfmB2h87yI73_zH<7k~|D1=z3*oF-_T3KFnnzfjmk
zktG=m%b`^R4%NthngkF{D;gKkHC|1lL)*$mZ7}k?Mfv&Cl9&`Fb&UpPV#$sJk|esg
z9!;BIcRkXbxO+*$GgTXn`{<s{#TrF`@|OYI6(#y>HbFyU_>lJY=m`T4jZv~jxCW0?
zlatez54^n6DA>L<Z>H`|8T=%vdN=Iql8nToGgrK~?UP{ggMA+^9yx01mDfvWWt~0c
zOP|-g<zU9+XT%+;Q~R3wYD;Hr-Sx|**WdDo3&&>cPFQ|w%%QvQx-#pwza}jGVodd^
zljl}gkA7YeKhP*V<-70p8}6Dj=G)wa!5bd?V&q`gO+9gseVe%8+?Iat%zxbc((lH+
zJ8J#8HK&uVTV6AmyY=@UT##>kI6HPEx1N8ssvr>aeYRiHH=Pte%&2&BXYsW8>>Edt
zn5ObGzW1|cocb!ecKU(Civ(f6@ODOZ_n+PxSGTtG%U5hQN6+U!9)Ei0FBZlhI9L9a
z#XWyUw^7#kv3$QX+&}fx-0wy|cx>C9aTl(PxfK6RyLf#3ajDJip0*~l^Uh=8(ECqK
zR2vVkZ>zbq;^M(QmsT8EoN;i>-kZf!{D+|Ep*<hxX-;ily5dOdbiB~8?CF%h|Khvd
zuH83pYoA+lWaY`l8GHd#2QeW!uVG8(nb^ivlz%(l@<Pp}QC9=Mwj^w=eoxsMr`$yP
zD!WNuQ@umY3Oh2OiiuF*niGHJ`YZ783fHU$h_fT<jKX$@x?7Ef>8;KO>O?jcCC~EE
zGVVyi9ru=YHGi>WVnKVs$&g;GrODH?0wF<jmeo}v%h}Grs?U6_uQ%`Y$b#SpJ0XI}
z+%h&wz)2xF^|D1#&1o`}k!i^!GLrVEX3}(6rkWU&cGA!Xb~GW_bAk!@SsS7}OAN;k
zSYU_O|2Y2NeV8^A<!1)`cf(eqQvV*gP+mAR8L0an<Hz`PL$(2#fW0Hb;Y9yzKY3DA
z#27^m#&9^nMu$n~?cr8D?=m+)9jtROotZ^UD``DMqdFyI-h`yonbBS`TQ34Aa^RYU
zA!)rNu{vaTAL}-l6SKc`IGGlvGt02qGTrP6_E>9o)Zj8p4pE^n26<~p-pkd^HXZ;j
zuvY=+x{9fHWI8h)_iEX#tyPm9*-h%iCVt^Q6G@)cZgVmRRC?or{>_g>Hvzqm3b#Jn
ztp|-q?<GyoRLDDow{G2+PWDl%H7e|*nkoX@)~)x??%MQ>jZ*65Z8B+UHJ-}IWV${x
z0+n2I?VVK8<}}CiOgkyi^7$?hnjY`gf92+QiI7-#|JF;h7IYS=U%4x0`56*90X%W4
zX+l?6ci+!7{S78P(YWWmvH^b02Tx3Q5PfH{!oKPh$l<6GCB_{8o~cQHyzAW;V+*ov
z*HP!A7X_MGy`w5tT3=A)rep1agx@gRzE%SVd<iSvuE-me$4g46$;OEmQjy`v%sf$;
z{>qz=E!*<wU!GpIQYKf+-<s!pMb2C_5Q?@?DscSWzWI$uFaB0fW0J;ZY>pjW->{&O
z)Z1baLP7#Da)a}joozACJ@#8x6_sykn<}%}Qpn@sbtfm6&B~q<Y%6bXR+zDgYm0gp
zuWRbDrxokG-mLR5b6Q^E<~GqYgBd*`?baD{U80`tWe;Wb$9g&~bmImP+aDFXrcjJm
z+PU2oE2DxTw^6N5qP(j=$~g@#r-ioD?CE98gaa63MU_3lDa1}i-svYF+mr2fMqAt_
z0v&ETyhzXUO4gK<=LMa&CwrxokCx5R6eetdJ9!l?Lx;#4Y=hOJIH9jkQ_5sQHZVS)
zR^B1zC{xxH5=m(5@F0bWJT8mz8j;?GDpR=DPD|oNk4RLYCb9m+hr~!sTi~^LAuV#P
zGoriwg=<Mk;?k-fr7CElXr}ILj}|fN@>X$7;^M{S6938FvZdB_HsTT0)I3VIOz!LG
zB&{`UW2$&|8N6`VvNEXLIB?XnMB9+6q-MIl*0pzhc~YvS`hs57UzirOXrFW1;^Ji4
zGE<E7M-JPQyv3atVr}#!|Aa(ObyrVRv9fwqEKILr{7^0m3WX`{(}<qxrR{#Smjsn8
zQZMStP2&}ydqt3Jv{Dw)O7bTZO$XIQDRiaEMO2HI0b*zx*cqa6J&I+mgzvMCX%B>$
z&eV=4{kqB%RtA@c$5{|`!N6Pzs$ficlL_?TD=kw_hl`I|^MNx2b1CN$wA5Ovp4UA9
z`H-V=K_9DnY?zW|M#cPUr|L8n1h<z2bV0EYSRxoaQ5da^1icFMn#GC)yheL7(o_$I
zO^Cs5OY#ncdIe0R6a;j(mX<b)AP_=p0`YF75yugkCc5CwhYZnNr2y9smg2qW9^#zf
zVNp907&ryJ6@p$4L{lH@=kzkBK(gt$ufgEGv%UbhaE*qWVeP;OAR-PMZ2*lHn!qOf
z5yHrnhF)?*vn=X0&u6&N64p!tsu+4VWK7ih_f?pA4!9FHq(MUCSfc#6tP&3bC-h+@
zCIo1+AF{?&V6K(TSu_+?NEDcObDB4eq$M<(xbdb?G2WF#n-3MfQ#eUT6o(3;P?2Gt
zib9*O7?__!ds5O51Ig466pcW0QerhAF``)0Kn$tCASFaz<4Hq$*J~o_^7?%B(80D!
zHdYpyBhcvO41nIWl6zboqCL5=Z7DC6OtW<M>4m;fZ%&UglHYixd8;*re6Bav&}VzX
z4nDflVZ2z`z%Z(7Cp$t~e%PC0v`~NcOuC%0CuM@;(+jIdz~%luYgJJS=a1ihvMsJ)
z;^n2x^+|2tbv<c~cs#bk>t<ZrpIbSd?>n6vmopfBk_u>?k@NDn-sR~Vvev=C`I@-7
z7w2!ZGLeWP3BpWc`~G?NOt5uySmInSk+9t#G3?W;n`$TeuGJS>yuDwa$xXa(XQa>%
zoj~hE;a4}z{dQBFPwS{USW~q8Ig7-{z?u`mrz@Tt?AkguBd522YkXTDLz==0QJ<Sl
z8tL1vY4ItfUDH!Xzp-e3r@RpfXkJFHd)GIGW2-{kGHZPEnFdv}gNM=rq|jP=72>i6
z{7ydTiy4d|1d%H(P@GgZ=oq2&0;Ah0Rlo}e2i~MnxQe@WXr!aw#u}{T^Z;dW$d48%
zw9dHtdMY3cS-{1B8seYM%&gxvzn1Eefe*@_GIr>Cbyi7kzRaXi29jq#vPCkv1bo>P
z+10b(3WDN9ZeuhE3aCIc;L_)>#XvzOdVt0mWRSwJy&@xJ4D&Hy3VEHTrBab;KrT^c
zArU|!2tLdw0zqmKpMi8lGNLM(R$V}2b%wjJCimPVtk9TvC@=C9^|LC{9f3ijp`#$6
z1B5YUhMBKiJaQSyj2QvL({$Pj<$Q36-fq)E&a8IWm;q_vEP^_$&roD8$uUJ{NJwU{
zQXz@bNVgBI)A7<V=J89RHIc>G(XejBp}~_tkVJ4V1kt3)pofl&B0Z!*L3ipnv>0)w
z-KKU-MkxJW!fBAkV4~D9ybMkPN>PV05@3koZkS6bV&EyD7l^@(iBdEL7(!aidNgF(
Pg_fY#=mS=-v;pu>zl%g*

literal 0
HcmV?d00001