/TEST VON STATISCHEN 1K SPEICHERN


*1000

	TLS
RAMSTR,	SWAB
	CLA
	DCA RAMLIN
	DCA RAMADR
	TAD RAMCTR
	CIA
	DCA RAMLIM
	DCA SUM
	DCA SUM+1





	CLA		/INIT.
	TAD BITIN1
	MQL
	CMA
	6515		/STEUERLTGEN. AUF EINS GESETZT
	CLA




/LADEN DES SPEICHERS MIT EINSEN

RAMWR,	TAD RAMADR
	6505
	CMA
	6506
	CMA

	SWP
	6516	
	BSW
	6515
	BSW
	MQL
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMP .+3

	ISZ RAMADR
	JMP RAMWR


	TAD BITOUT              /INITIALISIERUNG DER LESEROUTINE
	MQL
	DCA RAMADR



/AUSLESEN DES GESAMTEN SPEICHERS UND PRUEFUNG AUF EINSEN

RAMRD,	TAD RAMADR
	6505
	CMA
	6506
	MQA CLA
	6516
	6514
	RAL CLL
	MQA CLA
	6515
	SNL CLA
	ISZ RAMLIM         /SPEICHER DEFEKT?
	SKP
	JMP RAMDEF

	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMP RAMWR1

	ISZ RAMADR
	JMP RAMRD





/EINLESEN EINER NULL IN DEN SPEICHER


RAMWR1,	CMA CLA
	6515

	CLA
	DCA FCNTRL
	DCA FCNTRH
	TAD BITIN0
	MQL

	TAD RAMLIN	
	6505
	CMA
	6506

	MQA CLA
	6516
	BSW
	6515
	CLA

	TAD BITOUT		/INIT. DER LESEROUTINE
	MQL
	DCA RAMADR




/PRUEFUNG DES SPEICHERINHALTS 

RAMRD1,	TAD RAMADR	
	6505
	CMA
	6506

	MQA CLA	
	6516
	6514
	RAL CLL
	MQA CLA
	6515

	SNL CLA
	ISZ FCNTRL	/DOUBLE PREC. COUNTER
	SKP
	ISZ FCNTRH

	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMP RAMERR


	ISZ RAMADR
	JMP RAMRD1

RAMADR,	0
RAMLIN,	0
BITIN0,	5474
BITIN1,	7454
BITOUT,	44
RMSIZE,	1777



PAGE


/RUECKSCHREIBEN EINER EINS AN DIE STELLE DER NULL

RAMWR0,	CLA
	TAD BITIN1
	MQL
	TAD RAMLIN	
	6505
	CMA
	6506

	MQA CLA
	6516
	BSW
	6515

	CLA
	TAD RAMLIN
	CIA
	TAD RMSIZE
	SNA CLA
	JMP RAMPR

	ISZ RAMLIN
	JMP RAMWR1

RAMCTR,	10
FCNTRL,	0
FCNTRH,	0
RAMLIM,	0







/SUMMATION DER FEHLER

RAMERR,	CLA CMA
	TAD FCNTRH
	SMA		/FEHLER=4096
	JMP RAMDEF	/RAM DEFEKT

	CLA CLL
	TAD FCNTRL
	SZA		/NULL FEHLER?
	JMP SUMCNT	/NO,

	CAM DAD		/FEHLERZAEHLER=0
	SUM		/JA,INC. FEHLERSUMME
	DPIC
	DST
	SUM
	CLA
	JMP RAMWR0	/NEXT LOOP

SUMCNT,	TAD RAMMN1
	SNA		/MEHR ALS ZUGEL. FEHLER
	JMP RAMWR0	/FEHLERZAEHLER=1

	MQL		/JA
	DAD		/FEHLERZAEHLER=1
	SUM
	DST
	SUM
	CLA
	JMP RAMWR0






/AUSDRUCK ROUTINE
RAMPR,	LINE
	LINE
	TDC
	4302
	4301
	4303
	4313
	4307
	4322
	4317
	4325
	4316
	4304
	4240
	4240
	261

	LINE
	LINE
	TDC
	4306
	4305
	4310
	4314
	4305
	4322
	240

	TAD SUM+1
	TOCT
	TAD SUM
	TOCT
	LINE
	LINE

	JMP RAMSTR


/AUSDRUCK RAM DEFEKT
RAMDEF,	LINE
	CLA
	TAD RAMLIN
	TOCT		/DURCHGANG
	LINE
	LINE
	TDC
	4322
	4301
	4315
	4240
	4240
	4304
	4305
	4306
	4303
	4240
	241
	JMP RAMSTR



SUM,	0;0
RAMMN1,	-1