perm filename JFR.DO[S,AIL] blob sn#252289 filedate 1976-12-12 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	COMPILER↔
C00003 ENDMK
C⊗;
;COMPILER↔
;text to make two-segment compiler supporting extended compilation↔
ALIAS S,AIL		;get onto the right area↔
COMPILE @ITRENC		;assemble the compiler↔
R FRAID	;increment compiler version number so XSAIL users don't get screwed↔
NCOMVER.REL↔Y7;≠. 1↔≠≠≠E
R LOADER		;load it↔
/SSAIL,COMVER,XTCLOR.new,SYS:HLBSA8/L,sys:libsa8/l,/V≠
DD			;move upper into low moby↔
SAIL≠:0;1↔LTHUUO≠≠≠X≠≠≠I≠≠≠E
START			;copy .JBVER to 400004, write protect, dumpout upper↔
SAVE SAIL		;lower↔
ALIAS↔