chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added SP storage in monitor

Browse Source
This commit is contained in:
FeralChild64 authored and FeralChild64 committed 2021-01-26 00:03:07 +01:00
1 parent 0d7d28dcfa
commit f49f247f2c
1 file changed
+13 -11
Download Patch File Download Diff File Expand all files Collapse all files
src/mon_m65/bsmon.s
+13 -11
View File
@@ -55,17 +55,18 @@
!addr Buf_Index = $26 !addr Buf_Index = $26
!addr MODE_80 = $27 ; 80 column / 40 volumn flag ; XXX add routine to detect this !addr MODE_80 = $27 ; 80 column / 40 volumn flag ; XXX add routine to detect this
!addr SP_Storage = $28 ; location to preserve stack pointer
!addr X_Vector = $28 ; monitor exit vector !addr X_Vector = $29 ; monitor exit vector
!addr Ix_Mne = $29 ; index to mnemonics table !addr Ix_Mne = $2B ; index to mnemonics table
!addr Op_Mne = $2A ; 3 bytes for mnemonic !addr Op_Mne = $2C ; 3 bytes for mnemonic
!addr Op_Ix = $2D ; type of constant !addr Op_Ix = $2F ; type of constant
!addr Op_Len = $2E ; length of operand !addr Op_Len = $30 ; length of operand
!addr Disk_Track = $2F ; logical track 1 -> 255 !addr Disk_Track = $31 ; logical track 1 -> 255
!addr Disk_Sector = $30 ; logical sector 0 -> 255 !addr Disk_Sector = $32 ; logical sector 0 -> 255
!addr Disk_Status = $31 ; BCD value of status !addr Disk_Status = $33 ; BCD value of status
; $32-$3F - free space, unused for now ; $34-$3F - free space, unused for now
!addr Disk_Msg = $40 ; 40 bytes, disk status as text message ; XXX rework code to make it not needed !addr Disk_Msg = $40 ; 40 bytes, disk status as text message ; XXX rework code to make it not needed
!addr Mon_Data = $68 ; 40 bytes, buffer for hunt and filename !addr Mon_Data = $68 ; 40 bytes, buffer for hunt and filename
@@ -132,6 +133,7 @@ Mon_Start
STY SPH STY SPH
TSX TSX
STX SPL STX SPL
STX SP_Storage
LDA #$c0 LDA #$c0
JSR SETMSG JSR SETMSG
CLI CLI
@@ -227,7 +229,7 @@ Mon_Error
JSR PRIMM JSR PRIMM
!pet KEY_ESC, 'o', KEY_CRSR_RIGHT, '?', 0 !pet KEY_ESC, 'o', KEY_CRSR_RIGHT, '?', 0
LDX #$f8 ; reset stack pointer XXX probably would be better to restore original LDX SP_Storage ; reset stack pointer
TXS TXS
BRA Main BRA Main
@@ -1761,7 +1763,7 @@ Read_Number
PHY PHY
PHZ PHZ
LDA #0 LDA #0
STA Dig_Cnt ; count columns read STA Dig_Cnt ; count columns read
STA Long_AC ; clear result Long_AC STA Long_AC ; clear result Long_AC
STA Long_AC+1 STA Long_AC+1
STA Long_AC+2 STA Long_AC+2