Subversion Repositories svnkaklik

Rev

Details | 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 
	include "P18F252.inc"
321 kaklik 9 
__HEAPSTART                      EQU	0x00000008 ; Start address of heap
318 kaklik 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
321 kaklik 106 
CompTempVarRet489                EQU	0x00000007 ; bytes:1
322 kaklik 107 
send_00000_arg_c                 EQU	0x00000007 ; bytes:1
318 kaklik 108 
main_1_motors                    EQU	0x00000001 ; bytes:1
109 
main_1_sensors                   EQU	0x00000002 ; bytes:1
322 kaklik 110 
main_1_leds                      EQU	0x00000003 ; bytes:1
111 
main_1_count                     EQU	0x00000004 ; bytes:2
112 
CompTempVar491                   EQU	0x00000006 ; bytes:1
113 
CompTempVar492                   EQU	0x00000007 ; bytes:1
318 kaklik 114 
	ORG 0x00000200
115 
	GOTO	_startup
116 
	ORG 0x00000204
322 kaklik 117 
send_00000
118 
; { send ; function begin
119 
label268438562
120 
	BTFSS gbl_pir1,4
121 
	BRA	label268438562
122 
	MOVF send_00000_arg_c, W
123 
	MOVWF gbl_txreg
124 
	RETURN
125 
; } send function end
126 
 
127 
	ORG 0x0000020E
318 kaklik 128 
receive_00000
129 
; { receive ; function begin
130 
	BTFSS gbl_rcsta,1
322 kaklik 131 
	BRA	label268438551
318 kaklik 132 
	BCF gbl_rcsta,4
133 
	BSF gbl_rcsta,4
322 kaklik 134 
label268438551
318 kaklik 135 
	BTFSS gbl_pir1,5
322 kaklik 136 
	BRA	label268438551
318 kaklik 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 
	CLRF main_1_motors
322 kaklik 173 
label268438598
174 
	BTFSC gbl_portb,0
175 
	BRA	label268438598
176 
	MOVLW 0xF0
177 
	MOVWF main_1_leds
178 
	MOVLW 0x80
179 
	MOVWF main_1_count
180 
	MOVLW 0x1A
181 
	MOVWF main_1_count+D'1'
182 
label268438603
183 
	MOVF main_1_count, W
184 
	SUBLW 0x00
185 
	BTFSC STATUS,C
186 
	MOVF main_1_count+D'1', W
187 
	BZ	label268438605
188 
	MOVLW 0x01
189 
	SUBWF main_1_count, W
190 
	MOVWF CompTempVar492
191 
	BTFSS STATUS,C
192 
	DECF main_1_count+D'1', F
193 
	MOVF CompTempVar492, W
194 
	MOVWF main_1_count
195 
	MOVLW 0x01
196 
	IORWF main_1_leds, W
197 
	MOVWF main_1_leds
198 
	MOVLW 0x02
199 
	IORWF main_1_leds, W
200 
	MOVWF main_1_leds
201 
	MOVLW 0x04
202 
	IORWF main_1_leds, W
203 
	MOVWF main_1_leds
204 
	MOVF main_1_leds, W
318 kaklik 205 
	MOVWF gbl_lata
322 kaklik 206 
	BRA	label268438603
207 
label268438605
208 
	SETF main_1_leds
209 
	SETF gbl_lata
210 
label268438623
318 kaklik 211 
	SETF main_1_sensors
212 
	CALL receive_00000
213 
	MOVF CompTempVarRet489, W
214 
	MOVWF main_1_sensors
321 kaklik 215 
	CLRF CompTempVar491
216 
	BTFSS main_1_sensors,1
322 kaklik 217 
	BRA	label268438628
321 kaklik 218 
	BTFSS main_1_sensors,0
322 kaklik 219 
	BRA	label268438628
321 kaklik 220 
	INCF CompTempVar491, F
322 kaklik 221 
label268438628
321 kaklik 222 
	MOVF CompTempVar491, F
322 kaklik 223 
	BNZ	label268438629
321 kaklik 224 
	MOVLW 0x77
225 
	MOVWF main_1_motors
322 kaklik 226 
label268438629
318 kaklik 227 
	BTFSC main_1_sensors,2
322 kaklik 228 
	BRA	label268438632
321 kaklik 229 
	MOVLW 0xF7
230 
	MOVWF main_1_motors
322 kaklik 231 
label268438632
318 kaklik 232 
	BTFSC main_1_sensors,3
322 kaklik 233 
	BRA	label268438635
321 kaklik 234 
	MOVLW 0x7F
235 
	MOVWF main_1_motors
322 kaklik 236 
label268438635
321 kaklik 237 
	MOVF main_1_sensors, W
318 kaklik 238 
	MOVWF gbl_lata
239 
	MOVF main_1_motors, W
240 
	MOVWF send_00000_arg_c
241 
	CALL send_00000
322 kaklik 242 
	BRA	label268438623
318 kaklik 243 
; } main function end
244 
 
322 kaklik 245 
	ORG 0x000002D8
318 kaklik 246 
_startup
247 
	GOTO	main
248 
	ORG 0x00300000
249 
	DW 0xFEFF
250 
	DW 0xFEF6
251 
	ORG 0x00300004
252 
	DW 0xFEFF
253 
	DW 0xFFFB
254 
	ORG 0x00300008
255 
	DW 0x3FF0
256 
	DW 0x9FFF
257 
	DW 0xBFFF
258 
	END