anchor.diff:  RESET
   
   : room ( n -- )		bc @ + /image U> ABORT" Image overflow" ;
  +
  +\ B, H, W, and D, place a byte, half-word, word, or double-word (8, 16, 32,
  +\ or 64 bit, respectively) values verbatim into the image buffer.
  +\ 
  +\ Note that double-word values are awkward to use with 32-bit Forth systems,
  +\ requiring double-sized values on the data stack.  E.g.,
  +\ $DEADBEEF.0BADC0DE D, versus $DEADBEEF0BADC0DE for a proper 64-bit system.
  +\ 
  +\ Observe that the RISC-V architecture is a LITTLE-ENDIAN instruction set
  +\ architecture.
   
   : (b,) ( c -- )		bc @ image + C!  1 bc +! ;
   : B, ( c -- )		1 room (b,) ;
  
positive.code: 	(rs2) (rs1) W, ;
  
  : U, ( imm rd opmask -- )
  	(rd) SWAP $FFFFF000 AND OR W, ;
  
  : UJ, ( disp rd opmask -- )
  	(rd)
  	OVER $100000 AND 11 LSHIFT OR
  	OVER $0007FE AND 20 LSHIFT OR
  	OVER $000800 AND 9 LSHIFT OR
  
negative.code: : SBREAK	( -- )			0 1 0 00000073 I, ;
  
  \ Convenient aliases.
  : RDCYCLE	( rd -- )		0 0C00 ROT CSRRS ;
  : RDCYCLEH	( rd -- )		0 0C80 ROT CSRRS ;
  : RDTIME	( rd -- )		0 0C01 ROT CSRRS ;
  : RDTIMEH	( rd -- )		0 0C81 ROT CSRRS ;
  : RDINSTRET	( rd -- )		0 0C02 ROT CSRRS ;
  : RDINSTRETH	( rd -- )		0 0C82 ROT CSRRS ;
  DECIMAL
  
  