COPY CHAR SET
FILE INFORMATION
FILENAME(S): COPY CHAR SET
FILE TYPE(S): PRG
FILE SIZE: 558b
FIRST SEEN: 2025-12-01 13:51:32
APPEARS ON: 1 disk(s)
FILE HASH
75c414dd86e2767d22130267223878f61aed34d829e27b28f28f0877eb45dd3d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| METALLICA | COPY CHAR SET | PRG | hedning, The Viking | 30 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 E8 03 8F 20 2A 2A 20 43 4F 50 59 20 |..%.... ** COPY | 00000010: 44 4F 57 4E 20 43 48 41 52 41 43 54 45 52 20 53 |DOWN CHARACTER S| 00000020: 45 54 20 2A 2A 00 3E 08 F2 03 97 35 36 2C 33 32 |ET **.>....56,32| 00000030: 3A 9C 3A 8F 20 4C 4F 57 45 52 20 54 4F 50 00 6E |:.:. LOWER TOP.n| 00000040: 08 FC 03 97 35 36 33 33 34 2C C2 28 35 36 33 33 |....56334,.(5633| 00000050: 34 29 AF 32 35 34 3A 8F 20 20 20 20 54 55 52 4E |4).254:. TURN| 00000060: 20 4F 46 46 20 49 52 51 20 54 49 4D 45 52 00 8B | OFF IRQ TIMER..| 00000070: 08 06 04 97 31 2C C2 28 31 29 AF 32 35 31 3A 8F |....1,.(1).251:.| 00000080: 20 42 49 54 32 20 4E 4F 57 20 30 00 AC 08 10 04 | BIT2 NOW 0.....| 00000090: 8F 20 2A 2A 20 4E 4F 57 20 50 45 52 46 4F 52 4D |. ** NOW PERFORM| 000000A0: 20 54 48 45 20 43 4F 50 59 20 2A 2A 00 BA 08 1A | THE COPY **....| 000000B0: 04 81 49 B2 30 A4 34 30 39 35 00 D1 08 24 04 97 |..I.0.4095...$..| 000000C0: 38 31 39 32 AA 31 2C C2 28 35 33 32 34 38 AA 31 |8192.1,.(53248.1| 000000D0: 29 00 D7 08 2E 04 82 00 F1 08 38 04 8F 20 2A 2A |).........8.. **| 000000E0: 20 43 4F 50 59 20 43 4F 4D 50 4C 45 54 45 20 2A | COPY COMPLETE *| 000000F0: 2A 00 0D 09 42 04 97 31 2C C2 28 31 29 B0 34 3A |*...B..1,.(1).4:| 00000100: 8F 20 42 49 54 20 32 20 4E 4F 57 20 31 00 3D 09 |. BIT 2 NOW 1.=.| 00000110: 4C 04 97 35 36 33 33 34 2C C2 28 35 36 33 33 34 |L..56334,.(56334| 00000120: 29 B0 31 3A 8F 20 20 20 20 20 20 20 54 55 52 4E |).1:. TURN| 00000130: 20 4F 4E 20 49 52 51 20 54 49 4D 45 52 00 5F 09 | ON IRQ TIMER._.| 00000140: 56 04 8F 20 2A 2A 20 4E 4F 57 20 43 48 41 4E 47 |V.. ** NOW CHANG| 00000150: 45 20 43 4D 20 50 4F 49 4E 54 45 52 20 2A 2A 00 |E CM POINTER **.| 00000160: 87 09 60 04 97 35 33 32 37 32 2C 28 C2 28 35 33 |..`..53272,(.(53| 00000170: 32 37 32 29 AF 32 34 30 29 B0 38 3A 8F 20 43 4D |272).240).8:. CM| 00000180: 20 41 54 20 38 31 32 00 A7 09 6A 04 8F 20 2A 2A | AT 812...j.. **| 00000190: 20 4A 55 53 54 20 4D 41 4B 45 20 54 48 45 20 50 | JUST MAKE THE P| 000001A0: 4F 49 4E 54 20 2A 2A 00 B5 09 74 04 43 4D 20 B2 |OINT **...t.CM .| 000001B0: 20 38 31 39 32 00 E3 09 7E 04 81 49 B2 30 A4 37 | 8192...~..I.0.7| 000001C0: 3A 41 52 28 49 29 B2 C2 28 43 4D AA 38 AA 49 29 |:AR(I)..(CM.8.I)| 000001D0: 3A 82 3A 8F 20 53 54 4F 52 45 20 43 48 41 52 20 |:.:. STORE CHAR | 000001E0: 27 41 27 00 1B 0A 88 04 81 49 B2 30 A4 37 3A 97 |'A'......I.0.7:.| 000001F0: 43 4D AA 38 AA 49 2C 41 52 28 37 AB 49 29 3A 82 |CM.8.I,AR(7.I):.| 00000200: 3A 8F 20 54 55 52 4E 20 41 4C 4C 20 41 27 53 20 |:. TURN ALL A'S | 00000210: 55 50 53 49 44 45 20 44 4F 57 4E 00 2B 0A 92 04 |UPSIDE DOWN.+...| 00000220: 99 22 41 41 42 42 43 43 41 41 22 00 00 00 |."AABBCCAA"... |
..%.... ** COPY DOWN CHARACTER SET **.>. ...56,32:.:. LOWER TOP.N....56334,B(5633 4).254:. TURN OFF IRQ TIMER......1,B( 1).251:. BIT2 NOW 0...... ** NOW PERFORM THE COPY **......I.0.4095.Q.$..8192.1,B (53248.1).W.......8.. ** COPY COMPLETE * *...B..1,B(1).4:. BIT 2 NOW 1.=.L..56334 ,B(56334).1:. TURN ON IRQ TIMER._. V.. ** NOW CHANGE CM POINTER **...`..532 72,(B(53272).240).8:. CM AT 812...J.. ** JUST MAKE THE POINT **...T.CM . 8192... ~..I.0.7:AR(I).B(CM.8.I):.:. STORE CHAR 'A'......I.0.7:.CM.8.I,AR(7.I):.:. TURN ALL A'S UPSIDE DOWN.+...."AABBCCAA"...
> CLICK IMAGE PREVIEW FOR FULL MODAL