guiihl.ms

一款SmartPhone的驱动代码

	ext	0x1		; 	xcmp	%r10,117
	cmp	%r10,0x35
	jrugt	__LX3		; 	xjrugt	__L3

	.loc	197
	ext	IsPenDown+0x0@h	; 	xld.w	%r10,[IsPenDown]
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	%r10,[%r9]
	cmp	%r10,0x0
	jreq	__LX4		; 	xjreq	__L4
	ld.uh	%r11,[%sp+0x1]	; 	xld.uh	%r11,[%sp+2]
	ext	xBefore.4+0x0@h	; 	xld.w	%r10,[xBefore.4]
	ext	xBefore.4+0x0@m
	ld.w	%r9,xBefore.4+0x0@l
	ld.w	%r10,[%r9]
	cmp	%r10,%r11
	jrne	__LX4		; 	xjrne	__L4
	ld.uh	%r11,[%sp+0x0]	; 	xld.uh	%r11,[%sp]
	ext	yBefore.5+0x0@h	; 	xld.w	%r10,[yBefore.5]
	ext	yBefore.5+0x0@m
	ld.w	%r9,yBefore.5+0x0@l
	ld.w	%r10,[%r9]
	cmp	%r10,%r11
	jreq	__LX5		; 	xjreq	__L5
__LX4:				; __L4:

	.loc	200
	ld.w	%r10,0x4	; 	xld.w	%r10,0x00000004		; 4
	ld.w	[%r2],%r10	; 	xld.w	[%r2],%r10

	.loc	201
	ld.uh	%r10,[%sp+0x1]	; 	xld.uh	%r10,[%sp+2]
	ld.w	[%r0],%r10	; 	xld.w	[%r0],%r10

	.loc	202
	ld.uh	%r10,[%sp+0x0]	; 	xld.uh	%r10,[%sp]
	ld.w	[%r1],%r10	; 	xld.w	[%r1],%r10

	.loc	203
	ld.w	%r10,[%r0]	; 	xld.w	%r10,[%r0]
	ext	xBefore.4+0x0@h	; 	xld.w	[xBefore.4],%r10
	ext	xBefore.4+0x0@m
	ld.w	%r9,xBefore.4+0x0@l
	ld.w	[%r9],%r10

	.loc	204
	ld.w	%r10,[%r1]	; 	xld.w	%r10,[%r1]
	ext	yBefore.5+0x0@h	; 	xld.w	[yBefore.5],%r10
	ext	yBefore.5+0x0@m
	ld.w	%r9,yBefore.5+0x0@l
	ld.w	[%r9],%r10

	.loc	205
	ld.w	%r10,0x1	; 	xld.w	%r10,0x00000001		; 1
	ext	IsPenDown+0x0@h	; 	xld.w	[IsPenDown],%r10
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	[%r9],%r10

	.loc	206
	ld.w	%r15,0x0
	ext	IsErrorDownData.6+0x0@h	; 	xld.w	[IsErrorDownData.6],%r15
	ext	IsErrorDownData.6+0x0@m
	ld.w	%r9,IsErrorDownData.6+0x0@l
	ld.w	[%r9],%r15

	.loc	207
	jp	__LX9		; 	xjp	__L9
__LX3:				; __L3:

	.loc	210
	ld.uh	%r10,[%sp+0x0]	; 	xld.uh	%r10,[%sp]
	sub	%r10,0x2	; 	xsub	%r10,%r10,2
	ld.uh	%r10,%r10
	ext	0x2		; 	xcmp	%r10,157
	cmp	%r10,0x1d
	jrugt	__LX6		; 	xjrugt	__L6
	ld.uh	%r10,[%sp+0x1]	; 	xld.uh	%r10,[%sp+2]
	sub	%r10,0x2	; 	xsub	%r10,%r10,2
	ld.uh	%r10,%r10
	ext	0x1		; 	xcmp	%r10,117
	cmp	%r10,0x35
	jrule	__LX5		; 	xjrule	__L5
__LX6:				; __L6:

	.loc	212
	ext	IsPenDown+0x0@h	; 	xld.w	%r11,[IsPenDown]
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	%r11,[%r9]
	cmp	%r11,0x0
	jrne	__LX7		; 	xjrne	__L7

	.loc	214
	ld.w	%r10,0x1	; 	xld.w	%r10,0x00000001		; 1
	ext	IsPenDown+0x0@h	; 	xld.w	[IsPenDown],%r10
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	[%r9],%r10

	.loc	215
	ext	IsErrorDownData.6+0x0@h	; 	xld.w	[IsErrorDownData.6],%r10
	ext	IsErrorDownData.6+0x0@m
	ld.w	%r9,IsErrorDownData.6+0x0@l
	ld.w	[%r9],%r10

	.loc	216
	jp	__LX5		; 	xjp	__L5
__LX7:				; __L7:

	.loc	219
	ext	IsErrorDownData.6+0x0@h	; 	xld.w	%r10,[IsErrorDownData.6]
	ext	IsErrorDownData.6+0x0@m
	ld.w	%r9,IsErrorDownData.6+0x0@l
	ld.w	%r10,[%r9]
	cmp	%r10,0x0
	jrne	__LX8		; 	xjrne	__L8

	.loc	226
	ld.w	%r15,0x0
	ld.w	[%r2],%r15	; 	xld.w	[%r2],%r15

	.loc	227
	ext	xBefore.4+0x0@h	; 	xld.w	%r10,[xBefore.4]
	ext	xBefore.4+0x0@m
	ld.w	%r9,xBefore.4+0x0@l
	ld.w	%r10,[%r9]
	ld.w	[%r0],%r10	; 	xld.w	[%r0],%r10

	.loc	228
	ext	yBefore.5+0x0@h	; 	xld.w	%r10,[yBefore.5]
	ext	yBefore.5+0x0@m
	ld.w	%r9,yBefore.5+0x0@l
	ld.w	%r10,[%r9]
	ld.w	[%r1],%r10	; 	xld.w	[%r1],%r10

	.loc	229
	ext	xBefore.4+0x0@h	; 	xld.w	[xBefore.4],%r15
	ext	xBefore.4+0x0@m
	ld.w	%r9,xBefore.4+0x0@l
	ld.w	[%r9],%r15

	.loc	230
	ext	yBefore.5+0x0@h	; 	xld.w	[yBefore.5],%r15
	ext	yBefore.5+0x0@m
	ld.w	%r9,yBefore.5+0x0@l
	ld.w	[%r9],%r15

	.loc	231
	ext	IsPenDown+0x0@h	; 	xld.w	[IsPenDown],%r15
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	[%r9],%r15

	.loc	232
	ext	enable_tp_int@rh	; 	xcall	enable_tp_int
	ext	enable_tp_int@rm
	call	enable_tp_int@rl

	.loc	233
	ld.w	%r10,0x1	; 	xld.w	%r10,0x00000001		; 1
	jp	__LX9		; 	xjp	__L9
__LX8:				; __L8:

	.loc	221
	ld.w	%r15,0x0
	ext	IsPenDown+0x0@h	; 	xld.w	[IsPenDown],%r15
	ext	IsPenDown+0x0@m
	ld.w	%r9,IsPenDown+0x0@l
	ld.w	[%r9],%r15

	.loc	222
	ext	enable_tp_int@rh	; 	xcall	enable_tp_int
	ext	enable_tp_int@rm
	call	enable_tp_int@rl

	.loc	223
__LX5:				; __L5:

	.loc	236
	ld.w	%r10,0x0
__LX9:				; __L9:

	.loc	237
	.def	bend,	scl	110,	type	0x0,	endef
	add	%sp,0x1		; 	xadd	%sp,%sp,4
	popn	%r2
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	fnIHL_InitKeyboard,	val	fnIHL_InitKeyboard,	scl	2,	type	0x21,	endef
	.global	fnIHL_InitKeyboard

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

	.loc	257
	ext	init_key@rh	; 	xcall	init_key
	ext	init_key@rm
	call	init_key@rl

	.loc	258
	ld.w	%r12,0x0
	ext	bKeyStatus+0x0@h	; 	xld.h	[bKeyStatus],%r12
	ext	bKeyStatus+0x0@m
	ld.w	%r9,bKeyStatus+0x0@l
	ld.h	[%r9],%r12

	.loc	260
	ext	0x0		; 	xld.w	%r11,0x00040270		; 262768
	ext	0x1009
	ld.w	%r11,0x30
	bset	[%r11],0x4	; 	xbset	[%r11],0x4

	.loc	262
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	fnIHL_ReadKeyboard,	val	fnIHL_ReadKeyboard,	scl	2,	type	0x24,	endef
	.global	fnIHL_ReadKeyboard

	.loc	284
	.def	ent,	scl	101,	type	0x0,	endef
fnIHL_ReadKeyboard:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0
	.def	ScanCode,	val	12,	scl	17,	type	0x12,	endef

	.loc	286
	ext	k5_data+0x0@h	; 	xld.ub	%r10,[k5_data]
	ext	k5_data+0x0@m
	ld.w	%r9,k5_data+0x0@l
	ld.ub	%r10,[%r9]
	ld.b	[%r12],%r10	; 	xld.b	[%r12],%r10

	.loc	287
	ext	bKeyStatus+0x0@h	; 	xld.uh	%r10,[bKeyStatus]
	ext	bKeyStatus+0x0@m
	ld.w	%r9,bKeyStatus+0x0@l
	ld.uh	%r10,[%r9]
	ext	IsKeyDown+0x0@h	; 	xld.h	[IsKeyDown],%r10
	ext	IsKeyDown+0x0@m
	ld.w	%r9,IsKeyDown+0x0@l
	ld.h	[%r9],%r10

	.loc	289
	ext	enable_key@rh	; 	xcall	enable_key
	ext	enable_key@rm
	call	enable_key@rl

	.loc	291
	ld.w	%r10,0x1	; 	xld.w	%r10,0x00000001		; 1

	.loc	292
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.align	1
	.def	fnIHL_WriteKeyboard,	val	fnIHL_WriteKeyboard,	scl	2,	type	0x21,	endef
	.global	fnIHL_WriteKeyboard

	.loc	311
	.def	ent,	scl	101,	type	0x0,	endef
fnIHL_WriteKeyboard:
;	.frame	%sp,4,$31		# vars= 0, regs= 1/0, args= 0, extra= 0
;	.mask	0x80000000,-4
;	.fmask	0x00000000,0
	.def	cmd,	val	12,	scl	17,	type	0xe,	endef

	.loc	312
	ret
	.def	end,	scl	111,	type	0x0,	endef
	.def	x_avrg,	val	x_avrg,	scl	2,	type	0xd,	endef

	.comm	x_avrg 2
	.def	y_avrg,	val	y_avrg,	scl	2,	type	0xd,	endef

	.comm	y_avrg 2
	.def	x_add,	val	x_add,	scl	2,	dim	6,	size	12,	type	0x3d,	endef

	.comm	x_add 12
	.def	y_add,	val	y_add,	scl	2,	dim	6,	size	12,	type	0x3d,	endef

	.comm	y_add 12
	.def	x_step,	val	x_step,	scl	2,	type	0x6,	endef

	.comm	x_step 4
	.def	y_step,	val	y_step,	scl	2,	type	0x6,	endef

	.comm	y_step 4
	.def	x,	val	x,	scl	2,	type	0xc,	endef

	.comm	x 1
	.def	y,	val	y,	scl	2,	type	0xc,	endef

	.comm	y 1


	.endfile