Subversion Repositories Kolibri OS

Rev

Rev 373 | Rev 426 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 373 Rev 425
Line -... Line 1...
- 
 
 1 
$Revision: 425 $
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 2 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                            ;;
 3 
;;                                                            ;;
3 
;; KERNEL32.INC                                               ;;
 4 
;; KERNEL32.INC                                               ;;
4 
;;                                                            ;;
 5 
;;                                                            ;;
5 
;; Included 32 bit kernel files for MenuetOS                  ;;
 6 
;; Included 32 bit kernel files for MenuetOS                  ;;
Line 47... Line 48...
47 
    end if
 48 
    end if
48 
    display d
 49 
    display d
49 
  end repeat
 50 
  end repeat
50 
  display 13,10
 51 
  display 13,10
51 
}
 52 
}
- 
 
 53 
macro diff10 title,l1,l2
- 
 
 54 
 {
- 
 
 55 
  local s,d,z,m
- 
 
 56 
  s = l2-l1
- 
 
 57 
  z = 0
- 
 
 58 
  m = 1000000000
- 
 
 59 
  display title,': '
- 
 
 60 
  repeat 10
- 
 
 61 
   d = '0' + s / m
- 
 
 62 
   s = s - (s/m)*m
- 
 
 63 
   m = m / 10
- 
 
 64 
   if d <> '0'
- 
 
 65 
    z = 1
- 
 
 66 
   end if
- 
 
 67 
   if z <> 0
- 
 
 68 
    display d
- 
 
 69 
   end if
- 
 
 70 
  end repeat
- 
 
 71 
  display 13,10
- 
 
 72 
 }
Line 52... Line 73...
52 
 
 73 
 
53 
; \begin{diamond}[29.09.2006]
 74 
; \begin{diamond}[29.09.2006]
54 
; may be useful for kernel debugging
 75 
; may be useful for kernel debugging
55 
; example 1:
 76 
; example 1: