nidian.asm

运动粘度仪

            MOV  guangbiaoweizhi,#0DH
            lcall key1
            call fengmingqi
              clr xianshijian
             jb zuoyijiany,zuoyijianymg
             jb shuzijiany,shurumiaoge00
             jb xiayijiany,xiayijianymg
             ljmp poop1;lshijian0
  zuoyijianymg:ljmp miaoshichuguangbiao
  xiayijianymg:ljmp  xuhaochuguangbiao
  shurumiaoge00: clr shuzijiany
             lcall shurumiaoge
 xuhaochuguangbiao:clr shangyijiany;;;;;;;;;;序号光标处
             clr xiayijiany
             clr shuzijiany
             clr zuoyijiany

             MOV GUANGBIAOL,#022H;;;
             MOV GUANGBIAOH,#03H
             LCALL disguangbiao
             lcall del
             MOV  guangbiaoweizhi,#0eH
             setb shangyijian
             setb xiayijian
             setb youyijian
             setb shuzijian
           ;  setb xianshijian
             lcall key1
             call fengmingqi
           ;  clr xianshijian
             jb xiayijiany,xiayijianyxu
             jb shangyijiany,shangyijianyxu
             jb youyijiany,youyijianyxu
             jb shuzijiany,shuzijianyxu
             ljmp poop1;lshijian0;
 xiayijianyxu:ljmp dayinshezhiguangbiao
shangyijianyxu:ljmp shijianchuguangbiao
 youyijianyxu:
              ljmp ypxuhaosheguangbiao1
 shuzijianyxu:ljmp xuhaochuguangbiao
 ;;;;;;;;;;;;;;;;;;
     ypxuhaosheguangbiao1:clr zuoyijiany
               clr youyijiany
               clr shuzijiany
               setb zuoyijian
               setb youyijian
               setb shuzijian
           ;    setb xianshijian
               setb xiayijian
               MOV GUANGBIAOL,#032H;;;
               MOV GUANGBIAOH,#03H
               LCALL disguangbiao
               lcall del
               MOV  guangbiaoweizhi,#0fH
               lcall key1
               call fengmingqi
           ;    clr xianshijian
               jb zuoyijiany,zuoyijianyxu1
               jb youyijiany,youyijianyxu1
               jb shuzijiany,shuzijianyxu1
               jb xiayijiany,xiayijianyxu1
               ljmp poop1;lshijian0
   zuoyijianyxu1:ljmp xuhaochuguangbiao
   youyijianyxu1:ljmp ypxuhaosheguangbiao2
   xiayijianyxu1:ljmp dayinshezhiguangbiao
   shuzijianyxu1:lcall  shuruxuhao1
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ypxuhaosheguangbiao2:
               clr youyijiany
               setb zuoyijian
               setb xiayijian
               setb shuzijian
           ;    setb xianshijian
               MOV GUANGBIAOL,#034H;;;
               MOV GUANGBIAOH,#03H
               LCALL disguangbiao
               lcall del
               MOV  guangbiaoweizhi,#10H
               lcall key1
               call fengmingqi
           ;    clr xianshijian
               jb zuoyijiany,zuoyijianyxu2
               jb xiayijiany,xiayijianyxu2
               jb shuzijiany,shuzijianyxu2
               ljmp poop1;lshijian0
    zuoyijianyxu2:ljmp ypxuhaosheguangbiao1
    xiayijianyxu2:ljmp dayinshezhiguangbiao
    shuzijianyxu2:lcall shuruxuhao2
                  clr shuzijiany
                  setb xiayijian
                  setb zuoyijian
           ;       setb xianshijian
                  lcall key1
                  call fengmingqi
           ;       clr xianshijian
                  jb xiayijiany,xiayijianyxu23
                  jb zuoyijiany,zuoyijianyxu23
  xiayijianyxu23: clr xiayijiany

                 ljmp dayinshezhiguangbiao

  zuoyijianyxu23: clr zuoyijiany
                 ljmp  ypxuhaosheguangbiao1

;;;;;;;;;;;;;;;;;;;;

 dayinshezhiguangbiao:clr xiayijiany
           clr shangyijiany
        MOV GUANGBIAOL,#0c2H;;;
        MOV GUANGBIAOH,#03H
        LCALL disguangbiao
        lcall del
        MOV  guangbiaoweizhi,#11H
        setb shangyijian
        setb xiayijian
        setb youyijian
     ;   setb xianshijian
        lcall key1
        call fengmingqi
      ;  clr xianshijian
        jb shangyijiany,shangyijianydy
        jb xiayijiany,xiayijianydy
        jb youyijiany,qingchujianydy
        ljmp poop1;lshijian0;

    shangyijianydy:ljmp xuhaochuguangbiao
    xiayijianydy:ljmp  fanhuiguangbiaocanshu
    qingchujianydy:

   dyhuan:    clr youyijiany
              setb zuoyijian
              setb qingchujian
              setb xiayijian
              MOV GUANGBIAOL,#0d2H;;;
              MOV GUANGBIAOH,#03H
              LCALL disguangbiao
              lcall del
              MOV   guangbiaoweizhi,#12H
        ;      setb xianshijian
              lcall key1
              call fengmingqi
        ;      clr xianshijian
              jb zuoyijiany,zuoyijianydyh
              jb qingchujiany,qingchujianydyh
              jb xiayijiany,xiayijianydyh
              ljmp poop1;lshijian0
   zuoyijianydyh:ljmp dayinshezhiguangbiao

   xiayijianydyh:ljmp fanhuiguangbiaocanshu
   qingchujianydyh:clr qingchujiany
                   lcall dayinshezhizhuanhuan
                   MOV GUANGBIAOL,#0d2H;;;
                   MOV GUANGBIAOH,#03H
                   LCALL disguangbiao
                   lcall del
                   setb zuoyijian
                   setb xiayijian
         ;          setb xianshijian
                   lcall key1
                   call fengmingqi
         ;          clr xianshijian
                   jb zuoyijiany,zuoyijianyq
                   jb xiayijiany,xiayijianyq
                   ljmp poop1;lshijian0
        zuoyijianyq:ljmp dayinshezhiguangbiao
        xiayijianyq:ljmp fanhuiguangbiaocanshu

 fanhuiguangbiaocanshu:
                     clr xiayijiany
                     setb shangyijian
                     setb querenjian
                     MOV GUANGBIAOL,#03aH;;;
                     MOV GUANGBIAOH,#04H
                     LCALL disguangbiao
                     lcall del
                     MOV   guangbiaoweizhi,#13H
         ;            setb xianshijian
                     lcall key1
                     call fengmingqi
                    ; clr xianshijian
                    nop
                    nop
                     jb shangyijiany,shangyijianyfh
                     jb querenjiany,querenjianyfh
                     ljmp poop1;lshijian0;

shangyijianyfh: clr  shangyijiany
                ljmp  dayinshezhiguangbiao
querenjianyfh: clr querenjiany
               clr xianshijian
               setb et0
               setb ea


               jmp  zhuyemian

;;;;;;;;;;;;;;;;;;;________________________________________________________
;;;;;;;;;;;;;;;;;;;;;;;;;实验记录页面
;;;;;;;;;;;;;;;;;;;;;;;;;*******************;显示存储记录

xiancunchujilu:
                  clr ea
                 clr et0

                 mov dptr,#0002h
                 movx a,@dptr
                ; lcall BCDH16
                 clr c
                 subb a,#05
                 jc xiaoyu6
                 jz xiaoyu6
                 movx a,@dptr
                 jmp dayuliu
         xiaoyu6:mov a,#01h

         dayuliu:subb a,#05
                 lcall hbcd16

                 mov xuhaobiaozhi,a
                 mov b,#06h
                 movx a,@dptr
                 div ab
                 cjne a,#0,budeng123
                 inc a
      budeng123:
                mov yeshubiaozhi,a
               nop
               nop
               ; mov xuhaobiaozhi,a;#79h;01h
               ; mov yeshubiaozhi,#0dh





 xianshiyiye: mov yezhongweizhi,#00h
              clr yiyeman
              clr zuihouyitiao
              LCALL CLER
   xianshiyiye00:    lcall mmdayinjilushezhi  ;;;;;显示实验记录页
           lcall del
           MOV   zhongjianshu1,#1dH;;;;;;;;;显示第一个数;;;;
           MOV   zhongjianshu2,#4bH
           LCALL XIANSHi  ;;;显示一条内容
           mov a,XUHAOBIAOZHI
           mov sdpl,#1ah
           mov sdph,#4bh
           lcall    XIANSHI2SHUZI;;;显示第1序号
           lcall xuhaojia1  ;;;序号加一
        ;显示一个序号
           inc yezhongweizhi

        MOV ZHONGJIANSHU1,#15H  ;;;;;;;;;第2条
        MOV ZHONGJIANSHU2,#4EH
        LCALL xianshi
        mov a,XUHAOBIAOZHI
        mov sdpl,#12h
        mov sdph,#4eh
        lcall    XIANSHI2SHUZi
        lcall xuhaojia1
        inc yezhongweizhi

        MOV ZHONGJIANSHU1,#0e5H  ;;;;;;;;;第3条
        MOV ZHONGJIANSHU2,#50H
        LCALL xianshi
        mov a,XUHAOBIAOZHI
        mov sdpl,#0e2h
        mov sdph,#50h
       lcall    XIANSHI2SHUZI
         lcall xuhaojia1
        inc yezhongweizhi

        MOV ZHONGJIANSHU1,#0ddH  ;;;;;;;;;第4条
        MOV ZHONGJIANSHU2,#53H
        LCALL xianshi
        mov sdpl,#0dah
        mov sdph,#53h
        mov a,XUHAOBIAOZHI
        lcall    XIANSHI2SHUZI
        lcall xuhaojia1
        inc yezhongweizhi

        MOV ZHONGJIANSHU1,#0d5H  ;;;;;;;;;第5条
        MOV ZHONGJIANSHU2,#56H
        LCALL xianshi
        mov sdpl,#0d2h
        mov sdph,#56h
        mov a,XUHAOBIAOZHI
        lcall    XIANSHI2SHUZI
        lcall xuhaojia1
        inc yezhongweizhi
        MOV ZHONGJIANSHU1,#0f5H  ;;;;;;;;;第6条
        MOV ZHONGJIANSHU2,#59H
        LCALL xianshi
        mov sdpl,#0f2h
        mov sdph,#59h
        mov a,XUHAOBIAOZHI
        lcall    XIANSHI2SHUZI
        lcall xuhaojia1
        inc yezhongweizhi
        setb yiyeman;;;设一页满的标志
        mov buzutiaoshu,#00h
 qianyiyeguangbiao2:
        mov a,yezhongweizhi
        cjne  a,#06h, l123
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;显示完一页
 qianyiyeguangbiao:
      mov zhishixuhao,xuhaobiaozhi
      dec zhishixuhao;;;;;;;
      clr zuihouyitiao
      clr zuihouyiyebiaozhi
      clr querenjiany
    KEY020:clr zuoyijiany
         mov a,yeshubiaozhi
         cjne a,#00h,l00015
         clr querenjian
         ljmp l00016
     l00015: setb querenjian
 l00016:     MOV GUANGBIAOL,#03BH;;;前一页光标
             MOV GUANGBIAOH,#04H
             LCALL disguangbiao ;
            lcall del
            setb youyijian
            setb shangyijian;;
            LCALL   KEY1
            call fengmingqi
            jb querenjiany, xianqianyiye1
            jb youyijiany,houyiyeguangbiao  ;到后一页光标
            jb shangyijiany,panguangbiao0
            LCALL DEL
            LJMP KEY020
  xianqianyiye1:ljmp xianqianyiye
  panguangbiao0:
            ljmp panguangbiao

  l123:    mov buzutiaoshu,yezhongweizhi
           ljmp qianyiyeguangbiao
houyiyeguangbiao:
             clr youyijiany  ;;;;后一页光标
             clr zuoyijiany
             setb querenjian
             mov a, yeshubiaozhi
             cjne a,#1ch,key021
             clr querenjian
     KEY021: MOV GUANGBIAOL,#045H     ;;;后一页光标
             MOV GUANGBIAOH,#04H
             LCALL disguangbiao ;
             lcall del
             setb youyijian
             setb zuoyijian             ;;;;
             LCALL   KEY1
             call fengmingqi
            jb querenjiany, xianhouyiye1;
            jb zuoyijiany,qianyiyeguangbiao  ;
            jb youyijiany,dayinjiluguangbiao ;
            LCALL DEL
            LJMP houyiyeguangbiao
   xianhouyiye1:jnb yiyeman,qianyiyeguangbiao00
                ljmp  xianhouyiye
   qianyiyeguangbiao00:ljmp qianyiyeguangbiao
   dayinjiluguangbiao:clr youyijiany
                      clr zuoyijiany
   KEY022:  MOV GUANGBIAOL,#04FH          ;;;打印记录光标
        MOV GUANGBIAOH,#04H
        LCALL disguangbiao ;
        lcall del
        setb querenjian
        setb youyijian
        setb zuoyijian             ;;;;
        LCALL   KEY1
        call fengmingqi
        jb querenjiany,dayinyitiaojilu1  ;
        jb zuoyijiany,houyiyeguangbiao  ;
        jb youyijiany,fanhuiguangbiao ;
        LJMP KEY022
  dayinyitiaojilu1:ljmp dayinyitiaojilu
  fanhuiguangbiao:clr youyijiany
                  clr youyijian
  key024:MOV GUANGBIAOL,#05AH         ;;;返回光标
         MOV GUANGBIAOH,#04H
         LCALL disguangbiao ;
         lcall del
         setb querenjian
         setb zuoyijian             ;;;;
         LCALL   KEY1
         call fengmingqi
         jb querenjiany, jilufanhui ;
         jb zuoyijiany,dayinjiluguangbiao  ;
         LJMP KEY024
 jilufanhui: clr querenjiany
               mov zancun,#02h             ; 启动一次测温程序，不显示，
                                      ;此目的是为了返回主页面时消除乱码
     setb et0
     setb ea
     SETB TR0;启动测温
     setb wdzjbz
     clr ex1;;;;;;;此时不允许外部中断
     clr ie1
   shiwen1123:  lcall del160ms
     lcall del160ms
     lcall del160ms
     clr et0
     lcall del160ms
     lcall    ADCHULI  ;;;温度查表和显示
    ; lcall     DISshiwen
     setb et0
    ; jnb lingshangbiaozhi,shiwen1123
   ;  jb lingxiabiaozhi,shiwen1123
   ;  clr lingxiabiaozhi
    ; clr lingshangbiaozhi
     clr et0
     clr wdzjbz
            setb ea
            setb et0
          ljmp zhuyemian
;;;;;;********************************************  在页内处显示光标

 panguangbiao: clr zuihouyitiao
               jb yiyeman ,pan00
       pan11:mov a,yezhongweizhi
             cjne a,#01h,pan22
             MOV GUANGBIAOL,#092H;;;
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             ljmp   l0456
     pan22:
             cjne a,#02h,pan33
             MOV GUANGBIAOL,#0e2H;;;
             MOV GUANGBIAOH,#01H
             LCALL disguangbiao
             lcall del
             ljmp   l0456

        pan33: cjne a,#03h,pan44
             MOV GUANGBIAOL,#05aH;;;
             MOV GUANGBIAOH,#02H