الحصول على التوابع المنطقية الأربعOR NOR AND NAND باستخدام المتحكم 16F84
السلا م عليكم
هذه مشاركتي الأولى في هذا المنتدى والتي أرجو أن تكون مفيدة لكل مهتم بهذا المجال
LIST P=16F84
include "P16F84.inc"
__CONFIG 0x3FF9
#define bank0 bcf 3,5
#define bank1 bsf 3,5
porta equ h'5'
portb equ h'6'
trisa equ h'5'
trisb equ h'6'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org h'0'
clrf porta
clrf portb
bank1
movlw b'11111111'
movwf trisb
clrf trisa
bank0
______________________
test bsf porta,0
OR btfsc portb,0
goto h
btfsc portb,1
goto h
bcf porta,1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NOR btfsc portb,2
goto l
btfsc portb,3
goto l
bsf porta,2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AND btfss portb,4
goto l1
btfss portb,5
goto l1
bsf porta,3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NAND btfss portb,6
goto h1
btfss portb,7
goto h1
bcf porta,4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
goto test
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
h bsf porta,1
goto NOR
l bcf porta,2
goto AND
l1 bcf porta,3
goto NAND
h1 bsf porta,4
goto test
end
