ASMB,R,Q,C
*     NAME:   .TAPE 
*     SOURCE: 92070-18233 
*     RELOC:  92070-1X233 
*     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 .TAPE,7  92070-1X233  REV.1941  790309
      ENT .TAPE 
      EXT REIO
* 
* 
*     THIS ROUTINE IS USED TO INITIATE CONTROL OPERATIONS.
*     CALLING SEQUENCE: 
*       LDA CONWD 
*       JSB .TAPE 
* 
*     CONWD HAS THE FORMAT 00XXYY (OCTAL) 
*       WHERE YY IS THE LU NUMBER AND XX IS THE EXEC (3) CONTROL SUBFUNCTION. 
*     FOR EXAMPLE:   XX=04 --- REWIND 
*                    XX=02 --- BACKSPACE  
*                    XX=01 --- ENDFILE  
* 
.TAPE NOP 
      AND MASK      ISOLATE FUNCTION CODE AND UNIT #
      STA FUNCT     STORE IN FUNCTION CONTROL WORD
      JSB REIO      TRANSFER TO REIO 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 
                              