Attributs

; Provem els tributs
ORG 32000
main:
;----------------------------------------------------------------------
; Programa principal
;----------------------------------------------------------------------
        XOR A                           ; Netegem la pantalla
        CALL clear_screen

        LD B, 24                        ; Nombre de files en la pantalla
        LD HL, $5800            ; Apuntem a l'àrea de tributs
bucle_tribut:
        ; Esperem a que es premi una tecla
        PUSH AF
        CALL wait_keypress
        CALL wait_keyrelease
        POP AF
        LD D, B                         ; Guardem el valor de B
        LD B, 32                        ; Bytes per fila, comencem altre bucle
        RLA
        RLA
        RLA                                     ; Col·loquem bits de A en l'àrea BRIGHT+ PAPER
bucle_fila:
        LD (HL), A                      ; Escrivim el tribut
        INC HL
        DJNZ bucle_fila         ; Pintem els 32 bytes de la fila
        LD B, D                         ; Recarreguem B del les files
        RRA
        RRA
        RRA
        INC A                           ; Incrementem el valor de A
        DJNZ bucle_tribut
        RET
wait_keypress:
;----------------------------------------------------------------------
; Aquesta rutina espera que premem una tecla per continuar l'execució
; del programa. No requereix arguments. MODIFICA A
;----------------------------------------------------------------------
        ; Comencem llegint totes les tecles del teclat
        XOR A                           ; A = 0, llegim totes les files del teclat
        IN A, ($FE)                     ; Llegim el teclat
        OR %111000000           ; Fem els bits alts = 1
        INC A                           ; Si cap tecla premuda, A = 111 111111b
        JR Z, wait_keypress
        RET
wait_keyrelease:
;----------------------------------------------------------------------
; Aquesta rutina espera l'alliberament d'una tecla per continuar
; l'execució del programa. MODIFICA A
;----------------------------------------------------------------------
        XOR A                           ; A =0, llegim totes les files
        IN A, ($FE)                     ; Llegim el teclat
        OR %111000000           ; Fem els bits alts = 1
        INC A                           ; Si cap tecla premuda, A = 111 111111b
        JR NZ, wait_keyrelease
        RET
clear_screen:
;------------------------------------------