📄 nidian.asm
字号:
;2005.1.12日修改完毕，在测量凝点值时，负40度以下时到达预置凝点后开始延时3分钟
;增加2度后停止降温Ｔ3分钟之内温度回升到预置温度减1度后开始降温，如此反复直道延时结束
;2005.1.4日删去实验记录修改处,在显示时间之前先对应位清零
;2004.12.11日修改,添加了凝点值修正程序,占用数据存储器0050,0051单元.
;2004.12.10日作修改,将实验记录修改完毕.
;2004年12月4日做修改，预置温度在0到60之间有效，
;2004年12月6日将仪器自检处光标改为箭头
SDPL EQU 10H
SDPH EQU 11H
CDPL EQU 12H
CDPH EQU 13H
zishu equ 14h
zijieshu equ 15h
DEL1 EQU 16H
DEL2 EQU 17H
DEL3 EQU 78H
C24Z EQU 79h
DPLX EQU 7aH
DPHX EQU 7bH
DPLD EQU 7cH
DPHD EQU 7dH
YIDUCHAL EQU 7fH
YIDUCHAH EQU 30H
CHAL equ 31h
CHAH EQU 32H
XIAOSHU EQU 33H
DPLDZHI EQU 34H
DPHDZHI EQU 35H
DPLXZHI EQU 36H
DPHXZHI EQU 37H
ZHIL EQU 38H
ZHIH EQU 39H
ADRAML EQU 3aH
ADRAMH EQU 3bH
AFTERadraml EQU 3cH
AFTERADRAMH EQU 3dH
bjADRAML EQU 3eH
bjADRAMH EQU 3fH
bjadramhafter EQU 40H
WENDU1 EQU 41H
WENDUBCDGE EQU 42H
WENDUBCDSHI EQU 43H
BZIJIEGESHU EQU 44H
ACNT1 EQU 45H
BCOL1 EQU 46H
KEYNUM1 EQU 47H ;存设定值的十位
keynum2 EQU 48H ;存设定值的个位
KEYNUM3 EQU 49H ;得预设温度得BCD数
KEYNUM EQU 4aH
guangbiaobiaozhi equ 4bh
GUANGBIAOL EQU 4cH
GUANGBIAOH EQU 4dH
WEIZHI EQU 4eH ;用于判断从键盘输入的是第几个数
WAIBUZHONGDUAN EQU 4fH
wendubiaozhi equ 50h;;;2Dh表示零下，2bh表示零上
buzutiaoshu equ 51h
cundpl equ 52h
cundph equ 53h
zhongjianshu1 equ 54h
zhongjianshu2 equ 55h
xuhaobiaozhi equ 56h
yezhongweizhi equ 57h
yeshubiaozhi equ 58h
zhongjianshu equ 59h
zhishixuhao equ 5ah
guangbiaoweizhi equ 5bh
shijianguangbiao equ 5dh
zancun equ 5eh
;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;
;;;;标志位
shuzijiany bit 00h ;已操作标志
shuzijian bit 01h ;允许操作标志
zuoyijiany bit 02h
zuoyijian bit 03h
youyijiany bit 04h
youyijian bit 05h
shangyijiany bit 06h
shangyijian bit 07h
xiayijiany bit 08h
xiayijian bit 09h
qingchujiany bit 0ah
qingchujian bit 0bh
querenjiany bit 0ch
querenjian bit 0dh
qidongjiany bit 0eh
qidongjian bit 0fh
zuihouyitiao bit 10h
yiyeman bit 11h
zuihouyiyebiaozhi bit 12h
jiangwenzhi bit 13h
wancheng bit 14h
cuowujiance bit 15h
jiancedaocuowu bit 16h
dadaoyuzhiwendu bit 17h
xianshijian bit 18h
lingshangbiaozhi bit 19h
lingxiabiaozhi bit 1ah
jcdlkaishi bit 1bh
jcdlguan bit 1ch
jianwenbiaozhi bit 1dh
baojingbz bit 1eh
wdzjbz bit 1fh
xianshidengdai bit 20h
;----------------------------------------
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP AD
ORG 0013H
LJMP INT111
ORG 0030H
MAIN:MOV DPTR,#2003H
MOV A,#80H
MOVX @DPTR,A
MOV DPTR,#2000H
MOV A,#00H
MOVX @DPTR,A;;;;电机停止, 制冷停止，蜂鸣器关闭
mov dptr,#0006h
mov a,#00h;03h
movx @dptr,a;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;设为不打印方式
MOV TMOD,#06H;T0为方式2，计数器工作方式
setb ea
clr jiangwenzhi
MOV IP,#04H;INT1为优先中断
MOV TCON,#00h;电平触发，防止发生再次中断
MOV TL0,#0FfH
MOV TH0,#0FfH
MOV R0,#00H
MOV SP,#60H
MOV PSW,#00
MOV R0,#00H
QINGJICUNQI: MOV A,R0;清寄存器
MOV @R0,#00H
INC R0
MOV A,R0
CJNE A,#7EH,QINGJICUNQI
MOV KEYNUM,#00H
mov WEIZHI,#00h
LCALL INIT
;;;;;;;;____________________________________________________________
MAIN1: LCALL CLER
lcall xianshizhuhuamian ;开机画面
mov dptr,#2003h
mov a,#89h
movx @dptr,a
mov dptr,#2002h
movx a,@dptr
jb acc.1,nttt1
call djht
nttt1: lcall guanGUANHGBIAO
call fengmingqi
key0089: setb querenjian
lcall key1 ;
call fengmingqi
jb querenjiany,zhuyemian
ajmp key0089
;**********************************************
djht: mov dptr,#2000h
mov a,#01h
movx @dptr,a
mov dptr,#2002h
djht1: movx a,@dptr
jnb acc.1,djht1
mov dptr,#2000h
mov a,#00h
movx @dptr,a
ret
;;;;;;;;;;;;;;;;;;;;**************************
main12: ;;;;;;;;;保证电机位于后位置
mov dptr,#2003h
mov a,#89h
movx @dptr,a
mov dptr,#2000h
mov a,#01h
movx @dptr,a
mov dptr,#2002h
djht11: movx a,@dptr
jnb acc.1,djht11
mov dptr,#2000h
mov a,#00h
movx @dptr,a
clr querenjiany
zhuyemian:
LCALL CLER
lcall del
lcall dieryimian ;主操作页面
lcall del
clr querenjiany
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;等待操作选择
KEY000: ; MOV GUANGBIAOL,#84h;03eH
; MOV GUANGBIAOH,#4fh;02H
;LCALL disguangbiao ;1
;mov guangbiaobiaozhi,#19h
lcall del160ms
MOV SDPL,#84H
MOV SDPH,#4fH
LCALL zhishi11
clr querenjiany
clr shangyijiany
clr xiayijiany
setb shangyijian
setb xiayijian
setb querenjian ;;;;主菜单中等待选择
LCALL key1
call fengmingqi
jb shangyijiany,tdyiqizijian
jb querenjiany, myushewendu3 ;选择进入预置温度菜单
jb xiayijiany,mycanshushezhi3 ;选择光标下移
LCALL del160ms
LJMP KEY000
tdyiqizijian:MOV SDPL,#84H
MOV SDPH,#4fH
LCALL QINGZHISHI
jmp key013
myushewendu3:call fengmingqi
ljmp myushewendu
mycanshushezhi3: MOV SDPL,#84H
MOV SDPH,#4fH
LCALL QINGZHISHI
ljmp mycanshushezhi
KEY0001: MOV SDPL,#6cH
MOV SDPH,#53H
LCALL QINGZHISHI
call fengmingqi
jmp KEY000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mycanshushezhi:call fengmingqi
clr xiayijiany ;光标移到参数设置的菜单处等待选择
key011:
LCALL del160ms
MOV SDPL,#6cH
MOV SDPH,#53H
LCALL zhishi11
; MOV GUANGBIAOL,#6ch;0b6H
; MOV GUANGBIAOH,#53h;02H
;LCALL disguangbiao
clr shangyijiany
setb shangyijian
setb xiayijian
setb querenjian
lcall key1
call fengmingqi
jb shangyijiany,KEY0001
jb xiayijiany,mdayinjilushezhi
jb querenjiany,mmmcanshushezhi
mmmcanshushezhi:clr querenjiany
clr xiayijian
call fengmingqi
clr shangyijian
ajmp mmcanshushezhi
mdayinjilushezhi: MOV SDPL,#6cH
MOV SDPH,#53H
LCALL QINGZHISHI
call fengmingqi
clr xiayijiany ;;;;;;;光标移到实验记录菜单处等待选择
key012:LCALL del160ms
;MOV GUANGBIAOL,#7ch;02eH
; MOV GUANGBIAOH,#57h;03H
; LCALL disguangbiao ;1
MOV SDPL,#7cH
MOV SDPH,#57H
LCALL zhishi11
clr shangyijiany
setb shangyijian
setb querenjian
setb xiayijian
lcall key1
call fengmingqi
jb shangyijiany, mycanshushezhi11
jb xiayijiany ,mmmyiqizijian
jb querenjiany,mmmdayinjilushezhi
ajmp key012
mycanshushezhi11: MOV SDPL,#7cH
MOV SDPH,#57H
LCALL QINGZHISHI
jmp mycanshushezhi
mmmyiqizijian: MOV SDPL,#7cH
MOV SDPH,#57H
LCALL QINGZHISHI
ljmp myiqizijian0
mmmdayinjilushezhi: clr querenjiany
clr shangyijian
clr xiayijian
ljmp mmdayinjilushezhi0
myiqizijian0:call fengmingqi
clr xiayijiany ;;;;;;;光标移到仪器自检菜单处等待选择
key013:;MOV GUANGBIAOL,#8ch;0a6H
; MOV GUANGBIAOH,#5bh;03H
; LCALL disguangbiao ;1
lcall del160ms
MOV SDPL,#8cH
MOV SDPH,#5bH
LCALL zhishi11
clr shangyijiany
setb shangyijian
setb xiayijian
setb querenjian
lcall key1
call fengmingqi
jb shangyijiany,key0121
jb xiayijiany,kjhmianfh
jb querenjiany,mmyiqizijian01
ajmp key013
kjhmianfh: LCALL CLER
lcall xianshizhuhuamian ;开机画面
jmp key0089
key0121: MOV SDPL,#8cH
MOV SDPH,#5bH
LCALL QINGZHISHI
call fengmingqi
clr xiayijiany
jmp key012
mmyiqizijian01: ;;;;;;;;;;;;;;;;;;;;;;;;;************
clr querenjiany
clr shangyijian
ljmp mmyiqizijian
myushewendu:clr querenjiany
clr shangyijian
clr xiayijian
LCALL INIT
LCALL CLER
lcall del160ms
myushewendu1:
setb ea
MOV TL0,#0FfH
MOV TH0,#0FH
MOV R0,#00H
MOV SP,#60H
MOV PSW,#00
MOV DPTR,#2003H
MOV A,#80H
MOVX @DPTR,A
MOV DPTR,#2000H
MOV A,#00H
MOVX @DPTR,A
MOV R0,#00H
QINGJICUNQI2:MOV A,R0;清寄存器
MOV @R0,#00H
INC R0
MOV A,R0
CJNE A,#7fH,QINGJICUNQI2
;;;;;;;;******************************;进入测温画面
lcall YUSHEWENDU
; mov guangbiaobiaozhi,#15h
; MOV GUANGBIAOL,#0f8H
; MOV GUANGBIAOH,#00H
; LCALL disguangbiao ;设光标位置
LCALL del160ms
MOV SDPL,#0a5H
MOV SDPH,#45H
LCALL zhishi11
MOV DPTR,#2003H;;;;
MOV A,#80H
MOVX @DPTR,A;;;
MOV DPTR,#2000H
MOV A,#00H
MOVX @DPTR,A ;;;;电机停止???
KEY001: setb youyijian
setb xiayijian
lcall key1
call fengmingqi
jb youyijiany,l000
jb xiayijiany,fanhui13
AJMP KEY001
fanhui13: call fengmingqi
clr youyijian
clr xiayijiany
LCALL del160ms
MOV SDPL,#0a5H
MOV SDPH,#45H
LCALL qingzhishi
; MOV GUANGBIAOL,#0efH
; MOV GUANGBIAOH,#03H
; LCALL disguangbiao ;
LCALL del160ms
MOV SDPL,#085H
MOV SDPH,#5bH
LCALL zhishi11
lcall del1s
KEY004: setb querenjian
setb shangyijian
lcall key1
call fengmingqi
jb querenjiany,L002 ; 确认键处理
jb shangyijiany,L003 ; 上移键处理
AJMP KEY004
L002: call fengmingqi
LCALL del160ms
MOV SDPL,#085H
MOV SDPH,#5bH
LCALL qingzhishi
clr shangyijian
clr querenjiany
lJMP zhuyemian
L003: call fengmingqi
LCALL del160ms
MOV SDPL,#085H
MOV SDPH,#5bH
LCALL qingzhishi
clr querenjian
clr shangyijiany
ljmp myushewendu1
l000: call fengmingqi
clr xiayijian ;;;;;;;;;移到输入数字的位置,输入预设凝点温度
clr youyijiany
LCALL del160ms
MOV SDPL,#0a5H
MOV SDPH,#45H
LCALL qingzhishi
MOV GUANGBIAOL,#07H
MOV GUANGBIAOH,#01H
LCALL disguangbiao;设光标位置
lcall del;;;;;;;;;延时以防止过快按键
KEY002:setb shuzijian
setb zuoyijian
lcall key1
call fengmingqi
Jb shuzijiany,dispnum1
jb zuoyijiany,l004
ajmp key002
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -