mirror of
https://github.com/cc65/cc65.git
synced 2024-07-07 04:29:01 +00:00
Bug correction by Karri Kaksonen.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4964 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
7c1cd6c8d8
commit
fe92bc9c68
@ -23,6 +23,7 @@
|
|||||||
.import addysp,popax,pushax,decsp6,pusha0,pusheax,ldaxysp
|
.import addysp,popax,pushax,decsp6,pusha0,pusheax,ldaxysp
|
||||||
.import aslax3,axlong,tosaddeax,steaxysp,stax0sp,incsp8
|
.import aslax3,axlong,tosaddeax,steaxysp,stax0sp,incsp8
|
||||||
.import ldax0sp
|
.import ldax0sp
|
||||||
|
.import lynxskip0, lynxblock
|
||||||
.importzp _FileEntry
|
.importzp _FileEntry
|
||||||
.importzp _FileStartBlock
|
.importzp _FileStartBlock
|
||||||
.importzp _FileCurrBlock
|
.importzp _FileCurrBlock
|
||||||
@ -118,6 +119,24 @@ flagsok:
|
|||||||
ldx #$00
|
ldx #$00
|
||||||
lda #$08
|
lda #$08
|
||||||
jsr _read
|
jsr _read
|
||||||
|
lda _FileStartBlock
|
||||||
|
sta _FileCurrBlock
|
||||||
|
jsr lynxblock
|
||||||
|
lda _FileBlockOffset
|
||||||
|
ldx _FileBlockOffset+1
|
||||||
|
phx ; The BLL kit uses negative offsets
|
||||||
|
plx ; while tha basic Lynx uses positive
|
||||||
|
bmi @1 ; Make all offsets negative
|
||||||
|
eor #$FF
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
eor #$FF
|
||||||
|
bra @2
|
||||||
|
@1: pha
|
||||||
|
txa
|
||||||
|
@2: tay
|
||||||
|
plx
|
||||||
|
jsr lynxskip0
|
||||||
jsr stax0sp
|
jsr stax0sp
|
||||||
jmp incsp8
|
jmp incsp8
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user