/	OS/8  FORTRAN II	CHARACTER INPUT/OUTPUT
/		     		SUBROUTINES
/	W. HOUBEN		16. JAN  1974
/	LETZTE AENDERUNG	17. JUL 1974
/
/	AUFRUF :
/
/	FUNCTION ICHAR    J=ICHAR(N)		N=DEVICE NUMMER
/
/	SUBROUTINE OCHAR  CALL OCHAR(N,CHAR)	N=DEVICE NUMMER
/						CHAR = 0 - 127 (INTEGER)
/
/	INPUT / OUTPUT 7BIT (OHNE PARITY)
/		Z E I C H E N T A B E L L E
/
/		0     1     2     3     4     5     6     7     8     9
/
/	00	NULL  ^A    ^B    ^C    ^D    ^E    ^F    BELL  ^H    TAB
/	01	LF    VT    FF    CR    ^N    ^O    ^P    ^Q    ^R    ^S
/	02	^T    ^U    ^V    ^W    ^X    ^Y    ^Z    ALT   ^'L   ^'M
/	03	^'N   ^'O   SPACE !     "     #     $     %     &     '
/	04	(     )     *     +     ,     -     .     /     0     1
/	05	2     3     4     5     6     7     8     9     :     ;
/	06	<     =     >     ?     @     A     B     C     D     E
/	07	F     G     H     I     J     K     L     M     N     O
/	08	P     Q     R     S     T     U     V     W     X     Y
/	09	Z     [     \     ]     ^     _     '     a     b     c
/	10	d     e     f     g     h     i     j     k     l     m
/	11	n     o     p     q     r     s     t     u     v     w
/	12	x     y     z     [     \     ]     ESC   DEL

/	^ = CTRL
/	' = SHIFT
/
	ENTRY ICHAR
	ENTRY OCHAR
	DUMMY IARG
IARG,	BLOCK 2
OCHAR,	BLOCK 2
	TAD I OCHAR
	DCA   IARG
	INC   OCHAR#
	TAD I OCHAR
	DCA   IARG#
	INC   OCHAR#
	CMA
	TAD I IARG	/ DEVICE NUMMER
	DCA   DV
	TAD I OCHAR
	DCA   IARG
	INC   OCHAR#
	TAD I OCHAR
	DCA   IARG#
	INC   OCHAR#
	TAD I IARG	/ CHARACTER
	AND   (177
	DCA   CHAR
	TAD   DV
	RTR
	RTR
	RAR
	AND   (7400
	TAD   CHAR
	CALL 0,GENIO
	RETRN OCHAR

ICHAR,	BLOCK 2
	TAD I ICHAR
	DCA   IARG
	INC   ICHAR#
	TAD I ICHAR
	DCA   IARG#
	INC   ICHAR#
	CMA
	TAD I IARG	/ DEVICE NUMMER
	TAD   (4
	RTR
	RTR
	RAR
	AND (7400
	CALL 0,GENIO
	AND (177
	RETRN ICHAR

CHAR,	0
DV,	0
	END