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
|
Load_Block:
PUSH BC
PUSH AF
PUSH AF
LD A, $mem_dungeon_flags
AND $01
JP Z, =Load_Block_From_Solid.AF_AF_BC_Push
POP AF
.After_AF_BC_Push:
CP $20
JP NC, =Load_Block_From_Solid.AF_BC_Push
PUSH BC
LD C, A
LD A, B
CP $20
LD A, C
POP BC
JP NC, =Load_Block_From_Solid.AF_BC_Push
Load_ROM_Block: ; X in A, Y in B
PUSH DE
PUSH HL
LD C, A
CALL =Construct_Tile_Address
LD A, $mem_map_loading_flags
SET 2, A
LD $mem_map_loading_flags, A
LD A, ($mem_rom_tilemap_addr+1)
LD H, A
LD A, ($mem_rom_tilemap_addr+2)
LD L, A
LD A, ($mem_rom_tilemap_addr)
.CHANGE_BANK_TO_A
SLA C
SLA B
LD A, $00
SRA B
RR A
SRA B
RR A
OR C
LD C, A
LD A, L
ADD C
LD L, A
LD A, H
ADC B
LD H, A
LD A, D
LD ($mem_prepared_block_position), A
LD A, E
LD ($mem_prepared_block_position+1), A
LD A, (HL+)
LD ($mem_prepared_block_tile), A
LD A, (HL-)
LD ($mem_prepared_block_tile+1), A
LD A, L
ADD $40
LD L, A
LD A, H
ADC $00
LD H, A
LD A, (HL+)
LD ($mem_prepared_block_tile+2), A
LD A, (HL)
LD ($mem_prepared_block_tile+3), A
POP HL
POP DE
POP AF
POP BC
RET
|
