Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-04-2010
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.670
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
El z-80, qué recuerdos
Responder Con Cita
  #2  
Antiguo 07-04-2010
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.025
Poder: 27
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Cita:
Empezado por Casimiro Notevi Ver Mensaje
El z-80, qué recuerdos
Otra forma más sencilla (sólo el ASM):
Código:
  POP BC
  POP HL
  LD IX, 0
  LD IY, 1
  RRC L
  JP C, SI
  PUSH IX
  JR FIN
SI:
  PUSH IY
FIN:
  PUSH BC
Es que acabo de recordar que el "shiftt" puede utilizar el acarreo.
Responder Con Cita
  #3  
Antiguo 07-04-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡Válgame! Ésto sí que es rizar el rizo

Desempolvando el poco ensamblador que alguna vez supe, creo que se puede así ¿no?

Código Delphi [-]
function par(n: integer): boolean;
asm
  and ax,1
  dec ax
end;

// Saludos
Responder Con Cita
  #4  
Antiguo 07-04-2010
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
El ejemplo de roman es una buena adaptación al asm del concepto de que el bit menos significativo nos dirá si es par.
Código:
bool par = !(n & 0x1);
Al tratarse de C, no podemos implementar el código tal cual lo expone roman para delphi. En C los parámetros se pasan en la pila por defecto (__cdecl). Así que tendremos que forzar el paso por registro (__fastcall) que es el estado por defecto de delphi:

Código:
bool __fastcall par(int n)
{
  asm{
  and ax,1
  dec ax
  }
}
Saludos.
Responder Con Cita
  #5  
Antiguo 07-04-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por escafandra Ver Mensaje
El ejemplo de roman es una buena adaptación al asm del concepto de que el bit menos significativo nos dirá si es par.
Je, je. En realidad "mi" código es el mismo que el tuyo aprovechando la "trampa" de que el parámetro se pasa en ax y ahí mismo se regresa el resultado.

Lo que pasa es que cuando vi el código de Ñuño (del que no entiendo ni jota), me dije que un and no podía ser tan difícil

// Saludos
Responder Con Cita
  #6  
Antiguo 30-04-2010
Avatar de lmpadron
lmpadron lmpadron is offline
Miembro
 
Registrado: feb 2009
Ubicación: Habana, Cuba
Posts: 204
Poder: 18
lmpadron Va por buen camino
valla amigos he estado en superviviencia en un cayo, sin pc, ventilador, movil ni nada por el estilo jejeje, ni siquiera fosforera para encender algo jejejejejejejeje, y weno que he estado casi 3 semanas y al regresar veo cuan animado ha sido este hilo, jejejej, desempolvando los viejos recuerdos jajajajaja, gracias por su ayuda ;-)
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código.


Cuando miras fijamente al abismo, este te devuelve la mirada


oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_
oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_
oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_
oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_
oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_
ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_
________________________________________________________________________________
Responder Con Cita
  #7  
Antiguo 30-04-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Mmm, creo que te aplica la regla 14 de la otra guía de estilo

// Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como determinar la ip de un pc JoeyJordison Varios 1 14-01-2007 18:13:06
como determinar el navegador por defecto Velia API de Windows 4 13-11-2005 16:54:10
Como Determinar Monitor a Color ???? AGAG4 Varios 1 27-09-2005 05:07:03
Como determinar el tamaño de una base de dato ? Raptor Varios 4 06-08-2004 02:17:56
¿Como determinar el tipo de Impresora? jgutti Impresión 4 20-02-2004 01:11:36


La franja horaria es GMT +2. Ahora son las 18:35:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi