/64 X 4 BIT FIFO TESTEN MIT CHECKERBOARD
PAGE

START,	TLS
	CLA
	LINE
	TDC
	4306
	4311
	4306
	4317
	4240
	4316
	4322
	256

FIFTIT,	RTCHAR
	CHECK
	212
	JMP INIT
	JMP FIFTIT

INIT,	CLA		/EINLESEN INS FIFO
	DCA DATAFG
	DCA ENTERR
	DCA FELCTR
	TAD M64
	DCA LPCTR

	CLEAR
	SI SO

	SET
	MR

	NPULSE
	MR

	FIFOIN		/EINLESEN VON IR
	AND MASK1
	JMS IRIN

	FIFOIN		/EINLESEN VON OR
	AND MASK2
	JMS ORIN

	TAD IRINP
	SZA CLA
	JMP INERR

	TAD ORINP
	SNA CLA
	JMP INERR

INLOOP,	TAD DATAFG
	SZA CLA		/IF FLAG = 0, DATEN = 0
	JMP DATONE	/DATEN = 1

	CLEAR		/DATEN = 0
	DATEN

	ISZ DATAFG
INRET,	NPULSE
	SI

	ISZ LPCTR
	JMP  INLOOP



	CLA		/AUSLESEN AUS FIFO
	DCA DATAFG
	TAD M64
	DCA LPCTR
	CLEAR
	SI

	FIFOIN		/EINLESEN VON OR
	AND MASK2
	SZA CLA
	ISZ FELCTR
	FIFOIN		/EINLESEN VON IR
	AND MASK1
	SNA CLA
	JMP STATOT

OUTLOP,	NPULSE
	SO
	TAD DATAFG
	SZA CLA
	JMP DATONO

	FIFOIN
	AND MASK3
	TAD MDATEN
	SZA CLA
	ISZ ENTERR
	IAC
	DCA DATAFG
OUTRET,	ISZ LPCTR
	JMP OUTLOP

	FIFOIN		/EINLESEN VON IR
	AND MASK1
	JMS IRIN
	FIFOIN		/EINLESEN VON OR
	AND MASK2
	JMS ORIN
	TAD IRINP
	SZA CLA
	ISZ FELCTR
	TAD ORINP
	SNA CLA
	JMP FILEER
	JMP I .+1
	NEWPAG
DATAFG,	0
FELCTR,	0
M64,	-100
LPCTR,	0
MASK1,	IR
MASK2,	OR
MASK3,	DATEN
IRINP,	0
ORINP,	0
ENTERR,	0
MDATEN,	-DATEN


PAGE

NEWPAG,	LINE		/FEHLERAUSDRUCK
	CLA
	TDC
	4306
	4305
	4310
	4314
	4305
	4322
	4272
	240
	TAD ENTERR
	TOCT
	LINE
	TDC
	4323
	4324
	4301
	4324
	4325
	4323
	4306
	4305
	4310
	4256
	4272
	240
	TAD FELCTR
	TOCT
	LINE
	MOSTSR
	JMP START



IRIN,	0
	DCA IRINP
	JMP I IRIN


ORIN,	0
	DCA ORINP
	JMP I ORIN

DATONE,	SET		/DATEN = 1
	DATEN
	DCA DATAFG
	JMP INRET


DATONO,	FIFOIN		/EINLESEN VON 1
	AND MASK3
	SZA CLA
	ISZ ENTERR
	DCA DATAFG
	JMP OUTRET


INERR,	LINE
	TDC
	4323
	4324
	4301
	4324
	4325
	4323
	4306
	4305
	4310
	4314
	4305
	4322
	4311
	4316
	4320
	4325
	324
	LINE
	TDC
	4311
	4322
	275
	TAD IRINP
	TOCT
	LINE
	TDC
	4317
	4322
	275
	TAD ORINP
	TOCT
	JMP START

STATOT,	LINE
	TDC
	4323
	4324
	4301
	4324
	4325
	4323
	4306
	4305
	4310
	4314
	4305
	4322
	4317
	4325
	4324
	4320
	4325
	324
	LINE
	JMP START

FILEER,	LINE
	TDC
	4306
	4311
	4306
	4317
	4240
	4314
	4305
	4305
	322
	LINE
	JMP START