P0口接了一位數碼管
P1口接了八個led
單片機源程序如下:
- ORG 0000H
- MAIN:
- JNB P3.4 ,IR
- LJMP MAIN
- IR:
- MOV R6,#10
- IR_SB:
- ACALL DELAY882
- JB P3.4,IR_ERROR
- DJNZ R6,IR_SB
- JB P3.4,$
- ACALL DELAY2400
- JNB P3.4,IR_RP
- ACALL DELAY2400
- MOV R1,#2AH
- MOV R2,#4
- IR_4BIT:
- MOV R3,#8
- IR_8BIT:
- JNB P3.4,$
- LCALL DELAY882
- MOV C,P3.4
- JNC IR_8BIT_0
- LCALL DELAY1000
- IR_8BIT_0:
- MOV A,@R1
- RRC A
- MOV @R1,A
- DJNZ R3,IR_8BIT
- INC R1
- DJNZ R2,IR_4BIT
- JMP IR_GOTO
- IR_RP:
- JMP IR_GOTO
- IR_ERROR:
- LJMP MAIN
- IR_GOTO:
- MOV A,2CH
- D0:
- CJNE A,#19H,D1
- MOV P1,#0FEH
- MOV P0,#0F9H
- D1:
- CJNE A,#31H,D2
- MOV P1,#0FDH
- MOV P0,#0A4H
- D2:
- CJNE A,#0BDH,D3
- MOV P1,#0FBH
- MOV P0,#0B0H
- D3:
- CJNE A,#11H,D4
- MOV P1,#0F7H
- MOV P0,#99H
- D4:
- CJNE A,#39H,D5
- MOV P1,#0EFH
- MOV P0,#92H
- D5:
- CJNE A,#0B5H,D6
- MOV P1,#0DFH
- MOV P0,#82H
- D6:
- CJNE A,#85H,D7
- MOV P1,#0BFH
- MOV P0,#0F8H
- D7:
- CJNE A,#0A5H,D8
- MOV P1,#7FH
- MOV P0,#80H
- D8:
- CJNE A,#8BH,D9
- MOV P1,#0FFH
- MOV P0,#0FFH
- D9:
- CJNE A,#2DH,D10
- MOV P1,#0FFH
- MOV P0,#0C0H
- D10:
- CJNE A,#95H,D11
- MOV P1,#0FFH
- MOV P0,#090H
- D11:
- CJNE A,#8FH,D12
- MOV P1,#00H
- MOV P0,#00H
- D12:
- CJNE A,#33H,D13
- MOV P1,#0FFH
- MOV P0,#88H
- D13:
- CJNE A,#1BH,D14
- MOV P1,#0FFH
- MOV P0,#83H
- D14:
- CJNE A,#13H,D15
- MOV P1,#0FFH
- MOV P0,#0C6H
- D15:
- CJNE A,#2BH,D16
- MOV P1,#0FFH
- MOV P0,#0A1H
- D16:
- CJNE A,#0FH,D17
- MOV P1,#0FFH
- MOV P0,#86H
- D17:
- CJNE A,#89H,D18
- MOV P1,#0FFH
- MOV P0,#8EH
- D18:
- CJNE A,#81H,D19
- MOV P1,#0FFH
- MOV P0,#089H
- D19:
- CJNE A,#87H,D20
- MOV P1,#0FFH
- MOV P0,#091H
- D20:
- CJNE A,#8DH,D21
- MOV P1,#0AAH
- MOV P0,#0B6H
- D21:
- LCALL DELAY2400
- LCALL DELAY2400
- LCALL DELAY2400
- MOV 2AH,#00H
- MOV 2BH,#00H
- MOV 2CH,#00H
- LJMP MAIN
- DELAY882:
- MOV R7,#202
- DELAY882_A:
- NOP
- NOP
- DJNZ R7,DELAY882_A
- RET
- DELAY1000:
- MOV R7,#229
- DELAY1000_A:
- NOP
- NOP
- DJNZ R7,DELAY1000_A
- RET
- DELAY2400:
- MOV R7,#245
- DELAY2400_A:
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- NOP
- DJNZ R7,DELAY2400_A
- RET
- END
復制代碼
所有資料51hei提供下載:
接收程序.rar
(662 Bytes, 下載次數: 17)
2018-9-19 10:13 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|