guiial.ps

一款SmartPhone的驱动代码

	.def	ForeGround,	val	32,	scl	8,	type	0xe,	endef
	.def	BackGround,	val	36,	scl	8,	type	0xe,	endef
	.def	DoClip,	val	40,	scl	8,	type	0x4,	endef
	.def	ClipMinX,	val	44,	scl	8,	type	0x4,	endef
	.def	ClipMinY,	val	48,	scl	8,	type	0x4,	endef
	.def	ClipMaxX,	val	52,	scl	8,	type	0x4,	endef
	.def	ClipMaxY,	val	56,	scl	8,	type	0x4,	endef
	.def	ncolors,	val	60,	scl	8,	type	0x4,	endef
	.def	flags,	val	64,	scl	8,	type	0x4,	endef
	.def	addr,	val	68,	scl	8,	type	0x11,	endef
	.def	Open,	val	72,	scl	8,	tag	T_GAL_GraphicContext,	size	164,	type	0x198,	endef
	.def	Close,	val	76,	scl	8,	type	0x91,	endef
	.def	SetPalette,	val	80,	scl	8,	type	0x91,	endef
	.def	GetPalette,	val	84,	scl	8,	type	0x91,	endef
	.def	AllocateMemGC,	val	88,	scl	8,	tag	T_GAL_GraphicContext,	size	164,	type	0x198,	endef
	.def	MapMemGC,	val	92,	scl	8,	type	0x94,	endef
	.def	FreeMemGC,	val	96,	scl	8,	type	0x91,	endef
	.def	ClipPoint,	val	100,	scl	8,	type	0x94,	endef
	.def	FillRect,	val	104,	scl	8,	type	0x91,	endef
	.def	DrawPixel,	val	108,	scl	8,	type	0x91,	endef
	.def	ReadPixel,	val	112,	scl	8,	type	0x9e,	endef
	.def	DrawHLine,	val	116,	scl	8,	type	0x91,	endef
	.def	PutHLine,	val	120,	scl	8,	type	0x91,	endef
	.def	GetHLine,	val	124,	scl	8,	type	0x91,	endef
	.def	DrawVLine,	val	128,	scl	8,	type	0x91,	endef
	.def	PutVLine,	val	132,	scl	8,	type	0x91,	endef
	.def	GetVLine,	val	136,	scl	8,	type	0x91,	endef
	.def	Blit,	val	140,	scl	8,	type	0x91,	endef
	.def	PutBox,	val	144,	scl	8,	type	0x91,	endef
	.def	GetBox,	val	148,	scl	8,	type	0x91,	endef
	.def	PutBoxMask,	val	152,	scl	8,	type	0x91,	endef
	.def	CopyBox,	val	156,	scl	8,	type	0x91,	endef
	.def	MapColor,	val	160,	scl	8,	type	0x9e,	endef
	.def	T_GAL_GraphicContext,	val	164,	scl	102,	tag	T_GAL_GraphicContext,	size	164,	endef
	.def	T_GAL_GraphicContext,	scl	13,	tag	T_GAL_GraphicContext,	size	164,	type	0x8,	endef
	.def	T_GAL_Output,	scl	10,	type	0x8,	size	212,	endef
	.def	phy_pgc,	val	0,	scl	8,	tag	T_GAL_GraphicContext,	size	164,	type	0x18,	endef
	.def	bytes_per_phypixel,	val	4,	scl	8,	type	0x4,	endef
	.def	bits_per_phypixel,	val	8,	scl	8,	type	0x4,	endef
	.def	width_phygc,	val	12,	scl	8,	type	0x4,	endef
	.def	height_phygc,	val	16,	scl	8,	type	0x4,	endef
	.def	colors_phygc,	val	20,	scl	8,	type	0x4,	endef
	.def	grayscale_screen,	val	24,	scl	8,	type	0xe,	endef
	.def	BytesPerPixel,	val	28,	scl	8,	type	0x94,	endef
	.def	BitsPerPixel,	val	32,	scl	8,	type	0x94,	endef
	.def	width,	val	36,	scl	8,	type	0x94,	endef
	.def	height,	val	40,	scl	8,	type	0x94,	endef
	.def	colors,	val	44,	scl	8,	type	0x94,	endef
	.def	AllocateGc,	val	48,	scl	8,	type	0x94,	endef
	.def	FreeGc,	val	52,	scl	8,	type	0x91,	endef
	.def	SetGc,	val	56,	scl	8,	type	0x91,	endef
	.def	EnableClipping,	val	60,	scl	8,	type	0x91,	endef
	.def	DisableClipping,	val	64,	scl	8,	type	0x91,	endef
	.def	SetClipping,	val	68,	scl	8,	type	0x94,	endef
	.def	GetClipping,	val	72,	scl	8,	type	0x94,	endef
	.def	GetBgColor,	val	76,	scl	8,	type	0x94,	endef
	.def	SetBgColor,	val	80,	scl	8,	type	0x94,	endef
	.def	GetFgColor,	val	84,	scl	8,	type	0x94,	endef
	.def	SetFgColor,	val	88,	scl	8,	type	0x94,	endef
	.def	MapColor,	val	92,	scl	8,	type	0x9e,	endef
	.def	UnmapPixel,	val	96,	scl	8,	type	0x94,	endef
	.def	PackColors,	val	100,	scl	8,	type	0x94,	endef
	.def	UnpackPixels,	val	104,	scl	8,	type	0x94,	endef
	.def	GetPalette,	val	108,	scl	8,	type	0x94,	endef
	.def	SetPalette,	val	112,	scl	8,	type	0x94,	endef
	.def	SetColorFulPalette,	val	116,	scl	8,	type	0x94,	endef
	.def	BoxSize,	val	120,	scl	8,	type	0x9e,	endef
	.def	FillBox,	val	124,	scl	8,	type	0x94,	endef
	.def	PutBox,	val	128,	scl	8,	type	0x94,	endef
	.def	GetBox,	val	132,	scl	8,	type	0x94,	endef
	.def	PutBoxMask,	val	136,	scl	8,	type	0x94,	endef
	.def	ScaleBox,	val	140,	scl	8,	type	0x94,	endef
	.def	CopyBox,	val	144,	scl	8,	type	0x94,	endef
	.def	CrossBlit,	val	148,	scl	8,	type	0x94,	endef
	.def	DrawHLine,	val	152,	scl	8,	type	0x94,	endef
	.def	PutHLine,	val	156,	scl	8,	type	0x94,	endef
	.def	GetHLine,	val	160,	scl	8,	type	0x94,	endef
	.def	DrawVLine,	val	164,	scl	8,	type	0x94,	endef
	.def	PutVLine,	val	168,	scl	8,	type	0x94,	endef
	.def	GetVLine,	val	172,	scl	8,	type	0x94,	endef
	.def	DrawPixel,	val	176,	scl	8,	type	0x94,	endef
	.def	GetPixel,	val	180,	scl	8,	type	0x94,	endef
	.def	circle,	val	184,	scl	8,	type	0x94,	endef
	.def	line,	val	188,	scl	8,	type	0x94,	endef
	.def	rectangle,	val	192,	scl	8,	type	0x94,	endef
	.def	ellipse,	val	196,	scl	8,	type	0x94,	endef
	.def	ellipsearc,	val	200,	scl	8,	type	0x94,	endef
	.def	fillellipsearc,	val	204,	scl	8,	type	0x94,	endef
	.def	arc,	val	208,	scl	8,	type	0x94,	endef
	.def	T_GAL_Output,	val	212,	scl	102,	tag	T_GAL_Output,	size	212,	endef
	.def	T_GAL_Output,	scl	13,	tag	T_GAL_Output,	size	212,	type	0x8,	endef
	.def	T_GAL_ScreenDevice,	scl	10,	type	0x8,	size	84,	endef
	.def	xRes,	val	0,	scl	8,	type	0x4,	endef
	.def	yRes,	val	4,	scl	8,	type	0x4,	endef
	.def	bpp,	val	8,	scl	8,	type	0x4,	endef
	.def	planes,	val	12,	scl	8,	type	0x4,	endef
	.def	InitScrDev,	val	16,	scl	8,	type	0x191,	endef
	.def	SetPalette,	val	20,	scl	8,	type	0x91,	endef
	.def	GetPalette,	val	24,	scl	8,	type	0x91,	endef
	.def	DrawPixel,	val	28,	scl	8,	type	0x91,	endef
	.def	ReadPixel,	val	32,	scl	8,	type	0x9e,	endef
	.def	DrawHLine,	val	36,	scl	8,	type	0x91,	endef
	.def	PutHLine,	val	40,	scl	8,	type	0x91,	endef
	.def	GetHLine,	val	44,	scl	8,	type	0x91,	endef
	.def	DrawVLine,	val	48,	scl	8,	type	0x91,	endef
	.def	PutVLine,	val	52,	scl	8,	type	0x91,	endef
	.def	GetVLine,	val	56,	scl	8,	type	0x91,	endef
	.def	Blit,	val	60,	scl	8,	type	0x91,	endef
	.def	PutBox,	val	64,	scl	8,	type	0x91,	endef
	.def	GetBox,	val	68,	scl	8,	type	0x91,	endef
	.def	PutBoxMask,	val	72,	scl	8,	type	0x91,	endef
	.def	CopyBox,	val	76,	scl	8,	type	0x91,	endef
	.def	MapColor,	val	80,	scl	8,	type	0x9e,	endef
	.def	T_GAL_ScreenDevice,	val	84,	scl	102,	tag	T_GAL_ScreenDevice,	size	84,	endef
	.def	T_GAL_ScreenDevice,	scl	13,	tag	T_GAL_ScreenDevice,	size	84,	type	0x8,	endef
	.def	T_IAL_Input,	scl	10,	type	0x8,	size	56,	endef
	.def	UpdateMouse,	val	0,	scl	8,	type	0x94,	endef
	.def	GetMouseX,	val	4,	scl	8,	type	0x94,	endef
	.def	GetMouseY,	val	8,	scl	8,	type	0x94,	endef
	.def	SetMouseXY,	val	12,	scl	8,	type	0x91,	endef
	.def	GetMouseButton,	val	16,	scl	8,	type	0x94,	endef
	.def	SetMouseRange,	val	20,	scl	8,	type	0x91,	endef
	.def	SuspendMouse,	val	24,	scl	8,	type	0x91,	endef
	.def	ResumeMouse,	val	28,	scl	8,	type	0x91,	endef
	.def	UpdateKeyboard,	val	32,	scl	8,	type	0x94,	endef
	.def	GetKeyboardState,	val	36,	scl	8,	type	0x192,	endef
	.def	SuspendKeyboard,	val	40,	scl	8,	type	0x91,	endef
	.def	ResumeKeyboard,	val	44,	scl	8,	type	0x91,	endef
	.def	SetLeds,	val	48,	scl	8,	type	0x91,	endef
	.def	WaitEvent,	val	52,	scl	8,	type	0x94,	endef
	.def	T_IAL_Input,	val	56,	scl	102,	tag	T_IAL_Input,	size	56,	endef
	.def	T_IAL_Input,	scl	13,	tag	T_IAL_Input,	size	56,	type	0x8,	endef
	.def	B,	scl	13,	type	0x2,	endef
	.def	H,	scl	13,	type	0x3,	endef
	.def	W,	scl	13,	type	0x5,	endef
	.def	UB,	scl	13,	type	0xc,	endef
	.def	UH,	scl	13,	type	0xd,	endef
	.def	UW,	scl	13,	type	0xf,	endef
	.def	VW,	scl	13,	type	0x5,	endef
	.def	VH,	scl	13,	type	0x3,	endef
	.def	VB,	scl	13,	type	0x2,	endef
	.def	VP,	scl	13,	type	0x11,	endef
	.def	FP,	scl	13,	type	0x91,	endef
	.def	INT,	scl	13,	type	0x4,	endef
	.def	UINT,	scl	13,	type	0xe,	endef
	.def	BOOL,	scl	13,	type	0x3,	endef
	.def	FN,	scl	13,	type	0x3,	endef
	.def	ID,	scl	13,	type	0x4,	endef
	.def	BOOL_ID,	scl	13,	type	0x4,	endef
	.def	HNO,	scl	13,	type	0x4,	endef
	.def	RNO,	scl	13,	type	0x4,	endef
	.def	NODE,	scl	13,	type	0x3,	endef
	.def	ATR,	scl	13,	type	0xe,	endef
	.def	ER,	scl	13,	type	0x4,	endef
	.def	PRI,	scl	13,	type	0x4,	endef
	.def	TMO,	scl	13,	type	0x4,	endef
	.def	DLYTIME,	scl	13,	type	0x4,	endef
	.def	t_msg,	scl	10,	type	0x8,	size	16,	endef
	.def	pNxt,	val	0,	scl	8,	tag	t_msg,	size	16,	type	0x18,	endef
	.def	msgcont,	val	4,	scl	8,	dim	10,	size	10,	type	0x32,	endef
	.def	t_msg,	val	16,	scl	102,	tag	t_msg,	size	16,	endef
	.def	T_MSG,	scl	13,	tag	t_msg,	size	16,	type	0x8,	endef
	.def	t_systime,	scl	10,	type	0x8,	size	8,	endef
	.def	utime,	val	0,	scl	8,	type	0x3,	endef
	.def	ltime,	val	4,	scl	8,	type	0xf,	endef
	.def	t_systime,	val	8,	scl	102,	tag	t_systime,	size	8,	endef
	.def	SYSTIME,	scl	13,	tag	t_systime,	size	8,	type	0x8,	endef
	.def	t_ver,	scl	10,	type	0x8,	size	20,	endef
	.def	maker,	val	0,	scl	8,	type	0xd,	endef
	.def	id,	val	2,	scl	8,	type	0xd,	endef
	.def	spver,	val	4,	scl	8,	type	0xd,	endef
	.def	prver,	val	6,	scl	8,	type	0xd,	endef
	.def	prno,	val	8,	scl	8,	dim	4,	size	8,	type	0x3d,	endef
	.def	cpu,	val	16,	scl	8,	type	0xd,	endef
	.def	var,	val	18,	scl	8,	type	0xd,	endef
	.def	t_ver,	val	20,	scl	102,	tag	t_ver,	size	20,	endef
	.def	T_VER,	scl	13,	tag	t_ver,	size	20,	type	0x8,	endef
	.align	1
	.def	UpdateMouse,	val	UpdateMouse,	scl	3,	type	0x24,	endef

	.loc	56
	.def	ent,	scl	101,	type	0x0,	endef
UpdateMouse:
;	.frame	%sp,16,$31		# vars= 12, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0
	xsub	%sp,%sp,12

	.loc	57
	.def	begin,	scl	100,	type	0x0,	endef
	.def	tempx,	val	4,	scl	1,	type	0x4,	endef
	.def	tempy,	val	8,	scl	1,	type	0x4,	endef
	.def	TempState,	val	0,	scl	1,	type	0x4,	endef

	.loc	60
	ld.w	%r12,%sp
	xadd	%r13,%sp,4
	xadd	%r14,%sp,8
	xcall	fnIHL_ReadMouse
	cmp	%r10,0x0
	xjreq	__L2

	.loc	62
	xld.w	%r10,[%sp]
	xld.w	[wButtons],%r10

	.loc	63
	xld.w	%r11,[%sp+4]
	xld.w	[wXPos],%r11

	.loc	64
	xld.w	%r10,[%sp+8]
	xld.w	[wYPos],%r10

	.loc	65
	xld.w	%r10,[wMinX]
	cmp	%r11,%r10
	xjrge	__L3

	.loc	66
	xld.w	[wXPos],%r10
__L3:

	.loc	67
	xld.w	%r10,[wXPos]
	xld.w	%r11,[wMaxX]
	cmp	%r10,%r11
	xjrle	__L4

	.loc	68
	xld.w	[wXPos],%r11
__L4:

	.loc	69
	xld.w	%r10,[wYPos]
	xld.w	%r11,[wMinY]
	cmp	%r10,%r11
	xjrge	__L5

	.loc	70
	xld.w	[wYPos],%r11
__L5:

	.loc	71
	xld.w	%r10,[wYPos]
	xld.w	%r11,[wMaxY]
	cmp	%r10,%r11
	xjrle	__L6

	.loc	72
	xld.w	[wYPos],%r11
__L6:

	.loc	73
	xld.w	%r10,0x00000001		; 1
	xjp	__L8
__L2:

	.loc	77
	ld.w	%r10,0x0
__L8:

	.loc	80
	.def	bend,	scl	110,	type	0x0,	endef
	xadd	%sp,%sp,12
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	GetMouseX,	val	GetMouseX,	scl	3,	type	0x24,	endef

	.loc	98
	.def	ent,	scl	101,	type	0x0,	endef
GetMouseX:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0

	.loc	99
	xld.w	%r10,[wXPos]

	.loc	100
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	GetMouseY,	val	GetMouseY,	scl	3,	type	0x24,	endef

	.loc	118
	.def	ent,	scl	101,	type	0x0,	endef
GetMouseY:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0

	.loc	119
	xld.w	%r10,[wYPos]

	.loc	120
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	SetMouseXY,	val	SetMouseXY,	scl	3,	type	0x21,	endef

	.loc	140
	.def	ent,	scl	101,	type	0x0,	endef
SetMouseXY:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0
	.def	NewX,	val	12,	scl	17,	type	0x4,	endef
	.def	NewY,	val	13,	scl	17,	type	0x4,	endef

	.loc	141
	xld.w	%r10,[wMinX]
	cmp	%r12,%r10
	xjrge	__L12

	.loc	142
	ld.w	%r12,%r10
__L12:

	.loc	143
	xld.w	%r10,[wMaxX]
	cmp	%r12,%r10
	xjrle	__L13

	.loc	144
	ld.w	%r12,%r10
__L13:

	.loc	145
	xld.w	%r10,[wMinY]
	cmp	%r13,%r10
	xjrge	__L14

	.loc	146
	ld.w	%r13,%r10
__L14:

	.loc	147
	xld.w	%r10,[wMaxY]
	cmp	%r13,%r10
	xjrle	__L15

	.loc	148
	ld.w	%r13,%r10
__L15:

	.loc	149
	xld.w	%r10,[wXPos]
	cmp	%r12,%r10
	xjrne	__L16
	xld.w	%r10,[wYPos]
	cmp	%r13,%r10
	xjreq	__L11
__L16:

	.loc	151
	xld.w	[wXPos],%r12

	.loc	152
	xld.w	[wYPos],%r13

	.loc	153
__L11:
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	GetMouseButton,	val	GetMouseButton,	scl	3,	type	0x24,	endef

	.loc	171
	.def	ent,	scl	101,	type	0x0,	endef
GetMouseButton:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0

	.loc	172
	xld.w	%r10,[wButtons]

	.loc	173
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	SetMouseRange,	val	SetMouseRange,	scl	3,	type	0x21,	endef

	.loc	200
	.def	ent,	scl	101,	type	0x0,	endef
SetMouseRange:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0
	.def	NewMinX,	val	12,	scl	17,	type	0x4,	endef
	.def	NewMinY,	val	13,	scl	17,	type	0x4,	endef
	.def	NewMaxX,	val	14,	scl	17,	type	0x4,	endef
	.def	NewMaxY,	val	15,	scl	17,	type	0x4,	endef

	.loc	201
	xld.w	[wMinX],%r12

	.loc	202
	xld.w	[wMinY],%r13

	.loc	203
	xld.w	[wMaxX],%r14

	.loc	204
	xld.w	[wMaxY],%r15

	.loc	205
	add	%r12,%r14
	ld.w	%r10,%r12
	xsrl	%r10,31