rename.s 608 B

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. .file "rename.c"
  2. #NO_APP
  3. .text
  4. tigcc_compiled.:
  5. #APP
  6. .set _A_LINE,0xA000
  7. #NO_APP
  8. .text
  9. .even
  10. .globl rename
  11. rename:
  12. lea (-104,%sp),%sp
  13. move.l %a3,-(%sp)
  14. move.l %a2,-(%sp)
  15. move.l %a1,%a3
  16. lea (8,%sp),%a2
  17. clr.b (%a2)
  18. .L2:
  19. addq.l #1,%a2
  20. move.b (%a0)+,%d0
  21. move.b %d0,(%a2)
  22. jbne .L2
  23. move.l %a2,%a1
  24. .L5:
  25. addq.l #1,%a1
  26. move.b (%a3)+,%d0
  27. move.b %d0,(%a1)
  28. jbne .L5
  29. #APP
  30. .xdef __ref_all___set_file_in_use_bit
  31. #NO_APP
  32. move.l 200.w,%a0
  33. move.l 396(%a0),%a0
  34. move.l %a1,-(%sp)
  35. move.l %a2,-(%sp)
  36. jbsr (%a0)
  37. addq.l #8,%sp
  38. subq.w #1,%d0
  39. move.l (%sp)+,%a2
  40. move.l (%sp)+,%a3
  41. lea (104,%sp),%sp
  42. rts