hunt bugfix, does not fully work yet
This commit is contained in:
1 parent
02edab06eb
commit
b8d16d0b47
3 files changed
+9
-18
No files matched your search
+2
-11
@@ -1681,18 +1681,9 @@ Get_Char:
|
|||||||
LDX Buf_Index
|
LDX Buf_Index
|
||||||
INC Buf_Index
|
INC Buf_Index
|
||||||
LDA BUF,X
|
LDA BUF,X
|
||||||
CPX #1
|
|
||||||
PLX
|
PLX
|
||||||
BCC @regc
|
CMP #0
|
||||||
CMP #';' ; register
|
BNE @return
|
||||||
BEQ @return
|
|
||||||
CMP #'?' ; help
|
|
||||||
BEQ @return
|
|
||||||
@regc CMP #0
|
|
||||||
BEQ @eof
|
|
||||||
CMP #':'
|
|
||||||
BEQ @eof
|
|
||||||
RTS
|
|
||||||
@eof PHP
|
@eof PHP
|
||||||
DEC Buf_Index
|
DEC Buf_Index
|
||||||
PLP
|
PLP
|
||||||
|
|||||||
@@ -39,7 +39,7 @@ Mon_Hunt:
|
|||||||
lda Long_AC+1
|
lda Long_AC+1
|
||||||
ora Long_AC+2
|
ora Long_AC+2
|
||||||
ora Long_AC+3
|
ora Long_AC+3
|
||||||
+beq Mon_Error ; value above $FF
|
+bne Mon_Error ; value above $FF
|
||||||
|
|
||||||
cpy #32 ; max data length
|
cpy #32 ; max data length
|
||||||
bne @lpbin
|
bne @lpbin
|
||||||
|
|||||||
@@ -28,7 +28,7 @@ DBG_print_Buf_Index:
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
DBG_print_long_pc:
|
DBG_print_long_ac:
|
||||||
|
|
||||||
php
|
php
|
||||||
pha
|
pha
|
||||||
@@ -37,15 +37,15 @@ DBG_print_long_pc:
|
|||||||
phz
|
phz
|
||||||
|
|
||||||
jsr PRIMM
|
jsr PRIMM
|
||||||
!pet $0D, "long pc : ", 0
|
!pet $0D, "long ac : ", 0
|
||||||
|
|
||||||
lda Long_PC+3
|
lda Long_AC+3
|
||||||
jsr Print_Hex
|
jsr Print_Hex
|
||||||
lda Long_PC+2
|
lda Long_AC+2
|
||||||
jsr Print_Hex
|
jsr Print_Hex
|
||||||
lda Long_PC+1
|
lda Long_AC+1
|
||||||
jsr Print_Hex
|
jsr Print_Hex
|
||||||
lda Long_PC+0
|
lda Long_AC+0
|
||||||
jsr Print_Hex
|
jsr Print_Hex
|
||||||
|
|
||||||
jsr PRIMM
|
jsr PRIMM
|
||||||
|
|||||||
Reference in new issue
Block a user