*DECK     RML 
          IDENT  RML
          TITLE  RML - RECEIVE MESSAGE FROM LINK. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  RML
  
          COMMENT  RECEIVE MESSAGE FROM LINK. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        RML - RECEIVE MESSAGE FROM LINK.
* 
*         J. G. CLARK        79/12/17.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
 RML      SPACE  4,10 
**               RML IS CALLED TO RECEIVE THE NEXT BLOCK TYPE 
*         MESSAGE.  SUPERVISORY MESSAGES WILL BE PROCESSED AND
*         THIS ROUTINE WILL NOT EXIT UNTIL THE MESSAGE BLOCK IS 
*         RECEIVED OR AN ERROR IS DETECTED. 
* 
*         ENTRY  (A1) IS THE ADDRESS OF THE PARAMETER LIST. 
* 
*         PARAMETER LIST FORMAT 
*         NSUP   - SUPERVISORY/INPUT QUEUED AS DEFINED BY NETON.
*         STAT   - COMMUNICATIONS STATUS INDICATOR. 
*                - SET TO -0 IF THE CONNECTION IS BROKEN DURING RECEIVE.
*         ACKT   - NETWAIT TIME INTERVAL. 
*         FLAG   - NETWAIT DEFINED WAIT FLAG. 
*         HA     - HEADER AREA FOR NETGET.
*         TA     - TEXT AREA TO BE RETURNED FROM NETGET.
*         MAXTLC - MAXIMUM TEXT AREA AVAILABLE FOR NETGET.
* 
*         EXIT   (X1) IS AN ERROR MESSAGE ADDRESS IF AN ERROR IS
*                DETECTED.
* 
*         USES   A - 1. 
*                B - NONE.
*                X - 1,6. 
* 
*         CALLS  GMB, WMB.
  
  
 RML      SUBRL  (,#STAT) 
 RML1     SA1    A0 
          RJ     =XWMB       WAIT FOR MESSAGE BLOCK 
          NZ     X1,RMLX     IF ERROR DETECTED
          SA1    "STAT" 
          RJ     =XGMB       GET MESSAGE BLOCK
          NZ     X1,RMLX     IF ERROR IN TRANSFER 
          NZ     X6,RMLX     IF INPUT OR NAK
          EQ     RML1        IF NULL BLOCK OR BACK, RETRY 
  
  
          QUAL   *
          SPACE  4
          END 
