20main.mac 268 B

12345678910111213141516
  1. ; 20-main: simple driver to test MACRO version of 20 tests
  2. TITLE MAIN
  3. SEARCH MONSYM
  4. RADIX ^D10
  5. EXTERN INIT20,MAIN20,QUIT20
  6. ST=15
  7. MAIN: RESET
  8. MOVE ST,[-1000,Stack]
  9. PUSHJ ST,INIT20
  10. PUSHJ ST,MAIN20
  11. PUSHJ ST,QUIT20
  12. stack: block 1000
  13. END MAIN