Apple-2-SW
/
qasm
mirror of https://github.com/marketideas/qasm.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

external, shifted references were always generating an interseg OMF relocation record even when in the same OMF segment (in which case they would reference segment 0 which is wrong).

This commit is contained in:
Kelvin Sherlock 2020-05-26 22:48:47 -04:00
parent b5955278c3
commit ca29613395
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/link/linker.1.s
View File

@ -3048,17 +3048,22 @@ relocatefinal
and #$0020
jne :clc
lda #$f6
lda #$f5
sta omfcode
lda #$08
lda #$07
sta omflength
lda #$01
sta omfbytes
lda #-16
sta omfshift
bit interseg
bpl :ok3
inc omfcode
inc omflength
jsr isegwarning
jsr insertomf
:ok3 jsr insertomf
jmp :clc
:la4 ldy #$03
lda [tempptr1],y
and #$ff
@ -3098,17 +3103,22 @@ relocatefinal
and #$0020
jne :clc
lda #$f6
lda #$f5
sta omfcode
lda #$08
lda #$07
sta omflength
lda #$02
sta omfbytes
lda #-8
sta omfshift
bit interseg
bpl :ok4
inc omfcode ; $f6
inc omflength
jsr isegwarning
jsr insertomf
:ok4 jsr insertomf
jmp :clc
:la5 jmp :b1hi
:clc plp