L     MW  1502

      T     "Send".SJ1_SEND[3]

      L     MW  1500

      T     "Send".SJ1_SEND[4]

      L     "Rcv".SJ1_RCV[4]

      T     MW  1504

      L     "Rcv".SJ1_RCV[3]

      T     MW  1506

      A     #WR

      JNB   read

      L     B#16#10

      T     DB50.DBB    1

      L     50                          //传送起始地址

      T     "Send".SJ1_SEND[1]

      L     3

      T     "Send".SJ1_SEND[2]

      L     12

      T     "work_com".LEN

      JU    send

read: NOP   0

      L     B#16#3

      T     DB50.DBB    1

      L     50

      T     "Send".SJ1_SEND[1]

      L     4

      T     "Send".SJ1_SEND[2]

      L     14

      T     "work_com".LEN

send: NOP   0

      AN    M      1.2

      AN    M      1.4

      =     M      1.0

      A     M      1.0                  //send start

      AN    "work_com".REQ

      AN    "work_com".REQ1

      AN    "work_com".REQ2

      AN    "work_com".REQ3

      AN    "work_com".REQ4

      AN    "work_com".REQ5

      AN    "work_com".REQ6

      AN    "work_com".DONE

      AN    "work_com".ERROR

      R     M      1.0

      S     "work_com".REQ

      A     "work_com".REQ

      JNB   tbr

      L     0

      T     "work_com".NO

tbr:  NOP   0

      A(    

      O     "work_com".DONE

      O     "work_com".ERROR

      )     

      A     "work_com".REQ

      O     

      ON    T    150

      R     "work_com".REQ

      CALL  "P_SND_RK" , DB40

       SF      :=

       REQ     :="work_com".REQ

       R       :="work_com".Reset

       LADDR   :=624

       DB_NO   :=50

       DBB_NO  :=0

       LEN     :="work_com".LEN

       R_CPU_NO:=

       R_TYP   :='X'

       R_NO    :=

       R_OFFSET:=

       R_CF_BYT:=

       R_CF_BIT:=

       DONE    :="work_com".DONE

       ERROR   :="work_com".ERROR

       STATUS  :="work_com".STATUS

      A     "work_com".ERROR

      JNB   _089

      L     "work_com".STATUS

      T     MW  3002

_089: NOP   0

这是完整的，透彻说明下。在这非常感谢了。