*COMDECK ROUTE
          IDENT  ROUTE
          ENTRY  ROUTE
          SYSCOM B1 
          TITLE ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION. 
          COMMENT ROUTE A FILE TO A SPECIFIC DISPOSITION. 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1981.
          SPACE  4,10 
***       ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION. 
* 
*         CALL ROUTE(ADDR,R)
* 
*         ENTRY  (ADDR) = ADDRESS OF PARAMETER BLOCK. 
*                (R)    = RECALL, IF .NE. 0, RECALL IS REQUESTED. 
* 
*         ROUTE(ADDR,R);            (*SYMPL* CALL)
* 
*         ENTRY  (ADDR) = ADDRESS OF PARAMETER BLOCK. 
*                (R)    = RECALL, IF .NE. 0, RECALL IS REQUESTED. 
* 
*         USES   X - 1, 2.
*                A - 1, 2.
*                B - 1. 
* 
*         MACROS ROUTE. 
  
  
 ROUTE    SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET RECALL PARAMETER 
          SA2    X2 
          NZ     X2,ROU1     IF RECALL PARAMETER
          ROUTE  X1 
          EQ     ROUTEX      EXIT 
  
 ROU1     ROUTE  X1,R 
          EQ     ROUTEX      EXIT 
  
          END 
