FIND.C128.ASM
FILE INFORMATION
FILENAME(S): FIND.C128.ASM
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 00:37:12
APPEARS ON: 3 disk(s)
FILE HASH
f8600ec3bb8ccfba57d71ecf3e4d6adeafe45acfdcfdb846833d1da03109bb61
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 B | FIND.C128.ASM | PRG | Curtcool, Klaus & Jan, Treasure Chest - Holger | 3 | 5 | DOWNLOAD FILE |
| M O C IN 1986 | FIND.C128.ASM | PRG | hedning, shine | 5 | 10 | DOWNLOAD FILE |
| JARVIS 18 A | FIND.C128.ASM | PRG | hedning, shine | 5 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: DC 0D 26 00 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |..&...;=========|
00000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000020: 3D 3D 3D 3D 3D 3D 3D 00 26 01 00 00 3B 3D 3D 3D |=======.&...;===|
00000030: 3D 20 20 20 46 49 4E 44 20 20 20 43 31 32 38 20 |= FIND C128 |
00000040: 20 20 36 2E 31 2E 38 36 20 3D 3D 3D 3D 00 26 02 | 6.1.86 ====.&.|
00000050: 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..;=============|
00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000070: 3D 3D 3D 00 26 03 00 00 3B 3D 3D 3D 3D 20 20 20 |===.&...;==== |
00000080: 20 20 20 50 45 54 45 52 20 46 41 4C 4B 45 20 20 | PETER FALKE |
00000090: 20 20 20 20 20 3D 3D 3D 3D 00 26 04 00 00 3B 3D | ====.&...;=|
000000A0: 3D 3D 3D 20 44 49 4E 47 45 52 44 49 53 53 45 52 |=== DINGERDISSER|
000000B0: 20 48 45 49 44 45 20 31 31 37 20 3D 3D 3D 3D 00 | HEIDE 117 ====.|
000000C0: 26 05 00 00 3B 3D 3D 3D 3D 20 20 20 34 38 30 30 |&...;==== 4800|
000000D0: 20 42 49 45 4C 45 46 45 4C 44 20 31 38 20 20 20 | BIELEFELD 18 |
000000E0: 20 3D 3D 3D 3D 00 26 06 00 00 3B 3D 3D 3D 3D 20 | ====.&...;==== |
000000F0: 20 20 20 54 45 4C 2E 3A 20 30 35 32 30 38 2D 38 | TEL.: 05208-8|
00000100: 38 39 35 20 20 20 20 3D 3D 3D 3D 00 26 07 00 00 |895 ====.&...|
00000110: 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;===============|
00000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000130: 3D 00 28 08 00 00 42 55 46 5A 45 49 20 3D 24 33 |=.(...BUFZEI =$3|
00000140: 44 20 3B 5A 45 49 47 45 52 20 45 49 4E 47 41 42 |D ;ZEIGER EINGAB|
00000150: 45 53 50 45 49 43 48 45 52 00 21 09 00 00 4C 41 |ESPEICHER.!...LA|
00000160: 4E 47 20 3D 24 46 41 20 3B 5A 41 45 48 4C 45 52 |NG =$FA ;ZAEHLER|
00000170: 20 46 55 45 52 20 54 45 58 54 00 25 0A 00 00 4C | FUER TEXT.%...L|
00000180: 41 45 4E 47 45 20 3D 24 46 42 20 3B 4C 41 45 4E |AENGE =$FB ;LAEN|
00000190: 47 45 20 44 45 53 20 53 55 43 48 54 45 58 54 00 |GE DES SUCHTEXT.|
000001A0: 24 0B 00 00 5A 45 49 47 30 20 3D 24 31 36 20 3B |$...ZEIG0 =$16 ;|
000001B0: 41 4B 54 55 45 4C 4C 45 20 5A 45 49 4C 45 4E 2D |AKTUELLE ZEILEN-|
000001C0: 4E 52 2E 00 26 0C 00 00 5A 45 49 47 31 20 3D 24 |NR..&...ZEIG1 =$|
000001D0: 36 31 20 3B 5A 45 49 47 45 52 20 41 55 46 20 42 |61 ;ZEIGER AUF B|
000001E0: 41 53 49 43 2D 54 45 58 54 00 1F 0D 00 00 5A 45 |ASIC-TEXT.....ZE|
000001F0: 49 47 32 20 3D 24 46 43 20 3B 45 4E 44 2D 5A 45 |IG2 =$FC ;END-ZE|
00000200: 49 4C 45 4E 2D 4E 52 2E 00 23 0E 00 00 42 55 46 |ILEN-NR..#...BUF|
00000210: 46 45 52 20 3D 24 30 32 30 30 20 3B 45 49 4E 47 |FER =$0200 ;EING|
00000220: 41 42 45 53 50 45 49 43 48 45 52 00 28 0F 00 00 |ABESPEICHER.(...|
00000230: 46 45 48 5A 45 49 20 3D 24 30 33 30 30 20 3B 5A |FEHZEI =$0300 ;Z|
00000240: 45 49 47 45 52 20 46 45 48 4C 45 52 2D 50 52 4F |EIGER FEHLER-PRO|
00000250: 47 52 2E 00 25 10 00 00 54 4F 4B 45 4E 20 3D 24 |GR..%...TOKEN =$|
00000260: 34 33 30 44 20 3B 54 45 58 54 3D 3D 3E 42 41 53 |430D ;TEXT==>BAS|
00000270: 49 43 2D 54 4F 4B 45 4E 00 21 11 00 00 46 45 48 |IC-TOKEN.!...FEH|
00000280: 50 52 47 20 3D 24 34 44 33 46 20 3B 46 45 48 4C |PRG =$4D3F ;FEHL|
00000290: 45 52 2D 50 52 4F 47 52 2E 00 24 12 00 00 4C 49 |ER-PROGR..$...LI|
000002A0: 53 54 20 3D 24 35 30 45 35 20 3B 42 41 53 49 43 |ST =$50E5 ;BASIC|
000002B0: 2D 5A 45 49 4C 45 20 4C 49 53 54 45 4E 00 26 13 |-ZEILE LISTEN.&.|
000002C0: 00 00 54 58 54 45 49 4E 20 3D 24 34 46 39 33 20 |..TXTEIN =$4F93 |
000002D0: 3B 54 45 58 54 45 49 4E 47 41 42 45 2D 50 52 4F |;TEXTEINGABE-PRO|
000002E0: 47 52 2E 00 21 14 00 00 54 58 54 41 55 53 20 3D |GR..!...TXTAUS =|
000002F0: 24 39 32 38 31 20 3B 54 45 58 54 20 41 55 53 47 |$9281 ;TEXT AUSG|
00000300: 45 42 45 4E 00 26 15 00 00 43 48 52 47 45 54 20 |EBEN.&...CHRGET |
00000310: 3D 24 30 33 38 30 20 3B 5A 45 49 43 48 45 4E 20 |=$0380 ;ZEICHEN |
00000320: 56 4F 4E 20 42 55 46 46 45 52 00 24 16 00 00 43 |VON BUFFER.$...C|
00000330: 48 52 4F 55 54 20 3D 24 35 36 30 43 20 3B 5A 45 |HROUT =$560C ;ZE|
00000340: 49 43 48 45 4E 20 41 55 53 47 45 42 45 4E 00 24 |ICHEN AUSGEBEN.$|
00000350: 17 00 00 41 44 52 49 4E 20 3D 24 35 45 46 42 20 |...ADRIN =$5EFB |
00000360: 3B 41 44 52 45 53 53 45 4E 20 45 49 4E 4C 45 53 |;ADRESSEN EINLES|
00000370: 45 4E 00 26 18 00 00 4C 42 41 4E 4B 30 20 3D 24 |EN.&...LBANK0 =$|
00000380: 34 32 45 43 20 3B 5A 45 49 43 48 45 4E 20 41 55 |42EC ;ZEICHEN AU|
00000390: 53 20 42 41 4E 4B 20 30 00 0C 19 00 00 2A 3D 24 |S BANK 0.....*=$|
000003A0: 31 33 30 30 00 0A 1A 00 00 2E 4F 42 4A 2A 00 28 |1300......OBJ*.(|
000003B0: 1B 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |...;============|
000003C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000003D0: 3D 3D 3D 3D 3D 3D 00 25 1C 00 00 3B 20 20 20 41 |======.%...; A|
000003E0: 4B 54 49 56 49 45 52 55 4E 47 20 44 45 53 20 46 |KTIVIERUNG DES F|
000003F0: 49 4E 44 2D 42 45 46 45 48 4C 53 00 21 1D 00 00 |IND-BEFEHLS.!...|
00000400: 3B 20 20 20 20 20 20 4D 49 54 20 53 59 53 34 38 |; MIT SYS48|
00000410: 36 34 20 28 3D 20 24 31 33 30 30 29 00 28 1E 00 |64 (= $1300).(..|
00000420: 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============|
00000430: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000440: 3D 3D 3D 3D 00 14 1F 00 00 49 4E 49 54 20 4C 44 |====.....INIT LD|
00000450: 41 20 23 3C 46 49 4E 44 00 21 20 00 01 53 54 41 |A #<FIND.! ..STA|
00000460: 20 46 45 48 5A 45 49 20 3B 46 45 48 4C 45 52 5A | FEHZEI ;FEHLERZ|
00000470: 45 49 47 45 52 20 41 55 46 00 0F 21 00 01 4C 44 |EIGER AUF..!..LD|
00000480: 41 20 23 3E 46 49 4E 44 00 2A 22 00 01 53 54 41 |A #>FIND.*"..STA|
00000490: 20 46 45 48 5A 45 49 2B 31 20 3B 46 49 4E 44 2D | FEHZEI+1 ;FIND-|
000004A0: 52 4F 55 54 49 4E 45 20 56 45 52 53 54 45 4C 4C |ROUTINE VERSTELL|
000004B0: 45 4E 00 1F 23 00 01 4A 53 52 20 54 58 54 41 55 |EN..#..JSR TXTAU|
000004C0: 53 20 3B 54 45 58 54 31 20 41 55 53 47 45 42 45 |S ;TEXT1 AUSGEBE|
000004D0: 4E 00 28 24 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |N.($..;=========|
000004E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 2D 25 00 00 54 45 |=========.-%..TE|
00000500: 58 54 31 20 2E 42 59 54 27 46 49 4E 44 20 42 45 |XT1 .BYT'FIND BE|
00000510: 46 45 48 4C 20 49 53 54 20 41 4B 54 49 56 49 45 |FEHL IST AKTIVIE|
00000520: 52 54 21 27 20 30 00 28 26 00 00 3B 3D 3D 3D 3D |RT!' 0.(&..;====|
00000530: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000540: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 13 |==============..|
00000550: 27 00 01 52 54 53 20 3B 3D 3D 3E 20 42 41 53 49 |'..RTS ;==> BASI|
00000560: 43 00 28 28 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |C.((..;=========|
00000570: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000580: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 16 29 00 00 46 4E |=========..)..FN|
00000590: 44 54 58 54 20 2E 42 59 54 27 46 49 4E 44 27 00 |DTXT .BYT'FIND'.|
000005A0: 28 2A 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |(*..;===========|
000005B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000005C0: 3D 3D 3D 3D 3D 3D 3D 00 10 2B 00 00 46 49 4E 44 |=======..+..FIND|
000005D0: 20 4C 44 59 20 23 33 00 17 2C 00 00 56 45 52 47 | LDY #3..,..VERG|
000005E0: 4C 20 4C 44 41 20 42 55 46 46 45 52 2C 59 00 29 |L LDA BUFFER,Y.)|
000005F0: 2D 00 01 43 4D 50 20 46 4E 44 54 58 54 2C 59 20 |-..CMP FNDTXT,Y |
00000600: 3B 45 49 4E 47 41 42 45 20 3D 20 46 49 4E 44 2D |;EINGABE = FIND-|
00000610: 42 45 46 45 48 4C 3F 00 0F 2E 00 01 42 45 51 20 |BEFEHL?.....BEQ |
00000620: 46 49 4E 44 4F 4B 00 18 2F 00 00 46 45 48 4C 45 |FINDOK../..FEHLE|
00000630: 52 20 20 20 4A 4D 50 20 46 45 48 50 52 47 00 28 |R JMP FEHPRG.(|
00000640: 30 00 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |0..;============|
00000650: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000660: 3D 3D 3D 3D 3D 3D 00 0F 31 00 00 46 49 4E 44 4F |======..1..FINDO|
00000670: 4B 20 44 45 59 00 0E 32 00 01 42 50 4C 20 56 45 |K DEY..2..BPL VE|
00000680: 52 47 4C 00 08 33 00 01 49 4E 59 00 0B 34 00 01 |RGL..3..INY..4..|
00000690: 4C 44 41 20 23 33 00 0F 35 00 01 53 54 41 20 42 |LDA #3..5..STA B|
000006A0: 55 46 5A 45 49 00 30 36 00 01 53 54 41 20 28 42 |UFZEI.06..STA (B|
000006B0: 55 46 5A 45 49 29 2C 59 20 3B 27 46 49 4E 44 27 |UFZEI),Y ;'FIND'|
000006C0: 20 49 4D 20 42 55 46 46 45 52 20 5A 45 52 53 54 | IM BUFFER ZERST|
000006D0: 4F 45 52 45 4E 00 33 37 00 00 47 45 54 41 44 52 |OEREN.37..GETADR|
000006E0: 20 4A 53 52 20 43 48 52 47 45 54 20 3B 31 2E 5A | JSR CHRGET ;1.Z|
000006F0: 45 49 43 48 45 4E 20 4E 41 43 48 20 27 46 49 4E |EICHEN NACH 'FIN|
00000700: 44 27 20 48 4F 4C 45 4E 00 2A 38 00 01 4A 53 52 |D' HOLEN.*8..JSR|
00000710: 20 41 44 52 49 4E 20 3B 5A 45 49 4C 45 4E 2D 4E | ADRIN ;ZEILEN-N|
00000720: 52 2E 20 41 4E 46 2E 2D 45 4E 44 45 20 48 4F 4C |R. ANF.-ENDE HOL|
00000730: 45 4E 00 25 39 00 00 41 44 52 4F 4B 20 4A 53 52 |EN.%9..ADROK JSR|
00000740: 20 54 58 54 41 55 53 20 3B 54 45 58 54 32 20 41 | TXTAUS ;TEXT2 A|
00000750: 55 53 47 45 42 45 4E 00 28 3A 00 00 3B 3D 3D 3D |USGEBEN.(:..;===|
00000760: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000770: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000780: 25 3B 00 00 54 45 58 54 32 20 2E 42 59 54 27 53 |%;..TEXT2 .BYT'S|
00000790: 55 43 48 54 45 58 54 20 45 49 4E 47 45 42 45 4E |UCHTEXT EINGEBEN|
000007A0: 3A 27 20 30 00 28 3C 00 00 3B 3D 3D 3D 3D 3D 3D |:' 0.(<..;======|
000007B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000007C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 22 3D 00 |============."=.|
000007D0: 01 4A 53 52 20 54 58 54 45 49 4E 20 3B 53 55 43 |.JSR TXTEIN ;SUC|
000007E0: 48 54 45 58 54 20 45 49 4E 47 45 42 45 4E 00 08 |HTEXT EINGEBEN..|
000007F0: 3E 00 01 49 4E 58 00 27 3F 00 01 53 54 58 20 42 |>..INX.'?..STX B|
00000800: 55 46 5A 45 49 20 3B 5A 45 49 47 45 52 20 45 49 |UFZEI ;ZEIGER EI|
00000810: 4E 47 41 42 45 53 50 45 49 43 48 45 52 00 28 40 |NGABESPEICHER.(@|
00000820: 00 01 4A 53 52 20 54 4F 4B 45 4E 20 3B 53 55 43 |..JSR TOKEN ;SUC|
00000830: 48 54 45 58 54 20 3D 3D 3E 20 42 41 53 49 43 2D |HTEXT ==> BASIC-|
00000840: 54 4F 4B 45 4E 00 0D 41 00 01 4C 44 58 20 23 24 |TOKEN..A..LDX #$|
00000850: 46 46 00 0B 42 00 01 4C 44 59 20 23 30 00 0E 43 |FF..B..LDY #0..C|
00000860: 00 00 41 4E 46 55 45 20 49 4E 58 00 11 44 00 01 |..ANFUE INX..D..|
00000870: 4C 44 41 20 42 55 46 46 45 52 2C 58 00 0F 45 00 |LDA BUFFER,X..E.|
00000880: 01 42 45 51 20 46 45 52 54 49 47 00 18 46 00 01 |.BEQ FERTIG..F..|
00000890: 43 4D 50 20 23 27 22 20 3B 41 55 53 20 42 55 46 |CMP #'" ;AUS BUF|
000008A0: 46 45 52 00 1F 47 00 01 42 45 51 20 41 4E 46 55 |FER..G..BEQ ANFU|
000008B0: 45 20 3B 28 22 29 20 45 4C 49 4D 49 4E 49 45 52 |E ;(") ELIMINIER|
000008C0: 45 4E 00 13 48 00 01 53 54 41 20 28 42 55 46 5A |EN..H..STA (BUFZ|
000008D0: 45 49 29 2C 59 00 08 49 00 01 49 4E 59 00 0E 4A |EI),Y..I..INY..J|
000008E0: 00 01 42 4E 45 20 41 4E 46 55 45 00 1A 4B 00 00 |..BNE ANFUE..K..|
000008F0: 46 45 52 54 49 47 20 53 54 41 20 28 42 55 46 5A |FERTIG STA (BUFZ|
00000900: 45 49 29 2C 59 00 0F 4C 00 01 53 54 59 20 4C 41 |EI),Y..L..STY LA|
00000910: 45 4E 47 45 00 25 4D 00 00 41 42 53 50 45 49 20 |ENGE.%M..ABSPEI |
00000920: 4C 44 41 20 5A 45 49 47 30 20 3B 45 4E 44 2D 5A |LDA ZEIG0 ;END-Z|
00000930: 45 49 4C 45 4E 2D 4E 52 2E 00 1C 4E 00 01 53 54 |EILEN-NR...N..ST|
00000940: 41 20 5A 45 49 47 32 20 3B 3D 3D 3E 20 5A 45 49 |A ZEIG2 ;==> ZEI|
00000950: 47 45 52 20 32 00 10 4F 00 01 4C 44 41 20 5A 45 |GER 2..O..LDA ZE|
00000960: 49 47 30 2B 31 00 10 50 00 01 53 54 41 20 5A 45 |IG0+1..P..STA ZE|
00000970: 49 47 32 2B 31 00 12 51 00 00 5A 45 49 56 45 52 |IG2+1..Q..ZEIVER|
00000980: 20 4C 44 59 20 23 32 00 20 52 00 01 4A 53 52 20 | LDY #2. R..JSR |
00000990: 4C 42 41 4E 4B 30 20 3B 4E 45 55 45 20 5A 45 49 |LBANK0 ;NEUE ZEI|
000009A0: 4C 45 4E 2D 4E 52 2E 00 1C 53 00 01 53 54 41 20 |LEN-NR...S..STA |
000009B0: 5A 45 49 47 30 20 3B 3D 3D 3E 20 5A 45 49 47 45 |ZEIG0 ;==> ZEIGE|
000009C0: 52 20 30 00 08 54 00 01 54 41 58 00 08 55 00 01 |R 0..T..TAX..U..|
000009D0: 49 4E 59 00 0F 56 00 01 4A 53 52 20 4C 42 41 4E |INY..V..JSR LBAN|
000009E0: 4B 30 00 29 57 00 01 53 54 41 20 5A 45 49 47 30 |K0.)W..STA ZEIG0|
000009F0: 2B 31 20 3B 41 4B 54 55 45 4C 4C 45 20 5A 45 49 |+1 ;AKTUELLE ZEI|
00000A00: 4C 45 4E 2D 4E 52 2E 20 4D 49 54 00 2B 58 00 01 |LEN-NR. MIT.+X..|
00000A10: 43 4D 50 20 5A 45 49 47 32 2B 31 20 3B 45 4E 44 |CMP ZEIG2+1 ;END|
00000A20: 5A 45 49 4C 45 4E 2D 4E 52 2E 20 56 45 52 47 4C |ZEILEN-NR. VERGL|
00000A30: 45 49 43 48 45 4E 00 0F 59 00 01 42 4E 45 20 5A |EICHEN..Y..BNE Z|
00000A40: 45 49 56 45 31 00 2C 5A 00 01 43 50 58 20 5A 45 |EIVE1.,Z..CPX ZE|
00000A50: 49 47 32 20 3B 42 45 49 20 47 4C 45 49 43 48 48 |IG2 ;BEI GLEICHH|
00000A60: 45 49 54 20 4C 2D 42 59 54 45 20 54 45 53 54 45 |EIT L-BYTE TESTE|
00000A70: 4E 00 0D 5B 00 01 42 45 51 20 56 4F 52 4E 00 32 |N..[..BEQ VORN.2|
00000A80: 5C 00 00 5A 45 49 56 45 31 20 42 43 53 20 50 52 |\..ZEIVE1 BCS PR|
00000A90: 47 45 4E 44 20 3B 47 52 4F 45 53 53 45 52 20 41 |GEND ;GROESSER A|
00000AA0: 4C 53 20 45 4E 44 5A 45 49 4C 45 4E 2D 4E 52 2E |LS ENDZEILEN-NR.|
00000AB0: 00 10 5D 00 00 56 4F 52 4E 20 4C 44 58 20 23 30 |..]..VORN LDX #0|
00000AC0: 00 0F 5E 00 01 4C 44 41 20 4C 41 45 4E 47 45 00 |..^..LDA LAENGE.|
00000AD0: 28 5F 00 01 53 54 41 20 4C 41 4E 47 20 3B 5A 41 |(_..STA LANG ;ZA|
00000AE0: 45 48 4C 45 52 20 47 45 46 55 4E 44 45 4E 45 20 |EHLER GEFUNDENE |
00000AF0: 5A 45 49 43 48 45 4E 00 0F 60 00 00 57 45 49 54 |ZEICHEN..`..WEIT|
00000B00: 45 52 20 49 4E 59 00 0F 61 00 01 4A 53 52 20 4C |ER INY..a..JSR L|
00000B10: 42 41 4E 4B 30 00 24 62 00 01 42 45 51 20 5A 45 |BANK0.$b..BEQ ZE|
00000B20: 49 45 4E 44 20 3B 54 45 58 54 20 4E 49 43 48 54 |IEND ;TEXT NICHT|
00000B30: 20 47 45 46 55 4E 44 45 4E 00 0C 63 00 01 43 4D | GEFUNDEN..c..CM|
00000B40: 50 20 23 27 22 00 1F 64 00 01 42 45 51 20 57 45 |P #'"..d..BEQ WE|
00000B50: 49 54 45 52 20 3B 28 22 29 20 55 45 42 45 52 4C |ITER ;(") UEBERL|
00000B60: 45 53 45 4E 00 11 65 00 01 43 4D 50 20 42 55 46 |ESEN..e..CMP BUF|
00000B70: 46 45 52 2C 58 00 0F 66 00 01 42 45 51 20 47 4C |FER,X..f..BEQ GL|
00000B80: 45 49 43 48 00 0B 67 00 01 43 50 58 20 23 30 00 |EICH..g..CPX #0.|
00000B90: 29 68 00 01 42 45 51 20 56 4F 52 4E 20 3B 4E 4F |)h..BEQ VORN ;NO|
00000BA0: 43 48 20 4B 45 49 4E 20 5A 45 49 43 48 45 4E 20 |CH KEIN ZEICHEN |
00000BB0: 47 45 46 55 4E 44 45 4E 00 08 69 00 01 44 45 59 |GEFUNDEN..i..DEY|
00000BC0: 00 27 6A 00 01 4A 4D 50 20 56 4F 52 4E 20 3B 4E |.'j..JMP VORN ;N|
00000BD0: 4F 43 48 4D 41 4C 20 56 4F 4E 20 56 4F 52 4E 45 |OCHMAL VON VORNE|
00000BE0: 20 53 55 43 48 45 4E 00 28 6B 00 00 3B 3D 3D 3D | SUCHEN.(k..;===|
00000BF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000C00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000C10: 0F 6C 00 00 47 4C 45 49 43 48 20 49 4E 58 00 2B |.l..GLEICH INX.+|
00000C20: 6D 00 01 44 45 43 20 4C 41 4E 47 20 3B 42 45 49 |m..DEC LANG ;BEI|
00000C30: 20 47 4C 45 49 43 48 48 45 49 54 20 45 49 4E 45 | GLEICHHEIT EINE|
00000C40: 53 20 5A 45 49 43 48 45 4E 00 2D 6E 00 01 42 4E |S ZEICHEN.-n..BN|
00000C50: 45 20 57 45 49 54 45 52 20 3B 53 55 43 48 54 45 |E WEITER ;SUCHTE|
00000C60: 58 54 20 47 45 46 55 4E 44 45 4E 20 42 45 49 20 |XT GEFUNDEN BEI |
00000C70: 4C 41 4E 47 3D 30 00 0D 6F 00 01 4A 53 52 20 4C |LANG=0..o..JSR L|
00000C80: 49 53 54 00 18 70 00 01 4C 44 41 20 23 24 39 31 |IST..p..LDA #$91|
00000C90: 20 3B 43 55 52 53 55 52 20 55 50 00 0F 71 00 01 | ;CURSUR UP..q..|
00000CA0: 4A 53 52 20 43 48 52 4F 55 54 00 0F 72 00 01 4A |JSR CHROUT..r..J|
00000CB0: 4D 50 20 5A 45 49 56 45 52 00 28 73 00 00 3B 3D |MP ZEIVER.(s..;=|
00000CC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000CD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000CE0: 3D 00 12 74 00 00 5A 45 49 45 4E 44 20 4C 44 59 |=..t..ZEIEND LDY|
00000CF0: 20 23 30 00 0F 75 00 01 4A 53 52 20 4C 42 41 4E | #0..u..JSR LBAN|
00000D00: 4B 30 00 08 76 00 01 54 41 58 00 08 77 00 01 49 |K0..v..TAX..w..I|
00000D10: 4E 59 00 0F 78 00 01 4A 53 52 20 4C 42 41 4E 4B |NY..x..JSR LBANK|
00000D20: 30 00 23 79 00 01 53 54 58 20 5A 45 49 47 31 20 |0.#y..STX ZEIG1 |
00000D30: 3B 4E 45 55 45 20 5A 45 49 4C 45 4E 41 4E 46 41 |;NEUE ZEILENANFA|
00000D40: 4E 47 53 2D 00 24 7A 00 01 53 54 41 20 5A 45 49 |NGS-.$z..STA ZEI|
00000D50: 47 31 2B 31 20 3B 41 44 52 45 53 53 45 3D 3D 3E |G1+1 ;ADRESSE==>|
00000D60: 5A 45 49 47 45 52 20 31 00 1F 7B 00 01 42 4E 45 |ZEIGER 1..{..BNE|
00000D70: 20 5A 45 49 56 45 52 20 3B 4E 41 45 43 48 53 54 | ZEIVER ;NAECHST|
00000D80: 45 20 5A 45 49 4C 45 00 14 7C 00 00 50 52 47 45 |E ZEILE..|..PRGE|
00000D90: 4E 44 20 4C 44 58 20 23 24 46 46 00 1A 7D 00 01 |ND LDX #$FF..}..|
00000DA0: 4A 4D 50 20 46 45 48 50 52 47 20 3B 3D 3D 3E 20 |JMP FEHPRG ;==> |
00000DB0: 52 45 41 44 59 00 28 7E 00 00 3B 3D 3D 3D 3D 3D |READY.(~..;=====|
00000DC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000DD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 00 00 |=============...|
..&...;================================.
&...;==== FIND C128 6.1.86 ====.&.
..;================================.&...
;==== PETER FALKE ====.&...;=
=== DINGERDISSER HEIDE 117 ====.&...;===
= 4800 BIELEFELD 18 ====.&...;====
TEL.: 05208-8895 ====.&...;=======
=========================.(...BUFZEI =$3
D ;ZEIGER EINGABESPEICHER.!...LANG =$FA
;ZAEHLER FUER TEXT.%...LAENGE =$FB ;LAEN
GE DES SUCHTEXT.$...ZEIG0 =$16 ;AKTUELLE
ZEILEN-NR..&...ZEIG1 =$61 ;ZEIGER AUF B
ASIC-TEXT.....ZEIG2 =$FC ;END-ZEILEN-NR.
.#...BUFFER =$0200 ;EINGABESPEICHER.(...
FEHZEI =$0300 ;ZEIGER FEHLER-PROGR..%...
TOKEN =$430D ;TEXT==>BASIC-TOKEN.!...FEH
PRG =$4D3F ;FEHLER-PROGR..$...LIST =$50E
5 ;BASIC-ZEILE LISTEN.&...TXTEIN =$4F93
;TEXTEINGABE-PROGR..!...TXTAUS =$9281 ;T
EXT AUSGEBEN.&...CHRGET =$0380 ;ZEICHEN
VON BUFFER.$...CHROUT =$560C ;ZEICHEN AU
SGEBEN.$...ADRIN =$5EFB ;ADRESSEN EINLES
EN.&...LBANK0 =$42EC ;ZEICHEN AUS BANK 0
.....*=$1300......OBJ*.(...;============
======================.%...; AKTIVIERU
NG DES FIND-BEFEHLS.!...; MIT SYS48
64 (= $1300).(...;======================
============.....INIT LDA #<FIND.! ..STA
FEHZEI ;FEHLERZEIGER AUF..!..LDA #>FIND
.*"..STA FEHZEI+1 ;FIND-ROUTINE VERSTELL
EN..#..JSR TXTAUS ;TEXT1 AUSGEBEN.($..;=
=================================.-%..TE
XT1 .BYT'FIND BEFEHL IST AKTIVIERT!' 0.(
&..;==================================..
'..RTS ;==> BASIC.((..;=================
=================..)..FNDTXT .BYT'FIND'.
(*..;==================================.
.+..FIND LDY #3..,..VERGL LDA BUFFER,Y.)
-..CMP FNDTXT,Y ;EINGABE = FIND-BEFEHL?.
....BEQ FINDOK../..FEHLER JMP FEHPRG.(
0..;==================================..
1..FINDOK DEY..2..BPL VERGL..3..INY..4..
LDA #3..5..STA BUFZEI.06..STA (BUFZEI),Y
;'FIND' IM BUFFER ZERSTOEREN.37..GETADR
JSR CHRGET ;1.ZEICHEN NACH 'FIND' HOLEN
.*8..JSR ADRIN ;ZEILEN-NR. ANF.-ENDE HOL
EN.%9..ADROK JSR TXTAUS ;TEXT2 AUSGEBEN.
(:..;==================================.
%;..TEXT2 .BYT'SUCHTEXT EINGEBEN:' 0.(<.
.;==================================."=.
.JSR TXTEIN ;SUCHTEXT EINGEBEN..>..INX.'
?..STX BUFZEI ;ZEIGER EINGABESPEICHER.(@
..JSR TOKEN ;SUCHTEXT ==> BASIC-TOKEN..A
..LDX #$FF..B..LDY #0..C..ANFUE INX..D..
LDA BUFFER,X..E..BEQ FERTIG..F..CMP #'"
;AUS BUFFER..G..BEQ ANFUE ;(") ELIMINIER
EN..H..STA (BUFZEI),Y..I..INY..J..BNE AN
FUE..K..FERTIG STA (BUFZEI),Y..L..STY LA
ENGE.%M..ABSPEI LDA ZEIG0 ;END-ZEILEN-NR
...N..STA ZEIG2 ;==> ZEIGER 2..O..LDA ZE
IG0+1..P..STA ZEIG2+1..Q..ZEIVER LDY #2.
R..JSR LBANK0 ;NEUE ZEILEN-NR...S..STA
ZEIG0 ;==> ZEIGER 0..T..TAX..U..INY..V..
JSR LBANK0.)W..STA ZEIG0+1 ;AKTUELLE ZEI
LEN-NR. MIT.+X..CMP ZEIG2+1 ;ENDZEILEN-N
R. VERGLEICHEN..Y..BNE ZEIVE1.,Z..CPX ZE
IG2 ;BEI GLEICHHEIT L-BYTE TESTEN..[..BE
Q VORN.2\..ZEIVE1 BCS PRGEND ;GROESSER A
LS ENDZEILEN-NR...]..VORN LDX #0..^..LDA
LAENGE.(_..STA LANG ;ZAEHLER GEFUNDENE
ZEICHEN..`..WEITER INY..A..JSR LBANK0.$B
..BEQ ZEIEND ;TEXT NICHT GEFUNDEN..C..CM
P #'"..D..BEQ WEITER ;(") UEBERLESEN..E.
.CMP BUFFER,X..F..BEQ GLEICH..G..CPX #0.
)H..BEQ VORN ;NOCH KEIN ZEICHEN GEFUNDEN
..I..DEY.'J..JMP VORN ;NOCHMAL VON VORNE
SUCHEN.(K..;===========================
=======..L..GLEICH INX.+M..DEC LANG ;BEI
GLEICHHEIT EINES ZEICHEN.-N..BNE WEITER
;SUCHTEXT GEFUNDEN BEI LANG=0..O..JSR L
IST..P..LDA #$91 ;CURSUR UP..Q..JSR CHRO
UT..R..JMP ZEIVER.(S..;=================
=================..T..ZEIEND LDY #0..U..
JSR LBANK0..V..TAX..W..INY..X..JSR LBANK
0.#Y..STX ZEIG1 ;NEUE ZEILENANFANGS-.$Z.
.STA ZEIG1+1 ;ADRESSE==>ZEIGER 1..{..BNE
ZEIVER ;NAECHSTE ZEILE..|..PRGEND LDX #
$FF..}..JMP FEHPRG ;==> READY.(~..;=====
=============================...
> CLICK IMAGE PREVIEW FOR FULL MODAL