ptrace.s 180 B

1234567891011121314
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define _ptrace
  4. ptrace = 26
  5. .align 1
  6. _ptrace:
  7. .data2 0x0000
  8. clrl _errno
  9. chmk $ptrace
  10. bcc 1f
  11. jmp errmon
  12. 1:
  13. ret