zg1.asm

编的一些控制显示屏的测试程序,大家都交流!

;调试已经成功，很好
RCKSHUJU EQU P2.0     ;数据有效位
RCKLIE   EQU P0.0     ;列扫描有效位
SJK EQU P0.4          ;数据口 
LYW EQU P2.1          ;列移位   
LV EQU P0.6           ; 
HONG EQU P0.7         ;
SCLK EQU P0.1         ;数据移位sclk 
                ORG 00H
                MOV  R2,#0
                MOV  R3,#0
                MOV  7AH,#150
       START:
                LCALL ST1
                lcall st2
                ljmp start

         ST1:   MOV  DPTR,#TAB1
                LCALL SSJ1
                MOV  DPTR,#TAB
                LCALL LSM1
                LCALL DL2MS
                INC  R2
                INC  R3
                CJNE R3,#32,ST1
                mov R3,#0
                mov r2,#0
                djnz 7Ah,st1
                MOV 7AH,#150
                RET

         st2:   MOV  DPTR,#TAB2
                lcall ssj1
                MOV  DPTR,#TAB
                call lsm2
                LCALL DL2MS
                INC  R2
                INC  R3
                CJNE R3,#32,ST2
                mov R3,#0
                mov r2,#0
                djnz 7Ah,st2
                MOV 7AH,#150
                RET
        ssj1:   MOV  A,R2
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5950_0
                INC  R2
                MOV  A,R2
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5950_0
                ret

        LSM1:   MOV  A,R3
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5952_2
                INC  R3
                MOV  A,R3
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5952_2
                CALL SYX
                RET

       LSM2:    MOV  A,R3
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5951_1
                INC  R3
                MOV  A,R3
                MOVC A,@A+DPTR
                MOV  2AH,A
                LCALL WRITE5951_1
                CALL SYX
                RET

       SYX:     CLR   RCKSHUJU
                NOP
                SETB RCKSHUJU
                NOP
                CLR  RCKLIE
                NOP
                SETB RCKLIE
                ret
;---------------------WRITE5950--------------------------
WRITE5950_0:    MOV R5,#08H
                MOV A,2AH
LOOP:           RLC A
                MOV SJK,C
                CLR SCLK
                NOP
                SETB SCLK
                DJNZ R5,LOOP
                RET
;---------------------WRITE5951---------------------------
WRITE5951_1:    MOV R5,#08H
                MOV A,2AH
LOOP1:          RRC A
                MOV LV,C             ;绿色
                CLR LYW
                NOP
                SETB LYW
                DJNZ R5,LOOP1
                RET
;---------------------WRITE5952---------------------------
WRITE5952_2:    MOV R5,#08H
                MOV A,2AH
LOOP2:          RRC A
                MOV HONG,C              ;红色
                CLR LYW
                NOP
                SETB LYW
                DJNZ R5,LOOP2
                RET
;----------------------DL2MS-------------------------------
 DL2MS:         MOV 43H,#14H           ; every LED(2ms)
   DL2:         MOV 44H,#14H
   DL1:
                DJNZ 44H,DL1
                DJNZ 43H,DL2
                RET
;----------------------TAB--------------------------------
TAB:DW 0FF7FH,0FFBFH,0FFDFH,0FFEFH,0FFF7H,0FFFBH,0FFFDH,0FFFEH,7FFFH,0BFFFH,0DFFFH,0EFFFH,0F7FFH,0FBFFH,0FDFFH,0FEFFH
;----------------------TAB1-------------------------------
TAB1:
;第1屏爱;*****************
DB 00H 40H 40H 20H 0B2H 0A0H 96H 90H
DB 9AH 4CH 92H 47H 0F6H 2AH 9AH 2AH
DB 93H 12H 91H 1AH 99H 26H 97H 22H
DB 91H 40H 90H 0C0H 30H 40H 00H 00H
TAB2:
;第1屏你;***********************************
DB 80H 00H 40H 00H 0F0H 7FH 2CH 00H
DB 43H 10H 20H 0CH 98H 03H 0FH 21H
DB 0AH 40H 0E8H 3FH 08H 00H 88H 00H
DB 28H 03H 1CH 1CH 08H 08H 00H 00H
end