;---------------------------------------------------------------------------------
;       	RA8822 CONTROLLER
;		FOR WG24064FP1
;		2005.12.02
;		REV:0
;---------------------------------------------------------------------------------
                .SYMBOLS
;---------------------------------------------------------------------------------
RS              REG     P3.1
WR       	REG     P3.0    
RD         	REG     P3.7
CS1             REG     P3.4
BUSY            REG     P3.2

STP             REG     P2.0
S_S             REG     P2.1

CHAR_ADD        EQU     7FH
;---------------------------------------------------------------------------------
INITIAL_START:
;---------------------------------------------------------------------------------
	CALL	DELAY40mS		;DELAY 40mS
;---------------------------------------------------------------------------------
				;設定視窗與工作視窗 REG[20,30,40,50,21,31,41,51]
							
	MOV     R7,#20H      	;REGISTER 20H (AWRR)
	CALL	RegAddr_Write
	MOV     R7,#29        	;(240/8)-1=29
	CALL	RegComm_Write
	
	MOV     R7,#30H      	;REGISTER 30H (AWBR)
	CALL	RegAddr_Write
	MOV     R7,#63        	;64-1=63
	CALL	RegComm_Write

	MOV     R7,#40H      	;REGISTER 40H (AWLR)
	CALL	RegAddr_Write
	MOV     R7,#00H        	;
	CALL	RegComm_Write
	
	MOV     R7,#50H      	;REGISTER 50H (AWTR)
	CALL	RegAddr_Write
	MOV     R7,#00H         ;
	CALL	RegComm_Write
                
	MOV     R7,#21H      	;REGISTER 21H (DWRR)
	CALL	RegAddr_Write
	MOV     R7,#29        	;(240/8)-1=29
	CALL	RegComm_Write
	
	MOV     R7,#31H      	;REGISTER 31H (DWBR)
	CALL	RegAddr_Write
	MOV     R7,#63        	;64-1=63
	CALL	RegComm_Write
	
	MOV     R7,#41H       	;REGISTER 41H (DWLR)
	CALL	RegAddr_Write
	MOV     R7,#00H       	;
	CALL	RegComm_Write
	
	MOV     R7,#51H         ;REGISTER 51H (DWTR)
	CALL	RegAddr_Write
	MOV     R7,#00H         ;
	CALL	RegComm_Write
;---------------------------------------------------------------------------------
				;清除銀幕
							
	MOV     R7,#E0H         ;REGISTER E0H (PNTR)
	CALL	RegAddr_Write
	MOV     R7,#00H         ;
	CALL	RegComm_Write
	
	MOV     R7,#F0H       	;REGISTER F0H (FNCR)
	CALL	RegAddr_Write
	MOV     R7,#98H       	;
	CALL	RegComm_Write	
;---------------------------------------------------------------------------------
	CALL 	DELAY4.1mS		;DELAY 4mS
;---------------------------------------------------------------------------------
	 				;設定模式
			 				
	MOV     R7,#00H			;REGISTER 00H (WLCR)設定顯示工作模式
    	CALL	RegAddr_Write
	MOV     R7,#CDH			;NORMAL DISPLAY,TEXT,
    	CALL	RegComm_Write
    
	MOV     R7,#01H			;REGISTER 01H (MISC)設定SYSTEM CLOCK,為12MHZ
	CALL	RegAddr_Write
	MOV     R7,#F3H			;12MHz clock
    	CALL	RegComm_Write
;---------------------------------------------------------------------------------
				;設定游標
							
	MOV     R7,#10H      	;REGISTER 10H (ACCR)設定游標信息
	CALL	RegAddr_Write
	MOV     R7,#ABH      	;
	CALL	RegComm_Write
	
	MOV     R7,#11H      	;REGISTER 11H (DWLR)設定游標高度與行距
	CALL	RegAddr_Write
	MOV     R7,#10H     	;
	CALL	RegComm_Write
	
	MOV     R7,#60H      	;REGISTER 60H (CPXR)設定游標SEGMENT位址
	CALL	RegAddr_Write
	MOV     R7,#00H         ;
	CALL	RegComm_Write
	
	MOV     R7,#70H      	;REGISTER 70H (CPYR)設定游標COMMON位址
	CALL	RegAddr_Write
	MOV     R7,#00H         ;
	CALL	RegComm_Write
	
	MOV     R7,#80H      	;REGISTER 80H (BTMR)設定游標閃爍時間
	CALL	RegAddr_Write
	MOV     R7,#33H      	;
	CALL	RegComm_Write
;---------------------------------------------------------------------------------
	MOV     R7,#90H      	;REGISTER 90H (SCCR)設定XCX訊號週期
	CALL	RegAddr_Write
	MOV     R7,#61H       	;97HZ=(12M*8)/(240*64*64)=61H
	CALL	RegComm_Write
;---------------------------------------------------------------------------------
MAIN:

	CALL	SHOWM
	CALL  	DELAY400mS              ;Wait
	CALL	STP_SC

;	CALL	VLINE
;	CALL  	DELAY400mS              ;Wait
;	CALL	STP_SC

;	CALL	HLINE
;	CALL  	DELAY400mS              ;Wait
;	CALL	STP_SC

;	CALL	CROSS_DOT
;	CALL	DELAY400mS              ;Wait
;	CALL	STP_SC
	
;	CALL	SHOWCHAR
;	CALL	DELAY400mS              ;Wait
;	CALL	STP_SC	
	
	JMP		MAIN
;---------------------------------------------------------------------------------
;---------------------------------------------------------------------------------
SHOWM:
	CALL    GRAPHIC_ON
	MOV     DPTR,#SHOW_WG
	
	MOV     R4,#64
	$NEXT_COLUMN:
		MOV     R5,#40			; 8 * 40 =240
		$SHOW_LOOP:	
			MOV     A,#00H	
			MOVC    A,@A+DPTR	
			MOV     R7,A	
			CALL    RegData_Write	
			INC     DPTR	
			DJNZ    R5,$SHOW_LOOP	
			DJNZ    R4,$NEXT_COLUMN	
			RET	
;---------------------------------------------------------------------------------
;VLINE:
;RET
;---------------------------------------------------------------------------------
;HLINE:
;RET
;---------------------------------------------------------------------------------
;CROSS_DOT:
;RET
;---------------------------------------------------------------------------------
;SHOWCHAR:
;RET
;---------------------------------------------------------------------------------
;               REGISTER: 00H, BIT3=0 GRAPHIC ON
GRAPHIC_ON:
	MOV     R7,#00H
	LCALL   RegComm_Write
	MOV     R7,#C5H
	LCALL   RegAddr_Write
	RET
;---------------------------------------------------------------------------------
;               REGISTER: 00H, BIT3=1 TEXT ON
TEXT_ON:
	MOV     R7,#00H
	LCALL   RegComm_Write
	MOV     R7,#CDH
	LCALL   RegAddr_Write
	RET
;---------------------------------------------------------------------------------
RegComm_Write:
	MOV		P1,R7
	CLR  	CS1
	SETB	RD
	CLR	RS			;RS=0 Register Access Cycle (Command)
	CLR	WR
	NOP
	NOP
	NOP
	NOP
	SETB	WR
	SETB	RS
	SETB	CS1
	RET
;---------------------------------------------------------------------------------
RegAddr_Write:
	MOV	P1,R7
	CLR  	CS1
	SETB	RD
	CLR	RS			;RS=0 Register Access Cycle (Address)
	CLR	WR
	NOP
	NOP
	NOP
	NOP
	SETB	WR
	SETB	RS
	SETB	CS1
	RET
;---------------------------------------------------------------------------------
RegData_Write:
	CALL 	CHK_BUSY
RegData_Write_NOCHK:
	MOV	P1,R7
	CLR  	CS1
	SETB	RD
	SETB	RS			;RS=1 Data Access Cycle
	CLR	WR
	NOP
	NOP
	NOP
	NOP
	SETB	WR
	SETB	RS
	SETB	CS1
	RET
;---------------------------------------------------------------------------------
CHK_BUSY: 				;Check Busy Flag
	JB   	BUSY,$
	RET
;---------------------------------------------------------------------------------
STP_SC:
	MOV	C,S_S
	JC      STEP
	RET
;---------------------------------------------------------------------------------
STEP:
	MOV     C,STP
	MOV     R5,#0FH
	LOPE:
		MOV     R6,#0FFH
	LOPD:
		DJNZ    R6,LOPD
		DJNZ    R5,LOPE
		JNB     S_S,LOUT
		JNC     STEP
	LOUT:
	RET
;---------------------------------------------------------------------------------
DELAY1S:
	MOV	R5,#50	
$12:	MOV  	R6,#100			; SET DELAY TIME = 20mS * R5
$11:	MOV  	R7,#100			
$10:	DJNZ 	R7,$10		
		DJNZ 	R6,$11		
		DJNZ 	R5,$12
		RET
;---------------------------------------------------------------------------------
DELAY400mS:
	MOV	R5,#20	
$9:	MOV  	R6,#100			; SET DELAY TIME = 20mS * R5
$7:	MOV  	R7,#100			
$8:	DJNZ 	R7,$8		
	DJNZ 	R6,$7		
	DJNZ 	R5,$9	
	RET
;---------------------------------------------------------------------------------
DELAY40mS:
	MOV	R5,#2	
$6:	MOV  	R6,#100			; SET DELAY TIME = 20mS * R5
$4:	MOV  	R7,#100			
$5:	DJNZ 	R7,$5		
	DJNZ 	R6,$4		
	DJNZ 	R5,$6	
	RET
;---------------------------------------------------------------------------------
DELAY4.1mS:
	MOV 	R3,#50			; SET DELAY TIME 50*50*2=5ms > 4.1mS
$1: MOV 	R2,#50			
$2: DJNZ 	R2,$2			
    DJNZ 	R3,$1			
	RET
;---------------------------------------------------------------------------------
DELAY100uS:				
    	MOV 	R4,#60			; SET DELAY TIME 60*2=120us > 100uS
$3:	DJNZ 	R4,$3  
	RET
;---------------------------------------------------------------------------------
SHOW_WG:
        
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,088H,042H
      DB    010H,084H,021H,008H,042H,010H,084H,021H
      DB    008H,042H,010H,084H,021H,008H,042H,010H
      DB    084H,021H,008H,042H,010H,084H,021H,008H
      DB    042H,010H,084H,021H,080H,040H,010H,004H
      DB    001H,000H,040H,010H,004H,001H,000H,040H
      DB    010H,004H,001H,000H,040H,010H,004H,001H
      DB    000H,040H,010H,084H,001H,000H,040H,010H
      DB    004H,001H,080H,040H,010H,004H,001H,000H
      DB    040H,010H,004H,001H,000H,040H,010H,004H
      DB    001H,000H,040H,010H,004H,001H,000H,040H
      DB    010H,004H,001H,000H,040H,010H,004H,001H
      DB    0C0H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,000H,000H,001H,080H,000H
      DB    000H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,000H,000H,000H,000H,000H
      DB    000H,000H,000H,001H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0A0H,000H,0AAH,0AAH,0AAH,0AAH,0A8H
      DB    000H,00AH,0AAH,0AAH,0AAH,0AAH,000H,002H
      DB    0AAH,0AAH,0AAH,0AAH,000H,000H,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,043H
      DB    0B8H,055H,055H,055H,055H,050H,0BBH,085H
      DB    055H,055H,055H,054H,02EH,0E1H,055H,055H
      DB    055H,054H,03BH,0B8H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0A2H,028H,0AAH
      DB    0AAH,0AAH,0AAH,0A8H,0AAH,08AH,0AAH,0AAH
      DB    0AAH,0AAH,028H,0A2H,0AAH,0AAH,0AAH,0AAH
      DB    00AH,0A8H,0AAH,0AAH,0AAH,0ABH,0F1H,055H
      DB    055H,055H,055H,043H,0A8H,055H,055H,055H
      DB    055H,050H,0AAH,085H,055H,055H,055H,054H
      DB    02EH,0A1H,055H,055H,055H,054H,03AH,0A8H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0A0H,0A8H,0AAH,0AAH,0AAH,0AAH,0A8H
      DB    0AAH,08AH,0AAH,0AAH,0AAH,0AAH,022H,0A2H
      DB    0AAH,0AAH,0AAH,0AAH,022H,0A8H,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,043H
      DB    0B8H,055H,055H,055H,055H,050H,0BBH,085H
      DB    055H,055H,055H,054H,02EH,0E1H,055H,055H
      DB    055H,054H,03BH,0B8H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0A0H,000H,0AAH
      DB    0AAH,0AAH,0AAH,0A8H,000H,00AH,0AAH,0AAH
      DB    0AAH,0AAH,000H,002H,0AAH,0AAH,0AAH,0AAH
      DB    000H,000H,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,040H,000H,055H,055H,055H
      DB    055H,050H,000H,005H,055H,055H,055H,054H
      DB    000H,001H,055H,055H,055H,054H,000H,000H
      DB    055H,055H,055H,055H,0C2H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,0F1H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    0C2H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,0F1H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,0C2H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,0F1H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    0C2H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,080H,000H
      DB    005H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,080H,000H,00AH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,080H,01DH,0C5H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    080H,011H,04AH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,0F0H,01DH
      DB    045H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,080H,005H,04AH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,080H,01DH,0C5H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    080H,000H,00AH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,080H,000H
      DB    005H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,0C2H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,081H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,0F1H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    082H,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0ABH,081H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,055H,055H,055H,055H
      DB    055H,055H,055H,055H,082H,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
      DB    0AAH,0ABH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
      DB    0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFh
      
			END