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

*1000
	CIF 20
ANRUF,	JMS GETSZ

	CIF 20

	JMS DEZOUT
	SPALTE
	STELLE

	CIF 20

	JMS DEZOUT
	ZEILE
	STELLE

SPALTE,	0;0
ZEILE,	0;0
SZ,	0
STELLE,	2



FIELD 2
*1000

ENTF=JMS I 7

/CIF 20
/JMS DEZOUT
/ADR. DER DOPPELGENAUEN ZAHL IN FELD 0
/ANZAHL ALLER STELLEN


DEZOUT,	0
	SWAB
	CLA

	RDF
	TAD CHFIED
	DCA EXIT1

	IAC
	DCA 56
	DCA 55
	TAD I DEZOUT
	DCA DEZP1
	ISZ DEZOUT

	TAD I DEZOUT
	DCA DEZTEM
	TAD I DEZTEM
	DCA 57
	ISZ DEZOUT
	DCA 60

	CAM DAD
DEZP1,	0
	CDF 20
	SWP
	DST
	45
	CLA
	TAD (27
	DCA 44

	ENTF
	FNOR
	FOUT
	FEXT

EXIT1,	0
	JMP I DEZOUT


GETSZ,	0
	CLA
	RDF
	TAD CHFIED
	DCA EXIT2
	SWAB
	TAD I SZP
	LSR
	6
	DCA I SPALPT
	ACL
	BSW
	DCA I ZEILPT
EXIT2,	0
	JMP I GETSZ

DEZTEM,	0
CHFIED,	CDF CIF 0
SZP,	SZ
ZEILPT,	ZEILE
SPALPT,	SPALTE