fork.s 180 B

12345678910111213141516
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define _fork
  4. fork = 2
  5. .align 1
  6. _fork:
  7. .data2 0x0000
  8. chmk $fork
  9. bcc 1f
  10. jmp errmon
  11. 1:
  12. jlbc r1,1f
  13. clrl r0
  14. 1:
  15. ret