lcd fast copy

;hl, le pointeur sur l'adresse de l'écran à afficher
lcdfastdisplay:
            ld a,$7
            ld e,$20
            out ($10),a   ;:met en mode y auto incrément
            ld a,$80
            ld c,$11
lcdfastdisplayloop:
            ld b,12
            call loosetime3
            out ($10),a         ;met la ligne
            inc a
            dec c
            call loosetime2
            out (c),e           ;met la colonne de départ
            inc c
            call loosetime
            otir
            cp $BF+1
            jp nz,lcdfastdisplayloop
            ret
loosetime:
        cp 0
loosetime2:
        ret z               ;aucun risque de retouner car a n'est jamais à 0 ni aucun autre registre
        or a
loosetime3:
        inc hl
        dec hl
        ret