Author: mcayland Date: Mon Aug 19 14:58:00 2013 New Revision: 1219 URL: http://tracker.coreboot.org/trac/openbios/changeset/1219
Log: Add peek/poke hooks
Add hooks for hardware specific fault handlers for the peek and poke commands.
Signed-off-by: Bob Breuer breuerr@mc.net Signed-off-by: Mark Cave-Ayland mark.cave-ayland@ilande.co.uk
Modified: trunk/openbios-devel/forth/device/other.fs
Modified: trunk/openbios-devel/forth/device/other.fs ============================================================================== --- trunk/openbios-devel/forth/device/other.fs Mon Aug 19 14:57:56 2013 (r1218) +++ trunk/openbios-devel/forth/device/other.fs Mon Aug 19 14:58:00 2013 (r1219) @@ -20,28 +20,38 @@
\ 5.3.7.1 Peek/poke
+defer (peek) +:noname + execute true +; to (peek) + : cpeek ( addr -- false | byte true ) - c@ true + ['] c@ (peek) ;
: wpeek ( waddr -- false | w true ) - w@ true + ['] w@ (peek) ;
: lpeek ( qaddr -- false | quad true ) - l@ true + ['] l@ (peek) ;
+defer (poke) +:noname + execute true +; to (poke) + : cpoke ( byte addr -- okay? ) - c! true + ['] c! (poke) ;
: wpoke ( w waddr -- okay? ) - w! true + ['] w! (poke) ;
: lpoke ( quad qaddr -- okay? ) - l! true + ['] l! (poke) ;