sdrv_puts.s01

MP3 整个 SDK

	NAME	sdrv_puts(16)
	RSEG	BBC_PUTS(0)
	RSEG	IDATA0(0)
	RSEG	CDATA0(0)
	EXTERN	AsciiSelect
	EXTERN	Sdrv_PutChar
	PUBLIC	Sdrv_PutS
	PUBLIC	StrHeight
	EXTERN	region
	EXTERN	?CLZ80L_4_04_L00
	RSEG	BBC_PUTS
Sdrv_PutS:
; 1.	/*
; 2.	********************************************************************************
; 3.	*                       ACTOS
; 4.	*                  ui dirver show picture
; 5.	*
; 6.	*                (c) Copyright 2002-2003, Actions Co,Ld.
; 7.	*                        All Right Reserved
; 8.	*
; 9.	* File   : Sdrv_PutS.c
; 10.	* By     : Rcmai
; 11.	* Version: 1> v1.00     first version     10/17/2003 10:46PM
; 12.	********************************************************************************
; 13.	*/                  
; 14.	#include "display.h"   
; 15.	#include "Drv_S6B33B0A.h"
; 16.	
; 17.	#pragma memory=constseg(BBS_PUTS)
; 18.	#pragma memory=default
; 19.	
; 20.	#pragma memory=dataseg(BBD_PUTS)
; 21.	#pragma memory=default
; 22.	
; 23.	#pragma codeseg(BBC_PUTS)
; 24.	
; 25.	//BYTE lineNum_sav;//行号记录
; 26.	
; 27.	//如果一行都是small ascii则高度为8(默认),如有一行中有一个是汉字或是 large 模式 ascii
; 28.	// 则高度都为 16 
; 29.	BYTE StrHeight = ASCII_SMALL_HEIGHT_DEF;//一行字的高度
; 30.	
; 31.	////*******************************************************************************/
; 32.	///*
; 33.	//** FUNCTION:     Sdrv_PutS
; 34.	//**
; 35.	//** Description:  在屏幕上输出一个字符串，如串的长度超过屏幕，则多出部分不显示
; 36.	//**                   指针停在最后一个能显示的字的下一个字符左上角,碰到回车或
; 37.	//**                   串尾时退出，碰到换行时从下一行开始显示
; 38.	//**  input
; 39.	//**     str: 字符串首址 ; 
; 40.	//**     strlen: 字符串的长度
; 41.	//**
; 42.	//**  output
; 43.	//**     none
; 44.	//********************************************************************************/
; 45.	non_banked char *Sdrv_PutS(const char *str, signed char strlen)
; 46.	{
	PUSH	IY
	PUSH	IX
	LD	IX,0
	ADD	IX,SP
	PUSH	BC
	PUSH	AF
	PUSH	AF
	PUSH	AF
	PUSH	AF
	PUSH	DE
	POP	IY
; 47.	    int code;
; 48.	    char result;
; 49.	    char *lastcharpt;//记录上一个字符的指针        
; 50.	    BYTE lineNum_sav,rowNum_sav;//行号记录
; 51.	
; 52.	    lineNum_sav = region.y;
	LD	A,(region+1)
	LD	(IX-10),A
; 53.	    rowNum_sav = region.x;
	LD	A,(region)
	LD	(IX-9),A
; 54.	/*
; 55.	        //判断要输出的行的高度    
; 56.	    if (AsciiSelect == FONT_TYPE_SMALL)
; 57.	    {
; 58.	        StrHeight = ASCII_SMALL_HEIGHT_DEF;//一行字符的高度
; 59.	    }
; 60.	    else
; 61.	    {
; 62.	        StrHeight = ASCII_LARGE_HEIGHT_DEF;//一行字符的高度
; 63.	    }
; 64.	*/    
; 65.	
; 66.	//  炬力更新为下面的
; 67.	
; 68.	        //判断要输出的行的高度    
; 69.	    if (AsciiSelect == FONT_TYPE_SMALL)
?0000:
; 70.	    {
; 71.	        StrHeight = CHINESE_HEIGHT_DEF1;//一行字符的高度
; 72.	    }
; 73.	    else
?0001:
; 74.	    {
; 75.	        StrHeight = CHINESE_HEIGHT_DEF1;//一行字符的高度
	LD	A,16
	LD	(StrHeight),A
?0002:
?0004:
; 76.	    }
; 77.	
; 78.	
; 79.	
; 80.	    while ( (*str != '\r')      //碰到回车时退出
; 81.	            && (*str != '\0')   //碰到结束符时退出
; 82.	            && (strlen != NULL) )  //碰到字符长度为0时退出      
	LD	A,(IY+0)
	CP	13
	JP	Z,?0003
	XOR	A
	OR	(IY+0)
	JP	Z,?0003
	XOR	A
	OR	(IX-2)
	JP	Z,?0003
?0007:
?0006:
?0005:
; 83.	    {
; 84.	        lastcharpt = str;
	PUSH	IY
	POP	HL
	LD	(IX-6),L
	LD	(IX-5),H
; 85.	        //下面是碰到换行符时要作换行处理
; 86.	        if (*str == '\n')
	LD	A,(IY+0)
	CP	10
	JR	NZ,?0012
?0008:
; 87.	        {
; 88.	                str++;
; 89.	                //region.x = 0;
; 90.	                region.x = rowNum_sav;          
	LD	A,(IX-9)
	LD	(region),A
; 91.	                region.y -= StrHeight;
	LD	HL,region+1
	LD	A,(StrHeight)
	LD	B,A
	LD	A,(HL)
	SUB	B
	LD	(HL),A
; 92.	                lineNum_sav = region.y;//保存当前行顶的y轴坐标
	LD	(IX-10),A
; 93.	                if (AsciiSelect == FONT_TYPE_SMALL)
?0010:
; 94.	                {
; 95.	                        StrHeight = CHINESE_HEIGHT_DEF1;//一行字符的高度
; 96.	                }
; 97.	                else
?0011:
; 98.	                {
; 99.	                        StrHeight = CHINESE_HEIGHT_DEF1;//一行字符的高度
	LD	A,16
	LD	(StrHeight),A
	INC	IY
?0012:
?0009:
; 100.	                }
; 101.	                
; 102.	        }
; 103.	
; 104.	        //汉字和ASCII的不同处理   
; 105.	        if (*str >= FirstSectionCode)
	LD	A,(IY+0)
	CP	161
	JR	C,?0014
?0013:
; 106.	        {//汉字
; 107.	            code = *(int *)str;             
	LD	L,(IY+0)
	LD	(IX-8),L
	LD	H,(IY+1)
	LD	(IX-7),H
; 108.	            str++;//汉字指针要比ASCII多加一,
; 109.	            StrHeight = CHINESE_HEIGHT_DEF1;//把当前行的高度设为汉字的高度
	INC	IY
	JR	?0025
; 110.	        }
; 111.	        else 
?0014:
; 112.	        {//ASCII
; 113.	            code = *str;
	LD	C,(IY+0)
	LD	(IX-8),C
	LD	(IX-7),0
; 114.	            //这里保证ascii码与汉字下对齐
; 115.	           /*
; 116.	            if (AsciiSelect == FONT_TYPE_SMALL)
; 117.	            {                   
; 118.	                                region.y += (StrHeight-ASCII_SMALL_HEIGHT_DEF);
; 119.	                        }
; 120.	                        else
; 121.	                        {
; 122.	                                region.y += (StrHeight-ASCII_LARGE_HEIGHT_DEF);
; 123.	                        }                               
; 124.	           */
; 125.	           StrHeight = CHINESE_HEIGHT_DEF1;//把当前行的高度设为汉字的高度
?0025:
	LD	A,16
	LD	(StrHeight),A
?0015:
; 126.	        }
; 127.	        str++;
; 128.	        result = Sdrv_PutChar(code);
	LD	E,(IX-8)
	LD	D,(IX-7)
	CALL	Sdrv_PutChar
; 129.	        if (!result) //输出字符
	OR	A
	INC	IY
	JR	NZ,?0017
?0016:
; 130.	        {
; 131.	                //当输出区域超出范围时退出
; 132.	            return lastcharpt;//返回上一个字符的指针，因为当前指针已加一了
	LD	L,(IX-6)
	LD	H,(IX-5)
; 133.	        }
	JR	?0022
?0017:
; 134.	        (unsigned char)strlen--;//不理负号直接减(因为0xff时表示显示全部)
	DEC	(IX-2)
; 135.	        region.y = lineNum_sav;//恢复当前行顶y的轴坐标
	LD	A,(IX-10)
	LD	(region+1),A
; 136.	        //暂时不让某些地方显示过长
; 137.	        if ( ((unsigned char)strlen > 200) && (region.x > 188) )
	LD	A,200
	CP	(IX-2)
	JP	NC,?0002
	LD	A,(region)
	LD	B,A
	LD	A,188
	CP	B
	JP	NC,?0002
?0021:
?0020:
?0018:
; 138.	        { 
; 139.	            break;
?0019:
?0003:
; 140.	        }
; 141.	    }
; 142.	    return str;
	PUSH	IY
	POP	HL
; 143.	}
?0022:
	LD	SP,IX
	POP	IX
	POP	IY
	RET
	RSEG	IDATA0
StrHeight:
	DEFS	1
	RSEG	CDATA0
	DEFB	8
	END