fwrite.s 629 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. .file "fwrite.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 fwrite
  11. fwrite:
  12. movm.l #0x1f30,-(%sp)
  13. move.l %a0,%a3
  14. move.w %d0,%d7
  15. move.w %d1,%d6
  16. move.l %a1,%a2
  17. move.w 10(%a1),%d0
  18. move.w %d0,%d4
  19. and.w #64,%d4
  20. or.w #64,%d0
  21. move.w %d0,10(%a1)
  22. clr.w %d5
  23. jbra .L2
  24. .even
  25. .L12:
  26. move.l %a2,-(%sp)
  27. clr.w %d0
  28. move.b (%a3)+,%d0
  29. move.w %d0,-(%sp)
  30. jbsr fputc
  31. addq.l #6,%sp
  32. tst.w %d0
  33. jblt .L11
  34. addq.w #1,%d3
  35. .L6:
  36. cmp.w %d3,%d7
  37. jbhi .L12
  38. addq.w #1,%d5
  39. .L2:
  40. clr.w %d3
  41. cmp.w %d5,%d6
  42. jbhi .L6
  43. .L11:
  44. or.w #-65,%d4
  45. and.w %d4,10(%a2)
  46. move.w %d5,%d0
  47. movm.l (%sp)+,#0xcf8
  48. rts