; Prog 3
; D{clare 2 {v{nements asynchrone Frame Fly
; avec des priorit{s diff{rentes
; => la priorit{ n'est pas effective sur les async
;
        Org &8000
        Nolist

        ld hl,bloc1
        ld b,%10000001 ; Priorit{ 0
        ld c,0
        ld de,routine1
        call &bcd7 ; KL NEW FRAME FLY

        ld hl,bloc2
        ld b,%10011111 ; Priorit{ 15
        ld c,0
        ld de,routine2
        call &bcd7 ; KL NEW FRAME FLY

        call &bb18 ; Attend l'appui d'une touche

        ld hl,bloc1
        call &bcdd ; KL DEL FRAME FLY
        ld hl,bloc2
        call &bcdd ; KL DEL FRAME FLY
        ret
;
Routine1
        push bc
        ld bc,&7f10
        out (c),c
        ld c,64+11
        out (c),c ; raster blanc

        call attente

        ld bc,&7f44
        out (c),c
        pop bc
        ret

Routine2
        push bc
        ld bc,&7f10
        out (c),c
        ld c,64+18
        out (c),c ; raster vert

        call attente

        ld bc,&7f44
        out (c),c
        pop bc
        ret

Attente ld b,30
boucle  ds 60
        djnz boucle
        ret

; Bloc de controle suivi du bloc d'{v{nement
Bloc1   ds 2+7
; Bloc de controle suivi du bloc d'{v{nement
Bloc2   ds 2+7