*50
	ERADR,	0

*1000


RAMINI,	CLA
	DCA RAMRDC
	DCA RAMERL
	DCA RAMERH
	DCA ERADR
	DCA RAMADR
	TAD NUM2
	CIA
	DCA CNT2




RAMSTR,	CLA
	TAD NUM2
	CIA
	DCA READCT
	TAD BITIN1
	MQL

	CMA	/CLEAR SELECT. OUTPUT REG. OUTPUT=HIGH
	6515
	CLA

RAMWR,	CMA
	6506	/CLEAR SELECT. OUTPUT REG. 0
	CMA
	6505

	SWP
	6516	/SET RESPECTIVE OUTPUT REG.  OUTPUT=0
	BSW
	6515
	BSW
	SWP
	IAC
	SZA
	JMP RAMWR

	TAD BITOUT
	MQL


RAMRD,	TAD RAMADR
	CMA
	6506
	CMA
	6505
	MQA CLA
	6516	/SET SELECTIVE OUTPUT REG (MQ V ACC)
	6514	/EINLESEN;DIE VERSCHIEDENEN AUSGANGSSIGN.
	RAL CLL	/KOMMEN ALS HIHG AN
	MQA CLA
	6515	/CLEAR SELECTIVE OUTPUT REG.
	CLA

	TAD RAMADR
	AND MASKHF
	SZA CLA
	JMP RAMVG1
	JMP RAMVG0


RAMVGL,	SZL	/WIRD GEAENDERT JE NACH EINLESEN VON 0 ODER 1
	JMP NOERR

	CLA IAC
	TAD STOER
	DCA STOER
	TAD STOER
	AND NUM2
	SNA CLA
	JMP NOERR

	ISZ RAMERL
	SKP
	ISZ RAMERH

	CLA
	TAD RAMADR
	CDF 10
	DCA I ERADR
	CDF 0
	ISZ ERADR

NOERR,	ISZ CNT2		/JEDE ADRESSE WIRD 2X AUSGELESEN
	JMP RAMRD
	CLA
	TAD NUM2
	CIA
	DCA CNT2
	DCA STOER
	ISZ RAMADR
	JMP RAMRD

	ISZ READCT		/ZWEI LESEDURCHGAENGE,DANN SCHREIBEN
	JMP RAMRD
	JMP RAMSTR

RAMVG0,	TAD RAMSNL
	DCA RAMVGL
	JMP RAMVGL

RAMVG1,	TAD RAMSZL
	DCA RAMVGL
	JMP RAMVGL


RAMRDC,	0
RAMERL,	0
RAMERH,	0
RAMSNL,	7420
RAMSZL,	7430
BITIN0,	5474
BITIN1,	7454
BITOUT,	44
RAMADR,	0
MASKHF,	40
CNT2,	0
NUM2,	2
READCT,	0
STOER,	0

PAGE



RAMERR,	LINE
	TDC
	4306
	4305
	4310
	4314
	4305
	4322
	240
	TAD RAMERH
	TOCT
	TAD RAMERL
	TOCT
	LINE
	LINE

	LINE	/AUSDRUCK DER FEHLERHAFTEN ADRESSEN
	TDC
	4301
	4304
	4304
	4322
	272
	LINE
	CLA
	DCA ERADR

ADROUT,	CDF 10
	TAD I ERADR
	CDF 0
	TOCT
	LINE
	MOSTSR
	ISZ ERADR
	JMP ADROUT
	MOSTGO