old/PAS/!SPbSTU/Graph/DRAW10H.PAS

{$G+}
unit Draw10H;
{ˆá¯®«ì§ã¥áâáï ¤«ï ¡ëáâண® à¨á®¢ ­¨ï �Ž�Œ€‹œ�›• ®¡ê¥ªâ®¢ (ä३¬®¢)}
INTERFACE
VAR
 CurPage : byte Absolute $40:$62;
 VmemLen : word Absolute $40:$4c;
CONST
 PlaneMaskingPort = $03CE;
 SelectPlanePort  = $03C4;
  Procedure DrawSprite12H(xpos,ypos,xsize,ysize:word;Page:byte;BitPlane : pointer);
   {�¨áã¥âáï á¯à ©â, «¥¦ é¨© ¯®  ¤à. BitPlane à §¬¥à®¬ xsize x ysize, ⮫쪮
    ªà â­ë 8. �¨ª ª¨å ¯à®¢¥à®ª ­¥â. ‘¯à ©â - 4 ¡¨â®¢ë¥ ¯«®áª®á⨠B G R A}
IMPLEMENTATION
{-----------------------------------------}
Procedure DrawSprite12H;assembler;
var
 Beg  : pointer;
 cool : word;
asm
push ds
 mov ax, word ptr BitPlane+2
 mov cool, ax

 xor ax, ax
 mov al, page
 push 40h
 pop es
 mov bx, es:[4ch]
 mul bx
 shr ax, 4
 mov bx, 0A000h
 add bx, ax

 mov ax, ypos  {Calculate ypos}
 push ax
 shl ax, 2
 add bx, ax    {y*(640/8)/16 = y*5 - segment}
 pop cx
 add bx, cx

 shr xpos, 3
 shr xsize, 3
 mov ax, xpos {Calcualte xpos}

 mov word ptr Beg, ax
 mov word ptr Beg+2, bx

 mov ax, 0005h  {Set GDC Register for writing}
 mov dx, 03CEh
 out dx, ax
 INC DX
 xor ax, ax
 out dx, ax

 mov bx, 1
 mov si, word ptr BitPlane
@1:
 mov dx, 03C4h  {ˆ­¤¥ªá ᨭåà®­¨§ â®à }
 mov al, 2
 out dx, al  {�¥¦¨¬ ¢ë¡®à  á«®ï}
 inc dx
 mov al, bl  {‚ë¡®à ⥪ã饣® á«®ï}
 out dx, al
 shl bl, 1   {‚ë¡®à ­®¢®£® á«®ï}

 les di, Beg
 mov cx, ysize
@2:
 push cx
 mov cx, xsize
 push ds
 mov ds, cool
 repe movsb
 pop ds
 add di, 80
 sub di, xsize
 pop cx
loop @2

 cmp bl, 0010000b
jne @1

 mov dx, 3C4H
 mov ax, 02
 out dx, al
 inc dx
 mov al, 0Fh {Select default plane}
 out dx, al

 pop ds
end;{DrawSprite12H}
{-----------------------------------------}
end.