Tag: Forth

Interview Charles H. Moore [FORTH]

Ik ben al sinds de mid 1970’s een gebruiker van de programmeertaal FORTH.

FORTH is in 1968 bedacht door Charles H Moore. Roepnaam ‘Chuck’.
Gisteren verscheen er op Youtube een lang interview met deze (voor mij) held.

N.B. Meer over Charles H. Moore:
— Lees op Wikipedia: Charles H. Moore

Flashen van de Arduino Uno met de Pololu USB AVR Programmer v2

Flashen van de Arduino met Pololu USB AVR Programmer v2

Flashen van de Arduino met Pololu USB AVR Programmer v2

Jan Kromhout (mijn Forth-maatje) heeft me uitgelegd hoe je de Arduino UNO kan programmeren (‘laden’ of ‘flashen’) met een externe programmer.
Op deze manier kan je naast de bij Arduino-gebruikers bekende ‘sketches’ ook andere software in de Arduino flashen.

Ik gebruik deze methode om amforth in de Arduino UNO te flashen.
Met dezelfde programmer (Pololu USB AVR Programmer v2[1] voor een paar euro’s te koop) kan ik overigens ook de inhoud van de Arduino uitlezen en op mijn computer opslaan voor toekomstig gebruik of als backup.

In een paar stappen werkt het flashen als volgt:

  1. Sluit de Programmer aan op een USB-poort, terwijl de Arduino op de andere USB-poort is aangesloten
  2. Sluit de flat-cable van de Programmer aan op de SIP-connector van de Arduino
  3. Bepaal het adres van de bijbehorende USB-poort[2]
    • Neem in geval van twee nieuwe USB-adressen degene met het laagste nummer.
    • In mijn geval (MacbookAir) tty.usbmodem002163242
  4. Download de twee te flashen bestanden en zet die in de ~/avrdude map
    • Voor amforth zijn dat een uno.hex en een uno.eep.hex bestand
  5. Flash de code met avrdude[3] naar de Arduino met 2 regels Terminal commando:
    cd avrdude
    avrdude -p m328p -c avrispv2 -P /dev/tty.usbmodem002163242 -U efuse:w:0xFF:m -U hfuse:w:0xD9:m -U lfuse:w:0xFF:m -U flash:w:uno.hex:i -U eeprom:w:uno.eep.hex:i

Speciaal voor amforth

  1. De Pololu USB AVR Programmer v2 kan besteld worden op https://opencircuit.nl/Product/12116/Pololu-USB-AVR-Programmer-v2  ↩
  2. Bepalen USB-poort adres met Terminal commando:  `ls -l /dev/usb
    N.B. Vergeet de twee asterisks niet!  ↩
  3. Het programma avrdude is op de Mac te installeren met het terminal-commando:

    homebrew install avrdude
    of te downloaden/installeren via een link op de Polulu site  ↩

Forth benchmark

Ik vond ergens een eenvoudige manier om forth te benchmarken. de in de vorige post beschreven GGD berekening is daar een prima hulpmiddel bij.

De benchmark bestaat uit de berekening van de GGD voor alle combinaties van getallen tussen 0 en n.

: benchmark ( n -- )  
    dup  
    0 do  
    dup 0 do  
      j i ggd drop  
      loop  
    loop  
    drop  
;  

Het resultaat voor de getallen tussen 0 en 200:
amforth: 8 sec.

Hoe vol is de stack?

Om tijdens testen van forth code even te gluren naar de inhoud en diepte van de stack kan je zelf het volgende in amForth maken:

variable maxdepth-.s  definieer een variabele
#50 maxdepth-.s !     >> Van bovenaf geteld maximaal aantal te tonen stack items

: .s ( -- )  toont  en de bovenste stack items
   ." <" depth 0 .r ." > "  print aantal items
   depth 0 max maxdepth-.s @ min 
   dup 0 ?DO 
     dup i - pick .
   LOOP
   drop
  ;

Als het ‘word’ .s wordt aangeroepen resulteert dat in een regel met:
a) de diepte van de stack tussen ‘< >’, gevolgd door de daadwerkelijke items op de stack. De laatste is het bovenste item.

De inhoud van de stack wordt niet beïnvloed.

Uiteraard kan je -zoals met (bijan) alle words in forth- het word .s ook weer in nieuwe words opnemen.