s6b0108.a30

电表解决方案概要power_meter_r8c2g_source_code

	._line	217
	mov.b	#3eH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 217
	jsr	$Write_0108_Reg
	._line	218
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 218
	jsr	$Write_0108_Reg
	._line	219
	mov.b	#0b8H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 219
	jsr	$Write_0108_Reg
	._line	220
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 220
	jsr	$Write_0108_Reg
	._line	221
	mov.b	#3fH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 221
	jsr	$Write_0108_Reg
	._line	222
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 222
	jsr	$Delay
	._line	223
	bset	5,_p0_addr
	._line	224
	bclr	1,_p6_addr
	._line	225
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 225
	jsr	$Delay
	._line	226
	mov.b	#3eH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 226
	jsr	$Write_0108_Reg
	._line	227
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 227
	jsr	$Write_0108_Reg
	._line	228
	mov.b	#0b8H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 228
	jsr	$Write_0108_Reg
	._line	229
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 229
	jsr	$Write_0108_Reg
	._line	230
	mov.b	#3fH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 230
	jsr	$Write_0108_Reg
	._eblock
	._line	232
	rts	
E8:
M8:
	._efunc	M8
	._inspect	'F', 'd', "Init_0108", "_Init_0108", 'G', 199, 0, 00h, 0
	._inspect	'F', 't', "Init_0108", 'G', 269
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 204, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 205, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 206, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 207, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 208, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 209, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 210, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 211, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 212, 0, 00h, 0
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 213, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 214, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 215, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 216, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 217, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 218, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 219, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 220, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 221, 0, 00h, 0
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 222, 0, 00h, 0
	._inspect	'V', 'r', "p0_addr", 'G', 223, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 224, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 225, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 226, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", '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', '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	239
	.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	241
	mov.w	#0000H,-4[FB]	;  n 
	._line	243
	bclr	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	#00H,-1[FB]	;  k 
L13:
	._line	246
	cmp.b	#08H,-1[FB]	;  k 
	jgeu	L17
	._line	247
	._block
	._line	248
	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, 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	251
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 251
	jsr	$Write_0108_Reg
	._line	253
	mov.b	#00H,-2[FB]	;  j 
L25:
	._line	253
	cmp.b	#40H,-2[FB]	;  j 
	jgeu	L29
	._line	254
	._block
	._line	255
	mov.b	#00H,R1L
	._inspect	'S', 'c', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 255
	jsr	$Write_0108_Data
	._line	256
	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	260
	exitd	
E9:
M9:
	._efunc	M9
	._inspect	'F', 'd', "Clr_Screen_0", "_Clr_Screen_0", 'G', 239, 0, 00h, 0
	._inspect	'F', 't', "Clr_Screen_0", 'G', 271
	._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', 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', 251, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Data", "$Write_0108_Data", 'G', 255, 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	262
	.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	264
	mov.w	#0000H,-4[FB]	;  n 
	._line	266
	bclr	5,_p0_addr
	._line	267
	bset	1,_p6_addr
	._line	268
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 268
	jsr	$Delay
	._line	269
	mov.b	#00H,-1[FB]	;  k 
L41:
	._line	269
	cmp.b	#08H,-1[FB]	;  k 
	jgeu	L45
	._line	270
	._block
	._line	271
	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, 271
	jsr	$Write_0108_Reg
	._line	272
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 272
	jsr	$Write_0108_Reg
	._line	273
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 273
	jsr	$Write_0108_Reg
	._line	275
	mov.b	#00H,-2[FB]	;  j 
L53:
	._line	275
	cmp.b	#40H,-2[FB]	;  j 
	jgeu	L57
	._line	276
	._block
	._line	277
	mov.b	#00H,R1L
	._inspect	'S', 'c', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 277
	jsr	$Write_0108_Data
	._line	278
	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	282
	exitd	
E10:
M10:
	._efunc	M10
	._inspect	'F', 'd', "Clr_Screen_1", "_Clr_Screen_1", 'G', 262, 0, 00h, 0
	._inspect	'F', 't', "Clr_Screen_1", 'G', 273
	._inspect	'V', 'r', "p0_addr", 'G', 266, 1, 1, 0, 020h
	._inspect	'V', 'r', "p6_addr", 'G', 267, 1, 1, 0, 02h
	._inspect	'F', 'r', "Delay", "$Delay", 'G', 268, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 271, 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_Data", "$Write_0108_Data", 'G', 277, 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	284
	.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	286
	mov.w	#0000H,-4[FB]	;  n 
	._line	288
	bset	5,_p0_addr
	._line	289
	bclr	1,_p6_addr
	._line	290
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 290
	jsr	$Delay
	._line	291
	mov.b	#00H,-1[FB]	;  k 
L69:
	._line	291
	cmp.b	#08H,-1[FB]	;  k 
	jgeu	L73
	._line	292