Rev 426 | Rev 521 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 426 | Rev 506 | ||
---|---|---|---|
Line 7... | Line 7... | ||
7 | end if |
7 | end if |
8 | \} |
8 | \} |
9 | } |
9 | } |
10 | 10 | ||
Line 11... | Line 11... | ||
11 | $Revision: 426 $ |
11 | $Revision: 506 $ |
Line 12... | Line 12... | ||
12 | 12 | ||
13 | ; structure definition helper |
13 | ; structure definition helper |
14 | macro struct name, [arg] |
14 | macro struct name, [arg] |
15 | { |
15 | { |
Line 39... | Line 39... | ||
39 | { |
39 | { |
40 | local s,d |
40 | local s,d |
41 | s = l2-l1 |
41 | s = l2-l1 |
42 | display title,': 0x' |
42 | display title,': 0x' |
43 | repeat 8 |
43 | repeat 16 |
44 | d = 48 + s shr ((8-%) shl 2) and $0F |
44 | d = 48 + s shr ((16-%) shl 2) and $0F |
45 | if d > 57 |
45 | if d > 57 |
46 | d = d + 65-57-1 |
46 | d = d + 65-57-1 |
47 | end if |
47 | end if |
48 | display d |
48 | display d |
49 | end repeat |
49 | end repeat |
50 | display 13,10 |
50 | display 13,10 |