SCREENLOADER
FILE INFORMATION
FILENAME(S): SCREENLOADER
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 01:07:08
APPEARS ON: 1 disk(s)
FILE HASH
154978e5ba6cebb5793927a3d7e5c7c779ef35eca12f02509602bcf439e2aef7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RT TUDIO V1 1 | SCREENLOADER | PRG | hedning, hedemora | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 05 00 50 B2 50 AA 31 3A 8B 20 50 B1 |......P.P.1:. P.|
00000010: 31 20 A7 20 89 20 33 30 30 00 3F 08 0A 00 8F 2A |1 . . 300.?....*|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000040: 65 08 0B 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |e....* |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 2A 00 8B 08 0C 00 8F 2A 20 20 20 41 | *......* A|
00000070: 52 54 20 53 54 55 44 49 4F 20 53 43 52 45 45 4E |RT STUDIO SCREEN|
00000080: 20 4C 4F 41 44 45 52 20 20 20 2A 00 B1 08 0D 00 | LOADER *.....|
00000090: 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.* |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 2A 00 D7 08 0E 00 8F 2A 20 20 20 54 48 49 53 20 |*......* THIS |
000000C0: 50 52 4F 47 52 41 4D 20 44 45 4D 4F 4E 53 54 52 |PROGRAM DEMONSTR|
000000D0: 41 54 45 53 20 20 2A 00 FD 08 0F 00 8F 2A 20 20 |ATES *......* |
000000E0: 48 4F 57 20 59 4F 55 20 43 41 4E 20 4C 4F 41 44 |HOW YOU CAN LOAD|
000000F0: 20 41 20 50 49 43 54 55 52 45 20 20 2A 00 23 09 | A PICTURE *.#.|
00000100: 10 00 8F 2A 20 20 43 52 45 41 54 45 44 20 42 59 |...* CREATED BY|
00000110: 20 41 52 54 20 53 54 55 44 49 4F 20 49 4E 54 4F | ART STUDIO INTO|
00000120: 20 30 2A 00 49 09 11 00 8F 2A 20 20 54 48 45 20 | 0*.I....* THE |
00000130: 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 46 4F 52 |COMMODORE 64 FOR|
00000140: 20 55 53 45 20 49 4E 20 2A 00 6F 09 12 00 8F 2A | USE IN *.o....*|
00000150: 20 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 | YOUR OWN PROGR|
00000160: 41 4D 53 2E 20 20 20 20 20 20 20 20 20 20 2A 00 |AMS. *.|
00000170: 95 09 13 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |.....* |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 2A 00 BB 09 14 00 8F 2A 20 20 57 52 | *......* WR|
000001A0: 49 54 54 45 4E 20 42 59 20 43 48 52 49 53 20 53 |ITTEN BY CHRIS S|
000001B0: 41 55 4E 44 45 52 53 20 20 20 2A 00 E1 09 15 00 |AUNDERS *.....|
000001C0: 8F 2A 20 20 43 4F 50 59 52 49 47 48 54 20 31 39 |.* COPYRIGHT 19|
000001D0: 38 8B 8F F0 78 7F 8F FF 7F 74 7F 77 FF 7F 8F 8F |8...x....t.w....|
000001E0: 8C FF F1 FC FB FF FA 9C 8F 8F 8F 8F 8F 8F 8F 8F |................|
000001F0: 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 20 20 20 20 |............ |
00000200: 20 20 20 20 20 20 2A 00 2D 0A 17 00 8F 2A 2A 2A | *.-....***|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 49 0A |*************.I.|
00000230: 1E 00 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..SP$." |
00000240: 20 20 20 20 20 20 20 20 22 00 53 0A 31 00 99 1A | ".S.1...|
00000250: 99 8D FF FF 1B FC 89 FF FF 9F 88 FF 79 F7 8F F9 |............y...|
00000260: 77 F7 7F FF 70 9F 84 9F F9 78 79 FF 7F 75 8F FF |w...p....xy..u..|
00000270: 70 7F 7F FF 79 88 FF 1F FC 89 FF FF 9D FF FF F7 |p...y...........|
00000280: FC 18 FF FA FF CF FC 1F FF FA 9F 8F F1 FF 79 F9 |..............y.|
00000290: 77 8F F1 7F 77 8F F7 FF 7F 9F F1 FF 7F 7F 75 FF |w...w.........u.|
000002A0: 74 7F 9F F0 71 8F F7 FF 7F FF FF FC 1F FF FA 9F |t...q...........|
000002B0: 8F FF FF 79 7F 79 FF 77 8F FF FF 78 77 F7 79 FF |...y.y.w...xw.y.|
000002C0: 95 8F F5 FF 74 7F 79 9F FF 79 FF 9F 8F 9B FF 09 |....t.y..y......|
000002D0: FC 11 FF FA 9F 8F F8 7F 7F 79 FF 78 77 FF 79 F9 |.........y.xw.y.|
000002E0: 9F FF 70 75 F1 9F 77 FF 7F 9F FF 7F 79 77 8F F1 |..pu..w.....yw..|
000002F0: FF 7B FF FF FB FC B1 FF FA 9F 20 4F 46 20 57 48 |.{........ OF WH|
00000300: 49 43 48 20 41 52 45 20 41 4C 57 41 59 53 20 27 |ICH ARE ALWAYS '|
00000310: 20 20 50 49 43 27 00 1C 0B 68 00 8F 00 40 0B 69 | PIC'...h...@.i|
00000320: 00 8F 20 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |.. THIS ROUTINE|
00000330: 20 41 44 44 53 20 54 48 45 20 4C 41 53 54 20 35 | ADDS THE LAST 5|
00000340: 00 61 0B 6A 00 8F 20 20 43 48 41 52 41 43 54 45 |.a.j.. CHARACTE|
00000350: 52 53 20 4F 4E 20 54 4F 20 54 48 45 20 45 4E 44 |RS ON TO THE END|
00000360: 2E 00 67 0B 6B 00 8F 00 82 0B 96 00 85 20 22 4E |..g.k........ "N|
00000370: 41 4D 45 20 4F 46 20 50 49 43 54 55 52 45 22 3B |AME OF PICTURE";|
00000380: 41 24 00 A5 0B A0 00 41 24 B2 C8 28 20 41 24 20 |A$.....A$..( A$ |
00000390: AA 20 53 50 24 2C 20 31 31 20 29 8F CC 8F 88 8F |. SP$, 11 ).....|
000003A0: 8F FF FF 78 98 FF CC FC D7 FF FA FF FA FC D7 FF |...x............|
000003B0: FA 9F 8F FF F9 FF 75 F7 8F F7 FF 7F 9F 8F F1 F7 |......u.........|
000003C0: 7F 7F 9F F1 FF 7F 7F 75 FF 74 7F 9F FF 75 FF FF |.......u.t...u..|
000003D0: 07 FC DB FF FA 9F 8F FF 77 F7 FF 74 7F F7 8F F7 |........w..t....|
000003E0: F0 9F FF 70 7F 7F 8F F7 FF 7F 9F F1 FF 7F 7F 9F |...p............|
000003F0: F1 F9 F0 74 FF FF FF DB 00 8F 20 20 54 48 45 20 |...t...... THE |
00000400: 44 49 53 4B 20 44 52 49 56 45 2E 20 28 43 48 41 |DISK DRIVE. (CHA|
00000410: 4E 47 45 20 54 48 45 20 38 00 3F 0C B8 00 8F 20 |NGE THE 8.?.... |
00000420: 20 54 4F 20 41 20 31 20 49 46 20 59 4F 55 20 57 | TO A 1 IF YOU W|
00000430: 49 53 48 20 54 4F 20 55 53 45 20 54 48 49 53 00 |ISH TO USE THIS.|
00000440: 64 0C B9 00 8F 20 20 50 52 4F 47 52 41 4D 20 54 |d.... PROGRAM T|
00000450: 4F 20 4C 4F 41 44 20 50 49 43 54 55 52 45 53 20 |O LOAD PICTURES |
00000460: 46 52 4F 4D 00 87 0C BA 00 8F 20 20 54 48 45 20 |FROM...... THE |
00000470: 43 41 53 53 45 54 54 45 20 55 4E 49 54 20 49 4E |CASSETTE UNIT IN|
00000480: 53 54 45 41 44 2E 29 00 8D 0C BB 00 8F 00 AB 0C |STEAD.).........|
00000490: C8 00 99 3A 99 22 4C 4F 4F 4B 49 4E 47 20 46 4F |...:."LOOKING FO|
000004A0: 52 20 27 22 3B 41 24 3B 22 27 22 00 B7 0C FA 00 |R '";A$;"'".....|
000004B0: 93 41 24 2C 63 FB CC 81 5F 86 8F 8C FF 81 6F 86 |.A$,c..._.....o.|
000004C0: 1F 8C F6 80 88 BF AA 88 ED 9E 88 AD 9D DA 88 D9 |................|
000004D0: A6 88 9F 9D E8 9E 88 D9 9F 9D BA 88 D9 9F 9D 88 |................|
000004E0: 0C 16 19 8C F6 80 88 D8 BF AC D9 DD E8 9E 88 BF |................|
000004F0: DD EC DA 88 9F 9C 56 45 20 4C 4F 41 44 45 44 2C |......VE LOADED,|
00000500: 20 53 4F 00 28 0D 2F 01 8F 20 20 57 45 20 4D 55 | SO.(./.. WE MU|
00000510: 53 54 20 4E 4F 57 20 44 49 53 50 4C 41 59 20 49 |ST NOW DISPLAY I|
00000520: 54 2E 20 46 49 52 53 54 00 4A 0D 30 01 8F 20 20 |T. FIRST.J.0.. |
00000530: 53 45 54 20 54 48 45 20 53 43 52 45 45 4E 20 54 |SET THE SCREEN T|
00000540: 4F 20 48 49 47 48 20 52 45 53 00 6F 0D 31 01 8F |O HIGH RES.o.1..|
00000550: 20 20 4D 4F 44 45 20 41 4E 44 20 53 45 54 20 54 | MODE AND SET T|
00000560: 48 45 20 53 54 41 52 54 20 4F 46 20 54 48 45 00 |HE START OF THE.|
00000570: 92 0D 32 01 8F 20 20 53 43 52 45 45 4E 20 54 4F |..2.. SCREEN TO|
00000580: 20 4C 4F 43 41 54 49 4F 4E 20 38 67 F3 FF FB F2 | LOCATION 8g....|
00000590: F6 FF FF 74 FB FF F6 31 FF FF EF F2 D2 FF FF D2 |...t...1........|
000005A0: FF FF EF F2 FF FF F6 FF FF FF FE FF FF FF EF F2 |................|
000005B0: F6 ED FF DF D2 FA FE FF AA FB C9 8C F6 80 88 BF |................|
000005C0: E4 88 EC 9C E9 9D 9A 88 A9 E8 AF B6 88 A8 FF 88 |................|
000005D0: 9C E8 DA 88 EC D9 DD 99 BF A6 1A 1F 81 A8 16 CD |................|
000005E0: 8C FF 88 8D 1A 49 8C F6 80 88 AC AF B9 EC DD 9F |.....I..........|
000005F0: DA 88 D9 9F 45 20 43 36 34 20 50 52 4F 47 52 41 |....E C64 PROGRA|
00000600: 4D 4D 45 52 53 00 29 0E 37 01 8F 20 20 52 45 46 |MMERS.).7.. REF|
00000610: 45 52 45 4E 43 45 20 4D 41 4E 55 41 4C 20 46 4F |ERENCE MANUAL FO|
00000620: 52 20 44 45 54 41 49 4C 53 00 4F 0E 38 01 8F 20 |R DETAILS.O.8.. |
00000630: 20 4F 46 20 48 4F 57 20 54 4F 20 50 4F 53 49 54 | OF HOW TO POSIT|
00000640: 49 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 2E 00 |ION THE SCREEN..|
00000650: 55 0E 39 01 8F 00 6E 0E 40 01 97 20 35 33 32 37 |U.9...n.@.. 5327|
00000660: 32 2C C2 28 15 33 32 37 32 29 20 B0 20 38 00 88 |2,.(.3272) . 8..|
00000670: 0E 4A 01 97 20 35 33 32 36 35 2C C2 28 35 33 32 |.J.. 53265,.(532|
00000680: 36 35 29 20 B0 20 33 32 00 8E 0E 90 01 8F 00 B1 |65) . 32........|
00000690: 0E 91 01 8F 20 20 4E 4F 57 20 43 4F 50 59 20 54 |.... NOW COPY T|
000006A0: 48 45 20 43 4F 4C 4F 55 52 20 44 41 54 41 20 54 |HE COLOUR DATA T|
000006B0: 4F 00 D7 0E A2 01 8F 20 20 54 48 45 20 54 45 58 |O...... THE TEX|
000006C0: 54 20 53 43 52 45 45 4E 20 4D 45 4D 4F 52 59 2E |T SCREEN MEMORY.|
000006D0: 20 43 4F 4C 4F 55 52 00 FB 0E BC 8C F6 80 88 99 | COLOUR.........|
000006E0: 9C D9 94 88 BF E4 88 EC 9C E9 9D 9A 88 99 BF E8 |................|
000006F0: 9D AC 54 4C 59 20 41 46 54 45 52 00 21 0F 94 01 |..TLY AFTER.!...|
00000700: 8F 20 20 54 48 45 20 53 43 52 45 45 4E 20 44 41 |. THE SCREEN DA|
00000710: 54 41 2C 20 48 45 4E 43 45 20 49 54 20 57 49 4C |TA, HENCE IT WIL|
00000720: 4C 00 44 0F 95 01 8F 20 20 53 54 41 52 54 20 41 |L.D.... START A|
00000730: 54 20 38 67 F3 FF FF F7 FF F3 FF FF FF FB FF FF |T 8g............|
00000740: D2 DF DF FE FF C2 F1 3F F6 31 FF FF F7 FF F2 D2 |.......?.1......|
00000750: FF FE FF FF FF DF FF FE FE DD FF D2 FF FF F3 FF |................|
00000760: FF FF FF DF F2 EF FE FF FF FF 3F F1 34 F6 31 FF |..........?.4.1.|
00000770: FF FF DF D0 FF DA F6 FB FF EF FE E2 ED FF FF DF |................|
00000780: FF FE FE DD FF DA FE DA D0 FF F3 FF D2 FF FF 66 |...............f|
00000790: F1 22 F6 31 FF FF FF EF D0 FF FE FD FF F6 ED FF |.".1............|
000007A0: FA D0 DF F6 EF D2 D0 DD FF F7 FF FF FD FF D0 DD |................|
000007B0: FA FF B4 F1 32 F6 31 FF FF F6 DF FD FF D0 DF DF |....2.1.........|
000007C0: EE EF D2 FE FF FF F7 FF FF FF FF DF F2 EF FE FF |................|
000007D0: FD FF EE FF FF FF F6 FF 1F F1 3F F6 31 FF FF FF |..........?.1...|
000007E0: D2 DA EF FA FF FF DF D0 FF FF FA D0 D0 EF FF ED |................|
000007F0: 4F 20 44 4F 20 54 48 49 53 3A 00 00 10 9B 01 8F |O DO THIS:......|
00000800: 00 17 10 C2 01 44 B2 31 30 32 34 3A 53 B2 38 30 |.....D.1024:S.80|
00000810: 30 30 AA 38 31 39 32 00 32 10 CC 01 81 49 B2 30 |00.8192.2....I.0|
00000820: A4 39 39 39 3A 97 44 AA 49 2C C2 28 53 AA 49 29 |.999:.D.I,.(S.I)|
00000830: 3A 82 00 38 10 F4 01 8F 00 5E 10 F5 01 8F 20 20 |:..8.....^.... |
00000840: 46 49 4E 41 4C 4C 59 20 43 4F 50 59 20 54 48 45 |FINALLY COPY THE|
00000850: 20 42 4F 52 44 45 52 20 43 4F 4C 4F 55 52 00 82 | BORDER COLOUR..|
00000860: 10 F6 01 8F 20 20 46 52 4F 4D 20 57 48 45 52 45 |.... FROM WHERE|
00000870: 20 49 54 20 49 53 20 53 54 4F 52 45 44 20 49 4E | IT IS STORED IN|
00000880: 54 4F 00 A5 10 F7 01 8F 20 20 54 48 45 20 41 50 |TO...... THE AP|
00000890: 50 52 4F 50 52 49 41 54 45 20 52 45 47 49 53 54 |PROPRIATE REGIST|
000008A0: 45 52 20 49 4E 00 CA 10 F8 01 8F 20 20 54 48 45 |ER IN...... THE|
000008B0: 20 56 49 43 20 43 48 49 50 2E 20 54 48 45 20 42 | VIC CHIP. THE B|
000008C0: 4F 52 44 45 52 20 42 59 54 45 00 F0 10 F9 01 8F |ORDER BYTE......|
000008D0: 20 20 46 4F 4C 4C 4F 57 53 20 41 46 54 45 52 20 | FOLLOWS AFTER |
000008E0: 54 48 45 20 43 4F 4C 4F 55 52 20 44 41 54 41 2E |THE COLOUR DATA.|
000008F0: 00 F6 10 FA 01 8F 00 0E 11 26 02 97 20 35 33 32 |.........&.. 532|
00000900: 38 30 2C 20 C2 28 20 31 37 31 39 32 20 29 00 14 |80, .( 17192 )..|
00000910: 11 58 02 8F 00 38 11 59 02 8F 20 20 4E 4F 57 20 |.X...8.Y.. NOW |
00000920: 57 41 49 54 20 46 4F 52 20 41 20 4B 45 59 20 54 |WAIT FOR A KEY T|
00000930: 4F 20 42 45 20 48 49 54 00 5B 11 5A 02 8F 20 20 |O BE HIT.[.Z.. |
00000940: 41 4E 44 20 54 48 45 4E 20 52 45 53 54 4F 52 45 |AND THEN RESTORE|
00000950: 20 54 48 45 20 4E 4F 52 4D 41 4C 00 74 11 5B 02 | THE NORMAL.t.[.|
00000960: 8F 20 20 54 45 58 54 20 4D 4F 44 45 20 53 43 52 |. TEXT MODE SCR|
00000970: 45 45 4E 2E 00 7A 11 5C 02 8F 00 94 11 8A 02 A1 |EEN..z.\........|
00000980: 20 41 24 3A 20 8B 20 41 24 20 B2 20 22 22 20 A7 | A$: . A$ . "" .|
00000990: 20 36 35 30 00 AF 11 94 02 97 20 35 33 32 36 35 | 650...... 53265|
000009A0: 2C C2 28 35 33 32 36 35 29 20 AF 20 32 32 33 00 |,.(53265) . 223.|
000009B0: CA 11 9E 02 97 20 35 33 32 37 32 2C C2 28 35 33 |..... 53272,.(53|
000009C0: 32 37 32 29 20 AF 20 32 34 37 00 DE 11 A8 02 99 |272) . 247......|
000009D0: 20 22 93 22 3A 97 35 33 32 38 30 2C 31 34 00 00 | ".":.53280,14..|
000009E0: 00 |. |
......P.P.1:. P.1 . . 300.?....*********
***********************.E....*
*......* ART STUDI
O SCREEN LOADER *......*
*.W....* THIS PROGRAM
DEMONSTRATES *......* HOW YOU CAN LOAD
A PICTURE *.#....* CREATED BY ART STU
DIO INTO 0*.I....* THE COMMODORE 64 FOR
USE IN *.O....* YOUR OWN PROGRAMS.
*......*
*......* WRITTEN BY CHRIS SAUNDERS
*......* COPYRIGHT 198...X..TW...
............................ *.
-....********************************.I.
..SP$." ".S.1...........
....Y...W..P....XY.U..P.Y...........
.....O........Y.W..W......U.T..Q...
..........YY.W...XW.Y.....TY..Y......
.......Y.XW.Y...PU..W...YW...{......
.. OF WHICH ARE ALWAYS ' PIC'...H...@.I
.. THIS ROUTINE ADDS THE LAST 5.A.J..
CHARACTERS ON TO THE END..G.K........ "N
AME OF PICTURE";A$... .A$.H( A$ . SP$, 1
1 ).L......X..L.W.....W.......U........
...U.T..U..........W..T......P..
........T...... THE DISK DRIVE. (CHA
NGE THE 8.?.... TO A 1 IF YOU WISH TO U
SE THIS.D.... PROGRAM TO LOAD PICTURES
FROM...... THE CASSETTE UNIT INSTEAD.).
........H..:."LOOKING FOR '";A$;"'".....
.A$,C.L._.....O..............Z.Y.......Y
....Y..........X..Y.......Z...VE LOADED,
SO.(./.. WE MUST NOW DISPLAY IT. FIRST
.J.0.. SET THE SCREEN TO HIGH RES.O.1..
MODE AND SET THE START OF THE...2.. S
CREEN TO LOCATION 8G.......T...1....R..R
....................R.....I.............
..........Z..Y.........M.....I..........
Z.Y.E C64 PROGRAMMERS.).7.. REFERENCE M
ANUAL FOR DETAILS.O.8.. OF HOW TO POSIT
ION THE SCREEN..U.9...N.@.. 53272,B(.327
2) . 8...J.. 53265,B(53265) . 32........
.... NOW COPY THE COLOUR DATA TO.W....
THE TEXT SCREEN MEMORY. COLOUR.........
.Y................TLY AFTER.!.... THE S
CREEN DATA, HENCE IT WILL.D.... START A
T 8G............R....B.?.1.....R........
...R..............?.4.1....P.Z..........
.....Z.ZP...R..F.".1....P........P...RP.
......P.....2.1......P....R.............
..........?.1...RZ.....P...PP...O DO THI
S:.........B.D.1024:S.8000.8192.2.L..I.0
.999:.D.I,B(S.I):..8.....^.... FINALLY
COPY THE BORDER COLOUR...... FROM WHERE
IT IS STORED INTO...... THE APPROPRIAT
E REGISTER IN.J.... THE VIC CHIP. THE B
ORDER BYTE...... FOLLOWS AFTER THE COLO
UR DATA..........&.. 53280, B( 17192 )..
.X...8.Y.. NOW WAIT FOR A KEY TO BE HIT
.[.Z.. AND THEN RESTORE THE NORMAL.T.[.
. TEXT MODE SCREEN..Z.\........ A$: . A
$ . "" . 650...... 53265,B(53265) . 223.
J.... 53272,B(53272) . 247...... ".":.53
280,14...
> CLICK IMAGE PREVIEW FOR FULL MODAL