adc.p1

PIC4455 ADC源程序

"455
[v _FREE `VNb 1 s@32052 ]
"456
[v _CFGS `Nb 1 s@32054 ]
"457
[v _EEPGD `Nb 1 s@32055 ]
"460
[v _CCP2IP `Nb 1 s@32016 ]
"461
[v _TMR3IP `Nb 1 s@32017 ]
"462
[v _HLVDIP `Nb 1 s@32018 ]
"463
[v _BCLIP `Nb 1 s@32019 ]
"464
[v _EEIP `Nb 1 s@32020 ]
"465
[v _USBIP `Nb 1 s@32021 ]
"466
[v _CMIP `Nb 1 s@32022 ]
"467
[v _OSCFIP `Nb 1 s@32023 ]
"469
[v _LVDIP `Nb 1 s@32018 ]
"472
[v _CCP2IF `VNb 1 s@32008 ]
"473
[v _TMR3IF `VNb 1 s@32009 ]
"474
[v _HLVDIF `VNb 1 s@32010 ]
"475
[v _BCLIF `VNb 1 s@32011 ]
"476
[v _EEIF `VNb 1 s@32012 ]
"477
[v _USBIF `VNb 1 s@32013 ]
"478
[v _CMIF `VNb 1 s@32014 ]
"479
[v _OSCFIF `VNb 1 s@32015 ]
"481
[v _LVDIF `VNb 1 s@32010 ]
"484
[v _CCP2IE `Nb 1 s@32000 ]
"485
[v _TMR3IE `Nb 1 s@32001 ]
"486
[v _HLVDIE `Nb 1 s@32002 ]
"487
[v _BCLIE `Nb 1 s@32003 ]
"488
[v _EEIE `Nb 1 s@32004 ]
"489
[v _USBIE `Nb 1 s@32005 ]
"490
[v _CMIE `Nb 1 s@32006 ]
"491
[v _OSCFIE `Nb 1 s@32007 ]
"493
[v _LVDIE `Nb 1 s@32002 ]
"496
[v _TMR1IP `Nb 1 s@31992 ]
"497
[v _TMR2IP `Nb 1 s@31993 ]
"498
[v _CCP1IP `Nb 1 s@31994 ]
"499
[v _SSPIP `Nb 1 s@31995 ]
"500
[v _TXIP `Nb 1 s@31996 ]
"501
[v _RCIP `Nb 1 s@31997 ]
"502
[v _ADIP `Nb 1 s@31998 ]
"503
[v _SPPIP `Nb 1 s@31999 ]
"506
[v _TMR1IF `VNb 1 s@31984 ]
"507
[v _TMR2IF `VNb 1 s@31985 ]
"508
[v _CCP1IF `VNb 1 s@31986 ]
"509
[v _SSPIF `VNb 1 s@31987 ]
"510
[v _TXIF `VNb 1 s@31988 ]
"511
[v _RCIF `VNb 1 s@31989 ]
"512
[v _ADIF `VNb 1 s@31990 ]
"513
[v _SPPIF `VNb 1 s@31991 ]
"516
[v _TMR1IE `Nb 1 s@31976 ]
"517
[v _TMR2IE `Nb 1 s@31977 ]
"518
[v _CCP1IE `Nb 1 s@31978 ]
"519
[v _SSPIE `Nb 1 s@31979 ]
"520
[v _TXIE `Nb 1 s@31980 ]
"521
[v _RCIE `Nb 1 s@31981 ]
"522
[v _ADIE `Nb 1 s@31982 ]
"523
[v _SPPIE `Nb 1 s@31983 ]
"526
[v _TUN0 `Nb 1 s@31960 ]
"527
[v _TUN1 `Nb 1 s@31961 ]
"528
[v _TUN2 `Nb 1 s@31962 ]
"529
[v _TUN3 `Nb 1 s@31963 ]
"530
[v _TUN4 `Nb 1 s@31964 ]
"531
[v _INTSRC `Nb 1 s@31967 ]
"535
[v _TRISE0 `VNb 1 s@31920 ]
"536
[v _TRISE1 `VNb 1 s@31921 ]
"537
[v _TRISE2 `VNb 1 s@31922 ]
"540
[v _TRISD0 `VNb 1 s@31912 ]
"541
[v _TRISD1 `VNb 1 s@31913 ]
"542
[v _TRISD2 `VNb 1 s@31914 ]
"543
[v _TRISD3 `VNb 1 s@31915 ]
"544
[v _TRISD4 `VNb 1 s@31916 ]
"545
[v _TRISD5 `VNb 1 s@31917 ]
"546
[v _TRISD6 `VNb 1 s@31918 ]
"547
[v _TRISD7 `VNb 1 s@31919 ]
"551
[v _TRISC0 `VNb 1 s@31904 ]
"552
[v _TRISC1 `VNb 1 s@31905 ]
"553
[v _TRISC2 `VNb 1 s@31906 ]
"554
[v _TRISC6 `VNb 1 s@31910 ]
"555
[v _TRISC7 `VNb 1 s@31911 ]
"558
[v _TRISB0 `VNb 1 s@31896 ]
"559
[v _TRISB1 `VNb 1 s@31897 ]
"560
[v _TRISB2 `VNb 1 s@31898 ]
"561
[v _TRISB3 `VNb 1 s@31899 ]
"562
[v _TRISB4 `VNb 1 s@31900 ]
"563
[v _TRISB5 `VNb 1 s@31901 ]
"564
[v _TRISB6 `VNb 1 s@31902 ]
"565
[v _TRISB7 `VNb 1 s@31903 ]
"568
[v _TRISA0 `VNb 1 s@31888 ]
"569
[v _TRISA1 `VNb 1 s@31889 ]
"570
[v _TRISA2 `VNb 1 s@31890 ]
"571
[v _TRISA3 `VNb 1 s@31891 ]
"572
[v _TRISA4 `VNb 1 s@31892 ]
"573
[v _TRISA5 `VNb 1 s@31893 ]
"574
[v _TRISA6 `VNb 1 s@31894 ]
"578
[v _LATE0 `VNb 1 s@31848 ]
"579
[v _LATE1 `VNb 1 s@31849 ]
"580
[v _LATE2 `VNb 1 s@31850 ]
"583
[v _LATD0 `VNb 1 s@31840 ]
"584
[v _LATD1 `VNb 1 s@31841 ]
"585
[v _LATD2 `VNb 1 s@31842 ]
"586
[v _LATD3 `VNb 1 s@31843 ]
"587
[v _LATD4 `VNb 1 s@31844 ]
"588
[v _LATD5 `VNb 1 s@31845 ]
"589
[v _LATD6 `VNb 1 s@31846 ]
"590
[v _LATD7 `VNb 1 s@31847 ]
"594
[v _LATC0 `VNb 1 s@31832 ]
"595
[v _LATC1 `VNb 1 s@31833 ]
"596
[v _LATC2 `VNb 1 s@31834 ]
"597
[v _LATC6 `VNb 1 s@31838 ]
"598
[v _LATC7 `VNb 1 s@31839 ]
"601
[v _LATB0 `VNb 1 s@31824 ]
"602
[v _LATB1 `VNb 1 s@31825 ]
"603
[v _LATB2 `VNb 1 s@31826 ]
"604
[v _LATB3 `VNb 1 s@31827 ]
"605
[v _LATB4 `VNb 1 s@31828 ]
"606
[v _LATB5 `VNb 1 s@31829 ]
"607
[v _LATB6 `VNb 1 s@31830 ]
"608
[v _LATB7 `VNb 1 s@31831 ]
"611
[v _LATA0 `VNb 1 s@31816 ]
"612
[v _LATA1 `VNb 1 s@31817 ]
"613
[v _LATA2 `VNb 1 s@31818 ]
"614
[v _LATA3 `VNb 1 s@31819 ]
"615
[v _LATA4 `VNb 1 s@31820 ]
"616
[v _LATA5 `VNb 1 s@31821 ]
"617
[v _LATA6 `VNb 1 s@31822 ]
"621
[v _RE0 `VNb 1 s@31776 ]
"622
[v _RE1 `VNb 1 s@31777 ]
"623
[v _RE2 `VNb 1 s@31778 ]
"625
[v _RE3 `VNb 1 s@31779 ]
"627
[v _RDPU `Nb 1 s@31783 ]
"630
[v _RD0 `VNb 1 s@31768 ]
"631
[v _RD1 `VNb 1 s@31769 ]
"632
[v _RD2 `VNb 1 s@31770 ]
"633
[v _RD3 `VNb 1 s@31771 ]
"634
[v _RD4 `VNb 1 s@31772 ]
"635
[v _RD5 `VNb 1 s@31773 ]
"636
[v _RD6 `VNb 1 s@31774 ]
"637
[v _RD7 `VNb 1 s@31775 ]
"641
[v _RC0 `VNb 1 s@31760 ]
"642
[v _RC1 `VNb 1 s@31761 ]
"643
[v _RC2 `VNb 1 s@31762 ]
"644
[v _RC4 `VNb 1 s@31764 ]
"645
[v _RC5 `VNb 1 s@31765 ]
"646
[v _RC6 `VNb 1 s@31766 ]
"647
[v _RC7 `VNb 1 s@31767 ]
"650
[v _RB0 `VNb 1 s@31752 ]
"651
[v _RB1 `VNb 1 s@31753 ]
"652
[v _RB2 `VNb 1 s@31754 ]
"653
[v _RB3 `VNb 1 s@31755 ]
"654
[v _RB4 `VNb 1 s@31756 ]
"655
[v _RB5 `VNb 1 s@31757 ]
"656
[v _RB6 `VNb 1 s@31758 ]
"657
[v _RB7 `VNb 1 s@31759 ]
"660
[v _RA0 `VNb 1 s@31744 ]
"661
[v _RA1 `VNb 1 s@31745 ]
"662
[v _RA2 `VNb 1 s@31746 ]
"663
[v _RA3 `VNb 1 s@31747 ]
"664
[v _RA4 `VNb 1 s@31748 ]
"665
[v _RA5 `VNb 1 s@31749 ]
"666
[v _RA6 `VNb 1 s@31750 ]
"669
[v _EPSTALL15 `VNb 1 s@31736 ]
"670
[v _EPINEN15 `Nb 1 s@31737 ]
"671
[v _EPOUTEN15 `Nb 1 s@31738 ]
"672
[v _EPCONDIS15 `Nb 1 s@31739 ]
"673
[v _EPHSHK15 `Nb 1 s@31740 ]
"676
[v _EPSTALL14 `VNb 1 s@31728 ]
"677
[v _EPINEN14 `Nb 1 s@31729 ]
"678
[v _EPOUTEN14 `Nb 1 s@31730 ]
"679
[v _EPCONDIS14 `Nb 1 s@31731 ]
"680
[v _EPHSHK14 `Nb 1 s@31732 ]
"683
[v _EPSTALL13 `VNb 1 s@31720 ]
"684
[v _EPINEN13 `Nb 1 s@31721 ]
"685
[v _EPOUTEN13 `Nb 1 s@31722 ]
"686
[v _EPCONDIS13 `Nb 1 s@31723 ]
"687
[v _EPHSHK13 `Nb 1 s@31724 ]
"690
[v _EPSTALL12 `VNb 1 s@31712 ]
"691
[v _EPINEN12 `Nb 1 s@31713 ]
"692
[v _EPOUTEN12 `Nb 1 s@31714 ]
"693
[v _EPCONDIS12 `Nb 1 s@31715 ]
"694
[v _EPHSHK12 `Nb 1 s@31716 ]
"697
[v _EPSTALL11 `VNb 1 s@31704 ]
"698
[v _EPINEN11 `Nb 1 s@31705 ]
"699
[v _EPOUTEN11 `Nb 1 s@31706 ]
"700
[v _EPCONDIS11 `Nb 1 s@31707 ]
"701
[v _EPHSHK11 `Nb 1 s@31708 ]
"704
[v _EPSTALL10 `VNb 1 s@31696 ]
"705
[v _EPINEN10 `Nb 1 s@31697 ]
"706
[v _EPOUTEN10 `Nb 1 s@31698 ]
"707
[v _EPCONDIS10 `Nb 1 s@31699 ]
"708
[v _EPHSHK10 `Nb 1 s@31700 ]
"711
[v _EPSTALL9 `VNb 1 s@31688 ]
"712
[v _EPINEN9 `Nb 1 s@31689 ]
"713
[v _EPOUTEN9 `Nb 1 s@31690 ]
"714
[v _EPCONDIS9 `Nb 1 s@31691 ]
"715
[v _EPHSHK9 `Nb 1 s@31692 ]
"718
[v _EPSTALL8 `VNb 1 s@31680 ]
"719
[v _EPINEN8 `Nb 1 s@31681 ]
"720
[v _EPOUTEN8 `Nb 1 s@31682 ]
"721
[v _EPCONDIS8 `Nb 1 s@31683 ]
"722
[v _EPHSHK8 `Nb 1 s@31684 ]
"725
[v _EPSTALL7 `VNb 1 s@31672 ]
"726
[v _EPINEN7 `Nb 1 s@31673 ]
"727
[v _EPOUTEN7 `Nb 1 s@31674 ]
"728
[v _EPCONDIS7 `Nb 1 s@31675 ]
"729
[v _EPHSHK7 `Nb 1 s@31676 ]
"732
[v _EPSTALL6 `VNb 1 s@31664 ]
"733
[v _EPINEN6 `Nb 1 s@31665 ]
"734
[v _EPOUTEN6 `Nb 1 s@31666 ]
"735
[v _EPCONDIS6 `Nb 1 s@31667 ]
"736
[v _EPHSHK6 `Nb 1 s@31668 ]
"739
[v _EPSTALL5 `VNb 1 s@31656 ]
"740
[v _EPINEN5 `Nb 1 s@31657 ]
"741
[v _EPOUTEN5 `Nb 1 s@31658 ]
"742
[v _EPCONDIS5 `Nb 1 s@31659 ]
"743
[v _EPHSHK5 `Nb 1 s@31660 ]
"746
[v _EPSTALL4 `VNb 1 s@31648 ]
"747
[v _EPINEN4 `Nb 1 s@31649 ]
"748
[v _EPOUTEN4 `Nb 1 s@31650 ]
"749
[v _EPCONDIS4 `Nb 1 s@31651 ]
"750
[v _EPHSHK4 `Nb 1 s@31652 ]
"753
[v _EPSTALL3 `VNb 1 s@31640 ]
"754
[v _EPINEN3 `Nb 1 s@31641 ]
"755
[v _EPOUTEN3 `Nb 1 s@31642 ]
"756
[v _EPCONDIS3 `Nb 1 s@31643 ]
"757
[v _EPHSHK3 `Nb 1 s@31644 ]
"760
[v _EPSTALL2 `VNb 1 s@31632 ]
"761
[v _EPINEN2 `Nb 1 s@31633 ]
"762
[v _EPOUTEN2 `Nb 1 s@31634 ]
"763
[v _EPCONDIS2 `Nb 1 s@31635 ]
"764
[v _EPHSHK2 `Nb 1 s@31636 ]
"767
[v _EPSTALL1 `VNb 1 s@31624 ]
"768
[v _EPINEN1 `Nb 1 s@31625 ]
"769
[v _EPOUTEN1 `Nb 1 s@31626 ]
"770
[v _EPCONDIS1 `Nb 1 s@31627 ]
"771
[v _EPHSHK1 `Nb 1 s@31628 ]
"774
[v _EPSTALL0 `VNb 1 s@31616 ]
"775
[v _EPINEN0 `Nb 1 s@31617 ]
"776
[v _EPOUTEN0 `Nb 1 s@31618 ]
"777
[v _EPCONDIS0 `Nb 1 s@31619 ]
"778
[v _EPHSHK0 `Nb 1 s@31620 ]
"781
[v _UPP0 `Nb 1 s@31608 ]
"782
[v _UPP1 `Nb 1 s@31609 ]
"783
[v _FSEN `Nb 1 s@31610 ]
"784
[v _UTRDIS `Nb 1 s@31611 ]
"785
[v _UPUEN `Nb 1 s@31612 ]
"786
[v _UOEMON `Nb 1 s@31614 ]
"787
[v _UTEYE `Nb 1 s@31615 ]
"790
[v _SUSPND `Nb 1 s@31593 ]
"791
[v _RESUME `Nb 1 s@31594 ]
"792
[v _USBEN `VNb 1 s@31595 ]
"793
[v _PKTDIS `VNb 1 s@31596 ]
"794
[v _SE0 `VNb 1 s@31597 ]
"795
[v _PPBRST `VNb 1 s@31598 ]
"798
[v _PPBI `VNb 1 s@31585 ]
"799
[v _DIR `VNb 1 s@31586 ]
"800
[v _ENDP0 `VNb 1 s@31587 ]
"801
[v _ENDP1 `VNb 1 s@31588 ]
"802
[v _ENDP2 `VNb 1 s@31589 ]
"803
[v _ENDP3 `VNb 1 s@31590 ]
"806
[v _PIDEE `Nb 1 s@31576 ]
"807
[v _CRC5EE `Nb 1 s@31577 ]
"808
[v _CRC16EE `Nb 1 s@31578 ]
"809
[v _DFN8EE `Nb 1 s@31579 ]
"810
[v _BTOEE `Nb 1 s@31580 ]
"811
[v _BTSEE `Nb 1 s@31583 ]
"814
[v _PIDEF `VNb 1 s@31568 ]
"815
[v _CRC5EF `VNb 1 s@31569 ]
"816
[v _CRC16EF `VNb 1 s@31570 ]
"817
[v _DFN8EF `VNb 1 s@31571 ]
"818
[v _BTOEF `VNb 1 s@31572 ]
"819
[v _BTSEF `VNb 1 s@31575 ]
"822
[v _URSTIE `Nb 1 s@31560 ]
"823
[v _UERRIE `Nb 1 s@31561 ]
"824
[v _ACTVIE `Nb 1 s@31562 ]
"825
[v _TRNIE `Nb 1 s@31563 ]
"826
[v _IDLEIE `Nb 1 s@31564 ]
"827
[v _STALLIE `Nb 1 s@31565 ]
"828
[v _SOFIE `Nb 1 s@31566 ]
"831
[v _URSTIF `VNb 1 s@31552 ]
"832
[v _UERRIF `VNb 1 s@31553 ]
"833
[v _ACTVIF `VNb 1 s@31554 ]
"834
[v _TRNIF `VNb 1 s@31555 ]
"835
[v _IDLEIF `VNb 1 s@31556 ]
"836
[v _STALLIF `VNb 1 s@31557 ]
"837
[v _SOFIF `VNb 1 s@31558 ]
"841
[v _SPPEN `Nb 1 s@31528 ]
"842
[v _SPPOWN `Nb 1 s@31529 ]
"845
[v _ADDR0 `Nb 1 s@31520 ]
"846
[v _ADDR1 `Nb 1 s@31521 ]
"847
[v _ADDR2 `Nb 1 s@31522 ]
"848
[v _ADDR3 `Nb 1 s@31523 ]
"849
[v _BUSY `VNb 1 s@31524 ]
"850
[v _WRSPP `VNb 1 s@31526 ]
"851
[v _RDSPP `VNb 1 s@31527 ]
"854
[v _WS0 `Nb 1 s@31512 ]
"855
[v _WS1 `Nb 1 s@31513 ]
"856
[v _WS2 `Nb 1 s@31514 ]
"857
[v _WS3 `Nb 1 s@31515 ]
"858
[v _CLK1EN `Nb 1 s@31516 ]
"859
[v _CSEN `Nb 1 s@31517 ]
"860
[v _CLKCFG0 `Nb 1 s@31518 ]
"861
[v _CLKCFG1 `Nb 1 s@31519 ]
"27 E:\DOC\ELECTRONIC\PIC\Project\Libs\4455adc\adc.c
[v _ADC_SetClock `(v 1 ef1`uc ]
{
[v _clock `uc 1 r1 ]
[e :U _ADC_SetClock ]
[f ]
[; ;adc.c: 26: void ADC_SetClock(unsigned char clock)
[; ;adc.c: 27: {
[; ;adc.c: 28: ADCON2 &= ~0x07;
"28
[e =& _ADCON2 -> ~ -> 7 `i `uc ]
[; ;adc.c: 29: ADCON2 |= clock & 0x07;
"29
[e =| _ADCON2 -> & -> _clock `i -> 7 `i `uc ]
"30
[; ;adc.c: 30: }
[e :UE 1 ]
}
"36
[v _ADC_Init `(v 1 ef ]
{
[e :U _ADC_Init ]
[f ]
[; ;adc.c: 35: void ADC_Init(void)
[; ;adc.c: 36: {
[; ;adc.c: 38: ADC_SetClock(0x06);
"38
[e ( _ADC_SetClock (1 -> -> 6 `i `uc ]
[; ;adc.c: 39: ADC_SetAnalogPort(1);
"39
[v _ADC_SetAnalogPort `(v 0 ef1`uc ]
[e ( _ADC_SetAnalogPort (1 -> -> 1 `i `uc ]
[; ;adc.c: 40: ADC_SetChannel(0);
"40
[v _ADC_SetChannel `(v 0 ef1`uc ]
[e ( _ADC_SetChannel (1 -> -> 0 `i `uc ]
[; ;adc.c: 41: ADC_SetMode(1);
"41
[v _ADC_SetMode `(v 0 ef1`uc ]
[e ( _ADC_SetMode (1 -> -> 1 `i `uc ]
[; ;adc.c: 43: ADON = 1;
"43
[e = _ADON -> -> 1 `i `b ]
"44
[; ;adc.c: 44: }
[e :UE 2 ]
}
"51
[v _ADC_SetAnalogPort `(v 1 ef1`uc ]
{
[v _port `uc 1 r1 ]
[e :U _ADC_SetAnalogPort ]
[f ]
[; ;adc.c: 50: void ADC_SetAnalogPort(unsigned char port)
[; ;adc.c: 51: {
[; ;adc.c: 52: ADCON1 &= ~0x0F;
"52
[e =& _ADCON1 -> ~ -> 15 `i `uc ]
[; ;adc.c: 53: ADCON1 | = (0x0F - port) & 0x0F;
"53
[e =| _ADCON1 -> & - -> 15 `i -> _port `i -> 15 `i `uc ]
"54
[; ;adc.c: 54: }
[e :UE 3 ]
}
"60
[v _ADC_SetChannel `(v 1 ef1`uc ]
{
[v _ch `uc 1 r1 ]
[e :U _ADC_SetChannel ]
[f ]
[; ;adc.c: 59: void ADC_SetChannel(unsigned char ch)
[; ;adc.c: 60: {
[; ;adc.c: 62: ADCON0 &= ~0x3C;
"62
[e =& _ADCON0 -> ~ -> 60 `i `uc ]
[; ;adc.c: 64: ADCON0 |= (ch << 2) & 0x3C;
"64
[e =| _ADCON0 -> & << -> _ch `i -> 2 `i -> 60 `i `uc ]
"65
[; ;adc.c: 65: }
[e :UE 4 ]
}
"71
[v _ADC_SetMode `(v 1 ef1`uc ]
{
[v _mode `uc 1 r1 ]
[e :U _ADC_SetMode ]
[f ]
[; ;adc.c: 70: void ADC_SetMode(unsigned char mode)
[; ;adc.c: 71: {
[; ;adc.c: 72: if(mode == 1)
"72
[e $ ! == -> _mode `i -> 1 `i 6 ]
[; ;adc.c: 73: ADFM = 0;
"73
[e = _ADFM -> -> 0 `i `b ]
[e $U 7 ]
"74
[e :U 6 ]
[; ;adc.c: 74: else
[; ;adc.c: 75: ADFM = 1;
"75
[e = _ADFM -> -> 1 `i `b ]
[e :U 7 ]
"76
[; ;adc.c: 76: }
[e :UE 5 ]
}
"86
[v _ADC_GetInt `(ui 1 ef ]
{
[e :U _ADC_GetInt ]
[f ]
[; ;adc.c: 85: unsigned int ADC_GetInt(void)
[; ;adc.c: 86: {
"87
[v _i `ui 1 a ]
[; ;adc.c: 87: unsigned int i;
[; ;adc.c: 88: i = ADRESH;
"88
[e = _i -> _ADRESH `ui ]
[; ;adc.c: 89: i = i << 8;
"89
[e = _i << _i -> 8 `i ]
[; ;adc.c: 90: i = i + ADRESL;
"90
[e = _i + _i -> _ADRESL `ui ]
[; ;adc.c: 91: return i;
"91
[e ) _i ]
[e $UE 8 ]
"92
[; ;adc.c: 92: }
[e :UE 8 ]
}