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