From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/appl/launchpad430/words/dump.asm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 amforth-6.5/appl/launchpad430/words/dump.asm (limited to 'amforth-6.5/appl/launchpad430/words/dump.asm') diff --git a/amforth-6.5/appl/launchpad430/words/dump.asm b/amforth-6.5/appl/launchpad430/words/dump.asm new file mode 100644 index 0000000..6cc9095 --- /dev/null +++ b/amforth-6.5/appl/launchpad430/words/dump.asm @@ -0,0 +1,19 @@ +;X DUMP adr n -- dump memory +; OVER + SWAP DO +; CR I 4 U.R SPACE SPACE +; I $10 + I DO I C@ 3 U.R LOOP SPACE SPACE +; I $10 + I DO I C@ $7F AND $7E MIN BL MAX EMIT LOOP +; 10 +LOOP ; + HEADER(DUMP,4,"dump",DOCOLON) + DW XT_OVER,XT_PLUS,XT_SWAP,XT_DODO +LDUMP1: DW XT_CR,XT_I,XT_DOLITERAL,4,XT_UDOTR,XT_SPACE,XT_SPACE + DW XT_I,XT_DOLITERAL,10h,XT_PLUS,XT_I,XT_DODO +LDUMP2: DW XT_I,XT_CFETCH,XT_DOLITERAL,3,XT_UDOTR,XT_DOLOOP + DEST(LDUMP2) + DW XT_SPACE,XT_SPACE + DW XT_I,XT_DOLITERAL,10h,XT_PLUS,XT_I,XT_DODO +LDUMP3: DW XT_I,XT_CFETCH,XT_DOLITERAL,7Fh,XT_AND,XT_DOLITERAL,7Eh,XT_MIN,XT_BL,XT_MAX,XT_EMIT,XT_DOLOOP + DEST(LDUMP3) + DW XT_DOLITERAL,10h,XT_DOPLUSLOOP + DEST(LDUMP1) + DW XT_EXIT -- cgit v1.2.3