基于單片機(jī)的便攜式人體健康指標(biāo)檢測(cè)系統(tǒng)設(shè)計(jì)畢業(yè)論文-資料下載頁(yè)
2025-06-27 19:17本頁(yè)面
【正文】 HMOV TL1,A0HMOV THD,0FCHMOV TL0,18HCLR MOV IE,88HSETB TR1SETB TR0LOOP:JNB,TF0,$CLR TF0JBC F0,ELSESETB MOV TH0,0FCHMOV TL0,18HCLR SJMP LOOPELSE:MOV R0,43HMOV A,@R0MOV B,100DIV ABMOV R0,40HMOV @R0,AMOV A,10XCH A BDIV ABMOV R0,41HMOV @R0,AMOV A,BMOV R0,42HMOV @R0,A；延時(shí)一分鐘SHOW:MOV A,@R0MOV R0,41HMOV A,@R0MOV R0,42HSWAP AXCHD A,@R0MOV DPTR,BFFFHMOVX @DPTR,AMOV R0,40HMOV A,@R0MOV DPTR,7FFFHMOVX @DPTR,A；顯示脈搏MOV R0,43HMOV A,@R0MOV R2,ASUBB A,100JC BAOJING；C=1,BAOMOV A,R2SUBB A,60JNC BAOJING；C=0,BAOSJMP HHHBAO：LCALL BAOJING RETHHH：JNB ,ENDDDDSJMP BEGIN ENDDDD：RET體溫檢測(cè)子程序WENDU： NOPSTART：SETB ；將I/O口置位 SETB NOPCCR ； 主機(jī)發(fā)出537微秒的復(fù)位低脈沖MOV R1，3TSR1：MOV R0，107DJNZ R0，$SETB ； 然后拉高數(shù)據(jù)NOPNOPNOPMOV R0，25HTSR2：JNB P35，TSR3；等待DS18B20回應(yīng) DJNZ R0，TSR2 LJMP TSR4；延時(shí)TSR3：SETB FLAGH；置標(biāo)志位，表示DS18B20存在 CLR ；檢查到DS18B20就表示就點(diǎn)亮P17LED LJMP TSR5TSR4：CLR FLAGH；清標(biāo)志位，表示DS18B20不存在 CLR LJMP TSR7 TSR5： MOV RO，117TSR6：DJNZ R0，TSR6；時(shí)序要求延時(shí)一段時(shí)間TSR7：SETB P35 TB FLAGH，TSS2 CLR TSS2：CLR ；DS18B20已經(jīng)被檢測(cè)到 LCALL WRITE1820MOV A，44H；發(fā)出體溫轉(zhuǎn)換指令LCALL WRITE1820LCALL DISPLAYLCALL INIT1820；準(zhǔn)備讀體溫前先復(fù)位MOV A，0CCH；跳過(guò)ROM匹配LCALL WRITE1820MOV A，0BEH； 發(fā)出讀體溫指令LCALL READ_1820； 將讀出的體溫保存到35H36HLCALL WRITE1820MOV R2，8； 一共8位數(shù)據(jù)CLR C WR1：CLR MOV R3，$RRC AMOV ，CMOV R3，23DJNZ R3，$SETB P35NOPDJNZ R2，WR1SETB RETREAD_1820MOV R4，2MOV R1，29HRE00：MOV R2，8RE01：CLR C SETB NOPNOPCLR NOPNOPNOPSETB MOV R3，9RE01：DJNZ R3，RE10MOV C，MOV R3，23RE20：DJNZ R3，RE20RRC ADJNZ R2，RE01MOV @R1，ADEC R1DJNZ R4，RE00RETDISPLAY：MOV R0，28HMOV A，@R0RL ARL ARL AMOV R2，AMOV R0，29HMOV A，@R0SWAP A；MOV R0，28HXCHD A，@ROMOV R1,50HMOV A,@R1SUBB A,38JNC BA0 MOV A,@R1SUBB A,36JC BAOMOV A,@R1DA AMOV @R1,AMOV R0,29HMOV A,@R0SWAP AANL A,0F0HLCALL R1,51HMOV @R1,AMOV DPTR,BFFFHMOV R0,50HMOV A,@R0MOVX @DPTR,AMOV DPTR,7FFFHMOV R0,51HMOVX @DPTR,ABAO：LCALL BAOJING RET JNB ，JIESUSJMP STARTJIESU ：RET血壓檢測(cè)子程序SAMPLE:NOP SHI：MOV R0,53H SETB EA SETB EX0 CLR F0 XIYANG。 JBC F0,ELSE SJMP XIYANG ELSE: MOV A,@R1 MOV B,25 MUL ABMOV R4,BMOV R5,AMOV R7,32LCALL D547MO0V R0,53HMOV @R0,AMOV R2,ASUBB A,150JNC BAOJING MOV A,R2SUBB A,80JC BAOJINGDISSHOW: MOV R0,53HMOV A,@R0MOV B,100DIV ABMOV R0,54HMOV @R0,AINC R0MOV A,10XCH A,BDIV ABSWAP AADD A,BMOV R0,54HMOV A,.@R0MOV DPTR,BFFFHMOV @DPTR,AMOV DPTR,7FFFHMOV R0,55HMOV @DPTR,ABAO：LCALL BAOJING RETJNB P1。6，ENSJMP SHIEN：RET
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1