n4_core.h

Go to the documentation of this file.

 
#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;   
constexpr U16 N4_RAM_SZ = N4_DIC_SZ + N4_STK_SZ + N4_TIB_SZ;
#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 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