;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