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