QUICKJUMP.QUELL

FILE INFORMATION

FILENAME(S): QUICKJUMP.QUELL

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 21:12:58

APPEARS ON: 1 disk(s)

FILE HASH

0d28c3efbe572d4ff19e38ab458cce75546b4fecf8b44892fa8256254900e629

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10804 SEITE A	QUICKJUMP.QUELL	PRG	DuncanTwain	27	6	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 2F FE CF  F4 78 EE 9E 9E CE E3 E2  |EK.R./...x......|
00000590: A8 8E E1 EE E8 8E EE EA  1E E2 4E 88 EE 00 8E EE  |..........N.....|
000005A0: 28 8E EE EE 21 EE 22 42  E1 E2 E9 EE 8E DE AC 9E  |(...!."B........|
000005B0: EE A8 80 09 1F FA 2B 3E  AE F4 80 80 88 90 EE EF  |......+>........|
000005C0: 80 04 AE 2E 2E 22 BE 32  EE 2E 20 C3 EE CD EE 88  |.....".2.. .....|
000005D0: EE 31 EE 2E EE 23 EF BF  D0 80 8A C4 CA 80 50 88  |.1...#........P.|
000005E0: A8 B9 9E 88 A4 C0 CC 88  4D 1B 69 8C BE B9 EE 80  |........M.i.....|
000005F0: 80 80 80 50                                       |...P            |

.......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./.O.X...N............N.....
(...!."B..............+>.............".2
.. C.M...1...#..P..DJ.P.......L.M.I.....
...P

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL