public setcom, status, baudprt, prmptr, dodef, stat0, statc public setcpt, docom, shomac, dmpname, stkadr public setrx, shorx, rxtable, shcom, shlog, shpro, shterm, shscpt public shfile, srvdsa, srvena, srchkw, srchkb, shserv public mcctab, takopen, takclos, ask, assign include ccsdef.h braceop equ 7bh ; opening curly brace bracecl equ 7dh ; closing curly brace macmax equ 50 ; max # of macros maketab MACRO ; Assembler Macro to make rxtable [jrd] cnt = 0 rept 256 db cnt ; initialize table to 0 .. 255 cnt = cnt + 1 endm db 0 ; table off (0) or on (1) indicator ENDM datas segment public 'datas' extrn comand:byte, intake:byte, flags:byte, trans:byte extrn takadr:word, taklev:byte, inichk:byte, portval:word extrn curdsk:byte, setktab:byte, setkhlp:byte, dtrans:byte extrn spause:byte, filtst:byte, maxtry:byte, imxtry:byte extrn script:byte, denyflg:word, comptab:byte, termtb:byte extrn sloghnd:word, ploghnd:word, tloghnd:word, decbuf:byte extrn kstatus:word, errlev:byte, alrhms:byte, srvtmo:byte extrn isccdos:byte kerm db 'Kermit-CC>$' crlf db cr,lf,'$' crlfsp db cr,lf,' ',' ','$' ; crlf space space eqs db ' = $' spaces db ' $' prmptr dw kerm ; pointer to prompt prm db 60 dup (?) ; Buffer for new prompt rdbuf db 255 dup (?) ; work space; room for macro def ; and for Status display line tempptr dw 0 ; pointer into work buffer domacptr dw 0 ; pointer to DO MAC string min dw 0 max dw 0 numerr dw 0 numhlp dw 0 stflg db 0 ; Says if setting SEND or RECEIVE parameter temp dw 0 temp1 dw 0 ; Temporary storage temp2 dw 0 ; Temporary storage deftemp dw 0 shmcnt dw 0 stent struc ; structure for status information table sttab sttyp dw ? ; type (actually routine to call) msg dw ? ; message to print val2 dw ? ; needed value: another message, or tbl addr tstcel dw ? ; address of cell to test, in data segment basval dw 0 ; base value, if non-zero stent ends ;;;;; Additional datas segment material is at the end of this file, to assist ;;;;; MASM 4 with out of symbol table space problems. datas ends