SCREENSAVE.SRC
FILE INFORMATION
FILENAME(S): SCREENSAVE.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-10-20 00:40:16
APPEARS ON: 2 disk(s)
FILE HASH
c06046566b9b72928751d973ae07139525dd16c9d9f74d90828e6266d4c15b0d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90570 S B | SCREENSAVE.SRC | PRG | Treasure Chest - Joker79 | 25 | 8 | DOWNLOAD FILE |
| 90461 SEITE2 | SCREENSAVE.SRC | PRG | DuncanTwain | 5 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FD 1F 0A 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |......; ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 22 20 0B 00 3B 20 2A 20 20 |******." ..; * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 2A 00 47 20 0C 00 | *.G ..| 00000050: 3B 20 2A 20 47 45 4F 53 20 53 43 52 45 45 4E 20 |; * GEOS SCREEN | 00000060: 53 41 56 45 20 53 50 45 49 43 48 45 52 54 20 2A |SAVE SPEICHERT *| 00000070: 00 6C 20 0D 00 3B 20 2A 20 20 20 53 43 48 49 52 |.l ..; * SCHIR| 00000080: 4D 20 41 42 20 24 41 30 30 30 20 20 20 20 20 20 |M AB $A000 | 00000090: 20 20 20 20 2A 00 91 20 0E 00 3B 20 2A 20 20 53 | *.. ..; * S| 000000A0: 4F 55 52 43 45 43 4F 44 45 20 4F 46 20 4F 42 4A |OURCECODE OF OBJ| 000000B0: 45 43 54 46 49 4C 45 20 20 2A 00 B6 20 0F 00 3B |ECTFILE *.. ..;| 000000C0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000000E0: DB 20 10 00 3B 20 2A 20 20 20 54 2E 50 45 54 52 |. ..; * T.PETR| 000000F0: 4F 57 53 4B 49 20 31 2E 31 31 2E 38 36 20 20 20 |OWSKI 1.11.86 | 00000100: 20 20 20 2A 00 00 21 11 00 3B 20 2A 20 20 20 20 | *..!..; * | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 2A 00 25 21 12 00 3B 20 | *.%!..; | 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B |**************.+| 00000150: 21 13 00 3B 00 45 21 14 00 2E 47 4C 20 43 48 4B |!..;.E!...GL CHK| 00000160: 4F 55 54 20 20 20 20 3D 20 24 46 46 43 39 00 5F |OUT = $FFC9._| 00000170: 21 15 00 2E 47 4C 20 50 52 49 4E 54 20 20 20 20 |!...GL PRINT | 00000180: 20 3D 20 24 46 46 44 32 00 79 21 16 00 2E 47 4C | = $FFD2.y!...GL| 00000190: 20 43 4C 52 43 48 20 20 20 20 20 3D 20 24 46 46 | CLRCH = $FF| 000001A0: 43 43 00 87 21 1E 00 2E 42 41 20 35 30 30 30 30 |CC..!...BA 50000| 000001B0: 00 8D 21 63 00 3B 00 A0 21 64 00 3B 20 53 43 48 |..!c.;..!d.; SCH| 000001C0: 49 52 4D 20 53 41 56 45 4E 00 AD 21 6E 00 20 4C |IRM SAVEN..!n. L| 000001D0: 44 41 23 24 41 30 00 BC 21 78 00 20 53 54 41 53 |DA#$A0..!x. STAS| 000001E0: 41 56 45 2B 32 00 CD 21 82 00 49 4E 49 54 20 4C |AVE+2..!..INIT L| 000001F0: 44 58 23 24 30 31 00 DC 21 84 00 20 4A 53 52 43 |DX#$01..!.. JSRC| 00000200: 48 4B 4F 55 54 00 E9 21 85 00 20 4C 44 41 23 24 |HKOUT..!.. LDA#$| 00000210: 30 30 00 F7 21 86 00 20 4A 53 52 50 52 49 4E 54 |00..!.. JSRPRINT| 00000220: 00 04 22 87 00 20 4C 44 41 23 24 41 30 00 24 22 |..".. LDA#$A0.$"| 00000230: 88 00 20 4A 53 52 50 52 49 4E 54 3B 20 52 45 4D |.. JSRPRINT; REM| 00000240: 20 24 41 30 30 30 20 48 45 41 44 45 52 00 2D 22 | $A000 HEADER.-"| 00000250: 8A 00 20 53 45 49 00 39 22 8B 00 20 4C 44 59 23 |.. SEI.9".. LDY#| 00000260: 33 32 00 4A 22 8C 00 52 45 41 44 20 4C 44 58 23 |32.J"..READ LDX#| 00000270: 24 30 30 00 55 22 96 00 49 4F 20 53 45 49 00 62 |$00.U"..IO SEI.b| 00000280: 22 97 00 20 4C 44 41 23 24 33 35 00 6E 22 A0 00 |".. LDA#$35.n"..| 00000290: 20 53 54 41 24 30 31 00 82 22 AA 00 53 41 56 45 | STA$01.."..SAVE| 000002A0: 20 4C 44 41 24 46 46 30 30 2C 58 00 90 22 B4 00 | LDA$FF00,X.."..| 000002B0: 20 53 54 41 24 43 31 30 30 00 9D 22 BE 00 20 4C | STA$C100..".. L| 000002C0: 44 41 23 24 33 37 00 A9 22 C8 00 20 53 54 41 24 |DA#$37..".. STA$| 000002D0: 30 31 00 B2 22 CD 00 20 43 4C 49 00 C0 22 D7 00 |01..".. CLI.."..| 000002E0: 20 4C 44 41 24 43 31 30 30 00 CE 22 DC 00 20 4A | LDA$C100..".. J| 000002F0: 53 52 50 52 49 4E 54 00 D7 22 E6 00 20 49 4E 58 |SRPRINT..".. INX| 00000300: 00 E2 22 F0 00 20 42 4E 45 49 4F 00 F1 22 FA 00 |..".. BNEIO.."..| 00000310: 20 49 4E 43 53 41 56 45 2B 32 00 FF 22 04 01 20 | INCSAVE+2..".. | 00000320: 49 4E 43 24 44 30 32 30 00 08 23 09 01 20 44 45 |INC$D020..#.. DE| 00000330: 59 00 15 23 0E 01 20 42 4E 45 52 45 41 44 00 23 |Y..#.. BNEREAD.#| 00000340: 23 22 01 20 4A 53 52 43 4C 52 43 48 00 2C 23 2C |#". JSRCLRCH.,#,| 00000350: 01 20 43 4C 49 00 35 23 30 01 20 52 54 53 00 3B |. CLI.5#0. RTS.;| 00000360: 23 31 01 3B 00 5A 23 32 01 3B 20 42 59 54 45 20 |#1.;.Z#2.; BYTE | 00000370: 49 4E 20 47 52 41 46 49 4B 20 53 43 48 52 45 49 |IN GRAFIK SCHREI| 00000380: 42 45 4E 00 72 23 33 01 3B 20 20 28 52 45 41 53 |BEN.r#3.; (REAS| 00000390: 53 45 4D 42 4C 49 45 52 54 21 29 00 80 23 36 01 |SEMBLIERT!)..#6.| 000003A0: 20 4A 53 52 24 41 45 46 44 00 8E 23 40 01 20 4A | JSR$AEFD..#@. J| 000003B0: 53 52 24 41 44 38 41 00 9C 23 4A 01 20 4A 53 52 |SR$AD8A..#J. JSR| 000003C0: 24 42 37 46 37 00 A8 23 5E 01 20 4C 44 41 24 31 |$B7F7..#^. LDA$1| 000003D0: 34 00 B6 23 68 01 20 53 54 41 24 43 33 41 46 00 |4..#h. STA$C3AF.| 000003E0: C4 23 72 01 20 53 54 41 24 43 33 42 45 00 D0 23 |.#r. STA$C3BE..#| 000003F0: 7C 01 20 4C 44 41 24 31 35 00 DE 23 86 01 20 53 ||. LDA$15..#.. S| 00000400: 54 41 24 43 33 42 30 00 EC 23 90 01 20 53 54 41 |TA$C3B0..#.. STA| 00000410: 24 43 33 42 46 00 F5 23 9A 01 20 53 45 49 00 02 |$C3BF..#.. SEI..| 00000420: 24 A4 01 20 4C 44 41 23 24 33 35 00 0E 24 AE 01 |$.. LDA#$35..$..| 00000430: 20 53 54 41 24 30 31 00 1C 24 B8 01 20 4C 44 41 | STA$01..$.. LDA| 00000440: 24 41 30 30 30 00 2A 24 C2 01 20 53 54 41 24 43 |$A000.*$.. STA$C| 00000450: 31 30 31 00 37 24 CC 01 20 4C 44 41 23 24 33 37 |101.7$.. LDA#$37| 00000460: 00 43 24 D6 01 20 53 54 41 24 30 31 00 4C 24 E0 |.C$.. STA$01.L$.| 00000470: 01 20 43 4C 49 00 55 24 EA 01 20 52 54 53 00 5B |. CLI.U$.. RTS.[| 00000480: 24 F4 01 3B 00 6C 24 F9 01 3B 20 54 52 49 43 4B |$..;.l$..; TRICK| 00000490: 2D 43 4F 44 45 00 72 24 FA 01 3B 00 85 24 FE 01 |-CODE.r$..;..$..| 000004A0: 54 52 49 43 4B 20 4C 44 41 24 43 31 30 31 00 93 |TRICK LDA$C101..| 000004B0: 24 08 02 20 53 54 41 24 41 30 30 30 00 9C 24 12 |$.. STA$A000..$.| 000004C0: 02 20 52 54 53 00 00 00 |. RTS... |
X.....; ******************************."
..; * *.G ..
; * GEOS SCREEN SAVE SPEICHERT *.L ..; *
SCHIRM AB $A000 *.. ..; * S
OURCECODE OF OBJECTFILE *.. ..; *
*.. ..; * T.PETR
OWSKI 1.11.86 *..!..; *
*.%!..; ****************
**************.+!..;.E!...GL CHKOUT =
$FFC9._!...GL PRINT = $FFD2.Y!...GL
CLRCH = $FFCC..!...BA 50000..!C.;.
!D.; SCHIRM SAVEN..!N. LDA#$A0..!X. STAS
AVE+2.M!..INIT LDX#$01..!.. JSRCHKOUT..!
.. LDA#$00..!.. JSRPRINT..".. LDA#$A0.$"
.. JSRPRINT; REM $A000 HEADER.-".. SEI.9
".. LDY#32.J"..READ LDX#$00.U"..IO SEI.B
".. LDA#$35.N" . STA$01.."..SAVE LDA$FF0
0,X..".. STA$C100..".. LDA#$37.."H. STA$
01.."M. CLI.."W. LDA$C100.N".. JSRPRINT.
W".. INX..".. BNEIO..".. INCSAVE+2.."..
INC$D020..#.. DEY..#.. BNEREAD.##". JSRC
LRCH.,#,. CLI.5#0. RTS.;#1.;.Z#2.; BYTE
IN GRAFIK SCHREIBEN.R#3.; (REASSEMBLIER
T!)..#6. JSR$AEFD..#@. JSR$AD8A..#J. JSR
$B7F7..#^. LDA$14..#H. STA$C3AF.D#R. STA
$C3BE.P#|. LDA$15..#.. STA$C3B0..#.. STA
$C3BF..#.. SEI..$.. LDA#$35..$.. STA$01.
.$.. LDA$A000.*$B. STA$C101.7$L. LDA#$37
.C$V. STA$01.L$.. CLI.U$.. RTS.[$..;.L$.
.; TRICK-CODE.R$..;..$..TRICK LDA$C101..
$.. STA$A000..$.. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL