hangi dil ile yazılmış olacak
TRISA=%11111
TRISB=0
PORTA=0
PORTB=0
A VAR BYTE
B VAR BYTE
C VAR WORD
D VAR BYTE
A=0:B=0:C=0:D=0
BASLA:
C=C+1
D=D+1
IF D<200 THEN ZIP
IF PORTA>0 THEN
B=B^ PORTA
D=0
ENDIF
ZIP:
IF (C>0) AND (C<=1000) THEN PORTB=B
IF (C>1000) AND (C<=2000) THEN PORTB=0
IF C>2000 THEN C=0
PAUSE 1
GOTO BASLA
END
O kadar kolay diildi...
PBP kodları
Kod:TRISA=%11111 TRISB=0 PORTA=0 PORTB=0 A VAR BYTE B VAR BYTE C VAR WORD D VAR BYTE A=0:B=0:C=0:D=0 BASLA: C=C+1 D=D+1 IF D<200 THEN ZIP IF PORTA>0 THEN B=B^ PORTA D=0 ENDIF ZIP: IF (C>0) AND (C<=1000) THEN PORTB=B IF (C>1000) AND (C<=2000) THEN PORTB=0 IF C>2000 THEN C=0 PAUSE 1 GOTO BASLA END