findprogramvar.s 816 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. .file "findprogramvar.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 FindProgramVar
  11. FindProgramVar:
  12. movm.l #0x1c20,-(%sp)
  13. #APP
  14. bsr 0f
  15. 0:move.l (%sp)+,%d4
  16. #NO_APP
  17. and.l #262143,%d4
  18. move.l 200.w,%a0
  19. move.w #2,-(%sp)
  20. clr.l -(%sp)
  21. move.l 432(%a0),%a0
  22. jbsr (%a0)
  23. move.l %a0,%a2
  24. addq.l #6,%sp
  25. jbra .L2
  26. .even
  27. .L7:
  28. move.w 12(%a2),%d5
  29. move.l 200.w,%a0
  30. move.w %d5,-(%sp)
  31. move.l 600(%a0),%a0
  32. jbsr (%a0)
  33. move.l %a0,%d3
  34. addq.l #2,%sp
  35. cmp.l %d4,%a0
  36. jbhi .L4
  37. move.l 200.w,%a0
  38. move.w %d5,-(%sp)
  39. move.l 632(%a0),%a0
  40. jbsr (%a0)
  41. add.l %d3,%d0
  42. addq.l #2,%sp
  43. move.l %a2,%d1
  44. cmp.l %d4,%d0
  45. jbhi .L1
  46. .L4:
  47. move.l 200.w,%a0
  48. move.l 436(%a0),%a0
  49. jbsr (%a0)
  50. move.l %a0,%a2
  51. .L2:
  52. cmp.w #0,%a2
  53. jbne .L7
  54. moveq.l #0,%d1
  55. .L1:
  56. move.l %d1,%a0
  57. movm.l (%sp)+,#0x438
  58. rts