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 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 ' ÿÿÿÿÿÿÿ