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