:GetSystemTime
/*
Params:
In: None
Out: wYear 4@ wMonth 5@ wDayOfWeek 6@ wDay 7@ wHour 8@ wMinute 9@ wSeconds 10@ wMiliseconds 11@
Example:
0AB1: Call @GetLocalTime 0 wYear 4@ wMonth 5@ wDayOfWeek 6@ wDay 7@ wHour 8@ wMinute 9@ wSeconds 10@ wMiliseconds 11@
*/
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetSystemTime" library 0@
0AC8: 2@ = alloc mem 16
0AA5: call 1@ params 1 pop 0 2@
0085: 3@ = 2@
0A8D: 4@ = read mem 3@ size 2 vp 0 // wYear
3@ += 2
0A8D: 5@ = read mem 3@ size 2 vp 0 // wMonth
3@ += 2
0A8D: 6@ = read mem 3@ size 2 vp 0 // wDayOfWeek
3@ += 2
0A8D: 7@ = read mem 3@ size 2 vp 0 // wDay
3@ += 2
0A8D: 8@ = read mem 3@ size 2 vp 0 // wHour
3@ += 2
0A8D: 9@ = read mem 3@ size 2 vp 0 // wMinute
3@ += 2
0A8D: 10@ = read mem 3@ size 2 vp 0 // wSecond
3@ += 2
0A8D: 11@ = read mem 3@ size 2 vp 0 // wMilliseconds
0AC9: free_allocated_memory 2@
ret 8 4@ 5@ 6@ 7@ 8@ 9@ 10@ 11@