点阵_1

点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵点阵

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                       中断入口程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

               ORG        0000H
               LJMP       START

               ORG        0003H
               RETI
               ORG        000BH
               LJMP       INTT0
               ORG        0013H
               RETI
               ORG        001BH
               RETI
               ORG        0023H
               RETI
               ORG        002BH
               RETI
               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                     主程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

START:         MOV         20H,#00H
               
               MOV         A,#0FFH
               MOV         P1,A
               MOV         P2,A
               MOV         P3,A
               MOV         P0,A
               CLR         P1.6
               MOV         TMOD,#01H
               MOV         TH0,#0FCH
               MOV         TL0,#18H
               MOV         SCON,#00H
               MOV         IE,#82H
               MOV         SP,#70H
               
               
MAIN:          LCALL        DIS1
               MOV          DPTR,#TAB
               LCALL        MOVDISP
               INC          DPH
               LCALL        MOVDISP
               INC          DPH
               LCALL        MOVDISP
               AJMP         MAIN
               
               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                     显示程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;               
               
               
               
               
MOVDISP:       MOV          B,#00H

DISLOOP:       MOV          R3,#07H

DISMOV:        MOV          R2,#00H
               MOV          R1,B
               SETB         TR0

WAITMOV:       JBC          01H,DISMOV1
               AJMP         WAITMOV

DISMOV1:       DJNZ         R3,DISMOV
               INC          B
               INC          B
               MOV          A,R1
               JZ           MOVOUT
               AJMP         DISLOOP

MOVOUT:        RET

                              
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                     单字
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

DIS1:          MOV          R3,#5AH
               
DIS11:         MOV          R2,#00H
               MOV          DPTR,#TAB
               MOV          R1,#00H
               SETB         TR0
               
WAIT11:        JBC          01H,DIS111
               AJMP         WAIT11

DIS111:        DJNZ         R3,DIS11
               RET               
               

               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                     扫描
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


INTT0:         PUSH        ACC
               MOV         TH0,#0FCH
               MOV         TL0,#18H
               JBC         00H,GOEND
               INC         R1
               MOV         A,R1
               MOVC        A,@A+DPTR
               MOV         SBUF,A
               
WAIT:          JBC         TI,GO
               AJMP        WAIT

GO:            DEC         R1
               MOV         A,R1
               MOVC        A,@A+DPTR
               MOV         SBUF,A

WAIT1:         JBC         TI,GO1
               AJMP        WAIT1

GO1:           SETB        P1.7
               NOP
               SETB        P1.6
               NOP
               NOP
               CLR         P1.6
               MOV         A,R2
               ORL         A,#0F0H
               MOV         R2,A
               MOV         A,P1
               ORL         A,#0FH
               ANL         A,R2
               MOV         P1,A
               CLR         P1.7
               INC         R2
               INC         R1
               INC         R1
               MOV         A,R2
               ANL         A,#0FH
               JNZ         GO2
               SETB        00H

GO2:           POP         ACC
               RETI

GOEND:         CLR         TR0
               SETB        01H
               POP         ACC
               RETI
                              


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                     扫描 表
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



TAB:           DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
               DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH

               DB 0F7H,0DFH,0F9H,0CFH,0FBH,0BFH,0C0H,007H,0DEH,0F7H,0C0H,007H,0DEH,0F7H,0DEH,0F7H
               DB 0C0H,007H,0DEH,0F7H,0FEH,0FFH,000H,001H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH