xref: /netbsd-src/external/gpl3/gcc.old/dist/gcc/jit/docs/examples/emit-alphabet.bf (revision 36ac495d2b3ea2b9d96377b2143ebfedac224b92)
1*36ac495dSmrg[
2*36ac495dSmrg  Emit the uppercase alphabet
3*36ac495dSmrg]
4*36ac495dSmrg
5*36ac495dSmrgcell 0 = 26
6*36ac495dSmrg++++++++++++++++++++++++++
7*36ac495dSmrg
8*36ac495dSmrgcell 1 = 65
9*36ac495dSmrg>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<
10*36ac495dSmrg
11*36ac495dSmrgwhile cell#0 != 0
12*36ac495dSmrg[
13*36ac495dSmrg >
14*36ac495dSmrg .      emit cell#1
15*36ac495dSmrg +      increment cell@1
16*36ac495dSmrg <-     decrement cell@0
17*36ac495dSmrg]
18