Хочу разобраться в коде. Помогите с комментариями

masm
model small
.data
buf1 db 512 dup (?)
kol1 dw 0
kol2 dw 0
sch  dw 0
op dw 0
name1 db 'file1.txt',0
name3 db 'file.txt',0
simb  db 0
.stack 100h
.code
main proc
mov ax,@data
mov ds,ax
mov es,ax
 
mov ax,3d02h
mov dx,offset name1
int 21h
mov op,ax
 
mov ax,4202h
xor cx,cx
xor dx,dx
mov bx,op
int 21h
mov kol1,ax
 
mov ax,4200h
xor cx,cx
xor dx,dx
mov bx,op
int 21h
 
mov ah,3fh
mov bx,op
mov dx,offset buf1
mov cx,kol1
int 21h
 
mov ah,3eh
mov bx,op
int 21h
 
cld
lea si,buf1
mov cx,21
metka:
lodsb
push    ax
loop metka
 
mov ah,3ch
mov dx,offset name3
xor cx,cx
int 21h
 
mov ax,3d02h
mov dx,offset name3
int 21h
mov op,bx
 
mov sch,512
metka2:
pop ax
mov simb,al
mov ah,40h
mov bx,op
mov dx,offset simb
mov cx,1
int 21h
dec sch
cmp sch,0
jg metka2
mov ax,4202h
xor cx,cx
xor dx,dx
mov bx,op
int 21h
mov ah,3eh
mov bx,op
int 21h
 
mov ax,4c00h
int 21h
main endp
end main

masm
model small
.data
buf1    db 512 dup (?)
kol1    dw 0
kol2    dw 0
sch     dw 0
op  dw 0
name1   db 'file1.txt',0
name3   db 'file.txt',0
simb    db 0
.stack 100h
.code
main proc
        mov ax,@data     ; настройка сегментов
        mov ds,ax
        mov es,ax
         
        mov ax,3d02h     ; открытие file1.txt доступ: read/write 
        mov dx,offset name1
        int 21h
        mov op,ax        ; handle 
         
        mov ax,4202h
        xor cx,cx
        xor dx,dx
        mov bx,op
        int 21h
        mov kol1,ax ; получили размер file1.txt - 64кб макс.
         
        mov ax,4200h    ; в начало файла
        xor cx,cx
        xor dx,dx
        mov bx,op
        int 21h
         
        mov ah,3fh  ; чтение из file1.txt kol1 байт в буфер buf1
        mov bx,op
        mov dx,offset buf1
        mov cx,kol1
        int 21h
         
        mov ah,3eh  ; закрытие file1.txt
        mov bx,op
        int 21h
         
        cld
        lea     si,buf1
        mov     cx,21
metka:                  ; грузим в стек 21 слово из буфера buf1
        lodsb
        push    ax
        loop metka
;--- создание и открытие file.txt доступ: read/write           
        mov ah,3ch
        mov dx,offset name3
        xor cx,cx
        int 21h
         
        mov ax,3d02h
        mov dx,offset name3
        int 21h
        mov op,bx
;---  может быть заменено одним вызовом Int 21/AX=6C00h      
; DOS 4.0+ - EXTENDED OPEN/CREATE
        mov     sch,512
; побайтная запись 512(?) байт из стека, помещая их предварительно в simb
; в файл file.txt
metka2:
        pop     ax
        mov     simb,al
        mov ah,40h
        mov bx,op
        mov dx,offset simb
        mov cx,1
        int 21h
        dec sch
        cmp sch,0
        jg metka2
; lseek(SEEK_END) указатель -> в конец файла, тоже непонятно, он и так там.
        mov ax,4202h
        xor cx,cx
        xor dx,dx
        mov bx,op
        int 21h
; закрытие file.txt
        mov ah,3eh
        mov bx,op
        int 21h
; выход         
        mov ax,4c00h
        int 21h
main endp
end main