nidian.asm

运动粘度仪

               nop            ;;;;移到中断中去
             LCALL  KEY1; KEY2
             call fengmingqi
             jb querenjiany,l009
             jb qidongjiany,tiaodaoqd
             jb qingchujiany,tiaozhuandaoqc21
             aJMP KEY005
     tiaozhuandaoqc21:
                LCALL del160ms
              MOV	SDPL,#085H
	      MOV	SDPH,#5bH
              LCALL qingzhishi
               call qingwendushuzhi
               clr xianshidengdai
               jmp qingchu1
     tiaodaoqd:
                 LCALL del160ms
              MOV	SDPL,#085H
	      MOV	SDPH,#5bH
              LCALL qingzhishi
                call qingwendushuzhi
                jmp qidong
     l009:   clr querenjian
             clr querenjiany
             setb et0
             clr jiangwenzhi
             clr xianshidengdai
             ljmp   zhuyemian
  mmdayinjilushezhi0:
           ;;;;;;;;;;;;;;;实验 记录

           ljmp xiancunchujilu
  mmcanshushezhi:;;;;;;参数设置
          ljmp canshushezhichengxu
  mmyiqizijian:;;仪器自检程序
          ljmp  yiqizijianm
          SJMP $
     ;;;;;;;_____________________________________________________________
  canshushezhichengxu:    ;;;参数设置页面
        lcall   cler
                       mov zancun,#02h             ; 启动一次测温程序，不显示，
                                      ;此目的是为了返回主页面时消除乱码
     setb et0
     setb ea
     SETB TR0;启动测温
     setb wdzjbz
     clr ex1;;;;;;;此时不允许外部中断
     clr ie1
   shiwen112:  lcall del160ms
     lcall del160ms
     lcall del160ms
     clr et0
     lcall del160ms
     lcall    ADCHULI  ;;;温度查表和显示

     setb et0

     clr et0
     clr wdzjbz
       clr ea
       clr et0

        MOV	SDPL,#0b6H
	MOV	SDPH,#42H
        MOV	C24Z,#3
        MOV	R2,#24
        mov zishu,#4
        mov zijieshu,#72
        MOV	DPTR,#canshushezhid;;;参数设置
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        MOV	SDPL,#08aH
	MOV	SDPH,#49H
        MOV	C24Z,#2
        MOV	R2,#16
        mov zishu,#4
        mov zijieshu,#32
        MOV	DPTR,#shijiansheding;;;时间设置
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        MOV	SDPL,#082H
	MOV	SDPH,#56H
        MOV	C24Z,#2
        MOV	R2,#16
        mov zishu,#6
        mov zijieshu,#32
        MOV	DPTR,#yangpinxuhaoshezhi;;;;;;;;;;
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
                          ;;;;;;;;;;显示样品序号
        lcall quxuhao
        MOV	SDPL,#042H
	MOV	SDPH,#56H
        MOV	C24Z,#2
        MOV	R2,#24
        mov zishu,#1
        mov zijieshu,#32
        mov r0,zhongjianshu2
        lcall   PANBCDshijian
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        MOV	SDPL,#044H
	MOV	SDPH,#56H
        MOV	C24Z,#2
        MOV	R2,#24
        mov zishu,#1
        mov zijieshu,#32
        mov r0,zhongjianshu1
        lcall   PANBCDshijian
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        MOV	SDPL,#0aaH
	MOV	SDPH,#5bH
        MOV	C24Z,#2
        MOV	R2,#16
        mov zishu,#4
        mov zijieshu,#32
        MOV	DPTR,#dayinshezhican;;;打印设置
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        lcall  dayinshezhizhuanhuan0
        MOV	SDPL,#0aH
	MOV	SDPH,#60H
        MOV	C24Z,#2
        MOV	R2,#16
        mov zishu,#2
        mov zijieshu,#32
        MOV	DPTR,#fanhui;;
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        CLR   guangbiaoweizhi
   shijianxianshi:
        MOV	SDPL,#0e7H
	MOV	SDPH,#49H
        MOV	C24Z,#2
        MOV	R2,#24
        mov zishu,#1
        mov zijieshu,#48
        MOV	DPTR,#shijian2;;;2
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD

        MOV	SDPL,#0e9H
	MOV	SDPH,#49H
        MOV	C24Z,#2
        MOV	R2,#24
        mov zishu,#1
        mov zijieshu,#48
        MOV	DPTR,#shijian0;;;;;0
        MOV	CDPL,DPL
        MOV	CDPH,DPH
        LCALL	SUNFD
        MOV GUANGBIAOL,#0c2H;;;
        MOV GUANGBIAOH,#03H
        LCALL disguangbiao
        lcall del
lshijian0:      LCALL K004S                 ;调时间显示子程序

poop1:          nop
                nop
shijianchuguangbiao:clr zuoyijiany
           clr shangyijiany
           clr shijianguangbiao
           MOV GUANGBIAOL,#092H;;;  时间设置处光标
           MOV GUANGBIAOH,#01H
           LCALL disguangbiao
           lcall del
            MOV   guangbiaoweizhi,#01H
            setb  youyijian
            setb  xiayijian
            setb xianshijian
            lcall key1
            call fengmingqi
            clr xianshijian
            jb youyijiany,nianshichuguangbiao
            jb xiayijiany,xuhaochuguangbiao0
xuhaochuguangbiao0: ljmp xuhaochuguangbiao
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
nianshichuguangbiao:
             clr youyijiany;;;年十光标处
             clr zuoyijiany
             clr shangyijiany
             setb youyijian
             setb zuoyijian
             setb xiayijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#02H
             MOV GUANGBIAOL,#0a3H;;;年十光标
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
              MOV   guangbiaoweizhi,#02H
             lcall key1
             call fengmingqi
              clr xianshijian
             jb youyijiany,niangechuguangbiao0
             jb zuoyijiany,shijianchuguangbiao0
             jb xiayijiany,shishichuguangbiao0
             jb shuzijiany,shuruniangaoshi0
             ljmp poop1;lshijian0
 niangechuguangbiao0:ljmp niangechuguangbiao
 shijianchuguangbiao0:
         setb shijianguangbiao
         ljmp shijianchuguangbiao
 shishichuguangbiao0:ljmp shishichuguangbiao
shuruniangaoshi0:
          clr shuzijiany
          lcall shuruniangaoshi
niangechuguangbiao:clr youyijiany;;;年个光标处
             clr zuoyijiany
             MOV GUANGBIAOL,#0a5H;;;年个光标
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#03H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,yueshichuguangbiao
             jb zuoyijiany,nianshichuguangbiao
             jb shuzijiany,shuruniange00
             ljmp poop1;lshijian0
 shuruniange00:clr shuzijiany
              lcall  shuruniange
 yueshichuguangbiao:clr youyijiany;;;月十光标处
             clr zuoyijiany
             MOV GUANGBIAOL,#0a9H;;;
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
           ;  setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#04H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,yuegechuguangbiao
             jb zuoyijiany,niangechuguangbiao
             jb shuzijiany,shuruyueshi00
             ljmp poop1;lshijian0
  shuruyueshi00:
            clr shuzijiany
            lcall shuruyueshi
  yuegechuguangbiao:clr youyijiany;;;月个光标处
            clr zuoyijiany
            MOV GUANGBIAOL,#0abH;;;
            MOV GUANGBIAOH,#01H
            LCALL disguangbiao
            lcall del
            setb youyijian
            setb zuoyijian
           ; setb xianshijian
            setb shuzijian
            MOV  guangbiaoweizhi,#05H
            lcall key1
            call fengmingqi
            clr xianshijian
            jb youyijiany,rishichuguangbiao
            jb zuoyijiany,yueshichuguangbiao
            jb shuzijiany,shuruyuege00
            ljmp poop1;lshijian0
 shuruyuege00: clr shuzijiany
               lcall shuruyuege
 rishichuguangbiao:clr youyijiany;;;日十光标处
             clr zuoyijiany
             MOV GUANGBIAOL,#0afH;;;
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
             ; setb xianshijian
              setb shuzijian
              MOV  guangbiaoweizhi,#06H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,rigechuguangbiao00
             jb zuoyijiany, yueshichuguangbiao00
             jb shuzijiany,shururishi00
             ljmp poop1;lshijian0
  yueshichuguangbiao00:ljmp  yueshichuguangbiao
  rigechuguangbiao00:  ljmp  rigechuguangbiao
  shururishi00:clr shuzijiany
                lcall shururishi
 rigechuguangbiao:clr youyijiany;;;日个光标处
             clr zuoyijiany
             clr shangyijiany
             MOV GUANGBIAOL,#0b1H;;;
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#07H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,shishichuguangbiao
             jb zuoyijiany,rishichuguangbiao
             jb xiayijiany,shishichuguangbiao
             jb shuzijiany,shururige00
             ljmp poop1;lshijian0
  shururige00:
             clr shuzijiany
             lcall shururige
  shishichuguangbiao:
             clr youyijiany;;;时十光标处
             clr zuoyijiany
             clr xiayijiany
             MOV GUANGBIAOL,#067H;;;
             MOV GUANGBIAOH,#02H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#08H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,shigechuguangbiao
             jb zuoyijiany,rigechuguangbiao
             jb shuzijiany,shurushishi00
             ljmp poop1;lshijian0
   shurushishi00:
             clr shuzijiany
             lcall shurushishi
   shigechuguangbiao:clr youyijiany;;;;;时个光标处
             clr zuoyijiany
             MOV GUANGBIAOL,#069H;;;
             MOV GUANGBIAOH,#02H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#09H
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,fenshichuguangbiao
             jb zuoyijiany,shishichuguangbiao
             jb shuzijiany,shurushige00
             ljmp poop1;lshijian0
  shurushige00:
             clr shuzijiany
             lcall shurushige
  fenshichuguangbiao:clr youyijiany;;;分十光标处
             clr zuoyijiany
            MOV GUANGBIAOL,#06dH;;;
             MOV GUANGBIAOH,#02H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
            ; setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#0AH
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,fengechuguangbiao
             jb zuoyijiany,shigechuguangbiao
             jb shuzijiany,shurufenshi00
             ljmp poop1;lshijian0
 shurufenshi00:clr shuzijiany
              lcall shurufenshi
 fengechuguangbiao:clr youyijiany;;;分个光标处
             clr zuoyijiany
            MOV GUANGBIAOL,#06fH;;;
             MOV GUANGBIAOH,#02H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
           ;  setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#0BH
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,miaoshichuguangbiao
             jb zuoyijiany,fenshichuguangbiao
             jb shuzijiany,shurufenge00
             ljmp poop1;lshijian0
  shurufenge00: clr shuzijiany
              lcall shurufenge
miaoshichuguangbiao:clr youyijiany;;;秒十光标处
             clr zuoyijiany
             MOV GUANGBIAOL,#073H;;;
             MOV GUANGBIAOH,#02H
             LCALL disguangbiao
             lcall del
             setb youyijian
             setb zuoyijian
           ;  setb xianshijian
             setb shuzijian
             MOV  guangbiaoweizhi,#0CH
             lcall key1
             call fengmingqi
             clr xianshijian
             jb youyijiany,miaogechuguangbiao
             jb zuoyijiany,fengechuguangbiao
             jb shuzijiany,shurumiaoshi00
             ljmp poop1;lshijian0
   shurumiaoshi00:clr shuzijiany
             lcall shurumiaoshi
 miaogechuguangbiao:clr youyijiany;;秒个光标
            clr zuoyijiany
            MOV GUANGBIAOL,#075H;;;
            MOV GUANGBIAOH,#02H
            LCALL disguangbiao
            lcall del
            setb zuoyijian
           ; setb xianshijian
            setb shuzijian
            setb xiayijian