*
* Routine zum Loeschen von 1 - 12 Bildseiten.
* Format: CLS[,parameter]
* parameter ist die max. Anzahl der Bildseiten,
* die geloescht werden soll. 1 <= parameter <= 12.
* In TAB stehen die Bildseiten, die physisch
* vorhanden sind. In dieser Reihenfolge werden
* die Bilder geloescht
*
* W. Schwotzer	10.10.84
*
* SYSTEM EQUATES:

WARMS	EQU	$CD03
INDEC	EQU	$CD48
PSTRNG EQU	$CD1E
SWITCH EQU	$F036
SWTCHB EQU	$F038
EOT	EQU	$4

	ORG	$C100

BEGIN	BRA	ANF

VERSIO FCB	1
TAB	FCB	$C,$D,$E
	FCB	$FF,$FF,$FF
	FCB	$FF,$FF,$FF
	FCB	$FF,$FF,$FF
	FCB	$FF

ANF	JSR	INDEC	parameter
	TSTB
	BEQ	ALLE
	LEAX	-1,X
	CMPX	#11		nur 1 - 12 moeglich
	BHI	ERROR
	TFR	X,D
	INCB	
= Anz. der zu loesch. Bilder
OK2	PSHS	B
	LDX	#$0	= Start Bildadr.
	LDB	#$E0	Code fuer MMU
	LEAY	ENDE,PCR	liegt Programm im Switch-Ber.?
	CMPY	#$4000+(ENDE-BEGIN)
	BHI	OK3
	LDX	#$8000
	LDB	#$E8
OK3	LEAU	<TAB,PCR
	PSHS	B,X,U
OK1	LDU	3,S
	TST	,U
	BMI	OK9
	LDA	,U+
	STU	3,S
	TFR	A,B
	TFR	D,X
	TFR	D,Y
	LDB	,S
	JSR	[SWITCH]	Seite einblenden
	LDD	#0
	TFR	D,X
	TFR	D,Y
	LDU	1,S
	LEAU	$4000,U
CLEAR	PSHU	D,X,Y	Seite
	PSHU	D,X,Y	loeschen
	PSHU	D,X
	CMPU	1,S
	BNE	CLEAR
	JSR	[SWTCHB]	Seite ausblenden
	DEC	5,S	alle Seiten durch?
	BNE	OK1	nein, weiter
OK9	LEAS	6,S
	JMP	WARMS

ALLE	LDB	#12	maximal 12 Seiten
	BRA	OK2

ERROR	LEAX	TBER,PCR
	JSR	PSTRNG
	JMP	WARMS
TBER	FCC	'Parameter ausserhalb des Bereiches (1 - 12).',EOT

ENDE	EQU	*

	END	BEGIN
                                                                                                                                                                                                                                             