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