2018-10-23 23:06:29 +00:00
|
|
|
.cpu "65816"
|
2020-10-17 23:10:48 +00:00
|
|
|
* = $021000
|
2018-10-23 23:06:29 +00:00
|
|
|
.as
|
|
|
|
.xs
|
|
|
|
clc
|
|
|
|
xce
|
|
|
|
sep #$ff
|
2020-10-17 23:10:48 +00:00
|
|
|
jsr L21100
|
|
|
|
jsr L21107
|
|
|
|
jmp L22000
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $021100
|
|
|
|
L21100 bit L21100 & $ffff
|
|
|
|
L21103 lda #$11
|
2018-10-23 23:06:29 +00:00
|
|
|
ldx #$11
|
2020-10-17 23:10:48 +00:00
|
|
|
L21107 ldy #$11
|
|
|
|
per L21103
|
|
|
|
bra L21103
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $021100
|
|
|
|
_L21100_0 bit _L21100_0 & $ffff
|
2018-10-23 23:06:29 +00:00
|
|
|
lda #$22
|
2020-10-17 23:10:48 +00:00
|
|
|
_L21105 ldx #$22
|
2018-10-23 23:06:29 +00:00
|
|
|
ldy #$22
|
2020-10-17 23:10:48 +00:00
|
|
|
per _L21105
|
|
|
|
jmp _L21105
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $021100
|
|
|
|
_L21100_1 bit _L21100_1 & $ffff
|
2018-10-23 23:06:29 +00:00
|
|
|
lda #$33
|
|
|
|
ldx #$33
|
2020-10-17 23:10:48 +00:00
|
|
|
_L21107_0 ldy #$33
|
|
|
|
per _L21107_0
|
|
|
|
bra _L21107_0
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022000
|
|
|
|
L22000 bit L22000 & $ffff
|
|
|
|
beq $022018
|
|
|
|
bra _L22020
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022020
|
|
|
|
_L22020 bit _L22020 & $ffff
|
|
|
|
beq $022029
|
|
|
|
brl _L22080
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_offend nop
|
2018-10-23 23:06:29 +00:00
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022080
|
|
|
|
_L22080 bit _L22080 & $ffff
|
|
|
|
lda _offend & $ffff
|
2019-11-17 01:15:03 +00:00
|
|
|
jsr _offend
|
Allow explicit widths in project/platform symbols, part 3
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.
2019-10-02 23:26:05 +00:00
|
|
|
lda $2029
|
2020-10-17 23:10:48 +00:00
|
|
|
jsr $022029
|
|
|
|
lda 0+(_L22080 & $ffff)-1
|
|
|
|
jsr _L22080-1
|
|
|
|
lda _L22080 & $ffff
|
|
|
|
jsr _L22080
|
2018-10-23 23:06:29 +00:00
|
|
|
lda $00
|
2020-10-17 23:10:48 +00:00
|
|
|
beq _L22100
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $ad
|
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022100
|
|
|
|
_L22100 nop
|
2018-10-23 23:06:29 +00:00
|
|
|
nop
|
2020-10-17 23:10:48 +00:00
|
|
|
jmp _L23000
|
2018-10-23 23:06:29 +00:00
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022800
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $00
|
|
|
|
.byte $28
|
|
|
|
.fill 14,$00
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $022820
|
2018-10-23 23:06:29 +00:00
|
|
|
.fill 18,$00
|
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $023000
|
|
|
|
_L23000 bit _L23000 & $ffff
|
2018-10-23 23:06:29 +00:00
|
|
|
lda #$44
|
|
|
|
ldx #$44
|
|
|
|
ldy #$44
|
2019-11-17 01:15:03 +00:00
|
|
|
brl _fwd
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_ulabel .byte $00
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $01
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $023100
|
2019-10-30 01:12:22 +00:00
|
|
|
.byte $02
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2020-10-17 23:10:48 +00:00
|
|
|
_fwd bit _fwd & $ffff
|
|
|
|
lda _ulabel & $ffff
|
|
|
|
lda 0+(_ulabel & $ffff)+1
|
Allow explicit widths in project/platform symbols, part 3
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.
2019-10-02 23:26:05 +00:00
|
|
|
lda $300e
|
2018-10-23 23:06:29 +00:00
|
|
|
lda $300f
|
2020-10-17 23:10:48 +00:00
|
|
|
lda 0+(_fwd & $ffff)-1
|
|
|
|
beq _L23182
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $ea
|
|
|
|
.byte $ea
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $023180
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $00
|
|
|
|
.byte $01
|
|
|
|
|
2020-10-17 23:10:48 +00:00
|
|
|
_L23182 bit _L23182 & $ffff
|
|
|
|
lda _label1 & $ffff
|
|
|
|
lda 0+(_label1 & $ffff)+1
|
|
|
|
lda 0+(_label1 & $ffff)+112
|
|
|
|
bra _L23200
|
2018-10-23 23:06:29 +00:00
|
|
|
|
2019-11-17 01:15:03 +00:00
|
|
|
_label1 .byte $ea
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $ea
|
|
|
|
|
|
|
|
.here
|
2020-10-17 23:10:48 +00:00
|
|
|
.logical $023200
|
|
|
|
_L23200 bit _L23200 & $ffff
|
2018-10-23 23:06:29 +00:00
|
|
|
.byte $00
|
|
|
|
.byte $01
|
|
|
|
.here
|