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

C PROGRAMM TIPSCH
C TIP-KONTAKT : ZAEHLUNG VON SCHAUERENTLADUNGEN
C
C	REGISTER 1/11 : 5326 B  START/STOP
C		 1/10 :    "	SLOPE A
C		 1/9  :	   "	MULTIPLIER 1
C		 1/8  :	   "	RESET
C		 1/7  :    "    REMOTE MODE
C
C		 4/11 : PZ-RELAIS (POLARITAET 0=ABWURF)
C		 4/10 : HG-RELAIS (TIP-BETAETIGUNG)
C		 4/9  : LAMPE EIN-AUS
C		 4/8  : LAMPE TIP-WECHSEL
C
C	DATEN    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		 2/11...2/8 :   "     COL5
C		 2/7....2/4 :   "     COL6
C		 3/11...3/8 :   "     COL7
C		 3/7....3/4 :   "     COL9
C
C		 4/11 : SCHALTER EIN-AUS
C		 4/10 : TASTE TIP-WECHSEL
C
C ANFANGSSTELLUNG    DUAL		DEZIMAL
C	REGISTER 1 : 010 011 100 011    1251
C		 2 : 001 011 111 111     767
C		 3 : 011 011 111 111    1791
C		 4 : 000 100 000 000     256
C		 5 : 010 100 000 000    1280
C		 6 : 001 100 000 100     772
C FORTRAN II / OPTION (OH)
C SR : INIT.FT / OUT.FT / DAT.FT / IBIT.SB / TCD.FT
C CH : RMP.SV
	WRITE(1,100)
100	FORMAT('TIP-KONTAKT : SCHAUERENTLADUNGEN ZAEHLEN'/40('-'))
10	READ(1,106)IR,IW
106	FORMAT('   WIEVIEL RELAIS ? : 'I3/'WIEVIEL
	1 MESSUNGEN ? : 'I4)
	READ(1,108)AG,AF,
108	FORMAT('         AUSGABE-GERAET UND DATEI : 'A2'/'A6)
	WRITE(1,102)LEER
	READ(1,150)LIST
150	FORMAT('MESSWERTE DRUCKEN ? (JA=1,NEIN=0) : 'I1)
	IN=0
	IMM=0
	IZ9=0
C IN ANFANGSSTELLUNG SETZEN
1	I10=1251
	I20=0767
	I30=1791
	I40=0256
	I50=1280
	I60=0772
	I1=I10
	I2=I20
	I3=I30
	I4=I40
	I5=I50
	I6=I60
	CALL INIT(I10,I20,I30,I40,I50,I60)
2	CALL DAT(IN)
	ID=IBIT(IN,11)
	IF(ID)2,2,3
C NACH 1 S EIN-AUS-SCHALTER NOCH EINMAL TESTEN
3	DO 7 I=1,50
S	JMS MS16
7	CONTINUE
	CALL INIT(I10,I20,I30,I4,I50,I60)
	CALL DAT(IN)
	ID=IBIT(IN,11)
	IF(ID)1,1,8
C ANZEIGE : MESSUNG LAEUFT
8	CALL SETB(I4,9)
	CALL OUT(I4,1)
	CALL OOPEN(AG,AF)
	WRITE(4,105)IR,IW
105	FORMAT(A2)
	DO 50 M=1,IR
	IF(LIST)48,48,47
47	WRITE(1,110)M,LEER,
110	FORMAT('RELAIS #'I3' :  'I0)
	IMM=3
48	DO 40 N=1,IW
	DO 22 IJ=1,280
S	JMS MS16
22	CONTINUE
C POLARITAET ANZUG
4	CALL SETB(I4,11)
	CALL OUT(I4,1)
S	JMS MS16
C TIP ANZUG-IMPULS
	CALL SETB(I4,10)
	CALL OUT(I4,1)
	CALL ZBIT(I4,10)
	CALL OUT(I4,1)
C ZAEHLER RESET ENDE
	CALL SETB(I1,8)
	CALL OUT(I1,1)
C ZAEHLER START
	CALL ZBIT(I1,11)
	CALL OUT(I1,1)
S	JMS MS16
C POLARITAET ABWURF
	CALL ZBIT(I4,11)
	CALL OUT(I4,1)
S	JMS MS16
S	JMS MS16
C TIP ABWURF-IMPULS
	CALL SETB(I4,10)
	CALL OUT(I4,1)
	CALL ZBIT(I4,10)
	CALL OUT(I4,1)
S	JMS MS16
S	JMS MS16
C ZAEHLER STOP
	CALL SETB(I1,11)
	CALL OUT(I1,1)
S	JMS MS16
C MESSWERT UEBERNEHMEN UND AUSWERTEN
	CALL TCD(IN,I6,Z,IZ9)
C ZAEHLER RESET
	CALL ZBIT(I1,8)
	CALL OUT(I1,1)
	IF(LIST)77,77,78
78	KZ=Z
	WRITE(1,101)KZ,
101	FORMAT(I5)
77	WRITE(4,109)Z
109	FORMAT(A6)
	IF(LIST)40,40,80
80	IMM=IMM+1
	IF(IMM-14)40,19,19
19	IMM=0
	WRITE(1,102)LEER
102	FORMAT(I0)
40	CONTINUE
	IF(IR-M)50,50,39
C RELAIS-WECHSEL ANZEIGE
39	CALL SETB(I4,8)
	CALL OUT(I4,1)
C RELAIS-WECHSEL BEENDET ?
	CALL SETB(I6,9)
	CALL OUT(I6,1)
41	CALL DAT(IN)
	ID=IBIT(IN,10)
	IF(ID)41,41,42
C RELAIS-WECHSEL BEENDET
42	CALL ZBIT(I4,8)
	CALL OUT(I4,1)
	CALL ZBIT(I6,9)
	CALL OUT(I6,1)
	WRITE(1,102)LEER
	IMM=0
C EIN-AUS-SCHALTER NOCH EIN ?
	CALL ZBIT(I6,11)
	CALL ZBIT(I6,10)
	CALL SETB(I6,9)
	CALL OUT(I6,1)
	CALL DAT(IN)
	ID=IBIT(IN,11)
	IF(ID)53,53,50
50	CONTINUE
	CALL OCLOSE
53	CALL INIT(I10,I20,I30,I40,I50,I60)
	WRITE(1,102)LEER,LEER
70	CALL CHAIN('RMP')
SMS16,	CLA
S	DCA CT
SDEL,	ISZ CT
S	JMP DEL
S	JMP I MS16
SCT,	0
	END