;COMPILER
.;text to make two-segment compiler supporting extended compilation
.ALIAS S,AIL		;get onto the right area

.COMPILE @ITRENC		;assemble the compiler
Swapping to SYS:FAIL.DMP
 RENCSW
 HEAD
 SAIL
FAIL:  SAIL 
 PARSE
 HEL
 FOO2
 PROD
 DATA
 RESTAB
 ENDDAT
 SYM
 GEN
 ARRAY
 EXPRS
 EXPRS,  PAGE  16,  LINE  113
ASSUMING NO LONG INTEGERS
 STATS
 LEAP
 TOTAL
 PROCSS
 COMSER

Exit
↑C
.R FRAID	;increment compiler version number so XSAIL users don't get screwed

DMP FILE? (Y or N) N
TYPE FILE NAME - COMVER.REL
DO YOU WANT TO MODIFY THE FILE? Y7;$. 1
$$$E
Exit
↑C
.R LOADER		;load it
*/SSAIL,COMVER,XTCLOR.new,SYS:HLBSA8/L,sys:libsa8/l,/V$

000001 UNDEFINED GLOBALS

$PSTR     021016
LOADER 54+57 PAGES
62K MAX 468 WORDS FREE 

Exit
↑C
.DD			;move upper into low moby

SAIL$:0;1
LTHUUO$$$X$$$I$$$E
Exit
↑C
.START			;copy .JBVER to 400004, write protect, dumpout upper

SAVE ME!

↑C
.SAVE SAIL		;lower
Job saved in 54 pages. (Upper not saved)
↑C
.ALIAS

.K/F
Kjob
.