1.png (42.86 KB, 下載次數: 24)
下載附件
2022-7-4 17:19 上傳
單片機源程序如下:
- PORTA EQU 8FFFH
- PORTB EQU 9FFFH
- PORTC EQU 0AFFFH
- CADDR EQU 0BFFFH
- SHOW1 EQU 70H
- SHOW2 EQU 71H
- SHOW3 EQU 72H
- SHOW4 EQU 73H
- SHOW5 EQU 74H
- SHOW6 EQU 75H
- SHOW7 EQU 76H
- SHOW8 EQU 77H
- TEM_H EQU 78H
- TEM_L EQU 79H
- DQ BIT P1.2
-
- ORG 0000H
- LJMP INI
- ORG 000BH
- LJMP T0_INT
- ORG 0100H
- INI:MOV A,#81H
- MOV DPTR,#CADDR
- MOVX @DPTR,A
- MOV DPTR,#PORTC
- MOV A,#00H
- MOVX @DPTR,A
- MOV SHOW1,#00H
- MOV SHOW2,#00H
- MOV SHOW3,#00H
- MOV SHOW4,#00H
- MOV SHOW5,#00H
- MOV SHOW6,#00H
- MOV SHOW7,#00H
- MOV SHOW8,#00H
- MAIN:
- ACALL GETTEM
- MOV A,#0FH
- ANL A,TEM_L
- MOV B,#10
- MUL AB
- MOV B,#16
- DIV AB
- MOV DPTR,#NUMLAB
- MOVC A,@A+DPTR
- MOV SHOW1,A
- MOV A,TEM_L
- SWAP A
- MOV TEM_L,A
- MOV A,TEM_H
- SWAP A
- MOV R0,#TEM_L
- XCHD A,@R0
- HUND: MOV B,#100
- DIV AB
- MOV DPTR,#NUMLAB
- MOVC A,@A+DPTR
- MOV SHOW4,A
-
- TEN: MOV A,B
- MOV B,#10
- DIV AB
- MOV DPTR,#NUMLAB
- MOVC A,@A+DPTR
- MOV SHOW3,A
-
- SIGN: MOV A,B
- MOV DPTR,#NUMLAB
- MOVC A,@A+DPTR
- ORL A,#80H
-
- RETURN: ACALL PLAY
- JMP MAIN
-
- /****************************/
- /* DS18203?ê??ˉ */
- /****************************/
- INI1820:SETB DQ
- NOP
- CLR DQ
- MOV R2,#250
- L1: DJNZ R2,L1
- SETB DQ
- MOV R2,#25
- L15: DJNZ R2,L15
- CLR C
- ORL C,DQ
- JC INI1820
- MOV R6,#23
- L16: ORL C,DQ
- JC L3
- DJNZ R6,L16
- SJMP INI1820
- L3: MOV R2,#120
- DJNZ R2,$
- RET
- GETTEM:SETB DQ
- LCALL INI1820
- JB DQ,TSS2
- RET
- TSS2:MOV A,#0CCH
- LCALL WR_1820
- MOV A,#44H
- LCALL WR_1820
- LCALL D1MS
- LCALL INI1820
- MOV A,#0CCH
- LCALL WR_1820
- MOV A,0BEH
- LCALL WR_1820
- LCALL RED_1820
- RET
- WR_1820:CLR EA
- MOV R2,#8
- L9: SETB DQ
- MOV R3,#7
- RRC A
- CLR DQ
- DJNZ R3,$
- MOV DQ,C
- MOV R3,20
- DJNZ R3,$
- DJNZ R2,L9
- SETB DQ
- SETB EA
- RET
-
- RED_1820:MOV R2,#2
- MOV R1,#TEM_L
- L7:MOV R3,#8
- L6:CLR C
- CLR DQ
- NOP
- NOP
- NOP
- SETB DQ
- MOV R4,#4
- DJNZ R4,[ DISCUZ_CODE_1 ]nbsp;
- MOV C,DQ
- RRC A
- MOV R5,#30
- L5:DJNZ R5,L5
- DJNZ R3,L6
- MOV @R1,A
- DEC R1
- DJNZ R2,L7
- SETB DQ
- RET
- NUMLAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
- END
-
復制代碼 求助各路大神幫幫忙,keil里面做的出來有點亂碼
|