nanoFORTH/html/n4__core_8h_source.html

#ifndef __SRC_N4_CORE_H

#define __SRC_N4_CORE_H

#include "n4.h"

constexpr U16 N4_DIC_SZ = 0x400;

constexpr U16 N4_STK_SZ = 0x80;

constexpr U16 N4_TIB_SZ = 0x80;

#if ARDUINO

#define show(s)      { io->print(F(s)); io->flush(); }

#else

#define show(s)      log(s)

#endif // ARDUINO

#define ENC8(p, c)  (*(U8*)(p)++=(U8)(c))

#define ENCA(p, a)  { IU x=(IU)(a); ENC8(p,(x)>>8); ENC8(p,(x)&0xff); }

#define GETA(p)     (((IU)(*(U8*)(p))<<8) + *((U8*)(p)+1))

#define STORE(p, v) { DU x=(DU)(v); ENC8(p,(x)>>8); ENC8(p,(x)&0xff); }

#define FETCH(p)    (((DU)(*(U8*)(p))<<8) + *((U8*)(p)+1))

typedef struct {

    IU    *rp;

    DU    *sp;

} N4Task;


namespace N4Core

{

    extern N4Task vm;

    extern U8     *dic;

    extern U8      trc;

    extern Stream *io;


    void init_mem();

    void mstat();


    void set_pre(const char *code);

    void set_io(Stream *s);

    void set_hex(U8 f);

    void set_ucase(U8 uc);

    char uc(char c);

    char key();

    void d_chr(char c);

    void d_adr(IU a);

    void d_str(U8 *p);

    void d_ptr(U8 *p);

    void d_nib(U8 n);

    void d_u8(U8 c);

    void d_num(DU n);

    void d_pin(U16 p, U16 v);

    U16  d_in(U16 p);

    void d_out(U16 p, U16 v);

    void d_mem(

        U8 *base,

        U8 *p0,

        IU sz,

        U8 delim

        );

    void d_name(U8 *p);

    void d_name(

        U8 op,

        const char *lst,

        U8 space

        );

    U16  a_in(U16 p);

    void a_out(U16 p, U16 v);

    void clear_tib();

    U8   ok();

    U8   *get_token(U8 rst=0);

    U8   number(

        U8 *tkn,

        DU *num

        );

    U8  scan(

        U8 *tkn,

        const char *lst,

        IU *id

        );

};

#endif //__SRC_N4_CORE_H