fixed monitor PC display and 'X' command
This commit is contained in:
1 parent
2674df8188
commit
b5fb6441eb
3 files changed
+21
-26
No files matched your search
@@ -5,5 +5,6 @@
|
|||||||
MONITOR:
|
MONITOR:
|
||||||
|
|
||||||
jsr map_MON_1
|
jsr map_MON_1
|
||||||
jsr ($4000)
|
jmp ($4000)
|
||||||
jmp map_NORMAL
|
|
||||||
|
; Monitor knows, that it should exit via map_NORMAL
|
||||||
@@ -4,5 +4,7 @@
|
|||||||
; Definitions for calling MEGA65 segment KERNAL_0 routines from MON_1
|
; Definitions for calling MEGA65 segment KERNAL_0 routines from MON_1
|
||||||
;
|
;
|
||||||
|
|
||||||
|
;; #ALIAS# map_NORMAL = KERNAL_0.map_NORMAL
|
||||||
|
|
||||||
;; #ALIAS# CHRIN = KERNAL_0.proxy_M1_CHRIN
|
;; #ALIAS# CHRIN = KERNAL_0.proxy_M1_CHRIN
|
||||||
;; #ALIAS# CHROUT = KERNAL_0.proxy_M1_CHROUT
|
;; #ALIAS# CHROUT = KERNAL_0.proxy_M1_CHROUT
|
||||||
+16
-24
@@ -80,7 +80,6 @@
|
|||||||
!addr Mon_Data = $410 ; 40 bytes, buffer for hunt and filename
|
!addr Mon_Data = $410 ; 40 bytes, buffer for hunt and filename
|
||||||
!addr Disk_Msg = $440 ; 40 bytes, disk status as text message
|
!addr Disk_Msg = $440 ; 40 bytes, disk status as text message
|
||||||
|
|
||||||
!addr EXIT_OLD = $cf2e ; exit address for ROM 910110
|
|
||||||
!addr EXIT = $cfa4 ; exit address for ROM 911001
|
!addr EXIT = $cfa4 ; exit address for ROM 911001
|
||||||
|
|
||||||
!addr SETMSG = $ff90
|
!addr SETMSG = $ff90
|
||||||
@@ -145,15 +144,11 @@ Mon_Call
|
|||||||
DEX
|
DEX
|
||||||
BPL @loop
|
BPL @loop
|
||||||
|
|
||||||
; set default PC to "exit to BASIC"
|
; set default PC to monitor exit point
|
||||||
|
|
||||||
LDA #<EXIT ; ROM 911110
|
LDA #<map_NORMAL
|
||||||
LDX #>EXIT
|
LDX #>map_NORMAL
|
||||||
BIT EXIT ; $20 (JSR) or $ff ?
|
STA PCL
|
||||||
BPL @store
|
|
||||||
LDA #<EXIT_OLD ; ROM 910111
|
|
||||||
LDX #>EXIT_OLD
|
|
||||||
@store STA PCL
|
|
||||||
STA X_Vector
|
STA X_Vector
|
||||||
STX PCH
|
STX PCH
|
||||||
STX X_Vector+1
|
STX X_Vector+1
|
||||||
@@ -178,21 +173,18 @@ Mon_Register
|
|||||||
|
|
||||||
JSR Reg_Text
|
JSR Reg_Text
|
||||||
|
|
||||||
; print Bank,PCH
|
; print PCH
|
||||||
|
|
||||||
|
LDA PCH
|
||||||
|
JSR Print_Hex
|
||||||
|
|
||||||
|
; print PCL,SR,PCL,A,X,Y,Z,BP
|
||||||
|
|
||||||
LDY #0
|
LDY #0
|
||||||
@loopa LDA Bank,Y
|
@loopb LDA PCL,Y
|
||||||
JSR Print_Hex
|
|
||||||
INY
|
|
||||||
CPY #2
|
|
||||||
BCC @loopa
|
|
||||||
|
|
||||||
; print SR,PCL,A,X,Y,Z,BP
|
|
||||||
|
|
||||||
@loopb LDA Bank,Y
|
|
||||||
JSR Print_Hex_Blank
|
JSR Print_Hex_Blank
|
||||||
INY
|
INY
|
||||||
CPY #9
|
CPY #7
|
||||||
BCC @loopb
|
BCC @loopb
|
||||||
|
|
||||||
; print 16 bit stack pointer
|
; print 16 bit stack pointer
|
||||||
@@ -286,7 +278,7 @@ Print_Commands
|
|||||||
; ************
|
; ************
|
||||||
|
|
||||||
JSR PRIMM
|
JSR PRIMM
|
||||||
!pet KEY_RETURN,KEY_YELLOW,KEY_RVS_ON,"commands: "
|
!pet KEY_RETURN,KEY_YELLOW,KEY_RVS_ON," commands: "
|
||||||
|
|
||||||
; **********
|
; **********
|
||||||
Command_Char
|
Command_Char
|
||||||
@@ -305,7 +297,7 @@ Cons_Prefix
|
|||||||
Load_Save_Verify
|
Load_Save_Verify
|
||||||
; **************
|
; **************
|
||||||
|
|
||||||
!pet "lsv",KEY_WHITE,0
|
!pet "lsv ",KEY_WHITE,KEY_RETURN,0
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
; ********
|
; ********
|
||||||
@@ -2906,7 +2898,7 @@ BP_ZERO !pet "b-p 9 0",0 ; set buffer pointer to 0
|
|||||||
Reg_Text
|
Reg_Text
|
||||||
; ******
|
; ******
|
||||||
JSR PRIMM
|
JSR PRIMM
|
||||||
!pet KEY_RETURN, " pc sr ac xr yr zr bp sp nvebdizc", KEY_RETURN, "; ", KEY_ESC, "q",0
|
!pet KEY_RETURN, " pc sr ac xr yr zr bp sp nvebdizc", KEY_RETURN, "; ", KEY_ESC, "q",0
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
; ******
|
; ******
|
||||||
@@ -2914,7 +2906,7 @@ Mon_Help
|
|||||||
; ******
|
; ******
|
||||||
JSR PRIMM
|
JSR PRIMM
|
||||||
|
|
||||||
!pet KEY_RETURN
|
!pet KEY_RETURN, KEY_RETURN
|
||||||
!pet KEY_LT_RED,"a",KEY_WHITE,"ssemble - a address mnemonic operand",KEY_RETURN
|
!pet KEY_LT_RED,"a",KEY_WHITE,"ssemble - a address mnemonic operand",KEY_RETURN
|
||||||
!pet KEY_LT_RED,"b",KEY_WHITE,"itmaps - b [from [to]]",KEY_RETURN
|
!pet KEY_LT_RED,"b",KEY_WHITE,"itmaps - b [from [to]]",KEY_RETURN
|
||||||
!pet KEY_LT_RED,"c",KEY_WHITE,"ompare - c from to with",KEY_RETURN
|
!pet KEY_LT_RED,"c",KEY_WHITE,"ompare - c from to with",KEY_RETURN
|
||||||
|
|||||||
Reference in new issue
Block a user