mirror of
https://github.com/cc65/cc65.git
synced 2024-10-31 04:04:49 +00:00
23 lines
521 B
ArmAsm
23 lines
521 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 22.11.2002
|
||
|
|
;
|
||
|
|
; SETTIM replacement function
|
||
|
|
;
|
||
|
|
|
||
|
|
.export SETTIM
|
||
|
|
|
||
|
|
.include "plus4.inc"
|
||
|
|
|
||
|
|
; Set the clock by writing directly to zero page to avoid banking in the ROM
|
||
|
|
|
||
|
|
.proc SETTIM
|
||
|
|
sei ; No interrupts
|
||
|
|
sta TIME+2
|
||
|
|
stx TIME+1
|
||
|
|
sty TIME ; Set the time
|
||
|
|
cli ; Allow interrupts
|
||
|
|
rts ; Return to caller
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
|