L/S/V sytntax check fix in MONITOR
This commit is contained in:
1 parent
33299c384b
commit
408daeb98d
2 files changed
+12
-3
No files matched your search
@@ -50,6 +50,7 @@ Mon_Load_Verify:
|
|||||||
stx FA
|
stx FA
|
||||||
|
|
||||||
jsr Get_DecVal_To_LAC
|
jsr Get_DecVal_To_LAC
|
||||||
|
+bcs Mon_Error
|
||||||
beq @got_unit
|
beq @got_unit
|
||||||
jsr Syntax_Byte_AC
|
jsr Syntax_Byte_AC
|
||||||
lda Long_AC+0
|
lda Long_AC+0
|
||||||
@@ -94,6 +95,7 @@ Mon_Save:
|
|||||||
; Determine unit
|
; Determine unit
|
||||||
|
|
||||||
jsr Get_DecVal_To_LAC
|
jsr Get_DecVal_To_LAC
|
||||||
|
+bcs Mon_Error
|
||||||
+beq Mon_Error
|
+beq Mon_Error
|
||||||
jsr Syntax_Byte_AC
|
jsr Syntax_Byte_AC
|
||||||
lda Long_AC+0
|
lda Long_AC+0
|
||||||
|
|||||||
@@ -145,6 +145,10 @@ Get_Val_To_LAC_common:
|
|||||||
@exit_invalid_digit:
|
@exit_invalid_digit:
|
||||||
|
|
||||||
dec Buf_Index
|
dec Buf_Index
|
||||||
|
lda #$00
|
||||||
|
sta Dig_Cnt
|
||||||
|
sec
|
||||||
|
bra @check_done
|
||||||
|
|
||||||
@exit:
|
@exit:
|
||||||
|
|
||||||
@@ -154,20 +158,24 @@ Get_Val_To_LAC_common:
|
|||||||
|
|
||||||
lda Dig_Cnt ; check if we should enable long addressing mode
|
lda Dig_Cnt ; check if we should enable long addressing mode
|
||||||
cmp Num_Limit,Y
|
cmp Num_Limit,Y
|
||||||
bcc @check_done
|
bcc @check_done_ok
|
||||||
|
|
||||||
cpy #$1
|
cpy #$1
|
||||||
bne @set_long_mode
|
bne @set_long_mode
|
||||||
|
|
||||||
lda Long_AC+2 ; for decimal system check most significant bytes instead
|
lda Long_AC+2 ; for decimal system check most significant bytes instead
|
||||||
ora Long_AC+3
|
ora Long_AC+3
|
||||||
beq @check_done
|
beq @check_done_ok
|
||||||
|
|
||||||
@set_long_mode:
|
@set_long_mode:
|
||||||
|
|
||||||
lda #$80 ; set addressing mode to long
|
lda #$80 ; set addressing mode to long
|
||||||
sta Addr_Mode
|
sta Addr_Mode
|
||||||
|
|
||||||
|
@check_done_ok:
|
||||||
|
|
||||||
|
clc
|
||||||
|
|
||||||
@check_done:
|
@check_done:
|
||||||
|
|
||||||
plz
|
plz
|
||||||
@@ -175,7 +183,6 @@ Get_Val_To_LAC_common:
|
|||||||
plx
|
plx
|
||||||
|
|
||||||
lda Dig_Cnt ; allow to easily check if a parameter was given
|
lda Dig_Cnt ; allow to easily check if a parameter was given
|
||||||
clc
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user