settable codepage() on RP6502

libsrc/rp6502/codepage.c

@@ -1,6 +1,7 @@
 #include <rp6502.h>
 
-int __fastcall__ codepage (void)
+int __fastcall__ codepage (int cp)
 {
+    ria_set_ax (cp);
     return ria_call_int (RIA_OP_CODEPAGE);
 }