exec.s 477 B

1234567891011121314151617181920212223242526272829303132
  1. .define _execl
  2. .define _execve
  3. .define _execv
  4. .sect .text
  5. .sect .rom
  6. .sect .data
  7. .sect .bss
  8. .sect .text
  9. .extern _execl
  10. .extern _execve
  11. .extern _execv
  12. _execl: tst.b -48(sp)
  13. link a6,#0
  14. move.l _environ,-(sp)
  15. pea 12(a6)
  16. move.l 8(a6),-(sp)
  17. jsr _execve
  18. add.l #12,sp
  19. unlk a6
  20. rts
  21. _execve: trap #0
  22. .data2 59
  23. jmp cerror
  24. _execv: tst.b -48(sp)
  25. link a6,#0
  26. move.l _environ,-(sp)
  27. move.l 12(a6),-(sp)
  28. move.l 8(a6),-(sp)
  29. jsr _execve
  30. add.l #12,sp
  31. unlk a6
  32. rts