home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 557 / memscan / info.pas < prev    next >
Pascal/Delphi Source File  |  1993-04-23  |  7KB  |  96 lines
  1.                                 UNIT INFO;
  2.  
  3. {*************************************************************************}
  4. { Cette unité fait partie du listing MEMSCAN.PAS... Elle donne les données}
  5. {nécessaires pour définir les différentes interruptions.                  }
  6. {                                                                         }
  7. { Auteur : Cédric DELAYRE                                                 }
  8. {          7,rue de la BENATTE                                            }
  9. {          33000 BORDEAUX                                                 }
  10. {          FRANCE                                                         }
  11. {                                                                         }
  12. { Date dernière modification : 25 Février 1993                            }
  13. {                                                                         }
  14. {     COPYRIGHTS BY Cédric Delayre                                        }
  15. {*************************************************************************}
  16.  
  17. INTERFACE
  18. Var      tableauvec                       : Boolean;
  19.          Function InfoVEC(vecteur : Byte) : String;
  20.  
  21. IMPLEMENTATION
  22. Var  vec        : Array [0..$FF] Of String[40];
  23.  
  24. PROCEDURE VECTE;
  25. {##########################################################################}
  26. Var  x   : Byte;
  27.  
  28. BEGIN
  29. tableauvec :=true;
  30. vec[0] :='Division par zéro';                       vec[$10] :='Fonctions vidéo';
  31. vec[$20] :='Fin de programme DOS';                  vec[1] :='Pas à pas';
  32. vec[$11] :='Equipement installé';           vec[$21] :='Fonctions DOS'; vec[2] :='NMI / Parité';
  33. vec[$12] :='Taille de la mémoire';          vec[$22] :='Adresse de terminaison DOS'; vec[3] :='Point de rupture';
  34. vec[$13] :='Disquettes/disque dur';         vec[$23] :='Sortie de ^C DOS'; vec[4] :='Dépassement supérieur';
  35. vec[$14] :='BIOS asynchrone (COMx)';        vec[$24] :='Erreur DOS critique'; vec[5] :='Impression d''écran';
  36. vec[$15] :='Cassette/divers';               vec[$25] :='Lecture disks absolue'; vec[6] :='Opcode non valide (2/3/486)';
  37. vec[$16] :='Clavier';                       vec[$26] :='Ecriture disks absolue'; vec[7] :='Emulation de co-processeur';
  38. vec[$17] :='Imprimante (LPTx)';             vec[$27] :='Programme résident'; vec[8] :='Interruption matérielle pour horloge';
  39. vec[$18] :='Entrée ROM BASIC';              vec[$28] :='DOS inactif'; vec[9] :='Interruption matérielle pour clavier';
  40. vec[$19] :='Chargeur d''amorce';            vec[$29] :='Caractère rapide affiché';
  41. vec[$A] :='Contrôleur d''interruptions en cascade';
  42. vec[$1A] :='Heure';                         vec[$2A] :='Réseau local'; vec[$B] :='Adaptateur asynchrone';
  43. vec[$1B] :='^C du clavier';                 vec[$2B] :='Réservé pour DOS'; vec[$C] :='Adaptateur asynchrone';
  44. vec[$1C] :='Tops d''horloge auxiliaires';   vec[$2C] :='Réservé pour DOS'; vec[$D] :='Dépassement de segment';
  45. vec[$1D] :='Pointeur : Options vidéo';      vec[$2D] :='Réservé pour DOS'; vec[$E] :='Interruption matérielle de disquette';
  46. vec[$1E] :='Pointeur : Options disks';      vec[$2E] :='Réservé pour DOS'; vec[$F] :='Interruption matérielle d''imprimante';
  47. vec[$1F] :='Pointeur : Caractères étendus'; vec[$2F] :='Réservé pour DOS';
  48.  
  49. vec[$30] :='Réservé pour DOS';             vec[$40] :='Nouveau vecteur pour INT 13h';    vec[$50] :='Réservé';
  50. vec[$31] :='Réservé pour DOS';             vec[$41] :='Pointeur : Options Disque dur';   vec[$51] :='Réservé';
  51. vec[$32] :='Réservé pour DOS';             vec[$42] :='Nouveau vecteur pour INT 10h';    vec[$52] :='Réservé';
  52. vec[$33] :='Gestionnaire souris';          vec[$43] :='Pointeur : Polices EGA';          vec[$53] :='Réservé';
  53. vec[$34] :='Réservé pour DOS';             vec[$44] :='Novell NetWare';                  vec[$54] :='Réservé';
  54. vec[$35] :='Réservé pour DOS';             vec[$45] :='Réservé pour DOS';                vec[$55] :='Réservé';
  55. vec[$36] :='Réservé pour DOS';             vec[$46] :='Pointeur : Options Disque dur';   vec[$56] :='Réservé';
  56. vec[$37] :='Réservé pour DOS';             vec[$47] :='Réservé';                         vec[$57] :='Réservé';
  57. vec[$38] :='Réservé pour DOS';             vec[$48] :='Réservé';                         vec[$58] :='Réservé';
  58. vec[$39] :='Réservé pour DOS';             vec[$49] :='Réservé';                         vec[$59] :='Réservé';
  59. vec[$3A] :='Réservé pour DOS';             vec[$4A] :='Interruption horloge temps réel'; vec[$5A] :='Réservé';
  60. vec[$3B] :='Réservé pour DOS';             vec[$4B] :='Réservé';                         vec[$5B] :='Réservé';
  61. vec[$3C] :='Réservé pour DOS';             vec[$4C] :='Réservé';                         vec[$5C] :='Réservé';
  62. vec[$3D] :='Réservé pour DOS';             vec[$4D] :='Réservé';                         vec[$5D] :='Réservé';
  63. vec[$3E] :='Réservé pour DOS';             vec[$4E] :='Réservé';                         vec[$5E] :='Réservé';
  64. vec[$3F] :='Gestionnaire de recouvrement'; vec[$4F] :='Réservé';                         vec[$5F] :='Réservé';
  65.  
  66. vec[$60] :='Applications';                   vec[$70] :='Horloge temps réel';
  67. For x:=$80 To $F0 do vec[x]:='Interpréteur BASIC';
  68. vec[$61] :='Applications';                   vec[$71] :='IRQ9 redirigée vers IRQ2';
  69. For x:=$F1 To $FF do vec[x]:='Applications';
  70. vec[$62] :='Applications';                   vec[$72] :='IRQ10 réservée';
  71. vec[$63] :='Applications';                   vec[$73] :='IRQ11 réservée';
  72. vec[$64] :='Applications';                   vec[$74] :='IRQ12 souris / réservée';
  73. vec[$65] :='Applications';                   vec[$75] :='Redirigée vers NMI';
  74. vec[$66] :='Applications';                   vec[$76] :='IRQ14 Contrôleur disque dur';
  75. vec[$67] :='Gestionnaire de mémoire paginé'; vec[$77] :='IRQ15 réservée';
  76. vec[$68] :='Réservé';                        vec[$78] :='Réservé';
  77. vec[$69] :='Réservé';                        vec[$79] :='Réservé';
  78. vec[$6A] :='Réservé';                        vec[$7A] :='Novell NetWare';
  79. vec[$6B] :='Réservé';                        vec[$7B] :='Réservé';
  80. vec[$6C] :='Réservé';                        vec[$7C] :='Réservé';
  81. vec[$6D] :='Réservé';                        vec[$7D] :='Réservé';
  82. vec[$6E] :='Réservé';                        vec[$7E] :='Réservé';
  83. vec[$6F] :='Réservé';                        vec[$7F] :='Réservé';
  84.  
  85. END;
  86.  
  87. FUNCTION InfoVEC;
  88. {#########################################################################}
  89. BEGIN
  90. If tableauvec=False Then VECTE;
  91. InfoVEC :=vec[vecteur];
  92. END;
  93.  
  94. BEGIN
  95. TableauVec :=False;
  96. END.