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

BEISPIEL 21.SRC

FILE INFORMATION

FILENAME(S): BEISPIEL 21.SRC

FILE TYPE(S): PRG

FILE SIZE: 232b

FIRST SEEN: 2025-11-30 21:23:11

APPEARS ON: 1 disk(s)

FILE HASH

5d541ece9317121055c6887bdfa732e0642577a2583da0e7ea685a1c4693f7ac

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 HULP 3 1 BEISPIEL 21.SRC PRG DuncanTwain 10 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 5A 00 41 44  20 3D 20 24 46 41 00 1C  |....Z.AD = $FA..|
00000010: 08 5F 00 41 44 31 20 3D  20 24 46 42 00 29 08 61  |._.AD1 = $FB.).a|
00000020: 00 2A 3D 20 24 43 34 32  30 00 39 08 64 00 4C 44  |.*= $C420.9.d.LD|
00000030: 41 20 23 3C 24 45 30 30  30 00 45 08 6E 00 53 54  |A #<$E000.E.n.ST|
00000040: 41 20 2A 41 44 00 55 08  78 00 4C 44 41 20 23 3E  |A *AD.U.x.LDA #>|
00000050: 24 45 30 30 30 00 62 08  82 00 53 54 41 20 2A 41  |$E000.b...STA *A|
00000060: 44 31 00 6D 08 8C 00 4C  44 41 20 23 30 00 79 08  |D1.m...LDA #0.y.|
00000070: 96 00 4C 44 58 20 23 33  32 00 87 08 AA 00 53 59  |..LDX #32.....SY|
00000080: 4D 42 32 20 54 41 59 00  9C 08 B4 00 53 59 4D 42  |MB2 TAY.....SYMB|
00000090: 31 20 53 54 41 20 28 41  44 29 2C 59 00 A4 08 BE  |1 STA (AD),Y....|
000000A0: 00 49 4E 59 00 B2 08 C8  00 42 4E 45 20 53 59 4D  |.INY.....BNE SYM|
000000B0: 42 31 00 BF 08 D2 00 49  4E 43 20 2A 41 44 31 00  |B1.....INC *AD1.|
000000C0: C7 08 DC 00 44 45 58 00  D5 08 E6 00 42 4E 45 20  |....DEX.....BNE |
000000D0: 53 59 4D 42 32 00 DD 08  F0 00 52 54 53 00 E5 08  |SYMB2.....RTS...|
000000E0: FA 00 2E 45 4E 00 00 00                           |...EN...        |

....Z.AD = $FA..._.AD1 = $FB.).A.*= $C42
0.9.D.LDA #<$E000.E.N.STA *AD.U.X.LDA #>
$E000.B...STA *AD1.M...LDA #0.Y...LDX #3
2.....SYMB2 TAY.....SYMB1 STA (AD),Y....
.INY...H.BNE SYMB1...R.INC *AD1.G...DEX.
U...BNE SYMB2.....RTS......EN...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL