fixed syntax error at monitor exit
This commit is contained in:
1 parent
81f1213ad8
commit
9af84dcf18
2 files changed
+5
-4
No files matched your search
@@ -7,4 +7,5 @@ cmd_monitor:
|
|||||||
jsr helper_ensure_native_mode
|
jsr helper_ensure_native_mode
|
||||||
jsr helper_ensure_direct_mode
|
jsr helper_ensure_direct_mode
|
||||||
|
|
||||||
jmp MONITOR
|
jsr MONITOR
|
||||||
|
jmp end_of_program
|
||||||
+3
-3
@@ -18,7 +18,7 @@ Mon_Call:
|
|||||||
; set default addressing mode to 64K
|
; set default addressing mode to 64K
|
||||||
|
|
||||||
LDA #0
|
LDA #0
|
||||||
STA Adr_Mode
|
STA Adr_Mode
|
||||||
|
|
||||||
; clear register for monitor call
|
; clear register for monitor call
|
||||||
|
|
||||||
@@ -152,7 +152,7 @@ Mon_Select:
|
|||||||
|
|
||||||
STA VERCKK
|
STA VERCKK
|
||||||
CPX #22
|
CPX #22
|
||||||
LBCS Load_Save
|
LBCS Load_Save
|
||||||
TXA
|
TXA
|
||||||
ASL
|
ASL
|
||||||
TAX
|
TAX
|
||||||
@@ -221,7 +221,7 @@ Mon_Exit:
|
|||||||
LAC_To_PC: ; XXX to be adapted
|
LAC_To_PC: ; XXX to be adapted
|
||||||
; ********
|
; ********
|
||||||
|
|
||||||
inc $D020 ; XXX fior debug only
|
inc $D020 ; XXX for debug only
|
||||||
|
|
||||||
; called from Mon_Set_Register, Mon_Go and Mon_JSR
|
; called from Mon_Set_Register, Mon_Go and Mon_JSR
|
||||||
; as the first instruction. The carry flag was set from
|
; as the first instruction. The carry flag was set from
|
||||||
|
|||||||
Reference in new issue
Block a user