home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ccdos.tar.gz
/
ccdos.tar
/
ccsset1.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
3KB
|
62 lines
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