Вывести атрибуты файла

    .model small
    .code
    org 100h
start:  jmp beg
 
; введите здесь имя файла
fname   db "c:\mouse.com",0
    db 13,10,"$"
 
; Вывод строки
echo    macro txt
    local m1,m2
    jmp m2
m1      db txt
    db "$"
m2: push ax
    push dx
    mov dx,offset m1
    mov ah,9
    int 21h
    pop dx
    pop ax
    endm
 
; Вывод строки и новая строка
echonl  macro txt
    local m1,m2
    jmp m2
m1      db txt
    db 13,10,"$"
m2: push ax
    push dx
    mov dx,offset m1
    mov ah,9
    int 21h
    pop dx
    pop ax
    endm
 
printflag:
        test cx,ax
    jnz pf1
    echonl "0"
    ret
pf1:    echonl "1"
    ret
 
errexit: echonl "function 4300h error"
        jmp dosexit
 
beg:    push cs
    pop  ds
    push cs
    pop  es
; Вывод имени файла
    mov dx,offset fname
        mov ah,9
    int 21h
    mov  ax,4300h ; запрос аттрибутов файла
    mov cx,0
        mov dx,offset fname
    int  21h
    jc   errexit
; вывод результатов
    echo "ReadOnly ="
    mov  ax,1h
    call printflag
    echo "Hidden   ="
        mov ax,2h
        call printflag
    echo "System   ="
        mov ax,4h
        call printflag
    echo "Volume   ="
    mov ax,8h
    call printflag        
    echo "Directory="
    mov ax,10h
        call printflag
    echo "Archive  ="
        mov ax,20h
    call printflag
dosexit:mov ax,4c00h ; dos exit
    int 21h
    end start