Sure it isnot the way, but other than that all above 128 is causing error in compliation.
That is JCL for making OBJECT DS whichnext used in Fortan for linking
MSZR01U.SPICE.OBJ - File with object, it is actualiy the same as MSZR01U.SPICE.LIB
Program is supposed to be member called SPICE - MSZR01U.SPICE.LOAD(SPICE)
I am first compiling assembler , in next task FORTRAN
//MSZR01U JOB (AS),'SPICE2 ASM',
// CLASS=H,MSGCLASS=H,RESTART=ASMF
//*--------------------------------------------------------------------
//ASMF EXEC PGM=IFOX00,REGION=2048K
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
// DD DSN=SYS2.MACLIB,DISP=SHR
//SYSUT1 DD DISP=(NEW,DELETE),SPACE=(1700,(900,100)),UNIT=SYSDA
//SYSUT2 DD DISP=(NEW,DELETE),SPACE=(1700,(600,100)),UNIT=SYSDA
//SYSUT3 DD DISP=(NEW,DELETE),SPACE=(1700,(600,100)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DSN=MSZR01U.SPICE.OBJ,
// UNIT=SYSDA,SPACE=(CYL,1),DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSIN DD *
ADDGEN CSECT
* CREATE THE SECOND HALFWORD OF AN RX TYPE INSTRUCTION.
...
END
/*
//LKED1B EXEC PGM=IEWL,
// PARM='XREF,LIST,LET,TEST,AC=0',
// REGION=1024K
//SYSLMOD DD DSN=MSZR01U.SPICE.LIB,
// UNIT=SYSDA,SPACE=(CYL,1),DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSUT1 DD UNIT=WORK,SPACE=(CYL,(8,1))
//SYSPRINT DD SYSOUT=*
//
This is JCL for FORTAN
//MSZR01U JOB (FORTRAN),'SPICE',REGION=7000K,TIME=1440,
// CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=MSZR01U
//FORT EXEC PGM=IEYFORT
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
//SYSLIB DD DSNAME=SYS1.FORTLIB,DISP=SHR
//SYSLIN DD DSNAME=&LOADSET,DISP=(NEW,PASS),UNIT=SYSSQ,
// SPACE=(80,(900,900),RLSE),DCB=BLKSIZE=80
//SYSLIN DD DSNAME=MSZR01U.SPICE.OBJ,DISP=SHR,
// UNIT=3350,VOLUME=SER=PUB010
//FORT.SYSIN DD *
C SPICE VERSION 2G.6 SCCSID=root.ma 3/15/83
...
/*
//LKED EXEC PGM=IEWL,REGION=8000K,
// PARM=(XREF,LET,LIST),COND=(4,LT,FORT)
//SYSLIB DD DSNAME=SYS1.FORTLIB,DISP=SHR
//LKED.SYSLMOD DD DSNAME=MSZR01U.SPICE.LOAD(SPICE),
// DISP=(MOD,PASS),
// SPACE=(1024,(900,900,1),RLSE),DCB=BLKSIZE=1024,
// UNIT=3380,VOLUME=SER=PUB012
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(900,90),RLSE),
// DCB=BLKSIZE=1024,DSNAME=&SYSUT1,SEP=SYSLMOD
//SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,PASS)
// DD DSNAME=MSZR01U.SPICE.OBJ,DISP=(OLD,KEEP)
// DD DDNAME=SYSIN
//GO EXEC PGM=SPICE
//STEPLIB DD DSN=MSZR01U.SPICE.LOAD,DISP=SHR
//GO.FT06F001 DD SYSOUT=*
//GO.FT07F001 DD SYSOUT=B
//GO.FT05F001 DD DDNAME=SYSIN
//GO.SYSIN DD *
/*
...
//
Assembler code
...
FREEMAIN V,A=WHERE1
S R10,128 That was orinaly =F'32768' , everything above 128 is reported as error
BNP NOSPACE
ST R10,SIZE+4 P
...
I think I should declare something , like relative address or something to avoid error , or long rgister (?)
I think originaly Berkeley distroibuted installation notes and tape, but now only this file with code only left.
I attached spool file with that JCL codes.