Прерывание в ассемблерной вставке выдаёт ошибку

program outs;
 
{$asmmode intel}
var
s: string;
 
begin
s:='Test$';
asm
mov ah, 09h
mov ds, [s]
mov dx, 0h
int 21h
end;
readln();
end.

program outs;
 
{$asmmode intel}
 
var
  s:String;
 
procedure WriteS(s:String);assembler;
asm
  push ds {сохраняем сегмент данных}
  mov ah,40h {номер функции прерывания}
  mov bx,1{стандартный вывод это 1}
  lds dx,[s] {адрес строки в ds:dx}
  mov si,dx {адрес строки в ds:si для lodsb}
  lodsb {длину строки в al (первый байт в строке это ее длина!)}
  inc dx{чтобы не напечатать первый байт}
  xor cx,cx;
  mov cl,al{чтобы в сх была длина строки}
  int 21h {DOS}
  pop ds {восстанавливаем ds}
end;
 
begin
  s:='Test$';
  writeS(s);
  readln;
end.

Uses
  DOS, Go32;
Var
  Font         : Array[1..4096] Of Byte;
  FontFile     : File;
  CPURegisters : Registers;
  SegSel       : LongInt;
Begin
 Assign(FontFile,'FONT.FNT');
 ReSet(FontFile,1);
 BlockRead(FontFile,Font,4096);
 Close(FontFile);
 
 {выделяем память в первом мегабайте}
 SegSel:=Global_DOS_Alloc(SizeOf(Font));
 if int31error<>0
 then begin
   WriteLn('Error while allocation real mode memory, halting...');
   Halt(1);
 end;
 {копируем в неё содержимео переменной Font}
 DosMemPut(Word(SegSel shr 16), 0, Font, SizeOf(Font));
 
 {вызываем прерывания}
 CPURegisters.AX:=$0003;
 Intr($10,CPURegisters);
 CPURegisters.AX:=$1110;
 CPURegisters.BH:=$10;
 CPURegisters.BL:=$0;
 CPURegisters.CX:=$100;
 CPURegisters.DX:=$0;
 CPURegisters.ES:=Word(SegSel shr 16);    //Seg(Font);
 CPURegisters.BP:=0;                      //Ofs(Font);
 Intr($10,CPURegisters);
 CPURegisters.AH:=$1;
 CPURegisters.CX:=$0E0F;
 Intr($10,CPURegisters);
 
 {освобождаем память из первого мегабайта}
 Global_DOS_Free(Word(SegSel));
end.