S>D
( n -- d )
数値 n を符号付き 2 セル整数で表現された d に変換する
code: 実装方法
: S>D DUP 0< ;
#Gforth