home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / pmgf / trans.asm < prev    next >
Assembly Source File  |  1990-06-14  |  524b  |  38 lines
  1.     .386p
  2.  
  3.     PUBLIC    TRANS
  4.     
  5. param    struc
  6.     dd    ?    ;使用禁止
  7. sadd    dd    ?    ;転送元データ格納アドレス
  8. dadd    dd    ?    ;転送先データ格納アドレス
  9. datl    dd    ?    ;転送データ長
  10. param    ends
  11.  
  12. ;    
  13. CODE    segment dword public ER use32 'CODE'
  14.     assume cs:CODE
  15.     
  16. ;    High Speed Data Trans Routine for F-BASIC386
  17.  
  18. EXEC    proc    near
  19. TRANS:
  20.     mov    esi,sadd[esp]
  21.     mov    edi,dadd[esp]
  22.     mov    ecx,datl[esp]
  23. ;
  24.     mov    eax,[esi]
  25.     mov    [edi],eax
  26.     mov    edx,ecx
  27.     shr    ecx,2
  28.     and    edx,3
  29.     add    edi,edx
  30.     add    esi,edx
  31. rep    movsd
  32.     ret
  33. ;
  34. EXEC    endp
  35. CODE    ends
  36.     end
  37.  
  38.