; File MSSDEF.H verdef macro db ' Kermit-MS V2.28 jrd/5e 9 March 86' endm BELL EQU 07H TAB EQU 09H LF EQU 0AH FF EQU 0CH CR EQU 0DH XON EQU 11H XOFF EQU 13H ESC 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 ; 2.0 create [jrd] OPEN2 EQU 3DH ; 2.0 open CLOSE2 EQU 3EH ; 2.0 close READF2 EQU 3FH ; 2.0 read. WRITE2 EQU 40H ; 2.0 write DEL2 EQU 41H ; 2.0 delete LSEEK EQU 42H ; 2.0 lseek CHMOD2 EQU 43H ; 2.0 chmod IOCTL EQU 44H GCD EQU 47H ; 2.0 get current directory. ALLOC EQU 48H ; allocate memory FREEMEM EQU 49H ; free memory SETBLK EQU 4AH ; modify allocated memory map EXEC EQU 4BH ; 2.0 execute task FIRST2 EQU 4EH ; 2.0 search for first NEXT2 EQU 4FH ; 2.0 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. [jrd] 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. DMASIZ EQU 80H ; Size of DMA. FCBSIZ EQU 25H MAXTAK EQU 05 ; Max number of TAKE's allowed. MAXTRY EQU 05 ; Default number of retries on a packet. IMXTRY EQU 16 ; Default number of retries send initiate. DEFESC EQU ']'-40H ; The default escape character. DRPSIZ EQU 94 ; Default receive packet size. DSPSIZ EQU 94 ; Default send packet size. 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 '#' ; Default send quote char. DRQUOT EQU '#' ; Default receive quote char. DQBIN EQU '&' ; Default 8-bit prefix. DRPT EQU '~' ; Default repeat prefix. DCHKLEN EQU 1 ; Default checksum length. DEFPAR EQU PARNON ; Default parity (none.) IBMPAR EQU PARMRK ; IBM's parity (mark.) bufsiz equ 2048 ; size of serial input buffer buffsz equ 128 ; size of disk file i/o buffer (buff). [jrd] decsiz equ 128 ; size of decoding buffer. [jrd] cptsiz equ 256 ; size of session capture buffer. [jrd] portmax equ 8 ; # 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 BAUDSIZ EQU 16 ; Number of options for baud rate. ; 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 subset) TTTYPES equ 4 ; 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 decmode equ 80H ; "?" seen in lead-in ; VT100 SETUP mode flags (bit field in a byte) 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 vttbs dw 0 ; pointer to default tab stops vttbst dw 0 ; pointer to tab stops (both in mszibm) 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 ; Default to port 1. mdstat dw 0 ; Ditto. mdcom dw 0 ; Here too. mden db 0 mddis db 0 mdmeoi db 0 mdintv dw 0 mdminfo ends ; Command information. cmdinfo struc cmstat db 0 ; What is presently being parsed. cmaflg db 0 ; Non-zero when an action char has been found. cmccnt db 0 ; Non-zero if a significant char is found. 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 80H DUP(0) ; Buffer for command parsing. cmcptr dw 0 ; Pointer for next char input. cmdptr dw 0 ; Pointer into the command buffer. cmsiz dw 0 ; Size info of user input. cmkptr dw 0 ; Pointer to keyword. cmsptr dw 0 ; Place to save a pointer. cmchr db 0 ; Save char when checking ambiguity. cmrflg db 0 ; Assume parsing filename for send. cmcr db 0 ; Say whether bare CR is allowed. cmquiet db 0 ; non-zero for no echoing... 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). ibmflg db 0 ; IBM flag (default off). 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. [jrd] destflg db 1 ; Incoming files destination: disk or printer. eofcz db 0 ; ^Z signals eof if non-zero. remflg db 0 ; non-zero if in remote mode. modflg db 1 ; non-zero if mode line on. wrpflg db 0 ; non-zero if line wrap is to be done flginfo ends ; Transmission parameters trinfo struc maxdat db 0 ; Max packet size for send. 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. 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. 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. oldtry db 0 ; Number of tries on previous packet. state db 0 ; Present state of the automaton. argblk dw 0 ; For subroutine arguments. argbk1 dw 0 argbk2 dw 0 argbk3 dw 0 pktinfo ends filest struc ; [jrd] handle dw 0 ; 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 name db 13 dup(0) ; filename, asciiz, with dot, part of dta filest ends takinfo struc taktyp db 0 ; type: 0feH=valid file handle, 0ffH=a macro [jrd] takhnd dw 0 ; file handle [jrd] takbuf db dmasiz dup(0) takptr dw 0 takchl db 0 takcnt dw 0,0 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 mkeyw macro key,val local junk,oldval oldval equ $ db junk,key,'$' junk equ $-oldval-2 dw val endm ; definitions for terminal handler: termarg struc flgs db ? ; flags prt db ? ; port to use (0,1) cols db ? ; # columns on screen rows db ? ; # rows on screen captr dw ? ; routine to call with captured data belld dw ? ; bell divisor klen dw ? ; length of key redefinition table ktab dw ? ; address of key redefinition table krpl dw ? ; address of key replacement table escc db ? ; escape character baudb db ? ; baud rate bits. parity db ? ; 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 ; macro to save registers... saveac macro regs local cnt,lbl,xcnt cnt = 0 irp reg, push reg cnt = cnt+1 endm call lbl mov bp,sp xcnt = cnt irp reg, cnt = cnt-1 mov reg,[bp+2*cnt] endm mov bp,ax ; store ax temporarily lahf ; preserve flags add sp,2*xcnt sahf mov ax,bp ; restore ax ret lbl label near endm ; ; 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 ends cstack segment para stack 'stack' cstack ends datas segment public 'datas' datas ends