Subversion Repositories Kolibri OS

Rev

Rev 846 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 846 Rev 2971
Line 15... Line 15...
15
;; 08.11.2004 expand_pathz and rename (only for hd) - ATV       ;;
15
;; 08.11.2004 expand_pathz and rename (only for hd) - ATV       ;;
16
;; 20.10.2004 Makedir/Removedir (only for hd) - ATV             ;;
16
;; 20.10.2004 Makedir/Removedir (only for hd) - ATV             ;;
17
;;                                                              ;;
17
;;                                                              ;;
18
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 19... Line 19...
19
 
19
 
Line 20... Line 20...
20
$Revision: 846 $
20
$Revision: 2971 $
21
 
21
 
22
 
22
 
Line 762... Line 762...
762
;    jb    err
762
;    jb    err
763
;    cmp    al,'9'
763
;    cmp    al,'9'
764
;    ja    err
764
;    ja    err
765
    sub    al,48
765
    sub    al,48
766
    shl    cx,1
766
    shl    cx,1
767
    jc    err
767
    jc    error
768
    mov    bx,cx
768
    mov    bx,cx
769
    shl    cx,1
769
    shl    cx,1
770
    jc    err
770
    jc    error
771
    shl    cx,1
771
    shl    cx,1
772
    jc    err
772
    jc    error
773
    add    cx,bx
773
    add    cx,bx
774
    jc    err
774
    jc    error
775
    cbw
775
    cbw
776
    add    cx,ax
776
    add    cx,ax
777
    jc    err
777
    jc    error
778
i3:
778
i3:
779
    inc    edi
779
    inc    edi
780
    jmp    i1
780
    jmp    i1
781
i_exit:
781
i_exit:
782
    mov    ax,cx
782
    mov    ax,cx
Line 787... Line 787...
787
    pop    dx
787
    pop    dx
788
    pop    cx
788
    pop    cx
789
    pop    bx
789
    pop    bx
790
    ret
790
    ret
Line 791... Line 791...
791
 
791
 
792
err:
792
error:
793
    stc
793
    stc
Line 794... Line 794...
794
    jmp    i4
794
    jmp    i4
795
 
795