; 建立CGRAM子程序
;   內(nèi)部調(diào)用子程序：PR1,PR2
;   程序調(diào)用入口：CGRAM
;   連接字庫：CGTAB
;   占用內(nèi)部資源：COUNT1,COUNT2
;   程序調(diào)用變量：COUNT1   
CGRAM:	MOV	COM,#5CH		; CGRAMADR 代碼
	LCALL	PR1
	MOV	DAT1,#00H		; 設(shè)置SAG=0C000H
	LCALL	PR2
	MOV	DAT1,#070H
	LCALL	PR2
	MOV	COM,#46H		; CSRW 代碼
	LCALL	PR1
	MOV	DAT1,#00H		; 設(shè)置CSR=0C400H(字符代碼=80H)
	LCALL	PR2
	MOV	DAT1,#074H
	LCALL	PR2
	MOV	COM,#4CH		; CSRDIR 代碼
	LCALL	PR1
	MOV	COM,#42H		; MWRITE 代碼
	LCALL	PR1
	MOV	COUNT2,#00H		; 設(shè)置計數(shù)器=0
	MOV	DPTR,#CGTAB
CGRAM1:	MOV	A,COUNT2
	MOVC	A,@A+DPTR		; 取漢字字模數(shù)據(jù)
	MOV	DAT1,A
	LCALL	PR2			; 寫入字模數(shù)據(jù)
	INC	COUNT2
	DJNZ	COUNT1,CGRAM1		; 循環(huán)
	RET