aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/appl/launchpad430/words/dump.asm
blob: 6cc909585d23e7f02a5c5e5ed6079347f9a1462e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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