;------------------------------------------------------
;- sensor1.asm  (c) Juan Gonzalez. Marzo 2004
;------------------------------------------------------
; Ejemplo de manejo del sensor CNY70, en modo digital
; Se lee el sensor IR1 (Conectado al pin PTC5) y
; se saca su estado por el puerto B
;------------------------------------------------------
; Sensor IR1: Pin PTC5
; Valores devueltos por el sensor:
;   Negro -->  1
;   Blanco --> 0
;------------------------------------------------------
; Licencia GPL
;------------------------------------------------------
;-- Incluir los registros del 6808
$include 'gpregs.inc'

;-- Incluir mapa de memoria de la GPBOT
$include 'gpmap.inc'

	;-- Zona de codigo
	org RomStart


main:
	;-- Inicializar la pila
	ldhx #InitStk
	txs

	;-- Deshabilitar el COP
	bset 0,CONFIG1

    ;-- Configurar puerto B para salida
        lda	#$FF
	sta	DDRB

    ;---------------------------------------------------------
    ;- Configucion para utilizar el sensor en modo digital
    ;---------------------------------------------------------
    ;-- Configurar puerto C para entrada
	clra
	sta	DDRC
    ;-- Configurar pull-up
	lda #$20
	sta PTCPUE


bucle:
    ;-- Leer sensor ir1 (Puerto C)
    lda PORTC
    and #$20   ; Nos quedamos solo con bit PCT5

    ;-- Enviar el valor al puerto B para visualizarlo
    ;-- en los leds
    sta PORTB

    BRA bucle


;---------------------------------------
;- Zona de vectores de interrupcion
;---------------------------------------
dummy_isr:
	RTI

	org VectorStart
	dw dummy_isr	;-- Vector TMB
	dw dummy_isr	;-- Vector DAC
	dw dummy_isr    ;-- Vector KBI
	dw dummy_isr	;-- Vector Transmision SCI
	dw dummy_isr	;-- Vector Receptor SCI
	dw dummy_isr	;-- Vector Error SCI
	dw dummy_isr	;-- Vector Tranmisor SPI
	dw dummy_isr	;-- Vector Receptor SPI
	dw dummy_isr	;-- Vector Overflow TIM2
	dw dummy_isr	;-- Vector Canal 1 TIM2
	dw dummy_isr	;-- Vector Canal 0 TIM2
	dw dummy_isr	;-- Vector Overflow TIM1
	dw dummy_isr	;-- Vector Canal 1  TIM1
	dw dummy_isr    ;-- Vector Canal 0  TIM1
	dw dummy_isr    ;-- Vector PLL
	dw dummy_isr    ;-- Vector IRQ
	dw dummy_isr    ;-- Vector SWI
	dw main	        ;-- Vector Reset