sdrv_init_thai.s01

炬力方案176*132软件源码,适用于AK1025

	NAME	sdrv_init_thai(16)
	RSEG	BBC_IE(0)
	RSEG	BBD_IE(0)
	RSEG	BBS_IE(0)
	EXTERN	AsciiFontLibAddr
	PUBLIC	AsciiFontName
	EXTERN	BufPage
	EXTERN	Drv_Entrance
	EXTERN	FontLibAddr
	PUBLIC	FontLibName
	EXTERN	Hdrv_HardInit
	EXTERN	SD_FClose
	EXTERN	SD_FOpen
	PUBLIC	Sdrv_Exit
	PUBLIC	Sdrv_Init
	PUBLIC	fp
	EXTERN	?CLZ80L_4_04_L00
	RSEG	BBC_IE
Sdrv_Init:
; 1.	/*
; 2.	********************************************************************************
; 3.	*                       ACTOS
; 4.	*                  UI Init function
; 5.	*
; 6.	*                (c) Copyright 2002-2003, Actions Co,Ld.
; 7.	*                        All Right Reserved
; 8.	*
; 9.	* File   : UI_Init.msa
; 10.	* By     : Gongee
; 11.	* Version: 1> v1.00     first version     10/17/2003 9:47PM
; 12.	********************************************************************************
; 13.	*/
; 14.	
; 15.	#include "display.h"
; 16.	#include "Drv_S6B33B0A.h"
; 17.	
; 18.	//#define DEBUG
; 19.	#ifdef DEBUG
; 20.	#define ERR(x) x
; 21.	#define MSG(x) x
; 22.	#else
; 23.	#define ERR(x)
; 24.	#define MSG(x)
; 25.	#endif
; 26.	
; 27.	#pragma memory=dataseg(BBD_IE)
; 28.	SD_FILE *fp;
; 29.	#pragma memory=default
; 30.	
; 31.	#pragma memory=constseg(BBS_IE)
; 32.	char AsciiFontName[] = "ASCII.BIN";          //在ASCII.BIN中,嵌入了0xe0~0xfb的thai字符点阵信息
; 33.	                                             //地址:6*8 Font:0x1800-0x20af;
; 34.	char FontLibName[] = "FONT_TH.$$$";
; 35.	#pragma memory=default
; 36.	
; 37.	#pragma codeseg(BBC_IE)
; 38.	bool    Sdrv_Init(char mode)
; 39.	{
	PUSH	BC
	PUSH	IY
	PUSH	IX
	PUSH	DE
	PUSH	AF
	PUSH	AF
; 40.	        fp = SD_FOpen(AsciiFontName,MODE_READ);
	LD	C,0
	LD	DE,AsciiFontName
	CALL	SD_FOpen
	LD	(fp),HL
; 41.	        if (fp == NULL)
	LD	A,L
	OR	H
	JR	Z,?0008
?0000:
; 42.	        {
; 43.	                ERR(printf("Cannot open Fontlib\n"));
; 44.	                return 0;
; 45.	        }
?0001:
; 46.	        AsciiFontLibAddr = fp->startaddr;
	LD	HL,12
	LD	BC,(fp)
	ADD	HL,BC
	LD	C,(HL)
	INC	HL
	LD	B,(HL)
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	(AsciiFontLibAddr),BC
	LD	(AsciiFontLibAddr+2),DE
; 47.	        SD_FClose(fp);
	LD	DE,(fp)
	CALL	SD_FClose
; 48.	
; 49.	        fp = SD_FOpen(FontLibName,MODE_READ);
	LD	C,0
	LD	DE,FontLibName
	CALL	SD_FOpen
	LD	(fp),HL
; 50.	        if (fp == NULL)
	LD	A,L
	OR	H
	JR	NZ,?0003
?0002:
; 51.	        {
; 52.	                ERR(printf("Cannot open Fontlib\n"));
; 53.	                return 0;
?0008:
	XOR	A
; 54.	        }
	JR	?0006
?0003:
; 55.	        FontLibAddr = fp->startaddr;
	LD	HL,12
	LD	BC,(fp)
	ADD	HL,BC
	LD	C,(HL)
	INC	HL
	LD	B,(HL)
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	(FontLibAddr),BC
	LD	(FontLibAddr+2),DE
; 56.	        SD_FClose(fp);
	LD	DE,(fp)
	CALL	SD_FClose
; 57.	
; 58.	        BufPage=0x07;           //Buffer默认位于Zram2
	LD	A,7
	LD	(BufPage),A
; 59.	        
; 60.	           {
; 61.	            char *i;
; 62.	            int  *j;
; 63.	            //********** 显示中断向量的赋值 ********
; 64.	            i = (char *)RSTDisplayAPI;
	LD	IX,32
; 65.	            *i = 0xc3;
	LD	(IX+0),195
; 66.	            i++;
; 67.	            j = (int *)i;
	INC	IX
	PUSH	IX
	POP	HL
; 68.	            *j = (int)Drv_Entrance;
	LD	(HL),LOW(Drv_Entrance)
	INC	HL
	LD	(HL),HIGH(Drv_Entrance)
; 69.	           }
; 70.	        if(mode==0)
	LD	HL,4
	ADD	HL,SP
	XOR	A
	OR	(HL)
	JR	NZ,?0005
?0004:
; 71.	        {
; 72.	            Hdrv_HardInit();
	CALL	Hdrv_HardInit
?0005:
; 73.	        }
; 74.	        
; 75.	        return 1;
	LD	A,1
; 76.	}
?0006:
	POP	HL
	POP	HL
	POP	HL
	POP	IX
	POP	IY
	POP	BC
	RET
Sdrv_Exit:
; 77.	
; 78.	void Sdrv_Exit(void)
; 79.	{
; 80.	    return;
; 81.	}
	RET
	RSEG	BBD_IE
fp:
	DEFS	2
	RSEG	BBS_IE
AsciiFontName:
	DEFB	'ASCII.BIN'
	DEFB	0
FontLibName:
	DEFB	'FONT_TH.$$$'
	DEFB	0
	END