MODULE AsmTest;
IMPORT Asm;

PROCEDURE Border (color: INT8);
BEGIN
  Asm.Code("POP  BC    ");
  Asm.Code("POP  DE    ");
  Asm.Code("POP  HL    ");
  Asm.Code("PUSH HL    ");
  Asm.Code("PUSH DE    ");
  Asm.Code("PUSH BC    ");
  Asm.Code("LD   A,L   ");
  Asm.Code("CALL 0x229B");
END Border;

BEGIN (*$MAIN*)
  Border(2);
END AsmTest.

MODULE AsmTest; (*$MAIN*) IMPORT SYSTEM;

PROCEDURE Border (color: SYSTEM.BYTE);
BEGIN (*@
  #asm
        POP  HL
        EX   (SP), HL
        LD   A, L
        LD   (0xBE38), A  ; BORDER
        CALL 0xF836       ; CLS
  #endasm
*)
END Border;

BEGIN
  Border(25);
  LOOP END
END AsmTest.

Procedure ComA(COM:Cardinal);{CodeProc=9#}
Procedure ComB(COM,Value:Cardinal);{CodeProc=10#}
Procedure ComC(COM,Value:Cardinal);{CodeProc=11#}
Процедурами ComA, ComB, ComC Обрабатываться процедуры-команды-КР580, соответственно однобайтовые, двухбайтовые и трехбайтовые.
В принципе пользователь может ими пользоваться, вот только следует учесть
тот факт, что в них нет проверки на ошибки и их нужно использовать только
правильно, т.е. недопустимо "путанное" использование этих процедур.
Процедура ComА исключительно для однобайтовых кодов команд-КР580 (COM).
Процедура ComB исключительно для двубайтовых кодов команд-КР580 (COM), где 
Value должно быть в пределах 0..255.
Процедура ComC исключительно для трехбайтовых кодов команд-КР580 (COM), где 
Value должно быть в пределах 0..65535.
В случае неправильного использования процедур, результирующий код будет
неправильным и при этом выдача ошибки не будет.
Пример использования процедур некоторыми процедурами-командами-КР580.
Однобайтовая: {40}Procedure MovBB;begin A($40);end;
Двухбайтовая: {06}Procedure MviB(e:Cardinal);begin B($06,e);end;
Трехбайтовая: {01}Procedure LxiBC(e:Cardinal);begin C($01,e);end;
В файле uMD00u.pas, таких примеров много. :-)

PROCEDURE Border (color: SYSTEM.BYTE);
BEGIN @
  #asm
        POP  HL
        EX   (SP), HL
        LD   A, L
        LD   (0xBE38), A  ; BORDER
        CALL 0xF836       ; CLS
  #endasm
END Border;

program Project1;
uses windows;
begin
WinExec('StartXDev.bat',SW_HIDE);
end.

MODULE TestCalc;
IMPORT b := Basic, c := CalcZX;

BEGIN (*$MAIN*)
  b.Init;
  c.PushWord(1000); (* 1000 *)
  c.PushByte(24);   (*   24 *)
  c.Begin;
  c.add;            (*    + *)
  c.pi_div_2;       (* PI/2 *)
  c.duplicate;      (*  DUP *)
  c.add;            (*    + *)
  c.add;            (*    + *)
  c.End;
  b.PRSTR("1000 + 24 + PI = ");
  c.Print_PopReal();
  b.Quit
END TestCalc.