title	Character Designer Include file
	name	('CDCODE')

; Diese Routinen gehoren zum TURBO PASCAL Programm
; "JOYCE CHARACTERDESIGNER" von Michael Anton & Michael Wegmer
; Version 1.0 vom 23.11.86

	.phase	0c000h

OS	equ	00000h
TPAx	equ	00111h
XBIOS	equ	0fc5ah

_SCRRUN	equ	00e9h		; XBIOS Funktion

CHRMTRX	equ	0b800h		; Adresse der Zeichenmatrix

CHARSIZ	equ	256*8

; Externe Routinen, die vom Programm aufgerufen werden:
;
; StoreMatrix	C015
; LoadMatrix	C02A
; CopyMatrix	C050

;
; N I C H T    B E N U T Z T
;
Unuse1:
	ld	bc,_Unuse1
	call	XBIOS
	dw	_SCRRUN
	ret
_Unuse1:
	ld	hl,CHRMTRX
	ld	de,MtrxCopy+CHARSIZ
	ld	bc,CHARSIZ
	ldir
	ret
;
; Arbeitsmatrix in vorhandene Matrix kopieren
;
StoreMatrix:
	ld	bc,_StoreMatrix
	call	XBIOS
	dw	_SCRRUN
	ret
_StoreMatrix:
	ld	hl,MtrxCopy+CHARSIZ
	ld	de,CHRMTRX
	ld	bc,CHARSIZ
	ldir			; Neue Matrix speichern
	ret
;
; Vorhandene Matrix lesen
;
LoadMatrix:
	ld	bc,_LoadMatrix
	call	XBIOS
	dw	_SCRRUN
	ret
_LoadMatrix:
	ld	hl,CHRMTRX
	ld	de,MtrxCopy
	ld	bc,CHARSIZ
	ldir			; Vorhandene Matrix laden
	ret
;
; N I C H T    B E N U T Z T
;
Unuse2:
	ld	hl,TPAx
	ld	de,CopyMatrix
	ld	bc,CHARSIZ+16h
	ldir
	call	CopyMatrix
	jp	OS		; Exit to CP/M
;
; Speicher in vorhandene Matrix kopieren
;
CopyMatrix:
	ld	bc,_CopyMatrix
	call	XBIOS
	dw	_SCRRUN
	ret
_CopyMatrix:
	ld	hl,MtrxCopy
	ld	de,CHRMTRX
	ld	bc,CHARSIZ
	ldir			; Neue Matrix speichern
	ret
;
MtrxCopy:
	.dephase

	end