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