;------------------------------------------------------
;- porta-salent.asm  (c) Juan Gonzalez. Febrero 2004
;------------------------------------------------------
; Ejemplo de manejo del puerto A para entrada y salida
; Los 4 bits de menor peso del puerto A se configuran 
; para entrada y los 4 mayores como salida.
;  Todo lo recibido por los de menor peso se manda a los 
; de mayor
;------------------------------------------------------
; 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:
	;-- Configurar puerto A
	;-- 4 bits mayor peso--> Salida
	;-- 4 bits menor peso--> Entrada
	lda	#0xF0
	sta	DDRA

repite:

	lda PORTA		; Leer puerto A
	nsa	   			; Intercambiar los nibble superior e inferior
	sta PORTA		; Escribir nuevo valor en puerto A
	BRA repite

;---------------------------------------
;- 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