esda的日志

中频治疗仪源程序

已有 712 次阅读 2009-10-02 11:12 标签: 中频治疗仪程序

; MCU :SM8952

      ORG 0000H                     ;计数20分钟准确，0.25MS
      LJMP MAIN
      ORG 000BH
      LJMP T0Z
      ORG 0013H                    ;INT1 按键外部中断
      LJMP aga
      ORG 001BH                       ;T1    0.25ms                       :clp 3.4
      LJMP T1Z
                                      ;   use regster :41h,42h,43h,45h
   savcf   data 4ah
   cfcf    data 7dh
   pp1     data 30h
   count1 data 31h
   count2 data 32h
   save    data 33h
   savcfh data 34h
   savchh data 35h
   jjben   data 36h
   WDTC    data 9fh      ;watch dog rigester
   SCONF   data 0bfh

   f1savef data 51h
   f1min    data 52h
   f1sec    data 53h
   f1pp1    data 54h

   f2savef data 71h
   f2min    data 72h
   f2sec    data 73h
   f2pp1    data 74h

   ;p1.3 and p1.5 connet GND
;*******************************************************新建（T1 赋初值）
      ORG 0030H
       nop
MAIN: clr 2fh.1
MAIN1: nop
       mov sp,#0C0h
       MOV TCON,#0
       MOV IP ,#08H         ;T1的中断优先级最高
       mov tmod,#21h        ;T1 方式1 定时
       MOV TH1,#06H          ;0.25ms
       MOV TL1,#06H
       MOV IE,#8AH
       SETB TR1       ;OPEN T1
       SETB TR0
       MOV WDTC,#0A7H   ;open watch dog          PS2 PS1 PS0 =111

           mov a,SCONF
           RLC A
           JNC normal1
           ljmp aaa
   normal1: ljmp normal
           lcall del0
   ;******************************************** savef

aaa:       mov a,savcf
         cjne a,f1savef,aaa1
         mov f2savef,a
         ljmp bbb
   aaa1:      mov a,savcf
              cjne a,f2savef,aaa2
              mov f1savef,a
              ljmp bbb
   aaa2:           mov a,f1savef
                   cjne a,f2savef,errerr
                   mov savcf,a       ;把第二的数据送savef中。

   ;*******************************************       44h minter
    bbb:   mov a,44h
           cjne a,f1min,bbb1
           mov f2min,a
           ljmp ccc
   bbb1:   mov a,44h
           cjne a,f2min,bbb2
           mov f1min,a
           ljmp ccc
   bbb2:         mov a,f1min
                 cjne a,f2min,errerr
                 mov 44h,f1min

   ;********************************************   45h second
    ccc:       mov a,45h
               cjne a,f1sec,ccc1
               mov f2sec,a
               ljmp ddd
    ccc1:        mov a,45h
                 cjne a,f2sec,ccc2
                 mov f1sec,a
                 ljmp ddd
    ccc2:   mov a,f1sec
            cjne a,f2sec,errerr
            mov 44h,f1sec

;**********************************************     pp1 pointer
ddd:     mov a,pp1
           cjne a,f1pp1,ddd1
           mov f2pp1,a
           ljmp eee
ddd1:      mov a,pp1
             cjne a,f2pp1,ddd2
             mov f1pp1,a
             ljmp eee
ddd2:   mov a,f1pp1
          cjne a,f2pp1,errerr
          mov pp1,f1pp1
          ljmp eee
errerr: mov SCONF,#01H
         ljmp normal

;***********************************************
eee:
           setb ex1
           mov 7fh,savcf        ;处方数；分钟，妙数：和指针 savef,44h,45h,pp1 2/3。
           mov cfcf,savcf
           MOV SCONF,#01H
           ljmp NoNormal

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

normal: mov dptr,#7fffh
mov a,#0
movx @dptr,a

      mov 7fh,#0ah
      mov 7eh,#0ah
      mov cfcf,#1
      mov 7fh,cfcf
      clr 2fh.7
      MOV SCONF,#01H    ;inhibit ALE output.

       jnb 2fh.1,jia
       clr 2fh.1
       mov 7fh,savcf
       mov cfcf,savcf

jia:   lcall del0
       nop
jiajin:nop
       nop
        mov WDTC,#0A7H            ; to watch dog.
       jnb p3.2,incpro           ;if p3.2=0 then goto inc program
       jnb p3.3,runpro           ;if p3.3=0 then goto run program
       ajmp jiajin
       nop
incpro:nop
       nop
       lcall delay
       jb p3.2,jiajin           ;wu dou
       lcall delay
       nop
againc:nop
       nop
     jnb p3.2,againc          ;wait p3.2=1
     inc cfcf
     mov 7fh,cfcf
     MOV A,cfcf
     cjne a,#9,jiajin           ;判断选择处方是否》8
     mov cfcf,#1
     mov 7fh,cfcf
     ajmp jiajin

runpro: lcall delay
         jb p3.3,jiajin          ;wu dou zuo
         nop
         nop
lijun1: nop
         nop
         jnb p3.3,lijun1    ;开始停止键松开,才向下运行.
         lcall delay
         lcall del0

    setb ex1                ;打开INT1中断.
    mov savcf,cfcf
    mov f1savef,cfcf        ;2/3
    mov f2savef,cfcf
   ; jb p1.5,litab            ;jia mi

    ljmp ch1_8
      nop
        nop
        nop
        ljmp aga

;**************************************************
;治疗仪处方子程序

litab: dw cf1,cf2,cf3,cf4,cf5,cf6,cf7,cf8

juntab: dw ch1tab,ch2tab,ch3tab,ch4tab,ch5tab,ch6tab,ch7tab,ch8tab
        nop
        nop
        nop
        ljmp aga

;************************************************************WAVE 1

cf1:    db 64h,04h,64h,04h,68h,08h,64h,08h,64H,08h
        db 64h,0bh,64h,04h,64h,08h,64h,04h,34h,08h
        db 38h,0Ch,68h,04h,64h,08h,6Ch,0Ch,64h,04h
        db 68h,04h,6Ch,0Ch,44h,0Ch,8fh,0fh,64h,04h
        db 64h,0Ch,64h,06h,68h,0Ch,64h,08h,68h,04h
        db 64h,04h,64h,04h,64h,04h,64h,04h,64h,04h
        db 68h,0Ch,64h,08h,6Ch,08h,64h,08h,6Ch,0Ch
        db 64h,04h,6fh,0fh,68h,08h,64h,08h,64h,08h
        db 64h,0Ch
;************************************************************WAVE 2
cf2:     db 64h,04h,64h,04h,64h,04h,6Ch,08h,0C4h,04h
         db 0C4h,04h,0C8h,04h,68h,04h,64h,08h,68h,04h
         db 68h,08h,68h,04h,68h,04h,68h,04h,64h,04h
         db 68h,04h,68h,04h,64h,04h,64h,04h,64h,04h
         db 64h,04h,68h,08h,68h,04h,68h,08h,64h,04h
         db 68h,04h,6Ch,04h,64h,04h,68h,04h,6fh,0fh
         db 64h,04h,68h,64h,64h,08h,68h,04h,68h,04h
         db 68h,04h,64h,04h
;;************************************************************WAVE 3
cf3:   db 64h,04H,68h,0bh,64h,05h,64h,0bh,68h,0bh
       db 64h,08h,64h,08h,6bh,08h,68h,08h,68h,08h
       db 6bh,08h,68h,0bh,6bh,08h,64h,08h,64h,08h
       db 0C4h,0bh,0C4h,0fh,0C8h,0fh,0C4h,08h,64h,04h
       db 68h,0ah,68h,08h,64h,04h,64h,04h,68h,08h
       db 68h,08h,68h,08h,68h,08h,6bh,0bh,64h,05h
       db 64h,08h,6bh,08h,6bh,08h,64h,04h,64h,04h
       db 64h,04h
;************************************************************WAVE 4
cf4:   db 64h,04h,64h,04h,64h,04h,64h,08h,64h,0Ch
       db 64h,04h,64h,08h,64h,04h,64h,08h,68h,0Ch
       db 68h,04h,64h,08h,6Ch,0Ch,34h,04h,38h,04h
       db 6Ch,0Ch,64h,0Ch,6Fh,0Fh,64h,04h,64h,06h
       db 64h,06h,68h,0Fh,68h,08h,68h,04h,68h,04h
       db 6Ah,04h,68h,04h,64h,04h,64h,04h,68h,04h
       db 68h,0Ch,64h,08h,6Ch,08h,64h,08h,6Ch,0Ch
       db 64h,08h,64h,0Ch,68h,08h,64h,04h,64h,08h
       db 68h,0Ch
;************************************************************WAVE 5
cf5:   db 64h,04h,64h,04h,68h,04h,64h,08h,68h,0Ch
       db 64h,08h,64h,08h,64h,04h,64h,08h,68h,0Ch
       db 34h,04h,38h,08h,68h,04h,64h,08h,6Ch,0Ch
       db 64h,04h,64h,04h,68h,0Ch,6Ch,08h,64h,0Ch
       db 64h,04h,64h,04h,64h,08h,64h,0Ch,64h,08h
       db 68h,04h,68h,08h,64h,04h,64h,04h,64h,04h
       db 38h,04h,38h,04h,68h,0Ch,64h,08h,6Ch,08h
       db 34h,08h,3Ch,0Ch,64h,04h,6Fh,0Fh,68h,08h
       db 64h,04h,64h,04h,68h,0Ch
;************************************************************WAVE 6
cf6:    db 64h,04h,64h,04h,68h,08h,64h,08h,6Ch,0Ch
        db 64h,04h,68h,04h,68h,04h,68h,04h,6Ch,08h
        db 64h,04h,64h,04h,64h,04h,64h,04h,68h,04h
        db 64h,08h,64h,0Ch,64h,0Ch,6Ch,0Ch,64h,04h
        db 64h,04h,68h,08h,6Ch,0Ch,6Fh,08h,6Ch,08h
        db 68h,0Ch,68h,08h,68h,08h,64h,04h,64h,04h
        db 64h,04h,64h,04h,0C4h,08h,64h,04h,0C4h,04h
        db 0C4h,04h,64h,04h
;************************************************************WAVE 7
cf7:    db 64h,04h,64h,04H,68h,04h,64h,08h,68h,0Ch
        db 64h,08h,64h,08h,64h,04h,64h,08h,68h,0Ch
        db 68h,04h,64h,08h,6Ch,0Ch,64h,04h,64h,04h
        db 68h,0Ch,6Ch,08h,64h,0Ch,64h,04h,64h,04h
        db 64h,04h,68h,06h,64h,08h,68h,04h,64h,04h
        db 64h,04h,64h,04h,68h,04h,64h,04h,68h,0Ch
        db 64h,08h,6Ch,08h,64h,08h,6Ch,0Ch,64h,04h
        db 6Fh,0Fh,68h,08h,64h,04h,64h,04h,68h,0Ch
;****************************************************************WAVE 8
cf8:    db 64H,04h,68h,04h,64h,04h,68h,04h,68h,04h
        db 64H,04h,64h,04h,64h,04h,64h,04h,64h,04h
        db 64H,04h,64h,04h,64h,04h,64h,04h,64h,04h
        db 64H,04h,64h,04h,68h,04h,68h,04h,64h,08h
        db 64H,04h,64h,04h,64h,04h,64h,04h,64h,04h
        db 64H,04h,64h,04h,64h,04h,64h,04h,64h,04h
        db 64H,04h,0C8h,04h,0C8h,08h,0C8h,08h,0c8h,08h
        db 64H,04h
         nop
        nop
        nop
        ljmp aga

;处方1子程序地址表
ch1tab: DW B51,B51,B52,B31,B51,B38,B11,B36,B54,B13
        DW B32,B37,B33,B36,B34,B38,B21,B2e,B22,B62
        DW B23,B63,B21,B2e,B23,B62,B24,B63,B21,B2e
        DW B25,B26,B21,B24,B2a,B11,B25,B28,B26,B2e
        DW B24,B36,B26,B37,B24,B2D,B34,B36,B36,B0
        DW B36,B0,B29,B0,B12,B0,B2e,B0,B2F,B0
        DW B34,B39,B3A,B38,B34,B36,B38,B37,b34,B31
        DW B3B,B33,B21,B24,B2A,B24,B23,B2E,B2A,B2F
        DW B21,B2B

ch2tab: DW B55,B55,B23,B28,B81,B24,B71,B24,B26,B37
         DW B26,B2e,B36,B37,B26,B2e,B55,B62,B36,B0
         DW B3f4,B0,B36,B0,B37,B0,B3f4,B0,B26,B0
         DW B21,B0,B72,B0,B34,B0,B83,B0,B21,B0
         DW B34,B31,B3D,B39,B82,B37,B83,B3f4,B84,B36
         DW B24,B2f1,B37,B0,B3C,B0,B37,B0,B73,B33
         DW B25,B2F2,B2A,B2F2,B21,B23,B25,B2F3,B36,B0
         DW b37,B0,B23,B23

ch3tab:DW B41,B41,B34,B32,B33,B36,B3E,B37,B39,B37
       DW B3F,B36,B3D,B37,B41,B36,B3F,B37,B41,B32
       DW B102,B103,B104,B105,B106,B101,B103,B107,B106,B107
       DW B108,B3F1,B109,B3F2,B104,B3F2,B33,B3F3,B34,B37
       DW B3B,B36,B42,B39,B43,B106,B109,B10A,B104,B103
       DW B108,B10B,B34,B32,B3B,B33,B3D,B39,B3D,B3F4
       DW B3d,b36,B34,B37,B3D,B36,B3D,B3f,B34,B33
       DW B34,B32

ch4tab:DW B55,B55,B25,B31,B51,B38,B2F5,B36,B26,B2E
       DW B33,B101,B34,B39,B21,B2e,B27,B62,B24,B63
       DW B26,B2e,B23,B62,B2F4,B63,B21,B2e,B25,B26
       DW B21,B24,B82,B85,B82,B81,B26,B36,B25,B3F4
       DW B32,B3C,B24,B3C,B34,B36,B36,B0,B37,B0
       DW B87,B0,B36,B0,B12,B0,B2e,B0,B2E,B0
       DW B34,B39,B3A,B3F5,B34,B36,B3F6,B37,B34,B31
       DW B3B,B36,B21,B29,B2A,B24,B23,B36,B22,B36
       DW B21,B2B

ch5tab:DW B51,B51,B34,B31,B34,B2b,B39,B36,B32,b37
       DW B33,B36,B109,B10_500ms,B9_10ms,B9_500ms,B9_15MS,b9_1000ms,B920,B9_500ms
       DW B9_15MS,B2e,b920,B63,B9_34MS,B36,b920,B3F4,B9_50MS,B36
       DW B9_5MS,B33,B34,B31,B34,B2b,B34,B36,B33,B36
       DW B32,b37,B34,b37,B32,B3F3,B39,B3f3,B9_10MS,B9_500MS
       DW B9_500MS,B0,B9_1000MS,B0,B36,B0,B9_70MS,B0,B9_10MS,B0
       DW B36,B0,b37,B0,B9_10MS,B37,B9_70MS,B37,B9_10MS,B37
       DW B9_70MS,B37,B9_10MS,B9_40MS,B9_10MS,B9_25MS,B109,B103,B104,B10_500MS
       DW B106,B101,B10_15MS,B10_500MS,B109,B10_40MS

ch6tab: DW B5_10MS,B5_10MS,B82,B82,B83,B5_10MS,B82,B7_50MS,B83,B85
        DW B84,B82,B36,B84,b37,B8_34MS,B36,B82,B82,B85
        DW B82,B84,B82,B83,B82,B81,B82,B8_67MS,B82,B3F4
        DW B82,B36,B82,B3C,B83,B3C,B82,B8_67MS,B82,B85
        DW B82,B84,B82,B83,B82,b37,B82,B3F4,B82,B8_40MS
        DW B82,B8_34MS,B82,B8_40MS,B82,B8_25MS,B83,b37,B82,B36
        DW B82,B8_67MS,B82,B85,B82,B36,B82,B37,B82,B37
        DW B82,B83,B82,B84

ch7tab: DW B4_10MS,B4_10MS,B34,B31,B34,B2b,b39,B36,B32,b37
        DW B33,B36,B4_10MS,B10_67MS,B9_10MS,b9_500ms,B9_15MS,B9_500ms,B4_10MS,B36
        DW B9_7MS,b9_500ms,b920,B36,B4_10MS,B33,B9_7MS,B31,B34,B31
        DW B34,B2b,B34,B37,B33,B36,B32,B37,B3D,B37
        DW B32,b37,B39,B36,B9_10MS,B9_500MS,B9_500MS,B0,B36,B0
        DW B9_60MS,B0,B9_10MS,b0,b36,B0,B36,B0,B9_10MS,b37
        DW B9_67MS,B37,B9_10MS,B37,B9_67MS,B37,B9_10MS,B9_40MS,B9_25MS,B9_5MS
        DW B109,B103,B108,B10_500MS,B106,B101,B106,B10_500MS,B109,B10_40MS

ch8tab: DW B14,B2e,B2e,B0,B2e,B0,B2e,b0,b37,b0
        DW b2e,B0,b37,B2e,b37,b2e,b2e,B0,b21,B0
        DW B24,B0,B34,B0,b26,B0,B39,B0,B28,B0
        DW b37,b2e,b37,b2e,b2e,b37,b37,B0,b37,B0
        DW b2e,B0,b23,B0,B3B,B0,b26,B0,b23,b37
        DW B34,B0,b21,B0,b24,b37,B33,B0,b21,B0
        DW B23,B37,B37,B0,B3F3,B0,B37,B2E,B37,B2E
        DW B2E,B0,b2e,b0,b0

         nop
        nop
        nop
        ljmp aga

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

ch1_8: mov 41h,#8
       mov 42h,#100
       mov 43h,#25
       mov 44h,#20
       mov 45h,#12
       setb 2fh.7
       mov 2eh,#0
      ; mov Interfere,#240

mov pp1,#0
Nonormal: dec cfcf

cha:   lcall cfdptr
       mov a,pp1
       mov f1pp1,pp1    ;2/3
       mov f2pp1,pp1
       movc a,@a+dptr
       swap a
       anl a,#0fh
       mov count2,a

;1111111111111111111111111111111111111111111111111111111

che: lcall cfdptr
      mov a,pp1
      movc a,@a+dptr
       anl a,#0fh
       mov count1,a
chb: lcall jmpch
      mov WDTC,#0A7H
       jnb 2eh.1,chb
       clr 2eh.1
       jb 2eh.2,chg

;222222222222222222222222222222222222222222222222222222222

       lcall cfdptr
       inc pp1
       mov a,pp1
       movc a,@a+dptr
       mov count1,a
chc:   lcall jmpch
       mov WDTC,#0A7H
       jnb 2eh.1,chc

clr 2eh.1
;12121211211211212121212121212112121211212121212121212121212
jnb 2eh.2,chd

chf:   inc pp1
       clr 2eh.2
       jb 2eh.4,zod
       ljmp cha

;............................................................
chd: dec pp1            ; n : p1-1-->p1
       ajmp che
chg: inc pp1
      ajmp chf
;*************************************************************

;*************************************************************
jmpch: lcall chdptr
          mov a,pp1
          clr c
          rlc a
          jnc low128
          inc dph
low128: mov SAVE,a
          inc a
          movc a,@a+dptr
          push acc
          MOV A,SAVE
          MOVC A,@A+DPTR
          PUSH ACC
          ret

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

cfdptr: mov a,cfcf
         clr c
         rlc a     ;a *2
         push acc
         mov dptr,#litab
         movc a,@a+dptr
         mov savcfh,a
         pop acc
         inc a
         movc a,@a+dptr
         mov dpl,a
         mov dph,savcfh
         ret

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

chdptr: mov a,cfcf
        clr c
        rlc a
        push acc
        mov dptr,#juntab
        movc a,@a+dptr
        mov savchh,a
        pop acc
        inc a
        movc a,@a+dptr
        mov dpl,a
        mov dph,savchh
        ret

;************************************************************************功能子程序
;**********************************************INT1

zod: clr et1
      CLR ET0
      clr 2eh.4
     mov r7,#20
     LCALL B0
zod1: setb 2fh.6
     mov 7eh,#0ah
     acall zdir

acall del0

        acall delay
        acall delay
        acall delay
      acall del0

       acall delay
        acall delay
        acall delay
        acall delay
     acall del0

      clr 2fh.6
      mov 7fh,savcf
      acall zdir

     ;acall w1s
w1s: mov r4,#50
wait1:lcall delay
      djnz r4,wait1
      mov WDTC,#0A7H
      djnz r7,zod1

     nop
aga: nop
     nop
     jnb p3.3,aga      ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     acall delay
     acall delay
     mov WDTC,#0A7H
     jnb p3.3,aga
     setb 2fh.1
     mov dptr,#aga1
     push dpl
     push dph
     reti
      nop
        nop

aga1: nop
      nop
     mov dptr,#MAIN1
     push dpl
     push dph

     reti
      nop
        nop
        nop
        ljmp aga
;********************************************** ;

del0:mov r2,#05
del1:mov r3,#100
del2:lcall del10

     clr p1.7
     clr p1.6
     djnz r3,del2
     djnz r2,del1
     setb p1.7
     setb p1.6
     ret
      nop
        nop
        nop
        ljmp aga
;****************************************T1 0.25MS CLP PGU3.4
; crystal : 12MHZ

T1Z: push acc                 ;T1 中断 0.25MS中断
     push psw
     push dph
     push dpl

CPL P3.4
;***************************************以上是0.25MS 出基波

      djnz 41h,t2za1
      mov 41h,#8             ;8 * 0.25ms = 2ms
      lcall zdir             ;display

;*************************************************以上是2MS 显示
jnb 2fh.7,t2za1 ;如果f1=1 显示44h中的内容.开始f1=0;处方时f1=1.

     mov a,44h
     mov b,#0ah
     div ab
     mov 7eh,a
     mov 7fh,b

      djnz 42h,t2za1         ;100 * 2ms =0.2s
      mov 42h,#100
      djnz count1,t1_1
      setb 2eh.1             ;小循环循环完,建立结束标志.

t1_1: djnz 43h,t2za1
      mov 43h,#25             ;25 * 0.2s =5 s
      ;dec Interfere           ; Interfere =Interfere -1;
      djnz count2,t1_2
      setb 2eh.2

t1_2: djnz 45h,kangganrao
      mov 45h,#12             ;12 * 5=60s=1 minute
    ; jb p1.3,zdir            ;jia mi
      djnz 44h,kangganrao

;**************************************************每一分钟减一,减到0
setb 2eh.4 ;1 minute * 20 = 20 minute

kangganrao:mov f1min,44h      ;2/3
           mov f2min,44h
           mov f1sec,45h
           mov f2sec,45h
t2za1: pop dpl
        pop dph
        POP PSW
POP ACC
        reti

         nop
        nop
        nop
        ljmp aga

;********************************* display sub program

zdir: mov a,#0
      mov sbuf,a
dir1: jnb ti,dir1       ;all black
      clr ti

       mov dptr,#tab
        jb 2fh.6, gei         ; f0=1 display 个位
        mov a,7fh
        movc a,@a+dptr
        add a,#80h
        ajmp ge1
gei:     mov a,7eh
        movc a,@a+dptr
ge1:    mov sbuf,a
ge2:    jnb ti,ge2
        clr ti
        cpl 2fh.6                ;use display
        ret

tab: db 3fh,06h,5bh,4fh,66h,6dh
     db 7dh,07h,7fh,6fh,00H
       nop
        nop
        nop
        ljmp aga
;****************************************delay 0.25ms

del10: mov r5,#112         ;delay 0.25ms
wait:   djnz r5,wait
        ret
         nop
        nop
        nop
        ljmp aga
;*******************
delay: mov r3,#40          ;0.25ms * 40 =10 ms

sw3b:lcall del10

      djnz r3,sw3b
      ret
;********************
      nop
        nop
        nop
        ljmp aga
;*****************SUB1 SUB2 SUB3 SUB4 SUB5 SUB6 SUB7 SUB8 SUB9 SUB10
B1:MOV A,#0FFH
MOVX @DPTR,A
MOV R1,3AH                                ;3AH??????
b1a02:MOV R6,28H
B1A01:LCALL del10
DJNZ R6,B1A01
DJNZ R1,B1A02                   ;?????
MOV A,#7FH                     ;?????????
MOVX @DPTR,A
MOV R1,3AH
b1a05:MOV R6,28H
B1A03:LCALL del10
DJNZ R6,B1A03
DJNZ R1,B1A05                   ;????
RET
        nop
        nop
        nop
        ljmp aga
b11:mov 3AH,#75
MOV 28H,#2
LCALL b1
RET
     nop
        nop
        nop
        ljmp aga
b12:mov 3AH,#20
MOV 28H,#1                              ;20*0.25=5ms???????
LCALL b1
RET
      nop
        nop
        nop
        ljmp aga
B13:MOV 3AH,#250
MOV 28H,#4
LCALL B1
RET
       nop
        nop
        nop
        ljmp aga
B14:MOV 3AH,#250
MOV 28H,#8
LCALL B1
RET
      nop
        nop
        nop
        ljmp aga
B2:MOV A,#0FFH
MOVX @DPTR,A
MOV R1,3AH
b202:MOV R3,28H
B201:LCALL del10
DJNZ R3,B201
DJNZ R1,B202
MOV R1,3AH
MOV A,#0
MOVX @DPTR,A
b203:MOV R3,28H
B204:LCALL del10
DJNZ R3,B204
DJNZ R1,B203
RET
       nop
        nop
        nop
        ljmp aga
B21:MOV 3AH,#20
MOV 28H,#1
LCALL B2
RET
       nop
        nop
        nop
        ljmp aga
B22:MOV 3AH,#30
MOV 28H,#1
LCALL B2
RET
      nop
        nop
        nop
        ljmp aga
B23:MOV 3AH,#40
MOV 28H,#1
LCALL B2
RET
      nop
        nop
        nop
        ljmp aga
B24:MOV 3AH,#100
MOV 28H,#1
LCALL B2
RET
       nop
        nop
        nop
        ljmp aga
B25:MOV 3AH,#14
MOV 28H,#1
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B26:MOV 3AH,#60
MOV 28H,#1
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B27:MOV 3AH,#26
MOV 28H,#1
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B28:MOV 3AH,#120
MOV 28H,#1
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B29:MOV 3AH,#150
MOV 28H,#1
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B2A:MOV 3AH,#24
MOV 28H,#1
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B2B:MOV 3AH,#80
MOV 28H,#1
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B2D:MOV 3AH,#250
MOV 28H,#12
LCALL B2
RET

        nop
        nop
        nop
        ljmp aga
B2E:MOV 3AH,#250
MOV 28H,#8
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B2F:MOV 3AH,#250
MOV 28H,#4
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
b62:MOV 3AH,#250
MOV 28H,#16
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B63:MOV 3AH,#250
MOV 28H,#24
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga

B2F1:MOV 3AH,#200
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B2F2:MOV 3AH,#134
LCALL B2
RET
        nop
        nop
        nop
        ljmp aga
B2F3:MOV 3AH,#68
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B2F4:MOV 3AH,#140
LCALL B2
RET
          nop
        nop
        nop
        ljmp aga
B2F5:MOV 3AH,#70
LCALL B2
RET
         nop
        nop
        nop
        ljmp aga
B340:MOV R2,3AH              ;3AH??????
MOV R3,#0
B301:MOV R1,3CH          ;3CH??????????     N*0.5MS=0.5MS
B3011:LCALL del10
dJNZ R1,B3011
MOV A,R3
ADD A,#05H
MOVC A,@A+PC
MOVX @DPTR,A
INC R3
DJNZ R2,B301
RET
db 00h,18h,30h,46h,5ch
db 70h,82h,94h,0a3h,0b2h
db 0c0h,0cch,0d7h,0e0h,0e8h
db 0f0h,0f5h,0fah,0fdh,0ffh
db 0e7h,0abh,7fh,55h,3fh
db 2eh,22h,19h,11h,0ch
db 09h,07h,05h,04h,03h
db 02h,01h,00h,00h,00h
B328:MOV R2,3AH
MOV R3,#0
B3281:MOV R1,3CH
B32811:LCALL del10
DJNZ R1,B32811
MOV A,R3
ADD A,#5
MOVC A,@A+PC
MOVX @DPTR,A
INC R3
DJNZ R2,B3281
RET
db 00h,24h,40h,5ch,76h
db 8eh,0a3h,0b7h,0c9h,0d6h
db 0e3h,0edh,0f5h,0fah,0fdh
db 0e7h,8dh,55h,34h,1fh
db 13h,0ch,07h,04h,03h
db 02h,01h,00h
B3100:MOV R2,3AH
MOV R3,#0
B3101:MOV R1,3CH
B31011:LCALL del10
DJNZ R1,B31011
MOV A,R3
ADD A,#5
MOVC A,@A+PC
MOVX @DPTR,A
INC R3
DJNZ R2,B3101
RET
db 0h,0ah,14h,1eh,27h
db 30h,3ah,42h,4bh,54h
db 5ch,64h,6ch,73h,7bh
db 82h,89h,90h,97h,9dh
db 0a3h,0a9h,0afh,0b4h,0bah
db 0c0h,0c5h,0cah,0cfh,0d3h
db 0d7h,0dbh,0dfh,0e3h,0e6h
db 0e9h,0ech,0efh,0f1h,0f4h
db 0f6h,0f8h,0f9h,0fbh,0fch
db 0fdh,0feh,0ffh,0ffh,0ffh
db 0e6h,0d1h,0bch,0aah,9ah
db 8ch,7eh,73h,67h,5ch
db 54h,4bh,45h,3eh,38h
db 33h,2dh,2ah,25h,22h
db 1eh,1ch,1ah,17h,14h
db 13h,10h,0fh,0dh,0ch
db 0bh,0ah,09h,08h,07h
db 07h,06h,06h,05h,05h
db 04h,04h,03h,03h,03h
db 02,02,02,01,00
B31:MOV 3AH,#40                             ;??40?
MOV 3CH,#4                     ;???40MS??????0.25*40?=10MS??40MS?4?
LCALL B340
RET
B360:MOV 3AH,#40
MOV 3CH,#6
LCALL B340
RET
       nop
        nop
        nop
        ljmp aga
B3F:MOV 3AH,#40
MOV 3CH,#7
LCALL B340
RET
         nop
        nop
        nop
        ljmp aga
B38:MOV 3AH,#100
MOV 3CH,#3
LCALL B3100
RET
          nop
        nop
        nop
        ljmp aga
B3F6:MOV 3AH,#40
MOV 3CH,#8
LCALL B340
RET
B39:MOV 3AH,#40
MOV 3CH,#5
LCALL B340
RET
B3F5:MOV 3AH,#40
MOV 3CH,#6
LCALL B340
RET
B32:MOV 3AH,#28
MOV 3CH,#4
LCALL B328
RET
B33:MOV 3AH,#40
MOV 3CH,#2
LCALL B340
RET
B34:MOV 3AH,#40
MOV 3CH,#1
LCALL B340
RET
B3A:MOV 3AH,#100
MOV 3CH,#1
LCALL B3100
RET
B3D:MOV 3AH,#28
MOV 3CH,#2
LCALL B328
RET
B3E:MOV 3AH,#28
MOV 3CH,#5
LCALL B328
RET
B3B:MOV 3AH,#28
MOV 3CH,#1
LCALL B328
RET
B36:MOV 3AH,#100
MOV 3CH,#20
LCALL B3100
RET
B37:MOV 3AH,#100
MOV 3CH,#40
LCALL B3100
RET
B3F1:MOV 3AH,#100
MOV 3CH,#120
LCALL B3100
RET
B3F2:MOV 3AH,#100
MOV 3CH,#160
LCALL B3100
RET
B3F3:MOV 3AH,#100
MOV 3CH,#80
LCALL B3100
RET
B3F4:MOV 3AH,#100
MOV 3CH,#10
LCALL B3100
RET
B3C:MOV 3AH,#100
MOV 3CH,#60
LCALL B3100
RET
b4:MOV R2,#2                                  ; ?????????????
B4c:MOV R1,3AH
MOV A,#0
MOVX @DPTR,A
B4A:ADD A,3EH
MOV 3FH,A
MOVX @DPTR,A
LCALL del10
MOV A,3FH
DJNZ R1,B4A
MOV A,#0
MOVX @DPTR,A
DJNZ R2,B4c
MOV R2,#2
B4D:MOV R1,3AH                      ;????????????????????
B44:LCALL del10
DJNZ R1,B44
DJNZ R2,B4D
RET
B41:MOV 3AH,#80                       ;????80/2=40?40/2=20MS,20MS/0.5=40
MOV 3EH,#3                                ;?????????3EH?255/40=6
LCALL B4
RET
B42:MOV 3AH,#60
MOV 3EH,#4
LCALL B4
RET
B43:MOV 3AH,#40
MOV 3EH,#6
LCALL B4
RET
B4_10MS:MOV 3AH,#10
MOV 3EH,#24
LCALL B4
RET
B5:MOV R1,3CH
   MOV R2,3DH
   MOV A,#55H                ;???????55H
   MOVX @DPTR,A
B501:LCALL del10
     DJNZ R1,B501              ;   \
     MOV A,#0AAH         ;???????AAH
     MOVX @DPTR,A
     MOV R1,3CH
B503:LCALL del10                         ;??????????????
     DJNZ R1,B503
     MOV R1,3CH
     MOV A,#0FFH       ;???????FFH
     MOVX @DPTR,A
B505:LCALL del10
     DJNZ R1,B505
     MOV A,#0
     MOVX @DPTR,A
     B507:LCALL del10
     DJNZ R2,B507
RET

B51:MOV 3CH,#8 ;???12MS?12/3=4????????? ???4*0.5=2 2*3=6 6+6=12
MOV 3DH,#24 ;???
LCALL B5
RET
B52:MOV 3CH,#8
MOV 3DH,#12
LCALL B5
RET
B54:MOV 3CH,#50
MOV 3DH,#150
LCALL B5
RET
B55:MOV 3CH,#12
MOV 3DH,#26
LCALL B5
RET
B5_10MS:MOV 3CH,#6
MOV 3DH,#20
LCALL B5
RET

B7:MOV R2,#40
MOV R3,#0
B701:MOV R1,3CH
B7011:LCALL del10
DJNZ R1,B7011
MOV A,R3
ADD A,#5
MOVC A,@A+PC
MOVX @DPTR,A
INC R3
DJNZ R2,B701
RET
db 89h,94h,9dh,0a7h,0b1h
db 0bah,0c2h,0cah,0d2h,0dah
db 0e1h,0e6h,0ech,0f1h,0f5h
db 0f9h,0fbh,0fdh,0feh,0ffh
db 0ffh,0feh,0fdh,0fbh,0f9h
db 0f5h,0f1h,0ech,0e6h,0e1h
db 0dah,0d2h,0cah,0c2h,0bah
db 0b1h,0a7h,9dh,94h,89h
b71:mov 3CH,#6
lcall b7
ret
b72:mov 3CH,#2
lcall b7
ret
b73:mov 3CH,#1
lcall b7
ret
b7_50MS:mov 3CH,#5
lcall b7
ret
b8:MOV R1,3CH
MOV R2,#40
MOV R3,#0
B801:MOV R1,3CH
B8011:LCALL del10
DJNZ R1,B8011
MOV A,R3
ADD A,#5
MOVC A,@A+PC
MOVX @DPTR,A
INC R3
DJNZ R2,B801
RET
db 14h,28h,3ch,4fh,62h
db 74h,85h,96h,0a6h,0b4h
db 0c2h,0ceh,0d9h,0e3h,0ech
db 0f3h,0f8h,0fch,0feh,0ffh
db 0ffh,0feh,0fch,0f8h,0f3h
db 0ech,0e3h,0d9h,0ceh,0c2h
db 0b4h,0a6h,096h,85h,74h
db 62h,4Fh,3ch,28h,14h
B81:MOV 3CH,#5
LCALL B8
RET
B82:MOV 3CH,#1
LCALL B8
RET
B83:MOV 3CH,#2
LCALL B8
RET
B84:MOV 3CH,#3
LCALL B8
RET
B85:MOV 3CH,#10
LCALL B8
RET
B87:MOV 3CH,#125
LCALL B8
RET
B8_34MS:MOV 3CH,#3
LCALL B8
RET
B8_67MS:MOV 3CH,#6
LCALL B8
RET
B8_40MS:MOV 3CH,#4
LCALL B8
RET
B8_25MS:MOV 3CH,#2
LCALL B8
RET
B9:LCALL B10
MOV A,#0
MOVX @DPTR,A
MOV R2,#2
B901:mov r1,3AH
B902:LCALL del10
DJNZ R1,B902
DJNZ R2,B901
RET
B9_34MS:MOV 3AH,#17
MOV 3EH,#15
MOV 28H,#2
LCALL B9
RET
B9_10MS:MOV 3AH,#5
MOV 3EH,#51
MOV 28H,#2
LCALL B9
RET
B9_15MS:MOV 3AH,#15
MOV 3EH,#17
MOV 28H,#1
LCALL B9
RET
B9_50MS:MOV 3AH,#25
MOV 3EH,#10
MOV 28H,#2
LCALL B9
RET
B9_5MS:MOV 3AH,#5
MOV 3EH,#51
MOV 28H,#1
LCALL B9
RET
B9_40MS:MOV 3AH,#40
MOV 3EH,#6
MOV 28H,#1
LCALL B9
RET
B9_7MS:MOV 3AH,#7
MOV 3EH,#36
MOV 28H,#1
LCALL B9
RET
B9_25MS:MOV 3AH,#25
MOV 3EH,#7
MOV 28H,#1
LCALL B9
RET
B9_60MS:MOV 3AH,#30
MOV 3EH,#8
MOV 28H,#2
LCALL B9
RET
;B914:MOV 3AH,#7
;MOV 3EH,#36
;MOV 28H,#2
;LCALL B9
;RET
B920:MOV 3AH,#10
MOV 3EH,#25
MOV 28H,#2
LCALL B9
RET
B9_67MS:MOV 3AH,#34
MOV 3EH,#7
MOV 28H,#2
LCALL B9
RET
B9_70MS:MOV 3AH,#35
MOV 3EH,#7
MOV 28H,#2
LCALL B9
RET
B9_500MS:MOV 3AH,#125
MOV 3EH,#2
MOV 28H,#8
LCALL B9
RET
B9_1000MS:MOV 3AH,#125
MOV 3EH,#2
MOV 28H,#16
LCALL B9
RET
B10:MOV R1,3AH
MOV A,#0
B10A1:ADD A,3EH
MOV 3FH,A
MOVX @DPTR,A
MOV R6,28H
B10B1:LCALL del10
DJNZ R6,B10b1
MOV A,3FH
DJNZ R1,B10A1
MOV R1,3AH
B10C1:SUBB A,3EH
MOV 3FH,A
MOVX @DPTR,A
MOV R6,28H
B10D1:LCALL del10
DJNZ R6,B10D1
MOV A,3FH
DJNZ R1,B10C1
RET
      nop
        nop
        nop
        ljmp aga
B101:MOV 3AH,#100
MOV 3EH,#2
MOV 28H,#20
LCALL B10
RET
B102:MOV 3AH,#7
MOV 3EH,#36
MOV 28H,#2
LCALL B10
RET
B103:MOV 3AH,#50
MOV 3EH,#4
MOV 28H,#2
LCALL B10
RET
B104:MOV 3AH,#12
MOV 3EH,#20
MOV 28H,#2
LCALL B10
RET
B105:MOV 3AH,#64
MOV 3EH,#3
MOV 28H,#2
LCALL B10
RET
B106:MOV 3AH,#20
MOV 3EH,#12
MOV 28H,#2
LCALL B10
RET
B107:MOV 3AH,#25
MOV 3EH,#10
MOV 28H,#160
LCALL B10
RET
B108:MOV 3AH,#14
MOV 3EH,#18
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B109:MOV 3AH,#10
MOV 3EH,#24
MOV 28H,#2
LCALL B10
RET
        nop
        nop
        nop
        ljmp aga
B10A:MOV 3AH,#30
MOV 3EH,#8
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10B:MOV 3AH,#70
MOV 3EH,#3
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10C:MOV 3AH,#50
MOV 3EH,#5
MOV 28H,#160
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10_40MS:MOV 3AH,#40
MOV 3EH,#6
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10_34MS:MOV 3AH,#34
MOV 3EH,#7
MOV 28H,#2
LCALL B10
RET
        nop
        nop
        nop
        ljmp aga
B10_8MS:MOV 3AH,#8
MOV 3EH,#31
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10_15MS:MOV 3AH,#15
MOV 3EH,#17
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10_67MS:MOV 3AH,#67
MOV 3EH,#3
MOV 28H,#2
LCALL B10
RET
       nop
        nop
        nop
        ljmp aga
B10_500MS:MOV 3AH,#25
MOV 3EH,#10
MOV 28H,#20
LCALL B10
RET
    nop
        nop
        nop
        ljmp aga

B0:MOV DPTR,#7FFFH
   CLR A
   MOVX @DPTR,A
MOV R4,#20
C146a:MOV R6,#200
C147a:LCALL del10
DJNZ R6,C147a
DJNZ R4,C146a
RET
nop
        nop
        nop
        ljmp aga
T0Z:       ;sm89c52 de 阀值是1。74V，用3470k的热敏电阻，接1。7k到地，控制加热。

    DJNZ jjben,jjok
     mov jjben,#0ffh
     ;***************************************************
      jb p1.0,jj              ;
      setb p1.1               ;
                              ;
      ljmp jjok
jj: clr p1.1

jjok:
;************************************************

RETI

     nop
        nop
        nop
        ljmp aga

end

没有了没有了

分享举报