Проверка готовности накопителя

; Проверяем корректность и готовность устройства. ; Полностью завершенная COM-программа. codeseg segment assume CS:codeseg, DS:codeseg, ES:codeseg org 100h Begin: jmp Start ; ----переменные---- Intvec dd ? ;старый вектор прерывания 24h Luukku db 'Disk not valid or ready. Hit Esc!',10,13,'$' Start: ;------------ Основная программа ----------- ;Перехватываем прерывание 24h push ES mov AX,3524h ;вектор int 24h записывается в ES:BX int 21h mov word ptr Intvec,BX ;смещение mov word ptr Intvec[2],ES ;сегмент pop ES ;load a new int 24h mov AX,2524h ;новый вектор 24h mov DX,offset CError ;адрес int 21h ;код для проверки готовности устройства mov DL,1 ;1 - A:, 2 - B: и т.д.. mov AH,36h ;функция определения свободного места на диске int 21h cmp AX,-1 ;AX - число секторов в кластере -1 je Loppu ;выход если нет диска или не готов ;устройство готово ;здесь ваш код.... Loppu: int 20h ;завершаем COM-программу ;-------- новое прерывание int 24h ----------------- assume DS:nothing ;будут использоваться дальние вызовы CError proc far pushf ;сохраняем флаги or AH,AH js EiLevyke push DX push DS mov AX,CS mov DS,AX assume DS:Codeseg mov DX,offset Luukku mov AH,9 ;выводим строку DS:DX int 21h mov AH,0 int 16h ;ждем нажатия клавиши cmp AL,27 ;это Esc ? jne EiEsc mov AH,4Ch ;завершаем программу int 21h EiEsc: pop DS assume DS:nothing pop DX popf mov AL,1 ;еще раз iret ;возвращаем управление главной программе EiLevyke: popf ;восстанавливаем флаги jmp CS:Intvec ;вызываем старый обработчик int 24h CError endp codeseg ends end Begin