home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskermit / msvrmx.p86 < prev    next >
Text File  |  2020-01-01  |  1KB  |  60 lines
  1. WC:
  2.  
  3. /* The following will make the WC command.
  4. ; for RMX86
  5. plm86 wc.p86 cp ram ot(3)
  6. link86  wc.obj, &
  7.     /rmx86/lib/compac.lib, &
  8.     /rmx86/lib/hpifc.lib, &
  9.     /rmx86/lib/rpifc.lib &
  10.     segsize(stack(+1000)) &
  11.     mempool(+0,0ff000h) &
  12.     bind pu fl
  13. ; for RMX286 Release 1
  14. plm286 wc.p86 cp ram ot(3) set(rmx286)
  15. bnd286 wc.obj, &
  16.     /rmx286/lib/upifc.lib, /rmx286/lib/udi.gat, &
  17.     /rmx286/lib/hpifc.lib, /rmx286/lib/hi.gat, &
  18.     /rmx286/lib/nucifc.lib, /rmx286/lib/nuc.gat &
  19.     segsize(stack(+1000)) &
  20.     rc(dm(1000h,0ff000h)) nodb
  21. ; for RMX286 Release 2ff
  22. plm286 wc.p86 cp ram ot(3) set(rmx286)
  23. bnd286 wc.obj, &
  24.     /rmx286/lib/udiifc.lib, &
  25.     /rmx286/lib/rmxifc.lib &
  26.     segsize(stack(+1000)) &
  27.     rc(dm(1000h,0ff000h)) nodb
  28. */
  29.  
  30. DO;
  31.  
  32. DECLARE TOKEN LITERALLY 'SELECTOR';
  33.  
  34. $IF NOT RMX286
  35. $INCLUDE(/rmx86/inc/hgtipn.ext)
  36. $INCLUDE(/rmx86/inc/hsncor.ext)
  37. $INCLUDE(/rmx86/inc/uexit.ext)
  38. $ELSE
  39. $INCLUDE(/rmx286/inc/hi.ext)
  40. $INCLUDE(/rmx286/inc/udi.ext)
  41. $ENDIF
  42.  
  43.  
  44. DECLARE cr LITERALLY '0dh', lf LITERALLY '0ah';
  45.  
  46. DECLARE fname(81) BYTE INITIAL (3), status WORD;
  47.  
  48. DO WHILE (fname(0) > 2);
  49.     CALL rq$c$get$input$pathname(@fname, SIZE(fname) - 1, @status);
  50.     fname(fname(0) + 1) = cr;
  51.     fname(fname(0) + 2) = lf;
  52.     fname(0) = fname(0) + 2;
  53.     IF (fname(0) > 2) THEN
  54.         CALL rq$c$send$co$response(@fname, 0, @fname, @status);
  55.     END;    /* DO WHILE */
  56.  
  57. CALL dq$exit(0);
  58.  
  59. END WC;
  60.