Artifact 2f94bbdcd2ef90cc068ae9fc1bf271fcc0ed7c2924fe6d040f1793f4146bd268:

• File psl-1983/3-1/kernel/io-extensions.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 703) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/kernel/io-extensions.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 703) [annotate] [blame] [check-ins using]

%
% 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;