.TITLE	UNSIX - SIXBIT to eightbit conversion routine.
	.VERSIO	20
/ ++
/
/	UNSIX Y2.0
/
/	(c) 1989 by Johnny Billquist
/
/	All rights reserved.
/
/	UNSIX is a library for standard IO.
/
/	History:
/
/	89/01/04 09:05	BQT	Y1.0. Separated code from IOLIB.
/	89/12/01 20:00	BQT	Y1.1. Made functions into FSECT.
/	89/12/27 05:00	BQT	Y2.0. Made from STDIO.
/
/ --
/
	.FSECT	UNSIX
/
/ UNSIX makes an eightbit char out of a SIXBIT char.
/
	0			/For return address.
	DCA	CHR$		/Save char.
	RDF			/Get return field.
	TAD	(CDF CIF)
	DCA	R$
	TAD	CHR$		/Get char.
	AND	(77)		/Mask out ONE sixbit char.
	TAD	(-40)		/Separate between char and special.
	SPA			/Skip if special.
	TAD	(100)		/Add 100(8) if character.
	TAD	(40)		/Normalize.
R$:	HLT			/Return to field.
	JMP I	UNSIX		/Return.

CHR$:	0
/
$