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

[boriel]

fixed (i think...)

Code:

sub setmemorypage(ta as uinteger) tb=(ta band 7)bor 16 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

For what I read in the speccy.org forum, you need to disable interruptions (DI) before bankswitching. If an interrupt enters during bankswitching, the computer might hang, or have unpredictable results. :?: :?: