blob: 2a68c2bb1da9e385c2f8822f309df1e3600e2f11 (
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
42
43
44
45
46
|
INCLUDE "constants.asm"
; if DEBUG
SECTION "home/print_hex.asm", ROM0
; else
; SECTION "Print Hexadecimal functions", ROM0[$355B]
; endc
PrintHexBytes: ; 3597 (0:3597)
; Print c hex bytes located at de to hl
.loop
push bc
call PrintHexByte
pop bc
dec c
jr nz, .loop
ret
PrintHexByte:: ; 35a0 (0:35a0)
; 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: ; 35b2 (0:35b2)
; 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 "０１２３４５６７８９ＡＢＣＤＥＦ"
|
