t19264.asm

pls see it again welcome program

 ;64x64,128x64,192X64(KS0107 AND KS0108,1/64duty)
          ;RS ---P3.0
          ;E  ---P3.1
          ;R/W---P3.2
          ;D0-D7  ---- P1.0-P1.7
          ;CS1---P3.3
          ;CS2---P3.4
          ;CS3---P3.5
          ;/RST---HK or p3.7


RS       BIT    P3.0           ;LCM RS=P3.0
E        BIT    P3.1           ;LCM E=P3.1
RW       BIT    P3.2           ;LCM R/W=P3.2
CS1      BIT    P3.3
CS2      BIT    P3.4
CS3      BIT    P3.5
SCL      BIT    P2.6
SDA      BIT    P2.7

         ORG    00H
         AJMP   L0100
         ORG    0100H

L0100:   MOV   SP,#60H
         MOV   P1,#0FFH
         MOV   P2,#0FFH
         MOV   P3,#0FFH

KS0108:  CLR   P3.7            ;RESET
         LCALL DELAY
         SETB  P3.7
         LCALL DELAY

         MOV   R5,#0FFH       ;ALL ON
         MOV   R6,#0FFH
         LCALL DIS12
         LCALL AUTO

         MOV   R5,#55H        ;DISPLAY 'X'
         MOV   R6,#0AAH
         LCALL DIS12
         LCALL AUTO

         MOV   R5,#0AAH       ;DISPLAY 'X'
         MOV   R6,#55H
         LCALL DIS12
         LCALL AUTO

         LCALL DIS12A         ;DISPLAY 'Q'
         LCALL AUTO

         MOV   DPTR,#G19264
         LCALL DIS12B
         LCALL AUTO

         MOV   DPTR,#G19264A
         LCALL DIS12B
         LCALL AUTO

         MOV   R5,#00H        ;ALL OFF
         MOV   R6,#00H
         LCALL DIS12
         LCALL AUTO

         LJMP  L0100

DIS12:   MOV   R0,#20H         ;DRIVER SEGS
         MOV   R1,#20H         ;DRIVER SEGS
         MOV   R2,#08H         ;LOOPS
         MOV   R3,#0B8H        ; PAGE0
         LCALL INI12


L131H:
         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3            ;WRITE PAGE
         LCALL WCOM12
L132H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L132H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L133H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L133H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L134H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L134H
         MOV   A,R1
         MOV   R0,A
         INC   R3              ;PLUS '1' TO POINT NEXT PAGE
         DJNZ  R2,L131H
         RET


DIS12A:  MOV  R0,#08H          ;DISPLAY 'Q'
         MOV  R1,#08H
         MOV  R2,#08H
         MOV  R3,#0B8H         ;PAGEO
         MOV  R4,#08H          ;STORE
         LCALL INI12

L135H:
         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L136H:   MOV   DPTR,#DATAQ
L137H:   MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L137H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L136H
         MOV   A,R4
         MOV   R1,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H           ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L138H:   MOV   DPTR,#DATAQ
L139H:   MOV   A,#00H
         MOVC   A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L139H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L138H
         MOV   A,R4
         MOV   R1,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1310H:  MOV   DPTR,#DATAQ
L1311H:  MOV   A,#00H
         MOVC   A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1311H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L1310H
         MOV   A,R4
         MOV   R1,A
         INC   R3
         DJNZ  R2,L135H
         RET


DIS12B:  MOV   R0,#40H         ;DRIVER SEGS
         MOV   R1,#40H         ;DRIVER SEGS
         MOV   R2,#08H
         MOV   R3,#0B8H        ;FIRST  PAGE
         LCALL INI12

L1312H:


         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1313H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1313H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1314H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1314H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1315H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1315H
         MOV   A,R1
         MOV   R0,A
         INC   R3                ;PLUS '1' TO POINT NEXT PAGE
         DJNZ  R2,L1312H
         RET

INI12:
         LCALL ICCS1             ;IC1
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12

         LCALL ICCS2             ;IC2
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12

         LCALL ICCS3             ;IC3
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12
         RET

WCOM12:  CLR   RS
         CLR   RW
         MOV   P1,A
         SETB  E
         LCALL DELAY13
         CLR   E
         LCALL DELAY13
         RET

WDATA12: SETB  RS
         CLR   RW
         MOV   P1,A
         SETB  E
         LCALL DELAY13
         CLR   E
         LCALL DELAY13
         RET

DELAY13: MOV   R7,#20H
         DJNZ  R7,$
         RET

ICCS1:   CLR   P3.3              ;CS1 , LOW LEVEL
         SETB  P3.4              ;CS2
         SETB  P3.5              ;CS3
         RET

ICCS2:   SETB  P3.3              ;CS1 , LOW LEVEL