CLEAR=JMS I 43
SET=JMS I 44
REFRSH=JMS I 45

RF=2
CL=40
TG=100
RW=20
TR=1000
MUX=4
WE=10
FQ=200
CS=400
DI=1
FE=2000

*40
RAMLIC,	0
RABIC,	0
RAMFEP,	0
SRCLR
SRSET
SRFRSH


*1000


RAMSTR,	LINE
	TDC		/OLD OR NEW(O OR N)
	4317
	4314
	4304
	4240
	4317
	4322
	4240
	4316
	4305
	327
	LINE

	RTCHAR
	CHECK
	317
	JMP RAMALT

	MOSTGO





/EINLESEN VON SETACK M UND N (ZEILEN U. SPALTEN)
/EINLESEN VON DELAY (LOW A. HIGH)
/EINLESEN VOM BITMUSTER UND AUSDRUCK

RAMNEU,	TAD RAMTRN
	CIA
	IAC
	DCA RAMTRN
	TAD RAMTRM
	CIA
	IAC
	DCA RAMTRM

RAMBIT,	LINE		/BITMUSTER:
	TDC
	4302
	4311
	4324
	4315
	4325
	4323
	4324
	4305
	322
	LINE

RAMIN,	CLA		/EINLESEN DES BITMUSTERS
	TAD RABIP
	DCA RABIC
	TAD RAMMN4
	DCA RAMCTN
	TAD RAMMN4
	DCA RAMCTM

RAMRED,	RCHAR
	TAD RMN260
	DCA I RABIC
	TAD I RABIC
	TAD RN260
	TCHAR
	ISZ RABIC
	ISZ RAMCTN
	JMP RAMRED

	LINE
	TAD RAMMN4
	DCA RAMCTN
	ISZ RAMCTM
	JMP RAMRED

	LINE
	LINE






/INITALISIERUNG UND UEBERSCHRIFT

RAMALT,	TLS
	CLA IAC
	DCA RAMFLG
	TAD RABIP
	DCA RABIC
	TAD RAMN16
	DCA RAMCTR
	TAD RAMLIP
	DCA RAMLIC
	DCA I RAMLIC
	ISZ RAMLIC
	ISZ RAMCTR
	JMP .-3

	TAD RAMFEL
	DCA RAMFEP
	TAD RAMN16
	DCA LPCNT
	DCA RAMFEC
	DCA RAMSTA


	LINE		/UEBERSCHRIFT
	TDC
	4322
	4301
	4315
	4240
	4316
	4322
	4272
	240

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

	LINE
	JMS SURE

	RCHAR
	CHECK
	331
	JMP RAMAIN
	JMP RAMSTR


RMN260,	-260
RN260,	260
RAMN16,	-20
RAMCTR,	0


PAGE




/INITALISIERUNG DER STEUERSIGNALE

RAMAIN,	CLA
	TAD RAMMN4
	DCA RAMCTN
	TAD RAMMN4
	DCA RAMCTM
	TAD RAMLIP
	DCA RAMLIC
	TAD RAMN16
	DCA LPCNT
	TAD RABIP
	DCA RABIC



/INITIALISIERUNG DES CLOCK ENABLE REGISTERS

	CLA CMA
	CLZE	
	CLA
	TAD BUFFER
	CIA
	CLAB
	CLA
	TAD ENABLE		/ENABLE REAL TIME CLOCK
	CLOE

	SET	
	CS FQ TG CL RW WE MUX RF TR
	CLEAR
	CL TG FQ FE
	SET
	CL

	JMS RAMCOR		/ADRESSEN BERECHNEN
RAMSTA,	0






/ZWISCHENSPEICHER EINSCHREIBEN

RAMZSP,	SET	
	TR
	CLA
	TAD I RAMLIC		/ADRESSEN EINSCHREIBEN
	6515
	CMA
	6516
	CLA

	XXX

	CLEAR
	DI
	TAD I RABIC
	6505
	ISZ RAMLIC
	ISZ RABIC

	XXX

	CLEAR
	CS
	CLEAR
	WE
	SET
	CS
	SET
	WE
	CLEAR
	TR
	ISZ LPCNT
	JMP RAMZSP






/HARDWARE TEST

	6504
	SMA			/ZWISCHENSPEICER VOLL
	MOSTGO
	CLA

	XXX




/PROGRAMMIERBARES DELAY

	SWAB	
	CAM DAD
	RAMDLY
	DCM
	DPIC

	XXX

	DPSZ
	JMP .-5








/EINSCHREIBEN IN DAS 4KRAM

	CLEAR	
	CL RW MUX
	CLEAR
	CS
	SET
	CL
	SET
	TG

	XXX

	6504
	SMA			/16 BIT INS 4KRAM EINGELESEN?
	JMP .-2

	XXX





/AUSLESEN AUS DEM 4KRAM

	CLEAR
	TG CL
	SET
	RW CL
	SET
	TG
	JMP I .+1
	NEXTPA

RAMDLY,	0
	0
LPCNT,	0
ENABLE,	5600
BUFFER,	3720


PAGE






/FEHLERERKENNUNG: VERGLEICH ZWISCHEN EINGELESENEM UND
/AUSGELESENEM BITMUSTER


NEXTPA,	SET
	FE FQ
	CLEAR
	FQ

RAMFIN,	6504			/F EINLESEN
	AND M2000
	SNA CLA
	JMP RAMOKY		/KEIN FEHLER

	XXX

	6514
	CMA
	DCA I RAMFEP
	ISZ RAMFEP

	XXX

	6524
	CMA
	DCA I RAMFEP
	ISZ RAMFEP

	ISZ RAMFEC
	TAD RAMFEC
	DCA FELZAL
	TAD FELZAL
	TAD MN200

	XXX

	SNA CLA
	JMP RAMDEF

	6504
	SPA CLA
	JMP TSTEND

	SET
	FQ
	CLEAR
	FQ
	JMP RAMFIN

RAMOKY,	XXX

	6504
	SMA CLA
	JMP RAMFIN

PAGE




/4KRAM GETESTET

TSTEND,	SET
	FQ

	CLEAR
	FQ

	CLEAR
	FE

	CLA
	TAD RAMSTA
	IAC

	XXX

	SZA CLA
	JMP RAMAIN



/AUSDRUCK DER FEHLER UND FEHLERHAFTEN ADRESSEN


	LINE

	TDC		/FEHLERANZAHL
	4306
	4305
	4310
	4314
	4305
	4322
	4301
	4316
	4332
	4301
	4310
	4314
	240
	CLA
	TAD RAMFEC
	TOCT
	LINE

	TDC		/AUSDRUCK???
	4301
	4325
	4323
	4304
	4322
	4325
	4303
	4313
	4277
	4277
	277

	CLA
	RTCHAR
	CHECK
	331		/YES
	SKP
	JMP RAMSTR


	LINE
	CLA
	TAD RAMFEC
	CIA
	DCA RAMFEC
	TAD RAMFEL
	DCA RAMFEP

FELPRT,	TAD I RAMFEP
	TOCT
	TDC
	4240
	240
	ISZ RAMFEP
	TAD I RAMFEP
	TOCT
	LINE
	ISZ RAMFEP
	ISZ RAMFEC
	JMP FELPRT

	JMP RAMSTR




/RAM DEFEKT

RAMDEF,	LINE
	TDC		/MEHR ALS 177 FEHLER
	4322
	4301
	4315
	4240
	4304
	4305
	306
	LINE
	JMP RAMSTR


MN200,	-200
M2000,	2000
RAMFEC,	0




PAGE



			/SUBROUTINE ZUR BERECHNUNG DER ADRESSEN
			/1.ARG: STAND DER LETZTEN BERECHNETEN ADRESSE




RAMCOR,	0	
	CAM
	TAD I RAMCOR
	DCA RAMOLD
	TAD RAMFLG
	SZA CLA		/FALL1: WENN AC=/0;DANN 1.DURCHGANG
	JMP RAMIAC

	XXX

	TAD RAMOLD
	AND RM77
	TAD RAMN77	/FALL2:WENN AC=0;DANN 63 ZEILEN
	SNA CLA
	JMP RAMNEW

	XXX

	TAD RAMOLD
	BSW
	TAD RAMMN3	/ALTES M-4 BEIBEHALTEN
	BSW
	TAD RAMTRN	/VERSCHIEBUNG VON N
	JMP RAMIAC

RAMNEW,	XXX

	TAD RAMOLD
	BSW
	TAD RAMTRM	/VERSCHIEBUNG VON M
	BSW
	AND RM7700	/N=0

RAMIAC,	XXX

	MQL
	TAD RAMLIP
	DCA RAMLIC
RAMHGN,	MQA

RAMHG,	XXX

	DCA I RAMLIC
	TAD I RAMLIC
	IAC
	ISZ RAMLIC
	ISZ RAMCTN
	JMP RAMHG

	XXX

	CLA
	TAD RAMMN4
	DCA RAMCTN
	DCA RAMFLG
	MQA
	BSW
	IAC
	BSW
	MQL
	ISZ RAMCTM
	JMP RAMHGN

	XXX

	CLA
	TAD RAMMN4
	DCA RAMCTM
	CMA
	TAD RAMLIC
	DCA RAMLIC

	XXX

	TAD I RAMLIC
	DCA I RAMCOR
	ISZ RAMCOR

	TAD RAMLIP
	DCA RAMLIC
	JMP I RAMCOR
RAMOLD,	0
RAMFLG,	0
RM77,	77
RAMN77,	-77
RAMMN3,	-3
RAMMN4,	-4
RAMTRN,	0
RAMTRM,	0
RM7700,	7700
RAMLIP,	RAMLIS
RAMLIS,	ZBLOCK 20
RAMCTN,	0
RAMCTM,	0
RABIP,	RABILI
RABILI,	ZBLOCK 20
FELZAL,	0

PAGE






				/SUBROUTINE REFRESH
SRFRSH,	0
	DCA SAVEAC
	MQA
	DCA SAVEMQ
	CLSA
	CLA
	TAD Z40
	DCA RECTR
	CMA
	AND N2
	6506
	ISZ RECTR
	JMP .-1
	6505
	CLA
	TAD SAVEMQ
	MQL
	TAD SAVEAC
	JMP I SRFRSH

				/SUBROUTINE LOESCHEN D. CONTROLSIGNALS

SRCLR,	0
	CLA
	TAD I SRCLR
	6506
	ISZ SRCLR

	XXX

	JMP I SRCLR




				/SUBROUTINE SETZEN D. CONTROLSIGNALS

SRSET,	0
	CLA
	TAD I SRSET
	6505
	ISZ SRSET

	XXX

	JMP I SRSET

SURE,	0		/ARE YOU SURE
	TDC
	4301
	4322
	4305
	4240
	4331
	4317
	4325
	4240
	4323
	4325
	4322
	305
	JMP I SURE


SAVEAC,	0
SAVEMQ,	0
Z40,	-15
RECTR,	0
N2,	2


PAGE

RAMFEL,	RAMFEA
RAMFEA,	ZBLOCK 376