/ / / FIRST PRINTING, FEBRUARY 1974 / / THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO / CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED / AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. / DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON- / SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS / DOCUMENT. / / THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR- / NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON / A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH / INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR / USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO- / VIDED IN WRITING BY DIGITAL. / / DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY / FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP- / MENT THAT IS NOT SUPPLIED BY DIGITAL. / / COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION / / .EJECT / / EDIT # 2 / / FSPEOT -- FORTRAN CALLABLE ROUTINE TO SPACE / MAGTAPE TO END OF TAPE / / CALLING SEQUENCE -- CALL FSPEOT (LUN,IEV) / / LUN=LOGICAL UNIT NUMBER / IEV= EVENT VARIABLE / .GLOBL FSPEOT,.DA FSPEOT 0 JMS* .DA JMP IEV+1 LUN 0 /LOGICAL UNIT NUMBER IEV 0 /EVENT VARIABLE LAC IEV /PICK UP THE EVENT VARIABLE ADDRESS DZM IEV /MAKE IT OPTIONAL DAC EV LAC* LUN /PICK UP THELUN DAC ILUN CAL SPEOT JMP* FSPEOT /RETURN / SPEOT 4700 EV 0 ILUN 0 .END