Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2024-12-26 23:29:22 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #47 from ksherlock/inappropriate_intersegs

Browse Source 
QLink IIgs - inappropriate interseg OMF records
This commit is contained in:
Lane Roathe 2020-05-26 21:38:18 -07:00 committed by GitHub
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 and #$0020
jne :clc jne :clc
lda #$f6 lda #$f5
sta omfcode sta omfcode
lda #$08 lda #$07
sta omflength sta omflength
lda #$01 lda #$01
sta omfbytes sta omfbytes
lda #-16 lda #-16
sta omfshift sta omfshift
bit interseg
bpl :ok3
inc omfcode
inc omflength
jsr isegwarning jsr isegwarning
jsr insertomf :ok3 jsr insertomf
jmp :clc jmp :clc
:la4 ldy #$03 :la4 ldy #$03
lda [tempptr1],y lda [tempptr1],y
and #$ff and #$ff
@ -3098,17 +3103,22 @@ relocatefinal
and #$0020 and #$0020
jne :clc jne :clc
lda #$f6 lda #$f5
sta omfcode sta omfcode
lda #$08 lda #$07
sta omflength sta omflength
lda #$02 lda #$02
sta omfbytes sta omfbytes
lda #-8 lda #-8
sta omfshift sta omfshift
bit interseg
bpl :ok4
inc omfcode ; $f6
inc omflength
jsr isegwarning jsr isegwarning
jsr insertomf :ok4 jsr insertomf
jmp :clc jmp :clc
:la5 jmp :b1hi :la5 jmp :b1hi
:clc plp :clc plp