1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
|
;--------------------------------------------------------
; File Created by SDCC : free open source ANSI-C Compiler
; Version 2.7.4 #4943 (Oct 27 2007) (UNIX)
; This file was generated Fri Jun 13 14:34:03 2008
;--------------------------------------------------------
; PIC port for the 14-bit core
;--------------------------------------------------------
; .module extruder1
list p=16f648a
radix dec
include "p16f648a.inc"
;--------------------------------------------------------
; config word
;--------------------------------------------------------
__config 0x3f10
;--------------------------------------------------------
; external declarations
;--------------------------------------------------------
extern _init2
extern _processCommand
extern _motorTick
extern _timerTick
extern _checkTemperature
extern _flashLED
extern _LEDon
extern _setFlash
extern _uartTransmit
extern _sendReply
extern _sendMessage
extern _sendDataByte
extern _endMessage
extern _sendMessageISR
extern _sendDataByteISR
extern _endMessageISR
extern _releaseLock
extern _serialInterruptHandler
extern _packetReady
extern _uartNotifyReceive
extern _serial_init
extern _delay_10us
extern _clearwdt
extern _CCP1CON_bits
extern _CMCON_bits
extern _EECON1_bits
extern _INTCON_bits
extern _OPTION_REG_bits
extern _PCON_bits
extern _PIE1_bits
extern _PIR1_bits
extern _PORTA_bits
extern _PORTB_bits
extern _RCSTA_bits
extern _STATUS_bits
extern _T1CON_bits
extern _T2CON_bits
extern _TRISA_bits
extern _TRISB_bits
extern _TXSTA_bits
extern _VRCON_bits
extern _PWMPeriod
extern _buffer
extern _serialStatus
extern _INDF
extern _TMR0
extern _PCL
extern _STATUS
extern _FSR
extern _PORTA
extern _PORTB
extern _PCLATH
extern _INTCON
extern _PIR1
extern _TMR1L
extern _TMR1H
extern _T1CON
extern _TMR2
extern _T2CON
extern _CCPR1L
extern _CCPR1H
extern _CCP1CON
extern _RCSTA
extern _TXREG
extern _RCREG
extern _CMCON
extern _OPTION_REG
extern _TRISA
extern _TRISB
extern _PIE1
extern _PCON
extern _PR2
extern _TXSTA
extern _SPBRG
extern _EEDATA
extern _EEADR
extern _EECON1
extern _EECON2
extern _VRCON
extern ___sdcc_saved_fsr
extern __sdcc_gsinit_startup
;--------------------------------------------------------
; global declarations
;--------------------------------------------------------
global _init1
global _main
global _deviceAddress
global _interruptTemp
global PSAVE
global SSAVE
global WSAVE
global STK12
global STK11
global STK10
global STK09
global STK08
global STK07
global STK06
global STK05
global STK04
global STK03
global STK02
global STK01
global STK00
sharebank udata_ovr 0x0070
PSAVE res 1
SSAVE res 1
WSAVE res 1
STK12 res 1
STK11 res 1
STK10 res 1
STK09 res 1
STK08 res 1
STK07 res 1
STK06 res 1
STK05 res 1
STK04 res 1
STK03 res 1
STK02 res 1
STK01 res 1
STK00 res 1
;--------------------------------------------------------
; global definitions
;--------------------------------------------------------
UD_extruder1_0 udata
_interruptTemp res 1
;--------------------------------------------------------
; absolute symbol definitions
;--------------------------------------------------------
;--------------------------------------------------------
; compiler-defined variables
;--------------------------------------------------------
UDL_extruder1_0 udata
r0x1003 res 1
;--------------------------------------------------------
; initialized data
;--------------------------------------------------------
ID_extruder1_0 idata
_deviceAddress
db 0x08
;--------------------------------------------------------
; overlayable items in internal ram
;--------------------------------------------------------
; udata_ovr
;--------------------------------------------------------
; reset vector
;--------------------------------------------------------
STARTUP code
nop
pagesel __sdcc_gsinit_startup
goto __sdcc_gsinit_startup
;--------------------------------------------------------
; interrupt and initialization code
;--------------------------------------------------------
c_interrupt code 0x4
__sdcc_interrupt
;***
; pBlock Stats: dbName = I
;***
;entry: _isr ;Function start
; 0 exit points
;functions called:
; _serialInterruptHandler
; _motorTick
; _timerTick
; _serialInterruptHandler
; _motorTick
; _timerTick
;; Starting pCode block
_isr ;Function start
; 0 exit points
; .line 50; "extruder1.c" static void isr() interrupt 0 {
MOVWF WSAVE
SWAPF STATUS,W
CLRF STATUS
MOVWF SSAVE
MOVF PCLATH,W
CLRF PCLATH
MOVWF PSAVE
MOVF FSR,W
BANKSEL ___sdcc_saved_fsr
MOVWF ___sdcc_saved_fsr
; .line 51; "extruder1.c" interruptTemp = 1; //set flag, to check if the measurement is finishing during our isr
MOVLW 0x01
BANKSEL _interruptTemp
MOVWF _interruptTemp
; .line 53; "extruder1.c" serialInterruptHandler();
PAGESEL _serialInterruptHandler
CALL _serialInterruptHandler
PAGESEL $
; .line 55; "extruder1.c" if (RBIF)
BANKSEL _INTCON_bits
BTFSS _INTCON_bits,0
GOTO _00106_DS_
; .line 56; "extruder1.c" motorTick(); //should not occur in UNIVERSAL_PCB
PAGESEL _motorTick
CALL _motorTick
PAGESEL $
_00106_DS_
; .line 58; "extruder1.c" if (TMR1IF) {
BANKSEL _PIR1_bits
BTFSS _PIR1_bits,0
GOTO _00108_DS_
; .line 59; "extruder1.c" timerTick();
PAGESEL _timerTick
CALL _timerTick
PAGESEL $
; .line 60; "extruder1.c" TMR1IF = 0;
BANKSEL _PIR1_bits
BCF _PIR1_bits,0
_00108_DS_
; .line 62; "extruder1.c" if (C2OUT) {
BANKSEL _CMCON_bits
BTFSS _CMCON_bits,7
GOTO _00111_DS_
; .line 63; "extruder1.c" interruptTemp = 0; //measurement is not finished
BANKSEL _interruptTemp
CLRF _interruptTemp
_00111_DS_
BANKSEL ___sdcc_saved_fsr
MOVF ___sdcc_saved_fsr,W
MOVWF FSR
MOVF PSAVE,W
MOVWF PCLATH
CLRF STATUS
SWAPF SSAVE,W
MOVWF STATUS
SWAPF WSAVE,F
SWAPF WSAVE,W
END_OF_INTERRUPT
RETFIE
;--------------------------------------------------------
; code
;--------------------------------------------------------
code_extruder1 code
;***
; pBlock Stats: dbName = M
;***
;entry: _main ;Function start
; 2 exit points
;has an exit
;functions called:
; _init2
; _init1
; _serial_init
; _uartTransmit
; _uartTransmit
; _packetReady
; _processCommand
; _releaseLock
; _checkTemperature
; _delay_10us
; _init2
; _init1
; _serial_init
; _uartTransmit
; _uartTransmit
; _packetReady
; _processCommand
; _releaseLock
; _checkTemperature
; _delay_10us
;1 compiler assigned register :
; r0x1003
;; Starting pCode block
_main ;Function start
; 2 exit points
; .line 140; "extruder1.c" init2(); // Order is important here, otherwise interrupts will occur
PAGESEL _init2
CALL _init2
PAGESEL $
; .line 143; "extruder1.c" init1();
CALL _init1
; .line 144; "extruder1.c" serial_init();
PAGESEL _serial_init
CALL _serial_init
PAGESEL $
; .line 147; "extruder1.c" GIE=0;
BANKSEL _INTCON_bits
BCF _INTCON_bits,7
; .line 148; "extruder1.c" uartTransmit(0);
MOVLW 0x00
PAGESEL _uartTransmit
CALL _uartTransmit
PAGESEL $
; .line 149; "extruder1.c" uartTransmit(0);
MOVLW 0x00
PAGESEL _uartTransmit
CALL _uartTransmit
PAGESEL $
; .line 150; "extruder1.c" GIE=1;
BANKSEL _INTCON_bits
BSF _INTCON_bits,7
_00123_DS_
; .line 153; "extruder1.c" if (packetReady()) {
PAGESEL _packetReady
CALL _packetReady
PAGESEL $
BANKSEL r0x1003
MOVWF r0x1003
MOVF r0x1003,W
BTFSC STATUS,2
GOTO _00121_DS_
; .line 154; "extruder1.c" processCommand();
PAGESEL _processCommand
CALL _processCommand
PAGESEL $
; .line 155; "extruder1.c" releaseLock();
PAGESEL _releaseLock
CALL _releaseLock
PAGESEL $
_00121_DS_
; .line 158; "extruder1.c" checkTemperature();
PAGESEL _checkTemperature
CALL _checkTemperature
PAGESEL $
; .line 160; "extruder1.c" delay_10us();
PAGESEL _delay_10us
CALL _delay_10us
PAGESEL $
GOTO _00123_DS_
RETURN
; exit point of _main
;***
; pBlock Stats: dbName = C
;***
;entry: _init1 ;Function start
; 2 exit points
;has an exit
;; Starting pCode block
_init1 ;Function start
; 2 exit points
; .line 69; "extruder1.c" INTCON = BIN(00000000); // Interrupts disabled
BANKSEL _INTCON
CLRF _INTCON
; .line 70; "extruder1.c" PIR1 = 0; // Clear peripheral interrupt flags
CLRF _PIR1
; .line 71; "extruder1.c" PIE1 = BIN(00000000); // All peripheral interrupts initially disabled
BANKSEL _PIE1
CLRF _PIE1
; .line 73; "extruder1.c" OPTION_REG = BIN(01010111); // Disable TMR0 on RA4, 1:256 Prescaler for TMR0, pullups on
MOVLW 0x57
MOVWF _OPTION_REG
; .line 76; "extruder1.c" SPBRG = 12; // 12 = ~19200 baud @ 4MHz
MOVLW 0x0c
MOVWF _SPBRG
; .line 78; "extruder1.c" TXSTA = BIN(00000100); // 8 bit high speed
MOVLW 0x04
MOVWF _TXSTA
; .line 79; "extruder1.c" RCSTA = BIN(10000000); // Enable port for 8 bit receive
MOVLW 0x80
BANKSEL _RCSTA
MOVWF _RCSTA
; .line 80; "extruder1.c" CREN = 1; // Start reception
BSF _RCSTA_bits,4
; .line 81; "extruder1.c" TXEN = 1; // Enable transmit
BANKSEL _TXSTA_bits
BSF _TXSTA_bits,5
; .line 82; "extruder1.c" RCIE = 1; // Enable receive interrupts
BSF _PIE1_bits,5
; .line 92; "extruder1.c" RBIE = 1; // Enable RB port change interrupt
BANKSEL _INTCON_bits
BSF _INTCON_bits,3
; .line 94; "extruder1.c" PEIE = 1; // Peripheral interrupts on
BSF _INTCON_bits,6
; .line 96; "extruder1.c" TRISA = BIN(11000010) | PORTATRIS; // Turn off A/D lines,
MOVLW 0xe2
BANKSEL _TRISA
MOVWF _TRISA
; .line 99; "extruder1.c" TRISB = BIN(10000111);
MOVLW 0x87
MOVWF _TRISB
; .line 100; "extruder1.c" PORTA = 0;
BANKSEL _PORTA
CLRF _PORTA
; .line 101; "extruder1.c" PORTB = BIN(10000001); // Fan off; pullup on RB7
MOVLW 0x81
MOVWF _PORTB
; .line 113; "extruder1.c" CMCON = BIN(00000010); // Comparator: compare RA0 to int. ref.
MOVLW 0x02
MOVWF _CMCON
; .line 115; "extruder1.c" TMR1IE = 0;
BANKSEL _PIE1_bits
BCF _PIE1_bits,0
; .line 116; "extruder1.c" T1CON = BIN(00000000); // Timer 1 in clock mode with 1:1 scale
BANKSEL _T1CON
CLRF _T1CON
; .line 117; "extruder1.c" TMR1IE = 1; // Enable timer interrupt
BANKSEL _PIE1_bits
BSF _PIE1_bits,0
; .line 118; "extruder1.c" TMR1ON = 1;
BANKSEL _T1CON_bits
BSF _T1CON_bits,0
; .line 120; "extruder1.c" PR2 = PWMPeriod; // Initial PWM period
BANKSEL _PWMPeriod
MOVF _PWMPeriod,W
BANKSEL _PR2
MOVWF _PR2
; .line 121; "extruder1.c" CCP1CON = BIN(00001100); // Enable PWM mode
MOVLW 0x0c
BANKSEL _CCP1CON
MOVWF _CCP1CON
; .line 122; "extruder1.c" CCPR1L = 0; // Start turned off
CLRF _CCPR1L
; .line 124; "extruder1.c" T2CON = BIN(00000100); // Enable timer 2 and set prescale to 1
MOVLW 0x04
MOVWF _T2CON
; .line 125; "extruder1.c" GIE = 1; // Now turn on interrupts
BSF _INTCON_bits,7
RETURN
; exit point of _init1
; code size estimation:
; 90+ 49 = 139 instructions ( 376 byte)
end
|
