main9p.s 538 B

1234567891011121314151617181920212223242526272829303132
  1. TEXT _mainp(SB), 1, $16
  2. MOVW $setR30(SB), R30
  3. MOVW R1, _clock(SB)
  4. /*
  5. MOVW $0,FCR31
  6. NOR R0,R0
  7. MOVD $0.5, F26
  8. SUBD F26, F26, F24
  9. ADDD F26, F26, F28
  10. ADDD F28, F28, F30
  11. */
  12. JAL _profmain(SB)
  13. MOVW __prof+4(SB), R1
  14. MOVW R1, __prof+0(SB)
  15. JAL _envsetup(SB)
  16. MOVW inargc-4(FP), R1
  17. MOVW $inargv+0(FP), R2
  18. MOVW R1, 4(R29)
  19. MOVW R2, 8(R29)
  20. JAL main(SB)
  21. loop:
  22. MOVW R1, 4(R29)
  23. JAL exit(SB)
  24. MOVW $_profin(SB), R0 /* force loading of profile */
  25. JMP loop
  26. TEXT _savearg(SB), 1, $0
  27. RET
  28. TEXT _callpc(SB), 1, $0
  29. MOVW argp-4(FP), R1
  30. RET