\ \\\\\\\\\\\\\\\\\\\\\\ RTXEB PATCHES \\\\\\\\\\\\\\\\\
\ Courtesy of Jack Woehr via Google Groups
HEX                          \ All numerical values are in hexidecimal format
( EBForth GOES> gone DOES> doesn't R> too smart for these ...)
: DOES R> U2/ USE ;
: GOES> COMPILE DOES BE01 , COMPILE @ 1 -OPT ! ; IMMEDIATE
: DOES> COMPILE DOES BE01 , 1 -OPT ! ; IMMEDIATE

( When doing  C, in EBForth, the dictionary can become misaligned!)
: HALIGN ( ---)  HERE 1 AND H +! ; \ code space
\ : RALIGN ( ---) THERE 1 AND R +! : \ data space \ not used now

: C, ( b1 ---) 1 GAP HERE 1- C! ; \ per Harris

B081 UCODE DUP>R

\ \\\\\\\\\\\\\\\\\\\ END OF RTXEB PATCHES \\\\\\\\\\\\\\\\\