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
|
;
; This is a macro to generate packed BCD constants.
; It is obsoleted by "dt" with a packed BCD value with a "p"
; suffix, but it is included here as a rest of nested %rep.
;
%macro dtbcd 1-*.nolist
%push dtbcd
%rep %0
%defstr %$abc %1
%substr %$sign %$abc 1
%if %$sign == '-'
%substr %$abc %$abc 2,-1
%xdefine %$sign 0x80
%elif %$sign == '+'
%substr %$abc %$abc 2,-1
%xdefine %$sign 0x00
%else
%xdefine %$sign 0x00
%endif
%strlen %$abclen %$abc
%defstr %$abclen_str %$abclen
%assign %$pos %$abclen
%assign %$bc 0
%assign %$ld -1
%rep %$abclen
%substr %$chr %$abc %$pos
%assign %$pos %$pos-1
%if %$chr >= '0' && %$chr <= '9'
%if %$ld < 0
%assign %$ld %$chr-'0'
%assign %$bc %$bc+1
%if %$bc > 9
%warning "too many digits in BCD constant"
%exitrep
%endif
%else
db %$ld+((%$chr-'0') << 4)
%assign %$ld -1
%endif
%elif %$chr == '_'
; Do nothing...
%else
%error "invalid character in BCD constant"
%exitrep
%endif
%endrep
%if %$ld >= 0
db %$ld
%endif
%rep 9-%$bc
db 0
%endrep
db %$sign
%rotate 1
%endrep
%pop
%endmacro
dtbcd 123, -456, +789
dt 123p, -456p, +789p
dtbcd 765432109876543210
dt 765432109876543210p
dtbcd -765432109876543210
dt -765432109876543210p
dtbcd +765_432_109_876_543_210
dt +765_432_109_876_543_210p
dtbcd -765_432_109_876_543_210
dt -765_432_109_876_543_210p
;; Both of these should warn...
dtbcd 8_765_432_109_876_543_210
dt 8_765_432_109_876_543_210p
|
