zxbasic/src/lib/arch/zx48k/stdlib/hex.bas at b00d5d4677f19dfa09256d2da34c322dc866d8a4 · MrKOSMOS/zxbasic · GitHub

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
' ----------------------------------------------------------------
' This file is released under the MIT License
'
' Copyleft (k) 2008
' by Jose Rodriguez-Rosa (a.k.a. Boriel) <http://www.boriel.com>
' ----------------------------------------------------------------

#ifndef __LIBRARY_HEX__

REM Avoid recursive / multiple inclusion

#define __LIBRARY_HEX__

#pragma push(case_insensitive)
#pragma case_insensitive = TRUE

#pragma push(string_base)
#pragma string_base = 0

' ----------------------------------------------------------------
' function HEX
'
' Parameters:
'     num : 32 bit unsigned integer number
'
' Returns:
'	  8 chars str containing the HEX string representation
' ----------------------------------------------------------------
function FASTCALL hex(num as ULong) as String
	asm
    push namespace core
    PROC
    LOCAL SUB_CHAR
    LOCAL SUB_CHAR2
    LOCAL END_CHAR
    LOCAL DIGIT

    push hl
    push de
    ld bc,10
    call __MEM_ALLOC
    ld a, h
    or l
    pop de
    pop bc
    ret z	; NO MEMORY

    push hl	; Saves String ptr
    ld (hl), 8
    inc hl
    ld (hl), 0
    inc hl  ; 8 chars string length

    call DIGIT
    ld d, e
    call DIGIT
    ld d, b
    call DIGIT
    ld d, c
    call DIGIT
    pop hl	; Recovers string ptr
    ret

DIGIT:
    ld a, d
    call SUB_CHAR
    ld a, d
    jr SUB_CHAR2

SUB_CHAR:
    rrca
    rrca
    rrca
    rrca

SUB_CHAR2:
    and 0Fh
    add a, '0'
    cp '9' + 1
    jr c, END_CHAR
    add a, 7

END_CHAR:
    ld (hl), a
    inc hl
    ret

    ENDP
    pop namespace
	end asm
end function


REM 16 bit version
function hex16(n as UInteger) as String
	Dim a$ as String
	a$ = hex(n)
	return a$(4 TO 7)
end function


REM 8 bit version
Function hex8 (n as UByte) as String
  Dim res$ as String

	res$ = hex(n)
	return res$(6 TO 7)
end function


#pragma pop(string_base)
#pragma pop(case_insensitive)

' The following is required to allocate dynamic memory for strings
#require "mem/alloc.asm"

#endif