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
|
||||
|
||||
jsr Get_DecVal_To_LAC
|
||||
+bcs Mon_Error
|
||||
beq @got_unit
|
||||
jsr Syntax_Byte_AC
|
||||
lda Long_AC+0
|
||||
@@ -94,6 +95,7 @@ Mon_Save:
|
||||
; Determine unit
|
||||
|
||||
jsr Get_DecVal_To_LAC
|
||||
+bcs Mon_Error
|
||||
+beq Mon_Error
|
||||
jsr Syntax_Byte_AC
|
||||
lda Long_AC+0
|
||||
|
||||
@@ -145,6 +145,10 @@ Get_Val_To_LAC_common:
|
||||
@exit_invalid_digit:
|
||||
|
||||
dec Buf_Index
|
||||
lda #$00
|
||||
sta Dig_Cnt
|
||||
sec
|
||||
bra @check_done
|
||||
|
||||
@exit:
|
||||
|
||||
@@ -154,20 +158,24 @@ Get_Val_To_LAC_common:
|
||||
|
||||
lda Dig_Cnt ; check if we should enable long addressing mode
|
||||
cmp Num_Limit,Y
|
||||
bcc @check_done
|
||||
bcc @check_done_ok
|
||||
|
||||
cpy #$1
|
||||
bne @set_long_mode
|
||||
|
||||
lda Long_AC+2 ; for decimal system check most significant bytes instead
|
||||
ora Long_AC+3
|
||||
beq @check_done
|
||||
beq @check_done_ok
|
||||
|
||||
@set_long_mode:
|
||||
|
||||
lda #$80 ; set addressing mode to long
|
||||
sta Addr_Mode
|
||||
|
||||
@check_done_ok:
|
||||
|
||||
clc
|
||||
|
||||
@check_done:
|
||||
|
||||
plz
|
||||
@@ -175,7 +183,6 @@ Get_Val_To_LAC_common:
|
||||
plx
|
||||
|
||||
lda Dig_Cnt ; allow to easily check if a parameter was given
|
||||
clc
|
||||
rts
|
||||
|
||||
|
||||
|
||||
Reference in new issue
Block a user