#include <tigcclib.h>

#define DLPA 0x60000E
#define LP 0x60000C

// Main Function
void _main(void)
{


  pokeIO (0x60000C,40); // init port
  SetIntVec (AUTO_INT_1, DUMMY_HANDLER);
  SetIntVec (AUTO_INT_5, DUMMY_HANDLER);

  for( ; ; ) {
    printf_xy(10,20,"%d", peekIO_bit (DLPA, 3));
    printf_xy(20,20,"%d", peekIO_bit (DLPA, 2));
    if(_keytest(RR_LEFT))
      pokeIO_bclr (DLPA, 0);
    else
      pokeIO_bset (DLPA, 0);
    
    if(_keytest(RR_RIGHT))
      pokeIO_bclr (DLPA, 1);
    else
      pokeIO_bset (DLPA, 1);
  }
}

$60000C RW ($8D when idle, write $E0 then $8D to reset, $8F when sending)
  Read to begin acknowledging link interrupt (level 4)
  :7  Autostart enable, should be set if $600005:3 is set
  :6  Disable byte sender/receiver (also disables interrupts)
  :5  Link timeout disable
  :4  -
  Trigger interrupt level 4 on ...
  :3  ... error (timeout or protocol violation)
  :2  ... any link activity
  :1  ... transmit buffer empty
  :0  ... byte in receive buffer
  Note: The link hardware generates lots of interrupts and the
  interrupt handler must know the reason for every one to be able to
  acknowledge them properly.  Otherwise the CPU will loop the
  interrupt handler over and over again...
  If OSC2 is turned off (in calc power-off mode), the only condition
  that can be detected and generate an interrupt (to wake up the
  processor) is "any link activity" (:2).

$60000D R- Current link status (interrupt reason)
  :7  Error (undefined if :3 =1)
    Reset link (#$E0 then #$8D to $60000C) to finish acknowledge.
  :6  Transmit buffer empty (undefined if :5 =1 or :7 =1)
    Write another byte to $60000F or clear $60000C:1 to finish
    acknowledge.
  :5  Byte in receive buffer (undefined if :7 =1)
    Read the byte from $60000F to finish acknowledge
  :4  Interrupt pending (always =1 in interrupt handler)
  :3  Link activity (AMS int handler quits immediately)
  :2  (?)External activity ("someone's talking to me!")
  :1  ?? Almost always set
  :0  ?? Always zero?
  The bits must be checked in this order: :3, :7, :5, :6.

$60000E RW Direct link port access
  :7-4  -
  :3  Live status of D1/ring/white  (1=pulled down)
  :2  Live status of D0/tip/red  (1=pulled down)
  :1  Activate (pull down) D1/ring/white
  :0  Activate (pull down) D0/tip/red
  Note: The byte sender/receiver will be confused by direct link port
  access, it should be disabled first.  (See $60000C:6.)
  * D0/tip/red is pulled down first (by sender) when sending a '0'.
  * D1/ring/white is pulled down first (by sender) when sending a '1'.
  * The innermost ring is signal ground.
  * The link port normally operates in a half-duplex mode where a bit
    is sent by activating the corresponding line ("ring" or "tip") and
    the receiver acknowledges by activating the other line.  The
    sender now releases its line and finally the receiver releases the
    acknowledge.  Whole bytes are always sent, LSB first.  An "error"
    condition (="abort") is signalled by activating both lines at the
    same time for ~250us.
  * When generating stereo sound, use tip/red for right channel and
    ring/white for left channel.

// C Source File
// Created 09/02/2005; 15:06:42

#include <tigcclib.h>

#define DLPA 0x60000E
#define LP 0x60000C

INT_HANDLER OldInt1 = NULL;
INT_HANDLER OldInt5 = NULL;

// Main Function
void _main(void)
{
  OldInt1 = GetIntVec (AUTO_INT_1);
  OldInt5 = GetIntVec (AUTO_INT_5);
  SetIntVec (AUTO_INT_1, DUMMY_HANDLER);
  SetIntVec (AUTO_INT_5, DUMMY_HANDLER);
  
  pokeIO (LP,40); // init port

  while (!_keytest (RR_ESC)) 
  {
    printf_xy(10,20,"%d", (short )(*(unsigned char *)0x60000E&0x01));
    printf_xy(20,20,"%d", (short )(*(unsigned char *)0x60000E&0x02)>>1);
    if (_keytest(RR_LEFT))
      *(unsigned char *)0x60000E &= 0b11111110;
    else if (_keytest(RR_RIGHT))
      *(unsigned char *)0x60000E |= 0b00000001;
    else if (_keytest(RR_UP))
      *(unsigned char *)0x60000E &= 0b11111101;
    else if (_keytest(RR_DOWN))
      *(unsigned char *)0x60000E |= 0b00000010;
  }
  
  SetIntVec (AUTO_INT_1, OldInt1);
  SetIntVec (AUTO_INT_5, OldInt5);
}