High Level Assembly, aka High Level Assembly, is an open source assembly language created in 2011 by Randall Hyde.
| #487on PLDB | 13Years Old |
High Level Assembly (HLA) is an high-level assembly language developed by Randall Hyde. It allows the use of higher-level language constructs to aid both beginners and advanced assembly developers. It fully supports advanced data types and object-oriented programming. Read more on Wikipedia...
procedure SetFormat;
static
chr :w.CHARRANGE;
chr2 :w.CHARRANGE;
cf :w.CHARFORMAT;
begin SetFormat;
w.SendMessage(hwnd, w.EM_GETMODIFY,0,0);
push (eax);
w.SendMessage(hwnd, w.EM_EXGETSEL,0, &chr);
w.SendMessage(hwnd, w.EM_HIDESELECTION, true,0);
mov (0, chr2.cpMin);
mov (-1,chr2.cpMax);
w.SendMessage(hwnd, w.EM_EXSETSEL,0,&chr2);
mov (@size(cf), cf.cbSize);
mov (w.CFM_CHARSET | w.CFM_FACE | w.CFM_SIZE | w.CFM_COLOR, cf.dwMask);
mov (logfont.lfCharSet, al);
mov (al,cf.bCharSet);
mov (logfont.lfPitchAndFamily, al);
mov (al, cf.bPitchAndFamily);
w.lstrcpyn(cf.szFaceName,&logfont.lfFaceName,w.LF_FACESIZE);
mov (logfont.lfHeight, eax);
neg (eax);
mov (15,ecx);
mul (ecx);
mov (eax, cf.yHeight);
mov (rgb, cf.crTextColor);
w.SendMessage(hwnd, w.EM_SETCHARFORMAT, w.SCF_SELECTION,&cf);
w.SendMessage(hREd, w.WM_SETFONT, hFont, true);
w.SendMessage(hREd, w.EM_SETMARGINS, w.EC_LEFTMARGIN,5);
pop (eax);
w.SendMessage(hwnd, w.EM_SETMODIFY, eax,0);
w.SendMessage(hwnd, w.EM_EXSETSEL,0,&chr);
w.SendMessage(hwnd,w.EM_HIDESELECTION, false, 0);
end SetFormat;
| Feature | Supported | Token | Example |
|---|---|---|---|
| Macros | ✓ | // _SortCases_
//
// This routine does a bubble sort on an array
// of _caseRecord_ objects. It sorts in ascending
// order using the "value" field as the key.
//
// This is a good old fashioned bubble sort which
// turns out to be very efficient because:
//
// (1) The list of cases is usually quite small, and
// (2) The data is usually already sorted (or mostly sorted).
macro _SortCases_( ary, size ):i, bnd, didswap, temp;
?bnd := size - 1;
?didswap := true;
#while( didswap )
?didswap := false;
?i := 0;
#while( i < bnd )
#if( ary[i].value > ary[i+1].value )
?temp := ary[i];
?ary[i] := ary[i+1];
?ary[i+1] := temp;
?didswap := true;
#endif
?i := i + 1;
#endwhile
?bnd := bnd - 1;
#endwhile;
endmacro; |
|
| Line Comments | ✓ | // comment |
|
| Comments | ✓ |