-
Notifications
You must be signed in to change notification settings - Fork 0
/
LABORATORIO_DISPLAY.lst
2004 lines (1985 loc) · 86.1 KB
/
LABORATORIO_DISPLAY.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.84 A.S 7-5-2021 10:53:17 PAGE 1
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00002 list
00003 ;{
00004 ;FILE F1 = C:\USERS\HAROLDDE\DOCUME~1\2021_E~1\PIC_BA~1\CLASE\SEMANA1\LAB\LABORATORIO_DISPLAY.BAS
00005 ;}
00006 ;[Variable Listing]
00007 ;NUM,0029,DT_BYTE,10
00008 ;I,0033,DT_BYTE,1
00009 ;SE,0005.0,DT_BIT
00010 ;[End Listing]
00011 ;[TOTAL VARS] 20
00013 #define Config_Req 1
MESSAGE[308]: WARNING LEVEL SUPERSEDED BY COMMAND LINE VALUE. (2)
00014 LIST P = 16F886, F = INHX8M, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255
00000000 00015 INDF equ 0X0000
00000001 00016 TMR0 equ 0X0001
00000002 00017 PCL equ 0X0002
00000003 00018 STATUS equ 0X0003
00000004 00019 FSR equ 0X0004
00000005 00020 PORTA equ 0X0005
00000006 00021 PORTB equ 0X0006
00000007 00022 PORTC equ 0X0007
00000009 00023 PORTE equ 0X0009
0000000A 00024 PCLATH equ 0X000A
0000000B 00025 INTCON equ 0X000B
0000000C 00026 PIR1 equ 0X000C
0000000D 00027 PIR2 equ 0X000D
0000000E 00028 TMR1L equ 0X000E
0000000F 00029 TMR1LH equ 0X000F
0000000F 00030 TMR1H equ 0X000F
00000010 00031 T1CON equ 0X0010
00000011 00032 TMR2 equ 0X0011
00000012 00033 T2CON equ 0X0012
00000013 00034 SSPBUF equ 0X0013
00000014 00035 SSPCON equ 0X0014
00000015 00036 CCPR1L equ 0X0015
00000016 00037 CCPR1LH equ 0X0016
00000016 00038 CCPR1H equ 0X0016
00000017 00039 CCP1CON equ 0X0017
00000018 00040 RCSTA equ 0X0018
00000019 00041 TXREG equ 0X0019
0000001A 00042 RCREG equ 0X001A
0000001B 00043 CCPR2L equ 0X001B
0000001C 00044 CCPR2LH equ 0X001C
0000001C 00045 CCPR2H equ 0X001C
0000001D 00046 CCP2CON equ 0X001D
0000001E 00047 ADRESLH equ 0X001E
0000001E 00048 ADRESH equ 0X001E
0000001F 00049 ADCON0 equ 0X001F
00000081 00050 OPTION_REG equ 0X0081
00000085 00051 TRISA equ 0X0085
00000086 00052 TRISB equ 0X0086
00000087 00053 TRISC equ 0X0087
00000089 00054 TRISE equ 0X0089
0000008C 00055 PIE1 equ 0X008C
0000008D 00056 PIE2 equ 0X008D
0000008E 00057 PCON equ 0X008E
0000008F 00058 OSCCON equ 0X008F
00000090 00059 OSCTUNE equ 0X0090
00000091 00060 SSPCON2 equ 0X0091
00000092 00061 PR2 equ 0X0092
00000093 00062 SSPADD equ 0X0093
00000093 00063 SSPMSK equ 0X0093
00000093 00064 MSK equ 0X0093
00000094 00065 SSPSTAT equ 0X0094
00000095 00066 WPUB equ 0X0095
00000096 00067 IOCB equ 0X0096
00000097 00068 VRCON equ 0X0097
00000098 00069 TXSTA equ 0X0098
00000099 00070 SPBRG equ 0X0099
0000009A 00071 SPBRGH equ 0X009A
0000009B 00072 PWM1CON equ 0X009B
0000009C 00073 ECCPAS equ 0X009C
0000009D 00074 PSTRCON equ 0X009D
0000009E 00075 ADRESL equ 0X009E
0000009F 00076 ADCON1 equ 0X009F
00000105 00077 WDTCON equ 0X0105
00000107 00078 CM1CON0 equ 0X0107
00000108 00079 CM2CON0 equ 0X0108
00000109 00080 CM2CON1 equ 0X0109
0000010C 00081 EEDATL equ 0X010C
0000010C 00082 EEDATA equ 0X010C
0000010C 00083 EEDAT equ 0X010C
0000010D 00084 EEADR equ 0X010D
0000010E 00085 EEDATLH equ 0X010E
0000010E 00086 EEDATH equ 0X010E
0000010F 00087 EEADRH equ 0X010F
00000185 00088 SRCON equ 0X0185
00000187 00089 BAUDCTL equ 0X0187
00000188 00090 ANSEL equ 0X0188
00000189 00091 ANSELH equ 0X0189
0000018C 00092 EECON1 equ 0X018C
0000018D 00093 EECON2 equ 0X018D
00000087 00094 _I2C_SCL_Port=TRISC
00000003 00095 _I2C_SCL_Pin=3
00000087 00096 _I2C_SDA_Port=TRISC
00000004 00097 _I2C_SDA_Pin=4
00098 ; SFR BITS
00000007 00099 IRP=7
00000007 00100 PP_IRP=7
00000006 00101 RP1=6
00000006 00102 PP_RP1=6
00000005 00103 RP0=5
00000005 00104 PP_RP0=5
00000004 00105 NOT_TO=4
00000003 00106 NOT_PD=3
00000002 00107 Z=2
00000001 00108 DC=1
00000000 00109 C=0
00000007 00110 GIE=7
00000006 00111 PEIE=6
00000005 00112 T0IE=5
00000005 00113 TMR0IE=5
00000004 00114 INTE=4
00000003 00115 RBIE=3
00000002 00116 T0IF=2
00000002 00117 TMR0IF=2
00000001 00118 INTF=1
00000000 00119 RBIF=0
00000006 00120 ADIF=6
00000005 00121 RCIF=5
00000005 00122 PP_RCIF=5
00000004 00123 TXIF=4
00000004 00124 PP_TXIF=4
00000003 00125 SSPIF=3
00000002 00126 CCP1IF=2
00000001 00127 TMR2IF=1
00000000 00128 TMR1IF=0
00000007 00129 OSFIF=7
00000006 00130 C2IF=6
00000005 00131 C1IF=5
00000004 00132 EEIF=4
00000003 00133 BCLIF=3
00000002 00134 ULPWUIF=2
00000000 00135 CCP2IF=0
00000007 00136 T1GIV=7
00000006 00137 TMR1GE=6
00000005 00138 T1CKPS1=5
00000004 00139 T1CKPS0=4
00000003 00140 T1OSCEN=3
00000002 00141 NOT_T1SYNC=2
00000002 00142 T1INSYNC=2
00000002 00143 T1SYNC=2
00000001 00144 TMR1CS=1
00000000 00145 TMR1ON=0
00000006 00146 TOUTPS3=6
00000005 00147 TOUTPS2=5
00000004 00148 TOUTPS1=4
00000003 00149 TOUTPS0=3
00000002 00150 TMR2ON=2
00000002 00151 PP_TMR2ON=2
00000001 00152 T2CKPS1=1
00000001 00153 PP_T2CKPS1=1
00000000 00154 T2CKPS0=0
00000000 00155 PP_T2CKPS0=0
00000007 00156 WCOL=7
00000006 00157 SSPOV=6
00000005 00158 SSPEN=5
00000004 00159 CKP=4
00000003 00160 SSPM3=3
00000002 00161 SSPM2=2
00000001 00162 SSPM1=1
00000000 00163 SSPM0=0
00000007 00164 P1M1=7
00000006 00165 P1M0=6
00000005 00166 DC1B1=5
00000005 00167 CCP1X=5
00000004 00168 DC1B0=4
00000004 00169 CCP1Y=4
00000003 00170 CCP1M3=3
00000002 00171 CCP1M2=2
00000001 00172 CCP1M1=1
00000000 00173 CCP1M0=0
00000007 00174 SPEN=7
00000006 00175 RX9=6
00000006 00176 RC9=6
00000006 00177 NOT_RC8=6
00000006 00178 RC8_9=6
00000005 00179 SREN=5
00000004 00180 CREN=4
00000004 00181 PP_CREN=4
00000003 00182 ADDEN=3
00000002 00183 FERR=2
00000001 00184 OERR=1
00000001 00185 PP_OERR=1
00000000 00186 RX9D=0
00000000 00187 RCD8=0
00000005 00188 CCP2X=5
00000005 00189 DC2B1=5
00000004 00190 CCP2Y=4
00000004 00191 DC2B0=4
00000003 00192 CCP2M3=3
00000002 00193 CCP2M2=2
00000001 00194 CCP2M1=1
00000000 00195 CCP2M0=0
00000007 00196 ADCS1=7
00000006 00197 ADCS0=6
00000005 00198 CHS3=5
00000004 00199 CHS2=4
00000003 00200 CHS1=3
00000002 00201 CHS0=2
00000001 00202 GO=1
00000001 00203 NOT_DONE=1
00000001 00204 GO_DONE=1
00000001 00205 PP_GO_DONE=1
00000000 00206 ADON=0
00000007 00207 NOT_RBPU=7
00000006 00208 INTEDG=6
00000005 00209 T0CS=5
00000004 00210 T0SE=4
00000003 00211 PSA=3
00000002 00212 PS2=2
00000001 00213 PS1=1
00000000 00214 PS0=0
00000006 00215 ADIE=6
00000005 00216 RCIE=5
00000004 00217 TXIE=4
00000003 00218 SSPIE=3
00000002 00219 CCP1IE=2
00000001 00220 TMR2IE=1
00000000 00221 TMR1IE=0
00000007 00222 OSFIE=7
00000006 00223 C2IE=6
00000005 00224 C1IE=5
00000004 00225 EEIE=4
00000003 00226 BCLIE=3
00000002 00227 ULPWUIE=2
00000000 00228 CCP2IE=0
00000005 00229 ULPWUE=5
00000004 00230 SBOREN=4
00000001 00231 NOT_POR=1
00000000 00232 NOT_BO=0
00000000 00233 NOT_BOR=0
00000006 00234 IRCF2=6
00000005 00235 IRCF1=5
00000004 00236 IRCF0=4
00000003 00237 OSTS=3
00000002 00238 HTS=2
00000001 00239 LTS=1
00000000 00240 SCS=0
00000004 00241 TUN4=4
00000003 00242 TUN3=3
00000002 00243 TUN2=2
00000001 00244 TUN1=1
00000000 00245 TUN0=0
00000007 00246 GCEN=7
00000006 00247 ACKSTAT=6
00000006 00248 PP_ACKSTAT=6
00000005 00249 ACKDT=5
00000005 00250 PP_ACKDT=5
00000004 00251 ACKEN=4
00000004 00252 PP_ACKEN=4
00000003 00253 RCEN=3
00000003 00254 PP_RCEN=3
00000002 00255 PEN=2
00000002 00256 PP_PEN=2
00000001 00257 RSEN=1
00000001 00258 PP_RSEN=1
00000000 00259 SEN=0
00000000 00260 PP_SEN=0
00000007 00261 SMP=7
00000006 00262 CKE=6
00000005 00263 I2C_DATA=5
00000005 00264 NOT_A=5
00000005 00265 NOT_ADDRESS=5
00000005 00266 D_A=5
00000005 00267 DATA_ADDRESS=5
00000004 00268 I2C_STOP=4
00000003 00269 I2C_START=3
00000002 00270 I2C_READ=2
00000002 00271 NOT_W=2
00000002 00272 NOT_WRITE=2
00000002 00273 R_W=2
00000002 00274 PP_R_W=2
00000002 00275 READ_WRITE=2
00000001 00276 UA=1
00000000 00277 BF=0
00000000 00278 PP_BF=0
00000007 00279 WPUB7=7
00000006 00280 WPUB6=6
00000005 00281 WPUB5=5
00000004 00282 WPUB4=4
00000003 00283 WPUB3=3
00000002 00284 WPUB2=2
00000001 00285 WPUB1=1
00000000 00286 WPUB0=0
00000007 00287 IOCB7=7
00000006 00288 IOCB6=6
00000005 00289 IOCB5=5
00000004 00290 IOCB4=4
00000003 00291 IOCB3=3
00000002 00292 IOCB2=2
00000001 00293 IOCB1=1
00000000 00294 IOCB0=0
00000007 00295 VREN=7
00000006 00296 VROE=6
00000005 00297 VRR=5
00000004 00298 VRSS=4
00000003 00299 VR3=3
00000002 00300 VR2=2
00000001 00301 VR1=1
00000000 00302 VR0=0
00000007 00303 CSRC=7
00000006 00304 TX9=6
00000006 00305 NOT_TX8=6
00000006 00306 TX8_9=6
00000005 00307 TXEN=5
00000004 00308 SYNC=4
00000003 00309 SENDB=3
00000003 00310 PP_SENDB=3
00000002 00311 BRGH=2
00000002 00312 PP_BRGH=2
00000001 00313 TRMT=1
00000000 00314 TX9D=0
00000000 00315 TXD8=0
00000007 00316 BRG7=7
00000006 00317 BRG6=6
00000005 00318 BRG5=5
00000004 00319 BRG4=4
00000003 00320 BRG3=3
00000002 00321 BRG2=2
00000001 00322 BRG1=1
00000000 00323 BRG0=0
00000007 00324 BRG15=7
00000006 00325 BRG14=6
00000005 00326 BRG13=5
00000004 00327 BRG12=4
00000003 00328 BRG11=3
00000002 00329 BRG10=2
00000001 00330 BRG9=1
00000000 00331 BRG8=0
00000007 00332 PRSEN=7
00000006 00333 PDC6=6
00000005 00334 PDC5=5
00000004 00335 PDC4=4
00000003 00336 PDC3=3
00000002 00337 PDC2=2
00000001 00338 PDC1=1
00000000 00339 PDC0=0
00000007 00340 ECCPASE=7
00000006 00341 ECCPAS2=6
00000005 00342 ECCPAS1=5
00000004 00343 ECCPAS0=4
00000003 00344 PSSAC1=3
00000002 00345 PSSAC0=2
00000001 00346 PSSBD1=1
00000000 00347 PSSBD0=0
00000004 00348 STRSYNC=4
00000003 00349 STRD=3
00000002 00350 STRC=2
00000001 00351 STRB=1
00000000 00352 STRA=0
00000007 00353 ADFM=7
00000005 00354 VCFG1=5
00000004 00355 VCFG0=4
00000004 00356 WDTPS3=4
00000003 00357 WDTPS2=3
00000002 00358 WDTPS1=2
00000001 00359 WDTPS0=1
00000000 00360 SWDTEN=0
00000007 00361 C1ON=7
00000006 00362 C1OUT=6
00000005 00363 C1OE=5
00000004 00364 C1POL=4
00000002 00365 C1R=2
00000001 00366 C1CH1=1
00000000 00367 C1CH0=0
00000007 00368 C2ON=7
00000006 00369 C2OUT=6
00000005 00370 C2OE=5
00000004 00371 C2POL=4
00000002 00372 C2R=2
00000001 00373 C2CH1=1
00000000 00374 C2CH0=0
00000007 00375 MC1OUT=7
00000006 00376 MC2OUT=6
00000005 00377 C1RSEL=5
00000004 00378 C2RSEL=4
00000001 00379 T1GSS=1
00000000 00380 C2SYNC=0
00000007 00381 SR1=7
00000006 00382 SR0=6
00000005 00383 C1SEN=5
00000004 00384 C2REN=4
00000003 00385 PULSS=3
00000002 00386 PULSR=2
00000000 00387 FVREN=0
00000007 00388 ABDOVF=7
00000006 00389 RCIDL=6
00000004 00390 SCKP=4
00000003 00391 BRG16=3
00000003 00392 PP_BRG16=3
00000001 00393 WUE=1
00000000 00394 ABDEN=0
00000004 00395 ANS4=4
00000003 00396 ANS3=3
00000002 00397 ANS2=2
00000001 00398 ANS1=1
00000000 00399 ANS0=0
00000005 00400 ANS13=5
00000004 00401 ANS12=4
00000003 00402 ANS11=3
00000002 00403 ANS10=2
00000001 00404 ANS9=1
00000000 00405 ANS8=0
00000007 00406 EEPGD=7
00000007 00407 PP_EEPGD=7
00000003 00408 WRERR=3
00000003 00409 PP_WRERR=3
00000002 00410 WREN=2
00000002 00411 PP_WREN=2
00000001 00412 WR=1
00000001 00413 PP_WR=1
00000000 00414 RD=0
00000000 00415 PP_RD=0
000001FF 00416 __MAXRAM 0X1FF
00417 __BADRAM 0X18E-0X18F
00002007 00418 _config1 equ 0X2007
00002008 00419 _config2 equ 0X2008
00001FFF 00420 DEBUG_ON equ 0X1FFF
00003FFF 00421 DEBUG_OFF equ 0X3FFF
00003FFF 00422 LVP_ON equ 0X3FFF
00002FFF 00423 LVP_OFF equ 0X2FFF
00003FFF 00424 FCMEN_ON equ 0X3FFF
000037FF 00425 FCMEN_OFF equ 0X37FF
00003FFF 00426 IESO_ON equ 0X3FFF
00003BFF 00427 IESO_OFF equ 0X3BFF
00003FFF 00428 BOR_ON equ 0X3FFF
00003EFF 00429 BOR_NSLEEP equ 0X3EFF
00003DFF 00430 BOR_SBODEN equ 0X3DFF
00003CFF 00431 BOR_OFF equ 0X3CFF
00003F7F 00432 CPD_ON equ 0X3F7F
00003FFF 00433 CPD_OFF equ 0X3FFF
00003FBF 00434 CP_ON equ 0X3FBF
00003FFF 00435 CP_OFF equ 0X3FFF
00003FFF 00436 MCLRE_ON equ 0X3FFF
00003FDF 00437 MCLRE_OFF equ 0X3FDF
00003FEF 00438 PWRTE_ON equ 0X3FEF
00003FFF 00439 PWRTE_OFF equ 0X3FFF
00003FFF 00440 WDT_ON equ 0X3FFF
00003FF7 00441 WDT_OFF equ 0X3FF7
00003FF8 00442 LP_OSC equ 0X3FF8
00003FF9 00443 XT_OSC equ 0X3FF9
00003FFA 00444 HS_OSC equ 0X3FFA
00003FFB 00445 EC_OSC equ 0X3FFB
00003FFC 00446 INTRC_OSC_NOCLKOUT equ 0X3FFC
00003FFD 00447 INTRC_OSC_CLKOUT equ 0X3FFD
00003FFE 00448 EXTRC_OSC_NOCLKOUT equ 0X3FFE
00003FFF 00449 EXTRC_OSC_CLKOUT equ 0X3FFF
00003FFC 00450 INTOSCIO equ 0X3FFC
00003FFD 00451 INTOSC equ 0X3FFD
00003FFE 00452 EXTRCIO equ 0X3FFE
00003FFF 00453 EXTRC equ 0X3FFF
00003FFF 00454 WRT_OFF equ 0X3FFF
00003DFF 00455 WRT_256 equ 0X3DFF
00003BFF 00456 WRT_1FOURTH equ 0X3BFF
000039FF 00457 WRT_HALF equ 0X39FF
00003EFF 00458 BOR21V equ 0X3EFF
00003FFF 00459 BOR40V equ 0X3FFF
00003EFF 00460 BOR4V_BOR21V equ 0X3EFF
00003FFF 00461 BOR4V_BOR40V equ 0X3FFF
00003EFF 00462 BOREN_NSLEEP equ 0X3EFF
00003CFF 00463 BOREN_OFF equ 0X3CFF
00003FFF 00464 BOREN_ON equ 0X3FFF
00003DFF 00465 BOREN_SBODEN equ 0X3DFF
00003FFB 00466 FOSC_EC equ 0X3FFB
00003FFF 00467 FOSC_EXTRC_CLKOUT equ 0X3FFF
00003FFE 00468 FOSC_EXTRC_NOCLKOUT equ 0X3FFE
00003FFA 00469 FOSC_HS equ 0X3FFA
00003FFD 00470 FOSC_INTRC_CLKOUT equ 0X3FFD
00003FFC 00471 FOSC_INTRC_NOCLKOUT equ 0X3FFC
00003FF8 00472 FOSC_LP equ 0X3FF8
00003FF9 00473 FOSC_XT equ 0X3FF9
00003FF7 00474 WDTE_OFF equ 0X3FF7
00003FFF 00475 WDTE_ON equ 0X3FFF
00479 #define __16F886 1
00480 #define Xtal 20
00481 #define _Core 14
00482 #define _MaxRAM 368
00483 #define _Ram_End 0X0170
00484 #define _MaxMem 8192
00485 #define _ADC 11
00486 #define _ADC_Res 10
00487 #define _Eeprom 256
00488 #define _Pages 4
00489 #define _Banks 3
00490 #define RAM_Banks 4
00491 #define _USART 1
00492 #define _USB 0
00493 #define _Flash 1
00494 #define _Cwrite_Block 8
00495 #define Bank0_Start 0X20
00496 #define Bank0_End 0X7F
00497 #define Bank1_Start 0XA0
00498 #define Bank1_End 0XEF
00499 #define Bank2_Start 0X110
00500 #define Bank2_End 0X16F
00501 #define Bank3_Start 0X190
00502 #define Bank3_End 0X1EF
00503 #define _System_Variable_Count 9
00000000 00504 ram_bank = 0
00000000 00505 Current@Page = 0
00000000 00506 Dest@Page = 0
00507 #define LCD#Type 0
00509 f@call macro pDest
00510 if(pDest < 1)
00511 if((pDest & 2048) == 0)
00512 bcf PCLATH,3
00513 else
00514 bsf PCLATH,3
00515 endif
00516 if((pDest & 4096) == 0)
00517 bcf PCLATH,4
00518 else
00519 bsf PCLATH,4
00520 endif
00521 else
00522 if(pDest > $)
00523 if((pDest & 2048) == 0)
00524 bcf PCLATH,3
00525 else
00526 bsf PCLATH,3
00527 endif
00528 if((pDest & 4096) == 0)
00529 bcf PCLATH,4
00530 else
00531 bsf PCLATH,4
00532 endif
00533 else
00534 if((pDest & 6144) == 0)
00535 clrf PCLATH
00536 else
00537 if((pDest & 2048) == 0)
00538 bcf PCLATH,3
00539 else
00540 bsf PCLATH,3
00541 endif
00542 if((pDest & 4096) == 0)
00543 bcf PCLATH,4
00544 else
00545 bsf PCLATH,4
00546 endif
00547 endif
00548 endif
00549 endif
00550 call pDest
00551 endm
00552 f@jump macro pDest
00553 if(pDest < 1)
00554 if((pDest & 2048) == 0)
00555 bcf PCLATH,3
00556 else
00557 bsf PCLATH,3
00558 endif
00559 if((pDest & 4096) == 0)
00560 bcf PCLATH,4
00561 else
00562 bsf PCLATH,4
00563 endif
00564 else
00565 if(pDest > $)
00566 if((pDest & 2048) == 0)
00567 bcf PCLATH,3
00568 else
00569 bsf PCLATH,3
00570 endif
00571 if((pDest & 4096) == 0)
00572 bcf PCLATH,4
00573 else
00574 bsf PCLATH,4
00575 endif
00576 else
00577 if((pDest & 6144) == 0)
00578 clrf PCLATH
00579 else
00580 if((pDest & 2048) == 0)
00581 bcf PCLATH,3
00582 else
00583 bsf PCLATH,3
00584 endif
00585 if((pDest & 4096) == 0)
00586 bcf PCLATH,4
00587 else
00588 bsf PCLATH,4
00589 endif
00590 endif
00591 endif
00592 endif
00593 goto pDest
00594 endm
00595 set@page macro pDest
00596 if((pDest & 2048) == 0)
00597 bcf PCLATH,3
00598 else
00599 bsf PCLATH,3
00600 endif
00601 if((pDest & 4096) == 0)
00602 bcf PCLATH,4
00603 else
00604 bsf PCLATH,4
00605 endif
00606 endm
00607 s@b macro pVarin
00608 if((pVarin & 384) == 0)
00609 if(ram_bank == 1)
00610 bcf STATUS,PP_RP0
00611 endif
00612 if(ram_bank == 2)
00613 bcf STATUS,PP_RP1
00614 endif
00615 if(ram_bank == 3)
00616 bcf STATUS,PP_RP0
00617 bcf STATUS,PP_RP1
00618 endif
00619 ram_bank = 0
00620 endif
00621 if((pVarin & 384) == 128)
00622 if(ram_bank == 0)
00623 bsf STATUS,PP_RP0
00624 endif
00625 if(ram_bank == 2)
00626 bsf STATUS,PP_RP0
00627 bcf STATUS,PP_RP1
00628 endif
00629 if(ram_bank == 3)
00630 bcf STATUS,PP_RP1
00631 endif
00632 ram_bank = 1
00633 endif
00634 if((pVarin & 384) == 256)
00635 if(ram_bank == 0)
00636 bsf STATUS,PP_RP1
00637 endif
00638 if(ram_bank == 1)
00639 bcf STATUS,PP_RP0
00640 bsf STATUS,PP_RP1
00641 endif
00642 if(ram_bank == 3)
00643 bcf STATUS,PP_RP0
00644 endif
00645 ram_bank = 2
00646 endif
00647 if((pVarin & 384) == 384)
00648 if(ram_bank == 0)
00649 bsf STATUS,PP_RP0
00650 bsf STATUS,PP_RP1
00651 endif
00652 if(ram_bank == 1)
00653 bsf STATUS,PP_RP1
00654 endif
00655 if(ram_bank == 2)
00656 bsf STATUS,PP_RP0
00657 endif
00658 ram_bank = 3
00659 endif
00660 endm
00661 r@b macro
00662 if((ram_bank & 1) != 0)
00663 bcf STATUS,PP_RP0
00664 endif
00665 if((ram_bank & 2) != 0)
00666 bcf STATUS,PP_RP1
00667 endif
00668 ram_bank = 0
00669 endm
0000 00670 variable Current@Page = 0
0000 00671 variable PDESTINATION@PAGE = 0
00672 FIND@PAGE macro pLabelIn
00673 local CURRENT_ADDR = $
00674 local DEST_ADDR = pLabelIn
00675 if((CURRENT_ADDR >= 0X1800) && (CURRENT_ADDR <= 0X2000))
00676 Current@Page = 3
00677 endif
00678 if((CURRENT_ADDR >= 0X1000) && (CURRENT_ADDR <= 0X1800))
00679 Current@Page = 2
00680 endif
00681 if((CURRENT_ADDR >= 0X0800) && (CURRENT_ADDR <= 0X1000))
00682 Current@Page = 1
00683 endif
00684 if((CURRENT_ADDR >= 0) && (CURRENT_ADDR <= 0X0800))
00685 Current@Page = 0
00686 endif
00687 if((DEST_ADDR >= 0X1800) && (DEST_ADDR <= 0X2000))
00688 PDESTINATION@PAGE = 3
00689 endif
00690 if((DEST_ADDR >= 0X1000) && (DEST_ADDR <= 0X1800))
00691 PDESTINATION@PAGE = 2
00692 endif
00693 if((DEST_ADDR >= 0X0800) && (DEST_ADDR <= 0X1000))
00694 PDESTINATION@PAGE = 1
00695 endif
00696 if((DEST_ADDR >= 0) && (DEST_ADDR <= 0X0800))
00697 PDESTINATION@PAGE = 0
00698 endif
00699 endm
00700 jump macro pLabel
00701 goto pLabel
00702 endm
00703 wreg_byte macro pByteOut
00704 s@b pByteOut
00705 movwf pByteOut
00706 r@b
00707 endm
00708 wreg_bit macro pVarOut,pBitout
00709 s@b pVarOut
00710 andlw 1
00711 btfsc STATUS,2
00712 bcf pVarOut,pBitout
00713 btfss STATUS,2
00714 bsf pVarOut,pBitout
00715 r@b
00716 endm
00717 wreg_word macro pWordOut
00718 s@b pWordOut
00719 movwf pWordOut
00720 s@b pWordOut+1
00721 clrf pWordOut+1
00722 r@b
00723 endm
00724 wreg_dword macro pDwordOut
00725 s@b pDwordOut+3
00726 clrf pDwordOut+3
00727 s@b pDwordOut+2
00728 clrf pDwordOut+2
00729 s@b pDwordOut+1
00730 clrf pDwordOut+1
00731 s@b pDwordOut
00732 movwf pDwordOut
00733 r@b
00734 endm
00735 byte_wreg macro pByteIn
00736 s@b pByteIn
00737 movf pByteIn,W
00738 r@b
00739 endm
00740 num_SFR macro pNumIn,pSFROut
00742 s@b pSFROut
00743 movlw pNumIn
00744 movwf pSFROut
00745 endm
00746 num16_SFR macro pNumIn,pSFROut
00748 s@b pSFROut
00749 movlw (pNumIn & 255)
00750 movwf pSFROut
00751 s@b pSFROut + 1
00752 movlw ((pNumIn >> 8) & 255)
00753 movwf pSFROut + 1
00754 r@b
00755 endm
00756 num_wreg macro pNumIn
00757 movlw (pNumIn & 255)
00758 endm
00759 num_byte macro pNumIn,pByteOut
00760 s@b pByteOut
00761 if(pNumIn == 0)
00762 clrf pByteOut
00763 else
00764 movlw (pNumIn & 255)
00765 movwf pByteOut
00766 endif
00767 r@b
00768 endm
00769 num_bit macro pNumIn,pVarOut,pBitout
00770 s@b pVarOut
00771 if((pNumIn & 1) == 1)
00772 bsf pVarOut,pBitout
00773 else
00774 bcf pVarOut,pBitout
00775 endif
00776 r@b
00777 endm
00778 num_word macro pNumIn,pWordOut
00779 if((pNumIn & 255) == 0)
00780 s@b pWordOut
00781 clrf pWordOut
00782 else
00783 s@b pWordOut
00784 movlw low (pNumIn)
00785 movwf pWordOut
00786 endif
00787 if(((pNumIn >> 8) & 255) == 0)
00788 s@b pWordOut+1
00789 clrf pWordOut+1
00790 else
00791 s@b pWordOut+1
00792 movlw high (pNumIn)
00793 movwf pWordOut+1
00794 endif
00795 r@b
00796 endm
00797 num_dword macro pNumIn,pDwordOut
00798 if ((pNumIn >> 24 & 255) == 0)
00799 s@b pDwordOut+3
00800 clrf pDwordOut+3
00801 else
00802 s@b pDwordOut+3
00803 movlw ((pNumIn >> 24) & 255)
00804 movwf pDwordOut+3
00805 endif
00806 if( ((pNumIn >> 16) & 255) == 0)
00807 s@b pDwordOut+2
00808 clrf pDwordOut+2
00809 else
00810 s@b pDwordOut+2
00811 movlw ((pNumIn >> 16) & 255)
00812 movwf pDwordOut+2
00813 endif
00814 if( ((pNumIn >> 8) & 255) == 0)
00815 s@b pDwordOut+1
00816 clrf pDwordOut+1
00817 else
00818 s@b pDwordOut+1
00819 movlw high (pNumIn)
00820 movwf pDwordOut+1
00821 endif
00822 if((pNumIn & 255) == 0)
00823 s@b pDwordOut
00824 clrf pDwordOut
00825 else
00826 s@b pDwordOut
00827 movlw low (pNumIn)
00828 movwf pDwordOut
00829 endif
00830 r@b
00831 endm
00832 bit_wreg macro pVarin,pBitIn
00833 s@b pVarin
00834 clrw
00835 btfsc pVarin,pBitIn
00836 movlw 1
00837 r@b
00838 endm
00839 bit_byte macro pVarin,pBitIn,pByteOut
00840 s@b pVarin
00841 clrw
00842 btfsc pVarin,pBitIn
00843 movlw 1
00844 s@b pByteOut
00845 movwf pByteOut
00846 r@b
00847 endm
00848 bit_bit macro pVarin,pBitIn,pVarOut,pBitout
00849 if((pVarin & 65408) == (pVarOut & 65408))
00850 s@b pVarOut
00851 btfsc pVarin,pBitIn
00852 bsf pVarOut,pBitout
00853 btfss pVarin,pBitIn
00854 bcf pVarOut,pBitout
00855 else
00856 s@b pVarin
00857 clrdc
00858 btfsc pVarin,pBitIn
00859 setdc
00860 s@b pVarOut
00861 skpndc
00862 bsf pVarOut,pBitout
00863 skpdc
00864 bcf pVarOut,pBitout
00865 endif
00866 endm
00867 bit_word macro pVarin,pBitIn,pWordOut
00868 s@b pWordOut+1
00869 clrf pWordOut+1
00870 bit_byte pVarin,pBitIn,pWordOut
00871 endm
00872 bit_dword macro pVarin,pBitIn,pDwordOut
00873 s@b pDwordOut+3
00874 clrf pDwordOut+3
00875 s@b pDwordOut+2
00876 clrf pDwordOut+2
00877 s@b pDwordOut+1
00878 clrf pDwordOut+1
00879 bit_byte pVarin,pBitIn,pDwordOut
00880 endm
00881 word_wreg macro pWordIn
00882 byte_wreg pWordIn
00883 endm
00884 word_byte macro pWordIn,pByteOut
00885 byte_byte pWordIn,pByteOut
00886 endm
00887 word_bit macro pWordIn,pVarOut,pBitout
00888 byte_bit pWordIn, pVarOut, pBitout
00889 endm
00890 word_word macro pWordIn,pWordOut
00891 s@b pWordIn+1
00892 movf pWordIn+1,W
00893 s@b pWordOut+1
00894 movwf pWordOut+1
00895 byte_byte pWordIn,pWordOut
00896 endm
00897 word_dword macro pWordIn,pDwordOut
00898 s@b pDwordOut+3
00899 clrf pDwordOut+3
00900 s@b pDwordOut+2
00901 clrf pDwordOut+2
00902 byte_byte pWordIn+1,pDwordOut+1
00903 byte_byte pWordIn,pDwordOut
00904 endm
00905 byte_byte macro pByteIn,pByteOut
00906 s@b pByteIn
00907 movf pByteIn,W
00908 s@b pByteOut
00909 movwf pByteOut
00910 r@b
00911 endm
00912 byte_word macro pByteIn,pWordOut
00913 s@b pWordOut+1
00914 clrf pWordOut+1
00915 byte_byte pByteIn,pWordOut
00916 endm
00917 byte_dword macro pByteIn,pDwordOut
00918 s@b pDwordOut+3
00919 clrf pDwordOut+3
00920 s@b pDwordOut+2
00921 clrf pDwordOut+2
00922 s@b pDwordOut+1
00923 clrf pDwordOut+1
00924 byte_byte pByteIn,pDwordOut
00925 endm
00926 byte_bit macro pByteIn,pVarOut,pBitout
00927 if((pByteIn & 65408) == (pVarOut & 65408))
00928 s@b pByteIn
00929 btfsc pByteIn,0
00930 bsf pVarOut,pBitout
00931 btfss pByteIn,0
00932 bcf pVarOut,pBitout
00933 else
00934 s@b pByteIn
00935 rrf pByteIn,W
00936 s@b pVarOut
00937 skpnc
00938 bsf pVarOut,pBitout
00939 skpc
00940 bcf pVarOut,pBitout
00941 endif
00942 r@b
00943 endm
00944 dword_wreg macro pDwordIn
00945 byte_wreg pDwordIn
00946 endm
00947 dword_byte macro pDwordIn,pByteOut
00948 byte_byte pDwordIn,pByteOut
00949 endm
00950 dword_word macro pDwordIn,pWordOut
00951 s@b pDwordIn+1
00952 movf pDwordIn+1,W
00953 s@b pWordOut+1
00954 movwf pWordOut+1
00955 byte_byte pDwordIn,pWordOut
00956 endm
00957 dword_dword macro pDwordIn,pDwordOut
00958 byte_byte pDwordIn+3,pDwordOut+3
00959 byte_byte pDwordIn+2,pDwordOut+2
00960 byte_byte pDwordIn+1,pDwordOut+1
00961 byte_byte pDwordIn,pDwordOut
00962 endm
00963 dword_bit macro pDwordIn,pVarOut,pBitout
00964 byte_bit pDwordIn,pVarOut,pBitout
00965 endm
00966 num_float macro pNumIn,pFloatOut
00967 num_byte pNumIn,pFloatOut+3
00968 num_byte ((pNumIn >> 8) & 255),pFloatOut+2
00969 num_byte ((pNumIn >> 16) & 255),pFloatOut+1
00970 num_byte ((pNumIn >> 24) & 255),pFloatOut
00971 endm
00972 wreg_float macro pFloatOut
00973 PAGESEL _UNS_INT08_TOFL32
00974 call _UNS_INT08_TOFL32
00975 byte_byte PP_AARG,pFloatOut
00976 byte_byte PP_AARGH,pFloatOut+1
00977 byte_byte PP_AARGHH,pFloatOut+2
00978 byte_byte PP_AARGHHH,pFloatOut+3
00979 endm
00980 bit_float macro pVarin,pBitIn,pFloatOut
00981 bit_wreg pVarin,pBitIn
00982 PAGESEL _UNS_INT08_TOFL32
00983 call _UNS_INT08_TOFL32
00984 byte_byte PP_AARG,pFloatOut
00985 byte_byte PP_AARGH,pFloatOut+1
00986 byte_byte PP_AARGHH,pFloatOut+2
00987 byte_byte PP_AARGHHH,pFloatOut+3
00988 endm
00989 byte_float macro pByteIn,pFloatOut
00990 byte_wreg pByteIn
00991 PAGESEL _UNS_INT08_TOFL32
00992 call _UNS_INT08_TOFL32
00993 byte_byte PP_AARG,pFloatOut
00994 byte_byte PP_AARGH,pFloatOut+1
00995 byte_byte PP_AARGHH,pFloatOut+2
00996 byte_byte PP_AARGHHH,pFloatOut+3
00997 endm
00998 word_float macro pWordIn,pFloatOut