General Information
Author: Carsten Strotmann
Language: FORTH
Compiler/Interpreter: XFORTH
Published: 2003
BrainF\*ck#
BF is a very minimalistic language, with only eight commando's, yet it is (theoretically) powerfull enough to compute anything that can be computed (with a Turing Machine). The language operates on an array of memory cells each containing an initially zero integer value. There is a memory pointer which initially points to the first memory cell.
Resources#
Tom Hunt has another BF implementation
for the A8 written in CC65 (see bottom of page).
a new Atari BrainFuck was written by Pawel "Cosi" Piatkowski, Announcement in Polish, download of atr with English manual and program file here.
- Wikipedia Entry on BrainF\*ck
- The BrainF\*ck Archive
- A Page about BrainF\*ck
- Another Page about BrainF\*ck
- Deutsche Infos zu BrainF\*ck
How to use#
Each of the eigth commands consists of a single ASCII character, with the following meaning:- '>' : move the memory pointer to the next cell,
- '<' : move the memory pointer to the previous cell,
- '+' : increment the memory cell under the memory pointer,
- '-' : decrement the memory cell under the memory pointer,
- ',' : fills the memory cell under the memory pointer with the ASCII value of next character from the input,
- '.' : writes the contents of the memory cell under the memory pointer as a character with the corresponding ASCII value,
- 'No InterWiki reference defined in properties for Wiki called "' "!', if the memory cell under the memory pointer is zero, and
- ']' : moves to the command following the matching '\No InterWiki reference defined in properties for Wiki called "', if the memory cell under the memory pointer is not zero. All commands are executed sequentially, except when specified differently. Other characters are skipped, thus considered as comments. The execution terminates when the end of the program is reached. This interpreter is written in XFORTH From MyDOS, start BF.COM, then BF" D"! BEGIN IP- IP@ 91 = UNTIL ;
." .."
: BFI ( addr -- ) IP ! BEGIN IP@ 93 = IF BF] THEN IP@ 91 = IF BF THEN IP@ 62 = IF BF> THEN IP@ 60 = IF BF< THEN IP@ 46 = IF BF. THEN IP@ 44 = IF BF, THEN IP@ 45 = IF BF- THEN IP@ 43 = IF BF+ THEN IP+ IP@ 0 = UNTIL ; ." .." : BF HERE 3000 ERASE HERE BL WORD 1+ BFI ; ." .." HEX : BFR 6000 1000 ERASE 7000 1000 ERASE BEGIN 6000 1000 SOURCE-ID @ READ-FILE 128 < WHILE DROP 7000 6000 BFI REPEAT ; ." .." : BF" FILE" R/O OPEN-FILE 128 < IF SOURCE-ID ! BFR SOURCE-ID @ CLOSE-FILE 0 SOURCE-ID ! ELSE ." Error open file" THEN ; ." loaded!" CR }}}