From bf2010398add0358eb0f8016868c1fe0de23a6fe Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 1 Jan 2019 00:39:33 -0500
Subject: [PATCH] fire_tiny: give up at 106 bytes

---
 fire/fire.dsk        | Bin 143360 -> 143360 bytes
 fire/fire_tiny.s     |  42 +++++++++++++++++++++++-------------------
 fire/monitor_command |   3 +++
 3 files changed, 26 insertions(+), 19 deletions(-)
 create mode 100644 fire/monitor_command

diff --git a/fire/fire.dsk b/fire/fire.dsk
index 524cee5ddace2655225bf00215506e9c43aad612..983663a0f7826e904da0617dd6199346402576fd 100644
GIT binary patch
delta 934
zcmZWne@GKi9Dnb;-OW+<o>3?yJEfY7RfD1;h*Burl5I*qw4fFhwH4K05&g3TT@B%t
zb%7jZ9qJ8Fl4dY$j%p<?HX>I95hPX+{h-#UpqPTarv*vhKi=o=!~6W;dl!Cf4!<_X
zupgQfX!#mK`#EXNgw!(W*p@PYV@Jy2OF5cT(h+P-b=f*|VipxON1_{%R+Q*LWEV>4
zh-^ZMC?a*}>_nICZcdbo_IbV1igMj!hXo;V95uEez1Zoa;x|1LkqElq4^qyO#%k1f
z6oCksp6!@IwF<@>?scOJ3UjYGm?u}zVU}y6xqfYh6jJK;tqB=G&PzX$RF4h*?~{L;
z{KM2^_Uf$A^8ubL#>9pLkSxPwIm6YMtYx?!lMPrqr8`x?t6^RRCN*qI`Oq8{2x?eR
zfvASX2zujZHUim=$sQ)#hePB5)fw8XdsO&!ro-u(R;Tf_kSE=kM48aQ<R-&gnA~O<
z$K($40srRD@<i{Z9gV!CB4bRem98SAPphyn%xesk!nNwMnFY?A0#Co=H&~~@;F8LX
z<^ULaU%T2~Q{TMZBW-atZ{EAj<!P;<cOD$d{W2CwRpmw%J^GtcnX$qT3a+Vj0Vier
zAH|FqE4pK#U~(7ub}k3}x~H&I@aW!UF;n~ePjqCj>!j?}J+7Uy$Il2lvbS+-x$Z5D
zTMA#=KgV9tES(cXR_oXa5Cl^Dclt*eQ<_c9(e)O)7M_FBLvWUpOFl5<Ws_#3NhS+R
zbydk8r+I+4i+%AS#{hqci=ekrm_=D<8YDp<UEWxmz0w_kZg+3u1qk-G*+q9L?*~4O
zMqcNHQkJ~`1i1KrvLik!55=F#H`2+pb`D09*|t(%PR5_fnr2Jn#0Hu=t4Z*13_9YE
zR39xqPFrNrU1#EN4JCKksbtTuSCD1Z?Vv9TCkLAlOqRitj=5G?U&aGL;M19BBje9A
tPhKi#Di<IQ2xfkGboBA~NIE?-{G5{WOE@sqvC;~y=LfBDaL~%R&~IxIXs7@H

delta 336
zcmZp8z|ru4V}oD<H!~Xx8!H<d8#^1vWJa#14g%-c70iAsMEubSIk1vJC+vVuzyY10
z18W%$7%=;Y2>8edc<gf)=rb1B=^`MJ`mWbRAY+mG+zYIy1b!tf&{L3~yfD#BdFeZe
zOqSlc0=<g`G8ubU3iPfA(OU(2cZ2AI0=>rtw##`l9%qwV$<X?4<vRsSft7a`Xed|<
ztX#D~0z|!Azy+ixf0(1DyH|XrtioRLwSfmt-u>_eNO}IZ$TR?oB)nul$-d#2*9L|U
ztX>~jCNN!KNC5i5iiwR2NPXIr6|ju)$M!%0#@&33oYQ&b8J#>i8U8b{Tt9f_=%r%^
z&zxCz{LINKhfmyGfCShD82+;(DY<;|?1eK&krXUgAR^B2f4aUrqkQ{zdB*MA<(WJM
E0G1|<xBvhE

diff --git a/fire/fire_tiny.s b/fire/fire_tiny.s
index baedf5aa..995a0993 100644
--- a/fire/fire_tiny.s
+++ b/fire/fire_tiny.s
@@ -30,11 +30,17 @@
 ; 113 bytes -- make get_row a subroutine
 ; 112 bytes -- regrettable change to the low-byte code
 ; 109 bytes -- replace BIT/OR in low calc with an ADC
+; 107 bytes -- replace self-modifying load/store absolute with Y-indirect
+; 106 bytes -- assume bit 8 is as random as bit 0
 
 ; Zero Page
 SEEDL		= $4E
 TEMP		= $00
 TEMPY		= $01
+OUTL		= $02
+OUTH		= $03
+INL		= $04
+INH		= $05
 
 ; 100 = $64
 
@@ -73,26 +79,21 @@ fire_loop:
 yloop:
 	stx	TEMPY	; txa/pha not any better			; 2
 
-	; Self-modify the inner loop so it loads/stores from proper
-	; low-res address.  Generate the proper row memory address
+	; setup the load/store addresses
+	; using Y-indirect is smaller than self-modifying code
 
 	jsr	get_row							; 3
-	sty	<smc_sta+1						; 2
-	sta	<smc_sta+2						; 2
+	sty	OUTL							; 2
+	sta	OUTH							; 2
 
 	inx								; 1
 
 	jsr	get_row							; 3
-	sty	<smc_lda+1						; 2
-	sta	<smc_lda+2						; 2
+	sty	INL							; 2
+	sta	INH							; 2
 
 	ldy	#39							; 2
 xloop:
-smc_lda:
-	lda	$7d0,Y		; load value at row+1			; 3
-	pha			; save on stack				; 1
-	and	#$7		; mask off				; 2
-	tax								; 1
 
 	;=============================
 	; random8
@@ -112,18 +113,21 @@ noEor:	sta	SEEDL							; 2
 
 	; end inlined RNG
 
-	ror			; shift into carry			; 1
+	bmi	no_change	; assume bit 8 is as random as bit 0	; 2
 
-	pla								; 1
 
-	bcs	no_change						; 2
+	lda	(INL),Y		; load value at row+1			; 2
+	and	#$7		; mask off				; 2
+	tax								; 1
+	lda	<(color_progression),X					; 2
 
 	.byte	$2c	; BIT trick, nops out next instruction		; 1
 no_change:
-	lda	<(color_progression),X					; 2
+	lda	(INL),Y		; load value at row+1			; 2
+
 
 smc_sta:
-	sta	$750,Y							; 3
+	sta	(OUTL),Y						; 2
 	dey								; 1
 	bpl	xloop							; 2
 
@@ -136,10 +140,10 @@ smc_sta:
 
 
 color_progression:
-	.byte	$00	; 8->0		; 1000 0101
-	.byte	$bb	; 9->11		; 1001 0001
+	.byte	$00	; 8->0		; 1000 0000
+	.byte	$bb	; 9->11		; 1001 1011
 	.byte	$00	; 10->0		; 1010 0000
-	.byte	$aa	; 11->10	; 1011 0000
+	.byte	$aa	; 11->10	; 1011 1010
 	.byte	$00	; 12->0		; 1100 0000
 	.byte	$99	; 13->9		; 1101 1001
 	.byte	$00	; 14->0		; 1110 0000
diff --git a/fire/monitor_command b/fire/monitor_command
new file mode 100644
index 00000000..43f9a25e
--- /dev/null
+++ b/fire/monitor_command
@@ -0,0 +1,3 @@
+70: 20 90 F3 2C 52 C0 A9 FF A0 27 99 D0 07 88 10 FA A2 16 86 01 20 C2 00 84 02 85 03 E8 20 C2 00 84 04 85 05 A0 27 A5 4E F0 05 0A F0 04 90 02 49 1D 85 4E 30 08 B1 04 29 07 AA B5 BA 2C B1 04 91 02
+B0: 88 10 E2 A6 01 CA 10 CA 30 C6 00 BB 00 AA 00 99 00 DD 8A 29 19 4A 69 01 4A 4A A8 B9 D7 00 6A A8 8A 29 07 4A 09 04 60 00 50 A0
+70G