blob: ff66f0279f5d8feea21804960e023358cc7d0df9 (
plain)
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
|
FarCopyData:: ; 009d (0:009d)
; Copy bc bytes from a:hl to de.
ld [wd122+1], a
ld a, [H_LOADEDROMBANK]
push af
ld a, [wd122+1]
call BankswitchCommon
call CopyData
pop af
call BankswitchCommon
ret
CopyData:: ; 00b1 (0:00b1)
; Copy bc bytes from hl to de.
ld a,b
and a
jr z, .copybytes
ld a,c
and a ; is lower byte 0
jr z, .loop
inc b ; if not, increment b as there are <$100 bytes to copy
.loop
call .copybytes
dec b
jr nz,.loop
ret
.copybytes ; 00c1
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .copybytes
ret
|
