MACRO procedure/function modifier suggestion about mad-pascal HOT 8 CLOSED

var
  screen:array[0..0] of byte absolute SCREEN_ADDR;
  screenOffset:byte;

procedure putToScreen(var ofs:byte; value:byte); MACRO;
begin
  screen[ofs]:=value; ofs:=ofs+1;
end;

begin
  screenOffset:=0;
  putToScreen(screenOffset,0);
  putToScreen(screenOffset,1);
  putToScreen(screenOffset,2);
  putToScreen(screenOffset,3);
  putToScreen(screenOffset,4);
end;

var
  screen:array[0..0] of byte absolute SCREEN_ADDR;
  screenOffset:byte;

begin
  screenOffset:=0;
  screen[screenOffset]:=0; screenOffset:=screenOffset+1; (* macro call putToScreen(screenOffset,0); *)
  screen[screenOffset]:=1; screenOffset:=screenOffset+1; (* macro call putToScreen(screenOffset,1); *)
  screen[screenOffset]:=2; screenOffset:=screenOffset+1; (* macro call putToScreen(screenOffset,2); *)
  screen[screenOffset]:=3; screenOffset:=screenOffset+1; (* macro call putToScreen(screenOffset,3); *)
  screen[screenOffset]:=4; screenOffset:=screenOffset+1; (* macro call putToScreen(screenOffset,4); *)
end;

uses crt;

procedure test; inline;
begin
  writeln(pi);
end;

begin
  test; readkey;
end.