ssmm.asm

电子扫描器。主要实现16路扫描输出

  ORG     0000H
MAIN:   MOV     P1,#0FFH
        MOV     P2,#0FFH
        AJMP    CASE2
CASE1:  JNB     P3.7,CASE1
        MOV     A,#0FFH
        MOV     P1,A
        MOV     P2,A
        JB      P3.7,CASE1
JX:     MOV     A,#00H
        MOV     P1,A
        MOV     P2,A
        AJMP    JX
CASE2:   MOV     R7,#OK2-TAB2+1
        MOV     DPTR,#TAB2
        MOV     R1,#00H
LOOP2:  MOV     A,R1
        MOVC    A,@A+DPTR
      MOV     P1,A
        INC     R1
        MOV     A,R1
        MOVC    A,@A+DPTR
      MOV     P2,A
        INC     R1
        ACALL   DELAY
        DJNZ    R7,LOOP2
        MOV     R1,#00H
        AJMP    CASE2
CASE3:   MOV     R3,#OK3-TAB3+1
        MOV     DPTR,#TAB3
        MOV     R1,#00H
LOOP3:  MOV     A,R1
        MOVC    A,@A+DPTR
        MOV     P1,A
        INC     R1
        MOV     A,R1
        MOVC    A,@A+DPTR
     MOV     P2,A
        INC     R1
        ACALL   DELAY
        DJNZ    R3,LOOP3
        MOV     R1,#00H
        AJMP    CASE3
CASE4:  MOV     R5,#OK4-TAB4+1
        MOV     DPTR,#TAB4
        MOV     R1,#00H
LOOP4:  MOV     A,R1
        MOVC    A,@A+DPTR
        MOV     P1,A
        INC     R1
        MOV     A,R1
        MOVC    A,@A+DPTR
        MOV     P2,A
        INC     R1
        ACALL   DELAY
        DJNZ    R5,LOOP4
        MOV     R1,#00H
AA0:    ORL     P3,#0FFH
        JNB     P3.1,CACSE5
        JNB     P3.0,CACSE6
        RET
CACSE5: JNB     P3.1,CACSE5
        INC     R4
        AJMP    AA0
CACSE6: CJNE    R4,#01H,C1
C3:     AJMP    AA0
C1:     JC      C3
C2:     JNB     P3.0,C2
        DEC     R4
        AJMP    C3
DELAY:  MOV     R4,#05H
        MOV     TMOD,#00000001B
TIMER:  MOV     TH0,#3CH
        MOV     TL0,#0B0H
        SETB    TR0
WAIT:   JB      TF0,OK
        AJMP    WAIT
OK:     CLR     TF0
        DJNZ    R4,TIMER
        RET
TAB2: DB 01111111B
        DB 11111111B
        DB 00111111B
        DB 11111111B
        DB 00011111B
        DB 11111111B
        DB 00001111B
        DB 11111111B
        DB 00000111B
        DB 11111111B
        DB 00000011B
        DB 11111111B
        DB 00000001B
        DB 11111111B
        DB 00000000B
        DB 11111111B
        DB 00000000B
        DB 01111111B
        DB 00000000B
        DB 00111111B
        DB 00000000B
        DB 00011111B
        DB 00000000B
        DB 00001111B
        DB 00000000B
        DB 00000111B
        DB 00000000B
        DB 00000011B
        DB 00000000B
        DB 00000001B
        DB 00000000B
        DB 00000000B
        DB 10000000B
        DB 00000000B
        DB 11000000B
        DB 00000000B
        DB 11100000B
        DB 00000000B
        DB 11110000B
        DB 00000000B
        DB 11111000B
        DB 00000000B
        DB 11111100B
        DB 00000000B
        DB 11111110B
        DB 00000000B
        DB 11111111B
        DB 00000000B
        DB 11111111B
        DB 10000000B
        DB 11111111B
        DB 11000000B
        DB 11111111B
        DB 11100000B
        DB 11111111B
        DB 11110000B
        DB 11111111B
        DB 11111000B
        DB 11111111B
        DB 11111100B
        DB 11111111B
        DB 11111110B
        DB 11111111B
OK2:    DB 11111111B
        NOP
        NOP
        NOP
TAB3:  DB 00111111B
        DB 11111111B
        DB 11001111B
        DB 11111111B
        DB 11110011B
        DB 11111111B
        DB 11111100B
        DB 11111111B
        DB 11111111B
        DB 00111111B
        DB 11111111B
        DB 11001111B
        DB 11111111B
        DB 11110011B
        DB 11111111B
OK3:    DB 11111100B
        NOP
        NOP
        NOP
TAB4: DB 00001111B
        DB 11111111B;
        DB 11110000B
        DB 11111111B;
        DB 11111111B
        DB 00001111B;
        DB 11111111B
OK4:    DB 11110000B;
        END