softoproject.narod.ru

Текст программы поиска активных
         портов (Паскаль).
              
              
         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]
            i : integer;
          begin
            writeln;
            for i := 1 to 8 do
              write (' Port Val');
            writeln;
          end;
          
         procedure header2;
          var [static]
            i : integer;
          begin
            writeln;
            for i := 1 to 8 do
              write (' Val Count');
            writeln;
          end;  
         procedure initialise;
           begin
             count := 0;
             headc := 0;
             for b := 0 to 255 do
               c[b] := 0;
             for w := 1 to 25 do
               writeln;
             writeln('Program for INSIDE THE IBM PERSONAL COMPUTER');
             writeln('(C) Copyright Peter Norton, 1983');
             writeln('Listing 3.3: PORTTEST - read all ports');
             writeln;
             writeln('The following may be active ports:');
             header1;
           end;  

         procedure scan_all_ports;
           begin
             for w:=0 to maxword do
               begin
                 b:=inport(w);
                 c[b]:=c[b]+1;
                 if not(b in [wrd(0),78,110,188,202,203,207,254,255])
                 then
                   begin
                     write(w:6,b:4);
                     count:=count+1;
                     headc:=headc+1;
                     if headc>159 then
                       begin
                         headc:=0;
                         header1;
                       end;
                   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
                    ГЛАВА 4. ОСНОВЫ ОРГАНИЗАЦИИ ДОС
                    _______________________________
                
              В  этой  главе  будет  кратко  рассмотрена  система ДОС, 
         основная операционная система IBM/PC.  Мы  не  будем  слишком 
         подробно  рассматривать  ее,  частично  потому  что ДОС может 
         составить достаточный предмет для  нескольких  книг  сама  по 
         себе,  а  частично потому, что эта книга в основном посвящена 
         внутренней организации IBM/PC, а не организации ДОС. 
              Но все же, поскольку ДОС  очень  широко используется  на 
         IBM/PC,  необходимо  иметь  определенные  представления об ее 
         организации. Так как основное внимание в этой книге уделяется 
         наиболее   сложным   возможностям   IBM/PC,  мы  покажем  как 
         осуществляется доступ к этим возможностям с  помощью  средств 
         операционной системы ДОС. 
              Здесь  тесно  соприкасаются  все  три упоминавшиеся выше 
         области интересов. Практически  все,  о  чем  пойдет  речь  в 
         данной   главе,   относится   к  IBM/PC,  совместимым  с  ней 
         компьютерам,  а   также   к   компьютерам,   работающим   под 
         управлением МS-DOS. 
                    
              4.1.