Files
2018-01-27 22:35:41 +09:00

23 lines
237 B
ArmAsm

/ C library -- link
/ error = link(old-file, new-file);
/
.globl _link, cerror
_link:
mov r5,-(sp)
mov sp,r5
mov 4(r5),0f
mov 6(r5),0f+2
sys 0; 9f
bec 1f
jmp cerror
1:
clr r0
mov (sp)+,r5
rts pc
.data
9:
sys link; 0:..; ..