! TABLEGEN -- Generate a TABLE.MAC for CCL from a .CCL file called to screen
by TECO !
36UD ! VALUE OF DOLLAR SIGN !
59US ! VALUE OF SEMICOLON !
! First insert beginning MACRO code !
0J@I^	.TITLE	TABLE
	.ENABLE LC
	.NLIST	BEX
;
;	DEFINE INTERNAL COMMANDS THAT ARE LEGITIMATE
;
	.PSECT	$TABLE,RO,D,GBL,REL,OVR
^
!REDLIN! <0L.UXL-2C.UY(QY-QX)UA ! CALCULATE LINE LENGTH !
QA"E0LK(.-Z);F<' ! IF LINE IS 0 CHARS KILL THE LINE AND CHECK FOR EOF !
0L0AUB ! GET FIRST CHAR INTO REG B !
! IF FIRST CHAR IS SEMICOLON, DELETE THE COMMENT LINE !
(QB-QS)"E0LK(.-Z);F<' ! AND CHECK FOR EOF !
! IF FIRST CHAR IS DOLLAR SIGN INSERT COMMENT BLOCK !
(QB-QD)"E5C.UX1L-2C.UYQX,QYXB  ! STORE COMMAND NAME IN Q-REG B !
0L@I/;
;	/GB@I/
;
/'
! NOW INSERT MACRO FORM OF LINE !
@I#	.EVEN
	.WORD	#QA\@I#.
	.ASCII	&#L-2C@I#&#
! IF ANOTHER LINE, GO DO IT, ELSE GO TO END !
L(Z-.-1):;>
!ENDFILE!
! INSERT THE ENDING STATEMENTS !
I	.WORD	0	;EOF
	.WORD	0
	.END
EI