/PROGRAMM FUER 4K RAMS DATENMUSTER ABHAENGIG VON ADRESSE
/9 RAMS WERDEN GETESTET

*50
	ERADR,	0
	ZYCPTR,	0
	DEVCTR,4000

*1000


RAMINI,	CLA
	DCA RAMRDC
	DCA RMER1L
	DCA RMER1H
	DCA RMER2L
	DCA RMER2H
	DCA RMER3L
	DCA RMER3H
	DCA RMER4L
	DCA RMER4H
	DCA RMER5L
	DCA RMER5H
	DCA RMER6L
	DCA RMER6H
	DCA RMER7L
	DCA RMER7H
	DCA RMER8L
	DCA RMER8H
	DCA RMER9L
	DCA RMER9H
	DCA ERADR
	DCA RAMADR
	DCA ZYCCTL
	DCA ZYCCTH
	DCA WRTFLG
	DCA ZYCPTR
	TAD DEVINT
	DCA DEVCTR
	JMP RAMSTR



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.
	DCA DEVOUT
	MQA CLA
	6515	/CLEAR SELECTIVE OUTPUT REG.
	CLA
	TAD RAMADR
	AND ADRMAS
	SNA CLA
	JMP EXONE
	JMP EXZERO
ERRSKP,	SNA CLA
	JMP NOERR
	IAC
	DCA ERRFLG
	TAD WRTFLG
	SZA CLA
	JMP WRTVER
	JMP ERROUT

EXONE,	TAD DEVOUT
	AND MASKIN
	CIA
	TAD RAMBIT
	JMP ERRSKP

EXZERO,	TAD DEVOUT
	AND MASKIN
	JMP ERRSKP


MASKIN,	7770
ADRMAS,	0
RAMBIT,	7770

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

PAGE




ERROUT,	CLA
	TAD RAMADR
	AND ADRMAS
	SNA CLA
	JMP EROUT1
	JMP EROUT0

EROUT1,	TAD DEVOUT
	RAL CLL
	SZL
	JMP RMVG21
	ISZ RMER1L
	SKP
	ISZ RMER1H
RMVG21,	CLL RAL
	SZL
	JMP RMVG31
	ISZ RMER2L
	SKP
	ISZ RMER2H
RMVG31,	CLL RAL
	SZL
	JMP RMVG41
	ISZ RMER3L
	SKP
	ISZ RMER3H
RMVG41,	CLL RAL
	SZL
	JMP RMVG51
	ISZ RMER4L
	SKP
	ISZ RMER4H
RMVG51,	CLL RAL
	SZL
	JMP RMVG61
	ISZ RMER5L
	SKP
	ISZ RMER5H
RMVG61,	CLL RAL
	SZL
	JMP RMVG71
	ISZ RMER6L
	SKP
	ISZ RMER6H
RMVG71,	CLL RAL
	SZL
	JMP RMVG81
	ISZ RMER7L
	SKP
	ISZ RMER7H
RMVG81,	CLL RAL
	SZL
	JMP RMVG91
	ISZ RMER8L
	SKP
	ISZ RMER8H
RMVG91,	CLL RAL
	SZL
	JMP ADRPUT
	ISZ RMER9L
	SKP
	ISZ RMER9H
	JMP ADRPUT

PAGE


ADRPUT,	TAD DEVOUT
	CDF 10
	DCA I DEVCTR
	CDF 0
	ISZ DEVCTR
	NOP

ADRLOP,	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
	NOP
	TAD DEVCTR
	SZA CLA
	JMP NOERR
	TAD DEVINT
	DCA DEVCTR
	DCA ERADR
	DCA ZYCPTR

NOERR,	ISZ RAMADR
	JMP REFEXT

	TAD ERRFLG
	SZA CLA
	JMP RAMSTR

	DCA WRTFLG
	ISZ ZYCCTL
	SKP
	ISZ ZYCCTH

	JMP RAMRD

REFEXT,	SWAB
	CAM DAD
	REFCTR
REFLOP,	DPIC
	DPSZ
	JMP REFLOP
	CLA
	TAD BITOUT
	MQL
	JMP RAMRD




RMER1L,	0
RMER1H,	0
RMER2L,	0
RMER2H,	0
RMER3L,	0
RMER3H,	0
RMER4L,	0
RMER4H,	0
RMER5L,	0
RMER5H,	0
RMER6L,	0
RMER6H,	0
RMER7L,	0
RMER7H,	0
RMER8L,	0
RMER8H,	0
RMER9L,	0
RMER9H,	0
DEVINT,	4000
DEVOUT,	0
DEVNUM,	0
ZYCCTL,	0
ZYCCTH,	0
ERRFLG,	0
RAMRDC,	0
BITIN0,	5474
BITIN1,	7454
BITOUT,	44
RAMADR,	0
WRTFLG,	0
REFCTR,	0;0

PAGE



RAMERR,	LINE
	TDC
	4306
	4305
	4310
	4314
	4305
	4322
	240
	LINE
	TDC
	4303
	4324
	4322
	4261
	4272
	240
	TAD RMER1H
	TOCT
	TAD RMER1L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4262
	4272
	240
	TAD RMER2H
	TOCT
	TAD RMER2L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4263
	4272
	240
	TAD RMER3H
	TOCT
	TAD RMER3L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4264
	4272
	240
	TAD RMER4H
	TOCT
	TAD RMER4L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4265
	4272
	240
	TAD RMER5H
	TOCT
	TAD RMER5L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4266
	4272
	240
	TAD RMER6H
	TOCT
	TAD RMER6L
	TOCT
	JMP I.+1
	NEWPAG
PAGE

NEWPAG,	LINE
	TDC
	4303
	4324
	4322
	4267
	4272
	240
	TAD RMER7H
	TOCT
	TAD RMER7L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4270
	4272
	240
	TAD RMER8H
	TOCT
	TAD RMER8L
	TOCT
	LINE
	TDC
	4303
	4324
	4322
	4271
	4272
	240
	TAD RMER9H
	TOCT
	TAD RMER9L
	TOCT

	LINE	/AUSDRUCK DER FEHLERHAFTEN ADRESSEN
	TDC
	4301
	4304
	4304
	4322
	272
	LINE
	CLA
	DCA ZYCPTR
	DCA ERADR
	TAD DEVINT
	DCA DEVCTR
	JMP ADROUT

PAGE
ADROUT,	CDF 10
	TAD I ERADR
	CDF 0
	AND ADRMAS
	SNA CLA
	JMP ADROT1
	JMP ADROT0

ADROT1,	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
	TDC
	240
	CDF 10
	TAD I DEVCTR
	CDF 0
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN21
	TDC
	4261
	240
DEVN21,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN31
	TDC
	4262
	240
DEVN31,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN41
	TDC
	4263
	240
DEVN41,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN51
	TDC
	4264
	240
DEVN51,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN61
	TDC
	4265
	240
DEVN61,	TAD DEVTEM
	CLL RAL
	SZL
	JMP DEVN71
	TDC
	4266
	240
DEVN71,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN81
	TDC
	4267
	240
DEVN81,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP DEVN91
	TDC
	4270
	240
DEVN91,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SZL
	JMP ZEILE1
	TDC
	271

ZEILE1,	LINE
	MOSTSR
	ISZ ZYCPTR
	ISZ ERADR
	ISZ DEVCTR
	JMP ADROUT
	MOSTGO



DEVTEM,	0
PAGE





EROUT0,	TAD DEVOUT
	RAL CLL
	SNL
	JMP RAMVG2
	ISZ RMER1L
	SKP
	ISZ RMER1H
RAMVG2,	CLL RAL
	SNL
	JMP RAMVG3
	ISZ RMER2L
	SKP
	ISZ RMER2H
RAMVG3,	CLL RAL
	SNL
	JMP RAMVG4
	ISZ RMER3L
	SKP
	ISZ RMER3H
RAMVG4,	CLL RAL
	SNL
	JMP RAMVG5
	ISZ RMER4L
	SKP
	ISZ RMER4H
RAMVG5,	CLL RAL
	SNL
	JMP RAMVG6
	ISZ RMER5L
	SKP
	ISZ RMER5H
RAMVG6,	CLL RAL
	SNL
	JMP RAMVG7
	ISZ RMER6L
	SKP
	ISZ RMER6H
RAMVG7,	CLL RAL
	SNL
	JMP RAMVG8
	ISZ RMER7L
	SKP
	ISZ RMER7H
RAMVG8,	CLL RAL
	SNL
	JMP RAMVG9
	ISZ RMER8L
	SKP
	ISZ RMER8H
RAMVG9,	CLL RAL
	SNL
	JMP ADRPUT
	ISZ RMER9L
	SKP
	ISZ RMER9H
	JMP ADRPUT

PAGE


ADROT0,	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
	TDC
	240
	CDF 10
	TAD I DEVCTR
	CDF 0
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN2
	TDC
	4261
	240
DEVN2,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN3
	TDC
	4262
	240
DEVN3,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN4
	TDC
	4263
	240
DEVN4,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN5
	TDC
	4264
	240
DEVN5,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN6
	TDC
	4265
	240
DEVN6,	TAD DEVTEM
	CLL RAL
	SNL
	JMP DEVN7
	TDC
	4266
	240
DEVN7,	TAD DEVTEM
	CLL RAL
	DCA DEVTEM
	SNL
	JMP DEVN8
	TDC
	4267
	240
DEVN8,	TAD DEVTEM
	CLL RAL
	SNL
	JMP DEVN9
	TDC
	4270
	240
DEVN9,	TAD DEVTEM
	CLL RAL
	SNL
	JMP ZEILE
	TDC
	271

ZEILE,	LINE
	MOSTSR
	ISZ ZYCPTR
	ISZ ERADR
	ISZ DEVCTR
	JMP ADROUT
	MOSTGO