Subversion Repositories svnkaklik

Rev

Rev 324 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
318 kaklik 1 
;/////////////////////////////////////////////////////////////////////////////////
2 
;// Code Generator: BoostBasic Compiler - http://www.sourceboost.com
3 
;// Version       : 6.70
4 
;// License Type  : Pro License
5 
;// Limitations   : PIC18 max code size:Unlimited, max RAM banks:Unlimited
6 
;/////////////////////////////////////////////////////////////////////////////////
7 
 
8 
	ORG 0x00000200
325 kaklik 9 
0200  EFEBF001  	GOTO	_startup
318 kaklik 10 
	ORG 0x00000204
322 kaklik 11 
0204            send_00000
12 
0204            ; { send ; function begin
13 
0204            label268438562
14 
0204  A89E      	BTFSS gbl_pir1,4
15 
0206  D7FE      	BRA	label268438562
325 kaklik 16 
0208  500D      	MOVF send_00000_arg_c, W
322 kaklik 17 
020A  6EAD      	MOVWF gbl_txreg
18 
020C  0012      	RETURN
19 
020E            ; } send function end
318 kaklik 20 
 
322 kaklik 21 
	ORG 0x0000020E
22 
020E            receive_00000
23 
020E            ; { receive ; function begin
24 
020E  A2AB      	BTFSS gbl_rcsta,1
25 
0210  D002      	BRA	label268438551
26 
0212  98AB      	BCF gbl_rcsta,4
27 
0214  88AB      	BSF gbl_rcsta,4
28 
0216            label268438551
29 
0216  AA9E      	BTFSS gbl_pir1,5
30 
0218  D7FE      	BRA	label268438551
31 
021A  50AE      	MOVF gbl_rcreg, W
325 kaklik 32 
021C  6E0D      	MOVWF CompTempVarRet489
318 kaklik 33 
021E  0012      	RETURN
322 kaklik 34 
0220            ; } receive function end
318 kaklik 35 
 
36 
	ORG 0x00000220
322 kaklik 37 
0220            main
38 
0220            ; { main ; function begin
39 
0220  6889      	SETF gbl_lata
40 
0222  6A8A      	CLRF gbl_latb
41 
0224  688B      	SETF gbl_latc
42 
0226  0EF0      	MOVLW 0xF0
43 
0228  6E92      	MOVWF gbl_trisa
44 
022A  0E3F      	MOVLW 0x3F
45 
022C  6E93      	MOVWF gbl_trisb
46 
022E  0E9F      	MOVLW 0x9F
47 
0230  6E94      	MOVWF gbl_trisc
48 
0232  0EC6      	MOVLW 0xC6
49 
0234  6EC1      	MOVWF gbl_adcon1
50 
0236  0EC0      	MOVLW 0xC0
51 
0238  6EC2      	MOVWF gbl_adcon0
52 
023A  0E40      	MOVLW 0x40
53 
023C  6EAF      	MOVWF gbl_spbrg
54 
023E  0EFB      	MOVLW 0xFB
55 
0240  14AC      	ANDWF gbl_txsta, W
56 
0242  6EAC      	MOVWF gbl_txsta
57 
0244  0E20      	MOVLW 0x20
58 
0246  10AC      	IORWF gbl_txsta, W
59 
0248  6EAC      	MOVWF gbl_txsta
60 
024A  0E10      	MOVLW 0x10
61 
024C  10AB      	IORWF gbl_rcsta, W
62 
024E  6EAB      	MOVWF gbl_rcsta
63 
0250  0E80      	MOVLW 0x80
64 
0252  10AB      	IORWF gbl_rcsta, W
65 
0254  6EAB      	MOVWF gbl_rcsta
66 
0256  6A01      	CLRF main_1_motors
325 kaklik 67 
0258            label268438599
322 kaklik 68 
0258  B081      	BTFSC gbl_portb,0
325 kaklik 69 
025A  D7FE      	BRA	label268438599
322 kaklik 70 
025C  0EF0      	MOVLW 0xF0
71 
025E  6E03      	MOVWF main_1_leds
72 
0260  0E80      	MOVLW 0x80
73 
0262  6E04      	MOVWF main_1_count
324 kaklik 74 
0264  0E1A      	MOVLW 0x1A
75 
0266  6E05      	MOVWF main_1_count+D'1'
76 
0268  0E06      	MOVLW 0x06
77 
026A  6E06      	MOVWF main_1_count+D'2'
78 
026C  6A07      	CLRF main_1_count+D'3'
325 kaklik 79 
026E            label268438604
324 kaklik 80 
026E  5007      	MOVF main_1_count+D'3', W
81 
0270  0800      	SUBLW 0x00
325 kaklik 82 
0272  E108      	BNZ	label268438605
324 kaklik 83 
0274  5006      	MOVF main_1_count+D'2', W
84 
0276  0800      	SUBLW 0x00
325 kaklik 85 
0278  E105      	BNZ	label268438605
324 kaklik 86 
027A  5005      	MOVF main_1_count+D'1', W
87 
027C  0800      	SUBLW 0x00
325 kaklik 88 
027E  E102      	BNZ	label268438605
324 kaklik 89 
0280  5004      	MOVF main_1_count, W
90 
0282  0800      	SUBLW 0x00
325 kaklik 91 
0284            label268438605
324 kaklik 92 
0284  BE07      	BTFSC main_1_count+D'3',7
93 
0286  80D8      	BSF STATUS,C
325 kaklik 94 
0288  E24A      	BC	label268438609
324 kaklik 95 
028A  0E01      	MOVLW 0x01
96 
028C  5C04      	SUBWF main_1_count, W
325 kaklik 97 
028E  6E0D      	MOVWF CompTempVar492
324 kaklik 98 
0290  0E00      	MOVLW 0x00
325 kaklik 99 
0292  6E0E      	MOVWF CompTempVar496
324 kaklik 100 
0294  A0D8      	BTFSS STATUS,C
325 kaklik 101 
0296  3C0E      	INCFSZ CompTempVar496, W
324 kaklik 102 
0298  5E05      	SUBWF main_1_count+D'1', F
103 
029A  0E00      	MOVLW 0x00
325 kaklik 104 
029C  6E0E      	MOVWF CompTempVar496
324 kaklik 105 
029E  A0D8      	BTFSS STATUS,C
325 kaklik 106 
02A0  3C0E      	INCFSZ CompTempVar496, W
324 kaklik 107 
02A2  5E06      	SUBWF main_1_count+D'2', F
108 
02A4  0E00      	MOVLW 0x00
325 kaklik 109 
02A6  6E0E      	MOVWF CompTempVar496
324 kaklik 110 
02A8  A0D8      	BTFSS STATUS,C
325 kaklik 111 
02AA  3C0E      	INCFSZ CompTempVar496, W
324 kaklik 112 
02AC  5E07      	SUBWF main_1_count+D'3', F
325 kaklik 113 
02AE  500D      	MOVF CompTempVar492, W
324 kaklik 114 
02B0  6E04      	MOVWF main_1_count
115 
02B2  0E00      	MOVLW 0x00
116 
02B4  5C07      	SUBWF main_1_count+D'3', W
325 kaklik 117 
02B6  E108      	BNZ	label268438621
324 kaklik 118 
02B8  0E04      	MOVLW 0x04
119 
02BA  5C06      	SUBWF main_1_count+D'2', W
325 kaklik 120 
02BC  E105      	BNZ	label268438621
324 kaklik 121 
02BE  0E93      	MOVLW 0x93
122 
02C0  5C05      	SUBWF main_1_count+D'1', W
325 kaklik 123 
02C2  E102      	BNZ	label268438621
324 kaklik 124 
02C4  0EE0      	MOVLW 0xE0
125 
02C6  5C04      	SUBWF main_1_count, W
325 kaklik 126 
02C8            label268438621
127 
02C8  E302      	BNC	label4026532557
324 kaklik 128 
02CA  AE07      	BTFSS main_1_count+D'3',7
325 kaklik 129 
02CC  D003      	BRA	label268438625
130 
02CE            label4026532557
324 kaklik 131 
02CE  0E01      	MOVLW 0x01
132 
02D0  1003      	IORWF main_1_leds, W
133 
02D2  6E03      	MOVWF main_1_leds
325 kaklik 134 
02D4            label268438625
324 kaklik 135 
02D4  0E00      	MOVLW 0x00
136 
02D6  5C07      	SUBWF main_1_count+D'3', W
325 kaklik 137 
02D8  E108      	BNZ	label268438627
324 kaklik 138 
02DA  0E03      	MOVLW 0x03
139 
02DC  5C06      	SUBWF main_1_count+D'2', W
325 kaklik 140 
02DE  E105      	BNZ	label268438627
324 kaklik 141 
02E0  0E0D      	MOVLW 0x0D
142 
02E2  5C05      	SUBWF main_1_count+D'1', W
325 kaklik 143 
02E4  E102      	BNZ	label268438627
324 kaklik 144 
02E6  0E40      	MOVLW 0x40
145 
02E8  5C04      	SUBWF main_1_count, W
325 kaklik 146 
02EA            label268438627
147 
02EA  E302      	BNC	label4026532558
324 kaklik 148 
02EC  AE07      	BTFSS main_1_count+D'3',7
325 kaklik 149 
02EE  D003      	BRA	label268438631
150 
02F0            label4026532558
324 kaklik 151 
02F0  0E02      	MOVLW 0x02
152 
02F2  1003      	IORWF main_1_leds, W
153 
02F4  6E03      	MOVWF main_1_leds
325 kaklik 154 
02F6            label268438631
324 kaklik 155 
02F6  0E00      	MOVLW 0x00
156 
02F8  5C07      	SUBWF main_1_count+D'3', W
325 kaklik 157 
02FA  E108      	BNZ	label268438633
324 kaklik 158 
02FC  0E01      	MOVLW 0x01
159 
02FE  5C06      	SUBWF main_1_count+D'2', W
325 kaklik 160 
0300  E105      	BNZ	label268438633
324 kaklik 161 
0302  0E86      	MOVLW 0x86
162 
0304  5C05      	SUBWF main_1_count+D'1', W
325 kaklik 163 
0306  E102      	BNZ	label268438633
324 kaklik 164 
0308  0EA0      	MOVLW 0xA0
165 
030A  5C04      	SUBWF main_1_count, W
325 kaklik 166 
030C            label268438633
167 
030C  E302      	BNC	label4026532559
324 kaklik 168 
030E  AE07      	BTFSS main_1_count+D'3',7
325 kaklik 169 
0310  D003      	BRA	label268438637
170 
0312            label4026532559
324 kaklik 171 
0312  0E04      	MOVLW 0x04
172 
0314  1003      	IORWF main_1_leds, W
173 
0316  6E03      	MOVWF main_1_leds
325 kaklik 174 
0318            label268438637
324 kaklik 175 
0318  5003      	MOVF main_1_leds, W
176 
031A  6E89      	MOVWF gbl_lata
325 kaklik 177 
031C  D7A8      	BRA	label268438604
178 
031E            label268438609
324 kaklik 179 
031E  6889      	SETF gbl_lata
325 kaklik 180 
0320            label268438641
181 
0320  6A08      	CLRF main_1_cas
182 
0322  6A09      	CLRF main_1_cas+D'1'
183 
0324  6A0A      	CLRF main_1_cas+D'2'
184 
0326  6A0B      	CLRF main_1_cas+D'3'
185 
0328  6802      	SETF main_1_sensors
186 
032A  EC07F001  	CALL receive_00000
187 
032E  500D      	MOVF CompTempVarRet489, W
188 
0330  6E02      	MOVWF main_1_sensors
189 
0332  6A0C      	CLRF CompTempVar491
190 
0334  A202      	BTFSS main_1_sensors,1
191 
0336  D003      	BRA	label268438647
192 
0338  A002      	BTFSS main_1_sensors,0
193 
033A  D001      	BRA	label268438647
194 
033C  2A0C      	INCF CompTempVar491, F
195 
033E            label268438647
196 
033E  520C      	MOVF CompTempVar491, F
197 
0340  E102      	BNZ	label268438648
198 
0342  0E77      	MOVLW 0x77
324 kaklik 199 
0344  6E01      	MOVWF main_1_motors
325 kaklik 200 
0346            label268438648
201 
0346  B402      	BTFSC main_1_sensors,2
202 
0348  D01B      	BRA	label268438651
203 
034A  0E00      	MOVLW 0x00
204 
034C  5C0B      	SUBWF main_1_cas+D'3', W
205 
034E  E108      	BNZ	label268438653
206 
0350  0E06      	MOVLW 0x06
207 
0352  5C0A      	SUBWF main_1_cas+D'2', W
208 
0354  E105      	BNZ	label268438653
209 
0356  0E1A      	MOVLW 0x1A
210 
0358  5C09      	SUBWF main_1_cas+D'1', W
211 
035A  E102      	BNZ	label268438653
212 
035C  0E80      	MOVLW 0x80
213 
035E  5C08      	SUBWF main_1_cas, W
214 
0360            label268438653
215 
0360  E302      	BNC	label4026532563
216 
0362  AE0B      	BTFSS main_1_cas+D'3',7
217 
0364  D007      	BRA	label4026532566
218 
0366            label4026532563
219 
0366  2A08      	INCF main_1_cas, F
220 
0368  B4D8      	BTFSC STATUS,Z
221 
036A  2A09      	INCF main_1_cas+D'1', F
222 
036C  B4D8      	BTFSC STATUS,Z
223 
036E  2A0A      	INCF main_1_cas+D'2', F
224 
0370  B4D8      	BTFSC STATUS,Z
225 
0372  2A0B      	INCF main_1_cas+D'3', F
226 
0374            label4026532566
227 
0374  6A08      	CLRF main_1_cas
228 
0376  6A09      	CLRF main_1_cas+D'1'
229 
0378  6A0A      	CLRF main_1_cas+D'2'
230 
037A  6A0B      	CLRF main_1_cas+D'3'
231 
037C  0EF7      	MOVLW 0xF7
232 
037E  6E01      	MOVWF main_1_motors
233 
0380            label268438651
234 
0380  B602      	BTFSC main_1_sensors,3
235 
0382  D01B      	BRA	label268438668
236 
0384  0E00      	MOVLW 0x00
237 
0386  5C0B      	SUBWF main_1_cas+D'3', W
238 
0388  E108      	BNZ	label268438670
239 
038A  0E06      	MOVLW 0x06
240 
038C  5C0A      	SUBWF main_1_cas+D'2', W
241 
038E  E105      	BNZ	label268438670
242 
0390  0E1A      	MOVLW 0x1A
243 
0392  5C09      	SUBWF main_1_cas+D'1', W
244 
0394  E102      	BNZ	label268438670
245 
0396  0E80      	MOVLW 0x80
246 
0398  5C08      	SUBWF main_1_cas, W
247 
039A            label268438670
248 
039A  E302      	BNC	label4026532568
249 
039C  AE0B      	BTFSS main_1_cas+D'3',7
250 
039E  D007      	BRA	label4026532571
251 
03A0            label4026532568
252 
03A0  2A08      	INCF main_1_cas, F
253 
03A2  B4D8      	BTFSC STATUS,Z
254 
03A4  2A09      	INCF main_1_cas+D'1', F
255 
03A6  B4D8      	BTFSC STATUS,Z
256 
03A8  2A0A      	INCF main_1_cas+D'2', F
257 
03AA  B4D8      	BTFSC STATUS,Z
258 
03AC  2A0B      	INCF main_1_cas+D'3', F
259 
03AE            label4026532571
260 
03AE  6A08      	CLRF main_1_cas
261 
03B0  6A09      	CLRF main_1_cas+D'1'
262 
03B2  6A0A      	CLRF main_1_cas+D'2'
263 
03B4  6A0B      	CLRF main_1_cas+D'3'
264 
03B6  0E7F      	MOVLW 0x7F
265 
03B8  6E01      	MOVWF main_1_motors
266 
03BA            label268438668
267 
03BA  2A08      	INCF main_1_cas, F
268 
03BC  B4D8      	BTFSC STATUS,Z
269 
03BE  2A09      	INCF main_1_cas+D'1', F
270 
03C0  B4D8      	BTFSC STATUS,Z
271 
03C2  2A0A      	INCF main_1_cas+D'2', F
272 
03C4  B4D8      	BTFSC STATUS,Z
273 
03C6  2A0B      	INCF main_1_cas+D'3', F
274 
03C8  5002      	MOVF main_1_sensors, W
275 
03CA  6E89      	MOVWF gbl_lata
276 
03CC  5001      	MOVF main_1_motors, W
277 
03CE  6E0D      	MOVWF send_00000_arg_c
278 
03D0  EC02F001  	CALL send_00000
279 
03D4  D7A5      	BRA	label268438641
280 
03D6            ; } main function end
318 kaklik 281 
 
325 kaklik 282 
	ORG 0x000003D6
283 
03D6            _startup
284 
03D6  EF10F001  	GOTO	main
318 kaklik 285 
	ORG 0x00300000
286 
300000  FEFF      	DW 0xFEFF
287 
300002  FEF6      	DW 0xFEF6
288 
	ORG 0x00300004
289 
300004  FEFF      	DW 0xFEFF
290 
300006  FFFB      	DW 0xFFFB
291 
	ORG 0x00300008
292 
300008  3FF0      	DW 0x3FF0
293 
30000A  9FFF      	DW 0x9FFF
294 
30000C  BFFF      	DW 0xBFFF