SUBROUTINE OUT(IB,ID)
C BEFEHL AN RMP
C	ID : 0	BEFEHL AN RMP-HILFS-REGISTER
C	   : 1	BEFEHL AN RMP-AUSGABE-REGISTER
C
C BEFEHLSWORT IB :
C	2(0) : NICHT BENUTZT
C	2(1) : ADRESSE A
C	2(2) : ADRESSE B
C	2(3) : ADRESSE C
C
C REGISTER-ADRESSEN :   A  B  C
C			-------
C	REGISTER # 1    1  0  0
C		 # 2    0  1  0
C		 # 3    1  1  0
C		 # 4    0  0  1
C		 # 5    1  0  1
C		 # 6    0  1  1
C
C ADRESSIERUNG VON      1  1  1  BEWIRKT UEBERGABE HILFS-REGISTER
C IN AUSGABE-REGISTER
C
C ADRESSIERUNG VON      0  0  0  BEENDET ADRESSIERUNG DER
C ADRESSEN 1 BIS 7
C
C REGISTER-INHALTE : 2(4),2(5),2(6),2(7),2(8),2(9),2(10),2(11)
C
C MIT 2(11),2(10),2(9) VON REGISTER 6 WERDEN DIE 8 DATEN-EINGAENGE
C (ZU JE 8 BIT) ADRESSIERT
C
C FORTRAN II
C
S	CLA
S	TAD I \IB
S	6671
S	JMS MS4
	IF(ID)1001,1001,1000
1000	CONTINUE
S	CLA
S	TAD (K3400
S	6671
S	JMS MS4
1001	CONTINUE
S	CLA
S	6671
S	JMS MS4
	RETURN
SMS4,	CLA		/4 MS VERZOEGERUNG
S	TAD (K6000
S	DCA CT
SDEL,	ISZ CT		/3,8 MMS SCHLEIFE
S	JMP DEL
S	JMP I MS4
SCT,	0
	END