#
# 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 6
;
; ------------------  Card-Pocket-Begin  -----------------------------------
; Title: GF-6: a**x, cbrt(x)
; Color: green
; Style: blank
; ------------------  Card-Pocket-End  -------------------------------------
;
; [LRN] program cards
; [OPE] data cards
; [UJ] [1] => a**x
; [UJ] [2] => cbrt(x)
;
; [UJ] [1]  2 [START]
;           3 [START] => 8.000000000000000
; [UJ] [2] 27 [START] => 3.000000000000000
;
FJ 1            ; a**x
    ENT
    SM6
    ENT
    SM5
    CM4
    RM6
    CS
    MJ $614
    1
    /
    0
    +=
FJ $614
    .1
    RM6
    -=
    MJ $613
    RM6
    *
    100
    +=
    SM6
    2
    CS
    M4
    UJ $614
FJ $613
    RM6
    10
    -=
    MJ $612
    RM6
    /
    100
    +=
    SM6
    2
    M4
    UJ $613
FJ $612
    RM6
    SQRT
    SQRT
    SQRT
    1
    +=
    /
    2
    RV
    -=
    1
    +=
    SM6
    *
    +=
    SM3
    *
    RM9
    +=
    RM10
    +=
    *
    RM6
    +=
    SM6
    RM7
    *
    RM3
    +=
    RM8
    +=
    *
    RM3
    +=
    1
    +=
    /
    RM6
    RV
    +=
    RM4
    +=
    1
    SM4
    RV
    *
    RM5
    +=
    SM5
    SM6
    MJ $611
    UJ $610
FJ $611
    CS
    SM5
FJ $610
    1
    -=
    MJ $609
    SM5
    RM4
    *
    10
    +=
    SM4
    RM5
    UJ $610
FJ $609
    RM5
    /
    RM11
    +=
    RM12
    +=
    /
    RM5
    RV
    +=
    RM13
    +=
    /
    RM5
    RV
    +=
    RM14
    +=
    /
    RM5
    RV
    +=
    1
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    +=
    *
    RM4
    +=
    RM6
    MJ $608
    RV
    PRINT
    UJ 1
FJ $608
    RV
    /
    1
    RV
    +=
    PRINT
    UJ 1

FJ 2            ; cbrt(x)
    ENT
    SM6
    SQRT
    SQRT
    SM5
FJ $607
    RM5
    SM4
    *
    +=
    /
    RM6
    RV
    +=
    SM3
    RM5
    *
    2
    +=
    M3
    RM3
    /
    3
    +=
    SM5
    RM4
    -=
    ->
    MJ $607
    CS
    MJ $607
    RM5
    PRINT
    UJ 2