📄 gaixian.lst
字号:
04A1 B42000 788 CJNE A,#20H,RDA_PGAU
04A4 500E 789 RDA_PGAU:JNC RDA_PGAD ;if A>=#20H,goto RDA_PGAD (PGA Down Adh.)
04A6 E536 790 MOV A,ADVPGA
04A8 B40300 791 CJNE A,#3,RDA_PGAU1
04AB 4017 792 RDA_PGAU1:JC RDA_PGAOV
04AD 0536 793 INC ADVPGA
04AF 120414 794 LCALL RSTADSA
04B2 80D3 795 SJMP READA
04B4 B47000 796 RDA_PGAD:CJNE A,#70H,RDA_PGAD1
04B7 400B 797 RDA_PGAD1:JC RDA_PGAOV ;IF A<#70H,GOTO RDA_PGAOV
04B9 E536 798 MOV A,ADVPGA
04BB 6007 799 JZ RDA_PGAOV
04BD 1536 800 DEC ADVPGA
04BF 120414 801 LCALL RSTADSA
04C2 80C3 802 SJMP READA
04C4 C0D0 803 RDA_PGAOV:PUSH PSW
04C6 E53B 804 MOV A,ADVADDRT+1
04C8 F53C 805 MOV ADVADDRT+2,A
04CA E53A 806 MOV A,ADVADDRT
04CC F53B 807 MOV ADVADDRT+1,A
04CE 753A00 808 MOV ADVADDRT,#0
04D1 75D018 809 MOV PSW,#18H
810 ;0 HH LL -> ADVADDRT
04D4 C3 811 CLR C
04D5 7403 812 MOV A,#3
04D7 9536 813 SUBB A,ADVPGA
04D9 600E 814 JZ RDA_GET
04DB FF 815 MOV R7,A
04DC 7E03 816 RDA_ADJ: MOV R6,#3
04DE 783C 817 MOV R0,#ADVADDRT+2
04E0 C3 818 CLR C
04E1 E6 819 RDA_ADJ1:MOV A,@R0
04E2 33 820 RLC A
04E3 F6 821 MOV @R0,A
04E4 18 822 DEC R0
04E5 DEFA 823 DJNZ R6,RDA_ADJ1
04E7 DFF3 824 DJNZ R7,RDA_ADJ
04E9 7F02 825 RDA_GET: MOV R7,#2
04EB 7E03 826 RDA_ADJA:MOV R6,#3
04ED 783A 827 MOV R0,#ADVADDRT
04EF C3 828 CLR C
04F0 E6 829 RDA_ADJA1:MOV A,@R0
04F1 13 830 RRC A
04F2 F6 831 MOV @R0,A
04F3 08 832 INC R0
04F4 DEFA 833 DJNZ R6,RDA_ADJA1
04F6 DFF3 834 DJNZ R7,RDA_ADJA
04F8 D0D0 835 POP PSW
04FA 22 836 RET
837 ;MAX = 03 FF FF /4
838
04FB 752503 839 READBC: MOV NUMBYTE,#3
04FE 1203CE 840 LCALL IICRDBS1
0501 30E7F7 841 JNB ACC.7,READBC
0504 1203F1 842 LCALL IICRDBS2
0507 30E7F1 843 JNB ACC.7,READBC
050A 22 844 RET
845 ;Ads110 CONTROL FUNCTION -------- END
050B 753A00 846 CALC_H: MOV ADVADDRT ,#0
050E 753B00 847 MOV ADVADDRT+1 ,#0
0511 753C00 848 MOV ADVADDRT+2 ,#0
0514 AF3E 849 MOV R7,ADVAVRM
0516 7850 850 MOV R0,#ADV_SV_B
A51 MACRO ASSEMBLER GAIXIAN 10/26/2006 13:09:06 PAGE 14
0518 793A 851 CALC_H1: MOV R1,#ADVADDRT
051A 7E03 852 MOV R6,#3
051C C3 853 CLR C
051D E6 854 CALC_H2: MOV A,@R0
051E 37 855 ADDC A,@R1
051F F7 856 MOV @R1,A
0520 08 857 INC R0
0521 09 858 INC R1
0522 DEF9 859 DJNZ R6,CALC_H2
0524 DFF2 860 DJNZ R7,CALC_H1
861
0526 A83A 862 MOV r0,ADVADDRT
0528 A93B 863 MOV r1,ADVADDRT+1
052A AA3C 864 MOV r2,ADVADDRT+2
052C E53E 865 MOV A,ADVAVRM
052E 8535F0 866 MOV B,ADVMAX
0531 A4 867 MUL AB
0532 FC 868 MOV R4,A
0533 1205E6 869 LCALL DIV_LP0
870 ;RET;在此处返回可显示adA平均采样值
871
0536 852E3A 872 MOV ADVADDRT,2EH
0539 852D3B 873 MOV ADVADDRT+1,2DH
053C E53A 874 MOV A,ADVADDRT
053E E53B 875 MOV A,ADVADDRT+1
876
0540 120737 877 LCALL CHABIAO
0543 1206A3 878 LCALL FILTER
0546 1207DA 879 CALC_HJZ: LCALL HJJZ
0549 22 880 RET
054A D292 881 DISPLAY: SETB P1.2
054C D29B 882 setb TB8
054E 74AA 883 mov a,#0aah
0550 120871 884 CALL send
0553 7F04 885 MOV R7,#4
0555 7833 886 MOV R0,#DSPBUF+3 ;SEND LAST LED FIRST
0557 90057F 887 MOV DPTR,#TBA
055A C29B 888 clr TB8
055C C280 889 CLR CS0
055E E6 890 DLO: MOV A,@R0
891 ;CALL send
055F 93 892 MOVC A,@A+DPTR
0560 7E08 893 MOV R6,#8
0562 33 894 DL8: RLC A
0563 9282 895 MOV LEDD,C
0565 D281 896 SETB LEDC
0567 C281 897 CLR LEDC
898
0569 DEF7 899 DJNZ R6,DL8
056B 18 900 DEC R0
056C DFF0 901 DJNZ R7,DLO
056E D280 902 SETB CS0
903
0570 7F04 904 MOV R7,#4
0572 7833 905 MOV R0,#DSPBUF+3 ;SEND LAST LED FIRST
0574 E6 906 sendl: MOV A,@R0
0575 120871 907 CALL send
0578 18 908 dec r0
0579 12069B 909 lcall delay40u
057C DFF6 910 DJNZ R7,sendl
911
057E 22 912 RET
057F 3F065B4F 913 TBA: DB 63, 6, 91, 79, 102,109,125, 7,127,111 ;0,1,2,3,4,5,6,7,8,9
0583 666D7D07
0587 7F6F
0589 BF86DBCF 914 DB 191,134,219, 207,230,237,253,135,255,239 ;0.,1.,.... 8.
A51 MACRO ASSEMBLER GAIXIAN 10/26/2006 13:09:06 PAGE 15
,9.
058D E6EDFD87
0591 FFEF
0593 11C163DE 915 DB 11H,0C1H, 63H, 222, 121, 71H, 91H, 30H, 1FH, 1DH ;A,b, C,d,
E,F,H,P.,_,=
0597 79719130
059B 1F1D
059D 00 916 DB 00H
059E C040 917 DB 0C0H,40H ;-. , -
918
05A0 759800 919 DISPLAY1: MOV SCON,#0 ;SELECT SIREL MODE 0
05A3 7F04 920 MOV R7,#4
05A5 7833 921 MOV R0,#DSPBUF+3 ;SEND LAST LED FIRST
05A7 9005BB 922 MOV DPTR,#TBA1
05AA C280 923 CLR CS0
05AC E6 924 DLO1: MOV A,@R0
05AD 93 925 MOVC A,@A+DPTR
05AE F599 926 MOV SBUF,A
05B0 3099FD 927 JNB TI,$
05B3 C299 928 CLR TI
05B5 18 929 DEC R0
05B6 DFF4 930 DJNZ R7,DLO1
05B8 D280 931 SETB CS0
05BA 22 932 RET
05BB 3F065B4F 933 TBA1: DB 63, 6, 91, 79, 102,109,125, 7,127,111 ;0,1,2,3,4,5,6,7,
8,9
05BF 666D7D07
05C3 7F6F
05C5 BF86DBCF 934 DB 191,134,219, 207,230,237,253,135,255,239 ;0.,1.,.... 8.
,9.
05C9 E6EDFD87
05CD FFEF
05CF 11C16385 935 DB 11H,0C1H, 63H, 85H, 61H, 71H, 91H, 30H, 1FH, 1DH ;A,b, C,d,
E,F,H,P.,_,=
05D3 61719130
05D7 1F1D
05D9 00 936 DB 00H
05DA C040 937 DB 0C0H,40H ;-. , -
;BLANK
938 ;(R0-R2,R0-R2+1,...,R0) += (R1-R2,R1-R2+1,..,R1)
05DC C3 939 ADD_UCH: CLR C
05DD E4 940 CLR A
05DE E6 941 ADD_LOOP:MOV A,@R0
05DF 37 942 ADDC A,@R1
05E0 F6 943 MOV @R0,A
05E1 18 944 DEC R0
05E2 19 945 DEC R1
05E3 DAF9 946 DJNZ R2,ADD_LOOP
05E5 22 947 RET
948 ;3 bytes div by 1 byte,result 3 bytes
05E6 949 DIV_LP0: ;mov r0,#data_l
950 ;mov r1,#data_m
951 ;mov r2,#data_h
952 ;mov r4,#datb
05E6 7B00 953 MOV R3,#00h
05E8 752D00 954 MOV 2DH,#00H
05EB 752E00 955 MOV 2EH,#00H
05EE 752F00 956 MOV 2FH,#00H
05F1 7F18 957 MOV R7,#18H
05F3 E8 958 DIV_LP6: MOV A,R0
05F4 28 959 ADD A,R0
05F5 F8 960 MOV R0,A
05F6 E9 961 MOV A,R1
05F7 39 962 ADDC A,R1
05F8 F9 963 MOV R1,A
05F9 EA 964 MOV A,R2
A51 MACRO ASSEMBLER GAIXIAN 10/26/2006 13:09:06 PAGE 16
05FA 3A 965 ADDC A,R2
05FB FA 966 MOV R2,A
05FC EB ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -