CBM-64 ADRESSER

FILE INFORMATION

FILENAME(S): CBM-64 ADRESSER

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 19:47:10

APPEARS ON: 1 disk(s)

FILE HASH

0f0d61004a98368800ef17b08d80dfad927836a20eef8c6ef15bb68f2c9a19b7

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HJ LPEDISK A2 2	CBM-64 ADRESSER	PRG	Curtcool, Frank	19	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2F 08 0A 00 9F 32  2C 38 2C 32 2C 22 49 4E  |../....2,8,2,"IN|
00000010: 54 45 52 45 53 53 41 4E  54 45 20 43 50 4D 2D 36  |TERESSANTE CPM-6|
00000020: 34 20 41 44 52 45 53 53  45 52 2C 53 2C 57 22 00  |4 ADRESSER,S,W".|
00000030: 5A 08 14 00 98 32 2C 22  53 59 53 28 36 34 37 33  |Z....2,"SYS(6473|
00000040: 38 29 3D 22 AA 41 24 AA  22 52 45 53 45 54 3D 56  |8)=".A$."RESET=V|
00000050: 41 52 4D 20 53 54 41 52  54 22 00 81 08 16 00 98  |ARM START"......|
00000060: 32 2C 22 50 4F 4B 45 36  34 37 36 30 3D 22 AA 41  |2,"POKE64760=".A|
00000070: 24 AA 22 4F 50 53 54 41  52 54 2B 52 45 53 45 54  |$."OPSTART+RESET|
00000080: 22 00 BB 08 18 00 98 32  2C 22 50 4F 4B 45 36 34  |"......2,"POKE64|
00000090: 37 36 34 3D 22 AA 41 24  AA 22 4F 50 53 54 41 52  |764=".A$."OPSTAR|
000000A0: 54 2B 52 45 53 45 54 20  48 4F 4C 44 45 52 20 53  |T+RESET HOLDER S|
000000B0: 41 4D 4D 45 20 46 41 52  56 45 22 00 E4 08 1E 00  |AMME FARVE".....|
000000C0: 98 32 2C 22 50 4F 4B 45  35 33 32 36 35 2C 31 31  |.2,"POKE53265,11|
000000D0: 3D 22 AA 41 24 AA 22 52  45 4E 53 20 53 4B 5B 52  |=".A$."RENS SK[R|
000000E0: 4D 45 4E 22 00 12 09 28  00 98 32 2C 22 50 4F 4B  |MEN"...(..2,"POK|
000000F0: 45 35 33 32 36 35 2C 32  37 3D 22 AA 41 24 AA 22  |E53265,27=".A$."|
00000100: 54 49 4C 42 41 47 45 20  54 49 4C 20 53 4B 5B 52  |TILBAGE TIL SK[R|
00000110: 4D 22 00 3E 09 32 00 98  32 2C 22 50 4F 4B 45 35  |M".>.2..2,"POKE5|
00000120: 33 32 38 31 2C 30 2D 31  35 3D 22 AA 41 24 AA 22  |3281,0-15=".A$."|
00000130: 42 41 47 52 55 4E 44 53  46 41 52 56 45 22 00 66  |BAGRUNDSFARVE".f|
00000140: 09 3C 00 98 32 2C 22 50  4F 4B 45 35 33 32 38 30  |.<..2,"POKE53280|
00000150: 2C 30 2D 31 35 3D 22 AA  41 24 AA 22 4B 41 4E 54  |,0-15=".A$."KANT|
00000160: 46 41 52 56 45 22 00 8E  09 46 00 98 32 2C 22 50  |FARVE"...F..2,"P|
00000170: 4F 4B 45 37 37 35 2C 32  30 30 3D 22 AA 41 24 AA  |OKE775,200=".A$.|
00000180: 22 4C 49 53 54 53 50 5B  52 52 49 4E 47 22 00 BE  |"LISTSP[RRING"..|
00000190: 09 50 00 98 32 2C 22 50  4F 4B 45 37 37 35 2C 31  |.P..2,"POKE775,1|
000001A0: 36 37 3D 22 AA 41 24 AA  22 4F 50 48 5B 56 45 52  |67=".A$."OPH[VER|
000001B0: 20 4C 49 53 54 53 50 5B  52 52 49 4E 47 22 00 E9  | LISTSP[RRING"..|
000001C0: 09 5A 00 98 32 2C 22 50  4F 4B 45 38 30 38 2C 32  |.Z..2,"POKE808,2|
000001D0: 33 39 3D 22 AA 41 24 22  53 50 5B 52 52 45 52 20  |39=".A$"SP[RRER |
000001E0: 52 55 4E 2F 53 54 4F 50  22 00 1D 0A 64 00 98 32  |RUN/STOP"...d..2|
000001F0: 2C 22 50 4F 4B 45 38 30  38 2C 32 33 37 3D 22 AA  |,"POKE808,237=".|
00000200: 41 24 AA 22 4F 50 48 5B  56 45 52 20 53 50 5B 52  |A$."OPH[VER SP[R|
00000210: 52 45 54 20 52 55 4E 2F  53 54 4F 50 22 00 51 0A  |RET RUN/STOP".Q.|
00000220: 6E 00 98 32 2C 22 50 4F  4B 45 38 30 38 2C 32 32  |n..2,"POKE808,22|
00000230: 35 3D 22 AA 41 24 AA 22  53 50 5B 52 52 45 52 20  |5=".A$."SP[RRER |
00000240: 52 55 4E 2F 53 54 4F 50  2D 52 45 53 54 4F 52 45  |RUN/STOP-RESTORE|
00000250: 22 00 8D 0A 78 00 98 32  2C 22 50 4F 4B 45 38 30  |"...x..2,"POKE80|
00000260: 38 2C 32 33 35 3D 22 AA  41 24 AA 22 4F 50 48 5B  |8,235=".A$."OPH[|
00000270: 56 45 52 20 53 50 5B 52  52 45 54 20 52 55 4E 2F  |VER SP[RRET RUN/|
00000280: 53 54 4F 50 2D 52 45 53  54 4F 52 45 22 00 B4 0A  |STOP-RESTORE"...|
00000290: 82 00 98 32 2C 22 50 4F  4B 45 38 31 36 2C 33 32  |...2,"POKE816,32|
000002A0: 3D 22 AA 41 24 AA 22 53  50 5B 52 52 45 52 20 4C  |=".A$."SP[RRER L|
000002B0: 4F 41 44 22 00 E4 0A 8C  00 98 32 2C 22 50 4F 4B  |OAD"......2,"POK|
000002C0: 45 38 31 36 2C 31 36 35  3D 22 AA 41 24 AA 22 4F  |E816,165=".A$."O|
000002D0: 50 48 5B 56 45 52 20 53  50 5B 52 52 45 54 20 4C  |PH[VER SP[RRET L|
000002E0: 4F 41 44 22 00 0B 0B 96  00 98 32 2C 22 50 4F 4B  |OAD"......2,"POK|
000002F0: 45 38 31 38 2C 33 32 3D  22 AA 41 24 AA 22 53 50  |E818,32=".A$."SP|
00000300: 5B 52 52 45 52 20 53 41  56 45 22 00 3A 0B A0 00  |[RRER SAVE".:...|
00000310: 98 32 2C 22 50 4F 4B 45  38 31 38 2C 32 33 3D 22  |.2,"POKE818,23="|
00000320: AA 41 24 AA 22 4F 50 48  5B 56 45 52 20 53 50 5B  |.A$."OPH[VER SP[|
00000330: 52 52 45 54 20 53 41 56  45 22 00 67 0B AA 00 98  |RRET SAVE".g....|
00000340: 32 2C 22 50 4F 4B 45 36  34 39 2C 30 3D 22 AA 41  |2,"POKE649,0=".A|
00000350: 24 AA 22 53 50 5B 52 52  45 52 20 54 41 4E 47 45  |$."SP[RRER TANGE|
00000360: 4E 54 45 52 4E 45 22 00  9C 0B B4 00 98 32 2C 22  |NTERNE"......2,"|
00000370: 50 4F 4B 45 36 34 39 2C  31 30 3D 22 AA 41 24 AA  |POKE649,10=".A$.|
00000380: 22 4F 50 48 5B 56 45 52  20 53 50 5B 52 52 45 44  |"OPH[VER SP[RRED|
00000390: 45 20 54 41 4E 47 45 4E  54 45 52 22 00 CB 0B BE  |E TANGENTER"....|
000003A0: 00 98 32 2C 22 50 4F 4B  45 35 33 32 37 32 2C 32  |..2,"POKE53272,2|
000003B0: 33 3D 22 AA 41 24 AA 22  53 4D 5D 20 53 4B 5B 52  |3=".A$."SM] SK[R|
000003C0: 4D 42 4F 47 53 54 41 56  45 52 22 00 08 0C C8 00  |MBOGSTAVER".....|
000003D0: 98 32 2C 22 50 4F 4B 45  35 33 32 37 32 2C 32 31  |.2,"POKE53272,21|
000003E0: 3D 22 AA 41 24 AA 22 54  49 4C 42 41 47 45 20 54  |=".A$."TILBAGE T|
000003F0: 49 4C 20 53 54 4F 52 45  20 53 4B 5B 52 4D 42 4F  |IL STORE SK[RMBO|
00000400: 47 53 54 41 56 45 52 22  00 39 0C D2 00 98 32 2C  |GSTAVER".9....2,|
00000410: 22 50 4F 4B 45 35 39 34  36 38 2C 31 32 3D 22 AA  |"POKE59468,12=".|
00000420: 41 24 AA 22 53 4D 5D 20  50 52 49 4E 54 45 52 42  |A$."SM] PRINTERB|
00000430: 4F 47 53 54 41 56 45 52  22 00 78 0C DC 00 98 32  |OGSTAVER".x....2|
00000440: 2C 22 50 4F 4B 45 35 39  34 36 38 2C 31 34 3D 22  |,"POKE59468,14="|
00000450: AA 41 24 AA 22 54 49 4C  42 41 47 45 20 54 49 4C  |.A$."TILBAGE TIL|
00000460: 20 53 54 4F 52 45 20 50  52 49 4E 54 45 52 42 4F  | STORE PRINTERBO|
00000470: 47 53 54 41 56 45 52 22  00 B0 0C E6 00 98 32 2C  |GSTAVER"......2,|
00000480: 22 50 4F 4B 45 37 37 34  2C 32 34 38 3A 50 4F 4B  |"POKE774,248:POK|
00000490: 45 37 37 35 2C 32 35 32  3D 22 AA 41 24 AA 22 4E  |E775,252=".A$."N|
000004A0: 45 57 20 56 45 44 20 4C  49 53 54 4E 49 4E 47 22  |EW VED LISTNING"|
000004B0: 00 E3 0C F0 00 98 32 2C  22 53 59 53 28 36 32 39  |......2,"SYS(629|
000004C0: 31 33 29 3D 22 AA 41 24  AA 22 4E 41 56 4E 45 54  |13)=".A$."NAVNET|
000004D0: 20 50 5D 20 4C 4F 41 44  45 54 20 50 52 4F 47 52  | P] LOADET PROGR|
000004E0: 41 4D 22 00 20 0D FA 00  98 32 2C 22 4F 50 45 4E  |AM". ....2,"OPEN|
000004F0: 31 35 2C 38 2C 31 35 3A  46 4F 52 49 3D 30 54 4F  |15,8,15:FORI=0TO|
00000500: 33 30 3A 53 59 53 28 34  33 39 30 36 29 2C 31 35  |30:SYS(43906),15|
00000510: 2C 41 24 3A 50 52 49 4E  54 20 41 24 3B 3A 22 3B  |,A$:PRINT A$;:";|
00000520: 00 49 0D 04 01 98 32 2C  22 49 46 53 54 3D 30 54  |.I....2,"IFST=0T|
00000530: 48 45 4E 4E 45 58 54 49  3D 22 AA 41 24 AA 22 44  |HENNEXTI=".A$."D|
00000540: 49 53 4B 20 46 45 4A 4C  22 00 7A 0D 0E 01 98 32  |ISK FEJL".z....2|
00000550: 2C 22 50 4F 4B 45 36 35  30 2C 31 32 38 3D 22 AA  |,"POKE650,128=".|
00000560: 41 24 AA 22 52 45 50 45  54 45 52 45 52 20 41 4C  |A$."REPETERER AL|
00000570: 4C 45 20 54 41 53 54 45  52 22 00 AA 0D 13 01 98  |LE TASTER"......|
00000580: 32 2C 22 50 4F 4B 45 36  35 30 2C 30 3D 22 AA 41  |2,"POKE650,0=".A|
00000590: 24 AA 22 4F 50 48 5B 56  45 52 20 52 45 50 54 49  |$."OPH[VER REPTI|
000005A0: 4F 4E 41 46 20 54 41 53  54 22 00 D2 0D 18 01 98  |ONAF TAST"......|
000005B0: 32 2C 22 50 4F 4B 45 36  34 36 2C 30 2D 31 35 3D  |2,"POKE646,0-15=|
000005C0: 22 AA 41 24 AA 22 54 45  4B 53 54 20 46 41 52 56  |".A$."TEKST FARV|
000005D0: 45 22 00 F9 0D 22 01 98  32 2C 22 50 4F 4B 45 37  |E"..."..2,"POKE7|
000005E0: 37 34 2C 30 3D 22 AA 41  24 AA 22 4C 49 53 54 20  |74,0=".A$."LIST |
000005F0: 53 50 5B 52 52 49 4E 47  22 00 29 0E 2C 01 98 32  |SP[RRING".).,..2|
00000600: 2C 22 50 4F 4B 45 37 37  34 2C 32 36 3D 22 AA 41  |,"POKE774,26=".A|
00000610: 24 AA 22 4F 50 48 5B 56  45 52 20 4C 49 53 54 20  |$."OPH[VER LIST |
00000620: 53 50 5B 52 52 49 4E 47  22 00 52 0E 36 01 98 32  |SP[RRING".R.6..2|
00000630: 2C 22 50 4F 4B 45 31 2C  35 34 3D 22 AA 41 24 AA  |,"POKE1,54=".A$.|
00000640: 22 53 57 49 54 43 48 45  52 20 52 4F 4D 20 56 5B  |"SWITCHER ROM V[|
00000650: 4B 22 00 94 0E 40 01 98  32 2C 22 50 4F 4B 45 32  |K"...@..2,"POKE2|
00000660: 31 34 2C 30 2D 32 34 3A  50 52 49 4E 54 3A 50 52  |14,0-24:PRINT:PR|
00000670: 49 4E 54 22 54 45 4B 53  54 B2 22 2B 41 24 2B 22  |INT"TEKST."+A$+"|
00000680: 4C 49 4E 49 45 20 4E 52  2E 20 81 20 55 44 99 4E  |LINIE NR. . UD.N|
00000690: 49 4E 47 22 00 C8 0E 54  01 98 32 2C 22 50 4F 4B  |ING"...T..2,"POK|
000006A0: 45 32 31 31 2C 31 2D 34  30 3D 22 AA 41 AA 22 4D  |E211,1-40=".A."M|
000006B0: 41 4B 5C 52 45 4E 53 20  50 4C 41 44 53 20 50 5D  |AK\RENS PLADS P]|
000006C0: 20 4C 49 4E 49 45 4E 22  00 10 0F 5E 01 98 32 2C  | LINIEN"...^..2,|
000006D0: 22 50 4F 4B 45 35 36 33  32 35 2C 30 2D 32 38 22  |"POKE56325,0-28"|
000006E0: AA 41 AA 22 4C 49 53 54  20 4C 41 4E 47 53 4F 4D  |.A."LIST LANGSOM|
000006F0: 20 4E 4F 52 4D 41 4C 20  54 52 59 4B 3C 52 55 4E  | NORMAL TRYK<RUN|
00000700: 2F 53 54 4F 50 3E 3C 52  45 53 54 4F 52 45 3E 22  |/STOP><RESTORE>"|
00000710: 00 3A 0F 68 01 98 32 2C  22 50 45 45 4B 28 31 39  |.:.h..2,"PEEK(19|
00000720: 37 29 3D 22 AA 41 24 AA  22 53 49 44 53 54 45 20  |7)=".A$."SIDSTE |
00000730: 52 5C 52 54 20 54 41 53  54 22 00 85 0F 72 01 98  |R\RT TAST"...r..|
00000740: 32 2C 22 50 45 45 4B 28  31 39 38 29 3D 22 AA 41  |2,"PEEK(198)=".A|
00000750: 24 AA 22 48 56 4F 52 20  4D 41 4E 47 45 20 42 4F  |$."HVOR MANGE BO|
00000760: 47 53 54 41 56 45 52 20  44 45 52 20 4C 49 47 47  |GSTAVER DER LIGG|
00000770: 45 52 20 49 20 4B 41 52  41 54 45 52 42 55 46 46  |ER I KARATERBUFF|
00000780: 45 52 45 4E 22 00 D1 0F  7C 01 98 32 2C 22 50 45  |EREN"...|..2,"PE|
00000790: 45 4B 28 36 33 31 2D 36  34 30 29 3D 22 AA 41 24  |EK(631-640)=".A$|
000007A0: AA 22 48 56 49 4C 4B 45  20 4B 41 52 41 54 45 52  |."HVILKE KARATER|
000007B0: 45 52 20 44 45 52 20 4C  49 47 47 45 52 20 49 20  |ER DER LIGGER I |
000007C0: 4B 41 52 41 54 45 52 20  42 55 46 46 45 52 45 4E  |KARATER BUFFEREN|
000007D0: 22 00 00 00 00                                    |"....           |

../....2,8,2,"INTERESSANTE CPM-64 ADRESS
ER,S,W".Z....2,"SYS(64738)=".A$."RESET=V
ARM START"......2,"POKE64760=".A$."OPSTA
RT+RESET"......2,"POKE64764=".A$."OPSTAR
T+RESET HOLDER SAMME FARVE"......2,"POKE
53265,11=".A$."RENS SK[RMEN"...(..2,"POK
E53265,27=".A$."TILBAGE TIL SK[RM".>.2..
2,"POKE53281,0-15=".A$."BAGRUNDSFARVE".F
.<..2,"POKE53280,0-15=".A$."KANTFARVE"..
.F..2,"POKE775,200=".A$."LISTSP[RRING"..
.P..2,"POKE775,167=".A$."OPH[VER LISTSP[
RRING"...Z..2,"POKE808,239=".A$"SP[RRER 
RUN/STOP"...D..2,"POKE808,237=".A$."OPH[
VER SP[RRET RUN/STOP".Q.N..2,"POKE808,22
5=".A$."SP[RRER RUN/STOP-RESTORE"...X..2
,"POKE808,235=".A$."OPH[VER SP[RRET RUN/
STOP-RESTORE"......2,"POKE816,32=".A$."S
P[RRER LOAD"......2,"POKE816,165=".A$."O
PH[VER SP[RRET LOAD"......2,"POKE818,32=
".A$."SP[RRER SAVE".:. ..2,"POKE818,23="
.A$."OPH[VER SP[RRET SAVE".G....2,"POKE6
49,0=".A$."SP[RRER TANGENTERNE"......2,"
POKE649,10=".A$."OPH[VER SP[RREDE TANGEN
TER".K....2,"POKE53272,23=".A$."SM] SK[R
MBOGSTAVER"...H..2,"POKE53272,21=".A$."T
ILBAGE TIL STORE SK[RMBOGSTAVER".9.R..2,
"POKE59468,12=".A$."SM] PRINTERBOGSTAVER
".X....2,"POKE59468,14=".A$."TILBAGE TIL
 STORE PRINTERBOGSTAVER"......2,"POKE774
,248:POKE775,252=".A$."NEW VED LISTNING"
......2,"SYS(62913)=".A$."NAVNET P] LOAD
ET PROGRAM". ....2,"OPEN15,8,15:FORI=0TO
30:SYS(43906),15,A$:PRINT A$;:";.I....2,
"IFST=0THENNEXTI=".A$."DISK FEJL".Z....2
,"POKE650,128=".A$."REPETERER ALLE TASTE
R"......2,"POKE650,0=".A$."OPH[VER REPTI
ONAF TAST".R....2,"POKE646,0-15=".A$."TE
KST FARVE"..."..2,"POKE774,0=".A$."LIST 
SP[RRING".).,..2,"POKE774,26=".A$."OPH[V
ER LIST SP[RRING".R.6..2,"POKE1,54=".A$.
"SWITCHER ROM V[K"...@..2,"POKE214,0-24:
PRINT:PRINT"TEKST."+A$+"LINIE NR. . UD.N
ING".H.T..2,"POKE211,1-40=".A."MAK\RENS 
PLADS P] LINIEN"...^..2,"POKE56325,0-28"
.A."LIST LANGSOM NORMAL TRYK<RUN/STOP><R
ESTORE>".:.H..2,"PEEK(197)=".A$."SIDSTE 
R\RT TAST"...R..2,"PEEK(198)=".A$."HVOR 
MANGE BOGSTAVER DER LIGGER I KARATERBUFF
EREN".Q.|..2,"PEEK(631-640)=".A$."HVILKE
 KARATERER DER LIGGER I KARATER BUFFEREN
"....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL