*50
	ERADR,	0
	ZYCPTR,	0

*1000


RAMINI,	CLA
	DCA RAMRDC
	DCA RAMERL
	DCA RAMERH
	DCA ERADR
	DCA RAMADR
	DCA ZYCCTL
	DCA ZYCCTH
	DCA WRTFLG
	TAD NUM2
	CIA
	DCA CNT2
	JMP RAMSTR

PAGE



RAMSTR,	CLA
	DCA ERRFLG
	IAC
	DCA WRTFLG
	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
	DCA ERRFLG
	TAD WRTFLG
	SZA CLA
	JMP WRTVER

	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
	CLA
	TAD ZYCCTH
	CDF 20
	DCA I ZYCPTR
	CDF 0
	ISZ ZYCPTR
	TAD ZYCCTL
	CDF 20
	DCA I ZYCPTR
	CDF 0
	ISZ ZYCPTR

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

	CLA
	TAD ERRFLG
	SZA CLA
	JMP RAMSTR

	ISZ ZYCCTL
	SKP
	ISZ ZYCCTH

	JMP RAMRD

RAMVG0,	TAD RAMSNL
	DCA RAMVGL
	JMP RAMVGL

RAMVG1,	TAD RAMSZL
	DCA RAMVGL
	JMP RAMVGL

WRTVER,	DCA WRTFLG
	TDC
	4327
	4322
	4305
	322
	LINE
	JMP RAMSTR


ZYCCTL,	0
ZYCCTH,	0
ERRFLG,	0
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
WRTFLG,	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 ZYCPTR
	DCA ERADR

ADROUT,	CDF 10
	TAD I ERADR
	TOCT
	CDF 0
	TDC
	240
	CDF 20
	TAD I ZYCPTR
	TOCT
	CDF 0
	ISZ ZYCPTR
	CDF 20
	TAD I ZYCPTR
	TOCT
	CDF 0
	LINE
	MOSTSR
	ISZ ZYCPTR
	ISZ ERADR
	JMP ADROUT
	MOSTGO