;-------------------------------------------------------
;* * * * * * * * * * LISTKOP * * * * * * * * * * * * * *
;-------------------------------------------------------
;GEN80 HEADER
	DEFB	0FEH
	DEFW	BEGIN
	DEFW	STOP
	DEFW	SETHK
;
; DEFINITIES
;
;-ROUTINES:
CLS   : EQU	00C3H
POSIT : EQU	00C6H
CHGET : EQU	009FH
CHPUT : EQU	00A2H
PINLIN: EQU	00AEH
WRTVRM: EQU	004DH
LDIRVM: EQU	005CH
CHGCLR: EQU	0062H
;
;-ADRESSEN
;
TXTNAM: EQU	0F3B3H
TXTCGP: EQU	0F3B7H
FORCLR: EQU	0F3E9H
BAKCLR: EQU	0F3EAH
;
;-KONSTANTEN
;
SELECT: EQU	018H
RETURN: EQU	0DH
CSRDWN: EQU	01FH
CRLF  : EQU	0D0AH
;------------------------------------------------
BEGIN : ORG	0C000H
HEADER: PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
;------------------------------------------------
	LD	HL,HEAD
	LD	B,LHEAD
PTEKST: LD	A,(HL)
	CALL	CHPUT
	INC	HL
	DJNZ	PTEKST
;------------------------------------------------
	POP	HL
	POP	DE
	POP	BC
	POP	AF
	JP	EINDE
;------------------------------------------------
HOOK  : EQU	0FF89H
SETHK : LD	HL,HEADER
	LD	(HOOK+1),HL
	LD	A,0CDH
	LD	(HOOK),A
	JP	EINDE
;------------------------------------------------
RSTHK:	LD	A,0C9H
	LD	(HOOK),A
;------------------------------------------------
EINDE : RET
;------------------------------------------------
HEAD :	DEFM	'*******************************'
	DEFW	CRLF
	DEFM	'*                             *' 
	DEFW	CRLF
	DEFM	'*   PROGRAMMA GEMAAKT DOOR    *'
	DEFW	CRLF
	DEFM	'*                             *'
	DEFW	CRLF
	DEFM	'*      BY SWETS & SWETS       *'
	DEFW	CRLF
	DEFM	'*                             *'
	DEFW	CRLF
	DEFM	'*******************************'
	DEFW	CRLF
LHEAD	EQU	LHEAD-HEAD
;
;-----------------------------------------------
STOP