6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
Code Issues Projects Releases Wiki Activity

Fix ftell() on Apple II to return the correct value.

Browse Source 
Fixes this issue:
https://github.com/cc65/cc65/issues/722

ftell() returns the value returned by lseek(), and lseek() for the
Apple II wasn't returning a value.
This commit is contained in:
Patrick Pelletier 2018-08-19 16:04:42 -07:00 committed by Oliver Schmidt
parent 9fee605e65
commit 68a115cacf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/apple2/lseek.s
View File

@ -84,6 +84,14 @@ seek_common:
jsr callmli
bcs oserr
; Need to return the position in EAX
lda #0
sta sreg+1
lda mliparam + MLI::MARK::POSITION+2
sta sreg
ldx mliparam + MLI::MARK::POSITION+1
lda mliparam + MLI::MARK::POSITION
rts
; Load errno code