home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol135 / test.sub < prev    next >
Encoding:
Text File  |  1984-04-29  |  399 b   |  16 lines
  1. :Generate a self-relocating version of the TEST$1 program
  2. :also, generate an ordinary version of the TEST$1 program
  3. :Run both versions
  4. M80 test$1=test$1
  5. L80 reloc,/p:1fe,test$1,org200/n/e:@@relo
  6. L80 /p:2fe,test$1,org300/n/e
  7. reloc test$1.com $2
  8. era org?00.com
  9. era srp$1.com
  10. ren srp$1.com=test$1.com
  11. L80 test$1,test$1/n/e
  12. :Run the non-relocating test$1
  13. test$1
  14. :Now the relocating version, srp$1
  15. srp$1
  16.