Входной текст расположен с адреса c-addr1 и он длиной u1.
c-addr2 - адрес буфера для приёма преобразованного текста.
u2 - длина получившегося преобразованного текста

HEX
8 VALUE ОТСТУП

: TABS>SPACES ( c-addr1 c-addr2 u1 - c-addr2 u2 )
  OVER >R 2>R 0 SWAP 2R>
  0 ?DO
    OVER C@ ROT CHAR+ >R 2>R
    R@ 9 =
    IF
      RDROP BEGIN
        1+ BL R@ C! R> CHAR+ >R
        DUP ОТСТУП MOD 0=
      UNTIL 2R>
    ELSE
      R@ D = R@ A = OR IF DROP TRUE THEN
      1+ R> R@ C! 2R> CHAR+
    THEN
  LOOP
  NIP NIP R> TUCK -
;

: tabs>spaces ( src us tab# --> res ur )
  tab! us! src! ntab) 0. ntab ! sr!
  src us + as DO I C@ tab = IF ntab 1+! THEN LOOP
  ntab @ 7 * us + DUP ur! ALLOCATE THROW res!
  res ur + res DO BL I C! LOOP
  src us + src DO I C@ DUP tab = IF  DROP 8  ELSE res sr + C! 1 THEN sr + is sr LOOP
  res ur ;

\ Табуляции заменяются на от 1-8-мь пробелов, рез. строка помещается во временный буфер
: tabs>spaces ( src us tab# --> res ur )
  tab! us! src! ntab) 0. ntab ! sr! 0 os!
  src us + src DO   I C@ tab = IF ntab 1+! THEN LOOP
  ntab @ 7 * us + DUP ur! ALLOCATE THROW res!
  res ur + res DO BL I C! LOOP
  src us + src DO I C@ DUP tab =
                  IF DROP 8 os 8 MOD - DUP sr + is sr os + is os
                  ELSE 0xA 0xD 3\112=13=| IF -1 is os THEN
                       res sr + C! sr 1+ is sr os 1+ is os
                  THEN LOOP res sr 1- ;