Directory of image this file is from
This file as a plain text file

C	C C L C O M . E X
C
C	EXECUTE CCL-COMMANDS FROM A FORTRAN II OR SABR PROGRAM
C
C	THE FOLLOWING IS NOT A PROGRAM,BUT JUST AN EXAMPLE TO SHOW
C	HOW CCL CAN BE CALLED FROM A FORTRAN II OR SABR PROGRAM
C	TO EXECUTE ANY LEGAL CCL-COMMAND.
C	IN THIS EXAMPLE,CCL IS CALLED TO EXECUTE THE COMMAND
C
C	.SU SYS:RX1/H
C
C	THAT IS,IN FACT A NUMBER OF COMMAND STRINGS CONTAINED IN THE
C	FILE SYS:RX1.BI IS TO BE EXECUTED.
C	OF COURSE,ANY OTHER CCL-COMMAND CAN BE USED INSTEAD.
C	THE ONLY THINGS THAT HAVE TO BE MODIFIED ARE THE COUNTER
C	(-14 IS THE **OCTAL** LENGTH OF THE STRING SU SYS:RX1/H)
C	AND THE STRING ITSELF.
C
C	WHAT HAPPENS IS THIS :
C	THE COMMAND TO BE EXECUTED IS MOVED INTO THE OUTPUT FILE TABLE
C	WHICH STARTS AT 7600 IN FIELD 1.AFTER THIS IS DONE,CCL IS
C	CHAINED TO,FINDS THE COMMAND STRING,AND EXECUTES IT.
C
C	H.P.STOEHREL
C	3-FEB-79
C
C
S	DUMMY CLIST		/MUST BE FIRST STATEMENT IN PROGRAM !!
C
C	ANY FORTRAN OR SABR CODE MAY BE HERE
C
SGO,	TAD (-14
S	DCA CNTR
S	TAD LISTA
S	DCA LISTP
S	TAD LISTO
S	DCA CLIST#
SNXT,	TAD I LISTP
S	DCA I CLIST
S	ISZ CLIST#
S	ISZ LISTP
S	ISZ CNTR
S	JMP NXT
	CALL CHAIN('CCL')
C
S	CPAGE 24
SCLIST,	6211;0		/OUTPUT FILE TABLE LIVES IN FIELD 1 
SCNTR,	0
SLISTP,	0
SLISTO,	7600
SLISTA,	LIST
SLIST,"S;"U;" ;"S;"Y;"S;":;"R;"X;"1;"/;"H
SFLIST,	6211
S	7600
C
C----------------------------------------------------------------------------------
C