LIST P=16F84A
INCLUDE <P16F84A.INC>
__CONFIG _XT_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF__
STEPS EQU 0x0C
; ===== المراحل =====
X1 EQU 0
X2 EQU 1
X3 EQU 2
; ===== المداخل =====
Dcy EQU 0 ; RA0
ar EQU 1 ; RA1
ma EQU 2 ; RA2
; ===== المخارج =====
KM1 EQU 0 ; RB0
dCa EQU 1 ; RB1
ORG 0x00
GOTO INIT
INIT
BSF STATUS,RP0
; RA0 RA1 RA2 مداخل
MOVLW B'00000111'
MOVWF TRISA
CLRF TRISB
BCF STATUS,RP0
CLRF PORTB
; البداية من المرحلة X1
MOVLW B'00000001'
MOVWF STEPS
; البرنامج الرئيسي
MAIN_LOOP
CALL TRANSITIONS
CALL ACTIONS
GOTO MAIN_LOOP
TRANSITIONS
; إذا كانت X1 فعالة و Dcy=1
; الانتقال إلى X2
BTFSS STEPS,X1
GOTO CHECK_X2
BTFSS PORTA,Dcy
GOTO CHECK_X2
BCF STEPS,X1
BSF STEPS,X2
RETURN
CHECK_X2
; إذا كانت X2 فعالة و ma=1
; الانتقال إلى X3
BTFSS STEPS,X2
GOTO CHECK_X3
BTFSS PORTA,ma
GOTO CHECK_X3
BCF STEPS,X2
BSF STEPS,X3
RETURN
CHECK_X3
; إذا كانت X3 فعالة و ar=1
; الرجوع إلى X1
BTFSS STEPS,X3
RETURN
BTFSS PORTA,ar
RETURN
BCF STEPS,X3
BSF STEPS,X1
RETURN
; =========================
; الأفعال
; =========================
ACTIONS
; المرحلة X1
BTFSS STEPS,X1
GOTO ACT_X2
; إطفاء المخارج
BCF PORTB,KM1
BCF PORTB,dCa
RETURN
ACT_X2
; المرحلة X2
BTFSS STEPS,X2
GOTO ACT_X3
; تشغيل KM1
BSF PORTB,KM1
BCF PORTB,dCa
RETURN
ACT_X3
; المرحلة X3
BTFSS STEPS,X3
RETURN
; تشغيل dCa
BCF PORTB,KM1
BSF PORTB,dCa
RETURN
END
💬 اترك تعليق