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

[nitrofurano]

hi everyone!
based on the information i found at <!-- m --><a class="postlink" href="http://www.worldofspectrum.org/faq/reference/128kreference.htm">http://www.worldofspectrum.org/faq/refe ... erence.htm</a><!-- m -->

i tried this one:

Code:

cls page1=0 a=(((peek($5B5C))band $F8)bor (page1 band 7)) poke $5B5C,a:out $7FFD,a poke $C123,80 page1=1 a=(((peek($5B5C))band $F8)bor (page1 band 7)) poke $5B5C,a:out $7FFD,a poke $C123,81 page1=0 a=(((peek($5B5C))band $F8)bor (page1 band 7)) poke $5B5C,a:out $7FFD,a print peek($C123) page1=1 a=(((peek($5B5C))band $F8)bor (page1 band 7)) poke $5B5C,a:out $7FFD,a print peek($C123) pause 0

and i can't figure out what is going wrong there...- any clue? :S