Subversion Repositories Kolibri OS

Rev

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

Rev 438 Rev 444
Line 1... Line 1...
1 
$Revision: 438 $
 1 
$Revision: 442 $
2 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 2 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 
;;                                                                      ;;
 3 
;;                                                                      ;;
4 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
 4 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
5 
;; Distributed under terms of the GNU General Public License    ;;
 5 
;; Distributed under terms of the GNU General Public License    ;;
6 
;;                                                              ;;
 6 
;;                                                              ;;
Line 1315... Line 1315...
1315 
        jz      @b
 1315 
        jz      @b
1316 
        inc     edi
 1316 
        inc     edi
1317 
.insert_tilde:
 1317 
.insert_tilde:
1318 
        mov     word [edi], '~1'
 1318 
        mov     word [edi], '~1'
1319 
        popad
 1319 
        popad
1320 
;       clc     ; CF already cleared
 1320 
        clc
1321 
        ret
 1321 
        ret
1322 
.tilde:
 1322 
.tilde:
1323 
        push    edi
 1323 
        push    edi
1324 
        add     edi, 7
 1324 
        add     edi, 7
1325 
        xor     ecx, ecx
 1325 
        xor     ecx, ecx