ASMB,R,Q,C
*     NAME:   IFPPR 
*     SOURCE: 92070-18259 
*     RELOC:  92070-1X259 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM IFPPR,7  92070-1X259  REV.1941  790607
      ENT IFPPR 
* 
*     PURPOSE:  TO DETERMINE IF A DEVICE IS A PAPER TAPE
*               PUNCH OR READER.
* 
*     DUMMY ROUTINE FOR SYSTEMS THAT DO NOT SUPPORT PAPER 
*     TAPE EQUIPMENT. 
* 
* 
*     CALLING SEQUENCE: 
*       I=IFPPR(LU) 
*         I: -1 IF PAPER TAPE DEVICE
*             0 IF NOT PAPER TAPE DEVICE
* 
*    OR 
* 
*       IF(IFPPR(LU))10,20
*         GOES TO 10 IF PAPER TAPE DEVICE 
*         GOES TO 20 IF NOT PAPER TAPE DEVICE 
* 
A     EQU 0 
B     EQU 1 
* 
* 
IFPPR NOP 
      LDB IFPPR,I 
      CLA 
      JMP B,I       EXIT
* 
      END 
                                                                                  