
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
