/*-
 Author: Brian Tiffin
 Dedicated to the public domain

 Date started: November, 2016
 Modified: 2016-12-01/00:36-0500

 Tectonics:
     gcc -S -fpic uniasm.c
     gcc -o uniasm.so -shared -fpic uniasm.s
+*/
/* uniasm.c, used to produce uniasm.s */
#include <stdio.h>
#include "icall.h"

int
uniasm(int argc, descriptor argv[])
{
    /* Expect an integer argument from Unicon */
    ArgInteger(1);
   
    /* print a message with arg, and return the number of bytes written */
    RetInteger(printf("uniasm: %ld\n", IntegerVal(argv[1])));
}