6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-01 03:30:20 +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 bcs oserr
; Need to return the position in EAX ; Need to return the position in EAX
.ifdef __APPLE2ENH__
stz sreg+1
.else
lda #0 lda #0
sta sreg+1 sta sreg+1
.endif
lda mliparam + MLI::MARK::POSITION+2 lda mliparam + MLI::MARK::POSITION+2
sta sreg sta sreg
ldx mliparam + MLI::MARK::POSITION+1 ldx mliparam + MLI::MARK::POSITION+1