s6b0108.a30

电表解决方案概要power_meter_r8c2g_source_code

	.glb	$Write_0108_Reg
$Write_0108_Reg:
	enter	#02H
	mov.b	R1L,-1[FB]	;  Reg_Code  Reg_Code 
	._block
	._var	'Reg_Code','A',3,-1
	._var	'bus_low','A',3,-2
	._var	'bus_high','A',3,-1
	._line	113
	mov.b	-1[FB],R1L	;  Reg_Code 
	._inspect	'S', 'c', "Data_Convert", "$Data_Convert", 'G', 0, 113
	jsr	$Data_Convert
	mov.b	R0L,-1[FB]	;  bus_high 
	mov.b	R0L,-2[FB]	;  bus_low 
	._line	115
	mov.b	-2[FB],A0	;  bus_low 
	and.w	#000fH,A0
	mov.b	A0,-2[FB]	;  bus_low 
	._line	116
	mov.b	-1[FB],A0	;  bus_high 
	and.w	#00f0H,A0
	mov.b	A0,-1[FB]	;  bus_high 
	._line	118
	shl.b	#-4,-1[FB]	;  bus_high 
	._line	120
	bclr	2,_p6_addr
	._line	122
	mov.w	#_p0_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	123
	mov.w	#_p1_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	124
	mov.w	#_p0_addr,A0
	or.b	-2[FB],[A0]	;  bus_low 
	._line	125
	mov.w	#_p1_addr,A0
	or.b	-1[FB],[A0]	;  bus_high 
	._line	126
	bset	4,_p0_addr
	._line	127
	bclr	4,_p0_addr
	._eblock
	._line	128
	exitd	
E4:
M4:
	._efunc	M4
	._inspect	'F', 'd', "Write_0108_Reg", "$Write_0108_Reg", 'G', 109, 0, 00h, 0
	._inspect	'F', 't', "Write_0108_Reg", 'G', 262
	._inspect	'F', 'r', "Data_Convert", "$Data_Convert", 'G', 113, 0, 00h, 0
	._inspect	'V', 'r', "p6_addr", 'G', 120, 1, 1, 0, 04h
	._inspect	'V', 'r', "p0_addr", 'G', 122, 1, 1, 0, 00h
	._inspect	'V', 'r', "p1_addr", 'G', 123, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 124, 1, 1, 0, 00h
	._inspect	'V', 'r', "p1_addr", 'G', 125, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 126, 1, 1, 0, 010h
	._inspect	'V', 'r', "p0_addr", 'G', 127, 1, 1, 0, 010h
	._inspect	'F', 'e', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 0


;## #	FUNCTION Write_0108_Data
;## #	FRAME	AUTO	( bus_low)	size  1,	offset -2
;## #	FRAME	AUTO	(bus_high)	size  1,	offset -1
;## #	FRAME	AUTO	(Bus_Data)	size  1,	offset -1
;## #  REGISTER ARG    (Bus_Data)   size   1,   REGISTER R1L
;## #	ARG Size(0)	Auto Size(2)	Context Size(5)

	._type	263,'v'
	._type	264,'x',263,1
	._type	264,'m','Bus_Data',0,3
	._func	'Write_0108_Data','G',2,264,$Write_0108_Data,0
	._inspect	'F', 's', "Write_0108_Data", "$Write_0108_Data", 'G', 7
	.align
	._line	135
	.glb	$Write_0108_Data
$Write_0108_Data:
	enter	#02H
	mov.b	R1L,-1[FB]	;  Bus_Data  Bus_Data 
	._block
	._var	'Bus_Data','A',3,-1
	._var	'bus_low','A',3,-2
	._var	'bus_high','A',3,-1
	._line	139
	mov.b	-1[FB],R1L	;  Bus_Data 
	._inspect	'S', 'c', "Data_Convert", "$Data_Convert", 'G', 0, 139
	jsr	$Data_Convert
	mov.b	R0L,-1[FB]	;  bus_high 
	mov.b	R0L,-2[FB]	;  bus_low 
	._line	141
	mov.b	-2[FB],A0	;  bus_low 
	and.w	#000fH,A0
	mov.b	A0,-2[FB]	;  bus_low 
	._line	142
	mov.b	-1[FB],A0	;  bus_high 
	and.w	#00f0H,A0
	mov.b	A0,-1[FB]	;  bus_high 
	._line	144
	shl.b	#-4,-1[FB]	;  bus_high 
	._line	146
	bset	2,_p6_addr
	._line	149
	mov.w	#_p0_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	150
	mov.w	#_p1_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	151
	mov.w	#_p0_addr,A0
	or.b	-2[FB],[A0]	;  bus_low 
	._line	152
	mov.w	#_p1_addr,A0
	or.b	-1[FB],[A0]	;  bus_high 
	._line	153
	bset	4,_p0_addr
	._line	155
	bclr	4,_p0_addr
	._eblock
	._line	156
	exitd	
E5:
M5:
	._efunc	M5
	._inspect	'F', 'd', "Write_0108_Data", "$Write_0108_Data", 'G', 135, 0, 00h, 0
	._inspect	'F', 't', "Write_0108_Data", 'G', 264
	._inspect	'F', 'r', "Data_Convert", "$Data_Convert", 'G', 139, 0, 00h, 0
	._inspect	'V', 'r', "p6_addr", 'G', 146, 1, 1, 0, 04h
	._inspect	'V', 'r', "p0_addr", 'G', 149, 1, 1, 0, 00h
	._inspect	'V', 'r', "p1_addr", 'G', 150, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 151, 1, 1, 0, 00h
	._inspect	'V', 'r', "p1_addr", 'G', 152, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 153, 1, 1, 0, 010h
	._inspect	'V', 'r', "p0_addr", 'G', 155, 1, 1, 0, 010h
	._inspect	'F', 'e', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 0


;## #	FUNCTION Read_0108_Data
;## #	FRAME	AUTO	(Bus_Data_0)	size  1,	offset -2
;## #	FRAME	AUTO	(Bus_Data_1)	size  1,	offset -1
;## #	ARG Size(0)	Auto Size(2)	Context Size(5)

	._type	265,'x',3,0
	._func	'Read_0108_Data','G',2,265,_Read_0108_Data,0
	._inspect	'F', 's', "Read_0108_Data", "_Read_0108_Data", 'G', 7
	.align
	._line	163
	.glb	_Read_0108_Data
_Read_0108_Data:
	enter	#02H
	._block
	._var	'Bus_Data_0','A',3,-2
	._var	'Bus_Data_1','A',3,-1
	._line	167
	bset	2,_p6_addr
	._line	169
	mov.w	#_p0_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	170
	mov.w	#_p1_addr,A0
	mov.b	[A0],A1
	and.w	#00f0H,A1
	mov.b	A1,[A0]
	._line	171
	bset	4,_p0_addr
	._line	172
	mov.b	_p1_addr,-1[FB]	;  Bus_Data_1 
	._line	173
	mov.b	_p0_addr,-2[FB]	;  Bus_Data_0 
	._line	174
	bclr	4,_p0_addr
	._line	176
	shl.b	#04H,-1[FB]	;  Bus_Data_1 
	._line	177
	mov.b	-2[FB],A0	;  Bus_Data_0 
	and.w	#00f0H,A0
	mov.b	A0,-2[FB]	;  Bus_Data_0 
	._line	178
	or.b	-1[FB],-2[FB]	;  Bus_Data_1  Bus_Data_0 
	._line	180
	mov.b	-2[FB],R0L	;  Bus_Data_0 
	exitd	
E6:
	._eblock
M6:
	._efunc	M6
	._inspect	'F', 'd', "Read_0108_Data", "_Read_0108_Data", 'G', 163, 0, 00h, 0
	._inspect	'F', 't', "Read_0108_Data", 'G', 265
	._inspect	'V', 'r', "p6_addr", 'G', 167, 1, 1, 0, 04h
	._inspect	'V', 'r', "p0_addr", 'G', 169, 1, 1, 0, 00h
	._inspect	'V', 'r', "p1_addr", 'G', 170, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 171, 1, 1, 0, 010h
	._inspect	'V', 'r', "p1_addr", 'G', 172, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 173, 1, 1, 0, 00h
	._inspect	'V', 'r', "p0_addr", 'G', 174, 1, 1, 0, 010h
	._inspect	'F', 'e', "Read_0108_Data", "_Read_0108_Data", 'G', 0, 0


;## #	FUNCTION Set_XY
;## #	FRAME	AUTO	(X_Column)	size  1,	offset -1
;## #  FRAME   ARG (  Y_Page)  size   1,    offset 5
;## #  REGISTER ARG    (X_Column)   size   1,   REGISTER R1L
;## #	ARG Size(1)	Auto Size(1)	Context Size(5)

	._type	266,'v'
	._type	267,'x',266,2
	._type	267,'m','X_Column',0,3
	._type	267,'m','Y_Page',0,3
	._func	'Set_XY','G',1,267,$Set_XY,0
	._inspect	'F', 's', "Set_XY", "$Set_XY", 'G', 6
	.align
	._line	189
	.glb	$Set_XY
$Set_XY:
	enter	#01H
	mov.b	R1L,-1[FB]	;  X_Column  X_Column 
	._block
	._var	'X_Column','A',3,-1
	._var	'Y_Page','A',3,5
	._line	190
	mov.b	5[FB],A0	;  Y_Page 
	add.w	#00b8H,A0
	mov.b	A0,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 190
	jsr	$Write_0108_Reg
	._line	191
	mov.b	-1[FB],A0	;  X_Column 
	add.w	#0040H,A0
	mov.b	A0,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 191
	jsr	$Write_0108_Reg
	._eblock
	._line	192
	exitd	
E7:
M7:
	._efunc	M7
	._inspect	'F', 'd', "Set_XY", "$Set_XY", 'G', 189, 0, 00h, 0
	._inspect	'F', 't', "Set_XY", 'G', 267
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 190, 0, 00h, 0
	._inspect	'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 191, 0, 00h, 0
	._inspect	'F', 'e', "Set_XY", "$Set_XY", 'G', 0, 0


;## #	FUNCTION Init_0108
;## #	ARG Size(0)	Auto Size(0)	Context Size(3)

	._type	268,'v'
	._type	269,'x',268,0
	._func	'Init_0108','G',0,269,_Init_0108,0
	._inspect	'F', 's', "Init_0108", "_Init_0108", 'G', 3
	.align
	._line	199
	.glb	_Init_0108
_Init_0108:
	._block
	._line	204
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 204
	jsr	$Delay
	._line	205
	bclr	5,_p0_addr
	._line	206
	bclr	1,_p6_addr
	._line	207
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 207
	jsr	$Delay
	._line	208
	mov.b	#3eH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 208
	jsr	$Write_0108_Reg
	._line	209
	mov.b	#0c0H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 209
	jsr	$Write_0108_Reg
	._line	210
	mov.b	#0b8H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 210
	jsr	$Write_0108_Reg
	._line	211
	mov.b	#40H,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 211
	jsr	$Write_0108_Reg
	._line	212
	mov.b	#3fH,R1L
	._inspect	'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 212
	jsr	$Write_0108_Reg
	._line	213
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 213
	jsr	$Delay
	._line	214
	bclr	5,_p0_addr
	._line	215
	bset	1,_p6_addr
	._line	216
	mov.w	#0064H,R1
	._inspect	'S', 'c', "Delay", "$Delay", 'G', 0, 216
	jsr	$Delay