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
|
324 |
kaklik |
9 |
0200 EFAEF001 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
|
324 |
kaklik |
16 |
0208 5009 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
|
324 |
kaklik |
32 |
021C 6E09 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
|
|
|
67 |
0258 label268438598
|
|
|
68 |
0258 B081 BTFSC gbl_portb,0
|
|
|
69 |
025A D7FE BRA label268438598
|
|
|
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'
|
|
|
79 |
026E label268438603
|
|
|
80 |
026E 5007 MOVF main_1_count+D'3', W
|
|
|
81 |
0270 0800 SUBLW 0x00
|
|
|
82 |
0272 E108 BNZ label268438604
|
|
|
83 |
0274 5006 MOVF main_1_count+D'2', W
|
|
|
84 |
0276 0800 SUBLW 0x00
|
|
|
85 |
0278 E105 BNZ label268438604
|
|
|
86 |
027A 5005 MOVF main_1_count+D'1', W
|
|
|
87 |
027C 0800 SUBLW 0x00
|
|
|
88 |
027E E102 BNZ label268438604
|
|
|
89 |
0280 5004 MOVF main_1_count, W
|
|
|
90 |
0282 0800 SUBLW 0x00
|
|
|
91 |
0284 label268438604
|
|
|
92 |
0284 BE07 BTFSC main_1_count+D'3',7
|
|
|
93 |
0286 80D8 BSF STATUS,C
|
|
|
94 |
0288 E24A BC label268438608
|
|
|
95 |
028A 0E01 MOVLW 0x01
|
|
|
96 |
028C 5C04 SUBWF main_1_count, W
|
|
|
97 |
028E 6E09 MOVWF CompTempVar492
|
|
|
98 |
0290 0E00 MOVLW 0x00
|
|
|
99 |
0292 6E0A MOVWF CompTempVar496
|
|
|
100 |
0294 A0D8 BTFSS STATUS,C
|
|
|
101 |
0296 3C0A INCFSZ CompTempVar496, W
|
|
|
102 |
0298 5E05 SUBWF main_1_count+D'1', F
|
|
|
103 |
029A 0E00 MOVLW 0x00
|
|
|
104 |
029C 6E0A MOVWF CompTempVar496
|
|
|
105 |
029E A0D8 BTFSS STATUS,C
|
|
|
106 |
02A0 3C0A INCFSZ CompTempVar496, W
|
|
|
107 |
02A2 5E06 SUBWF main_1_count+D'2', F
|
|
|
108 |
02A4 0E00 MOVLW 0x00
|
|
|
109 |
02A6 6E0A MOVWF CompTempVar496
|
|
|
110 |
02A8 A0D8 BTFSS STATUS,C
|
|
|
111 |
02AA 3C0A INCFSZ CompTempVar496, W
|
|
|
112 |
02AC 5E07 SUBWF main_1_count+D'3', F
|
|
|
113 |
02AE 5009 MOVF CompTempVar492, W
|
|
|
114 |
02B0 6E04 MOVWF main_1_count
|
|
|
115 |
02B2 0E00 MOVLW 0x00
|
|
|
116 |
02B4 5C07 SUBWF main_1_count+D'3', W
|
|
|
117 |
02B6 E108 BNZ label268438620
|
|
|
118 |
02B8 0E04 MOVLW 0x04
|
|
|
119 |
02BA 5C06 SUBWF main_1_count+D'2', W
|
|
|
120 |
02BC E105 BNZ label268438620
|
|
|
121 |
02BE 0E93 MOVLW 0x93
|
|
|
122 |
02C0 5C05 SUBWF main_1_count+D'1', W
|
|
|
123 |
02C2 E102 BNZ label268438620
|
|
|
124 |
02C4 0EE0 MOVLW 0xE0
|
|
|
125 |
02C6 5C04 SUBWF main_1_count, W
|
|
|
126 |
02C8 label268438620
|
|
|
127 |
02C8 E302 BNC label4026532500
|
|
|
128 |
02CA AE07 BTFSS main_1_count+D'3',7
|
|
|
129 |
02CC D003 BRA label268438624
|
|
|
130 |
02CE label4026532500
|
|
|
131 |
02CE 0E01 MOVLW 0x01
|
|
|
132 |
02D0 1003 IORWF main_1_leds, W
|
|
|
133 |
02D2 6E03 MOVWF main_1_leds
|
|
|
134 |
02D4 label268438624
|
|
|
135 |
02D4 0E00 MOVLW 0x00
|
|
|
136 |
02D6 5C07 SUBWF main_1_count+D'3', W
|
|
|
137 |
02D8 E108 BNZ label268438626
|
|
|
138 |
02DA 0E03 MOVLW 0x03
|
|
|
139 |
02DC 5C06 SUBWF main_1_count+D'2', W
|
|
|
140 |
02DE E105 BNZ label268438626
|
|
|
141 |
02E0 0E0D MOVLW 0x0D
|
|
|
142 |
02E2 5C05 SUBWF main_1_count+D'1', W
|
|
|
143 |
02E4 E102 BNZ label268438626
|
|
|
144 |
02E6 0E40 MOVLW 0x40
|
|
|
145 |
02E8 5C04 SUBWF main_1_count, W
|
|
|
146 |
02EA label268438626
|
|
|
147 |
02EA E302 BNC label4026532501
|
|
|
148 |
02EC AE07 BTFSS main_1_count+D'3',7
|
|
|
149 |
02EE D003 BRA label268438630
|
|
|
150 |
02F0 label4026532501
|
|
|
151 |
02F0 0E02 MOVLW 0x02
|
|
|
152 |
02F2 1003 IORWF main_1_leds, W
|
|
|
153 |
02F4 6E03 MOVWF main_1_leds
|
|
|
154 |
02F6 label268438630
|
|
|
155 |
02F6 0E00 MOVLW 0x00
|
|
|
156 |
02F8 5C07 SUBWF main_1_count+D'3', W
|
|
|
157 |
02FA E108 BNZ label268438632
|
|
|
158 |
02FC 0E01 MOVLW 0x01
|
|
|
159 |
02FE 5C06 SUBWF main_1_count+D'2', W
|
|
|
160 |
0300 E105 BNZ label268438632
|
|
|
161 |
0302 0E86 MOVLW 0x86
|
|
|
162 |
0304 5C05 SUBWF main_1_count+D'1', W
|
|
|
163 |
0306 E102 BNZ label268438632
|
|
|
164 |
0308 0EA0 MOVLW 0xA0
|
|
|
165 |
030A 5C04 SUBWF main_1_count, W
|
|
|
166 |
030C label268438632
|
|
|
167 |
030C E302 BNC label4026532502
|
|
|
168 |
030E AE07 BTFSS main_1_count+D'3',7
|
|
|
169 |
0310 D003 BRA label268438636
|
|
|
170 |
0312 label4026532502
|
|
|
171 |
0312 0E04 MOVLW 0x04
|
|
|
172 |
0314 1003 IORWF main_1_leds, W
|
|
|
173 |
0316 6E03 MOVWF main_1_leds
|
|
|
174 |
0318 label268438636
|
|
|
175 |
0318 5003 MOVF main_1_leds, W
|
|
|
176 |
031A 6E89 MOVWF gbl_lata
|
|
|
177 |
031C D7A8 BRA label268438603
|
|
|
178 |
031E label268438608
|
|
|
179 |
031E 6889 SETF gbl_lata
|
|
|
180 |
0320 label268438640
|
|
|
181 |
0320 6802 SETF main_1_sensors
|
|
|
182 |
0322 EC07F001 CALL receive_00000
|
|
|
183 |
0326 5009 MOVF CompTempVarRet489, W
|
|
|
184 |
0328 6E02 MOVWF main_1_sensors
|
|
|
185 |
032A 6A08 CLRF CompTempVar491
|
|
|
186 |
032C A202 BTFSS main_1_sensors,1
|
|
|
187 |
032E D003 BRA label268438645
|
|
|
188 |
0330 A002 BTFSS main_1_sensors,0
|
|
|
189 |
0332 D001 BRA label268438645
|
|
|
190 |
0334 2A08 INCF CompTempVar491, F
|
|
|
191 |
0336 label268438645
|
|
|
192 |
0336 5208 MOVF CompTempVar491, F
|
|
|
193 |
0338 E102 BNZ label268438646
|
|
|
194 |
033A 0E77 MOVLW 0x77
|
|
|
195 |
033C 6E01 MOVWF main_1_motors
|
|
|
196 |
033E label268438646
|
|
|
197 |
033E B402 BTFSC main_1_sensors,2
|
|
|
198 |
0340 D002 BRA label268438649
|
|
|
199 |
0342 0EF7 MOVLW 0xF7
|
|
|
200 |
0344 6E01 MOVWF main_1_motors
|
|
|
201 |
0346 label268438649
|
|
|
202 |
0346 B602 BTFSC main_1_sensors,3
|
|
|
203 |
0348 D002 BRA label268438652
|
|
|
204 |
034A 0E7F MOVLW 0x7F
|
|
|
205 |
034C 6E01 MOVWF main_1_motors
|
|
|
206 |
034E label268438652
|
|
|
207 |
034E 5002 MOVF main_1_sensors, W
|
|
|
208 |
0350 6E89 MOVWF gbl_lata
|
|
|
209 |
0352 5001 MOVF main_1_motors, W
|
|
|
210 |
0354 6E09 MOVWF send_00000_arg_c
|
|
|
211 |
0356 EC02F001 CALL send_00000
|
|
|
212 |
035A D7E2 BRA label268438640
|
|
|
213 |
035C ; } main function end
|
318 |
kaklik |
214 |
|
324 |
kaklik |
215 |
ORG 0x0000035C
|
|
|
216 |
035C _startup
|
|
|
217 |
035C EF10F001 GOTO main
|
318 |
kaklik |
218 |
ORG 0x00300000
|
|
|
219 |
300000 FEFF DW 0xFEFF
|
|
|
220 |
300002 FEF6 DW 0xFEF6
|
|
|
221 |
ORG 0x00300004
|
|
|
222 |
300004 FEFF DW 0xFEFF
|
|
|
223 |
300006 FFFB DW 0xFFFB
|
|
|
224 |
ORG 0x00300008
|
|
|
225 |
300008 3FF0 DW 0x3FF0
|
|
|
226 |
30000A 9FFF DW 0x9FFF
|
|
|
227 |
30000C BFFF DW 0xBFFF
|