/16 K RAM - EINS, NULL, CHECKERBOARD TEST
/1=EINSER TEST, 0=NULL TEST, C=CHERERBOARD

WE=10
TRIG=40
DOUT=4000
DI=20


*1200
	TLS		/UEBERSCHRIFT
START,	SWAB
	LINE
	TDC
	4322
	4301
	4315
	4240
	4316
	4322
	4272
	240

	RTCHAR
	CHECK
	212
	SKP
	JMP .-4		/END OF COMMENT

	LINE
	TDC
	4302
	4311
	4324
	4315
	4325
	4323
	4324
	4305
	4322
	4240
	4260		/INPUT ZERO
	4240
	4261		/INPUT ONE
	4240
	4303		/INPUT CHECKERBOARD
	277
	JMP I .+1
	INIT

PAGE


INIT,	CAM DST
	ADRCTR
	DST
	FELCTR
	CLA
	DCA CHEFLG
	DCA NCHEFL
	DCA NULLFG
	RTCHAR
	CHECK
	260
	JMS ZEROIN
	CHECK
	261
	JMS ONEIN
	CHECK
	303
	JMS CHEKIN
	CLEAR
	TRIG
	SET
	WE
	CLEAR
	WE
	LINE

	TAD NCHEFL	/CHECKERBOARD ??
	SNA CLA
	JMP RAMIN
RAMINC,	TAD CHEFLG
	SZA CLA
	JMP CHEK1		/CHECKERBOARD
	JMP CHEK0

RAMIN,	NOP
OUTDA,	0		/AUSGEBEN DER NULL ODER EINS
	DI

	CAM DAD
	ADRCTR
	JMS ADRMOD	/ANLEGEN DER ADRESSEN LOW UND HIGH

	JMS ADRLOP		/EINLESEN BEENDET?
	CLA
	TAD NULLFG
	SZA CLA
	SKP
	JMP RAMOUT
	TAD NCHEFL
	SNA CLA
	JMP RAMIN
	JMP RAMINC


RAMOUT,	SET
	WE
	DCA NULLFG
	CAM DST
	ADRCTR

	DCA CHEFLG
	TAD NCHEFL		/CHECKERBOARD ??
	SNA CLA
	JMP RMOUT
RMOUTC,	TAD CHEFLG
	SZA CLA
	JMP CHEK1S
	JMP CHEK0S

RMOUT,	CAM DAD
	ADRCTR
	JMS ADRMOD

	INPUT		/AUSLESEN DER DATEN AUS DEM RAM
	AND DOMASK
ERRSKP,	0		/SKIP WIRD VOM PROGRAMM AUSGETAUSCHT
	JMS INERR
	JMS ADRLOP
	CLA
	TAD NULLFG
	SZA CLA
	SKP
	JMP FELPRT
	TAD NCHEFL
	SNA CLA
	JMP RMOUT
	JMP RMOUTC


CHEK1,	CLA
	DCA CHEFLG
	TAD SETP
	DCA OUTDA
	JMP RAMIN

CHEK0,	CLA IAC
	DCA CHEFLG
	TAD CLEARP
	DCA OUTDA
	JMP RAMIN

CHEK1S,	CLA
	DCA CHEFLG
	TAD SKP0
	DCA ERRSKP
	JMP RMOUT

CHEK0S,	CLA IAC
	DCA CHEFLG
	TAD SKP1
	DCA ERRSKP
	JMP RMOUT


ADRCTR,	0;0
NCHEFL,	0
DOMASK,	DOUT
CHEFLG,	0
NULLFG,	0


PAGE



ZEROIN,	0		/INPUT 0
	CLA
	TAD CLEARP
	DCA OUTDA
	TAD SKP1
	DCA ERRSKP
	JMP I ZEROIN

ONEIN,	0		/INPUT 1
	CLA
	TAD SETP
	DCA OUTDA
	TAD SKP0
	DCA ERRSKP
	JMP I ONEIN

CHEKIN,	0		/INPUT CHECKERBOARD
	CLA IAC
	DCA NCHEFL
	JMP I CHEKIN

ADRMOD,	0		/BERECHNEN DER ADRESSEN
	SHL		/ADRESSE HIGH IN MQ, ADRESSE LOW IN ACC
	5
	DCA ADRHGH
	LSR
	5
	SWP
	DCA ADRLOW
	TAD ADRLOW		/OUTPUT VON LOW ADDRESS
	OUTPUT
	NPULSE
	TRIG
	TAD ADRHGH
	OUTPUT			/OUTPUT VON HIGH ADDRESS
	JMP I ADRMOD

INERR,	0		/ZAEHLEN DER FEHLER
	ISZ FELCTR
	CLA
	TAD FELCTR
	SNA CLA
	ISZ FELCTR+1
	JMP I INERR

FELPRT,	TDC
	4306
	4305
	4310
	4314
	4305
	4322
	240

	CAM DAD
	FELCTR
	TOCT
	SWP
	TOCT
	JMP START

ADRLOP,	0		/ALLE ADRESSEN ABGEARBEITET?
	CAM DAD
	ADRCTR
	DPIC
	DST
	ADRCTR
	DCM
	DAD
	RMSIZE
	DPSZ
	JMP READAG
	DCA NULLFG
	JMP I ADRLOP

READAG,	CLA IAC
	DCA NULLFG
	JMP I ADRLOP


ADRHGH,	0
ADRLOW,	0
FELCTR,	0;0
SKP0,	7440
SKP1,	7450
CLEARP,	CLEAR
SETP,	SET
RMSIZE,	0;4	/RAMSIZE 3 7777;HIGH ADRESS 177,LOW ADRESS 177