INITFLASM 
;Initialisierungsprogramm f}r DEVEXN
;SERVICE und EDAS-Kaltstart
 
FLOP	EQU 400H
EDAS	EQU 0C007H
 
 
	ORG	03000H
 
	LD A,31H
	LD (0B7A3H),A
	LD A,0CH
	CALL 0F003H
	NOP
	LD HL,TXT1	;SERVICE
	CALL NAME
	LD HL,TXT2	;DEVEXN
	CALL NAME
 
	LD A,2
	LD L,8
	LD D,0C1H
	CALL 0F003H
	DEFB 26H	;EDAS on
 
	LD HL,1D00H
	LD (0B7A0H),HL
	CALL 0F003H
	DEFB 23H
	DEFM ' Press <R>to activate'
	DEFM ' RAM-floppy !'
	DEFW 0A0DH
	DEFM ' Any key to start EDAS !'
	DEFW 0A0DH
	NOP
TASTE:	LD A,(IX+13)
	OR A
 	JR NZ,TASTE
	CP 'R'
	JP NZ,EDAS
	LD HL,TXT3
 	CALL NAME
	RET
 
 
NAME:	LD BC,12
	LD DE,0
	PUSH DE
	LDIR
	POP HL
	CALL 36H
	RET
 
TXT1:	DEFM	'SERVICE.KCC '
TXT2:	DEFM	'DEVEXN.KCC  '
TXT3:	DEFM	'RAMDOS.KCC  '
ÿÿÿÿÿÿÿ