Columbia Kermit

home *** CD-ROM | disk | FTP | other *** search

/ Columbia Kermit / kermit.zip / a / mssdef.h < prev next >

Wrap

Text File | 2020-01-01 | 20.5 KB | 610 lines

; File MSSDEF.H ; Copyright (C) 1982, 1997, Trustees of Columbia University in the ; City of New York. The MS-DOS Kermit software may not be, in whole ; or in part, licensed or sold for profit as a software product itself, ; nor may it be included in or distributed with commercial products ; or otherwise distributed by commercial concerns to their clients ; or customers without written permission of the Office of Kermit ; Development and Distribution, Columbia University. This copyright ; notice must not be removed, altered, or obscured. ;; MASM v6, use MASM 5.1 constructions (/Zm) OPTION M510 .xlist ; suppress listing in program .sall ; don't list macro expansions ; define MS-DOS Kermit conditionals ; comment out line to re-enable functionality ;nls_portuguese equ 1 ; for Portuguese (Brazil) legends ;no_terminal equ 1 ; no terminal emulation (no Connect mode) ;no_graphics equ 1 ; no Tektronix and no Data General graphics ;no_network equ 1 ; no network support at all ;no_tcp equ 1 ; no internal TCP/IP stack ifdef no_network no_tcp equ 1 ; tcp is a network channel endif ifdef no_terminal ; implies no graphics no_graphics equ 1 endif ; no_terminal ; Below is for medium-lite (TCP but no terminal emulation) ;no_terminal equ 1 ;no_graphics equ 1 ; Note on conditionals: if defining no_graphics then omit file msgibm.asm. ; if defining no_network or no_tcp then omit files msn*.c, msn*.asm, msn*.h. ; if defining no_terminal then omit the above plus msuibm.asm and mszibm.asm. version equ 315 ; master version number verdef macro db ' MS-DOS Kermit: 3.15' ifdef nls_portuguese db ' Portuguese' endif ; nls_portuguese db ' 15 Sept 1997' 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 SS2 equ 8eh SS3 equ 8fh DCS equ 90h CSI equ 9bh STCHR equ 9ch DOS EQU 21H CONIN EQU 01H CONOUT EQU 02H 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 SETINTV EQU 25H ; Set interrupt vector from ds:dx GETDATE EQU 2AH ; Get date GETTIM EQU 2CH ; Get the time of day DOSVER EQU 30H ; dos version # GETINTV EQU 35H ; get interrupt vector to es:bx 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 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 fileattr equ 57h ; get/set file's date and time 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 PARHARDWARE EQU 10h ; indicator of hardware parity PAREVNH EQU PARHARDWARE+PAREVN ; hardware parity (9-bit bytes) PARMRKH EQU PARHARDWARE+PARMRK PARODDH EQU PARHARDWARE+PARODD PARSPCH EQU PARHARDWARE+PARSPC 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 MODRI EQU 40H ; MODEM RI ; 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 8 ; Default send time out interval DSQUOT EQU 23H ; Default send (and receive) quote char DQBIN EQU 26H ; Default 8-bit prefix DCHKLEN EQU 1 ; Default checksum length DEFPAR EQU PARNON ; Default parity (none) DEFRPTQ EQU 7EH ; Default repeat quote bufsiz equ 1536 ; size of serial port input buffer buffsz equ 512 ; size of disk file i/o buffer (buff) cmdblen equ 1000 ; length of command lines (sharing buffers) cptsiz equ 256 ; size of session capture buffer tbufsiz equ 1000 ; size of Take buffers decbuflen equ 1024 ; length of decode/work buffer encbuflen equ 512 ; length of encode buffer maxwind equ 32 ; max number of window slots macmax equ 160 ; max number of macros ; 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 ; Attributes-allowed bits in flags.attflg attchr equ 1 ; File Character-set attdate equ 2 ; File Date/Time attlen equ 4 ; File Length atttype equ 8 ; File Type attsys equ 16 ; System-identification xfr_xparent equ 0 ; transfer character set indices xfr_latin1 equ 1 ; ref table charids in mssfil.asm xfr_latin2 equ 2 xfr_hebiso equ 3 xfr_cyrillic equ 4 xfr_japanese equ 5 lock_disable equ 0 ; transfer locking shift capability lock_enable equ 1 lock_force equ 2 filecol_rename equ 0 ; File Collision actions for flags.flwflg filecol_overwrite equ 1 ; match with Rem Set File Collision codes filecol_backup equ 2 filecol_append equ 3 filecol_discard equ 4 filecol_ask equ 5 filecol_update equ 6 ; Terminal emulator section ; Kinds of terminals available ttgenrc equ 0 ; no emulation done by Kermit ttheath equ 1 ; Heath-19 ttvt52 equ 2 ; VT52 ttvt100 equ 4 ; VT100 ttvt102 equ 8 ; VT102 ttvt220 equ 10h ; VT220 ttvt320 equ 20h ; VT320 tttek equ 40h ; Tektronix 4010 tthoney equ 80h ; Honeywell VIP7809 ttpt200 equ 100h ; Prime PT200 ttd463 equ 200h ; Data General D463 ttd470 equ 400h ; Data General D470 ttwyse equ 800h ; Wyse-50 ttd217 equ 1000h ; Data General D217 (D463 w/217 ident) ttansi equ 2000h ; Ansi.sys flavor (VT100 base) TTTYPES equ 15 ; Number of terminal types defined ; tekflg bits in byte tek_active equ 1 ; actively in graphics mode tek_tek equ 2 ; Tek terminal tek_dec equ 4 ; Tek submode of DEC terminals tek_sg equ 8 ; special graphics mode ; DEC emulator status flags (bits in words vtemu.vtflgst and vtemu.vtflgop) anslnm equ 1H ; ANSI line feed/new line mode decawm equ 2H ; DEC autowrap mode decscnm equ 80H ; DEC screen mode decckm equ 200H ; DEC cursor keys mode deckpam equ 400H ; DEC keypad application mode decom equ 800H ; DEC origin mode deccol equ 1000H ; DEC column mode (0=80 col) decanm equ 2000H ; ANSI mode ;dececho equ 4000H ; ANSI local echo on (1 = on) ; Terminal SETUP mode flags (joint with bits above, some name dups) vsnewline equ 1H ; ANSI new line (0 = off) vswrap equ 2H ; Line wrap around (0 = no wrap) vsnrcm equ 4H ; National Rep Char set (0=none) vswdir equ 8H ; Writing direction (0=left, 1 right) vskeyclick equ 10H ; Keyclick (0 = off) vsmarginbell equ 20H ; Margin bell (0 = off) vscursor equ 40H ; Cursor (0 = block, 1 = underline) vsscreen equ 80H ; Screen (0 = normal, 1 = rev. video) vscntl equ 100h ; 8 or 7 bit controls (1 = 8-bit) vshscroll equ 4000h ; horiz scroll (0=auto, 1=manual) vscompress equ 8000h ; compressed text(0=graphics,1=132col) ; VTxxx defaults for SETUP ; Note: Tab stops default to columns 9, 17, 25, 33, etc ; ; 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+vshscroll+vscompress ; default conditions emulst struc ; structure for terminal emulator global data vtflgst dw 0 ; VTxxx setup flags vtflgop dw 0 ; VTxxx 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 16 ; value of default character set (16=Latin-1) vtchop db 16 ; value of operational char set att_ptr dw 0 ; pointer to video attributes: norm, rev vttable db 4 dup (0ffh) ; char set number for G0..G3 overrides vtdnld db 1 ; autodownload Kermit files (0 = off) emulst ends ; end of terminal emulator section ; Structure definitions ifdef save_mem2 ; define only for Xenix builds save_mem equ 1 ; for Xenix endif ifndef save_mem2 ; for regular DOS builds ; Command parser information cmdinfo struc cmrprs dd 0 ; offset,segment of where to jmp on reparsing cmostp dw 0 ; place to remember stack pointer cmblen dw 0 ; length of caller's cmtxt receiving buffer cmprmp dw 0 ; address (ds:offset) of prompt cmwhite db 0 ; non-zero to permit leading whitespace cmcr db 0 ; non-zero to accept bare CR cmper db 0 ; non-zero to allow literal backslash-percent in cmd cmquiet db 0 ; non-zero for no echoing cmkeep db 0 ; non-zero to keep Take/Macro open after EOF impdo db 0 ; non-zero for keyword search failure to use DO cmd cmdirect db 0 ; non-zero to force reading from kbd/file, not Take. cmdonum db 0 ; non-zero to allow \number -> byte expansion cmcomma db 0 ; non-zero to convert comma to space separator cmcnvkind db 0 ; see cmcnv_* for parser output filter kinds cmarray db 0 ; non-zero to allow substitution in array brackets cmdinfo ends ; Command parser equates cmkey equ 1 ; parse a keyword cmeol equ 4 ; parse a CR end of line character cmline equ 5 ; parse line of text up to CR cmword equ 6 ; parse an arbitrary word cmcnv_none equ 0 ; CR within curly braces is normal terminator cmcnv_crprot equ 1 ; allow CR within curly braces endif ; equates for flags.destflg dest_printer equ 0 dest_disk equ 1 dest_screen equ 2 dest_memory equ 4 ; Flags information flginfo struc belflg db 1 ; Use bell comflg db 1 ; Use COM1 by default abfflg db 0 ; Keep incoming file if abort debug db 0 ; Debugging mode (default off) flwflg db 0 ; File warning (collision) flag (default rename) extflg db 0 ; Exit flag (default off) vtflg dw ttvt320 ; term emulation type, default cxzflg db 0 ; ^X/^Z to interrupt file x-fer xflg db 0 ; Seen "X" packet eoflag db 0 ; EOF flag; non-zero on EOF 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 0ffh ; non-zero if file attributes packets are enabled chrset dw 0 ; ident of file character set (437=hardware, CP437) unkchs db 0 ; files w/unknown-character-set (0=keep, 1=cancel) xltkbd db 1 ; keyboard character-set translation (1=on, 0=off) oshift db 0 ; output-shift (1 = auto, 0 = none, default none) exitwarn db 1 ; exit warning if active session (0 = ignore) carrier db 0 ; check Carrier Detect (0 = ignore) flginfo ends ifndef save_mem2 ; 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 cr ; Send EOL char reol db cr ; Receive EOL char ssoh db soh ; Send start-of-packet character rsoh db soh ; Receive start-of-packet character squote db dsquot ; Send quote character rquote db dsquot ; Receive quote character rptq db 7eh ; Repeat quote character (tilde) rptqenable db 1 ; Repeat quote character enable (1)/disable(0) spsiz db dspsiz ; Send (regular) packet size rpsiz db drpsiz ; Receive (regular) packet size stime db dstime ; Send timeout. (Don't timeout) rtime db 5 ; Receive timeout sdelay db 0 ; Send delay time (sec) for just SEND command spad db 0 ; Send number of padding char rpad db 0 ; Receive number of padding char spadch db 0 ; Send padding char rpadch db 0 ; Receive padding char ebquot db 'Y' ; Send 8-bit quote character escchr db defesc ; Escape character capas db 2,0 ; Capas bytes (just two for now) windo db 1 ; number of window slots rlong dw drpsiz ; long pkt size we want to receive slong dw 9024 ; long pkt size we could send (negotiated with host) xchset db 0 ; transfer char set (0=hardware) on comms wire xchri db 0 ; transfer char set readable (0) or invertible (1) xtype db 0 ; file type for xfer (0=text,1=binary,etc) sdbl db 0 ; char to be doubled when sending (if non-null) rign db 0 ; char to be ignored when received (if non-null) lshift db lock_enable ; locking shift (0=disable, 1=enable, 2=force on) cpkind db 0 ; checkpoint availability cpint dd 0 ; checkpoint interval xmode db 0 ; binary/manual mode sensing (0=manual) trinfo ends endif ifndef save_mem pktinfo struc datadr dd 0 ; data field address (segment:offset) datlen dw 0 ; length of data field in a packet datsize dw 0 ; length of data field buffer pktype db 0 ; packet type, a letter seqnum db 0 ; packet SEQ number ackdone db 0 ; zero if pkt not ack'ed yet numtry db 0 ; number of tries on this packet sndtime dd 0 ; time packet sent, Bios clock ticks pktinfo ends endif filest struc dta db 26 dup(0) ; DOS, 21 resev'd bytes, file attr, 2 each date & time sizelo dw 0 ; DOS, file size double word sizehi dw 0 fname db 13 dup(0) ; DOS, filename, asciiz, with dot. End of DOS section handle dw -1 ; Kermit, file handle string db 64 dup(0) ; Kermit, filename string, including drive and path fstat db 0 ; Kermit, status of Find First DOS call fstat2 db 0 ; zero for disk file, non-zero for device filest ends takinfo struc ; Take file structure taktyp db 0 ; type: valid file, macro, text subsititution takinvoke db 0 ; taklev of previous DO or top level cmd parser takhnd dw 0 ; file handle takptr dw 0 ; pointer in buffer to next char to read takbuf dw 0 ; segment of Take buffer, must be dd part of takptr takcnt dw 0 ; number of unread bytes in buffer takctr dw 0 ; COUNT variable for script program control takargc dw 0 ; argument quantity count takper db 0 ; comand.cmper (\... expansion) while in Take file takseek dd 0 ; lseek number bytes into disk file for Take Reading takattr db 0 ; attributes bitfield takinfo ends ; values for taktyp field take_file equ 1 take_macro equ 2 take_sub equ 4 take_comand equ 8 ; values for takattr field take_malloc equ 1 take_autocr equ 2 take_while equ 8 ; While or For loop or Switch take_subwhile equ 16 ; worker from IF part of While/For ; malloc means new buffer malloc'd and segment is in .takbuf ; autocr means report out CR at End of File ; 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 hndflg db 0 ; If need handshake during file transfer hands db 0 ; Default handshake stopbits db 1 ; number of stop bits (1 or 2) flowc dw 0 ; Do flow control with XON/XOFF duplex db 0 ; Do full (0) or half (1) duplex comms portrdy db 0 ; Non-zero if comms port is still active sndproc dw 0 ; byte sending procedure rcvproc dw 0 ; byte receiving procedure cloproc dw 0 ; session close procedure starttime db 4 dup (0) ; start time hh, mm, ss 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 pasflg equ 200h ; username/password required kerflg equ 400h ; deny remote kermit prtflg equ 800h ; deny remote print defflg equ 1000h ; deny remote define qryflg equ 2000h ; deny remote query retflg equ 4000h ; deny retrieve (file deletion) tekxflg equ 8000h ; deny automatic Tektronix invokation ifndef save_mem 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 pretry dw 0 ; packet retries xstatus dw 0 ; transfer status xstatus2 db 0 ; extended (file attribute) status xname db 64 dup (0) ; alias (send/receive as) filename statinfo ends endif scptinfo struc ; scripts inactv db 0 ; input action value (default proceed) incasv db 0 ; input case (default ignore) indfto dw 1 ; input and pause timeout (def 1 sec) inecho db 1 ; echo Input cmd text (0 = no) infilter db 1 ; filer control sequences from screen (0=no) xmitfill db 0 ; non-zero to TRANSMIT filler for blank line xmitlf db 0 ; non-zero to TRANSMIT LF's xmitpmt db lf ; default prompt for line acknowledgments xmitpause dw 0 ; millisec pause between lines scptinfo ends ; definitions for terminal handler: termarg struc flgs db 0 ; flags prt db 0 ; port to use (0,1,etc) captr dw 0 ; routine to call with captured data baudb db 0 ; baud rate bits parity db 0 ; parity termarg ends ; Character set identification bytes C_ASCII equ 0 C_UKNRC equ 1 C_DUNRC equ 2 C_FINRC equ 3 C_FRNRC equ 4 C_FCNRC equ 5 C_DENRC equ 6 C_ITNRC equ 7 C_NONRC equ 8 C_PONRC equ 9 C_SPNRC equ 10 C_SENRC equ 11 C_CHNRC equ 12 C_DHEBNRC equ 13 C_ALTROM equ 14 C_XPARENT equ 15 C_LATIN1 equ 16 C_DMULTINAT equ 17 C_DECTECH equ 18 C_DECSPEC equ 19 C_DGINT equ 20 C_DGLINE equ 21 C_DGWP equ 22 C_LATIN2 equ 23 C_HEBREWISO equ 24 C_DECHEBREW equ 25 C_WYSEGR equ 26 C_HPROMAN8 equ 27 C_CYRILLIC_ISO equ 28 C_KOI8 equ 29 C_SHORT_KOI equ 30 C_JISKAT equ 141 C_JISROM equ 142 C_JISKANJI equ 215 ; bits for flag byte capt equ 40h ; capture output emheath equ 20h ; emulate heath trnctl equ 08h ; translate controls (debug) modoff equ 04h ; mode line off lclecho equ 01h ; local echo ; bits for kstatus general Kermit status word kssuc equ 0000h ; success condition kssend equ 0001h ; send file failed ksrecv equ 0002h ; get/receive file failed ksrem equ 0004h ; Remote command failed kstake equ 0008h ; Take file failure ksgen equ 0010h ; general command failure ksuser equ 0080h ; user intervention (aka Control-C) ksattrib equ 0100h ; file attributes file rejection emsint equ 67h ; EMS interrupt xmspresent equ 4300h ; EMS presence check for XMS mgr emsmgrstat equ 40h ; EMS get manager status emsgetseg equ 41h ; EMS get segment of page frame emsgetnpgs equ 42h ; EMS get number free pages emsalloc equ 43h ; EMS get handle and allocate memory emsmapmem equ 44h ; EMS map memory emsrelease equ 45h ; EMS release mapped memory emsgetver equ 46h ; EMS get version number emssetname equ 5301h ; EMS LIM 4, set name xmsmanager equ 4310h ; XMS get manager entry point xmsquery equ 08h ; XMS query largest block available xmsalloc equ 09h ; XMS allocate memory block xmsrelease equ 0ah ; XMS free memory block xmsmove equ 0bh ; XMS move memory block xmsreq struc ; XMS memory move request block xms_count dd 0 ; bytes to move, must be even handle_src dw 0 ; source handle (0 = under 1MB) offset_src dd 0 ; offset into source block, bytes handle_dst dw 0 ; destination handle offset_dst dd 0 ; offset into destination block, bytes xmsreq ends mkeyw macro key,value ; widely used data structure local keylen,start start equ $ ; remember start address of structure dw keylen ; length of "key" db key ; "key" itself keylen equ $-(start+2) ; number of bytes in "key" dw value ; action value 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 'data', and only then by 'stack'. code segment public 'kcode' code ends code1 segment public 'kcode' code1 ends code2 segment public 'kcode' code2 ends data segment public 'kdata' data ends data1 segment public 'kdata' data1 ends _TEXT SEGMENT WORD PUBLIC 'CODE' _TEXT ENDS _DATA SEGMENT WORD PUBLIC 'DATA' _DATA ENDS CONST SEGMENT WORD PUBLIC 'CONST' CONST ENDS _BSS SEGMENT WORD PUBLIC 'BSS' _BSS ENDS _STACK SEGMENT WORD STACK 'STACK' _STACK ENDS DGROUP GROUP CONST, _BSS, _DATA, _STACK .list