> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 00 00 8B 41 B2 30 A7 41 B2 31 3A 93 |.......A.0.A.1:.|
00000010: 22 58 58 22 2C 38 2C 31 00 3F 08 01 00 99 22 93 |"XX",8,1.?....".|
00000020: 43 4F 4D 50 52 45 53 53 4F 52 20 2D 20 53 43 4F |COMPRESSOR - SCO|
00000030: 54 54 20 4D 49 4C 4C 45 52 20 50 45 54 54 59 00 |TT MILLER PETTY.|
00000040: 6D 08 02 00 99 22 11 54 4F 20 55 53 45 20 2D 20 |m....".TO USE - |
00000050: 53 59 53 34 39 31 35 32 2C 53 41 2C 50 41 2C 52 |SYS49152,SA,PA,R|
00000060: 41 20 57 48 45 52 45 20 53 41 20 49 53 00 98 08 |A WHERE SA IS...|
00000070: 03 00 99 22 54 48 45 20 53 54 41 52 54 49 4E 47 |..."THE STARTING|
00000080: 20 41 52 45 41 20 4F 46 20 52 41 4D 20 59 4F 55 | AREA OF RAM YOU|
00000090: 20 57 49 53 48 20 54 4F 00 C9 08 04 00 99 22 43 | WISH TO......"C|
000000A0: 4F 4D 50 52 45 53 53 2C 20 50 41 20 49 53 20 54 |OMPRESS, PA IS T|
000000B0: 48 45 20 53 54 41 52 54 49 4E 47 20 41 52 45 41 |HE STARTING AREA|
000000C0: 20 4F 46 20 52 41 4D 22 3B 00 17 09 05 00 99 22 | OF RAM";......"|
000000D0: 54 4F 20 50 4C 41 43 45 20 54 48 45 20 43 4F 4D |TO PLACE THE COM|
000000E0: 50 52 45 53 53 45 44 20 44 41 54 41 2C 20 41 4E |PRESSED DATA, AN|
000000F0: 44 20 52 41 20 49 53 20 54 48 45 20 4E 55 4D 42 |D RA IS THE NUMB|
00000100: 45 52 20 4F 46 20 42 59 54 45 53 20 54 4F 20 43 |ER OF BYTES TO C|
00000110: 4F 4D 50 52 45 53 53 00 42 09 06 00 99 22 11 53 |OMPRESS.B....".S|
00000120: 4F 20 46 4F 52 20 45 58 41 4D 50 4C 45 20 54 4F |O FOR EXAMPLE TO|
00000130: 20 43 4F 4D 50 52 45 53 53 20 31 30 30 30 30 20 | COMPRESS 10000 |
00000140: 54 4F 00 70 09 07 00 99 22 31 39 30 30 30 2C 20 |TO.p...."19000, |
00000150: 41 4E 44 20 50 4C 41 43 45 20 54 48 45 20 43 4F |AND PLACE THE CO|
00000160: 4D 50 52 45 53 53 45 44 20 44 41 54 41 20 41 54 |MPRESSED DATA AT|
00000170: 00 9B 09 08 00 99 22 32 30 30 30 30 2C 20 55 53 |......"20000, US|
00000180: 45 20 53 59 53 34 39 31 35 32 2C 31 30 30 30 30 |E SYS49152,10000|
00000190: 2C 32 30 30 30 30 2C 39 30 30 30 00 C8 09 09 00 |,20000,9000.....|
000001A0: 99 22 11 54 48 45 4E 20 45 4E 54 45 52 20 45 41 |.".THEN ENTER EA|
000001B0: 3D 50 45 45 4B 28 32 35 33 29 2B 32 35 36 2A 50 |=PEEK(253)+256*P|
000001C0: 45 45 4B 28 32 35 34 29 00 F1 09 0A 00 99 22 54 |EEK(254)......"T|
000001D0: 4F 20 53 41 56 45 20 54 48 45 20 43 4F 4D 50 52 |O SAVE THE COMPR|
000001E0: 45 53 53 45 44 20 44 41 54 41 2C 20 45 4E 54 45 |ESSED DATA, ENTE|
000001F0: 52 00 1B 0A 0B 00 99 22 4F 50 45 4E 32 2C 38 2C |R......"OPEN2,8,|
00000200: 32 2C 22 C7 28 33 34 29 22 46 49 4C 45 4E 41 4D |2,".(34)"FILENAM|
00000210: 45 2C 50 2C 57 22 C7 28 33 34 29 00 4C 0A 0C 00 |E,P,W".(34).L...|
00000220: 99 22 53 59 53 34 39 34 37 36 2C 53 41 2C 45 41 |."SYS49476,SA,EA|
00000230: 2C 4C 41 3A 43 4C 4F 53 45 32 20 57 48 45 52 45 |,LA:CLOSE2 WHERE|
00000240: 20 53 41 20 41 4E 44 20 45 41 22 3B 00 7A 0A 0D | SA AND EA";.z..|
00000250: 00 99 22 41 52 45 20 54 48 45 20 4E 55 4D 42 45 |.."ARE THE NUMBE|
00000260: 52 53 20 4D 45 4E 54 49 4F 4E 45 44 20 41 42 4F |RS MENTIONED ABO|
00000270: 56 45 2C 20 41 4E 44 20 4C 41 00 CB 0A 0E 00 99 |VE, AND LA......|
00000280: 22 49 53 20 54 48 45 20 44 45 53 49 52 45 44 20 |"IS THE DESIRED |
00000290: 4C 4F 41 44 49 4E 47 20 41 44 44 52 45 53 53 2E |LOADING ADDRESS.|
000002A0: 22 3A 99 22 11 53 4F 2C 20 54 4F 20 50 55 54 20 |":.".SO, TO PUT |
000002B0: 54 48 45 20 41 42 4F 56 45 20 45 58 41 4D 50 4C |THE ABOVE EXAMPL|
000002C0: 45 20 55 4E 44 45 52 20 54 48 45 00 02 0B 0F 00 |E UNDER THE.....|
000002D0: 99 22 42 41 53 49 43 20 52 4F 4D 2C 20 45 4E 54 |."BASIC ROM, ENT|
000002E0: 45 52 20 4F 50 45 4E 32 2C 38 2C 32 2C 22 C7 28 |ER OPEN2,8,2,".(|
000002F0: 33 34 29 22 54 45 53 54 2C 50 2C 57 22 C7 28 33 |34)"TEST,P,W".(3|
00000300: 34 29 00 39 0B 10 00 99 22 53 59 53 34 39 34 37 |4).9...."SYS4947|
00000310: 36 2C 32 30 30 30 30 2C 45 41 2C 34 30 39 36 30 |6,20000,EA,40960|
00000320: 3A 43 4C 4F 53 45 32 22 3A 99 22 11 50 52 45 53 |:CLOSE2":.".PRES|
00000330: 53 20 41 4E 59 20 4B 45 59 00 59 0B 11 00 97 31 |S ANY KEY.Y....1|
00000340: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 99 22 93 43 |98,0:.198,1:.".C|
00000350: 4F 4D 50 52 45 53 53 4F 52 00 00 00 |OMPRESSOR... |
.......A.0.A.1:."XX",8,1.?....".COMPRESS
OR - SCOTT MILLER PETTY.M....".TO USE -
SYS49152,SA,PA,RA WHERE SA IS......"THE
STARTING AREA OF RAM YOU WISH TO.I...."C
OMPRESS, PA IS THE STARTING AREA OF RAM"
;......"TO PLACE THE COMPRESSED DATA, AN
D RA IS THE NUMBER OF BYTES TO COMPRESS.
B....".SO FOR EXAMPLE TO COMPRESS 10000
TO.P...."19000, AND PLACE THE COMPRESSED
DATA AT......"20000, USE SYS49152,10000
,20000,9000.H....".THEN ENTER EA=PEEK(25
3)+256*PEEK(254)......"TO SAVE THE COMPR
ESSED DATA, ENTER......"OPEN2,8,2,"G(34)
"FILENAME,P,W"G(34).L...."SYS49476,SA,EA
,LA:CLOSE2 WHERE SA AND EA";.Z...."ARE T
HE NUMBERS MENTIONED ABOVE, AND LA.K....
"IS THE DESIRED LOADING ADDRESS.":.".SO,
TO PUT THE ABOVE EXAMPLE UNDER THE.....
."BASIC ROM, ENTER OPEN2,8,2,"G(34)"TEST
,P,W"G(34).9...."SYS49476,20000,EA,40960
:CLOSE2":.".PRESS ANY KEY.Y....198,0:.19
8,1:.".COMPRESSOR...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL