delphi2的程序怎样该成delphi5的

var
  Send_Que:Array[0..246] Of Byte;procedure Send422(Num:Word);
var
  buf_seg,buf_ofs:word;
  temp:word;
begin
  buf_seg:=seg(send_que);
  buf_ofs:=ofs(send_que);
  asm
mov  ax, es
mov  temp, ax
mov     ax, buf_seg
mov  es, ax
mov ax, buf_ofs
mov di, ax
mov cx,0
mov bx,0
@loc_1:
      mov dx,$21A
      in al,dx
      and al,$20
      jz @loc_1
@loc_2:
      mov dx,$21C
      in al,dx
      cmp al,$11
      jne @loc_1
@loc_3:
      mov cx,Num
@loc_4:
      mov bx,0
      mov dx,$21A
@loc_5:
      in al,dx
      and al,$80
      jz @loc_5
@loc_6:
      mov ax,es:[di]
      mov dx,$21C
      out dx,al
      inc di
      dec cx
      jnz @loc_4
      mov     bx, 0
      mov     bx, 0
@loc_7:
      mov dx,$21A
      in al,dx
      and al,$20
      jz @loc_7
@loc_8:
      mov     bx, 0
@loc_9:
      mov dx,$21C
      in al,dx
      cmp al,$13
      je @loc_10
      mov     bx,2
      dec bx
      jnz @loc_9
@loc_10:
      mov  ax, temp
      mov  es, ax
  end;
end;