PAGE


/***************** BURSTC ********************************************
/29.3.76				DIETER COY CS/FZNR
/CALL:	BURSTC
/	INPUTTAFEL
/	OUTPUTTAFEL
/	TAFELLAENGE
/	FELD
/	ZUSTANDSSCHWELLE 1
/	ZUSTANDSSCHWELLE 2
/	FEHLERSCHWELLE 1
/	FEHLERSCHWELLE 2
/	FEHLERSUMME

BURSTC,	11
	BLOTNT
	BCINT

	TAD BCT1
	DCA BCP1
	TAD BCT2
	DCA BCP2
	TAD BCTL
	DCA BCCT
	DCA BCFS

BCLOP,	INBLIP
	
	ZZG4
BCS1,	7
	BCERR

	ZZG1
BCS2,	5
	BCSTAT
	
	BLOUT

	TAD BCERR
	SZA
	ISZ BCFS
	
BCCDF,	CDF 10
	TAD I BCP1
	RAR
	CLA RAL
	DCA I BCP2
BCRF,	CDF 10

	TAD BCSTAT
	SNA CLA
	JMP BCLC2

	TAD BCS1
	TAD BCM7
	SNA CLA
	JMP BCLC1

	TAD BCA5
	DCA BCS2
	TAD BCA7
	DCA BCS1

BCLC2,	ISZ BCP1
	ISZ BCP2
	ISZ BCCT
	JMP BCLOP

	TAD BCFS
	PUT
	11
	INEND

BCLC1,	TAD BCA6
	DCA BCS2
	TAD BCA8
	DCA BCS1

	JMP BCLC2

BCINT,	GETAD
	1
	DCA BCT1
	GETAD
	2
	DCA BCT2
	ACUM
	3
	CIA
	DCA BCTL
	ACUM
	4
	TAD KCDF
	DCA BCCDF
	RIF
	TAD KCDF
	DCA BCRF
	TAD BCA7
	DCA BCS1
	TAD BCA5
	DCA BCS2
	JMP BURSTC+3

BCM7,	-7
KCDF,	CDF
BCCT,	0
BCT1,	0
BCT2,	0
BCP1,	0
BCP2,	0
BCA5,	5
BCA6,	6
BCA7,	7
BCA8,	10
BCTL,	0
BCFS,	0
BCERR,	0
BCSTAT,	0