home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1998 March / PCShareware-3-98.iso / imple / IMPLE.RAR / SHAP.ASM < prev    next >
Assembly Source File  |  1998-01-26  |  387b  |  39 lines
  1.     LOCALS
  2.  
  3. shap    proc    near
  4.     push    ds
  5.     pop    es
  6.  
  7.     mov    eax,[ypos]
  8.     sub    edx,edx
  9.     mov    ebx,320
  10.     mul    ebx
  11.     mov    edi,eax
  12.     add    edi,[xpos]
  13.     add    edi,0a0000h
  14.  
  15.     mov    esi,offset    shap_data+786
  16.  
  17.     mov    ecx,32
  18. @@s1:
  19.     push    ecx
  20.     mov    ecx,32
  21. @@s2:
  22.     lodsb
  23.     cmp    al,-1
  24.     je    @@s3
  25.     mov    [edi],al
  26. @@s3:
  27.     inc    edi
  28.     loop    @@s2
  29.     add    edi,320-32
  30.     pop    ecx
  31.     loop    @@s1
  32.     ret
  33.  
  34. shap    endp
  35.  
  36.  
  37.  
  38.     NOLOCALS
  39.