hl-1000a.asm

这个是UPS整套软件

                 goto      d_v
                 decf      pid
                 clrf      pid2

                 goto      d_v

;******************************************电池电压指示

d_v:

                 ;btfss     batteryz
                 ;goto      lzz
                 btfsc     currentoverz    ;过载时不显电池电压
                 goto      lzz
                 movlw     0c9h           ;1
                 movwf     adcon0        ;电压指示
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                 bsf       adcon0,2
d_v1:            btfsc     adcon0,2
                 goto      d_v1





      relaya2:        movlw     bat
                      addwf     f4a,0
                      movwf    4h
                      movfw     adres
                      movwf     0h
                      btfss     adcz
                      goto      uu

       relaya3:
                      movlw     5
                      movwf     r1
                      movlw     bat
                      movwf     4h
                      movfw     0h
                      movwf     mix

      mixa1:          incf      4h
                      movfw     0h
                     ; bcf       STATUS,0
                      subwf     mix,0
                      BTFSC     STATUS,0
                      goto      mixa2
                      movfw     0h
                      movwf     mix
      mixa2:           decfsz    r1
                      goto     mixa1

                      movlw     5
                      movwf     r1
                      movlw     bat
                      movwf     4h
                      movfw     0h
                      movwf     min

      mina1:           incf      4h
                      movfw     0h
                    ;  bcf       STATUS,0
                      subwf     min,0
                      BTFSs     STATUS,0
                      goto      mina2
                      movfw     0h
                      movwf     min
      mina2:           decfsz    r1
                      goto      mina1

                      movlw     5
                      movwf     r1
                      movlw     bat
                      movwf     4h
                      movfw     0h
                      movwf     sum
                      clrf      sumh
      suma1:           incf      4h
                      movfw     0h
                    ;  bcf       STATUS,0
                      addwf     sum,1
                      BTFSs     STATUS,0
                      goto      suma2
                      incf      sumh
      suma2:           decfsz    r1
                      goto      suma1
                      movfw     min
                   ;   bcf       STATUS,0
                      subwf     sum
                      BTFSs     STATUS,0
                      decf      sumh
                      movfw     mix
                    ;  bcf       STATUS,0
                      subwf     sum
                      BTFSs     STATUS,0
                      decf      sumh
                      rrf       sumh
                      rrf       sum
                    ;  bcf       STATUS,0
                      rrf       sumh
                      rrf       sum

                      btfss    cetime1z
                      goto      uu


                      movfw     sum
                      SUBLW     250          ;43
                      BTFSc     STATUS,0
                      goto      batteryshow
                      movlw     0dfh
                      movwf     light
                      bsf       cn10
                      bsf       cn9
                      goto      close1





;*******************************************

 batteryshow:

                 movfw     sum
                 SUBLW     158          ;31v- 158
                 BTFSc     STATUS,0
                 goto      d_v30x
                 movfw      sum
                 SUBLW     163            ;32v
                 BTFSc     STATUS,0
                 goto      d_v30_32
                 movfw      sum
                 SUBLW     173           ;34v
                 BTFSc     STATUS,0
                 goto      d_v32_34
                 movfw      sum
                 SUBLW     184            ;36v
                 BTFSc     STATUS,0
                 goto      d_v34_36
                 movfw      sum
                 SUBLW     194           ;38v
                 BTFSc     STATUS,0
                 goto      d_v36_38

                 BTFSs     lightz,5
                 goto      dv40x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv40x2

dv40x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,5
                 goto      lzz

dv40x2:          movlw     10
                 movwf     lightc
                 bcf      batterylowz
                 movlw     17
                 movwf     batterytime2

                 btfss     batteryz
                 goto      lzz
                 bcf      light,3
                 bcf      light,4        ;38v以上的
                 bcf      light,5
                 bcf      light,6
                 bcf      light,2
                 goto     lzz

d_v30x:          bsf      light,2        ;小于 30V
                 BTFSs     lightz,0
                 goto      dv30x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv30x2

dv30x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,0
                 goto      lzz

dv30x2:          movlw     10
                 movwf    lightc
                 bsf      light,3
                 bsf      light,4
                 bsf      light,5
                 bsf      light,6
                 bsf      light,2

                 btfsc       invrly
                 goto        dccc
                 movlw     0bfh
                 movwf     light
                 bcf      cn10
                 bsf      cn9
                 goto     close1

  dccc:          bsf      batterylowz


                 decfsz    batterytime1     ;
                 goto      lzz
                 decfsz    batterytime2
                 goto      lzz
                 movlw     17
                 movwf     batterytime2
                 movlw     0bfh
                 movwf     light

                 bsf       cn9
                 goto      close1

d_v30_32:
                 BTFSs     lightz,1
                 goto      dv32x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv32x2

dv32x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,1
                 goto      lzz

dv32x2:          movlw     10
                 movwf     lightc
                 bcf      batterylowz
                 movlw     17
                 movwf     batterytime2

                 btfss     batteryz
                 goto      lzz

                bcf      light,6
                bsf      light,3
                bsf      light,4
                bsf      light,5
                bsf      light,2



                goto     lzz
                ;bcf      light,4
d_v32_34:

                 BTFSs     lightz,2
                 goto      dv34x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv34x2

dv34x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,2
                 goto      lzz

dv34x2:          movlw     10
                 movwf     lightc
                  bcf      batterylowz
                 movlw     17
                 movwf     batterytime2

                 btfss     batteryz
                 goto      lzz

                bcf      light,5
                bcf      light,6
                bsf      light,3
                bsf      light,4
                bsf      light,2

                goto     lzz
d_v34_36:
                 BTFSs     lightz,3
                 goto      dv36x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv36x2

dv36x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,3
                 goto      lzz

dv36x2:         movlw     10
                movwf     lightc


                 bcf      batterylowz
                 movlw     17
                 movwf     batterytime2

                 btfss     batteryz
                 goto      lzz
                bcf      light,6
                bcf      light,4
                bcf      light,5
                bsf      light,3
                bsf      light,2
                goto     lzz
                ;bcf      light,4
d_v36_38:

                 BTFSs     lightz,4
                 goto      dv38x1
                 decfsz    lightc
                 goto      lzz
                 goto      dv38x2

dv38x1:          clrf      lightz
                 movlw     10
                 movwf     lightc
                 bsf       lightz,4
                 goto      lzz

dv38x2:          movlw     10
                 movwf     lightc
                  bcf      batterylowz
                 movlw     17
                 movwf     batterytime2

                 btfss     batteryz
                 goto      lzz


               bcf      light,3
               bcf      light,4
               bcf      light,5
               bcf      light,6
               bsf      light,2

               ;goto startrun
;**********************************************温度检测
     lzz:
     uu:
                      ;goto     startrun
                      movlw     0c1h
                      movwf     adcon0
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      nop
                      bsf       adcon0,2
    temperature:      btfsc     adcon0,2
                      goto      temperature



      relayb2:        movlw     temp
                      addwf     f4a,0
                      movwf     4h
                      movfw     adres
                      movwf     0h
                      btfss     adcz
                      goto      pressure1

       relayb3:
                      movlw     5
                      movwf     r1
                      movlw     temp
                      movwf     4h
                      movfw     0h
                      movwf     mix

      mixb1:          incf      4h
                      movfw     0h
                    ;  bcf       STATUS,0
                      subwf     mix,0
                      BTFSC     STATUS,0
                      goto      mixb2
                      movfw     0h
                      movwf     mix
      mixb2:           decfsz    r1
                      goto     mixb1

                      movlw     5
                      movwf     r1
                      movlw     temp
                      movwf     4h
                      movfw     0h
                      movwf     min

      minb1:           incf      4h
                      movfw     0h
                    ;  bcf       STATUS,0
                      subwf     min,0
                      BTFSs     STATUS,0
                      goto      minb2
                      movfw     0h
                      movwf     min
      minb2:           decfsz    r1
                      goto      minb1

                      movlw     5
                      movwf     r1
                      movlw     temp
                      movwf     4h
                      movfw     0h
                      movwf     sum
                      clrf      sumh
      sumb1:           incf      4h
                      movfw     0h