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

lseek: use STZ for APPLE2ENH

Browse Source 
(As suggested in pull request.)
This commit is contained in:
Patrick Pelletier 2018-08-20 00:10:51 -07:00 committed by Oliver Schmidt
parent 68a115cacf
commit 8cb930b50e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/apple2/lseek.s
View File

@ -85,8 +85,12 @@ seek_common:
bcs oserr
; Need to return the position in EAX
.ifdef __APPLE2ENH__
stz sreg+1
.else
lda #0
sta sreg+1
.endif
lda mliparam + MLI::MARK::POSITION+2
sta sreg
ldx mliparam + MLI::MARK::POSITION+1