Netware Super Library

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

/ Netware Super Library / Netware Super Library.iso / drivers / nics / pktdrv7 / tiara.asm < prev next >

Wrap

Assembly Source File | 1990-07-27 | 22.8 KB | 760 lines

version equ 0 ;******************************************************************************; ;* *; ;* File: TiaraFTP.ASM *; ;* Auth: Brian Fisher *; ;* Queens University *; ;* Computing and Communications Services *; ;* Rm 2-50 Dupuis Hall *; ;* Kingston Ontario *; ;* *; ;* Date: January 24 1990 *; ;* *; ;* Purp: (3C501) Packet driver for Tiara Ethernet Card. *; ;* *; ;*============================================================================*; ;* Revs: January 25 1990 V 1.0 Clean up code and document. *; ;* *; ;*============================================================================*; ;* *; ;* Thanks, Mehdi Safipour, of Tiara Computer Systems, who supplied the *; ;* programming manual and examples. *; ;* *; ;*============================================================================*; ;* *; ;* Logic - *; ;* *; ;* Initialization - classic, by-the-book initialization, with one *; ;* exception: The manual didn't mention the fact that receive *; ;* interrupts will not always work unless the receive buffer is *; ;* vacuumed. *; ;* *; ;* Byte/Word I/O mode was determined by code ruthlessly copied from *; ;* NI5010.ASM, auth: Russ Nelson. *; ;* *; ;* Transmit-no surprises, data goes whoosh] *; ;* *; ;* Receive-interrupt driven receive makes upcalls to inform the ULP of *; ;* its status. The 14 byte ethernet header is copied from the card to *; ;* a temporary buffer, to determine the ether-type. Recv_find is called *; ;* to acquire a buffer from the ULP. If no buffer, the packet is dropped.*; ;* If a buffer is acquired, the packet is copied into it, and recv_copy *; ;* informs the ULP that the data is there. *; ;* *; ;******************************************************************************; ; DLCR_XMIT_STAT EQU 0 ; EtherStar I/O Register offsets DLCR_XMIT_MASK EQU 1 DLCR_RECV_STAT EQU 2 DLCR_RECV_MASK EQU 3 DLCR_XMIT_MODE EQU 4 DLCR_RECV_MODE EQU 5 DLCR_ENABLE EQU 6 DLCR_TDR_LOW EQU 7 DLCR_NODE_ID EQU 8 DLCR_TDR_HIGH EQU 0FH BMPR_MEM_PORT EQU 10H BMPR_PKT_LEN EQU 12H BMPR_DMA_ENABLE EQU 14H PROM_ID EQU 18H TMST EQU 80h TMT_OK EQU 80h BUF_EMPTY EQU 40h card_disable equ 80h ; written to DLCR_ENABLE to disable card card_enable equ 0h ; written to DLCR_ENABLE to enable card clear_status equ 00001111B ; used to clear status info ; ; !!!!!!!!-------- ; !!!!!!!+--------CLEAR BUS WRITE ERROR ; !!!!!!+---------CLEAR 16 COLLISION ; !!!!!+----------CLEAR COLLISION ; !!!!+-----------CLEAR UNDERFLOW ; !!!+------------NC ; !!+-------------NC ; !+--------------NC ; +---------------NC ; no_tx_irqs equ 0 ; written to clear transmit IRQs clr_rcv_status equ 0CFh ; clears receive status en_rcv_irqs equ 10000000B ; enable receive interrupts ; ; !!!!!!!!-------- ; !!!!!!!+--------ENABLE OVERFLOW ; !!!!!!+---------ENABLE CRC ; !!!!!+----------ENABLE ALIGN ; !!!!+-----------ENABLE SHORT PKT ; !!!+------------DISABLE REMOTE RESET ; !!+-------------RESERVED ; !+--------------RESERVED ; +---------------ENABLE PKT READY ; xmit_mode equ 00000010B ; ;ENABLE CARRIER DETECT ; ;DISABLE LOOPBACK ; recv_mode equ 00000010B ; set receive mode ; ; !!!!!!!!---------ACCEPT ALL PACKETS ; !!!!!!!+---------ACCEPT PHYSICAL, MULTICAST, AND ; !!!!!!+----------BROADCAST PACKETS ; !!!!!+-----------DISABLE REMOTE RESET ; !!!!+------------DISABLE SHORT PACKETS ; !!!+-------------USE 6 BYTE ADDRESS ; !!+--------------NC ; !+---------------NC ; +----------------DISABLE CRC TEST MODE debug = 0 include defs.asm code segment word public assume cs:code, ds:code public int_no int_no db 3,0,0,0 ;must be four bytes long for get_number io_adr dw 300h,0 ; default I/O address is_186 db 0 ; set to 1 if 186, 286, 386 word mode public driver_class, driver_type, driver_name, driver_function, parameter_list driver_class db 1 ;from the packet spec driver_type db 1 ;from the packet spec driver_name db 'TiaraFTP',0 ;name of the driver. driver_function db 2 parameter_list label byte db 1 ;major rev of packet driver db 9 ;minor rev of packet driver 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 0 dw rcv_mode_3 dw 0 ;haven't set up perfect filtering yet. dw 0 dw rcv_mode_6 ; ; Receive Packet Header Buffer: Required because addresses and e-type ; must be read from Tiara card before upcall to find a buffer can be ; made. Need the number of bytes, and the e-type for the call... ; ether_buff db EADDR_LEN dup(?) db EADDR_LEN dup(?) ether_type db 2 dup(?) usr_ptr dd ? ; temp storage or recv_buff ptr writebport macro from_base,value mov dx,cs:[io_adr] ; write byte value to port add dx,from_base mov al,value out dx,al endm ;sends $ terminated string to screen print$ macro string mov ah,9 mov dx,offset &string& ; print $ terminated string int 21h endm mark = 0F90h ; marker debug pos on screen 25 marker macro st,nd IF debug NE 0 ; do marker if debug <> 0 pushf ; show 2 char marker on push es ; 25th line, 1st column push ax mov ax,0B800h mov es,ax mov al,'&st&' mov byte ptr es:[mark],al mov al,byte ptr es:[mark+1] ; get color value inc al and al,0Fh or al,1 mov byte ptr es:[mark+1],al ; advance it to show activity mov al,'&nd' mov byte ptr es:[mark+2],al mov al,byte ptr es:[mark+3] inc al and al,0Fh or al,1 mov byte ptr es:[mark+3],al pop ax pop es popf ENDIF endm 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 ds:si -> packet, cx = packet length. ;exit with nc if ok, pr else cy if error, dh set to error number. assume ds:nothing marker T,X inc cx and cx,not 1 ; round to nearest even number cmp cx,RUNT ; big enough? jge send_size_ok cmp cx,GIANT ; small enough? jle send_size_ok stc ; Error ret send_size_ok: push cx shr cx,1 ; words to send ; ; 8086/8088 byte mode send ; mov dx,cs:[io_adr] add dx,BMPR_MEM_PORT cmp cs:is_186,0 ; use BYTE or WORD mode? jne send_w_mode cld xb: lodsw ; load word, ind ds:si out dx,al xchg ah,al out dx,al loop xb ; set packet length (byte mode) pop ax or ah,TMST mov dx,cs:[io_adr] add dx,BMPR_PKT_LEN out dx,al ; write BMPR2, then BMPR3 to xchg al,ah ; initiate byte mode transmit inc dx out dx,al jmp wait_tmt_ok send_w_mode: cld rep db 0f3h, 06fh ;masm 4.0 doesn't grok "rep outsw" pop ax or ah,TMST mov dx,cs:[io_adr] add dx,BMPR_PKT_LEN out dx,ax wait_tmt_ok: xor cx,cx mov dx,cs:[io_adr] IF DLCR_XMIT_STAT NE 0 add dx,DLCR_XMIT_STAT ENDIF wait_tmt: in al,dx ; read status register until timeout... test al,TMT_OK jnz send_ok loop wait_tmt stc ret send_ok: clc ret public get_address get_address: ;get the address on the interface. ;enter with es:di -> place to get the address, cx = size of address buffer ;exit with nc, cx = actual size of address, or cy if buffer not big enough ; assume ds:code cmp cx,EADDR_LEN ; enough room for address? jge get_adr_ok stc ret get_adr_ok: mov cx,EADDR_LEN mov dx,cs:[io_adr] ; get address from PROM add dx,PROM_ID cld get_adr: in al,dx inc dx stosb loop get_adr mov cx,EADDR_LEN 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 ret rcv_mode_1: writebport DLCR_RECV_MODE,0 ; don't receive any packets ret rcv_mode_3: writebport DLCR_RECV_MODE,2 ; receive mine, broads, and multis. ret rcv_mode_6: writebport DLCR_RECV_MODE,3 ; receive all packets. ret public set_multicast_list set_multicast_list: ;enter with es:di ->list of multicast 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 get_multicast_list get_multicast_list: ;return with nc, es:di ->list of multicast addresses, cx = number of bytes. ;return cy, NO_ERROR if we don't remember all of the addresses ourselves. ;return cy, NO_MULTICAST if we don't implement multicast. mov dh,NO_MULTICAST stc ret public terminate terminate: writebport DLCR_RECV_MODE,0 ; don't receive any packets ret public reset_interface reset_interface: ;reset the interface. assume ds:code ret ;called when we want to determine what to do with a received packet. ;enter with cx = packet length, es:di -> packet type. extrn recv_find: near ;called after we've copied the packet into the buffer. ;enter with ds:si ->the packet, cx = length of the packet. extrn recv_copy: near extrn count_in_err: near extrn count_out_err: near public recv recv: ;called from the recv isr. All registers have been saved, and ds=cs. ;Upon exit, the interrupt will be acknowledged. assume ds:code marker R,X ;clear receive masks to prevent further IRQs writebport DLCR_RECV_MASK,0 cli recv_0: mov ax,cs mov ds,ax writebport DLCR_RECV_STAT,clr_rcv_status ;are there any packets to read? mov dx,cs:[io_adr] add dx,DLCR_RECV_MODE in al,dx test al,BUF_EMPTY jz recv_1 ; 0 if at least one valid pkt.. jmp recv_99 ;yes, read out a receive packet... recv_1: cmp cs:is_186,0 jne recv11 jmp read_b_mode ; ; read packet out in word mode ; recv11: mov dx,cs:[io_adr] ; get status and reserved byte add dx,BMPR_MEM_PORT in ax,dx in ax,dx ; get packet size inc ax ; convert to words and ax,not 1 ; save it for copy out... push ax ;read first 14 bytes from receive buffer into ether_buff mov ax,cs mov es, ax mov di,offset ether_buff mov cx,7 ; word mode, remember... cld ; rep insw ; read 7 words into ether_buff db 0f3h, 06dh ;masm 4.0 doesn't grok "rep insw" ; ; If the sender is myself, ignore the packet. This allows async ; send/receive without messing up... ; mov si,offset ether_buff+EADDR_LEN ; we want the SOURCE mov dx,cs:io_adr add dx,PROM_ID mov cx,EADDR_LEN my_send: in al, dx inc dx cmp al,byte ptr ds:[si] jne not_mine inc si loop my_send jmp word_flush ; mine, so flush it ; ; cx = length, es:di = pointer to ethertype ; not_mine: pop cx push cx mov di,offset ether_type mov ax,cs mov es,ax ; es:di -> ether type, cx = size# bytes call recv_find ; got a buffer? mov ax,es or ax,di ; pointer zero? je word_flush ; no pointer, discard data ; ; es:di -> users buffer, do copy... ; ds:si -> source of copy ; mov cs:[usr_ptr.segm],es; save ULP pointer mov cs:[usr_ptr.offs],di mov ax,cs mov ds,ax mov si,offset ether_buff ; copy header to users buffer mov cx,7 ; 7 words to copy cld rep movsw mov dx,cs:[io_adr] ;copy rest of data to user add dx,BMPR_MEM_PORT ; buffer in es:di -> pop cx push cx sub cx,14 shr cx,1 cld ; rep insw ; read word, store at es:di -> db 0f3h, 06dh ;masm 4.0 doesn't grok "rep insw" pop cx ;call recv_copy to say copy done lds si,cs:[usr_ptr] call recv_copy jmp recv_0 ; go get another packet word_flush: mov dx,cs:[io_adr] add dx,BMPR_MEM_PORT pop cx sub cx,14 ; adjust word count shr cx,1 word_f: in ax,dx loop word_f jmp recv_0 ; ; go see of any more packets comming.... ; ; READ in BYTE MODE ; read_b_mode: mov dx,cs:[io_adr] ;get status and reserved byte add dx,BMPR_MEM_PORT in al,dx ; vacuum status and reserved in al,dx in al,dx ; get packet size xchg al,ah ; low byte in ah in al,dx ; get packet size xchg al,ah ; fix size ah/al order push ax ; keep number of bytes ; read first 14 bytes from receive buffer into ether_buff mov ax,cs mov es,ax mov di,offset ether_buff mov cx,14 ; byte mode, 14 byte header cld rdb: in al,dx ; read 14 bytes into ether_buff stosb loop rdb ; ; If the sender is myself, ignore the packet. ; mov si,offset ether_buff+EADDR_LEN; we want the SOURCE... mov dx,cs:[io_adr] add dx,PROM_ID mov cx,EADDR_LEN my_sendb: in al,dx inc dx cmp al,byte ptr ds:[si] jne not_mineb inc si loop my_sendb jmp byte_flush ; mine, so flush it ; ; cx = length, es:di = pointer to ethertype ; not_mineb: pop cx push cx mov di,offset ether_type mov ax,cs mov es,ax ; es:di -> ether type, cx = size#bytes call recv_find ; got a buffer? mov ax,es or ax,di ; pointer zero? je byte_flush ; no pointer, discard data ; ; es:di -> users buffer, do copy... ; ds:si -> source of copy ; mov cs:[usr_ptr.segm],es ; save ULP pointer mov cs:[usr_ptr.offs],di mov ax,cs mov ds,ax mov si,offset ether_buff ; copy header to users buffer mov cx,14 ; 14 bytes in header to copy cld rep movsb mov dx,cs:io_adr ; copy rest of data to users add dx,BMPR_MEM_PORT ; buffer in es:di -> pop cx push cx sub cx,14 cld cpyb: in al,dx ; read byte stosb ; store at es:di -> loop cpyb pop cx ; call recv_copy to say copy done lds si,cs:[usr_ptr] call recv_copy jmp recv_0 ; go get another packet... byte_flush: mov dx,cs:io_adr add dx,BMPR_MEM_PORT pop cx sub cx,14 ; adjust byte count header byte_f: in al,dx loop byte_f jmp recv_0 ; go to see if any more packets comming... recv_99: ; receive ok, restore recive mask and exit ; writebport DLCR_RECV_MASK,en_rcv_irqs ret public recv_exiting recv_exiting: ;called from the recv is after interrupts have been acknowledged. ;Only ds and ax have been saved. ; assume ds:nothing ret ;any code after this will not be kept after initialization. end_resident label byte io_adr_msg db "I/O Base Address: ",'$' int_no_msg db " Interrupt Level: ",'$' no_card_msg db "INIT: No card at I/O address specified",CR,LF,'$' is_186_msg db "INIT: Using WORD I/O mode.",CR,LF,'$' not_186_msg db "INIT: Using BYTE I/O mode.",CR,LF,'$' installed_ok db "INIT: Installation Complete",CR,LF,'$' public usage_msg usage_msg db "usage: TiaraFTP [-n] [-d] [-w] <packet_int_no> <int_no> <io_adr>",CR,LF,'$' public copyright_msg copyright_msg label byte db CR,LF db "TiaraFTP: Driver for Tiara Card, Version 1.",'0'+version, CR,LF db "portions Copyright 1990, Queens University",CR,LF db " Written by Brian Fisher",CR,LF db CR,LF,'$' extrn set_recv_isr: near ;enter with si-> argument string,di->wword to store. ;if there is no number, don't change the number. ;enter with si -> argument string, di -> word to store. ;if there is no number, don't change the number. extrn get_number: near ;enter with dx -> name of word, di -> dword to print. extrn print_number: near public parse_args parse_args: ;parse I/O base address and hardware interrupt number from the command line mov di,offset int_no ; interrupt level? call get_number mov di,offset io_adr ; first comes the I/O base address call get_number clc ret public etopen etopen: writebport DLCR_ENABLE,card_disable ; disable etherstar writebport DLCR_XMIT_STAT,clear_status ; clr xmit status writebport DLCR_XMIT_MASK,no_tx_irqs ; disable xmit IRQ's writebport DLCR_RECV_STAT,clr_rcv_status ; clear rcv status writebport DLCR_RECV_MASK,en_rcv_irqs ; enable rcv IRQ's writebport DLCR_XMIT_MODE,xmit_mode ; set xmit mode writebport DLCR_RECV_MODE,recv_mode ; set receive mode ; ; Set Node ID: ; mov cx,EADDR_LEN ; calc base of I/O regs for node id mov bx,cs:io_adr mov dx,bx add bx,DLCR_NODE_ID add dx,PROM_ID ; and base of PROM for copy etopen0: in al,dx ; read byte of factory address xchg bx,dx out dx,al ; write to register xchg bx,dx inc dx inc bx loop etopen0 ; until copy is done... ; ; Verify card exists by comparing address to PROM ; mov cx,EADDR_LEN etopen1: dec dx dec bx in al,dx xchg bx,dx mov ah,al in al,dx xchg bx,dx cmp al,ah jne etopen_nocard ; no card found loop etopen1 ;Determine the processor type. The 8088 and 8086 will actually shift ax ;over by 33 bits, while the 80[123]86 use a shift count mod 32. mov cl,33 mov ax,0ffffh shl ax,cl ; Thanks to Russ Nelson for this little jz not_186 ; bit of 'clip art'. mov is_186,1 print$ is_186_msg jmp etopen2 not_186: print$ not_186_msg etopen2: ; vacuum data port until BUF_EMPTY mov dx,cs:io_adr mov bx,dx add bx,DLCR_RECV_MODE add dx,BMPR_MEM_PORT cmp cs:is_186,0 je vac_88 vac_86: in ax,dx xchg dx,bx in ax,dx xchg dx,bx test al,BUF_EMPTY jz vac_86 jmp all_done vac_88: in al,dx xchg dx,bx in al,dx xchg dx,bx test al,BUF_EMPTY jz vac_88 all_done: writebport DLCR_ENABLE,card_enable call set_recv_isr ; install receive IRQ routine 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. print$ installed_ok ; if all is okay, mov dx,offset end_resident clc ret etopen_nocard: print$ no_card_msg ; couldn't verify card exists... stc ret public print_parameters print_parameters: ;echo our command-line parameters mov di,offset io_adr ; first comes the I/O base address mov dx,offset io_adr_msg call print_number mov di,offset int_no ; interrupt level? mov dx,offset int_no_msg call print_number ret code ends end