perm filename NOTES.ARM[1,VDS] blob sn#126649
filedate 1974-10-22 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00002 00002 CREATING FILES WHICH ARE ACCESSABLE BY THE ARM PROGRAMS
CREATING FILES WHICH ARE ACCESSABLE BY THE ARM PROGRAMS
given a program in SAIL-
STRING MOVE,PARK,OPEN, GOTO;
Assign values to variables in string
Alternative is to set up an array, this saves on assignment statements.
PRELOAD_WITH "PARK ","MOVE ","GOTO ";
OWN STRING ARRAY FUNCT[1:4]; funct is a one dim array 4 long
at run time FUNCT has PARK in it.
at the beginning ( or near there) put
DEFINE CRLF="('15&'12)"; this terminates a line when multiple statements are sent to disk
now we start building up our string.
TEST← TEST & CRLF & GOTO ;
aall it takes to output on the disk is
OPEN(1, "DSK",0,0,2,120,DUM, DUM); where DUM is defined earlier as INTEGER DUM;
this attaches the disk, channnel 1 , to my program.
to write out my string, type
RELEASE(1); closes out disk file
if we want to make the output filename a variable, so each time we write out a new file, we can say.
then make a loop to increment CNT
some other info.
defining macros, like TRANS