File SEDU.FT (FORTRAN source file)

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

	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

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search