zz.txt

通讯程序,用于单片机设计,用80C196开发设计的汇编原代码

        LDB SBH,[PSBUF]+
SPWT7E: LDB SBL,SPSTAT
        JBC SBL,5,SPWT7E
        LDB SBUF,SBH  ;ACT.VALUE HIGH
        XORB SBH,SAL
SPWT7F: LDB SBL,SPSTAT
        JBC SBL,5,SPWT7F
        LDB SBUF,SBH  ;CHECK CODE
        LDB SAL,#01H
        STB SAL,FEF[R0]
        SJMP SPWT5

        ;'04H' & '05H' COMMAND END
        ;NOT '04H' OR '05H' COMMAND
        ;COMMAND CODE IN SBH
SP4C:   INCB SAH
SP4:    LDB SAL,[PSBUF]+
SPWT8:  LDB SBL,SPSTAT
        JBC SBL,5,SPWT8
        LDB SBUF,SAL
        DJNZ SAH,SP4
        SJMP SPWT5

        ;COMMAND "00' PROCESSE END
        ;PROCESSE COMMAND '02' WH TEXT
SCOM01: CMPB SAH,#02H
        JNE SCOM02
        SJMP SPFS
        ;
        ;PROCESS "01H" COMMAND
SCOM02: CMPB SAH,#01H
        JE SDATA
        SJMP SCOM03
SDATA:  LD PSBUF,#SBUFS
        LDB SAL,saddr
        ORB SAL,#80H
        LDB SBL,SAL
        LDB SAH,#03H
        XORB SBL,SAH
        ST SAX,[PSBUF]+  ;ADDR. CODE & ZT CODE

        LDB SAL,#45      ;
        XORB SBL,SAL     ;CHECK IN SBL
        STB SAL,[PSBUF]+ ;DATA LENGTH

        LDB SAL,ADSWIH[R0]  ;GET XB1
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,ADSWIL[R0]
        XORB SBL,SAL
        STB SAL,[PSBUF]+   ;XB2

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+     ;XB3

        LD SAX,SRUA1[0]
        XORB SBL,SAX
        XORB SBL,SAH
        STB SAL,[PSBUF]+
        STB SAH,[PSBUF]+

        LD SAX,SRUB1[0]
        XORB SBL,SAX
        XORB SBL,SAH
        STB SAL,[PSBUF]+
        STB SAH,[PSBUF]+

         LD SAX,SRUC1[0]
         XORB SBL,SAX
         XORB SBL,SAH
         STB SAL,[PSBUF]+
         STB SAH,[PSBUF]+

         LD SAX,SRUA2[0]
         XORB SBL,SAX
         XORB SBL,SAH
         STB SAL,[PSBUF]+
         STB SAH,[PSBUF]+

         LD SAX,SRUB2[0]
         XORB SBL,SAX
         XORB SBL,SAH
         STB SAL,[PSBUF]+
         STB SAH,[PSBUF]+

         LD SAX,SRUC2[0]
         XORB SBL,SAX
         XORB SBL,SAH
         STB SAL,[PSBUF]+
         STB SAH,[PSBUF]+

         LD SAX,SRI1[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI2[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH


         LD SAX,SRI3[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI4[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI5[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI6[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI7[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

         LD SAX,SRI8[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+


        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

        LDB SAL,R0
        XORB SBL,SAL
        STB SAL,[PSBUF]+

         LD SAX,SRT1[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH


         LDB SAX,SWD2B[0]
         STB SAX,[PSBUF]+
       ;  STB SAH,[PSBUF]+
         XORB SBL,SAX
       ;  XORB SBL,SAH

         LD SAX,SRH1[0]
         STB SAX,[PSBUF]+
         STB SAH,[PSBUF]+
         XORB SBL,SAX
         XORB SBL,SAH


         LDB SAX,SWD2B[0]
         STB SAX,[PSBUF]+
         XORB SBL,SAX
         STB SBL,[PSBUF]
         SJMP SPFS

         ;'01'COMMAND PROCESS END
        ;'01'COMMAND PROCESS END
SCOM03: CMPB SAH,#03H
        JE SCM030
        SJMP SCOM04
        ;"03H'COMMAND CALL FOR DATA OF NOW
SCM030: CMP PEVENT,#EVTTOP
        JNE SCM031
        SJMP SDATA ;NO EVENT JMP
        ;THERE IS EVENT
SCM031: LD PSBUF,#SBUFS
        LDB SAL,SADDR
        ORB SAL,#80H
        STB SAL,[PSBUF]+ ;ADDR. CODE
        LD SAX,[PEVTT]+  ;EVENT FIRST BYTE IN SAL
        JBC SAL,7,BBB2
        SJMP SCM032      ;IS SWITCHES STATE CHANGED JMP
bbb2:   LDB SBH,#04H     ;PRETECTION
        STB SBH,[PSBUF]+ ;'04H' COMMAND
        LDB SCNT,#05H   ;'05H'DATA LENGTH
        STB SCNT,[PSBUF]+ ;
        STB SAL,[PSBUF]+ ;PROTECTION TYPE
        LDB SCNT,SAL
        LD SAX,[PEVTT]+  ;GET CLOCKL
        ST SAX,[PSBUF]+  ;STORE TIME
        LD SAX,[PEVTT]+
        LD SBX,[PEVTT]+

SCM033A:ST SAX,[PSBUF]+  ;VALUE
        ADD PEVTT,#2
        DI
        CMP PEVENT,PEVTT
        JH SCM033
        LD PEVENT,#EVTTOP
        LD PEVTT,PEVENT
SCM033: EI
        SJMP SPFS

SCM032: LDB SBH,#05H     ;SWITCH CHANGED STATE
        STB SBH,[PSBUF]+ ;'05H' COMMAND
        STB SBH,[PSBUF]+ ;'05H'DATA LENGTH
        LD SBX,2[PEVTT]  ;GET CHANGED BIT
        LD BCQAX,4[PEVTT];  ;GET switi
        LDB SCNT,#16  ;#8      ;
SCM032A:SHL SBL,#1
        JC SCM034
        SHL BCQAX,#1
        DJNZ SCNT,SCM032A
        ADD PEVTT,#08h ;#08H ;NO EVT
        ;NO SWITCH CHANGED SEND NO EVT COMMAND
        LD PSBUF,#SBUFS
        STB SADDR,[PSBUF]+
        LDB SAX,#04H
        STB SAX,[PSBUF]+
        XORB SAX,SADDR
        STB SAX,[PSBUF]
        SJMP scm037
SCM034: DECB SCNT
        ldb sah,scnt
        JBc BCQAXH,7,SCM034A
        ADDB SAH,#0e0h
SCM034A:ADDB SAH,#08H
        STB SAH,[PSBUF]+ ;STATE & SWITCH NUMBER
        LD SAX,[PEVTT]
        ST SAX,[PSBUF]+ ;TIME
        AND SBX,SBX
        JNE SCM035
        ADD PEVTT,#08H

SCM037: DI
        CMP PEVENT,PEVTT
        JH SCM036
        LD PEVENT,#EVTTOP
        LD PEVTT,PEVENT
SCM036: EI
        LJMP Spfs ;INJECTION PEVENT AND PEVTT
        ;SCM035: ANDB SBL,#7FH ;THERE ARE EVENT ALSO
scm035: SUBB SCNT,#16 ;#8  ;ERASE THE EVENT THAT HAS BEEN SEND
        NEGB SCNT
        SHR SBL,SCNT
        ST SBL,2[PEVTT]
        SUB PEVTT,#2;#8 ;RESTORE POINT
        LJMP SPFS

        ;'03H'COMMAND END
SCOM04: CMPB SAH,#04H
        JNE SCOM07

        ;PRECESS '04H' COMM
        CMP PEVENT,#EVTTOP
        JE SCM041
        SJMP SCM031 ;THERE IS EVT JMP

        ;NO EVT
SCM041: LD PSBUF,#SBUFS
        STB SADDR,[PSBUF]+
        LDB SAL,#04H
        STB SAL,[PSBUF]+
        XORB SAL,SADDR
        STB SAL,[PSBUF]
        SJMP SPFS

        ;'04H'COMMAND END
SCOM07: CMPB SAH,#07H
        JNE SCOM0b
        SJMP SDATA
        ;'A5H'COMMAND PROCESS END
        ;***
SCOM0B: CMPB SAH,#0BH