home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
ccdos.zip
/
ccsset2.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
38KB
|
899 lines
;; Additional data segment material placed here to aid MASM 4
datas segment public 'datas'
ermes1 db cr,lf,'?Too many macro names$'
cermes1 db cr,lf,'?║Ω├ⁿ┴ε╠½╢α$'
ermes2 db cr,lf,bell,'?No room for Take file buffer or Macro definition'
db cr,lf,bell,'$'
cermes2 db cr,lf,bell,'?╙├╙┌Take╬─╝■╗║│σ╗≥║Ω╢¿╥σ╡─┐╒╝Σ├╗╙╨┴╦'
db cr,lf,bell,'$'
ermes4 db cr,lf,'?Too many active Take files and Macros',cr,lf, bell,'$'
cermes4 db cr,lf,'?╘╦╨╨╡─Take╬─╝■║═║Ω├ⁿ┴ε╠½╢α┴╦',cr,lf,bell,'$'
ermes5 db cr,lf,'?Not implemented$'
cermes5 db cr,lf,'?╬▐╖¿╓┤╨╨$'
ermes6 db cr,lf,'?More parameters are needed$'
cermes6 db cr,lf,'?╨Φ╥¬╕ⁿ╢α╡─▓╬╩²$'
ermes7 db cr,lf,'?Command not executed$'
cermes7 db cr,lf,'?├ⁿ┴ε╬▐╖¿╓┤╨╨$'
errcap db cr,lf,'?Unable to open that file$'
cerrcap db cr,lf,'?╬▐╖¿┤≥┐¬─╟╕÷╬─╝■$'
erropn db cr,lf,'?Log file is already open$'
cerropn db cr,lf,'?╝╟┬╝╬─╝■╥╤╛¡┤≥┐¬$'
askhlp1 db 'Variable name then prompt string$'
caskhlp1 db '<▒Σ┴┐├√> ╚╗║≤╩╟ <╠ß╩╛╖√>$'
askhlp2 db 'Prompt string$'
caskhlp2 db '╠ß╩╛╖√$'
askhlp3 db 'Enter a line of text$'
caskhlp3 db '╝ⁿ╚δ╥╗╨╨╒²╬─$'
filhlp db ' Output filename for the log$'
cfilhlp db '╩Σ│÷╝╟┬╝╬─╝■├√$'
dishlp db cr,lf,' Quiet (no screen writing), Regular (normal),'
db ' Serial (non-formatted screen)'
db cr,lf,' and/or 7-BIT (default) or 8-BIT wide characters.$'
cdishlp db cr,lf,'╛▓╓╣(╬▐╞┴─╗╧╘╩╛),╒²│ú(│ú╣µ╧╘╩╛),'
db '┤«╨╨(╖╟╕±╩╜╗»╞┴─╗╧╘╩╛)'
db cr,lf,' ╥╘╝░/╗≥ 7 ╬╗(╚▒╩í╓╡) ╗≥ 8 ╬╗└⌐╒╣╫╓╖√.$'
remhlp db cr,lf,' OFF to show file transfer display,'
db ' ON for quiet screen$'
cremhlp db cr,lf,' OFF -- ╧╘╩╛╬─╝■┤½╦═╣²│╠,'
db ' ON -- ╞┴─╗┤ª╙┌╛▓╓╣╫┤╠¼$'
macmsg db ' Specify macro name followed by body of macro, on same line$'
cmacmsg db ' ╢¿╥σ║Ω├ⁿ┴ε▓ó╘┌═¼╥╗╨╨╓╨║≤╜╙║Ω╢¿╥σ╠σ $'
shmmsg db ' name of macro, or carriage return to see all$'
cshmmsg db ' ║Ω╢¿╥σ├√,╗≥ <╗╪│╡> ╥╘▒π╧╘╩╛╦∙╙╨─┌╚▌ $'
prmmsg db cr,lf
db ' Enter new prompt string or nothing to regain regular prompt.'
db cr,lf,' Use \123 notation for special chars (Escape is \27)$'
cprmmsg db cr,lf
db ' ╝ⁿ╚δ╨┬╠ß╩╛╖√ ,╚▒╩í╘≥╡├╡╜╒²╣µ╡─╠ß╩╛╖√.'
db cr,lf,' ╢╘╠╪╩Γ╫╓╖√╩╣╙├ \123 ╝╟╩²╖¿(Esc╝ⁿ╩╟ \27) $'
srxhlp1 db cr,lf,' Enter code for received byte code for'
db ' local byte ',cr,lf,' use ascii characters themselves or'
db cr,lf,' numerical equivalents of \nnn decimal'
db ' or \Onnn octal or \Xnnn hexadecimal',cr,lf
db ' or keywords ON or OFF (translation is initially off)'
csrxhlp1 db cr,lf,'╝ⁿ╚δ ╜╙╩╒╡─╫╓╜┌┤·┬δ ╡╜┤·┬δ'
db cr,lf, ' \nnn ╩«╜°╓╞ ',cr,lf
db ' \Onnn ░╦╜°╓╞ ╗≥ \Xnnn ╩«┴∙╜°╓╞╡─╩²╫╓',cr,lf
db ' ╗≥╒▀ ╩╟ ╣╪╝ⁿ╫╓ ON ╗≥ OFF (╫¬╗╗│⌡╩╝╬¬ OFF )'
db cr,lf,'$'
shormsg db cr,lf,' Translation table of received byte codes while'
db ' in CONNECT mode -'
db cr,lf,' Format: [received byte (decimal) -> local byte'
db ' (decimal)]',cr,lf,'$'
cshormsg db cr,lf,'╘┌ CONNECT ╖╜╩╜╧┬╜╙╩╒╫╓╜┌┤·┬δ╫¬╗╗▒φ'
db cr,lf,'╕±╩╜: [╜╙╩╒╡─╫╓╜┌ (╩«╜°╓╞) -> ╡▒╡╪╫╓╜┌'
db ' (╩«╜°╓╞)]',cr,lf,'$'
shopm1 db ' [\$' ; Show Translation material
shopm2 db ' -> \$'
shopm3 db '] $'
badrx db cr,lf,'?Expected ON, OFF, or \nnn$'
cbadrx db cr,lf,'?╨Φ╥¬ ON, OFF, ╗≥ \nnn $'
rxoffmsg db cr,lf,' Input Translation is off$'
crxoffmsg db cr,lf,' ╩Σ╚δ╫¬╗╗╥╤╜ß╩° $'
rxonmsg db cr,lf,' Input Translation is on$'
crxonmsg db cr,lf,' ╒²╘┌╜°╨╨╩Σ╚δ╫¬╗╗ $'
rxtable equ THIS BYTE ; build 256 byte Translation Input table
maketab ; table rxtable is used by Connect mode
stkadr dw 0 ; non-zero if replacement keyboard xlator present
prterr db '?Unrecognized value$'
cprterr db '?▓╗╚╧╩╢╡─╩²╓╡ $'
takchlp db cr,lf,'Value 0 to 65535 for COUNT in script IF COUNT command$'
ctakchlp db cr,lf,'╘┌ IF COUNT ├ⁿ┴ε╧┬,COUNT ╚í╓╡┤╙ 0 ╡╜ 65535 $'
takcerr db cr,lf,'?Note: command is valid only in Take files and Macros$'
ctakcerr db cr,lf,'?╫ó╥Γ: ┤╦├ⁿ┴ε╓╗╙╨╘┌ Take╬─╝■╗≥║Ω╢¿╥σ╩▒▓┼─▄╓┤╨╨ $'
defpmp db 'Definition string: $'
cdefpmp db '╢¿╥σ┤«: $'
nonmsg db 'none$'
cnonmsg db '╬▐$'
delmsg db 'delete$'
cdelmsg db '╔╛│² $'
onmsg db 'on'
offmsg db 'off'
logmsg db 'Logging of Packets, Session, Transaction, plus'
db ' screen dump file -$'
clogmsg db '░ⁿ(Packets),╢╘╗░(Session),╣²│╠(Transaction),║═'
db '╞┴─╗╫¬┤ó╬─╝■╡─╝╟┬╝ -$'
lpktnam db 'PACKET.LOG',54 dup (0) ; default packet log filename
lsesnam db 'KERMIT.LOG',54 dup (0) ; default capture/session filename
ltranam db 'TRANSACT.LOG',52 dup (0); default transaction log filename
dmpdefnam db 'KERMIT.SCN',0 ; asciiz default screen dump filename
dmpname db 'KERMIT.SCN',54 dup (0) ; file name for screen dumps [jrd]
lsesmsg db 'Session log: $'
clsesmsg db '╢╘╗░╝╟┬╝: $'
lpktmsg db 'Packet log: $'
clpktmsg db '░ⁿ╝╟┬╝: $'
ltramsg db 'Transaction log: $'
cltramsg db '╣²│╠╝╟┬╝: $'
dmpmsg db 'Dump screen: $'
cdmpmsg db '╞┴─╗╫¬┤ó: $'
dmpmsg2 db 'Dump screen: $' ; for general STATUS display
cdmpmsg2 db '╞┴─╗╧╘╩╛: $'
tmp db ?,'$'
modst db 'Mode line : $'
cmodst db '╫┤╠¼╨╨ : $'
locst db 'Local echo : $'
clocst db '▒╛╡╪╗╪╧╘ : $'
belon db 'Ring bell after transfer$'
cbelon db '┤½╦═╜ß╩°║≤╧∞┴σ$'
beloff db 'No bell after transfer$'
cbeloff db '┤½╦═╜ß╩°▓╗╧∞┴σ$'
vtemst db 'Terminal emulation: $' ; terminal emulator
cvtemst db '╓╒╢╦╖┬╒µ: $'
portst db 'Communications port: $'
cportst db '═¿╨┼╢╦┐┌: $'
capmsg db 'Logging: $'
ccapmsg db '╝╟┬╝: $'
eofmsg db 'EOF mode: $'
ceofmsg db 'EOF ╖╜╩╜: $'
flost db 'No flow control used$'
cflost db '├╗╙╨╩╣╙├┴≈┴┐┐╪╓╞$'
floxmsg db 'Flow control: xon/xoff $'
cfloxmsg db '┴≈┴┐┐╪╓╞: xon/xoff $'
handst db 'Handshake used: $'
chandst db '╩╣╙├╡─╬╒╩╓╨┼║┼: $'
destst db 'File destination: $'
cdestst db '╬─╝■─┐╡─╡╪: $'
diskst db 'Path: $'
cdiskst db '┬╖╛╢: $'
blokst db 'Block check used: $'
cblokst db '╩╣╙├┐Θ╨ú╤Θ: $'
sqcst db 'Send control char prefix: $'
csqcst db '╖ó╦═┐╪╓╞╫╓╖√╟░╫║: $'
rqcst db 'Receive control char prefix: $'
crqcst db '╜╙╩╒┐╪╓╞╫╓╖√╟░╫║: $'
debon db 'Debug: $'
cdebon db '╡≈╩╘: $'
flwon db 'Warning (filename change): $'
cflwon db '╛»╕µ(╕─▒Σ╬─╝■├√): $'
parmsg db 'Parity: $'
cparmsg db '╞µ┼╝╨ú╤Θ: $'
abfdst db 'Discard incomplete file$'
cabfdst db '╖┼╞·╬┤═Ω╚½┤½╦═╡─╬─╝■$'
abfkst db 'Keep incomplete file$'
cabfkst db '▒ú┴⌠╬┤═Ω╚½┤½╦═╡─╬─╝■$'
sndmsg db 'Send Delay: $'
csndmsg db '╖ó╦═╤╙│┘: $'
sndmsg2 db ' sec, Pause: $'
csndmsg2 db ' ├δ, ╘▌═ú: $'
sndmsg3 db ' ms$'
csndmsg3 db ' ║┴├δ$'
ssohst db 'Send start-of-packet char: $'
cssohst db '╖ó╦═░ⁿ╞≡╩╝╫╓╖√: $'
rsohst db 'Receive start-of-packet char: $'
crsohst db '╜╙╩╒░ⁿ╞≡╩╝╫╓╖√: $'
meolst db 'End-of-Line char S: ',5eh,'$'
cmeolst db '╨╨╜ß╩°╫╓╖√ S: ',5eh,'$'
mseol2 db ' R: ',5eh,'$'
stimst db 'Send timeout (seconds): $'
cstimst db '╖ó╦═│¼╩▒(├δ╩²): $'
rtimst db 'Receive timeout (seconds): $'
crtimst db '╜╙╩╒│¼╩▒(├δ╩²): $'
spakst db 'Send packet size: $'
cspakst db '╖ó╦═░ⁿ╡─│ñ╢╚: $'
rpakst db 'Receive packet size: $'
crpakst db '╜╙╩╒░ⁿ╡─│ñ╢╚: $'
snpdst db '# of send padding chars: $'
csnpdst db '╖ó╦═╠ε│Σ╫╓╖√ #: $'
rnpdst db '# of receive padding chars: $'
crnpdst db '╜╙╩╒╠ε│Σ╫╓╖√ #: $'
spadst db 'Padding char: $'
cspadst db '╠ε│Σ╫╓╖√: $'
retrymsg db 'Retry send/receive packet limit: $'
cretrymsg db '░ⁿ╓╪╖ó/╜╙╩╒╡─┤╬╩²: $'
dispst db 'Display (vs Remote):$'
cdispst db '╧╘╩╛╞≈ (╧α╢╘╙┌ ╘╢│╠):$'
remost db 'Remote (vs Display) $'
cremost db '╘╢│╠ (╧α╢╘╙┌ ╧╘╩╛╞≈) $'
timmsg db 'Timer: $'
ctimmsg db '╢¿╩▒: $'
srvmsg db 'Timeout (sec) waiting for a transaction: $'
csrvmsg db '╡╚┤²╥╗╕÷╣²│╠(TRANSACTION)╡─│¼╩▒╓╡(├δ): $'
srvthlp db 'seconds, 0-255, waiting for a transaction$'
csrvthlp db '├δ╩²,0-255,╡╚┤²╥╗╕÷╣²│╠(TRANSACTION)$'
escmes db 'Escape character: $'
cescmes db '═╦│÷(ESC)╫╓╖√: $'
scpmsg db 'Script commands Echo, If, Input, Output, Pause, Reinput,'
db ' Transmit, Wait$'
cscpmsg db 'Script ├ⁿ┴ε: Echo, If, Input, Output, Pause, Reinput,'
db ' Transmit, Wait$'
sechmsg db 'Input echoing: $'
csechmsg db '╩Σ╚δ╗╪╧╘: $'
scasmsg db 'Case sensitivity: $'
cscasmsg db '╫╓─╕┤≤╨í╨┤├⌠╕╨╢╚: $'
stmo1msg db 'Timeout (seconds): $'
cstmo1msg db '│¼╩▒ (├δ): $'
stmo2msg db 'Timeout-action: $'
cstmo2msg db '│¼╩▒╫≈╙├: $'
takon db 'Take-echo: $'
ctakon db 'Take-╗╪╧╘: $'
atton db 'Attributes pkts: $'
catton db '╩⌠╨╘░ⁿ: $'
baudrt db 'Baud rate is $'
cbaudrt db '▓¿╠╪┬╩╬¬ $'
unrec db 'unknown$'
cunrec db '▓╗╓¬╡└$'
stcntmsg db 'Take/Macro COUNT: $'
cstcntmsg db 'Take║═ ║Ω ╝╞╩²: $'
nonemsg db 'no active Take/Macro$'
cnonemsg db '├╗╙╨╘╦╨╨╡─ Take ║═ ║Ω$'
sterlmsg db 'Errorlevel: $'
csterlmsg db '┤φ╬≤╝╢▒≡: $'
stalrmsg db 'Alarm time: $'
cstalrmsg db '▒¿╛»╩▒╝Σ: $'
nummsg1 db cr,lf,'?Use a number between $'
cnummsg1 db cr,lf,'?╩╣╙├╥╗╕÷╩², ╖╢╬º╘┌ $'
nummsg2 db ' and $'
cnummsg2 db ' ╡╜ $'
ctlhlp db ' Decimal number between 0 and 31$'
cctlhlp db ' 0 ╡╜ 31 ╓«╝Σ╡─╩«╜°╓╞╩²$'
dmphlp db ' Filename to hold screen dumps$'
cdmphlp db '▒ú┤µ╞┴─╗╩Σ│÷╡─╬─╝■├√$'
erlhlp db ' Decimal number between 0 and 255$'
cerlhlp db ' 0 ╡╜ 255 ╓«╝Σ╡─╩«╜°╓╞╩²$'
pakerr db cr,lf,'?Choose a decimal number '
db 'from 20 to 94 (normal) or to 1000(long)$'
cpakerr db cr,lf,'?╤í╘±╥╗╕÷ 20 ╡╜ 94 (╒²│ú)╗≥ 1000(│ñ╫╓╜┌)╓«╝Σ╡─'
db '╩«╜°╓╞╩²╫╓ $'
pakhlp db cr,lf,'Decimal number between 20 and 94 (normal) or '
db ' 1000 (long)$'
cpakhlp db cr,lf,'╘┌20╡╜94(╒²│ú)╗≥1000(│ñ╫╓╜┌)╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
padhlp db cr,lf,' Decimal number between 0 and 31 or 127$'
cpadhlp db cr,lf,' 0 ╡╜ 31╗≥ 127 ╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
pauhlp db ' Decimal number between 0 and 127$'
cpauhlp db ' 0 ╡╜ 127 ╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
quohlp db ' Decimal number between 33 and 126$'
cquohlp db ' 33 ╡╜ 126 ╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
retryhlp db ' Decimal number betwuen 1 and 63$'
cretryhlp db ' 1 ╡╜ 63 ╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
timhlp db ' Decimal number between 0 and 94$'
ctimhlp db ' 0 ╡╜ 94 ╓«╝Σ╡─╩«╜°╓╞╩²╫╓$'
delyhlp db ' Delay seconds before sending file (0-63)$'
cdelyhlp db ' ╖ó╦═╬─╝■╓«╟░╤╙│┘├δ╩² (0-63)$'
eschlp db cr,lf,'Press literal control keys (ex: Control ]) or'
db ' enter in \nnn numerical form$'
ceschlp db cr,lf,'╝ⁿ╚δ╡Ñ╫╓╖√┐╪╓╞╝ⁿ(└²: Control ])╗≥'
db '╝ⁿ╚δ \nnn ╩²╫╓╗»╨╬╩╜$'
escerr db cr,lf,'?Not a control code$'
cescerr db cr,lf,'?▓╗╩╟╥╗╕÷┐╪╓╞┬δ$'
hnd1hlp db cr,lf,'XON (\17), XOFF (\19), CR (\139< LF (\10), BELL (\7),'
DB ' ESC (\27), NONE (\09'
db cr,lf,' or "CODE" followed by decimal number$'
chnd1hlp db cr,lf,'XON (\17), XOFF (\19), CR (\139< LF (\10), BELL (\7),'
DB ' ESC (\27), NONE (\09'
db cr,lf,' ╗≥ "┤·┬δ" ║≤╕·╥╗╕÷╩«╜°╓╞╩²$'
intoms db 'number of seconds to wait before timeout',cr,lf,'$'
cintoms db '│¼╩▒╟░╡╚┤²╩²├δ',cr,lf,'$'
loghlp db cr,lf
db ' PACKET - during file transfers (to default file PACKET.LOG)'
db cr,lf
db ' SESSION - during Connect mode (to default file KERMIT.LOG)'
db cr,lf
db ' TRANSACTION - files transferred(to default file TRANSACT.LOG)'
db cr,lf,' followed by an optional filename for the log.$'
cloghlp db cr,lf
db ' PACKET - ╘┌╬─╝■┤½╦═╩▒╞┌ (╥■║¼╬─╝■ PACKET.LOG)'
db cr,lf
db ' SESSION - ╘┌ Connect ─ú╩╜╧┬ (╥■║¼╬─╝■ KERMIT.LOG)'
db cr,lf
db ' TRANSACTION - ▒╗┤½╦═╡─╬─╝■ (╥■║¼╬─╝■ TRANSACT.LOG)'
db cr,lf,' ║≤╜╙╥╗╕÷┐╔╤í╘±╡─╬─╝■├√╫≈╬¬╝╟┬╝(LOG)╬─╝■$'
debhlp db cr,lf,' PACKETS - during file transfers' ; Debugging
db cr,lf,' SESSION - during Connect mode'
db cr,lf,' ON - both packets and session'
db cr,lf,' OFF - turns off all debugging$'
cdebhlp db cr,lf,' PACKETS - ╬─╝■┤½╦═╩▒╞┌'
db cr,lf,' SESSION - Connect ─ú╩╜╧┬╡─╢╘╗░'
db cr,lf,' ON - ░ⁿ╝░╢╘╗░'
db cr,lf,' OFF - ╜ß╩°╦∙╙╨╡─╡≈╩╘$'
dohlp db cr,lf,'definitions of variables (\%n), or carriage return$'
cdohlp db cr,lf,'▒Σ┴┐╢¿╥σ(\%n),╗≥<╗╪│╡>$'
sdshlp db cr,lf,'DISABLE or ENABLE access to selected Server commands:'
db cr,lf
db ' CD/CWD, DEL, DIR< FIN (incl BYE & LOGO), GET, HOST, MESSAGE,'
db ' SPACE, TYPE,',cr,lf,' and ALL.'
db cr,lf,'Also TEK (automatic invokation of Tek4010 graphics);'
db ' not a member of ALL.$'
csdshlp db cr,lf,'╩╣╤í╘±╡─╧┬┴╨ Server ├ⁿ┴ε╖├╬╩╙╨╨º(ENABLE)╗≥ ╬▐╨º(DISABLE):'
db cr,lf
db ' CD/CWD, DEL, DIR, FIN(░ⁿ└¿ BYE & LOGO), GET, HOST, MESSAGE,'
db ' SPACE, TYPE,',cr,lf,' ║═ ALL (╦∙╙╨├ⁿ┴ε).'
db cr,lf,'╡½╩╟ TEK ( TEK4010 ═╝╨╬╡─╫╘╢»╞⌠╢»)'
db ' ▓╗░ⁿ└¿╘┌ ALL ╓╨.$'
servmsg db 'Server commands available to remote user: $'
cservmsg db '╘╢│╠╙├╗º┐╔╩╣╙├╡─ Server ├ⁿ┴ε: $'
scwdmsg db 'CD/CWD: $'
sdelmsg db 'DELETE: $'
sdirmsg db 'DIR: $'
sfinmsg db 'FINISH: $'
sgetmsg db 'GET: $'
shstmsg db 'HOST: $'
ssndmsg db 'MESSAGE:$'
sspcmsg db 'SPACE: $'
stypmsg db 'TYPE: $'
stekmsg db 'Tek4010: $'
srvtab db 1 ; SET SERVER table
mkeyw 'Timeout',1
sethlp db cr,lf
db ' Alarm sec from now or HH:MM:SS '
db ' Input timeout, etc (for scripts)'
db cr,lf
db ' Attributes packets on/off '
db ' Key key-ident definition'
db cr,lf
db ' Baud or Speed many speeds '
db ' Local-echo on/off'
db cr,lf
db ' Bell on/off at end of xfers '
db ' Mode-line on/off'
db cr,lf
db ' Block-check-type checksum/CRC '
db ' Parity even/odd/mark/space/none'
db cr,lf
db ' COUNT number a loop counter '
db ' Port for i/o 1/2/COM1/COM2/etc'
db cr,lf
db ' Debug on/off display packets '
db ' Prompt string (new Kermit prompt)'
db cr,lf
db ' Default-disk '
db ' Receive parameter many things'
db cr,lf
db ' Delay secs before Sending file '
db ' Remote on/off show xfer counts?'
db cr,lf
db ' Destination Disk/Screen/Printer '
db ' Retry limit for packet send/receive'
db cr,lf
db ' Display quiet/reg/serial show cnts?'
db ' Send parameter many things'
db cr,lf
db ' Dump filespec screen to disk '
db ' Server parameter'
db cr,lf
db ' End-of-line char cr or whatever '
db ' Speed or baud many speeds '
db cr,lf
db ' EOF Ctrl-Z/NoCtrl-Z ^Z ends file? '
db ' Take-echo on/off display commands?'
db cr,lf
db ' Errorlevel number for DOS Batch '
db ' Terminal none, Heath-19, VT52, VT102,'
db cr,lf
db ' Escape char ^] or whatever '
db ' and many terminal setup parameters'
db cr,lf
db ' Flow-control xon-xoff or none '
db ' Timer on/off time packet waiting'
db cr,lf
db ' Handshake xon/xoff/cr/lf/bell/esc..'
db " Translation IN Connect mode rcv'd char"
db cr,lf
db ' Incomplete file keep/discard '
db ' Warning on/off if file renamed'
db cr,lf,'$'
csethlp db cr,lf
db ' Alarm ┤╙╧╓╘┌╗≥┤╙HH:MM:SS╞≡╡─╩²├δ '
db ' Input timeout, etc (╙├╙┌Scripts) '
db cr,lf
db ' Attributes packets on/off (╩⌠╨╘░ⁿ) '
db ' Key <╝ⁿ▒Ω╩╢╖√> <╢¿╥σ> '
db cr,lf
db ' Baud ╗≥ Speed ╢α╓╓╦┘┬╩ '
db ' Local-echo on/off '
db cr,lf
db ' Bell on/off (┐¬/╣╪) ╘┌┤½╦═╜ß╩°║≤╧∞┴σ '
db ' Mode-line on/off(┐¬/╣╪) ╫┤╠¼╨╨'
db cr,lf
db ' block-check-type checksum/crc '
db ' Parity even/odd/mark/space/none'
db cr,lf
db ' COUNT <╩²╫╓> ╥╗╕÷╤¡╗╖╝╞╩²╞≈ '
db ' Port I/O ╢╦┐┌ 1/2/COM1/COM2/etc'
db cr,lf
db ' Debug on/off ╧╘╩╛░ⁿ╨┼╧ó '
db ' Prompt <╫╓╖√┤«> (╨┬╡─ Kermit ╠ß╩╛╖√)'
db cr,lf
db ' default-disk (╚▒╩í┼╠) '
db ' Receive <▓╬╩²> ╨φ╢α╧ε '
db cr,lf
db ' Delay <├δ╩²> ┤½╦═╬─╝■╓«╟░╤╙│┘╩▒╝Σ '
db ' Remote On/off ╧╘╩╛┤½╦══│╝╞ '
db cr,lf
db ' Destination Disk/screen/Printer '
db ' Retry ░ⁿ╖ó╦═/╜╙╩╒╡─╓╪╕┤┤╬╩² '
db cr,lf
db ' Display quiet/reg/serial ╧╘╩╛─┌╚▌╡─╖╜╩╜'
db ' Send <▓╬╩²> ╨φ╢α╧ε '
db cr,lf
db ' Dump <╬─╝■├√> ░╤╞┴─╗╔╧╨┼╧ó┐╜╡╜┤┼┼╠ '
db ' Server <▓╬╩²>'
db cr,lf
db ' End-of-line ╫╓╖√<cr> ╗≥╞Σ╦√ (╨╨╜ß╩°╖√) '
db ' Speed ╗≥ Baud ╢α╓╓╦┘┬╩ '
db cr,lf
db ' EOF Ctrl-Z/NoCtrl-Z ^Z ╜ß╩°╬─╝■? '
db ' Take-echo on/off ╧╘╩╛├ⁿ┴ε'
db cr,lf
db ' Errorlevel <╩²╓╡> ╙├╙┌ DOS ┼·├ⁿ┴ε '
db ' Terminal none,heath-19, VT52, VT102,'
db cr,lf
db ' Escape ╫╓╖√ ^] ╗≥ ╞Σ╦ⁿ '
db ' ╥╘╝░╨φ╢α╓╒╢╦╔Φ╓├╡─▓╬╩² '
db cr,lf
db ' Flow-control xon/xoff ╗≥none (┴≈┴┐┐╪╓╞)'
db ' Timer on/off ░ⁿ╡╚┤²╡─╩▒╝Σ'
db cr,lf
db ' Handshake xon/xoff/cr/lf/bell/esc(╬╒╩╓)'
db ' Translation ╫¬╗╗Connect─ú╩╜╜╙╩╒╡─╫╓╖√'
db cr,lf
db ' Incomplet file keep/discard '
db ' Warning on/off ╝┘╚τ╬─╝■╓╪├ⁿ├√ '
db cr,lf,'$'
settab db 37 ; Set table
mkeyw 'Alarm',setalrm
mkeyw 'Attributes',setatt
mkeyw 'Baud',baudst
mkeyw 'Bell',bellst
mkeyw 'Block-check-type',blkset
mkeyw 'Count',takectr
mkeyw 'Debug',debst
mkeyw 'Default-disk',cwdir
mkeyw 'Delay',setdely
mkeyw 'Destination',desset
mkeyw 'Display',disply
mkeyw 'Dump',setdmp
mkeyw 'End-of-Line',eolset
mkeyw 'EOF',seteof
mkeyw 'Errorlevel',seterl
mkeyw 'Escape',escset
mkeyw 'Flow-control',floset
mkeyw 'Handshake',hndset
mkeyw 'Incomplete',abfset
mkeyw 'Input',inpset
mkeyw 'Key',setkey
mkeyw 'Local-echo',lcal
mkeyw 'Mode-line',modl
mkeyw 'Parity',setpar
mkeyw 'Port',coms
mkeyw 'Prompt',promset
mkeyw 'Receive',recset
mkeyw 'Remote',remset
mkeyw 'Retry',retryset
mkeyw 'Send',sendset
mkeyw 'Server',setsrv
mkeyw 'Speed',baudst
mkeyw 'Take-echo',takset
mkeyw 'Terminal',vts
mkeyw 'Timer',timset
mkeyw 'Translation',setrx
mkeyw 'Warning',filwar
seoftab db 2
mkeyw 'Ctrl-Z',1
mkeyw 'NoCtrl-Z',0
stsrtb db 8 ; Number of options
mkeyw 'Packet-length',srpack
mkeyw 'Padchar',srpad
mkeyw 'Padding',srnpd
mkeyw 'Pause',srpaus
mkeyw 'Start-of-packet',srsoh
mkeyw 'Quote',srquo
mkeyw 'End-of-Line',sreol
mkeyw 'Timeout',srtim
ontab db 2
mkeyw 'off',0
mkeyw 'on',1
modtab db 3 ; Mode line status
mkeyw 'off',0
mkeyw 'on',1
mkeyw 'on (owned by host)',2
destab db 3
mkeyw 'Disk',1
mkeyw 'Printer',0
mkeyw 'Screen',2
distab db 5 ; Set Display mode
mkeyw '7-bit',7 ; controls bit d8bit in flags.remflg
mkeyw '8-bit',8 ; sets d8bit
mkeyw 'Quiet',dquiet ; values defined in header file
mkeyw 'Regular',dregular
mkeyw 'Serial',dserial
dissta db 6 ; Status of Display mode [jrd]
mkeyw 'Quiet, 7-bit',dquiet
mkeyw 'Regular, 7-bit',dregular
mkeyw 'Serial, 7-bit',dserial
mkeyw 'Quiet, 8-bit',dquiet+d8bit
mkeyw 'Regular, 8-bit',dregular+d8bit
mkeyw 'Serial, 8-bit',dserial+d8bit
; What type of block check to use
blktab db 3
mkeyw '1-character-checksum',1
mkeyw '2-character-checksum',2
mkeyw '3-character-CRC-CCITT',3
; If abort when receiving files, can keep what we have or discard
abftab db 2
mkeyw 'Discard',1
mkeyw 'Keep',0
partab db 5
mkeyw 'none',PARNON
mkeyw 'even',PAREVN
mkeyw 'odd',PARODD
mkeyw 'mark',PARMRK
mkeyw 'space',PARSPC
flotab db 2
mkeyw 'none',flonon
mkeyw 'xon/xoff',floxon
hndtab db 8
mkeyw 'none',0
mkeyw 'bell',bell
mkeyw 'cr',cr
mkeyw 'esc',escape
mkeyw 'lf',lf
mkeyw 'xoff',xoff
mkeyw 'xon',xon
mkeyw 'code',0ffh ; allow general numerial code
inptab db 4 ; Scripts. Set Input
mkeyw 'Case',inpcas ;[jrs]
mkeyw 'Default-timeout',inptmo ;[jrs]
mkeyw 'Echo',inpeco ;[jrs]
mkeyw 'Timeout-action',inpact ;[jrs]
inactb db 2 ; Set Input Timeout Action
mkeyw 'Proceed',0 ;[jrs]
mkeyw 'Quit',1 ;[jrs]
incstb db 2 ;[jrs] Set Input Case
mkeyw 'Ignore',0dfh ;[jrs]
mkeyw 'Observe',0ffh ;[jrs]
bdtab db 18 ; Baud rate table
mkeyw '45.5',b00455
mkeyw '50',b0050
mkeyw '75',b0075
mkeyw '110',b0110
mkeyw '134.5',b01345
mkeyw '150',b0150
mkeyw '300',b0300
mkeyw '600',b0600
mkeyw '1200',b1200
mkeyw '1800',b1800
mkeyw '2000',b2000
mkeyw '2400',b2400
mkeyw '4800',b4800
mkeyw '9600',b9600
mkeyw '19200',b19200
mkeyw '38400',b38400
mkeyw '57600',b57600
mkeyw '115200',b115200
debtab db 4 ; Set Debug command
mkeyw 'Off',0
mkeyw 'On',logpkt+logses
mkeyw 'Packets',logpkt
mkeyw 'Session',logses
logtab db 3 ; LOG command
mkeyw 'Packets',logpkt
mkeyw 'Session',logses
mkeyw 'Transaction',logtrn
logsta db 8 ; Log Status table
mkeyw 'off',logoff ; suspended or no logging
mkeyw 'Packet',logpkt
mkeyw 'Session',logses
mkeyw 'Packet+Session',logpkt+logses
mkeyw 'Transaction',logtrn
mkeyw 'Packet+Transaction',logpkt+logtrn
mkeyw 'Session+Transaction',logses+logtrn
mkeyw 'Packet+Session+Transaction',logpkt+logses+logtrn
srvdetab db 12 ; Server Enable/Disable list
mkeyw 'All',01ffh
mkeyw 'CD',cwdflg
mkeyw 'CWD',cwdflg
mkeyw 'Delete',delflg
mkeyw 'Dir',dirflg
mkeyw 'Finish',finflg
mkeyw 'Get',getsflg
mkeyw 'Host',hostflg
mkeyw 'Message',sndflg
mkeyw 'Space',spcflg
mkeyw 'Type',typflg
mkeyw 'Tek4010',tekxflg ; for automatic Tektronix invokation
endistab db 2 ; Server ENABLE/DISABLE status
mkeyw 'enabled',0
mkeyw 'disabled',1
trnstab db 1 ; Set Translation table
mkeyw 'Input',1
; MACRO DATA STRUCTURES mcctab and macbuf
mcctab db 1 ; macro name table, one initially
mkeyw 'IBM',ibmmac ; offset of definition string (7 bytes)
db (macmax*10 - 7) dup (?) ; room for rest of macro names
mcclen equ $-mcctab ; length of mcctab
mccptr dw mcctab + 8 ; ptr to first free byte in mcctab
macbuf equ this byte ; buffer of macro strings
ibmmac db ibmlen ; startup IBM macro definition
db 'set timer on',cr,'set parity mark',cr
db 'set local-echo on',cr,'set handshake xon',cr
db 'set flow none',cr
ibmlen equ $-ibmmac-1
db (macmax*60 -ibmlen-1) dup (?) ; space for additonal macro defs
maclen equ $ - macbuf ; length of macbuf
macptr dw macbuf+ibmlen+1 ; ptr to first free byte in macbuf
; END OF MACRO DATA STRUCTURES
shom9m1 db cr,lf,' Free space (bytes) for names: $'
cshom9m1 db cr,lf,' ╙├╙┌<├√╫╓>╡─╫╘╙╔┐╒╝Σ(╫╓╜┌)╬¬: $'
shom9m2 db ', for definitions: $'
cshom9m2 db ', ╙├╙┌<╢¿╥σ╧ε>: $'
shom9m3 db cr,lf,' No macro(s)$'
cshom9m3 db cr,lf,' ├╗╙╨<║Ω>$'
shom9m4 db '<cr>$'
sttab stent <baudprt> ; STATUS
stent <srchkw,vtemst,termtb,flags.vtflg> ; terminal emulator
stent <srchkw,portst,comptab,flags.comflg>
stent <srchkw,modst,modtab,flags.modflg>
stent <srchkw,parmsg,partab,parflg,portval>
stent <prsnd, sndmsg>
stent <onoff,locst,,ecoflg,portval>
stent <stnum,stimst,,dtrans.stime>
stent <msg2,flost,floxmsg,floflg,portval>
stent <onechr,ssohst,,trans.ssoh>
stent <prhnd>
stent <stlnum,spakst,,trans.slongp>
stent <drnum,diskst,,curdsk>
stent <stnum,snpdst,,dtrans.spad>
stent <srchkw,destst,destab,flags.destflg>
stent <onechr,sqcst,,trans.rquote>
stent <onoff,flwon,,flags.flwflg>
stent <stnum,rtimst,,trans.rtime>
stent <msg2,abfkst,abfdst,flags.abfflg>
stent <onechr,rsohst,,trans.rsoh>
stent <srchkw,eofmsg,seoftab,flags.eofcz>
stent <stlnum,rpakst,,trans.rlongp>
stent <msg2,beloff,belon,flags.belflg>
stent <stnum,rnpdst,,trans.rpad>
stent <srchkw,capmsg,logsta,flags.capflg>
stent <onechr,rqcst,,dtrans.squote>
stent <onoff,timmsg,,flags.timflg>
stent <preol,meolst>
stent <srchkw,debon,logsta,flags.debug>
stent <stnum,retrymsg,,maxtry>
stent <onechr,escmes,,trans.escchr>
stent <srchkw,blokst,blktab,trans.chklen>
stent <srchkw,dispst,dissta,flags.remflg>
stent <pasz,dmpmsg2,offset dmpname>
stent <vtstat>
dw 0 ; end of table
csttab stent <baudprt> ; STATUS
stent <srchkw,cvtemst,termtb,flags.vtflg> ; terminal emulator
stent <srchkw,cportst,comptab,flags.comflg>
stent <srchkw,cmodst,modtab,flags.modflg>
stent <srchkw,cparmsg,partab,parflg,portval>
stent <prsnd, csndmsg>
stent <onoff,clocst,,ecoflg,portval>
stent <stnum,cstimst,,dtrans.stime>
stent <msg2,cflost,cfloxmsg,floflg,portval>
stent <onechr,cssohst,,trans.ssoh>
stent <prhnd>
stent <stlnum,cspakst,,trans.slongp>
stent <drnum,cdiskst,,curdsk>
stent <stnum,csnpdst,,dtrans.spad>
stent <srchkw,cdestst,destab,flags.destflg>
stent <onechr,csqcst,,trans.rquote>
stent <onoff,cflwon,,flags.flwflg>
stent <stnum,crtimst,,trans.rtime>
stent <msg2,cabfkst,cabfdst,flags.abfflg>
stent <onechr,crsohst,,trans.rsoh>
stent <srchkw,ceofmsg,seoftab,flags.eofcz>
stent <stlnum,crpakst,,trans.rlongp>
stent <msg2,cbeloff,cbelon,flags.belflg>
stent <stnum,crnpdst,,trans.rpad>
stent <srchkw,ccapmsg,logsta,flags.capflg>
stent <onechr,crqcst,,dtrans.squote>
stent <onoff,ctimmsg,,flags.timflg>
stent <preol,cmeolst>
stent <srchkw,cdebon,logsta,flags.debug>
stent <stnum,cretrymsg,,maxtry>
stent <onechr,cescmes,,trans.escchr>
stent <srchkw,cblokst,blktab,trans.chklen>
stent <srchkw,cdispst,dissta,flags.remflg>
stent <pasz,cdmpmsg2,offset dmpname>
stent <vtstat>
dw 0 ; end of table
stcom stent <srchkw,portst,comptab,flags.comflg> ; SHOW COMMS
stent <baudprt>
stent <onoff,locst,,ecoflg,portval>
stent <srchkw,parmsg,partab,parflg,portval>
stent <prhnd>
stent <msg2,flost,floxmsg,floflg,portval>
stent <srchkw,dispst,dissta,flags.remflg>
stent <srchkw,debon,logsta,flags.debug>
dw 0
cstcom stent <srchkw,cportst,comptab,flags.comflg> ; SHOW COMMS
stent <baudprt>
stent <onoff,clocst,,ecoflg,portval>
stent <srchkw,cparmsg,partab,parflg,portval>
stent <prhnd>
stent <msg2,cflost,cfloxmsg,floflg,portval>
stent <srchkw,cdispst,dissta,flags.remflg>
stent <srchkw,cdebon,logsta,flags.debug>
dw 0
stfile stent <drnum,diskst,,curdsk> ; SHOW FILE
stent <msg2,abfkst,abfdst,flags.abfflg>
stent <srchkw,destst,destab,flags.destflg>
stent <onoff,flwon,,flags.flwflg>
stent <srchkw,eofmsg,seoftab,flags.eofcz>
stent <onoff,takon,,flags.takflg>
stent <srchkw,dispst,dissta,flags.remflg>
stent <onoff,atton,,flags.attflg>
dw 0
cstfile stent <drnum,cdiskst,,curdsk> ; SHOW FILE
stent <msg2,cabfkst,abfdst,flags.abfflg>
stent <srchkw,cdestst,destab,flags.destflg>
stent <onoff,cflwon,,flags.flwflg>
stent <srchkw,ceofmsg,seoftab,flags.eofcz>
stent <onoff,ctakon,,flags.takflg>
stent <srchkw,cdispst,dissta,flags.remflg>
stent <onoff,catton,,flags.attflg>
dw 0
stlog stent <stmsg,logmsg> ; SHOW LOG
stent <srchkw,capmsg,logsta,flags.capflg>
stent <stmsg,spaces>
stent <pasz,lsesmsg,offset lsesnam>
stent <stmsg,spaces>
stent <pasz,lpktmsg,offset lpktnam>
stent <stmsg,spaces>
stent <pasz,ltramsg,offset ltranam>
stent <stmsg,spaces>
stent <pasz,dmpmsg,offset dmpname>
dw 0
cstlog stent <stmsg,clogmsg> ; SHOW LOG
stent <srchkw,ccapmsg,logsta,flags.capflg>
stent <stmsg,spaces>
stent <pasz,clsesmsg,offset lsesnam>
stent <stmsg,spaces>
stent <pasz,clpktmsg,offset lpktnam>
stent <stmsg,spaces>
stent <pasz,cltramsg,offset ltranam>
stent <stmsg,spaces>
stent <pasz,cdmpmsg,offset dmpname>
dw 0
stpro stent <stlnum,spakst,,trans.slongp> ; SHOW PROTOCOL
stent <stlnum,rpakst,,trans.rlongp>
stent <stnum,stimst,,dtrans.stime>
stent <stnum,rtimst,,trans.rtime>
stent <stnum,snpdst,,dtrans.spad>
stent <stnum,rnpdst,,trans.rpad>
stent <onechr,spadst,,dtrans.spadch>
stent <onechr,spadst,,trans.rpadch>
stent <onechr,ssohst,,trans.ssoh>
stent <onechr,rsohst,,trans.rsoh>
stent <onechr,sqcst,,dtrans.squote>
stent <onechr,rqcst,,trans.rquote>
stent <preol,meolst>
stent <stnum,retrymsg,,maxtry>
stent <prsnd,sndmsg>
stent <srchkw,blokst,blktab,trans.chklen>
stent <onoff,atton,,flags.attflg>
stent <prhnd>
stent <onoff,timmsg,,flags.timflg>
stent <srchkw,capmsg,logsta,flags.capflg>
stent <srchkw,debon,logsta,flags.debug>
dw 0
cstpro stent <stlnum,cspakst,,trans.slongp> ; SHOW PROTOCOL
stent <stlnum,crpakst,,trans.rlongp>
stent <stnum,cstimst,,dtrans.stime>
stent <stnum,crtimst,,trans.rtime>
stent <stnum,csnpdst,,dtrans.spad>
stent <stnum,crnpdst,,trans.rpad>
stent <onechr,cspadst,,dtrans.spadch>
stent <onechr,cspadst,,trans.rpadch>
stent <onechr,cssohst,,trans.ssoh>
stent <onechr,crsohst,,trans.rsoh>
stent <onechr,csqcst,,dtrans.squote>
stent <onechr,crqcst,,trans.rquote>
stent <preol,cmeolst>
stent <stnum,cretrymsg,,maxtry>
stent <prsnd,csndmsg>
stent <srchkw,cblokst,blktab,trans.chklen>
stent <onoff,catton,,flags.attflg>
stent <prhnd>
stent <onoff,ctimmsg,,flags.timflg>
stent <srchkw,ccapmsg,logsta,flags.capflg>
stent <srchkw,cdebon,logsta,flags.debug>
dw 0
stscpt stent <stmsg,scpmsg> ; SHOW SCRIPT
stent <onoff,sechmsg,,script.inecho>
stent <srchkw,scasmsg,incstb,script.incasv>
stent <stlnum,stmo1msg,,script.indfto>
stent <srchkw,stmo2msg,inactb,script.inactv>
stent <stalr,stalrmsg>
stent <stnum,sterlmsg,,errlev>
stent <stcnt,stcntmsg>
dw 0
cstscpt stent <stmsg,cscpmsg> ; SHOW SCRIPT
stent <onoff,csechmsg,,script.inecho>
stent <srchkw,cscasmsg,incstb,script.incasv>
stent <stlnum,cstmo1msg,,script.indfto>
stent <srchkw,cstmo2msg,inactb,script.inactv>
stent <stalr,cstalrmsg>
stent <stnum,csterlmsg,,errlev>
stent <stcnt,cstcntmsg>
dw 0
stserv stent <stmsg,servmsg> ; SHOW SERVER
stent <srchkb,scwdmsg,endistab,cwdflg,denyflg>
stent <srchkb,shstmsg,endistab,hostflg,denyflg>
stent <srchkb,sdelmsg,endistab,delflg,denyflg>
stent <srchkb,ssndmsg,endistab,sndflg,denyflg>
stent <srchkb,sdirmsg,endistab,dirflg,denyflg>
stent <srchkb,sspcmsg,endistab,spcflg,denyflg>
stent <srchkb,sfinmsg,endistab,finflg,denyflg>
stent <srchkb,stypmsg,endistab,typflg,denyflg>
stent <srchkb,sgetmsg,endistab,getsflg,denyflg>
dw 0
stserv2 stent <stnum,srvmsg,,srvtmo>
dw 0
cstserv stent <stmsg,servmsg> ; SHOW SERVER
stent <srchkb,scwdmsg,endistab,cwdflg,denyflg>
stent <srchkb,shstmsg,endistab,hostflg,denyflg>
stent <srchkb,sdelmsg,endistab,delflg,denyflg>
stent <srchkb,ssndmsg,endistab,sndflg,denyflg>
stent <srchkb,sdirmsg,endistab,dirflg,denyflg>
stent <srchkb,sspcmsg,endistab,spcflg,denyflg>
stent <srchkb,sfinmsg,endistab,finflg,denyflg>
stent <srchkb,stypmsg,endistab,typflg,denyflg>
stent <srchkb,sgetmsg,endistab,getsflg,denyflg>
dw 0
cstserv2 stent <stnum,csrvmsg,,srvtmo>
dw 0
stterm stent <srchkw,vtemst,termtb,flags.vtflg> ; SHOW TERMINAL
stent <srchkb,stekmsg,endistab,tekxflg,denyflg>
stent <onechr,escmes,,trans.escchr>
stent <srchkw,modst,modtab,flags.modflg>
stent <vtstat>
dw 0
cstterm stent <srchkw,cvtemst,termtb,flags.vtflg> ; SHOW TERMINAL
stent <srchkb,stekmsg,endistab,tekxflg,denyflg>
stent <onechr,cescmes,,trans.escchr>
stent <srchkw,cmodst,modtab,flags.modflg>
stent <vtstat>
dw 0
datas ends