Logicos

*****Inicializando la RAM
*************************************
* Escritura en un Display *
*************************************RAMStart EQU $0080
RomStart EQU $EC00 ; Valid for all JL3, JK3, JK1
VectorStart EQU $FFDE
RETRASO EQU $0004 ; Tiempo de espera requerido paraescribir en la
; RAM del display

$Include "D:\pemicro\ics08jlz\JL3REGS.INC" ; For the 68HC908JL3, 68HC908JK3, 68HC908JK1

orgRamStart
INST ds 1 ; Variable de Instruccion
DATA ds 2 ; variable de Datos
org RomStart**************************************************************
* Las subrutinas. *
**************************************************************

envINST:LDA INST ; Carga en A el dato en INST
STA portb ; Carga en el puerto B el valor en A[7:4]

MOV #$40,portd ; carga en el PD7 el valor de0. PD7 = RS. Y
; carga en PD6 el valor de 1. PD6 = E.

LDHX #RETRASO ; Le da el tiempo de acción necesario.
BSR PASA_TIEMPO ; Esperael tiempo necesario para la escritura

MOV #$00,portd ; carga en PD6 el valor de 0. PD6 = E.

ROLA ; Rota A hacia la derechaROLA ; Se necesita que A rote 4 veces para que
ROLA ; Los datos en A[3:0] tomen las posiciones A[7:4]
ROLA ; Que son las utilizadas para enviar la informacion; al Display

STA portb ; Carga en el puerto B el valor en A[7:4]. En este caso
; Serian los datos que estan en A[3:0]
MOV...