File EIN.FT (FORTRAN source file)

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

	SUBROUTINE EIN(IDA,NBYTE,I6)
C DATEN-BYTE VOM RMP
C RMP-REGISTER MIT SN7475
C	 I6 = AKTUELLER INHALT VON REGISTER 6
C     NBYTE = NUMMER DES DATEN-BYTE (0...7)
C	IDA = DATEN-BYTE
C FORTRAN II
C SR : AUS.FT
S	CLA
S	TAD I \I6
S	AND (K7770	/ ADRESSTEIL BIT 9...11
S	TAD I \NBYTE	/ ADRESSE EINFUEGEN
S	DCA I \I6
	CALL AUS(1,6,I6)
S	CLA
S	6632		/ DATEN-BYTE UEBERNEHMEN
S	AND (K0377	/ NUR BIT 4...11
S	DCA I \IDA
	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