mirror of
https://github.com/bobbimanners/Zapple-II.git
synced 2024-05-31 14:41:31 +00:00
Added printout of Z80 SP to test stub
This commit is contained in:
parent
0b80a70c3a
commit
99a57fa530
|
@ -416,8 +416,7 @@ CHECKOK LD A,(AREG) ; Look at the return code
|
||||||
JP Z,COKS1 ;
|
JP Z,COKS1 ;
|
||||||
PUSH AF ; Preserve A
|
PUSH AF ; Preserve A
|
||||||
LD DE,FAILMSG1 ; Fail message
|
LD DE,FAILMSG1 ; Fail message
|
||||||
LD C,B_C_WRTSTR ;
|
CALL C_WRITESTR ;
|
||||||
CALL BDOS ;
|
|
||||||
POP AF ; Restore A
|
POP AF ; Restore A
|
||||||
LD L,A ; Copy to HL for NUM2HEX
|
LD L,A ; Copy to HL for NUM2HEX
|
||||||
LD H,0 ; ...
|
LD H,0 ; ...
|
||||||
|
@ -426,15 +425,20 @@ CHECKOK LD A,(AREG) ; Look at the return code
|
||||||
LD A,0FFH ; 0FFH for error
|
LD A,0FFH ; 0FFH for error
|
||||||
LD L,A ; Return code in L also
|
LD L,A ; Return code in L also
|
||||||
LD DE,HEXBUF+2 ; Write hex value to console
|
LD DE,HEXBUF+2 ; Write hex value to console
|
||||||
LD C,B_C_WRTSTR ;
|
CALL C_WRITESTR ;
|
||||||
CALL BDOS ;
|
|
||||||
LD DE,FAILMSG2 ; Fail message
|
LD DE,FAILMSG2 ; Fail message
|
||||||
LD C,B_C_WRTSTR ;
|
CALL C_WRITESTR ;
|
||||||
CALL BDOS ;
|
JP COKS2 ;
|
||||||
RET ;
|
|
||||||
COKS1 LD DE,SUCCMSG ; Success message
|
COKS1 LD DE,SUCCMSG ; Success message
|
||||||
LD C,B_C_WRTSTR ;
|
CALL C_WRITESTR ;
|
||||||
CALL BDOS ;
|
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
|
RET
|
||||||
|
|
||||||
WELCOME DEFB 13
|
WELCOME DEFB 13
|
||||||
|
@ -479,13 +483,13 @@ DMSG DEFB 13
|
||||||
DEFM 'Deleting A/TEST.TXT'
|
DEFM 'Deleting A/TEST.TXT'
|
||||||
DEFB 13, '$'
|
DEFB 13, '$'
|
||||||
|
|
||||||
SUCCMSG DEFM 'Success!'
|
SUCCMSG DEFM 'Success! SP=$'
|
||||||
DEFB 13, '$'
|
|
||||||
|
|
||||||
FAILMSG1 DEFM 'FAIL (0x$'
|
FAILMSG1 DEFM 'FAIL (0x$'
|
||||||
|
|
||||||
FAILMSG2 DEFM ')'
|
FAILMSG2 DEFM ') SP=$'
|
||||||
DEFB 13, '$'
|
|
||||||
|
CRMSG DEFB 13, '$'
|
||||||
|
|
||||||
TEXTBUF DEFM 'Mary had a little lamb. Its fleece was white as snow. '
|
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.$'
|
DEFM 'And everywhere that Mary went, that lamb was sure to go.$'
|
||||||
|
|
Binary file not shown.
BIN
zapple2.po
BIN
zapple2.po
Binary file not shown.
Loading…
Reference in New Issue
Block a user