File RAMF01.3

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

/TEST VON STATISCHEN 1K SPEICHERN
/BACKGROUND 0 UND BACKGROUND 1


*1000


		/HAUPTPROGRAMM
		/BACKGROUND 0

RAMSTR,	CLA
	TAD BITOT0
	DCA BITOUT

	JMS RMINIT
	JMS RAMTIT	/UEBERSCHRIFT

	JMS WLKPAT	/PRUEFEN VON AUSGANG 1
	5077
	7057
	1

	JMS WLKPAT	/PRUEFEN VON AUSGANG 2
	5077
	5473
	2

	JMS WLKPAT	/PRUEFEN VON AUSGANG 3
	5077
	5275
	3

	JMS WLKPAT	/PRUEFEN VON AUSGANG 4
	5077
	5176
	4

	JMS RAMPR		/AUSDRUCKEN DER FEHLER


		/BACKGROUND 1

	CLA IAC
	DCA BACKFL
	TAD BITOT1
	DCA BITOUT

	JMS RMINIT

	JMS WLKPAT		/PRUEFEN VON AUSGANG 1
	7750
	5770

	JMS WLKPAT		/PRUEFEN VON AUSGANG 2
	7750
	7354
	2

	JMS WLKPAT		/PRUEFEN VON AUSGANG 3
	7750
	7552
	3

	JMS WLKPAT		/PRUEFEN AUSGANG 4
	7750
	7651
	4

	JMS RAMPR
	JMP RAMSTR

BITOT0,	40
BITOT1,	67
BACKFL,	0

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
	JMP I RAMTIT

RMINIT,	0		/SUBROUTINE INITIALISIERUNG

	CLA
	DCA FLSUM1
	DCA FLSUM2
	DCA FLSUM3
	DCA FLSUM4
	DCA BACKFL
	JMP I RMINIT



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

WLKPAT,	0	
	CLA
	TAD I WLKPAT
	DCA BITIN0
	ISZ WLKPAT

	TAD I WLKPAT
	DCA BITIN1
	ISZ WLKPAT

	TAD I WLKPAT
	DCA ERRAUS
	ISZ WLKPAT

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


	DCA RAMLIN
	DCA RAMADR
	DCA FLCNT1
	DCA FLCNT2
	DCA FLCNT3
	DCA FLCNT4
	DCA DEFFLG
	JMP I .+1
	RAMWR

WLKPTI,	JMP I WLKPAT



FLSUM1,	0
FLSUM2,	0
FLSUM3,	0
FLSUM4,	0
FLCNT1,	0
FLCNT2,	0
FLCNT3,	0
FLCNT4,	0
DEFFLG,	0
ERRAUS,	0
BITIN0,	0
BITIN1,	0


PAGE



/LADEN DES SPEICHERS MIT NULLEN ODER 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 NULLEN ODER EINSEN

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
	SZA CLA
	JMP .+6
	JMS DEFECT		/RAM DEFECT ?
	TAD DEFFLG
	SZA
	JMP RAMSTR
	JMP RAMWR1

	ISZ RAMADR
	JMP RAMRD


RAMADR,	0
BITOUT,	0
RMSIZE,	377		/GROESSE DES RAMS
RMOUTP,	0

PAGE


/EINLESEN EINER EINS ODER NULL  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 .+7
	JMS DEFSUM		/ADDITION DER FEHLER
	JMS DEFECT		/RAM DEFECT
	TAD DEFFLG
	SZA CLA
	JMP RAMSTR
	JMP RAMWR0


	ISZ RAMADR
	JMP RAMRD1




PAGE


/RUECKSCHREIBEN EINER NULL ODER EINS AN DIE
/STELLE DER EINS ODER NULL

RAMWR0,	CLA
	TAD BITIN0
	MQL
	TAD RAMLIN	
	6505
	CMA
	6506

	MQA CLA
	6516
	BSW
	6515

	CLA
	TAD RAMLIN
	CIA
	TAD RMSIZE
	SNA CLA
	JMP WLKPTI

	ISZ RAMLIN
	JMP RAMWR1



RAMLIN,	0


PAGE /SUBROUTINE FFEHLERERKENNUNG RAMERR, 0 CLA TAD BACKFL SNA CLA JMP RMERR0 TAD RMOUTP AND M7400 SZA JMP I RAMERR /RETURN KEINE FEHLER RAL SNL ISZ FLCNT1 /AUSGANG 1 RAL SNL ISZ FLCNT2 /AUSGANG 2 RAL SNL ISZ FLCNT3 /AUSGANG 3 RAL SNL ISZ FLCNT4 /AUSGANG 4 JMP I RAMERR /RETURN FUER BACKGROUND 1 RMERR0, TAD RMOUTP AND M7400 SNA JMP I RAMERR /RETURN KEINE FEHLER RAL SZL ISZ FLCNT1 /AUSGANG1 SZL ISZ FLCNT2 /AUSGANG2 RAL SZL ISZ FLCNT3 /AUSGANG3 RAL SZL CLA ISZ FLCNT4 /AUSGANG4 JMP I RAMERR /RETURN FUER BACKGROUND 0 /SUBROUTINE SUMMATION DER FEHLER DEFSUM, 0 CLA IAC CIA 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 ? /RAM IST DEFECT WENN: /PRO DURCHGANG FEHLERANZAHL: 400 /FEHLERSUMME: 4096 DEFECT, 0 CLA TAD FLSUM1 TAD FLCNT1 DCA FLSUM1 TAD FLSUM2 TAD FLCNT2 DCA FLSUM2 TAD FLSUM3 TAD FLCNT3 DCA FLSUM3 TAD FLSUM4 TAD FLCNT4 DCA FLSUM4 TAD NUM1 DCA AUSCTR TAD FLSUMP DCA FLSUMC FLSUML, TAD I FLSUMC IAC SNA JMS RAMDEF ISZ FLSUMC ISZ AUSCTR SPA SNA CLA JMP FLSUML TAD MNDEF TAD FLCNT1 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT2 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT3 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT4 SNA CLA JMS RAMDEF JMP I DEFECT MNUM1, -1 MNDEF, -400 /MAXIMALE ANZAHL D. FEHLER/DURCHGANG FECTPI, FLCNT1 FECTR, 0 M7400, 7400 FLSUMP, FLSUM1 FLSUMC, 0 PAGE /SUBROUTINE AUSDRUCK DER FEHLERANZAHL RAMPR, 0 LINE LINE TDC 4302 4301 4303 4313 4307 4322 4317 4325 4316 4304 4240 240 CLA TAD BACKFL TOCT CLA TAD NUM1 DCA AUSCTR TAD FLSUMP DCA FLSUC1 OUTPR, LINE TDC 4301 4325 4323 4307 4301 4316 4307 4272 240 CLA TAD AUSCTR TOCT TDC 4240 4240 4240 4240 4306 4305 4310 4314 4305 4322 4272 240 CLA TAD I FLSUC1 TOCT ISZ FLSUC1 ISZ AUSCTR CLA TAD AUSCTR TAD MN4 SPA SNA CLA JMP OUTPR JMP I RAMPR FLSUC1, 0 NUM1, 1 MN4, -4 /ANZAHL DER AUSGAENGE PAGE /SUBROUTINE AUSDRUCK WENN RAM DEFECT RAMDEF, 0 CLA TAD DEFFLG SZA CLA JMP I RAMDEF TOCT 4304 4325 4322 4303 4310 4307 4301 4316 4307 4272 240 CLA LINE TAD RAMLIN TOCT /DURCHGANG LINE LINE TDC 4301 4325 4323 4307 4301 4316 4307 4207 240 CLA TAD ERRAUS TOCT LINE JMS RAMPR JMP I RAMDEF AUSCTR, 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