chown.s 355 B

1234567891011121314151617181920212223242526272829
  1. .define _chown
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .extern _chown
  8. .sect .text
  9. _chown:
  10. tst.b -40(sp)
  11. link a6,#-0
  12. move.w 14(a6), d2
  13. ext.l d2
  14. move.w 12(a6), d1
  15. ext.l d1
  16. move.l d2,-(sp)
  17. move.l d1,-(sp)
  18. move.l 8(a6),-(sp)
  19. jsr __Schown
  20. lea 12(sp),sp
  21. unlk a6
  22. rts
  23. __Schown: trap #0
  24. .data2 0x10
  25. bcc 1f
  26. jmp cerror
  27. 1:
  28. clr.l d0
  29. rts