🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.forth
Article #10

Internal interpreter (Re: Introduction to FORTH)

#10
From: Yasushi Shinjo
Date: Sun, 06 Sep 1992 19:42
73 lines
4390 bytes
$@?7>k!wC^GHBg3X$G$9!#$3$s$K$A$O!#(J

From article <GFJmA.908@mtak.bsj.com>,
	by logic@mtak.bsj.com (Masami Takikawa):
> forth $@Bg9%$-$NBl@n$G$9!#@$4VOC%b!<%I$G$9!#(J

>>> $@I8=`#F#O#R#T#H!!0f>e30;VM:Cx!!6&N)=PHG(J
>>> $@!!(JFORTH $@8@8l$N5,3J$N2r<a$H%$%s%W%j%a%s%H$K$D$$$F=q$+$l$F$$$k!#(J
>>$@$3$l$O!";}$C$F$$$^$9!#(JForth$@;H$$$H$7$F$O!"@'Hs$H$b<j85$KCV$$(J
>>$@$F$*$-$?$$K\$G$9$M!#(J
> $@$=$&!#KM$O$3$l$G(J forth $@$r3X$S$^$7$?!#0lBN2?2sFI$s$@$3$H$@$m$&!#(J
> $@0l;~4|$O2K$5$($"$l$P!"7+$jJV$7!"FI$s$G$$$^$7$?!#$=$l$[$I!"FI$_(J
> $@J*$H$7$F$bLLGr$$!#!J$J$s$F=q$/$H!"JQ?M$H;W$o$l$F$7$^$&$+$J!)!K(J

$@;d$N>l9g$O!"$3$NK\$,=P$k$N$rBT$A$-$l$:$K!J$H8@$C$F$b!"$3$NK\(J
$@$,=P$k$HCN$C$F$$$?$o$1$G$O$J$$$N$@$1$l$I$b!K!"<!$N;(;o$NFC=8(J
$@$r2?EY$b2?EY$bFI$_$^$7$?!#(J

    $@%^%$%3%s%T%e!<%?!!#N#o!%#3!!FC=8!'$9$0F0$/#F#O#R#T#H(J
    $@86F;9(!":4F#@6Ci!"5H@n85=_!">.CS?50l!"(J
    $@#C#Q=PHG!"#1#9#8#1G/(J

$@$3$l$N!"(J1983$@G/Bh(J4$@HG!"A}Jd2~DjHG$r;}$C$F$$$^$9!#$3$NCf$N86$5(J
$@$s$N!V(JZ80$@HG(JFIG-FORTH$@!W$r2?EY$bFI$_$^$7$?!#$^$?!"<B:]$K%W%m%0(J
$@%i%`!&%j%9%H(J($@%"%;%s%V%j8@8l(J)$@$rBG9~$s$GF0$+$7$^$7$?!#!V$9$0F0(J
$@$/!W$HBj$7$F$$$k$@$1$"$C$F!"$3$l$O!"(JTRS-80$@$H$$$&!"$h$/CN$i$J(J
$@$$7W;;5!MQ$G$9$0F0$/$h$&$K$J$C$F$$$^$7$?!#;d$O!"$3$l$r%7%c!<(J
$@%W$N(J X1 $@>e$N(JCP/M$@$GF0$/$h$&$K=q$-49$($^$7$?!#8e$G5$$,$D$$$?$N(J
$@$G$9$,!"(JZ80$@HG$N$H$K$J$C$?(J 8080 $@HG(JFIG- FORTH$@$O!"(JCP/M$@MQ$@$C$?(J
$@$h$&$G$9!#(J

Forth $@$N=hM}7O$O!"LLGr$$$G$9$h$M!#4V@\K%$$;e%3!<%I!J(Jindirect
threaded code$@!#(Jcall $@L?Na$,>JN,$5$l$F!"%5%V%k!<%A%s$NHVCO$@$1(J
$@$,JB$s$G$$$k$h$&$J$b$N!K$NFbIt%$%s%?%W%j%?$d%V!<%H!&%9%H%i%C(J
$@%W$N;EAH$_$K$O!"46?4$7$^$7$?!#FbIt%$%s%?%W%j%?$O!"$$$/$D$+$N(J
CPU$@$K$D$$$F!">e$N!VI8=`(JFORTH$@!W$N4,Kv$K$b=P$F$$$^$9!#(J

$@:G6a$G$O!"$$$m$$$m(J PostScript $@%W%j%s%?$,=P$F$-$F!"B.EY6%Ah$b(J
$@7c$7$/$J$C$F$-$F$$$k$h$&$G$9!#(JForth $@$N%W%m%0%i%`$O!"$1$C$3$&(J
$@B.$$$N$G!"(JForth$@$N=hM}7O$N;EAH$_$rMxMQ$7$F!"(JPostScirpt $@$N=hM}(J
$@7O$N9bB.2=$r?^$k;n$_$,$"$k$H$$$&OC$rJ9$$$?$3$H$,$"$j$^$9!#(J

> forth $@$N0lHV$$$$E@$O!"=hM}7O$,4JC1$K$G$-$F$7$^$&E@$G$7$g$&$M!#(J

$@FbIt%$%s%?%W%j%?$5$($D$/$l$PF0$-$^$9$+$i$M!#$=$&$$$($P!"(J
SPARCstation $@$N(J F83 $@$O!"(JSunOS $@>e$GF0$/$b$N$O!"$I$3$+$K$J$$$b(J
$@$N$G$7$g$&$+$M!#%b%K%?$KMn$H$7$F(J n $@$9$l$P!"M7$Y$k$N$OM7$Y$k(J
$@$s$@$1$I!"K\Ev$K$d$k$HB>$K;H$C$F$$$k?M$KE\$i$l$k$7!#(J

Sun2 $@MQ!J(JSun3 $@$G$bF0$-$^$9!K$N(J F83 $@$O!"(JSUG(Sun Users Group)
$@$N%F!<%W$N#8#5G/HG!J(JJUS$@$G#8#9G/HG$H>N$7$FG[$C$F$$$k$b$N$K$b(J
$@F~$C$F$$$k!K$K:_$k$s$G$9$1$I!#$*$^$1$K!"(Jstand alone $@$G$bF0$/(J
$@$N$G!"(J/vmunix $@$NJQ$j$K$3$l$r5/F0$9$k$H!"(JSun3 $@$,(J SPARCstation 
$@$KAaJQ$o$j!"!"!"$9$k$o$1$O$J$$$+!#(J

$@$7$+$7!"@$$NCf$K(J SPARCstation $@$N?t$@$1(J Forth $@%^%7%s$,$"$k$H(J
$@;W$&$H!"$J$s$+LLGr$$$G$9$M!#$3$N4V!"$A$g$&$I%G%#%9%/%l%9$N(J 
SPARCstation $@$GM7$S$^$7$?!#(Jsee $@!J5U%3%s%Q%$%i!K$5$($"$l$P!"(J
$@$$$m$$$mC58!$G$-$^$9!#(Jview $@$,F0$+$J$$$N$O!";DG0$G$9$,!#(J

> $@$^$@!"(JDOS Extender $@$,<j$KF~$i$J$+$C$?;~$K!"(JPC9801 $@$G(J 80386
> native $@$GF0$/(J 32bit forth interpreter $@$r:n$C$FM7$s$G$$$^$7$?!#(J

$@$=$&$J$s$G$9$h$M!"(JForth$@$NI8=`$O!"(J16$@%S%C%H$@$C$?$j$9$k$s$G$9(J
$@$h$M!#!J(JForth$@$N652J=q$rFI$`;~$K$O!"Cm0U$7$F2<$5$$$M!#!K(J
SPARCstation $@$N%b%K%?$N(J Forth $@$O!"(J32 $@%S%C%H$_$?$$$G$9!#$G$b!"(J
$@%W%m%0%i%`$O!"(Jn->l $@$G$$$A$$$AJQ49$7$F$$$k$_$?$$!#(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J
PostScript
$@$7$P$i$/N9$K=P$^$9!#(J
$@N9$+$i5"$C$F$/$k$^$G(J fj.lang.forth $@$,B8:_$9$k$3$H$r4j$C$F!#(J
Technical Details
Message-ID: <1992Sep6.194248.26684@iris.is.tsukuba.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!etl.go.jp!ume!is.tsukuba.ac.jp!softlab.is.tsukuba.ac.jp!yas
References: <GFJmA.908@mtak.bsj.com> <1992Sep2.170546.11244@iris.is.tsukuba.ac.jp>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!etl.go.jp!ume!is.tsukuba.ac.jp!softlab.is.tsukuba.ac.jp!yas
From: yas@softlab.is.tsukuba.ac.jp (Yasushi Shinjo)
Newsgroups: fj.lang.forth
Subject: Internal interpreter (Re: Introduction to FORTH)
Message-ID: <1992Sep6.194248.26684@iris.is.tsukuba.ac.jp>
Date: 6 Sep 92 19:42:48 GMT
References: <GFJmA.908@mtak.bsj.com> <1992Sep2.170546.11244@iris.is.tsukuba.ac.jp>
Sender: news@iris.is.tsukuba.ac.jp (News Manager)
Organization: Inst. of Info. Sci. & Elec., Univ. of Tsukuba, Ibaraki, Japan.
Lines: 73