lesson9-1.asm

这里提供了一些单片机的实验方面的小程序

ORG 0000H
STRAT:
      MOV  R2,#0FEH    ;置扫描初值,点亮最右边的LED1
      MOV R0,#00H
  LP:  MOV A,R0
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      MOV     P0,A  ; 将数字R0的编码送P0口
      MOV    P2,R2     ;打开第一位数码管的显示电源
      LCALL DE0  ;调用延时1MS子程序
      MOV   P2,0FFH ;显示1MS后关第一位数码管显示
      MOV   A,R2
      RL   A
      MOV  R2,A   ;显示后移?
      INC R0     ;数据加1
      CJNE  R0,#06H ,LP   ;置扫描到终值吗,点亮最右边的LED6 
      LJMP STRAT   ;置扫描到终值吗
  
  DE0:MOV R7,#150
  DE1:MOV R6,#255
  DE2:DJNZ R6,DE2
      DJNZ R7,DE1
      RET

TAB:DB 3FH,06H,5BH,4FH,66H
    DB 6DH,7DH,07H,7FH,6FH

    END