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