File BULI.FT (FORTRAN source file)

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

	DIMENSION IQ(2,72)
	CALL IOPEN('P1','BULI')
	DO 5 I=1,72
	READ(4,100)IQ(1,I)
	READ(4,100)IQ(2,I)
100	FORMAT(I5)
	IQ(1,I)=-IQ(1,I)
5	CONTINUE
	DO 10 I=1,72
	IF(IQ(2,I))6,7,7
6	ID=IQ(1,I)
	IT=IQ(2,I)
S	JMS HRZ
	J1=1
S	JMP \8
7	IT=-2047
	J1=100
8	DO 9 J=1,J1
S	JMS DEL
9	CONTINUE
10	CONTINUE
	CALL EXIT
SHRZ,	CLA
S	TAD \ID
S	DCA CD
SHRZ1,	TAD C1
S	6671
S	JMS DEL
S	CLA
S	TAD C0
S	6671
S	JMS DEL
S	ISZ CD
S	JMP HRZ1
S	JMP I HRZ
SCD,	0
SC0,	0
SC1,	1
SDEL,	CLA
S	TAD \IT
S	DCA CT
SDEL1,	ISZ CT
S	JMP DEL1
S	JMP I DEL
SCT,	0
	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