Chip 1994 February

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

/ Chip 1994 February / CHIP0294.ISO / digital / magazin / trumpet / pktdrvs / 3c509.asm < prev next >

Wrap

Assembly Source File | 1993-11-30 | 36.8 KB | 1,312 lines

version equ 2 ;History:1145,1 .286 ; Copyright, 1988-1992, Russell Nelson, Crynwr Software ; This program is free software; you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, version 1. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program; if not, write to the Free Software ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ;------------------------------------------------------------------------- ; vA 4/3/93 Hacks for multiple ISA board support added, IJW @ Leeds Univ. ; vB 10/3/93 Added checks for legal packet size in rx, ijw. ;------------------------------------------------------------------------- include defs.asm code segment word public assume cs:code, ds:code ;----------------------------------------------------------------------------; ; ; ; This source file is the property of 3Com Corporation and may not be ; ; copied or distributed in any isomorphic form without an appropriate ; ; prior licensing arrangement with 3Com Corporation. ; ; ; ; Copyright (c) 1988 3Com Corporation ; ; ; ;------ Equates -------------------------------------------------------------; ; ; Command code masks ; CMD_CMDMASK equ 0F800h ; command bits CMD_ARGMASK equ 007FFh ; argument bits ; ; Command codes, word form ; CMD_GLOBALRESET equ 00000b shl 11 ; global reset CMD_SELECTWINDOW equ 00001B shl 11 ; select register window CMD_STARTINTXCVR equ 00010b shl 11 ; start internal transciver CMD_RXDISABLE equ 00011b shl 11 ; rx disable CMD_RXENABLE equ 00100b shl 11 ; rx enable CMD_RXRESET equ 00101b shl 11 ; rx reset CMD_RXDISCARD equ 01000b shl 11 ; rx discard top packet CMD_TXENABLE equ 01001b shl 11 ; tx enable CMD_TXDISABLE equ 01010b shl 11 ; tx disable CMD_TXRESET equ 01011b shl 11 ; tx reset CMD_REQUESTINT equ 01100b shl 11 ; request interrupt CMD_ACKNOWLEDGE equ 01101b shl 11 ; acknowledge interrupt CMD_SETINTMASK equ 01110b shl 11 ; set interrupt mask CMD_SETRZMASK equ 01111b shl 11 ; set read zero mask CMD_SETRXFILTER equ 10000b shl 11 ; set rx filter CMD_SETRXEARLY equ 10001b shl 11 ; set rx early threshold CMD_SETTXAVAILABLE equ 10010b shl 11 ; set tx available threshold CMD_SETTXSTART equ 10011b shl 11 ; set tx start threshold CMD_STATSENABLE equ 10101b shl 11 ; statistics enable CMD_STATSDISABLE equ 10110b shl 11 ; statistics disable CMD_STOPINTXCVR equ 10111b shl 11 ; start internal transciver ; ; Command codes, hibyte form (commands without operands only) ; CMDH_STARTINTXCVR equ CMD_STARTINTXCVR shr 8 CMDH_RXDISABLE equ CMD_RXDISABLE shr 8 CMDH_RXENABLE equ CMD_RXENABLE shr 8 CMDH_RXDISCARD equ CMD_RXDISCARD shr 8 CMDH_TXENABLE equ CMD_TXENABLE shr 8 CMDH_TXDISABLE equ CMD_TXDISABLE shr 8 CMDH_REQUESTINT equ CMD_REQUESTINT shr 8 CMDH_STATSENABLE equ CMD_STATSENABLE shr 8 CMDH_STATSDISABLE equ CMD_STATSDISABLE shr 8 CMDH_STOPINTXCVR equ CMD_STOPINTXCVR shr 8 ; ; Status register bits (INT for interrupt sources, ST for the rest) ; INT_LATCH equ 00001h ; interrupt latch INT_ADAPTERFAIL equ 00002h ; adapter failure INT_TXCOMPLETE equ 00004h ; tx complete INT_TXAVAILABLE equ 00008h ; tx available INT_RXCOMPLETE equ 00010h ; rx complete INT_RXEARLY equ 00020h ; rx early INT_REQUESTED equ 00040h ; interrupt requested INT_UPDATESTATS equ 00080h ; update statistics ST_FAILED equ 00800h ; command failed ST_BUSY equ 01000h ; command busy ST_WINDOW equ 0E000h ; window bits (13-15) STH_FAILED equ ST_FAILED shr 8 STH_BUSY equ ST_BUSY shr 8 STH_WINDOW equ ST_WINDOW shr 8 ; ; RxStatus register bits ; RXS_INCOMPLETE equ 8000h ; not completely received RXS_ERROR equ 4000h ; error in packet RXS_LENGTH equ 07FFh ; bytes in RxFIFO RXS_ERRTYPE equ 3800h ; Rx error type, bit 13-11 RXS_OVERRUN equ 0000h ; overrun error RXS_OVERSIZE equ 0800h ; oversize packet error RXS_DRIBBLE equ 1000h ; dribble bit (not an error) RXS_RUNT equ 1800h ; runt packet error RXS_CRC equ 2800h ; CRC error RXS_FRAMING equ 2000h ; framing error RXSH_INCOMPLETE equ RXS_INCOMPLETE shr 8 RXSH_ERROR equ RXS_ERROR shr 8 RXSH_ERRTYPE equ RXS_ERRTYPE shr 8 RXSH_OVERRUN equ RXS_OVERRUN shr 8 RXSH_DRIBBLE equ RXS_DRIBBLE shr 8 RXSH_CRC equ RXS_CRC shr 8 RXSH_RUNT equ RXS_RUNT shr 8 RXSH_OVERSIZE equ RXS_OVERSIZE shr 8 RXSH_FRAMING equ RXS_FRAMING shr 8 ; ; TxStatus register bits ; TXS_COMPLETE equ 80h ; tx completed TXS_INTREQUESTED equ 40h ; interrupt on successfull tx TXS_ERRTYPE equ 38h ; error bits TXS_JABBERERROR equ 20h ; jabber error TXS_UNDERRUN equ 10h ; tx underrun error TXS_MAXCOLLISIONS equ 08h ; max collisions error TXS_STATUSOVERFLOW equ 04h ; TX status stack is full ; ; Window Numbers ; WNO_SETUP equ 0 ; setup/configuration WNO_OPERATING equ 1 ; operating set WNO_STATIONADDRESS equ 2 ; station address setup/read WNO_FIFO equ 3 ; FIFO management WNO_DIAGNOSTICS equ 4 ; diagnostics WNO_READABLE equ 5 ; registers set by commands WNO_STATISTICS equ 6 ; statistics ; ; Port offsets, Window 1 (WNO_OPERATING) ; PORT_CmdStatus equ 0Eh ; command/status PORT_TxFree equ 0Ch ; free transmit bytes PORT_TxStatus equ 0Bh ; transmit status (byte) PORT_Timer equ 0Ah ; latency timer (byte) PORT_RxStatus equ 08h ; receive status PORT_RxFIFO equ 00h ; RxFIFO read PORT_TxFIFO equ 00h ; TxFIFO write ; ; Port offsets, Window 0 (WNO_SETUP) ; PORT_EEData equ 0Ch ; EEProm data register PORT_EECmd equ 0Ah ; EEProm command register PORT_CfgResource equ 08h ; resource configuration PORT_CfgAddress equ 06h ; address configuration PORT_CfgControl equ 04h ; configuration control PORT_ProductID equ 02h ; product id (EISA) PORT_Manufacturer equ 00h ; Manufacturer code (EISA) ; ; Port offsets, Window 2 (WNO_STATIONADDRESS) ; PORT_SA0_1 equ 00h ; station address bytes 0,1 PORT_SA2_3 equ 02h ; station address bytes 2,3 PORT_SA4_5 equ 04h ; station address bytes 4,5 ; ; Port offsets, Window 3 (WNO_FIFO) ; PORT_ALT_TxFree equ 0Ch ; free transmit bytes (dup) PORT_RxFree equ 0Ah ; free receive bytes ; ; Port offsets, Window 4 (WNO_DIAGNOSTICS) ; PORT_MediaStatus equ 0Ah ; media type/status PORT_SlingshotStatus equ 08h ; Slingshot status PORT_NetDiagnostic equ 06h ; net diagnostic PORT_FIFODiagnostic equ 04h ; FIFO diagnostic PORT_HostDiagnostic equ 02h ; host diagnostic PORT_TxDiagnostic equ 00h ; tx diagnostic ; ; Port offsets, Window 5 (WNO_READABLE) ; PORT_RZMask equ 0Ch ; read zero mask PORT_IntMask equ 0Ah ; interrupt mask PORT_RxFilter equ 08h ; receive filter PORT_RxEarly equ 06h ; rx early threshold PORT_TxAvailable equ 02h ; tx available threshold PORT_TxStart equ 00h ; tx start threshold ; ; Port offsets, Window 6 (WNO_STATISTICS) ; PORT_TXBYTES equ 0Ch ; tx bytes ok PORT_RXBYTES equ 0Ah ; rx bytes ok PORT_TXDEFER equ 08h ; tx frames deferred (byte) PORT_RXFRAMES equ 07h ; rx frames ok (byte) PORT_TXFRAMES equ 06h ; tx frames ok (byte) PORT_RXDISCARDED equ 05h ; rx frames discarded (byte) PORT_TXLATE equ 04h ; tx frames late coll. (byte) PORT_TXSINGLE equ 03h ; tx frames one coll. (byte) PORT_TXMULTIPLE equ 02h ; tx frames mult. coll. (byte) PORT_TXNOCD equ 01h ; tx frames no CDheartbt (byte) PORT_TXCARRIERLOST equ 00h ; tx frames carrier lost (byte) ; ; Various command arguments ; INT_ALLDISABLED equ 00000000000b ; all interrupts disabled INT_ALLENABLED equ 00011111110b ; all interrupts enabled FILTER_INDIVIDUAL equ 0001b ; individual address FILTER_MULTICAST equ 0010b ; multicast/group addresses FILTER_BROADCAST equ 0100b ; broadcast address FILTER_PROMISCUOUS equ 1000b ; promiscuous mode RXEARLY_DISABLED equ 2032 ; RxEarly to disable TXAVAIL_DISABLED equ 2040 ; TxAvailable to disable TXAVAIL_MIN equ 4 TXSTART_DISABLED equ 2040 ; TxStart to disable TXSTART_MIN equ 0 TXSTART_MAX equ TXSTART_DISABLED RXLENGTH_MAX equ 1792 ; maximum rxlength ; ; Transmit Preamble ; PREAMBLESIZE equ 4 ; transmit preamble size TXP_INTONSUCCESS equ 8000h ; interrupt on successful tx ; ; Bits in various diagnostics registers ; MEDIA_TP equ 8000h ; TP transciever MEDIA_BNC equ 4000h ; Thinnet transciever MEDIA_INTENDEC equ 2000h ; internal encoder/decoder MEDIA_SQE equ 1000h ; SQE present MEDIA_LBEAT equ 0800h ; link beat ok (TP) MEDIA_POLARITY equ 0400h ; polarity (TP) MEDIA_JABBER equ 0200h ; jabber (TP) MEDIA_UNSQUELCH equ 0100h ; unsquelch (TP) MEDIA_LBEATENABLE equ 0080h ; link beat enable (TP) MEDIA_JABBERENABLE equ 0040h ; jabber enable (TP) MEDIA_CRS equ 0020h ; carrier sense MEDIA_COLLISION equ 0010h ; collision MEDIA_SQEENABLE equ 0008h ; enable SQE statistics NETD_EXTLOOPBACK equ 8000h ; TP external loopback NETD_ENDECLOOPBACK equ 4000h ; ENDEC loopback NETD_CORELOOPBACK equ 2000h ; ethernet core loopback NETD_FIFOLOOPBACK equ 1000h ; FIFO loopback NETD_TXENABLED equ 0800h ; tx enabled NETD_RXENABLED equ 0400h ; rx enabled NETD_TXTRANSMITTING equ 0200h ; tx transmitting NETD_TXRESETREQD equ 0100h ; tx reset required FIFOD_RXRECEIVING equ 8000h ; rx receiveing FIFOD_RXUNDERRUN equ 2000h ; rx underrun FIFOD_RXSTATUSOVER equ 1000h ; rx status overrun FIFOD_RXOVERRUN equ 0800h ; rx overrun FIFOD_TXOVERRUN equ 0400h ; tx overrun FIFOD_BISTRESULTS equ 00FFh ; BIST results (mask) SLING_TXUNDERRUN equ 2000h ; Slingshot TxUnderrun bit ; ; board identification codes, byte swapped in Rev 0 ; EISA_MANUFACTURER_ID equ 06D50h ; EISA manufacturer code ISA_PRODUCT_ID equ 09050h ; Product ID for ISA board PRODUCT_ID_MASK equ 0F0FFh ; Mask off revision nibble ; ; EEProm access ; EE_BUSY equ 8000h ; EEProm busy bit in EECmd EE_TCOM_NODE_ADDR_WORD0 equ 00h EE_TCOM_NODE_ADDR_WORD1 equ 01h EE_TCOM_NODE_ADDR_WORD2 equ 02h EE_VULCAN_PROD_ID equ 03h EE_MANUFACTURING_DATA equ 04h EE_SERIAL_NUMBER_WORD0 equ 05h EE_SERIAL_NUMBER_WORD1 equ 06h EE_MANUFACTURER_CODE equ 07h EE_ADDR_CONFIGURATION equ 08h EE_RESOURCE_CONFIGURATION equ 09h EE_OEM_NODE_ADDR_WORD0 equ 0Ah EE_OEM_NODE_ADDR_WORD1 equ 0Bh EE_OEM_NODE_ADDR_WORD2 equ 0Ch EE_SOFTWARE_CONFIG_INFO equ 0Dh EE_CWORD equ 0Eh ; ; contention logic ; READ_EEPROM equ 080h ID_GLOBAL_RESET equ 0C0h SET_TAG_REGISTER equ 0D0h TEST_TAG_REGISTER equ 0D8h ACTIVATE_AND_SET_IO equ 0E0h ACTIVATE_VULCAN equ 0FFh ; ; Resource Configuration Register bits ; RCONFIG_IRQ equ 0F000h ; ; Address Configuration Register bits ; ACONFIG_XCVR equ 0C000h ACONFIG_IOBASE equ 0001Fh IOBASE_EISA equ 0001Fh TP_XCVR equ 00000h BNC_XCVR equ 0C000h AUI_XCVR equ 04000h MIN_IO_BASE_ADDR equ 200h MAX_IO_BASE_ADDR equ 3F0h REGISTER_SET_SIZE equ 10h ; ; Software Configuration Register bits ; SW_OPTIMIZE equ 0030h SW_MAXCLI equ 3F00h SW_LINKBEAT equ 4000h ; ; Possibilities for SW_OPTIMIZE ; OPTIMIZE_DOS_CLIENT equ 0010h OPTIMIZE_WINDOWS_CLIENT equ 0020h OPTIMIZE_SERVER equ 0030h ; ; Configuration Control Register bits ; ENABLE_ADAPTER equ 01h setwin macro win setport PORT_CmdStatus mov ax,CMD_SELECTWINDOW+win out dx,ax endm extrn is_eisa: byte ;=0 if ISA, =1 if EISA extrn is_186: byte ;=0 if 808[68], =1 if 80[1234]86. extrn is_386: byte ;=0 if 80[12]8[68], =1 if 80[34]86. public int_no, io_addr int_no db 0,0,0,0 ;must be four bytes long for get_number. io_addr dw 0,0 ;must be four bytes long for get_number. public driver_class, driver_type, driver_name, driver_function, parameter_list driver_class db BLUEBOOK,IEEE8023,0 ;null terminated list of classes. driver_type db 94 ;assigned by FTP Software, <jbvb@ftp.com> driver_name db '3c509',0 ;name of the driver. driver_function db 2 parameter_list label byte db 1 ;major rev of packet driver specification db 9 ;minor rev of packet driver specification db 14 ;length of parameter list db EADDR_LEN ;length of MAC-layer address dw GIANT ;MTU, including MAC headers dw MAX_MULTICAST * EADDR_LEN ;buffer size of multicast addrs dw 0 ;(# of back-to-back MTU rcvs) - 1 dw 0 ;(# of successive xmits) - 1 int_num dw 0 ;Interrupt # to hook for post-EOI ;processing, 0 == none, public rcv_modes rcv_modes dw 7 ;number of receive modes in our table. dw 0 ;There is no mode zero dw rcv_mode_1 dw rcv_mode_2 dw rcv_mode_3 dw 0 ;haven't set up perfect filtering yet. dw rcv_mode_5 dw rcv_mode_6 include timeout.asm public bad_command_intercept bad_command_intercept: ;called with ah=command, unknown to the skeleton. ;exit with nc if okay, cy, dh=error if not. mov dh,BAD_COMMAND stc ret public as_send_pkt ; The Asynchronous Transmit Packet routine. ; Enter with es:di -> i/o control block, ds:si -> packet, cx = packet length, ; interrupts possibly enabled. ; Exit with nc if ok, or else cy if error, dh set to error number. ; es:di and interrupt enable flag preserved on exit. as_send_pkt: ret public drop_pkt ; Drop a packet from the queue. ; Enter with es:di -> iocb. drop_pkt: assume ds:nothing ret public xmit ; Process a transmit interrupt with the least possible latency to achieve ; back-to-back packet transmissions. ; May only use ax and dx. xmit: assume ds:nothing ret public send_pkt send_pkt: ;enter with es:di->upcall routine, (0:0) if no upcall is desired. ; (only if the high-performance bit is set in driver_function) ;enter with ds:si -> packet, cx = packet length. ;if we're a high-performance driver, es:di -> upcall. ;exit with nc if ok, or else cy if error, dh set to error number. assume ds:nothing cmp cx,GIANT ; Is this packet too large? ja send_pkt_toobig loadport setport PORT_TxStatus ;get the previous transmit status. in al,dx setport PORT_CmdStatus test al,TXS_UNDERRUN or TXS_JABBERERROR ;do we need to reset transmitter? je send_pkt_0 push ax mov ax,CMD_TXRESET out dx,ax pop ax send_pkt_0: test al,TXS_ERRTYPE ;any errors? je send_pkt_3 ;no. call count_out_err ;yes, count it. mov ax,CMD_TXENABLE ;yes, re-enable the transmitter. out dx,ax send_pkt_3: mov bx,cx ;round BX up to dword boundary. add bx,3 and bx,not 3 setport PORT_TxFree ;wait for enough bytes in transmit buffer. mov ax,18 call set_timeout send_pkt_1: in ax,dx cmp ax,bx jae send_pkt_2 call do_timeout jne send_pkt_1 mov dh,CANT_SEND ;timed out, can't send. stc ret send_pkt_toobig: mov dh,NO_SPACE stc ret send_pkt_2: setport PORT_TxFIFO mov ax,cx ;output the count out dx,ax ; (no interrupt requested) out dx,ax ;output the second reserved word. mov cx,bx ;output the rest of the packet. cmp is_386,0 ;can we output dwords? jne send_pkt_7 ;yes. shr cx,1 ;output 16 bits at a time. rep outsw jmp short send_pkt_6 send_pkt_7: .386 shr cx,2 ;already rounded up. rep outsd ;output 32 bits at a time. .286 send_pkt_6: clc ret public set_address set_address: ;enter with ds:si -> Ethernet address, CX = length of address. ;exit with nc if okay, or cy, dh=error if any errors. assume ds:nothing cmp cx,EADDR_LEN ;ensure that their address is okay. je set_address_4 mov dh,BAD_ADDRESS stc jmp short set_address_done set_address_4: loadport setwin WNO_STATIONADDRESS setport PORT_SA0_1 set_address_1: lodsb out dx,al inc dx loop set_address_1 set_address_okay: mov cx,EADDR_LEN ;return their address length. clc set_address_done: push cs pop ds assume ds:code loadport setwin WNO_OPERATING ret ;skip past the following two bytes while destroying BX. skip2 macro db 0bbh ;opcode of "mov bx,0000" endm rcv_mode_1: mov al,0 ;receive nothing skip2 rcv_mode_2: mov al,1 ;receive individual address skip2 rcv_mode_3: mov al,5 ;receive individual address+broadcast skip2 rcv_mode_5: mov al,3 ;receive individual address+group addr(multicast) skip2 rcv_mode_6: mov al,8 ;receive all packets. mov ah,CMD_SETRXFILTER shr 8 ;set receive filter loadport setport PORT_CmdStatus out dx,ax ret public set_multicast_list set_multicast_list: ;enter with ds:si ->list of multicast addresses, ax = number of addresses, ; cx = number of bytes. ;return nc if we set all of them, or cy,dh=error if we didn't. mov dh,NO_MULTICAST stc ret public terminate terminate: loadport setport PORT_CmdStatus mov ax,CMD_GLOBALRESET out dx,ax ret public reset_interface reset_interface: ;reset the interface. assume ds:code ret ;decide if we know this packet's type. ;enter with es:di -> packet type, dl = packet class. ;exit with nc if we know it, cy if not. extrn recv_locate: near ;do the first upcall, get a pointer to the packet. ;enter with cx = packet length. ;exit with cx = packet length, es:di -> buffer for the packet. extrn recv_found: near ;called when we want to determine what to do with a received packet. ;enter with cx = packet length, es:di -> packet type, dl = packet class. extrn recv_find: near ;called after we have copied the packet into the buffer. ;enter with ds:si ->the packet, cx = length of the packet. extrn recv_copy: near ;call this routine to schedule a subroutine that gets run after the ;recv_isr. This is done by stuffing routine's address in place ;of the recv_isr iret's address. This routine should push the flags when it ;is entered, and should jump to recv_exiting_exit to leave. ;enter with ax = address of routine to run. extrn schedule_exiting: near ;recv_exiting jumps here to exit, after pushing the flags. extrn recv_exiting_exit: near extrn count_in_err: near extrn count_out_err: near ether_buff db EADDR_LEN dup(?) db EADDR_LEN dup(?) ether_type db 8 dup(?) ETHER_BUFF_LEN equ $ - ether_buff .erre (ETHER_BUFF_LEN and 3) eq 0 ;must be an even # of dwords. early_bytes dw 0 ;the early byte gets the worm. read_header: ;enter with dx -> PORT_RxFIFO ;exit with es:di -> packet type. mov ax,ds mov es,ax mov di,offset ether_buff mov cx,ETHER_BUFF_LEN/4 repinsd: shl cx,1 ;*** this gets changed into "rep insd" rep insw ;*** "nop" on a 386 or 486. mov di,offset ether_type mov dl, BLUEBOOK ;assume bluebook Ethernet. mov ax, es:[di] xchg ah, al cmp ax, 1500 ja read_header_1 inc di ;set di to 802.2 header inc di mov dl, IEEE8023 read_header_1: ret public recv recv: ;called from the recv isr. All registers have been saved, ds=cs, ;our interrupt has been acknowledged, and our interrupts have been ;masked at the interrupt controller. assume ds:code recv_another: loadport setport PORT_CmdStatus in ax,dx ;did we get a packet? or ax,CMD_ACKNOWLEDGE out dx,ax setport PORT_RxStatus test al,INT_RXCOMPLETE jne recv_complete test al,INT_RXEARLY ;are we getting it early? jne recv_early jmp recv_exit ;no. recv_early: in ax,dx ;get the amount we can read. and ax,RXS_LENGTH cmp ax,ETHER_BUFF_LEN ;do we have enough to read early? jb recv_early_1 ;no, give up. mov early_bytes,ETHER_BUFF_LEN setport PORT_RxFIFO call read_header call recv_locate ;see if this is a type we want. jnc recv_early_1 ;it is, just exit. jmp recv_discard ;it isn't. recv_early_1: jmp recv_exit ;yes, this is dead code. It's only in here to ensure that the setport macro ;has the right value. setport PORT_RxStatus recv_complete: in ax,dx ;get the size. test ax,RXS_ERROR ;any errors? je recv_complete_2 ;no, it's fine. and ax,RXS_ERRTYPE ;get just the error type bits. cmp ax,RXS_DRIBBLE ;dribble is just a warning. jne recv_complete_1 recv_err: call count_in_err jmp recv_discard recv_complete_1: in ax,dx ;get the size again. recv_complete_2: ;Put it on the receive queue and ax,RXS_LENGTH mov cx,ax cmp early_bytes,0 ;did we read the header in already? jne recv_complete_3 ;yes, we've already got it. cmp cx,RUNT ;check legal packet size jb recv_err cmp cx,GIANT ja recv_err push cx setport PORT_RxFIFO call read_header pop cx push cx call recv_find pop cx jmp short recv_complete_4 recv_complete_3: add cx,early_bytes ;add in the early bytes we got. cmp cx,RUNT ;check legal packet size jb recv_err cmp cx,GIANT ja recv_err push cx call recv_found ;do the first upcall. pop cx recv_complete_4: mov ax,es ;is this pointer null? or ax,di je recv_discard ;yes - just free the frame. push es ;remember where the buffer pointer is. push di mov bx,cx ;save the count. mov cx,ETHER_BUFF_LEN/2 ;move the data over. mov si,offset ether_buff rep movsw loadport ;restore the I/O port. setport PORT_RxFIFO mov cx,bx ;restore the count. sub cx,ETHER_BUFF_LEN ;but leave off what we've already copied. cmp is_386,0 jne io_input_386 io_input_286: push cx shr cx,1 rep insw pop cx jnc io_input_286_1 ;go if the count was even. insb ;get that last byte. in al,dx ;and get the pad byte. test cx,2 ;even number of words? jne io_input_done ;no. in ax,dx ;yes, get the pad word. jmp short io_input_done io_input_286_1: test cx,2 ;odd number of words? je io_input_done ;no. in ax,dx ;yes, get the pad word. jmp short io_input_done io_input_386: .386 push eax push cx ;first, get all the full words. shr cx,2 rep insd pop cx test cx,3 ;even number of dwords? je io_input_386_one_byte ;yes. in eax,dx ;no, get the partial word. test cx,2 ;a full word to be stored? je io_input_386_one_word stosw ;yes, store it, shr eax,16 ;and move over by a word. io_input_386_one_word: test cx,1 ;a full byte to be stored? je io_input_386_one_byte stosb ;yes, store it. io_input_386_one_byte: pop eax .286 io_input_done: mov cx,bx ;restore the count. pop si pop ds assume ds:nothing call recv_copy ;tell them that we copied it. mov ax,cs ;restore our ds. mov ds,ax assume ds:code recv_discard: loadport setport PORT_CmdStatus mov ax,CMD_RXDISCARD out dx,ax recv_discard_1: in ax,dx ;wait for the command to finish. test ax,ST_BUSY jne recv_discard_1 mov early_bytes,0 jmp recv_another recv_exit: ret public timer_isr timer_isr: ;if the first instruction is an iret, then the timer is not hooked iret ;any code after this will not be kept. Buffers used by the program, if any, ;are allocated from the memory between end_resident and end_free_mem. public end_resident,end_free_mem end_resident label byte end_free_mem label byte public usage_msg usage_msg db "usage: 3c509 [options] <packet_int_no> " db "[id_port]|[io_port]|[board_num]",CR,LF,'$' public copyright_msg copyright_msg db "Packet driver for a 3c509, version ",'0'+(majver / 10),'0'+(majver mod 10),".",'0'+version,CR,LF db "Portions Copyright 1992, Crynwr Software",CR,LF,'$' needs_186_msg db "Needs a 186 or higher-numbered processor",CR,LF,'$' no_isa_msg db CR,LF db "No 3c509 found. Use a different id_port value. Default is 0x110.",CR,LF,'$' reading_msg db "Reading EEPROM.",'$' multiple_msg db "Multiple 3C509s found, specify i/o port",CR,LF,'$' wrong_port_msg db "No 3C509 board found at specified i/o port",CR,LF,'$' eisa_in_isa_msg db "EISA configured board in ISA slot",CR,LF,'$' int_no_name db "Interrupt number ",'$' io_addr_name db "I/O port ",'$' aui_xcvr_msg db "Using AUI transceiver",CR,LF,'$' bnc_xcvr_msg db "Using BNC (10Base2) transceiver",CR,LF,'$' tp_xcvr_msg db "Using Twisted Pair (10BaseT) transceiver",CR,LF,'$' id_port_name db "ID port ",'$' ;called when you're ready to receive interrupts. extrn set_recv_isr: near ;enter with si -> argument string, di -> dword to store. ;if there is no number, don't change the number. extrn get_number: near ;enter with dx -> argument string, di -> dword to print. extrn print_number: near ;-> the unique Ethernet address of the card. Filled in by the etopen routine. extrn rom_address: byte ;-> current address. Normally the same as rom_address, unless changed ;by the set_address() call. extrn my_address: byte address_configuration dw ? resource_configuration dw ? is_10base2 db 0 is_10baseT db 0 id_port dw 110h,0 scratch dw 0,0 ;for multi-board support board_number db 0 ;print the character in al. extrn chrout: near ;print a crlf extrn crlf: near ;parse_args is called with si -> first parameter (CR if none). public parse_args parse_args: ;exit with nc if all went well, cy otherwise. mov di,offset scratch call get_number ;also returns number in bx:cx jc pa_ok cmp cx,15 ;board or slot? ja pa_id mov board_number,cl jmp parse_args pa_id: cmp cx,200h ;id-port (100-1f0) or io-port (200-3e0) ? jae pa_io cmp cx,100h jb pa_bad and cx,1F0h mov id_port,cx jmp parse_args pa_io: cmp cx,3E0h ja pa_bad ; bad value and cx,3F0h mov io_addr,cx jmp parse_args ; get another arg pa_ok: clc ret pa_bad: stc ret public etopen etopen: ;initialize the driver. Fill in rom_address with the assigned address of ;the board. Exit with nc if all went well, or cy, dx -> $ terminated error msg. ;if all is okay, cmp is_186,0 ;this version requires a 186 or better. jne etopen_1 mov dx,offset needs_186_msg stc ret etopen_1: cmp is_386,0 ;can we do a real insd? je etopen_2 ;overlay the repinsd routine with a real "rep insd;nop" mov word ptr repinsd+0,066h+0f3h*256 mov word ptr repinsd+2,06dh+090h*256 etopen_2: cmp is_eisa,0 jne etopen_eisa jmp etopen_isa etopen_eisa: mov cx,0fh eisa_search: mov dx,cx ;move it into the first nibble. shl dx,12 or dx,0c80h in ax,dx ;look for the manufacturer's ID cmp ax,EISA_MANUFACTURER_ID jne eisa_search_1 inc dx inc dx in ax,dx ;look for the product ID and ax,PRODUCT_ID_MASK cmp ax,ISA_PRODUCT_ID je eisa_found eisa_search_1: loop eisa_search jmp etopen_isa ;;; if it's not EISA-configured, try ISA. eisa_found: and dx,0f000h mov io_addr,dx loadport setwin WNO_SETUP setport PORT_CfgAddress in ax,dx mov address_configuration,ax setport PORT_CfgResource in ax,dx mov resource_configuration,ax setport PORT_EECmd mov si,offset read_ee_eisa call read_eaddr jmp have_configuration ;--------------------------------------------------------------------------- ; etopen_ISA for multiple 3c509 boards, added 3/93, IJW. ; etopen_isa: and id_port,01F0h mov dx,id_port xor bl,bl isa_1: cli call write_id_pat or bl,bl ; first board? jnz isa_2 mov al,SET_TAG_REGISTER out dx,al isa_2: mov al,EE_MANUFACTURER_CODE call read_ee_isa cmp ax,EISA_MANUFACTURER_ID ; board here ? jne isa_3 ; no mov al,EE_OEM_NODE_ADDR_WORD0 ; must read the address.. call read_ee_isa ; else it don't work ?! mov al,EE_OEM_NODE_ADDR_WORD1 ; address[1] call read_ee_isa ; address[2] mov al,EE_OEM_NODE_ADDR_WORD2 call read_ee_isa ; address[3] inc bl ;count up a board. mov al,bl or al,SET_TAG_REGISTER out dx,al xor al,al out dx,al ; reset sti jmp isa_1 ; see if any more boards isa_3: xor al,al out dx,al ; reset sti or bl,bl ; found any boards ? jnz isa_4 not_found_isa: mov dx,offset no_isa_msg stc ret isa_multiple: mov dx,offset multiple_msg stc ret isa_4: xor bl,bl isa_5: cli call write_id_pat inc bl mov al,bl add al,TEST_TAG_REGISTER out dx,al ; select the board mov al,SET_TAG_REGISTER out dx,al mov al,EE_MANUFACTURER_CODE call read_ee_isa cmp ax,EISA_MANUFACTURER_ID ; board here ? jne isa_8 cmp io_addr,0 ; did user give an io_address ? je isa_6 ; no mov al,EE_ADDR_CONFIGURATION call read_ee_isa and ax,1Fh ; make real io-address shl ax,4 add ax,MIN_IO_BASE_ADDR cmp ax,io_addr ; this board ? jne isa_7 ; no isa_6: cmp board_number,0 jne isa_multiple mov board_number,bl isa_7: mov al,bl add al,set_tag_register ; D0 out dx,al xor al,al ; reset out dx,al sti jmp isa_5 ; find the next board isa_8: sti cmp board_number,0 ; found the board? jne isa_9 ; yes mov dx,offset wrong_port_msg stc ret isa_9: cli call write_id_pat mov al,TEST_TAG_REGISTER add al,board_number out dx,al mov al,SET_TAG_REGISTER out dx,al mov al,EE_ADDR_CONFIGURATION call read_ee_isa mov address_configuration,ax cmp io_addr,0 ; know the base address? jne isa_10 ; yes and ax,1Fh shl ax,4 add ax,min_io_base_addr ; make realworld io addr mov io_addr,ax isa_10: mov al,EE_RESOURCE_CONFIGURATION call read_ee_isa mov resource_configuration,ax mov si,offset read_ee_isa call read_eaddr mov al,SET_TAG_REGISTER or al,board_number out dx,al sti cmp io_addr,3F0h jne isa_start mov dx,offset eisa_in_isa_msg stc ret isa_start: mov al,ACTIVATE_VULCAN out dx,al have_configuration: mov ax,address_configuration and ax,BNC_XCVR or TP_XCVR or AUI_XCVR ;include all the bits. cmp ax,BNC_XCVR ;does it match BNC? jne not_10base2 inc is_10base2 not_10base2: cmp ax,TP_XCVR ;does it match TP? jne not_10baseT inc is_10baseT not_10baseT: mov bx,resource_configuration mov cl,12 ;move it over where we need it. shr bx,cl mov int_no,bl loadport setwin WNO_DIAGNOSTICS setport PORT_MediaStatus in ax,dx or ax,MEDIA_LBEATENABLE or MEDIA_JABBERENABLE out dx,ax setwin WNO_SETUP ;select Window 0 mov ax,CMD_TXENABLE ;Enable the transmitter out dx,ax mov ax,CMD_RXENABLE ;Enable the receiver out dx,ax ;Enable RX Complete interrupts mov ax,CMD_SETINTMASK + INT_RXCOMPLETE + INT_RXEARLY out dx,ax mov ax,CMD_SETRZMASK + 0feh ;Enable all the status bits. out dx,ax mov ax,CMD_SETTXSTART + 0 ;start transmitting after this many bytes. out dx,ax mov ax,CMD_SETRXEARLY + 0 ;receive after this many bytes. out dx,ax cmp is_10base2,0 ;coax? je not_10base2_1 ;no. mov ax,CMD_STARTINTXCVR ;start internal transciever out dx,ax call delay_27_5ms not_10base2_1: setport PORT_CfgControl ;position to the CCR mov al,ENABLE_ADAPTER ;Enable the adapter. out dx,al call rcv_mode_3 mov si,offset rom_address ;set our address. mov cx,EADDR_LEN call set_address_4 ;sets the window to WNO_OPERATING. call set_recv_isr mov al, int_no ; Get board's interrupt vector add al, 8 cmp al, 8+8 ; Is it a slave 8259 interrupt? jb set_int_num ; No. add al, 70h - 8 - 8 ; Map it to the real interrupt. set_int_num: xor ah, ah ; Clear high byte mov int_num, ax ; Set parameter_list int num. clc ret ;if we got an error, stc ret write_id_pat: ;write the 3c509 ID pattern to the ID port. ;enter with dx=id_port xor al,al out dx,al ;select the ID port. out dx,al ;reset hardware pattern generator mov cx,0ffh mov al,0ffh write_id_pat_1: out dx,al ;keep writing matching values... shl al,1 jnc write_id_pat_2 xor al,0cfh write_id_pat_2: loop write_id_pat_1 ret read_eaddr: ;enter with dx = eeprom register, si -> routine to read eeprom. push cs pop es mov di,offset rom_address mov al,EE_TCOM_NODE_ADDR_WORD0 ;read the Ethernet address. call si xchg ah,al stosw mov al,EE_TCOM_NODE_ADDR_WORD1 call si xchg ah,al stosw mov al,EE_TCOM_NODE_ADDR_WORD2 call si xchg ah,al stosw ret read_ee_eisa: ;enter with al = EEPROM address to read, dx = PORT_EECmd ;exit with ax = data. or al,READ_EEPROM out dx,al read_ee_eisa_1: in ax,dx test ax,EE_BUSY jnz read_ee_eisa_1 add dx,PORT_EEData - PORT_EECmd ;move to data register. in ax,dx add dx,PORT_EECmd - PORT_EEData ;move back to command register. ret read_ee_isa: ;enter with al = EEPROM address to read, dx = address of ID port. ;exit with ax = data, cx = 0. push bx or al,READ_EEPROM out dx,al ;wait 400 us here. call delay_27_5ms mov cx,16 read_ee_isa_1: in al,dx shr al,1 ;put it into the carry. rcl bx,1 ;shift it into bx. loop read_ee_isa_1 mov ax,bx pop bx ret delay_27_5ms: ;delay one timeout period, which is 27.5 ms. mov ax,1 delay: ;delay AX timeout periods, each of which is 27.5 ms. call set_timeout delay_1: call do_timeout jnz delay_1 ret public print_parameters print_parameters: ;echo our command-line parameters mov di,offset int_no mov dx,offset int_no_name call print_number mov di,offset io_addr mov dx,offset io_addr_name call print_number mov dx,offset aui_xcvr_msg cmp is_10base2,0 ;coax? je print_parameters_1 mov dx,offset bnc_xcvr_msg print_parameters_1: cmp is_10baseT,0 ;tp? je print_parameters_2 mov dx,offset tp_xcvr_msg print_parameters_2: mov ah,9 int 21h mov di,offset id_port mov dx,offset id_port_name call print_number ret code ends end