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