trv.maker 596 B

1234567891011121314151617181920
  1. <USE "CLEAN" "PURITY">
  2. <SNAME "MARC">
  3. <GROUP-LOAD "TVHACK GBIN">
  4. <GROUP-LOAD "BABBLE GBIN">
  5. <CLEANUP>
  6. <PRINT-CLEANUP>
  7. <SET X ,PURELST>
  8. <SETG PATCH <IUVECTOR 30>>
  9. <GROUP-PURIFY X <> ,PWTERM ,SEQ-BITS ,FROBS ,FROB-NAMES ,STATUS-VECTOR ,WINNERS
  10. ,LOSEMSG ,NEWMSG ,COMS ,DCOM ,QTYPES ,CATS ,GIVEUP ,T/F ,MAINT ,MONTHS
  11. ,6BIT ,SWITCH-TABLE ,BIT-TABLE ,SEQ-SYMS ,MAKETYPES ,ORDERS ,OPTBL ,RCOMS
  12. ,MAKERS ,ASKERS ,MREADERS ,READERS ,SPECS ,ONSYMS ,BYSYMS ,TOBRKS ,DBRKS
  13. ,PATCH>
  14. <KILL:PURITY>
  15. <FLUSH-CLEANUP>
  16. <UNASSIGN X>
  17. <REMOVE <UNASSIGN TVHACK>>
  18. <REMOVE <UNASSIGN MCC>>
  19. <UNASSIGN BABBLE>
  20. <GC 0 T>