mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-01 22:50:35 +00:00
0d9814d993
Implement multi-byte project/platform symbols by filling out a table of addresses. Each symbol is "painted" into the table, replacing an existing entry if the new entry has higher priority. This allows us to handle overlapping entries, giving boosted priority to platform symbols that are defined in .sym65 files loaded later. The bounds on project/platform symbols are now rigidly defined. If the "nearby" feature is enabled, references to SYM-1 will be picked up, but we won't go hunting for SYM+1 unless the symbol is at least two bytes wide. The cost of adding a symbol to the symbol table is about the same, but we don't have a quick way to remove a symbol. Previously, if two platform symbols had the same value, the symbol with the alphabetically lowest label would win. Now, the symbol defined in the most-recently-loaded file wins. (If you define two symbols with the same value in the same file, it's still resolved alphabetically.) This allows the user to pick the winner by arranging the load order of the platform symbol files. Platform symbols now keep a reference to the file ident of the symbol file that defined them, so we can show the symbols's source in the Info panel. These changes altered the behavior of test 2008-address-changes, which includes some tests on external addresses that are close to labeled internal addresses. The previous behavior essentially treated user labels as being 3 bytes wide and extending outside the file bounds, which was mildly convenient on occasion but felt a little skanky. (We could do with a way to define external symbols relative to internal symbols, for things like the source address of code that gets relocated.) Also, re-enabled some unit tests. Also, added a bit of identifying stuff to CrashLog.txt.
124 lines
2.2 KiB
ArmAsm
124 lines
2.2 KiB
ArmAsm
.cpu "65816"
|
|
* = $1000
|
|
.as
|
|
.xs
|
|
clc
|
|
xce
|
|
sep #$ff
|
|
jsr L1100
|
|
jsr L1107
|
|
jmp L2000
|
|
|
|
.logical $1100
|
|
L1100 bit L1100
|
|
L1103 lda #$11
|
|
ldx #$11
|
|
L1107 ldy #$11
|
|
per L1103
|
|
bra L1103
|
|
|
|
.here
|
|
.logical $1100
|
|
L1100_0 bit L1100_0
|
|
lda #$22
|
|
L1105 ldx #$22
|
|
ldy #$22
|
|
per L1105
|
|
jmp L1105
|
|
|
|
.here
|
|
.logical $1100
|
|
L1100_1 bit L1100_1
|
|
lda #$33
|
|
ldx #$33
|
|
L1107_0 ldy #$33
|
|
per L1107_0
|
|
bra L1107_0
|
|
|
|
.here
|
|
.logical $2000
|
|
L2000 bit L2000
|
|
beq $2018
|
|
bra L2020
|
|
|
|
.here
|
|
.logical $2020
|
|
L2020 bit L2020
|
|
beq $2029
|
|
brl L2080
|
|
|
|
offend nop
|
|
.here
|
|
.logical $2080
|
|
L2080 bit L2080
|
|
lda offend
|
|
jsr offend
|
|
lda $2029
|
|
jsr $2029
|
|
lda L2080-1
|
|
jsr L2080-1
|
|
lda L2080
|
|
jsr L2080
|
|
lda $00
|
|
beq L2100
|
|
.byte $ad
|
|
|
|
.here
|
|
.logical $2100
|
|
L2100 nop
|
|
nop
|
|
jmp L3000
|
|
|
|
.here
|
|
.logical $2800
|
|
.byte $00
|
|
.byte $28
|
|
.fill 14,$00
|
|
.here
|
|
.logical $2820
|
|
.fill 18,$00
|
|
|
|
.here
|
|
.logical $3000
|
|
L3000 bit L3000
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
brl fwd
|
|
|
|
ulabel .byte $00
|
|
.byte $01
|
|
.here
|
|
.logical $3100
|
|
L3100 .byte $02
|
|
|
|
fwd bit fwd
|
|
lda ulabel
|
|
lda ulabel+1
|
|
lda $300e
|
|
lda $300f
|
|
lda L3100
|
|
beq L3182
|
|
.byte $ea
|
|
.byte $ea
|
|
.here
|
|
.logical $3180
|
|
.byte $00
|
|
.byte $01
|
|
|
|
L3182 bit L3182
|
|
lda label1
|
|
lda label1+1
|
|
lda label1+112
|
|
bra L3200
|
|
|
|
label1 .byte $ea
|
|
.byte $ea
|
|
|
|
.here
|
|
.logical $3200
|
|
L3200 bit L3200
|
|
.byte $00
|
|
.byte $01
|
|
.here
|