; 漢字寫入子程序(文本方式)
; 在文本方式下顯示漢字, 首先要建立漢字CGRAM,要定義漢字代碼.
; 在文本方式下寫漢字需要寫入4 個代碼以組成一個漢字 
;16*16點陣中文寫入子程序CCW1_PR
;  占用內部寄存器：O_XL,O_YL,CODE,A,B
;  內部調用子程序：PR1
;  程序變量：PARA1
;  程序調用入口：  CCW1_PR
;  程序輸入變量：  O_XL,O_YL,CODE
CCW1_PR:MOV	A,O_YL		; 計算光標地址
        MOV     B,#PARA1        ; PARA1值等于SYSTEM SET 指令P9
        MUL     AB              ; 而P10=0
	ADD	A,O_XL
	MOV	O_XL,A
	MOV	A,B
	ADDC	A,#00H          ; 加入顯示一區起始地址SAD1H
	MOV	O_YL,A
	MOV	COM,#4FH	; CSRDIR 代碼(下移)
	LCALL	PR1
	MOV	COUNT1,#02H	; 設置計數器1=2
CCW1_1: MOV	COM,#46H	; CSRW 代碼
	LCALL	PR1
	MOV	DAT1,O_XL	; 設置光標地址
	LCALL	PR2
	MOV	DAT1,O_YL
	LCALL	PR2
	MOV	COM,#42H		; MWRITE 代碼
	LCALL	PR1
	MOV	DAT1,CODE	; 取漢字代碼
	LCALL	PR2		; 寫入漢字代碼
	INC	CODE		; 修正漢字代碼
	MOV	DAT1,CODE
	LCALL	PR2		; 寫入漢字代碼
	INC	CODE		; 修正漢字代碼
	MOV	A,O_XL		; 修正光標地址
	ADD	A,#01H
	MOV	O_XL,A
	MOV	A,O_YL
	ADDC	A,#00H
	MOV	O_YL,A
	DJNZ	COUNT1,CCW1_1	; 循環
	RET