; Prueba de UDGs
ORG 33500

    call CLS

    ld de, cadena
    call PrintString       ; Imprimimos UDG por defecto

    ld hl, Mis_UDGs
    ld (SYSVAR_UDG), hl    ; Asignamos UDGs a nuestros datos

    ld de, cadena
    call PrintString       ; Ahora vemos nuestros graficos

    ld de, willy
    call PrintString       ; Pintar las 2 partes de Willy

    ret


cadena DEFB 144, 145, 146, 147, 148, 149, 150, 151
       DEFB 152, 153, 154, 155, 156, 157, 158, 159
       DEFB 160, 161, 162, _CR, _CR,  _EOS
       ; 163 y 164 solo disponibles en modelos 48K
       ; en 128KB imprimen "SPECTRUM" y "PLAY"

willy  DEFB 145, _CR, 146, _EOS

Mis_UDGs DEFB %00011000   ; UDG 144: Marciano
         DEFB %00111100
         DEFB %01111110
         DEFB %11011011
         DEFB %11111111
         DEFB %00100100
         DEFB %01011010
         DEFB %10100101

         DEFB %00000110   ; UDG 145: Cabeza de Willy
         DEFB %00111110
         DEFB %01111100
         DEFB %00110100
         DEFB %00111110
         DEFB %00111100
         DEFB %00011000
         DEFB %00111100

         ; UDG 146: Cuerpo de Willy
         DEFB 126, 126, 247, 251, 60, 118, 110, 119

         ; UDG 147: Patrón %01010101
         DEFB 85, 85, 85, 85, 85, 85, 85, 85, 85

         ; Podriamos seguir definiendo UDGs aqui...

         ; Resto de UDGs: se pintaran los opcodes y datos
         ; que hay en memoria despues de este punto...

SYSVAR_UDG EQU $5c7b

INCLUDE "utils.asm"

END 33500