*DECK BUFINFO 
      FUNC BUFINFO (ORDINAL) U; 
      BEGIN # BUFINFO # 
*IF DEF,IMS 
 #
*1DC  BUFINFO 
* 
*     1. FUNC NAME           AUTHOR              DATE 
*        BUFINFO             B. M. WEST          29 MARCH 1977
* 
*     2. FUNCTIONAL DESCRIPTION.
*        RETURNS ADDRESS OF BUFFER IDENTIFIED BY ORDINAL. 
* 
*     3. METHOD USED. 
*        CALLS PROCEDURE TSBINFO WITH ORDINAL.
* 
*     4. ENTRY PARAMETERS.
*        ORDINAL - ORDINAL OF BUFFER TO BE MADE NON-MOVEABLE AND WHOSE
*                  ADDRESS IS TO BE RETURNED. 
* 
*     5. EXIT PARAMETER.
*        - ADDRESS OF BUFFER IDENTIFIED BY ORDINAL. 
* 
*     6. COMDECKS USED. NONE. 
* 
*     7. ROUTINE CALLED.
*        TSBINFO
* 
*     8. DAYFILE MESSAGES. NONE.
* 
 #
*ENDIF
      XREF PROC TSBINFO;     # PICKS UP ADDRESS OF BUFFER              #
      ITEM ORDINAL U; 
      ITEM SIZE I;
      ITEM ADDRESS U; 
#                                                                      #
#     CALL TSBINFO                                                     #
#                                                                      #
      TSBINFO (SIZE,ADDRESS,ORDINAL); 
      BUFINFO = ADDRESS;
      RETURN; 
      END  # BUFINFO #
      TERM; 
