--- M6502/M6502.xs	2008/04/13 20:03:57	202
+++ M6502/M6502.xs	2008/04/13 22:04:44	203
@@ -258,36 +258,38 @@
 	return perlCallBack[Addr];
 }
 
+void mem_poke(int Addr, int byte) {
+	opCache[Addr] = byte;
+}
+
+int mem_peek(int Addr) {
+	return opCache[Addr];
+}
 
 MODULE = M6502		PACKAGE = M6502
 
 PROTOTYPES: DISABLE
 
-int
-set_debug(int state)
+int set_debug(int state)
 
-int
-get_debug()
+int get_debug()
 
-int
-reset()
+int reset()
 
-void
-update_C_R()
+void update_C_R()
 
-void
-update_perl_R()
+void update_perl_R()
 
-int
-exec(int cycles)
+int exec(int cycles)
 
-void
-set_read_callback(int Addr)
+void set_read_callback(int Addr)
 
-void
-set_write_callback(int Addr)
+void set_write_callback(int Addr)
 
-int
-set_all_callbacks(int mode)
+int set_all_callbacks(int mode)
 
 int get_callback(int Addr)
+
+void mem_poke(int Addr, int byte)
+
+int mem_peek(int Addr)