Welke programeertaal is dit??

Iemand die weet wat voor programeertaal dit is.
Ik wil er een hex file van maken maar ik weet niet met welke compiler het kan.

MPlab maakt er niks van.
Hier een stukje code:

#compiler clock = 20000 ; 20 MHz clock
#ASM list p=16C84
#fuse CP_OFF + PWRT_ON + WDT_OFF + XT_OSC

var charout : byte ; character output to lcd
var flags : byte ; boolean byte
var lcdData : bit 0 of flags ; T = data or F = command
var lcdbusy : bit 1 of flags ; lcd busy flag
var talx : word ; contains the cap. value
var talx1 : word
var talx2 : word
var a : byte ; holds number of 1000's
var nb : byte ; holds number of 100's
var c : byte ; holds number of 10's
var d : byte ; holds number of 1's
var p : byte ; prefix ( p n u m )
var y : byte ; insert dec.point ?
var z : word ; open lead cap.
var zz : word ; open lead cap.
var tempcount : byte ; for delay uF range
var delaycount : byte
var q : byte ; holds batt. condition
var rdy : byte ; holds how many F proc.
var proc : byte

alias(RB4,lcdportD4) ; rename port RBx to lcdportDx
alias(RB5,lcdportD5)
alias(RB6,lcdportD6)
alias(RB7,lcdportD7)

alias(RA0,lcd_rs) ; lcd register select
alias(RA1,lcd_en) ; lcd enable
alias(RA2,lcd_rw) ; lcd read/write

alias(RB0,bat) ; RB0 lo bat
alias(RB1,range_uF) ; range select
alias(RB2,range_nF)
alias(RB3,reset) ; reset 555

alias(RA3,trig) ;trigger for 555
alias(RA4,out_555) ;output pulse from 555

procedure(MAIN)
InitPort ; set up ports
InitLCD ; initialise lcd display
reset = 1 ; reset 555 high
trig = 1
clr(z) ; reset zeroing var
clr(rdy) ; rdy reset

pFzero ; open leads cap is stored just after pwr-up

while true

clr(proc)
pF ; pF procedure (000pF-9,99nF)

if proc = 0 then
begin
talx1 = talx ; 2 times meas. (hum reduction)
wait(10)
pF
talx2 = talx
wait(10)
talx = (talx1 + talx2)/2
end
DoMessage
loop

Ik denk JAL maar het kan ook een Basic achtig iets zijn.

[Bericht gewijzigd door Bastiaan op ]

Op 8 april 2004 23:23:34 schreef Bastiaan:
Ik denk JAL maar het kan ook een Basic achtig iets zijn.

Jal is het volgens mij niet.
Jal begint altijd met
include 16f84_20
include jlib

Maar het lijkt er wel veel op

Stond het dan niet bij de site waar je die code vandaan hebt?

Het is iig ook geen Proton PIC Basic.

[Bericht gewijzigd door Bastiaan op ]

Het komt van de elektuur site af.
Het is een autorange capaciteit meter.
De hex file heb ik ook, maar ik wil er een 2x8 lcd aan hangen inplaats van een 2x16....dus moet ik het even aanpassen.

Want ik vind die 2x16 veels te groot voor dat kleine beetje tekst.
Het past makkelijk op een 2x8lcd

Hier is de url KLIK

Ik denk dat het assembler is, ik baseer mij hiervoor vooral op het artikel in elektuur waar letterlijk staat:
(nr.472, p.17, voorlaatste paragraaf)

" Liefhebbers van assembly-code (...) zullen het ongetwijfeld op prijs stellen dat de auteur van het artikel
de broncode en de hex-bestanden van dit project gratis ter beschikking stelt via de website van elektuur."

Hierna volgt, in dit zelfde artikel, een verwijzing naar de
files met elektuur-eps nummer 020144-11 die ook te vinden zijn op de pagina waar je een link naartoe gepost hebt.

Het is geen assembly.
Het is iets pascal-achtigs maar wat het precies is weet ik ook niet.
Edit: Heb even een aantal woorden bij google ingevuld (o.a. procedure alias wait var loop) en kom op allemaal sites met VHDL code uit. Ik denk dus dat het VHDL is.

[Bericht gewijzigd door Remco op ]

Op 9 april 2004 00:26:42 schreef M&M:
Het komt van de elektuur site af.

Zoals Monsterboeleke zegt, staat er inderdaad in het artikel alleen maar een verwijzing naar de code met daarbij "assembly" als aanduiding. Echt weer iets voor Elektuur om zoiets te doen. Ze gebruiken ook al in elk nummer een totaal andere controller. Als ze nou eens een keertje kozen voor één merk. Maar nee hoor, ieder nummer is het weer een verassing wat ze gebruiken.
En ik weet niet wat hun assembly noemen, maar dit is GEEN assembly :)

Ik heb nog gezocht naar op de extensie van het bestand maar ook dan kan ik niks vinden. Ik denk dat je gewoon Elektuur moet mailen.

whuhaha, ik wil ook processoren / microcontrollers die syntax als "procedure" of "var charout : byte ; character output to lcd" achtige commando's kennen.

MAW: LOL!

Nou ik heb het hele internet afgezocht en kwam 1 programma tegen met de extensie .psf (een verdwaalde elektuur lezer?)

Ik ben het elektuur archief maar eens ingedoken en kwam een programma Compiler voor de pic16c84 tegen.

En jawel hoor, hiermee kan je dus die .psf file's mee maken.
.psf staat voor Pic Source File.
Nu is dit een programma speciaal geschreven voor deze taal....welke is me nog steeds onduidelijk, ze spreken van een combinatie van Pascal en Visual Basic.

Nu kan je dus met die compiler dus wel een .asm file maken ,zodat hij geschikt is voor MPLAP.
MPLAP kan je gratis downloaden vermelden ze nog...hahahaha
Maar voor hun proggie moet je dus betalen.

Maargoed je kan er niks aan veranderen ,als je die compiler niet hebt.

Hier nog een link naar de elektuur van dat proggie KLIK

Uit nieuwsgierigheid heb ik ook het internet afgestruind op zoek naar een compiler voor .psf files. Wel wat kreten tegen gekomen maar niets bruikbaars. De een noemt het een soort basic terwijl een ander refereert aan Tcl. Interessant vond ik de caveradio compleet met .psf file (:))

Op 9 april 2004 12:22:16 schreef kingjotte:
whuhaha, ik wil ook processoren / microcontrollers die syntax als "procedure" of "var charout : byte ; character output to lcd" achtige commando's kennen.

Wel is gehoord van de Proton+ Basic compiler?
IF...THEN...ELSEIF...ELSE
SELECT CASE...END SELECT
GOTO/GOSUB...RETURN
FOR...TO...NEXT...STEP
MID$/LEFT$/RIGHT$
DO LOOP...UNTIL
WHILE...WEND
PRINT
DECLARE
INCLUDE
RESUME
RESTORE
SWAP
PEEK/POKE
READ
SLEEP
SOUND
PIXEL/PLOT
ASM...END ASM
... Pfff + nog zo'n dikke 100 commando's meer.
Kortom: Quick Basic / Basic stamp + een heleboel extra op PIC toegesneden commando's voor ALLE type PICs.
Het is duur, maar als je het eenmaal hebt is programmeren eenvoudig en een echt leuke hobby.