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

BEISPIEL 4.SRC

FILE INFORMATION

FILENAME(S): BEISPIEL 4.SRC

FILE TYPE(S): PRG

FILE SIZE: 452b

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

APPEARS ON: 1 disk(s)

FILE HASH

ebd1a977092f36748237b3dc55b2b1058d89c144a039300adfeb6be519095ebd

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0D 08 05 00 9E 37  AC 34 30 39 36 00 18 08  |.......7.4096...|
00000010: 06 00 2E 4F 50 54 20 50  00 26 08 0A 00 9F 20 B2  |...OPT P.&.... .|
00000020: 20 24 46 46 43 30 00 39  08 14 00 53 45 54 46 4C  | $FFC0.9...SETFL|
00000030: 53 20 B2 20 24 46 46 42  41 00 4C 08 1E 00 53 45  |S . $FFBA.L...SE|
00000040: 54 4E 41 4D 20 B2 20 24  46 46 42 44 00 5A 08 28  |TNAM . $FFBD.Z.(|
00000050: 00 99 20 B2 20 24 46 46  44 32 00 6A 08 32 00 9C  |.. . $FFD2.j.2..|
00000060: 43 48 20 B2 20 24 46 46  43 43 00 78 08 3C 00 85  |CH . $FFCC.x.<..|
00000070: 20 B2 20 24 46 46 43 46  00 8A 08 46 00 43 48 4B  | . $FFCF...F.CHK|
00000080: 49 4E 20 B2 20 24 46 46  43 36 00 98 08 50 00 A0  |IN . $FFC6...P..|
00000090: 20 B2 20 24 46 46 43 33  00 A9 08 5A 00 53 54 41  | . $FFC3...Z.STA|
000000A0: 54 55 53 20 B2 20 24 39  30 00 C6 08 64 00 4C 44  |TUS . $90...d.LD|
000000B0: 41 20 23 31 20 3B 20 BC  49 53 43 48 45 20 46 49  |A #1 ; .ISCHE FI|
000000C0: C3 55 4D 4D 45 52 00 D1  08 6E 00 4C 44 58 20 23  |.UMMER...n.LDX #|
000000D0: 38 00 DD 08 78 00 4C 44  59 20 23 31 35 00 EC 08  |8...x.LDY #15...|
000000E0: 82 00 4A 53 52 20 53 45  54 46 4C 53 00 F7 08 8C  |..JSR SETFLS....|
000000F0: 00 4C 44 41 20 23 30 00  06 09 96 00 4A 53 52 20  |.LDA #0.....JSR |
00000100: 53 45 54 4E 41 4D 00 1D  09 A0 00 4A 53 52 20 9F  |SETNAM.....JSR .|
00000110: 20 3B 20 46 49 4C 45 20  4F 46 A5 45 4E 00 28 09  | ; FILE OF.EN.(.|
00000120: AA 00 4C 44 58 20 23 31  00 50 09 B4 00 4A 53 52  |..LDX #1.P...JSR|
00000130: 20 43 48 4B 49 4E 20 3B  20 45 49 4E 47 41 42 45  | CHKIN ; EINGABE|
00000140: 20 56 4F 4D 20 46 45 48  4C 45 52 4B 41 4E 41 4C  | VOM FEHLERKANAL|
00000150: 00 5D 09 BE 00 4C 31 20  4A 53 52 20 85 00 67 09  |.]...L1 JSR ..g.|
00000160: C8 00 4A 53 52 20 99 00  86 09 D2 00 42 49 54 20  |..JSR ......BIT |
00000170: 53 54 41 54 55 53 20 3B  20 53 54 41 54 55 53 20  |STATUS ; STATUS |
00000180: 54 45 53 54 45 4E 00 91  09 DC 00 42 56 43 20 4C  |TESTEN.....BVC L|
00000190: 31 00 9D 09 E6 00 4A 53  52 20 9C 43 48 00 A8 09  |1.....JSR .CH...|
000001A0: F0 00 4C 44 41 20 23 31  00 B2 09 FA 00 4A 53 52  |..LDA #1.....JSR|
000001B0: 20 A0 00 BA 09 04 01 52  54 53 00 C1 09 0E 01 2E  | ......RTS......|
000001C0: 80 00 00 00                                       |....            |

.......7.4096......OPT P.&.... . $FFC0.9
...SETFLS . $FFBA.L...SETNAM . $FFBD.Z.(
.. . $FFD2.J.2..CH . $FFCC.X.<.. . $FFCF
...F.CHKIN . $FFC6...P.  . $FFC3...Z.STA
TUS . $90.F.D.LDA #1 ; .ISCHE FICUMMER.Q
.N.LDX #8...X.LDY #15.....JSR SETFLS....
.LDA #0.....JSR SETNAM... .JSR . ; FILE 
OF.EN.(...LDX #1.P...JSR CHKIN ; EINGABE
 VOM FEHLERKANAL.]...L1 JSR ..G.H.JSR ..
..R.BIT STATUS ; STATUS TESTEN.....BVC L
1.....JSR .CH.....LDA #1.....JSR  .....R
TS.A........
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL