Given the code below "' x 10 + .'" isn't "x +10"!

TARGET READY
SwiftX/68K FORCE CPU-30/33 ok
' x H. 39E0 ok
' x 1 - .' before +01 ok
' x 0 + .' x ok
' x 1 + .' x +01 ok
' x 9 + .' x +09 ok
' x 10 + .' x ok
' x 11 + .' x +01 ok
' x 13 + .' x +03 ok
' x 14 + .' after ok
________________________________________

TARGET

1 CELLS EQU LOCALS:

#USER
CELL +USER 'LD \ points to top of local data stack
-? EQU #USER

INTERPRETER

8 CONSTANT LCELL

: LDARRAY ( l n -- l' ) CREATE OVER , +
   ;CODE ( -- a ) A0 ) A0 MOV 'LD U) A0 ADD A0 S -) MOV
      RTS END-CODE

: LDLVARIABLE ( l -- l' ) LCELL LDARRAY ;

TARGET

LOCALS:
LDLVARIABLE x
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Thu Jan 24 2002 - 07:26:15 PST