Manipulation 2
Manipulation 2
Manipulation 2
compt rmb 1
org $9103
jsr init_bascule
jsr clear
cmpa #$0a
bne boucle1
ldaa #$b2
ldaa #$10
ldy #val_seg+1
stab adr_7seg2
jsr tempo_1s
iny
cpy #val_seg+5
bne boucle2
cmpa #$14
bne boucle3
clr adr_relais
clr compt
staa adr_relais
jsr tempo_1s
clr adr_relais
jsr tempo_1s
inc compt
ldab compt
cmpb #4
bne boucle4
ldaa #$60
staa adr_relais
jsr tempo_1s
clr adr_relais
staa adr_relais
ldaa #$82
ldy #val_seg+4
stab adr_7seg2
jsr tempo_1s
dey
cpy #val_seg
bne boucle5
cmpa #$12
bne boucle6
jsr clear
jsr init_bascule
bra boucle1
ldaa #31
ldab #$40
stab 0,x
deca
cmpa #0
bne att1
rts
ldaa #$10
staa portA
rts
clr adr_7seg2
clr adr_relais
clr adr_led2
clr adr_led1
end