MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 14:11:48 -06:00
Code Issues Projects Releases Wiki Activity

xmodem + dump changes

Browse Source 
x-modem transfer only included if dsky not enabled.
dump will now dump 100h bytes if no end address entered.
This commit is contained in:
b1ackmai1er
2021-09-11 22:38:48 +08:00
parent 62e2f41100
commit 5c44fcd88e
1 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Source/HBIOS/dbgmon.asm
View File

@@ -33,6 +33,9 @@ BUFLEN .EQU 40 ; INPUT LINE LENGTH
;
#IF DSKYENABLE
#DEFINE USEDELAY
ENA_XM .SET FALSE ; NO ROOM FOR BOTH DSKY+XMODEM
#ELSE
ENA_XM .EQU TRUE ; INCLUDE XMODEM IF SPACE AVAILABLE
#ENDIF
;
#INCLUDE "util.asm"
@@ -100,8 +103,10 @@ SERIALCMDLOOP:
JP Z,PROGRM ; IF YES GO PROGRAM ROUTINE
CP 'O' ; IS IT AN "O" (Y/N)
JP Z,POUT ; PORT OUTPUT
#IF (ENA_XM)
CP 'T' ; IS IT A "T" (Y/N)
JP Z,XMLOAD ; XMODEM TRANSFER
#ENDIF
CP 'L' ; IS IT A "L" (Y/N)
JP Z,HXLOAD ; INTEL HEX FORMAT LOAD DATA
CP 'I' ; IS IT AN "I" (Y/N)
@@ -319,7 +324,7 @@ KLOP1:
JP Z,SERIALCMDLOOP ; IF SO, ALL DONE
CALL COUT ; OUTPUT KEY TO SCREEN
JR KLOP1 ; LOOP
#IF (ENA_XM)
;
;__XMLOAD_____________________________________________________________________
;
@@ -498,6 +503,7 @@ TXT_PKNUMERR .TEXT "\r\nPacket Number Error$"
TXT_TMOUTERR .TEXT "\r\nTimeout Error$"
TXT_RETRYERR .TEXT "\r\nRetry Error$"
TXT_CANCLERR .TEXT "\r\nTransfer Cancelled$"
#ENDIF
;
;__HXLOAD_____________________________________________________________________
;
@@ -608,7 +614,8 @@ PIN:
;__DUMPMEM____________________________________________________________________
;
; PRINT A MEMORY DUMP, USER OPTION "D"
; SYNTAX: D <START ADR> <END ADR>
; SYNTAX: D <START ADR> [END ADR]
; IF NO END ADDRESS, DUMP 100H BYTES
;_____________________________________________________________________________
;
DUMPMEM:
@@ -616,12 +623,14 @@ DUMPMEM:
JP C,ERR ; HANDLE ERRORS
PUSH DE ; SAVE IT
CALL WORDPARM ; GET END ADDRESS
JP C,ERR ; HANDLE ERRORS
PUSH DE ; SAVE IT
POP DE ; DE := END ADDRESS
POP HL ; HL := START ADDRESS
POP HL ; RECOVER START
JR NC,GDATA ;
;
LD D,H ; DEFAULT TO 100H
LD E,L ; BYTES IF NO
INC D ; END ADDRESS
DEC DE ; IS GIVEN
;
GDATA:
INC DE ; BUMP DE FOR LATER COMPARE
CALL NEWLINE ;
@@ -1188,7 +1197,7 @@ TXT_BADNUM .TEXT " *Invalid Hex Byte Value*$"
TXT_MINIHELP .TEXT " (? for Help)$"
TXT_HELP .TEXT "\r\nMonitor Commands (all values in hex):"
.TEXT "\r\nB - Boot system"
.TEXT "\r\nD xxxx yyyy - Dump memory from xxxx to yyyy"
.TEXT "\r\nD xxxx [yyyy] - Dump memory from xxxx to yyyy"
.TEXT "\r\nF xxxx yyyy zz - Fill memory from xxxx to yyyy with zz"
.TEXT "\r\nH - Halt system"
.TEXT "\r\nI xxxx - Input from port xxxx"
@@ -1200,7 +1209,9 @@ TXT_HELP .TEXT "\r\nMonitor Commands (all values in hex):"
.TEXT "\r\nR xxxx [[yy] [zzzz]] - Run code at address xxxx"
.TEXT "\r\n Pass yy and zzzz to register A and BC"
.TEXT "\r\nS xx - Set bank to xx"
#IF (ENA_XM)
.TEXT "\r\nT xxxx - X-modem transfer to memory location xxxx"
#ENDIF
.TEXT "\r\nX - Exit monitor"
.TEXT "$"
;