|
10554
|
1 ;
|
|
|
2 ; This is a macro to generate packed BCD constants.
|
|
|
3 ; It is obsoleted by "dt" with a packed BCD value with a "p"
|
|
|
4 ; suffix, but it is included here as a rest of nested %rep.
|
|
|
5 ;
|
|
|
6 %macro dtbcd 1-*.nolist
|
|
|
7 %push dtbcd
|
|
|
8 %rep %0
|
|
|
9 %defstr %$abc %1
|
|
|
10 %substr %$sign %$abc 1
|
|
|
11 %if %$sign == '-'
|
|
|
12 %substr %$abc %$abc 2,-1
|
|
|
13 %xdefine %$sign 0x80
|
|
|
14 %elif %$sign == '+'
|
|
|
15 %substr %$abc %$abc 2,-1
|
|
|
16 %xdefine %$sign 0x00
|
|
|
17 %else
|
|
|
18 %xdefine %$sign 0x00
|
|
|
19 %endif
|
|
|
20 %strlen %$abclen %$abc
|
|
|
21 %defstr %$abclen_str %$abclen
|
|
|
22 %assign %$pos %$abclen
|
|
|
23 %assign %$bc 0
|
|
|
24 %assign %$ld -1
|
|
|
25 %rep %$abclen
|
|
|
26 %substr %$chr %$abc %$pos
|
|
|
27 %assign %$pos %$pos-1
|
|
|
28 %if %$chr >= '0' && %$chr <= '9'
|
|
|
29 %if %$ld < 0
|
|
|
30 %assign %$ld %$chr-'0'
|
|
|
31 %assign %$bc %$bc+1
|
|
|
32 %if %$bc > 9
|
|
|
33 %warning "too many digits in BCD constant"
|
|
|
34 %exitrep
|
|
|
35 %endif
|
|
|
36 %else
|
|
|
37 db %$ld+((%$chr-'0') << 4)
|
|
|
38 %assign %$ld -1
|
|
|
39 %endif
|
|
|
40 %elif %$chr == '_'
|
|
|
41 ; Do nothing...
|
|
|
42 %else
|
|
|
43 %error "invalid character in BCD constant"
|
|
|
44 %exitrep
|
|
|
45 %endif
|
|
|
46 %endrep
|
|
|
47 %if %$ld >= 0
|
|
|
48 db %$ld
|
|
|
49 %endif
|
|
|
50 %rep 9-%$bc
|
|
|
51 db 0
|
|
|
52 %endrep
|
|
|
53 db %$sign
|
|
|
54 %rotate 1
|
|
|
55 %endrep
|
|
|
56 %pop
|
|
|
57 %endmacro
|
|
|
58
|
|
|
59 dtbcd 123, -456, +789
|
|
|
60 dt 123p, -456p, +789p
|
|
|
61 dtbcd 765432109876543210
|
|
|
62 dt 765432109876543210p
|
|
|
63 dtbcd -765432109876543210
|
|
|
64 dt -765432109876543210p
|
|
|
65 dtbcd +765_432_109_876_543_210
|
|
|
66 dt +765_432_109_876_543_210p
|
|
|
67 dtbcd -765_432_109_876_543_210
|
|
|
68 dt -765_432_109_876_543_210p
|
|
|
69
|
|
|
70 ;; Both of these should warn...
|
|
|
71 dtbcd 8_765_432_109_876_543_210
|
|
|
72 dt 8_765_432_109_876_543_210p
|
