list P=16F628A
INCLUDE P16F628A.INC
i equ 0X20 ;DELAY LOOP
k equ 0X21 ;DELAY LOOP
j equ 0X22
;************************************************* ******************************************
org 0x00 ;Reset vector
goto START_OF_PROG
;************************************************* ******************************************
START_OF_PROG
movlw 0x0A
movwf i
movlw b'00000110'
movwf k
incf i[COLOR="red"],f[/COLOR]
movlw 2
addwf i,w
movwf k
movf i,w
addlw 2
movwf j
movf i,w
subwf k,w
btfsc [COLOR="red"]STATUS[/COLOR],Z
incf i[COLOR="red"],f[/COLOR]
goto $
FINISH
goto FINISH
end