type TRmRegs = record case integer of 1: (edi,esi,ebp,_res,ebx,edx,ecx,eax: Longint; flags,es,ds,fs,gs,ip,cs,sp,ss: Word); 2: (_dmy2: array [0..15] of byte; bl,bh,b1,b2,dl,dh,d1,d2,cl, 3: (di,i1,si,i2,bp,i3,i4,i5,bx,b3,dx,d3,cx,c3,ax: Word); end;
type TDescriptor = record SegmentLimit: Word; BaseAddressL: Word; BaseAddressH: Byte; FlagsL: Byte; FlagsH: Byte; BaseAddressU: Byte; end;