Tema: uC PICs - Migrando de ASM a PASCAL
Ver Mensaje Individual
  #2  
Antiguo 19-03-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
  
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 19
MaMu Va por buen camino
Un pequeño ejemplo de lo anterior

Código Delphi [-]
processor 16F628;
cfgword   cp_off,pwrte_on,wdt_off,intrc_osc_noclkout,lvp_off,bod_off;
uses delay20M;
Begin
  //configuro
  PORTA:=0;
  TRISA:=1;
  PORTB:=0;
  TRISB:=0;
 //Principal
 repeat
  inc(PORTB);
  delay(10);
 until PORTB=255; 
end.
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita