32 lines
1010 B
Plaintext
32 lines
1010 B
Plaintext
' these provide information about your application
|
|
> FUNCTION app_timestamp !v1.00
|
|
$F% !build date/time in gemdos format, see xbios(23)
|
|
RETURN LONG{HIMEM+12}
|
|
ENDFUNC
|
|
' build date and time in human readable form
|
|
' call MODE once before use to set the output format
|
|
> FUNCTION app_build_date$ !v1.00
|
|
RETURN CHAR{HIMEM+130} !10 chars
|
|
ENDFUNC
|
|
> FUNCTION app_build_time$ !v1.00
|
|
RETURN CHAR{HIMEM+120} !8 chars
|
|
ENDFUNC
|
|
' returns "68K" or "V4E" depending on the build type at compile time
|
|
> FUNCTION app_build_type$ !v1.00
|
|
RETURN CHAR{HIMEM+154} !3 chars
|
|
ENDFUNC
|
|
' the revision of the compiler/linker at the moment your program was compiled
|
|
> FUNCTION compiler_revision !v1.00
|
|
$F%
|
|
RETURN LONG{HIMEM+8}
|
|
ENDFUNC
|
|
' these provide information about the library
|
|
' the revision of the library at the moment your program was compiled
|
|
> FUNCTION library_revision !v1.00
|
|
$F%
|
|
RETURN LONG{HIMEM+4}
|
|
ENDFUNC
|
|
> FUNCTION library_id$ !v1.00
|
|
RETURN MKL$(LONG{HIMEM}) !'GBE3'
|
|
ENDFUNC
|