;
;
;
;PROGRAMM CHARDEF
;
XBIOS	equ	0fc5ah
SCR_RUN	equ	000e9h

CHARAM	equ	0b800h

	.phase	0f400h
	ld	bc,routin
	call	XBIOS
	dw	SCR_RUN
	ret
;ZEICHEN DEFINIEREN
routin:
	ld	hl,zeichtab
	ld	bc,zlen
	ld	de,CHARAM
	ldir
	ret
;
zeichtab:
;
; Zeichen 00
;
	db	10100000b,00000000b,00000000b,00000000b
	db	00000000b,00000000b,00000000b,00000000b
;
; Zeichen 01
;
	db	11100000b,00000000b,00000000b,00000000b
	db	00000000b,00000000b,00000000b,00000000b
;
; Zeichen 02
;
	db	00000000b,00000000b,00000000b,00000000b
	db	00000000b,00000000b,00000000b,00000000b
;
; Zeichen 03
;
	db	01000000b,000000000b,00000000b,00000000b
	db	00000000b,00000000b,00000000b,00000000b
zlen	equ	$-zeichtab
	.dephase
	end