mirror of
https://github.com/cc65/cc65.git
synced 2024-11-09 19:05:21 +00:00
24 lines
290 B
ArmAsm
24 lines
290 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 19.11.2002
|
||
|
|
;
|
||
|
|
; RDTIM replacement function for the PETs
|
||
|
|
;
|
||
|
|
|
||
|
|
.export RDTIM
|
||
|
|
|
||
|
|
.include "pet.inc"
|
||
|
|
|
||
|
|
|
||
|
|
.proc RDTIM
|
||
|
|
|
||
|
|
sei
|
||
|
|
lda TIME+2
|
||
|
|
ldx TIME+1
|
||
|
|
ldy TIME
|
||
|
|
cli
|
||
|
|
rts
|
||
|
|
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
|