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

[nitrofurano]

now it seems weird why

Code:

cls poke 23388,16:out 32765,16:poke 50000,16 poke 23388,17:out 32765,17:poke 50000,17 poke 23388,19:out 32765,19:poke 50000,19 poke 23388,20:out 32765,20:poke 50000,20 poke 23388,22:out 32765,22:poke 50000,22 poke 23388,23:out 32765,23:poke 50000,23 poke 23388,16:out 32765,16:print peek (50000) poke 23388,17:out 32765,17:print peek (50000) poke 23388,19:out 32765,19:print peek (50000) poke 23388,20:out 32765,20:print peek (50000) poke 23388,22:out 32765,22:print peek (50000) poke 23388,23:out 32765,23:print peek (50000) pause 0

works, and

Code:

sub setmemorypage(ta as ubyte) dim tb as ubyte tb=(ta band 7)bor 8 poke 23388,tb:out 32765,tb end sub cls setmemorypage(0):poke 50000,80 setmemorypage(1):poke 50000,81 setmemorypage(3):poke 50000,83 setmemorypage(4):poke 50000,84 setmemorypage(6):poke 50000,86 setmemorypage(7):poke 50000,87 setmemorypage(0):print peek(50000) setmemorypage(1):print peek(50000) setmemorypage(3):print peek(50000) setmemorypage(4):print peek(50000) setmemorypage(6):print peek(50000) setmemorypage(7):print peek(50000) pause 0

isn't... :S