Subversion Repositories NedoOS

Rev

Rev 922 | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
228 demige 1
        DEVICE ZXSPECTRUM1024
2
;�஢��� 0-7
3
 
4
LEVDAT  EQU     #79C0 ;���. ��� ������ �஢��
5
        ORG     LEVDAT
6
begin
7
;******************************************************
8
;********* ���������� ��������� ������ ****************
9
 
10
isRUNL  RET ;#C9 - ����� �஢���, ���� ������ ����
11
 
12
;--------�ࠪ���⨪� ��஭-------(0)-������� ���砫�
13
 
14
;��ࠬ���� ����饣�
15
hTOWER  DEFB 3 ;���.�᫮ ⨯�� ����� (1-4)
16
hARC    DEFB 0 ;0-2 (0)
17
hHORSE  DEFB 0 ;0-3 (0)
18
hSHILD  DEFB 0 ;0-2 (0)
19
hBLADE  DEFB 0 ;0-2 (0)
20
hmaxC   DEFB 2 ;1-3 �c�� ������� �cc� ���� ���
21
hmaxW   DEFB 1 ;1-3 �᫮  --"-- ���� ����
22
 
23
;�������⥫�� ��ࠬ���� ����饣�
24
hmaxB1  DEFB 2 ;���� �᫮ �⠭���� ������ (0 ��� 1-2)
25
hmaxB2  DEFB 3 ;ma�c �᫮ ��� ������ (0, 1-4)
26
hWALL   DEFB 0 ;0/17 - �����/����� ��ந�� �⥭�
27
 
28
;��ࠬ���� ��������
29
kTOWER  DEFB 3 ;1-4
30
kARC    DEFB 0 ;0-2
31
kHORSE  DEFB 1 ;0-3
32
kSHILD  DEFB 0 ;0-2
33
kBLADE  DEFB 0 ;0-2
34
kmaxC   DEFB 1 ;1,3 �c�� �cc� ���� (0-��� ���)
35
kmaxW   DEFB 0 ;1..3 �c�� �cc� ���� (0-��� ����)
36
 
37
;----------- ��ࠬ���� ���⥣�� �ࠣ� ----------------
38
;/wSTRATEG  (1.��.��� - 8⨪)
39
levMAX  DEFB 4   ;���� �᫮ ��த� � ��㯯� (��� �஢��) = 1..10
40
levDEL  DEFB 57  ;�।� ����প� ���� ᡮࠬ� (��� �஢��) = 1..X
41
lev1ST  DEFB 242 ;��� ����প� ��ࢮ�� ᡮ� = 1..
42
 ;��� �஢�� 0 ;�����
43
 ;��� �஢�� 1 ;�⠪����� ��࠭��� �⠭������ �⠪��騬
44
 ;��� �஢�� 2 ;�. ⨯ 1 + ��࠭���� ������ ���� � �⠪�
45
levTYP  DEFB 0   ;⨯ �஢�� (0-�����)
46
;-------- 梥⮢� ����ன�� -------
47
COLOR   DEFB #28 ;梥� ����
48
 
49
;-------- ��騥 ��ࠬ���� �஢�� -----
50
MASTER  DEFB 0  ; �� ��ࠥ� 0/1 - �?�㭣�
51
LEVEL   DEFB 7  ; ����� �஢��
52
MONEY   DEFB 0,0,1,0,0,0 ;���죨
53
WOOD    DEFB 0,0,0,5,0,0 ;��c
54
TASK_M  ;�������: 3 ��ப� �� 20+1 ᨬ����� = 63
55
        incbin "../task/w107.tsk"
56
LEVRES  DEFB 0,0,0,43,0,0,127 ;⥪�饥 �६� ��宦�����
57
 
58
;------- �ᯮ��㥬� 䠩�� -------
59
 
60
fsLAND  DEFB 1; 1-4
61
fsMUS   DEFB 1; 0-7
62
 
63
 
64
;****************** ���樠�����㥬� ��६���� ****************
65
;--------------- (�室�� � ���ᠭ�� ������� �஢��) ------------
66
;/��࠭� ��ந
67
SEL_T DEFB 0 ;0-none;1-����;2-6-group;7-�㭣,8-������
68
SEL_N DEFB 0,0,0,0,0,0 ;����� 6 ��� ���/��
69
 
70
sel_en DEFB #FF ;��࠭�� �ࠣ-楫�
71
sel_ti DEFB 0 ;�६� �⮡ࠦ���� 楫�
72
 
73
;/outLED
74
LED DEFB 4,3,4,3,4,3
75
 
76
;/putTX
77
_msg    DEFB #FF
78
pTX_AD  DEFW 0;WNAMES
79
TX_AD   DEFW 0;WNAMES
80
pTXdel  DEFB 0 ;t ����প� �� �� ��c�� c����
81
 
82
;/M_PLAT
83
isPLAT  DEFB 0; 0/1-����/��� ���頤��
84
szPLAT  DEFB 0; ࠧ��� ���頤�� ��� ���-�� (1..3, 0-���)
85
bcPLAT  DEFW 0; ࠧ����
86
adPLAT  DEFW 0; ������ in ATR
87
waPLAT  DEFB 0; �᫨ �⥭� - 1
88
 
89
;/PAUSE
90
onPAUS  DEFB 1 ;0-������� ����
91
 
92
;/SOUNDn
93
NOTA    DEFW se ;⥪�� ���
94
se      DEFW #FFFF ;�����
95
levSND  DEFB 0 ;0-���� �஬�����
96
sIY56   DEFW 0 ;���न���� ᭠�冷�
97
priv_S  DEFB 0 ;⥪�� �ਮ��� (0-��� �������)
98
NOTA2   DEFW se ;��� ����� �������
99
priv_2  DEFB 0  ;��� �ਮ�
100
 
101
;/STRATEG - variables
102
pntX    DEFB 32  ;-���� �.ᡮ�
103
pntY    DEFB 31  ;-/
104
pntNUM  DEFB 0   ;-�᫮ ��⠢���� �� ���� ᡮ� ������ (0-����� ᡮ�, 255-��� ᡮ�)
105
pntDEL  DEFB 22  ;-�६� �� ���.᫥� ᡮ�/����প� �� ��-�� �����
106
pntTAR  DEFB #FF ;-��ꥪ� �⠪� (0-101 - �����, #80.. -������, #FF-���)
107
pntUNI  DEFB 0   ;-���� ࠧ��த��/����த�� (0/member typ)
108
pntEN   DEFB 0,0,0,0,0,0
109
                 ;-ࠧ�� ��-�� ���� (3..8) (0-���)
110
pntMAN  DEFB 0   ;⨯ ��ࠦ������� �����
111
 
112
;/isEND
113
END_1   DEFB 0  ;0/1/2-none/��� �ࠣ��/��� ��
114
END_2   DEFB 0  ;��0-���� ���� � �����
115
TheEND  DEFB 0  ;0/1/2-none/������ ��/������ �ࠣ�� (��⠭��� � _cLOOP)
116
;-----------(१��)-------------
117
dummy   DEFS 6,0
118
;-----------��楤���------------
119
pcLOOP  JR _cLOOP
120
pcINI   ;���⮢�� ��楤��
121
        RET
122
;_cLOOP  ;��楤�� ����砭�� ��� �����
123
;        LD A,(END_2)
124
;        OR A
125
;        JR NZ,_cLO1
126
;        LD A,(END_1)
127
;        CP 1
128
;        RET Z
129
;_cLO1   LD (TheEND),A
130
;        RET
131
tst4OK   DEFB #11 ;0-���� �஢�७�
132
_cLOOP   ;�⠭���⭠� ��� ����砭��
133
         LD A,(END_1)
134
         LD (TheEND),A
135
        if 1==0
136
;-----p0 ���� 4
137
        LD A,(tst4OK)
138
        OR A
139
        RET Z
140
        LD A,R
141
        AND %111011
142
        RET NZ
143
        XOR A
144
        LD (tst4OK),A
145
TST#4   ;XOR A ;[**]
146
        LD HL,#C000
147
        LD BC,#3400
148
tst40   ADD A,(HL)
149
        RLCA
150
        INC HL
151
        DEC C
152
        JR NZ,tst40
153
        DEC B
154
        JR NZ,tst40
155
        LD HL,#7650
156
        CP (HL)
157
        RET Z
158
        LD A,37
159
        LD (KUNGE+13),A ;err
160
        LD (KUNGE+32),HL
161
        endif
162
        RET
163
 
164
;------ ���㫥��� �᭮���� ������� ������ ---
165
 
166
        DEFS #7AA0-$,#27
167
BULL    DEFS 24*12      ;from #7AA0
168
MINE    DEFS 8*8        ;from #7BC0
169
HBUILD  DEFS 32*8       ;from #7C00
170
KBUILD  DEFS 32*8       ;from #7D00
171
BUF512  EQU #7E00; ����512     ;from #7E00
172
MAP     EQU #8000; DEFS #1000   ;from #8000
173
MAP2    EQU #9000; DEFS #1000   ;from #9000
174
DSCR    EQU #A000; DEFS #1800   ;from #A000
175
HUMAN   EQU #B800; DEFS 48*16   ;from #B800
176
KUNGE   EQU #BB00; DEFS 48*16   ;from #BB00
177
SLAVE   EQU #BE00; DEFS 6*16    ;from #BE00
178
XY      EQU #BE60; DEFS 102*4   ;from #BE60
179
;NEXT   EQU #BFF8; nop
180
 
181
;��� ���2:
182
;0-᢮�.����, 1-�࠭��, 2 -�����
183
;#38-#3F        ����
184
;#40-#5F        ������ ��
185
;#60-#7F        ������ �㭣��
186
;#80-#AF        �
187
;#B0-#DF        �㭣�
188
;#E0-#FF        ��������
189
 
190
 
191
;------------------------------------------------------------
192
;--------- ����� ��� ----- (4096+512 ��७����� �� BUF512)
193
 
194
datMIN  DEFW 190,270,380,95,9,9,9,9 ;����� ��� ���/100
195
        ;0-祩 (255-�����), 1-⨯, 2/3-XY,4-none
196
 
197
;------ ���ᠭ�� ��஥� � ����� ---
198
 
199
datHER
200
        incbin "../map/w107_s1.her"
201
        incbin "../map/w107_s1.map"
202
 
203
;-------���⨭��-----
204
datSCR
205
        incbin "../barkov/horse.scr"
206
 
207
;----------------------------------
208
end
930 alone 209
        savebin "br/br107.dat",begin,end-begin ;in current dir (not in dir of this source)