;******************************************************************************
;               KS0107,KS0108
;******************************************************************************
                .SYMBOLS
;******************************************************************************
;          DEFINE  OUTPUT PORORT
;******************************************************************************
RS              REG       P3.0
E               REG       P3.4
CS1             REG       P3.3
CS2             REG       P3.5
CS3		REG	  P3.1
R_W             REG       P3.7
STP             REG       P2.0
S_S             REG       P2.1
BCD             EQU       01H
;******************************************************************************
                ORG        0H
                LJMP       START
                ORG        50H
START:                                          ;program reset start here

                                                ;INITIAL
                MOV     A,#40H                  ;Set Y Column Address From 0
                LCALL   WRITE_COMMAND1
                LCALL   WRITE_COMMAND2
                LCALL	WRITE_COMMAND3

                MOV     A,#B8H                  ;Set Page From 0
                LCALL   WRITE_COMMAND1
                LCALL   WRITE_COMMAND2
                LCALL	WRITE_COMMAND3

                MOV     A,#C0H                  ;Set Display Start Line
                LCALL   WRITE_COMMAND1
                LCALL   WRITE_COMMAND2
                LCALL	WRITE_COMMAND3

                MOV     A,#3FH                  ;Set Display ON
                LCALL   WRITE_COMMAND1
                LCALL   WRITE_COMMAND2
                LCALL	WRITE_COMMAND3

;******************************************************************************
;               FULL ON
;******************************************************************************
FULL_ON:
                MOV     R0,#0
                MOV     R1,#0
FOLOOP1:
                MOV     A,R1                    ;Set Page Address FROM 00H
                ORL     A,#B8H                  ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3

                MOV     R0,#0                   ;Rest Counter
FOLOOP2:                                        ;Write Data To Chip I
                MOV     A,#FFH
                CALL    WRITE_DATA1
                INC     R0
                CJNE    R0,#64,FOLOOP2

FOLOOP3:                                        ;Write Data To Chip II
                MOV     A,#FFH
                CALL    WRITE_DATA2
                INC     R0
                CJNE    R0,#128,FOLOOP3
FOLOOP4:					;Write Data To Chip III
		MOV	A,#FFH
		CALL	WRITE_DATA3
		INC	R0
		CJNE	R0,#192,FOLOOP4

                INC     R1
                CJNE    R1,#8,FOLOOP1

                LCALL   DELAY
                LCALL   STP_SC
                SJMP    SHOWM

;******************************************************************************
;               SHOW MODEL
;******************************************************************************
SHOWM:
                MOV     R0,#0
                MOV     R1,#0
                MOV     DPTR,#SHOW_WG
SMLOOP1:
                MOV     A,#B8H                  ;Set Page Address FROM 00H
                ADD     A,R1                    ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3

                MOV     R0,#0                   ;Rest Counter
SMLOOP2:                                        ;Write Data To Chip I
                XRL     A,A
                MOVC    A,@A+DPTR
                CALL    WRITE_DATA1
                INC     R0
                INC     DPTR
                CJNE    R0,#64,SMLOOP2

SMLOOP3:                                        ;Write Data To Chip II
                XRL     A,A
                MOVC    A,@A+DPTR
                CALL    WRITE_DATA2
                INC     R0
                INC     DPTR
                CJNE    R0,#128,SMLOOP3
SMLOOP4:					;Write Data To Chip II
		XRL	A,A
		MOVC	A,@A+DPTR
		CALL	WRITE_DATA3
		INC	R0
		INC	DPTR
		CJNE	R0,#192,SMLOOP4

                INC     R1
                CJNE    R1,#8,SMLOOP1

                LCALL   DELAY
                LCALL   STP_SC
                SJMP    VLINE
;******************************************************************************
;               VERTIAL LINE
;******************************************************************************
VLINE:
                MOV     R0,#0
                MOV     R1,#0
VLLOOP1:
                MOV     A,#B8H                  ;Set Page Address FROM 00H
                ADD     A,R1                    ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3

                MOV     R0,#0                   ;Rest Counter
VLLOOP2:                                       ;Write Data To Chip I
                MOV     A,#FFH
                CALL    WRITE_DATA1
                INC     R0
                MOV     A,#00H
                CALL    WRITE_DATA1
                INC     R0
                CJNE    R0,#64,VLLOOP2

VLLOOP3:                                        ;Write Data To Chip II
                MOV     A,#FFH
                CALL    WRITE_DATA2
                INC     R0
                MOV     A,#00H
                CALL    WRITE_DATA2
                INC     R0
                CJNE    R0,#128,VLLOOP3
VLLOOP4:                			;Write Data To Chip III
		MOV     A,#FFH
                CALL    WRITE_DATA3
                INC     R0
                MOV     A,#00H
                CALL    WRITE_DATA3
                INC     R0
                CJNE    R0,#192,VLLOOP4
                
                INC     R1
                CJNE    R1,#8,VLLOOP1

                LCALL   DELAY
                LCALL   STP_SC
                SJMP    HLINE
;******************************************************************************
;               HORIZONTAL LINE
;******************************************************************************
HLINE:
                MOV     R0,#0
                MOV     R1,#0
HLLOOP1:
                MOV     A,#B8H                  ;Set Page Address FROM 00H
                ADD     A,R1                    ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3

                MOV     R0,#0                   ;Rest Counter
HLLOOP2:                                       ;Write Data To Chip I
                MOV     A,#AAH
                CALL    WRITE_DATA1
                INC     R0
                CJNE    R0,#64,HLLOOP2

HLLOOP3:                                        ;Write Data To Chip II
                MOV     A,#AAH
                CALL    WRITE_DATA2
                INC     R0
                CJNE    R0,#128,HLLOOP3

HLLOOP4:                                        ;Write Data To Chip III
                MOV     A,#AAH
                CALL    WRITE_DATA3
                INC     R0
                CJNE    R0,#192,HLLOOP4

                INC     R1
                CJNE    R1,#8,HLLOOP1

                LCALL   DELAY
                LCALL   STP_SC
                SJMP    CROSS_DOT
;******************************************************************************
;               CROSS DOT
;******************************************************************************
CROSS_DOT:
                MOV     R0,#0
                MOV     R1,#0
CDLOOP1:
                MOV     A,#B8H                  ;Set Page Address FROM 00H
                ADD     A,R1                    ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     R0,#0                   ;Rest Counter
CDLOOP2:                                       ;Write Data To Chip I
                MOV     A,#AAH
                CALL    WRITE_DATA1
                INC     R0
                MOV     A,#55H
                CALL    WRITE_DATA1
                INC     R0
                CJNE    R0,#64,CDLOOP2

CDLOOP3:                                        ;Write Data To Chip II
                MOV     A,#AAH
                CALL    WRITE_DATA2
                INC     R0
                MOV     A,#55H
                CALL    WRITE_DATA2
                INC     R0
                CJNE    R0,#128,CDLOOP3
CDLOOP4:                                        ;Write Data To Chip III
                MOV     A,#AAH
                CALL    WRITE_DATA3
                INC     R0
                MOV     A,#55H
                CALL    WRITE_DATA3
                INC     R0
                CJNE    R0,#192,CDLOOP4               

                INC     R1
                CJNE    R1,#8,CDLOOP1

                LCALL   DELAY
                LCALL   STP_SC
                SJMP    SHOWC

;******************************************************************************
;               SHOW CHARACTER
;******************************************************************************
SHOWC:
                MOV     R0,#0
                MOV     R1,#0
                MOV     DPTR,#SHOW_CH
SCLOOP1:
                MOV     A,#B8H                  ;Set Page Address FROM 00H
                ADD     A,R1                    ;Command B8H~BFH
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3
                MOV     A,#40H                  ;Set Column Address FROM 40H
                CALL    WRITE_COMMAND1
                CALL    WRITE_COMMAND2
                CALL	WRITE_COMMAND3

                MOV     R0,#0                   ;Rest Counter
SCLOOP2:                                        ;Write Data To Chip I
                XRL     A,A
                MOVC    A,@A+DPTR
                CALL    WRITE_DATA1
                INC     R0
                INC     DPTR
                CJNE    R0,#64,SCLOOP2

SCLOOP3:                                        ;Write Data To Chip II
                XRL     A,A
                MOVC    A,@A+DPTR
                CALL    WRITE_DATA2
                INC     R0
                INC     DPTR
                CJNE    R0,#128,SCLOOP3
SCLOOP4:                                        ;Write Data To Chip III
                XRL     A,A
                MOVC    A,@A+DPTR
                CALL    WRITE_DATA3
                INC     R0
                INC     DPTR
                CJNE    R0,#192,SCLOOP4

                INC     R1
                CJNE    R1,#8,SCLOOP1                

                LCALL   DELAY
                LCALL   STP_SC
                LJMP    START                   ;repeat test

;******************************************************************************
CHK_BUSY:
                MOV     P1,#0FFH                ;SET PORT1=INPUT
                CLR     RS                      ;SET IR  MODE RS=0
                SETB    R_W                     ;SET READ MODE R/W=1
                SETB    E                       ;ENABLE LCM
                MOV     C,P1.7                  ;CHECK BUSY FLAGE(BIT7)
                CLR     E
                JC      CHK_BUSY
                RET

;******************************************************************************
;               DELAY
;******************************************************************************
DELAY:
                CALL    CBCD
                MOV     R4,BCD
LOPC:
                MOV     R5,#2FH
LOPB:
                MOV     R6,#0FFH
LOPA:
                DJNZ    R6,LOPA
                DJNZ    R5,LOPB
                DJNZ    R4,LOPC
                RET
;******************************************************************************
WRITE_COMMAND1:                                 ;Write Command To CS1
		SETB	CS3
                SETB    CS2
                CLR     CS1
                CLR     RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
;******************************************************************************
WRITE_DATA1:                                    ;Write Data To CS1
		SETB	CS3
                SETB    CS2
                CLR     CS1
                SETB    RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
;******************************************************************************
WRITE_COMMAND2:                                 ;Write Command To CS2
		SETB	CS3
                SETB    CS1
                CLR     CS2
                CLR     RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
;******************************************************************************
WRITE_DATA2:                                    ;Write Data To CS2
		SETB	CS3
                SETB    CS1
                CLR     CS2
                SETB    RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
;******************************************************************************
WRITE_COMMAND3:                                 ;Write Command To CS3
		SETB	CS1
                SETB    CS2
                CLR     CS3
                CLR     RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
;******************************************************************************
WRITE_DATA3:                                    ;Write Data To CS3
		SETB	CS1
                SETB    CS2
                CLR     CS3
                SETB    RS
                CLR     R_W
                MOV     P1,A
                SETB    E
                NOP
                CLR     E
                RET
                
;******************************************************************************
;               Procedure of step by step   and  scan
;******************************************************************************
STP_SC:
                MOV     C,S_S
                JC      STEP
                RET

STEP:
                MOV     C,STP
                MOV     R5,#0FH
LOPE:
                MOV     R6,#0FFH
LOPH:
                DJNZ    R6,LOPH
                DJNZ    R5,LOPE
                JNB     S_S,LOUT
                JNC     STEP
LOUT:
                RET
;******************************************************************************
;               BCD DELAY TIME SELECT
;******************************************************************************
CBCD:
                PUSH    A
                MOV     A,P0
                ANL     A,#0FH
                RL      A
                RL      A
                MOV     BCD,A
                POP     A
                RET

;******************************************************************************
;*              DISPLAY DATA
;******************************************************************************
SHOW_CH:
          DB      0FFh,001h,001h,001h,001h,001h,001h,081h
          DB      071h,009h,071h,081h,001h,001h,001h,0F9h
          DB      089h,089h,089h,089h,089h,071h,001h,001h
          DB      0E1h,011h,009h,009h,009h,011h,021h,001h
          DB      001h,0F9h,009h,009h,009h,009h,011h,0E1h
          DB      001h,001h,0F9h,089h,089h,089h,089h,089h
          DB      089h,001h,001h,0F9h,089h,089h,089h,089h
          DB      009h,001h,001h,0E1h,011h,009h,009h,009h
          DB      009h,011h,021h,001h,001h,0F9h,081h,081h
          DB      081h,081h,081h,0F9h,001h,001h,0F9h,001h
          DB      001h,001h,001h,001h,0F9h,001h,001h,0F9h
          DB      001h,001h,081h,041h,021h,011h,009h,001h
          DB      0F9h,001h,001h,001h,001h,001h,001h,0F9h
          DB      031h,0C1h,001h,001h,001h,0C1h,031h,0F9h
          DB      001h,001h,0F9h,011h,061h,081h,001h,001h
          DB      0F9h,001h,001h,0E1h,011h,009h,009h,009h
          DB      009h,011h,0E1h,001h,001h,0F9h,009h,009h
          DB      009h,009h,009h,0F1h,001h,001h,0E1h,011h
          DB      009h,009h,009h,009h,011h,0E1h,001h,001h
          DB      0F9h,009h,009h,009h,009h,009h,0F1h,001h
          DB      001h,071h,089h,089h,089h,009h,009h,031h
          DB      001h,009h,009h,009h,0F9h,009h,009h,009h
          DB      001h,0F9h,001h,001h,001h,001h,001h,0F9h
          DB      001h,001h,001h,001h,001h,001h,001h,0FFh
          DB      0FFh,000h,000h,000h,000h,018h,006h,003h
          DB      002h,002h,002h,003h,006h,018h,000h,01Fh
          DB      010h,010h,010h,010h,010h,00Fh,000h,000h
          DB      007h,008h,010h,010h,010h,008h,004h,000h
          DB      000h,01Fh,010h,010h,010h,010h,008h,007h
          DB      000h,000h,01Fh,010h,010h,010h,010h,010h
          DB      010h,000h,000h,01Fh,000h,000h,000h,000h
          DB      000h,000h,000h,007h,008h,010h,010h,011h
          DB      011h,009h,007h,000h,000h,01Fh,000h,000h
          DB      000h,000h,000h,01Fh,000h,000h,01Fh,000h
          DB      00Ch,010h,010h,010h,00Fh,000h,000h,01Fh
          DB      002h,001h,001h,002h,004h,008h,010h,000h
          DB      01Fh,010h,010h,010h,010h,010h,000h,01Fh
          DB      000h,000h,007h,018h,007h,000h,000h,01Fh
          DB      000h,000h,01Fh,000h,000h,001h,006h,008h
          DB      01Fh,000h,000h,007h,008h,010h,010h,010h
          DB      010h,008h,007h,000h,000h,01Fh,001h,001h
          DB      001h,001h,001h,000h,000h,000h,007h,008h
          DB      010h,010h,014h,014h,008h,017h,000h,000h
          DB      01Fh,001h,001h,001h,003h,00Dh,010h,000h
          DB      000h,00Ch,010h,010h,010h,011h,011h,00Eh
          DB      000h,000h,000h,000h,01Fh,000h,000h,000h
          DB      000h,007h,008h,010h,010h,010h,008h,007h
          DB      000h,000h,000h,000h,000h,000h,000h,0FFh
          DB      0FFh,000h,000h,000h,000h,018h,060h,080h
          DB      000h,000h,000h,080h,060h,018h,018h,0E0h
          DB      000h,000h,000h,0F0h,008h,0F0h,000h,000h
          DB      000h,0E0h,018h,008h,030h,040h,080h,040h
          DB      030h,008h,000h,008h,030h,0C0h,000h,0C0h
          DB      030h,008h,000h,000h,008h,008h,088h,068h
          DB      018h,008h,000h,080h,040h,040h,040h,080h
          DB      000h,000h,0F8h,080h,040h,040h,080h,000h
          DB      000h,080h,040h,040h,040h,080h,000h,000h
          DB      080h,040h,040h,080h,0F8h,000h,000h,080h
          DB      040h,040h,040h,080h,000h,040h,0F0h,048h
          DB      008h,080h,040h,040h,080h,0C0h,000h,000h
          DB      0F8h,080h,040h,040h,080h,000h,000h,0C8h
          DB      000h,000h,0C8h,000h,000h,0F8h,000h,000h
          DB      080h,040h,000h,000h,0F8h,000h,000h,0C0h
          DB      080h,040h,040h,080h,080h,040h,040h,080h
          DB      000h,000h,0C0h,080h,040h,040h,080h,000h
          DB      000h,080h,040h,040h,040h,080h,000h,000h
          DB      0C0h,080h,040h,040h,080h,000h,000h,080h
          DB      040h,040h,080h,0C0h,000h,000h,0C0h,080h
          DB      040h,000h,080h,040h,040h,040h,080h,000h
          DB      040h,0F0h,040h,000h,000h,0C0h,000h,000h
          DB      000h,0C0h,000h,0C0h,000h,000h,000h,0C0h
          DB      000h,000h,000h,000h,000h,000h,000h,0FFh
          DB      0FFh,000h,000h,000h,000h,000h,000h,001h
          DB      006h,018h,006h,001h,000h,000h,000h,000h
          DB      007h,018h,007h,000h,000h,000h,007h,018h
          DB      007h,000h,000h,010h,00Ch,002h,001h,002h
          DB      00Ch,010h,000h,000h,000h,000h,01Fh,000h
          DB      000h,000h,000h,010h,018h,016h,011h,010h
          DB      010h,010h,000h,00Ch,012h,012h,00Ah,01Fh
          DB      000h,000h,01Fh,010h,010h,010h,00Fh,000h
          DB      000h,00Fh,010h,010h,010h,008h,000h,000h
          DB      00Fh,010h,010h,010h,01Fh,000h,000h,00Fh
          DB      012h,012h,012h,00Bh,000h,000h,01Fh,000h
          DB      000h,04Fh,090h,090h,088h,07Fh,000h,000h
          DB      01Fh,000h,000h,000h,01Fh,000h,000h,01Fh
          DB      080h,080h,07Fh,000h,000h,01Fh,002h,003h
          DB      00Ch,010h,000h,000h,01Fh,000h,000h,01Fh
          DB      000h,000h,000h,01Fh,000h,000h,000h,01Fh
          DB      000h,000h,01Fh,000h,000h,000h,01Fh,000h
          DB      000h,00Fh,010h,010h,010h,00Fh,000h,000h
          DB      0FFh,008h,010h,010h,00Fh,000h,000h,00Fh
          DB      010h,010h,008h,0FFh,000h,000h,01Fh,000h
          DB      000h,000h,009h,012h,012h,012h,00Ch,000h
          DB      000h,01Fh,010h,000h,000h,00Fh,010h,010h
          DB      010h,01Fh,000h,000h,007h,018h,007h,000h
          DB      000h,000h,000h,000h,000h,000h,000h,0FFh
          DB      0FFh,000h,000h,000h,000h,0C0h,000h,000h
          DB      000h,0C0h,000h,000h,000h,0C0h,000h,040h
          DB      080h,000h,080h,040h,000h,000h,0C0h,000h
          DB      000h,000h,0C0h,000h,000h,040h,040h,040h
          DB      0C0h,040h,000h,080h,060h,010h,090h,048h
          DB      048h,048h,088h,0C8h,010h,020h,0C0h,000h
          DB      040h,040h,0E0h,058h,040h,0C0h,078h,040h
          DB      0F0h,088h,0F8h,008h,010h,000h,000h,070h
          DB      088h,088h,070h,000h,0C0h,030h,008h,000h
          DB      000h,000h,000h,0E0h,010h,0E0h,000h,000h
          DB      000h,070h,088h,088h,070h,000h,000h,000h
          DB      010h,050h,038h,050h,010h,000h,0C0h,030h
          DB      008h,008h,030h,0C0h,000h,000h,000h,000h
          DB      000h,000h,000h,000h,000h,000h,000h,000h
          DB      0E0h,000h,000h,000h,000h,0F8h,000h,000h
          DB      080h,080h,080h,000h,000h,080h,000h,000h
          DB      020h,010h,0F8h,000h,000h,000h,010h,008h
          DB      008h,008h,008h,0F0h,000h,010h,008h,088h
          DB      088h,088h,070h,000h,000h,000h,0C0h,030h
          DB      0F8h,000h,000h,0C0h,0B8h,088h,088h,088h
          DB      008h,000h,0F0h,008h,088h,088h,088h,010h
          DB      000h,008h,008h,008h,0C8h,038h,008h,000h
          DB      070h,088h,088h,088h,088h,070h,000h,000h
          DB      000h,000h,000h,000h,000h,000h,000h,0FFh
          DB      0FFh,000h,000h,000h,000h,000h,007h,018h
          DB      007h,000h,007h,018h,007h,000h,000h,010h
          DB      00Dh,002h,00Dh,010h,000h,000h,080h,087h
          DB      078h,007h,000h,000h,000h,010h,01Ch,012h
          DB      011h,010h,000h,01Fh,020h,04Fh,090h,090h
          DB      090h,088h,09Eh,091h,050h,04Ch,023h,000h
          DB      002h,01Eh,003h,002h,01Eh,003h,002h,002h
          DB      00Ch,010h,03Fh,011h,00Fh,000h,000h,000h
          DB      000h,010h,00Ch,003h,000h,00Eh,011h,011h
          DB      00Eh,000h,001h,000h,000h,000h,001h,000h
          DB      00Eh,011h,011h,012h,00Ch,008h,016h,010h
          DB      000h,000h,000h,000h,000h,000h,01Fh,060h
          DB      080h,080h,060h,01Fh,000h,080h,080h,080h
          DB      080h,080h,080h,080h,000h,001h,001h,001h
          DB      00Fh,001h,001h,001h,000h,017h,000h,001h
          DB      000h,000h,001h,001h,001h,001h,000h,000h
          DB      000h,000h,01Fh,000h,000h,000h,010h,018h
          DB      014h,012h,011h,010h,000h,008h,010h,010h
          DB      010h,010h,00Fh,000h,004h,007h,004h,004h
          DB      01Fh,004h,000h,009h,010h,010h,010h,010h
          DB      00Fh,000h,00Fh,011h,010h,010h,010h,00Fh
          DB      000h,000h,01Ch,003h,000h,000h,000h,000h
          DB      00Fh,010h,010h,010h,010h,00Fh,000h,000h
          DB      000h,000h,000h,000h,000h,000h,000h,0FFh
          DB      0FFh,000h,000h,000h,000h,0F0h,008h,008h
          DB      008h,088h,0F0h,000h,000h,000h,000h,000h
          DB      000h,000h,080h,070h,008h,070h,080h,000h
          DB      000h,000h,0F8h,088h,088h,088h,088h,088h
          DB      070h,000h,000h,0E0h,010h,008h,008h,008h
          DB      010h,020h,000h,000h,0F8h,008h,008h,008h
          DB      008h,010h,0E0h,000h,000h,0F8h,088h,088h
          DB      088h,088h,088h,088h,000h,000h,0F8h,088h
          DB      088h,088h,088h,008h,000h,000h,0E0h,010h
          DB      008h,008h,008h,008h,010h,020h,000h,000h
          DB      0F8h,080h,080h,080h,080h,080h,0F8h,000h
          DB      000h,0F8h,000h,000h,000h,000h,000h,0F8h
          DB      000h,000h,0F8h,000h,000h,080h,040h,020h
          DB      010h,008h,000h,0F8h,000h,000h,000h,000h
          DB      000h,000h,0F8h,030h,0C0h,000h,000h,000h
          DB      0C0h,030h,0F8h,000h,000h,0F8h,010h,060h
          DB      080h,000h,000h,0F8h,000h,000h,0E0h,010h
          DB      008h,008h,008h,008h,010h,0E0h,000h,000h
          DB      0F8h,008h,008h,008h,008h,008h,0F0h,000h
          DB      000h,0E0h,010h,008h,008h,008h,008h,010h
          DB      0E0h,000h,000h,0F8h,008h,008h,008h,008h
          DB      008h,0F0h,000h,000h,070h,088h,088h,088h
          DB      008h,008h,030h,000h,008h,008h,008h,0F8h
          DB      008h,008h,008h,000h,000h,000h,000h,0FFh
          DB      0FFh,080h,080h,080h,080h,088h,091h,091h
          DB      091h,088h,087h,080h,080h,090h,080h,080h
          DB      098h,086h,083h,082h,082h,082h,083h,086h
          DB      098h,080h,09Fh,090h,090h,090h,090h,090h
          DB      08Fh,080h,080h,087h,088h,090h,090h,090h
          DB      088h,084h,080h,080h,09Fh,090h,090h,090h
          DB      090h,088h,087h,080h,080h,09Fh,090h,090h
          DB      090h,090h,090h,090h,080h,080h,09Fh,080h
          DB      080h,080h,080h,080h,080h,080h,087h,088h
          DB      090h,090h,091h,091h,089h,087h,080h,080h
          DB      09Fh,080h,080h,080h,080h,080h,09Fh,080h
          DB      080h,09Fh,080h,08Ch,090h,090h,090h,08Fh
          DB      080h,080h,09Fh,082h,081h,081h,082h,084h
          DB      088h,090h,080h,09Fh,090h,090h,090h,090h
          DB      090h,080h,09Fh,080h,080h,087h,098h,087h
          DB      080h,080h,09Fh,080h,080h,09Fh,080h,080h
          DB      081h,086h,088h,09Fh,080h,080h,087h,088h
          DB      090h,090h,090h,090h,088h,087h,080h,080h
          DB      09Fh,081h,081h,081h,081h,081h,080h,080h
          DB      080h,087h,088h,090h,090h,094h,094h,088h
          DB      097h,080h,080h,09Fh,081h,081h,081h,083h
          DB      08Dh,090h,080h,080h,08Ch,090h,090h,090h
          DB      091h,091h,08Eh,080h,080h,080h,080h,09Fh
          DB      080h,080h,080h,080h,080h,080h,080h,0FFh


SHOW_WG:
          DB      0FFh,011h,001h,001h,003h,001h,041h,081h
          DB      041h,08Fh,041h,081h,041h,081h,043h,081h
          DB      041h,081h,041h,08Fh,041h,081h,041h,081h
          DB      043h,081h,041h,081h,041h,08Fh,041h,081h
          DB      041h,081h,043h,081h,041h,081h,041h,08Fh
          DB      041h,081h,041h,001h,003h,001h,081h,081h
          DB      081h,00Fh,081h,081h,081h,001h,003h,001h
          DB      041h,081h,041h,08Fh,041h,081h,041h,081h
          DB      043h,081h,041h,081h,041h,08Fh,041h,081h
          DB      041h,081h,043h,081h,041h,081h,041h,08Fh
          DB      041h,081h,041h,081h,043h,081h,041h,081h
          DB      041h,08Fh,041h,081h,041h,001h,003h,001h
          DB      081h,001h,081h,08Fh,081h,001h,081h,081h
          DB      083h,001h,001h,001h,041h,08Fh,041h,081h
          DB      041h,081h,043h,081h,041h,081h,041h,08Fh
          DB      041h,081h,041h,081h,043h,081h,041h,081h
          DB      041h,08Fh,041h,081h,041h,081h,043h,081h
          DB      041h,081h,041h,08Fh,041h,081h,041h,001h
          DB      003h,001h,081h,001h,081h,08Fh,081h,001h
          DB      081h,081h,083h,001h,001h,001h,041h,08Fh
          DB      041h,081h,041h,081h,043h,081h,041h,081h
          DB      041h,08Fh,041h,081h,041h,081h,043h,081h
          DB      041h,081h,041h,08Fh,041h,081h,041h,081h
          DB      047h,081h,041h,081h,041h,08Fh,041h,0FFh
          DB      0FFh,042h,002h,002h,000h,000h,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,080h,040h,080h,04Bh,08Ah
          DB      04Eh,080h,04Fh,088h,04Fh,080h,040h,080h
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,080h,040h,080h
          DB      04Fh,080h,04Fh,088h,04Fh,080h,04Fh,088h
          DB      04Fh,080h,040h,080h,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,080h
          DB      040h,080h,04Fh,080h,04Bh,08Ah,04Eh,080h
          DB      04Fh,088h,04Fh,080h,040h,080h,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,008h,008h,008h,000h,000h,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,021h,020h,020h,000h,000h,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,084h,080h,080h,000h,000h,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,010h,000h,000h,000h,000h,015h,00Ah
          DB      015h,00Ah,015h,08Ah,095h,08Ah,015h,08Ah
          DB      095h,08Ah,015h,00Ah,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,042h,002h,002h,000h,000h,040h,080h
          DB      040h,080h,040h,08Bh,04Ah,08Eh,040h,08Fh
          DB      048h,08Fh,040h,080h,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
          DB      055h,0AAh,055h,0AAh,055h,0AAh,055h,0FFh
          DB      0FFh,088h,088h,088h,080h,080h,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0AAh
          DB      0D5h,0AAh,0D5h,0AAh,0D5h,0AAh,0D5h,0FFh

        END

