8051 : Atmel 89S51 , programación en Pascal

La programación de microcontroladores en Pascal  no es común, sin embargo para la familia 8051 existe el compilador Turbo51 el cual tiene unas características muy interesantes.

Normalmente se considera el lenguaje C como el mas eficiente en cuanto a tamaño y calidad del código binario creado , asi como también en cuanto a velocidad de ejecución. Si comparamos el compilador SDCC con Turbo51 los papeles se invierten. De hecho el código binario creado por Turbo51 está muy optimizado en cuanto a tamaño y velocidad de ejecución, es por ello que vale la pena experimentar con este compilador.

Al igual que en el caso de otros  compiladores se requiere un editor/IDE para poder crear programas y posteriormente compilarlos. Una opción muy sencilla es el editor de programación PSPAD

La parametrización de PSPAD consiste en modificar la pestaña

Opciones -> Configurar Resaltadores :

Una vez creado el programa fuente en el editor debemos compilarlo :

El resultado de la compilación se muestra en la sección inferior de la pantalla. Si la compilación es exitosa se genera el mensaje  Exit code = 0

El archivo binario .hex se crea en la misma carpeta donde tenemos el programa fuente.

A continuación un ejemplo que permite generar los primeros 47 números de fibonacci, lucas y el número mágico "golden section" y los muestra por el puerto serial (utilizamos un cristal de 24Mhz y la velocidad de conexión con el terminal es de 4800x2=9600bauds):

Program Fibonacci; {$O+} Const Osc = 24000000; BaudRateTimerValue = Byte (- Osc div 12 div 32 div 4800); digit : Array [0..9] of Byte = ($C0,$F9,$a4,$b0,$99,$92,$83,$f8,$80,$98); Var SerialPort: Text; a,b,c,la,lb,lc,max,i,j:LongInt; r:Real; Procedure WriteToSerialPort; Assembler; Asm CLR TI MOV SBUF, A @WaitLoop: JNB TI, @WaitLoop end; Function ReadFromSerialPort: Char; Var ByteResult: Byte absolute Result; begin While not RI do; RI := False; ByteResult := SBUF; { Echo character } Asm MOV A, Result LCALL WriteToSerialPort end; end; Procedure Init; begin TL1 := BaudRateTimerValue; TH1 := BaudRateTimerValue; TMOD := 100001; SCON := %01010000; TI := True; TR1 := True; PCON := PCON or $80; //SMOD=1 por lo que dobla el baud a 9600 Assign (CurrentIO, ReadFromSerialPort, WriteToSerialPort); end; {$DefaultFile On } begin Init; Writeln ('Fibonacci Number LS'); Repeat Write ('Enter max Fibonacci number: '); Read (max);Writeln(''); if (max>46) then max:=46; a:=1; b:=1; la:=2; lb:=1; writeln(1:3,' F:',a:12,' L:',la:12,' GS:'); writeln(2:3,' F:',b:12,' L:',lb:12,' GS:'); j:=3; for i:=3 to max do begin; c:=(a+b); lc:=(la+lb); writeln(i:3,' F:',c:12,' L:',lc:12,' GS:',c/b:12:10); a:=b; b:=c; la:=lb; lb:=lc; P0:=digit[j]; j:=j+1; if j>9 then j:=0; end; writeln(' Golden Section: ',(Sqrt(5.0)+1.0)/2.0:12:10); until False; end.

Una vez creado el archivo binario .hex debemos grabarlo en la memoria flash del micro mediante un programador (en nuestro caso utilizamos un Arduino ATmega644 en modo programador SPI).

En este ejemplo podemos ver lo eficiente que es el compilador ya que el tamaño del binario creado es de 2733B , un número impresionante si tomamos en cuenta que tenemos cargadas las librerías para impresión con formato y utilizamos números de punto flotante.