ASMB,R,L,C
* 
*     NAME:   .TAPE 
*     SOURCE: 92068-18012 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   R.A.G.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 .TAPE,7 92068-1X012 REV.2013 750701 
      ENT .TAPE 
      EXT EXEC
* 
* 
*     THIS ROUTINE IS USED TO INITIATE TAPE OPERATIONS
*         FOR FORTRAN COMPILED PROGRAMS 
*     WHEN .TAPE IS INVOKED, REGISTER A CONTAINS 030XYY.
*              X=4 --- REWIND 
*              X=2 --- BACKSPACE
*              X=1 --- ENDFILE
*              YY ---- LOGICAL UNIT NUMBER
* 
* 
.TAPE NOP 
      AND MASK      ISOLATE FUNCTION CODE AND UNIT #
      STA FUNCT     STORE IN FUNCTION CONTROL WORD
      JSB EXEC      TRANSFER TO EXEC WITH COMMAND 
      DEF *+3       RETURN ADDRESS
      DEF RCODE     ADDRESS OF REQUEST CODE 
      DEF FUNCT     ADDRESS OF FUNCTION CONTROL WORD
      JMP .TAPE,I 
* 
RCODE DEC 3         I/O CONTROL REQUEST CODE
FUNCT NOP           FUNCTION CONTROL WORD 
MASK  OCT 7777      MASK FOR FORMING CONTROL WORD 
      END 
* 
* 
                                                                                            