;       Small C+ Math Library
;       cosh(x)
;       Compiled C hence hideous size!


        XLIB    cosh
        LIB    exp

        XREF    dload
        XREF    dpush
        XREF    dstore
        XREF    ddiv
        XREF    dadd
        XREF    dmul


.cosh 
        push    bc
        push    bc
        push    bc
        ld      hl,0
        add     hl,sp
        push    hl
        ld      hl,10
        add     hl,sp
        call    dload
        call    dpush
        call    exp
        pop     bc
        pop     bc
        pop     bc
        pop     hl
        call    dstore
        ld      hl,i_1+0
        call    dload
        call    dpush
        ld      hl,6
        add     hl,sp
        call    dload
        call    dpush
        ld      hl,i_1+6
        call    dload
        call    dpush
        ld      hl,18
        add     hl,sp
        call    dload
        call    ddiv
        call    dadd
        call    dmul
        pop     bc
        pop     bc
        pop     bc
        ret


.i_1 
        defb    0,0,0,0,0,-128,0,0,0,0
        defb    0,-127
        

        DEFVARS ASMPC
{
}

; --- End of Compilation ---