File RAMF1K.

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

/TEST VON DYNAMISCHEN 4K SPEICHERN


*1000

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




/EINGABE DER SPEICHER NUMMER
RAMTIT,	LINE
	LINE
	TDC
	4322
	4301
	4315
	4240
	4316
	4322
	240

RAMSPE,	RTCHAR		/READ COMMENT
	CHECK
	212
	SKP		/END OF COMMENT
	JMP RAMSPE
	LINE

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




/LADEN DES SPEICHERS MIT NULLEN

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



/AUSLESEN DES GESAMTEN SPEICHERS UND PRUEFUNG AUF NULLEN

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

	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMP RAMWR1

	ISZ RAMADR
	JMP RAMRD





/EINLESEN EINER EINS IN DEN SPEICHER


RAMWR1,	CMA CLA
	6515

	CLA
	DCA FCNTRL
	DCA FCNTRH
	TAD BITIN1
	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

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

	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMP RAMERR


	ISZ RAMADR
	JMP RAMRD1



PAGE


/RUECKSCHREIBEN EINER NULL AN DIE STELLE DER EINS

RAMWR0,	CLA
	TAD BITIN0
	MQL
	TAD RAMLIN	
	6505
	CMA
	6506

	MQA CLA
	6516
	BSW
	6515
	ISZ RAMLIN
	JMP RAMWR1
	JMP RAMPR

RAMADR,	0
RAMLIN,	0
BITIN0,	5474
BITIN1,	7454
BITOUT,	44
RAMCTR,	10
RAMLIM,	0
FCNTRL,	0
FCNTRH,	0
RMSIZE,	1777





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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search