SUBROUTINE SEDU(M,N1,N2)
C WANDELT ZWEI SEDEZIMAL-ZEICHEN (BIT 0...5 IN N1 BZW N2)
C IN EINE 8-BIT-DUALZAHL M
C FORTRAN II
C FS : ISD.FT
	ID=ISD(N1)
	IF(ID-31)1,10,1
1	CONTINUE
S	CLA
S	TAD \ID
S	CLL RTL
S	CLL RTL
S	DCA I \M
	ID=ISD(N2)
	IF(ID-31)2,10,2
2	M=ID+M
9	RETURN
10	WRITE(1,100)
100	FORMAT('X-ERROR')
	GOTO 9
	END