Файл: Как считать числа из файла в переменную типа DW (В идеале - массив DW)?

tempvar dw ?
    num1 db '132'

lea     si, num2+1
    lea     di, tempvar
    call    Str2Num

    num1 db 3, '132'

DATA SEGMENT
    path db "abc.txt",0 ; имя файла для октрытия
    buf  db ?
    path2 db 'qwe.txt', 0
    f_Handle1 dw ?
    f_Handle2 dw ?
    buff db 200 dup('$')
    tempvar dw ?
    array db ?
    num1 db 3, '132'
 
    num2 db ?
DATA ENDS
 
SSEG SEGMENT STACK
      db 200 dup(?)
SSEG ENDS
 
CODE SEGMENT
 ASSUME CS:CODE, DS:DATA, SS:SSEG
  begin:
    mov ax,DATA ; настроим DS
    mov DS,ax       ; на реальный сегмент
    
    
filework:
    lea     si, num1+1
    lea     di, tempvar
    call    Str2Num
    
    mov ax, di
    call OutInt
    
   exit:            ; завершаем программу
    mov ah,4ch
    int 21h
    
OutInt proc 
    xor     cx, cx
    mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
    xor     dx,dx
    div     bx
    
    push    dx
    inc     cx
    
    test    ax, ax
    jnz     oi2
    
    mov     ah, 02h
oi3:
    pop     dx
 
    add     dl, '0'
    int     21h
    
    loop    oi3
    
    ret
 
OutInt endp
Str2Num proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    ds
        push    es
 
        push    ds
        pop     es
 
        mov     cl, ds:[si]
        xor     ch, ch
 
        inc     si
 
        mov     bx, 10
        xor     ax, ax
 
@@Loop:
        mul     bx         ; умножаем ax на 10 ( dx:ax=ax*bx )
        mov     [di], ax   ; игнорируем старшее слово
        cmp     dx, 0      ; проверяем, результат на переполнение
        jnz     @@Error
 
        mov     al, [si]   ; Преобразуем следующий символ в число
        cmp     al, '0'
        jb      @@Error
        cmp     al, '9'
        ja      @@Error
        sub     al, '0'
        xor     ah, ah
        add     ax, [di]
        jc      @@Error    ; Если сумма больше 65535
        inc     si
 
        loop    @@Loop
 
        mov     [di], ax
        clc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
@@Error:
        xor     ax, ax
        mov     [di], ax
        stc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Str2Num endp
CODE ENDS
  end begin

DATA SEGMENT
    path db "abc.txt",0 ; имя файла для октрытия
    buf  db ?
    path2 db 'qwe.txt', 0
    f_Handle1 dw ?
    f_Handle2 dw ?
    buff db 200 dup('$')
    counter dw 0
    arraySize dw 20
    array db 6, 0, 6 dup(0)  
    indexI dw 0
    indexJ dw 0
    
    tempvar dw 0
    
    localcount db 0
DATA ENDS
 
SSEG SEGMENT STACK
      db 200 dup(?)
SSEG ENDS
 
CODE SEGMENT
 ASSUME CS:CODE, DS:DATA, SS:SSEG
  begin:
    mov ax,DATA ; настроим DS
    mov DS,ax       ; на реальный сегмент
    ;открываем файл
    mov ax,3d00h    ; открываем для чтения
    lea dx,path     ; DS:dx указатель на имя файла
    int 21h     ; в ax деcкриптор файла
    jc exit     ; если поднят флаг С, то ошибка открытия
    
    mov bx,ax       ; копируем в bx указатель файла
    xor cx,cx
    xor dx,dx
    mov ax,4200h
    int 21h     ; идем к началу файла
 
    mov si, 1
   out_str:
    mov ah,3fh      ; будем читать из файла
    mov cx,1        ; 1 байт
    lea dx,buf      ; в память buf
    int 21h        
    
    mov dl, buf
    cmp dl, '!'
    je close
 
    cmp dl, ' '
    je nextPtr
    
    mov array[si], dl
    inc si
    inc counter
    inc localcount
    
 
    nextPtr:
    cmp dl,' '
    jne out_str
    
    
    
    
    push cx
    push ax
    mov si, 0
    ;pop dl
    mov localcount,0
    
    lea si, array+1
    lea di, tempvar
    call Str2Num
    
    mov ax, tempvar
    mov cx, 10
    call Show_ax
    
    pop ax
    pop cx
    
    
    mov counter, 0
    mov si, 0
    jmp out_str
   close:           ; закрываем файл, после чтения
    mov ah,3eh
    int 21h
    
    output:
;   mov si, 0
;   mov cx, counter
;   loop1:
;       mov dl, array[si]
;       mov ah, 2
;       int 21h
;       inc si
;   loop loop1
    
   exit:            ; завершаем программу
    mov ah,4ch
    int 21h
 
Show_ax PROC
;        mov     cx, 10
        xor     di, di          ; di - кол. цифр в числе
@@Conv:
        xor     dx, dx
        div     cx              ; dl = num mod 10
        add     dl, '0'         ; перевод в символьный формат
        inc     di
        push    dx              ; складываем в стэк
        or      ax, ax
        jnz     @@conv
        ; выводим из стэка на экран
@@Show:
        pop     dx              ; dl = очередной символ
        mov     ah, 2           ; ah - функция вывода символа на экран
        int     21h
        dec     di              ; повторяем пока di<>0
        jnz     @@show
        ret
Show_ax ENDP
; CY - флаг переноса (при ошибке - установлен, иначе - сброшен)
Str2Num PROC
        push    ax
        push    bx
        push    cx
        push    dx
        push    ds
        push    es
 
        push    ds
        pop     es
 
        mov     cl, ds:[si]
        xor     ch, ch
 
        inc     si
 
        mov     bx, 10
        xor     ax, ax
 
@@Loop:
        mul     bx         ; умножаем ax на 10 ( dx:ax=ax*bx )
        mov     [di], ax   ; игнорируем старшее слово
        cmp     dx, 0      ; проверяем, результат на переполнение
        jnz     @@Error
 
        mov     al, [si]   ; Преобразуем следующий символ в число
        cmp     al, '0'
        jb      @@Error
        cmp     al, '9'
        ja      @@Error
        sub     al, '0'
        xor     ah, ah
        add     ax, [di]
        jc      @@Error    ; Если сумма больше 65535
        inc     si
 
        loop    @@Loop
 
        mov     [di], ax
        clc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
@@Error:
        xor     ax, ax
        mov     [di], ax
        stc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Str2Num ENDP
 
out_value proc near ;выводит на экран число в ax
        cmp bl, 10 ;сравниваем с 10
            jz out_value_l1 ;если равно 10
                jc out_value_l1 ;если меньше 10
                    mov bl, 10 ;записываем в bl 10
        out_value_l1: ;теперь bl меньше либо равно 10
        cmp bl, 0 ;сравниваем с 0
            jnz out_value_l2 ;не равно 0
                mov bl, 10 ;равно 0
        out_value_l2: ;теперь bl больше 0 и не меньше 10
        mov bh, 0 ;установка верхушки bx в 0
        mov cx, 0 ;установка счетчика в 0
        out_value_m1: ;цикл
            mov dx, 0 ;обнуляем верхушку двойного слова dx:ax
            div bx ;ax / bx -> ax, ax % bx -> dx
            push dx ;заталкиваем в стек очередную цифру (dx)
            inc cx ;наращиваем счетчик
            cmp ax, 0 ;сравниваем частное от деления с нулем
        jnz out_value_m1 ;в начало цикла
        out_value_m2: ;цикл
            pop dx ;вытаскиваем из стека очередную цифру (dx)
            add dl, '0' ;корректируем код цифры в ASCII
            mov buff, dl
        
            push cx
                mov ah, 40h
                mov bx, f_Handle2
                mov cx, 1
                mov dx, offset buff 
                int 21h
            pop cx
            
            dec cx ;уменьшаем счетчик
            cmp cx, 0 ;сравниваем номер текущей цифры с нулем
        jnz out_value_m2 ;в начало цикла
        xor bl,bl
        ret ;выход из процедуры
out_value endp
CODE ENDS
  end begin

DATA SEGMENT
    path db "abc.txt",0 ; имя файла для октрытия
    buf  db ?
    path2 db 'qwe.txt', 0
    f_Handle1 dw ?
    f_Handle2 dw ?
    buff db 200 dup('$')
    counter dw 0
    arraySize dw 20
    array db 6, 0, 6 dup(0)  
    indexI dw 0
    indexJ dw 0
    
    tempvar dw 0
    
    localcount db 0
DATA ENDS
 
SSEG SEGMENT STACK
      db 200 dup(?)
SSEG ENDS
 
CODE SEGMENT
 ASSUME CS:CODE, DS:DATA, SS:SSEG
  begin:
    mov ax,DATA ; настроим DS
    mov DS,ax       ; на реальный сегмент
    ;открываем файл
    mov ax,3d00h    ; открываем для чтения
    lea dx,path     ; DS:dx указатель на имя файла
    int 21h     ; в ax деcкриптор файла
    jc exit     ; если поднят флаг С, то ошибка открытия
    
    mov bx,ax       ; копируем в bx указатель файла
    xor cx,cx
    xor dx,dx
    mov ax,4200h
    int 21h     ; идем к началу файла
 
    mov si, 1
   out_str:
    mov ah,3fh      ; будем читать из файла
    mov cx,1        ; 1 байт
    lea dx,buf      ; в память buf
    int 21h        
    
    mov dl, buf
    cmp dl, '!'
    je close
 
    cmp dl, ' '
    je nextPtr
    
    mov array[si], dl
    inc si
    inc counter
    inc localcount
    
 
    nextPtr:
    cmp dl,' '
    jne out_str
    
    
    
    
    push cx
    push ax
    mov si, 0
    ;pop dl
    mov dl, localcount
    mov array[0], dl
    mov localcount,0
    
    lea si, array+1
    lea di, tempvar
    call Str2Num
    
    mov ax, tempvar
    mov cx, 10
    call Show_ax
    
    pop ax
    pop cx
    
    
    mov counter, 0
    mov si, 0
    jmp out_str
   close:           ; закрываем файл, после чтения
    mov ah,3eh
    int 21h
    
    output:
;   mov si, 0
;   mov cx, counter
;   loop1:
;       mov dl, array[si]
;       mov ah, 2
;       int 21h
;       inc si
;   loop loop1
    
   exit:            ; завершаем программу
    mov ah,4ch
    int 21h
 
Show_ax PROC
;        mov     cx, 10
        xor     di, di          ; di - кол. цифр в числе
@@Conv:
        xor     dx, dx
        div     cx              ; dl = num mod 10
        add     dl, '0'         ; перевод в символьный формат
        inc     di
        push    dx              ; складываем в стэк
        or      ax, ax
        jnz     @@conv
        ; выводим из стэка на экран
@@Show:
        pop     dx              ; dl = очередной символ
        mov     ah, 2           ; ah - функция вывода символа на экран
        int     21h
        dec     di              ; повторяем пока di<>0
        jnz     @@show
        ret
Show_ax ENDP
; CY - флаг переноса (при ошибке - установлен, иначе - сброшен)
Str2Num PROC
        push    ax
        push    bx
        push    cx
        push    dx
        push    ds
        push    es
 
        push    ds
        pop     es
 
        mov     cl, ds:[si]
        xor     ch, ch
 
        inc     si
 
        mov     bx, 10
        xor     ax, ax
 
@@Loop:
        mul     bx         ; умножаем ax на 10 ( dx:ax=ax*bx )
        mov     [di], ax   ; игнорируем старшее слово
        cmp     dx, 0      ; проверяем, результат на переполнение
        jnz     @@Error
 
        mov     al, [si]   ; Преобразуем следующий символ в число
        cmp     al, '0'
        jb      @@Error
        cmp     al, '9'
        ja      @@Error
        sub     al, '0'
        xor     ah, ah
        add     ax, [di]
        jc      @@Error    ; Если сумма больше 65535
        inc     si
 
        loop    @@Loop
 
        mov     [di], ax
        clc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
@@Error:
        xor     ax, ax
        mov     [di], ax
        stc
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Str2Num ENDP
 
out_value proc near ;выводит на экран число в ax
        cmp bl, 10 ;сравниваем с 10
            jz out_value_l1 ;если равно 10
                jc out_value_l1 ;если меньше 10
                    mov bl, 10 ;записываем в bl 10
        out_value_l1: ;теперь bl меньше либо равно 10
        cmp bl, 0 ;сравниваем с 0
            jnz out_value_l2 ;не равно 0
                mov bl, 10 ;равно 0
        out_value_l2: ;теперь bl больше 0 и не меньше 10
        mov bh, 0 ;установка верхушки bx в 0
        mov cx, 0 ;установка счетчика в 0
        out_value_m1: ;цикл
            mov dx, 0 ;обнуляем верхушку двойного слова dx:ax
            div bx ;ax / bx -> ax, ax % bx -> dx
            push dx ;заталкиваем в стек очередную цифру (dx)
            inc cx ;наращиваем счетчик
            cmp ax, 0 ;сравниваем частное от деления с нулем
        jnz out_value_m1 ;в начало цикла
        out_value_m2: ;цикл
            pop dx ;вытаскиваем из стека очередную цифру (dx)
            add dl, '0' ;корректируем код цифры в ASCII
            mov buff, dl
        
            push cx
                mov ah, 40h
                mov bx, f_Handle2
                mov cx, 1
                mov dx, offset buff 
                int 21h
            pop cx
            
            dec cx ;уменьшаем счетчик
            cmp cx, 0 ;сравниваем номер текущей цифры с нулем
        jnz out_value_m2 ;в начало цикла
        xor bl,bl
        ret ;выход из процедуры
out_value endp
CODE ENDS
  end begin

    
    mov num1[0], '3'
    mov num1[1], '1'
    mov num1[2], '2'
    mov num1[3], '4'
    
    lea     si, num1+1
    lea     di, tempvar
    call    Str2Num
    
    mov ax, tempvar
    mov cx, 10
    call Show_ax

.model small
 
.stack 100h
 
.data
    CrLf    db  0Dh, 0Ah, '$'
    StrA    db  3, '123'
    StrB    db  4, '4567'
    wA  dw  ?
    wB  dw  ?
    wC  dw  ?
.code
 
main    proc
    mov ax,     @data
    mov ds, ax
 
    lea si, [StrA]
    lea di, [wA]
    call    Str2Num
 
    lea si, [StrB]
    lea di, [wB]
    call    Str2Num
 
    mov ax, [wA]
    add ax, [wB]
    mov [wC],   ax
 
    call    Show_AX
 
    mov ax, 4C00h
    int 21h
main    endp
 
; преобразования строки в знаковое число
; на входе:
; ds:[si] - строка с числом
; ds:[di] - адрес числа
; на выходе
; ds:[di] - число
; CY - флаг переноса (при ошибке - установлен, иначе - сброшен)
Str2Num proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    ds
        push    es
        push    si
 
        push    ds
        pop     es
 
        mov     cl, ds:[si]
        xor     ch, ch
 
        inc     si
 
        cmp     [si], byte ptr '-'
        jne     @@IsPositive
        inc     si
        dec     cx
@@IsPositive:
        jcxz    @@Error
 
        mov     bx, 10
        xor     ax, ax
 
@@Loop:
        mul     bx         ; умножаем ax на 10 ( dx:ax=ax*bx )
        mov     [di], ax   ; игнорируем старшее слово
        cmp     dx, 0      ; проверяем, результат на переполнение
        jnz     @@Error
 
        mov     al, [si]   ; Преобразуем следующий символ в число
        cmp     al, '0'
        jb      @@Error
        cmp     al, '9'
        ja      @@Error
        sub     al, '0'
        xor     ah, ah
        add     ax, [di]
        jc      @@Error    ; Если сумма больше 65535
        inc     si
 
        loop    @@Loop
 
        pop     si
        push    si
        or      ax, ax
        js      @@Error
        cmp     [si+1], byte ptr '-'
        jne     @@Positive
        neg     ax
        or      ax, ax
        jns     @@Error
@@Positive:
        mov     [di], ax
        clc
        pop     si
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
@@Error:
        xor     ax, ax
        mov     [di], ax
        stc
        pop     si
        pop     es
        pop     ds
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Str2Num endp
 
; выводит знаковое 16-разрядное число из регистра AX на экран
; входные данные:
; ax - число для отображения
Show_AX proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    di
 
        mov     cx,     10
        xor     di,     di  ; di - кол. цифр в числе
 
        ; если число в ax отрицательное, то
        ;1) напечатать '-'
        ;2) сделать ax положительным
        or      ax,     ax
        jns     @@Conv
        push    ax
        mov     dx,     '-'
        mov     ah,     2   ; ah - функция вывода символа на экран
        int     21h
        pop     ax
 
        neg     ax
 
@@Conv:
        xor     dx,     dx
        div     cx              ; dl = num mod 10
        add     dl,     '0'     ; перевод в символьный формат
        inc     di
        push    dx              ; складываем в стек
        or      ax,     ax
        jnz     @@Conv
        ; выводим из стека на экран
@@Show:
        pop     dx              ; dl = очередной выводимый символ
        mov     ah,     2       ; ah - функция вывода символа на экран
        int     21h
        dec     di              ; повторяем пока di<>0
        jnz     @@Show
 
        pop     di
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Show_AX endp
 
end main

    mov num1[0], 3 ;длина строки
    mov num1[1], '1' ; действующий символ строки
    mov num1[2], '2' ; действующий символ строки
    mov num1[3], '4' ; действующий символ строки
 
    mov num1[4], '7' ; символ строки хоть и присутствует, но из-за длины 3 не учитывается
    
    lea     si, num1
    lea     di, tempvar
    call    Str2Num