Передача информации через ком-порт

[Julila]

program lab1;
uses crt;
const
A:array[0..7] of string[30] = ('Data ready status...',
'Overrun error...',
'Parity error...',
'Framing error...',
'Break detect...',
'Trans holding reg empty...',
'Trans shift reg empty...',
'Timeout...');
var d:integer; s,mask:byte;
procedure Error(s:byte);
var v:integer;
begin
for v:=0 to 7 do
begin
mask:=1 shl v;
If s and mask=mask then
writeln(A[v]);
end;
end;
procedure Init;
begin
asm
mov ah,0
mov al,11100111b
mov dx,0
int 14h
mov s,ah
end;
writeln('Initialized has done');
writeln('Result f it:');
Error(s);
readln;
end;
procedure Send;
var k,n:char;
begin
clrscr;
Init;
writeln('Write symbols');
repeat
read(n);
asm
mov ah,1
mov dx,0
mov al,n
int 14h
mov s,ah
end;
until readkey=#27;
Error(s);
readln;
end;
procedure Receive;
var n:char;
begin
clrscr;
Init;
repeat
asm
mov ah,2
mov dx,0
int 14h
mov n,al
mov s,ah
end;
write(n);
until readkey=#27;
Error(s);
end;
begin
clrscr;
writeln(' 1. Sending');
writeln(' 2. Receiving');
writeln(' 3. Exit');
readln(d);
clrscr;
case d of
1:Send;
2:Receive;
3:Halt;
end;
readln;
end.

Напишите пожалуйста комментарии к асссемблеровским вставкам, что делают, что значат и остальные важные процедуры и операторы..
Пожалуйста