_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

BLOCKVERSCH.

FILE INFORMATION

FILENAME(S): BLOCKVERSCH.

FILE TYPE(S): PRG

FILE SIZE: 412b

FIRST SEEN: 2025-11-02 22:11:34

APPEARS ON: 3 disk(s)

FILE HASH

42eb4af1ff1ab2f0c24f64ab80ace57c16f6132ca529342d191752bd1c0ecd9b

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SONDERHEFT ASS BLOCKVERSCH. PRG Treasure Chest - ToGuMi 10 2 DOWNLOAD FILE
SONDERHEFT ASS BLOCKVERSCH. PRG C64er 10 2 DOWNLOAD FILE
SONDERHEFT ASS BLOCKVERSCH. PRG DuncanTwain 10 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F FE 1F 64 00 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |....d.;---------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 00  16 20 6E 00 3B 20 42 4C  |-------.. n.; BL|
00000030: 4F 43 4B 56 45 52 53 43  48 49 45 42 55 4E 47 00  |OCKVERSCHIEBUNG.|
00000040: 2F 20 78 00 3B 20 28 4D  41 58 49 4D 41 4C 20 32  |/ x.; (MAXIMAL 2|
00000050: 35 35 20 42 59 54 45 29  00 55 20 82 00 3B 2D 2D  |55 BYTE).U ..;--|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 00 71  |--------------.q|
00000080: 20 8C 00 20 2E 42 41 24  43 30 30 30 3B 50 52 4F  | .. .BA$C000;PRO|
00000090: 47 52 41 4D 4D 53 54 41  52 54 00 90 20 96 00 20  |GRAMMSTART.. .. |
000000A0: 2E 45 51 51 55 45 4C 4C  45 3D 24 34 30 30 3B 42  |.EQQUELLE=$400;B|
000000B0: 4C 4F 43 4B 53 54 41 52  54 00 A6 20 A0 00 20 2E  |LOCKSTART.. .. .|
000000C0: 45 51 5A 49 45 4C 3D 24  34 30 30 2B 32 34 30 00  |EQZIEL=$400+240.|
000000D0: C5 20 AA 00 20 2E 45 51  4C 41 45 4E 47 45 3D 32  |. .. .EQLAENGE=2|
000000E0: 34 30 3B 42 4C 4F 43 4B  4C 41 45 4E 47 45 00 F1  |40;BLOCKLAENGE..|
000000F0: 20 B4 00 3B 20 58 20 4C  41 45 55 46 54 20 52 55  | ..; X LAEUFT RU|
00000100: 45 43 4B 57 41 45 52 54  53 20 56 4F 4E 20 4C 41  |ECKWAERTS VON LA|
00000110: 45 4E 47 45 20 42 49 53  20 31 00 01 21 BE 00 20  |ENGE BIS 1..!.. |
00000120: 4C 44 58 23 4C 41 45 4E  47 45 00 18 21 C8 00 4C  |LDX#LAENGE..!..L|
00000130: 4F 4F 50 20 4C 44 41 51  55 45 4C 4C 45 2D 31 2C  |OOP LDAQUELLE-1,|
00000140: 58 00 29 21 D2 00 20 53  54 41 5A 49 45 4C 2D 31  |X.)!.. STAZIEL-1|
00000150: 2C 58 00 39 21 DC 00 20  44 45 58 3B 58 3A 3D 58  |,X.9!.. DEX;X:=X|
00000160: 2D 31 00 5C 21 E6 00 20  42 4E 45 4C 4F 4F 50 3B  |-1.\!.. BNELOOP;|
00000170: 46 41 4C 4C 53 20 58 3C  3E 30 2C 20 4E 41 43 48  |FALLS X<>0, NACH|
00000180: 20 4C 4F 4F 50 00 70 21  F0 00 20 52 54 53 3B 53  | LOOP.p!.. RTS;S|
00000190: 4F 4E 53 54 20 45 4E 44  45 00 00 00              |ONST ENDE...    |
X...D.;--------------------------------.
. N.; BLOCKVERSCHIEBUNG./ X.; (MAXIMAL 2
55 BYTE).U ..;--------------------------
------.Q .. .BA$C000;PROGRAMMSTART.. .. 
.EQQUELLE=$400;BLOCKSTART..  . .EQZIEL=$
400+240.E .. .EQLAENGE=240;BLOCKLAENGE..
 ..; X LAEUFT RUECKWAERTS VON LAENGE BIS
 1..!.. LDX#LAENGE..!H.LOOP LDAQUELLE-1,
X.)!R. STAZIEL-1,X.9!.. DEX;X:=X-1.\!.. 
BNELOOP;FALLS X<>0, NACH LOOP.P!.. RTS;S
ONST ENDE...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL