Divination for the HP-41

Overview
 

 0°)  Random Number Generator
 1°)  Futhark Runes
 2°)  13 Witches' Runes
 3°)  Yi-King
 4°)  Mah-Jong
 5°)  Thibetan Oracle: MO
 

-Essentially 5 "divination programs" which call the M-code routine RAND which requires the TIME module ( or an HP41CX )
-But they may also be used without a TIME module, after minor modifications.

-Don't attach too much importance to the results.
-I wrote these routines just for the fun of it...
 
 
 

0°)  Random Number Generator
 

 RAND uses the TIME module to return a pseudo-random number in X-register
 

084  "D"
00E  "N"
001  "A"
012  "R"
130  LDI S&X
010  16d
270  RAMSLCT
130  LDI S&X
0FB 251d
3F0  PRPH SLCT
3E8  WRIT 15(e)
038  READDATA
1BC RCR 11
046  C=0 S&X
270  RAMSLCT
05E  C=0 MS
130  LDI S&X
041  65d
2A0  SETDEC
10E  A=C ALL
04E  C=0 ALL
35C  PT=12
1D0  LD@PT- 7
210  LD@PT- 8
110  LD@PT- 4
050  LD@PT- 1
090  LD@PT- 2
250  LD@PT- 9
190  LD@PT- 6
1D0 LD@PT- 7
210  LD@PT- 8
1D0  LD@PT- 7
044  CLRF 4
070  N=C ALL
171  ?NCXQ
064  195C
10E  A=C ALL
0B0  C=N ALL
261  ?NCXQ
060  1898
0E8  WRIT 3(X)
3E0  RTN

( 42 words / SIZE 000 )
 
 

   with 0 < r < 1

Notes:

-Registers L Y Z T are unchanged.
-The previous content of register X is overwritten.
-Execution time = 0.22 second
 

1°) Futhark Runes
 
 

Data Registers:   R00: random numbers                   R25-R26-R27: temp                   R01 to R24: the 24 runes
Flags: /
Subroutine:   RAND
 
 
 

 
      ( 1113 bytes / SIZE 028 )
 
 

   with 0 < N < 25

-Place an integer N in X-register and XEQ "RUNES"
-Your HP-41 will display the names of N runes and the corresponding interpretation.

-Usually N = 1 or 3 or 9

-When the name of a rune is followed by "R", it means that the rune is reversed.

-The results depend on RAND, but to take an example, if you choose N =3
  and if RAND returns 0.71, you'll get the following messages:

   TYR SUCCESS REWARD
   UR VITALITY STRENGTH
   GAR SLOWLY FAVORABLE

-So, the 3 runes are Tyr, Ur, Gar and no rune is reversed.

Notes:

-If you want to display the runes again, press  XEQ 41
-If you don't have a TIME module, delete lines 04-05 and initialize R00 with a random seed of your own
 

2°)  13 Witches' Runes
 

- "WITCH" uses 13 witches' runes
-If a rune is reversed, it's not taken into account.

-This program doesn't need any input
-RAND is also employed
 
 

Data Registers:    R00: random numbers      R01 thru R13: the 13 runes      R14: temp
Flags: /
Subroutine:  RAND
 
 
 

 
        ( 610 bytes / SIZE 015 )
 
 

-Assuming RAND returns .51  in X-register, you will get:

 3-FLIGHT MESSAGE TRAVEL
    INFORMATION
 6-WOMAN HEALING CREATION
     REJUVENATION
 2-MOON LONG TERM CHANGES
     DEEP WISDOM
 5-ROMANCE LOVE RELATION
    LUCK HARMONY
 9-CROSSROADS UNKNOWN
     MAJOR CHOICES
 8-HARVEST REWARDS
     LUCK COMPLETION
10-STAR FREEDOM HOPE
     DREAMS
 

Notes:

-If you want to display the messages again, press  XEQ 41
-If you don't have a TIME module, delete lines 02-03 and initialize R00 with a random seed of your own before executing "WITCH"
 

 3°)  Yi-King
 

-Due to the length of this program, it's divided in 2 parts ( "YIKING" & "YK2" ),
  though it's not absolutely necessary.
 

Data Registers: /
Flags: /
Subroutine:  RAND
 
 
 

 
      ( 1075 bytes / SIZE 000 )
 
 
 

 
      ( 1048 bytes )
 
 

 
-YIKING returns just one result ( one among 64 ) and uses RAND too.

-If this M-code routine places .71 in X-register, you will get

   46-EARTH/WOOD
         RISING
 
 

Notes:

-If you want to display again, press  XEQ 41
-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC   STO 00
  or another RNG  of your own and initialize R00 with a random seed.
 

4°)  Mah-Jong
 

-Mah-jong is a game but the 144 tiles may also be used as an oracle.

 "MAHJONG" takes at random 13 tiles and displays the interpretations:
 

                                                                                      R52-R53-R54 = obstacles
                          R55-R56-R57 = outcome                            R45 = central tile                         R49-R50-R51 = near future
                                                                                      R46-R47-R48 = your personality
 
 

Data Registers:       R00: random numbers        R01 thru R42: 144 tiles      R43-R44-R58: temp      R45 thru R57 = the 13 tiles

   R01 to R09 = Bamboos(4)            R28 = East Wind(4)           R29 = South Wind(4)         R30 = West Wind(4)        R31 = North Wind(4)
   R10 to R18 = Circles(4)                R32 = Green Dragon(4)     R33 = Red Dragon(4)         R34 = White Dragon(4)
   R19 to R27 = Wan(4)                   R35 to R38 = Flowers(1)   R39 to R42 = Seasons(1)

Flags: /
Subroutine:   RAND
 
 
 

 
         ( 1202 bytes / SIZE 059 )
 
 

 
-Assuming  RAND  returns  0.41  you'll get the following messages   ( usually more than 1 minute before the 1st message is displayed )
 

       CENTRAL TILE

       C9 ABILITY TO FORESEE                     C9 = circle n°9

       YOU

        B6 TRAVEL MESSAGE                          B6 = bamboo n°6
        C8 AUTHORITY PROTECTION            C8 = circle n°8
        C7 BUSY ACTIVITY                               C7 = circle n°7

        NEAR FUTURE

        B5 REJUVENATION                               B5 = bamboo n°5
        C7 BUSY ACTIVITY                               C7 = circle n°7
        C6 FEMINITY MARRIAGE                    C6 = circle n°6

        OBSTACLES

        W8 UNION OR SEPARATION              W8 = Wan n°8
         C8 AUTHORITY PROTECTION            C8 = circle n°8
         W2 DILEMMA DECISION                     W2 = Wan n°2

         OUTCOME

         C2 VITAL POWER                                   C2 = circle n°2
         W7 IMAGINATION HOPE                      W7 = Wan n°7
         B5 REJUVENATION                               B5 = bamboo n°5

         CENTRAL TILE                                                                                    The central tile is always displayed a second time

         C9 ABILITY TO FORESEE                     C9 = circle n°9
 

Notes:

-If you want to display the messages again, press  XEQ 77
-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC
  or another RNG  of your own and initialize R00 with a random seed.
 

5°)  Thibetan Oracle: MO
 
 

Data Registers: /
Flags: /
Subroutine:  RAND
 
 
 

 
      ( 801 bytes / SIZE 000 )
 
 

 
-Assuming  RAND  returns  0.41  you'll get the following message:

         "INCREASING WEALTH"
 

Note:

-If you don't have a TIME module, replace line 02 by RCL 00  R-D  FRC   STO 00
  or another RNG  of your own and initialize R00 with a random seed.
 

Remark:

-All these programs may of course be improved by adding more complete interpretations...