unlink.s 412 B

123456789101112131415161718192021222324252627282930
  1. .file "unlink.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 unlink
  11. unlink:
  12. lea (-56,%sp),%sp
  13. lea (2,%sp),%a1
  14. clr.b (%a1)
  15. .L2:
  16. addq.l #1,%a1
  17. move.b (%a0)+,%d0
  18. move.b %d0,(%a1)
  19. jbne .L2
  20. #APP
  21. .xdef __ref_all___set_file_in_use_bit
  22. #NO_APP
  23. move.l 200.w,%a0
  24. move.l 376(%a0),%a0
  25. move.l %a1,-(%sp)
  26. jbsr (%a0)
  27. addq.l #4,%sp
  28. subq.w #1,%d0
  29. lea (56,%sp),%sp
  30. rts