 DEVICE ZXSPECTRUM48
     ORG $8000
    di
    ld sp,0

    ld hl, $5804 ;declaramos el punto de inicio
    ld a, $08 ;designamos a como el color azul
    ld b, 24 ;valor debe llegar a 24, recorremos el bucle 24 veces
    ld de, $20 ;  numero de bits hexadecimal y +24
;bucle ; hacemos bucle vertical
    ld (hl), a ;pintamos a
    add hl, de ;para hacere el decremento
    djnz bucle ;fin de bucle


    ld hl, $5805 ;punto de inicio del segundo bucle
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle2
    ld (hl), a
    add hl, de
    djnz bucle2

    ld hl, $5806 ;punto de inicio
    ld b, 24 ;;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle3
    ld (hl), a
    add hl, de
    djnz bucle3

    ld hl, $5807 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle4
    ld (hl), a
    add hl, de
    djnz bucle4

    ld hl, $5808 ;punto de inicio
    ld c, $16 ;color rojo
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo

bucle5
    ld (hl), c
    add hl, de
    djnz bucle5

    ld hl, $5809 ;punto de inicio
    ld b, 24 ;;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle6
    ld (hl), c
    add hl, de
    djnz bucle6

    ld hl, $580A ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo

bucle7
    ld (hl), c
    add hl, de
    djnz bucle7

    ld hl, $580B ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle8
    ld (hl), c
    add hl, de
    djnz bucle8

    ld hl, $580C ;punto de inicio
    ld a, $18 ;cambiaos a color rosa
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle9
    ld (hl), a
    add hl, de
    djnz bucle9

    ld hl, $580D ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle10
    ld (hl), a
    add hl, de
    djnz bucle10

    ld hl, $580E ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle11
    ld (hl), a
    add hl, de
    djnz bucle11

    ld hl, $580F ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle12
    ld (hl), a
    add hl, de
    djnz bucle12

    ld hl, $5810 ;punto de inicio
    ld a, $23 ;color verde
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle13
    ld (hl), a
    add hl, de
    djnz bucle13

   ld hl, $5811 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle14
    ld (hl), a
    add hl, de
    djnz bucle14

    ld hl, $5812 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle15
    ld (hl), a
    add hl, de
    djnz bucle15

    ld hl, $5813 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle16
    ld (hl), a
    add hl, de
    djnz bucle16

    ld hl, $5814 ;punto de inicio
    ld c, $28 ;color azul claro
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle17
    ld (hl), c
    add hl, de
    djnz bucle17

    ld hl, $5815 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle18
    ld (hl), c
    add hl, de
    djnz bucle18

    ld hl, $5816 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle19
    ld (hl), c
    add hl, de
    djnz bucle19

    ld hl, $5817 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle20
    ld (hl), c
    add hl, de
    djnz bucle20

    ld hl, $5818 ;punto de inicio
    ld c, $33 ;color azul claro
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle21
    ld (hl), c
    add hl, de
    djnz bucle21

    ld hl, $5819 ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle22
    ld (hl), c
    add hl, de
    djnz bucle22

    ld hl, $581A   ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle23
    ld (hl), c
    add hl, de
    djnz bucle23

    ld hl, $581B ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle24
    ld (hl), c
    add hl, de
    djnz bucle24

    ld hl, $581C ;punto de inicio
    ld c, $FF ;color blanco
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle25
    ld (hl), c
    add hl, de
    djnz bucle25

    ld hl, $581D ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle26
    ld (hl), c
    add hl, de
    djnz bucle26

    ld hl, $581E ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle27
    ld (hl), c
    add hl, de
    djnz bucle27

    ld hl, $581F ;punto de inicio
    ld b, 24 ;valor de b vuelve a ser 24 para decrementar hacia bajo
bucle28
    ld (hl), c
    add hl, de
    djnz bucle28
    
fin: jr fin
     





  



    

