#
# 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/>.
#
; ----------  Card-Pocket-Begin  -------------------------------------------
; Title: MS-22: Degrees to Degree,Minute,Second
; Color: green
; Style: blank
; ----------  Card-Pocket-End  ---------------------------------------------
;
; Input:  x-register
;
; Output: printed, in weird format
;     the number printed is ddd.mmsssss ... as if it was decimal edgrees,
;     BUT ddd is degrees, mm is minutes, and sssss is ss.sss seconds
;     presented as a single floating point number
;
SFJ $308
    SM14
    0
    FLOOR 0
    +=
    SM13
    CS
    RM14
    +=
    *
    .6
    +=
    SM14
    0
    FLOOR 2
    +=
    M13
    CS
    RM14
    +=
    *
    .6
    FLOOR 7
    +=
    M13
    RM13
    *
    1
    FLOOR 7
    +=
    PRINT       ; prints ddd.mmsssss
    SRJ