Google
 

Trailing-Edge - PDP-10 Archives - AP-D471B-SB_1978 - uuomod.bli
There are no other files named uuomod.bli in the archive.
!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
! THIS MODULE CONTAINS THE DUMMY GLOBAL ROUTINES FOR
! THE UNIMPLEMENTED COMMANDS.
! LAST MODIFIED ON 1 AUG 74 BY JG.

MODULE UUOMOD (MLIST,FSAVE,TIMER=EXTERNAL(SIX12)) =
BEGIN
	REQUIRE ENTRY.BLI;
	MACRO UUO (COMMAND,PSTRING) =

	GLOBAL ROUTINE COMMAND =
	BEGIN
		TTYOTS(0,PLIT ASCIZ PSTRING);
		ERTEXT(2);
		IF SEMI() THEN ERTEXT(4)
	END$;


	UUO(SEQNCE,'SEQUENCE');
	UUO(DATES,'DATES');
	UUO(TIMES,'TIMES');
	UUO(SORCES,'SOURCES');
	UUO(DESTIN,'DESTINATIONS');
	UUO(CODES,'CODES');
	UUO(CLASES,'CLASSES');
	UUO(MPPS,'MPPS');
	UUO(SORT,'SORT');
	UUO(TALLY,'TALLY');

END;