#include ssdef

#define  byteinteger * (char *)
long fileptr;
extern long comreg[64];
extern char objectfile[39];

opensq(chan)
   {
   char file[80];
   fileptr=fopen(&objectfile,"w","ctx=rec","rfm=var","mrs=512");
/*     printf("Opened ptr = %x, \n", fileptr);*/
   }

writesq(chan, startdr0, startdr1, enddr0, enddr1)
   int chan, startdr0, startdr1, enddr0, enddr1;
   {
   int n,nw,topad;
   int buffer[128];
   char * ptr1, * ptr2;
   ptr1= (char *) startdr1;
   ptr2= &buffer;
   topad=enddr1 + (enddr0>>16);
   while (ptr1<= (char *) topad) 
      {
      *ptr2 = *ptr1; ptr1++; ptr2++;
      }
   while (ptr2 <= &buffer[127]+3) 
      {
      *ptr2 = 0; ptr2++;
      }
   n=topad-startdr1;
   nw=fwrite(&buffer,n,1,fileptr);
   }

closesq(chan)
   int chan;
     {
/*      printf("Close sq called");*/
   }

COREDUM()
   {
   printf("Coredump called (dummy supplied)\n");
   SYS$EXIT(SS$_NORMAL);
   }

FDIAG()
   {
   printf("FDiag called (dummy supplied)\n");
   SYS$EXIT(SS$_NORMAL);
   }