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

!
!		KSETUP.BAT
!
!THIS IS THE CONTROL FILE WHICH SETS TUP ALL THE DATA FOR THE KULTUS
!SECTIONS OF THE EXERCISER.  THE FILES NEEDED ARE,
!
!FILES NEEDED:
!
!	KUL05C.FOR
!		THE FORTRAN PROGRAM WHICH CREATES THE DATA SETS TO BE READ
!		BY THE OTHER FORTRAN KULTUS PROGRAMS.  THE DATA IS
!		CREATED ACCORDING TO THE PARAMETERS FOUND IN THE FILE
!		DATEN1.FOR,DATEN2.FOR WHICH IS COPIED AS FOR05.DAT.  THESE PARAMETERS
!		DETERMINE SUCH THINGS AS HOWMANY READS OF A CERTAIN TYPE 
!		WILL BE DONE BY WHICH PROGRAMS.  KUL05C.FOR SETS UP
!		THE PROPER NUMBER OF DATA SETS THEN ACCORDING TO THE 
!		PARAMETERS.
!
!	DATEN1.FOR,DATEN2.FOR
!		THE PARAMETER FILES WHICH ARE READ BY THE SETUP FORTRAN 
!		PROGRAM.  THE DESCRIPTION OF THE PARAMETERS IS T
!		TO BE FOUND IN THE COMMENT SECTION OF THE FORTRAN
!		PROGRAMS THEMSELVES.  IT'S IN GERMAN BUT IS FAIRLY EASY 
!		TO READ GIVEN:
!			ZAHL =NUMBER
!			GLEITKOMA=FLOATING POINT
!			FESTKOMMA = FIXED POINT
!			INTEGER = INTEGER
!
!	FORTRAN SOURCE FILES USED
!		KUL06B.FOR
!			USED FOR COMPILER TESTING HERE
!
!		SYNFOR.FOR
!			COMPILER TEST HERER
!		EINGSAB.FOR
!			INPUT SUBROITINE
!		ARITOP.FOR
!			ARITHMETIC OPERATIONS TEST SUBROUTINE
!		EFKT.FOR
!!		UPR1.FOR
!!		FILEOP.FOR
!!		AUSGAB.FOR
!			OUTPUT SUBROUTINE.
!
!
!DEVICES NEEDED:
!	ALL I/O IS DONE TO DSK ALTHOUGH THE PROGRAMS COULD BE RUN OTHERWISE
!	NOTE THERE ARE 23 FILES CREATED
!
!!BEGINNING OF KSETUP.BAT
!! THIS CONTROL FILE WILL COMPILE AND EXECUTE SEVERAL FORTRAN
!! PROGRAMS WHICH GENERATE DATA TO BE USED BY BATCH STREAMS KUL06.BAT
!! AND KUL07.BAT
!CREATE ERROR MESSAGE FILE, TO BE APPENDED LATER TO ERRORS.LOG




@COPY TTY: KSETUP.ERR
@
@

@CHKPNT BEGIN
BEGIN::
@INFORMATION (ABOUT) DISK-USAGE (OF DIRECTORY)
@DEFINE (LOGICAL NAME) DSK (AS) DSK:,<EXERCISER-LIBRARY>
@COPY (FROM) KUL05C.FOR (TO) FORDAT.FOR
@COPY (FROM) DATEN1.FOR (TO) FOR05.DAT
@IF (NOERROR) @GOTO A
@APPEND (SOURCE FILE) TTY: (TO) KSETUP.ERR
@+++++	KSETUP.CTL FATAL ERROR  +++++
@	CANNOT COPY NECESSARY FILES FOR SETTING UP THE KUL%%%.% PROGRAMS
@+++++	KSETUP.CTL FATAL ERROR [END]  +++++
@^Z
@GOTO END

A::
@CHKPNT AA
AA::
@DEFINE (LOGICAL NAME) 5 (AS) DSK:
@DEFINE (LOGICAL NAME) 6 (AS) DSK:
@DEFINE (LOGICAL NAME) 8 (AS) DSK:
@DEFINE (LOGICAL NAME) 9 (AS) DSK:
@DEFINE (LOGICAL NAME) 10 (AS) DSK:
@DEFINE (LOGICAL NAME) 11 (AS) DSK:
@DEFINE (LOGICAL NAME) 12 (AS) DSK:
@DEFINE (LOGICAL NAME) 13 (AS) DSK:
@DEFINE (LOGICAL NAME) 14 (AS) DSK:
@DEFINE (LOGICAL NAME) 15 (AS) DSK:
@DEFINE (LOGICAL NAME) 16 (AS) DSK:
@DEFINE (LOGICAL NAME) 17 (AS) DSK:
@DEFINE (LOGICAL NAME) 18 (AS) DSK:
@DEFINE (L