|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T m
Length: 17751 (0x4557)
Types: TextFile
Names: »mssdef.h«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦71044c191⟧ »EurOpenD3/misc/kermit.ms-2.32.tar.Z«
└─⟦31f2d420d⟧
└─⟦this⟧ »mssdef.h«
; File MSSDEF.H
.xlist ; suppress listing in program
.sall ; don't list macro expansions
verdef macro
db ' Kermit-MS: 2.32 11 Dec 1988'
endm
BELL EQU 07H
TAB EQU 09H
LF EQU 0AH
FF EQU 0CH
CR EQU 0DH
XON EQU 11H
XOFF EQU 13H
ESCAPE EQU 1BH
DEL EQU 7FH
BS EQU 08H
CTLZ EQU 1AH
SOH EQU 01H ; Start of header char
SPC EQU 20H
DOS EQU 21H
CONIN EQU 01H
CONOUT EQU 02H
RDRIN EQU 03H
PUNOUT EQU 04H
LSTOUT EQU 05H
DCONIO EQU 06H
CONINQ EQU 07H ; quiet console input
PRSTR EQU 09H
CONSTAT EQU 0BH
SELDSK EQU 0EH ; Select disk
GCURDSK EQU 19H ; Current disk
SETDMA EQU 1AH
GETTIM EQU 2CH ; Get the time of day.
DOSVER EQU 30H ; dos version #
GSWITCH EQU 37H ; undocumented get/set switch character
CHDIR EQU 3BH ; change directory
CREAT2 EQU 3CH ; create
OPEN2 EQU 3DH ; open
CLOSE2 EQU 3EH ; close
READF2 EQU 3FH ; read
WRITE2 EQU 40H ; write
DEL2 EQU 41H ; delete
LSEEK EQU 42H ; lseek
CHMOD2 EQU 43H ; chmod
IOCTL EQU 44H ; i/o control
GCD EQU 47H ; get current directory
ALLOC EQU 48H ; allocate memory
FREEMEM EQU 49H ; free memory
SETBLK EQU 4AH ; modify allocated memory map
EXEC EQU 4BH ; execute task
FIRST2 EQU 4EH ; search for first
NEXT2 EQU 4FH ; search for next
PAREVN EQU 00 ; Even parity
PARMRK EQU 01 ; Mark parity
PARNON EQU 02 ; No parity.
PARODD EQU 03 ; Odd parity
PARSPC EQU 04 ; Space parity
CMKEY EQU 01 ; Parse a keyword
CMCFM EQU 04 ; Parse a confirm
CMTXT EQU 05 ; Parse arbitrary text up to CR
CMFILE EQU 06 ; parse string surrounded by whitespace
FLOXON EQU 1113H ; Use XON/XOFF for flow control
FLONON EQU 0 ; Don't do flow control
DEFHAND EQU XON ; Use XON as default handshake
MODCD EQU 80H ; MODEM CD handshake line status responses
MODCTS EQU 10H ; MODEM CTS
MODDSR EQU 20H ; MODEM DSR
; flags.remflg byte definitions
DQUIET EQU 1 ; Display mode, suppress file xfer statistics
DREGULAR EQU 2 ; Regular formatted screen display of statistics
DSERIAL EQU 4 ; Serial mode (non-formatted screen)
D8BIT EQU 8 ; Display chars as 8-bit vs 7-bit quantities
DSERVER EQU 10H ; Server mode active, if this bit is set
MAXTAK EQU 25 ; Max number of TAKE's allowed
DEFMXTRY EQU 5 ; default number of retries on a data packet (63 max)
; Init packet gets three times this number of tries
DEFESC EQU 1DH ; The default escape character (Control rt sq bracket)
DRPSIZ EQU 94 ; Default receive packet size, regular pkts
DSPSIZ EQU 94 ; Default send packet size, regular pkts
DSTIME EQU 08 ; Default send time out interval
DRTIME EQU 13 ; Default receive time out interval
DSRVTM EQU 30 ; Default server timeout
DSPAD EQU 0 ; Default send padding
DRPAD EQU 0 ; Default receive padding
DSPADC EQU 0 ; Default send padding char
DRPADC EQU 0 ; Default receive padding char
DSEOL EQU CR ; Default send EOL char
DREOL EQU CR ; Default receive EOL char
DSSOH EQU SOH ; Default send start-of-packet char
DRSOH EQU SOH ; Default receive start-of-packet char
DSQUOT EQU 23H ; Default send quote char
DRQUOT EQU 23H ; Default receive quote char
DQBIN EQU 26H ; Default 8-bit prefix
DRPT EQU 7EH ; Default repeat prefix
DCHKLEN EQU 1 ; Default checksum length
DEFPAR EQU PARNON ; Default parity (none)
IBMPAR EQU PARMRK ; IBM's parity (mark)
maxpack equ 1000 ; max packet length. Sets buffer sizes, capabilities
bufsiz equ 1536 ; size of serial port input buffer
buffsz equ 512 ; size of disk file i/o buffer (buff)
cptsiz equ 256 ; size of session capture buffer
dmasiz equ 128 ; size of dma and Take buffers (do not adjust)
portmax equ 4 ; # of serial ports
; baud rate definitions
B00455 EQU 0 ; 45.5 baud
B0050 EQU 1 ; 50 baud
B0075 EQU 2 ; 75 baud
B0110 EQU 3 ; 110 baud
B01345 EQU 4 ; 134.5 baud
B0150 EQU 5 ; 150 baud
B0300 EQU 6 ; 300 baud
B0600 EQU 7 ; 600 baud
B1200 EQU 8 ; 1200 baud
B1800 EQU 9 ; 1800 baud
B2000 EQU 10 ; 2000 baud
B2400 EQU 11 ; 2400 baud
B4800 EQU 12 ; 4800 baud
B9600 EQU 13 ; 9600 baud
B19200 EQU 14 ; 19200 baud
B38400 EQU 15 ; 38400 baud
B57600 EQU 16 ; 57600 baud
B115200 EQU 17 ; 115200 baud
BAUDSIZ EQU 18 ; Number of options for baud rate
; bit defs for flags.capflg (LOG command)
logoff equ 0 ; Off = no or suspended logging
logdeb equ 1 ; log debugging (not yet imp)
logpkt equ 2 ; log packets sent/received
logses equ 4 ; log connect mode session
logtrn equ 8 ; log (file) transaction
; Terminal emulator section
; Kinds of terminals available; VT52 and VT100 for IBM & clones only.
ttgenrc equ 0 ; Type 0: no emulation done by Kermit
ttheath equ 1 ; Type 1: Heath-19
ttvt52 equ 2 ; Type 2: VT52
ttvt100 equ 3 ; Type 3: ANSI/VT102
tttek equ 4 ; Type 4: Tektronix 4010
TTTYPES equ 5 ; Number of terminal types defined
; VT100 status flags
anslnm equ 01H ; ANSI line feed/new line mode
decckm equ 02H ; VT100 cursor keys mode
deckpam equ 04H ; VT100 keypad application mode
decscnm equ 08H ; VT100 screen mode (n.y.i.)
decom equ 10H ; VT100 origin mode
decawm equ 20H ; VT100 autowrap mode
decanm equ 40H ; ANSI(VT100)/VT52 mode
dececho equ 80H ; ANSI local echo on (1)
; VT100 SETUP mode flags (bit field in a byte)
vswdir equ 80H ; Writing direction (0=left, 1 right)
vsscreen equ 40H ; Screen (0 = normal, 1 = rev. video)
vscursor equ 20H ; Cursor (0 = block, 1 = underline)
vsmarginbell equ 10H ; Margin bell (0 = off)
vskeyclick equ 08H ; Keyclick (0 = off)
vsshift3 equ 04H ; Shift-3 (0 = American pound sign #)
vswrap equ 02H ; Line wrap around (0 = no wrap)
vsnewline equ 01H ; ANSI new line (0 = off)
; VT100 defaults for SETUP
; Note: Tab stops default to columns 9, 17, 25, 33, 41, 49, 57, 65, & 73
; Adjust them via Set Term Tabs
;
; VSDEFAULTS holds Kermit startup time settings for the VT100 emulator
; Configure it by adding together names from the setup mode flags above
; to turn on features (they default to being off if not mentioned).
; Set the kind of terminal by placing a ttxxxx name in VTFLGS in the
; FLGINFO structure well below.
vsdefaults equ 0+vscursor ; + your favorite conditions
emulst struc ; structure for terminal emulator global data
vtflgst db 0 ; VT100 setup flags
vtflgop db 0 ; VT100 runtime flags, like setup flags
vttbs dw 0 ; pointer to default tab stops
vttbst dw 0 ; pointer to tab stops (both in mszibm)
vtchset db 1 ; value of default character set (1=US-ascii)
att_ptr dw 0 ; pointer to video attributes: nor, rev
emulst ends
; end of terminal emulator section
; Structure definitions
; Modem information
mdminfo struc
mddat dw 0
mdstat dw 0
mdcom dw 0
mden db 0
mddis db 0
mdmeoi db 0
mdintv dw 0
mdminfo ends
; Command information
cmdinfo struc
cmsflg db 0 ; Non-zero when the last char was a space
cmostp dw 0 ; Old stack pointer for reparse
cmrprs dw 0 ; Address to go to on reparse
cmprmp dw 0 ; Address of prompt
cmptab dw 0 ; Address of present keyword table
cmhlp dw 0 ; Address of present help
cmdbuf db 255 DUP (0) ; Buffer for command parsing
cmwptr dw 0 ; Pointer for next char write
cmrptr dw 0 ; Pointer for next char read
cmsiz dw 0 ; Size info of user input
cmsptr dw 0 ; Place to save a pointer
cmwhite db 0 ; non-zero to permit leading whitespace
cmcr db 0 ; Say whether bare CR is allowed
cmper db 0 ; Allow literal backslash-percent in command
cmquiet db 0 ; non-zero for no echoing
cmkeep db 0 ; non-zero to keep Take/Macro open after EOF
cmblen db 0 ; length of caller's cmtxt receiving buffer
impdo db 0 ; non-zero for keyword search failure to use DO cmd
cmdinfo ends
; Flags information
flginfo struc
belflg db 1 ; Use bell
comflg db 1 ; Use COM1 by default
abfflg db 1 ; Discard incoming file if abort
debug db 0 ; Debugging mode (default off)
flwflg db 1 ; File warning flag (default on)
extflg db 0 ; Exit flag (default off)
vtflg db ttvt100 ; term emulation (0=none, 1=Heath19, 2=VT52, 3=VT100)
nmoflg db 0 ; Override name from the F packet
cxzflg db 0 ; ^X/^Z to interrupt file x-fer
xflg db 0 ; Seen "X" packet
filflg db 0 ; Non-zero when nothing in DMA buffer
eoflag db 0 ; EOF flag; non-zero on EOF
getflg db 0 ; Assume normal RECEIVE (not GET)
capflg db 0 ; On if capturing data
takflg db 0 ; On if echoing commands of TAKE file
timflg db 1 ; Say if are timing out or not
destflg db 1 ; Incoming files destination: disk or printer
eofcz db 0 ; ^Z signals eof if non-zero
remflg db DREGULAR ; server (remote) mode plus display flag bits
modflg db 1 ; non-zero if mode line on
attflg db 1 ; non-zero if file attributes packets are enabled
flginfo ends
; Transmission parameters
trinfo struc
maxdat dw 0 ; Max packet size for send, word for long packets
chklen db 1 ; Number of characters in checksum
seol db dseol ; Send EOL char
reol db dreol ; Receive EOL char
ssoh db dssoh ; Send start-of-packet character
rsoh db drsoh ; Receive start-of-packet character
squote db dsquot ; Send quote character
rquote db drquot ; Receive quote character
spsiz db dspsiz ; Send packet size
rpsiz db drpsiz ; Receive packet size
stime db dstime ; Send timeout. (Don't timeout)
rtime db drtime ; Receive timeout
sdelay db 0 ; Send delay time (sec) for just SEND command
spad db dspad ; Send padding
rpad db drpad ; Receive padding
spadch db dspadc ; Send padding char
rpadch db drpadc ; Receive padding char
ebquot db 'Y' ; Send 8-bit quote character
escchr db defesc ; Escape character
; new fields for long packets
capas db 2 ; Capas byte, just long packets, needs a name
windo db 0 ; window size (not used, yet)
rlongp dw drpsiz ; long pkt size we want to receive
slongp dw maxpack ; long pkt size we could send (negotiated with host)
slong dw maxpack ; longest pkt size we will send, from Set Send Pkt
trinfo ends
pktinfo struc
pktnum dw 0 ; Packet number
numpkt dw 0 ; Total number of packets sent
numrtr dw 0 ; Total number of retries
numtry db 0 ; Number of tries on this packet
state db 0 ; Present state of the automaton
seqnum dw 0 ; For subroutine arguments. packet SEQ number
datlen dw 0 ; length of data field in a packet
lentyp db 0 ; packet length type (3=regular, 0=long, 1=extra long)
pktinfo ends
filest struc ;
handle dw -1 ; DOS 2.0 file handle
string db 64 dup(0) ; complete filename string, including drive and path
dta db 26 dup(0) ; 21 resev'd bytes, file attr, 2 each date & time
sizelo dw 0 ; file size, 4 bytes, part of dta
sizehi dw 0
fname db 13 dup(0) ; filename, asciiz, with dot, part of dta
fstat db 0 ; status of Find First DOS call
filest ends
takinfo struc ; Take file structure
taktyp db 0 ; type: 0FEh = valid file handle, 0FFh = a macro
takhnd dw 0 ; file handle
takbuf dw 0 ; offset of Take buffer
takptr dw 0 ; pointer in buffer to next char to read
takcnt dw 0 ; number of unread bytes in buffer
takctr dw 0 ; COUNT variable for script program control
takinfo ends
; Port Information
prtinfo struc
baud dw 0 ; Default baud rate
ecoflg db 0 ; Local echo flag (default off)
parflg db 0 ; Parity flag (default none.)
floflg db 0 ; If need flow control during file x-fer
hndflg db 0 ; If need handshake during file x-fer
hands db 0 ; Default handshake
flowc dw 0 ; Do flow control with XON/XOFF
prtinfo ends
; ENABLE/DISABLE bits for denyflg
cwdflg equ 1 ; deny remote cwd
delflg equ 2 ; deny remote del
dirflg equ 4 ; deny remote dir
hostflg equ 8 ; deny remote host
spcflg equ 10H ; deny remote space
finflg equ 20H ; deny fin, bye, logo to server
getsflg equ 40H ; deny paths in get cmds to server
sndflg equ 80H ; deny paths in send cmds to server
typflg equ 100H ; deny paths in type
tekxflg equ 200h ; deny automatic Tektronix invokation
statinfo struc ; statistics, basic information layout
prbyte dw 2 dup (0) ; number of bytes received by port
psbyte dw 2 dup (0) ; number of bytes sent to port
frbyte dw 2 dup (0) ; bytes received
fsbyte dw 2 dup (0) ; bytes sent
prpkt dw 2 dup (0) ; number of packets received
pspkt dw 2 dup (0) ; number of packets sent
nakrcnt dw 0 ; count of naks received
nakscnt dw 0 ; count of naks sent
btime dw 2 dup (0) ; start time (seconds) of transfer
etime dw 2 dup (0) ; elapsed time (seconds) of transfer
xstatus db 0 ; transfer status
xname db 64 dup (0) ; alias (send/receive as) filename
statinfo ends
scptinfo struc ; scripts
inactv db 0 ; input action value (default proceed)
incasv db 0dfh ; input case (default ignore)
indfto dw 1 ; input and pause timeout (def 1 sec)
inecho db 1 ; echo Input cmd text (0 = no)
scptinfo ends
mkeyw macro key,value ; widely used data structure
local keylen,start
start equ $ ; remember start address of structure
db keylen,key,'$' ; length of "key", 'key','$'
keylen equ $-start-2 ; number of bytes in "key"
dw value
endm
; definitions for terminal handler:
termarg struc
flgs db 0 ; flags
prt db 0 ; port to use (0,1)
cols db 0 ; # columns on screen
rows db 0 ; # rows on screen
captr dw 0 ; routine to call with captured data
belld dw 0 ; bell divisor
klen dw 0 ; length of key redefinition table
ktab dw 0 ; address of key redefinition table
krpl dw 0 ; address of key replacement table
escc db 0 ; escape character
baudb db 0 ; baud rate bits
parity db 0 ; parity
termarg ends
; bits for flag byte
scrsam equ 80h ; on if shouldn't redraw screen
capt equ 40h ; capture output
emheath equ 20h ; emulate heath
havtt equ 10h ; have translate table
trnctl equ 08h ; translate control chars
modoff equ 04h ; mode line off
lnwrap equ 02h ; auto-wrap long lines
lclecho equ 01h ; local echo
;
; Note well. The following segment references are in THIS file to provide
; the desired ordering of them in memory. To wit: lowest addresses for
; 'code', followed by 'cstack', and only then by 'datas'. The code below
; causes the assembler to encounter the segments in this desired order. It
; may output them in either order-of-encounter or alphabetically (since they
; are forced to be synonymous); and it allows the linker to place them in
; either its order-of-encounter or alphabetically. If you are in doubt as to
; what your utilities do then ask the linker for a memory map and ensure the
; order is as stated above. Joe R. Doupnik 26 Dec 1985. [jrd]
code segment public 'code'
code ends
cstack segment para stack 'stack'
cstack ends
datas segment public 'datas'
datas ends
.list