-
Notifications
You must be signed in to change notification settings - Fork 1
/
main.lst
2104 lines (1993 loc) · 92.4 KB
/
main.lst
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
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 1
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
Warning[205]: Found directive in column 1. (PROCESSOR)
00001 PROCESSOR 16F876
00002 #INCLUDE <P16F876A.inc>
00001 LIST
00002
00003 ;==========================================================================
00004 ; MPASM PIC16F876A processor include
00005 ;
00006 ; (c) Copyright 1999-2011 Microchip Technology, All rights reserved
00007 ;==========================================================================
00008
00522 LIST
00003 ; --- STATUS BITS -----
00000007 00004 IR EQU 7
00000006 00005 RP1 EQU 6
00000005 00006 RP0 EQU 5
00000004 00007 NOT_TO EQU 4
00000003 00008 NOT_PD EQU 3
00000002 00009 ZF EQU 2
00000001 00010 DC EQU 1
00000000 00011 CF EQU 0
00012 ; -- OPTION BITS -----
00000000 00013 W EQU B'0'
00000001 00014 F EQU .1
00015
00016 ; -- GPR --
00000020 00017 GP_STATUS EQU 20H ; for global control
00000021 00018 SWT_STATUS EQU 21H ; for control major flags
00000022 00019 MOD_STATUS EQU 22H ; for control mode
00000023 00020 CLK_STATUS EQU 23H ; for control clock flags
00000024 00021 SP_STATUS EQU 24H ; for check 0.25sec
00000025 00022 STACK_NUM EQU 25H ; for save the number of stack
00023
00024 ; backup buffer for interrupt
00000026 00025 W_TEMP EQU 26H
00000027 00026 S_TEMP EQU 27H
00000028 00027 PC_TEMP EQU 28H
00028 ; for check time
00000029 00029 INT_CNT EQU 29H
0000002A 00030 B_DELAY EQU 2AH
0000002B 00031 BT_DELAY EQU 2BH
00032
00033 ; for use Analog data control
0000002C 00034 RET_VOL EQU 2CH
0000002D 00035 ANL_CNT EQU 2DH
0000002E 00036 TBF_CNT EQU 2EH
0000002F 00037 TBF_BF EQU 2FH
00000030 00038 THBF_HALF EQU 30H
00000031 00039 THBF_1 EQU 31H
00000032 00040 THBF_2 EQU 32H
00000033 00041 THBF_3 EQU 33H
00000034 00042 THBF_4 EQU 34H
00000035 00043 T_1 EQU 35H
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 2
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00000036 00044 T_10 EQU 36H
00000037 00045 T_100 EQU 37H
00000038 00046 CR_TH EQU 38H ; CuRrent THermometer value
00000039 00047 CR_TH_LAP EQU 39H
0000003A 00048 CR_TH_BUFF EQU 3AH
00049
00050 ;DISP BUFFER
0000003B 00051 DISPBF_1 EQU 3BH
0000003C 00052 DISPBF_2 EQU 3CH
0000003D 00053 DISPBF_3 EQU 3DH
0000003E 00054 DISPBF_4 EQU 3EH
00055
0000003F 00056 BEEP_STATUS EQU 3FH
00057
00058 ; define pointer's start - 40 ~ 5F
00000040 00059 S_BUF EQU 40H
00060
00061 ;CLOCK
00000060 00062 D_1SEC EQU 60H
00000061 00063 D_10SEC EQU 61H
00000062 00064 D_1MIN EQU 62H
00000063 00065 D_10MIN EQU 63H
00000064 00066 D_1HR EQU 64H
00000065 00067 D_10HR EQU 65H
00000066 00068 D_THR EQU 66H
00000067 00069 D_1SEC_B EQU 67H
00000068 00070 D_10SEC_B EQU 68H
00000069 00071 D_1MIN_B EQU 69H
0000006A 00072 D_10MIN_B EQU 6AH
0000006B 00073 D_1HR_B EQU 6BH
0000006C 00074 D_10HR_B EQU 6CH
00075
0000006D 00076 MAIN_BF EQU 6DH
0000006E 00077 STACK_BF EQU 6EH
0000006F 00078 B_BEEP EQU 6FH
00000070 00079 B_BEEP_CNT EQU 70H
00000071 00080 B_BEEP_EB EQU 71H
00000072 00081 LAP_NUM EQU 72H
00082
00083 ; -- GPR BIT
00084 ;0-3 : FND COMMON set
00000000 00085 INT_SWT1 EQU 0
00000001 00086 INT_SWT2 EQU 1
00000002 00087 INT_SWT3 EQU 2
00000003 00088 INT_SWT4 EQU 3
00089 ;4-7 : FND dot set
00000004 00090 DOT_SWT1 EQU 4
00000005 00091 DOT_SWT2 EQU 5
00000006 00092 DOT_SWT3 EQU 6
00000007 00093 DOT_SWT4 EQU 7
00094
00095 ; -- SPR BIT
00096 ;0 : H/M or M/S
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 3
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00000000 00097 HM_CONV EQU 0
00098 ;1 : Button Enable Flag
00000001 00099 BT_ENABLE EQU 1
00100 ;2 : ANALOG Input Enable Flag
00000002 00101 ANL_ENABLE EQU 2
00102 ;3 : LAP existance
00000003 00103 LAP_EXT EQU 3
00104 ;4 : LAP overflow
00000004 00105 LAP_OV EQU 4
00106 ;5~7 : LED dot set
00000005 00107 LED_SWT3 EQU 5
00000006 00108 LED_SWT2 EQU 6
00000007 00109 LED_SWT1 EQU 7
00110
00111 ; -- MDR BIT
00112 ;0 : Thermometer
00000000 00113 MODE1 EQU 0
00114 ;1 : Clock
00000001 00115 MODE2 EQU 1
00116 ;2 : Clock : Mody
00000002 00117 MODE3 EQU 2
00118 ;3 : Ther : Lap_Check
00000003 00119 MODE4 EQU 3
00120 ;5 : Analog check complete
00000005 00121 AD_DONE EQU 5
00122 ;6 : ANL_MEAN_MODULATOR
00000006 00123 HALF_CHECK EQU 6
00124
00125 ; -- CLK BIT
00126 ;0 : HOUR
00000000 00127 HOUR EQU 0
00128 ;1 : MIN
00000001 00129 MIN EQU 1
00130 ;2 : SEC
00000002 00131 SEC EQU 2
00132
00133
00134 ; -- SP-STATUS
00135 ;0~4 : Timer Counter
00000000 00136 DOT_CHECK1 EQU 0
00000001 00137 DOT_CHECK2 EQU 1
00000002 00138 DOT_SEC EQU 2
00000003 00139 DOT_HALF EQU 3 ; NOT USED
00000004 00140 DOT_QUADRA EQU 4 ; NOT USED
00141
00142 ;-- BEEP_STATUS
00143 ;0 : 부저 온오프 관리 (사용안함)
00000000 00144 B_ENABLE EQU 0
00145 ;1 : 부저 박자 관리
00000001 00146 B_BEEPALLOW EQU 1
00147 ;2 : 부저 박자 관리 2
00000002 00148 B_BEEPTEMPO EQU 2
00149 ;3 : 부저 박자 관리 3
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 4
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00000003 00150 B_PRES EQU 3
00151
00152 ; -- start
Warning[205]: Found directive in column 1. (ORG)
00153 ORG 0
Warning[203]: Found opcode in column 1. (GOTO)
0000 2??? 00154 GOTO START_UP
00155
00156 ; Interupt routine
Warning[205]: Found directive in column 1. (ORG)
00157 ORG 4
0004 00A6 00158 MOVWF W_TEMP
0005 0E03 00159 SWAPF STATUS,W
0006 00A7 00160 MOVWF S_TEMP
00161
0007 1B0C 00162 BTFSC PIR1,6
0008 2??? 00163 CALL A_INTR
0009 190B 00164 BTFSC INTCON,2 ;
000A 2??? 00165 CALL DISP
00166
000B 0E27 00167 SWAPF S_TEMP,W
000C 0083 00168 MOVWF STATUS
000D 0EA6 00169 SWAPF W_TEMP,F
000E 0E26 00170 SWAPF W_TEMP,W
000F 0009 00171 RETFIE
00172 ;######################
00173 ; D_CONV
00174 ; BIT :
00175 ; 7 6 5 4 3 2 1 0
00176 ; A B C G . F D E
00177 ;######################
0010 00178 D_CONV
0010 390F 00179 ANDLW 0FH
0011 0782 00180 ADDWF PCL,F
0012 34E7 00181 RETLW B'11100111' ;0
0013 3460 00182 RETLW B'01100000' ;1
0014 34D3 00183 RETLW B'11010011' ;2
0015 34F2 00184 RETLW B'11110010' ;3
0016 3474 00185 RETLW B'01110100' ;4
0017 34B6 00186 RETLW B'10110110' ;5
0018 34B7 00187 RETLW B'10110111' ;6
0019 34E0 00188 RETLW B'11100000' ;7
001A 34F7 00189 RETLW B'11110111' ;8
001B 34F6 00190 RETLW B'11110110' ;9
001C 3410 00191 RETLW B'00010000' ;-
001D 34FF 00192 RETLW B'11111111' ;Test
001E 34E5 00193 RETLW B'11100101' ;C
001F 3408 00194 RETLW B'00001000' ;.
0020 3437 00195 RETLW B'00110111' ;E
0021 3417 00196 RETLW B'00010111' ;F
00197
00198 ;######################
00199 ; DISP
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 5
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00200 ; DISP 1~4 -> LED control
00201 ;######################
0022 00202 DISP
0022 2??? 00203 CALL BTD_MOD
0023 2??? 00204 CALL ANL_MOD
0024 1585 00205 BSF PORTA, 3
0025 1505 00206 BSF PORTA, 2
0026 1506 00207 BSF PORTB, 2
0027 1486 00208 BSF PORTB, 1
0028 1820 00209 BTFSC GP_STATUS, INT_SWT1
0029 2??? 00210 GOTO DISP1
002A 18A0 00211 BTFSC GP_STATUS, INT_SWT2
002B 2??? 00212 GOTO DISP2
002C 1920 00213 BTFSC GP_STATUS, INT_SWT3
002D 2??? 00214 GOTO DISP3
002E 19A0 00215 BTFSC GP_STATUS, INT_SWT4
002F 2??? 00216 GOTO DISP4
0030 2??? 00217 GOTO DISP_LED
0031 00218 DISP1
0031 083B 00219 MOVF DISPBF_1,W
0032 2??? 00220 CALL D_CONV
0033 0087 00221 MOVWF PORTC
0034 1A20 00222 BTFSC GP_STATUS,DOT_SWT1
0035 1587 00223 BSF PORTC,3
0036 2??? 00224 CALL P_CONV
0037 1185 00225 BCF PORTA,3
0038 1020 00226 BCF GP_STATUS,INT_SWT1
0039 14A0 00227 BSF GP_STATUS,INT_SWT2
003A 110B 00228 BCF INTCON,2
003B 0008 00229 RETURN
003C 00230 DISP2
003C 083C 00231 MOVF DISPBF_2,W
003D 2??? 00232 CALL D_CONV
003E 0087 00233 MOVWF PORTC
003F 1AA0 00234 BTFSC GP_STATUS,DOT_SWT2
0040 1587 00235 BSF PORTC,3
0041 2??? 00236 CALL P_CONV
0042 1105 00237 BCF PORTA,2
0043 10A0 00238 BCF GP_STATUS,INT_SWT2
0044 1520 00239 BSF GP_STATUS,INT_SWT3
0045 110B 00240 BCF INTCON,2
0046 0008 00241 RETURN
0047 00242 DISP3
0047 083D 00243 MOVF DISPBF_3,W
0048 2??? 00244 CALL D_CONV
0049 0087 00245 MOVWF PORTC
004A 1B20 00246 BTFSC GP_STATUS,DOT_SWT3
004B 1587 00247 BSF PORTC,3
004C 2??? 00248 CALL P_CONV
004D 1106 00249 BCF PORTB,2
004E 1120 00250 BCF GP_STATUS,INT_SWT3
004F 15A0 00251 BSF GP_STATUS,INT_SWT4
0050 110B 00252 BCF INTCON,2
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 6
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0051 0008 00253 RETURN
0052 00254 DISP4
0052 083E 00255 MOVF DISPBF_4,W
0053 2??? 00256 CALL D_CONV
0054 0087 00257 MOVWF PORTC
0055 1BA0 00258 BTFSC GP_STATUS,DOT_SWT4
0056 1587 00259 BSF PORTC,3
0057 2??? 00260 CALL P_CONV
0058 1086 00261 BCF PORTB,1
0059 11A0 00262 BCF GP_STATUS,INT_SWT4
005A 110B 00263 BCF INTCON,2
005B 0008 00264 RETURN
005C 00265 DISP_LED
005C 0187 00266 CLRF PORTC
005D 1386 00267 BCF PORTB,7
005E 1FA1 00268 BTFSS SWT_STATUS,LED_SWT1
005F 1787 00269 BSF PORTC,7
0060 1F21 00270 BTFSS SWT_STATUS,LED_SWT2
0061 1707 00271 BSF PORTC,6
0062 1EA1 00272 BTFSS SWT_STATUS,LED_SWT3
0063 1687 00273 BSF PORTC,5
0064 1786 00274 BSF PORTB,7
0065 1420 00275 BSF GP_STATUS,INT_SWT1
0066 0AA9 00276 INCF INT_CNT,F
0067 110B 00277 BCF INTCON,2
0068 0008 00278 RETURN
00279
00280 ;######################
00281 ; P_CONV
00282 ; PORTC[4] -> PORTA[1]
00283 ; PORTC[3] -> PORTB[0]
00284 ;######################
0069 00285 P_CONV
0069 1485 00286 BSF PORTA, 1
006A 1E07 00287 BTFSS PORTC, 4
006B 1085 00288 BCF PORTA, 1
006C 1406 00289 BSF PORTB, 0
006D 1D87 00290 BTFSS PORTC, 3
006E 1005 00291 BCF PORTA, 0
006F 0008 00292 RETURN
00293
00294 ;######################
00295 ; ANL_MOD
00296 ; get some cool-down for ADC
00297 ;######################
0070 00298 ANL_MOD
0070 1921 00299 BTFSC SWT_STATUS,ANL_ENABLE
0071 0008 00300 RETURN
0072 082D 00301 MOVF ANL_CNT,W
0073 1903 00302 BTFSC STATUS,ZF
0074 2??? 00303 GOTO ANL_GO
0075 03AD 00304 DECF ANL_CNT,F
0076 0008 00305 RETURN
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 7
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0077 00306 ANL_GO
0077 1521 00307 BSF SWT_STATUS,ANL_ENABLE
0078 151F 00308 BSF ADCON0,2
0079 0008 00309 RETURN
00310
00311 ;######################
00312 ; A_INTR
00313 ;######################
007A 00314 A_INTR
007A 081E 00315 MOVF ADRESH,W
007B 00AC 00316 MOVWF RET_VOL
007C 130C 00317 BCF PIR1,6
007D 16A2 00318 BSF MOD_STATUS,AD_DONE
007E 3020 00319 MOVLW .32
007F 00AD 00320 MOVWF ANL_CNT
0080 1121 00321 BCF SWT_STATUS,ANL_ENABLE
0081 0008 00322 RETURN
00323
00324 ;######################
00325 ; BTD_MOD & BEEP_MOD
00326 ; check time to use button and buzzer
00327 ;######################
0082 00328 BTD_MOD
0082 082B 00329 MOVF BT_DELAY,W
0083 1903 00330 BTFSC STATUS,ZF
0084 2??? 00331 GOTO BEEP_MOD
0085 03AB 00332 DECF BT_DELAY,F
0086 00333 BEEP_MOD
0086 086F 00334 MOVF B_BEEP,W
0087 1903 00335 BTFSC STATUS,ZF
0088 0008 00336 RETURN
0089 03EF 00337 DECF B_BEEP,F
008A 0008 00338 RETURN
00339
00340 ;--main
008B 00341 START_UP
008B 1683 00342 BSF STATUS,RP0 ; BANK 1
00343 ;######################
00344 ; PORTA
00345 ; 0 = Thermometer
00346 ; 1:3 = FND (G, COM2, COM1)
00347 ; 4 = buzzer
00348 ;######################
008C 3001 00349 MOVLW B'00000001'
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
008D 0085 00350 MOVWF TRISA
00351 ;######################
00352 ; PORTB
00353 ; 0:2 = FND (DP, COM4, COM3)
00354 ; 3:5 = button
00355 ; 6:7 = MOLEX5 (5, 4)
00356 ; 7 also used on diode common
00357 ;######################
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 8
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
008E 3038 00358 MOVLW B'00111000'
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
008F 0086 00359 MOVWF TRISB
00360 ;######################
00361 ; PORTC
00362 ; 0:2 = FND (E, D, F)
00363 ; 5:7 = FND (C, B, A)
00364 ;######################
0090 3000 00365 MOVLW B'00000000'
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
0091 0087 00366 MOVWF TRISC
00367 ;######################
00368 ; OPTION_REG
00369 ; Timer 0 overflow after 1.024ms
00370 ; 975 * 1.024 = 998.4 ms
00371 ;######################
0092 3001 00372 MOVLW B'00000001'
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
0093 0081 00373 MOVWF OPTION_REG
00374 ;######################
00375 ; ADCON1
00376 ; Left-Justified
00377 ; {D,D,D,D,D,D,D,A}
00378 ;######################
0094 300E 00379 MOVLW B'00001110'
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
0095 009F 00380 MOVWF ADCON1
0096 1283 00381 BCF STATUS,RP0 ; BANK 0
00382 ;######################
00383 ; ADCON0
00384 ; Fosc/32
00385 ; use RA0 to AN0
00386 ;######################
0097 3081 00387 MOVLW B'10000001'
0098 009F 00388 MOVWF ADCON0
0099 018C 00389 CLRF PIR1
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
009A 018C 00390 CLRF PIE1
Message[302]: Register in operand not in bank 0. Ensure that bank bits are correct.
009B 170C 00391 BSF PIE1,6 ; ADC Interrupt Enable bit
009C 168B 00392 BSF INTCON,5 ; Timer 0 Interrupt Enable bit
009D 170B 00393 BSF INTCON,6 ; Peripheral Interrupt Enable bit
009E 178B 00394 BSF INTCON,7 ; Global Interrupt Enable bit
009F 00395 DEFAULT_ST
009F 01A0 00396 CLRF GP_STATUS
00A0 01A1 00397 CLRF SWT_STATUS
00A1 3001 00398 MOVLW B'00000001'
00A2 00A2 00399 MOVWF MOD_STATUS
00A3 01A2 00400 CLRF MOD_STATUS
00A4 01A3 00401 CLRF CLK_STATUS
00A5 01A4 00402 CLRF SP_STATUS
00A6 01A5 00403 CLRF STACK_NUM
00A7 01A9 00404 CLRF INT_CNT
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 9
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00A8 01A9 00405 CLRF INT_CNT
00A9 01AA 00406 CLRF B_DELAY
00AA 01AB 00407 CLRF BT_DELAY
00AB 01AE 00408 CLRF TBF_CNT
00AC 01AD 00409 CLRF ANL_CNT
00AD 01E0 00410 CLRF D_1SEC
00AE 01E1 00411 CLRF D_10SEC
00AF 01E2 00412 CLRF D_1MIN
00B0 01E3 00413 CLRF D_10MIN
00B1 01E4 00414 CLRF D_1HR
00B2 01E5 00415 CLRF D_10HR
00B3 01E6 00416 CLRF D_THR
00B4 00417 LOOP_START
00B4 00418 CK_LPS
00B4 3031 00419 MOVLW .49
00B5 0229 00420 SUBWF INT_CNT,W
00B6 1D03 00421 BTFSS STATUS,ZF
00B7 2??? 00422 GOTO XLOOP
00B8 2??? 00423 GOTO DOT_LOOP
00B9 00424 DOT_LOOP
00B9 01A9 00425 CLRF INT_CNT
00BA 0824 00426 MOVF SP_STATUS,W
00BB 3903 00427 ANDLW B'00000011'
00BC 00ED 00428 MOVWF MAIN_BF
00BD 3003 00429 MOVLW .3
00BE 026D 00430 SUBWF MAIN_BF,W
00BF 1903 00431 BTFSC STATUS,ZF
00C0 2??? 00432 GOTO CK_LOOP_S
00C1 0AA4 00433 INCF SP_STATUS,F
00C2 2??? 00434 GOTO XLOOP
00C3 00435 CK_LOOP_S
Message[305]: Using default destination of 1 (file).
00C3 0AA9 00436 INCF INT_CNT
00C4 10A4 00437 BCF SP_STATUS, DOT_CHECK2
00C5 1024 00438 BCF SP_STATUS, DOT_CHECK1
00C6 1D24 00439 BTFSS SP_STATUS, DOT_SEC
00C7 2??? 00440 GOTO CK_LOOP_S2
00C8 1124 00441 BCF SP_STATUS,DOT_SEC
00C9 2??? 00442 GOTO CK_LOOP
00CA 00443 CK_LOOP_S2
00CA 1524 00444 BSF SP_STATUS,DOT_SEC
00CB 2??? 00445 GOTO CK_LOOP
00CC 00446 CK_LOOP
Message[305]: Using default destination of 1 (file).
00CC 0AE0 00447 INCF D_1SEC
00CD 300A 00448 MOVLW .10
00CE 0260 00449 SUBWF D_1SEC,W
00CF 1D03 00450 BTFSS STATUS,ZF
00D0 2??? 00451 GOTO XLOOP
00D1 01E0 00452 CLRF D_1SEC
Message[305]: Using default destination of 1 (file).
00D2 0AE1 00453 INCF D_10SEC
00D3 3006 00454 MOVLW .6
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 10
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00D4 0261 00455 SUBWF D_10SEC,W
00D5 1D03 00456 BTFSS STATUS,ZF
00D6 2??? 00457 GOTO XLOOP
00D7 01E1 00458 CLRF D_10SEC
Message[305]: Using default destination of 1 (file).
00D8 0AE2 00459 INCF D_1MIN
00D9 300A 00460 MOVLW .10
00DA 0262 00461 SUBWF D_1MIN,W
00DB 1D03 00462 BTFSS STATUS,ZF
00DC 2??? 00463 GOTO XLOOP
00DD 01E2 00464 CLRF D_1MIN
Message[305]: Using default destination of 1 (file).
00DE 0AE3 00465 INCF D_10MIN
00DF 3006 00466 MOVLW .6
00E0 0263 00467 SUBWF D_10MIN,W
00E1 1D03 00468 BTFSS STATUS,ZF
00E2 2??? 00469 GOTO XLOOP
00E3 01E3 00470 CLRF D_10MIN
Message[305]: Using default destination of 1 (file).
00E4 0AE4 00471 INCF D_1HR
Message[305]: Using default destination of 1 (file).
00E5 0AE6 00472 INCF D_THR
00E6 300A 00473 MOVLW .10
00E7 0264 00474 SUBWF D_1HR,W
00E8 1D03 00475 BTFSS STATUS,ZF
00E9 2??? 00476 GOTO CK_LOOP_2
00EA 01E4 00477 CLRF D_1HR
Message[305]: Using default destination of 1 (file).
00EB 0AE5 00478 INCF D_10HR
00EC 2??? 00479 GOTO XLOOP
00ED 00480 CK_LOOP_2
00ED 3018 00481 MOVLW .24
00EE 0266 00482 SUBWF D_THR,W
00EF 1D03 00483 BTFSS STATUS,ZF
00F0 2??? 00484 GOTO XLOOP
00F1 01E6 00485 CLRF D_THR
00F2 01E4 00486 CLRF D_1HR
00F3 01E5 00487 CLRF D_10HR
00F4 2??? 00488 GOTO XLOOP
00F5 00489 XLOOP
00F5 2??? 00490 GOTO DISPBF_CONTROL
00F6 00491 XLOOP_END
00F6 00492 THLOOP
00F6 1AA2 00493 BTFSC MOD_STATUS,AD_DONE
00F7 2??? 00494 CALL TH_CONTROL
00F8 00495 BT_LOOP
00496 ;######################
00497 ; Way to check Button-Input
00498 ; 1. Chattering delay is zero? -> if true, ignore input signal.
00499 ; 2. Button is floating? -> if false, ignore input signal. (until button is floating)
00500 ; 3. goto subroutine
00501 ;######################
00F8 082B 00502 MOVF BT_DELAY,W
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 11
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00F9 1D03 00503 BTFSS STATUS,ZF
00FA 2??? 00504 GOTO L_LOOP
00FB 18A1 00505 BTFSC SWT_STATUS,BT_ENABLE
00FC 2??? 00506 GOTO BT_LOOP1
00FD 00507 BT_CHECK
00FD 0806 00508 MOVF PORTB,W
00FE 391C 00509 ANDLW B'00011100'
00FF 3A1C 00510 XORLW B'00011100'
0100 1D03 00511 BTFSS STATUS,ZF
0101 2??? 00512 GOTO L_LOOP
0102 14A1 00513 BSF SWT_STATUS,BT_ENABLE
0103 00514 BT_LOOP1
0103 1986 00515 BTFSC PORTB,3
0104 2??? 00516 GOTO BT_LOOP2
0105 10A1 00517 BCF SWT_STATUS,BT_ENABLE
0106 2??? 00518 CALL BEEP_2
0107 307F 00519 MOVLW 7FH
0108 00AB 00520 MOVWF BT_DELAY
0109 2??? 00521 CALL BT_1
010A 2??? 00522 GOTO L_LOOP
010B 00523 BT_LOOP2
010B 1A06 00524 BTFSC PORTB,4
010C 2??? 00525 GOTO BT_LOOP3
010D 10A1 00526 BCF SWT_STATUS,BT_ENABLE
010E 2??? 00527 CALL BEEP_2
010F 307F 00528 MOVLW 7FH
0110 00AB 00529 MOVWF BT_DELAY
0111 2??? 00530 CALL BT_2
0112 2??? 00531 GOTO L_LOOP
0113 00532 BT_LOOP3
0113 1A86 00533 BTFSC PORTB,5
0114 2??? 00534 GOTO L_LOOP
0115 10A1 00535 BCF SWT_STATUS,BT_ENABLE
0116 2??? 00536 CALL BEEP_2
0117 307F 00537 MOVLW 7FH
0118 00AB 00538 MOVWF BT_DELAY
0119 2??? 00539 CALL BT_3
011A 2??? 00540 GOTO L_LOOP
011B 00541 BT_LOOP_END
011B 00542 L_LOOP
011B 2??? 00543 CALL BUZZ_BEEP_MOD
011C 2??? 00544 CALL BUZZ_CTR
011D 2??? 00545 GOTO LOOP_START
00546
00547 ;######################
00548 ;Buzzer is on when B_BEEL > 0 && B_BEEPALLOW == 0 && B_BEEPTEMPO == 0
00549 ;######################
011E 00550 BUZZ_CTR
011E 086F 00551 MOVF B_BEEP,W
011F 1903 00552 BTFSC STATUS,ZF
0120 2??? 00553 GOTO BUZZ_OFF
0121 18BF 00554 BTFSC BEEP_STATUS,B_BEEPALLOW
0122 2??? 00555 GOTO BUZZ_OFF
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 12
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0123 193F 00556 BTFSC BEEP_STATUS,B_BEEPTEMPO
0124 2??? 00557 GOTO BUZZ_OFF
0125 00558 BUZZ_ON
0125 1605 00559 BSF PORTA,4
0126 0008 00560 RETURN
0127 00561 BUZZ_OFF
0127 1205 00562 BCF PORTA,4
0128 0008 00563 RETURN
00564
00565 ;######################
00566 ; if (B_BEEP == 0)
00567 ; B_BEEP_CNT--; B_BEEP = 122;
00568 ; B_PRES == 1 : B_BEEP / 2;
00569 ; if (B_BEEP_CNT == 0)
00570 ; B_BEEP_EB--; B_BEEP_CNT = 8;
00571 ; When B_BEEP_EB decrease, B_BEEPTEMPO toggle.
00572 ; When B_BEEP_CNT decrease, B_BEEPALLOW toggle.
00573 ;######################
0129 00574 BUZZ_BEEP_MOD
Message[305]: Using default destination of 1 (file).
0129 08EF 00575 MOVF B_BEEP
012A 1D03 00576 BTFSS STATUS, ZF
012B 0008 00577 RETURN
Message[305]: Using default destination of 1 (file).
012C 08F0 00578 MOVF B_BEEP_CNT
012D 1D03 00579 BTFSS STATUS,ZF
012E 2??? 00580 GOTO BEEP_MAIN
012F 00581 BEEP_SWT2
Message[305]: Using default destination of 1 (file).
012F 08F1 00582 MOVF B_BEEP_EB
0130 1903 00583 BTFSC STATUS,ZF
0131 0008 00584 RETURN
Message[305]: Using default destination of 1 (file).
0132 03F1 00585 DECF B_BEEP_EB
0133 3008 00586 MOVLW .8
0134 00F0 00587 MOVWF B_BEEP_CNT
0135 10BF 00588 BCF BEEP_STATUS,B_BEEPALLOW
0136 193F 00589 BTFSC BEEP_STATUS,B_BEEPTEMPO
0137 2??? 00590 GOTO CLEAR_BEEPTEM
0138 153F 00591 BSF BEEP_STATUS,B_BEEPTEMPO
0139 2??? 00592 GOTO BEEP_MAIN
013A 00593 CLEAR_BEEPTEM
013A 113F 00594 BCF BEEP_STATUS,B_BEEPTEMPO
013B 2??? 00595 GOTO BEEP_MAIN
013C 00596 BEEP_MAIN
Message[305]: Using default destination of 1 (file).
013C 03F0 00597 DECF B_BEEP_CNT
013D 19BF 00598 BTFSC BEEP_STATUS,B_PRES
013E 2??? 00599 GOTO BEEP_MAIN1
013F 307A 00600 MOVLW .122
0140 2??? 00601 GOTO BEEP_MAIN2
0141 00602 BEEP_MAIN1
0141 303D 00603 MOVLW .61
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 13
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0142 00604 BEEP_MAIN2
0142 00EF 00605 MOVWF B_BEEP
0143 18BF 00606 BTFSC BEEP_STATUS,B_BEEPALLOW
0144 2??? 00607 GOTO CLEAR_BEEP
0145 14BF 00608 BSF BEEP_STATUS,B_BEEPALLOW
0146 0008 00609 RETURN
0147 00610 CLEAR_BEEP
0147 10BF 00611 BCF BEEP_STATUS,B_BEEPALLOW
0148 0008 00612 RETURN
0149 00613 BEEP_1 ; beep 0.5sec
0149 01F0 00614 CLRF B_BEEP_CNT
014A 01F1 00615 CLRF B_BEEP_EB
014B 30F4 00616 MOVLW .244
014C 00EF 00617 MOVWF B_BEEP
014D 10BF 00618 BCF BEEP_STATUS,B_BEEPALLOW
014E 113F 00619 BCF BEEP_STATUS,B_BEEPTEMPO
014F 0008 00620 RETURN
0150 00621 BEEP_2 ; beep very short
0150 01F0 00622 CLRF B_BEEP_CNT
0151 01F1 00623 CLRF B_BEEP_EB
0152 300F 00624 MOVLW .15
0153 00EF 00625 MOVWF B_BEEP
0154 10BF 00626 BCF BEEP_STATUS,B_BEEPALLOW
0155 113F 00627 BCF BEEP_STATUS,B_BEEPTEMPO
0156 0008 00628 RETURN
0157 00629 BEEP_3 ; beep-beep-!
0157 01EF 00630 CLRF B_BEEP
0158 01F1 00631 CLRF B_BEEP_EB
0159 3004 00632 MOVLW .4
015A 00F0 00633 MOVWF B_BEEP_CNT
015B 10BF 00634 BCF BEEP_STATUS,B_BEEPALLOW
015C 113F 00635 BCF BEEP_STATUS,B_BEEPTEMPO
015D 11BF 00636 BCF BEEP_STATUS,B_PRES
015E 0008 00637 RETURN
015F 00638 BEEP_4 ; beep * 4
015F 01EF 00639 CLRF B_BEEP
0160 01F0 00640 CLRF B_BEEP_CNT
0161 3008 00641 MOVLW .8
0162 00F1 00642 MOVWF B_BEEP_EB
0163 14BF 00643 BSF BEEP_STATUS,B_BEEPALLOW
0164 153F 00644 BSF BEEP_STATUS,B_BEEPTEMPO
0165 15BF 00645 BSF BEEP_STATUS,B_PRES
0166 0008 00646 RETURN
00647
0167 00648 TH_CONTROL
0167 12A2 00649 BCF MOD_STATUS,AD_DONE
0168 182E 00650 BTFSC TBF_CNT, 0
0169 2??? 00651 GOTO TH_CONT_0
016A 18AE 00652 BTFSC TBF_CNT, 1
016B 2??? 00653 GOTO TH_CONT_1
016C 192E 00654 BTFSC TBF_CNT, 2
016D 2??? 00655 GOTO TH_CONT_2
016E 19AE 00656 BTFSC TBF_CNT, 3
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 14
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
016F 2??? 00657 GOTO TH_CONT_3
0170 1A2E 00658 BTFSC TBF_CNT, 4
0171 2??? 00659 GOTO TH_CONT_4
0172 1AAE 00660 BTFSC TBF_CNT, 5
0173 2??? 00661 GOTO TH_CONT_5
0174 1B2E 00662 BTFSC TBF_CNT, 6
0175 2??? 00663 GOTO TH_CONT_6
0176 2??? 00664 GOTO TH_CONT_7
0177 00665 TH_CONT_0
0177 082C 00666 MOVF RET_VOL,W
0178 00AF 00667 MOVWF TBF_BF
0179 01B0 00668 CLRF THBF_HALF
017A 182F 00669 BTFSC TBF_BF,0
017B 0AB0 00670 INCF THBF_HALF,F
017C 0CAF 00671 RRF TBF_BF,F
017D 082F 00672 MOVF TBF_BF,W
017E 00B1 00673 MOVWF THBF_1
017F 102E 00674 BCF TBF_CNT,0
0180 14AE 00675 BSF TBF_CNT,1
0181 0008 00676 RETURN
0182 00677 TH_CONT_1
0182 082C 00678 MOVF RET_VOL,W
0183 00AF 00679 MOVWF TBF_BF
0184 182F 00680 BTFSC TBF_BF,0
0185 0AB0 00681 INCF THBF_HALF,F
0186 0CAF 00682 RRF TBF_BF,F
0187 082F 00683 MOVF TBF_BF,W
Message[305]: Using default destination of 1 (file).
0188 07B1 00684 ADDWF THBF_1
0189 18B0 00685 BTFSC THBF_HALF,1
018A 0AB1 00686 INCF THBF_1,F
018B 10AE 00687 BCF TBF_CNT,1
018C 152E 00688 BSF TBF_CNT,2
018D 0008 00689 RETURN
018E 00690 TH_CONT_2
018E 082C 00691 MOVF RET_VOL,W
018F 00AF 00692 MOVWF TBF_BF
0190 01B0 00693 CLRF THBF_HALF
0191 182F 00694 BTFSC TBF_BF,0
0192 0AB0 00695 INCF THBF_HALF,F
0193 0CAF 00696 RRF TBF_BF,F
0194 082F 00697 MOVF TBF_BF,W
0195 00B2 00698 MOVWF THBF_2
0196 112E 00699 BCF TBF_CNT,2
0197 15AE 00700 BSF TBF_CNT,3
0198 0008 00701 RETURN
0199 00702 TH_CONT_3
0199 082C 00703 MOVF RET_VOL,W
019A 00AF 00704 MOVWF TBF_BF
019B 182F 00705 BTFSC TBF_BF,0
019C 0AB0 00706 INCF THBF_HALF,F
019D 0CAF 00707 RRF TBF_BF,F
019E 082F 00708 MOVF TBF_BF,W
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 15
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
Message[305]: Using default destination of 1 (file).
019F 07B2 00709 ADDWF THBF_2
01A0 18B0 00710 BTFSC THBF_HALF,1
01A1 0AB1 00711 INCF THBF_1,F
01A2 11AE 00712 BCF TBF_CNT,3
01A3 162E 00713 BSF TBF_CNT,4
01A4 0008 00714 RETURN
01A5 00715 TH_CONT_4
01A5 082C 00716 MOVF RET_VOL,W
01A6 00AF 00717 MOVWF TBF_BF
01A7 01B0 00718 CLRF THBF_HALF
01A8 182F 00719 BTFSC TBF_BF,0
01A9 0AB0 00720 INCF THBF_HALF,F
01AA 0CAF 00721 RRF TBF_BF,F
01AB 082F 00722 MOVF TBF_BF,W
01AC 00B3 00723 MOVWF THBF_3
01AD 122E 00724 BCF TBF_CNT,4
01AE 16AE 00725 BSF TBF_CNT,5
01AF 0008 00726 RETURN
01B0 00727 TH_CONT_5
01B0 082C 00728 MOVF RET_VOL,W
01B1 00AF 00729 MOVWF TBF_BF
01B2 182F 00730 BTFSC TBF_BF,0
01B3 0AB0 00731 INCF THBF_HALF,F
01B4 0CAF 00732 RRF TBF_BF,F
01B5 082F 00733 MOVF TBF_BF,W
Message[305]: Using default destination of 1 (file).
01B6 07B3 00734 ADDWF THBF_3
01B7 18B0 00735 BTFSC THBF_HALF,1
01B8 0AB1 00736 INCF THBF_1,F
01B9 12AE 00737 BCF TBF_CNT,5
01BA 172E 00738 BSF TBF_CNT,6
01BB 0008 00739 RETURN
01BC 00740 TH_CONT_6
01BC 082C 00741 MOVF RET_VOL,W
01BD 00AF 00742 MOVWF TBF_BF
01BE 01B0 00743 CLRF THBF_HALF
01BF 182F 00744 BTFSC TBF_BF,0
01C0 0AB0 00745 INCF THBF_HALF,F
01C1 0CAF 00746 RRF TBF_BF,F
01C2 082F 00747 MOVF TBF_BF,W
01C3 00B4 00748 MOVWF THBF_4
01C4 132E 00749 BCF TBF_CNT,6
01C5 17AE 00750 BSF TBF_CNT,7
01C6 0008 00751 RETURN
01C7 00752 TH_CONT_7
01C7 082C 00753 MOVF RET_VOL,W
01C8 00AF 00754 MOVWF TBF_BF
01C9 182F 00755 BTFSC TBF_BF,0
01CA 0AB0 00756 INCF THBF_HALF,F
01CB 0CAF 00757 RRF TBF_BF,F
01CC 082F 00758 MOVF TBF_BF,W
Message[305]: Using default destination of 1 (file).
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 16
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01CD 07B4 00759 ADDWF THBF_4
01CE 18B0 00760 BTFSC THBF_HALF,1
01CF 0AB1 00761 INCF THBF_1,F
01D0 01B0 00762 CLRF THBF_HALF
01D1 1831 00763 BTFSC THBF_1,0
01D2 0AB0 00764 INCF THBF_HALF,F
01D3 1832 00765 BTFSC THBF_2,0
01D4 0AB0 00766 INCF THBF_HALF,F
Message[305]: Using default destination of 1 (file).
01D5 0CB1 00767 RRF THBF_1
Message[305]: Using default destination of 1 (file).
01D6 0CB2 00768 RRF THBF_2
01D7 0831 00769 MOVF THBF_1,W
Message[305]: Using default destination of 1 (file).
01D8 07B2 00770 ADDWF THBF_2
01D9 18B0 00771 BTFSC THBF_HALF,1
01DA 0AB2 00772 INCF THBF_2,F
01DB 01B0 00773 CLRF THBF_HALF
01DC 1833 00774 BTFSC THBF_3,0
01DD 0AB0 00775 INCF THBF_HALF,F
01DE 1834 00776 BTFSC THBF_4,0
01DF 0AB0 00777 INCF THBF_HALF,F
Message[305]: Using default destination of 1 (file).
01E0 0CB3 00778 RRF THBF_3
Message[305]: Using default destination of 1 (file).
01E1 0CB4 00779 RRF THBF_4
01E2 0833 00780 MOVF THBF_3,W
Message[305]: Using default destination of 1 (file).
01E3 07B4 00781 ADDWF THBF_4
01E4 18B0 00782 BTFSC THBF_HALF,1
01E5 0AB4 00783 INCF THBF_4,F
01E6 01B0 00784 CLRF THBF_HALF
01E7 1832 00785 BTFSC THBF_2,0
01E8 0AB0 00786 INCF THBF_HALF,F
01E9 1834 00787 BTFSC THBF_4,0
01EA 0AB0 00788 INCF THBF_HALF,F
Message[305]: Using default destination of 1 (file).
01EB 0CB2 00789 RRF THBF_2
Message[305]: Using default destination of 1 (file).
01EC 0CB4 00790 RRF THBF_4
01ED 0832 00791 MOVF THBF_2,W
Message[305]: Using default destination of 1 (file).
01EE 07B4 00792 ADDWF THBF_4
01EF 18B0 00793 BTFSC THBF_HALF,1
01F0 0AB4 00794 INCF THBF_4,F
01F1 0834 00795 MOVF THBF_4,W
01F2 00AF 00796 MOVWF TBF_BF
01F3 0C2F 00797 RRF TBF_BF,W
Message[305]: Using default destination of 1 (file).
01F4 07B4 00798 ADDWF THBF_4
01F5 0834 00799 MOVF THBF_4,W
01F6 00B8 00800 MOVWF CR_TH
01F7 13AE 00801 BCF TBF_CNT,7
MPASM 5.43 MAIN.ASM 12-15-2017 12:31:55 PAGE 17
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01F8 142E 00802 BSF TBF_CNT,0
01F9 0008 00803 RETURN
01FA 00804 TH_CALC
01FA 01B5 00805 CLRF T_1
01FB 01B6 00806 CLRF T_10
01FC 01B7 00807 CLRF T_100
01FD 00808 TH_CALC_LOOP
01FD 083A 00809 MOVF CR_TH_BUFF,W
01FE 1903 00810 BTFSC STATUS,ZF
01FF 0008 00811 RETURN
0200 03BA 00812 DECF CR_TH_BUFF,F
0201 0AB5 00813 INCF T_1,F
0202 300A 00814 MOVLW .10
0203 0235 00815 SUBWF T_1,W
0204 1D03 00816 BTFSS STATUS,ZF
0205 2??? 00817 GOTO TH_CALC_LOOP
0206 01B5 00818 CLRF T_1
Message[305]: Using default destination of 1 (file).
0207 0AB6 00819 INCF T_10
0208 300A 00820 MOVLW .10
0209 0236 00821 SUBWF T_10,W
020A 1D03 00822 BTFSS STATUS,ZF
020B 2??? 00823 GOTO TH_CALC_LOOP
020C 01B6 00824 CLRF T_10
Message[305]: Using default destination of 1 (file).
020D 0AB7 00825 INCF T_100
020E 2??? 00826 GOTO TH_CALC_LOOP
00827
020F 00828 DOT_1_ON_BLINK
020F 1824 00829 BTFSC SP_STATUS, DOT_CHECK1
0210 2??? 00830 GOTO DOT_1_OFF
0211 2??? 00831 GOTO DOT_1_ON
0212 00832 DOT_1_OFF
0212 1220 00833 BCF GP_STATUS, DOT_SWT1
0213 0008 00834 RETURN
0214 00835 DOT_1_ON
0214 1620 00836 BSF GP_STATUS, DOT_SWT1
0215 0008 00837 RETURN
00838
0216 00839 DOT_2_ON_BLINK
0216 1824 00840 BTFSC SP_STATUS, DOT_CHECK1
0217 2??? 00841 GOTO DOT_2_OFF
0218 2??? 00842 GOTO DOT_2_ON
0219 00843 DOT_2_OFF
0219 12A0 00844 BCF GP_STATUS, DOT_SWT2
021A 0008 00845 RETURN
021B 00846 DOT_2_ON
021B 16A0 00847 BSF GP_STATUS, DOT_SWT2
021C 0008 00848 RETURN
00849