Т > VDUState Т Read and write VDU state ; (: 2: <<Т Set palette from "palette file" VDU sequence at store% FщРvdu_paletteset(store%) P(Й A%:Ц A%=store% ╦ store%+95:О ?A%:М ZА d: n:Т Get palatte as "palette file" VDU sequence to store% xщРvdu_paletteget(store%) ┌Й X%,Y%,A%,col%:A%=11 ▄A%=і-256:ГA%<>≈"W":A%=11 √Ц col%=0 ╦ 15 ═3X%=store%+col%*6+1:Y%=X%│256:X%?-1=19:X%?0=col% ╙Г A%=11:ж &FFF1 Є?Г A%=≈"W":X%?1=16:х≥ "GetPaletteEntries",@hpal%,col%,1,X%+2 ЎГ A%=≈"S":Т.... х М col% рА э: ФТ Set VDU non-palette state ПщРvdu_stateset(store%) З(Й A%:Ц A%=store% ╦ store%+43:О ?A%:М А : @Т Get the VDU state as a sequence of VDUs to restore it from "xТ 29,a,b,c,d, 24,a,b,c,d,e,f,g,h, 25,k,a,b,c,d, 25,k,a,b,c,d, 28,a,b,c,d, 31,a,b, 17,a, 17,128+b, 18,a,b, 18,a,128+b ,vТ ..origin .... graphicwindow .... previous .... current ... textwindow pos/vpos txfgd .. txbgd .. gfgd .... gbgd @щРvdu_stateget(store%) JЙ X%,Y%,A%,col%:A%=11 TA%=і-256:ГA%<>≈"W":A%=11 ^Г A%<>≈"W":А є7store%?00=29 :Т Graphics origin, must do first ўstore%!01=@vdu.o.x% ╦store%!03=@vdu.o.y% б h(store%?05=24 :Т Graphics window r:store%!06=0:Т @vdu%!60 is handle to graphics rectangle |store%!08=0 ├store%!10=0 ░store%!12=0 л0store%?14=25 :Т Previous graphics point ж#store%?15=2 :Т MOVE to it Юstore%!16=@vdu.p.x% Йstore%!18=@vdu.p.y% Т Ч,store%?20=25 :Т Last graphics point #store%?21=4 :Т MOVE to it store%!22=@vdu.l.x% store%!24=@vdu.l.y% & 0$store%?26=28 :Т Text window :store%?27=@vdu.tl% Dstore%?28=@vdu.tb% Nstore%?29=@vdu.tr% Xstore%?30=@vdu.tt% b l&store%?31=31 :Т Text position vstore%?32=╠ ─store%?33=╪ ┼ ■/store%?34=17 :Т Text foreground COLOUR ·store%?35=@vdu.t.c& ╗(store%?36=17 :Т Text background ╡store%?37=@vdu.t.d& └ 128 ╪ ф1store%?38=18 :Т Graphics foreground GCOL пstore%?39=@vdu.g.a& зstore%?40=@vdu.g.b& Д1store%?41=18 :Т Graphics background GCOL Нstore%?42=@vdu.g.c& Ьstore%?43=@vdu.g.d& └ 128 А * 4 > H R7Т Read and restore VDU state by read/writing memory \'Т Requires X%=>5 bytes, Y%=X%DIV256 f: pТ Save VDU state zТ store% => 48 bytes └щРvdu_stateread(store%) ▌'Рmem_rd(store%+&00,&FFFF00D0,0,&06) ≤'Рmem_rd(store%+&06,&FFFF0300,0,&1A) ╒'Рmem_rd(store%+&20,&FFFF0357,0,&06) ╛'Рmem_rd(store%+&26,&FFFF0366,0,&09) ІА ю: йТ Restore VDU state тТ store% => 48 bytes чщРvdu_statewrite(store%) Х'Рmem_wr(store%+&00,&FFFF00D0,0,&06) Р'Рmem_wr(store%+&06,&FFFF0300,0,&1A) Э'Рmem_wr(store%+&20,&FFFF0357,0,&06) 'Рmem_wr(store%+&26,&FFFF0366,0,&09) /О31,store%?30-store%?14,store%?31-store%?17 А $: . щРmem_rd(mem%,io%,rom%,num%) 8FA%=5:У:!X%=io%:ж&FFF1:?mem%=X%?4:io%=io%+1:mem%=mem%+1:num%=num%-1 B Щnum%<1:А L: V щРmem_wr(mem%,io%,rom%,num%) `FA%=6:У:!X%=io%:X%?4=?mem%:ж&FFF1:io%=io%+1:mem%=mem%+1:num%=num%-1 j Щnum%<1:А t: ~+щєfx(A%,X%):ЙY%:=((╨&FFF4)─&FFFF00)│256 Ъ