blob: 07d373623a4662e086c22bfe2095fb88adb57a03 (
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
35
36
37
38
39
40
41
|
INCLUDE "constants.asm"
SECTION "home/print_hex.asm", ROM0
PrintHexBytes:
; Print c hex bytes located at de to hl
.loop
push bc
call PrintHexByte
pop bc
dec c
jr nz, .loop
ret
PrintHexByte::
; Print one hex byte located at de to hl
ld a, [de]
swap a
and $0f
call GetHexDigit
ld [hli], a
ld a, [de]
and $0f
call GetHexDigit
ld [hli], a
inc de
ret
GetHexDigit:
; Get a hex digit tile number in a
ld bc, .hexDigitTable
add c
ld c, a
ld a, $00
adc b
ld b, a
ld a, [bc]
ret
.hexDigitTable:
db "０１２３４５６７８９ＡＢＣＤＥＦ"
|
