Upload

Digital Research

ASSEMBLY & COMPILE TOOLS/PLM VAX COMPILER/plmudi/seek.plm

@@ -0,0 +1,40 @@
+$TITLE ('DQ$SEEK to XQ_SEEK Interface Routine.')
+$LARGE
+/*************************************************************************/
+/*                                                                       */
+/*               D I S C L A I M E R   N O T I C E                       */
+/*               -------------------   -----------                       */
+/*                                                                       */
+/*  This document and/or portions of the material and data furnished     */
+/*  herewith, was developed under sponsorship of the U. S. Government.   */
+/*  Neither the U.S. nor the U.S.D.O.E., nor the Leland Stanford Junior  */
+/*  University, nor their employees, nor their respective contractors,   */
+/*  subcontractors, or their employees, makes any warranty, express or   */
+/*  implied, or assumes any liability or responsibility for accuracy,    */
+/*  completeness or usefulness of any information, apparatus, product    */
+/*  or process disclosed, or represents that its use will not infringe   */
+/*  privately-owned rights.  Mention of any product, its manufacturer,   */
+/*  or suppliers shall not, nor is it intended to, imply approval, dis-  */
+/*  approval, or fitness for any particular use.  The U. S. and the      */
+/*  University at all times retain the right to use and disseminate same */
+/*  for any purpose whatsoever.  Such distribution shall be made by the  */
+/*  National Energy Software Center at the Argonne National Laboratory   */
+/*  and only subject to the distributee furnishing satisfactory proof    */
+/*  that he has a valid license from the Intel Corporation in effect.    */
+/*                                                                       */
+/*************************************************************************/
+ 
+DQ_SEEK: do;
+ 
+XQ_SEEK: procedure (conn$p,mode$p,high$offset$p,low$offset$p,excep$p)
+							external;
+	declare (conn$p,mode$p,high$offset$p,low$offset$p,excep$p) pointer;
+	end;
+ 
+DQ$SEEK: procedure (conn,mode,high$offset,low$offset,excep$p) public;
+        declare conn word, mode byte, (low$offset,high$offset) word,
+                excep$p pointer;
+        call XQ_SEEK(@conn,@mode,@high$offset,@low$offset,excep$p);
+	end;
+ 
+end DQ_SEEK;