TEIL 6.LIST 1
FILE INFORMATION
FILENAME(S): TEIL 6.LIST 1
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 2 disk(s)
FILE HASH
a2e22554238c7a9a6802875bd28e35d9d64e67f366adc680fd8722f0f672a066
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10911 SEITE A | TEIL 6.LIST 1 | PRG | C64er | 9 | 10 | DOWNLOAD FILE |
| 10911 SEITE A | TEIL 6.LIST 1 | PRG | DuncanTwain | 9 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 0A 00 2E 42 41 20 34 39 31 35 32 00 |.......BA 49152.|
00000010: 0C 20 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. d.;***********|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 00 32 20 6E 00 3B 2A 2A 20 56 41 |*****.2 n.;** VA|
00000040: 52 49 41 42 4C 45 4E 20 20 20 20 20 20 20 20 20 |RIABLEN |
00000050: 20 20 20 20 20 20 20 20 20 2A 2A 00 58 20 78 00 | **.X x.|
00000060: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 00 77 20 C8 00 2E 47 4C 20 56 49 44 45 4F 52 |*.w ...GL VIDEOR|
00000090: 41 4D 20 20 20 20 3D 31 30 32 34 2B 35 2A 34 30 |AM =1024+5*40|
000000A0: 00 91 20 D2 00 2E 47 4C 20 53 43 52 4F 4C 4C 53 |.. ...GL SCROLLS|
000000B0: 43 52 20 20 20 3D 34 30 39 36 00 AA 20 DC 00 2E |CR =4096.. ...|
000000C0: 47 4C 20 53 43 52 4F 4C 4C 42 52 45 49 54 45 3D |GL SCROLLBREITE=|
000000D0: 31 32 30 00 C2 20 E6 00 2E 47 4C 20 52 4F 42 45 |120.. ...GL ROBE|
000000E0: 4E 20 20 20 20 20 20 20 3D 34 39 00 DA 20 F0 00 |N =49.. ..|
000000F0: 2E 47 4C 20 52 55 4E 54 45 4E 20 20 20 20 20 20 |.GL RUNTEN |
00000100: 3D 38 39 00 F2 20 FA 00 2E 47 4C 20 52 48 41 52 |=89.. ...GL RHAR|
00000110: 44 20 20 20 20 20 20 20 3D 39 38 00 F8 20 8F 01 |D =98.. ..|
00000120: 3B 00 0E 21 90 01 2E 47 4C 20 49 52 51 56 45 43 |;..!...GL IRQVEC|
00000130: 20 3D 24 30 33 31 34 00 24 21 9A 01 2E 47 4C 20 | =$0314.$!...GL |
00000140: 49 52 51 41 4C 54 20 3D 24 45 41 33 31 00 3A 21 |IRQALT =$EA31.:!|
00000150: A4 01 2E 47 4C 20 49 52 51 45 4E 44 20 3D 24 45 |...GL IRQEND =$E|
00000160: 41 38 31 00 50 21 AE 01 2E 47 4C 20 56 49 43 20 |A81.P!...GL VIC |
00000170: 20 20 20 3D 24 44 30 30 30 00 67 21 B8 01 2E 47 | =$D000.g!...G|
00000180: 4C 20 49 52 51 4D 41 53 4B 3D 56 49 43 2B 32 36 |L IRQMASK=VIC+26|
00000190: 00 7E 21 C2 01 2E 47 4C 20 49 52 51 46 4C 41 47 |.~!...GL IRQFLAG|
000001A0: 3D 56 49 43 2B 32 35 00 95 21 CC 01 2E 47 4C 20 |=VIC+25..!...GL |
000001B0: 52 41 53 54 45 52 20 3D 56 49 43 2B 31 38 00 AC |RASTER =VIC+18..|
000001C0: 21 D6 01 2E 47 4C 20 48 49 42 49 54 20 20 3D 56 |!...GL HIBIT =V|
000001D0: 49 43 2B 31 37 00 C3 21 E0 01 2E 47 4C 20 58 53 |IC+17..!...GL XS|
000001E0: 43 52 4F 4C 4C 3D 56 49 43 2B 32 32 00 D9 21 EA |CROLL=VIC+22..!.|
000001F0: 01 2E 47 4C 20 43 49 41 54 49 4D 45 3D 24 44 43 |..GL CIATIME=$DC|
00000200: 30 45 00 DF 21 BB 02 3B 00 F4 21 BC 02 2E 47 4C |0E..!..;..!...GL|
00000210: 20 56 52 41 4D 20 20 20 20 3D 36 37 39 00 0C 22 | VRAM =679.."|
00000220: C6 02 2E 47 4C 20 53 43 52 53 54 41 52 54 3D 56 |...GL SCRSTART=V|
00000230: 52 41 4D 2B 32 00 28 22 D0 02 2E 47 4C 20 53 52 |RAM+2.("...GL SR|
00000240: 41 4D 20 20 20 20 3D 53 43 52 53 54 41 52 54 2B |AM =SCRSTART+|
00000250: 32 00 40 22 DA 02 2E 47 4C 20 53 42 52 45 49 54 |2.@"...GL SBREIT|
00000260: 45 20 3D 53 52 41 4D 2B 32 00 5B 22 E4 02 2E 47 |E =SRAM+2.["...G|
00000270: 4C 20 47 52 45 4E 5A 45 20 20 3D 53 42 52 45 49 |L GRENZE =SBREI|
00000280: 54 45 2B 32 00 75 22 EE 02 2E 47 4C 20 53 43 52 |TE+2.u"...GL SCR|
00000290: 50 4F 53 20 20 3D 47 52 45 4E 5A 45 2B 32 00 8F |POS =GRENZE+2..|
000002A0: 22 F8 02 2E 47 4C 20 50 49 58 50 4F 53 20 20 3D |"...GL PIXPOS =|
000002B0: 53 43 52 50 4F 53 2B 32 00 A9 22 02 03 2E 47 4C |SCRPOS+2.."...GL|
000002C0: 20 53 54 45 50 20 20 20 20 3D 50 49 58 50 4F 53 | STEP =PIXPOS|
000002D0: 2B 31 00 C1 22 0C 03 2E 47 4C 20 44 49 52 45 43 |+1.."...GL DIREC|
000002E0: 54 20 20 3D 53 54 45 50 2B 31 00 DB 22 16 03 2E |T =STEP+1.."...|
000002F0: 47 4C 20 50 53 54 45 50 20 20 20 3D 44 49 52 45 |GL PSTEP =DIRE|
00000300: 43 54 2B 31 00 F4 22 20 03 2E 47 4C 20 50 44 49 |CT+1.." ..GL PDI|
00000310: 52 45 43 54 20 3D 50 53 54 45 50 2B 31 00 FA 22 |RECT =PSTEP+1.."|
00000320: 2A 03 3B 00 20 23 10 27 3B 2A 2A 2A 2A 2A 2A 2A |*.;. #.';*******|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 23 1A 27 3B 2A |*********.F#.';*|
00000350: 2A 20 48 41 52 44 2D 53 43 52 4F 4C 4C 2D 52 4F |* HARD-SCROLL-RO|
00000360: 55 54 49 4E 45 20 20 20 20 20 20 20 20 2A 2A 00 |UTINE **.|
00000370: 6C 23 24 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |l#$';***********|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000390: 2A 2A 2A 2A 2A 00 7F 23 2E 27 48 53 43 52 4F 4C |*****..#.'HSCROL|
000003A0: 4C 20 4C 44 58 23 32 30 00 8C 23 38 27 20 4C 44 |L LDX#20..#8' LD|
000003B0: 41 53 52 41 4D 00 9C 23 42 27 20 53 54 41 4D 4F |ASRAM..#B' STAMO|
000003C0: 44 49 31 2B 31 00 AB 23 4C 27 20 4C 44 41 53 52 |DI1+1..#L' LDASR|
000003D0: 41 4D 2B 31 00 BB 23 56 27 20 53 54 41 4D 4F 44 |AM+1..#V' STAMOD|
000003E0: 49 31 2B 32 00 C8 23 60 27 20 4C 44 41 56 52 41 |I1+2..#`' LDAVRA|
000003F0: 4D 00 D8 23 6A 27 20 53 54 41 4D 4F 44 49 32 2B |M..#j' STAMODI2+|
00000400: 31 00 E7 23 74 27 20 4C 44 41 56 52 41 4D 2B 31 |1..#t' LDAVRAM+1|
00000410: 00 F7 23 7E 27 20 53 54 41 4D 4F 44 49 32 2B 32 |..#~' STAMODI2+2|
00000420: 00 0B 24 88 27 4C 49 4E 45 4C 4F 4F 50 20 4C 44 |..$.'LINELOOP LD|
00000430: 59 23 33 39 00 20 24 92 27 4D 4F 44 49 31 20 4C |Y#39. $.'MODI1 L|
00000440: 44 41 36 35 35 33 35 2C 59 00 35 24 9C 27 4D 4F |DA65535,Y.5$.'MO|
00000450: 44 49 32 20 53 54 41 36 35 35 33 35 2C 59 00 3E |DI2 STA65535,Y.>|
00000460: 24 A6 27 20 44 45 59 00 4C 24 B0 27 20 42 50 4C |$.' DEY.L$.' BPL|
00000470: 4D 4F 44 49 31 00 55 24 BA 27 20 43 4C 43 00 65 |MODI1.U$.' CLC.e|
00000480: 24 C4 27 20 4C 44 41 4D 4F 44 49 31 2B 31 00 75 |$.' LDAMODI1+1.u|
00000490: 24 CE 27 20 41 44 43 53 42 52 45 49 54 45 00 85 |$.' ADCSBREITE..|
000004A0: 24 D8 27 20 53 54 41 4D 4F 44 49 31 2B 31 00 95 |$.' STAMODI1+1..|
000004B0: 24 E2 27 20 4C 44 41 4D 4F 44 49 31 2B 32 00 A7 |$.' LDAMODI1+2..|
000004C0: 24 EC 27 20 41 44 43 53 42 52 45 49 54 45 2B 31 |$.' ADCSBREITE+1|
000004D0: 00 B7 24 F6 27 20 53 54 41 4D 4F 44 49 31 2B 32 |..$.' STAMODI1+2|
000004E0: 00 C0 24 00 28 20 43 4C 43 00 D0 24 0A 28 20 4C |..$.( CLC..$.( L|
000004F0: 44 41 4D 4F 44 49 32 2B 31 00 DC 24 14 28 20 41 |DAMODI2+1..$.( A|
00000500: 44 43 23 34 30 00 EC 24 1E 28 20 53 54 41 4D 4F |DC#40..$.( STAMO|
00000510: 44 49 32 2B 31 00 FC 24 28 28 20 4C 44 41 4D 4F |DI2+1..$(( LDAMO|
00000520: 44 49 32 2B 32 00 07 25 32 28 20 41 44 43 23 30 |DI2+2..%2( ADC#0|
00000530: 00 17 25 3C 28 20 53 54 41 4D 4F 44 49 32 2B 32 |..%<( STAMODI2+2|
00000540: 00 20 25 46 28 20 44 45 58 00 31 25 50 28 20 42 |. %F( DEX.1%P( B|
00000550: 4E 45 4C 49 4E 45 4C 4F 4F 50 00 3A 25 5A 28 20 |NELINELOOP.:%Z( |
00000560: 52 54 53 00 42 25 60 EA 2E 45 4E 00 00 00 |RTS.B%`..EN... |
X......BA 49152.. D.;*******************
*************.2 N.;** VARIABLEN
**.X X.;***********************
*********.W H..GL VIDEORAM =1024+5*40
.. R..GL SCROLLSCR =4096.. ...GL SCROL
LBREITE=120.B ...GL ROBEN =49.Z ..
.GL RUNTEN =89.. ...GL RHARD
=98.. ..;..!...GL IRQVEC =$0314.$!...GL
IRQALT =$EA31.:!...GL IRQEND =$EA81.P!..
.GL VIC =$D000.G!...GL IRQMASK=VIC+26
.~!B..GL IRQFLAG=VIC+25..!L..GL RASTER =
VIC+18..!V..GL HIBIT =VIC+17.C!...GL XS
CROLL=VIC+22.Y!...GL CIATIME=$DC0E..!..;
..!...GL VRAM =679.."F..GL SCRSTART=V
RAM+2.("P..GL SRAM =SCRSTART+2.@"Z..G
L SBREITE =SRAM+2.["...GL GRENZE =SBREI
TE+2.U"...GL SCRPOS =GRENZE+2.."...GL P
IXPOS =SCRPOS+2.."...GL STEP =PIXPOS
+1.A"...GL DIRECT =STEP+1.."...GL PSTEP
=DIRECT+1.." ..GL PDIRECT =PSTEP+1.."
*.;. #.';*******************************
*.F#.';** HARD-SCROLL-ROUTINE **.
L#$';********************************.#
.'HSCROLL LDX#20..#8' LDASRAM..#B' STAMO
DI1+1..#L' LDASRAM+1..#V' STAMODI1+2.H#`
' LDAVRAM.X#J' STAMODI2+1..#T' LDAVRAM+1
..#~' STAMODI2+2..$.'LINELOOP LDY#39. $.
'MODI1 LDA65535,Y.5$.'MODI2 STA65535,Y.>
$.' DEY.L$.' BPLMODI1.U$.' CLC.E$D' LDAM
ODI1+1.U$N' ADCSBREITE..$X' STAMODI1+1..
$.' LDAMODI1+2..$.' ADCSBREITE+1..$.' ST
AMODI1+2..$.( CLC.P$.( LDAMODI2+1..$.( A
DC#40..$.( STAMODI2+1..$(( LDAMODI2+2..%
2( ADC#0..%<( STAMODI2+2. %F( DEX.1%P( B
NELINELOOP.:%Z( RTS.B%`..EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL