午夜电影wydy,久久久无码精品亚洲A片0000,色色999综合

;================================================================
;DS18B20溫度計
;采用4位LED共陽顯示器顯示測溫值，顯示精度0.1℃，測溫范圍-55～+125℃
;用AT89C51單片機，12MHz晶振
;============================常數定義=============================
TIMEL EQU 0E0H ;20ms，定時器0時間常數
TIMEH EQU 0B1H
TEMPHEAD EQU 36H
;==========================工作內存定義============================
BITST DATA 20H
TIME1SOK BIT BITST.1
TEMPONEOK BIT BITST.2
TEMPL DATA 26H
TEMPH DATA 27H
TEMPHC DATA 28H
TEMPLC DATA 29H
;============================= 引腳定義===========================
TEMPDIN BIT P3.7
;============================= 中斷向量區=========================
ORG 0000H
LJMP START
ORG 00BH
LJMP T0IT
;=============================系統初始化==========================
ORG 100H
START: MOV SP,#60H
CLSMEM: MOV R0,#20H
MOV R1,#60H
CLSMEM1: MOV @R0,#00H
INC R0
DJNZ R1,CLSMEM1
MOV TMOD,#00100001B ;定時器0工作方式1（16BIT）
MOV TH0,#TIMEL
MOV TL0,#TIMEH ;20ms
SJMP INIT
ERROR: NOP
LJMP START
NOP
INIT: NOP
SETB ET0
SETB TR0
SETB EA
MOV PSW,#00H
CLR TEMPONEOK
LJMP MAIN
;====================== 定時器0中斷服務程序=======================
T0IT: PUSH PSW
MOV PSW,#10H
MOV TH0,#TIMEH
MOV TL0,#TIMEL
INC R7
CJNE R7,#32H,T0IT1
MOV R7,#00H
SETB TIME1SOK ;1s定時到標志
T0IT1: POP PSW
RETI
;============================= 主程序=============================
MAIN: LCALL DISP1 ;調用顯示子程序
JNB TIME1SOK,MAIN
CLR TIME1SOK ;測溫每1s一次
JNB TEMPONEOK,MAIN2 ;上電時先溫度轉換一次
LCALL READTEMP1 ;讀出溫度值子程序
LCALL CONVTEMP ;溫度BCD碼計算處理子程序
LCALL DISPBCD ;顯示區BCD碼溫度值刷新子程序
LCALL DISP1 ;消閃爍，顯示一次
MAIN2: LCALL READTEMP ;溫度轉換開始
SETB TEMPONEOK
LJMP MAIN
;============================= 子程序區===========================
;RESET DS18B20
;================================================================
INITDS1820:SETB TEMPDIN
NOP
NOP
CLR TEMPDIN
MOV R6,#0A0H ;DELAY 480us
DJNZ R6,$
MOV R6,#0A0H
DJNZ R6,$
SETB TEMPDIN
MOV R6,#32H ;DELAY 70us
DJNZ R6,$
MOV R6,#3CH
LOOP1820: MOV C,TEMPDIN
JC INITDS1820OUT
DJNZ R6,LOOP1820
MOV R6,#064H
DJNZ R6,$
SJMP INITDS1820
RET
INITDS1820OUT: SETB TEMPDIN
RET
;====== 讀DS18B20的程序，從DS18B20中讀出一個字節的數據=============
READDS1820: MOV R7,#08H
SETB TEMPDIN
NOP
NOP
READDS1820LOOP: CLR TEMPDIN
NOP
NOP
NOP
SETB TEMPDIN
MOV R6,#07H ;DELAY 15us
DJNZ R6,$
MOV C,TEMPDIN
MOV R6,#3CH ;DELAY 120us
DJNZ R6,$
RRC A
SETB TEMPDIN
DJNZ R7,READDS1820LOOP
MOV R6,#3CH ;DELAY 120 us
DJNZ R6,$
RET
;======== 寫DS18B20的程序，從DS18B20中寫一個字節的數據=============
WRITEDS1820: MOV R7,#08H
SETB TEMPDIN
NOP
NOP
WRITEDS1820LOP: CLR TEMPDIN
MOV R6,#07H ;DELAY 15us
DJNZ R6,$
RRC A
MOV TEMPDIN,C
MOV R6,#34H ;DELAY 104us
DJNZ R6,$
SETB TEMPDIN
DJNZ R7,WRITEDS1820LOP
RET
;========================= READ TEMP ===========================
READTEMP: LCALL INITDS1820
MOV A,#0CCH
LCALL WRITEDS1820 ;SKIP ROM
MOV R6,#34H ;DELAY 104us
DJNZ R6,$
MOV A,#44H
LCALL WRITEDS1820 ;START CONVERSION
MOV R6,#34H ;DELAY 104
DJNZ R6,$
RET
READTEMP1: LCALL INITDS1820
MOV A,#0CCH
LCALL WRITEDS1820 ;SKIP ROM
MOV R6,#34H ;DELAY 104us
DJNZ R6,$
MOV A,#0BEH
LCALL WRITEDS1820 ;SCRATCHPAD
MOV R6,#34H ;DELAY 104us
DJNZ R6,$
MOV R5,#09H
MOV R0,#TEMPHEAD
MOV B,#00H
READTEMP2: LCALL READDS1820
MOV @R0,A
INC R0
READTEMP21: LCALL CRC8CAL
DJNZ R5,READTEMP2
MOV A,B
JNZ READTEMPOUT
MOV A,TEMPHEAD+0
MOV TEMPL,A
MOV A,TEMPHEAD+1
MOV TEMPH,A
READTEMPOUT: RET
;================== 處理溫度BCD碼子程序==========================
CONVTEMP: MOV A,TEMPH
ANL A,#80H
JZ TEMPC1
CLR C
MOV A,TEMPL
CPL A
ADD A,#01H
MOV TEMPL,A
MOV A,TEMPH ;-
CPL A
ADDC A,#00H
MOV TEMPH,A ;TEMPHC HI=符號位
MOV TEMPHC,#0BH
SJMP TEMPC11
TEMPC1: MOV TEMPHC,#0AH ;+
TEMPC11: MOV A,TEMPHC
SWAP A
MOV TEMPHC,A
MOV A,TEMPL
ANL A,#0FH ;乘0.0625
MOV DPTR,#TEMPDOTTAB
MOVC A,@A+DPTR
MOV TEMPLC,A ;TEMPLC LOW=小數部分BCD
MOV A,TEMPL ;整數部分
ANL A,#0F0H
SWAP A
MOV TEMPL,A
MOV A,TEMPH
ANL A,#0FH
SWAP A
ORL A,TEMPL
LCALL HEX2BCD1
MOV TEMPL,A
ANL A,#0F0H
SWAP A
ORL A,TEMPHC ;TEMPHC LOW=十位數BCD
MOV TEMPHC,A
MOV A,TEMPL
ANL A,#0FH
SWAP A ;TEMPLC HI=個位數BCD
ORL A,TEMPLC
MOV TEMPLC,A
MOV A,R7
JZ TEMPC12
ANL A,#0FH
SWAP A
MOV R7,A
MOV A,TEMPHC ;TEMPLC HI=百位數BCD
ANL A,#0FH
ORL A,R7
MOV TEMPHC,A
TEMPC12: RET
;========================= 小數部分碼表===========================
TEMPDOTTAB: DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06H
DB 06H,07H,08H,08H,09H,09H
;====================== 顯示區BCD碼溫度值刷新子程序===============
DISPBCD: MOV A,TEMPLC
ANL A,#0FH
MOV 70H,A
MOV A,TEMPLC
SWAP A
ANL A,#0FH
MOV 71H,A
MOV A,TEMPHC
ANL A,#0FH
MOV 72H,A
MOV A,TEMPHC
SWAP A
ANL A,#0FH
MOV 73H,A
MOV A,TEMPHC
ANL A,#0F0H
CJNE A,#010H,DISPBCD0
SJMP DISPBCD2
DISPBCD0: MOV A,TEMPHC
ANL A,#0FH
JNZ DISPBCD2 ;十位數是0
MOV A,TEMPHC
SWAP A
ANL A,#0FH
MOV 73H,#0AH ;符號位不顯示
MOV 72H,A ;十位數顯示符號
DISPBCD2: RET
;======================= 顯示子程序===============================
;顯示數據在70H~73H單元內，用4位LED共陽數碼管顯示，P1口輸出段碼數據，
;P3口做掃描控制，每個LED數碼管亮1ms時間再逐位循環。
DISP1: MOV R1,#70H ;指向顯示數據首址
MOV R5,#0FEH ;掃描控制字初值
PLAY: MOV P0,#0FFH
MOV A,R5 ;掃描字放入A
MOV P3,A ;從P3口輸出
MOV A,@R1 ;取顯示數據到A
MOV DPTR,#TAB ;取段碼表地址
MOVC A,@A+DPTR ;查顯示數據對應段碼
MOV P0,A ;段碼放入P0口
MOV A,R5
JB ACC.1,LOOP5 ;小數點處理
CLR P0.7
LOOP5: LCALL DL1MS ;顯示1ms
INC R1 ;指向下一地址
MOV A,R5 ;掃描控制字放入A
JNB ACC.3,ENDOUT ;ACC.3=0時一次顯示結束
RL A ;A中數據循環左移
MOV R5,A ;放回R5內
AJMP PLAY ;跳回PLAY循環
ENDOUT: MOV P0,#0FFH ;一次顯示結束，P0口復位
MOV P3,#0FFH ;P3口復位
RET ;子程序返回
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH
;共陽段碼表 “0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“-”
DL1MS: MOV R6,#14H ;1ms延時程序，LED顯示程序用
DL1: MOV R7,#19H
DL2: DJNZ R7,DL2
DJNZ R6,DL1
RET
;===================== 單字節十六進制轉BCD =======================
HEX2BCD1: MOV B,#064H ;十六進制->BCD
DIV AB ;B=A%100
MOV R7,A ;R7=百位數
MOV A,#0AH
XCH A,B
DIV AB ;B=A%B
SWAP A
ORL A,B
RET
;================================================================
;Calculate CRC-8Values. Uses The CCITT-8Polynomial,Expressed As
;X^8+X^5+X^4+1
;================================================================
CRC8CAL: PUSH ACC
MOV R7,#08H ;Number Bits In Byte
CRC8LOOP1: XRL A,B ;Calculte CRC
RRC A ;Move To Carry
MOV A,B ;Get The Last CRC Value
JNC CRC8LOOP2 ;Skip If Data==0
XRL A,#18H ;Updata The New CRC
CRC8LOOP2: RRC A ;Position The New CRC
MOV B,A ;Store The New CRC
POP ACC ;Get The Remaining Bits
RR A ;Position The Next Bit
PUSH ACC ;Save The Remaining Bits
DJNZ R7,CRC8LOOP1 ;Repeat For 8 Bits
POP ACC
RET
END

復制代碼

亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码