cvariable double-buffer
double-buffer 5 bit led0
double-buffer 6 bit led1
double-buffer 7 bit led2

then define a word to apply the changes made in the double buffer:

: apply double-buffer c@ LATB c! ;

and call it in the mainloop:

: mainloop ( -- ) begin switch-led0 apply 100ms again ;

The generated code for this change only adds one instruction in the main loop:

; init_runtime: defined at lib/primitives.fs:3
init_runtime
	movlb 1
	clrf double_buffer,1

; main: defined at example.fs:28
main
	movlw 0x84
	movwf T0CON,0
	clrf LATB,0
	movlw 0x1f
	movwf TRISB,0
_lbl___221
	btg double_buffer,5,1
	btfsc double_buffer,5,1
	bra _lbl___222
	btg double_buffer,6,1
	btfss double_buffer,6,1
	btg double_buffer,7,1
_lbl___222
	movff double_buffer,LATB
	movlw LOW(-31250)
	movwf TMR0L,0
	movlw HIGH(-31250)
	movwf (TMR0L+1),0
	bcf INTCON,2,0
_lbl___224
	btfsc INTCON,2,0
	bra _lbl___221
	bra _lbl___224

double_buffer equ 0x100

Also note that since RAM is being used, an intialization of BSR (using “movlb 1″) has been done to allow faster access through the BSR.

Est-il facile de réécrire le code pour que la commutation de plusieurs leds lors de la propagation de retenue ait lieu _exactement_ au même moment plutôt qu’une par une ? Genre, stocker le motif binaire dans une seule variable, et recopier la variable en question dans le registre juste avant l’appel de 100ms.