数码管扫描程序（采用数据表格）

;此数码管为共阳极数码管，此程序中的取反指令可以不必，可以直接赋给原始值也是可以的
CNT  EQU  30H   ;赋值指令：给标号CNT赋值，标号CNT=30H
  ORG  0000H
  MOV  P1,3FH

;刚开始的数据恢复程序（延时）  
START: MOV  R1,#00H
L0:  DJNZ R1,L0
  MOV  SP,#50H
  
  MOV  CNT,#00H  ;计数器先清零
LOOP: MOV  A,CNT  ;把CNT(地址)中的数（存的是程序表中的地址）付给A
  MOV  DPTR,#TABLE ;定义字形表的起始地址
  MOVC A,@A+DPTR ;TABLE为表的起始地址
  CALL OUTPUT  ;跳转到输出程序
  INC  CNT   ;计数器加一
  MOV  A,CNT  ;重新把CNT放在A中
  CJNE A,#10,LOOP ;比较不相等转移指令，如果数码管显示过9后，就不再转移了
  MOV  CNT,#00H ;数码管显示9后，从新使计数器记0
  SJMP LOOP  ;重新循环
    

;程序中的数据表格,DB为定义字节指令（从指定的地址开始，在程序存储器的连续单元中定义字节数据）
TABLE: DB  3FH   ;0
  DB  06H   ;1
  DB  5BH   ;2
  DB  4FH   ;3
  DB  66H   ;4
  DB  6DH   ;5
  DB  7DH   ;6
  DB  27H   ;7
  DB  7FH   ;8
  DB  6FH   ;9

;输出函数
OUTPUT: PUSH PSW
  CPL  A     ;取反指令
  MOV  P1,A
  CALL DELAY
  POP  PSW
  RET

;延时函数，延时125ms
DELAY: PUSH PSW
  MOV  R0,#00H
L1:  MOV  R1,#00H
L2:  DJNZ R1,L2
  DJNZ R0,L1
  POP  PSW
  RET
  
  END