home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ccdos.tar.gz
/
ccdos.tar
/
ccscmd.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
2KB
|
43 lines
public comnd, comand, prserr
public intake, isdev, iseof, prompt, tolowr
include ccsdef.h
datas segment public 'datas'
extrn flags:byte, trans:byte, taklev:byte, takadr:word, mcctab:byte
extrn kstatus:byte
extrn isccdos:byte ; Jun 25,1990
comand cmdinfo <>
cmer00 db cr,lf,'?Program internal error, recovering$'
ccmer00 db cr,lf,'?│╠╨≥─┌▓┐┤φ╬≤,╒²╘┌╗╓╕┤╓«╓╨ $'
cmer01 db cr,lf,'?More parameters are needed$'
ccmer01 db cr,lf,'?╨Φ╥¬╕ⁿ╢α╡─▓╬╩² $'
cmer02 db cr,lf,'?Word "$'
ccmer02 db cr,lf,'?╫╓ "$'
cmer03 db '" is not usable here$'
ccmer03 db '" ▓╗─▄╩╣╙├ $'
cmer04 db '" is ambiguous$'
ccmer04 db '" ╥Γ╥σ▓╗├≈╚╖ $'
cmer07 db cr,lf,'?Ignoring extra characters "$'
ccmer07 db cr,lf,' ║÷┬╘╢ε═Γ╫╓╖√ "$'
cmer08 db '"$'
cmer09 db cr,lf,'?Text exceeded available buffer capacity$'
ccmer09 db cr,lf,'?╒²╬─│¼│÷┐╔╙├╡─╗║│σ╟°╚▌┴┐$'
cmin00 db ' Confirm with carriage return$'
ccmin00 db ' ╙├╗╪│╡╚╖╚╧$'
cmin01 db ' One of the following:',cr,lf,'$'
ccmin01 db ' ╤í╘±╧┬╩÷╓«╥╗:',cr,lf,'$'
stkmsg db cr,lf,bell,'?Exhausted work space! Circular definition?$'
cstkmsg db cr,lf,bell,'? ├╗╙╨╣ñ╫≈┐╒╝Σ┴╦! ╩╟╖±╤¡╗╖╢¿╥σ ?$'
crlf db cr,lf,'$'
ctcmsg db 5eh,'C$'
temp dw 0 ; temp (counts char/line so far)
errflag db 0 ; non-zero to suppress cmcfrm errors
kwstat db 0 ; get-keyword status
cmdstk dw 0 ; stack pointer at comand call time
intake db 0 ; last command line was from Take
prevch db 0 ; previous char read by cmgetc
noparse db 0 ; semicolons not special, if non-zero
subcnt db 0 ; count of chars matched in '\%'
datas ends