FIELD 1
*1000




INITEG,	0		/INITALISIERUNG ZUFALLSZAHL
	CLA
	CDF 10
	JMS R
	CLA
	TAD CALL
	CIA
	DCA CURCAL
	DCA BUFLAG
	TAD BULANG
	CIA
	DCA BUSTAT
	JMS PRAN
	ISZ CURCAL
	JMP .-2
	CIF 0
	JMS I INITEG
				/CALL: BURST
ANFG,	0	
	DCA LITEM
	CDF 10
	TAD LITEM
	RAR
	JMS BURST
	BUARG
	BIARG
	BULANG
	CLA
	RAL
	CIF 0
	JMP I ANFG

LITEM,	0
BUARG,	0
BIARG,	0
BULANG,	0
BUSTAT,	0
				/ADR. ARGUMENT BURST-VERGLEICH
				/ADR. ARGUMENT BIT-VERGLEICH
				/ADR. LAENGE DES BURST
				/ADR. STATE DES BURST

BURST,	0
	CLA
	RAR
	DCA BULINK

	TAD I BURST
	DCA BUARGU
	ISZ BURST

	TAD I BURST
	DCA BIARGU
	ISZ BURST

	TAD I BURST
	ISZ BURST
	DCA BUTEM1
	TAD I BUTEM1
	DCA BULANU

	TAD I BURST
	ISZ BURST
	DCA BUTEM1
	TAD I BUTEM1
	DCA BUZAHL

	TAD BUFLAG
	SZA
	JMP IMBUR
	JMS PRAN

	CLL
	TAD I BUARGU
	SNL CLA
	JMP BUWEIT
	JMS PRAN

	CLL
	TAD BUGREN		/DOUBLE PRECISION
	SNL CLA
	JMP BUWEIT

	CLL IAC
	DCA BUFLAG

IMBUR,	ISZ BUZAHL
	JMP BUZAPO
	TAD BULANU
	CIA
	DCA I BUTEM1
	DCA BUFLAG
	JMP BUWEIT

BUZAPO,	TAD BUZAHL
	DCA I BUTEM1
	JMS PRAN
	CLL
	TAD I BIARGU
	SZL CLA
	TAD BN4000

BUWEIT,	TAD BULINK
	RAL
	CLA
	JMP I BURST



BUTEM1,	0
BULINK,	0
BUARGU,	0
BIARGU,	0
BUZAHL,	0
BUFLAG,	0
BUGREN,	0
BN4000,	4000
BULANU,	0


CALL,	100		/NUM OF CALLS FOR PRAN
CURCAL,	0



PAGE


R,	HLT
	JMP R+63
PRAN,   HLT
        CLA
        TAD R+77
        RAL
        AND R+71
        DCA R+74
        TAD R+76
AND R+70
TAD R+74
7006
7006/RAL RAT
RAL
DCA R+72
TAD R+77
AND R+70
7006
7006
RAL
TAD R+76
DCA R+73
7430/SNL SKP
ISZ R+72
7000
TAD R+77
7104/CLL RAL
7430
ISZ R+73
SKP
ISZ R+72
7000
CLL
TAD R+77
DCA R+77
TAD R+76
RAL
7430
ISZ R+72
7000
CLL
TAD R+73
DCA R+76
TAD R+75
RAL
TAD R+75
TAD R+72
DCA R+75
TAD R+75
JMP I PRAN
0/NOT USED
7201/CLA IAC
DCA R+77
DCA R+76
DCA R+75
JMP I R
177
7400
0
0
0
0
0
0
HLT
HLT
FLAG1,  0  /FLAG FOR BIT 11
FLAG2,  0



$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$