c64scene.pl

Kod: Zaznacz cały

var
  COLORRAM    : array [0..0] of byte absolute $0800;
  SCREEN      : array [0..0] of byte absolute $0c00;
  BORDERCOLOR : byte absolute $ff15;
  BGCOLOR     : byte absolute $ff19;

var
  w0i, row    : word;
  b0i, b1i    : byte;

begin
  BORDERCOLOR := 0; BGCOLOR := 0;
  FillByte(@SCREEN, 40 * 25, $a0);

  for b0i := 0 to 7 do begin
    row := 40 * b0i;
    for b1i := 0 to 15 do COLORRAM[row+b1i] := (b0i shl 4) + b1i;
  end;
end.

Kod: Zaznacz cały

#!/bin/bash

mp="$HOME/Programs/MadPascal/mp"
mads="$HOME/Programs/mads/mads"
base="$HOME/Programs/MadPascal/base

if [ -z "$1" ]; then
  echo -e "\nPlease call '$0 <argument>' to run this command!\n"
  exit 1
fi

$mp $1 -t c64 -z 10 -o
name=${1::-4}

if [ -f $name.a65 ]; then
  [ ! -d "output" ] && mkdir output
  mv $name.a65 output/
  $mads output/$name.a65 -x -i:$base -o:output/$name.prg
else
  exit 1
fi

if [ ! -z "$2" ]; then
  x64 output/$name.prg
fi

Kod: Zaznacz cały

mp pas6502_test.pas -target:c64
mads pas6502_test.a65 -x -i:base -o:pas6502_test.prg

Kod: Zaznacz cały

mp pas6502_test.pas -t c64 -z 10 -o

Kod: Zaznacz cały

// Eratosthenes Sieve benchmark 1899

const
 size = 8192;
 iter_max = 10;

var
  flags: array [0..size] of boolean;

  iter: byte;
  ticks: word = 0;

{$ifdef c4p}
  i: word absolute $70;
  k: word absolute $72;
  prime: word absolute $74;
  count: word absolute $76;
  clock1 : byte absolute $a4;
  clock2 : byte absolute $a5;
{$endif}
{$ifdef c64}
  i: word absolute $70;
  k: word absolute $72;
  prime: word absolute $74;
  count: word absolute $76;
  clock1 : byte absolute $a1;
  clock2 : byte absolute $a2;
{$endif}
{$ifdef atari}
  i: word absolute $e0;
  k: word absolute $e2;
  prime: word absolute $e4;
  count: word absolute $e6;
  clock1 : byte absolute $13;
  clock2 : byte absolute $14;
{$endif}

begin

	writeln(iter_max,' ITERATIONS');
	pause; clock2 := 0; clock1 := 0;

	for iter := iter_max-1 downto 0 do begin

		fillchar(flags, sizeof(flags), true);

		count := 0;

		for i:=0 to size do
			if flags[i] then begin

				prime := i*2 + 3;
				k := prime + i;

				while (k <= size) do begin
					flags[k] := false;
					inc(k, prime);
				end;
				inc(count);
			end;
	end;

 ticks := clock2 + (clock1 * 256);

 writeln(ticks, ' TICKS');
 writeln(count, ' PRIMES');

 while true do;

end.

Kod: Zaznacz cały

const
  JOY_SELECT_1 = %00000010;
  JOY_SELECT_2 = %00000100;

var
  joy      : byte absolute $ff08;
  keyPio   : byte absolute $fd30;

var
  tmp      : byte;

begin
  repeat
    joy := JOY_SELECT_1; keyPio := $ff;
    tmp := joy xor $ff;
    case tmp of
      1  : writeln('UP    = ', tmp);
      2  : writeln('DOWN  = ', tmp);
      4  : writeln('LEFT  = ', tmp);
      8  : writeln('RIGHT = ', tmp);
      64 : writeln('FIRE  = ', tmp);
    end;
    pause(2);
  until false;
end.