$TITLE(CONVEYOR BELT)
MAIN: MOV SP,#20h ;Move SP beyond registers
MOV P1,#0FFh ;Clear control out for conveyor
MOV P2,#0ffh ;Clear control in for conveyor
MAIN1:
JNB P1.0, CONT1 ;
jnb p1.1,k7
AJMP MAIN1
CONT1:
CLR P2.7
CPL p2.0
K1_: JNB P1.0,K1_
K2:
jnb p1.1,k7
JNB P1.0, CONT1
JNB P1.2, K3
JNB P1.3,K4
JNB P1.4, K5
JNB P1.5,K6
JB P2.0,K7
SETB P2.7
AJMP K2
K3:CLR P2.7
CPL P2.1
K3_:JNB P1.2 ,K3_
AJMP K2
RET
K4: CLR P2.7
CPL P2.2
K4_:JNB P1.3, K4_
AJMP K2
RET
K5: CLR P2.7
CPL P2.3
K5_:JNB P1.4,K5_
AJMP K2
RET
K6: CLR P2.7
CPL P2.4
K6_:JNB P1.5 ,K6_
AJMP K2
RET
K7: AJMP MAIN
END
|
