main9p.s 700 B

12345678910111213141516171819202122232425262728293031323334353637
  1. #define NPRIVATES 16
  2. TEXT _mainp(SB), 1, $16
  3. MOVQ $setSB(SB), R29
  4. MOVL R0, _clock(SB)
  5. MOVQ $p-64(SP),R1
  6. MOVL R1,_privates+0(SB)
  7. MOVQ $16,R1
  8. MOVL R1,_nprivates+0(SB)
  9. JSR _profmain(SB)
  10. MOVL __prof+4(SB), R0
  11. MOVL R0, __prof+0(SB)
  12. MOVL inargc-4(FP), R0
  13. MOVL $inargv+0(FP), R1
  14. MOVL R0, 8(R30)
  15. MOVL R1, 12(R30)
  16. JSR main(SB)
  17. loop:
  18. MOVQ $exits<>(SB), R0
  19. MOVL R0, 8(R30)
  20. JSR exits(SB)
  21. MOVQ $_divq(SB), R31 /* force loading of divq */
  22. MOVQ $_divl(SB), R31 /* force loading of divl */
  23. MOVQ $_profin(SB), R31 /* force loading of profile */
  24. JMP loop
  25. TEXT _savearg(SB), 1, $0
  26. RET
  27. TEXT _callpc(SB), 1, $0
  28. MOVL argp-8(FP), R0
  29. RET
  30. DATA exits<>+0(SB)/4, $"main"
  31. GLOBL exits<>+0(SB), $5