《【2017年整理】水下声磁复合探测系统》由会员分享，可在线阅读，更多相关《【2017年整理】水下声磁复合探测系统（3页珍藏版）》请在金锄头文库上搜索。
1、 STR EQU P2.2 ;STR 指向 P2.2EOC EQU P2.1 ;EOC 指向 P2.1ALE EQU P2.6 ;ALE 指向 P2.6ADA EQU P2.3 ;ADDA 指向 P2.3ADB EQU P2.4 ;ADDB 指向 P2.4ADC EQU P2.5 ;ADDC 指向 P2.5ORG 0000H ;主程序起始地址设置LJMP START ;跳转到 STARTSTART: ;主程序开始CLR ADA ;设置通道为 0CLR ADBCLR ADCCLR ALE ;将 ALE 设为低电平SETB ALE ;锁存通道地址NOP ;空操作CLR ALE ;将 ALE 置低电
2、平NOP ;空操作BEG: ;启动转换CLR STR ;给 STR 置低电平SETB STR ;给 STR 上升沿,使 ADC0809 复位NOP ;空操作CLR STR ;启动 A/D 转换NOPWAIT:JB P1.7,DENGCLR P3.2ACALL DSP1 ;显示并延时等待转换结束JNB EOC,WAIT ;查询转换状态MOV A,P0 ;读取转换结果ACALL TMP ;转换数据SJMP BEG ;开始下一次转换TMP: ;二进制转 BCDMOV B, #100 ;给 B 赋值 100DIV AB ;取温度的百位MOV 40H, A ;将百位保存在 40H 中MOV R1,40H
3、 ;将 40H 送入 A 中CJNE R1,#00H,LOOP ;如果温度大于等于 100 则报警MOV A, B ;将余数给 AMOV B, #10 ;给 B 赋值 10DIV AB ;取温度的十位MOV 41H, A ;将十位保存在 41H 中MOV 42H, B ;将各位保存在 42H 中RETDENG: SETB P3.2 CLR P3.3CLR P3.5ACALL WAITLOOP: ;报警子程序SETB P3.3 ;P3.3=1,不报警CALL DELAY ;等待延时CLR P3.3 ;P3.3=0,报警CALL DELAY ;等待延时LCALL TMP ;跳转到 TMPRETDS
4、P1: ;显示百位MOV A, 40H ;百位数给 AMOV DPTR, #TAB ;段码表地址给 DPTRMOVC A, A+DPTR ;获取段码给 AMOV P3, #80H ;选择第 1 位数码管显示MOV P1, A ;显示数字CALL DELAY ;延时DSP2: ;显示十位MOV A, 41H ;取出十位数给 AMOV DPTR, #TAB ;获取段码表地址MOVC A, A+DPTR ;获取段码给 AMOV P3, #40H ;选择第 2 位数码管显示MOV P1, A ;显示数字CALL DELAY ;延时DSP3: ;显示个位MOV A, 42H ;取出个位数给 AMOV DPTR, #TAB ;获取段码表地址MOVC A, A+DPTR ;获取段码给 AMOV P3, #20H ;选择第 3 位数码管显示MOV P1, A ;显示数字CALL DELAY ;延时RET ;返回DELAY: ;延时 130us(64+1)*2*12/12MMOV R0,#40H ;给 R0 赋值 64DJNZ R0,$ ;延时 64*2 个机器周期RET ;返回ORG 0100HTAB: ;定义段码表 DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;共阳极段码表END ;结束
