Subversion Repositories SvarDOS

Rev

Rev 1736 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1736 Rev 1992
Line 126... Line 126...
126 
    mov bx, [dsth] /* file handle */
 126 
    mov bx, [dsth] /* file handle */
127 
    /* mov dx, [buff] */ /* DX points to buffer already */
 127 
    /* mov dx, [buff] */ /* DX points to buffer already */
128 
    int 0x21       /* CF clear and AX=CX on success */
 128 
    int 0x21       /* CF clear and AX=CX on success */
129 
    jc FAIL
 129 
    jc FAIL
130 
    cmp ax, cx     /* should be equal, otherwise failed */
 130 
    cmp ax, cx     /* should be equal, otherwise failed */
131 
    mov ax, 0x08   /* preset to DOS error "Insufficient memory" */
 131 
    mov ax, 0x39   /* preset to DOS error "Insufficient disk space" */
132 
    jne FAIL
 132 
    jne FAIL
133 
    jmp COPY
 133 
    jmp COPY
134 
 
 134 
 
135 
    ENDOFFILE:
 135 
    ENDOFFILE:
136 
    /* if dst ascii mode -> add an EOF (ASCII mode not supported for the time being) */
 136 
    /* if dst ascii mode -> add an EOF (ASCII mode not supported for the time being) */