ORG &4000

LD A,1      ;CARGAMOS EN EL ACUMULADOR EL DECIMAL "1"
CALL &BC0E  ;ESTABLECE EL MODO DE PANTALLA EN EL QUE ESTÉ EL ACUMULADOR (0,1,2)

LD H,&00
LD L,&00
CALL &BB75  ;POSICIONA EL CURSOR EN (L,H)

LD HL,TAMMENU
CALL ESCRIBETEXTO

RET

;-----------------------------------------------------------------
;RUTINAS
;-----------------------------------------------------------------
ESCRIBETEXTO        ;RUTINA PARA ESCRIBIR TEXTOS
            ;REQUIERE UN .TAMALGO Y UN .TXTALGO
            ;INPUT:
            ;"LD HL,TAMALGO"
    LD B,(HL)   ;GUARDAMOS EN "B" EL TAMAÑO DEL TEXTO
    INC HL      ;INCREMENTAMOS "HL" PARA QUE PASE "A" APUNTAR EL PRIMER CARACTER DEL TEXTO

    .ESCRIBE
    LD A,(HL)   ;CARGA EN "A" EL CARACTER AL QUE ESTAMOS APUNTANDO
    CALL &BB5A  ;LLAMAMOS A LA RUTINA DE ESCRITURA
    INC HL      ;APUNTAMOS AL SIGUIENTE CARACTER
    DJNZ ESCRIBE    ;DECREMENTAMOS "B· Y SI NO HAY "ZERO" SALTAMOS A ".ESCRIBE"
RET

;-----------------------------------------------------------------
;DATOS
;-----------------------------------------------------------------
.TAMMENU
DB 59
.TXTMENU
DB " Escribe una palabra. "
DB "Pulsa enter para terminar la edicion:"