|
紅外的匯編程序
- ORG 0000H
- LJMP MAIN
- ORG 30H
- MAIN:
- JNB P3.0,IR
- LJMP MAIN
- IR:
- MOV R6,#10
- IR_SB:
- ACALL DELAY882
- JB P3.0/IR_ERROR
- DJNZ R6,IR_SB
- JNB P3.0,$
- ACALL DELAY2400
- JNB P3.0,IR_Rp
- ACALL DELAY2400
- MOV R1,#1AH
- MOV R2,#4
- IR-4BYTE:
- MOV R3,#8
- IR_8BIT:
- JNB P3.2,#
- LCALL DELAY882
- MOV c,P3.2
- 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_4BYTE
- JMP IR_GOTO
- IR_Rp:
- JMP IR_GOTO
- IR_ERROR:
- LJMP MAIN
- IR_GOTO:
- MOV A,1CH
- CPL A
- CJNE A,1DH,IR_ERROR
- MOV P1,1DH
- CLR P2.4
- LCALL DELAY2400
- LCALL DELAY2400
- LCALL DELAY2400
- SETB P2.4
- MOV 1AH,#00H
- MOV 1BH,#00H
- MOV 1CH,#00H
- MOV 1DH,#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
-
復制代碼
|
-
-
紅外.zip
2016-4-15 17:21 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
532 Bytes, 下載次數(shù): 18, 下載積分: 黑幣 -5
評分
-
查看全部評分
|