fclose.s 716 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. .file "fclose.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 fclose
  11. fclose:
  12. move.l %a2,-(%sp)
  13. move.l %d3,-(%sp)
  14. move.l %a0,%a2
  15. moveq.l #-1,%d0
  16. cmp.w #0,%a0
  17. jbeq .L1
  18. move.w 10(%a0),%d0
  19. move.w %d0,%d3
  20. and.w #16,%d3
  21. lsr.w #4,%d3
  22. neg.w %d3
  23. and.w #2,%d0
  24. jbeq .L5
  25. move.l 200.w,%a1
  26. move.l 4(%a0),%a0
  27. move.w (%a0),%d0
  28. addq.w #2,%d0
  29. move.w %d0,-(%sp)
  30. clr.w -(%sp)
  31. move.w 8(%a2),-(%sp)
  32. move.l 628(%a1),%a0
  33. jbsr (%a0)
  34. addq.l #6,%sp
  35. .L5:
  36. move.l 200.w,%a0
  37. move.w 8(%a2),-(%sp)
  38. move.l 636(%a0),%a0
  39. jbsr (%a0)
  40. move.l 200.w,%a0
  41. move.l %a2,-(%sp)
  42. move.l 652(%a0),%a0
  43. jbsr (%a0)
  44. move.w %d3,%d0
  45. addq.l #6,%sp
  46. .L1:
  47. move.l (%sp)+,%d3
  48. move.l (%sp)+,%a2
  49. rts