*
*
*
*
*
*
*
*
*
*
   common /ccall/ cc$errno
   common /ccall/ cc$nul4,cc$nul8
   common /ccall/ cc$0,cc$4,cc$8,cc$12,cc$16,cc$20,cc$24,cc$28,cc$32
   common /ccall/ c.libnames
   common /ccall/ c.libs
   common /ccall/ c.fnnames
   common /ccall/ c.fns

   equate CC$NUL        to char(0)
   equate CC$FN.DLOPEN  to char(1)
   equate CC$FN.DLSYM   to char(2)
   equate CC$FN.PUSHVAL to char(3)
   equate CC$FN.PUSHOFF to char(4)
   equate CC$FN.INCSTK  to char(5)
   equate CC$FN.CALLFN  to char(6)
   equate CC$FN.RTN32   to char(7)
   equate CC$FN.RTN64   to char(8)
   equate CC$FN.ERRNO   to char(10)
   equate CC$FN.EXIT    to char(255)

   equate MAX.READ.LEN  to 30000
   equate MAX.WRITE.LEN to 30000

   deffun ccall.getlib(lib.name)
   deffun ccall.getfn(lib.handle,fn.name)
   deffun ccall.bintohex(str)
   deffun ccall.getfn2(lib.name,fn.name)
   deffun ccall.getstr(ptr,maxlen)
   deffun ccall.getmem(ptr,len)
   deffun int2bin(s,l)
   deffun bin2int(s)
   deffun bin2hex(s)
   deffun hex2bin(s)
   deffun bin2ip(s)
   deffun ip2bin(s)
   deffun h2n(s)
