-#endif UNIX
-#ifdef VMS
- /*
- * rrh did not check this code when the new floating point
- * numbers were put into the assembler, as he didn't
- * have access to a vms system.
- */
- nints = ty_nbyte[toconv] / 4;
- for (i = 0; i < nints; i++){
- puchar(vms_obj_ptr,-4);
- pulong(vms_obj_ptr, bp[i]);
- }
- if((vms_obj_ptr-sobuf) > 400) {
- write(objfil,sobuf,vms_obj_ptr-sobuf);
- vms_obj_ptr = sobuf + 1;
- }
- return;
-#endif VMS