Recent

Author Topic: [SOLVED] FreeDOS and FPC  (Read 276 times)

julkas

  • Sr. Member
  • ****
  • Posts: 348
  • KISS principle / Lazarus 2.0.0 / FPC 3.0.4
[SOLVED] FreeDOS and FPC
« on: August 11, 2019, 01:15:53 pm »
How install FPC on FreeDOS?
Thanks.
« Last Edit: August 13, 2019, 12:41:57 pm by julkas »
procedure mulu64(a, b: QWORD; out clo, chi: QWORD); assembler;
asm
  mov rax, a
  mov rdx, b
  mul rdx
  mov [clo], rax
  mov [chi], rdx
end;
(* Pointer game *) Inc(ptr, 1); (* vs *) ptr := ptr + 1;

Handoko

  • Hero Member
  • *****
  • Posts: 3121
  • My goal: build my own game engine using Lazarus
Re: FreeDOS and FPC
« Reply #1 on: August 11, 2019, 01:55:48 pm »
Because FreeDOS intends to provide a complete DOS-compatible environment, so the installation process should be:

https://www.freepascal.org/docs-html/user/usersu4.html#x13-170002.2.2

julkas

  • Sr. Member
  • ****
  • Posts: 348
  • KISS principle / Lazarus 2.0.0 / FPC 3.0.4
Re: FreeDOS and FPC
« Reply #2 on: August 11, 2019, 02:00:38 pm »
Because FreeDOS intends to provide a complete DOS-compatible environment, so the installation process should be:

https://www.freepascal.org/docs-html/user/usersu4.html#x13-170002.2.2
Thanks @Handoko. Any working ref.?
procedure mulu64(a, b: QWORD; out clo, chi: QWORD); assembler;
asm
  mov rax, a
  mov rdx, b
  mul rdx
  mov [clo], rax
  mov [chi], rdx
end;
(* Pointer game *) Inc(ptr, 1); (* vs *) ptr := ptr + 1;

julkas

  • Sr. Member
  • ****
  • Posts: 348
  • KISS principle / Lazarus 2.0.0 / FPC 3.0.4
Re: [SOLVED] FreeDOS and FPC
« Reply #3 on: August 13, 2019, 12:43:22 pm »
I really enjoyed.
procedure mulu64(a, b: QWORD; out clo, chi: QWORD); assembler;
asm
  mov rax, a
  mov rdx, b
  mul rdx
  mov [clo], rax
  mov [chi], rdx
end;
(* Pointer game *) Inc(ptr, 1); (* vs *) ptr := ptr + 1;