APPENDIX B


 JCL U'SCD TO CREATE LCRAND AT THE UNIVERSITY OF FLORIDA


// EXEC .AS[I.HC,LOAD=LOI D 1
//ASM. SYSLIN DD DSIIN=&&/SI ,DDISP=( ,PASS) ,UiIT=SYSDA, 2
// DCB=(RECFM=FB, LECL=80,BLKoSI ZE=3200,DSORG=PS),
// SPACE=(6391,(76,38),,Fr,,OUIJD)
//AS-.SYSIN D 3
 [Place Assembly language portion here]
// EXEC FORTHCLE 4
//FORT.SYSIN DD DSi.=DOO11271.3.EQ.1.LCRAiD,DISF=OLD 5
//LKED.SYSLIN DD DSi.H=&&Lli ,DISP=(OLD,DELETE) 6
// DD DSIN=&6AS3M,DISP=(OLD,DELETE) .
// DD DDiIAIIE=SYSIIJ 8
// DD 9
ENTRY TRICK
NAME LCRAND
//LKED.SYSLMOD DD DSN=D001i271.SEQl. LOAD(LCRANJD), 10
// DISP=GLD
/*


 JCL card 1 calls up a level H assembler, which does the assembly
but does not execute it. The output from this assembly is put on the
data set specified by card 2. You may have an assembly procedure which
has this in it. Card 3 is the card which introduces the card deck
containing the assembly program. Card 4 is a call to FORTRAN compile,
link edit, and execute procedure. Card 5 is the data set for the
FORTRAN code for the LCRAND. This will be different in your case if
you are reading from tape. Adjust it accordingly. Card 6 is the
temporary storage place for the output of the compile step. Card 7
is the assembly part passed from the first step. Card 8 is just in
case additional input to the linkage editor is desired from a SYSIN file.