/DIESES PROGRAMM GIBT BEI EINGABE EINER 4-STELLIGEN OKTALEN
    / SPEICHER-ADRESSE DEN INHALT DIESER SPEICHERZELLE OKTAL AUS.
    /
    /
    / DRUECKT MAN DIE 'RETURN'-TASTE, SO WIRD DER INHALT DER SPEICHER-
    / ZELLE MIT DER NAECHSTHOEHEREN ADRESSE AUSGEDRUCKT,
    /
    / EINGABE EINES '$'-ZEICHENS BEENDET DAS PROGRAMM,
    /
    / EINGABE EINES VON 'RETURN' UND '$' VERSCHIEDENEN ZEICHENS
    / BEWIRKT EINEN NEUSTART DES PROGRAMMS
    /
	ENTRY MAIN
MAIN,	CLA CLL
	TLS
	JMS DOLAR
	JMS CRLF
	TAD M4
	DCA COUNT
	DCA ADRESS
INPUT,	JMS LESE
	TLS
	AND MASKE7
	TAD ADRESS
	ISZ COUNT
	JMP SCHIEB
	DCA ADRESS
	JMS CRLF
	CLA CLL
AUSGAB,	TAD ADRESS
	DCA NUMBER
	JMS OKTAUS
	CLA CLL
	TAD K240
	JMS DRUCKE
	TAD K240
	JMS DRUCKE
	TAD I ADRESS
	DCA NUMBER
	JMS OKTAUS
	JMS CRLF
EINGAB,	JMS LESE
	DCA ZEICH
	TAD K244
	CIA
	TAD ZEICH
	SZA
	JMP NDOLAR
	TAD K244
	JMS DRUCKE
	CALL 0,EXIT
SCHIEB,	CLL RAL
	RTL
	DCA ADRESS
	JMP INPUT
NDOLAR,	CLA
	TAD K215
	CIA
	TAD ZEICH
	SZA
	JMP MAIN	/SOLL DAS PROGRAMM NICHT WIEDER VON VORNE
			/BEGINNEN, SO AENDERE MAN DEN BEFEHL UM IN 'JMP BELL'
	TAD ADRESS
	IAC
	DCA ADRESS
	JMP AUSGAB
BELL,	CLA CLL
	TAD K207
	JMS DRUCKE
	JMP EINGAB
LESE,	0
L1,	KSF
	JMP L1
	KRB
	JMP I LESE
CRLF,	0
	CLA CLL
	TAD K215
	JMS DRUCKE
	TAD K212
	JMS DRUCKE
	JMP I CRLF
DRUCKE,	0
L2,	TSF
	JMP L2
	TLS
	CLA
	JMP I DRUCKE
DOLAR,	0
	CLA CLL
	TAD K244
	JMS DRUCKE
	JMP I DOLAR
OKTAUS,	0
	CLA CLL
	DCA STORE
	TAD M4
	DCA COUNT
	TAD NUMBER
	RAL
UNPACK,	TAD STORE
	RAL
	RTL
	DCA STORE
	TAD STORE
	AND MASKE7
	TAD K260
	JMS DRUCKE
	ISZ COUNT
	JMP UNPACK
	JMP I OKTAUS
M4,	7774
COUNT,	0
ADRESS,	0
MASKE7,	7
NUMBER,	0
ZEICH,	0
STORE,	0
K240,	240
K244,	244
K215,	215
K207,	207
K260,	260
K212,	212
	END