File psl-1983/3-1/kernel/io-extensions.red artifact 2f94bbdcd2 part of check-in 46c747b52c

%
% IO-EXTENSIONS.RED - Random, possibly useful functions
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        22 October 1981
% Copyright (c) 1981 University of Utah
%

on SysLisp;

syslsp procedure ChannelTYI Chn;	%. Read one char ASCII value
    MkINT ChannelReadChar Chn;

syslsp procedure ChannelTYO(Chn, Ch);	%. Write one char ASCII value
    ChannelWriteChar(Chn, Lisp2Char Ch);

off SysLisp;

global '(IN!* OUT!*);

lisp procedure TYI();		%. Read ASCII value from curent input
    ChannelTYI IN!*;

lisp procedure TYO Ch;		%. Write ASCII value to current output
    ChannelTYO(OUT!*, Ch);

END;