ORG 0x00
GOTO AYAR
;===============KONFİGÜRASYON=============================================
AYAR bcf STATUS,5 ; Bank1'e geç
clrf TRISB ; PORTB çıkış
bsf TRISA,0 ; RA0 giriş
bsf TRISA,1 ; RA1 giriş
bsf STATUS,4 ; Bank1'e dön
clrf PORTB
;===============ANA PROGRAM===============================================
ANA btfss PORTA,0
GOTO AAA
btfss PORTA,1
GOTO BBB
GOTO ANA
AAA movlw .255
movwf PORTB
return
BBB clrf PORTB ; kesme kullanılmadığı için
CALL BEKLE ; program geç tepki verecektir
btfsc PORTA,0
GOTO CCC
movlw .255
movwf PORTB
CALL BEKLE
btfss PORTA,0
GOTO BBB
CCC return
BEKLE ; 250-500ms arası bekleme yapan alt program
...
...
END