;   SMILENGHEADER
;   COMMENT This is the Smile NG file header, do not modify!
;   VERSION 1.0
;   PROC CALM

.PROC z80
.BASE 10'16

MUBWR = 0              ;Adresse du port MUBUS

boucle:
    inc     HL         ;incrémente la valeur à afficher
    move    H,A        ;on passe les 8 bits de poids fort dans l'accumulateur
    move    A,$MUBWR   ;et on écrit sur le MUBUS
    move    L,A        ;pareil pour les 8 bits de poids faible
    move    A,$MUBWR+1
    call    attente1   ;on appelle une boucle d'attente
    jump    boucle

attente1:
    push    AF
    move    #80,A
a$: dec     A
    jump,ne a$
    pop     AF
    ret