304 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			304 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
| 
 | |
| Spreads:
 | |
|   db 8 ; length
 | |
| .onecard
 | |
|   db 1, $31
 | |
|   db 7, "Reply  "
 | |
|   db 7, "       "
 | |
|   db 18, "     One Card     "
 | |
|   db 18, "  Make any query. "
 | |
| .threecard
 | |
|   db 3, $11, $31, $51
 | |
|   db 7, "Past   "
 | |
|   db 7, "       "
 | |
|   db 7, "Present"
 | |
|   db 7, "       "
 | |
|   db 7, "Future "
 | |
|   db 7, "       "
 | |
|   db 18, "Three Card Spread "
 | |
|   db 18, "  Old reliable.   "
 | |
| .threecardB
 | |
|   db 3, $12, $52, $30
 | |
|   db 7, "Mind   "
 | |
|   db 7, "       "
 | |
|   db 7, "Body   "
 | |
|   db 7, "       "
 | |
|   db 7, "Spirit "
 | |
|   db 7, "       "
 | |
|   db 18, "Three Card Spread "
 | |
|   db 18, " Many variations. "
 | |
| .fivecardSituation
 | |
|   db 5, $10, $50, $12, $52, $31
 | |
|   db 7, "Goings "
 | |
|   db 7, "on     "
 | |
|   db 7, "Things "
 | |
|   db 7, "at play"
 | |
|   db 7, "Dangers"
 | |
|   db 7, "afoot  "
 | |
|   db 7, "Outcome"
 | |
|   db 7, "       "
 | |
|   db 7, "Theme  "
 | |
|   db 7, "       "
 | |
|   db 18, "Situation reading "
 | |
|   db 18, "What's going on?  "
 | |
| .fivecardRelationship
 | |
|   db 5, $01, $61, $20, $31, $42
 | |
|   db 7, "Querent"
 | |
|   db 7, "       "
 | |
|   db 7, "Other  "
 | |
|   db 7, "person "
 | |
|   db 7, "Past   "
 | |
|   db 7, "history"
 | |
|   db 7, "Present"
 | |
|   db 7, "moment "
 | |
|   db 7, "Future "
 | |
|   db 7, "outcome"
 | |
|   db 18, "  Relationships   "
 | |
|   db 18, "5 cards, 2 people."
 | |
| .sixcard
 | |
|   db 6, $11, $21, $30, $32, $41, $51
 | |
|   db 7, "Querent" ; 01
 | |
|   db 7, "       "
 | |
|   db 7, "Problem" ; 11
 | |
|   db 7, "       "
 | |
|   db 7, "Logic  " ; 20
 | |
|   db 7, "view   "
 | |
|   db 7, "Emotion" ; 22
 | |
|   db 7, "view   "
 | |
|   db 7, "Path of" ; 31
 | |
|   db 7, "action "
 | |
|   db 7, "Outcome" ; 41
 | |
|   db 7, "       "
 | |
|   db 18, " Horizontal Cross " 
 | |
|   db 18, "For facing issues."
 | |
| .alexNine
 | |
|   db 9, $01, $10, $12, $20, $22, $30, $32, $41, $61 
 | |
|   db 7, "Querent"
 | |
|   db 7, "role   "
 | |
|   db 7, "Woes   "
 | |
|   db 7, "known  "
 | |
|   db 7, "Woes   "
 | |
|   db 7, "hidden "
 | |
|   db 7, "Power  "
 | |
|   db 7, "known  "
 | |
|   db 7, "Power  "
 | |
|   db 7, "unknown"
 | |
|   db 7, "Frailty"
 | |
|   db 7, "known  "
 | |
|   db 7, "Frailty"
 | |
|   db 7, "ignored"
 | |
|   db 7, "Advice "
 | |
|   db 7, "       "
 | |
|   db 7, "Outcome"
 | |
|   db 7, "       "
 | |
|   db 18, "  Eight Plus One  "
 | |
|   db 18, " What faces you?  "
 | |
| .twelvecard
 | |
|   db 12, $00, $10, $20, $40, $50, $60, $02, $12, $22, $42, $52, $62
 | |
|   db 7, "This   " ; 00
 | |
|   db 7, "month  "
 | |
|   db 7, "Next   " ; 10
 | |
|   db 7, "month  "
 | |
|   db 7, "3rd    " ; 20
 | |
|   db 7, "month  "
 | |
|   db 7, "4th    " ; 30
 | |
|   db 7, "month  "
 | |
|   db 7, "5th    " ; 40
 | |
|   db 7, "month  "
 | |
|   db 7, "6th    " ; 02
 | |
|   db 7, "month  "
 | |
|   db 7, "7th    " ; 12
 | |
|   db 7, "month  "
 | |
|   db 7, "8th    " ; 22
 | |
|   db 7, "month  "
 | |
|   db 7, "9th    " ; 32
 | |
|   db 7, "month  "
 | |
|   db 7, "10th   " ; 42
 | |
|   db 7, "month  "
 | |
|   db 7, "11th   " ; 42
 | |
|   db 7, "month  "
 | |
|   db 7, "12th   " ; 42
 | |
|   db 7, "month  "
 | |
|   db 18, " One Year Spread  "
 | |
|   db 18, " Month by month   "
 | |
| 
 | |
| .end
 | |
| 
 | |
| macro Card
 | |
|   db BANK(\1)
 | |
|   dw \1
 | |
| endm
 | |
| Cards:
 | |
|   db (Cards.end - Cards - 1) / 3 ; length
 | |
|   Card TheFool
 | |
|   Card TheMagician
 | |
|   Card TheHighPriestess
 | |
|   Card TheEmpress
 | |
|   Card TheEmperor
 | |
|   Card TheHierophant
 | |
|   Card TheLovers
 | |
|   Card TheChariot
 | |
|   Card Strength
 | |
|   Card TheHermit
 | |
|   Card WheelOfFortune
 | |
|   Card Justice
 | |
|   Card TheHangedMan
 | |
|   Card Death
 | |
|   Card Temperance
 | |
|   Card TheDevil
 | |
|   Card TheTower
 | |
|   Card TheStar
 | |
|   Card TheMoon
 | |
|   Card TheSun
 | |
|   Card Judgement
 | |
|   Card TheWorld
 | |
|   
 | |
|   Card Cups01Ace
 | |
|   Card Cups02
 | |
|   Card Cups03
 | |
|   Card Cups04
 | |
|   Card Cups01Ace
 | |
|   Card Cups01Ace
 | |
|   Card Cups01Ace
 | |
|   Card Cups01Ace
 | |
|   Card Cups01Ace
 | |
|   Card Cups01Ace
 | |
|   Card Cups11Page
 | |
|   Card Cups12Knight
 | |
|   Card Cups13Queen
 | |
|   Card Cups14King
 | |
|   
 | |
|   Card Swords01Ace
 | |
|   Card Swords02
 | |
|   Card Swords03
 | |
|   Card Swords04
 | |
|   Card Swords01Ace
 | |
|   Card Swords01Ace
 | |
|   Card Swords01Ace
 | |
|   Card Swords01Ace
 | |
|   Card Swords01Ace
 | |
|   Card Swords01Ace
 | |
|   Card Swords11Page
 | |
|   Card Swords12Knight
 | |
|   Card Swords13Queen
 | |
|   Card Swords14King
 | |
|   
 | |
|   Card Coins01Ace
 | |
|   Card Coins02
 | |
|   Card Coins03
 | |
|   Card Coins04
 | |
|   Card Coins01Ace
 | |
|   Card Coins01Ace
 | |
|   Card Coins01Ace
 | |
|   Card Coins01Ace
 | |
|   Card Coins01Ace
 | |
|   Card Coins01Ace
 | |
|   Card Coins11Page
 | |
|   Card Coins12Knight
 | |
|   Card Coins13Queen
 | |
|   Card Coins14King
 | |
|   
 | |
|   Card Wands01Ace
 | |
|   Card Wands02
 | |
|   Card Wands03
 | |
|   Card Wands04
 | |
|   Card Wands01Ace
 | |
|   Card Wands01Ace
 | |
|   Card Wands01Ace
 | |
|   Card Wands01Ace
 | |
|   Card Wands01Ace
 | |
|   Card Wands01Ace
 | |
|   Card Wands11Page
 | |
|   Card Wands12Knight
 | |
|   Card Wands13Queen
 | |
|   Card Wands14King
 | |
| .end
 | |
| def Library_Length equ Cards.end - Cards
 | |
| println strfmt("The length of the library is %d", Library_Length / 3)
 | |
| 
 | |
| SECTION "First Five Cards", ROMX
 | |
| INCLUDE "00TheFool.inc"
 | |
| INCLUDE "01TheMagician.inc"
 | |
| INCLUDE "02TheHighPriestess.inc"
 | |
| INCLUDE "03TheEmpress.inc"
 | |
| INCLUDE "04TheEmperor.inc"
 | |
| 
 | |
| SECTION "Second Five Cards", ROMX
 | |
| INCLUDE "05TheHierophant.inc"
 | |
| INCLUDE "06TheLovers.inc"
 | |
| INCLUDE "07TheChariot.inc"
 | |
| INCLUDE "08Strength.inc"
 | |
| INCLUDE "09TheHermit.inc"
 | |
| 
 | |
| SECTION "Third Five Cards", ROMX
 | |
| INCLUDE "10WheelOfFortune.inc"
 | |
| INCLUDE "11Justice.inc"
 | |
| INCLUDE "12TheHangedMan.inc"
 | |
| INCLUDE "13Death.inc"
 | |
| INCLUDE "14Temperance.inc"
 | |
| 
 | |
| SECTION "Fourth Five Cards", ROMX
 | |
| INCLUDE "15TheDevil.inc"
 | |
| INCLUDE "16TheTower.inc"
 | |
| INCLUDE "17TheStar.inc"
 | |
| INCLUDE "18TheMoon.inc"
 | |
| INCLUDE "19TheSun.inc"
 | |
| 
 | |
| SECTION "FIFTH FIVE CARDS", ROMX
 | |
| INCLUDE "20Judgement.inc"
 | |
| INCLUDE "21TheWorld.inc"
 | |
| 
 | |
| SECTION "CUPS", ROMX
 | |
| cups_start:
 | |
| INCLUDE "cups01ace.inc"
 | |
| INCLUDE "cups02.inc"
 | |
| INCLUDE "cups03.inc"
 | |
| INCLUDE "cups04.inc"
 | |
| INCLUDE "cups11page.inc"
 | |
| INCLUDE "cups12knight.inc"
 | |
| INCLUDE "cups13queen.inc"
 | |
| INCLUDE "cups14king.inc"
 | |
| cups_end:
 | |
| println "Cups take up ", cups_end - cups_start, " kb"
 | |
| 
 | |
| 
 | |
| SECTION "SWORDS", ROMX
 | |
| swords_start:
 | |
| INCLUDE "swords01ace.inc"
 | |
| INCLUDE "swords02.inc"
 | |
| INCLUDE "swords03.inc"
 | |
| INCLUDE "swords04.inc"
 | |
| INCLUDE "swords11page.inc"
 | |
| INCLUDE "swords12knight.inc"
 | |
| INCLUDE "swords13queen.inc"
 | |
| INCLUDE "swords14king.inc"
 | |
| swords_end:
 | |
| println "Swords take up ", swords_end - swords_start, " kb"
 | |
| 
 | |
| SECTION "COINS", ROMX
 | |
| coins_start:
 | |
| INCLUDE "coins01ace.inc"
 | |
| INCLUDE "coins02.inc"
 | |
| INCLUDE "coins03.inc"
 | |
| INCLUDE "coins04.inc"
 | |
| INCLUDE "coins11page.inc"
 | |
| INCLUDE "coins12knight.inc"
 | |
| INCLUDE "coins13queen.inc"
 | |
| INCLUDE "coins14king.inc"
 | |
| coins_end:
 | |
| println "Coins take up ", coins_end - coins_start, " kb"
 | |
| 
 | |
| 
 | |
| SECTION "WANDS", ROMX
 | |
| wands_start:
 | |
| INCLUDE "wands01ace.inc"
 | |
| INCLUDE "wands02.inc"
 | |
| INCLUDE "wands03.inc"
 | |
| INCLUDE "wands04.inc"
 | |
| INCLUDE "wands11page.inc"
 | |
| INCLUDE "wands12knight.inc"
 | |
| INCLUDE "wands13queen.inc"
 | |
| INCLUDE "wands14king.inc"
 | |
| wands_end:
 | |
| println "Wands take up ", wands_end - wands_start, " kb"
 |