programa 9 (14) Letrero de Colores

CR EQU 13
LF EQU 10
BIOS EQU 10H
DOS EQU 21H
TEXTO EQU 3
FIN EQU 4C00H

DATOS SEGMENT
    TITULO DB 'ENSAMBLADOR'
    COLORES DB 01001110B
            DB 01101111B
            DB 00110001B
            DB 01011100B
            DB 00110001B
            DB 01011111B
            DB 01101011B
            DB 01011100B
            DB 01101111B
            DB 01001110B
            DB 00110001B
DATOS ENDS
       
PILA SEGMENT
    DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
    EJ8 PROC FAR
   
ASSUME CS:CODIGO,DS:DATOS,SS:PILA
    MOV AX,DATOS
    MOV DX,AX
    MOV AX,TEXTO
    INT BIOS
    MOV CX,11
    XOR SI,SI
    BUCLE:
    PUSH CX
    MOV DX,SI
    ADD DX,35
    MOV DH,12
    CALL COLOCA
    MOV AL,[SI+OFFSET TITULO]
    MOV BL,[SI+OFFSET COLORES]
    CALL COLOR
    POP CX
    INC SI
    LOOPNZ BUCLE
    MOV AH,8
    INT DOS
    XOR DX,DX
    CALL COLOCA
    MOV AX,FIN
    INT DOS
    EJ8 ENDP
   
    COLOR PROC
    MOV AH,9
    XOR BH,BH
    INT BIOS
    RET
    COLOR ENDP
   
    COLOCA PROC
    MOV AH,2
    XOR BX,BX
    INT BIOS
    RET
    COLOCA ENDP
   
CODIGO ENDS
END EJ8