File KUWA0.FT (FORTRAN source file)

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


C						SEITE 1
C	KUWA0
C
C	KURSWAHL - UEBERTRAGEN DER BASISDATEIEN
C	VON EINEM HALBJAHR ZUM NAECHSTEN
C
        COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        DIMENSION NAME(11,148),I1(6,148),L(149),I3(4,148)
        ISPAC=-2016
C	EINLESEN DER NEUEN DATEN
130     FORMAT(A1)
170	WRITE(1,140)ISPAC,
140	FORMAT(/'NEUE KLASSENSTUFE:',A1)
	READ (1,275)IFORM
	WRITE (1,150)ISPAC,
150	FORMAT('NEUES HALBJAHR:   ',A1)
	READ (1,130)IHALB
C	BERECHNUNG DER ALTEN UND NEUEN DATEIADRESSEN
	IF(IFORM+910) 100,110,120
120	ISTA=4
	GOTO 160
110	ISTA=2
	GOTO 160
100	ISTA=0
160	IF(IHALB+928) 170,180,190
190	ISTA=ISTA+1
180	ISTA=200*(ISTA-1)
	ISTL=26+ISTA
	ISTM=38+ISTA
	ISTF=61+ISTA
	IF(ISTA+200)210,210,200
210	ISTL=ISTL+200
	ISTM=ISTM+200
	ISTF=ISTF+200
	ISTA=ISTA+200
	GOTO 250
275	FORMAT(A2)
C	UEBERTRAGEN DER GRUNDDATEIEN
200	CALL RTAPE(1,-ISTL,149,L)
	CALL RTAPE(1,-ISTM,1628,NAME)
	CALL RTAPE(1,-ISTF,888,I1)
	ISTA=ISTA+200
	ISTL=ISTL+200
	ISTM=ISTM+200
	ISTF=ISTF+200
	IFOHI=IFORM+922
	IHAHI=(IHALB+992)/64
	DO 220 K1=1,148
	I1(4,K1)=IFOHI
220	I1(5,K1)=IHAHI
	CALL WTAPE(1,-ISTL,149,L)
	CALL WTAPE(1,-ISTM,1628,NAME)
	CALL WTAPE(1,-ISTF,888,I1)
C
C						SEITE 2
C
C	FAKULTATIVE UEBERTRAGUNG DER WAHLDATEIEN
	WRITE(1,300)ISPAC,
300	FORMAT('SOLLEN DIE WAHLDATEN AUCH UEBERTRAGEN WERDEN ?',A2)
	READ(1,275)IFRAGE
	IF(IFRAGE-672)250,310,250
310	ISTG=78+(ISTA-200)
	ISTS=160+(ISTA-200)
	CALL RTAPE(1,ISTG,1628,NAME)
	CALL RTAPE(1,-ISTS,592,I3)
	ISTG=ISTG+200
	ISTS=ISTS+200
	CALL WTAPE(1,-ISTG,1628,NAME)
	CALL WTAPE(1,-ISTS,592,I3)
250	CALL CHAIN('KUWA0A')
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search