B
bvan3
Guest
Es gribu, lai kontrolētu savu PWM ar manu 8051 DIP slēdži un man ir vajadzīga palīdzība
ORG 0000H
GALVENĀ:
CLR P1.0
CLR P1.1
CLR P1.2
CLR P2.7
CLR P2.6
CHECKMOTOR:
JB P2.0, CONTROL
JNB P2.0, MOTOROFF
KONTROLE:
SETB P1.0
JNB P2.7, pulksteņrādītāja virzienā
CLR P1.1
SETB P1.2
SJMP CHECKMOTOR
Pulksteņa rādītāja virzienā:
SETB P1.1
CLR P1.2
SJMP CHECKMOTOR
NORMAL:
JNB P2.6, FIFTYPERCENT
SETB P1.0
MOV R5, # 25
ACALL KAVĒJUMS
CLR P1.0
MOV R5, # 75
ACALL KAVĒJUMS
SJMP NORMAL
FIFTYPERCENT:
SETB P1.0
MOV R5, # 50
ACALL KAVĒJUMS
CLR P1.0
MOV R5, # 50
ACALL KAVĒJUMS
SJMP NORMAL
KAVĒJUMS:
H1: MOV R2, # 100
H2: MOV R3, # 255
H3: DJNZ R3, H3
DJNZ R2, H2
DJNZ R5, H1
MOTOROFF:
SETB P1.0
RET
END
ORG 0000H
GALVENĀ:
CLR P1.0
CLR P1.1
CLR P1.2
CLR P2.7
CLR P2.6
CHECKMOTOR:
JB P2.0, CONTROL
JNB P2.0, MOTOROFF
KONTROLE:
SETB P1.0
JNB P2.7, pulksteņrādītāja virzienā
CLR P1.1
SETB P1.2
SJMP CHECKMOTOR
Pulksteņa rādītāja virzienā:
SETB P1.1
CLR P1.2
SJMP CHECKMOTOR
NORMAL:
JNB P2.6, FIFTYPERCENT
SETB P1.0
MOV R5, # 25
ACALL KAVĒJUMS
CLR P1.0
MOV R5, # 75
ACALL KAVĒJUMS
SJMP NORMAL
FIFTYPERCENT:
SETB P1.0
MOV R5, # 50
ACALL KAVĒJUMS
CLR P1.0
MOV R5, # 50
ACALL KAVĒJUMS
SJMP NORMAL
KAVĒJUMS:
H1: MOV R2, # 100
H2: MOV R3, # 255
H3: DJNZ R3, H3
DJNZ R2, H2
DJNZ R5, H1
MOTOROFF:
SETB P1.0
RET
END