macro displayDecNum num* ; useful for debugging
{
    dN1=  num MOD 10
    dN2= ((num-dN1)/10) MOD 10
    dN3= ((num-dN1-dN2)/100) MOD 10
    dN4= ((num-dN1-dN2-dN3)/1'000) MOD 10
    dN5= ((num-dN1-dN2-dN3-dN4)/10'000) MOD 10
    dN6= ((num-dN1-dN2-dN3-dN4-dN5)/100'000) MOD 10
    dN7= ((num-dN1-dN2-dN3-dN4-dN5-dN6)/1'000'000) MOD 10
    dN8= ((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7)/10'000'000) MOD 10
    dN9= ((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8)/100'000'000) MOD 10
    dN10=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9)/1'000'000'000) MOD 10
    dN11=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10)/10'000'000'000) MOD 10
    dN12=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11)/100'000'000'000) MOD 10
    dN13=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12)/1'000'000'000'000) MOD 10
    dN14=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13)/10'000'000'000'000) MOD 10
    dN15=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14)/100'000'000'000'000) MOD 10
    dN16=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14-dN15)/1'000'000'000'000'000) MOD 10
    dN17=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14-dN15-dN16)/10'000'000'000'000'000) MOD 10
    dN18=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14-dN15-dN16-dN17)/100'000'000'000'000'000) MOD 10
    dN19=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14-dN15-dN16-dN17-dN18)/1'000'000'000'000'000'000) MOD 10
    dN20=((num-dN1-dN2-dN3-dN4-dN5-dN6-dN7-dN8-dN9-dN10-dN11-dN12-dN13-dN14-dN15-dN16-dN17-dN18-dN19)/10'000'000'000'000'000'000) MOD 10

    display dN20+'0',dN19+'0',dN18+'0',dN17+'0',dN16+'0',dN15+'0',dN14+'0',dN13+'0',dN12+'0',dN11+'0',dN10+'0',dN9+'0',dN8+'0',dN7+'0',dN6+'0',dN5+'0',dN4+'0',dN3+'0',dN2+'0',dN1+'0',13,10
}

displayDecNum (0x1FFF'FFFF'FFFF'FFFF) ; 02305843009213693951
displayDecNum (0x5FFF'FFFF'FFFF'FFFF) ; 06917529027641081855
displayDecNum (0x9FFF'FFFF'FFFF'FFFF) ; 0691752902)*,/0(/(+)  <- !!!
displayDecNum (0xAFFF'FFFF'FFFF'FFFF) ; 0576460752-0-,.-,((/  <- !!!
displayDecNum (0xFFFF'FFFF'FFFF'FFFF) ; 0000000000000000000/  <- !!!
    

macro display_decimal value {
    local leading_zero,digit,divisor,number
    number=value
    if number=1 shl 63
    display '-9223372036854775808'
    else
        if number<0
          number=-number
      display '-'
   end if
      leading_zero=0
      divisor=1000000000000000000
 while divisor>0
      digit=number/divisor
        leading_zero=leading_zero+digit
     if leading_zero | (divisor=1)
           display digit+'0'
         number=number-digit*divisor
     end if
      divisor=divisor/10
      end while
    end if
}
macro display_unsigned value {
    local number
    number=value
    if number<0
      number=number-10000000000000000000
  if number<0
          number=number+1000000000000000000
           display '9'
   else
            display '1'
   end if
    end if
    display_decimal number
}