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 * *