P8000/WEGA/contrib/K5JB/clksec.a

8 lines
114 B
Plaintext

#asm
clksec: moveq #3,d0
os9 F$Time
move.l #0,d0
move.w d3,d0
rts
#endasm