Forum

Code : Tout sélectionner

$FA ADR1 Lo
$FB ADR2 Hi
$FC TEMP Lo
$FD TEMP Hi
$FE Compteur de vol

d c00 c4a
. 00c00  d8       cld
. 00c01  a9 00    lda #$00
. 00c03  85 fc    sta $fc
. 00c05  85 fd    sta $fd
. 00c07  85 fe    sta $fe	Initialise les zones de travail
. 00c09  46 fb    lsr $fb
. 00c0b  66 fa    ror $fa	
. 00c0d  b0 0f    bcs $0c1e	Test si chiffre pair ou impair
. 00c0f  e6 fe    inc $fe	Pair - Addition le vol
. 00c11  a9 01    lda #$01
. 00c13  c5 fa    cmp $fa
. 00c15  d0 f2    bne $0c09
. 00c17  a9 00    lda #$00
. 00c19  c5 fb    cmp $fb
. 00c1b  d0 ec    bne $0c09	Test si le nombre restant est à 1
. 00c1d  60       rts		Fin du programme
. 00c1e  e6 fe    inc $fe	Impair - Addition le vol
. 00c20  26 fa    rol $fa
. 00c22  26 fb    rol $fb	Rétabli le nombre (car /2 pour le test)
. 00c24  a5 fa    lda $fa
. 00c26  0a       asl
. 00c27  85 fc    sta $fc
. 00c29  a5 fb    lda $fb
. 00c2b  2a       rol
. 00c2c  85 fd    sta $fd	Multiplie le nombre par 2 (*2)
. 00c2e  18       clc
. 00c2f  a5 fa    lda $fa
. 00c31  65 fc    adc $fc
. 00c33  85 fc    sta $fc
. 00c35  a5 fb    lda $fb
. 00c37  65 fd    adc $fd
. 00c39  85 fd    sta $fd	Addition encore une fois le nombre (*3)
. 00c3b  18       clc
. 00c3c  a9 01    lda #$01
. 00c3e  65 fc    adc $fc
. 00c40  85 fa    sta $fa
. 00c42  a9 00    lda #$00
. 00c44  65 fd    adc $fd
. 00c46  85 fb    sta $fb	Ajoute 1 au nombre (+1)
. 00c48  4c 09 0c jmp $0c09	Boucle