File RAMFU0.4

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

/TEST VON STATISCHEN 1K SPEICHERN
/BACKGROUND 0


*1000


		/HAUPTPROGRAMM

RAMSTR,	JMS RAMTIT	/UEBERSCHRIFT

	JMS WLKPAT	/PRUEFEN VON AUSGANG 1
	5070
	7050
	1

	JMS WKLPAT	/PRUEFEN VON AUSGANG 2
	5054
	5450
	2

	JMS WLKPAT	/PRUEFEN VON AUSGANG 3
	5052
	5250
	3

	JMS WLKPAT	/PRUEFEN VON AUSGANG 4
	5051
	5150
	4

	JMP RAMSTR

PAGE



		/SUBROUTINE UEBERSCHRIFT DES URUEFPROGRAMMS
RAMTIT,	0
	TLS
	LINE
	LINE
	TDC
	4322
	4301
	4315
	4240
	240

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



			/SUBROUTINE WALKPAT 
			/1. ARGUMENT BITMUSTER 0 
			/2. ARGUMENT BITMUSTER 1
			/3. ARGUMENT ZU TESTENDER AUSGANG
			/VIER AUSGAENGE KOENNEN GETESTET WERDEN

WLKPAT,	0	
	CLA
	TAD I WLKPAT
	DCA BITIN0
	ISZ WLKPAT

	TAD I WKLPAT
	DCA BITIN1
	ISZ WKLPAT

	TAD I WLKPAT
	DCA ERRAUS
	ISZ WLKPAT

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


	SWAB
	CLA
	DCA RAMLIN
	DCA RAMADR
	DCA FLSUM1
	DCA FLSUM2
	DCA FLSUM3
	DCA FLSUM4



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



/AUSLESEN DES GESAMTEN SPEICHERS UND PRUEFUNG AUF NULLEN

RAMRD,	TAD RAMADR
	6505
	CMA
	6506
	MQA CLA
	6516
	6514
	DCA RMOUTP
	JMS RAMERR	/PRUEFEN DES SPEICHERZELLENINHALTS, ALLE AUSGAENGE
	MQA CLA
	6515

	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SNA CLA
	JMS DEFECT		/RAM DEFECT ?
	JMP RAMWR1

	ISZ RAMADR
	JMP RAMRD


FLSUM1,	0
FLSUM2,	0
FLSUM3,	0
FLSUM4,	0
RAMADR,	0
BITIN0,	0
BITIN1,	0
BITOUT,	44
RMSIZE,	1777
ERRAUS,	0

PAGE


/EINLESEN EINER EINS IN DEN SPEICHER


RAMWR1,	CMA CLA
	6515

	CLA
	DCA FLCNT1
	DCA FLCNT2
	DCA FLCNT3
	DCA FLCNT4
	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
	DCA RMOUTP
	JMS RAMERR	/PRUEFEN DES SPEICHERZELLENINHALTS, ALLE AUSGAENGE
	MQA CLA
	6515


	CLA
	TAD RAMADR
	CIA
	TAD RMSIZE
	SZA CLA
	JMP .+4
	JMS DEFSUM		/ADDITION DER FEHLER
	JMS DEFECT		/RAM DEFECT
	JMP RAMWR0


	ISZ RAMADR
	JMP RAMRD1

RAMLIN,	0
FLCNT1,	0
FLCNT2,	0
FLCNT3,	0
FLCNT4,	0



PAGE


/RUECKSCHREIBEN EINER NULL AN DIE STELLE DER EINS

RAMWR0,	CLA
	TAD BITIN0
	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





PAGE /SUBROUTINE FFEHLERERKENNUNG RAMERR, 0 CLA TAD RMOUTP SNA JMP I RAMERR RAL CLL SZL ISZ FLCNT1 /AUSGANG1 RAL CLL SZL ISZ FLCNT2 /AUSGANG2 RAL CLL SZL ISZ FLCNT3 /AUSGANG3 RAL CLL SZL ISZ FLCNT4 /AUSGANG4 JMP I RAMERR /SUBROUTINE SUMMATION DER FEHLER DEFSUM, 0 CLA IAC CMA TAD ERRAUS /MODIFIKATION DER FEHLERZAEHLERADRESSE TAD FECTPI /JE NACH AUSGANG DCA FECTR TAD I FECTR SNA JMP FELONE /WENN NULL DANN 1 FEHLER TAD MNUM1 SZA DCA I FECTR /ANZAHL DER FEHLER -1 JMP I DEFSUM FELONE, CLA IAC DCA I FECTR JMP I DEFSUM /SUBROUTINE RAM DEFECT ? DEFECT, 0 CLA TAD FLCNT1 DCA FLSUM1 TAD FLCNT2 DCA FLSUM2 TAD FLCNT3 DCA FLSUM3 TAD FLCNT4 DCA FLSUM4 TAD MNDEF TAD FLCNT1 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT2 SZA CLA JMS RAMDEF TAD MNDEF TAD FLCNT3 SZA CLA JMS RAMDEF TAD MNDEF TAD FLCNT4 SZA CLA JMS RAMDEF JMP I DEFECT MNUM1, -1 MNDEF, -256 FECTPI, FLCNT1 FLSUMP, FLSUM1 FECTR, 0 PAGE /SUBROUTINE AUSDRUCK DER FEHLERANZAHL RAMPR, 0 LINE LINE TDC 4302 4301 4303 4313 4307 4322 4317 4325 4316 4304 4240 4240 260 LINE LINE TDC 4306 4305 4310 4314 4305 4322 240 TAD FLSUMP DCA FLSUMC LINE OUTPR, TDC 4301 4325 4323 4307 4301 4316 4307 4272 240 CLA TAD NUM1 DCA AUSCTR TAD AUSCTR TOCT TAD I FLSUMC TOCT ISZ FLSUMC ISZ AUSCTR CLA TAD AUSCTR TAD MN4 SZA JMP OUTPR JMP I RAMPR FLSUMC, 0 NUM1, 1 /SUBROUTINE AUSDRUCK WENN RAM DEFECT RAMDEF, 0 LINE CLA TAD RAMLIN TOCT /DURCHGANG LINE LINE TDC 4322 4301 4315 4240 4240 4304 4305 4306 4303 4240 241 DEFPR, LINE TAD FECTPI DCA FECTP TDC 4301 4325 4323 4307 4301 4316 4307 4272 240 CLA TAD NUM1 DCA AUSCTR TAD AUSCTR TOCT CLA TAD I FECTP TOCT LINE ISZ FECTP ISZ AUSCTR CLA TAD AUSCTR TAD MN4 SZA JMP DEFPR JMP I RAMDEF AUSCTR, 0 FECTP, 0



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