CHARACTER SAVES
FILE INFORMATION
FILENAME(S): CHARACTER SAVES
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 16:09:40
APPEARS ON: 1 disk(s)
FILE HASH
9814f4c6b10b97f18a37efcea2c7b95f2bdf6cf291466ce67b7b2610a36eb9a8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SSD OF COSMOS | CHARACTER SAVES | PRG | BrainSkull, Sammlung | 17 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 00 00 89 33 30 30 00 59 08 01 00 8F |.......300.Y....| 00000010: 20 43 4F 50 59 20 43 48 52 20 53 45 54 20 20 46 | COPY CHR SET F| 00000020: 52 4F 4D 20 52 45 41 44 2D 4F 4E 4C 59 2D 4D 45 |ROM READ-ONLY-ME| 00000030: 4D 4F 52 59 20 54 4F 20 52 41 4E 44 4F 4D 2D 41 |MORY TO RANDOM-A| 00000040: 43 43 45 53 53 2D 4D 45 4D 4F 52 59 20 28 52 4F |CCESS-MEMORY (RO| 00000050: 4D 20 54 4F 20 52 41 4D 29 00 71 08 02 00 8F 20 |M TO RAM).q.... | 00000060: 28 55 50 50 45 52 20 43 41 53 45 20 4F 4E 4C 59 |(UPPER CASE ONLY| 00000070: 29 00 B6 08 05 00 99 C7 28 43 48 29 3A 8F 20 20 |).......(CH):. | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 53 57 49 54 43 48 20 54 4F 20 43 48 41 | SWITCH TO CHA| 000000A0: 52 41 43 54 45 52 20 53 45 54 20 54 4F 20 42 45 |RACTER SET TO BE| 000000B0: 20 53 41 56 45 44 00 F6 08 14 00 97 35 36 33 33 | SAVED......5633| 000000C0: 34 2C C2 28 35 36 33 33 34 29 AF 32 35 34 3A 8F |4,.(56334).254:.| 000000D0: 20 20 20 20 20 20 54 55 52 4E 20 4F 46 46 20 4B | TURN OFF K| 000000E0: 45 59 53 43 41 4E 20 49 4E 54 45 52 52 55 50 54 |EYSCAN INTERRUPT| 000000F0: 20 54 49 4D 45 52 00 32 09 1E 00 97 31 2C C2 28 | TIMER.2....1,.(| 00000100: 31 29 AF 32 35 31 3A 8F 20 20 20 20 20 20 20 20 |1).251:. | 00000110: 20 20 20 20 20 20 42 41 4E 4B 20 53 57 49 54 43 | BANK SWITC| 00000120: 48 20 49 4E 20 43 48 41 52 41 43 54 45 52 20 52 |H IN CHARACTER R| 00000130: 4F 4D 00 6F 09 28 00 81 49 B2 30 A4 32 35 36 AC |OM.o.(..I.0.256.| 00000140: 38 3A 97 31 32 32 38 38 AA 49 2C C2 28 35 33 32 |8:.12288.I,.(532| 00000150: 34 38 AA 53 AA 49 29 3A 82 3A 8F 20 43 4F 50 59 |48.S.I):.:. COPY| 00000160: 20 43 48 41 52 41 43 54 45 52 20 44 41 54 41 00 | CHARACTER DATA.| 00000170: B5 09 32 00 97 31 2C C2 28 31 29 B0 34 3A 8F 20 |..2..1,.(1).4:. | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 42 41 4E 4B 20 53 57 49 54 43 48 20 49 4E 20 49 |BANK SWITCH IN I| 000001A0: 4E 50 55 54 2F 4F 55 54 50 55 54 20 28 49 2F 4F |NPUT/OUTPUT (I/O| 000001B0: 29 20 52 4F 4D 00 F5 09 3C 00 97 35 36 33 33 34 |) ROM...<..56334| 000001C0: 2C C2 28 35 36 33 33 34 29 B0 31 3A 8F 20 20 20 |,.(56334).1:. | 000001D0: 20 20 20 20 20 20 52 45 53 54 41 52 54 20 4B 45 | RESTART KE| 000001E0: 59 53 43 41 4E 20 49 4E 54 45 52 52 55 50 54 20 |YSCAN INTERRUPT | 000001F0: 54 49 4D 45 52 00 2D 0A 64 00 8F 20 20 20 20 20 |TIMER.-.d.. | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4B | DISK| 00000220: 20 53 41 56 45 20 52 4F 55 54 49 4E 45 00 3F 0A | SAVE ROUTINE.?.| 00000230: 6E 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 |n..15,8,15,"I0".| 00000240: 59 0A 78 00 9F 33 2C 38 2C 31 2C 22 30 3A 22 AA |Y.x..3,8,1,"0:".| 00000250: 46 24 AA 22 2C 50 2C 57 22 00 6E 0A 82 00 84 31 |F$.",P,W".n....1| 00000260: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 7C |5,EN,EM$,ET,ES.|| 00000270: 0A 8C 00 8B 45 4E B2 30 A7 32 32 30 00 9F 0A 96 |....EN.0.220....| 00000280: 00 8B 45 4E B3 B1 36 33 A7 99 45 4E 3B 45 4D 24 |..EN..63..EN;EM$| 00000290: 3B 45 54 3B 45 53 3A A0 33 3A A0 31 35 3A 80 00 |;ET;ES:.3:.15:..| 000002A0: C6 0A A0 00 99 22 46 49 4C 45 20 45 58 49 53 54 |....."FILE EXIST| 000002B0: 53 2E 20 52 45 50 4C 41 43 45 20 49 54 20 28 59 |S. REPLACE IT (Y| 000002C0: 2F 4E 29 3F 22 3B 00 D9 0A AA 00 A1 41 24 3A 8B |/N)?";......A$:.| 000002D0: 41 24 B2 22 22 A7 31 37 30 00 F3 0A B4 00 99 41 |A$."".170......A| 000002E0: 24 3A 8B 41 24 B3 B1 22 59 22 A7 A0 33 3A A0 31 |$:.A$.."Y"..3:.1| 000002F0: 35 3A 80 00 0B 0B BE 00 98 31 35 2C 22 53 30 3A |5:.......15,"S0:| 00000300: 22 AA 46 24 AA 22 2C 50 2C 57 22 00 1B 0B C8 00 |".F$.",P,W".....| 00000310: A0 33 3A A0 31 35 3A 89 31 30 30 00 63 0B D2 00 |.3:.15:.100.c...| 00000320: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000340: 20 20 54 48 45 20 52 45 41 4C 20 47 55 54 53 20 | THE REAL GUTS | 00000350: 4F 46 20 54 48 45 20 53 41 56 45 20 52 4F 55 54 |OF THE SAVE ROUT| 00000360: 49 4E 45 00 A8 0B DC 00 97 31 35 37 2C 31 32 38 |INE......157,128| 00000370: 3A 97 32 35 31 2C 30 3A 97 32 35 32 2C 34 38 3A |:.251,0:.252,48:| 00000380: 8F 20 32 35 31 3D 53 54 52 54 20 41 44 44 52 45 |. 251=STRT ADDRE| 00000390: 53 53 20 4C 4F 57 2D 32 35 32 3D 53 54 52 54 20 |SS LOW-252=STRT | 000003A0: 41 44 44 20 48 49 47 48 00 E6 0B E6 00 97 37 38 |ADD HIGH......78| 000003B0: 30 2C 32 35 31 3A 97 37 38 31 2C 30 3A 97 37 38 |0,251:.781,0:.78| 000003C0: 32 2C 35 36 3A 8F 20 54 45 4C 4C 53 20 36 34 20 |2,56:. TELLS 64 | 000003D0: 57 48 45 52 45 20 54 4F 20 46 49 4E 44 20 53 54 |WHERE TO FIND ST| 000003E0: 41 52 54 49 4E 47 00 30 0C F0 00 8F 20 41 44 44 |ARTING.0.... ADD| 000003F0: 52 45 53 53 20 28 50 4F 4B 45 37 38 30 2C 32 35 |RESS (POKE780,25| 00000400: 31 29 20 41 4E 44 20 54 48 45 20 4C 4F 57 20 41 |1) AND THE LOW A| 00000410: 4E 44 20 48 49 47 48 20 42 59 54 45 53 20 4F 46 |ND HIGH BYTES OF| 00000420: 20 54 48 45 20 45 4E 44 20 41 44 44 52 45 53 53 | THE END ADDRESS| 00000430: 00 60 0C FA 00 9E 36 35 34 39 36 3A A0 33 3A A0 |.`....65496:.3:.| 00000440: 31 35 3A 80 3A 8F 20 20 20 20 20 4B 45 52 4E 41 |15:.:. KERNA| 00000450: 4C 20 27 4C 4F 41 44 27 20 52 4F 55 54 49 4E 45 |L 'LOAD' ROUTINE| 00000460: 00 6C 0C 2C 01 8F 20 53 45 54 55 50 00 A9 0C 31 |.l.,.. SETUP...1| 00000470: 01 97 35 32 2C 34 38 3A 97 35 36 2C 34 38 3A 9C |..52,48:.56,48:.| 00000480: 3A 8F 20 20 20 20 20 20 20 20 20 20 52 45 53 45 |:. RESE| 00000490: 52 56 45 20 4D 45 4D 4F 52 59 20 46 4F 52 20 43 |RVE MEMORY FOR C| 000004A0: 48 41 52 41 43 54 45 52 53 00 D6 0C 36 01 99 22 |HARACTERS...6.."| 000004B0: 93 90 43 4F 50 59 20 26 20 53 41 56 45 20 55 50 |..COPY & SAVE UP| 000004C0: 50 45 52 20 43 41 53 45 20 2D 20 4C 4F 57 45 52 |PER CASE - LOWER| 000004D0: 20 43 41 53 45 22 00 0F 0D 3B 01 99 22 4F 52 20 | CASE"...;.."OR | 000004E0: 43 4F 4D 50 55 54 45 52 20 43 48 41 52 41 43 54 |COMPUTER CHARACT| 000004F0: 45 52 20 53 45 54 20 28 4D 55 53 54 20 42 45 20 |ER SET (MUST BE | 00000500: 49 4E 20 20 20 20 20 4D 45 4D 4F 52 59 29 22 00 |IN MEMORY)".| 00000510: 2F 0D 40 01 99 22 11 11 11 20 20 20 20 20 20 20 |/.@.."... | 00000520: 20 20 20 20 28 55 2F 4C 2F 43 29 3F 20 22 3B 00 | (U/L/C)? ";.| 00000530: 42 0D 4A 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |B.J..A$:.A$."".3| 00000540: 33 30 00 4A 0D 4F 01 99 41 24 00 76 0D 54 01 8B |30.J.O..A$.v.T..| 00000550: 41 24 B2 22 55 22 A7 46 24 B2 22 55 50 50 45 52 |A$."U".F$."UPPER| 00000560: 43 41 53 45 2E 43 48 52 53 45 54 22 3A 43 48 B2 |CASE.CHRSET":CH.| 00000570: 31 34 32 3A 89 35 00 A8 0D 5E 01 8B 41 24 B2 22 |142:.5...^..A$."| 00000580: 4C 22 A7 46 24 B2 22 4C 4F 57 45 52 43 41 53 45 |L".F$."LOWERCASE| 00000590: 2E 43 48 52 53 45 54 22 3A 53 B2 32 30 34 38 3A |.CHRSET":S.2048:| 000005A0: 43 48 B2 31 34 3A 89 35 00 CE 0D 68 01 8B 41 24 |CH.14:.5...h..A$| 000005B0: B2 22 43 22 A7 46 24 B2 22 43 4F 4D 50 55 54 45 |."C".F$."COMPUTE| 000005C0: 52 2E 43 48 52 53 45 54 22 3A 89 31 30 30 00 DD |R.CHRSET":.100..| 000005D0: 0D 72 01 99 22 91 22 3B 3A 89 33 33 30 00 00 00 |.r..".";:.330...|
.......300.Y.... COPY CHR SET FROM READ
-ONLY-MEMORY TO RANDOM-ACCESS-MEMORY (RO
M TO RAM).Q.... (UPPER CASE ONLY)......G
(CH):. SWITCH TO CHA
RACTER SET TO BE SAVED......56334,B(5633
4).254:. TURN OFF KEYSCAN INTERRUPT
TIMER.2....1,B(1).251:. BA
NK SWITCH IN CHARACTER ROM.O.(..I.0.256.
8:.12288.I,B(53248.S.I):.:. COPY CHARACT
ER DATA...2..1,B(1).4:.
BANK SWITCH IN INPUT/OUTPUT (I/O) ROM...
<..56334,B(56334).1:. RESTART KE
YSCAN INTERRUPT TIMER.-.D..
DISK SAVE ROUTINE.?.
N..15,8,15,"I0".Y.X..3,8,1,"0:".F$.",P,W
".N....15,EN,EM$,ET,ES.|....EN.0.220....
..EN..63..EN;EM$;ET;ES: 3: 15:..F. .."FI
LE EXISTS. REPLACE IT (Y/N)?";.Y....A$:.
A$."".170......A$:.A$.."Y". 3: 15:......
.15,"S0:".F$.",P,W"...H. 3: 15:.100.C.R.
. THE RE
AL GUTS OF THE SAVE ROUTINE......157,128
:.251,0:.252,48:. 251=STRT ADDRESS LOW-2
52=STRT ADD HIGH......780,251:.781,0:.78
2,56:. TELLS 64 WHERE TO FIND STARTING.0
.... ADDRESS (POKE780,251) AND THE LOW A
ND HIGH BYTES OF THE END ADDRESS.`....65
496: 3: 15:.:. KERNAL 'LOAD' ROUTINE
.L.,.. SETUP...1..52,48:.56,48:.:.
RESERVE MEMORY FOR CHARACTERS.V.6.."
..COPY & SAVE UPPER CASE - LOWER CASE"..
.;.."OR COMPUTER CHARACTER SET (MUST BE
IN MEMORY)"./.@.."... (U/L
/C)? ";.B.J..A$:.A$."".330.J.O..A$.V.T..
A$."U".F$."UPPERCASE.CHRSET":CH.142:.5..
.^..A$."L".F$."LOWERCASE.CHRSET":S.2048:
CH.14:.5.N.H..A$."C".F$."COMPUTER.CHRSET
":.100...R..".";:.330...
> CLICK IMAGE PREVIEW FOR FULL MODAL