Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0042/table.mac
There are 2 other files named table.mac in the archive. Click here to see a list.
TITLE		*** CONVERSION TABLE GENERATOR ***
SUBTTL			*** WORDS OF WISDOM ***


















;*******************************************************************
;*                                                                 *
;*	AS FOR MAN, HIS DAYS ARE AS GRASS, AS A FLOWER OF          *
;*	THE FIELD, SO HE FLOURISHETH. FOR THE WIND PASSETH         *
;*	OVER IT, AND IT IS GONE; AND THE PLACE THEREOF SHALL       *
;*	KNOW IT NO MORE.                                           *
;*                                                                 *
;*******************************************************************
SUBTTL		*** DEFINITIONS ***

;	ASSEMBLER DIRECTIVES.

	SALL
	INTERNAL	PATCH		;GET IT IN LOADER'S MAP.

;	ACCUMULATORS.

S=0					;STATUS REGISTER.
T1=1					;TEMPORARY REGISTERS.
T2=2
T3=3
T4=4
P1=5					;MAYBE YOU CAN DEPEND ON REGISTERS.
P2=6
P3=6
P4=10
CH=11					;HOLDS A CHARACTER.
DF=12					;CHANNEL FOR DATA FILE.
WD=13					;HOLDS A COMMAND WORD.
PDP=17					;PUSH-DOWN POINTER.

;	BITS SET IN S.

SPC==1					;SAYS WE HAVE A SPECIAL CHARACTER.
COL==2					;WE HAVE SEEN A COLON.
EOL==4					;WE HAVE FOUND END OF LINE.
PER==10					;WE HAVE SEEN A PERIOD.
SLH==20					;A SWITCH IS COMING.
BRK==40					;A PPN IS ON ITS WAY.
SOM==100				;SAYS WE HAVE ONE OF THE ABOVE.
DEV==200				;WE HAVE A DEVICE.
FILE==400				;WE HAVE A FILE NAME.
NUM==1000				;WE HAVE A PPN.
SW==2000				;WE HAVE GOTTEN A SWITCH.
RFLG==4000				;WE ARE GOING TO RUN CHANGE.
SEC==10000				;THIS IS A SECOND TRY.
BAD==20000				;USER TYPED A BAD CHARACTER.
ZERO==0					;INDEX FOR RETURNS.
ONE==1					;USED FOR RETURN MACRO.
TWO==2					;USED FOR RETURN MACRO.
NEC==400000				;SAYS CHARACTER CAN'T BE CONVERTED.
DMP==17					;FOR DUMP MODE I/O.
;	MASTER MODE ENTRY SYMBOLS.

.RES==0					;CLEAR I/O.
.STR==3					;SEND A STRING.
.TERM==12				;STOP THE WORLD.
.DEV==4					;GET DEVICE CHARACTERISTICS.
.RUN==35				;RUN A PROGRAM.
.LN==4					;INPUT CHARACTER LINE MODE.
.CH==1					;SEND A CHARACTER.
.NAM==64				;GET REAL NAME FOR DEVICE.

;	USEFUL OPDEFS.

OPDEF	MME	[OCT 047000000000]	;MASTER MODE ENTRY.
OPDEF	EME	[OCT 051000000000]	;EXECUTIVE MODE ENTRY.
OPDEF	PJRST	[OCT 254000000000]	;PUSHJ/POPJ PAIR.
OPDEF	NOP	[OCT 255000000000]	;NO OPERATION.
OPDEF	GOSUB	[OCT 260740000000]	;CALL A SUBROUTINE.
OPDEF	RETURN	[OCT 263740000000]	;RETURN FROM SUBROUTINE.
OPDEF	SAVE	[OCT 261740000000]	;SAVE A LOCATION.
OPDEF	UNSAVE	[OCT 262740000000]	;UNSAVE A LOCATION.

;	THINGS WITH NO OTHER PLACE TO LIVE.

IFNDEF	PDPSIZ, <PDPSIZ==10>		;LENGHT OF THE STACK.
IFNDEF	PATSIZ, <PATSIZ==10>		;PATCH AREA SIZE.
VERSION==0B2!1B11!1B17!'DRK'		;VERSION.
;	SOME MACROS.

DEFINE	OP	(AC,FLG,MM)		;CREATE THE RIGHT TEST.
	<IFN FLG&777777, <IFN FLG&777777000000, <TD'MM AC,[FLG]>>
	IFE FLG&777777, <TL'MM AC,(FLG)>
	IFE FLG&777777000000, <TR'MM AC,FLG>>

DEFINE	TEST	(AC,FLG,M1,M2,LOC)	;GENERATE A SKIP OR JUMP.
	<IFB <LOC>, <OP AC,FLG,M1>
	IFNB <LOC>, <OP AC,FLG,M2
		XLIST
	JRST	LOC
		LIST>>

DEFINE	ON	(AC,FLG)		;TURN SOME BITS ON.
	<OP	AC,FLG,O>

DEFINE	OFF	(AC,FLG)		;TURN SOME BITS OFF.
	<OP	AC,FLG,Z>

DEFINE	IF.ON	(AC,FLG,LOC)		;SKIP OR JUMP IF BITS ARE ON.
	<TEST	AC,FLG,NN,NE,LOC>

DEFINE	IF.OFF	(AC,FLG,LOC)		;SKIP OR JUMP IF BITS ARE OFF.
	<TEST	AC,FLG,NE,NN,LOC>

DEFINE	TNO	(AC,FLG,LOC)		;JUMP OR SKIP IF ON AND TURN ON.
	<TEST	AC,FLG,ON,OE,LOC>

DEFINE	TEO	(AC,FLG,LOC)		;JUMP OR SKIP IF OFF AND TURN ON.
	<TEST	AC,FLG,OE,ON,LOC>

DEFINE	TNZ	(AC,FLG,LOC)		;JUMP OR SKIP IF ON AND TURN OFF.
	<TEST	AC,FLG,ZN,ZE,LOC>

DEFINE	TEZ	(AC,FLG,LOC)		;JUMP OR SKIP IF OFF AND TURN OFF.
	<TEST	AC,FLG,ZE,ZN,LOC>
;	DATA AREA.

	LOC	137
	EXP	VERSION
	RELOC

DATDEV:	XWD	ZERO,DMP		;DATA FILE DEVICE.
	SIXBIT	"DEVICE"
	XWD	ZERO,ZERO
DATFIL:	SIXBIT	"FILE"			;NAME FOR DATA FILE.
	SIXBIT	"EXT"
	XWD	ZERO,ZERO
	XWD	ZERO,ZERO

RUNDEV:	SIXBIT	"DEVICE"		;DEVICE ON WHICH TO FIND CHANGE.
	SIXBIT	"CHANGE"		;CHANGE'S NAME.
	SIXBIT	"LOW"			;ASK FOR CHANGE.SHR.
	XWD	ZERO,ZERO
	XWD	ZERO,ZERO
	XWD	ZERO,ZERO

CCLFLG:	XWD	ZERO,ZERO		;CCL ENTRY FLAG.
PATCH:	BLOCK	PATSIZ			;PATCH AREA.
PAT=PATCH
STACK:	BLOCK	PDPSIZ			;PUSH-DOWN STACK.
CTRL:	IOWD	FIN-BEG,BEG		;I/O LIST FOR WRITE.
	XWD	ZERO,ZERO
SAVEAC:	BLOCK	20

;	SPECIAL CHARACTER TABLE.

CH.CHR:	XWD	":",COL!SOM
	XWD	".",PER!SOM
	XWD	"[",BRK!SOM
	XWD	"/",SLH!SOM
	XWD	15,EOL!SOM
	XWD	33,EOL!SPC!SOM
	XWD	175,EOL!SPC!SOM
	XWD	176,EOL!SPC!SOM
CH.CNT=.-CH.CHR
SUBTTL		*** COMMAND DECODER ***

START:	TDZA	S,S			;HERE ON NORMAL START.
	SETOM	S			;HERE FOR CCL ENTRY.
	MOVEM	S,CCLFLG		;SAVE ENTRY FLAG.
	MME	.RES			;CLEAR THE WORLD.
	SETZM	DATDEV+1		;CLEAR A WORD.
	MOVE	T1,[XWD DATDEV+1,DATDEV+2];SET A POINTER.
	BLT	T1,DATFIL+3		;CLEAR STORAGE.
	MOVE	PDP,[IOWD PDPSIZ,STACK]	;SET POINTER TO STACK.
	JUMPN	S,DSKDFT		;JUMP IF CCL ENTRY.
	EME	.STR,[ASCIZ "File: "]	;TELL HIM WHAT WE WANT.
	SETZM	S			;CLEAR STATUS REGISTER.
	GOSUB	GETSIX			;GET A WORD.
	IF.OFF	S,EOL,CHKDEM		;JUMP IF NOT END OF LINE.
	JUMPE	WD,SYSDFT		;WRITE IT IN SYS IF NOTHING.
	SKIPA				;SKIP INTO GOODNESS.
GETWOD:	GOSUB	GETSIX			;GET THE NEXT WORD.
CHKDEM:	IF.ON	S,COL,GETDEV		;JUMP IF IT IS A DEVICE.
	IF.ON	S,PER,GETNAM		;JUMP FOR FILE NAME.
	IF.ON	S,BRK,GETPPN		;READ THE PPN.
	IF.ON	S,SLH,GETSW		;JUMP IF IT IS A SWITCH.
	IF.ON	S,EOL,ENDCOM		;JUMP IF COMMAND IS DONE.
SLEW:	GOSUB	GETONE			;FIND A DELIMITER.
	IF.ON	S,SOM,CHKDEM		;JUMP IF FOUND ONE.
	JRST	SLEW			;ELSE KEEP LOOKING.
;HERE TO GET THE DEVICE FROM THE USER.

GETDEV:	TNO	S,DEV,DEVERR		;ONLY ALLOW ONE DEVICE.
	MOVEM	WD,DATDEV+1		;SAVE THE NAME OF THE DEVICE.
	JRST	GETWOD			;AND CARRY ON.

;HERE TO GET THE FILE NAME.

GETNAM:	TNO	S,FILE,NAMERR		;ONLY ONE FILE NAME.
	MOVEM	WD,DATFIL		;SAVE THE NAME HE WANTS.
	GOSUB	GET3			;GET THE EXTENSION.
	EXCH	WD,DATFIL+1		;SAVE THE EXTENSION.
	IF.ON	S,SOM,CHKDEM		;JUMP IF ENDED ON DELIMITER.
	JRST	SLEW			;ELSE FIND ONE.

;HERE TO READ A PPN FROM THE USER.

GETPPN:	TNO	S,NUM,PPNERR		;ONLY ONE PPN.
	GOSUB	NAMCHK			;MAKE SURE THERE IS NO NAME PRESENT.
	GOSUB	GETOCT			;READ THE PROJECT NUMBER.
	JUMPLE	P2,PPNERR		;JUMP IF ERROR.
	CAIE	CH,","			;IS IT THE RIGHT DELIMITER.
	JRST	PPNERR			;NO SO ERROR.
	HRLZM	P2,DATFIL+3		;SAVE IT.
	GOSUB	GETOCT			;AND GET THE PROGRAM NUMBER.
	JUMPLE	P2,PPNERR		;JUMP IF ERROR.
	HRRM	P2,DATFIL+3		;SAVE IT.
	IF.ON	S,EOL,ENDCOM		;ALLOW NO CLOSINF BRACKET.
	CAIE	CH,"]"			;BUT ONLY ALLOW ONE OR THE OTHER.
	JRST	PPNERR			;ERROR.
	JRST	GETWOD			;GET NEXT WORD.

;HERE TO GET THE SWITCH. ONLY ONE IS ALLOWED.

GETSW:	TNO	S,SW,TWICE		;ONLY HERE ONCE.
	GOSUB	NAMCHK			;SEE IF FILE NAME PRESENT.
	GOSUB	GETONE			;GET THE SWITCH.
	CAIN	CH,"R"			;IS IT THE RIGHT ONE.
	IF.ON	S,SOM,BADSW		;IF DELIMITER THEN ERROR.
	ON	S,RFLG			;SAY WE MUST RUN IT.
	JRST	GETWOD			;AND GET NEXT WORD.
;HERE ON END OF COMMAND.

ENDCOM:	GOSUB	NAMCHK			;MAKE SURE IT IS ALL OVER.
	SKIPN	DF,DATDEV+1		;DO WE HAVE A DEVICE.
	MOVSI	DF,'DSK'		;USE DISK.
	MOVEM	DF,DATDEV+1		;SAVE THE DEVICE.
	MME	DF,.DEV			;GET THE DEVICE CHARACTERISTICS.
	SKIPN	DF			;SKIP IT THERE.
	JRST	NOEXT			;DOESN'T EXIST.
	SKIPN	DATFIL			;SKIP IF FILE NAME THERE.
	JRST	NOFILE			;NO FILE NAME.
	JRST	GETFIL			;DO GOOD THINGS.

;HERE TO SET UP DEFAULTS AND TO WRITE THE FILE.

DSKDFT:	SKIPA	T1,[SIXBIT "DSK"]	;SET DSK AS DEFAULT.
SYSDFT:	MOVSI	T1,'SYS'		;SET SYS AS DEFULT.
	MOVEM	T1,DATDEV+1		;SAVE THE DEVICE.
	MOVE	T1,[SIXBIT "CHANGE"]	;DEFAULT NAME FOR FILE.
	MOVEM	T1,DATFIL		;SAVE THE FILE NAME.
	MOVSI	T1,'DAT'		;DEFAULT EXTENSION.
	MOVEM	T1,DATFIL+1		;SAVE THE EXTENSION.
	SETZM	DATFIL+3		;CLEAR PPN WORD.
GETFIL:	OPEN	DF,DATDEV		;GET THE DEVICE.
	JRST	NODEV			;CAN'T HAVE DEVICE.
	ENTER	DF,DATFIL		;CREATE A FILE.
	JRST	NOFIL			;CAN'T CREATE FILE.
	OUT	DF,CTRL			;WRITE OUT THE TABLES.
	SKIPA				;SKIP IF NO ERROR.
	JRST	NOWRT			;ELSE SAY THERE IS AN ERROR.
	CLOSE	DF,ZERO			;PUT IT ON THE DISK.
	STATZ	DF,740000		;SKIP IF NO ERROR.
	JRST	NOWRT			;ELSE TELL HIM.
	RELEASE	DF,ZERO			;RELEASE DEVICE.
	IF.ON	S,RFLG,RUNIT		;JUMP IF RUN SPECIFIED.
TERM:	MME	ONE,.TERM		;ELSE STOP THE WORLD.
	JRST	.-1			;FOR SURE.
SUBTTL		*** RUN CHANGE ***

;HERE TO RUN "CHANGE.SHR" FROM EITHER DEVICE "SYS"
;OR DEVICE "DSK".

RUNIT:	SKIPN	CCLFLG			;SKIP IF CCL ENTRY.
	GOSUB	CRLF			;ELSE SKIP A LINE.
	MOVSI	T1,'SYS'		;TRY SYS FIRST.
	GOSUB	RUNNOW			;RUN IT.
	MOVSI	T1,'DSK'		;IF DEVICE DSK DOESN'T WORK
	GOSUB	RUNNOW			;TRY DSK.
	JRST	NORUN			;IF NEITHER ERROR.
RUNNOW:	MOVEM	T1,RUNDEV		;SAVE THE DEVICE.
	MOVEI	T1,RUNDEV		;GET POINTER TO PARAMETERS.
	SKIPE	CCLFLG			;SKIP IF NORMAL START.
	HRLI	T1,ONE			;IF CCL ENTRY GIVE CCL ENTRY.
	SETZM	RUNDEV+3		;CLEAR PPN WORD.
	HRRZI	T2,SAVEAC		;POINTER TO STORAGE.
	BLT	T2,SAVEAC+17		;SAVE THE AC'S.
	MME	T1,.RUN			;TRY AND RUN IT.
	HRLZI	T2,SAVEAC		;POINTER FROM STORAGE.
	BLT	T2,PDP			;RESTORE THE AC'S.
RET0:	RETURN	ZERO			;ERROR RETURN.
SUBTTL	*** UTILITY ROUTINES ***

;HERE TO CHECK ON WD TO SEE IF A FILE NAME IS PRESENT.
;HERE ONLY WHEN A DELIMITER COULD BE A DELIMITER
;FOR TWO PARTS OF THE COMMAND STRING.

NAMCHK:	JUMPE	WD,RET0			;MUST LEAVE WD=0 AFTER OPERATION.
	TNO	S,FILE,NAMERR		;ONLY ONE FILE NAME.
	EXCH	WD,DATFIL		;SAVE THE NAME.
	RETURN	ZERO			;BACK TO CALLER.

;HERE TO GET A SIXBIT WORD.

GETSIX:	GOSUB	GET3			;GET THREE FIRST.
	IF.OFF	S,SOM			;IF DELIMITER WAS FOUND
	RETURN	ZERO			;RETURN ELSE
	PJRST	NXT3			;GET THE NEXT THREE.

;HERE TO GET THREE CHARACTERS FORM THE COMMAND
;STRING.

GET3:	MOVE	P1,[POINT 6,WD]		;GET A POINTER.
	SETZM	WD			;CLEAR TARGET.
NXT3:	JSP	P2,GETIT		;GET
	JSP	P2,GETIT		;   A CHARACTER
	JSP	P2,GETIT		;      THREE TIMES.
	RETURN	ZERO			;TO CALLER.
GETIT:	GOSUB	GETONE			;GET ONE CHARACTER.
	IF.OFF	S,SOM			;SKIP IF NO DELIMTER.
	RETURN	ZERO			;RETURN ON DELIMTERS.
	SUBI	CH," "			;CONVERT IT TO SIXBIT.
	IDPB	CH,P1			;SAVE THE CHARACTER.
	JRST	ZERO(P2)		;RETURN TO CALLER.
;HERE TO GET ONE CHARACTER FROM THE COMMAND STRING.

GETONE:	OFF	S,COL!PER!BRK!SLH!EOL!SPC!SOM;CLEAR SOME BITS.
	EME	.LN,CH			;GET A CHRACTER.
	CAIE	CH,12			;IF IT IS A LINE FEED.
	CAIN	CH,11			;OR A TAB.
	JRST	GETONE			;GET ANOTHER.
	CAIN	CH," "			;ALSO IF IT IS A SPACE.
	JRST	GETONE			;GET ANOTHER.
	CAIN	CH,15			;IF IT IS A RETURN.
	EME	.LN,T1			;THEN READ THE LINE-FEED.
	HRLZI	T1,-CH.CNT		;SET UP TABLE LENGTH.
	HLRZ	T2,CH.CHR(T1)		;GET A CHARACTER.
	CAME	CH,T2			;SEE IF A MATCH.
	AOBJN	T1,.-2			;IF NOT KEEP LOKING.
	JUMPGE	T1,MAKUP		;JUMP IF NOT SPECIAL.
	HRRZ	T1,CH.CHR(T1)		;GET THE BITS.
	IOR	S,T1			;SET THEM.
	TNZ	S,SPC,CRLF		;JUMP IF SPECIAL.
	RETURN	ZERO			;ELSE RETURN.
MAKUP:	CAIL	CH,140			;IS IT LOWER CASE.
	OFF	CH," "			;MAKE IT UPPER CASE.
	CAIE	CH,","			;ALLOW COMAS AND
	CAIN	CH,"]"			;BRACKETS AS SPECIAL CHARACTERS.
	RETURN	ZERO			;AND RETURN FOR THESE.
	CAIGE	CH,"0"			;IS IT BETTER THEN ZERO.
	JRST	BADCHR			;NO SO BAD CHARACTER.
	CAIG	CH,"9"			;IS IT LESS THEN 9 PLUS ONE.
	RETURN	ZERO			;NO SO ILLEGAL.
	CAIL	CH,"A"			;IS IT IN THE ALPHABET.
	CAILE	CH,"Z"			;A--Z
	JRST	BADCHR			;NO SO BAD CHARACTER.
	RETURN	ZERO			;BACK TO SENDER.

;HERE TO GET AN OCTAL NUMBER FROM THE USER.

GETOCT:	SETZM	P2			;CLEAR TARGET.
NXTDIG:	GOSUB	GETONE			;GET A CHRACTER.
	IF.OFF	S,SOM			;IF DELIMITER IS FOUND.
	RETURN	ZERO			;RETURN TO CALLER.
	CAIL	CH,"0"			;MUST BE IN AN OCTAL RANGE.
	CAIL	CH,"7"			;0--7.
	RETURN	ZERO			;CHARACTER IS NOT OCTAL.
	IMULI	P2,10			;SHIFT LEFT FOR BASE.
	ADDI	P2,-"0"(CH)		;CONVERT AND ADD.
	JRST	NXTDIG			;GET THE NEXT ONE.
SUBTTL		*** ERROR MESSAGES ***

DEVERR:	SKIPA	P1,[[ASCIZ "? Too many devices specified."]]
NAMERR:	MOVEI	P1,[ASCIZ "? Too many file names specified."]
	JRST	FSTEOL
PPNERR:	SKIPA	P1,[[ASCIZ "? Incorrect project-program number."]]
TWICE:	MOVEI	P1,[ASCIZ "? Only one switch allowed."]
	JRST	FSTEOL
BADCHR:	TNO	S,BAD,RET0
	SKIPA	P1,[[ASCIZ "? Illegal character in command."]]
BADSW:	MOVEI	P1,[ASCIZ "? Switch specified is not /R."]
	JRST	FSTEOL
NOFILE:	SKIPA	P1,[[ASCIZ "? No file name specified."]]
NOWRT:	MOVEI	P1,[ASCIZ "? Error writting data file."]
	JRST	SEND
NODEV:	GOSUB	NAMIT
	SKIPA	P1,[[ASCIZ /" is not available./]]
NORUN:	MOVEI	P1,[ASCIZ "? Can't find CHANGE to run."]
	JRST	SEND
NOFIL:	EME	.STR,[ASCIZ /? Can't create "/]
	MOVE	T1,DATDEV+1
	GOSUB	PUTSIX
	EME	.STR,[ASCIZ ":"]
	MOVE	T1,DATFIL
	GOSUB	PUTSIX
	HLLZ	T1,DATFIL+1
	SKIPE	T1
	EME	.STR,[ASCIZ "."]
	GOSUB	PUTSIX
	MOVEI	P1,[ASCIZ /"./]
	JRST	SEND
NOEXT:	GOSUB	NAMIT
	MOVEI	P1,[ASCIZ /" doesn't exist./]
	JRST	SEND
NAMIT:	EME	.STR,[ASCIZ /? Device "/]
	MOVE	T1,DATDEV+1
	MME	T1,.NAM
	MOVE	T1,DATDEV+1
	PJRST	PUTSIX
FSTEOL:	IF.ON	S,EOL			;SKIP IF AT LINE'S END.
	GOSUB	GETONE			;FIND END OF COMAND LINE.
	IF.ON	S,EOL			;SKIP IF NOW AT LINE'S END.
	JRST	.-2			;KEEP LOOKING.
SEND:	EME	.STR,ZERO(P1)		;SEND THE ERROR MESSAGE.
	GOSUB	CRLF			;SKIP A LINE.
	GOSUB	CRLF
	SKIPN	CCLFLG			;SKIP IF CCL ENTRY.
	JRST	START			;ELSE TRY AGAIN.
	TEZ	S,SEC,TERM		;ONLY TRY TWICE.
	JRST	RUNIT			;RUN THE PROGRAM.

;HERE TO PUT ONE SIXBIT WORD ON THE USER'S TERMINAL.

PUTSIX:	MOVE	T2,[POINT 6,T1]		;SET UP BYTE POINTER.
	ILDB	CH,T2			;GET A CHARACTER.
	JUMPE	CH,RET0			;JUMP IF WORD IS EMPTY.
	ADDI	CH," "			;CONVERT IT TO ASCII.
	EME	.CH,CH			;PRINT THE CHARACTER.
	CAME	T2,[XWD 600,T1]		;TEST FOR ALL DONE.
	JRST	PUTSIX+1		;LOOP...
	RETURN	ZERO			;BACK TO CALLER.

CRLF:	EME	.STR,[BYTE (7)15,12,0]
	RETURN	ZERO
SUBTTL		*** TABLES ***

;THE TABLES ARE SET UP TO BE INDEXED BY THE CHARACTER
;FROM THE INPUT CHARACTER SET IN THE LEFT HALF, EXTRACTING
;AN ASCII EQUIVALENT AND TO BE INDEXED BY AN ASCII CHARACTER
;IN THE RIGHT HALF TO GET TO THE OUTPUT CHARACTER SET.
;EACH TABLE MUST BE 128 WORDS LONG IN THE RIGHT HALF
;REGARDLESS OF THE LENGTH OF THE LEFT HALF. WITH THIS
;METHOD EACH CHARACTER SET HAS TO HAVE ONLY ONE TABLE.
;NOTE: CHARACTER SETS THAT HAVE MORE CHARACTERS THEN ASCII
;LOOSE A LITTLE IN THE TRANSLATION.

		LOC .
		A=.!777+1
		RELOC A			;TO START TABLES AT A GOOD LOCATION.
		BEG==.

ASCTAB:	XWD	000,000		;NULL	NULL
	XWD	001,001		;SOH	SOH
	XWD	002,002		;STX	STX
	XWD	003,003		;ETX	ETX
	XWD	004,004		;EOT	EOT
	XWD	005,005		;ENQ	ENQ
	XWD	006,006		;ACK	ACK
	XWD	007,007		;BELL	BELL
	XWD	010,010		;BS	BS
	XWD	011,011		;HT	HT
	XWD	012,012		;LF	LF
	XWD	013,013		;VT	VT
	XWD	014,014		;FF	FF
	XWD	015,015		;CR	CR
	XWD	016,016		;LC	LC
	XWD	017,017		;UC	UC
	XWD	020,020		;DLE	DLE
	XWD	021,021		;DC1	DC1
	XWD	022,022		;DC2	DC2
	XWD	023,023		;DC3	DC3
	XWD	024,024		;DC4	DC4
	XWD	025,025		;NAK	NAK
	XWD	026,026		;SYN	SYN
	XWD	027,027		;ETB	ETB
	XWD	030,030		;CAN	CAN
	XWD	031,031		;EM	EM
	XWD	032,032		;SUB	SUB
	XWD	033,033		;ESC	ESC
	XWD	034,034		;FS	FS
	XWD	035,035		;GS	GS
	XWD	036,036		;RS	RS
	XWD	037,037		;US	US
	XWD	040,040		;SPACE	SPACE
	XWD	041,041		;!	!
	XWD	042,042		;"	"
	XWD	043,043		;#	#
	XWD	044,044		;$	$
	XWD	045,045		;%	%
	XWD	046,046		;&	&
	XWD	047,047		;'	'
	XWD	050,050		;(	(
	XWD	051,051		;)	)
	XWD	052,052		;*	*
	XWD	053,053		;+	+
	XWD	054,054		;,	,
	XWD	055,055		;-	-
	XWD	056,056		;.	.
	XWD	057,057		;/	/
	XWD	060,060		;0	0
	XWD	061,061		;1	1
	XWD	062,062		;2	2
	XWD	063,063		;3	3
	XWD	064,064		;4	4
	XWD	065,065		;5	5
	XWD	066,066		;6	6
	XWD	067,067		;7	7
	XWD	070,070		;8	8
	XWD	071,071		;9	9
	XWD	072,072		;:	:
	XWD	073,073		;;	;
	XWD	074,074		;<	<
	XWD	075,075		;=	=
	XWD	076,076		;>	>
	XWD	077,077		;?	?
	XWD	100,100		;@	@
	XWD	101,101		;A	A
	XWD	102,102		;B	B
	XWD	103,103		;C	C
	XWD	104,104		;D	D
	XWD	105,105		;E	E
	XWD	106,106		;F	F
	XWD	107,107		;G	G
	XWD	110,110		;H	H
	XWD	111,111		;I	I
	XWD	112,112		;J	J
	XWD	113,113		;K	K
	XWD	114,114		;L	L
	XWD	115,115		;M	M
	XWD	116,116		;N	N
	XWD	117,117		;O	O
	XWD	120,120		;P	P
	XWD	121,121		;Q	Q
	XWD	122,122		;R	R
	XWD	123,123		;S	S
	XWD	124,124		;T	T
	XWD	125,125		;U	U
	XWD	126,126		;V	V
	XWD	127,127		;W	W
	XWD	130,130		;X	X
	XWD	131,131		;Y	Y
	XWD	132,132		;Z	Z
	XWD	133,133		;[	[
	XWD	134,134		;\	\
	XWD	135,135		;]	]
	XWD	136,136		;^	^
	XWD	137,137		;_	_
	XWD	140,140		;GRAVE	GRAVE
	XWD	141,141		;LC-A	LC-A
	XWD	142,142		;LC-B	LC-B
	XWD	143,143		;LC-C	LC-C
	XWD	144,144		;LC-D	LC-D
	XWD	145,145		;LC-E	LC-E
	XWD	146,146		;LC-F	LC-F
	XWD	147,147		;LC-G	LC-G
	XWD	150,150		;LC-H	LC-H
	XWD	151,151		;LC-I	LC-I
	XWD	152,152		;LC-J	LC-J
	XWD	153,153		;LC-K	LC-K
	XWD	154,154		;LC-L	LC-L
	XWD	155,155		;LC-M	LC-M
	XWD	156,156		;LC-N	LC-N
	XWD	157,157		;LC-O	LC-O
	XWD	160,160		;LC-P	LC-P
	XWD	161,161		;LC-Q	LC-Q
	XWD	162,162		;LC-R	LC-R
	XWD	163,163		;LC-S	LC-S
	XWD	164,164		;LC-T	LC-T
	XWD	165,165		;LC-U	LC-U
	XWD	166,166		;LC-V	LC-V
	XWD	167,167		;LC-W	LC-W
	XWD	170,170		;LC-X	LC-X
	XWD	171,171		;LC-Y	LC-Y
	XWD	172,172		;LC-Z	LC-Z
	XWD	173,173		;L. BRACE L.BRACE
	XWD	174,174		;VERTICAL LINE VERTICAL LINE.
	XWD	175,175		;R. BRACE R.BRACE
	XWD	176,176		;TILDE	TILDE
	XWD	177,177		;RUBOUT	RUBOUT
SIXTAB:	XWD	040,NEC		;SPACE	NONE
	XWD	041,NEC		;!	NONE
	XWD	042,NEC		;"	NONE
	XWD	043,NEC		;#	NONE
	XWD	044,NEC		;$	NONE
	XWD	045,NEC		;%	NONE
	XWD	046,NEC		;&	NONE
	XWD	047,NEC		;'	NONE
	XWD	050,NEC		;(	NONE
	XWD	051,NEC		;)	NONE
	XWD	052,NEC		;*	NONE
	XWD	053,NEC		;+	NONE
	XWD	054,NEC		;,	NONE
	XWD	055,NEC		;-	NONE
	XWD	056,NEC		;.	NONE
	XWD	057,NEC		;/	NONE
	XWD	060,NEC		;0	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	072,NEC		;:	NONE
	XWD	073,NEC		;;	NONE
	XWD	074,NEC		;<	NONE
	XWD	075,NEC		;=	NONE
	XWD	076,NEC		;>	NONE
	XWD	077,NEC		;?	NONE
	XWD	100,000		;@	SPACE
	XWD	101,001		;A	!
	XWD	102,002		;B	"
	XWD	103,003		;C	#
	XWD	104,004		;D	$
	XWD	105,005		;E	%
	XWD	106,006		;F	&
	XWD	107,007		;G	'
	XWD	110,010		;H	(
	XWD	111,011		;I	)
	XWD	112,012		;J	*
	XWD	113,013		;K	+
	XWD	114,014		;L	,
	XWD	115,015		;M	-
	XWD	116,016		;N	.
	XWD	117,017		;O	/
	XWD	120,020		;P	0
	XWD	121,021		;Q	1
	XWD	122,022		;R	2
	XWD	123,023		;S	3
	XWD	124,024		;T	4
	XWD	125,025		;U	5
	XWD	126,026		;V	6
	XWD	127,027		;W	7
	XWD	130,030		;X	8
	XWD	131,031		;Y	9
	XWD	132,032		;Z	:
	XWD	133,033		;[	;
	XWD	134,034		;\	<
	XWD	135,035		;]	=
	XWD	136,036		;^	>
	XWD	137,037		;_	?
	XWD	NEC,040		;NONE	@
	XWD	NEC,041		;NONE	A
	XWD	NEC,042		;NONE	B
	XWD	NEC,043		;NONE	C
	XWD	NEC,044		;NONE	D
	XWD	NEC,045		;NONE	E
	XWD	NEC,046		;NONE	F
	XWD	NEC,047		;NONE	G
	XWD	NEC,050		;NONE	H
	XWD	NEC,051		;NONE	I
	XWD	NEC,052		;NONE	J
	XWD	NEC,053		;NONE	K
	XWD	NEC,054		;NONE	L
	XWD	NEC,055		;NONE	M
	XWD	NEC,056		;NONE	N
	XWD	NEC,057		;NONE	O
	XWD	NEC,060		;NONE	P
	XWD	NEC,061		;NONE	Q
	XWD	NEC,062		;NONE	R
	XWD	NEC,063		;NONE	S
	XWD	NEC,064		;NONE	T
	XWD	NEC,065		;NONE	U
	XWD	NEC,066		;NONE	V
	XWD	NEC,067		;NONE	W
	XWD	NEC,070		;NONE	X
	XWD	NEC,071		;NONE	Y
	XWD	NEC,072		;NONE	Z
	XWD	NEC,073		;NONE	[
	XWD	NEC,074		;NONE	\
	XWD	NEC,075		;NONE	]
	XWD	NEC,076		;NONE	^
	XWD	NEC,077		;NONE	_
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,041		;NONE	LC-A
	XWD	NEC,042		;NONE	LC-B
	XWD	NEC,043		;NONE	LC-C
	XWD	NEC,044		;NONE	LC-D
	XWD	NEC,045		;NONE	LC-E
	XWD	NEC,046		;NONE	LC-F
	XWD	NEC,047		;NONE	LC-G
	XWD	NEC,050		;NONE	LC-H
	XWD	NEC,051		;NONE	LC-I
	XWD	NEC,052		;NONE	LC-J
	XWD	NEC,053		;NONE	LC-K
	XWD	NEC,054		;NONE	LC-L
	XWD	NEC,055		;NONE	LC-M
	XWD	NEC,056		;NONE	LC-N
	XWD	NEC,057		;NONE	LC-O
	XWD	NEC,060		;NONE	LC-P
	XWD	NEC,061		;NONE	LC-Q
	XWD	NEC,062		;NONE	LC-R
	XWD	NEC,063		;NONE	LC-S
	XWD	NEC,064		;NONE	LC-T
	XWD	NEC,065		;NONE	LC-U
	XWD	NEC,066		;NONE	LC-V
	XWD	NEC,067		;NONE	LC-W
	XWD	NEC,070		;NONE	LC-X
	XWD	NEC,071		;NONE	LC-Y
	XWD	NEC,072		;NONE	LC-Z
	XWD	NEC,073		;NONE	L. BRACE.
	XWD	NEC,076		;NONE	VERTICAL LINE.
	XWD	NEC,075		;NONE	R.BRACE.
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
BCLTAB:	XWD	077,NEC		;?	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	060,NEC		;0	NONE
	XWD	043,NEC		;#	NONE
	XWD	100,NEC		;@	NONE
	XWD	072,NEC		;:	NONE
	XWD	076,NEC		;>	NONE
	XWD	047,NEC		;'	NONE
	XWD	040,NEC		;SPACE	NONE
	XWD	057,NEC		;/	NONE
	XWD	123,NEC		;S	NONE
	XWD	124,NEC		;T	NONE
	XWD	125,NEC		;U	NONE
	XWD	126,NEC		;V	NONE
	XWD	127,NEC		;W	NONE
	XWD	130,NEC		;X	NONE
	XWD	131,NEC		;Y	NONE
	XWD	132,NEC		;Z	NONE
	XWD	137,NEC		;_	NONE
	XWD	054,NEC		;,	NONE
	XWD	045,NEC		;%	NONE
	XWD	075,NEC		;=	NONE
	XWD	135,NEC		;]	NONE
	XWD	042,NEC		;"	NONE
	XWD	055,020		;-	SPACE
	XWD	112,077		;J	!
	XWD	113,037		;K	"
	XWD	114,013		;L	#
	XWD	115,053		;M	$
	XWD	116,034		;N	%
	XWD	117,060		;O	&
	XWD	120,017		;P	'
	XWD	121,075		;Q	(
	XWD	122,055		;R	)
	XWD	041,054		;!	*
	XWD	044,072		;$	+
	XWD	052,033		;*	,
	XWD	051,040		;)	-
	XWD	073,073		;;	.
	XWD	134,021		;\	/
	XWD	046,012		;&	0
	XWD	101,001		;A	1
	XWD	102,002		;B	2
	XWD	103,003		;C	3
	XWD	104,004		;D	4
	XWD	105,005		;E	5
	XWD	106,006		;F	6
	XWD	107,007		;G	7
	XWD	110,010		;H	8
	XWD	111,011		;I	9
	XWD	053,015		;+	:
	XWD	056,056		;.	;
	XWD	133,076		;[	<
	XWD	050,035		;(	=
	XWD	074,016		;<	>
	XWD	041,000		;!	?
	XWD	NEC,014		;NONE	@
	XWD	NEC,061		;NONE	A
	XWD	NEC,062		;NONE	B
	XWD	NEC,063		;NONE	C
	XWD	NEC,064		;NONE	D
	XWD	NEC,065		;NONE	E
	XWD	NEC,066		;NONE	F
	XWD	NEC,067		;NONE	G
	XWD	NEC,070		;NONE	H
	XWD	NEC,071		;NONE	I
	XWD	NEC,041		;NONE	J
	XWD	NEC,042		;NONE	K
	XWD	NEC,043		;NONE	L
	XWD	NEC,044		;NONE	M
	XWD	NEC,045		;NONE	N
	XWD	NEC,046		;NONE	O
	XWD	NEC,047		;NONE	P
	XWD	NEC,050		;NONE	Q
	XWD	NEC,051		;NONE	R
	XWD	NEC,022		;NONE	S
	XWD	NEC,023		;NONE	T
	XWD	NEC,024		;NONE	U
	XWD	NEC,025		;NONE	V
	XWD	NEC,026		;NONE	W
	XWD	NEC,027		;NONE	X
	XWD	NEC,030		;NONE	Y
	XWD	NEC,031		;NONE	Z
	XWD	NEC,074		;NONE	[
	XWD	NEC,057		;NONE	\
	XWD	NEC,036		;NONE	]
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,077		;NONE	_
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,061		;NONE	LC-A
	XWD	NEC,062		;NONE	LC-B
	XWD	NEC,063		;NONE	LC-C
	XWD	NEC,064		;NONE	LC-D
	XWD	NEC,065		;NONE	LC-E
	XWD	NEC,066		;NONE	LC-F
	XWD	NEC,067		;NONE	LC-G
	XWD	NEC,070		;NONE	LC-H
	XWD	NEC,071		;NONE	LC-I
	XWD	NEC,041		;NONE	LC-J
	XWD	NEC,042		;NONE	LC-K
	XWD	NEC,043		;NONE	LC-L
	XWD	NEC,044		;NONE	LC-M
	XWD	NEC,045		;NONE	LC-N
	XWD	NEC,046		;NONE	LC-O
	XWD	NEC,047		;NONE	LC-P
	XWD	NEC,050		;NONE	LC-Q
	XWD	NEC,051		;NONE	LC-R
	XWD	NEC,022		;NONE	LC-S
	XWD	NEC,023		;NONE	LC-T
	XWD	NEC,024		;NONE	LC-U
	XWD	NEC,025		;NONE	LC-V
	XWD	NEC,026		;NONE	LC-W
	XWD	NEC,027		;NONE	LC-X
	XWD	NEC,030		;NONE	LC-Y
	XWD	NEC,031		;NONE	LC-Z
	XWD	NEC,074		;NONE	L. BRACE.
	XWD	NEC,057		;NONE	VERTICAL LINE.
	XWD	NEC,036		;NONE	R. BRACE.
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
BCDTAB:	XWD	077,NEC		;?	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	060,NEC		;0	NONE
	XWD	043,NEC		;#	NONE
	XWD	100,NEC		;@	NONE
	XWD	072,NEC		;:	NONE
	XWD	076,NEC		;>	NONE
	XWD	047,NEC		;'	NONE
	XWD	040,NEC		;SPACE	NONE
	XWD	057,NEC		;/	NONE
	XWD	123,NEC		;S	NONE
	XWD	124,NEC		;T	NONE
	XWD	125,NEC		;U	NONE
	XWD	126,NEC		;V	NONE
	XWD	127,NEC		;W	NONE
	XWD	130,NEC		;X	NONE
	XWD	131,NEC		;Y	NONE
	XWD	132,NEC		;Z	NONE
	XWD	041,NEC		;!	NONE
	XWD	054,NEC		;,	NONE
	XWD	045,NEC		;%	NONE
	XWD	075,NEC		;=	NONE
	XWD	135,NEC		;]	NONE
	XWD	042,NEC		;"	NONE
	XWD	055,020		;-	SPACE
	XWD	112,077		;J	!
	XWD	113,037		;K	"
	XWD	114,013		;L	#
	XWD	115,053		;M	$
	XWD	116,034		;N	%
	XWD	117,060		;O	&
	XWD	120,017		;P	'
	XWD	121,055		;Q	(
	XWD	122,075		;R	)
	XWD	072,054		;:	*
	XWD	044,072		;$	+
	XWD	052,033		;*	,
	XWD	050,040		;(	-
	XWD	073,073		;;	.
	XWD	134,021		;\	/
	XWD	046,012		;&	0
	XWD	101,001		;A	1
	XWD	102,002		;B	2
	XWD	103,003		;C	3
	XWD	104,004		;D	4
	XWD	105,005		;E	5
	XWD	106,006		;F	6
	XWD	107,007		;G	7
	XWD	110,010		;H	8
	XWD	111,011		;I	9
	XWD	053,052		;+	:
	XWD	056,056		;.	;
	XWD	133,076		;[	<
	XWD	051,035		;)	=
	XWD	074,016		;<	>
	XWD	137,000		;_	?
	XWD	NEC,014		;NONE	@
	XWD	NEC,061		;NONE	A
	XWD	NEC,062		;NONE	B
	XWD	NEC,063		;NONE	C
	XWD	NEC,064		;NONE	D
	XWD	NEC,065		;NONE	E
	XWD	NEC,066		;NONE	F
	XWD	NEC,067		;NONE	G
	XWD	NEC,070		;NONE	H
	XWD	NEC,071		;NONE	I
	XWD	NEC,041		;NONE	J
	XWD	NEC,042		;NONE	K
	XWD	NEC,043		;NONE	L
	XWD	NEC,044		;NONE	M
	XWD	NEC,045		;NONE	N
	XWD	NEC,046		;NONE	O
	XWD	NEC,047		;NONE	P
	XWD	NEC,050		;NONE	Q
	XWD	NEC,051		;NONE	R
	XWD	NEC,022		;NONE	S
	XWD	NEC,023		;NONE	T
	XWD	NEC,024		;NONE	U
	XWD	NEC,025		;NONE	V
	XWD	NEC,026		;NONE	W
	XWD	NEC,027		;NONE	X
	XWD	NEC,030		;NONE	Y
	XWD	NEC,031		;NONE	Z
	XWD	NEC,074		;NONE	[
	XWD	NEC,057		;NONE	\
	XWD	NEC,036		;NONE	]
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,077		;NONE	_
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,061		;NONE	LC-A
	XWD	NEC,062		;NONE	LC-B
	XWD	NEC,063		;NONE	LC-C
	XWD	NEC,064		;NONE	LC-D
	XWD	NEC,065		;NONE	LC-E
	XWD	NEC,066		;NONE	LC-F
	XWD	NEC,067		;NONE	LC-G
	XWD	NEC,070		;NONE	LC-H
	XWD	NEC,071		;NONE	LC-I
	XWD	NEC,041		;NONE	LC-J
	XWD	NEC,042		;NONE	LC-K
	XWD	NEC,043		;NONE	LC-L
	XWD	NEC,044		;NONE	LC-M
	XWD	NEC,045		;NONE	LC-N
	XWD	NEC,046		;NONE	LC-O
	XWD	NEC,047		;NONE	LC-P
	XWD	NEC,050		;NONE	LC-Q
	XWD	NEC,051		;NONE	LC-R
	XWD	NEC,022		;NONE	LC-S
	XWD	NEC,023		;NONE	LC-T
	XWD	NEC,024		;NONE	LC-U
	XWD	NEC,025		;NONE	LC-V
	XWD	NEC,026		;NONE	LC-W
	XWD	NEC,027		;NONE	LC-X
	XWD	NEC,030		;NONE	LC-Y
	XWD	NEC,031		;NONE	LC-Z
	XWD	NEC,074		;NONE	L. BRACE.
	XWD	NEC,077		;NONE	VERTICAL LINE.
	XWD	NEC,036		;NONE	R. BRACE.
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
CDCTAB:	XWD	072,NEC		;:	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	060,NEC		;0	NONE
	XWD	075,NEC		;=	NONE
	XWD	042,NEC		;"	NONE
	XWD	074,NEC		;<	NONE
	XWD	045,NEC		;%	NONE
	XWD	047,NEC		;'	NONE
	XWD	040,NEC		;SPACE	NONE
	XWD	057,NEC		;/	NONE
	XWD	123,NEC		;S	NONE
	XWD	124,NEC		;T	NONE
	XWD	125,NEC		;U	NONE
	XWD	126,NEC		;V	NONE
	XWD	127,NEC		;W	NONE
	XWD	130,NEC		;X	NONE
	XWD	131,NEC		;Y	NONE
	XWD	132,NEC		;Z	NONE
	XWD	041,NEC		;!	NONE
	XWD	054,NEC		;,	NONE
	XWD	050,NEC		;(	NONE
	XWD	137,NEC		;_	NONE
	XWD	043,NEC		;#	NONE
	XWD	046,NEC		;&	NONE
	XWD	055,020		;-	SPACE
	XWD	112,077		;J	!
	XWD	113,014		;K	"
	XWD	114,036		;L	#
	XWD	115,053		;M	$
	XWD	116,016		;N	%
	XWD	117,037		;O	&
	XWD	120,017		;P	'
	XWD	121,034		;Q	(
	XWD	122,074		;R	)
	XWD	135,054		;]	*
	XWD	044,060		;$	+
	XWD	052,033		;*	,
	XWD	100,040		;@	-
	XWD	077,073		;?	.
	XWD	076,021		;>	/
	XWD	053,012		;+	0
	XWD	101,001		;A	1
	XWD	102,002		;B	2
	XWD	103,003		;C	3
	XWD	104,004		;D	4
	XWD	105,005		;E	5
	XWD	106,006		;F	6
	XWD	107,007		;G	7
	XWD	110,010		;H	8
	XWD	111,011		;I	9
	XWD	133,000		;[	:
	XWD	056,077		;.	;
	XWD	051,057		;)	<
	XWD	134,013		;\	=
	XWD	136,013		;TILDE	>
	XWD	073,056		;;	?
	XWD	NEC,055		;NONE	@
	XWD	NEC,061		;NONE	A
	XWD	NEC,062		;NONE	B
	XWD	NEC,063		;NONE	C
	XWD	NEC,064		;NONE	D
	XWD	NEC,065		;NONE	E
	XWD	NEC,066		;NONE	F
	XWD	NEC,067		;NONE	G
	XWD	NEC,070		;NONE	H
	XWD	NEC,071		;NONE	I
	XWD	NEC,041		;NONE	J
	XWD	NEC,042		;NONE	K
	XWD	NEC,043		;NONE	L
	XWD	NEC,044		;NONE	M
	XWD	NEC,045		;NONE	N
	XWD	NEC,046		;NONE	O
	XWD	NEC,047		;NONE	P
	XWD	NEC,050		;NONE	Q
	XWD	NEC,051		;NONE	R
	XWD	NEC,022		;NONE	S
	XWD	NEC,023		;NONE	T
	XWD	NEC,024		;NONE	U
	XWD	NEC,025		;NONE	V
	XWD	NEC,026		;NONE	W
	XWD	NEC,027		;NONE	X
	XWD	NEC,030		;NONE	Y
	XWD	NEC,031		;NONE	Z
	XWD	NEC,072		;NONE	[
	XWD	NEC,075		;NONE	\
	XWD	NEC,052		;NONE	]
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,035		;NONE	_
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,061		;NONE	LC-A
	XWD	NEC,062		;NONE	LC-B
	XWD	NEC,063		;NONE	LC-C
	XWD	NEC,064		;NONE	LC-D
	XWD	NEC,065		;NONE	LC-E
	XWD	NEC,066		;NONE	LC-F
	XWD	NEC,067		;NONE	LC-G
	XWD	NEC,070		;NONE	LC-H
	XWD	NEC,071		;NONE	LC-I
	XWD	NEC,041		;NONE	LC-J
	XWD	NEC,042		;NONE	LC-K
	XWD	NEC,043		;NONE	LC-L
	XWD	NEC,044		;NONE	LC-M
	XWD	NEC,045		;NONE	LC-N
	XWD	NEC,046		;NONE	LC-O
	XWD	NEC,047		;NONE	LC-P
	XWD	NEC,050		;NONE	LC-Q
	XWD	NEC,051		;NONE	LC-R
	XWD	NEC,022		;NONE	LC-S
	XWD	NEC,023		;NONE	LC-T
	XWD	NEC,024		;NONE	LC-U
	XWD	NEC,025		;NONE	LC-V
	XWD	NEC,026		;NONE	LC-W
	XWD	NEC,027		;NONE	LC-X
	XWD	NEC,030		;NONE	LC-Y
	XWD	NEC,031		;NONE	LC-Z
	XWD	NEC,074		;NONE	L. BRACE.
	XWD	NEC,077		;NONE	VERTICAL LINE.
	XWD	NEC,036		;NONE	R. BRACE.
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
XBDTAB:	XWD	060,NEC		;0	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	133,NEC		;[	NONE
	XWD	043,NEC		;#	NONE
	XWD	100,NEC		;@	NONE
	XWD	072,NEC		;:	NONE
	XWD	076,NEC		;>	NONE
	XWD	077,NEC		;?	NONE
	XWD	040,NEC		;SPACE	NONE
	XWD	101,NEC		;A	NONE
	XWD	102,NEC		;B	NONE
	XWD	103,NEC		;C	NONE
	XWD	104,NEC		;D	NONE
	XWD	105,NEC		;E	NONE
	XWD	106,NEC		;F	NONE
	XWD	107,NEC		;G	NONE
	XWD	110,NEC		;H	NONE
	XWD	111,NEC		;I	NONE
	XWD	046,NEC		;&	NONE
	XWD	056,NEC		;.	NONE
	XWD	135,NEC		;]	NONE
	XWD	050,NEC		;(	NONE
	XWD	074,NEC		;<	NONE
	XWD	134,NEC		;\	NONE
	XWD	136,020		;^	SPACE
	XWD	112,077		;J	!
	XWD	113,076		;K	"
	XWD	114,013		;L	#
	XWD	115,053		;M	$
	XWD	116,074		;N	%
	XWD	117,032		;O	&
	XWD	120,057		;P	'
	XWD	121,035		;Q	(
	XWD	122,055		;R	)
	XWD	055,054		;-	*
	XWD	044,060		;$	+
	XWD	052,073		;*	,
	XWD	051,052		;)	-
	XWD	073,033		;;	.
	XWD	047,061		;'	/
	XWD	053,000		;+	0
	XWD	057,001		;/	1
	XWD	123,002		;S	2
	XWD	124,003		;T	3
	XWD	125,004		;U	4
	XWD	126,005		;V	5
	XWD	127,006		;W	6
	XWD	130,007		;X	7
	XWD	131,010		;Y	8
	XWD	132,011		;Z	9
	XWD	137,015		;_	:
	XWD	054,056		;,	;
	XWD	045,036		;%	<
	XWD	075,075		;=	=
	XWD	042,016		;"	>
	XWD	041,017		;!	?
	XWD	NEC,014		;NONE	@
	XWD	NEC,021		;NONE	A
	XWD	NEC,022		;NONE	B
	XWD	NEC,023		;NONE	C
	XWD	NEC,024		;NONE	D
	XWD	NEC,025		;NONE	E
	XWD	NEC,026		;NONE	F
	XWD	NEC,027		;NONE	G
	XWD	NEC,030		;NONE	H
	XWD	NEC,031		;NONE	I
	XWD	NEC,041		;NONE	J
	XWD	NEC,042		;NONE	K
	XWD	NEC,043		;NONE	L
	XWD	NEC,044		;NONE	M
	XWD	NEC,045		;NONE	N
	XWD	NEC,046		;NONE	O
	XWD	NEC,047		;NONE	P
	XWD	NEC,050		;NONE	Q
	XWD	NEC,051		;NONE	R
	XWD	NEC,062		;NONE	S
	XWD	NEC,063		;NONE	T
	XWD	NEC,064		;NONE	U
	XWD	NEC,065		;NONE	V
	XWD	NEC,066		;NONE	W
	XWD	NEC,067		;NONE	X
	XWD	NEC,070		;NONE	Y
	XWD	NEC,071		;NONE	Z
	XWD	NEC,012		;NONE	[
	XWD	NEC,037		;NONE	\
	XWD	NEC,034		;NONE	]
	XWD	NEC,040		;NONE	^
	XWD	NEC,072		;NONE	_
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,021		;NONE	LC-A
	XWD	NEC,022		;NONE	LC-B
	XWD	NEC,023		;NONE	LC-C
	XWD	NEC,024		;NONE	LC-D
	XWD	NEC,025		;NONE	LC-E
	XWD	NEC,026		;NONE	LC-F
	XWD	NEC,027		;NONE	LC-G
	XWD	NEC,030		;NONE	LC-H
	XWD	NEC,031		;NONE	LC-I
	XWD	NEC,041		;NONE	LC-J
	XWD	NEC,042		;NONE	LC-K
	XWD	NEC,043		;NONE	LC-L
	XWD	NEC,044		;NONE	LC-M
	XWD	NEC,045		;NONE	LC-N
	XWD	NEC,046		;NONE	LC-O
	XWD	NEC,047		;NONE	LC-P
	XWD	NEC,050		;NONE	LC-Q
	XWD	NEC,051		;NONE	LC-R
	XWD	NEC,062		;NONE	LC-S
	XWD	NEC,063		;NONE	LC-T
	XWD	NEC,064		;NONE	LC-U
	XWD	NEC,065		;NONE	LC-V
	XWD	NEC,066		;NONE	LC-W
	XWD	NEC,067		;NONE	LC-X
	XWD	NEC,070		;NONE	LC-Y
	XWD	NEC,071		;NONE	LC-Z
	XWD	NEC,012		;NONE	L. BRACE.
	XWD	NEC,037		;NONE	VERTICAL LINE.
	XWD	NEC,034		;NONE	R. BRACE.
	XWD	NEC,040		;NONE	^
	XWD	NEC,NEC		;NONE	NONE
HBDTAB:	XWD	060,NEC			;0	NONE
	XWD	061,NEC			;1	NONE
	XWD	062,NEC			;2	NONE
	XWD	063,NEC			;3	NONE
	XWD	064,NEC			;4	NONE
	XWD	065,NEC			;5	NONE
	XWD	066,NEC			;6	NONE
	XWD	067,NEC			;7	NONE
	XWD	070,NEC			;8	NONE
	XWD	071,NEC			;9	NONE
	XWD	047,NEC			;'	NONE
	XWD	075,NEC			;=	NONE
	XWD	072,NEC			;:	NONE
	XWD	040,NEC			; 	NONE
	XWD	076,NEC			;>	NONE
	XWD	046,NEC			;&	NONE
	XWD	053,NEC			;+	NONE
	XWD	101,NEC			;A	NONE
	XWD	102,NEC			;B	NONE
	XWD	103,NEC			;C	NONE
	XWD	104,NEC			;D	NONE
	XWD	105,NEC			;E	NONE
	XWD	106,NEC			;F	NONE
	XWD	107,NEC			;G	NONE
	XWD	110,NEC			;H	NONE
	XWD	111,NEC			;I	NONE
	XWD	073,NEC			;;	NONE
	XWD	056,NEC			;.	NONE
	XWD	051,NEC			;)	NONE
	XWD	045,NEC			;%	NONE
	XWD	133,NEC			;[	NONE
	XWD	077,NEC			;?	NONE
	XWD	055,015			;-	SPACE
	XWD	112,057			;J	!
	XWD	113,055			;K	"
	XWD	114,052			;L	#
	XWD	115,053			;M	$
	XWD	116,035			;N	%
	XWD	117,017			;O	&
	XWD	120,012			;P	'
	XWD	121,074			;Q	(
	XWD	122,034			;R	)
	XWD	043,054			;#	*
	XWD	044,020			;$	+
	XWD	052,073			;*	,
	XWD	042,040			;"	-
	XWD	134,033			;\	.
	XWD	041,061			;!	/
	XWD	074,000			;<	0
	XWD	057,001			;/	1
	XWD	123,002			;S	2
	XWD	124,003			;T	3
	XWD	125,004			;U	4
	XWD	126,005			;V	5
	XWD	127,006			;W	6
	XWD	130,007			;X	7
	XWD	131,010			;Y	8
	XWD	132,011			;Z	9
	XWD	100,014			;@	:
	XWD	054,032			;,	;
	XWD	050,060			;(	<
	XWD	136,013			;^	=
	XWD	135,016			;]	>
	XWD	137,037			;_	?
	XWD	NEC,072			;NONE	@
	XWD	NEC,021			;NONE	A
	XWD	NEC,022			;NONE	B
	XWD	NEC,023			;NONE	C
	XWD	NEC,024			;NONE	D
	XWD	NEC,025			;NONE	E
	XWD	NEC,026			;NONE	F
	XWD	NEC,027			;NONE	G
	XWD	NEC,030			;NONE	H
	XWD	NEC,031			;NONE	I
	XWD	NEC,041			;NONE	J
	XWD	NEC,042			;NONE	K
	XWD	NEC,043			;NONE	L
	XWD	NEC,044			;NONE	M
	XWD	NEC,045			;NONE	N
	XWD	NEC,046			;NONE	O
	XWD	NEC,047			;NONE	P
	XWD	NEC,050			;NONE	Q
	XWD	NEC,051			;NONE	R
	XWD	NEC,062			;NONE	S
	XWD	NEC,063			;NONE	T
	XWD	NEC,064			;NONE	U
	XWD	NEC,065			;NONE	V
	XWD	NEC,066			;NONE	W
	XWD	NEC,067			;NONE	X
	XWD	NEC,070			;NONE	Y
	XWD	NEC,071			;NONE	Z
	XWD	NEC,036			;NONE	[
	XWD	NEC,056			;NONE	\
	XWD	NEC,076			;NONE	]
	XWD	NEC,075			;NONE	^
	XWD	NEC,077			;NONE	_
	XWD	NEC,NEC			;NONE	NONE
	XWD	NEC,021			;NONE	LC-A
	XWD	NEC,022			;NONE	LC-B
	XWD	NEC,023			;NONE	LC-C
	XWD	NEC,024			;NONE	LC-D
	XWD	NEC,025			;NONE	LC-E
	XWD	NEC,026			;NONE	LC-F
	XWD	NEC,027			;NONE	LC-G
	XWD	NEC,030			;NONE	LC-H
	XWD	NEC,031			;NONE	LC-I
	XWD	NEC,041			;NONE	LC-J
	XWD	NEC,042			;NONE	LC-K
	XWD	NEC,043			;NONE	LC-L
	XWD	NEC,044			;NONE	LC-M
	XWD	NEC,045			;NONE	LC-N
	XWD	NEC,046			;NONE	LC-O
	XWD	NEC,047			;NONE	LC-P
	XWD	NEC,050			;NONE	LC-Q
	XWD	NEC,051			;NONE	LC-R
	XWD	NEC,062			;NONE	LC-S
	XWD	NEC,063			;NONE	LC-T
	XWD	NEC,064			;NONE	LC-U
	XWD	NEC,065			;NONE	LC-V
	XWD	NEC,066			;NONE	LC-W
	XWD	NEC,067			;NONE	LC-X
	XWD	NEC,070			;NONE	LC-Y
	XWD	NEC,071			;NONE	LC-Z
	XWD	NEC,036			;NONE	L. BRACE.
	XWD	NEC,075			;NONE	VERTICAL LINE
	XWD	NEC,076			;NONE	R. BRACE.
	XWD	NEC,NEC			;NONE	NONE
	XWD	NEC,NEC			;NONE	NONE
EBCTAB:	XWD	000,000		;NULL	NULL
	XWD	001,001		;SOH	SOH
	XWD	002,002		;STX	STX
	XWD	003,003		;ETX	ETX
	XWD	024,067		;DC4	EOT
	XWD	011,055		;HT	ENQ
	XWD	016,056		;LC	ACK
	XWD	177,057		;DEL	BELL
	XWD	NEC,026		;NONE	BS
	XWD	NEC,005		;NONE	HT
	XWD	NEC,045		;NONE	LF
	XWD	NEC,013		;NONE	VT
	XWD	NEC,014		;NONE	FF
	XWD	NEC,015		;NONE	CR
	XWD	NEC,016		;NONE	LC
	XWD	NEC,017		;NONE	UC
	XWD	NEC,020		;NONE	DLE
	XWD	NEC,021		;NONE	DC1
	XWD	NEC,022		;NONE	DC2
	XWD	034,004		;FS	DC3
	XWD	NEC,074		;NONE	DC4
	XWD	012,075		;LF	NAK
	XWD	010,027		;BS	SYN
	XWD	026,046		;SYN	ETB
	XWD	030,030		;CAN	CAN
	XWD	031,031		;EM	EM
	XWD	NEC,077		;NONE	SUB
	XWD	NEC,047		;NONE	ESC
	XWD	NEC,042		;NONE	FS
	XWD	NEC,035		;NONE	GS
	XWD	NEC,065		;NONE	RS
	XWD	NEC,037		;NONE	US
	XWD	NEC,100		;NONE	SPACE
	XWD	NEC,132		;NONE	!
	XWD	034,177		;FS	"
	XWD	NEC,173		;NONE	#
	XWD	NEC,133		;NONE	$
	XWD	012,154		;LF	%
	XWD	036,120		;RS	&
	XWD	033,175		;ESC	'
	XWD	NEC,115		;NONE	(
	XWD	NEC,135		;NONE	)
	XWD	020,134		;DLE	*
	XWD	NEC,116		;NONE	+
	XWD	NEC,153		;NONE	,
	XWD	005,140		;ENQ	-
	XWD	006,113		;ACK	.
	XWD	007,141		;BELL	/
	XWD	NEC,360		;NONE	0
	XWD	NEC,361		;NONE	1
	XWD	026,362		;SYN	2
	XWD	NEC,363		;NONE	3
	XWD	022,364		;DC3	4
	XWD	023,365		;DC3	5
	XWD	017,366		;UC	6
	XWD	004,367		;EOT	7
	XWD	NEC,370		;NONE	8
	XWD	NEC,371		;NONE	9
	XWD	NEC,172		;NONE	:
	XWD	NEC,136		;NONE	;
	XWD	024,114		;DC4	<
	XWD	025,176		;NAK	=
	XWD	NEC,156		;NONE	>
	XWD	032,157		;SUB	?
	XWD	040,174		;SPACE	@
	XWD	NEC,301		;NONE	A
	XWD	NEC,302		;NONE	B
	XWD	NEC,303		;NONE	C
	XWD	NEC,304		;NONE	D
	XWD	NEC,305		;NONE	E
	XWD	NEC,306		;NONE	F
	XWD	NEC,307		;NONE	G
	XWD	NEC,310		;NONE	H
	XWD	NEC,311		;NONE	I
	XWD	135,321		;]	J
	XWD	056,322		;.	K
	XWD	074,323		;<	L
	XWD	050,324		;(	M
	XWD	053,325		;+	N
	XWD	136,326		;^	O
	XWD	046,327		;&	P
	XWD	NEC,330		;NONE	Q
	XWD	NEC,331		;NONE	R
	XWD	NEC,342		;NONE	S
	XWD	NEC,343		;NONE	T
	XWD	NEC,344		;NONE	U
	XWD	NEC,345		;NONE	V
	XWD	NEC,346		;NONE	W
	XWD	NEC,347		;NONE	X
	XWD	NEC,350		;NONE	Y
	XWD	041,351		;!	Z
	XWD	044,137		;$	[
	XWD	052,NEC		;*	NONE
	XWD	051,112		;)	]
	XWD	073,117		;;	^
	XWD	133,155		;[	_
	XWD	055,NEC		;-	NONE
	XWD	057,201		;/	LC-A
	XWD	NEC,202		;NONE	LC-B
	XWD	NEC,203		;NONE	LC-C
	XWD	NEC,204		;NONE	LC-D
	XWD	NEC,205		;NONE	LC-E
	XWD	NEC,206		;NONE	LC-F
	XWD	NEC,207		;NONE	LC-G
	XWD	NEC,210		;NONE	LC-H
	XWD	NEC,211		;NONE	LC-I
	XWD	NEC,221		;NONE	LC-J
	XWD	054,222		;,	LC-K
	XWD	045,223		;%	LC-L
	XWD	137,224		;_	LC-M
	XWD	076,225		;>	LC-N
	XWD	077,226		;?	LC-O
	XWD	NEC,227		;NONE	LC-P
	XWD	NEC,230		;NONE	LC-Q
	XWD	NEC,231		;NONE	LC-R
	XWD	NEC,242		;NONE	LC-S
	XWD	NEC,243		;NONE	LC-T
	XWD	NEC,244		;NONE	LC-U
	XWD	NEC,245		;NONE	LC-V
	XWD	NEC,246		;NONE	LC-W
	XWD	NEC,247		;NONE	LC-X
	XWD	NEC,250		;NONE	LC-Y
	XWD	072,251		;:	LC-Z
	XWD	043,137		;#	L. BRACE
	XWD	100,117		;@	VERTICAL LINE
	XWD	047,112		;'	R. BRACE
	XWD	075,NEC		;=	NONE
	XWD	042,NEC		;"	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	141,NEC		;LC-A	NONE
	XWD	142,NEC		;LC-B	NONE
	XWD	143,NEC		;LC-C	NONE
	XWD	144,NEC		;LC-D	NONE
	XWD	145,NEC		;LC-E	NONE
	XWD	146,NEC		;LC-F	NONE
	XWD	147,NEC		;LC-G	NONE
	XWD	150,NEC		;LC-H	NONE
	XWD	151,NEC		;LC-I	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	152,NEC		;LC-J	NONE
	XWD	153,NEC		;LC-K	NONE
	XWD	154,NEC		;LC-L	NONE
	XWD	155,NEC		;LC-M	NONE
	XWD	156,NEC		;LC-N	NONE
	XWD	157,NEC		;LC-O	NONE
	XWD	160,NEC		;LC-P	NONE
	XWD	161,NEC		;LC-Q	NONE
	XWD	162,NEC		;LC-R	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	163,NEC		;LC-S	NONE
	XWD	164,NEC		;LC-T	NONE
	XWD	165,NEC		;LC-U	NONE
	XWD	166,NEC		;LC-V	NONE
	XWD	167,NEC		;LC-W	NONE
	XWD	170,NEC		;LC-X	NONE
	XWD	171,NEC		;LC-Y	NONE
	XWD	172,NEC		;LC-Z	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	077,NEC		;?	NONE
	XWD	101,NEC		;A	NONE
	XWD	102,NEC		;B	NONE
	XWD	103,NEC		;C	NONE
	XWD	104,NEC		;D	NONE
	XWD	105,NEC		;E	NONE
	XWD	106,NEC		;F	NONE
	XWD	107,NEC		;G	NONE
	XWD	110,NEC		;H	NONE
	XWD	111,NEC		;I	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	072,NEC		;:	NONE
	XWD	112,NEC		;J	NONE
	XWD	113,NEC		;K	NONE
	XWD	114,NEC		;L	NONE
	XWD	115,NEC		;M	NONE
	XWD	116,NEC		;N	NONE
	XWD	117,NEC		;O	NONE
	XWD	120,NEC		;P	NONE
	XWD	121,NEC		;Q	NONE
	XWD	122,NEC		;R	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	123,NEC		;S	NONE
	XWD	124,NEC		;T	NONE
	XWD	125,NEC		;U	NONE
	XWD	126,NEC		;V	NONE
	XWD	127,NEC		;W	NONE
	XWD	130,NEC		;X	NONE
	XWD	131,NEC		;Y	NONE
	XWD	132,NEC		;Z	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	060,NEC		;0	NONE
	XWD	061,NEC		;1	NONE
	XWD	062,NEC		;2	NONE
	XWD	063,NEC		;3	NONE
	XWD	064,NEC		;4	NONE
	XWD	065,NEC		;5	NONE
	XWD	066,NEC		;6	NONE
	XWD	067,NEC		;7	NONE
	XWD	070,NEC		;8	NONE
	XWD	071,NEC		;9	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	NEC,NEC		;NONE	NONE
	XWD	137,NEC		;_	NONE
FIN==.
	END	START