.H			Copyright (c) 1996, Gary D. Campbell
NAME =USAGE
0000 USAGE	ENTRY
0000		=`0,@COPYRIGHT
0003	=CR,LF, "USAGE:  DEXPL <filepath>[.",`0,@SRC
0022		="]"
0023	=CR,LF,`8,"A utility to translate Meta-XPL into "
004B		="a .",`0,@OBJ," file suitable for LINKing "
006C	=CR,LF,`8,"into an XPL assembler."
0085	=CR,LF,"<filepath> must name a .",`0,@SRC," file (the fi"
00AF		="le extension, .",`0,@SRC,", is optional)"
00CF	=CR,LF,`8,"containing a definition of a dialect "
00F7		="of XPL in Meta-XPL."
010A	=CR,LF,`8,"The Object File is created using the "
0132		="filepath of the Source,"
0149	=CR,LF,`8,"but with a .",`0,@OBJ," file extension."
016B		=CR,LF,`7,@ABORT
0170 PERIOD	ENTRY
0170		="."
0171 SRC.EXT	ENTRY
0171 SRC:	="DEF",0
0175 OBJ.EXT	ENTRY
0175 OBJ:	="OBJ",0
0179 FIX.1	ENTRY
0179		=4,0,0,0	/T (SP-->SP, HTs-->SPs) & trim WhiteSpace
017D FIX.2	ENTRY
017D		= 0,0,0,0	default = SPs--> HTs	    EOL = CR,LF.
0181 ERRORS	ENTRY
0181		=`3,@ERR.CNT," Error(s) in ",`0,@7C,CR,LF,0
0197 DONEOK	ENTRY
0197		=`0,@7C," Created O.K.",CR,LF,0
01AA EMPTY	ENTRY
01AA		=`0,@7C," defined an empty Object File.",CR,LF,`7,@ABORT
01D0 BAD.END	ENTRY
01D0		="Abnormal Termination at: ",`0,@5D,CR,LF,`7,@ABORT
01F1 NO.DEF.1	ENTRY
01F1		="ERROR:  Undefined Symbols. ",CR,LF,0
020F E.O.CODE	ENTRY
.
0000 COPYRIGHT	0003 CR 	0003 LF 	016B ABORT
0181 ERR.CNT