Files
unix-v6/source/s5/stime.s
T
2018-01-27 22:35:41 +09:00

16 lines
161 B
ArmAsm

.globl _stime, cerror
_stime:
mov r5,-(sp)
mov sp,r5
mov 4(sp),r1
mov (r1)+,r0
mov (r1),r1
sys stime
bec 1f
jmp cerror
1:
clr r0
mov (sp)+,r5
rts pc