;-----------------------------------------------
;* * * * * * * * * CAPS * * * * * * * * * * * * 
;-----------------------------------------------
;
	DEFB	0FEH
	DEFW	BEGIN 
	DEFW	STOP
	DEFW	BEGIN
;
;DEFINITIES
;
;-ROUTINES:
CLS   : EQU	00C3H
POSIT : EQU	00C6H
CHGET : EQU	009FH
CHPUT : EQU	00A2H
PINLIN: EQU	00AEH
WRTVRM: EQU	004DH
RDVRM : EQU	004AH
FILVRM: EQU	0056H
LDIRVM: EQU	005CH
LDIRMV: EQU	0059H
CHGCLR: EQU	0062H
CHGMOD: EQU	005FH
CHGCAP: EQU	0132H
;
;-ADRESSEN
;
TXTNAM: EQU	0F3B3H
TXTCGP: EQU	0F3B7H
FORCLR: EQU	0F3E9H
BAKCLR: EQU	0F3EAH
GRPNAM: EQU	0F3C7H
GRPCOL: EQU	0F3C9H
GRPCGP: EQU	0F3CBH
GRPATR: EQU	0F3CDH
GRPPAT: EQU	0F3CFH
SCRMOD: EQU	0FCAFH
;
;-KONSTANTEN
;
SELECT: EQU	018H
RETURN: EQU	0DH
CSRDWN: EQU	01FH
CRLF  : EQU	0D0AH
;-----------------------------------------------
BEGIN : ORG	0C000H
	CP	A
	CALL	CLS
;-----------------------------------------------
	LD	B,10H
SUB   : LD	A,1
	CALL	CHGCAP
	LD	A,1
	CALL	DELAY
	LD	A,0
	CALL	CHGCAP
	LD	A,5
	CALL	DELAY
	DJNZ	SUB
	JP	EINDE
DELAY : PUSH	BC
LUS1  : DEC	A
	PUSH	AF
	LD	BC,2EA0H
LUS2  : DEC	BC
	LD	A,B
	OR	C
	JP	NZ,LUS2
	POP	AF
	JP	NZ,LUS1
	POP	BC
	RET
;---------------------------------------
EINDE : LD	A,0
	LD	(SCRMOD),A
	CALL	CHGMOD
STOP  : RET