ASCII-FIODEC TRANSLATOR

/FIOTT,  PAGE 1,  LOWER CASE

S=400000

FIOTT,	SPACEF S	/ SPACE	00
	261	/ 1	01
	262	/ 2	02
	263	/ 3	03
	264	/ 4	04
	265	/ 5	05
	266	/ 6	06
	267	/ 7	07
	268	/ 8	10
	269	/ 9	11
	XXX	/	12
	214	/ STOP	13
	XXX	/	14
	XXX	/	15
	XXX	/	16
	XXX	/	17
	260	/ 0	20
	257	/ /	21
	323	/ S	22
	324	/ T	23
	325	/ U	24
	326	/ V	25
	327	/ W	26
	330	/X	27
	331	/ Y	30
	332	/ Z	31
	XXX	/	32
	254	/ ,	33
	XXX	/	34
	XXX	/	35
	S TAB	/ TAB	36
	XXX	/	37

/FIOTT,  PAGE 2,   LOWER CASE

	S DOT	/ CDOT	40
	312	/ J	41
	313	/ K	42
	314	/ L	43
	315	/ M	44
	316	/ N	45
	317	/ O	46
	320	/ P	47
	321	/ R	50
	322	/ R	51
	XXX	/	52
	XXX	/	53
	255	/ -	54
	251	/ )	55
	243	/ OVERBAR	56
	250	/ (	57
	XXX	/	60
	301	/ A	61
	302	/ B	62
	303	/ C	63
	304	/ D	64
	305	/ E	65
	306	/ F	66
	307	/ G	67
	310	/ H	70
	311	/ I	71
	S LCASE	/ LWR CASE	72
	256	/ .	73
	S UCASE	/ UPR CASE	74
	XXX	/	75
	XXX	/	76
	S RETURN	/ RETURN	77

/ FIOTT,  PAGE 3,   UPPER CASE
	S SPACEF	/ SPACE	00
	242	/ "	01
	247	/ '	02
	337	/ NOT	03
	245	/ IMPLIES	04
	241	/ OR	05
	246	/ AND	06
	274	/ <	07
	276	/ >	10
	336	/ ^	11
	XXX	/	12
	214	/ STOP	13
	XXX	/	14
	XXX	/	15
	XXX	/	16
	XXX	/	17
	300	/ @	20
	277	/ ?	21
	323	/ S	22
	324	/ T	23
	325	/ U	24
	326	/ V	25
	327	/ W	26
	330	/ X	27
	331	/ Y	30
	332	/ Z	31
	XXX	/	32
	275	/ EQUALS	33
	XXX	/	34
	XXX	/	35
	S TAB	/ TAB	36
	XXX	/	37

/FIOTT,  PAGE 4  UPPER CASE
	244	/UNDERLINE  40
	312	/ J	41
	313	/ K	42
	314	/ L	43
	315	/ M	44
	316	/ N	45
	317	/ O	46
	318	/ P	47
	319	/ Q	50
	322	/ R	51
	XXX	/	52
	XXX	/	53
	253	/ PLUS	54
	335	/ ]	55
	S VERT	/ VERT	56
	333	/ [	57
	XXX	/	60
	301	/ A	61
	302	/ B	62
	303	/ C	63
	304	/ D	64
	305	/ E	65
	306	/ F	66
	307	/ G	67
	310	/ H	70
	311	/ I	71
	S LCASE	/ LWR CASE	72
	252	/ MULT	73
	S UCASE	/ UPR CASE 	74
	XXX	/ BACK	76
	XXX	/	76
	S RETURN	/ RETURN	77

/ TRANSLATE FIODEC TO ASCII

NANCY,	0
	DAC #NANCY1
	JMP .+1
	AND (77
	XOR C#ASEB
	TAD (FIOTT
	DAC NANCY2
	LAC I #NANCY2
	DAC NANCY2
	SPA
	JMP I NANCY2
NANCY3,	ISZ TABCTR
	JMP I NANCY
	DAC NANCY2
	LAM -LARRY
	DAC TABCTR
	LAC NANCY2
	JMP I NANCY

SPACEF,	LAC NANCY1	/HAVE WE A SPACE OR A FEED
	AND (200
	SNA
	JMP . 3
	LAC (240	/SPACE
	JMP NANCY3
	LAS	/HOW SHALL WE OUTPUT THE FEED
	AND (20
	SNA
	JMP . 3
	LAC (200	/WITH NULL CODES TO SATISFY PAL
	JMP NANCY3
	CLA	/WITH BLANK TAPE SO WE CAN SPLICE
	JMP NANCY3

UCASE,	LAC (100
	DAC CASEB
	ISZ NANCY
	JMP I NANCY

LCASE,	CLA
	JMP UCASE 1

RETURN,	LAC (215
	PUNFIL
	LAC (212
	JMP NANCY3+2

TAB,	LAS	/HOW SHALL TABULATE
	AND (10
	SZA
	JMP . 5
	LAC (211
	PUNFIL	/TAB, RUBOUT
	LAC (377
	JMP NANCY3 2

	LAC (240	/SIMULATE BY SPACES
	PUNFIL
	ISZ TABCTR
	JMP . 3
	LAM -LARRY
	DAC TABCTR
	LAC (240
	PUNFIL
	ISZ TABCTR
	JMP .-3
	LAM -LARRY
	DAC TABCTR
	JMP UCASE 2
DOT,	LAC (JMP . 3
	DAC NANCY 2
	JMP UCASE 2

	LAC (NOP
	DAC NANCY 2
	LAC NANCY1
	SAD (73
	JMP DOT1
	SAD (233
	SKP
	JMP NANCY 3

	LAC (273
	JMP NANCY3

DOT1,	LAC (272
	JMP NANCY3

VERT,	LAC (JMP . 3
	DAC NANCY 2
	JMP UCASE 2

	LAC (NOP
	DAC NANCY 2
	LAC NANCY1
	SAD (222
	JMP . 5
	LAC (334
	PUNFIL
	LAC NANCY1
	JMP NANCY 3

	LAC (244
	JMP NANCY3
TABCTR,	-LARRY
LARRY=10

/TT-FIO DISPATCH TABLE, PAGE 1
/S=UPPER CASE FIODEC CHAR, C=DBLE FIODEC CHAR
TTFIO,	20 S	/ AT	00
	61	/ A	01
	62	/ B	02
	263	/ C	03
	64	/ D	04
	265	/ E	05
	266	/ F	06
	67	/ G	07
	70	/ H	10
	271	/ I	11
	241	/ J	12
	242	/ K	13
	43	/ L	14
	244	/ M	15
	45	/ N	16
	46	/ O	17
	247	/ P	20
	250	/ Q	21
	51	/ R	22
	222	/ S	23
	23	/ T	24
	224	/ U	25
	25	/ V	26
	26	/ W	27
	227	/ X	30
	230	/ Y	31
	31	/ Z	32
	57 S	/ [	33
	256 S	/ VERT	34
	255 S	/ ]	35
	211 S	/ ^	36
	203 S	/ NOT	37

/TT-FIO DISPATCH TABLE,  PAGE 2

	200	/ SP	40
	205 S	/ OR	41
	1 S	/ "	42
	256	/ !	43
	40 S	/ DOLLAR	44
	04 S	/ PRCNT	45
	206 S	/ &	46
	02 S	/ '	47
	57	/ (	50
	255	/ )	51
	73 S	/ STAR	52
	54 S	/ +	53
	233	/ ,	54
	54	/ -	55
	73	/ .	56
	221	/ /	57
	20	/ 0	60
	01	/ 1	61
	02	/ 2	62
	203	/ 3	63
	04	/ 4	64
	205	/ 5	65
	206	/ 6	66
	07	/ 7	67
	10	/ 8	70
	211	/ 9	71
	COLON C	/ COLON	72
	SEMI C	/ SEMI C	73
	07 S	/ <	74
	233 S	/ =	75
	10 S	/ >	76
	221 S	/ ?	77

/TELETYPE TO FIO-DEC

DIT,	0
	SNA	/IGNORE A BLANK
	JMP I DIT
	SAD (377	/IS IT NOT ONE OF THEM
	JMP .TFEED		/DELETE - CLEAR CHAR.

	SAD (215
	JMP .LFEED		/ASCII C. R., GENERATE FIODEC C. R.
	SAD (214
	JMP .STOP		/STOP CODE
	SAD (200
	JMP .TFEED		/MULL - CLEAR CHAR
	SAD (211
	JMP .TAB
	SAD (212
	JMP .TFEED		/IGNORE ASCII LINE FEEDS
	AND (77		/SO WE HAVE TO DISPATCH
	TAD (TTFIO
	DAC DIT#1

	LAC I DIT1		/PICK UP FIODEC CODE
	DAC DIT1
	SMA		/SPECIAL CHAR?
	JMP I DIT		/NORMAL RETURN
	AND (I		/CHECK DBLE OR UPPER CASE
	SZA
	JMP I DIT1		/DBLE CHARACTER
	LAC (274		/UPPER CASE
	TAPFIL
	LAC DIT1
	AND (377
	TAPFIL
DIT2,	LAC (272		/RETURN W/ LOWER CASE
	JMP I DIT

DOLLR,	LAC (274
	TAPFIL
	LAC (256
	TAPFIL
	LAC (222
	TAPFIL
	JMP DIT2

COLON,	LAC (40		/CENTER DOT
	TAPFIL
	LAC (73		/PERIOD
	JMP I DIT

.TFEED,	CLA
	JMP I DIT

SEMI,	LAC (40		/CENTER DOT
	TAPFIL
	LAC (233		/COMMA
	JMP I DIT

.LFEED,	LAC (277		/C. R. - PARITY FIODEC
	JMP I DIT

.STOP,	LAC (13
	JMP I DIT

.TAB,	LAC (236
	JMP I DIT

C=S I

XXX=S UCASE 2

START
