#
# canola - canon canola 1614p emulator
# Copyright (C) 2011 Peter Miller
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License, version 3, as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program. If not, see <http://www.gnu.org/licenses/>.
#
; Group Function card set 3
;
; ------------------  Card-Pocket-Begin  -----------------------------------
; Title: GF-3: sinh(x), cosh(x), tanh(x), exp(x)
; Color: green
; Style: blank
; ------------------  Card-Pocket-End  -------------------------------------
;
; [LRN] program cards
; [OPE] data cards
; [UJ] [1] => sinh(x)
; [UJ] [2] => cosh(x)
; [UJ] [3] => tanh(x)
; [UJ] [4] => exp(x)
;
; [UJ] [1] 1.0 [START] => 1.175201193643801
; [UJ] [2] 0.5 [START] => 1.127625965206177
; [UJ] [3] 1.0 [START] => 0.761594155955765
; [UJ] [4] 0.5 [START] => 1.648721270699484
;
SFJ $614
    MJ $614
    CM9
FJ $613
    SM8
    1
    SM7
FJ $612
    RM8
    1
    -=
    MJ $611
    SM8
    RM7
    *
    RM10
    +=
    SM7
    UJ $612
FJ $614
    SM9
    CS
    UJ $613
FJ $611
    RM8
    /
    RM11
    +=
    RM12
    +=
    /
    RM8
    RV
    +=
    RM13
    +=
    /
    RM8
    RV
    +=
    RM14
    +=
    /
    RM8
    RV
    +=
    1
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    RM7
    +=
    SM7
    RM9
    MJ $610
    RM7
    SRJ
FJ $610
    1
    /
    RM7
    +=
    SRJ

FJ 1            ; sinh(x)
    ENT
    SM6
    MJ $607
    1
    UJ $606
FJ $607
    CS
    1
    CS
FJ $606
    SM6
    RV
    SUJ $614
    SM9
    /
    1
    RV
    -=
    RM9
    +=
    /
    2
    *
    RM6
    +=
    PRINT
    UJ 1

FJ 2            ; cosh(x)
    ENT
    MJ $605
    UJ $604
FJ $605
    CS
FJ $604
    SUJ $614
    SM9
    /
    1
    RV
    +=
    RM9
    +=
    /
    2
    +=
    PRINT
    UJ 2

FJ 3            ; tanh(x)
    ENT
    SM9
    17
    -=
    MJ $609
    1
    SM9
    PRINT
    UJ 3
FJ $609
    34
    +=
    MJ $608
    17
    -=
    *
    2
    +=
    SUJ $614
    1
    +=
    /
    2
    RV
    -=
    1
    +=
    PRINT
    UJ 3
FJ $608
    1
    CS
    SM9
    PRINT
    UJ 3

FJ 4            ; exp(x)
    ENT
    SUJ $614
    PRINT
    UJ 4