##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: November 2016
# Modified: 2016-12-01/00:34-0500
##+
#
# uniasm.icn, load an assembler object file
#
# tectonics:
#    gcc -S -fpic uniasm.c
#    gcc -o uniasm.so -shared -fpic uniasm.s
#
procedure main()
    # load the uniasm module
    uniasm := loadfunc("./uniasm.so", "uniasm")

    # pass a 42, and get back the length of an output message
    result := uniasm(42)
    write("Unicon: ", result)
end