"П.Нортон "Программно-аппаратная организация компьютера IBM PC"" - читать интересную книгу автора

assume cs:beepseg

beep proc far

cli

mov bx,3000
in al,61h
push ax
more: and al,0fch
out 61h,al
mov cx,50
11: loop 11
or al,2
out 61h,al

mov cx,50
12: loop 12
dec bx
jnz more
pop ax
out 61h,al

sti

int 20h
beep endp

beepseg ends

end


Приложение 3.3. Текст программы поиска активных портов (Паскаль).

program porttest (output);

function inport (x : word) : byte;
external;

var
count : word;
b : byte;
w : word;
c : array [wrd(0)..255] of word;
headc : word;

procedure header1;
var [static]