/	FEHLERLISTE LESEN
/
/	AUSGABE: A.1		DATUM: 17.3.76
/
*10
INEV,	0
INEY,	0
INEZ,	0
/
*3000
/
/00
/
BE00,	KCC
	TLS
	JMS I BE0C	/CR,LF
	CLA CLL
	TAD BE0A		/LH72-1
	DCA INEV
/
/01
/
BE01,	TAD I INEV
	SNA
	JMP BE10
	JMS I BE0B		/AUSDRUCK
	JMP BE01
/
/10
/
BE10,	NOP
	TAD BE0ZC
	DCA I BE0ZB	/TEXT LH75
/02
/
BE02,	JMS I BE0C		/(CR), (LF)
/
/03
/
BE03,	NOP
/
BE04,	NOP
	JMS I BE0E	/EINSCHUBNRN. EINGEBEN
/
	JMS I BE0C
	TAD I BE0F
	SNA CLA		/ANZ. EINSCHUBNRN. = 0 ?
	JMP BE05	/JA
/
	JMS I BE0G	/FEHLERL. AUSDR.
/
BE05,	CLA CLL
/
BE07,	JMS I BE0C	/ENDEROUTINE
	JMS I BE0C	/CR/LF
/
	TAD BE0N
	DCA INEV
	TAD I INEV
	SNA
	JMP BE08
	JMS I BE0B	/AUSDRUCK "ENDE"
	JMP .-4
/
BE08,	JMS I BE0C	/CR/LF
	JMP I BE0I	/ZUM RAHMENPROGRAMM
/
/
BE18U,	0	/FEHLERROUTINE
	CLA
	JMS I BE0C	/CR/LF
	TAD BE0ZE
	DCA INEV
	TAD I INEV
	SNA
	JMP I BE18U	/RUECKSPRUNG
	JMS I BE0B	/AUSGABE TEXT LH76
	JMP .-4
/
/
BAU30,	0	/ROUTINE CR/LF
	CLA
	TAD BE0ZF
	JMS I BE0B
	TAD BE0ZG
	JMS I BE0B
	JMP I BAU30
/
/
BE0A,	LH72-1
BE0B,	AU00
BE0C,	BAU30
BE0E,	BEUP1
BE0F,	LH71
BE0G,	BEUP2
BE0I,	DU00	/ZUM RAHMENPROGRAMM
BE0N,	LH78-1
BE0ZB,	BE1G
BE0ZC,	LH75-1
BE0ZE,	LH76-1
BE0ZF,	215
BE0ZG,	212
/
/
*3200
/
BEUP1,	0	/ROUTINE EINSCHUBNRN. EINGEBEN
/
BE12,	TAD BE1O		/-22
	DCA BE1P		/ZAEHLER 1
	TAD BE1J
	DCA BE1Q	/ADR. EINSCHUBNRN.LISTE
/
/13
/
BE13,	JMS I BE1F		/(CR), (LF)
	TAD BE1G		/LH75-1
	DCA INEV
	TAD I INEV
	SNA
	JMP BE14
	JMS I BE1H		/AUSDRUCK
	JMP .-4
/
/14
/
BE14,	CLA CLL
	DCA BE1Y
	DCA BE1Z		/A
	DCA BE1Z+1		/B
	DCA BE1Z+2		/C
/
/15
/
BE15,	CLA		/EINGABE
	JMS I BE1I
	DCA BE1X
	TAD BE1X
	TAD BE1W
	SNA
	JMP BE15		/SPACE
	TAD BE1V
	SNA
	JMP BE14		/"/"
	TAD BE1T
	SZA
	JMP .+3
	ISZ BE1Z+2		/C :=1
	JMP BE17		/!
	TAD BE1S
	SNA CLA
	JMP BE17A		/(CR)
/
BE15A,	TAD BE1Z+1		/B
	SZA CLA
	JMP BE18		/FEHLER
	TAD BE1Z		/A
	SZA CLA
	JMP BE16
	ISZ BE1Z		/A :=1
	TAD BE1X
	TAD BE1U
	SPA
	JMP BE18		/FEHLER
	TAD BE1R		/-10
	SMA CLA
	JMP BE18		/FEHLER
	TAD BE1X
	TAD BE1U		/-260
	DCA BE1Y		/SPEICHER
	JMP BE15
/
/16
/
BE16,	TAD BE1Y
	CLL RAL
	DCA BE1Y
	TAD BE1Y
	CLL RTL
	TAD BE1Y		/1. ZAHL X 10
	TAD BE1X		/2.	"
	TAD BE1U		/-260
	DCA BE1Y
	TAD BE1Y
	SPA SNA
	JMP BE18
	TAD BE1O
	SMA SZA		/ZAHL ZULAESSIG ?
	JMP BE18		/NEIN
	ISZ BE1Z+1
	JMP BE15
/
/17
/
BE17,	CLA
	TAD BE1Y
	SNA
	JMP BE18		/FEHLER
	DCA I BE1Q	/NR.(EINSCHUB) IN LISTE
	ISZ BE1Q
	ISZ BE1P	/22. EINTRAG ?
	JMP BE14	/NEIN
	JMP BE17B
/
BE17A,	NOP
/
BE17A1,	TAD BE1Y
	DCA I BE1Q
	ISZ BE1Q
/
BE17B,	DCA I BE1Q
	JMP I BEUP1	/RUECKSPRUNG
/
/18
/
BE18,	JMS I BE1K
	JMP BE12
/
/
BE1F,	BAU30
BE1G,	0
BE1H,	AU00
BE1I,	EI00
BE1J,	LH71
BE1K,	BE18U
BE1O,	-26
BE1P,	0
BE1Q,	0
BE1R,	-12			/-10
BE1S,	37
BE1T,	3
BE1U,	-260
BE1V,	-17
BE1W,	-240
BE1X,	0
BE1Y,	0			/SPEICHER - ZAHL
BE1Z,	0			/A
	0			/B
	0			/C
/
*3400
/
BEUP2,	0	/FEHLERLISTE AUSDRUCKEN
	TAD BE2C
	DCA INEV	/ADR LISTE MIT EINSCHUBNRN.
/
BE20,	TAD I INEV
	SNA		/LISTENENDE ?
	JMP I BEUP2	/JA-RUECKSPRUNG
/
	DCA BE2B	/ZW.SP. EINSCH.NR.
/
	TAD BE2A
	TAD BE2B
	DCA BE2Z	/ADR. FEHLERL. FUER EINSCH.NR.
	TAD I BE2Z
	DCA INEY
/
/
	TAD BE2B
/20
	TAD BE3A
	SPA
	JMP BE25
	TAD BE3A
	SPA
	JMP BE26
	TAD BE3C
	DCA I BE2D
	TAD BE3D
	JMP BE27
/
BE25,	TAD BE3B
	TAD BE3C
	DCA I BE2D
	TAD BE2K
	JMP BE27
/
BE26,	TAD BE3B
	TAD BE3C
	DCA I BE2D
	TAD BE2J
/
BE27,	DCA I BE2E
	TAD BE2F
	DCA INEZ
	JMS I BE2G
	TAD I INEZ
	SNA
	JMP BE28
	JMS I BE2H
	JMP .-4
/
BE28,	JMS I BE2X
	JMP BE20
/
/
BE2A,	LH77-1
BE2B,	0
BE2C,	LH71-1
BE2D,	LH74+17
BE2E,	LH74+16
BE2F,	LH74-1
BE2G,	BAU30
BE2H,	AU00
BE2J,	261
BE2K,	240
BE2X,	BE40
BE2Z,	0
/
BE3A,	-12
BE3B,	12
BE3C,	260
BE3D,	262
/
*3600
/
/
LH80=6020
/
BE40,	0
	TAD BE4A
	DCA INEZ
	JMS BESCH
	TAD BE4H
	DCA INEZ
	JMS BESCH
	TAD BE4J
	DCA INEZ
	TAD INEY
	TAD BE4K
	DCA INEY
	JMS BESCH
	TAD BE4L
	DCA INEZ
	JMS BESCH
	JMS I BE4M
	TAD BE4R
	DCA INEZ
	TAD I INEZ
	SNA
	JMP I BE40
	JMS I BE4N
	JMP .-4
/
/
BESCH,	0
	TAD BE4B
	DCA BE4Z
/
BES0,	DCA BE4X
	CDF+20
	TAD I INEY
	CDF+00
	CIA
	TAD BE4D
	SPA
	JMP BES1
	ISZ BE4X
	JMP .-4
/
BES1,	TAD BE4C
	DCA BE4Y
	TAD BE4X
	TAD BE4E
	DCA I INEZ
	DCA BE4X
	TAD BE4Y
	TAD BE4B
	SPA
	JMP BES2
	ISZ BE4X
	JMP .-4
/
BES2,	TAD BE4F
	DCA BE4Y
	TAD BE4X
	TAD BE4E
	DCA I INEZ
	DCA BE4X
	TAD BE4Y
	TAD BE4E
	DCA I INEZ
	ISZ INEZ
	ISZ BE4Z
	JMP BES0
	JMP I BESCH
/
/
BE4A,	TAB1+22
BE4B,	-12
BE4C,	144
BE4D,	-144
BE4E,	260
BE4F,	12
BE4G,	-1
BE4H,	TAB2+22
BE4J,	TAB3+22
BE4K,	644
BE4L,	TAB4+22
/
BE4M,	BAU30
BE4N,	AU00
BE4R,	TAB1-1
/
BE4X,	0
BE4Y,	0
BE4Z,	0
/
/
LH75,	326			/V
	305			/E
	322			/R
	323			/S
	325			/U
	303			/C
	310			/H
	250			/(
	305			/E
	311			/I
	316			/N
	323			/S
	303			/C
	310			/H
	325			/U
	302			/B
	251			/)
	272			/:
	0
LH76,	306			/F
	305			/E
	310			/H
	314			/L
	305			/E
	322			/R
	310			/H
	301			/A
	306			/F
	324			/T
	305			/E
	240
	305			/E
	311			/I
	316			/N
	307			/G
	301			/A
	302			/B
	305			/E
	0
/
LH78,	305		/ENDE
	316
	304
	305
	0
/
LH77,	LH80-1
	LH80+23
	LH80+47
	LH80+73
	LH80+117
	LH80+143
	LH80+167
	LH80+213
	LH80+237
	LH80+263
	LH80+307
	LH80+333
	LH80+357
	LH80+403
	LH80+427
	LH80+453
	LH80+477
	LH80+523
	LH80+547
	LH80+573
	LH80+617
	LH80+643
/
LH71,	0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
/
LH72,	306	/FEHLERLISTE RD-KLEBER
	305	/AUSDRUCKEN
	310
	314
	305
	322
	314
	311
	323
	324
	305
	240
	322
	304
	255
	313
	314
	305
	302
	305
	322
	240
	301
	325
	323
	304
	322
	325
	303
	313
	305
	316
	0
/
/
/
LH74,	305	/EINSCHUB NR.: XX
	311
	316
	323
	303
	310
	325
	302
	240
	316
	322
	256
	272
	240
	0
	0
	0
	0
/
/
TAB1,	322
	304
	240
	240
	240
	240
	240
	313
	317
	316
	324
	256
	240
	240
	261
	255
	261
	260
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	215
	212
/
TAB2,	240;240;240;240;240;240;240;240;240;240;240;240;240
	261
	261
	255
	262
	260
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	215
	212
/
TAB3,	312
	313
	305
	302
	305
	322
	240
	312
	317
	316
	324
	256
	240
	240
	261
	255
	261
	260
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	215
	212
/
TAB4,	240;240;240;240;240;240;240;240;240;240;240;240;240
	261
	261
	255
	262
	260
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0;240;0;0;0
	215
	212
	0
/
/
$