-
Notifications
You must be signed in to change notification settings - Fork 0
/
txy32.a80
167 lines (155 loc) · 1.94 KB
/
txy32.a80
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
//LMN128-Jan Kucera-Zlin/CZ
//added OR Flag
//Original by BusySoft
MODULE txy32
txy ld a,(hl)
and 127
/* cp 13
jr z,T42_ZMEN */
cp 16
jr z,colorchange
push hl
call xy
pop hl
/* ld a,(T42_BORE)
dec a
cp c
jr c,T42_ZMEN
inc c */
T32_BACK ld a,(hl)
rla
ret c
inc hl
jr txy
colorchange
inc hl
ld a,(hl)
ld (T32_ATT),a
jr T32_BACK
T32_ATT defb 0
xy and a
ret z
exx
ld bc,(cursor)
xy8 ld de,boot.txy51.znaky
ld h,#00
ld l,a
add hl,hl
add hl,hl
add hl,hl
add hl,de
push hl
pop iy
ld xh,#08
xy8dd ld a,b
cp #c0
jr nc,xyend
; call #22b1
and a
rra
scf
rra
and a
rra
xor b
and 248
xor b
ld h,a
ld a,c
rlca
rlca
rlca
xor b
and 199
xor b
rlca
rlca
ld l,a
ld a,c
and 07
ld d,(iy+#00)
// ld e,#00
jr z,xy8bbnew //kulata pozice, staci vypsat jen jeden atribut
ld e,0
xy8cc rr d
rr e
dec a
jr nz,xy8cc
xy8bb
ld a,(orflag)
and a
ld a,d
jr nz,1F
or (hl)
1 ld (hl),a
call T32_COLOR
inc hl
ld a,(orflag)
and a
ld a,e
jr nz,2F
or (hl)
2 ld (hl),a
call T32_COLOR
3 inc b
inc iy
dec xh
// call T32_COLOR
jp nz,xy8dd
// call T32_COLOR
xyend ld ix,flag0
ld a,(ix+#04)
add a,8
ld (ix+#04),a
cp 256-7
jr c,xystop
ld (ix+#04),2
ld a,(ix+#05)
add a,8
ld (ix+#05),a
xystop exx
ret
xy8bbnew
ld a,(orflag)
and a
ld a,d
jr nz,4F
or (hl)
4 ld (hl),a
call T32_COLOR
inc hl
jr 3B
T32_COLOR push af
ld a,(T32_ATT)
or a
ret z
push hl
; pokud je nula, tak se neobarvuje
// inc h
// inc l
ld a,h
rrca
rrca
rrca
and 3
or 88
ld h,a
ld a,(T32_ATT)
ld (hl),a
pop hl
pop af
ret
;systemove premenne:(pre disu)
flag0 db #00
flag1 db #00
flag2 db #00
inp db #00
cursor
xxx db #00
yyy db #00
leni dw 0
adr dw 0
orflag db #01
//znaky
// INCBIN zx51.ch6
ENDMODULE