From 99a57fa5308467380cfc2e8e0132afbfbb02927b Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bmanners@krakenrobotics.com>
Date: Wed, 23 Oct 2019 13:31:18 -0400
Subject: [PATCH] Added printout of Z80 SP to test stub

---
 SOFTCARD80.ASM#040000 |  30 +++++++++++++++++-------------
 SOFTCARD80.BIN#041000 | Bin 32771 -> 32771 bytes
 zapple2.po            | Bin 819200 -> 819200 bytes
 3 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/SOFTCARD80.ASM#040000 b/SOFTCARD80.ASM#040000
index 9166f08..be03968 100644
--- a/SOFTCARD80.ASM#040000
+++ b/SOFTCARD80.ASM#040000
@@ -416,8 +416,7 @@ CHECKOK		LD		A,(AREG)		; Look at the return code
 			JP		Z,COKS1			;
 			PUSH	AF				; Preserve A
 			LD		DE,FAILMSG1		; Fail message
-			LD		C,B_C_WRTSTR	;
-			CALL	BDOS			;
+			CALL	C_WRITESTR		;
 			POP		AF				; Restore A
 			LD		L,A				; Copy to HL for NUM2HEX
 			LD		H,0				; ...
@@ -426,15 +425,20 @@ CHECKOK		LD		A,(AREG)		; Look at the return code
 			LD		A,0FFH			; 0FFH for error
 			LD		L,A				; Return code in L also
 			LD		DE,HEXBUF+2		; Write hex value to console
-			LD		C,B_C_WRTSTR	;
-			CALL	BDOS			;
+			CALL	C_WRITESTR		;
 			LD		DE,FAILMSG2		; Fail message
-			LD		C,B_C_WRTSTR	;
-			CALL	BDOS			;
-			RET						;
+			CALL	C_WRITESTR		;
+			JP		COKS2			;
 COKS1		LD		DE,SUCCMSG		; Success message
-			LD		C,B_C_WRTSTR	;
-			CALL	BDOS			;
+			CALL	C_WRITESTR		;
+COKS2		LD		(TEMPWORD),SP	; Print out stack pointer
+			LD		HL,(TEMPWORD)	;
+			LD		DE,HEXBUF		; Generate hex string to HEXBUF
+			CALL	NUM2HEX			;
+			LD		DE,HEXBUF		;
+			CALL	C_WRITESTR		;
+			LD		DE,CRMSG		; Carriage return
+			CALL	C_WRITESTR		;
 			RET
 
 WELCOME		DEFB	13
@@ -479,13 +483,13 @@ DMSG		DEFB	13
 			DEFM	'Deleting A/TEST.TXT'
 			DEFB	13, '$'
 			
-SUCCMSG		DEFM	'Success!'
-			DEFB	13, '$'
+SUCCMSG		DEFM	'Success! SP=$'
 			
 FAILMSG1	DEFM	'FAIL (0x$'
 			
-FAILMSG2	DEFM	')'
-			DEFB	13, '$'
+FAILMSG2	DEFM	') SP=$'
+
+CRMSG		DEFB	13, '$'
 
 TEXTBUF		DEFM	'Mary had a little lamb. Its fleece was white as snow. '
 			DEFM	'And everywhere that Mary went, that lamb was sure to go.$'
diff --git a/SOFTCARD80.BIN#041000 b/SOFTCARD80.BIN#041000
index 6668fecf560fc3fe46f4f7ab6be621eed1dbb913..30b62fc09dc761d9d6e048d09d662305e561948b 100644
GIT binary patch
delta 267
zcmZo}U}|n)+Q7od=s1~`ahg&TGau(!RtCWs20k$$efArZU<nJK6iBEFA~pFQqtfL2
zjEamiCo?ihS*}B95Cp3F$8gGsN$>{qVN)i-i%_Y@P&$W!52_>-sAO^olMdsJ$&E~!
zB3vwROZlOe%1_?MBn`CU7L%%rBJ)?lWR|nKi68UT7zCZN&Yn!S`=2l9k_8kJ%mGOp
zR%aFr12Ntf%P?rkKox<M0#y`&BsLo`%Q1>51P9ovxH)?IC}<c|sAz(@o1<9zq8BqK
GC;$M_Y)hU1

delta 243
zcmZo}U}|n)+Q7ods5hCFahj4lGau(!RtCWs20k$$efArZU?dBl6i6r?A~pFQqtfL2
zjEanHlNp($EN3G$2m)38V>o5RBzTnhuql(^KB&|MD4oN=2UQXZR5Ce)Nr&<1<VGe<
zk?#mI_@S2aOy0*N4YcAGld7RA^H)J%7O=ZM=BqIXI%S<bnQr$#U(h8B;@B{V<Viti
k2xGG|vm7H2uZo+ar;mb$L4}Iu=2Div=!p)}i<uJ?0L+3v)&Kwi

diff --git a/zapple2.po b/zapple2.po
index ddd2a350a84361d94fd51325224ae27348ea651f..a2f27cddff6ab58a32477d511485f12a40cfef70 100644
GIT binary patch
delta 747
zcmYLEPe>GT6rS1Hv3bAW&bH%*#40-e$$xF2112R!wyT*bv$&ejpTi^~nz%Bq5kaw1
z&@nRHX9QiM5i%kV?OZ}By(q09bPx}Dkh}$XC`d5-&A8;@<9*-vzV{w4mC{lv?R~8n
zD3<x&szRCLwm8lq&(4ZP^gst3{m>8}8zRr(VGtO+433w_aKtu5>D3dy8O13nU3N|I
zLssOJ8=Sv@)$DJNlJxpRj&<*#h2N&6GTfY!O8Mu=r=`%DcZV|y3;yL+G>@__EH-$Q
zwOnf}SBE)&F4Dsy*qxTb{5npgrJ7^J`~ULM+~pFSPfLaD%tl%|5iJ#dDSh7TDPt#5
z$tf3yvdaVK_Y+EVh*`?8(^#w$l&cQ;F;>LY7Ue=tlqF23Vb`Hl%onKf*tv?<=F1&w
zb=}>H8du5{7@LLD_T;n_@62pV+Y30hLV`B2AjG>A+h(BBWj+9Cj{!vVD{&29%s{<s
zx4RmkBMMO6-O?HB)w`lK;dl(1)R;Lql2jApNp&n~^xalR6HND;GTY?D+d9IB6VN2%
z&N9*PsRcpa<xUx0AqC~Re6%GT>FSJM0=7D0nC74{(65^P$#HY!AZY)bfnAT+c@6)(
zfd<)qvPzcSF}r>iibM9=v?Ta#;VbNk_-P*Q;Dvbz<IM$VwHr6!IJLGRg!*@w!%a$q
zxay;U59K5*XZ*zX60ghTb>=P6gYF)WEqo?>Jf;G)7Web1hO-N#2h}gcXZw~&1gupO
v#)*7df+JZni6;r6Hr*xBMoXi0sMpiE%q^-HS`TO*>i3y?MD<4NBVGCjj>6>|

delta 571
zcmYLDO-K}B7@lut$G)H0aVA4(*A|m?H-9i4sHK9))~ujyAT<fRtQWxwuR#zSi5(+!
z=QV;LgV|s=a1QxF)C#p83|2bS#X~{C9t95-ENFc@v)~8M_rA~bynnfzmCISHy{d6n
zLzBs4nk4;_q(-uMR_$OhpBt0OnD!{EKF+F0Ko(F0LIMq~Mc@$6s`%9tGyrNIJ6)F*
zom5rHoRai*5vzY>^HxZYG^Clpg710U1wZomI9dSY;K-Th2R)`J+?PIEvbmvrIwhOs
zruC&6??`&HWI~j{xP$xA20V0d&yl|eQ(BvwH7GkcD%NZ}xO=Eu`E6!G{&~A|3CX-T
zTiu*F|8LG5nGJ5f8JL@9I!JgLa180;_~`J}Yn>+s@5Ot<aX=+<n!j1bV;Q)xgrjRU
zTw8~4&qy40o?^_AOAe!eCkiCtXGFXkm&U~pw+m#**Z9h7QkUUmk+eghNCuQ-nDC!P
z5{tn7GFfRIzCJ=oYV=B@_grU&?=E9S=gL>Ir*dzb*ldY<ZjD6Vdeja>$2)3(QKB!`
zbgI4JA4)Xc2Kz@@FRZpP3#KY`!k-{><s;og+^bNVKyjV+L0_FNxLdTJdv$83oN4B{
d78~T=G_#}5ykHMl3-{)komw<x&wbA-{{g97vDW|q