main9p.s 751 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. #define NPRIVATES 16
  2. TEXT _mainp(SB), 1, $(16 + NPRIVATES*4)
  3. MOVW $setSB(SB), R2
  4. MOVW R7, _clock(SB)
  5. MOVW $p-64(SP),R7
  6. MOVW R7,_privates+0(SB)
  7. MOVW $16,R7
  8. MOVW R7,_nprivates+0(SB)
  9. /*
  10. MOVW _fpsr+0(SB), FSR
  11. FMOVD $0.5, F26
  12. FSUBD F26, F26, F24
  13. FADDD F26, F26, F28
  14. FADDD F28, F28, F30
  15. */
  16. JMPL _profmain(SB)
  17. MOVW __prof+4(SB), R7
  18. MOVW R7, __prof+0(SB)
  19. MOVW inargc-4(FP), R7
  20. MOVW $inargv+0(FP), R8
  21. MOVW R8, 8(R1)
  22. JMPL main(SB)
  23. loop:
  24. MOVW $_exits<>(SB), R7
  25. JMPL exits(SB)
  26. MOVW $_mul(SB), R8 /* force loading of muldiv */
  27. MOVW $_profin(SB), R9 /* force loading of profile */
  28. JMP loop
  29. TEXT _savearg(SB), 1, $0
  30. RETURN
  31. TEXT _callpc(SB), 1, $0
  32. MOVW argp-4(FP), R7
  33. RETURN
  34. DATA _exits<>+0(SB)/4, $"main"
  35. GLOBL _exits<>+0(SB), $5