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 ROM_CLS        ; CLS

    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 1

    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, 31
    LD E, 21            ; X = 31, y = 21
    CALL CursorAt       ; mover Cursor

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

    RET

cadena1 DEFB 'Esto es una cadena', $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"

ROM_CLS        EQU  $0DAF

END 33500