num3.asm

几个可用的调试程序！！ ！！ ！！ ！！！１

;使用学习版中51的p0、p2.0和p2.1口。
;p2.0为个位控制，p2.1为十位控制
;p2.2为记数按钮
;配套教程 数码3
;01mcu 2002/7/8

gewei equ 20h                 ;个位数存放处
shiwei equ 21h                ;十位数存放处
temp equ 22h                  ;计数器积存器

star:     mov temp,#0         ;初始化计数器
stlop:    acall display
          
          setb p2.2           ;准备检查按钮
          jnb p2.2,key        ;p2.2=0表明按键s1按下，跳到按键检查

          mov a,temp
          cjne a,#100,next    ;=100重来
          mov temp,#0
next:     ljmp stlop

;按键检查子程序
key:      jb p2.2,stlop       ;短时间p2.2=1不于理睬,消抖动
keylop:   setb p2.2
          acall display        ;检查按钮的同时继续显示，等同延时
          jb p2.2,t_inc       ;延时后s1=1是按键按一次
          ljmp keylop       
t_inc:    inc temp            ;按钮按下有效，计数器+1
          ljmp stlop
          ;此子程序是跳转来的，不用ret。

;显示子程序
display:  mov a,temp           ;将temp中的十六进制数转换成10进制           
          mov b,#10            ;10进制/10=10进制
          div ab
          mov shiwei,a         ;十位在a
          mov gewei,b          ;个位在b

          mov dptr,#numtab     ;指定查表启始地址
          mov r0,#4 
dpl1:     mov r1,#50          ;显示200次
dplop:    mov a,gewei          ;取个位数
          MOVC A,@A+DPTR       ;查个位数的7段代码
          mov p0,a             ;送出个位的7段代码
          clr p2.0             ;开个位显示
          acall d1ms           ;显示1ms
          setb p2.0
          mov a,shiwei         ;取十位数
          MOVC A,@A+DPTR       ;查十位数的7段代码
          mov p0,a             ;送出十位的7段代码
          clr p2.1             ;开十位显示
          acall d1ms           ;显示1ms
          setb p2.1
          djnz r1,dplop        ;50次没完循环
          djnz r0,dpl1         ;4个50次没完循环
          ret
;1MS延时(按12MHZ算)
;====================================================
D1MS:    MOV R7,#80 
         DJNZ R7,$
         RET

;7段数码管各划的数字排列表
numtab:   db  0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
              ;0    1    2    3    4   5   6   7    8   9
          db  88h,83h,0c6h,0a1h,86h,8eh
              ;a   b   c    d    e   f
              
              
          end