1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
cc65/libsrc/geos-common/process/processsleep.s
ol.sc 00ddcaeb93 Normalized coding style.
git-svn-id: svn://svn.cc65.org/cc65/trunk@5499 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-02-08 16:13:01 +00:00

35 lines
624 B
ArmAsm

;
; Maciej 'YTM/Elysium' Witkowiak
;
; 30.10.99, 15.8.2003
; void Sleep (int jiffies);
.importzp ptr1
.importzp tmp1
.export _Sleep
.include "jumptab.inc"
.include "geossym.inc"
_SleepExit:
jsr Sleep ; call Sleep
ldx tmp1
txs ; restore stack pointer
jmp (ptr1) ; when timeouts control will reach here
_Sleep:
sta r0L ; store data
stx r0H
pla
sta ptr1
pla
sta ptr1+1 ; preserve return address
inc ptr1
bne @L0
inc ptr1+1 ; fix return address
@L0: tsx
stx tmp1 ; preserve stack pointer
jsr _SleepExit ; call Sleep
jmp MainLoop ; immediate return here - go to idle loop