Sprite Works for Highspeed Pascal Code

28 lines (20 with data), 603 Bytes

unit unpac;

interface

function _unpac(a, b: pointer; c: integer): longint;

const _inline: array [0..59] of byte = (
   72,231, 64,224, 32,111,  0, 20, 34,111,  0, 24, 36, 73,212,239,  0,
   28, 66, 65, 18, 24,107, 12, 18,216, 81,201,255,252,179,202,109,240,
   96, 14, 68,  1, 16, 24, 18,192, 81,201,255,252,179,202,109,224, 32,
    8, 76,223,  7,  2, 78,117,  0,  0
);

implementation

function _unpac(a, b: pointer; c: integer): longint;
assembler; asm
  move.w c,-(sp)
  move.l b,-(sp)
  move.l a,-(sp)
  lea    _inline,a0
  jsr    0(a0)
  move.l d0,@result
end;

end.