mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
Added kernal replacement routines for RDTIM and SETTIM.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4882 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
94f1a17a47
commit
e907b57e9c
@ -66,10 +66,12 @@ OBJS = _scrsize.o \
|
||||
kernal.o \
|
||||
kiobase.o \
|
||||
kopen.o \
|
||||
krdtim.o \
|
||||
kreadst.o \
|
||||
kscnkey.o \
|
||||
kscreen.o \
|
||||
ksetnam.o \
|
||||
ksettim.o \
|
||||
kudtim.o \
|
||||
mainargs.o \
|
||||
peeksys.o \
|
||||
|
21
libsrc/cbm510/krdtim.s
Normal file
21
libsrc/cbm510/krdtim.s
Normal file
@ -0,0 +1,21 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 2003-12-19
|
||||
;
|
||||
; RDTIM kernal call
|
||||
;
|
||||
|
||||
.export RDTIM
|
||||
.import time : zeropage
|
||||
|
||||
|
||||
.proc RDTIM
|
||||
|
||||
sei
|
||||
lda time+0
|
||||
ldx time+1
|
||||
ldy time+2
|
||||
cli
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
21
libsrc/cbm510/ksettim.s
Normal file
21
libsrc/cbm510/ksettim.s
Normal file
@ -0,0 +1,21 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 2003-12-19
|
||||
;
|
||||
; SETTIM kernal call
|
||||
;
|
||||
|
||||
.export SETTIM
|
||||
.import time : zeropage
|
||||
|
||||
|
||||
.proc SETTIM
|
||||
|
||||
sei
|
||||
sta time+0
|
||||
stx time+1
|
||||
sty time+2
|
||||
cli
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
Loading…
Reference in New Issue
Block a user