BlackBox Framework Center

do you mean? PROCEDURE Bit (op: INTEGER); VAR reg, base, inx, d: INTEGER; scale, mode: SHORTINT; disp: INTEGER; BEGIN w := 1; ModRm(mode, reg, base, inx, scale, disp); IF op = 0A3H THEN WriteOp("bt"); ELSIF op = 0ABH THEN WriteOp("bts"); ELSIF op = 0B3H THEN WriteOp("btr&quo...

BITS is type converter procedure, SYSTEM.BIT is a bit test procedure: PROCEDURE BIT(adr:INTEGER,offset:INTEGER):BOOLEAN BIT is most similar to the IN operator: VAR b:BOOLEAN; set:SET; b := 2 IN set; (*same as*) b := SYSTEM.BIT(SYSTEM.ADR(set),2); BIT is useful to embeded program, You can find it in ...

I have checked all the group, a patch here; PROCEDURE Bit (op: INTEGER); VAR reg, base, inx, d: INTEGER; scale, mode: SHORTINT; disp: INTEGER; BEGIN w := 1; ModRm(mode, reg, base, inx, scale, disp); d := 0; IF op = 0A3H THEN WriteOp("bt"); IF mode = Reg THEN d := 1; END; ELSIF op = 0ABH TH...

a demo for using SYSTEM.BIT, actually, it is different from BITS; MODULE ObxSystemBit; IMPORT Log := StdLog, S := SYSTEM; (* memory manager, *) CONST MaxPage = 512 - 1; VAR bitmap: ARRAY (MaxPage + 1) DIV 32 OF SET; (* 16 *) PROCEDURE Do(); VAR b: BOOLEAN; x, y: INTEGER; BEGIN b := S.BIT(x, 31); (* ...

Josef Templ wrote:> b :=SYSTEM.BIT(x,y); (* seem wrong here *)

It looks very much like a problem in the decoder. The operands are swapped.

yes,this is a decode problem: the above is wrong, it should be: luowy

according to Intel manual, then BT instruction only accept 0..31 immediate offset and range -2^31 to 2^31 - 1 for a register offset,but SYSTEM.BIT seems output wrong code; MODULE TestSystemBit; IMPORT SYSTEM; PROCEDURE Do(); VAR b:BOOLEAN; x,y:INTEGER; BEGIN b:=SYSTEM.BIT(x,31); b:=SYSTEM.BIT(x,200)...

ok! The change is more reasonable.

i test it ok:
1, drag&drop selected text to another bb instance window worked as before;
2,holding the alt key and drap the selected text on another instance bb window is forbidden, no trap window anymore

this issue caused by illeagal memeory access, track to HostWindows.Directory.GetThisWindow, the patch is simple(on windows): VAR mpid:INTEGER; ... PROCEDURE (dir: Directory) GetThisWindow* ( ..VAR wpid:INTEGER; BEGIN ... wnd := WinApi.WindowFromPoint(pt); res:=WinApi.GetWindowThreadProcessId(wnd,wpi...

for views, no need; considering rtf2odc , a lot of rulers will be added, e.g. bolding a word text will add begin ruler and end ruler, if they convert them to lines, ....

for para,I rarely use it, not familiar with it.