Subversion Repositories Kolibri OS

Rev

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

Rev 465 Rev 466
Line 1... Line 1...
1 
$Revision: 465 $
 1 
$Revision: 466 $
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 1337... Line 1337...
1337 
        dec     edi
 1337 
        dec     edi
1338 
        inc     ecx
 1338 
        inc     ecx
1339 
        jmp     @b
 1339 
        jmp     @b
1340 
.found:
 1340 
.found:
1341 
        inc     byte [edi]
 1341 
        inc     byte [edi]
1342 
.succ:
 - 
 
1343 
        pop     edi
 1342 
        add     dword [esp], 8
1344 
        popad
 - 
 
1345 
        clc
 - 
 
1346 
        ret
 1343 
        jmp     .zerorest
1347 
.break:
 1344 
.break:
1348 
        jecxz   .noplace
 1345 
        jecxz   .noplace
1349 
        inc     edi
 1346 
        inc     edi
1350 
        mov     al, '1'
 1347 
        mov     al, '1'
1351 
@@:
 1348 
@@:
1352 
        xchg    al, [edi]
 1349 
        xchg    al, [edi]
1353 
        inc     edi
 1350 
        inc     edi
1354 
        cmp     al, ' '
 1351 
        cmp     al, ' '
1355 
        mov     al, '0'
 1352 
        mov     al, '0'
1356 
        jnz     @b
 1353 
        jnz     @b
- 
 
 1354 
.succ:
1357 
        jmp     .succ
 1355 
        pop     edi
- 
 
 1356 
        popad
- 
 
 1357 
        clc
- 
 
 1358 
        ret
1358 
.noplace:
 1359 
.noplace:
1359 
        dec     edi
 1360 
        dec     edi
1360 
        cmp     edi, [esp]
 1361 
        cmp     edi, [esp]
1361 
        jz      .err
 1362 
        jz      .err
1362 
        add     dword [esp], 8
 1363 
        add     dword [esp], 8
1363 
        mov     word [edi], '~1'
 1364 
        mov     word [edi], '~1'
1364 
        inc     edi
 1365 
        inc     edi
1365 
        inc     edi
 1366 
        inc     edi
1366 
@@:
 1367 
@@:
1367 
        mov     byte [edi], '0'
 1368 
        mov     byte [edi], '0'
- 
 
 1369 
.zerorest:
1368 
        inc     edi
 1370 
        inc     edi
1369 
        cmp     edi, [esp]
 1371 
        cmp     edi, [esp]
1370 
        jb      @b
 1372 
        jb      @b
1371 
        pop     edi
 1373 
        pop     edi
1372 
        popad
 1374 
        popad