| 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 |
include "P18F252.inc"
|
|
|
9 |
__HEAPSTART EQU 0x0000000B ; Start address of heap
|
|
|
10 |
__HEAPEND EQU 0x000005FF ; End address of heap
|
|
|
11 |
gbl_status EQU 0x00000FD8 ; bytes:1
|
|
|
12 |
gbl_prodl EQU 0x00000FF3 ; bytes:1
|
|
|
13 |
gbl_prodh EQU 0x00000FF4 ; bytes:1
|
|
|
14 |
gbl_porta EQU 0x00000F80 ; bytes:1
|
|
|
15 |
gbl_portb EQU 0x00000F81 ; bytes:1
|
|
|
16 |
gbl_portc EQU 0x00000F82 ; bytes:1
|
|
|
17 |
gbl_lata EQU 0x00000F89 ; bytes:1
|
|
|
18 |
gbl_latb EQU 0x00000F8A ; bytes:1
|
|
|
19 |
gbl_latc EQU 0x00000F8B ; bytes:1
|
|
|
20 |
gbl_trisa EQU 0x00000F92 ; bytes:1
|
|
|
21 |
gbl_trisb EQU 0x00000F93 ; bytes:1
|
|
|
22 |
gbl_trisc EQU 0x00000F94 ; bytes:1
|
|
|
23 |
gbl_pie1 EQU 0x00000F9D ; bytes:1
|
|
|
24 |
gbl_pir1 EQU 0x00000F9E ; bytes:1
|
|
|
25 |
gbl_ipr1 EQU 0x00000F9F ; bytes:1
|
|
|
26 |
gbl_pie2 EQU 0x00000FA0 ; bytes:1
|
|
|
27 |
gbl_pir2 EQU 0x00000FA1 ; bytes:1
|
|
|
28 |
gbl_ipr2 EQU 0x00000FA2 ; bytes:1
|
|
|
29 |
gbl_eecon1 EQU 0x00000FA6 ; bytes:1
|
|
|
30 |
gbl_eecon2 EQU 0x00000FA7 ; bytes:1
|
|
|
31 |
gbl_eedata EQU 0x00000FA8 ; bytes:1
|
|
|
32 |
gbl_eeadr EQU 0x00000FA9 ; bytes:1
|
|
|
33 |
gbl_rcsta EQU 0x00000FAB ; bytes:1
|
|
|
34 |
gbl_txsta EQU 0x00000FAC ; bytes:1
|
|
|
35 |
gbl_txreg EQU 0x00000FAD ; bytes:1
|
|
|
36 |
gbl_rcreg EQU 0x00000FAE ; bytes:1
|
|
|
37 |
gbl_spbrg EQU 0x00000FAF ; bytes:1
|
|
|
38 |
gbl_t3con EQU 0x00000FB1 ; bytes:1
|
|
|
39 |
gbl_tmr3l EQU 0x00000FB2 ; bytes:1
|
|
|
40 |
gbl_tmr3h EQU 0x00000FB3 ; bytes:1
|
|
|
41 |
gbl_ccp2con EQU 0x00000FBA ; bytes:1
|
|
|
42 |
gbl_ccpr2l EQU 0x00000FBB ; bytes:1
|
|
|
43 |
gbl_ccpr2h EQU 0x00000FBC ; bytes:1
|
|
|
44 |
gbl_ccp1con EQU 0x00000FBD ; bytes:1
|
|
|
45 |
gbl_ccpr1l EQU 0x00000FBE ; bytes:1
|
|
|
46 |
gbl_ccpr1h EQU 0x00000FBF ; bytes:1
|
|
|
47 |
gbl_adcon1 EQU 0x00000FC1 ; bytes:1
|
|
|
48 |
gbl_adcon0 EQU 0x00000FC2 ; bytes:1
|
|
|
49 |
gbl_adresl EQU 0x00000FC3 ; bytes:1
|
|
|
50 |
gbl_adresh EQU 0x00000FC4 ; bytes:1
|
|
|
51 |
gbl_sspcon2 EQU 0x00000FC5 ; bytes:1
|
|
|
52 |
gbl_sspcon1 EQU 0x00000FC6 ; bytes:1
|
|
|
53 |
gbl_sspstat EQU 0x00000FC7 ; bytes:1
|
|
|
54 |
gbl_sspadd EQU 0x00000FC8 ; bytes:1
|
|
|
55 |
gbl_sspbuf EQU 0x00000FC9 ; bytes:1
|
|
|
56 |
gbl_t2con EQU 0x00000FCA ; bytes:1
|
|
|
57 |
gbl_pr2 EQU 0x00000FCB ; bytes:1
|
|
|
58 |
gbl_tmr2 EQU 0x00000FCC ; bytes:1
|
|
|
59 |
gbl_t1con EQU 0x00000FCD ; bytes:1
|
|
|
60 |
gbl_tmr1l EQU 0x00000FCE ; bytes:1
|
|
|
61 |
gbl_tmr1h EQU 0x00000FCF ; bytes:1
|
|
|
62 |
gbl_rcon EQU 0x00000FD0 ; bytes:1
|
|
|
63 |
gbl_wdtcon EQU 0x00000FD1 ; bytes:1
|
|
|
64 |
gbl_lvdcon EQU 0x00000FD2 ; bytes:1
|
|
|
65 |
gbl_osccon EQU 0x00000FD3 ; bytes:1
|
|
|
66 |
gbl_t0con EQU 0x00000FD5 ; bytes:1
|
|
|
67 |
gbl_tmr0l EQU 0x00000FD6 ; bytes:1
|
|
|
68 |
gbl_tmr0h EQU 0x00000FD7 ; bytes:1
|
|
|
69 |
gbl_fsr2l EQU 0x00000FD9 ; bytes:1
|
|
|
70 |
gbl_fsr2h EQU 0x00000FDA ; bytes:1
|
|
|
71 |
gbl_plusw2 EQU 0x00000FDB ; bytes:1
|
|
|
72 |
gbl_preinc2 EQU 0x00000FDC ; bytes:1
|
|
|
73 |
gbl_postdec2 EQU 0x00000FDD ; bytes:1
|
|
|
74 |
gbl_postinc2 EQU 0x00000FDE ; bytes:1
|
|
|
75 |
gbl_indf2 EQU 0x00000FDF ; bytes:1
|
|
|
76 |
gbl_bsr EQU 0x00000FE0 ; bytes:1
|
|
|
77 |
gbl_fsr1l EQU 0x00000FE1 ; bytes:1
|
|
|
78 |
gbl_fsr1h EQU 0x00000FE2 ; bytes:1
|
|
|
79 |
gbl_plusw1 EQU 0x00000FE3 ; bytes:1
|
|
|
80 |
gbl_preinc1 EQU 0x00000FE4 ; bytes:1
|
|
|
81 |
gbl_postdec1 EQU 0x00000FE5 ; bytes:1
|
|
|
82 |
gbl_postinc1 EQU 0x00000FE6 ; bytes:1
|
|
|
83 |
gbl_indf1 EQU 0x00000FE7 ; bytes:1
|
|
|
84 |
gbl_wreg EQU 0x00000FE8 ; bytes:1
|
|
|
85 |
gbl_fsr0l EQU 0x00000FE9 ; bytes:1
|
|
|
86 |
gbl_fsr0h EQU 0x00000FEA ; bytes:1
|
|
|
87 |
gbl_plusw0 EQU 0x00000FEB ; bytes:1
|
|
|
88 |
gbl_preinc0 EQU 0x00000FEC ; bytes:1
|
|
|
89 |
gbl_postdec0 EQU 0x00000FED ; bytes:1
|
|
|
90 |
gbl_postinc0 EQU 0x00000FEE ; bytes:1
|
|
|
91 |
gbl_indf0 EQU 0x00000FEF ; bytes:1
|
|
|
92 |
gbl_intcon3 EQU 0x00000FF0 ; bytes:1
|
|
|
93 |
gbl_intcon2 EQU 0x00000FF1 ; bytes:1
|
|
|
94 |
gbl_intcon EQU 0x00000FF2 ; bytes:1
|
|
|
95 |
gbl_tablat EQU 0x00000FF5 ; bytes:1
|
|
|
96 |
gbl_tblptrl EQU 0x00000FF6 ; bytes:1
|
|
|
97 |
gbl_tblptrh EQU 0x00000FF7 ; bytes:1
|
|
|
98 |
gbl_tblptru EQU 0x00000FF8 ; bytes:1
|
|
|
99 |
gbl_pcl EQU 0x00000FF9 ; bytes:1
|
|
|
100 |
gbl_pclath EQU 0x00000FFA ; bytes:1
|
|
|
101 |
gbl_pclatu EQU 0x00000FFB ; bytes:1
|
|
|
102 |
gbl_stkptr EQU 0x00000FFC ; bytes:1
|
|
|
103 |
gbl_tosl EQU 0x00000FFD ; bytes:1
|
|
|
104 |
gbl_tosh EQU 0x00000FFE ; bytes:1
|
|
|
105 |
gbl_tosu EQU 0x00000FFF ; bytes:1
|
|
|
106 |
CompTempVarRet489 EQU 0x0000000A ; bytes:1
|
|
|
107 |
send_00000_arg_c EQU 0x0000000A ; bytes:1
|
|
|
108 |
main_1_motors EQU 0x00000001 ; bytes:1
|
|
|
109 |
main_1_sensors EQU 0x00000002 ; bytes:1
|
|
|
110 |
main_1_leds EQU 0x00000003 ; bytes:1
|
|
|
111 |
main_1_leds1 EQU 0x00000004 ; bytes:1
|
|
|
112 |
main_1_buttons EQU 0x00000005 ; bytes:1
|
|
|
113 |
main_1_i EQU 0x00000006 ; bytes:4
|
|
|
114 |
ORG 0x00000200
|
|
|
115 |
GOTO _startup
|
|
|
116 |
ORG 0x00000204
|
|
|
117 |
send_00000
|
|
|
118 |
; { send ; function begin
|
|
|
119 |
label268438561
|
|
|
120 |
BTFSS gbl_pir1,4
|
|
|
121 |
BRA label268438561
|
|
|
122 |
MOVF send_00000_arg_c, W
|
|
|
123 |
MOVWF gbl_txreg
|
|
|
124 |
RETURN
|
|
|
125 |
; } send function end
|
|
|
126 |
|
|
|
127 |
ORG 0x0000020E
|
|
|
128 |
receive_00000
|
|
|
129 |
; { receive ; function begin
|
|
|
130 |
BTFSS gbl_rcsta,1
|
|
|
131 |
BRA label268438550
|
|
|
132 |
BCF gbl_rcsta,4
|
|
|
133 |
BSF gbl_rcsta,4
|
|
|
134 |
label268438550
|
|
|
135 |
BTFSS gbl_pir1,5
|
|
|
136 |
BRA label268438550
|
|
|
137 |
MOVF gbl_rcreg, W
|
|
|
138 |
MOVWF CompTempVarRet489
|
|
|
139 |
RETURN
|
|
|
140 |
; } receive function end
|
|
|
141 |
|
|
|
142 |
ORG 0x00000220
|
|
|
143 |
main
|
|
|
144 |
; { main ; function begin
|
|
|
145 |
SETF gbl_lata
|
|
|
146 |
CLRF gbl_latb
|
|
|
147 |
SETF gbl_latc
|
|
|
148 |
MOVLW 0xF0
|
|
|
149 |
MOVWF gbl_trisa
|
|
|
150 |
MOVLW 0x3F
|
|
|
151 |
MOVWF gbl_trisb
|
|
|
152 |
MOVLW 0x9F
|
|
|
153 |
MOVWF gbl_trisc
|
|
|
154 |
MOVLW 0xC6
|
|
|
155 |
MOVWF gbl_adcon1
|
|
|
156 |
MOVLW 0xC0
|
|
|
157 |
MOVWF gbl_adcon0
|
|
|
158 |
MOVLW 0x40
|
|
|
159 |
MOVWF gbl_spbrg
|
|
|
160 |
MOVLW 0xFB
|
|
|
161 |
ANDWF gbl_txsta, W
|
|
|
162 |
MOVWF gbl_txsta
|
|
|
163 |
MOVLW 0x20
|
|
|
164 |
IORWF gbl_txsta, W
|
|
|
165 |
MOVWF gbl_txsta
|
|
|
166 |
MOVLW 0x10
|
|
|
167 |
IORWF gbl_rcsta, W
|
|
|
168 |
MOVWF gbl_rcsta
|
|
|
169 |
MOVLW 0x80
|
|
|
170 |
IORWF gbl_rcsta, W
|
|
|
171 |
MOVWF gbl_rcsta
|
|
|
172 |
SETF main_1_leds
|
|
|
173 |
MOVLW 0x0F
|
|
|
174 |
MOVWF main_1_leds1
|
|
|
175 |
CLRF main_1_motors
|
|
|
176 |
label268438595
|
|
|
177 |
MOVF gbl_portb, W
|
|
|
178 |
MOVWF main_1_buttons
|
|
|
179 |
BTFSC main_1_buttons,1
|
|
|
180 |
BRA label268438598
|
|
|
181 |
CLRF main_1_i
|
|
|
182 |
CLRF main_1_i+D'1'
|
|
|
183 |
CLRF main_1_i+D'2'
|
|
|
184 |
CLRF main_1_i+D'3'
|
|
|
185 |
DECF main_1_leds1, W
|
|
|
186 |
MOVWF main_1_leds1
|
|
|
187 |
MOVF main_1_leds1, W
|
|
|
188 |
MOVWF gbl_lata
|
|
|
189 |
label268438603
|
|
|
190 |
MOVF main_1_i+D'3', W
|
|
|
191 |
SUBLW 0x00
|
|
|
192 |
BNZ label268438604
|
|
|
193 |
MOVF main_1_i+D'2', W
|
|
|
194 |
SUBLW 0x07
|
|
|
195 |
BNZ label268438604
|
|
|
196 |
MOVF main_1_i+D'1', W
|
|
|
197 |
SUBLW 0xA1
|
|
|
198 |
BNZ label268438604
|
|
|
199 |
MOVF main_1_i, W
|
|
|
200 |
SUBLW 0x20
|
|
|
201 |
label268438604
|
|
|
202 |
BC label4026532463
|
|
|
203 |
BTFSS main_1_i+D'3',7
|
|
|
204 |
BRA label268438608
|
|
|
205 |
label4026532463
|
|
|
206 |
INCF main_1_i, F
|
|
|
207 |
BTFSC STATUS,Z
|
|
|
208 |
INCF main_1_i+D'1', F
|
|
|
209 |
BTFSC STATUS,Z
|
|
|
210 |
INCF main_1_i+D'2', F
|
|
|
211 |
BTFSC STATUS,Z
|
|
|
212 |
INCF main_1_i+D'3', F
|
|
|
213 |
BRA label268438603
|
|
|
214 |
label268438608
|
|
|
215 |
MOVLW 0x11
|
|
|
216 |
ADDWF main_1_motors, W
|
|
|
217 |
MOVWF main_1_motors
|
|
|
218 |
BRA label268438619
|
|
|
219 |
label268438598
|
|
|
220 |
BTFSC main_1_buttons,4
|
|
|
221 |
BRA label268438619
|
|
|
222 |
CLRF main_1_i
|
|
|
223 |
CLRF main_1_i+D'1'
|
|
|
224 |
CLRF main_1_i+D'2'
|
|
|
225 |
CLRF main_1_i+D'3'
|
|
|
226 |
INCF main_1_leds1, W
|
|
|
227 |
MOVWF main_1_leds1
|
|
|
228 |
MOVF main_1_leds1, W
|
|
|
229 |
MOVWF gbl_lata
|
|
|
230 |
label268438624
|
|
|
231 |
MOVF main_1_i+D'3', W
|
|
|
232 |
SUBLW 0x00
|
|
|
233 |
BNZ label268438625
|
|
|
234 |
MOVF main_1_i+D'2', W
|
|
|
235 |
SUBLW 0x07
|
|
|
236 |
BNZ label268438625
|
|
|
237 |
MOVF main_1_i+D'1', W
|
|
|
238 |
SUBLW 0xA1
|
|
|
239 |
BNZ label268438625
|
|
|
240 |
MOVF main_1_i, W
|
|
|
241 |
SUBLW 0x20
|
|
|
242 |
label268438625
|
|
|
243 |
BC label4026532468
|
|
|
244 |
BTFSS main_1_i+D'3',7
|
|
|
245 |
BRA label268438629
|
|
|
246 |
label4026532468
|
|
|
247 |
INCF main_1_i, F
|
|
|
248 |
BTFSC STATUS,Z
|
|
|
249 |
INCF main_1_i+D'1', F
|
|
|
250 |
BTFSC STATUS,Z
|
|
|
251 |
INCF main_1_i+D'2', F
|
|
|
252 |
BTFSC STATUS,Z
|
|
|
253 |
INCF main_1_i+D'3', F
|
|
|
254 |
BRA label268438624
|
|
|
255 |
label268438629
|
|
|
256 |
MOVLW 0x11
|
|
|
257 |
SUBWF main_1_motors, W
|
|
|
258 |
MOVWF main_1_motors
|
|
|
259 |
label268438619
|
|
|
260 |
SETF main_1_leds
|
|
|
261 |
SETF main_1_sensors
|
|
|
262 |
CALL receive_00000
|
|
|
263 |
MOVF CompTempVarRet489, W
|
|
|
264 |
MOVWF main_1_sensors
|
|
|
265 |
BTFSC main_1_sensors,0
|
|
|
266 |
BRA label268438643
|
|
|
267 |
MOVLW 0xFD
|
|
|
268 |
ANDWF main_1_leds, W
|
|
|
269 |
MOVWF main_1_leds
|
|
|
270 |
label268438643
|
|
|
271 |
BTFSC main_1_sensors,1
|
|
|
272 |
BRA label268438646
|
|
|
273 |
MOVLW 0xFB
|
|
|
274 |
ANDWF main_1_leds, W
|
|
|
275 |
MOVWF main_1_leds
|
|
|
276 |
label268438646
|
|
|
277 |
BTFSC main_1_sensors,2
|
|
|
278 |
BRA label268438649
|
|
|
279 |
MOVLW 0xFE
|
|
|
280 |
ANDWF main_1_leds, W
|
|
|
281 |
MOVWF main_1_leds
|
|
|
282 |
label268438649
|
|
|
283 |
BTFSC main_1_sensors,3
|
|
|
284 |
BRA label268438652
|
|
|
285 |
MOVLW 0xF7
|
|
|
286 |
ANDWF main_1_leds, W
|
|
|
287 |
MOVWF main_1_leds
|
|
|
288 |
label268438652
|
|
|
289 |
MOVF main_1_leds, W
|
|
|
290 |
MOVWF gbl_lata
|
|
|
291 |
MOVF main_1_motors, W
|
|
|
292 |
MOVWF send_00000_arg_c
|
|
|
293 |
CALL send_00000
|
|
|
294 |
BRA label268438595
|
|
|
295 |
; } main function end
|
|
|
296 |
|
|
|
297 |
ORG 0x00000332
|
|
|
298 |
_startup
|
|
|
299 |
GOTO main
|
|
|
300 |
ORG 0x00300000
|
|
|
301 |
DW 0xFEFF
|
|
|
302 |
DW 0xFEF6
|
|
|
303 |
ORG 0x00300004
|
|
|
304 |
DW 0xFEFF
|
|
|
305 |
DW 0xFFFB
|
|
|
306 |
ORG 0x00300008
|
|
|
307 |
DW 0x3FF0
|
|
|
308 |
DW 0x9FFF
|
|
|
309 |
DW 0xBFFF
|
|
|
310 |
END
|