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

[boriel]

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

This is a perfect case for FASTCALL

Code:

sub FASTCALL setmemorypage(ta as ubyte)
   ASM
      di
      ; ld a,(ix+5) ; Not needed already in A
      and 7
      or 8
      ld bc,32765
      out (c),a
      ld (23388),a
      ei
   END ASM
end sub