?? b13-7.asm
字號:
;PROGRAM NAME B13-7.ASM
BPS9600 EQU FDH
OUT_CNT EQU 8
MS10 EQU 9217 ;APPROXIMATELY 10MS INTERRUPR
;
INTR_CNT EQU 30H ;CNT STORIAGE
BUFFER EQU 31H ;DISPLAY BUFFER
BINARY EQU 32H ;BINARY DATA STORIAGE
ASCBUF EQU 33H ;ASCII TEMPERATURE DATA BUFFER(8 BYTES)
TX_CNT EQU 3BH ;TRANSMIT BYTE COUNT
;
CNTH_L EQU 3CH
CNTH_H EQU 3DH ;COUNTER FOR DUTY HI
CNTT_L EQU 3EH
CNTT_H EQU 3FH ;COUNTER FOR DUTY HI+LO
;
EE_ID EQU 2FH ;ID READ FROM 24LC16
BEEP EQU 2EH ;BUZZER ON TIME
;
SCLK REG P1.7 ;SERIAL CLOCK
SDA REG P1.6 ;SERIAL DATA
SMT160 REG P3.2 ;TEMP SENSOR
SCOPE REG P3.3 ;CHECK BY SCOPE
BUZZER REG P3.4
CHKPUL REG P3.5 ;CHECK BY SCOPE
LED REG P3.7
KEY REG P3.7
;
SAMPLING REG 20H.0
TX_START REG 20H.1
;
ORG 0000H
JMP START
ORG 0003H ;[DISABLE] EXTERNAL INT0 INTERRUPT
RETI
ORG 000BH ;[ENABLE] TIMER0 OVERFLOW INTERRUPT
JMP T0_ISR
;
ORG 0013H
RETI ;[DISABLE] EXTERNAL INT1 INTERRUPT
ORG 001BH
RETI ;[DISABLE] TIMER1 OVERFLOW INTERRUPT
ORG 0023H
JMP SIO_ISR ;[ENABLE] SERIAL INTERRUPT
;
ORG 30H
START MOV R0,#00H
DJNZ R0,$ ;DELAY A WHILE
MOV SP,#60H
MOV P1,#FFH
MOV P3,#FFH
MOV INTR_CNT,#00H
CLR TX_START
MOV TX_CNT,#00H
CLR BUZZER ;P3.4=0,BUZZER OFF
CLR LED ;P3.7=0,LED OFF
CALL SET_TMR0
MOV BUFFER,#FFH ;BLANK DISPLAY
CLR SAMPLING
CALL CHECK_EE
CALL READ_ID
;
$WAIT JNB SAMPLING,$WAIT
SETB LED
CALL READ_TEMP
CLR LED
CLR SAMPLING
SJMP $WAIT
;
CHECK_EE
MOV R0,#00H ;PAGE BLOCK (3 bits)
MOV R1,#FFH ;8 bits
CALL IIC_READ ;RESULT IN A
ADD A,#01H
MOV B,A
PUSH A
;
MOV R0,#00H
MOV R1,#FFH
CALL IIC_WRITE ;SAVE AGAIN
CALL DELAY
MOV R0,#00H ;PAGE BLOCK (3 bits)
MOV R1,#FFH ;8 bits
CALL IIC_READ ;RESULT IN A
MOV B,A ;NEW DATA
POP A
CJNE A,B,$ERR
SJMP $END
$ERR MOV BEEP,#10 ;BUZZER ON 0.1S
MOV A,#99H
MOV BUFFER,A ;DISPLAY 99
CALL DELAY
CALL DELAY
MOV A,#FFH
MOV BUFFER,A
CALL DELAY
CALL DELAY
SJMP $ERR
$END RET
;
READ_ID MOV R0,#00H ;PAGE BLOCK (3 bits)
MOV R1,#00H ;8 bits
CALL IIC_READ
MOV BINARY,A
JZ $SET
CJNE A,#10,$CHK
$CHK JC $CONT
$SET MOV A,#01H ;ID=1
MOV BINARY,A
MOV R0,#00H
MOV R1,#00H
MOV B,A
CALL IIC_WRITE ;SAVE AGAIN
$CONT MOV BEEP,#100
;KEY CHECK
SETB KEY
JB KEY,$NOKEY
$0 MOV A,BINARY
ADD A,#01H
MOV BINARY,A
CJNE A,#10,$1
$1 JC $2
MOV A,#01H
MOV BINARY,A
$2 MOV A,BINARY
CALL CONV
MOV A,BINARY
MOV B,A
MOV R0,#00H
MOV R1,#00H
CALL IIC_WRITE ;SAVE AGAIN
CALL DELAY
CALL DELAY
CALL DELAY
JMP $CONT
;
$NOKEY MOV A,BINARY
MOV EE_ID,A
MOV A,BINARY
CALL CONV ;DISPLAY IT
$LOOP MOV A,BEEP
JNZ $LOOP ;LOOP UNTIL BEEP=0
RET
;
;MEASURE PULSE
READ_TEMP
CLR EA
$HI JB SMT160,$HI
$LO JNB SMT160,$LO
;LOW TO HIGH TRANSITION
H_ONLY MOV DPTR,#0000H
MOV R0,#10 ;READ COUNT
SETB SCOPE
$0 INC DPTR
JB SMT160,$0
$1 JNB SMT160,$1 ;SKIP LO
DJNZ R0,$0
MOV R4,DPL
MOV R5,DPH
CLR SCOPE
;
H_L MOV DPTR,#0000H
MOV R0,#10
$HI JB SMT160,$HI
$LO JNB SMT160,$LO
SETB SCOPE
$0 INC DPTR
JB SMT160,$0
$1 INC DPTR
JNB SMT160,$1
DJNZ R0,$0
MOV R6,DPL
MOV R7,DPH
SETB EA
CLR SCOPE
;
MOV CNTH_L,R4
MOV CNTH_H,R5
MOV CNTT_L,R6
MOV CNTT_H,R7
;
MOV R4,CNTH_L
MOV R5,CNTH_H
MOV R7,#00H ;(07H 06H 05H 04H)=DUTY HI
MOV R6,#00H
;
MOV 0FH,#00H ;(0FH 0EH 0DH 0CH)=212 CONSTANT
MOV 0EH,#00H
MOV 0DH,#00H
MOV 0CH,#212
CALL MUL_4BYTE ;RESULT IN (07H 06H 05H 04H)
;
MOV 0FH,#00H
MOV 0EH,#00H
MOV 0CH,CNTT_L
MOV 0DH,CNTT_H
CALL DIV_4BYTE ;(7)(6)(5)(4)/=(F)(E)(D)(C)
MOV A,04H ;GET LOWER BYTE ONLY
SUBB A,#68 ;A=(212*HI)/(HI+LO)-68
MOV BINARY,A
TEST CALL CONV ;DATA IN BUFFER
CALL ASC_CONV
; MOV TX_CNT,#00H ;TX_CNT=0
; SETB TX_START ;TX_START=1
CLR SCOPE
RET
;
;
ASC_CONV
MOV ASCBUF ,#'T'
MOV A,EE_ID
ADD A,#'0' ;ID=ID+'0'
MOV ASCBUF+1,A
MOV ASCBUF+2,#'='
MOV A,BUFFER
SWAP A
ANL A,#0FH
ADD A,#'0'
MOV ASCBUF+3,A ;SAVE DIGIT1
MOV A,BUFFER
ANL A,#0FH
ADD A,#'0'
MOV ASCBUF+4,A ;SAVE DIGIT2
MOV ASCBUF+5,#'C'
MOV ASCBUF+6,#0DH ;CARRIAGE RETURN
MOV ASCBUF+7,#0AH ;LINE FEED
RET
;
SIO_ISR
PUSH A
PUSH PSW
PUSH 00H
JNB RI,$CHK_TI
MOV A,SBUF
CLR RI
CJNE A,EE_ID,$CHK_TI
;CORRECT ID
SETB TX_START
MOV TX_CNT,#00H ;TX_CNT=0
SETB TI
SETB LED ;LED ON
NOP
NOP
$CHK_TI JNB TI,$NO_TX
JNB TX_START,$NO_TX
CLR TI
MOV A,TX_CNT
MOV R0,#ASCBUF
ADD A,R0
MOV R0,A
MOV A,@R0
MOV SBUF,A
INC TX_CNT ;TX_CNT=TX_CNT+1
MOV A,TX_CNT
CJNE A,#OUT_CNT,$ISRE
CLR TX_START ;STOP TX
MOV TX_CNT,#00H
CLR LED ;LED OFF
$ISRE
$NO_TX POP 00H
POP PSW
POP A
RETI
;
T0_ISR
MOV TH0,#(65536-MS10) / 256 ;RELOAD TH0
MOV TL0,#(65536-MS10) .MOD. 256
PUSH A
PUSH PSW
PUSH 00H
;
MOV A,BUFFER
ANL A,#0FH ;GET LOW NIBBLE
SETB ACC.5 ;BIT5=1
MOV P1,A ;SHOW 1 DIGIT
MOV R0,#30H
DJNZ R0,$ ;DELAY
;inter-blanking
CLR ACC.4
CLR ACC.5
MOV P1,A ;ALL DIGIT BLANK
MOV R0,#04H
DJNZ R0,$ ;DELAY
;
MOV A,BUFFER
ANL A,#F0H ;GET HIGH NIBBLE
SWAP A ;SWAP A
SETB ACC.4 ;BIT4=1
MOV P1,A ;SHOW ANOTHER DIGIT
MOV R0,#30H
DJNZ R0,$ ;DELAY
;
CLR ACC.4
CLR ACC.5
MOV P1,A ;ALL DIGIT BLANK
;
;INTR_CNT+1
MOV A,INTR_CNT
JNZ $NEXT
SETB SAMPLING ;IF A=0 OR A=50 THEN SAMPLING=1
SJMP $INC
$NEXT CJNE A,#50,$INC
SETB SAMPLING
$INC INC INTR_CNT
MOV A,INTR_CNT
CJNE A,#100,$T0_END
MOV INTR_CNT,#00H
;CHECK BUZZER
$T0_END MOV A,BEEP
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -