QUICKJUMP.QUELL
FILE INFORMATION
FILENAME(S): QUICKJUMP.QUELL
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 01:12:53
APPEARS ON: 2 disk(s)
FILE HASH
22d7754b17307896cbb81a1d939968fcc7a07dd14bdc6139ea528b6431063369
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10804 SEITE A | QUICKJUMP.QUELL | PRG | C64er, DuncanTwain | 27 | 6 | DOWNLOAD FILE |
| 15943 | QUICKJUMP.QUELL | PRG | C64er | 14 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 9F 34 2C 34 2C 37 00 18 08 14 |.......4,4,7....| 00000010: 00 9E 39 AC 34 30 39 36 00 27 08 1E 00 2E 4F 50 |..9.4096.'....OP| 00000020: 54 20 4F 4F 2C 50 34 00 37 08 28 00 56 45 4B A4 |T OO,P4.7.(.VEK.| 00000030: 52 20 B2 20 24 32 32 00 44 08 32 00 AC B2 20 24 |R . $22.D.2... $| 00000040: 43 30 30 30 00 77 08 3C 00 53 54 41 52 54 20 20 |C000.w.<.START | 00000050: 4A 4D 50 20 43 4F 50 59 20 20 20 20 20 20 20 3B |JMP COPY ;| 00000060: 20 53 50 8A 47 20 5A 55 52 20 49 4E 49 54 49 41 | SP.G ZUR INITIA| 00000070: 4C 49 53 49 45 8A 47 00 AC 08 46 00 46 4C 41 47 |LISIE.G...F.FLAG| 00000080: 20 20 20 2E 42 59 54 20 30 20 20 20 20 20 20 20 | .BYT 0 | 00000090: 20 20 3B 20 46 4C 41 47 20 46 55 45 52 20 54 41 | ; FLAG FUER TA| 000000A0: 42 45 4C C3 45 B5 52 41 47 55 4E 47 00 CF 08 50 |BEL.E.RAGUNG...P| 000000B0: 00 54 41 42 80 20 2E 42 59 54 20 24 30 30 2C 24 |.TAB. .BYT $00,$| 000000C0: 44 30 20 20 20 3B 20 54 41 42 45 4C C3 80 45 00 |D0 ; TABEL..E.| 000000D0: E9 08 5A 00 3B 20 AC AC AC AC AC AC AC AC AC AC |..Z.; ..........| 000000E0: AC AC AC AC AC AC AC AC AC 00 01 09 64 00 3B 20 |............d.; | 000000F0: AC AC 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 AC |..INITIALISIE.G.| 00000100: AC 00 1B 09 6E 00 3B 20 AC AC AC AC AC AC AC AC |....n.; ........| 00000110: AC AC AC AC AC AC AC AC AC AC AC 00 3B 09 78 00 |............;.x.| 00000120: 3B 20 AC AC AC 20 42 45 54 52 49 45 42 53 9E 54 |; ... BETRIEBS.T| 00000130: 45 4D 20 4B 4F 50 49 45 52 45 4E 00 70 09 82 00 |EM KOPIEREN.p...| 00000140: 43 4F 50 59 20 4C 44 59 20 23 30 20 3A 20 53 54 |COPY LDY #0 : ST| 00000150: 59 20 56 45 4B A4 52 20 3A 20 4C 44 41 20 23 24 |Y VEK.R : LDA #$| 00000160: 41 30 20 3A 20 53 54 41 20 56 45 4B A4 52 AA 31 |A0 : STA VEK.R.1| 00000170: 00 98 09 8C 00 4C 4F 4F 50 31 20 4C 44 41 20 28 |.....LOOP1 LDA (| 00000180: 56 45 4B A4 52 29 2C 59 20 3A 20 53 54 41 20 28 |VEK.R),Y : STA (| 00000190: 56 45 4B A4 52 29 2C 59 00 AC 09 96 00 49 4E 59 |VEK.R),Y.....INY| 000001A0: 20 3A 20 42 4E 45 20 4C 4F 4F 50 31 00 E1 09 A0 | : BNE LOOP1....| 000001B0: 00 49 4E 43 20 56 45 4B A4 52 AA 31 20 3A 20 4C |.INC VEK.R.1 : L| 000001C0: 44 41 20 23 24 43 30 20 3A 20 43 4D 50 20 56 45 |DA #$C0 : CMP VE| 000001D0: 4B A4 52 AA 31 20 3A 20 42 4E 45 20 4C 4F 4F 50 |K.R.1 : BNE LOOP| 000001E0: 31 00 14 0A AA 00 3B 20 AC AC AC 20 53 50 8A 47 |1.....; ... SP.G| 000001F0: 20 49 4E 20 45 49 47 45 4E 45 20 5A 45 49 C3 53 | IN EIGENE ZEI.S| 00000200: 55 43 48 52 4F 55 54 49 4E 45 20 45 49 4E 42 49 |UCHROUTINE EINBI| 00000210: 4E 44 45 4E 00 2E 0A B4 00 4C 44 41 20 23 B3 54 |NDEN.....LDA #.T| 00000220: 41 42 20 3A 20 53 54 41 20 24 41 38 43 31 00 48 |AB : STA $A8C1.H| 00000230: 0A BE 00 4C 44 41 20 23 B1 54 41 42 20 3A 20 53 |...LDA #.TAB : S| 00000240: 54 41 20 24 41 38 43 32 00 75 0A C8 00 3B 20 AC |TA $A8C2.u...; .| 00000250: AC AC 20 54 41 42 45 4C 4C 45 20 4C 4F 45 53 43 |.. TABELLE LOESC| 00000260: 48 45 4E 20 42 45 49 20 27 8A 27 20 45 49 4E 42 |HEN BEI '.' EINB| 00000270: 49 4E 44 45 4E 00 8F 0A D2 00 4C 44 41 20 23 B3 |INDEN.....LDA #.| 00000280: 42 45 47 20 3A 20 53 54 41 20 24 41 30 32 30 00 |BEG : STA $A020.| 00000290: A9 0A DC 00 4C 44 41 20 23 B1 42 45 47 20 3A 20 |....LDA #.BEG : | 000002A0: 53 54 41 20 24 41 30 32 31 00 C6 0A E6 00 3B 20 |STA $A021.....; | 000002B0: AC AC AC 20 42 41 53 49 43 AB 52 4F 4D 20 41 55 |... BASIC.ROM AU| 000002C0: 53 42 C3 44 45 4E 00 E3 0A F0 00 4C 44 41 20 24 |SB.DEN.....LDA $| 000002D0: 31 20 3A 20 AF 20 23 32 35 34 20 3A 20 53 54 41 |1 : . #254 : STA| 000002E0: 20 24 31 00 FE 0A FA 00 3B 20 AC AC AC 20 54 41 | $1.....; ... TA| 000002F0: 42 45 4C 4C 45 20 4C 4F 45 53 43 48 45 4E 00 22 |BELLE LOESCHEN."| 00000300: 0B 04 01 49 4E 49 54 20 20 4C 44 41 20 23 B3 54 |...INIT LDA #.T| 00000310: 41 42 41 4E 46 20 3A 20 53 54 41 20 54 41 42 50 |ABANF : STA TABP| 00000320: 54 52 00 42 0B 0E 01 4C 44 41 20 23 B1 54 41 42 |TR.B...LDA #.TAB| 00000330: 41 4E 46 20 3A 20 53 54 41 20 54 41 42 50 54 52 |ANF : STA TABPTR| 00000340: AA 31 00 4A 0B 18 01 52 54 53 00 6D 0B 22 01 3B |.1.J...RTS.m.".;| 00000350: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............| 00000360: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 8E 0B |................| 00000370: 2C 01 3B 20 AC AC 45 49 47 45 4E 45 20 5A 45 49 |,.; ..EIGENE ZEI| 00000380: C3 53 55 43 48 52 4F 55 54 49 4E 45 AC AC 00 B1 |.SUCHROUTINE....| 00000390: 0B 36 01 3B 20 AC AC AC AC AC AC AC AC AC AC AC |.6.; ...........| 000003A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000003B0: AC 00 F3 0B 40 01 54 41 42 20 20 20 53 54 41 20 |....@.TAB STA | 000003C0: 24 35 46 20 3A 20 53 54 58 20 24 36 30 20 20 20 |$5F : STX $60 | 000003D0: 20 20 20 20 20 20 20 20 20 20 3B 20 5A 4E 20 41 | ; ZN A| 000003E0: 42 20 44 45 52 20 5A 55 20 53 55 43 48 45 4E 20 |B DER ZU SUCHEN | 000003F0: 49 53 54 00 16 0C 4A 01 3B 20 AC AC AC AC AC AC |IST...J.; ......| 00000400: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000410: AC AC AC AC AC AC 00 39 0C 54 01 3B 20 AC AC AC |.......9.T.; ...| 00000420: 20 54 45 53 54 20 4F 42 20 54 41 42 45 4C 4C 45 | TEST OB TABELLE| 00000430: 20 4C 45 45 52 20 AC AC AC 00 5C 0C 5E 01 3B 20 | LEER ....\.^.; | 00000440: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000450: AC AC AC AC AC AC AC AC AC AC AC AC 00 88 0C 68 |...............h| 00000460: 01 4C 44 41 20 23 B1 54 41 42 41 4E 46 20 3A 20 |.LDA #.TABANF : | 00000470: 43 4D 50 20 54 41 42 50 54 52 AA 31 20 3A 20 42 |CMP TABPTR.1 : B| 00000480: 4E 45 20 4E 4F 45 4D 50 00 B4 0C 72 01 4C 44 41 |NE NOEMP...r.LDA| 00000490: 20 23 B3 54 41 42 41 4E 46 20 3A 20 43 4D 50 20 | #.TABANF : CMP | 000004A0: 54 41 42 50 54 52 20 20 20 3A 20 42 4E 45 20 4E |TABPTR : BNE N| 000004B0: 4F 45 4D 50 00 C1 0C 7C 01 42 45 51 20 53 52 43 |OEMP...|.BEQ SRC| 000004C0: 48 00 E3 0C 86 01 3B 20 AC AC AC AC AC AC AC AC |H.....; ........| 000004D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000004E0: AC AC AC 00 05 0D 90 01 3B 20 AC AC AC 20 54 41 |........; ... TA| 000004F0: 42 45 4C 4C 45 20 44 55 52 43 48 53 55 43 48 45 |BELLE DURCHSUCHE| 00000500: 4E 20 AC AC AC 00 27 0D 9A 01 3B 20 AC AC AC AC |N ....'...; ....| 00000510: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000520: AC AC AC AC AC AC AC 00 44 0D A4 01 3B 20 5A 45 |........D...; ZE| 00000530: 49 47 45 52 20 41 4E 20 54 41 42 45 4C C3 41 4E |IGER AN TABEL.AN| 00000540: 46 41 4E 47 00 67 0D AE 01 4E 4F 45 4D 50 20 4C |FANG.g...NOEMP L| 00000550: 44 41 20 23 B3 54 41 42 41 4E 46 20 3A 20 53 54 |DA #.TABANF : ST| 00000560: 41 20 56 45 4B A4 52 00 86 0D B8 01 4C 44 41 20 |A VEK.R.....LDA | 00000570: 23 B1 54 41 42 41 4E 46 20 3A 20 53 54 41 20 56 |#.TABANF : STA V| 00000580: 45 4B A4 52 AA 31 00 B1 0D C2 01 3B 20 AC AC AC |EK.R.1.....; ...| 00000590: 20 4D 49 54 20 47 45 53 55 43 48 54 45 52 20 4E | MIT GESUCHTER N| 000005A0: 55 4D 4D 45 52 20 56 45 52 47 4C 45 49 43 48 45 |UMMER VERGLEICHE| 000005B0: 4E 00 E6 0D CC 01 4C 30 31 20 20 20 4C 44 59 20 |N.....L01 LDY | 000005C0: 23 30 20 3A 20 4C 44 41 20 28 56 45 4B A4 52 29 |#0 : LDA (VEK.R)| 000005D0: 2C 59 20 3A 20 43 4D 50 20 24 31 34 20 3A 20 42 |,Y : CMP $14 : B| 000005E0: 4E 45 20 43 30 31 00 17 0E D6 01 49 4E 59 20 20 |NE C01.....INY | 000005F0: 20 20 3A 20 4C 44 41 20 28 56 45 4B A4 52 29 2C | : LDA (VEK.R),| 00000600: 59 20 3A 20 43 4D 50 20 24 31 35 3A 20 20 42 45 |Y : CMP $15: BE| 00000610: 51 20 46 4F 55 4E 44 00 3C 0E E0 01 3B 20 AC AC |Q FOUND.<...; ..| 00000620: AC 20 5A 45 49 47 45 52 20 41 55 46 20 4E 41 45 |. ZEIGER AUF NAE| 00000630: 43 48 53 54 45 4E 20 45 B5 52 41 47 00 6B 0E EA |CHSTEN E.RAG.k..| 00000640: 01 43 30 31 20 20 20 4C 44 41 20 56 45 4B A4 52 |.C01 LDA VEK.R| 00000650: 20 3A 20 43 4C 43 20 3A 20 41 44 43 20 23 34 20 | : CLC : ADC #4 | 00000660: 3A 20 53 54 41 20 56 45 4B A4 52 00 96 0E F4 01 |: STA VEK.R.....| 00000670: 4C 44 41 20 56 45 4B A4 52 AA 31 20 20 20 20 20 |LDA VEK.R.1 | 00000680: 3A 20 41 44 43 20 23 30 20 3A 20 53 54 41 20 56 |: ADC #0 : STA V| 00000690: 45 4B A4 52 AA 31 00 CF 0E FE 01 3B 20 AC AC AC |EK.R.1.....; ...| 000006A0: 20 57 45 4E 4E 20 54 41 42 45 4C C3 80 45 20 4E | WENN TABEL..E N| 000006B0: 4F 43 48 20 4E 49 43 48 54 20 45 52 52 45 49 43 |OCH NICHT ERREIC| 000006C0: 48 54 20 57 45 49 54 45 52 53 55 43 48 45 4E 00 |HT WEITERSUCHEN.| 000006D0: EA 0E 08 02 43 4D 50 20 54 41 42 50 54 52 AA 31 |....CMP TABPTR.1| 000006E0: 20 3A 20 42 4E 45 20 4C 30 31 00 0F 0F 12 02 4C | : BNE L01.....L| 000006F0: 44 41 20 56 45 4B A4 52 20 3A 20 43 4D 50 20 54 |DA VEK.R : CMP T| 00000700: 41 42 50 54 52 20 3A 20 42 4E 45 20 4C 30 31 00 |ABPTR : BNE L01.| 00000710: 3A 0F 1C 02 3B 20 AC AC AC 20 47 45 53 55 43 48 |:...; ... GESUCH| 00000720: 54 45 20 4E 55 4D 4D 45 52 20 4E 49 43 48 54 20 |TE NUMMER NICHT | 00000730: 49 4E 20 54 41 42 45 4C 4C 45 00 4D 0F 26 02 3A |IN TABELLE.M.&.:| 00000740: 20 20 20 20 20 42 45 51 20 53 52 43 48 00 78 0F | BEQ SRCH.x.| 00000750: 30 02 3B 20 AC AC AC 20 5A 45 49 C3 4E 55 4D 4D |0.; ... ZEI.NUMM| 00000760: 45 52 20 47 45 46 55 4E 44 45 4E 20 AB 20 55 45 |ER GEFUNDEN . UE| 00000770: 42 45 52 47 45 42 45 4E 00 A0 0F 3A 02 46 4F 55 |BERGEBEN...:.FOU| 00000780: 4E 44 20 49 4E 59 20 3A 20 4C 44 41 20 28 56 45 |ND INY : LDA (VE| 00000790: 4B A4 52 29 2C 59 20 3A 20 53 54 41 20 24 35 46 |K.R),Y : STA $5F| 000007A0: 00 C2 0F 44 02 49 4E 59 20 3A 20 4C 44 41 20 28 |...D.INY : LDA (| 000007B0: 56 45 4B A4 52 29 2C 59 20 3A 20 53 54 41 20 24 |VEK.R),Y : STA $| 000007C0: 36 30 00 D0 0F 4E 02 53 45 43 20 3A 20 52 54 53 |60...N.SEC : RTS| 000007D0: 00 F3 0F 58 02 3B 20 AC AC AC AC AC AC AC AC AC |...X.; .........| 000007E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000007F0: AC AC AC 00 16 10 62 02 3B 20 AC AC AC 20 50 52 |......b.; ... PR| 00000800: 4F 47 52 41 4D 4D 20 44 55 52 43 48 53 55 43 48 |OGRAMM DURCHSUCH| 00000810: 45 4E 20 AC AC AC 00 39 10 6C 02 3B 20 AC AC AC |EN ....9.l.; ...| 00000820: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000830: AC AC AC AC AC AC AC AC AC 00 5F 10 76 02 53 52 |.........._.v.SR| 00000840: 43 48 20 20 4C 44 59 20 23 31 20 3A 20 4A 53 52 |CH LDY #1 : JSR| 00000850: 20 24 41 36 31 44 20 3A 20 42 43 53 20 A5 44 00 | $A61D : BCS .D.| 00000860: 83 10 80 02 3B 20 AC AC AC AC AC AC AC AC AC AC |....; ..........| 00000870: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000880: AC AC AC 00 A7 10 8A 02 3B 20 AC AC AC 20 5A 45 |........; ... ZE| 00000890: 49 4C 45 20 45 58 49 53 54 49 45 52 54 20 4E 49 |ILE EXISTIERT NI| 000008A0: 43 48 54 20 AC AC AC 00 CB 10 94 02 3B 20 AC AC |CHT ........; ..| 000008B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000008C0: AC AC AC AC AC AC AC AC AC AC AC 00 DE 10 9E 02 |................| 000008D0: 4E A5 44 20 20 43 4C 43 20 3A 20 52 54 53 00 FB |N.D CLC : RTS..| 000008E0: 10 A8 02 3B 20 AC AC AC AC AC AC AC AC AC AC AC |...; ...........| 000008F0: AC AC AC AC AC AC AC AC AC AC AC 00 18 11 B2 02 |................| 00000900: 3B 20 AC AC AC 20 5A 45 49 4C 45 20 47 45 46 55 |; ... ZEILE GEFU| 00000910: 4E 44 45 4E 20 AC AC AC 00 35 11 BC 02 3B 20 AC |NDEN ....5...; .| 00000920: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000930: AC AC AC AC AC 00 59 11 C6 02 3B 20 AC AC AC 20 |......Y...; ... | 00000940: 45 B5 52 41 47 55 4E 47 20 4E 49 43 48 54 20 47 |E.RAGUNG NICHT G| 00000950: 45 57 55 45 4E 53 43 48 54 00 75 11 D0 02 A5 44 |EWUENSCHT.u....D| 00000960: 20 20 20 4C 44 41 20 46 4C 41 47 20 3A 20 42 4E | LDA FLAG : BN| 00000970: 45 20 43 30 32 00 91 11 DA 02 3B 20 AC AC AC 20 |E C02.....; ... | 00000980: 54 41 42 45 4C 4C 45 20 53 43 48 91 20 56 4F 4C |TABELLE SCH. VOL| 00000990: 4C 00 BA 11 E4 02 4C 44 41 20 54 41 42 50 54 52 |L.....LDA TABPTR| 000009A0: AA 31 20 3A 20 43 4D 50 20 54 41 42 80 AA 31 20 |.1 : CMP TAB..1 | 000009B0: 3A 20 42 4E 45 20 41 50 4E 44 00 EF 11 EE 02 4C |: BNE APND.....L| 000009C0: 44 41 20 54 41 42 50 54 52 20 20 20 3A 20 43 4D |DA TABPTR : CM| 000009D0: 50 20 54 41 42 80 20 20 20 3A 20 42 4E 45 20 41 |P TAB. : BNE A| 000009E0: 50 4E 44 20 3A 20 53 45 43 20 3A 20 52 54 53 00 |PND : SEC : RTS.| 000009F0: 19 12 F8 02 3B 20 AC AC AC AC AC AC AC AC AC AC |....; ..........| 00000A00: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000A10: AC AC AC AC AC AC AC AC AC 00 41 12 02 03 3B 20 |..........A...; | 00000A20: AC AC AC 20 4E 55 4D 4D 45 52 20 49 4E 20 54 41 |... NUMMER IN TA| 00000A30: 42 45 4C 4C 45 20 45 B5 52 41 47 45 4E 20 AC AC |BELLE E.RAGEN ..| 00000A40: AC 00 6B 12 0C 03 3B 20 AC AC AC AC AC AC AC AC |..k...; ........| 00000A50: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000A60: AC AC AC AC AC AC AC AC AC AC AC 00 8E 12 16 03 |................| 00000A70: 3B 20 AC AC AC 20 54 41 42 45 4C C3 80 45 AB 5A |; ... TABEL..E.Z| 00000A80: 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E 00 D6 |EIGER ERHOEHEN..| 00000A90: 12 20 03 41 50 4E 44 20 20 4C 44 59 20 23 30 20 |. .APND LDY #0 | 00000AA0: 3A 20 4C 44 41 20 54 41 42 50 54 52 20 20 20 3A |: LDA TABPTR :| 00000AB0: 20 53 54 41 20 56 45 4B A4 52 20 3A 20 43 4C 43 | STA VEK.R : CLC| 00000AC0: 20 3A 20 41 44 43 20 23 34 20 3A 20 53 54 41 20 | : ADC #4 : STA | 00000AD0: 54 41 42 50 54 52 00 11 13 2A 03 4C 44 41 20 54 |TABPTR...*.LDA T| 00000AE0: 41 42 50 54 52 AA 31 20 3A 20 53 54 41 20 56 45 |ABPTR.1 : STA VE| 00000AF0: 4B A4 52 AA 31 20 20 20 20 20 3A 20 41 44 43 20 |K.R.1 : ADC | 00000B00: 23 30 20 3A 20 53 54 41 20 54 41 42 50 54 52 AA |#0 : STA TABPTR.| 00000B10: 31 00 36 13 34 03 3B 20 AC AC AC 20 41 44 52 45 |1.6.4.; ... ADRE| 00000B20: 53 53 45 20 49 4E 20 54 41 42 45 4C 4C 45 20 45 |SSE IN TABELLE E| 00000B30: B5 52 41 47 45 4E 00 58 13 3E 03 4C 44 41 20 24 |.RAGEN.X.>.LDA $| 00000B40: 31 34 20 3A 20 53 54 41 20 28 56 45 4B A4 52 29 |14 : STA (VEK.R)| 00000B50: 2C 59 20 3A 20 49 4E 59 00 7A 13 48 03 4C 44 41 |,Y : INY.z.H.LDA| 00000B60: 20 24 31 35 20 3A 20 53 54 41 20 28 56 45 4B A4 | $15 : STA (VEK.| 00000B70: 52 29 2C 59 20 3A 20 49 4E 59 00 9C 13 52 03 4C |R),Y : INY...R.L| 00000B80: 44 41 20 24 35 46 20 3A 20 53 54 41 20 28 56 45 |DA $5F : STA (VE| 00000B90: 4B A4 52 29 2C 59 20 3A 20 49 4E 59 00 B8 13 5C |K.R),Y : INY...\| 00000BA0: 03 4C 44 41 20 24 36 30 20 3A 20 53 54 41 20 28 |.LDA $60 : STA (| 00000BB0: 56 45 4B A4 52 29 2C 59 00 CC 13 66 03 43 30 32 |VEK.R),Y...f.C02| 00000BC0: 20 20 20 53 45 43 20 3A 20 52 54 53 00 F1 13 70 | SEC : RTS...p| 00000BD0: 03 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............| 00000BE0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000BF0: AC 00 13 14 7A 03 3B 20 AC AC 4D 4F 44 8B 49 5A |....z.; ..MOD.IZ| 00000C00: 49 45 52 54 45 52 20 27 8A 27 AB 42 45 46 45 48 |IERTER '.'.BEFEH| 00000C10: 4C AC AC 00 38 14 84 03 3B 20 AC AC AC AC AC AC |L...8...; ......| 00000C20: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000C30: AC AC AC AC AC AC AC AC 00 49 14 8E 03 42 45 47 |.........I...BEG| 00000C40: 20 20 20 2E 42 59 54 20 30 00 68 14 98 03 50 48 | .BYT 0.h...PH| 00000C50: 50 20 3A 20 4A 53 52 20 49 4E 49 54 20 3A 20 4A |P : JSR INIT : J| 00000C60: 4D 50 20 24 41 38 37 32 00 94 14 A2 03 3B 20 AC |MP $A872.....; .| 00000C70: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000C80: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000C90: AC AC AC AC 00 BC 14 AC 03 3B 20 AC AC 54 41 42 |.........; ..TAB| 00000CA0: 45 4C C3 5A 45 49 47 45 52 20 55 4E 44 20 54 41 |EL.ZEIGER UND TA| 00000CB0: 42 45 4C C3 41 4E 46 41 4E 47 AC AC 00 E8 14 B6 |BEL.ANFANG......| 00000CC0: 03 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............| 00000CD0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000CE0: AC AC AC AC AC AC AC AC 00 FC 14 C0 03 54 41 42 |.............TAB| 00000CF0: 50 54 52 20 2E 42 59 54 20 30 2C 30 00 0E 15 CA |PTR .BYT 0,0....| 00000D00: 03 54 41 42 41 4E 46 20 2E 42 59 54 20 30 00 15 |.TABANF .BYT 0..| 00000D10: 15 D4 03 2E 80 00 00 00 |........ |
.......4,4,7......9.4096.'....OPT OO,P4. 7.(.VEK.R . $22.D.2... $C000.W.<.START JMP COPY ; SP.G ZUR INITIALISIE.G. ..F.FLAG .BYT 0 ; FLAG FUER TA BELCE.RAGUNG.O.P.TAB. .BYT $00,$D0 ; T ABELC.E...Z.; ......................D.; ..INITIALISIE.G.....N.; ................ ....;.X.; ... BETRIEBS.TEM KOPIEREN.P... COPY LDY #0 : STY VEK.R : LDA #$A0 : STA VEK.R.1.....LOOP1 LDA (VEK.R),Y : STA ( VEK.R),Y.....INY : BNE LOOP1... .INC VEK .R.1 : LDA #$C0 : CMP VEK.R.1 : BNE LOOP 1.....; ... SP.G IN EIGENE ZEICSUCHROUTI NE EINBINDEN.....LDA #.TAB : STA $A8C1.H ...LDA #.TAB : STA $A8C2.U.H.; ... TABEL LE LOESCHEN BEI '.' EINBINDEN...R.LDA #. BEG : STA $A020.....LDA #.BEG : STA $A02 1.F...; ... BASIC.ROM AUSBCDEN.....LDA $ 1 : . #254 : STA $1.....; ... TABELLE LO ESCHEN."...INIT LDA #.TABANF : STA TABP TR.B...LDA #.TABANF : STA TABPTR.1.J...R TS.M.".; ............................... ,.; ..EIGENE ZEICSUCHROUTINE.....6.; ... ............................@.TAB STA $5F : STX $60 ; ZN AB DER ZU SUCHEN IST...J.; ...................... .......9.T.; ... TEST OB TABELLE LEER .. ..\.^.; ...............................H .LDA #.TABANF : CMP TABPTR.1 : BNE NOEMP ...R.LDA #.TABANF : CMP TABPTR : BNE N OEMP.A.|.BEQ SRCH.....; ................ ................; ... TABELLE DURCHSUCHE N ....'...; ............................ D...; ZEIGER AN TABELCANFANG.G...NOEMP L DA #.TABANF : STA VEK.R.....LDA #.TABANF : STA VEK.R.1...B.; ... MIT GESUCHTER N UMMER VERGLEICHEN...L.L01 LDY #0 : LDA (VEK.R),Y : CMP $14 : BNE C01...V.INY : LDA (VEK.R),Y : CMP $15: BEQ FOUND. <...; ... ZEIGER AUF NAECHSTEN E.RAG.K.. .C01 LDA VEK.R : CLC : ADC #4 : STA VE K.R.....LDA VEK.R.1 : ADC #0 : STA V EK.R.1.O...; ... WENN TABELC.E NOCH NICH T ERREICHT WEITERSUCHEN.....CMP TABPTR.1 : BNE L01.....LDA VEK.R : CMP TABPTR : BNE L01.:...; ... GESUCHTE NUMMER NICHT IN TABELLE.M.&.: BEQ SRCH.X.0.; ... ZEICNUMMER GEFUNDEN . UEBERGEBEN. .:.FOU ND INY : LDA (VEK.R),Y : STA $5F.B.D.INY : LDA (VEK.R),Y : STA $60.P.N.SEC : RTS ...X.; ...............................B. ; ... PROGRAMM DURCHSUCHEN ....9.L.; ... .........................._.V.SRCH LDY #1 : JSR $A61D : BCS .D.....; .......... ........................; ... ZEILE EXIS TIERT NICHT ....K...; .................. ................N.D CLC : RTS.....; ... ........................; ... ZEILE GEFU NDEN ....5...; .......................Y. F.; ... E.RAGUNG NICHT GEWUENSCHT.U.P..D LDA FLAG : BNE C02...Z.; ... TABELLE SCH. VOLL.....LDA TABPTR.1 : CMP TAB..1 : BNE APND.....LDA TABPTR : CMP TAB. : BNE APND : SEC : RTS.....; .......... ..........................A...; ... NUMM ER IN TABELLE E.RAGEN ....K...; ........ ................................; ... TA BELC.E.ZEIGER ERHOEHEN.V. .APND LDY #0 : LDA TABPTR : STA VEK.R : CLC : ADC # 4 : STA TABPTR...*.LDA TABPTR.1 : STA VE K.R.1 : ADC #0 : STA TABPTR.1.6.4.; ... ADRESSE IN TABELLE E.RAGEN.X.>.LDA $ 14 : STA (VEK.R),Y : INY.Z.H.LDA $15 : S TA (VEK.R),Y : INY...R.LDA $5F : STA (VE K.R),Y : INY...\.LDA $60 : STA (VEK.R),Y .L.F.C02 SEC : RTS...P.; ............. ....................Z.; ..MOD.IZIERTER ' .'.BEFEHL...8...; ...................... .........I...BEG .BYT 0.H...PHP : JSR INIT : JMP $A872.....; ................. .........................; ..TABELCZEIGE R UND TABELCANFANG.......; ............. .............................TABPTR .BYT 0,0...J.TABANF .BYT 0...T......
> CLICK IMAGE PREVIEW FOR FULL MODAL