File BILD.FT (FORTRAN source file)

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

	SUBROUTINE BILD(EG,EF)
C PUNKTWEISE DARSTELLEN EINES BILDES VOM BILDSPEICHER
C EG = EINGABE-GERAET
C EF = EINGABE-DATEI
C FORTRAN II / OPTION (IH)
C SR : FDIS.FT
	CALL IOPEN(EG,EF)
	READ(4,1100)IXA,IXE,IYA,IYE
1100	FORMAT(A2)
	IXE=IXE-1
	IXA=3*IXA
	IXE=3*IXE
	IYA=2*IYA
	IYE=2*IYE
	IX=IXA
	IY=IYA
1000	READ(4,1100)N1
	N2=0
1001	N3=0
S	CLA CLL
S	TAD \N1
S	RAL
S	DCA \N1
S	RAL
S	DCA \N3
	IF(N3)1003,1003,1002
1002	CALL FDIS(-1,IY,IX)
1003	IX=IX+3
	IF(IXE-IX)1004,1005,1005
1004	IX=IXA
	IY=IY+2
1005	IF(IYE-IY+1)1007,1006,1006
1006	N2=N2+1
	IF(12-N2)1000,1000,1001
1007	RETURN
	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