main.c

基于ARM1138例程开发的

ORG 0000H
    JMP START
    ORG 0BH
    JMP TIM0
START:    MOV TMOD,#01H
    MOV IE,#82H
START0:    MOV 30H,#00H
NEXT:    MOV A,30H
    MOV DPTR,#TABLE
    MOVC A,@A+DPTR
    MOV R2,A
    JZ END0
    ANL A,#0FH
    MOV R5,A
    MOV A,R2
    SWAP A
    ANL A,#0FH
    JNZ SING
    CLR TR0
    JMP D1
SING:     DEC A
    MOV 22H,A
    RL A
    MOV DPTR,#TABLE1
    MOVC A,@A+DPTR
    MOV TH0,A
    MOV 21H,A
    MOV A,22H
    RL A
    INC A
    MOVC A,@A+DPTR
    MOV TL0,A
    MOV 20H,A
    SETB TR0
D1:    CALL DELAY
    INC 30H
    JMP NEXT
END0:    CLR TR0
    JMP START0
TIM0:    PUSH ACC
    PUSH PSW
    MOV TL0,20H
    MOV TH0,21H
    CPL    P1.0
    POP PSW
    POP ACC
    RETI
DELAY:    MOV R7,#02
D2:    MOV R4,#187
D3:    MOV R3,#248
    DJNZ R3,$
    DJNZ R4,D3
    DJNZ R7,D2
    DJNZ R5,DELAY
    RET
TABLE1:
DW 64021,64103,64260,64400
DW 64524,64580,64684,64777
DW 64820,64898,64968,65030
DW 65058,65110,65157,65178
TABLE:
          ;1
          DB        04H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,72H,72H,92H,
          DB        92H,92H,92H,92H,92H,92H,62H,72H,72H,72H,04H
          DB        02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,92H,0A2H,0A4H,
          DB        02H,62H,62H,62H,62H,62H,52H,0A2H,94H,92H,92H,92H,72H,74H,
         ;2
          DB        04H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,72H,72H,92H,
          DB        92H,92H,92H,92H,92H,92H,62H,72H,72H,72H,04H
          DB        02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,92H,0A2H,0A4H,
          DB        02H,62H,62H,62H,62H,62H,52H,0A2H,94H,92H,92H,92H,72H,74H,
        ; 3
          DB        02H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,0B2H,92H,72H,74H,
          DB        02H,62H,62H,62H,64H,62H,52H,74H,62H,72H,52H,32H,34H,
          DB        02H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,0B2H,92H,72H,74H,
          DB        02H,62H,62H,62H,62H,62H,52H,32H,94H,92H,92H,62H,72H,74H,
          DB        02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,74H,
          DB        02H,62H,62H,62H,62H,62H,62H,52H,74H,62H,72H,52H,32H,34H,
         ;4
          DB        02H,62H,62H,62H,62H,62H,52H,32H,52H,52H,52H,32H,32H,22H,12H,
          DB        02H,62H,62H,62H,62H,62H,52H,32H,62H,72H,72H,72H,72H,
          DB        02H,62H,62H,62H,62H,62H,52H,32H,92H,0A2H,0A2H,0A2H,0A2H,
          END