;COMPILER↔ ;text to make two-segment compiler supporting extended compilation↔ ; COMPILE @ITRENC ;assemble the compiler↔ R LOADER ;load it↔ /SSAIL,COMVER,XTCLOR,SYS:HLBSA8/L,SYS:LIBSA8/L,/V≠ DD↔ SAIL≠:≠≠≠I≠G ;above copes .JBVER to 400004, write protects, writes out upper on current area↔ SAVE SAIL ;lower↔