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

Merge pull request #47 from ksherlock/inappropriate_intersegs 

QLink IIgs - inappropriate interseg OMF records
This commit is contained in:
Lane Roathe 2020-05-26 21:38:18 -07:00 committed by GitHub
parent b5955278c3 ca29613395
commit 300a0b7bcd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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