📄 gsmmodem.ls1
字号:
002F 7F0A 604 MOV R7,#0AH
0031 7E00 605 MOV R6,#00H
0033 120000 F 606 LCALL _Delay
607 ; if(ModemExpect("I/OK",400))
608 ; SOURCE LINE # 111
0036 120000 F 609 LCALL L?0083
0039 EF 610 MOV A,R7
003A 6003 611 JZ ?C0012
612 ; {
613 ; SOURCE LINE # 112
A51 MACRO ASSEMBLER GSMMODEM 12/01/2004 14:12:52 PAGE 11
614 ; return 1;
615 ; SOURCE LINE # 113
003C 7F01 616 MOV R7,#01H
003E 22 617 RET
618 ; }
619 ; SOURCE LINE # 114
003F 620 ?C0012:
621 ; else
622 ; {
623 ; SOURCE LINE # 116
624 ; CPOW = 0;
625 ; SOURCE LINE # 117
003F C2B2 626 CLR CPOW
627 ; MESL = 0;
628 ; SOURCE LINE # 118
0041 C296 629 CLR MESL
630 ; CRST = 0;
631 ; SOURCE LINE # 119
0043 C297 632 CLR CRST
633 ; Delay(100);
634 ; SOURCE LINE # 120
0045 7F64 635 MOV R7,#064H
0047 7E00 636 MOV R6,#00H
0049 120000 F 637 LCALL _Delay
638 ; CPOW = 1;
639 ; SOURCE LINE # 121
004C D2B2 640 SETB CPOW
641 ; Delay(100);
642 ; SOURCE LINE # 122
004E 7F64 643 MOV R7,#064H
0050 7E00 644 MOV R6,#00H
0052 120000 F 645 LCALL _Delay
646 ; CRST = 1;
647 ; SOURCE LINE # 123
0055 D297 648 SETB CRST
649 ;
650 ; Delay(500);
651 ; SOURCE LINE # 125
0057 7FF4 652 MOV R7,#0F4H
0059 7E01 653 MOV R6,#01H
005B 120000 F 654 LCALL _Delay
655 ; MESL = 1;
656 ; SOURCE LINE # 126
005E D296 657 SETB MESL
658 ; }
659 ; SOURCE LINE # 127
660 ; }
661 ; SOURCE LINE # 128
0060 662 ?C0011:
0060 0500 F 663 INC i?245
0062 E500 F 664 MOV A,i?245
0064 C3 665 CLR C
0065 9403 666 SUBB A,#03H
0067 40A9 667 JC ?C0009
0069 668 ?C0010:
669 ; return 0;
670 ; SOURCE LINE # 129
0069 7F00 671 MOV R7,#00H
672 ; }
673 ; SOURCE LINE # 130
006B 674 ?C0013:
006B 22 675 RET
676 ; END OF ModuleRst
677
678 ;
679 ;
A51 MACRO ASSEMBLER GSMMODEM 12/01/2004 14:12:52 PAGE 12
680 ; /*********************************
681 ; ** init the Modem
682 ; ** ATTENTION: must save some parameter except "hsrv" !
683 ; *********************************/
684 ; unsigned char InitModem()
685
---- 686 RSEG ?PR?InitModem?GSMMODEM
0000 687 InitModem:
688 USING 0
689 ; SOURCE LINE # 137
690 ; {
691 ; SOURCE LINE # 138
692 ; uchar idata i,j;
693 ; uchar idata status = 1;
694 ; SOURCE LINE # 140
0000 7800 F 695 MOV R0,#LOW (status?348)
0002 7601 696 MOV @R0,#01H
697 ; for(i = 0;i<4;i++)
698 ; SOURCE LINE # 141
0004 E4 699 CLR A
0005 7800 F 700 MOV R0,#LOW (i?346)
0007 F6 701 MOV @R0,A
0008 702 ?C0015:
703 ; {//a
704 ; SOURCE LINE # 142
705 ; switch(status)
706 ; SOURCE LINE # 143
0008 7800 F 707 MOV R0,#LOW (status?348)
000A E6 708 MOV A,@R0
000B 120000 F 709 LCALL ?C?CCASE
000E 0000 F 710 DW ?C0019
0010 01 711 DB 01H
0011 0000 F 712 DW ?C0021
0013 02 713 DB 02H
0014 0000 F 714 DW ?C0023
0016 03 715 DB 03H
0017 0000 F 716 DW ?C0025
0019 04 717 DB 04H
001A 0000 F 718 DW ?C0034
001C 05 719 DB 05H
001D 0000 F 720 DW ?C0043
001F 06 721 DB 06H
0020 0000 F 722 DW ?C0045
0022 07 723 DB 07H
0023 0000 F 724 DW ?C0047
0025 08 725 DB 08H
0026 0000 F 726 DW ?C0049
0028 09 727 DB 09H
0029 0000 F 728 DW ?C0051
002B 0A 729 DB 0AH
002C 0000 F 730 DW ?C0053
002E 0B 731 DB 0BH
002F 0000 F 732 DW ?C0055
0031 0C 733 DB 0CH
0032 0000 F 734 DW ?C0057
0034 0D 735 DB 0DH
0035 0000 F 736 DW ?C0059
0037 0E 737 DB 0EH
0038 0000 F 738 DW ?C0061
003A 0F 739 DB 0FH
003B 0000 740 DW 00H
003D 0000 F 741 DW ?C0017
742 ; {//b
743 ; SOURCE LINE # 144
744 ; case 1: //at+imcm ---I/OK
A51 MACRO ASSEMBLER GSMMODEM 12/01/2004 14:12:52 PAGE 13
745 ; SOURCE LINE # 145
003F 746 ?C0019:
747 ; ModemSend(ATI_MCM);
748 ; SOURCE LINE # 146
003F 120000 F 749 LCALL L?0087
750 ; Delay(10);
751 ; SOURCE LINE # 147
0042 7F0A 752 MOV R7,#0AH
0044 7E00 753 MOV R6,#00H
0046 120000 F 754 LCALL _Delay
755 ; if( ModemExpect("I/OK",400))
756 ; SOURCE LINE # 148
0049 120000 F 757 LCALL L?0083
004C EF 758 MOV A,R7
004D 7003 759 JNZ $ + 5H
004F 020000 F 760 LJMP ?C0017
761 ; {
762 ; SOURCE LINE # 149
763 ; i = 0;
764 ; SOURCE LINE # 150
0052 E4 765 CLR A
0053 7800 F 766 MOV R0,#LOW (i?346)
0055 F6 767 MOV @R0,A
768 ; status = 2;
769 ; SOURCE LINE # 151
0056 7800 F 770 MOV R0,#LOW (status?348)
0058 7602 771 MOV @R0,#02H
772 ; }
773 ; SOURCE LINE # 152
774 ; break;
775 ; SOURCE LINE # 153
005A 020000 F 776 LJMP ?C0017
777 ;
778 ; case 2: //at-----OK
779 ; SOURCE LINE # 155
005D 780 ?C0021:
781 ; ModemSend(AT_COMMAND);
782 ; SOURCE LINE # 156
005D 7BFF 783 MOV R3,#0FFH
005F 7A00 F 784 MOV R2,#HIGH (?SC_18)
0061 7900 F 785 MOV R1,#LOW (?SC_18)
0063 120000 F 786 LCALL _ModemSend
787 ; Delay(10);
788 ; SOURCE LINE # 157
0066 7F0A 789 MOV R7,#0AH
0068 7E00 790 MOV R6,#00H
006A 120000 F 791 LCALL _Delay
792 ; if( ModemExpect("OK",400))
793 ; SOURCE LINE # 158
006D 7A00 F 794 MOV R2,#HIGH (?SC_22)
006F 7900 F 795 MOV R1,#LOW (?SC_22)
0071 120000 F 796 LCALL L?0085
0074 EF 797 MOV A,R7
0075 7003 798 JNZ $ + 5H
0077 020000 F 799 LJMP ?C0017
800 ; {
801 ; SOURCE LINE # 159
802 ; i = 0;
803 ; SOURCE LINE # 160
007A E4 804 CLR A
007B 7800 F 805 MOV R0,#LOW (i?346)
007D F6 806 MOV @R0,A
807 ; status = 3;
808 ; SOURCE LINE # 161
007E 7800 F 809 MOV R0,#LOW (status?348)
A51 MACRO ASSEMBLER GSMMODEM 12/01/2004 14:12:52 PAGE 14
0080 7603 810 MOV @R0,#03H
811 ; }
812 ; SOURCE LINE # 162
813 ; break;
814 ; SOURCE LINE # 163
0082 020000 F 815 LJMP ?C0017
816 ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -