test_remote.s

单片机开发资料光盘-双龙-686M.zip

	.module test_remote.c
	.area text(rom, con, rel)
	.dbfile e:/ICC/include/sl3010.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 83
; //ICC-AVR application builder : 03-1-21 13:42:41
; // Target : 8515
; // Crystal: 8.0000Mhz
; // Test remote
; //     B   C
; //   D   A 
; // C----8D4---PA3---PB3
; // A----8D3---PA2---PB2
; // B----8D2---PA1---PB1
; // D----8D1---PA0---PB0
; 
; #include <io8515v.h>
; #include <macros.h>
; #include <sl3010.c>
; 
; unsigned char remote;
; 
; //call this routine to initialise all peripherals
; void init_devices(void)
; {
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
;  port_init();
; 
;  MCUCR = 0x00;
;  GIMSK = 0x00;
;  TIMSK = 0x00;
;  SEI(); //re-enable interrupts
;  //all peripherals are now initialised
; }
; 
; //
; void main(void)
; {
;  init_devices();
;  while (1)
;    	{
; 	 remote = PINB & 0xF0;
; 	 PORTA = ~remote;
; 	}
; }
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 84
; 
	ldi R24,255
	out 0x1a,R24
	.dbline 84
	out 0x1b,R24
	.dbline 85
; 
	ldi R24,128
	out 0x17,R24
	.dbline 85
	ldi R24,255
	out 0x18,R24
	.dbline 86
; 
	ldi R24,1
	out 0x14,R24
	.dbline 86
	ldi R24,255
	out 0x15,R24
	.dbline 87
; 
	ldi R24,240
	out 0x11,R24
	.dbline 87
	ldi R24,255
	out 0x12,R24
	.dbline -2
	.dbline 88
; 
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 91
; 
; 
; 
L3:
	.dbline 93
; 
; 
	.dbline 94
; 
	subi R16,1
	sbci R17,0
	.dbline 95
; 
L4:
	.dbline 96
; 
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L3
	.dbline -2
	.dbline 97
; 
L2:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.dbfunc e delay_ms _delay_ms fV
;           time -> R20,R21
	.even
_delay_ms::
	rcall push_gset1
	mov R20,R16
	mov R21,R17
	.dbline -1
	.dbline 100
; 
; 
; 
	rjmp L8
L7:
	.dbline 102
	.dbline 103
	ldi R16,1000
	ldi R17,3
	rcall _delay_us
	.dbline 104
	subi R20,1
	sbci R21,0
	.dbline 105
L8:
	.dbline 101
; 
	cpi R20,0
	cpc R20,R21
	brne L7
X0:
	.dbline -2
	.dbline 106
; 
; 
; 
; 
; 
L6:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r time 20 i
	.dbend
	.dbfunc e turn_right _turn_right fV
	.even
_turn_right::
	.dbline -1
	.dbline 109
; 
; 
; 
	.dbline 110
; 
	ldi R24,96
	out 0x12,R24
	.dbline 111
; 
	ldi R24,204
	out 0x1b,R24
	.dbline -2
	.dbline 112
; 
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e turn_left _turn_left fV
	.even
_turn_left::
	.dbline -1
	.dbline 115
; 
; 
; 
	.dbline 116
; 
	ldi R24,144
	out 0x12,R24
	.dbline 117
; 
	ldi R24,51
	out 0x1b,R24
	.dbline -2
	.dbline 118
; 
L11:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e turn_right_s _turn_right_s fV
	.even
_turn_right_s::
	.dbline -1
	.dbline 120
; 
; 
	.dbline 121
; 
	ldi R24,32
	out 0x12,R24
	.dbline 122
; 
	ldi R24,207
	out 0x1b,R24
	.dbline -2
	.dbline 123
; 
L12:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e turn_left_s _turn_left_s fV
	.even
_turn_left_s::
	.dbline -1
	.dbline 126
; 
; 
; 
	.dbline 127
; 
	ldi R24,128
	out 0x12,R24
	.dbline 128
; 
	ldi R24,243
	out 0x1b,R24
	.dbline -2
	.dbline 129
; 
L13:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e backward _backward fV
	.even
_backward::
	.dbline -1
	.dbline 132
; 
; 
; 
	.dbline 133
; 
	ldi R24,80
	out 0x12,R24
	.dbline 134
; 
	ldi R24,60
	out 0x1b,R24
	.dbline -2
	.dbline 135
; 
L14:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e forward _forward fV
	.even
_forward::
	.dbline -1
	.dbline 138
; 
; 
; 
	.dbline 139
; 
	ldi R24,160
	out 0x12,R24
	.dbline 140
; 
	ldi R24,195
	out 0x1b,R24
	.dbline -2
	.dbline 141
; 
L15:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e stop _stop fV
	.even
_stop::
	.dbline -1
	.dbline 144
; 
; 
; 
	.dbline 145
; 
	ldi R24,255
	out 0x12,R24
	.dbline 146
; 
	out 0x1b,R24
	.dbline -2
	.dbline 147
; 
L16:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e sw_touch _sw_touch fV
	.even
_sw_touch::
	.dbline -1
	.dbline 163
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 164
; 
	in R24,0x13
	andi R24,16
	sts _sw_in,R24
	.dbline 165
; 
	tst R24
	brne L18
	.dbline 166
; 
	.dbline 167
; 
	rcall _backward
	.dbline 168
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 170
; 
; 
	lds R24,_work_status
	cpi R24,112
	brne L20
	.dbline 171
; 
	.dbline 172
; 
	rcall _stop
	rjmp L23
L22:
	.dbline 174
	.dbline 175
	ldi R24,85
	out 0x1b,R24
	.dbline 176
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 177
	ldi R24,170
	out 0x1b,R24
	.dbline 178
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 179
L23:
	.dbline 173
; 
	rjmp L22
X1:
	.dbline 180
; 
; 
; 
; 
; 
; 
; 
L20:
	.dbline 182
; 
; 
	rcall _turn_left
	.dbline 183
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 184
; 
L18:
	.dbline 186
; 
; 
	in R24,0x16
	andi R24,112
	sts _sw_in,R24
	.dbline 187
; 
	cpi R24,80
	brne L25
	.dbline 188
; 
	.dbline 189
; 
	rcall _forward
	.dbline 190
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 192
; 
; 
	rcall _turn_left
	.dbline 193
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 194
; 
L25:
	.dbline 195
; 
	lds R24,_sw_in
	cpi R24,48
	brne L27
	.dbline 196
; 
	.dbline 197
; 
	rcall _backward
	.dbline 198
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 200
; 
; 
	rcall _turn_left
	.dbline 201
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 202
; 
L27:
	.dbline 203
; 
	lds R24,_sw_in
	cpi R24,96
	brne L29
	.dbline 204
; 
	.dbline 205
; 
	rcall _backward
	.dbline 206
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 208
; 
; 
	rcall _turn_left
	.dbline 209
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 210
; 
L29:
	.dbline 211
; 
	lds R24,_sw_in
	cpi R24,32
	brne L31
	.dbline 212
; 
	.dbline 213
; 
	rcall _stop
	.dbline 214
; 
	ldi R16,1000
	ldi R17,3
	rcall _delay_ms
	rjmp L34
L33:
	.dbline 216
; 
; 
	.dbline 217
; 
	in R24,0x13
	andi R24,16
	sts _sw_in,R24
	.dbline 218
; 
	tst R24
	brne L36
	.dbline 219
; 
	.dbline 219
	rjmp L35
L36:
	.dbline 220
; 
	ldi R24,85
	out 0x1b,R24
	.dbline 221
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 222
; 
	ldi R24,170
	out 0x1b,R24
	.dbline 223
; 
	ldi R16,250
	ldi R17,0
	rcall _delay_ms
	.dbline 224
; 
	in R24,0x16
	andi R24,15
	sts _remote_in,R24
	.dbline 225
; 
	tst R24
	breq L38
	.dbline 226
; 
	.dbline 226
	rjmp L35
L38:
	.dbline 227
L34:
	.dbline 215
	rjmp L33
L35:
	.dbline 228
L31:
	.dbline -2
	.dbline 229
; 
; 
; 
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e mic_startup _mic_startup fV
	.even
_mic_startup::
	.dbline -1
	.dbline 232
; 
; 
; 
	rjmp L42
L41:
	.dbline 235
; 
; 
; 
	.dbline 236
; 
	in R24,0x13
	andi R24,8
	sts _mic_in,R24
	.dbline 237
; 
	tst R24
	brne L44
	.dbline 237
	.dbline 237
	rjmp L43
L44:
	.dbline 238
L42:
	.dbline 234
	rjmp L41
L43:
	.dbline -2
	.dbline 239
; 
; 
L40:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e remote_auto_time _remote_auto_time fV
	.even
_remote_auto_time::
	.dbline -1
	.dbline 254
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
	.dbline 255
; 
	in R24,0x16
	andi R24,15
	sts _remote_in,R24
	.dbline 256
; 
	mov R16,R24
	clr R17
	cpi R16,0
	cpc R16,R17
	brne X4
	rjmp L48
X4:
X2:
	cpi R16,1
	ldi R30,0
	cpc R17,R30
	brne X5
	rjmp L59
X5:
	cpi R16,2
	ldi R30,0
	cpc R17,R30
	breq L53
	cpi R16,4
	ldi R30,0
	cpc R17,R30
	breq L50
	cpi R16,8
	ldi R30,0
	cpc R17,R30
	breq L56
	rjmp L47
X3:
	.dbline 257
; 
L50:
	.dbline 259
; 
; 
	lds R24,_delay_time2
	lds R25,_delay_time2+1
	sbiw R24,50
	sts _delay_time2+1,R25
	sts _delay_time2,R24
	.dbline 260
; 
	cpi R24,50
	ldi R30,0
	cpc R25,R30
	breq X6
	rjmp L48
X6:
	.dbline 261
; 
	.dbline 261
	ldi R24,100
	ldi R25,0
	sts _delay_time2+1,R25
	sts _delay_time2,R24
	.dbline 261
	.dbline 262
; 
	rjmp L48
L53:
	.dbline 264
; 
; 
	lds R24,_delay_time1
	lds R25,_delay_time1+1
	adiw R24,50
	sts _delay_time1+1,R25
	sts _delay_time1,R24
	.dbline 265
; 
	cpi R24,2
	ldi R30,8
	cpc R25,R30
	brne L48
	.dbline 266
; 
	.dbline 266
	ldi R24,2000
	ldi R25,7
	sts _delay_time1+1,R25
	sts _delay_time1,R24
	.dbline 266
	.dbline 267
; 
	rjmp L48
L56:
	.dbline 269
; 
; 
	lds R24,_delay_time1
	lds R25,_delay_time1+1
	sbiw R24,50
	sts _delay_time1+1,R25
	sts _delay_time1,R24
	.dbline 270
; 
	cpi R24,50
	ldi R30,0
	cpc R25,R30
	brne L48
	.dbline 271
; 
	.dbline 271
	ldi R24,100
	ldi R25,0
	sts _delay_time1+1,R25
	sts _delay_time1,R24
	.dbline 271
	.dbline 272
; 
	rjmp L48
L59:
	.dbline 274
; 
; 
	lds R24,_delay_time2
	lds R25,_delay_time2+1
	adiw R24,50
	sts _delay_time2+1,R25
	sts _delay_time2,R24
	.dbline 275
; 
	cpi R24,2
	ldi R30,8
	cpc R25,R30
	brne L48
	.dbline 276
; 
	.dbline 276
	ldi R24,2000
	ldi R25,7
	sts _delay_time2+1,R25
	sts _delay_time2,R24
	.dbline 276
	.dbline 277
; 
	.dbline 279
; 
; 
L47:
L48:
	.dbline -2
	.dbline 281
; 
; 
L46:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfile E:\icc\iccavr\sl3010\test_remote\test_remote.c
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 20
	.dbline 22
	cli
	.dbline 23
	rcall _port_init
	.dbline 25
	clr R2
	out 0x35,R2
	.dbline 26
	out 0x3b,R2
	.dbline 27
	out 0x39,R2
	.dbline 28
	sei
	.dbline -2
	.dbline 30
L63:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 34
	.dbline 35
	rcall _init_devices
	rjmp L66
L65:
	.dbline 37
	.dbline 38
	in R24,0x16
	andi R24,240
	sts _remote,R24
	.dbline 39
	mov R2,R24
	com R2
	out 0x1b,R2
	.dbline 40
L66:
	.dbline 36
	rjmp L65
X7:
	.dbline -2
	.dbline 41
L64:
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile E:\icc\iccavr\sl3010\test_remote\test_remote.c
_remote::
	.blkb 1
	.dbsym e remote _remote c
_delay_time2::
	.blkb 2
	.dbfile e:/ICC/include/sl3010.c
	.dbsym e delay_time2 _delay_time2 i
_delay_time1::
	.blkb 2
	.dbsym e delay_time1 _delay_time1 i
_mic_in::
	.blkb 1
	.dbsym e mic_in _mic_in c
_remote_in::
	.blkb 1
	.dbsym e remote_in _remote_in c
_sw_in::
	.blkb 1
	.dbsym e sw_in _sw_in c
_work_status::
	.blkb 1
	.dbsym e work_status _work_status c