s6b0108.a30

电表解决方案概要power_meter_r8c2g_source_code

	bclr	5,_p0_addr
	._line	235
	bset	1,_p6_addr
	._line	236
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 236
	jsr	$Delay
	._line	237
	mov.b	#3eH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 237
	jsr	$Write_0108_Reg
	._line	238
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 238
	jsr	$Write_0108_Reg
	._line	239
	mov.b	#0b8H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 239
	jsr	$Write_0108_Reg
	._line	240
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 240
	jsr	$Write_0108_Reg
	._line	241
	mov.b	#3fH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 241
	jsr	$Write_0108_Reg
	._line	242
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 242
	jsr	$Delay
	._line	243
	bset	5,_p0_addr
	._line	244
	bclr	1,_p6_addr
	._line	245
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 245
	jsr	$Delay
	._line	246
	mov.b	#3eH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 246
	jsr	$Write_0108_Reg
	._line	247
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 247
	jsr	$Write_0108_Reg
	._line	248
	mov.b	#0b8H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 248
	jsr	$Write_0108_Reg
	._line	249
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 249
	jsr	$Write_0108_Reg
	._line	250
	mov.b	#3fH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 250
	jsr	$Write_0108_Reg
	._eblock
	._line	252
	rts	
E8:
M8:
	._efunc	M8
	._inspect	'F', 'd', "Init_0108", "_Init_0108", 'G', 223, 0, 00h, 0
	._inspect	'F', 't', "Init_0108", 'G', 269
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 224, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 225, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 226, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 227, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 228, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 229, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 230, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 231, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 232, 0, 00h, 0
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 233, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 234, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 235, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 236, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 237, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 238, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 239, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 240, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 241, 0, 00h, 0
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 242, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 243, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 244, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 245, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 246, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 247, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 248, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 249, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 250, 0, 00h, 0
	._inspect	'F', 'e', "Init_0108", "_Init_0108", 'G', 0, 0


;## #	FUNCTION Clr_Screen_0
;## #	FRAME	AUTO	(       n)	size  2,	offset -4
;## #	FRAME	AUTO	(       j)	size  1,	offset -2
;## #	FRAME	AUTO	(       k)	size  1,	offset -1
;## #	ARG Size(0)	Auto Size(4)	Context Size(5)

	._type	270,'v'
	._type	271,'x',270,0
	._func	'Clr_Screen_0','G',4,271,_Clr_Screen_0,0
	._inspect	'F', 's', "Clr_Screen_0", "_Clr_Screen_0", 'G', 9
	.align
	._line	263
	.glb	_Clr_Screen_0
_Clr_Screen_0:
	enter	#04H
	._block
	._var	'j','A',3,-2
	._var	'k','A',3,-1
	._var	'n','A',18,-4
	._line	265
	mov.w	#0000H,-4[FB]	;  n 
	._line	267
	bclr	5,_p0_addr
	._line	268
	bclr	1,_p6_addr
	._line	269
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 269
	jsr	$Delay
	._line	270
	mov.b	#00H,-1[FB]	;  k 
L13:
	._line	270
	cmp.b	#08H,-1[FB]	;  k 
	jgeu	L17
	._line	271
	._block
	._line	272
	mov.b	-1[FB],A0	;  k 
	add.w	#00b8H,A0
	mov.b	A0,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 272
	jsr	$Write_0108_Reg
	._line	273
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 273
	jsr	$Write_0108_Reg
	._line	274
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 274
	jsr	$Write_0108_Reg
	._line	276
	mov.b	#00H,-2[FB]	;  j 
L25:
	._line	276
	cmp.b	#40H,-2[FB]	;  j 
	jgeu	L29
	._line	277
	._block
	._line	278
	mov.b	#00H,R1L
	._inspect	'S', 'c', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 278
	jsr	$Write_0108_Data
	._line	279
	add.w	#0001H,-4[FB]	;  n 
	._eblock
	inc.b	-2[FB]	;  j 
	jmp	L25
L29:
	inc.b	-1[FB]	;  k 
	jmp	L13
L17:
	._eblock
	._eblock
	._line	283
	exitd	
E9:
M9:
	._efunc	M9
	._inspect	'F', 'd', "Clr_Screen_0", "_Clr_Screen_0", 'G', 263, 0, 00h, 0
	._inspect	'F', 't', "Clr_Screen_0", 'G', 271
	._inspect	'V', 'r', "p0_addr", 'G', 267, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 268, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 269, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 272, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 273, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 274, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Data", "$Write_0108_Data", 'G', 278, 0, 00h, 0
	._inspect	'F', 'e', "Clr_Screen_0", "_Clr_Screen_0", 'G', 0, 0


;## #	FUNCTION Clr_Screen_1
;## #	FRAME	AUTO	(       n)	size  2,	offset -4
;## #	FRAME	AUTO	(       j)	size  1,	offset -2
;## #	FRAME	AUTO	(       k)	size  1,	offset -1
;## #	ARG Size(0)	Auto Size(4)	Context Size(5)

	._type	272,'v'
	._type	273,'x',272,0
	._func	'Clr_Screen_1','G',4,273,_Clr_Screen_1,0
	._inspect	'F', 's', "Clr_Screen_1", "_Clr_Screen_1", 'G', 9
	.align
	._line	294
	.glb	_Clr_Screen_1
_Clr_Screen_1:
	enter	#04H
	._block
	._var	'j','A',3,-2
	._var	'k','A',3,-1
	._var	'n','A',18,-4
	._line	296
	mov.w	#0000H,-4[FB]	;  n 
	._line	298
	bclr	5,_p0_addr
	._line	299
	bset	1,_p6_addr
	._line	300
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 300
	jsr	$Delay
	._line	301
	mov.b	#00H,-1[FB]	;  k 
L41:
	._line	301
	cmp.b	#08H,-1[FB]	;  k 
	jgeu	L45
	._line	302
	._block
	._line	303
	mov.b	-1[FB],A0	;  k 
	add.w	#00b8H,A0
	mov.b	A0,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 303
	jsr	$Write_0108_Reg
	._line	304
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 304
	jsr	$Write_0108_Reg
	._line	305
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 305
	jsr	$Write_0108_Reg
	._line	307
	mov.b	#00H,-2[FB]	;  j 
L53:
	._line	307
	cmp.b	#40H,-2[FB]	;  j 
	jgeu	L57
	._line	308
	._block
	._line	309
	mov.b	#00H,R1L
	._inspect	'S', 'c', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 309
	jsr	$Write_0108_Data
	._line	310
	add.w	#0001H,-4[FB]	;  n 
	._eblock
	inc.b	-2[FB]	;  j 
	jmp	L53
L57:
	inc.b	-1[FB]	;  k 
	jmp	L41
L45:
	._eblock
	._eblock
	._line	314
	exitd	
E10:
M10:
	._efunc	M10
	._inspect	'F', 'd', "Clr_Screen_1", "_Clr_Screen_1", 'G', 294, 0, 00h, 0
	._inspect	'F', 't', "Clr_Screen_1", 'G', 273
	._inspect	'V', 'r', "p0_addr", 'G', 298, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 299, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 300, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 303, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 304, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 305, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Data", "$Write_0108_Data", 'G', 309, 0, 00h, 0
	._inspect	'F', 'e', "Clr_Screen_1", "_Clr_Screen_1", 'G', 0, 0


;## #	FUNCTION Clr_Screen_2
;## #	FRAME	AUTO	(       n)	size  2,	offset -4
;## #	FRAME	AUTO	(       j)	size  1,	offset -2
;## #	FRAME	AUTO	(       k)	size  1,	offset -1
;## #	ARG Size(0)	Auto Size(4)	Context Size(5)

	._type	274,'v'
	._type	275,'x',274,0
	._func	'Clr_Screen_2','G',4,275,_Clr_Screen_2,0
	._inspect	'F', 's', "Clr_Screen_2", "_Clr_Screen_2", 'G', 9
	.align
	._line	325
	.glb	_Clr_Screen_2
_Clr_Screen_2:
	enter	#04H
	._block
	._var	'j','A',3,-2
	._var	'k','A',3,-1
	._var	'n','A',18,-4
	._line	327
	mov.w	#0000H,-4[FB]	;  n 
	._line	329
	bset	5,_p0_addr
	._line	330
	bclr	1,_p6_addr
	._line	331
	mov.w