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
	DCA WRTFLG
	TAD NUM2
	CIA
	DCA CNT2




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

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
	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


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 ERADR

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