#ô > BLib.MemIO 1.02 24-Jan-2018 ô Memory access 'ô v1.00 15-Apr-2011 Initial version ('ô v1.01 31-Jan-2016 Added io_call() 29ô v1.02 24-Jan-2018 mem_rd() can select sideways ROMs <: F!Þ ctrl% 31:X%=ctrl%:Y%=X%256 Pà Z: d-ô Requires: X%=>5-byte block, Y%=X%DIV256 n: x Ýòmem_rd(mem%,io%,rom%,num%) ‚Rç¤fx(130,0)=&FFFF:êY%,!&F6:Y%=rom%:ãA%=0¸num%-1:!&F6=io%+A%:mem%?A%=º&FFB9:í:á Œ!òmem_wr(0,0,rom%,0):çnum%=0:á –FA%=5:õ:!X%=io%:Ö&FFF1:?mem%=X%?4:io%=io%+1:mem%=mem%+1:num%=num%-1   ýnum%<1:á ª: ´ Ýòmem_wr(mem%,io%,rom%,num%) ¾5ç¤fx(130,0)=&FFFF:ãA%=0¸num%-1:io%?A%=mem%?A%:í:á ÈFçnum%=0:X%?4=rom%:òmem_wr(X%+4,&F4,0,1):mem%=X%+4:io%=&FE30:num%=1 ÒFA%=6:õ:!X%=io%:X%?4=?mem%:Ö&FFF1:io%=io%+1:mem%=mem%+1:num%=num%-1 Ü ýnum%<1:á æ: ðÝòio_call(io%,A$) ú@!X%=&200:A%=6:õ:X%?4=io%:Ö&FFF1:io%=io%256:?X%=?X%+1:ý?X%=2 ÿ"LINE "+A$:á : ݤio_call(io%,B%,C%) "@!X%=&200:A%=6:õ:X%?4=io%:Ö&FFF1:io%=io%256:?X%=?X%+1:ý?X%=2 ,=¤fx(136,B%+256*,C%) 6: @+ݤfx(A%,X%):êY%:=((º&FFF4)€&FFFF00)256 J: ÿ