lisätty .d64 exomize pakattu c64 disk image

This commit is contained in:
gimulnautti 2023-02-21 21:15:20 +02:00
parent 3b39c13b76
commit 8ee6c5edf8
5 changed files with 17 additions and 10 deletions

View File

@ -29,7 +29,7 @@ override_target_settings_org = $810
override_target_settings_ignore_sys = 0 override_target_settings_ignore_sys = 0
override_target_settings_ignore_prg = 0 override_target_settings_ignore_prg = 0
output_debug_symbols = 1 output_debug_symbols = 1
open_files = ,resources/images/piraattinaamat-2.flf, resources/images/piraattinaamat-1.flf, piraatti_intro.ras open_files = ,piraatti_intro.asm, resources/images/piraattinaamat-2.flf, resources/images/piraattinaamat-1.flf, piraatti_intro.ras
project_path = /Users/gimulnautti/piraattipuolue-github/c64-vaali-intro-2023/ project_path = /Users/gimulnautti/piraattipuolue-github/c64-vaali-intro-2023/
zeropage_colormemory = $fb zeropage_colormemory = $fb
dirart_flf_file = none dirart_flf_file = none
@ -40,7 +40,7 @@ remove_unused_symbols = 1
ignore_initial_jump = 0 ignore_initial_jump = 0
current_file = piraatti_intro.ras current_file = piraatti_intro.ras
output_type = prg output_type = prg
exomizer_toggle = 0 exomizer_toggle = 1
use_track_19 = 1 use_track_19 = 1
disable_compiler_comments = 0 disable_compiler_comments = 0
charset_ = :resources/character.rom charset_ = :resources/character.rom

BIN
piraatti_intro.d64 Normal file

Binary file not shown.

View File

@ -279,8 +279,8 @@ text : string = (@cmoveto, 6,10,
@cpage, @cpage,
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI", @cmoveto, 0, 2, " LOBBAUS NAKYVAKSI",
@cmoveto, 0, 3, "LAAJA JULKISUUSLAKI", @cmoveto, 0, 3, "LAAJA JULKISUUSLAKI",
@cmoveto, 0, 4, "KANSANAANESTYSALOI-", @cmoveto, 0, 4, " KANSANAANESTYS",
@cmoveto, 0, 5, "TE PERUSOIKEUDET", @cmoveto, 0, 5, " PERUSOIKEUDET",
@cmoveto, 0, 6, "YKSITYISYYDENSUOJA", @cmoveto, 0, 6, "YKSITYISYYDENSUOJA",
@cmoveto, 0, 7, " YHDENVERTAISUUS", @cmoveto, 0, 7, " YHDENVERTAISUUS",
@cpage, @cpage,
@ -289,12 +289,12 @@ text : string = (@cmoveto, 6,10,
@cmoveto, 0, 4, " TEKNOLOGIATUKI", @cmoveto, 0, 4, " TEKNOLOGIATUKI",
@cmoveto, 0, 5, "PAIKALLISDEMOKRATIA", @cmoveto, 0, 5, "PAIKALLISDEMOKRATIA",
@cmoveto, 0, 6, " LUONTO MAANKAYTTO", @cmoveto, 0, 6, " LUONTO MAANKAYTTO",
@cmoveto, 0, 7, " KESTAVYYS", @cmoveto, 0, 7, " KESTAVYYS",
@cpage, @cpage,
@cmoveto, 0, 3, "HYVINVOINTIALUEIDEN", @cmoveto, 0, 3, "HYVINVOINTIALUEIDEN",
@cmoveto, 0, 4, " VERONKANTO-OIKEUS", @cmoveto, 0, 4, " VERONKANTO-OIKEUS",
@cmoveto, 0, 5, " RAHANKERAYSLAIN", @cmoveto, 0, 5, " RAHANKERAYSLAIN",
@cmoveto, 0, 6, " UUDISTUS", @cmoveto, 0, 6, " UUDISTUS",
@cmoveto, 0, 7, " PERUSTULO", @cmoveto, 0, 7, " PERUSTULO",
@cpage, @cpage,
@cmoveto, 0, 2, " TAVOITTEELLINEN", @cmoveto, 0, 2, " TAVOITTEELLINEN",
@ -304,6 +304,13 @@ text : string = (@cmoveto, 6,10,
@cmoveto, 0, 6, " TYOPERAINEN", @cmoveto, 0, 6, " TYOPERAINEN",
@cmoveto, 0, 7, " MAAHANMUUTTO", @cmoveto, 0, 7, " MAAHANMUUTTO",
@cpage, @cpage,
@cmoveto, 0, 2, " LAPINAKYVAT JA",
@cmoveto, 0, 3, " TURVALLISET",
@cmoveto, 0, 4, " JULKISET",
@cmoveto, 0, 5, "TIETOJARJESTELMAT",
@cmoveto, 0, 6, " OSTO-OSAAMISTA",
@cmoveto, 0, 7, " YKSITYISTAMISEEN",
@cpage,
@cmoveto, 0, 3, " TIETOPOLITIIKAN", @cmoveto, 0, 3, " TIETOPOLITIIKAN",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN", @cmoveto, 0, 4, " VAKIINNUTTAMINEN",
@cmoveto, 0, 5, " OSAKSI HALLINTO-", @cmoveto, 0, 5, " OSAKSI HALLINTO-",
@ -972,7 +979,7 @@ end;
interrupt RasterText(); interrupt RasterText();
begin begin
startIRQ(@useKernal); startIRQ(@useKernal);
if (currentTime > 50) then UpdateText(); UpdateText();
closeIRQ(); closeIRQ();
GoToMainRaster(); GoToMainRaster();
end; end;
@ -1517,7 +1524,7 @@ begin
fgColBefore := screen_fg_col; fgColBefore := screen_fg_col;
DisableCIAInterrupts(); DisableCIAInterrupts();
CopyCharsetRomToRam($c0); CopyCharSetFromRom(^$c000);
setmemoryconfig(1,@useKernal,0); setmemoryconfig(1,@useKernal,0);
@ -1537,7 +1544,7 @@ begin
CreateAddressTable(#mainPartAddressTable, $4400, 40, 25); CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
CreateAddressTable(#colorAddressTable, $d800, 40, 25); CreateAddressTable(#colorAddressTable, $d800, 40, 25);
Fill(^$0568, KEY_SPACE, 200); Fill(^$0528, KEY_SPACE, 240);
for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]]; for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];
@ -1551,7 +1558,7 @@ begin
while (true) do while (true) do
begin begin
// Main loop "work tasks" here // Heavy main loop work tasks here
if (mainWorkState = @mainText) then if (mainWorkState = @mainText) then
begin begin

Binary file not shown.

Binary file not shown.