mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-18 15:06:07 +00:00
ba35f88d02
We weren't altering the status flags after a BRK because of the assumption that a BRK was a crash. For an inline BRK, such as a SOS call, execution continues. We need to mark NVZC indeterminate or we may incorrectly handle conditional branches that follow. The BRK instruction now uses the same flag updater as JSR, since it's effectively a subroutine call to unknown code. If execution doesn't continue across the BRK then the flags don't matter. Updated 20182-extension-scripts to exercise this.
131 lines
2.7 KiB
ArmAsm
131 lines
2.7 KiB
ArmAsm
.setcpu "65816"
|
|
PrintInlineL1String = $011000
|
|
PrintInlineL2String = $012000
|
|
PrintInlineDciString = $013000
|
|
|
|
; .segment "SEG000"
|
|
.org $1000
|
|
.a8
|
|
.i8
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jsr PrintInline8String
|
|
.byte "01234567"
|
|
jsr PrintInlineRev8String
|
|
.byte "76543210"
|
|
jsr PrintInlineNullString
|
|
.asciiz "null-term string"
|
|
jsl PrintInlineL1String
|
|
.byte $14,"string with length/1"
|
|
jsl PrintInlineL2String
|
|
.byte $14,$00,"string with length/2"
|
|
jsl PrintInlineDciString
|
|
.byte "DCI strin",$e7
|
|
jsr L1800
|
|
jsr L184F
|
|
jsr L1848
|
|
brk $01
|
|
.word data01
|
|
brk $02
|
|
.word data02
|
|
nop
|
|
jsr L1085
|
|
.byte $24
|
|
L1085: .byte $a9
|
|
.byte $00
|
|
sta $ff
|
|
.byte $ea
|
|
jmp Next1
|
|
|
|
PrintInline8String: rts
|
|
|
|
PrintInlineRev8String: rts
|
|
|
|
PrintInlineNullString: rts
|
|
|
|
data01: .word 4386
|
|
.dbyt $3344
|
|
.dword $88776655
|
|
.byte $99,$88,$77,$66
|
|
.byte 'f'
|
|
.byte 'F' | $80
|
|
.byte $40
|
|
.byte $c1
|
|
.byte $42
|
|
.byte $c3
|
|
.byte $44
|
|
.byte $c5
|
|
.byte $46
|
|
.byte $c7
|
|
.faraddr PrintInlineL2String
|
|
.word data02
|
|
.byte $80
|
|
data02: .word @data03
|
|
.byte $80
|
|
.macro HiAscii Arg
|
|
.repeat .strlen(Arg), I
|
|
.byte .strat(Arg, I) | $80
|
|
.endrep
|
|
.endmacro
|
|
@data03: HiAscii "AllEight"
|
|
|
|
NoCont: pla ;split across address change
|
|
pla
|
|
rts
|
|
|
|
L10BA: jsr NoCont
|
|
|
|
.byte $00
|
|
.byte $80
|
|
|
|
L10BF: jsr NoCont
|
|
|
|
.byte $00
|
|
.byte $80
|
|
|
|
Next1: jsr L10BA
|
|
jsr @L10CF
|
|
clc
|
|
jsr L10BF
|
|
rts
|
|
|
|
@L10CF: sec
|
|
jsr L10BF
|
|
clc
|
|
brk $02
|
|
.word data02
|
|
bcc @L10DE
|
|
bcs @L10DE
|
|
|
|
.byte $00
|
|
.byte $80
|
|
|
|
@L10DE: rts
|
|
|
|
.res 289,$00
|
|
|
|
; .segment "SEG001"
|
|
.org $1800
|
|
L1800: jsr PrintInlineNullString
|
|
per $8778
|
|
rtl
|
|
|
|
.byte $65
|
|
.byte $6e
|
|
.byte $20
|
|
.byte $01
|
|
; .segment "SEG002"
|
|
.org $1840
|
|
.byte "string"
|
|
.byte $00
|
|
.byte $60
|
|
|
|
L1848: jsl PrintInlineL2String
|
|
asl A
|
|
brk $60
|
|
|
|
L184F: jsr PrintInlineNullString
|
|
adc $6e
|
|
.byte $64
|