system ramtest global s0 sd xg yg t1 t2 afont globaldata @afont font from(deascii.myd) exec ramtest 1/initd/writexy extprocess initd from(grafb.mpp) extprocess writexy from(grafb.mpp) ---------------------------------------- process ramtest t1s = 80000000 tw = 40000 i a0 = 10 begin :hold if(sd =0):hold )mi.init ( a0 )mi.setadress now ->t1 0,i< :wloop ( i +1 <<4 |i )mi.write -- tw wait +1,i< if(i #15):wloop now ->t2 t2 -t1 ->xg t1s <<2 wait ( a0 )mi.setadress 0,i< :rloop )mi.getadress -a0 ->xg )mi.read ->yg +1,i< t1s wait if(i #15):rloop stop load from (memi.mpo) *mi.init *mi.setadress *mi.getadress *mi.write *mi.read \ ----------------------------- --process eetestr -- t1s = 80000000 -- t1 -- t2 --begin --:hold -- if(sd =0):hold -- ( 28 , 29 , )ee.init -- ( 3 )ee.setchip -- )fillee -- now ->t1 -- ( 0 )ee.writepage -- now ->t2 -- t2 -t1 ->xg -- )emptyee -- ( 0 , 0 , 25 , )ee.read -- -- )typeee -- stop -- ------------------------ --function fillee -fill -- i --begin -- 0,i< --:loop -- i [i] ->ee -- +1,i< -- if(i <63):loop -- return -- ------------------------ --function emptyee -empt -- i --begin -- 0,i< --:loop -- 0 [i] ->ee -- +1,i< -- if(i <63):loop -- return -- ------------------------- --function typeee -type -- dt = 80000000 -- i -- y --begin -- 0,i< --:loop -- [i] ee ->y -- i <<16 |y ->yg -- +1,i< -- dt wait -- if(i <25):loop -- return -- --load from (eeprom.mpo) --*ee.init --*ee.setchip --*ee.setadress --*ee.writepage --*ee.readbyte --*ee.read --\ ---------------------------------------- --process eetoim -- t1s = 80000000 -- i -- y --begin -- )gra.init -- ( 100 , 100 , 150 , 150 , )gra.setwindow --:hold -- if(sd =0):hold -- ( 28 , 29 , )ee.init -- ( 3 )ee.setchip -- ( 0 )ee.setadress -- 0,i< --:wloop -- ( i )ee.writebyte -- +1,i< -- if(i #256):wloop -- t1s >>8 wait -- -- ( 0 )ee.setadress -- 0,i< --:rloop -- )ee.readbyte )gra.fillpixel -- +1,i< -- if(i #256):rloop -- stop -- --load from (eeprom.mpo) --*ee.init --*ee.setchip --*ee.setadress --*ee.writebyte --*ee.readbyte --*ee.read --load from (grafb.mpo) --*gra.init --*gra.setwindow --*gra.fillpixel --\