SUCHEN ASM; ; J|rg B|ttge ; FA 35/241 ; Friedensstra~e 10 ; O-6822 SCHWARZA ; ; DIESES FAST VOLL VERSCHIEBLICHE ; PROGRAMM SUCHT NACH EINER ; ZEICHENKETTE . WERDEN 2 PARA- ; METER ANGEGEBEN , WIRD DIESE ; ALS ASCII-CODE GESUCHT , BEI ; 3 PARAMETERN ALS HEX-DUMP . ; ; ABBRUCH MIT MOEGLICH. ; ; REIHENFOLGE DER PARAMETER : ; ANF.ADRESSE ENDADRESSE ; ; ; MAX. ANZAHL DER HEX-DUMPS : 10 ; ; MAX. ZEICHENZAHL : 40 ; ; ; HINWEIS: DIREKTEN SPRUNG 'JP L6' ; AM ENDE BEACHTEN! ; ; ; ; ORG 0BC00H ; PV1: EQU 0F003H ARGN: EQU 0B781H ARG1: EQU ARGN+1 ARG2: EQU ARG1+2 ARG3: EQU ARG2+2 ARG4: EQU ARG3+2 ARG5: EQU ARG4+2 ARG6: EQU ARG5+2 ARG7: EQU ARG6+2 ARG8: EQU ARG7+2 ARG9: EQU ARG8+2 ARG10: EQU ARG9+2 HOR: EQU 0B7D3H ; ; DEFW 07F7FH DEFM 'SUCH' DEFB 001H XOR A LD (HOR+2),A LD HL,REAK LD (0B7A4H),HL CALL PV1 DEFB 015H LD (0B7C6H),DE CP 003H PUSH AF JR Z,L1 CP 002H JR Z,L1 FEHL: CALL PV1 DEFB 19H RET ; L1: CALL PV1 DEFB 23H DEFB 010H DEFW 020AH DEFW 020AH DEFM 'TEXT :' DEFW 0020AH DEFW 020AH DEFB 0BH DEFB 000H EXX CALL PV1 DEFB 017H ;INLIN LD (HOR),DE POP AF JR NZ,L2 CALL PV1 DEFB 022H JR C,FEHL LD A,(ARGN) LD B,A LD DE,(HOR) LD HL,ARG1 L3: LD A,(HL) LD (DE),A INC DE INC HL INC HL DJNZ L3 XOR A LD (DE),A L2: EXX L6: EX DE,HL SBC HL,DE PUSH HL POP BC ;LAENGE EX DE,HL ;ANFANG SUCH: LD DE,(HOR) LD A,(DE) CPIR JR Z,L5 END: LD A,(HOR+2) CP 0FFH JR Z,ENDE CALL PV1 DEFB 023H DEFB 0AH DEFB 002H DEFM 'IN DIESEM ADRESSBEREI' DEFM 'CH NICHT VORHANDEN' DEFW 020AH DEFB 00H NORM: LD HL,0E260H LD (0B7A4H),HL RET ; ENDE: CALL PV1 DEFB 23H DEFW 020AH DEFW 020AH DEFM 'SUCHEN WURDE BEENDET' DEFW 020AH DEFB 0 JR NORM ; L5: INC DE LD A,(DE) CPI JR Z,L5 LD A,(DE) CP 000H JR Z,ANZ LD A,B CP 00H JR NZ,SUCH LD A,C CP 00H JR NZ,SUCH JR END ANZ: PUSH HL EX DE,HL LD DE,(HOR) SBC HL,DE EX DE,HL POP HL SBC HL,DE CALL PV1 DEFB 023H DEFB 0AH DEFB 002H DEFM 'TEXT BEGINNT AUF : ' DEFB 00H DEC HL CALL PV1 DEFB 1AH LD A,0FFH LD (HOR+2),A CALL PV1 DEFB 2AH JR C,ENDE ; INC HL LD DE,(0B7C6H) JP L6 ; REAK: PUSH HL PUSH AF CALL PV1 DEFB 04H POP AF POP HL LD DE,0500H RET ; &½ REAK:è¼ ANZ:Ѽ L5:°¼ ENDE:©¼ NORM:r¼ END:i¼ SUCH:c¼ L6:b¼ L2:Y¼ L3:'¼ L1:"¼ FEHL:Ó· POP AF POP HL LD DE,0500H RET ; &½ REAK:è¼ ANZ:Ѽ L5:°¼ ENDE:©¼ NORM:r¼ END:i¼ SUCH:c¼ L6:b¼ L2:Y¼ L3:'¼ L1:"¼ FEHL:Ó·