I developed a unit called Cron for my PIC16F648A running at 3.58 MHz. It trigger an interrupt each 1 mS. Sorry, but the comments are in spanish... Unit Cron; Implementation Var RecTMR1L, RecTMR1H : Byte; // Para el cron�etro Cont_Cron, Fin_Cron : Word; // Para el cron�etro procedure Inicializar_Cron...

Hi: I found that the following code crashes Mikropascal IDE v6.0.0.2 Steps to reproduce this bug: 1 - Create a new project 1 - Replace the blank program with the following code 2 -Wait for some seconds for Mikropascal crash (possible memory allocation problem) program Crasher; // This simple code cr...

Hi I can't pass a string as a function parameter. See my code: program Test; function MyFunc (Text:string[5]): Word; begin Result := StrToWord(Text); end; begin end. When I tried to compile this code I received the following error: "3:31 E-43 Array parameter must be passed by reference" Does any kno...

Hi Here it go my CRC16 code. It is based in a Turbo Pascal code: Unit CRC16; (* Note: Your crc variable must be initialized to 0, before * using tis routine. *) (* Portions of this code were translated to Turbo Pascal (tm) V4.0 * in March, 1988 by J.R.Louvau * Translated to Mikropascal (tm) V3.2 on ...

Peter: Mikropascal has a limited bit variable managment. You can use it into conditional clauses: if PORTA.1 = 0 then ..... or in assignements: PORTA.1 = 1 I had to solve this problem earlier. I used a function to set easily a pin. For example: Program Test; function Fuel (Value : Byte); begin if Va...

You may be could use the following code as reference: Unit CRC16; (* Note: Your crc variable must be initialized to 0, before * using tis routine. *) (* Portions of this code were translated to Turbo Pascal (tm) V4.0 * in March, 1988 by J.R.Louvau * Translated to Mikropascal (tm) V3.2 on December, 2...

Does any know when Mikroelektronika expects release a new Mikropascal version?

Tks

I need a sample code that can be compilled to help you...

You forget to include the LCD controller that you are using...... I guess that the problem would be a speed problem. If you see the timing diagram for write/read to/from a LCD controller you will see that it needs small delays that you probably forget to include in your source code. When the PIC was...

I tested this source code. This code seems not to be functional. I think it was wrote to show how include assembler routines into a Mikropascal source code. The author omitted the definition of the constants: Address Variable 015 main_global_fullbittime 0016 main_global_haserror 0017 main_global_hal...

The following is the equvalent pascal code: Var TmpRX : Byte; begin // Check4Data repeat repeat FSR := SSPSTAT; // test op data until INDF.BF = 1; // ReadData ; Check data indien bit 0 = 1 Led aan TmpRX:= SSPBUF; // lees rx buffer and zet in Tmp until TmpRx <> 0; // Test of data <> 0 end.

That solves the problem.....

Thanks for you help !!!!!

Antonio

When I pass a variable parameter to a procedure it some times returns erroneous values. See the following code: // Bug: Procedures with variable parameters problem // Tested on PIC18F452 / PIC16F84 / PIC16F87x program Test; var Value : Word; procedure Increment (Var V : Word; I : Byte); begin V := V...

I ommited the microcontroller model: PIC18F452. The following is the original code on which I discover the bug..... // Bug detected on PIC18F452 / PIC16F87x / PIC16F84A Program Table; { crctab calculated by Mark G. Mendel, Network Systems Corporation} Const crctable: ARRAY[0..255] OF WORD = ( $0000,...

I found problems . The next code shows the bug:
Thanks.