; Prog 4
; Fast-Ticker asynchrone
; (sans passer par le vecteur BCE0)

        Org &8000
        Nolist
;
        ld hl,event_block
        call &bce3 ; KL ADD FAST TICKER
;
        call &bb18
        ld hl,event_block
        call &bce6 ; KL DEL FAST TICKER
        ret
;
Routine push bc
        ld bc,&7f10
        out (c),c
        ld c,64+18
        out (c),c
        push af
        ld a,r
        ld (&c000),a
        ld b,64
        djnz $ ; attente
        ld bc,&7f44
        out (c),c
        pop af
        pop bc
        ret
;
; Bloc d'{v{nement
;
Event_Block
; bloc de controle
        dw 0
; partie commune
        dw 0
        db 0 ; compteur
        db %10000011 ; classe
        dw routine
        db 0