Update libsrc/telestrat/lseek.s

Co-authored-by: kugelfuhr <98353208+kugelfuhr@users.noreply.github.com>
This commit is contained in:
Bob Andrews
2025-07-26 00:01:07 +02:00
committed by GitHub
parent 87ce45ba01
commit 5809eaf037

View File

@@ -38,11 +38,9 @@
; A & X contains position (from 0 to 15 bits) ; A & X contains position (from 0 to 15 bits)
; RES (2 bytes) contains position (from 16 to 31 bits) ; RES (2 bytes) contains position (from 16 to 31 bits)
; Returns long ; Returns long
pha ldy RES+1
lda RES+1 sty sreg+1
sta sreg+1 ldy RES
lda RES sty sreg
sta sreg
pla
rts rts
.endproc .endproc