Форум программистов [Powered by Invision Power Board]

Код

.model small
.stack 100h
.data


    input1    DB    255 DUP (0)
    input2    DB    255 DUP (0)
    output    DB    255 DUP (0)    
    handleIn1 DW ?
    handleIn2 DW ?
    handleOut DW ?

    buffer    DB 20 DUP (0)
    buffer2   DB 20 DUP (0)

        error     db "File not find", 0
        error1    db "ERROR cant creat file", 0
        error2    db "data error",0
        msg       db ' ______________________________________________________________________ ',13, 10
                  db '/                    xx                                                                                                                       \',13, 10
                  db '| x                                                                                                                                            |',13, 10
                  db '|     fxx                                                                                                                                     |',13, 10
                  db '|                                                                                                                                               |',13, 10
                  db '|  prm.: 1.txt: 2465789541567, 2.txt: 846873246285                                                             |',13, 10
                  db '|                       Rez.txt: 33                                                                                                       |',13, 10
                  db '\----------------------------------------------------------------------/$'


.code
 
 
pradzia:  ; start
        mov ax, @data
        mov ds, ax 

;************************************************
write MACRO ka
        LOCAL writeNextSymb, wroteIt    ;makro - not "duplicate declaration"
        PUSH dx
        PUSH cx
        PUSH ax
        PUSH bx
        PUSH si
 
        MOV    bx, 1                ; na ekran
        MOV    cx, 1                
 
        MOV    si, 0                ;nachalo
 
        writeNextSymb:
            MOV    al, [ka + si]        ;kokj sledushij simvol
            CMP    al, 0                ;0 - konec
            JE    wroteIt
            MOV    dx, offset ka        ;nachalo predlazhenija
            ADD    dx, si                ;bukva
            MOV    ah, 40h
            INT    21h                 ;zapisyvaem
            INC    si
        JMP    writeNextSymb
        wroteIt:
 
        POP si
        POP    bx
        POP    ax
        POP    cx
        POP    dx        
    ENDM
;******************************************************
 

;-------------------------------------------------
radom:
        mov ah, 9
        mov dx, offset msg
        int 21h
        call pabaiga



;-------------------------------------------------




;----create rez file---- 
;        mov ah, 3Ch     ;DOS create file
;        mov cx, 0       ;attribute
;        lea dx, output  ;filename in ASCIIZ
;        int 21h
;        call flagCheck

;----> otkryvaem 2 fajla <-----

    MOV    al, 0                    ;schityvaem
    MOV    dx, offset input1        ;nzv fajla 
    MOV    ah, 3dh
    INT    21h                      ;otkryvaem
    JNC    fileOpened1

        CALL errInFileOpening       ;vykidyvaem error

    fileOpened1:
    MOV    handleIn1, ax            ;save
 
    MOV    al, 0                    
    MOV    dx, offset input2        ;otkryvaem vtoroj
    MOV    ah, 3dh
    INT    21h                    
    JNC    fileOpened2

        CALL errInFileOpening       ;kidaem error na monitor

    fileOpened2:
    MOV    handleIn2, ax            ;save
 
;---> delajem rez.txt (rez.txt) <---

    MOV    cx, 0                    ;filetype = normal
    MOV    dx, offset output        ;nzw fajla
    MOV    ah, 3ch
    INT    21h                      ;tvorim fajl
    JNC    fileCreated
        CALL errorCreatingFile
    fileCreated:
    MOV    handleOut, ax            ;save
 


;---------------------
 terminate PROC
        MOV ax, 4C00h
        INT 21h
    terminate ENDP
;---------------------

; --> ERRORS :

;--------------------------------------------------------
  errInFileOpening PROC

        write error2   ;vypisyvaem , polzujimsia MACRo
        CALL terminate

    errInFileOpening ENDP
;---------------------------------------------------------

    errorCreatingFile PROC
        write error1       ;vypisyvaem , polzujimsia MACRo
        CALL terminate
    errorCreatingFile ENDP
;--------------------------------------------------------------


        pabaiga proc       
            mov ax, 4c00h
            int 21h
            ret
        pabaiga endp


END pradzia