Code formatting or a beautifier?

[shlomok]

Is there a code formatting utility or a code beautifier for RadASM?


I want to enforce the same rules for multiple projects and programmers.
e.g force 2 tabs, automatically indent .IF statements etc.

Thanks,

S. 

[dedndave]

you mean - you haven't written one ???   :eek

[JD]

Not that I know of, but there's some handy items in the block menu for indenting and so on.

[shlomok]

Not that I know of, but there's some handy items in the block menu for indenting and so on.

:U

I shall start writing a beautifier, once I finish debugging this:
(I get negative values for all 3 printouts)

Code Select Expand


getCurrentDateAndTime PROC

LOCAL systemTime :LARGE_INTEGER
LOCAL localTime :LARGE_INTEGER
LOCAL nowTF :TIME_FIELDS
LOCAL finelTime :ULONG

invoke DbgPrint,$CTA0("getCurrentDateAndTime ...\n")

;The KeQuerySystemTime routine obtains the current system time.
;(System time is a count of 100-nanosecond intervals since January 1, 1601)
invoke KeQuerySystemTime, addr systemTime
invoke DbgPrint,$CTA0("KeQuerySystemTime: %d\n"), addr systemTime

;The ExSystemTimeToLocalTime routine converts a GMT system time value
;to the LOCAL system time for the current time zone.

;SystemTime [in]
    ;A pointer to a variable set to the unbiased, GMT system time.
;LocalTime [out]
    ;A pointer to the returned value for the current locale.
invoke ExSystemTimeToLocalTime, addr systemTime, addr localTime
invoke RtlTimeToTimeFields ,addr localTime,addr nowTF
invoke DbgPrint,$CTA0("ExSystemTimeToLocalTime: %d\n"), addr localTime
ret

getCurrentDateAndTime endp



:bdg
S.

[dedndave]

not sure if bit 63 should be set or not   :P
i didn't feel like calculating - lol

but - it comes out negative because you are displaying it as a signed value
display it as an unsigned value - or in hex - it may make more sense to you
and - of course, it is a 64-bit unsigned value

[shlomok]

not sure if bit 63 should be set or not   :P
i didn't feel like calculating - lol

but - it comes out negative because you are displaying it as a signed value
display it as an unsigned value - or in hex - it may make more sense to you
and - of course, it is a 64-bit unsigned value

Hi thanks :)

Code Select Expand


invoke ExSystemTimeToLocalTime, addr systemTime, addr localTime
invoke RtlTimeToTimeFields ,addr localTime,addr nowTF

    movzx eax, nowTF.Day
    movzx ecx, nowTF.Month
    movzx edx, nowTF.Year
    invoke DbgPrint, $CTA0("Date is %d.%02d.%04d\n"), eax, ecx, edx
   
    movzx eax, nowTF.Hour
    movzx ebx, nowTF.Minute
    movzx ecx, nowTF.Second
    movzx edx, nowTF.Milliseconds
    invoke DbgPrint, $CTA0("Time is %d.%02d.%02d.%04d\n"), eax, ebx, ecx, edx


The date works fine, the time crashes, still debugging.