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