Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!
!	THIS REQUIRE FILE CONTAINS THE ASCII PATTERNS AND
!  ASSOCIATE VALUES FOR THE PATTERN TESTING ROUTINE
!  IN RMCUTIL MODULE.   THERE ARE TWO TABLES.  
!  THE RMCOPTTAB TABLE CONTAINS THE SWITCH OPTIONS
!  OF RMCOPY PROGRAM.   THE RMCRUNTAB TABLE CONTAINS THE
!  ACTUAL RUN REQUEST PATTERN FOR PROGRAM ENTRANCE.




GLOBAL BIND
RMCRUNTAB=PLIT(
	UPLIT( 	RUN$SWITCH ,%ASCIZ'RUN'),
	UPLIT( 	START$SWITCH ,%ASCIZ'START'),
	UPLIT( 	RMCOPY$SWITCH ,%ASCIZ'RMCOPY'),
	UPLIT(  RMCOPY$SWITCH, %ASCIZ'FTS'));

GLOBAL BIND
!	THESE ASCII PATTERNS ARE USED FOR DAY TIME SWITCHES
RMCDAYTAB=PLIT(
	UPLIT( 	MON$SWITCH ,%ASCIZ'MONDAY'),
	UPLIT( 	TUE$SWITCH ,%ASCIZ'TUESDAY'),
	UPLIT( 	WED$SWITCH ,%ASCIZ'WEDNESDAY'),
	UPLIT( 	THU$SWITCH ,%ASCIZ'THURSDAY'),
	UPLIT( 	FRI$SWITCH ,%ASCIZ'FRIDAY'),
	UPLIT( 	SAT$SWITCH ,%ASCIZ'SATURDAY'),
	UPLIT( 	SUN$SWITCH ,%ASCIZ'SUNDAY'),
	UPLIT( 	TOD$SWITCH ,%ASCIZ'TODAY'),
	UPLIT( 	TOM$SWITCH ,%ASCIZ'TOMORROW'),
	UPLIT(  NOW$SWITCH ,%ASCIZ'NOW'));


GLOBAL BIND
!	THESE ASCII PATTERNS ARE USED FOR MONTH TIME SWITCHES
RMCTIMETAB=PLIT(
	UPLIT( 	JAN$SWITCH ,%ASCIZ'JANUARY'),
	UPLIT( 	FEB$SWITCH ,%ASCIZ'FEBUARY'),
	UPLIT( 	MAR$SWITCH ,%ASCIZ'MARCH'),
	UPLIT( 	APR$SWITCH ,%ASCIZ'APRIL'),
	UPLIT( 	MAY$SWITCH ,%ASCIZ'MAY'),
	UPLIT( 	JUN$SWITCH ,%ASCIZ'JUNE'),
	UPLIT( 	JUL$SWITCH ,%ASCIZ'JULY'),
	UPLIT( 	AUG$SWITCH ,%ASCIZ'AUGUST'),
	UPLIT( 	SEP$SWITCH ,%ASCIZ'SEPTEMBER'),
	UPLIT( 	OCT$SWITCH ,%ASCIZ'OCTOBER'),
	UPLIT( 	NOV$SWITCH ,%ASCIZ'NOVEMBER'),
	UPLIT( 	DEC$SWITCH ,%ASCIZ'DECEMBER'));

GLOBAL BIND
!	This table is for protection switches
!	NOTE: change and modify are the same
RMCPROTAB=PLIT(
	UPLIT( 	READ$SWITCH ,%ASCIZ'READ'),
	UPLIT( 	WRITE$SWITCH ,%ASCIZ'WRITE'),
	UPLIT( 	EXECUTE$SWITCH ,%ASCIZ'EXECUTE'),
	UPLIT( 	DELETE$SWITCH ,%ASCIZ'DELETE'),
	UPLIT( 	APPEND$SWITCH ,%ASCIZ'APPEND'),
	UPLIT( 	LIST$SWITCH ,%ASCIZ'LIST'),
	UPLIT( 	UPDATE$SWITCH ,%ASCIZ'UPDATE'),
	UPLIT( 	CHANGE$SWITCH ,%ASCIZ'CHANGE'),
	UPLIT( 	CHANGE$SWITCH ,%ASCIZ'MODIFY'),
	UPLIT( 	EXTEND$SWITCH ,%ASCIZ'EXTEND'));



GLOBAL BIND
RMCOPTTAB=PLIT(
	UPLIT( 	IMAGE$SWITCH ,%ASCIZ'IMAGE'),
	UPLIT( 	SELF$SWITCH ,%ASCIZ'SELF'),
	UPLIT( 	PACKED$SWITCH ,%ASCIZ'PACKED'),
	UPLIT( 	SEQ$SWITCH ,%ASCIZ'SEQUENCE'),
	UPLIT( 	LOG$SWITCH ,%ASCIZ'LOG'),
	UPLIT( 	NOLOG$SWITCH ,%ASCIZ'NOLOG'),
!NOT IMPLEMENTED	UPLIT( 	WAIT$SWITCH ,%ASCIZ'WAIT'),
	UPLIT( 	PRIOR$SWITCH ,%ASCIZ'PRIORITY'),
	UPLIT(	OPR$SWITCH ,%ASCIZ'OPERATOR'),
	UPLIT(	OPR$SWITCH ,%ASCIZ'OPR'),
	UPLIT(	MORE$SWITCH ,%ASCIZ'MORE'),
	UPLIT( 	DIRECT$SWITCH ,%ASCIZ'DIRECT'),
	UPLIT(	REN$SWITCH ,%ASCIZ'RENAME'),
	UPLIT(	APPEND$SWITCH ,%ASCIZ'APPEND'),
!NOT IMPLEMENTED	UPLIT(	SUPER$SWITCH ,%ASCIZ'SUPERCEDE'),
	UPLIT(	CONTIG$SWITCH ,%ASCIZ'CONTIGOUS'),
	UPLIT(	ASCII$SWITCH ,%ASCIZ'ASCII'),
	UPLIT(	BLOCK$SWITCH ,%ASCIZ'BLOCK'),
	UPLIT(	ACCT$SWITCH ,%ASCIZ'ACCOUNT'),
	UPLIT(	DELETE$SWITCH ,%ASCIZ'DELETE'),
	UPLIT( 	BIN16$SWITCH ,%ASCIZ'16BIN'),
	UPLIT(	SIXBIT$SWITCH ,%ASCIZ'SIXBIT'),
	UPLIT(	BIN36$SWITCH ,%ASCIZ'36BIN'),
	UPLIT( 	AFTER$SWITCH ,%ASCIZ'AFTER'),
	UPLIT(	RTS$SWITCH ,%ASCIZ'RTS'),
	UPLIT(	ENCRYPT$SWITCH ,%ASCIZ'ENCRYPT'),
	UPLIT(	SYSTEM$SWITCH ,%ASCIZ'SYSTEM'),
	UPLIT(	OWNER$SWITCH ,%ASCIZ'OWNER'),
	UPLIT(	GROUP$SWITCH ,%ASCIZ'GROUP'),
	UPLIT(	WORLD$SWITCH ,%ASCIZ'WORLD'),
	UPLIT(	PROTECT$SWITCH ,%ASCIZ'PROTECT'),
	UPLIT(	CHKSUM$SWITCH ,%ASCIZ'CHKSUM'),
	UPLIT(	LIST$SWITCH ,%ASCIZ'LIST'),
	UPLIT(	LIMIT$SWITCH ,%ASCIZ'LIMIT'),
	UPLIT(	KILL$SWITCH ,%ASCIZ'KILL'));