FInal opcodes
This commit is contained in:
@@ -118,6 +118,15 @@ NEXT2 inc N2 ; [6] see text
|
||||
lda #0 ; test passed, so store 0 in ERROR
|
||||
sta ERROR
|
||||
DONE
|
||||
lda #1
|
||||
cmp ERROR
|
||||
beq _E
|
||||
lda #'P'
|
||||
sta $dc00
|
||||
jmp _E2
|
||||
_E lda #'F'
|
||||
sta $dc00
|
||||
_E2
|
||||
end_of_test
|
||||
|
||||
; Calculate the actual decimal mode accumulator and flags, the accumulator
|
||||
|
||||
@@ -128,7 +128,7 @@ ram_top = -1
|
||||
|
||||
;disable test decimal mode ADC & SBC, 0=enable, 1=disable,
|
||||
;2=disable including decimal flag in processor status
|
||||
disable_decimal = 1
|
||||
disable_decimal = 0
|
||||
|
||||
noopt ;do not take shortcuts
|
||||
|
||||
|
||||
@@ -50,7 +50,6 @@ rstack jsr rspace
|
||||
inx
|
||||
bne rstack
|
||||
jsr rcrlf ;new line
|
||||
jmp rend ; Skip BS
|
||||
;show zero page workspace
|
||||
lda #0
|
||||
jsr rhex
|
||||
@@ -64,6 +63,7 @@ rzp jsr rspace
|
||||
cpx #zp_bss
|
||||
bne rzp
|
||||
jsr rcrlf
|
||||
jmp rend ; Skip Workspace since 65k is large
|
||||
;show absolute workspace
|
||||
lda #hi(data_segment)
|
||||
jsr rhex
|
||||
|
||||
Reference in New Issue
Block a user