home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
mskermit
/
msvrmx.p86
< prev
next >
Wrap
Text File
|
2018-01-01
|
1KB
|
60 lines
WC:
/* The following will make the WC command.
; for RMX86
plm86 wc.p86 cp ram ot(3)
link86 wc.obj, &
/rmx86/lib/compac.lib, &
/rmx86/lib/hpifc.lib, &
/rmx86/lib/rpifc.lib &
segsize(stack(+1000)) &
mempool(+0,0ff000h) &
bind pu fl
; for RMX286 Release 1
plm286 wc.p86 cp ram ot(3) set(rmx286)
bnd286 wc.obj, &
/rmx286/lib/upifc.lib, /rmx286/lib/udi.gat, &
/rmx286/lib/hpifc.lib, /rmx286/lib/hi.gat, &
/rmx286/lib/nucifc.lib, /rmx286/lib/nuc.gat &
segsize(stack(+1000)) &
rc(dm(1000h,0ff000h)) nodb
; for RMX286 Release 2ff
plm286 wc.p86 cp ram ot(3) set(rmx286)
bnd286 wc.obj, &
/rmx286/lib/udiifc.lib, &
/rmx286/lib/rmxifc.lib &
segsize(stack(+1000)) &
rc(dm(1000h,0ff000h)) nodb
*/
DO;
DECLARE TOKEN LITERALLY 'SELECTOR';
$IF NOT RMX286
$INCLUDE(/rmx86/inc/hgtipn.ext)
$INCLUDE(/rmx86/inc/hsncor.ext)
$INCLUDE(/rmx86/inc/uexit.ext)
$ELSE
$INCLUDE(/rmx286/inc/hi.ext)
$INCLUDE(/rmx286/inc/udi.ext)
$ENDIF
DECLARE cr LITERALLY '0dh', lf LITERALLY '0ah';
DECLARE fname(81) BYTE INITIAL (3), status WORD;
DO WHILE (fname(0) > 2);
CALL rq$c$get$input$pathname(@fname, SIZE(fname) - 1, @status);
fname(fname(0) + 1) = cr;
fname(fname(0) + 2) = lf;
fname(0) = fname(0) + 2;
IF (fname(0) > 2) THEN
CALL rq$c$send$co$response(@fname, 0, @fname, @status);
END; /* DO WHILE */
CALL dq$exit(0);
END WC;