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

	SUBROUTINE TCD(IN,I6,Z,IZ9)
C MESSWERT VOM TIMER-COUNTER-DVM 5326 B
C	IZ9/11 : POLARITY BIT A
C	   /10 : OF LAMP
C	   /9  : POLARITY BIT C
C	   /8  : OF LAMP
C FORTRAN II
C SR : IBIT.SB / OUT.FT / DAT.FT
C MESSERGEBNIS UEBERNEHMEN
C ADRESSE COL1/2 : 000
	CALL ZBIT(I6,11)
	CALL ZBIT(I6,10)
	CALL ZBIT(I6,9)
	CALL OUT(I6,1)
	CALL DAT(IN)
	ICOL1=IN
C ADRESSE COL3/4 : 001
	CALL SETB(I6,11)
	CALL OUT(I6,1)
	CALL DAT(IN)
	ICOL2=IN
C ADRESSE COL5/6 : 010
	CALL ZBIT(I6,11)
	CALL SETB(I6,10)
	CALL OUT(I6,1)
	CALL DAT(IN)
	ICOL3=IN
C ADRESSE COL7/9 : 011
	CALL SETB(I6,11)
	CALL OUT(I6,1)
	CALL DAT(IN)
	ICOL4=IN
C ADRESSE EIN-AUS-SCHALTER : 100
	CALL ZBIT(I6,11)
	CALL ZBIT(I6,10)
	CALL SETB(I6,9)
	CALL OUT(I6,1)
C AUSWERTUNG
	IZ1=0
	IZ2=0
	IZ3=0
	IZ4=0
	IZ5=0
	IZ6=0
	IZ7=0
	IZ9=0
S	CLA
S	TAD \ICOL1
S	AND MASK
S	DCA \IZ1
S	TAD \ICOL1
S	CLL RAR;CLL RAR;CLL RAR;CLL RAR
S	DCA \IZ2
S	TAD \ICOL2
S	AND MASK
S	DCA \IZ3
S	TAD \ICOL2
S	CLL RAR;CLL RAR;CLL RAR;CLL RAR
S	DCA \IZ4
S	TAD \ICOL3
S	AND MASK
S	DCA \IZ5
S	TAD \ICOL3
S	CLL RAR;CLL RAR;CLL RAR;CLL RAR
S	DCA \IZ6
S	TAD \ICOL4
S	AND MASK
S	DCA \IZ7
S	TAD \ICOL4
S	CLL RAR;CLL RAR;CLL RAR;CLL RAR
S	DCA \IZ9
SMASK,	0017
	Z=0.
C MIT TEST OB BLANKING (HHHH)
	IF(IZ1-15)10,20,20
10	Z=FLOAT(IZ1)
	IF(IZ2-15)11,20,20
11	Z=Z+10.*FLOAT(IZ2)
	IF(IZ3-15)12,20,20
12	Z=Z+100.*FLOAT(IZ3)
	IF(IZ4-15)13,20,20
13	Z=Z+1000.*FLOAT(IZ4)
	IF(IZ5-15)14,20,20
14	Z=Z+10000.*FLOAT(IZ5)
	IF(IZ6-15)15,20,20
15	Z=Z+100000.*FLOAT(IZ6)
	IF(IZ7-15)16,20,20
16	Z=Z+1000000.*FLOAT(IZ7)
20	RETURN
	END