home *** CD-ROM | disk | FTP | other *** search
- verdef macro
- db ' Kermit-MS V2.26'
- endm
-
- BELL EQU 07Q
- TAB EQU 11Q
- LF EQU 12Q
- FF EQU 14Q
- CR EQU 15Q
- XON EQU 21Q
- XOFF EQU 23Q
- ESC EQU 33Q
- DEL EQU 177Q
- BS EQU 08H
- CTLZ EQU 1AH
- SOH EQU 01H ; Start of header char.
-
- 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. [21a]
- OPENF EQU 0FH
- CLOSF EQU 10H
- SFIRST EQU 11H
- SNEXT EQU 12H
- DELF EQU 13H
- READF EQU 14H ; Read from the file.
- WRITEF EQU 15H
- MAKEF EQU 16H
- GCURDSK EQU 19H ; Current disk. [21a]
- SETDMA EQU 1AH
- PRSFCB equ 29H ; parse an fcb.
- DOSVER equ 30H ; dos version #
- OPEN2 EQU 3DH ; 2.0 open
- CLOSE2 EQU 3EH ; 2.0 close
- READF2 EQU 3FH ; 2.0 read.
- LSEEK EQU 42H ; 2.0 lseek
- IOCTL EQU 44H
- WRITEF2 EQU 40H ; 2.0 write
- GCD equ 47H ; 2.0 get current directory.
-
- PAREVN EQU 00H ; Even parity. [10 start]
- PARMRK EQU 01H ; Mark parity.
- PARNON EQU 02H ; No parity.
- PARODD EQU 03H ; Odd parity.
- PARSPC EQU 04H ; Space parity.
-
- CMKEY EQU 01H ; Parse a keyword.
- CMIFI EQU 02H ; Parse an input file spec (can be wild).
- CMOFI EQU 03H ; Parse an output file spec.
- CMCFM EQU 04H ; Parse a confirm.
- CMTXT EQU 05H ; Parse arbitrary text up to CR. [8]
-
- 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 05H ; Max number of TAKE's allowed. [25t]
- MAXTRY EQU 05Q ; Default number of retries on a packet.
- IMXTRY EQU 20Q ; Default number of retries send initiate.
-
- DEFESC EQU ']'-100Q ; The default escape character.
- DRPSIZ EQU 5EH ; Default receive packet size.
- DSPSIZ EQU 50H ; Default send packet size.
- DSTIME EQU 08H ; Default send time out interval.
- DRTIME EQU 0DH ; Default receive time out interval.
- DSRVTM EQU 30 ; Default server timeout.
- DSPAD EQU 00H ; Default send padding.
- DRPAD EQU 00H ; Default receive padding.
- DSPADC EQU 00H ; Default send padding char.
- DRPADC EQU 00H ; 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. [21b]
- DRPT EQU '~' ; Default repeat prefix.
- DCHKLEN EQU 1 ; Default checksum length.
- DEFPAR EQU PARNON ; Default parity (none.)
- IBMPAR EQU PARMRK ; IBM's parity (mark.) [10 end]
-
-
- bufsiz equ 2048 ; size of serial input buffer
-
- ; 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.
-
- ; Structure definitions.
-
- ; Modem information.
- mdminfo struc
- mddat dw 0 ; Default to port 1. [19b start]
- mdstat dw 0 ; Ditto.
- mdcom dw 0 ; Here too.
- mden db 0
- mddis db 0
- mdmeoi db 0
- mdintv dw 0 ; [19b end]
- 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.
- cmfcb dw 0 ; Pointer to FCB.
- cmfcb2 dw 0 ; Pointer to position in FCB.
- 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. [21a]
- cmcr db 0 ; Say whether bare CR is allowed.
- cmdinfo ends
-
- ; Flags information.
- flginfo struc
- belflg db 1 ; Use bell [17a -- DT]
- comflg db 1 ; Use COM1 by default. [19b]
- abfflg db 1 ; Discard incoming file if abort. [20d]
- debug db 0 ; Debugging mode (default off).
- flwflg db 1 ; File warning flag (default on). [19c]
- ibmflg db 0 ; IBM flag (default off).
- extflg db 0 ; Exit flag (default off).
- vtflg db 1 ; H-19 emulation.
- droflg db 0 ; Override default disk drive. [21a]
- nmoflg db 0 ; Override name from the F packet. [21a]
- wldflg db 0 ; Assume no "*" in fn. [7]
- cxzflg db 0 ; ^X/^Z to interrupt file x-fer. [20b]
- xflg db 0 ; Seen "X" packet. [21c]
- 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). [21a]
- capflg db 0 ; On if capturing data. [25]
- takflg db 0 ; On if echo commands of TAKE file.
- timflg db 0 ; 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 0 ; non-zero if in remote mode.
- 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
-
- takinfo struc
- takfcb db fcbsiz dup(0)
- 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.) [10]
- 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
- lclecho equ 01h ; local echo
-