X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_decimal.adoc;h=b06e5f25fc4a6e9b089921594effd88b38dfef86;hb=656f37efbd89db1b1088281047a9633cf74e92ec;hp=df737ee72a4bb5417652bd3e43cb1894e28311bc;hpb=fe4d0a01d5703d1ed6fa230679add024b5b2ca5c;p=rrq%2Frrqforth.git diff --git a/adoc/p_decimal.adoc b/adoc/p_decimal.adoc index df737ee..b06e5f2 100644 --- a/adoc/p_decimal.adoc +++ b/adoc/p_decimal.adoc @@ -1,8 +1,20 @@ -Word: DECIMAL -------------- +// compile.asm: WORD p_decimal,'DECIMAL',fasm anchor:p_decimal[] + +=== Word: DECIMAL + + +.... +Data stack: ( -- ) +.... + +"DECIMAL" is a function word that sets <> to 10. + +==== +.Word: DECIMAL +[caption='Definition concept {counter:exec}: '] ---- -compile.asm: WORD p_decimal,'DECIMAL',fasm +: DECIMAL 10 BASE ! ; ---- - +====