C PROGRAMM TIPSCH VON RMP
C TIP-RELAIS (BISTABIL) : ZAEHLUNG VON SCHAUERENTLADUNGEN
C BEFEHLE PDP/8-->RMP :
C   REGISTER/BIT 1/11 : 5326 B  START/STOP    (0 START,1 STOP)
C		 1/10 :    "	SLOPE A       (1 +,0 -)
C		 1/9  :	   "	MULTIPLIER 1  (0)
C		 1/8  :	   "	RESET         (0)
C		 1/7  :    "    REMOTE MODE   (0)
C		 4/11 : TIP-RELAIS 	      (1 ANZUG,0 ABWURF)
C		 4/10 : LED 		      (1 EIN,0 AUS)
C DATEN RMP-->PDP/8 :
C   BYTE/BIT     0/11...0/8 : 5326 B  COL1
C		 0/7....0/4 :	"     COL2
C		 1/11...1/8 :   "     COL3
C		 1/7....1/4 :   "     COL4
C		 4/11       : SCHALTER EIN-AUS
C		 4/10       : TASTE RELAIS-WECHSEL
C ANFANGSSTELLUNG    DUAL		DEZIMAL
C	REGISTER 1 : 000 011 100 011    227
C		 2 : 000 011 111 111    255
C		 3 : 000 011 111 111    255
C		 4 : 000 000 000 000    000
C		 5 : 000 000 000 000    000
C		 6 : 000 000 000 100    004
C FORTRAN II / OPTION (OH)
C SR : AUS.FT / INIT.FT / EIN.FT / TCD4.FT / IBIT.SB
C      RMPBIT.FT / BELL.FT
C CH : RMP.SV
	WRITE(1,100)
100	FORMAT('TIP-KONTAKT : SCHAUERENTLADUNGEN ZAEHLEN')
1	WRITE(1,101)
101	FORMAT(40('-'))
2	READ(1,102)IR,IW
102	FORMAT('   WIEVIEL RELAIS ? : 'I3/'WIEVIEL
	1 MESSUNGEN ? : 'I4)
	READ(1,103)AG,AF,
103	FORMAT('         AUSGABE-GERAET UND DATEI : 'A2'/'A6)
	WRITE(1,104)LEER
104	FORMAT(I0)
	READ(1,105)LIST
105	FORMAT('MESSWERTE DRUCKEN ? (JA=1,NEIN=0) : 'I1)
C REGISTER IN ANFANGSSTELLUNG SETZEN
3	IA1=227
	IA2=255
	IA3=255
	IA4=000
	IA5=000
	IA6=004
	I1=IA1
	I2=IA2
	I3=IA3
	I4=IA4
	I5=IA5
	I6=IA6
	CALL INIT(IA1,IA2,IA3,IA4,IA5,IA6)
C EIN-AUS-SCHALTER EIN ?
4	ID=RMPBIT(4,11,I6)
	IF(ID)4,4,5
C NACH CA 1S TEST WIEDERHOLEN
5	DO 6 I=1,50
S	JMS MS16
6	CONTINUE
	CALL INIT(IA1,IA2,IA3,IA4,I@A5,IA6)
	ID=RMPBIT(4,11,I6)
	IF(ID)5,5,7
C ANZEIGE : BEREIT FUER MESSUNG
	CALL SETB(I4,10)
	CALL AUS(1,4,I4)
C TASTE RELAIS-WECHSEL EIN ?
	END