/R2 MESSGERATE-TASK
/DIESES TASK SOLL ANGERUFEN WERDEN MIT EINEM
/GIANT IOT!!!
/DAS HEISST:    CLA
/               TAD FUNTIO	/FUNCTIONSNUMMER
/		6770
/		SKP
/		ADDR		/ADDRES VON MESSWERTE-BUFFER
				/MINUS EINS
/ZUERST WERDEN STATUS INFORMATIONS BITS GELESEN IN EINEM WORT
/VON ZWOELF BITS UND GESPEICHERT
/ZUNEXT 35 PROBE UND REFERENCE WERTEN JEDESMAHL GESPEICHERT
/IN DREI WOERTER.
/NAMENTLICH:  ERSTE WORT  0XX XXX XXX XXX
/	XX XXX XXX XXX LOWORDER 11 BITS VON 4*P-4*C0
/		ZWEITE WORT 0XX XXX YYY YYY
/ XX XXX  HIGHORDER 5 BITS VON 4*P-4*C0
/ YYY YYY HIGHORDER 6 BITS VON 8*R-8*C0
/ DRITTE WORT   0XX XXX XXX XXX
/ XX XXX XXX XXX LOWORDER 11 BITS VON 8*R-8*C0
/WENN IRGENDWIE EIN FEHLER AUFTRITT, WERDEN UEBERHAUPT
/KEIN WERTEN IN BUFFER GEPLATZT !!!!!!!!!!!!

CAM=7621
*200
	"R^100+"2&3777	/TASK NAMEN  'R2'
	1000
R2BGA,	R2BG		/ADDRES BACKGRNDAREAPOINTER
NPAGE,	ROFEL
R2RTST,	AR2RTS		/ADRES RUHESTAND DETEKTION
SCHRIT,	ASCHRI,	APARD		/ADDRES PROBELES REFERENCELESEN
CBUF,	ND ACC SHIFT-ROUTINE
	0MS	DEFER	/ERSTE WORT BACKGRND AREA
PALOW,	TAD	CHOLA
PAHIGH,	DCA I	X	/SET BACKGRND INACTIVE
RALOW,	CDTOIF		/EIGENES DATA-FIELD
RAHIGH,	TAD	X
C0LOW,	DCA I	R2BGA	/FUER NACHSTE PAGINA
C0HIGH,	JMS	MONITOR	/FRAGE ATTATOR
	SIGNAL
	BSSLOT
GESTATTET
	CLA CMA	/-1 
	WAIT
	R2INT		/WARTE LA		/WAR EINE DA?
	JMP	R2VALS	/JA NOCH EIMAL
	JMS I	R2RTST	/IN RUHE SONST ERROR AUSGANG
	JMS I	SCHRIT	/ERSTE SCHRITT ZU NULL
	DCA	PALOW	/PAWERTE SAUBER MACHEN
	DCA	PAHIGH
	JMS I	PARD	/LESE EINE PROBEWERTE
	JMS	PAADD	/UND SPEICHER
	JMS I	RARD	/EINE REFERENCE WERTE
	JMS	PAADD	/ADDITIERE DIESE WERTE
	JMS I	PARD	/EINE PROBE WERTE
	JMS	PAADD	/UND ADDITIERE
	JMS I	RARD	/LETZTER REFERENZ WERT
	JMS	PAADD	/4*C0 JETST
	TAD	PALOW
	CLL CMA IAC
	DCA	C0LOW
	TAD	PAHIGH
	CMA
	SZL
	IAC
	DCA	C0HIGH	/-4*C0 JETST
	JMS I SCHRIT	/380 NM
REPET,	DCA	PALOW
	DCA	PAHIGH
	DCA	RALOW
	DCA	RAHIGH	/ANFANGSWERTEN AUF NULL!!
	JMS I	SCHRIT	/NAECHSTE POSITION VON RAD
	JMS I SCHRIT	/BEGINN BEI 400 NM
	JMS I	PARD	/ERSTE PROBE NICHT BENUTZEN
	JMS I	RARD	/R1
	JMS	RAADD
	JMS	DRIEL	/P2 UND 2*R2
	JMS	DRIEL	/P3 UND 2*R3
	JMS	DRIEL	/P4 UND	2*R4
	JMS I	PARD
	JMS	PAADD	/+P5
	JMS I	RARD
	JMS	RAADD	/+R5
	TAD	C0HIGH
	MQL
	TAD	C0LOW
	JMS	PAADD	/PA-4*C0
	TAD	C0HIGH
	MQL
	TAD	C0
	JMS	RAADD	/RA-8*C0
	AND	PALOW
	ISZ	CBUF
	TAD	PALOW
	RAL
	CLA
L
	TAD	RAHIGH
	CLL RAL
	DCA I	CBUF
	TAD	RALOW
	SPA CLA
	ISZ I	CBUF
	ISZ	CBUF
	CLA CLL CMA RAR	/3777
	AND	RALOW
	DCA I	CBUF	/3 WOERTER OKAY JETST
	ISZ	TELLER	/ALLE 35 WERTEN GEMACHT?
	JMP	REPET	/NEIN
	JMP I	PARD
	JMS	PAADD
	JM	JMS	RAADD
	JMP I	DRIELALOW
	DCA	RALOW
	SWP

	DCA	RAHIGH
	JMP I	RAADD
PAADD,	0
	CLL
	TAD	PALOW
	DCA	PALOW
	SWP
	SZL
	IAC
	TAD	PAHIGH
	DCA	PAHIGH
	JMP I	PAADD
TELLER,	-20		/=-16 DECIMAL
CHOLA,	INACTIVE-EMULATE
PAGE
R2SOUT,	R2OUTS
BAF,	BUF
0
ROFEL,	JMS	ASCHRI
	JMS	ASCHRI
	JMS	AR2RTS
	SKP CLA
ERROR,	ISZ	GERROR	/EIN FEHLER
      	CDF	MONFLD
	TAD	R2BG
	TAD	C3
	JMS	DEFER	/ADDRES USER PC
	IAC
	DCA	R2ARG
	ISZ	X
	TAD I	X	/USERFIELD
	AND	C70
	TAD	C6201
	DCA	R2CDF	/USERDATAFIELD
	TAD	R2CDF
	DCA	R2CDFI
	TAD	R2BG
	TAD	CUSLOT
	JMS	DEFER
	DCA	R2EVENT
	TAD I	R2BG
	TAD	CINA
	DCA I	R2BG	/SET BG EMULATE+INCORE
	JMS	MONITOR
	SIGNAL
	BSSLOT		/WARNE BACKGROUND
	JMS	MONITOR
	WAIT
R2EVENT,	0
R2CDF,	0
	TAD I	R2ARG
	DCA	AUTO10	/ADDRES VON USER
	TAD	GERROR
	SZA	CLA	/ERROR
	JMP	ROLEO	/JA
	TAD	HILF
	JMP	R2CDFI
NOCHML,	CDTOIF
	ISZ	BAF
	TAD I	BAF
R2CDFI,	0
	DCA I	AUTO10	/EIN WORT UEBERTRAG
	ISZ	WIEVIL	/ALLE WOERTER GEMACHT?
	JMP	NOCHML	/NEIN
ROLEO,	JMS	MONITOR
	EXIT SWPOUT
AR2R1
	6504
	DCA	HILF
	65 I	AR2RTS	/IN RUHE
	JMP	0
R2READ,	0
	JMS	R2RECLA CLL
	JMP I	R2READ
ARARD,	0
	JMS I	R2SOUT
	22
	JMS	R2WAAR
	JMP I	ARARD
APARD,	0
	JMS I	R2SOUT
	24
	JMS	R2WAAR
	JMP I	APARD
R2WAAR,	0
	JMS	R2READ
	CAM
	6514
	RTR
	SMA SNL CLA	/SR BITS
	JMP	TWEE
	ITR
	CLL RAL
	JMS	DUBTEM1
	CLL RTL
	JMS	DUB	R2WAAR
DUB,	0
	RAL
	
	CLL RAL
	JMP I	DUB
ASCHRI,	0
	JMS I	R2SOUT
	30
	JMS	R2REDY
	JMP I	ASCHRI
R2REDY,	0
	AC4000
	JMS	MONITOR
	WAIT
	R2INT
	SZA CLA
	JMP	ERROR
	6514
	AND	C4
	SNA	CLA
	JMP I	R2REDY
	JMP	ERROR
R2BG,	0
R2ARG,	0
CUSLOT,	USLOT
CINA,	-INACTIVE+EMULATE+INCORE
WIEVIL,	-20^3
PAGE
SHOFT,	0
	CLL RAL
	SWP
	RAL
	SWP
	JMP I	SHOFT
R2OUTS,	0
	IOF
	CLA CMA
	6505		/CLEAR ALL IO
	JMS	TIME	/WAIT 30 MICRO'S
	TAD I	R2OUTS
	6506		/NEW OUTPUT COMMAND
	JMS	TIME
	CLA CLL CML RTL	/2
	RTL		/10
	6513		/CLEAR IR
	ISZ	R2OUTS
	ION
	JMP I	R2OUTS
TIME,	0
	CLA CLL CMA RTL
	DCA	ZTEM2
	ISZ	ZTEM2
	JMP	.-1
	JMP I	TIME
BUF,	ZBLOCK	3^43+1