6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-04 13:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Bug correction by Karri Kaksonen.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4964 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2011-02-06 14:34:02 +00:00
parent 7c1cd6c8d8
commit fe92bc9c68
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libsrc/lynx/open.s
View File

@ -23,6 +23,7 @@
.import addysp,popax,pushax,decsp6,pusha0,pusheax,ldaxysp
.import aslax3,axlong,tosaddeax,steaxysp,stax0sp,incsp8
.import ldax0sp
.import lynxskip0, lynxblock
.importzp _FileEntry
.importzp _FileStartBlock
.importzp _FileCurrBlock
@ -118,6 +119,24 @@ flagsok:
ldx #$00
lda #$08
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
jmp incsp8