INTEGER_CONSTANT = 1
dt INTEGER_CONSTANT ;error, float would save, tnx in advance!
    

;http://board.flatassembler.net/topic.php?t=18849

macro dt' [n]{
  ;float?   -> let fasm
  if n eqtype 0.0
    dt n
  ;0?       -> let fasm
  else if n = 0
    dt 0.0

  ;int expr -> compose
  else
    local bin_log,bin_shl,bin_man,bin_exp
    local n'
    bin_exp = $3fff
    n' = n
    if n' < 0
      n' = 0 - n'
      bin_exp = bin_exp or $8000
    end if
    bin_log = bsr n'
    bin_exp = bin_exp + bin_log
    bin_shl = 63 - bin_log
    bin_man = n' shl bin_shl
    dq bin_man
    dw bin_exp
  end if
}








format pe gui 4.0

INTEGER_CONSTANT_0 = 0
INTEGER_CONSTANT_1 = 1
m1 equ INTEGER_CONSTANT_0 - INTEGER_CONSTANT_1

L1: dt' INTEGER_CONSTANT_0,\
        INTEGER_CONSTANT_1,\
        1+1               ,\
        3.0               ,\
        65'535+1-1        ,\
        m1                   ;fasm bs? fails on negative nums, should be fixed!

entry $
        hlt ;hi, olly!
        finit
        fld tbyte[L1]
        fld tbyte[L1+10]
        fld tbyte[L1+20]
        fld tbyte[L1+30]
        fld tbyte[L1+40]
        fld tbyte[L1+50]  ; stack: -1, 65535, 2, 1, 0
        ret

    

macro _dt n {
        if n eqtype 0.0
                dt n
        else
                dt n#.0
        end if
}
_dt 1.0
_dt 1