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