File ISD.FT (FORTRAN source file)

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

	FUNCTION ISD(M)
C WANDELT SEDEZIMAL-ZEICHEN (BIT 0...5 IN M) IN 4-BIT-DUALZAHL
C ISD = 31 WENN KEIN SEDEZIMAL-ZEICHEN
C LIST : LINKES BYTE ASCII-CODE - RECHTES BYTE BINAER-CODE (OCTAL)
C FORTRAN II
	ITEM=0
	ISD=31
S	CLA
S	TAD I \M
S	AND (K7700
S	DCA I \M
S	TAD ADR
S	DCA PNT
	DO 10 I=1,16
S	CLA
S	TAD I PNT
S	AND (K7700
S	DCA \ITEM
	IF(M-ITEM)5,12,5
5	CONTINUE
S	CLA
S	TAD PNT
S	IAC
S	DCA PNT
10	CONTINUE
11	RETURN
12	CONTINUE
S	CLA
S	TAD I PNT
S	AND (K0017
S	DCA \ITEM
	ISD=ITEM
	GOTO 11
SPNT,	0
SADR,	LIST
SLIST,	6000;6101;6202;6303;6404;6505;6606;6707
S	7010;7111;0112;0213;0314;0415;0516;0617
	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