
FOTS W/MODULAR I/O
/COMMON I/O
INDEX=10
TELANA=JMS .	0
	DAC T#EMFIO	/BAUDOT CHARACTER W/CASE
	LAC (CT-1
	DAC INDEX	/INITIALIZE TABLE SEARCH ADDRESS
TEL2=JMP .	LAC I INDEX
	AND (77
	SAD TEMFIO
	SKP
	TEL2		/NO COMPARE
	LAC INDEX
	ADD (-CT		/ANELEX CODE FROM TABLE ADDRESS
	SPA
	CLA
	XIT TELANA
XIT=JMP I-JMS

TOC=JMS .	0		/TEXT OUTPUT
	DAC TOCTEM	/TEXT ADDRESS
	DZM FIOCAS	/LOWER CASE
	DZM FIGLET	/FIGURES
TOC2=JMP .	LAM -2
	DAC CH#AC		/-3
	LAC I TOC#TEM
TOC3=JMP .	RL6
	DAC CH#AC1
	RAL
	AND (77
	SAD (13
	JMP TOCEX		/END OF TEXT
TOCX,	XX

	FIOCON		/MODIFIED BY FIOC
	SAD (13
	LAC (136		/TAB IN TEXT OUTPUT
	SAD (40
	SKP
	STASH
	LAC CHAC1
	ISZ CHAC
	TOC3
	ISZ TOCTEM
	TOC2
TOCEX,	STASH
	XIT TOC

FIOCON=JMS .	0	/FIODEC TO ANELEX
	SAD (36
	FIOTAB		/TAB
	SAD (13
	XIT FIOCON	/END OF ITEM
	SAD (72
	JMP CASSET	/LOWER CASE
	SAD (74
	JMP CASSET+2	/UPPER CASE
	SAD (77
	JMP FIOCAR	/CARRIAGE RETURN=END OF RECORD
	DAC CH#ARG
	LAC FIOCAS
	SZA		/LOWER CASE FIODEC=ANELEX
	FIOANA		/CONVERT UPPER CASE FIODEC
	LAC CHARG
	XIT FIOCON
CASSET,	DZM FIOCAS	/LOWER CASE
	SKP
	ISZ FIOCAS	/UPPER CASE
	LAC (40)		/CASE SHIFT
	XIT FIOCON
FIOCAR,	CLC
	XIT FIOCON
FIOTAB=JMP .	LAC (13	/TAB=END OF ITEM
	XIT FIOCON

FIOANA=JMP .	LAC CHARG	/UPPER CASE FIODEC TO ANELEX
	GCHAR		/TABLE WORD
	AND (7700
	DAC TEMFIO
	TAD (776500	/LOOK FOR 13 FILLER
	SNA
	JMP FIOANB	/NO EQUIVALENT
	LAC TEMFIO
	RR6		/RIGHT JUSTIFY
	XIT FIOCON
FIOANB,	LAC CHARG
	XIT FIOCON

GCHAR=JMS .	0
	ADD (LAC CT
	DAC .+1
	XX		/GET CT TABLE ENTRY
	XIT GCHAR

RL6=JMS .	0		/CLEAR LINK AND ROTATE LEFT 6
	RCL
	RTL
	RTL
	RAL
	XIT RL6

RR6=JMS .	0		/CLEAR LINK AND ROTATE RIGHT 6
	RCR
	RTR
	RTR
	RAR
	XIT RR6
ANATEM=RR6-JMS
ANAFIO=JMS .	0	/ANELEX TO FIODEC
	DAC ANATEM
	GCHAR
	RL6
	RAL
	AND (77
	SAD (13
	JMP ANA2		/LOWER CASE
	XOR (400000	/UPPER CASE BIT
	XIT ANAFIO
ANA2,	LAC ANATEM	/ANELEX = LOWER CASE FIODEC
	XIT ANAFIO

ANATEL=JMS .	0	/ANELEX TO BAUDOT
	GCHAR		/TABLE ENTRY
	AND (77
	XIT ANATEL

/INTERNAL ANELEX CONVERSION TABLE
/FIELD 1, 0-5, FIELD 2, 6-11, FIELD 3, 12-17
/FIELD 1=UPPER CASE FIODEC INDEXED BY ANELEX, 13 FILLER
/FIELD 2=ANELEX INDEXED BY UPPER CASE FIODEC, 13 FILLER
/FIELD 3=BAUDOT INDEXED BY ANELEX, 00 FILLER
CT=.	130010
	133272
	131262
	131340
	131424
	131502
	131652
	131770
	133430
	133506
	021350
	031300
	041300
	051336
	061354
	071300
	133632
	133756
	131351
	131303
	131371
	131337

	131363
	131357
	131353
	131343
	011300
	135314
	101300
	111300
	201344
	211346
	136000
	131365
	131375
	131323
	131317
	131315
	131307
	131333
	131373
	131325
	131300
	331342
	137460
	137522
	137664
	137774
	401334

	131361
	131347
	131335
	131345
	131341
	131355
	131327
	131313
	131331
	731312
	137216
	541326
	551300
	561300
	571300
R9R,	0
	RR6
	RTR
	RAR
	JMP I R9R
MODE,	0
LINK,	0

UNPOSA,	LAC ACX
	ADD (-1
	JMP UNPOSR

PUSHCH,	DZM F
	JMP I PUSHET

STORE,	STORE 144/
INBUF,	INBUF 401/
EXSGN,	0
START
