FNSAASM;**********************************
;            FNSA
;  Hilfsroutinen f}r BASIC zur
; interaktiven Funktions}bergabe
;   DEF FNA(X) = Funktion
;**********************************
;
	ORG	043DH
BASBUF:	EQU	0361H
SCANN:	EQU	0C4DAH
FN:	EQU	0A7H
REM:	EQU	08EH
;
	PUSH	HL
	PUSH	DE
	PUSH	BC
	PUSH	AF
	CALL	0F018H
	LD	HL,BASBUF+1
	PUSH	HL
	CALL	SCANN
	LD	HL,END+5
SUCHE:	LD	A,FN
COMP:	CP	(HL)
	INC	HL
	JR	NZ,COMP
;FN gefunden, Argument suchen
	INC	HL
	INC	HL
	INC	HL
	INC	HL
	INC	HL
	EX	DE,HL
	POP	HL
;Pufferinhalt in BASIC-Zeile }bertragen
ANF:	XOR	A
	CP	(HL)
	JR	Z,END
	LD	A,(HL)
	LD	(DE),A
	INC	HL
	INC	DE
	JR	ANF
;Pufferende erreicht und ": REM" ablegen
END:	LD	A,3AH
	LD	(DE),A
	INC	DE
	LD	A,REM
	LD	(DE),A
	CALL	0F01BH
	POP	AF
	POP	BC
	POP	DE
	POP	HL
	RET
;
;	E N D E
;
Xÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ