io.txt

来自「普通I/O口扩展」· 文本 代码 · 共 44 行

        ORG 0000H
        LJMP MAIN
        ORG 0030H

  DELAY:MOV R1,#0FFH     ;延时子程序
        DJNZ R1,$
        RET
  
   LOOP:RLC A            ;8次循环左移
        MOV P1.1 ,C
        SETB P1.0
     ;   LCALL DELAY
        CLR P1.0
     ;   LCALL DELAY
        DJNZ R5,LOOP
        RET

  TABLE:DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H    ;0~9共阳显示
  
   MAIN:CLR P1.0          ;主程序部分,60H,61H,62H保存X,Y的行号和列号
        CLR C

        MOV 60H,#03H      ;X行的十位数字（0~1）
        MOV DPTR,#TABLE
        MOV A,60H
        MOVC A,@A+DPTR
        MOV R5,#08H     
        LCALL LOOP
  
        MOV 61H,#04H      ;X行的个位数字（0~5）
        MOV DPTR,#TABLE
        MOV A,61H
        MOVC A,@A+DPTR
        MOV R5,#08H   
        LCALL LOOP  
      
        MOV 62H,#05H      ;Y行的个位数字（0~7）
        MOV DPTR,#TABLE
        MOV A,62H
        MOVC A,@A+DPTR
        MOV R5,#08H     
        LCALL LOOP
     
        END