1000 ';********************************************************************
1010 ';*　  　 　　多分役に立つだろう機械語サブルーチン　Ｎｏ．３-2       *
1020 ';*                                                                  *
1030 ';*                 メモリコピー機械語サブルーチン２  　　　　　　   *
1040 ';*                                1995年８月15日（火） by 渡辺 良一 *
1050 ';********************************************************************
1060 '
1070 '
1080 '  push  ebp
1090 '  mov   ebp,esp
1100 '  mov   edi,dword ptr [ebp+12]
1110 '  mov   esi,dword ptr [ebp+20]
1120 '  mov   ecx,dword ptr [ebp+24]
1130 '  mov   eax,dword ptr [ebp+8]
1140 '  mov   es,ax
1150 '  mov   eax,dword ptr [ebp+16]
1160 '  mov   ds,ax
1170 '  rep   movsb
1180 '
1190 '  pop   ebp
1200 '  ret