explorer mid ram is in D-MEM


Misc bank 1 starts at 5000,
Misc bank 2 starts at 4000.



#-lambda (end-comment)
#-exp  (begin-comment)
xwipm-d

	;; Now M-A has the contents and M-C has the address.
	((imod-low) dpb m-c %imod-low-dispatch-address a-zero)
	(dispatch WRITE-DISPATCH-RAM (byte-field 0 0) (I-ARG (A-MEM-LOC A-A)))

#-exp  (end-comment)


#+exp   (jump-equal m-b (a-constant 7) xwipm-d)