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

OBJ'SAVE.L

FILE INFORMATION

FILENAME(S): OBJ'SAVE.L

FILE TYPE(S): SEQ

FILE SIZE: 716b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

34cd02d39c8f1be9ca3e207a210cb74823c9e48bcf3e307958e239f6cf272f05

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL OBJ'SAVE.L SEQ hedning, Mattias H00r 10 13 DOWNLOAD FILE
CCS COMAL OBJ'SAVE.L SEQ hedning, Mattias H00r 10 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4F 42 4A 27 53 41  |9000 PROC OBJ'SA|
00000010: 56 45 28 46 49 4C 45 4E  41 4D 45 24 2C 53 54 41  |VE(FILENAME$,STA|
00000020: 52 54 27 41 44 44 52 2C  45 4E 44 27 41 44 44 52  |RT'ADDR,END'ADDR|
00000030: 2C 44 45 56 49 43 45 29  20 43 4C 4F 53 45 44 0D  |,DEVICE) CLOSED.|
00000040: 39 30 31 30 20 53 54 41  52 54 27 48 49 3A 3D 49  |9010 START'HI:=I|
00000050: 4E 54 28 53 54 41 52 54  27 41 44 44 52 2F 32 35  |NT(START'ADDR/25|
00000060: 36 29 0D 39 30 32 30 20  53 54 41 52 54 27 4C 4F  |6).9020 START'LO|
00000070: 3A 3D 53 54 41 52 54 27  41 44 44 52 2D 53 54 41  |:=START'ADDR-STA|
00000080: 52 54 27 48 49 2A 32 35  36 0D 39 30 33 30 20 45  |RT'HI*256.9030 E|
00000090: 4E 44 27 41 44 44 52 3A  3D 45 4E 44 27 41 44 44  |ND'ADDR:=END'ADD|
000000A0: 52 2B 31 0D 39 30 34 30  20 45 4E 44 27 48 49 3A  |R+1.9040 END'HI:|
000000B0: 3D 49 4E 54 28 45 4E 44  27 41 44 44 52 2F 32 35  |=INT(END'ADDR/25|
000000C0: 36 29 0D 39 30 35 30 20  45 4E 44 27 4C 4F 3A 3D  |6).9050 END'LO:=|
000000D0: 45 4E 44 27 41 44 44 52  2D 45 4E 44 27 48 49 2A  |END'ADDR-END'HI*|
000000E0: 32 35 36 0D 39 30 36 30  20 4C 3A 3D 4C 45 4E 28  |256.9060 L:=LEN(|
000000F0: 46 49 4C 45 4E 41 4D 45  24 29 0D 39 30 37 30 20  |FILENAME$).9070 |
00000100: 46 4F 52 20 49 3A 3D 31  20 54 4F 20 4C 20 44 4F  |FOR I:=1 TO L DO|
00000110: 0D 39 30 38 30 20 50 4F  4B 45 20 38 32 37 2B 49  |.9080 POKE 827+I|
00000120: 2C 4F 52 44 28 46 49 4C  45 4E 41 4D 45 24 28 49  |,ORD(FILENAME$(I|
00000130: 29 29 0D 39 30 39 30 20  45 4E 44 46 4F 52 20 49  |)).9090 ENDFOR I|
00000140: 0D 39 31 30 30 20 46 4F  52 20 49 3A 3D 38 35 30  |.9100 FOR I:=850|
00000150: 20 54 4F 20 38 38 36 20  44 4F 0D 39 31 31 30 20  | TO 886 DO.9110 |
00000160: 52 45 41 44 20 58 0D 39  31 32 30 20 50 4F 4B 45  |READ X.9120 POKE|
00000170: 20 49 2C 58 0D 39 31 33  30 20 45 4E 44 46 4F 52  | I,X.9130 ENDFOR|
00000180: 20 0D 39 31 34 30 20 44  41 54 41 20 31 36 39 2C  | .9140 DATA 169,|
00000190: 30 2C 31 37 30 2C 31 36  30 2C 32 35 35 2C 33 32  |0,170,160,255,32|
000001A0: 2C 31 38 36 2C 32 35 35  2C 31 36 39 2C 30 2C 31  |,186,255,169,0,1|
000001B0: 36 32 2C 36 30 2C 31 36  30 2C 33 2C 33 32 2C 31  |62,60,160,3,32,1|
000001C0: 38 39 2C 32 35 35 2C 33  32 2C 31 39 32 2C 32 35  |89,255,32,192,25|
000001D0: 35 0D 39 31 35 30 20 44  41 54 41 20 31 36 39 2C  |5.9150 DATA 169,|
000001E0: 30 2C 31 37 30 2C 31 36  39 2C 30 2C 31 36 38 2C  |0,170,169,0,168,|
000001F0: 31 36 39 2C 32 35 31 2C  33 32 2C 32 31 36 2C 32  |169,251,32,216,2|
00000200: 35 35 2C 31 36 39 2C 30  2C 33 32 2C 31 39 35 2C  |55,169,0,32,195,|
00000210: 32 35 35 2C 39 36 0D 39  31 36 30 20 50 4F 4B 45  |255,96.9160 POKE|
00000220: 20 38 35 31 2C 44 45 56  49 43 45 0D 39 31 37 30  | 851,DEVICE.9170|
00000230: 20 50 4F 4B 45 20 38 38  32 2C 44 45 56 49 43 45  | POKE 882,DEVICE|
00000240: 0D 39 31 38 30 20 50 4F  4B 45 20 38 35 39 2C 4C  |.9180 POKE 859,L|
00000250: 0D 39 31 39 30 20 50 4F  4B 45 20 38 37 31 2C 45  |.9190 POKE 871,E|
00000260: 4E 44 27 4C 4F 0D 39 32  30 30 20 50 4F 4B 45 20  |ND'LO.9200 POKE |
00000270: 38 37 34 2C 45 4E 44 27  48 49 0D 39 32 31 30 20  |874,END'HI.9210 |
00000280: 50 4F 4B 45 20 32 35 31  2C 53 54 41 52 54 27 4C  |POKE 251,START'L|
00000290: 4F 0D 39 32 32 30 20 50  4F 4B 45 20 32 35 32 2C  |O.9220 POKE 252,|
000002A0: 53 54 41 52 54 27 48 49  0D 39 32 33 30 20 53 59  |START'HI.9230 SY|
000002B0: 53 20 38 35 30 0D 39 32  34 30 20 45 4E 44 50 52  |S 850.9240 ENDPR|
000002C0: 4F 43 20 4F 42 4A 27 53  41 56 45 0D              |OC OBJ'SAVE.    |

9000 PROC OBJ'SAVE(FILENAME$,START'ADDR,
END'ADDR,DEVICE) CLOSED.9010 START'HI:=I
NT(START'ADDR/256).9020 START'LO:=START'
ADDR-START'HI*256.9030 END'ADDR:=END'ADD
R+1.9040 END'HI:=INT(END'ADDR/256).9050 
END'LO:=END'ADDR-END'HI*256.9060 L:=LEN(
FILENAME$).9070 FOR I:=1 TO L DO.9080 PO
KE 827+I,ORD(FILENAME$(I)).9090 ENDFOR I
.9100 FOR I:=850 TO 886 DO.9110 READ X.9
120 POKE I,X.9130 ENDFOR .9140 DATA 169,
0,170,160,255,32,186,255,169,0,162,60,16
0,3,32,189,255,32,192,255.9150 DATA 169,
0,170,169,0,168,169,251,32,216,255,169,0
,32,195,255,96.9160 POKE 851,DEVICE.9170
 POKE 882,DEVICE.9180 POKE 859,L.9190 PO
KE 871,END'LO.9200 POKE 874,END'HI.9210 
POKE 251,START'LO.9220 POKE 252,START'HI
.9230 SYS 850.9240 ENDPROC OBJ'SAVE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL