Subversion Repositories Kolibri OS

Rev

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