Вопрос

• ALEXS1983

  Posts 299

  Joined: Sat Nov 14, 2015 11:15 am

  Sat Nov 28, 2015 11:19 pm

  Pathoswithin, ты писал, что не смог скачать файлы и что кода не видел.
  Вот выложу тебе процедуру написанную на дельфи и её асм-аналог созданый дельфи после компиляции. Определи пожалуйста процент говнокода, уж очень интересно мне
  
  
  procedure DrawXLine(Posx,Posy,lengthLine,ColorLine,Thickness,drawType:Cardinal);
  //Posx,Posy- Левый верхний угол линии
  //lengthLine - длина линии
  //ColorLine -цвет
  //Thickness - Толщина
  // drawTypedraw - тип рисования рисовать от Posx,Posy вверх =0 рисовать вниз =1 (с уменьшением линий), вверх =2 рисовать вниз =3 без уменьшения линий
  var x1,f:Cardinal;
  //f:Cardinal;
  begin
  x1:=posx+lengthLine;
  For f:=0 to (Thickness-1) do begin
  If f<>0 then begin
  case drawType of
  0:begin posy:=posy-1;x1:=x1-1;posx:=posx+1; end;
  1:begin posy:=posy+1;x1:=x1-1;posx:=posx+1; end;
  2:begin posy:=posy-1;end;
  3:begin posy:=posy+1;end;
  end;
  end;
  setEBX_(((x1)*65536)+(posx));
  setECX_((posy*65536)+posy);
  setEDX_(ColorLine);
  setEAX_(38);
  INT0x40D;
  end;
  end;
  
  
  ДЛЯ FASM:
  
  DrawXLineA:;procedure DrawXLineA;
  ;//EL_indicator.dpr.46: DrawXLine(10,10,10,$ffffff,3,0);
  ;// push $00ffffff //ColorLine -цвет
  ;// push $03 //Thickness - Толщина
  ;// push $00 // drawTypedraw - тип рисования рисовать от Posx,Posy вверх =0 рисовать вниз =1 (с уменьшением линий), вверх =2 рисовать вниз =3 без уменьшения линий
  ;// mov ecx,$0000000a //lengthLine - длина линии
  ;// mov edx,$0000000a // PosY- Левый верхний угол линии
  ;// mov eax,$0000000a // PosX- Левый верхний угол линии
  ;// call @DrawXLine
  ;// ret
  
  DrawXLine: ;//DrawXLine
  ;//EL_indicator.dpr.20: begin
  push ebp
  mov ebp,esp
  add esp,-$08
  push ebx
  push esi
  push edi
  mov esi,edx
  mov [ebp-$04],eax
  ;//EL_indicator.dpr.21: x1:=posx+lengthLine;
  add ecx,[ebp-$04]
  mov [ebp-$08],ecx
  ;//EL_indicator.dpr.22: For f:=0 to (Thickness-1) do begin
  mov ebx,[ebp+$0c]
  dec ebx
  test ebx,ebx
  jb @STR37 ; //jb +$64
  inc ebx
  xor edi,edi
  ;//EL_indicator.dpr.23: If f<>0 then begin
  @STR23:
  test edi,edi
  JZ @STR31; //jz +$28
  ;//EL_indicator.dpr.24: case drawType of
  mov eax,[ebp+$08]
  ;db $83, $E8, $01
  sub eax,$01
  jb @STR25;//jb +$0a
  jz @STR26 ;// jz +$11
  dec eax
  jz @STR27 ;// jz +$17
  dec eax
  jz @STR28 ;// jz +$17
  jmp @STR31;// jmp +$16
  ;//EL_indicator.dpr.25: 0:begin posy:=posy-1;x1:=x1-1;posx:=posx+1; end;
  @STR25: dec esi
  dec dword [ebp-$08]
  inc dword [ebp-$04]
  jmp @STR31;// jmp +$0d
  ;//EL_indicator.dpr.26: 1:begin posy:=posy+1;x1:=x1-1;posx:=posx+1; end;
  @STR26: inc esi
  dec dword [ebp-$08]
  inc dword [ebp-$04]
  jmp @STR31 ; // jmp +$04
  ;//EL_indicator.dpr.27: 2:begin posy:=posy-1;end;
  @STR27: dec esi
  jmp @STR31 ;// jmp +$01
  ;//EL_indicator.dpr.28: 3:begin posy:=posy+1;end;
  @STR28: inc esi
  ;//EL_indicator.dpr.31: setEBX_(((x1)*65536)+(posx));
  @STR31:
  mov eax,[ebp-$08]
  shl eax,$10
  add eax,[ebp-$04]
  call setEBX_
  ;//EL_indicator.dpr.32: setECX_((posy*65536)+posy);
  mov eax,esi
  shl eax,$10
  add eax,esi
  call setECX_
  ;//EL_indicator.dpr.33: setEDX_(ColorLine);
  mov eax,[ebp+$10]
  call setEDX_
  ;//EL_indicator.dpr.34: setEAX_(38);
  mov eax,$00000026
  call setEAX_
  ;//EL_indicator.dpr.35: INT0x40D;
  call INT0x40D
  ;//EL_indicator.dpr.36: end;
  inc edi
  ;//EL_indicator.dpr.22: For f:=0 to (Thickness-1) do begin
  dec ebx
  jnz @STR23 ; // jnz -$61
  ;//EL_indicator.dpr.37: end;
  @STR37:
  pop edi
  pop esi
  pop ebx
  pop ecx
  pop ecx
  pop ebp
  ret $000c
  ;//

  • Quote