_unlink.s 169 B

12345678910111213
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. unlink = 10
  4. .define __unlink
  5. __unlink:
  6. .data2 0x0000
  7. chmk $unlink
  8. bcc 1f
  9. jmp cerror
  10. 1:
  11. clrl r0
  12. ret