📄 p762.lst
字号:
033D 19 756 DEC R1
033E 19 757 DEC R1 ; POCSAG 1ST BYTE
758
033F 7A04 759 MOV R2,#04H
0341 C3 760 CLR C
761
0342 762 POCSAG_ACK:
0342 E7 763 MOV A,@R1
0343 30D001 764 JNB P,POCSAG_ACK_0
0346 B3 765 CPL C
766
0347 767 POCSAG_ACK_0:
0347 09 768 INC R1
0348 DAF8 769 DJNZ R2,POCSAG_ACK
770
034A 33 771 RLC A
034B 19 772 DEC R1 ; POCSAG 4TH BYTE
034C F7 773 MOV @R1,A
774
034D 775 POC_BUL_END:
776
034D 22 777 RET
034E 00 778 NOP
034F 00 779 NOP
0350 00 780 NOP
781
782
783 ;*********************** POCSAG BUILD PRORAM END *********************
784
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 13
785
786 ;**********************************************************************
787 ;
788 ; BUFFER DATA SEND
789 ;
790 ;**********************************************************************
0351 791 DATA_SEND:
0351 7440 792 MOV A,#HAO_BUFFER
0353 F8 793 MOV R0,A
794
0354 1521 795 DEC DATA_NUM
0356 7A10 796 MOV R2,#010H
797
0358 798 READ_HAO:
0358 E6 799 MOV A,@R0
0359 04 800 INC A
035A 700A 801 JNZ READ_HAO_OK
035C 08 802 INC R0
035D 00 803 NOP
035E DAF8 804 DJNZ R2,READ_HAO
0360 00 805 NOP
0361 00 806 NOP
0362 C3 807 CLR C
0363 22 808 RET
0364 00 809 NOP
0365 00 810 NOP
811
0366 812 READ_HAO_OK:
0366 E6 813 MOV A,@R0
0367 F525 814 MOV SENDING_DATA,A
0369 76FF 815 MOV @R0,#0FFH
816
036B C3 817 CLR C
036C 9464 818 SUBB A,#064H
036E 4006 819 JC DATA_RIGHT
0370 00 820 NOP
0371 00 821 NOP
0372 C3 822 CLR C
0373 22 823 RET
0374 00 824 NOP
0375 00 825 NOP
826
0376 827 DATA_RIGHT:
828
0376 91BC 829 ACALL POC_START
0378 00 830 NOP
0379 00 831 NOP
037A 7408 832 MOV A,#OLD_BUFFER
037C F8 833 MOV R0,A
037D 04 834 INC A
037E F9 835 MOV R1,A
836
037F 7A0F 837 MOV R2,#0FH
838
0381 839 DATA_TO_OLDBUF:
0381 E7 840 MOV A,@R1
0382 F6 841 MOV @R0,A
0383 08 842 INC R0
0384 09 843 INC R1
0385 DAFA 844 DJNZ R2,DATA_TO_OLDBUF
0387 00 845 NOP
0388 00 846 NOP
0389 E525 847 MOV A,SENDING_DATA
038B F6 848 MOV @R0,A
038C 00 849 NOP
038D 752E10 850 MOV OLD_DELAY,#010H ; About 60 s
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 14
0390 7450 851 MOV A,#POCSAG_BUFFER
0392 F8 852 MOV R0,A
853
0393 753308 854 MOV ADD_93C_L,#08H
0396 00 855 NOP
0397 00 856 NOP
0398 D1A1 857 ACALL READ_93C46
039A 00 858 NOP
039B 00 859 NOP
039C E534 860 MOV A,BYTE1_93C
039E F6 861 MOV @R0,A
039F 08 862 INC R0
863
03A0 E535 864 MOV A,BYTE2_93C
03A2 F6 865 MOV @R0,A
03A3 08 866 INC R0
867
03A4 75330A 868 MOV ADD_93C_L,#0AH
03A7 00 869 NOP
03A8 00 870 NOP
03A9 D1A1 871 ACALL READ_93C46
03AB 00 872 NOP
03AC 00 873 NOP
03AD E534 874 MOV A,BYTE1_93C
03AF F6 875 MOV @R0,A
03B0 08 876 INC R0
877
03B1 E535 878 MOV A,BYTE2_93C
03B3 F6 879 MOV @R0,A
03B4 08 880 INC R0
881
03B5 7633 882 MOV @R0,#033H
03B7 08 883 INC R0
884
03B8 E525 885 MOV A,SENDING_DATA
03BA 75F00A 886 MOV B,#0AH
03BD 84 887 DIV AB
03BE 00 888 NOP
03BF 00 889 NOP
03C0 90042F 890 MOV DPTR,#INFOR_BCD
891
03C3 93 892 MOVC A,@A+DPTR
03C4 4430 893 ORL A,#030H
03C6 F6 894 MOV @R0,A
03C7 08 895 INC R0
896
03C8 E5F0 897 MOV A,B
03CA 93 898 MOVC A,@A+DPTR
03CB C4 899 SWAP A
03CC F6 900 MOV @R0,A
901
03CD 7525FF 902 MOV SENDING_DATA,#0FFH
03D0 7450 903 MOV A,#POCSAG_BUFFER
03D2 04 904 INC A
03D3 04 905 INC A
03D4 04 906 INC A
03D5 04 907 INC A
03D6 D3 908 SETB C
909
03D7 51F8 910 ACALL POCSAG_BUILD
03D9 00 911 NOP
03DA 00 912 NOP
03DB 752608 913 MOV ZHENG_HAO,#08H
914
03DE 915 SEND_DATA_WAIT1:
03DE 00 916 NOP
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 15
03DF 00 917 NOP
03E0 00 918 NOP
03E1 00 919 NOP
03E2 75A61E 920 MOV WDRST,#01EH ; CLR WDT
03E5 00 921 NOP
03E6 75A6E1 922 MOV WDRST,#0E1H
03E9 00 923 NOP
03EA 00 924 NOP
03EB 758911 925 MOV TMOD,#011H
03EE D28C 926 SETB TR0
03F0 D28E 927 SETB TR1
03F2 D2A9 928 SETB ET0
03F4 D2AB 929 SETB ET1
03F6 D2AF 930 SETB EA
03F8 00 931 NOP
03F9 00 932 NOP
03FA 2000E1 933 JB SYS_STATUS.0,SEND_DATA_WAIT1
03FD 00 934 NOP
03FE 00 935 NOP
03FF F132 936 ACALL DELAY
0401 00 937 NOP
0402 00 938 NOP
0403 91BC 939 ACALL POC_START
0405 00 940 NOP
0406 00 941 NOP
942
943
0407 944 SEND_DATA_WAIT2:
0407 00 945 NOP
0408 00 946 NOP
0409 00 947 NOP
040A 00 948 NOP
040B 75A61E 949 MOV WDRST,#01EH ; CLR WDT
040E 00 950 NOP
040F 75A6E1 951 MOV WDRST,#0E1H
0412 00 952 NOP
0413 00 953 NOP
0414 758911 954 MOV TMOD,#011H
0417 D28C 955 SETB TR0
0419 D28E 956 SETB TR1
041B D2A9 957 SETB ET0
041D D2AB 958 SETB ET1
041F D2AF 959 SETB EA
0421 00 960 NOP
0422 00 961 NOP
0423 2000E1 962 JB SYS_STATUS.0,SEND_DATA_WAIT2
0426 00 963 NOP
0427 00 964 NOP
965
0428 C2A9 966 CLR ET0
042A 00 967 NOP
042B 00 968 NOP
042C 22 969 RET
042D 00 970 NOP
042E 00 971 NOP
042F 0008040C 972 INFOR_BCD: DB 000H,008H,004H,00CH,002H,00AH,006H,00EH,001H,009H,005H,00DH,003H,00B,007H,0
0FH
0433 020A060E
0437 0109050D
043B 0300070F
973
043F 00 974 NOP
0440 00 975 NOP
0441 00 976 NOP
0442 0166 977 AJMP SYS_START
0444 00 978 NOP
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 16
0445 00 979 NOP
980
981 ;**********************************************************************
982 ;
983 ; KEY1 SEND
984 ;
985 ;**********************************************************************
0446 986 KEYS1_SEND:
0446 7F10 987 MOV R7,#010H;
0448 00 988 NOP
0449 00 989 NOP
044A 8152 990 AJMP KEYS_SEND
044C 00 991 NOP
044D 00 992 NOP
044E 993 KEYS2_SEND:
044E 7F20 994 MOV R7,#020H;
0450 00 995 NOP
0451 00 996 NOP
0452 997 KEYS_SEND:
998
0452 7450 999 MOV A,#POCSAG_BUFFER
0454 F8 1000 MOV R0,A
1001
0455 E4 1002 CLR A
0456 4F 1003 ORL A,R7
0457 F533 1004 MOV ADD_93C_L,A
0459 00 1005 NOP
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -