( NoAssembler)
(22nd August 2015)

( example of using machine code - version of DUP)

( standard version, using assembler:)
CODE dup0
 SP { R0 } LDMFD,
 SP ! { R0 } STMFD,
PC R14 MOV,
END-CODE

( version poking code in similar body as above:)
( CODE mydup
E89D0001 ,
E92D0001 ,
PC R14 MOV,
END-CODE)

( version using CREATE)
CREATE dup1   -4 ALLOT  E89D0001 ,  E92D0001  , E1A0F00E ,  SMUDGE 

( eg 4 dup1 . .  gives 4 4 - OK)

: see_dup0 HEX ' dup0 20 - 30 word_dump ;  ( addr,count...)


