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

	FUNCTION IDV(N,I1,I6)
C MESSWERT VOM DVM N (1 ODER 2)
C BEI UEBERLAUF WIRD IDV=2047 GESETZT
C FORTRAN II
C SR : IBIT.SB / AUS.FT / EIN.FT
S	OPDEF MQL 7421
S	OPDEF ACL 7701
	IDV=0
	IEN=0
	ITM=0
	IF(N-1)999,999,1001
C DVM 1 : MULTIPLEXER 0 SETZEN
999	CALL ZBIT(I1,6)
1000	CALL AUS(1,1,I1)
	GOTO 1002
C DVM 2 : MULTIPLEXER 1 SETZEN
1001	CALL SETB(I1,6)
	GOTO 1000
C WERT EINLESEN
1002	CALL EIN(IDV,1,I6)
	CALL EIN(IEN,2,I6)
C OVERLOAD ?
	ID=IBIT(IEN,6)
	IF(ID)1003,1003,1004
1003	IDV=2047
	RETURN
C MESSWERT VON BCD- IN BINAER-CODE
1004	CONTINUE
S	CLA
S	TAD \IDV
S	MQL
S	ACL
S	AND MSK
S	DCA \IDV
S	ACL
S	RTR
S	RTR
S	AND MSK
S	DCA \ITM
	IDV=IDV+10*ITM
S	CLA
S	TAD \IEN
S	MQL
S	ACL
S	AND MSK
S	DCA \IEN
S	ACL
S	DCA \ITM
SMSK,	0017
	ID=IBIT(ITM,7)
	IDV=IDV+100*IEN+1000*ID
C VORZEICHEN
	ID=IBIT(ITM,5)
	IF(ID)1005,1005,1006
1005	IDV=-IDV
1006	RETURN
	END