🚀 go-pugleaf

fj.lang.* $B$O3Z$7$$$J!"$NBl@n$G$9!#(J

In article <1992Sep6.194248.26684@iris.is.tsukuba.ac.jp>,
 yas@softlab.is.tsukuba.ac.jp (Yasushi Shinjo) writes:
>$B;d$N>l9g$O!"$3$NK\$,=P$k$N$rBT$A$-$l$:$K!J$H8@$C$F$b!"$3$NK\(J
>$B$,=P$k$HCN$C$F$$$?$o$1$G$O$J$$$N$@$1$l$I$b!K!"<!$N;(;o$NFC=8(J
>$B$r2?EY$b2?EY$bFI$_$^$7$?!#(J
>
>    $B%^%$%3%s%T%e!<%?!!#N#o!%#3!!FC=8!'$9$0F0$/#F#O#R#T#H(J
>    $B86F;9(!":4F#@6Ci!"5H@n85=_!">.CS?50l!"(J
>    $B#C#Q=PHG!"#1#9#8#1G/(J

$B$*$*!"KM$,$^$@%Q%T%3%s$GM7$s$G$$$?$3$m$@$"!*$=$N:"$O9b5i8@8l(J
$B$O%Y!<%7%C%/$7$+CN$j$^$;$s$G$7$?!#(J


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

$BKM$N(J 386 forth $B$O!"$3$l0J>eC;$$%$%s%?!<%W%j%?$O$J$$$@$m!*$H$$(J
$B$&$b$N$G$9!JH?O@4?7^(J :-$B!K!#(J

	lodsd
	jmp	eax

$B$3$l$@$1$G$9!#C;$$$N$G!"FHN)$7$?%$%s%?!<%W%j%?$K$;$:$K!"$9$Y$F(J
$B$N%o!<%I$N:G8e$K>e$N#29T$r=q$-$^$9!#Nc$($P!"(J+ $B$O!"0J2<$N$h$&$K(J
$B$J$j$^$9!#(J
	dd		$B<!$N%o!<%I$N%"%I%l%9(J
	db		1           ; $BL>A0$ND9$5(J
	db		'+'         ; $BL>A0(J
	pop		eax			; $B%9%?%C%/$+$iCM$r<h$C$F$/$k(J
	add		ecx, eax	; TOS $B$KB-$9(J
	lodsd				; $B%$%s%?%W%j%?$rD>@\=q$$$A$c$&!*(J
	jmp		eax

TOS $B$b%l%8%9%?$KF~$C$F$$$^$9$N$G!"9bB.$G$9!#(J


>$B$7$P$i$/N9$K=P$^$9!#(J

Take care!

>$BN9$+$i5"$C$F$/$k$^$G(J fj.lang.forth $B$,B8:_$9$k$3$H$r4j$C$F!#(J

$B$O$O!#(J
--
$B$?$-$+$o!w$*$l$4$s(J