/[projet1]/users/barnsey123/HNEFATAFL/data.s
Defence Force logotype

Contents of /users/barnsey123/HNEFATAFL/data.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 978 - (show annotations)
Sun Nov 24 18:35:12 2013 UTC (6 years, 4 months ago) by barnsey123
File size: 2911 byte(s)
v0.078 Trophy Text added and URUZ trophy now calculates correctly
1 /* Populate array with tile types
2 Tile types (for board) from tiles.png:
3 0=blank
4 1=attacker square
5 2=defender square
6 3=king square
7 */
8 _tiles
9 .byt 4,0,0,1,1,1,1,1,0,0,4
10 .byt 0,0,0,0,0,1,0,0,0,0,0
11 .byt 0,0,0,0,0,0,0,0,0,0,0
12 .byt 1,0,0,0,0,2,0,0,0,0,1
13 .byt 1,0,0,0,2,2,2,0,0,0,1
14 .byt 1,1,0,2,2,3,2,2,0,1,1
15 .byt 1,0,0,0,2,2,2,0,0,0,1
16 .byt 1,0,0,0,0,2,0,0,0,0,1
17 .byt 0,0,0,0,0,0,0,0,0,0,0
18 .byt 0,0,0,0,0,1,0,0,0,0,0
19 .byt 4,0,0,1,1,1,1,1,0,0,4
20 /* Tile types (from bordertiles.png)
21 0=topleft, 1=top right, 2=bottoml eft, 3=bottom right
22 4,5,6 = top row
23 7,8,9 = bottom row
24 10,11 = left/right columns
25 12=blank
26 */
27 /*
28 _border
29 .byt 22,26,26,26,26,26,26,26,26,26,23
30 .byt 28,99,0,2,4,2,6,20,2,99,29
31 .byt 28,99,99,4,8,10,20,2,99,99,29
32 .byt 28,99,99,99,99,99,99,99,99,99,29
33 .byt 28,12,6,2,4,14,16,14,4,18,29
34 .byt 24,27,27,27,27,27,27,27,27,27,25
35 */
36 /* RUNIC Alphabet Tiles ordered as follows is as follows:
37 4 F: Fehu Cattle/Gold/General Wealth
38 14 A: Ansuz The Gods, mostly Odin
39 10 R: Raido A long Journey
40 12 H: Hagalaz Hail/Missile
41 6 N: Nauthiz Need/Necessity
42 16 T: Tiwaz The War God, TYR
43 2 E: Ehwaz Horse
44 18 L: Laguz Water
45 0 D: Dagaz Day/Daylight
46 8 O: Othila Inheritance (of property or knowledge)
47 >23=border tiles
48 _presents
49 .byt 13,4,18,15,18,9,16,15
50
51 _hnefatafl
52 .byt 8,9,18,0,3,16,3,0,20
53
54 _baseplayers
55 .byt 4,0,0,1,1,1,1,1,0,0,4
56 .byt 0,0,0,0,0,1,0,0,0,0,0
57 .byt 0,0,0,0,0,0,0,0,0,0,0
58 .byt 1,0,0,0,0,2,0,0,0,0,1
59 .byt 1,0,0,0,2,2,2,0,0,0,1
60 .byt 1,1,0,2,2,3,2,2,0,1,1
61 .byt 1,0,0,0,2,2,2,0,0,0,1
62 .byt 1,0,0,0,0,2,0,0,0,0,1
63 .byt 0,0,0,0,0,0,0,0,0,0,0
64 .byt 0,0,0,0,0,1,0,0,0,0,0
65 .byt 4,0,0,1,1,1,1,1,0,0,4
66 */
67 /*
68 Trophy Text,
69 FIRST BLOOD
70 BLOOD EAGLE
71 BERZERKER
72 ALGIZ
73 URUZ
74 RAIDO
75 */
76 _TrophyText
77 .byt 70,73,82,83,84,32,66,76,79,79,68
78 .byt 66,76,79,79,68,32,69,65,71,76,69
79 .byt 66,69,82,90,69,82,75,69,82,32,32
80 .byt 65,76,71,73,90,32,32,32,32,32,32
81 .byt 85,82,85,90,32,32,32,32,32,32,32
82 .byt 82,65,73,68,79,32,32,32,32,32,32
83
84 ; uninitialized variable (will calc on fly) - target values of square
85
86 _target
87 .dsb 11*11
88
89 _enemy
90 .dsb 11*11
91
92 _computer
93 .dsb 11*11
94
95 _priority
96 .dsb 11*11
97
98 _kingtracker
99 .dsb 11*11
100
101 ;_ColCountAtt
102 ; .dsb 11
103
104 ;_RowCountAtt
105 ; .dsb 11
106
107 _ClearArrays
108 .(
109 lda #0
110 ldx #0
111 loop_clear
112 sta _target,x
113 sta _computer,x
114 sta _enemy,x
115 sta _priority,x
116 sta _kingtracker,x
117 inx
118 cpx #11*11
119 bne loop_clear
120 rts
121 .)
122
123 ;_ClearArrays2
124 ;.(
125 ; lda #0
126 ; ldx #0
127 ;loop_clear
128 ; sta _RowCountAtt,x
129 ; sta _ColCountAtt,x
130 ; inx
131 ; cpx #11
132 ; bne loop_clear
133 ; rts
134 ;.)
135 /*
136 _CopyFont
137 .(
138 ldx #0
139 loop
140 lda _Font_6x8_runic1_partial+256*0,x
141 sta $b400+32*8+256*0,x
142
143 lda _Font_6x8_runic1_partial+256*1,x
144 sta $b400+32*8+256*1,x
145
146 lda _Font_6x8_runic1_partial+256*2,x
147 sta $b400+32*8+256*2,x
148
149 inx
150
151 bne loop
152 rts
153 .)
154 */
155
156

  ViewVC Help
Powered by ViewVC 1.1.26