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