; Prueba de la libreria "utils.asm"
ORG 33500

    LD A, _BLUE        ; Color para el borde
    CALL BORDER

    LD A, _BLUE*8+_WHITE
    LD (CLS_COLOR), A   ; Color para CLS (por defecto es $38)

    CALL CLS            ; CLS

    LD BC, 50*3
    CALL PAUSE          ; Pausar 3 segundos antes de continuar

    LD BC, 65535
    CALL PrintNum       ; Prueba decimal

    CALL PrintSpace     ; Imprimir espacio

    LD A, $F0
    CALL PrintHex       ; Prueba hexadecimal 8

    CALL PrintSpace     ; Imprimir espacio

    LD BC, $F01A
    CALL PrintHex16     ; Prueba hexadecimal 16

    CALL PrintSpace     ; Imprimir espacio

    LD A, 193           ; o "LD A, %11000001"
    CALL PrintBin       ; Prueba binario

    CALL PrintCR
    CALL PrintCR        ; 2 saltos de linea

    LD DE, cadena1
    CALL PrintString    ; Cadena ("FLAGS y FLAG Z")

    CALL PrintFlags     ; Imprimir valor de Flags
    CALL PrintSpace     ; Imprimir un espacio
    LD A, _FLAG_Z
    CALL PrintFlag      ; Imprimir valor 0/1 FLAG_Z

    CALL PrintCR
    CALL PrintCR

    LD DE, cadena2
    CALL PrintString    ; Cadena con saltos de linea

    LD DE, cadena3
    CALL PrintString    ; Cadena con saltos de linea

    LD DE, cadena4
    CALL PrintString    ; Cadena con codigos de control

    LD D, 25
    LD E, 21            ; X = 31, y = 21
    CALL CursorAt       ; mover Cursor

    LD A, '*'
    CALL PrintChar      ; Imprimir '*'

    ; Esperar pulsacion de tecla antes de salir e imprimirla
    CALL Wait_For_Key
    CALL PrintChar

    RET

cadena1 DEFB 'FLAGS (F) y ZF: ', $FF

cadena2 DEFB 'Esto es una cadena con salto', _CR, _EOS

cadena3 DEFB _CR, 'Acepta saltos', _CR, 'de linea', _CR, _CR
        DEFB 'usando _CR en la cadena', _EOS

cadena4 DEFB _CR, _CR, 'Codigos:', _AT, 13, 3, 'posicion,'
        DEFB ' ', _INK, _RED, _PAPER, _YELLOW, 'color', _CR, _CR
        DEFB _INK, _GREEN, _PAPER, _BLUE, ' '
        DEFB _FLASH, 1, 'FLASH 1', _FLASH, 0, ' FLASH 0', _EOS

; Incluimos nuestra "libreria" de funciones
INCLUDE "utils.asm"

END 33500