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

*50
	ERADR,	0

*1000


RAMINI,	CLA
	DCA RAMRDC
	DCA RAMERL
	DCA RAMERH
	DCA ERADR
	DCA RAMADR




RAMSTR,	CLA
	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
	ISZ RAMERL
	SKP
	ISZ RAMERH

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

NOERR,	ISZ RAMADR
	JMP RAMRD
	JMP RAMRD

RAMVG0,	TAD RAMSNL
	DCA RAMVGL
	JMP RAMVGL

RAMVG1,	TAD RAMSZL
	DCA RAMVGL
	JMP RAMVGL


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



RAMRDC,	0
RAMERL,	0
RAMERH,	0
RAMSNL,	7420
RAMSZL,	7430
BITIN0,	5474
BITIN1,	7454
BITOUT,	44
RAMADR,	0
MASKHF,	40