/******************************************************************************/
/* Copyright 2004 MBARI - Monterey Bay Aquarium Research Institute            */
/******************************************************************************/
/******************************************************************************/
/* Summary  : Routines to configure and access IO on CPU Port QS              */
/* Filename : IO_PORTQ.C                                                      */
/* Author   : Luke Coletti                                                    */
/* Project  :                                                                 */
/* Version  : 1.0                                                             */
/* Compiler : Aztec C68k/ROM v5.2D                                            */
/* Created  : 09/23/04                                                        */
/* Archived :                                                                 */
/******************************************************************************/
/* Modification History:                                                      */
/*                                                                            */
/******************************************************************************/
#include        <TT8.h>                 /* Tattletale Model 8 Definitions */
#include        <tt8lib.h>              /* definitions and prototypes for Model 8 library */
#include        <stdio.h>
#include        "lobo.h"

/****************************************************************************/
/* CPU PortQS[3]  = BiDir  = SHT75_DATA                                     */
/* CPU PortQS[4]  = Output = SHT75_CLOCK                                    */
/* CPU PortQS[5]  = BiDir  = TOUCHMEM_IO                                    */
/****************************************************************************/
void InitPortQS_IO(void)
{
;
#asm
PORTQS      equ     $FFFC15             ;port QS (tt8 port d)       r/w
PQSPAR      equ     $FFFC16             ;port QS pin assignment     r/w
PQSDDR      equ     $FFFC17             ;port QS data direction     r/w

            andi.b  #%11000111,PQSPAR   ;PORTQS[3.5] to general digital I/O
            andi.b  #%11100111,PORTQS   ;clr SHT75_CLK and SHT75_DAT
            andi.b  #%11010111,PQSDDR   ;set SHT75_DAT and TOUCHMEM_IO to inputs
            ori.b   #%00010000,PQSDDR   ;set SHT75_CLK to output


                                        ;return from C function call
#endasm
}