1: / error = stime(tp); 2: / long *tp; 3: 4: .globl _stime 5: .globl cerror 6: 7: _stime: 8: mov r5,-(sp) 9: mov sp,r5 10: mov 4(sp),r1 11: mov (r1)+,r0 12: mov (r1),r1 13: sys stime 14: bec 1f 15: jmp cerror 16: 1: 17: clr r0 18: mov (sp)+,r5 19: rts pc