link.s 208 B

12345678910111213141516171819
  1. #include "sys.h"
  2. .define _link
  3. .extern _errno
  4. _link:
  5. mov 2(sp),0f+2
  6. mov 4(sp),0f+4
  7. sys indir; .data2 0f
  8. bcc 1f
  9. mov r0,_errno
  10. mov $-1,r0
  11. rts pc
  12. 1:
  13. clr r0
  14. rts pc
  15. .sect .data
  16. 0:
  17. sys link
  18. .data2 0, 0