execle.s 266 B

1234567891011121314151617181920
  1. .define _execle
  2. .extern _execle
  3. .sect .text
  4. .sect .rom
  5. .sect .data
  6. .sect .bss
  7. .sect .text
  8. _execle: link a6,#0
  9. tst.b -48(sp)
  10. lea 12(a6),a0
  11. 1:
  12. tst.l (a0)+
  13. bne 1b
  14. move.l a0,-(sp)
  15. pea 12(a6)
  16. move.l 8(a6),-(sp)
  17. jsr _execve
  18. add.l #0xC,sp
  19. unlk a6
  20. rts