;------------------------------------------------------------
;  ad-test1.asm  
;  (c) Juan Gonzalez. Marzo 2004
;  (c) Ivan Gonzalez. 2002, 2003
;------------------------------------------------------------
; Prueba del conversor analogico/digital
; Se leen muestras del CANAL 0 (PB0) y se sacan por el
; puerto A, donde se pueden visualizar en una placa de leds
; Si se conecta un pontenciometro al canal 0 y una placa de 
; leds al puerto A, se puede ir viendo como cambian los leds
; segun la posicion del potenciometro
;------------------------------------------------------------
; Licencia GPL
;------------------------------------------------------------

	;-- Incluir los registros del 6808
	.include "gpregs.inc"

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

	;-- Zona de codigo
	.area CSEG (ABS)
	.org RomStart
	
main:

	;-- Inicializar la pila
	ldhx #InitStk
	txs
	
	;-- Deshabilitar el COP
	bset #0,*CONFIG1
	
	;-- Configurar puerto A para salida
	lda	#0xFF	; Configurar puerto A para salida
	sta	DDRA

	;-- Configurar conversor A/D
	;-- Reloj del bus interno: Bit4-->1
	;-- Bits 7,6 y 5--> Dividir entre 2 para conseguir
	;--  una frecuencia de 1MHZ
	;-- El resto de bits no se emplean
	lda #0x30
	sta ADCLK
	
	;----------------------------
	;-- BUCLE PRINCIPAL          
	;----------------------------
bucle:
	;-- Seleccionar canal 0 (PB0)
	;-- y activar la conversion
	LDA #0x00
	STA ADSCR
	;-- Esperar a que la conversion se realice
wait:
	BRCLR #7,*ADSCR,wait
	
	;-- Leer la muestra y enviarla al puerto A
	LDA ADR
	STA PORTA
	
	BRA bucle

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

 	.area VECTOR (ABS)
	.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