(35) Locating the Moon

[Thomas Klemm]

(02-09-2019 02:08 AM)PedroLeiva Wrote:  Some changes were made: the input information of LAT, LONG, GHA, DECLIN by pressing [A], [Β], [C] and [D]

We can slightly improve the program E when the input is in registers A - D:

Code:

013:  31 25 15   LBL E
014:  34 12      RCL B
015:  34 13      RCL C
016:  61         +
017:  34 11      RCL A
018:  34 14      RCL D
019:  01         1
020:  31 72      P➝R
021:  35 54      R↑
022:  35 52      x≷y
023:  31 72      P➝R
024:  35 52      x≷y
025:  42         CHS
026:  35 53      R↓
027:  32 72      R➝P
028:  35 53      R↓
029:  35 52      x≷y
030:  51         -
031:  35 54      R↑
032:  31 72      P➝R
033:  35 53      R↓
034:  32 72      R➝P
035:  35 54      R↑
036:  35 52      x≷y
037:  32 72      R➝P
038:  35 53      R↓
039:  35 22      RTN

Cheers
Thomas