File AUS1.FT (FORTRAN source file)

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

	SUBROUTINE AUS1(ID,IR,IN)
C DATENWORT "IN" AN REGISTER "IR" (1...6) DES RMP
C RMP-REGISTER MIT SDS-RELAIS
C DATENWORT "IN" : 0...377 OKTAL (BIT 4...11)
C	ID = 0 : AN HILFSREGISTER
C	   = 1 : AN AUSGABEREGISTER
C FORTRAN II
S	CLA		/ BIT 11 MIT BIT 9 VERTAUSCHEN
S	TAD I \IR	/ UND NACH BIT 1 BIS 3 VERSCHIEBEN
S	AND (K0001
S	CLL RTL
S	DCA TEM
S	TAD I \IR
S	AND (K0004
S	CLL RTR
S	TAD TEM
S	DCA TEM
S	TAD I \IR
S	AND (K0002
S	TAD TEM
S	CLL RTL;CLL RTL;CLL RTL;CLL RTL
S	TAD I \IN	/ ADRESSE UND INHALT KOMBINIEREN
S	6671		/ AN HILFSREGISTER
S	JMS MS4
S	CLA
S	TAD I \ID
S	SNA CLA
S	JMP RCK
S	CLA
S	TAD (K3400
S	6671		/ AN AUSGABEREGISTER
S	JMS MS4
S	CLA
SRCK,	6671		/ AUSGABE BEENDEN
S	JMS MS4
	RETURN
SMS4,	0		/ 4 MS VERZOEGERUNG
S	TAD (K6000
S	DCA CT
SDEL,	ISZ CT		/ 3,8 MMS SCHLEIFE
S	JMP DEL
S	JMP I MS4
STEM,	0
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