summaryrefslogtreecommitdiff
path: root/test/dtbcd.asm
blob: fcccff63246edc8db25a89e1327419ca7467ff0c (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
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