SUBROUTINE TCD4(I6,IZ)
C 4-STELLIGER MESSWERT (IZ<2047) VOM TIMER-COUNTER-DVM 5326 B
C KEIN TEST OB IZ<2047 !
C RMP-REGISTER MIT SN7475
C FORTRAN II
C SR : EIN.FT
C MESSERGEBNIS UEBERNEHMEN
C COL1/2 :
	CALL EIN(ICOL1,0,I6)
C COL3/4 :
	CALL EIN(ICOL2,1,I6)
C AUSWERTUNG
	IZ1=0
	IZ2=0
	IZ3=0
	IZ4=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
SMASK,	0017
	IZ=0
C MIT TEST OB BLANKING (HHHH)
	IF(IZ1-15)10,20,20
10	IZ=IZ1
	IF(IZ2-15)11,20,20
11	IZ=IZ+10*IZ2
	IF(IZ3-15)12,20,20
12	IZ=IZ+100*IZ3
	IF(IZ4-15)13,20,20
13	IZ=IZ+1000*IZ4
20	RETURN
	END