LENGUAJE_MENU

****************************************************************************
* Menu.asm.

GRUPO J&J. **--------------------------------------------------------------------------*
* Programa

ejemplo para ser ejecutado en la tarjeta CT6811 *
* Este programa se debe

cargar en la RAM interna del 6811*
*

*
* Ejemplo de como manejar un menu de opciones para

programas interac- *
* tivos con elusuario

*
****************************************************************************

CR

equ 13 ; Retorno de carro
LF equ10 ; Avance de linea

* Registros del SCI

BAUD equ $2B
SCCR1 equ $2C
SCCR2 equ $2D
SCSR equ $2E
SCDR equ $2F



LDX #$1000 * Para acceder aregistros del SCI

bucle LDY #menu
BSR send_cad

* Sacar menu
wait BSR leer_car * Leer tecla
CMPA #'1'
BEQ opcion1

* Tecla '1'--> Opcion 1 del menu.CMPA #'2'
BEQ opcion2 * Tecla

'2'--> Opcion 2 del menu.
BRA wait

opcion1 LDAA $1000
EORA #$40 *

Cambiar estado bit 6 puerto ASTAA $1000
BRA wait

opcion2 BRA bucle

* Volver a sacar el menu

***********************************************************
*

Rutina para leer un caracter del puertoserie (SCI) *
* La rutina espera hasta que

llegue algun caracter *
* ENTRADAS: Ninguna. *
*

SALIDAS: El acumulador A contiene el caracterrecibido *
***********************************************************
leer_car BRCLR SCSR,X $20

leer_car * Esperar hasta que llegue un caracter
LDAA SCDR,X
RTS...