From 9d20183e9824a0ce9cff7d5e51a1a1986af2e98f Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 2 Apr 2023 16:06:23 -0700
Subject: [PATCH] Save a few bytes to get it under 1K

---
 client/BUILD/a2pi.wdc.s     |   8 ++++----
 client/BUILD/a2pluspi.wdc.s |  32 +++++++++++++++++++-------------
 share/A2PI-WDC.1.7.PO       | Bin 143360 -> 143360 bytes
 3 files changed, 23 insertions(+), 17 deletions(-)

diff --git a/client/BUILD/a2pi.wdc.s b/client/BUILD/a2pi.wdc.s
index 2aa03f0..7e2bc20 100755
--- a/client/BUILD/a2pi.wdc.s
+++ b/client/BUILD/a2pi.wdc.s
@@ -262,7 +262,7 @@ SENDACC	PHP
 	SEI		; Disable interrupts
 	PHA
 	LDA	SSCSLOT
-	ORA	#$89+1
+	ORA	#$88+2
 	TAY
 	LDA	#$07
 	STA	$C002-2,Y	; Enable transmit IRQ
@@ -284,7 +284,7 @@ IRQWT	LDA	$C001-2,Y	; Wait for IRQ to clear
 * ACIA RECEIVE BYTE IN ACCUMULATOR
 *
 RECVACC	LDA	SSCSLOT
-	ORA	#$89+1
+	ORA	#$88+2
 	TAY
 RECVWT	LDA	$C001-2,Y
 	AND	#$08
@@ -298,9 +298,9 @@ CHKEVENT	LDA	ANYKEY	; CHECK FOR KEY PRESS/RELEASE
 	CMP	KEYSTAT
 	BNE	SENDKEY
 	LDA	SSCSLOT	; CHECK FOR INPUT TO ACIA
-	ORA	#$89+1
+	ORA	#$88+2
 	TAY
-	LDA	$C000-1,Y
+	LDA	$C001-2,Y
 	AND	#$08
 	BEQ	CHKMOU
 	LDA	$C000-2,Y
diff --git a/client/BUILD/a2pluspi.wdc.s b/client/BUILD/a2pluspi.wdc.s
index 4f280b8..9622f54 100755
--- a/client/BUILD/a2pluspi.wdc.s
+++ b/client/BUILD/a2pluspi.wdc.s
@@ -231,14 +231,14 @@ SENDACC	PHP
 	SEI		; Disable interrupts
 	PHA
 	LDA	SSCSLOT
-	ORA	#$89+1
+	ORA	#$88+2
 	TAY
 	LDA	#$07
 	STA	$C002-2,Y	; Enable transmit IRQ
 	LDA	$C001-2,Y	; Clear any oustanding interrupts
 	PLA
 	STA	$C000-2,Y	; AVOID PHANTOM READ FROM $C0XX
-	PHA
+;	PHA
 SENDWT	LDA	$C001-2,Y
 ;	AND	#$80	; Check IRQ status
 	BPL	SENDWT
@@ -246,32 +246,38 @@ SENDWT	LDA	$C001-2,Y
 	STA	$C002-2,Y
 IRQWT	LDA	$C001-2,Y	; Wait for IRQ to clear
 	BMI	IRQWT
-	PLA
+;	PLA
 	PLP		; Restore interrupts
 	RTS
 *
 * ACIA RECEIVE BYTE IN ACCUMULATOR
 *
-RECVACC	LDA	SSCSLOT
-	ORA	#$89+1
-	TAY
-RECVWT	LDA	$C001-2,Y
+RECVACC	;LDA	SSCSLOT
+	;ORA	#$88+2
+	;TAY
+	LDY	SSCSLOT
+RECVWT	;LDA	$C001-2,Y
+	LDA	$C088,Y
 	AND	#$08
 	BEQ	RECVWT
-	LDA	$C000-2,Y
+	;LDA	$C000-2,Y
+	LDA	$C088,Y
 	RTS
 *
 * CHECK INPUT STATE FOR CHANGE
 *
 CHKEVENT	LDA	KEYBD	; CHECK FOR KEY PRESS
 	BMI	SENDKEY
-	LDA	SSCSLOT	; CHECK FOR INPUT TO ACIA
-	ORA	#$89+1
-	TAY
-	LDA	$C000-1,Y
+	LDY	SSCSLOT
+	;LDA	SSCSLOT	; CHECK FOR INPUT TO ACIA
+	;ORA	#$88+2
+	;TAY
+	;LDA	$C001-2,Y
+	LDA	$C089,Y
 	AND	#$08
 	BEQ	CHKMOU
-	LDA	$C000-2,Y
+	;LDA	$C000-2,Y
+	LDA	$C088,Y
 	JMP	HOSTREQ
 CHKMOU	DEC	WAITEV	; CHECK FOR MOUSE UPDATE
 	BEQ	UPDTMOU
diff --git a/share/A2PI-WDC.1.7.PO b/share/A2PI-WDC.1.7.PO
index 59fd712eb06792b870bda596aeec556edeff5452..a6a2b3a79da942099023ca125abf01e7fb8d8e83 100644
GIT binary patch
delta 1185
zcmZ`%Z)_7~7{BwnyY5e=Opxhhyc3LFC`;kPyxC8+TT)|Xunis2#A-BYjM+?-*l#Uh
z8=TxSI9U7C1jm`8r@f&xBAqd7OpMmxav%KQ7ZajM5iRA`Zlhh->GO6tV${of&-;6R
zzvs`JCr{{_IdskZX}_u2WZlX9$}q>e8?5pH(>Ckpq>eYp)LW)E*;bBO<B;EBq5Rab
zZr+-zHEiNpHf3q4zRQWb_oc?JXe<Ttj@cu!BR<-Q*g}R~hb{8%*^bmV@ejAx<*_Sq
z)+slpKS6r{hJ#LTpNk9)xre+1!xrKk7<7@HyTp33lV%fd-{B2?u;2a6v%{pGv&-#p
z?A^1^UJr2*bVZRmuKj&j!69166a5FtdIlDzZD@+)pDC;;KR^3&%iR{lDZd_nwDUh6
zvQeVmRetW$_D;9wsiy}H{eN{){wY41I`d`gmP@+*en%d<1nCwu;V0dMoRAQ*-|63K
z3?~&pXMH2dTVU9yA0QB$ZdF+V@@T%T8J%s^i6skiFxO$a3<%EW+O1{KAJU4PbQ`o1
zCzV0IntL!<g_EnG#>iOI??Hn{tAXC8F`4XfV{=wEEGjE40{I|1$w@WvCs$#n3N~pK
zh*6uUg7QnGN12K|raT@Im1v|FMc*kKt<iz1`T`+Q^#mI8NN&G=Pi}w~TC!o(G;^{B
zzC+qenI`SU%&T1)bHJk&pmF>oRRAWF{&UU`Yjb#6t7`K);i%et$pWNLWV*~o1uq{y
z)6q+*cPPap<z0)-FUntE?`bW8RDw2N_B~x7mqC@@IFe$U*4X<*-_LVVqv3mN*|Fs-
zJ*sa?mgM%|yMqv$9K?a9118CUblD^=AQn8+Th$N_Q!~J_0LEtZZ8{<Ys9m5IQ~VGR
zx<Wq`QI?9JMvx`1M71K7+k7*5Fe;t|FI6BRNGqT+VLl>!#)o-7O39mG4v-sQ3u+Yz
z^V$l81<^+<te>;dFh5Q)0%6=+2htMUp`>LfECZ!4@DmldAWW=4c2e(DPLZoIay_On
z=Xp%d@i=;6ehGAAei`&XjGpXi{o#Nj{~d+ZgGc#)g;}#_3{y6)Kl1T!H1Y;0=SIvP
z+S`BUzx!yM^pxJAL@`i3hiZbKsX&CES%HXvE*{aB4e2cupN(dZ8uPlLysux>tQp0?
z9okdFC2GedszrLWG8p$tCGN?Dw8&|<K`L^%;0$gquB{hhukrF;e(UL+{kT2<g+0&y
G=>7|4W)2Ae

delta 917
zcmZuvOK1~O6rIUT-o&<P(pGK!)$vO!Qo5>DT)0q)P*ikNaN#J3K|~iSW|#O$km@U~
zBb~e_)Mg;1qnY~2LMzy2rz0Ak;zAHX6rxx^qy3n)ruB}0(BaPI+;h&m?{T@&7oO+~
z&$Ufrd8Ka|_lo0AHdgx7?P9Hem;4?7CNsyyqkOf<Arbh+UWe~K+35FWN^T$Gxs11B
z>a6<g(Jb}YtqYk{qK1bepfZwEuRQM0Y`(a1(f?E>v-7c8li7fV`5SEY+@>+oAmJ~h
z3_d(g@={8&?y<WjC*TRfc%?1<h1jcm=gG-LZ?(b8N%hdXKsgk(PLW7YsF8e~I79#>
z^9%eOWed&E0-hn}sDL@DKFH6H2=tstjf8wy3k4xTm~P4fCYQBN*;STmdkr3cC33&k
zDPT7ZrA0a*(0VLV*)DYmRDT(7*1O|t^mXwTU5l>;QR%98denhx?3QKCI0MPkmfy-;
z`E5?4@p^Fea_8Js@tJ$GW#*pjfrhLn95g4?EAN-Dnjo{<`v+%+8$5P#aC%sQ$26@s
z|6&oat%&5ls<&S^mroHqMFNU-<k<cUUsmE5Tx60wL=4=bJin{i?)&~i)9gD>HRelC
zsWopKBgsVP4jA2FSi}V~SP*d$uoUc_V?<$WW`TH%#I7<<JHsdtCl{RzM?xelHAEjy
zf{Z7L5eHV@r<s$E98d<vh+Pb(5awx0!Y*oXF%*}sqZkT-lpZIZu>6VCM@*i^km;f^
zsYP)*{0L2pp>_uYklI_n16(3MDLhR+OcRIhLmfQrlR8|~>SRmwF8N79{+Q6YB!a_v
z1Vff`CBp37G+`rlvvr;=4eRPJ7j%!DK>yhM)&*O%C|hy)jpO`8^qw|P(78MG^Z)Z`
z7<D(R(={*}J)ox008is+z(wN{ln^b76=f9;)->ycony9siCs1QS>1+hQHMq<mT=Ur
l#G}HN6dn`I8G=6xu)-YdCM;%aGI0={8XdVgI>LK5egmThv=aaT