contiki-apple2/uip/cs8900a.c - contiki-1.x - Gitiles

 /*
  * Copyright (c) 2001, Adam Dunkels.
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  * 3. The name of the author may not be used to endorse or promote
  *    products derived from this software without specific prior
  *    written permission.
  *
  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
  * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
  * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *
  * This file is part of the C64 RealAudio server demo project.
  *
  * $Id: cs8900a.c,v 1.8 2005/05/22 14:04:21 oliverschmidt Exp $
  *
  */

 /* cs8900a.c: device driver for the CS8900a chip in 8-bit mode. Mostly
    written in 6502 assembler for speed. */

 #include "cs8900a.h"
 #include "uip.h"
 #include "uip_arp.h"

 extern u8_t lanslot;
 extern u8_t *cs8900a_rxtxreg,
             *cs8900a_txcmd,
             *cs8900a_txlen,
             *cs8900a_packetpp,
             *cs8900a_ppdata;

 static u8_t idx;
 static u16_t len;
 static u16_t cnt;


 /*-----------------------------------------------------------------------------------*/
 #pragma optimize(push, off)
 void
 cs8900a_init(void)
 {
   asm("lda %v", lanslot);
   asm("beq %g", bailout);
   asm("asl");
   asm("asl");
   asm("asl");
   asm("asl");
   asm("sta %v", idx);
   asm("tax");

   /* Turn on transmission and reception of frames. */
   /* PACKETPP = 0x0112;
      PPDATA   = 0x00c0; */
   asm("lda #$12");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda #$c0");
   asm("sta %v,x", cs8900a_ppdata);
   asm("lda #$00");
   asm("sta %v+1,x", cs8900a_ppdata);

   /* Accept valid unicast+broadcast frames. */
   /* PACKETPP = 0x0104;
      PPDATA   = 0x0d05; */
   asm("lda #$04");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda #$05");
   asm("sta %v,x", cs8900a_ppdata);
   asm("lda #$0d");
   asm("sta %v+1,x", cs8900a_ppdata);

   /* Set MAC address. */
   /* PACKETPP = 0x0158;
      PPDATA   = (ETHADDR1 << 8) | (ETHADDR0); */
   asm("lda #$58");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v", uip_ethaddr);
   asm("sta %v,x", cs8900a_ppdata);
   asm("lda %v+1", uip_ethaddr);
   asm("sta %v+1,x", cs8900a_ppdata);

   /* PACKETPP = 0x015a;
      PPDATA   = (ETHADDR3 << 8) | (ETHADDR2); */
   asm("lda #$5a");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v+2", uip_ethaddr);
   asm("sta %v,x", cs8900a_ppdata);
   asm("lda %v+3", uip_ethaddr);
   asm("sta %v+1,x", cs8900a_ppdata);

   /* PACKETPP = 0x015c;
      PPDATA   = (ETHADDR5 << 8) | (ETHADDR4); */
   asm("lda #$5c");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v+4", uip_ethaddr);
   asm("sta %v,x", cs8900a_ppdata);
   asm("lda %v+5", uip_ethaddr);
   asm("sta %v+1,x", cs8900a_ppdata);
 bailout:
 }
 #pragma optimize(pop)
 /*-----------------------------------------------------------------------------------*/
 #pragma optimize(push, off)
 void
 cs8900a_send(void)
 {
   asm("ldx %v", idx);
   asm("beq %g", bailout);

   /* Transmit command. */
   asm("lda #$c0");
   asm("sta %v,x", cs8900a_txcmd);
   asm("lda #$00");
   asm("sta %v+1,x", cs8900a_txcmd);
   asm("lda %v", uip_len);
   asm("sta %v,x", cs8900a_txlen);
   asm("lda %v+1", uip_len);
   asm("sta %v+1,x", cs8900a_txlen);

   asm("ldy #8");
 tryagain:
   /* Check for avaliable buffer space. */
   asm("lda #$38");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v+1,x", cs8900a_ppdata);
   asm("and #1");
   asm("bne %g", send);

   /* No space avaliable, skip a received frame and try again. */
   asm("lda #$02");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v,x", cs8900a_ppdata);
   asm("ora #$40");
   asm("sta %v,x", cs8900a_ppdata);

   asm("dey");
   asm("bne %g", tryagain);
 bailout:
   return;

   /* Send the frame. */
 send:

   /* First, send 14+40=54 bytes of header. */
   asm("ldy #0");
 sendloop1:
   asm("lda %v,y", uip_buf);
   asm("sta %v,x", cs8900a_rxtxreg);
   asm("iny");
   asm("lda %v,y", uip_buf);
   asm("sta %v+1,x", cs8900a_rxtxreg);
   asm("iny");
   asm("cpy #%b", UIP_LLH_LEN + UIP_TCPIP_HLEN);
   asm("bne %g", sendloop1);

   if(uip_len <= UIP_LLH_LEN + UIP_TCPIP_HLEN) {
     return;
   }

   /* Next, send rest of the packet. */
   cnt = uip_len - (UIP_LLH_LEN + UIP_TCPIP_HLEN);

   asm("ldx %v", idx);

   asm("lda %v", cnt);
   asm("lsr");
   asm("bcc %g", noinc);
   asm("inc %v", cnt);
   asm("bne %g", noinc);
   asm("inc %v+1", cnt);
 noinc:

   asm("lda %v", uip_appdata);
   asm("sta ptr1");
   asm("lda %v+1", uip_appdata);
   asm("sta ptr1+1");

   asm("ldy #0");
 sendloop2:
   asm("lda (ptr1),y");
   asm("sta %v,x", cs8900a_rxtxreg);
   asm("iny");
   asm("lda (ptr1),y");
   asm("sta %v+1,x", cs8900a_rxtxreg);
   asm("iny");
   asm("bne %g", check);
   asm("inc ptr1+1");
 check:
   asm("cpy %v", cnt);
   asm("bne %g", sendloop2);
   asm("dec %v+1", cnt);
   asm("bpl %g", sendloop2);
 }
 #pragma optimize(pop)
 /*-----------------------------------------------------------------------------------*/
 #pragma optimize(push, off)
 static void
 skip_frame(void)
 {
   asm("ldx %v", idx);

   /* PACKETPP = 0x0102;
      PPDATA   = PPDATA | 0x0040; */
   asm("lda #$02");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v,x", cs8900a_ppdata);
   asm("ora #$40");
   asm("sta %v,x", cs8900a_ppdata);
 }
 #pragma optimize(pop)
 /*-----------------------------------------------------------------------------------*/
 #pragma optimize(push, off)
 u16_t
 cs8900a_poll(void)
 {
   asm("ldx %v", idx);
   asm("beq %g", bailout);

   /* Check receiver event register to see if there are any valid
      unicast frames avaliable.  */
   /* PACKETPP = 0x0124;
      if(PPDATA & 0x000d == 0x0000) {
        return 0;
      }
   */
   asm("lda #$24");
   asm("sta %v,x", cs8900a_packetpp);
   asm("lda #$01");
   asm("sta %v+1,x", cs8900a_packetpp);
   asm("lda %v+1,x", cs8900a_ppdata);
   asm("and #$0d");
   asm("cmp #$00");
   asm("bne %g", noreturn);
   /* No frame ready. */
 bailout:
   return 0;

 noreturn:
   /* Process the incoming frame. */

   /* Read receiver event and discard it. */
   /* RXTXREG; */
   asm("lda %v+1,x", cs8900a_rxtxreg);
   asm("lda %v,x", cs8900a_rxtxreg);

   /* Read frame length. */
   /* cnt = len = RXTXREG; */
   asm("lda %v+1,x", cs8900a_rxtxreg);
   asm("sta %v+1", len);
   asm("sta %v+1", cnt);
   asm("lda %v,x", cs8900a_rxtxreg);
   asm("sta %v", len);
   asm("sta %v", cnt);

   asm("lsr");
   asm("bcc %g", noinc);
   asm("inc %v", cnt);
   asm("bne %g", noinc);
   asm("inc %v+1", cnt);
 noinc:

   if(cnt > UIP_BUFSIZE) {
     skip_frame();
     return 0;
   }

   /* Read bytes into uip_buf. */
   asm("ldx %v", idx);

   asm("lda #<%v", uip_buf);
   asm("sta ptr1");
   asm("lda #>%v", uip_buf);
   asm("sta ptr1+1");

   asm("ldy #0");
 readloop:
   asm("lda %v,x", cs8900a_rxtxreg);
   asm("sta (ptr1),y");
   asm("iny");
   asm("lda %v+1,x", cs8900a_rxtxreg);
   asm("sta (ptr1),y");
   asm("iny");
   asm("bne %g", check);
   asm("inc ptr1+1");
 check:
   asm("cpy %v", cnt);
   asm("bne %g", readloop);
   asm("dec %v+1", cnt);
   asm("bpl %g", readloop);
   return len;
 }
 #pragma optimize(pop)
	/*
	* Copyright (c) 2001, Adam Dunkels.
	* All rights reserved.
	*
	* Redistribution and use in source and binary forms, with or without
	* modification, are permitted provided that the following conditions
	* are met:
	* 1. Redistributions of source code must retain the above copyright
	* notice, this list of conditions and the following disclaimer.
	* 2. Redistributions in binary form must reproduce the above copyright
	* notice, this list of conditions and the following disclaimer in the
	* documentation and/or other materials provided with the distribution.
	* 3. The name of the author may not be used to endorse or promote
	* products derived from this software without specific prior
	* written permission.
	*
	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
	* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
	* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
	* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
	* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
	* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
	* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
	* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	*
	* This file is part of the C64 RealAudio server demo project.
	*
	* $Id: cs8900a.c,v 1.8 2005/05/22 14:04:21 oliverschmidt Exp $
	*
	*/

	/* cs8900a.c: device driver for the CS8900a chip in 8-bit mode. Mostly
	written in 6502 assembler for speed. */

	#include "cs8900a.h"
	#include "uip.h"
	#include "uip_arp.h"

	extern u8_t lanslot;
	extern u8_t *cs8900a_rxtxreg,
	*cs8900a_txcmd,
	*cs8900a_txlen,
	*cs8900a_packetpp,
	*cs8900a_ppdata;

	static u8_t idx;
	static u16_t len;
	static u16_t cnt;


	/-----------------------------------------------------------------------------------/
	#pragma optimize(push, off)
	void
	cs8900a_init(void)
	{
	asm("lda %v", lanslot);
	asm("beq %g", bailout);
	asm("asl");
	asm("asl");
	asm("asl");
	asm("asl");
	asm("sta %v", idx);
	asm("tax");

	/* Turn on transmission and reception of frames. */
	/* PACKETPP = 0x0112;
	PPDATA = 0x00c0; */
	asm("lda #$12");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda #$c0");
	asm("sta %v,x", cs8900a_ppdata);
	asm("lda #$00");
	asm("sta %v+1,x", cs8900a_ppdata);

	/* Accept valid unicast+broadcast frames. */
	/* PACKETPP = 0x0104;
	PPDATA = 0x0d05; */
	asm("lda #$04");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda #$05");
	asm("sta %v,x", cs8900a_ppdata);
	asm("lda #$0d");
	asm("sta %v+1,x", cs8900a_ppdata);

	/* Set MAC address. */
	/* PACKETPP = 0x0158;
	PPDATA = (ETHADDR1 << 8) \| (ETHADDR0); */
	asm("lda #$58");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v", uip_ethaddr);
	asm("sta %v,x", cs8900a_ppdata);
	asm("lda %v+1", uip_ethaddr);
	asm("sta %v+1,x", cs8900a_ppdata);

	/* PACKETPP = 0x015a;
	PPDATA = (ETHADDR3 << 8) \| (ETHADDR2); */
	asm("lda #$5a");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v+2", uip_ethaddr);
	asm("sta %v,x", cs8900a_ppdata);
	asm("lda %v+3", uip_ethaddr);
	asm("sta %v+1,x", cs8900a_ppdata);

	/* PACKETPP = 0x015c;
	PPDATA = (ETHADDR5 << 8) \| (ETHADDR4); */
	asm("lda #$5c");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v+4", uip_ethaddr);
	asm("sta %v,x", cs8900a_ppdata);
	asm("lda %v+5", uip_ethaddr);
	asm("sta %v+1,x", cs8900a_ppdata);
	bailout:
	}
	#pragma optimize(pop)
	/-----------------------------------------------------------------------------------/
	#pragma optimize(push, off)
	void
	cs8900a_send(void)
	{
	asm("ldx %v", idx);
	asm("beq %g", bailout);

	/* Transmit command. */
	asm("lda #$c0");
	asm("sta %v,x", cs8900a_txcmd);
	asm("lda #$00");
	asm("sta %v+1,x", cs8900a_txcmd);
	asm("lda %v", uip_len);
	asm("sta %v,x", cs8900a_txlen);
	asm("lda %v+1", uip_len);
	asm("sta %v+1,x", cs8900a_txlen);

	asm("ldy #8");
	tryagain:
	/* Check for avaliable buffer space. */
	asm("lda #$38");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v+1,x", cs8900a_ppdata);
	asm("and #1");
	asm("bne %g", send);

	/* No space avaliable, skip a received frame and try again. */
	asm("lda #$02");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v,x", cs8900a_ppdata);
	asm("ora #$40");
	asm("sta %v,x", cs8900a_ppdata);

	asm("dey");
	asm("bne %g", tryagain);
	bailout:
	return;

	/* Send the frame. */
	send:

	/* First, send 14+40=54 bytes of header. */
	asm("ldy #0");
	sendloop1:
	asm("lda %v,y", uip_buf);
	asm("sta %v,x", cs8900a_rxtxreg);
	asm("iny");
	asm("lda %v,y", uip_buf);
	asm("sta %v+1,x", cs8900a_rxtxreg);
	asm("iny");
	asm("cpy #%b", UIP_LLH_LEN + UIP_TCPIP_HLEN);
	asm("bne %g", sendloop1);

	if(uip_len <= UIP_LLH_LEN + UIP_TCPIP_HLEN) {
	return;
	}

	/* Next, send rest of the packet. */
	cnt = uip_len - (UIP_LLH_LEN + UIP_TCPIP_HLEN);

	asm("ldx %v", idx);

	asm("lda %v", cnt);
	asm("lsr");
	asm("bcc %g", noinc);
	asm("inc %v", cnt);
	asm("bne %g", noinc);
	asm("inc %v+1", cnt);
	noinc:

	asm("lda %v", uip_appdata);
	asm("sta ptr1");
	asm("lda %v+1", uip_appdata);
	asm("sta ptr1+1");

	asm("ldy #0");
	sendloop2:
	asm("lda (ptr1),y");
	asm("sta %v,x", cs8900a_rxtxreg);
	asm("iny");
	asm("lda (ptr1),y");
	asm("sta %v+1,x", cs8900a_rxtxreg);
	asm("iny");
	asm("bne %g", check);
	asm("inc ptr1+1");
	check:
	asm("cpy %v", cnt);
	asm("bne %g", sendloop2);
	asm("dec %v+1", cnt);
	asm("bpl %g", sendloop2);
	}
	#pragma optimize(pop)
	/-----------------------------------------------------------------------------------/
	#pragma optimize(push, off)
	static void
	skip_frame(void)
	{
	asm("ldx %v", idx);

	/* PACKETPP = 0x0102;
	PPDATA = PPDATA \| 0x0040; */
	asm("lda #$02");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v,x", cs8900a_ppdata);
	asm("ora #$40");
	asm("sta %v,x", cs8900a_ppdata);
	}
	#pragma optimize(pop)
	/-----------------------------------------------------------------------------------/
	#pragma optimize(push, off)
	u16_t
	cs8900a_poll(void)
	{
	asm("ldx %v", idx);
	asm("beq %g", bailout);

	/* Check receiver event register to see if there are any valid
	unicast frames avaliable. */
	/* PACKETPP = 0x0124;
	if(PPDATA & 0x000d == 0x0000) {
	return 0;
	}
	*/
	asm("lda #$24");
	asm("sta %v,x", cs8900a_packetpp);
	asm("lda #$01");
	asm("sta %v+1,x", cs8900a_packetpp);
	asm("lda %v+1,x", cs8900a_ppdata);
	asm("and #$0d");
	asm("cmp #$00");
	asm("bne %g", noreturn);
	/* No frame ready. */
	bailout:
	return 0;

	noreturn:
	/* Process the incoming frame. */

	/* Read receiver event and discard it. */
	/* RXTXREG; */
	asm("lda %v+1,x", cs8900a_rxtxreg);
	asm("lda %v,x", cs8900a_rxtxreg);

	/* Read frame length. */
	/* cnt = len = RXTXREG; */
	asm("lda %v+1,x", cs8900a_rxtxreg);
	asm("sta %v+1", len);
	asm("sta %v+1", cnt);
	asm("lda %v,x", cs8900a_rxtxreg);
	asm("sta %v", len);
	asm("sta %v", cnt);

	asm("lsr");
	asm("bcc %g", noinc);
	asm("inc %v", cnt);
	asm("bne %g", noinc);
	asm("inc %v+1", cnt);
	noinc:

	if(cnt > UIP_BUFSIZE) {
	skip_frame();
	return 0;
	}

	/* Read bytes into uip_buf. */
	asm("ldx %v", idx);

	asm("lda #<%v", uip_buf);
	asm("sta ptr1");
	asm("lda #>%v", uip_buf);
	asm("sta ptr1+1");

	asm("ldy #0");
	readloop:
	asm("lda %v,x", cs8900a_rxtxreg);
	asm("sta (ptr1),y");
	asm("iny");
	asm("lda %v+1,x", cs8900a_rxtxreg);
	asm("sta (ptr1),y");
	asm("iny");
	asm("bne %g", check);
	asm("inc ptr1+1");
	check:
	asm("cpy %v", cnt);
	asm("bne %g", readloop);
	asm("dec %v+1", cnt);
	asm("bpl %g", readloop);
	return len;
	}
	#pragma optimize(pop)