128k memory paging, how can we do that? :S

[LCD]

Why not use inline ASM? Not tested:

Code:

sub setmemorypage(ta as ubyte)
   ASM
      di
      ld a,(ix+5)
      and 7
      or 8
      ld bc,32765
      out (c),a
      ld (23388),a
      ei
   END ASM
end sub