Ассемблер и программирование для IBM PC



         

ГЛАВА 23. Прерывания BIOS и DOS - часть 43


MOV AH,47H ;Получить текущий каталог MOV DL,00 LEA SI,PATHNAM INT 21H A10LOOP: CMP BYTE PTR [SI],0 ;Конец имени пути доступа JE A20 ; да - выйти MOV AL,[SI] ;Выдать на экран MOV DL,AL ; имя пути доступа CALL B10DISP ; побайтно INC SI JMP A10LOOP A20: RET ;Выход в DOS MAIN ENDP

B10DISP PROC NEAR MOV AH,02 ;в DL - адрес элемента INT 21H ;Функция вывода на экран RET B10DISP ENDP

CODESG ENDS END BEGIN

Ассемблер для IBM PC. Программы. 132

TITLE BIOREAD (COM) Чтение дискового сектора через BIOS CODESG SEGMENT PARA 'Code' ASSUME CS:CODESG,DS:CODESG,SS:CODESG,ES:CODESG ORG 100H BEGIN JMP MAIN ; --------------------------------------------------------- RECDIN DB 512 DUP(' ') ;Область ввода ENDCDE DB 00 CURADR DW 0304H ;Начало (дорожка/сектор) ENDADR DW 0501H ;Конец (дорожка/сектор) READMSG DB '*** Read error ***$' SIDE DB 00 ; --------------------------------------------------------- MAIN PROC NEAR MOV AX,0600H ;Функция прокрутки экрана A20LOOP: CALL Q10SCR ;Очистить экран CALL Q20CURS ;Установить курсор CALL C10ADDR ;Определить адрес на диске MOV CX,CURADR MOV DX,ENDADR CMP CX,DX ;Последний сектор? JE A90 ; да - выйти CALL F10READ ;Получить дисковую запись CMP ENDCDE,00 ;Ошибка чтения? JNZ A90 ; да - выйти CALL G10DISP ;Вывести сектор на экран JMP A20LOOP ;Повторить A90 RET ;Завершить программу MAIN ENDP ; Вычислить следующий адрес на диске: ; ---------------------------------- C10ADDR PROC NEAR MOV CX,CURADR ;Последняя дорожка/сектор CMP CL,10 ;Последний сектор? JNE C90 ; нет - выйти CMP SIDE,00 ;Обойти, если сторона = 0 JE C20 INC CH ;Увеличить номер дорожки C20: XOR SIDE,01 ;Сменить сторону MOV CL,01 ;Установить сектор = 1 MOV CURADR,CX C90: RET C10ADDR ENDP ; Чтение дискового сектора: ; ------------------------ F10READ PROC NEAR MOV AL,01 ;Число секторов MOV AH,02 ;Функция чтения LEA BX,RECDIN ;Адрес буфера MOV CX,CURADR ;Дорожка/сектор

Ассемблер для IBM PC. Программы. 133

MOV DH,SIDE ;Сторона MOV DL,01 ;Дисковод B INT 13H ;Выполнить ввод CMP AH,00 ;Ошибка чтения? JZ F90 ; нет - выйти MOV ENDCDE,01 ; да: CALL X10ERR ; ошибка чтения F90: INC CURADR ;Увеличить номер сектора RET F10READ ENDP ; Вывод сектора на экран: ; ---------------------- G10DISP PROC NEAR MOV AH,40H ;Функция вывода на экран MOV BX,01 ;Номер устройства MOV CX,512 ;Длина LEA DX,RECDIN INT 21H RET G10DISP ENDP ; Очистка экрана: ; -------------- Q10SCR PROC NEAR MOV AX,0600H ;Полный экран MOV BH,1EH ;Установить цвет MOV CX,0000 ;Функция прокрутки MOV DX,184FH INT 10H RET Q10SCR ENDP ; Установка курсора: ; ----------------- Q20CURS PROC NEAR MOV AH,02 ;Функция установки MOV BH,00 ; курсора MOV DX,0000 INT 10H RET Q20CURS ENDP ; Вывод сообщения об ошибке на диске: ; ---------------------------------- X10ERR PROC NEAR MOV AH,40H ;Функция вывода на экран MOV BH,01 ;Номер устройства MOV CX,18 ;Длина сообщения LEA DX,READMSG INT 21H RET X10ERR ENDP CODESG ENDS END BEGIN




Содержание  Назад  Вперед