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

PROGRAMS .SYS

FILE INFORMATION

FILENAME(S): PROGRAMS .SYS

FILE TYPE(S): DEL

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 16:09:40

APPEARS ON: 1 disk(s)

FILE HASH

797bc4250cd807f3b96d27b1269cc284c5532dd85fc12c05e23a22423a9a47b1

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SSD OF COSMOS PROGRAMS .SYS DEL BrainSkull, Sammlung 16 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: C2 28 31 29 AF 32 35 31  3A 8F 20 20 20 20 20 20  |.(1).251:.      |
00000010: 20 20 20 20 20 20 20 20  42 41 4E 4B 20 53 57 49  |        BANK SWI|
00000020: 54 43 48 20 49 4E 20 43  48 41 52 41 43 54 45 52  |TCH IN CHARACTER|
00000030: 20 52 4F 4D 00 6F 09 28  00 81 49 B2 30 A4 32 35  | ROM.o.(..I.0.25|
00000040: 36 AC 38 3A 97 31 32 32  38 38 AA 49 2C C2 28 35  |6.8:.12288.I,.(5|
00000050: 33 32 34 38 AA 53 AA 49  29 3A 82 3A 8F 20 43 4F  |3248.S.I):.:. CO|
00000060: 50 59 20 43 48 41 52 41  43 54 45 52 20 44 41 54  |PY CHARACTER DAT|
00000070: 41 00 B5 09 32 00 97 31  2C C2 28 31 29 B0 34 3A  |A...2..1,.(1).4:|
00000080: 8F 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000090: 20 20 42 41 4E 4B 20 53  57 49 54 43 48 20 49 4E  |  BANK SWITCH IN|
000000A0: 20 49 4E 50 55 54 2F 4F  55 54 50 55 54 20 28 49  | INPUT/OUTPUT (I|
000000B0: 2F 4F 29 20 52 4F 4D 00  F5 09 3C 00 97 35 36 33  |/O) ROM...<..563|
000000C0: 33 34 2C C2 28 35 36 33  33 34 29 B0 31 3A 8F 20  |34,.(56334).1:. |
000000D0: 20 20 20 20 20 20 20 20  52 45 53 54 41 52 54 20  |        RESTART |
000000E0: 4B 45 59 53 43 41 4E 20  49 4E 54 45 52 52 55 50  |KEYSCAN INTERRUP|
000000F0: 54 20 54 49 4D 45 52 00  2D 0A 64 00 8F 20 20 20  |T TIMER.-.d..   |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 44 49  |              DI|
00000120: 53 4B 20 53 41 56 45 20  52 4F 55 54 49 4E 45 00  |SK SAVE ROUTINE.|
00000130: 3F 0A 6E 00 9F 31 35 2C  38 2C 31 35 2C 22 49 30  |?.n..15,8,15,"I0|
00000140: 22 00 59 0A 78 00 9F 33  2C 38 2C 31 2C 22 30 3A  |".Y.x..3,8,1,"0:|
00000150: 22 AA 46 24 AA 22 2C 50  2C 57 22 00 6E 0A 82 00  |".F$.",P,W".n...|
00000160: 84 31 35 2C 45 4E 2C 45  4D 24 2C 45 54 2C 45 53  |.15,EN,EM$,ET,ES|
00000170: 00 7C 0A 8C 00 8B 45 4E  B2 30 A7 32 32 30 00 9F  |.|....EN.0.220..|
00000180: 0A 96 00 8B 45 4E B3 B1  36 33 A7 99 45 4E 3B 45  |....EN..63..EN;E|
00000190: 4D 24 3B 45 54 3B 45 53  3A A0 33 3A A0 31 35 3A  |M$;ET;ES:.3:.15:|
000001A0: 80 00 C6 0A A0 00 99 22  46 49 4C 45 20 45 58 49  |......."FILE EXI|
000001B0: 53 54 53 2E 20 52 45 50  4C 41 43 45 20 49 54 20  |STS. REPLACE IT |
000001C0: 28 59 2F 4E 29 3F 22 3B  00 D9 0A AA 00 A1 41 24  |(Y/N)?";......A$|
000001D0: 3A 8B 41 24 B2 22 22 A7  31 37 30 00 F3 0A B4 00  |:.A$."".170.....|
000001E0: 99 41 24 3A 8B 41 24 B3  B1 22 59 22 A7 A0 33 3A  |.A$:.A$.."Y"..3:|
000001F0: A0 31 35 3A 80 00 0B 0B  BE 00 98 31 35 2C 22 53  |.15:.......15,"S|
00000200: 30 3A 22 AA 46 24 AA 22  2C 50 2C 57 22 00 1B 0B  |0:".F$.",P,W"...|
00000210: C8 00 A0 33 3A A0 31 35  3A 89 31 30 30 00 63 0B  |...3:.15:.100.c.|
00000220: D2 00 8F 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000230: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000240: 20 20 20 20 54 48 45 20  52 45 41 4C 20 47 55 54  |    THE REAL GUT|
00000250: 53 20 4F 46 20 54 48 45  20 53 41 56 45 20 52 4F  |S OF THE SAVE RO|
00000260: 55 54 49 4E 45 00 A8 0B  DC 00 97 31 35 37 2C 31  |UTINE......157,1|
00000270: 32 38 3A 97 32 35 31 2C  30 3A 97 32 35 32 2C 34  |28:.251,0:.252,4|
00000280: 38 3A 8F 20 32 35 31 3D  53 54 52 54 20 41 44 44  |8:. 251=STRT ADD|
00000290: 52 45 53 53 20 4C 4F 57  2D 32 35 32 3D 53 54 52  |RESS LOW-252=STR|
000002A0: 54 20 41 44 44 20 48 49  47 48 00 E6 0B E6 00 97  |T ADD HIGH......|
000002B0: 37 38 30 2C 32 35 31 3A  97 37 38 31 2C 30 3A 97  |780,251:.781,0:.|
000002C0: 37 38 32 2C 35 36 3A 8F  20 54 45 4C 4C 53 20 36  |782,56:. TELLS 6|
000002D0: 34 20 57 48 45 52 45 20  54 4F 20 46 49 4E 44 20  |4 WHERE TO FIND |
000002E0: 53 54 41 52 54 49 4E 47  00 30 0C F0 00 8F 20 41  |STARTING.0.... A|
000002F0: 44 44 52 45 53 53 20 28  50 4F 4B 45 37 38 30 2C  |DDRESS (POKE780,|
00000300: 32 35 31 29 20 41 4E 44  20 54 48 45 20 4C 4F 57  |251) AND THE LOW|
00000310: 20 41 4E 44 20 48 49 47  48 20 42 59 54 45 53 20  | AND HIGH BYTES |
00000320: 4F 46 20 54 48 45 20 45  4E 44 20 41 44 44 52 45  |OF THE END ADDRE|
00000330: 53 53 00 60 0C FA 00 9E  36 35 34 39 36 3A A0 33  |SS.`....65496:.3|
00000340: 3A A0 31 35 3A 80 3A 8F  20 20 20 20 20 4B 45 52  |:.15:.:.     KER|
00000350: 4E 41 4C 20 27 4C 4F 41  44 27 20 52 4F 55 54 49  |NAL 'LOAD' ROUTI|
00000360: 4E 45 00 6C 0C 2C 01 8F  20 53 45 54 55 50 00 A9  |NE.l.,.. SETUP..|
00000370: 0C 31 01 97 35 32 2C 34  38 3A 97 35 36 2C 34 38  |.1..52,48:.56,48|
00000380: 3A 9C 3A 8F 20 20 20 20  20 20 20 20 20 20 52 45  |:.:.          RE|
00000390: 53 45 52 56 45 20 4D 45  4D 4F 52 59 20 46 4F 52  |SERVE MEMORY FOR|
000003A0: 20 43 48 41 52 41 43 54  45 52 53 00 D6 0C 36 01  | CHARACTERS...6.|
000003B0: 99 22 93 90 43 4F 50 59  20 26 20 53 41 56 45 20  |."..COPY & SAVE |
000003C0: 55 50 50 45 52 20 43 41  53 45 20 2D 20 4C 4F 57  |UPPER CASE - LOW|
000003D0: 45 52 20 43 41 53 45 22  00 0F 0D 3B 01 99 22 4F  |ER CASE"...;.."O|
000003E0: 52 20 43 4F 4D 50 55 54  45 52 20 43 48 41 52 41  |R COMPUTER CHARA|
000003F0: 43 54 45 52 20 53 45 54  20 28 4D 55 53 54 20 42  |CTER SET (MUST B|
00000400: 45 20 49 4E 20 20 20 20  20 4D 45 4D 4F 52 59 29  |E IN     MEMORY)|
00000410: 22 00 2F 0D 40 01 99 22  11 11 11 20 20 20 20 20  |"./.@.."...     |
00000420: 20 20 20 20 20 20 28 55  2F 4C 2F 43 29 3F 20 22  |      (U/L/C)? "|
00000430: 3B 00 42 0D 4A 01 A1 41  24 3A 8B 41 24 B2 22 22  |;.B.J..A$:.A$.""|
00000440: A7 33 33 30 00 4A 0D 4F  01 99 41 24 00 76 0D 54  |.330.J.O..A$.v.T|
00000450: 01 8B 41 24 B2 22 55 22  A7 46 24 B2 22 55 50 50  |..A$."U".F$."UPP|
00000460: 45 52 43 41 53 45 2E 43  48 52 53 45 54 22 3A 43  |ERCASE.CHRSET":C|
00000470: 48 B2 31 34 32 3A 89 35  00 A8 0D 5E 01 8B 41 24  |H.142:.5...^..A$|
00000480: B2 22 4C 22 A7 46 24 B2  22 4C 4F 57 45 52 43 41  |."L".F$."LOWERCA|
00000490: 53 45 2E 43 48 52 53 45  54 22 3A 53 B2 32 30 34  |SE.CHRSET":S.204|
000004A0: 38 3A 43 48 B2 31 34 3A  89 35 00 CE 0D 68 01 8B  |8:CH.14:.5...h..|
000004B0: 41 24 B2 22 43 22 A7 46  24 B2 22 43 4F 4D 50 55  |A$."C".F$."COMPU|
000004C0: 54 45 52 2E 43 48 52 53  45 54 22 3A 89 31 30 30  |TER.CHRSET":.100|
000004D0: 00 DD 0D 72 01 99 22 91  22 3B 3A 89 33 33 30 00  |...r..".";:.330.|
000004E0: 00 00                                             |..              |
B(1).251:.              BANK SWITCH IN C
HARACTER ROM.O.(..I.0.256.8:.12288.I,B(5
3248.S.I):.:. COPY CHARACTER DATA...2..1
,B(1).4:.                 BANK SWITCH IN
 INPUT/OUTPUT (I/O) ROM...<..56334,B(563
34).1:.         RESTART KEYSCAN INTERRUP
T TIMER.-.D..                           
      DISK SAVE ROUTINE.?.N..15,8,15,"I0
".Y.X..3,8,1,"0:".F$.",P,W".N....15,EN,E
M$,ET,ES.|....EN.0.220......EN..63..EN;E
M$;ET;ES: 3: 15:..F. .."FILE EXISTS. REP
LACE IT (Y/N)?";.Y....A$:.A$."".170.....
.A$:.A$.."Y". 3: 15:.......15,"S0:".F$."
,P,W"...H. 3: 15:.100.C.R..             
                    THE REAL GUTS OF THE
 SAVE ROUTINE......157,128:.251,0:.252,4
8:. 251=STRT ADDRESS LOW-252=STRT ADD HI
GH......780,251:.781,0:.782,56:. TELLS 6
4 WHERE TO FIND STARTING.0.... ADDRESS (
POKE780,251) AND THE LOW AND HIGH BYTES 
OF THE END ADDRESS.`....65496: 3: 15:.:.
     KERNAL 'LOAD' ROUTINE.L.,.. SETUP..
.1..52,48:.56,48:.:.          RESERVE ME
MORY FOR CHARACTERS.V.6.."..COPY & SAVE 
UPPER CASE - LOWER CASE"...;.."OR COMPUT
ER CHARACTER SET (MUST BE IN     MEMORY)
"./.@.."...           (U/L/C)? ";.B.J..A
$:.A$."".330.J.O..A$.V.T..A$."U".F$."UPP
ERCASE.CHRSET":CH.142:.5...^..A$."L".F$.
"LOWERCASE.CHRSET":S.2048:CH.14:.5.N.H..
A$."C".F$."COMPUTER.CHRSET":.100...R..".
";:.330...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL