; 西文字符寫入子程序
;  占用內部寄存器：O_XL,O_YL,CODE,A,B,CFLUG
;  內部調用子程序：PR1,PR2
;  程序參量：PARA1
;  程序調用入口：  CW_PR
;  程序輸入變量：  O_XL,O_YL,CODE,CFLUG
CW_PR:  JNB	CFLUG,CW_PR1
	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,#4CH	; CSRDIR 代碼(左移)
	LCALL	PR1
	MOV	COM,#46H	; CSRW 代碼
	LCALL	PR1
	MOV	DAT1,O_XL	; 設置光標地址
	LCALL	PR2
	MOV	DAT1,O_YL
	LCALL	PR2
CW_PR1:	MOV	COM,#42H		; MWRITE 代碼
	LCALL	PR1
	MOV	DAT1,CODE	; 取漢字代碼
	LCALL	PR2		; 寫入漢字代碼
	RET