version 1.273, 2012/07/15 12:03:07
|
version 1.277, 2012/09/17 19:58:36
|
Line 1516 c_addr2 = c_addr1+1;
|
Line 1516 c_addr2 = c_addr1+1;
|
: |
: |
dup 1+ swap c@ ; |
dup 1+ swap c@ ; |
|
|
|
cell/ ( n1 -- n2 ) gforth cell_divide |
|
""@i{n2} is the number of cells that fit into @i{n1}"" |
|
n2 = n1 / sizeof(Cell); |
|
|
\g compiler |
\g compiler |
|
|
\+f83headerstring |
\+f83headerstring |
Line 1700 wfileid = (Cell)stderr;
|
Line 1704 wfileid = (Cell)stderr;
|
|
|
\+os |
\+os |
|
|
form ( -- urows ucols ) gforth |
(form) ( -- urows ucols ) gforth paren_form |
""The number of lines and columns in the terminal. These numbers may |
""The number of lines and columns in the terminal. These numbers may |
change with the window size. Note that it depends on the OS whether |
change with the window size. Note that it depends on the OS whether |
this reflects the actual size and changes with the window size |
this reflects the actual size and changes with the window size |
Line 1735 FLUSH_ICACHE((caddr_t)c_addr,u);
|
Line 1739 FLUSH_ICACHE((caddr_t)c_addr,u);
|
|
|
(bye) ( n -- ) gforth paren_bye |
(bye) ( n -- ) gforth paren_bye |
SUPER_END; |
SUPER_END; |
|
gforth_FP=fp; |
|
gforth_SP=sp; |
|
gforth_RP=rp; |
|
gforth_LP=lp; |
return (Label *)n; |
return (Label *)n; |
|
|
(system) ( c_addr u -- wretval wior ) gforth paren_system |
(system) ( c_addr u -- wretval wior ) gforth paren_system |
Line 2471 if (flag) {
|
Line 2479 if (flag) {
|
fp[0]=r; |
fp[0]=r; |
} |
} |
|
|
|
float/ ( n1 -- n2 ) gforth float_divide |
|
n2 = n1 / sizeof(Float); |
|
|
|
dfloat/ ( n1 -- n2 ) gforth sfloat_divide |
|
n2 = n1 / sizeof(DFloat); |
|
|
|
sfloat/ ( n1 -- n2 ) gforth dfloat_divide |
|
n2 = n1 / sizeof(SFloat); |
|
|
\+ |
\+ |
|
|
\ The following words access machine/OS/installation-dependent |
\ The following words access machine/OS/installation-dependent |