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

PROGR.LISTEN 3

FILE INFORMATION

FILENAME(S): PROGR.LISTEN 3

FILE TYPE(S): PRG

FILE SIZE: 449b

FIRST SEEN: 2025-11-30 01:12:48

APPEARS ON: 2 disk(s)

FILE HASH

f4c81d26d503935f3718e79a1077d8f9c4c09fe2b1f42f718397140b468799e9

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TEST PROGR.LISTEN 3 PRG C64er 29 2 DOWNLOAD FILE
64 ER OKT 84 PROGR.LISTEN 3 PRG DuncanTwain 29 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 10 0A 10 0A 00 9F 34  2C 34 00 34 10 14 00 98  |.......4,4.4....|
00000010: 34 2C 22 20 20 20 20 20  4C 44 59 20 23 24 46 46  |4,"     LDY #$FF|
00000020: 20 20 20 20 20 5A 45 49  43 48 45 4E 5A 41 45 48  |     ZEICHENZAEH|
00000030: 4C 45 52 22 00 61 10 1E  00 98 34 2C 22 4E 45 58  |LER".a....4,"NEX|
00000040: 54 20 49 4E 59 20 20 20  20 20 20 20 20 20 20 4E  |T INY          N|
00000050: 41 45 43 48 53 54 45 53  20 5A 45 49 43 48 45 4E  |AECHSTES ZEICHEN|
00000060: 22 00 84 10 28 00 98 34  2C 22 20 20 20 20 20 4C  |"...(..4,"     L|
00000070: 44 41 20 24 43 30 39 45  2C 59 20 20 49 4E 20 41  |DA $C09E,Y  IN A|
00000080: 4B 4B 55 22 00 AA 10 32  00 98 34 2C 22 20 20 20  |KKU"...2..4,"   |
00000090: 20 20 42 50 4C 20 4E 4F  52 4D 20 20 20 20 20 57  |  BPL NORM     W|
000000A0: 4F 52 54 45 4E 44 45 20  3F 22 00 D7 10 3C 00 98  |ORTENDE ?"...<..|
000000B0: 34 2C 22 20 20 20 20 20  41 4E 44 20 23 24 37 46  |4,"     AND #$7F|
000000C0: 20 20 20 20 20 44 41 4E  4E 20 4E 4F 52 4D 41 4C  |     DANN NORMAL|
000000D0: 49 53 49 45 52 54 22 00  03 11 46 00 98 34 2C 22  |ISIERT"...F..4,"|
000000E0: 20 20 20 20 20 4A 53 52  20 24 43 42 34 37 20 20  |     JSR $CB47  |
000000F0: 20 20 5A 45 49 43 48 45  4E 20 41 55 53 47 45 42  |  ZEICHEN AUSGEB|
00000100: 45 42 22 00 2F 11 50 00  98 34 2C 22 20 20 20 20  |EB"./.P..4,"    |
00000110: 20 4C 44 41 20 23 24 32  45 20 20 20 20 20 57 4F  | LDA #$2E     WO|
00000120: 52 54 54 52 45 4E 4E 5A  45 49 43 48 45 4E 22 00  |RTTRENNZEICHEN".|
00000130: 5B 11 5A 00 98 34 2C 22  4E 4F 52 4D 20 4A 53 52  |[.Z..4,"NORM JSR|
00000140: 20 24 43 42 34 37 20 20  20 20 5A 45 49 43 48 45  | $CB47    ZEICHE|
00000150: 4E 20 41 55 53 47 45 42  45 42 22 00 8C 11 64 00  |N AUSGEBEB"...d.|
00000160: 98 34 2C 22 20 20 20 20  20 42 4E 45 20 4E 45 58  |.4,"     BNE NEX|
00000170: 54 20 20 20 20 20 5A 45  49 43 48 45 4E 20 49 4E  |T     ZEICHEN IN|
00000180: 20 41 4B 4B 55 20 3D 20  30 20 3F 22 00 BD 11 6E  | AKKU = 0 ?"...n|
00000190: 00 98 34 2C 22 45 4E 44  45 20 52 54 53 20 20 20  |..4,"ENDE RTS   |
000001A0: 20 20 20 20 20 20 20 44  41 4E 4E 20 5A 55 52 55  |       DANN ZURU|
000001B0: 45 43 4B 20 5A 55 20 42  41 53 49 43 22 00 00 00  |ECK ZU BASIC"...|
000001C0: 33                                                |3               |

.......4,4.4....4,"     LDY #$FF     ZEI
CHENZAEHLER".A....4,"NEXT INY          N
AECHSTES ZEICHEN"...(..4,"     LDA $C09E
,Y  IN AKKU"...2..4,"     BPL NORM     W
ORTENDE ?".W.<..4,"     AND #$7F     DAN
N NORMALISIERT"...F..4,"     JSR $CB47  
  ZEICHEN AUSGEBEB"./.P..4,"     LDA #$2
E     WORTTRENNZEICHEN".[.Z..4,"NORM JSR
 $CB47    ZEICHEN AUSGEBEB"...D..4,"    
 BNE NEXT     ZEICHEN IN AKKU = 0 ?"...N
..4,"ENDE RTS          DANN ZURUECK ZU B
ASIC"...3
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL