• Sábado 27 de Abril de 2024, 03:34

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - micropais

Páginas: [1] 2
1
Pascal / Botones
« en: Jueves 23 de Marzo de 2006, 19:44 »
borrado  :ph34r:

saludos a TODOS  :hola:  :)

2
Pascal / Apache Cgi
« en: Viernes 10 de Marzo de 2006, 11:42 »
borrado

3
La taberna del BIT / Indefensos
« en: Jueves 9 de Marzo de 2006, 15:12 »
borrado.

4
La taberna del BIT / Otra De Chistes
« en: Lunes 6 de Marzo de 2006, 20:25 »
borrado.

5
La taberna del BIT / La Serie Flash
« en: Domingo 26 de Febrero de 2006, 01:19 »
borrado.

6
Pascal / Sistema De Ayuda En Castellano
« en: Viernes 24 de Febrero de 2006, 11:12 »
:hola:  :hola:

7
La taberna del BIT / Chistes
« en: Viernes 17 de Febrero de 2006, 11:54 »
borrado. ;)

8
La taberna del BIT / Mas Chistes
« en: Viernes 17 de Febrero de 2006, 11:52 »
borrado. :lol:

9
Pascal / Genesis
« en: Viernes 3 de Febrero de 2006, 02:35 »
borrado

10
Pascal / Adios Al Bootloader Pascal
« en: Jueves 2 de Febrero de 2006, 19:58 »
;)

11
ASM (Ensamblador) / Salto Far
« en: Sábado 28 de Enero de 2006, 11:16 »
huh: Buenas el Assembler no es mi fuerte aunque me desenvuelvo un poco,
hace tiempo que aprendí y lo olvidé, ahora necesito usarlo para algunas
tareas pascal.
He estado observando y han cambiado muchas cosas en los lenguajes ASM
desde que comecé a hacer mis pinitos , desde clausulas .model . data y cosas de esas que mi MASM antiguo ni si quiera acepta , veo por internet que no se usan
los segmentos como yo aprendí antaño como por ejemplo:

- code segment word public
- code ends
ahora se usa algo asi
.code
:unsure:
ahora dispongo del MASM611 y parece que que sí acepta estos terminos tambien tengo el NASM Netwide Assembler NASM y veo muchas novedades.

- ahí va my pregunta

Alguien sabe como se hace un salto de este tipo

jmp 0x1000:0x00 este es para el Netwide Assembler NASM

:comp:
Quisiera saber como se hace para el MASM ya que he probado todo tipo de variaciones y no hay tu tia. Al final he usado el DEBUG para crear el salto directamente en código de programa y funciona , pero no creo que sea la forma más conveniente de hacerlo.

Sé que se puede hacer - a lo mejor no directamente - pero es tan basico
que si el compilador no sabe hacerlo habria que buscarse otro assembler,
el NASM lo hace directamente pero aún lo desconozco , y como aprendí
con el MASM ...pues eso.

alguien sabe como. (para el MASM)

algo parecido a esto - jmp far ptr FFFF:1000 -


:ph34r: SALUD.O.S :ph34r:

MICROPAIS

12
Pascal / Booting
« en: Jueves 19 de Enero de 2006, 18:31 »
Para el proyecto disco de autoarranque en pascal.

Debido a las prisas y al dolor de cabeza producido al usar assembler
Masm y sus diferencias con el NaSM aqui os mando un fichero comprimido
con todo lo que hay hasta el momento. os parecerá poco pero es lo que hay.

 <_<  He consegido crear un sector de arranque con informacion BPB , pero no sin problemas , ver el archivo de texto proyecto.txt donde explico como crearlo
y algunas cosillas mas.

 :ph34r: al final carga pero... a que precio. :ph34r:

Chavalotes si queremos avanzar dependemos de bob. o tener más informacion
al respecto de que registros no debemos tocar durante el arranque. :)


 :blink: yo me voy a descansar unos dias.  :whistling:  :whistling:  :whistling:

 :ph34r:SALU2 :ph34r:

13
Delphi / Lazarus
« en: Jueves 12 de Enero de 2006, 14:14 »
borrado.

14
Pascal / Quien Se Apunta?
« en: Miércoles 11 de Enero de 2006, 21:08 »
borrado. :smartass:

15
Pascal / Software Libre
« en: Miércoles 11 de Enero de 2006, 19:43 »
B)

16
Pascal / Raiz Cuadrada
« en: Martes 20 de Diciembre de 2005, 11:51 »
:ph34r:

17
Pascal / Copiar Una Unidad De Disco
« en: Domingo 18 de Diciembre de 2005, 16:55 »
borrado

18
Pascal / Juego De Palabras
« en: Domingo 18 de Diciembre de 2005, 15:02 »
:ph34r: Up otxetorud y or = Rup otxetorud yo = texto puro y duro :ph34r:
comprueba con este miniprograma los resultados que ademas son son reversibles ,o leelo de derecha a izquierda .... o mejor prueba con palabras como NABUCO o alguna que se te suene mucho o se te  ocurra.


Código: Text
  1.  
  2. uses crt,uraton,ucadenas;
  3. var cadena,cadenai:string;
  4.     cadena1,cadena2,cadena3,cadena4:string;
  5.     cadenaL,cadenaR:string;
  6.  
  7.     longitud:byte;
  8.     a:integer;
  9.     tmp:char;
  10.     espera:integer;
  11.     dato:string;
  12.  
  13. function rotar_izquierda(cadena:string):string;
  14. { rota un caracter hacia la izquerda la cadena }
  15.     var
  16.         longitud:byte;
  17.         tmp:char;
  18.         a:integer;
  19.     begin
  20.       if cadena<>'' then
  21.       begin
  22.         longitud:=length(cadena);
  23.         tmp:=cadena[1];
  24.         for a:=1 to longitud do
  25.         begin
  26.         cadena[a]:=cadena[a+1];
  27.         end;
  28.         cadena[longitud]:=tmp;
  29.         rotar_izquierda:=cadena;
  30.       end
  31.       else
  32.       begin
  33.       rotar_izquierda:='';
  34.       end;
  35.     end;
  36.  
  37. function rotar_derecha(cadena:string):string;
  38. { rota un caracter hacia la derecha la cadena }
  39.      var
  40.         longitud:byte;
  41.         tmp:char;
  42.         a:integer;
  43.    begin
  44.         longitud:=length(cadena);
  45.         tmp:=cadena[longitud];
  46.       if cadena<>'' then
  47.       begin
  48.         for a:=longitud downto 1 do
  49.         begin
  50.         cadena[a]:=cadena[a-1];
  51.         end;
  52.         cadena[1]:=tmp;
  53.         rotar_derecha:=cadena;
  54.       end
  55.       else
  56.       begin
  57.       rotar_derecha:='';
  58.       end;
  59.    end;
  60. function cadena_inversa(ww:string):string;
  61. { invierte la cadena de la forma "HOLA" ->"ALOH" }
  62.    var a:integer;
  63.        xx:string;
  64.    begin
  65.    xx:='';
  66.    for a:=length(ww) downto 1 do
  67.     begin
  68.     xx:=xx+(ww[a]);
  69.     end;
  70.     cadena_inversa:=xx;
  71.    end;
  72.  
  73.  
  74. begin
  75. textcolor(7);
  76. clrscr;
  77.  
  78. repeat
  79.  
  80. readln(dato);
  81. clrscr;
  82.  
  83. cadena:=dato;
  84. cadenai:=cadena_inversa(cadena);
  85. cadena1:=rotar_derecha(cadena);
  86. cadena2:=rotar_derecha(cadenai);
  87.  
  88.        for a:=1 to length(cadena) do
  89.        begin
  90.        cadena1:=rotar_izquierda(cadena1);
  91.        cadena2:=rotar_izquierda(cadena2);
  92.  
  93.        writeln(capitalizar(cadena1),' ',capitalizar(cadena2));
  94.        end;
  95.  
  96. until dato='';
  97.  
  98.  
  99. end.
  100.  
  101.  
  102.  


ATSAHOGEUL    :hola:

19
Pascal / Dir
« en: Domingo 18 de Diciembre de 2005, 13:24 »
;)

20
Pascal / No Solo Pascal
« en: Lunes 12 de Diciembre de 2005, 11:55 »
borrado

21
Pascal / Eid
« en: Jueves 1 de Diciembre de 2005, 15:08 »
borrado  :lol:

22
Pascal / Spiral
« en: Jueves 1 de Diciembre de 2005, 14:49 »
borrado :hola:

23
Pascal / Ajedrez V 1.00
« en: Viernes 11 de Noviembre de 2005, 01:13 »
borrado  :smartass:

24
Hardware / Ps/2 -at
« en: Domingo 23 de Octubre de 2005, 01:34 »
Mas vale tarde que nunca...
como cruzar los cables para recuperar un teclado
antiguo pero más HERGONOMICO .

NOTA : aunque seguramente la conexion este correctamente hecha es posible que no funcione el teclado antiguo , debido a una diferencia CLK , o de velocidad del reloj , esto es posible si en la placa el bios es demasiado moderna , las placas
menos modernas hay un selector de velocidad que no debieran pasar de los 8 mz
para la senal de reloj del teclado y ratón . en las demasiado antiguas no tendras poblemas .


Código: Text
  1.  
  2.  
  3. Ps2 _____________ AT
  4.  
  5.  
  6. 1 _______________ 2
  7. 2 . nada
  8. 3 _______________ 4
  9. 4 _______________ 5
  10. 5 _______________ 1
  11. 6 . nada
  12.      nada                 .3
  13.  
  14.  
  15. Descripcion patillaje PS/2
  16. 1 DATA
  17. 2 NOT CONNECTED
  18. 3 GND
  19. 4 +5V
  20. 5 CLK
  21. 6 NOT CONNECTED
  22.  
  23. Descripcion patillaje PC KEYBOARD AT
  24. 1 CLK
  25. 2 DATA
  26. 3 NOT CONNECTED
  27. 4 GND
  28. 5 +5V
  29.  
  30.  
  31.  
  32.  
  33.  

Suludos

25
Pascal / Trayectoria Circular Demo
« en: Martes 11 de Octubre de 2005, 00:11 »
borrado  :ph34r:

Páginas: [1] 2