adc_samplesession.asm

nec demo source code

; 78K/0S Series C Compiler V1.50 Assembler Source
;                                                Date: 9 Feb 2007 Time:15:35:07

; Command   : -fadc_samplesession.pcc
; In-file   : adc_samplesession.c
; Asm-file  : adc_samplesession.asm
; Para-file : -cF9222
;             -yC:\NECTools32\DEV\
;             -a
;             -zp
;             adc_samplesession.c

$PROCESSOR(F9222)
$DEBUG
$NODEBUGA
$KANJICODE SJIS
$TOL_INF	03FH, 0150H, 02H, 00H

$DGS	FIL_NAM, .file,		062H,	0FFFEH,	03FH,	067H,	01H,	00H
$DGS	AUX_FIL, adc_samplesession.c
$DGS	MOD_NAM, adc_samp,	00H,	0FFFEH,	00H,	077H,	00H,	00H
$DGS	SEC_NAM, @@BITS,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, YOPT,		U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@R_INIT,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@INIT,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@DATA,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@R_INIS,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@INIS,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@DATS,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@CALT,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@CODE,	U,	U,	00H,	078H,	00H,	00H
$DGS	SEC_NAM, @@VECT1A,	U,	U,	00H,	078H,	00H,	00H
$DGS	GLV_SYM, _init_CPU,	U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	014H,	00H
$DGS	BEG_FUN, ??bf_init_CPU,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 03AH,		00H,	014H
$DGS	END_FUN, ??ef_init_CPU,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 012H
$DGS	GLV_SYM, _init_LED,	U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	01AH,	00H
$DGS	BEG_FUN, ??bf_init_LED,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 052H,		00H,	01AH
$DGS	END_FUN, ??ef_init_LED,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 011H
$DGS	GLV_SYM, _init_ADC,	U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	020H,	00H
$DGS	BEG_FUN, ??bf_init_ADC,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 069H,		00H,	020H
$DGS	END_FUN, ??ef_init_ADC,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 04H
$DGS	GLV_SYM, _init_TM80,	U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	027H,	00H
$DGS	BEG_FUN, ??bf_init_TM80,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 074H,		02H,	027H
$DGS	FUN_ARG, _time,		00H,	0FFFFH,	0CH,	09H,	00H,	00H
$DGS	END_FUN, ??ef_init_TM80,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 08H
$DGS	GLV_SYM, _adc_conversion,	U,	U,	0800CH,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	02FH,	00H
$DGS	BEG_FUN, ??bf_adc_conversion,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 082H,		04H,	02FH
$DGS	FUN_ARG, _channel,	02H,	0FFFFH,	0CH,	09H,	00H,	00H
$DGS	AUT_VAR, _result,	01H,	0FFFFH,	0CH,	01H,	00H,	00H
$DGS	END_FUN, ??ef_adc_conversion,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 0BH
$DGS	GLV_SYM, _wait,		U,	U,	09001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	03AH,	01H
$DGS	BEG_FUN, ??bf_wait,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 094H,		02H,	034H
$DGS	AUT_VAR, _a,		01H,	0FFFFH,	02H,	01H,	00H,	00H
$DGS	BEG_BLK, ??bb00_wait,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 04H,		00H,	00H
$DGS	END_BLK, ??eb00_wait,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 06H
$DGS	END_FUN, ??ef_wait,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 07H
$DGS	GLV_SYM, _main,		U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	045H,	00H
$DGS	BEG_FUN, ??bf_main,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 0A2H,		02H,	03FH
$DGS	AUT_VAR, _adc_result,	01H,	0FFFFH,	0CH,	01H,	00H,	00H
$DGS	BEG_BLK, ??bb00_main,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 0DH,		00H,	00H
$DGS	END_BLK, ??eb00_main,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 013H
$DGS	END_FUN, ??ef_main,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 014H
$DGS	GLV_SYM, _isr_INTTM80,	U,	U,	0E001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	05BH,	00H
$DGS	BEG_FUN, ??bf_isr_INTTM80,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 0BCH,		0EH,	049H
$DGS	BEG_BLK, ??bb00_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 03H,		00H,	04BH
$DGS	BEG_BLK, ??bb01_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 06H,		00H,	051H
$DGS	END_BLK, ??eb01_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 0FH
$DGS	END_BLK, ??eb00_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 010H
$DGS	BEG_BLK, ??bb02_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 012H,		00H,	053H
$DGS	BEG_BLK, ??bb03_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_BEG, 015H,		00H,	00H
$DGS	END_BLK, ??eb03_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 01EH
$DGS	END_BLK, ??eb02_isr_INTTM80,	U,	U,	00H,	064H,	01H,	00H
$DGS	AUX_END, 01FH
$DGS	END_FUN, ??ef_isr_INTTM80,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 021H
$DGS	GLV_SYM, _drive_LED,	U,	U,	08001H,	020H,	01H,	02H
$DGS	AUX_FUN, 00H,		U,	U,	062H,	00H
$DGS	BEG_FUN, ??bf_drive_LED,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_BEG, 0E4H,		02H,	062H
$DGS	FUN_ARG, _value,	00H,	0FFFFH,	0CH,	09H,	00H,	00H
$DGS	END_FUN, ??ef_drive_LED,	U,	U,	00H,	065H,	01H,	00H
$DGS	AUX_END, 06H
$DGS	GLV_SYM, _OPTION,	U,	U,	05002H,	020H,	00H,	00H
$DGS	GLV_SYM, _LED_active,	U,	U,	0CH,	020H,	00H,	00H
$DGS	GLV_SYM, _LED_duty,	U,	U,	0CH,	020H,	00H,	00H
$DGS	GLV_SYM, _toggle,	U,	U,	0CH,	020H,	00H,	00H
$DGS	GLV_SYM, _@vect1a,	U,	U,	00H,	020H,	00H,	00H
$DGS	GLV_SYM, ?wait,		U,	U,	00H,	020H,	00H,	00H
$DGS	GLV_SYM, _@cprep,	U,	U,	00H,	02H,	00H,	00H
$DGS	GLV_SYM, _@RTARG0,	U,	U,	00H,	02H,	00H,	00H
$DGS	GLV_SYM, _@RTARG2,	U,	U,	00H,	02H,	00H,	00H
$DGS	GLV_SYM, _@RTARG4,	U,	U,	00H,	02H,	00H,	00H
$DGS	GLV_SYM, _@RTARG6,	U,	U,	00H,	02H,	00H,	00H

	EXTRN	_@cprep
	EXTRN	_@RTARG0
	EXTRN	_@RTARG2
	EXTRN	_@RTARG4
	EXTRN	_@RTARG6
	PUBLIC	_isr_INTTM80
	PUBLIC	_OPTION
	PUBLIC	_drive_LED
	PUBLIC	_LED_active
	PUBLIC	_LED_duty
	PUBLIC	_toggle
	PUBLIC	_init_CPU
	PUBLIC	_init_LED
	PUBLIC	_init_ADC
	PUBLIC	_init_TM80
	PUBLIC	_adc_conversion
	PUBLIC	_wait
	PUBLIC	?wait
	PUBLIC	_main
	PUBLIC	_@vect1a

@@BITS	BSEG

YOPT	CSEG	AT 80H
_OPTION:	DB	098H	; 152

@@R_INIT	CSEG

@@INIT	DSEG

@@DATA	DSEG
_LED_active:	DS	(1)
_LED_duty:	DS	(1)
_toggle:	DS	(1)

@@R_INIS	CSEG	UNITP

@@INIS	DSEG	SADDRP

@@DATS	DSEG	SADDRP

@@CALT	CSEG	CALLT0
?wait:	DW	_wait

; line    27
; line    43
; line    48
; line    49
; line    50
; line    58

@@CODE	CSEG
_init_CPU:
$DGL	1,14
??bf_init_CPU:
; line    60
$DGL	0,3
	mov	WDTM,#070H	; 112 				;[INF] 3, 6
; line    63
$DGL	0,6
	mov	PCC,#00H	; 0 				;[INF] 3, 6
; line    64
$DGL	0,7
	mov	PPCC,#00H	; 0 				;[INF] 3, 6
; line    66
$DGL	0,9
	mov	LSRCM,#01H	; 1 				;[INF] 3, 6
; line    68
$DGL	0,11
	mov	OSTS,#00H	; 0 				;[INF] 3, 6
; line    71
$DGL	0,14
	mov	IF0,#00H	; 0 				;[INF] 3, 6
; line    72
$DGL	0,15
	mov	IF1,#00H	; 0 				;[INF] 3, 6
; line    73
$DGL	0,16
	mov	MK0,#0FFH	; 255 				;[INF] 3, 6
; line    74
$DGL	0,17
	mov	MK1,#0FFH	; 255 				;[INF] 3, 6
; line    75
$DGL	0,18
??ef_init_CPU:
	ret							;[INF] 1, 6
??ee_init_CPU:
; line    82
_init_LED:
$DGL	1,20
??bf_init_LED:
; line    83
$DGL	0,2
	clr1	PMC2.3						;[INF] 3, 6
; line    84
$DGL	0,3
	clr1	PM2.3						;[INF] 3, 6
; line    85
$DGL	0,4
	clr1	PM4.5						;[INF] 3, 6
; line    86
$DGL	0,5
	clr1	PM12.3						;[INF] 3, 6
; line    88
$DGL	0,7
	clr1	P2.3						;[INF] 3, 6
; line    89
$DGL	0,8
	clr1	P13.0						;[INF] 3, 6
; line    90
$DGL	0,9
	clr1	P4.5						;[INF] 3, 6
; line    91
$DGL	0,10
	clr1	P12.3						;[INF] 3, 6
; line    93
$DGL	0,12
	set1	P2.3						;[INF] 3, 6
; line    94
$DGL	0,13
	set1	P13.0						;[INF] 3, 6
; line    95
$DGL	0,14
	set1	P4.5						;[INF] 3, 6
; line    96
$DGL	0,15
	set1	P12.3						;[INF] 3, 6
; line    98
$DGL	0,17
??ef_init_LED:
	ret							;[INF] 1, 6
??ee_init_LED:
; line   105
_init_ADC:
$DGL	1,26
??bf_init_ADC:
; line   106
$DGL	0,2
	set1	PMC2.0						;[INF] 3, 6
; line   107
$DGL	0,3
	set1	PM2.0						;[INF] 3, 6
; line   108
$DGL	0,4
??ef_init_ADC:
	ret							;[INF] 1, 6
??ee_init_ADC:
; line   116
_init_TM80:
$DGL	1,32
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
??bf_init_TM80:
; line   117
$DGL	0,2
	clr1	TMC80.7						;[INF] 3, 6
; line   118
$DGL	0,3
	mov	TMC80,#06H	; 6 				;[INF] 3, 6
; line   119
$DGL	0,4
	mov	a,[hl]	; time 					;[INF] 1, 6
	mov	CR80,a						;[INF] 2, 4
; line   120
$DGL	0,5
	set1	TMC80.7						;[INF] 3, 6
; line   121
$DGL	0,6
	clr1	IF1.3						;[INF] 3, 6
; line   122
$DGL	0,7
	clr1	MK1.3						;[INF] 3, 6
; line   123
$DGL	0,8
??ef_init_TM80:
	pop	ax						;[INF] 1, 6
	pop	hl						;[INF] 1, 6
	ret							;[INF] 1, 6
??ee_init_TM80:
; line   130
_adc_conversion:
$DGL	1,39
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,#02H						;[INF] 3, 6
	callt	[_@cprep]					;[INF] 1, 8
??bf_adc_conversion:
; line   132
$DGL	0,3
	mov	a,[hl+2]	; channel 			;[INF] 2, 6
	mov	ADS,a						;[INF] 2, 4
; line   133
$DGL	0,4
	set1	ADM.0						;[INF] 3, 6
; line   134
$DGL	0,5
	set1	ADM.7						;[INF] 3, 6
; line   135
$DGL	0,6
?L0011:
	bt	IF0.7,$?L0012					;[INF] 4,10
	br	$?L0011						;[INF] 2, 6
?L0012:
; line   136
$DGL	0,7
	mov	a,ADCRH						;[INF] 2, 4
	mov	[hl+1],a	; result 			;[INF] 2, 6
; line   137
$DGL	0,8
	clr1	ADM.7						;[INF] 3, 6
; line   138
$DGL	0,9
	clr1	IF0.7						;[INF] 3, 6
; line   139
$DGL	0,10
	mov	a,[hl+1]	; result 			;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	xor	a,a						;[INF] 2, 4
	movw	bc,ax						;[INF] 1, 4
; line   140
$DGL	0,11
??ef_adc_conversion:
	pop	ax						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	pop	hl						;[INF] 1, 6
	ret							;[INF] 1, 6
??ee_adc_conversion:
; line   148
_wait:
$DGL	1,47
	push	hl						;[INF] 1, 4
	movw	ax,#02H						;[INF] 3, 6
	callt	[_@cprep]					;[INF] 1, 8
??bf_wait:
; line   149
$DGL	0,2
	xor	a,a						;[INF] 2, 4
	mov	[hl+1],a	; a 				;[INF] 2, 6
; line   150
$DGL	0,3
?L0015:
	mov	a,[hl+1]	; a 				;[INF] 2, 6
	cmp	a,#0FFH	; 255 					;[INF] 2, 4
	bz	$?L0016						;[INF] 2, 6
; line   151
$DGL	0,4
??bb00_wait:
; line   152
$DGL	0,5
	inc	a						;[INF] 2, 4
	xch	a,[hl+1]	; a 				;[INF] 2, 8
??eb00_wait:
	br	$?L0015						;[INF] 2, 6
?L0016:
; line   154
$DGL	0,7
??ef_wait: