; Programa de ejemplo para mostrar el aspecto de
; un programa tipico en ensamblador para PASMO.
; Copia una serie de bytes a la videomemoria con
; instrucciones simples (sin optimizar).
    ORG 40000

    ; Aqui empieza nuestro programa que copia los
    ; 7 bytes desde la etiqueta "datos" hasta la
    ; videomemoria ([16384] en adelante).
    
    ld hl, destino     ; HL = destino (VRAM)
    ld de, datos       ; DE = origen de los datos
    ld b, 6            ; numero de datos a copiar
  
bucle:                 ; etiqueta que usaremos luego
                 
    ld a, (de)         ; Leemos un dato de [DE]
    ADD A, valor       ; Le sumamos 1 al dato leído
    ld (hl), a         ; Lo grabamos en el destino [HL]
    inc de             ; Apuntamos al siguiente dato
    inc hl             ; Apuntamos al siguiente destino
    
    djnz bucle         ; Equivale a:
                       ; B = B-1
                       ; if (B>0) goto Bucle
    ret

valor     EQU  1
destino   EQU  18384

datos     DEFB 127, %10101010, 0, 128, $fe, %10000000, 00h

    END 40000