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

end;
end;
header1;
end;

procedure finish_up;
begin
writeln;
writeln('Here is a profile of the values returned for ',
all of the possible ports:');
header2;
for b:=0 to 255 do
write(b:4,c[b]:6);
header2;
writeln(count,' ports may possibly be active');
writeln;
writeln('Finished.')
end;
begin
initialize;
scan_all_ports;
finish_up
end.


Приложение 3.4. Текст программы считывания данных из порта
(Ассемблер).

inport_code segment 'code'

public inport

inport proc far
push bp
mov bp,sp
mov dx,[bp+6]
in al,dx
pop bp
ret 2

db '(C) Copyright Peter Norton, 1983'

inport endp

inport_code ends

end