crcx

~~~
:pipe>  (s-s)  file:R unix:popen [ file:read-line ] [ unix:pclose ] bi ; 
:>pipe> (ss-s) swap 'echo_"%s"_|_%s s:format dup s:put nl pipe> ; 
:>pipe  (ss-)  >pipe> drop ;
:prefix:^ (?ss-s) [ s:format ] dip '%s_%s s:format pipe> ; immediate
~~~

```
'-a '%s ^uname  s:put
```

crcx

: MATRIX ( m[rows] n[cols] -- c-addr )
  HERE >R
  SWAP , ,
  R>
  DUP           @ SWAP
  DUP 1 CELLS + @ SWAP
  >R
  * CELLS ALLOT
  R>
;

crcx

SEE

crc: d:words but no d:see ?

• From http://bespin.org/~nef/logs/forth/18.12.27

Retro includes a disassembler as part of the Autopsy debugger, but it's not quite a replacement for a traditional see as it requires both a starting address and the length. I decided to implement a see word using the disassembler. (This will likely be rolled into Autopsy soon).

Implementation

crcx

RETRO: a Modern, Pragmatic Forth

Welcome to RETRO, my personal take on the Forth language. This is a modern system primarily targetting desktop, mobile, and servers, though it can also be used on some larger (ARM, MIPS32) embedded systems.

The language is Forth. It is untyped, uses a stack to pass data between functions called words, and a dictionary which tracks the word names and data structures.

crcx

RETRO: a Modern, Pragmatic Forth

Welcome to RETRO, my personal take on the Forth language. This is a modern system primarily targetting desktop, mobile, and servers, though it can also be used on some larger (ARM, MIPS32) embedded systems.

The language is Forth. It is untyped, uses a stack to pass data between functions called words, and a dictionary which tracks the word names and data structures.

crcx

14838 'zr...... i
14839 'du...... i
14840 'lica.... i
14841 #8660 d		[possibly `n:put`]
14842 'lica.... i
14843 #8615 d		[possibly `sp`]
14844 'lica.... i
14845 #2847 d		[possibly `n:dec`]
14846 'lica.... i
14847 #14837 d		[possibly `foo`]

crcx

14838 'zr...... i
14839 'du...... i
14840 'lica.... i
14841 #8660 d		[possibly `n:put`]
14842 'lica.... i
14843 #8615 d		[possibly `sp`]
14844 'lica.... i
14845 #2847 d		[possibly `n:dec`]
14846 'liju.... i
14847 #14837 d		[possibly `foo`]

crcx

Comparison of Address/Length Strings

This implements a word to compare address/length strings (or other data) in RETRO.

---

cmp-bytes fetches a byte from each memory location and compares them.

:cmp-bytes (ss-ssf

crcx

A standard RETRO image only supports decimal base numbers. This shows a way to add support for multiple bases. (Borrowing from KipIngram and zy]x[yz in #forth irc channel).

Once loaded, numbers can be used like:

#[-][decimal radix:]digits

Examples:

#100

crcx

backtrace
#0  0x00000008008debbd in _pthread_mutex_init_calloc_cb () from /lib/libc.so.7
#1  0x00000008008d868f in _pthread_mutex_init_calloc_cb () from /lib/libc.so.7
#2  0x00000008008d9767 in _pthread_mutex_init_calloc_cb () from /lib/libc.so.7
#3  0x00000008008c0baf in _malloc_thread_cleanup ()
   from /lib/libc.so.7
#4  0x00000008008e1bba in malloc ()
   from /lib/libc.so.7
#5  0x000000080097b35d in memcpy ()
   from /lib/libc.so.7