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