#
# 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 2
;
; ------------------  Card-Pocket-Begin  -----------------------------------
; Title: GF-2: asin(x), acos(x), atan(x), pi
; Color: green
; Style: blank
; ------------------  Card-Pocket-End  -------------------------------------
;
; [LRN] program cards
; [OPE] data cards
; [UJ] [1] => asin(x)
; [UJ] [2] => acos(x)
; [UJ] [3] => atan(x)
; [UJ] [3] => pi
;
; [UJ] [1] 0.5 [START] => 30.00000000000000
; [UJ] [2] 0.5 [START] => 60.00000000000000
; [UJ] [3] 1.0 [START] => 45.00000000000000
; [UJ] [4]             => 3.141592653589793
;
SFJ $614
    MJ $614
    SM8
    1
    SM6
FJ $613
    CM5
    RM8
    .5
    -=
    MJ $612
    2.5
    -=
    MJ $611
    1
    /
    RM8
    -=
    SM8
    90
    SM5
FJ $612
    RM8
    *
    +=
    SM7
    *
    RM9
    +=
    RM10
    +=
    *
    RM7
    +=
    RM11
    +=
    *
    RM7
    +=
    1
    +=
    SM4
    RM12
    *
    RM7
    +=
    RM13
    +=
    *
    RM7
    +=
    RM14
    +=
    *
    RM8
    /
    RM4
    +=
    RM5
    +=
    *
    RM6
    +=
    SRJ
FJ $614
    CS
    SM8
    1
    CS
    SM6
    UJ $613
FJ $611
    RM8
    1
    +=
    /
    2
    RV
    -=
    1
    +=
    SM8
    45
    SM5
    UJ $612
SFJ $613
    *
    1
    ROUND 8
    +=
    PRINT
    SRJ

FJ 1            ; asin
    ENT
    SM8
    *
    +=
    1
    -=
    MJ $610
    CS
    MJ $608
    RM8
    *
    90
    SUJ $613
    UJ 1
FJ $608
    /
    0
    +=
FJ $610
    CS
    SQRT
    /
    RM8
    RV
    +=
    SUJ $614
    SUJ $613
    UJ 1

FJ 2            ; acos
    ENT
    SM8
    *
    +=
    1
    -=
    MJ $609
    CS
    MJ $608
    1
    RM8
    -=
    *
    90
    SUJ $613
    UJ 2
FJ $609
    CS
    SQRT
    /
    RM8
    RV
    +=
    SUJ $614
    CS
    90
    +=
    SUJ $613
    UJ 2

FJ 3            ; atan
    ENT
    SUJ $614
    PRINT
    UJ 3

FJ 4            ; pi
    3.141592653589793
    SM4
    PRINT
    ENT