_fork.s 173 B

123456789101112131415
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. fork = 2
  4. .define __fork
  5. __fork:
  6. .data2 0x0000
  7. chmk $fork
  8. bcc 1f
  9. jmp cerror
  10. 1:
  11. blbc r1,1f
  12. clrl r0
  13. 1:
  14. ret