LIBRARY OF GENERAL I/O ROUTINES HELD IN XI.LB8 ______________________________________________ ******************* OUTPUT ROUTINES ************************************** TYPE NAME FUNCTION PARAMETERS FILE STROUT CORAL string VI(S) XI02A OUTDIG L.s.nibble of N as HEX digit VB(N) XI04A BYTOUT Byte (N) as 2 HEX digits VB(N) XI05A HEXOUT An unsigned int.(N) as 4 HEX digits VI(N) XI15A DINOUT A 32 bit unsigned decimal integer VI(L) VI(H) XI09A DECOUT Decimal signed int. (N) VI(N) XI11A DECOUB Decimal signed byte (N) VB(N) XI18A BINOUT Binary integer (N) VI(N) XI06A BIN8UT Binary integer (N), leading zeros VI(N) XI20A BIO86B Binary byte (N), leading spaces VB(N) XI12A SPACES (N) Spaces VI(N) XI22A NEWLN A pair XI19A ******************* INPUT ROUTINES ************************************** TYPE NAME FUNCTION PARAMETER FILE IP PROMPT O/P a prompt & I/P a dec. int. VI(S) XI21A IP ASC HEX digit or - sign & echoes it Returns -1 if char not 0-9, A-F or -ve XI03A IP DECINP Signed decimal integer LI(E) XI10A BP DECINB Signed decimal byte XI17A IP HEXINP HEX int. LI(E) XI08A IP BININP Binary int. LI(E) XI14A BP BII86B Binary byte XI23A ****************** GENERAL ROUTINES ************************************* TYPE NAME FUNCTION PARAMETERS FILE IP ROL Rotates int (X) left (N) times (8080) VI(X) VB(N) XI24A IP IROLT Rotates integer (X) left (N) times VI(X) VB(N) XI16A WAIT Delay N microseconds VI(N) XI25A PORTR reads from port PORTWR writes to port NOTES _____ LI(E) returns a value -1 if invalid char is typed VI(S) requires a coral string VI(L) VI(H) refer to low & high parts of double length integer LI = 'LOCATION''INTEGER' VI = 'VALUE''INTEGER' VB = 'VALUE''BYTE' IP = 'INTEGER''PROCEDURE' BP = 'BYTE''PROCEDURE' SF = S. Forman PB = Paul (ex) Booth