test.pir

.include 'interpinfo.pasm'
.sub 'main' :main
    $S0 = interpinfo .INTERPINFO_PARROT_OS
    say "PARROT_OS"
    say $S0

    $S0 = interpinfo .INTERPINFO_PARROT_OS_VERSION
    say "PARROT_OS_VERSION"
    say $S0

    $S0 = interpinfo .INTERPINFO_PARROT_OS_VERSION_NUMBER
    say "PARROT_VERSION_NUMBER"
    say $S0

    $S1 = interpinfo .INTERPINFO_CPU_ARCH
    say "CPU_ARCH"
    say $S1

    $S1 = interpinfo .INTERPINFO_CPU_TYPE
    say "CPU_TYPE"
    say $S1


    $I0 = interpinfo .INTERPINFO_PARROT_INTMAX
    say "INTMAX"
    say $I0

    $I0 = interpinfo .INTERPINFO_PARROT_INTMIN
    say "INTMIN"
    say $I0

    $I0 = interpinfo .INTERPINFO_PARROT_FLOATSIZE
    say "FLTSIZE"
    say $I0

    $I0 = interpinfo .INTERPINFO_PARROT_INTSIZE
    say "INTSIZE"
    say $I0

    $I0 = interpinfo .INTERPINFO_PARROT_POINTERSIZE
    say "PTRSIZE"
    say $I0
.end