home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
intelmdsb
/
mdssho.p80
< prev
next >
Wrap
Text File
|
2020-01-01
|
4KB
|
171 lines
$TITLE ('SHOW MODULE')
show$module:
/* SHOW: Display the values of the KERMIT parameters which can be */
/* altered by the user. */
/* COPYRIGHT (C) 1985, Trustees of Columbia University in the City of New */
/* York. Permission is granted to any individual or institution to use, */
/* copy, or redistribute this software so long as it is not sold for */
/* profit, provided this copyright notice is retained. /*
/* Future changes: Allow selective show. */
/* Contains the following public routines: shohelp, show */
do;
declare port byte external;
declare debug byte external;
declare escchar byte external;
declare def$drive(5) byte external;
declare baudrate address external;
declare parity byte external;
declare maxtry byte external;
declare halfduplex byte external;
declare warning$flag byte external;
declare take$echo byte external;
declare prompt(20) byte external;
declare true literally '0FFH';
declare false literally '00H';
declare lf literally '0AH';
declare cr literally '0DH';
declare null literally '000H';
declare crlf literally 'cr,lf,null';
print: procedure(msg) external;
declare msg address;
end print;
nout: procedure(n) external;
declare n address;
end nout;
newline: procedure external; end newline;
ctl: procedure(char) byte external;
declare char byte;
end ctl;
co: procedure(char) external;
declare char byte;
end co;
baudshow: procedure;
call print(.(' Baud rate = $'));
call nout(baudrate);
call newline;
end baudshow;
debshow: procedure;
call print(.(' Debugging mode = $'));
if debug then
call print(.('ON$'));
else
call print(.('OFF$'));
call newline;
end debshow;
diskshow: procedure;
call print(.(' Default disk = $'));
if def$drive(0) = null then /* no default */
call print(.('(none)$'));
else
call print(.def$drive(0));
call newline;
end diskshow;
duplshow: procedure;
call print(.(' Duplex mode = $'));
if halfduplex then
call print(.('HALF$'));
else
call print(.('FULL$'));
call newline;
end duplshow;
escshow: procedure;
call print(.(' Escape character = $'));
if escchar < ' ' then do; /* escape char is a cntrl char */
call print(.('CTRL-$'));
call co(ctl(escchar));
end;
else call co(escchar);
call newline;
end escshow;
parshow: procedure;
call print(.(' Parity = $'));
do case parity;
call print(.('NONE\$'));
call print(.('MARK\$'));
call print(.('SPACE\$'));
call print(.('EVEN\$'));
call print(.('ODD\$'));
end;
end parshow;
portshow: procedure;
call print(.(' Port = $'));
call nout(port);
call newline;
end portshow;
promshow: procedure;
call print(.(' Prompt = "$'));
call print(.prompt);
call print(.('"\$'));
end promshow;
tryshow: procedure;
call print(.(' Number of retries = $'));
call nout(maxtry);
call newline;
end tryshow;
echoshow: procedure;
call print(.(' Take echo mode = $'));
if take$echo then
call print(.('ON$'));
else
call print(.('OFF$'));
call newline;
end echoshow;
warnshow: procedure;
call print(.(' File warning mode = $'));
if warning$flag then
call print(.('ON$'));
else
call print(.('OFF$'));
call newline;
end warnshow;
/* Display help for the SHOW command */
shohelp:procedure public;
call print(.(' SHOW $'));
call print(.(' Show the values of the SET parameters\\$'));
call print(.('SHOW\\$'));
call print(.(' The SHOW command causes KERMIT to display the $'));
call print(.('values of the SET parameters.\\$'));
call print(.('Syntax:\\$'));
call print(.(' SHOW\\$'));
end shohelp;
show:
procedure public;
call print(.('Current KERMIT parameter values are:\$'));
call baudshow;
call debshow;
call diskshow;
call duplshow;
call escshow;
call parshow;
call portshow;
call promshow;
call tryshow;
call echoshow;
call warnshow;
end show;
end show$module;