FR 2559910 A1 19850823 FR 8502238 A 19850215 Un analyseur de spectre est essentiellement un récepteur qui est syntonisé sur une bande de fréquences ou balaye cette dernière et dans lequel l'amplitude des signaux reçus est affichée sur un tube cathodique en fonction de la fréquence. Il est souvent souhaitable d'apporter des réglages à l'information du signal affiché à des fins d'étalonnage, et il est également souhaitable de quantifier les caractéristiques de l'information affi- chée, telles que l'amplitude et la fréquence du signal. C Ces fonctions sont mises en oeuvre efficacement si l'in- formation est convertie de la forme analogique à la forme numérique et est stockée dans une mémoire. Une telle numérisation de l'information facilite également l'auto- matisation des fonctions de l'analyseur de spectre. Dans les brevets US n 4.253.152; 4.264.958; 4.257.104; et 4.244.024 se trouve décrit un analyseur automatique de spectre, qui possède un cer- tain nombre de dispositifs avancés de traitement et d'ana- lyse des données, dont plusieurs sont raccordés à des marques qui peuvent être placées sur l'écran d'affichage. Ces dispositifs permettent à l'utilisateur de déterminer par exemple la fréquence et l'amplitude d'un point parti- culier sur le tracé d'un signal de l'affichage, o il a placé une marque. L'utilisateur peut également désirer que la marque soit placée au niveau du signal le plus intense représenté sur l'affichage, avec une fonction de recherche de pics, et l'affichage représentera la fréquence et l'amplitude du point trouvé lors de la re- cherche. Un autre analyseur de spectre de l'art anté- rieur, à savoir le modèle 8566A de la société dite Hewlett- Packard, comportait un dispositif supplémentaire per- mettant à l'utilisateur de placer une marque sur le pic le plus élevé en second. Une autre caractéristique du dispositif de l'art antérieur permet à l'utilisateur de spécifier une fréquence particulière sur le dispositif d'affichage, puis de déclencher la mise en place d'une marque sur le tracé du signal dans l'affichage, pour cette fréquence. L'analyseur de spectre affiche alors l'amplitude du si- gnal pour la fréquence choisie. L'analyseur de spectre de- l'art antérieur peut être commandé & partir d'un clavier situé sur le panneau avant de l'appareil ou à partir d'un ordinateur à distance raccordé à l'analyseur au moyen du bus d'in- terface (HP-IB) créé par la société dite Hewlett-Packard. Un ordinateur à distance peut par conséquent, en utili- sant les commandes qui représentent les fonctions dispo- nibles à partir du panneau frontal de l'appareil, comman- der par programmation l'analyseur de spectre. La forme de réalisation préférée de la pré- sente invention est un perfectionnement de l'analyseur de spectre de l'art antérieur mentionné précédemment et fournit un certain nombre de fonctions qui ne sont pas disponibles dans cet analyseur de spectre de l'art antérieur. Ces nouvelles fonctions présentent des avan- tages importants du point de vue de l'acquisition et de l'utilisation de données de l'analyseur de spectre. L'une de ces nouvelles fonctions assume l'exécution automatique de fonctions définies par l'uti- lisateur, à la fin de chaque balayage de l'analyseur de fréquence. Dans l'art antérieur, l'utilisateur devait effectuer essentiellement un traitement complémentaire des données délivrées par l'analyseur de spectre, au moyen de ou sous la commande d'un ordinateur extérieur, et il existait un retard lié à un tel traitement. Dans la forme de réalisation préférée selon la présente inven- tion, le traitement peut être effectué beaucoup plus rapidement étant donné qu'il est réalisé par l'analyseur de spectre lui-même lorsqu'il atteint la fin d'un balaya- ge. Cette fonction permet par exemple à l'utilisateur de commander l'analyseur pour qu'il indique si les résul- tats d'un essai en cours sont hors des limites réglées par l'utilisateur ou bien si un signal particulier recher- ché a été trouvé. Une autre nouvelle fonction fournie permet à l'utilisateur de spécifier une amplitude particulière d'un signal et de demander qu'une marque soit placée sur le signal affiché, au niveau de cette amplitude. Cette fonction de mise en place d'une marque d'amplitude facilite grandement le contrôle des dispositifs électro- niques tels que des filtres et des amplificateurs et facilite également le repérage ou l'identification de signaux. Il s'agit d'un perfectionnement important par rapport aux dispositifs disponibles antérieurement qui permettaientuniquement la mise en place manuelle d'une marque sur le dispositif d'affichage ou la spécification de la fréquence pour laquelle une marque devait apparaî- tre, étant donné que ceci élimine essentiellement des tentatives par tatonnements pour détecter des amplitudes spécifiques du signal. Fréquemment un certain nombre de signaux possédant des amplitudes variables sera affiché sur l'é- cran d'un analyseur de spectre et l'utilisateur décidera de déterminer la fréquence et l'amplitude de chacun des signaux. Un dispositif de l'art antérieur fournit une fonction appropriée de mise en place d'une marque sur le signal le plus intense et d'affichage de la fréquence et de l'amplitude de ce signal. Une fonction de mise en place d'une marque pour le signal le plus intense en second peut être utilisée pour mesurer chacun des autres signaux dans l'ordre de leurs amplitudes. Cepen- dant, étant donné que les amplitudes des signaux peu- vent n'avoir aucune relation avec leur ordre sur le dis- positif d'affichage, la marque peut sauter sur de l'écran d'une manière peu appropriée, lorsqu'elle est déplacée d'un signal à un autre. L'une des nouvelles caractéristiques de la forme de réalisation préférée permet à l'utilisateur de commander l'analyseur de spectre pour qu'il place la marque sur le pic immédiatement suivant à droite ou à gauche de la position actuelle de la marque. Le fait de prévoir une fonction de mise en place d'une marque à gauche ou à droite du pic immédiatement suivant a pour effet que la forme de réalisation préférée de la présente invention fournit un moyen grandement perfectionné pour mesurer la fréquence et l'amplitude de chaque signal dans l'ordre o il apparaît sur le dispositif d'affichage. D'autres caractéristiques et avantages de la présente invention ressortiront de la description donnée ci-après prise en référence. aux dessins annexés, sur lesquels: - les figures lA-1F et 2A-2E sont des sché- mas d'un ensemble contrôleur pour un analyseur de spectre selon la forme de réalisation préférée de la présente invention; - les figures 3 et 4 sont des organigramems d'une fonction permettant l'exécution de programmes défi- nis par l'utilisateur, à la fin d'un balayage de l'analy- seur de spectre; - les figures 5A-5B représentent un organi- gramme d'une fonction de mise en place d'une marque d'am- plitude; - la figure 6 illustre la mise en oeuvre de la fonction de mise en place d'une marque d'amplitu- de de la figure 5; - la figure 7 est un organigramme général illustrant la mise en oeuvre de plusieurs fonctions de mise en place d'une marque sur un pic; - les figures 8A-8B représentent des orga- nigrammes d'une fonction servant à placer une marque sur le pic immédiatement suivant à droite ou à gauche de la position actuelle de la marque; et - la figure 9 illustre la mise en oeuvre de la fonction des figures 8A-8 B. Ci-après on va donner une description dé- taillée de la forme de réalisation préférée de l'inven- tion. La présente invention inclut des perfection- nements appliqués à l'appareil décrit dans le brevet US n 4.253.152. Cet appareil est un analyseur de spec- tre comportant des circuits servant à numériser des si- gnaux analogiques mesurés et à afficher et à analyser de différentes manières les signaux mis sous forme numé- rique. La description donnée ci-après concerne les as- pects de la présente forme de réalisation de la présente invention, qui diffèrent de la forme de réalisation anté- rieure. La première différence réside dans le dispositif contrôleur, représenté sur les figures 38 et 39 du bre- vet mentionné plus haut et dont la description est donnée principalement dans le passage compris entre la colonne 24, ligne 65 et la colonne 25, ligne 47 dudit brevet. Les figures 1A-1F et 2A-2E représentent l'ensemble contrôleur de la forme de réalisation préfé- rée, qui remplace l'ensemble contrôleur du brevet anté- rieur. Les composants représentés sous la forme de blocs sur ces figures sont identifiés dans l'annexe III. Le bloc 102 désigne une horloge comportant un oscillateur à quartz qui fonctionne à une fréquence égale approxima- tivement à 14,7 mégahertz. Le signal de sortie de l'os- cillateur est subdivisé une fois pour l'obtention du signal d'horloge du processeur et deux fois pour la com- mande cadencée servant à faire fonctionner la micropla- quette du bus HP-IB. Un circuit 104 de remise à l'état initial vérifie que l'alimentation en énergie 106 se situe dans les tolérances avant que le processeur commence à fonc- tionner, de sorte qu'il n'existe aucune perte ou destruc- tion par inadvertance du contenu de la mémoire. Des cir- cuits 108 de tamponnage pour le décodage de lecture/enre- gistrement forment les tampons prévus pour les mémoires (RAM et ROM), servant à valider des sorties de sélection de débit binaire élevé ou de débit binaiie faible. Un décodeur d'adresses 110 comporte cer- tains décodeurs de type standard (modèles LS139 et LS138) et un couple de décodeurs du type réseaux logiques pro- grammables, qui effectuentl'adressage des mémoires ROM et RAM. Le décodeur d'adresses 112 fournit un décodage des adresses pour plusieurs autres circuits situés dans l'ensemble contrôleur, comme par exemple une micropla- quette de minuterie d'interface en parallèle, une micro- plaquette du bus HP-IB et des tampons du bus de trans- mission de données, qui réalisent un tamponnage du bus de l'appareil. Les tampons sont représentés dans le bloc 114 et isolent le bus de l'appareil du bus de transmis- sion de données du processeur afin de le protéger vis- à-vis d'interférences à haute fréquence à l'intérieur de l'appareil. La sortie de ces tampons commande le reste de l'appareil. Les bus et les types de signaux dispo- nibles dans ces bus sont les mêmes que ceux présents dans l'appareil décrit dans le brevet antérieur. Le bloc 116 inclut des dispositifs de com- mande pour des tampons du bloc 114. Le bloc 118 comporte des générateurs d'échantillons pour le bus d'entrée/ sortie (I/O), afin de permettre une sélection entre la section d'affichage et la section à haute fréquence, dont chacune possède son propre jeu d'adresses. - Une microplaquette 120 de l'interface péri- phérique et de la minuterie est utilisée pour s'occuper de différentes lignes de commande et pour commander cer- taines diodes à luminescence LED pour l'analyse de signa- ture pour le diagnostic de défauts. Le bloc 122 inclut une microplaquette du bus (HP-IB) d'interface fabriquée par Hewlett-Packard, ainsi que deux microplaquettes de tampon. En outre il est prévu un jeu de commutateurs d'adresses et un tampon U14 (un circuit LS244) permettant de les renvoyer en retour par lecture dans le bus de transmission des don- nées du processeur. Le bloc 202 est un décodeur d'interruptions (un circuit LS148). Un bloc d'auto-test 204 inclut cer- tains registres qui sont utilisés lors d'un contrôle de procédure & autotest. Ce sont des registres o l'on peut introduire une adresse et l'extraire ensuite en la renvoyant dans le bus de transmission de données afin de détecter s'ils sont réellement ce qu'ils sont censés être. Un microprocesseur 206 est utilisé pour commander le fonctionnement de l'analyseur de spectre. Un microprocesseur modèle 68000 fabriqué par la société dite Motorola et fonctionnant à une fréquence de 8 méga- hertz est utilisé a la place du processeur 2015 représen- té sur la figure 38A du brevet antérieur. Le micropro- cesseur modèle 68000 est un microprocesseur standard disponible dans le commerce, et le jeu d'instructions, pour ce microprocesseur peut être trouvé dans bon nombre de livres publiés par la société dite PrentissHall, tel que le "Manuel d'utilisation du microprocesseur & 16 bits MC68000", troisième édition, 1982. Etant donné que le jeu d'instructions de microprogrammation pour ce processeur est différent du jeu d'instructions pour le processeur décrit dans le brevet cité, les programmes indiqués dans les annexes de ce brevet ont été compilés à nouveau pour s'appliquer au microprocesseur MC68000. Cependant toutes les fonc- tions décrites dans le brevet cité sont également effec- tuées par la présente forme de réalisation, et ce essen- tiellement de la même manière, en tenant compte des dif- férences entre les deux processeurs et leurs jeux d'ins- tructions. Il faut noter que le signal de remise & l'état initial du processeur, désigné sous le terme POP dans le brevet antérieur cité, est maintenant désigné sous le terme RESET (remise à l'état initial) dans la présente forme de réalisation, et que l'adresse de départ 40 pour l'exécution des programmes est maintenant devenue 0. Il faut également noter que la ligne HSTM n'est plus utilisée, et qu'un circuit de blocage 3801 n'est plus nécessaire, cette fonction étant maintenant effectuée par le microprocesseur. Le bloc 208 comporte un dispositif logique de décodage des interruptions et le bloc 210 comporte des cavaliers pour l'analyse de signature, qui peuvent être raccordés de manière à obliger le microprocesseur 206 à effectuer, d'une manière répétitive, un certain nombre d'opérations présélectionnées, à des fins de dia- gnostic. Le bloc 212 contient des mémoires mortes (ROM) qui contiennent les programmes pour les différentes fonctions exécutées par l'analyseur de spectre. Ces pro- grammes incluent les programmes décrits dans le brevet antérieur cité ainsi que les programmes décrits ci-après. Le bloc 214 contient une mémoire à accès direct (RAM), dans laquelle des données collectées par l'analyseur de spectre ainsi que les résultats de manipulations sur les données et différents paramètres et instructions modifiables sont mémorisés. A la fois la mémoire RAM et les mémoires ROM sont incluses sur la même plaquette à circuits imprimés que le microprocesseur, plutôt que d'être situées sur des plaquettes à circuits imprimés séparées, comme dans le dispositif de l'art antérieur. Bien que l'ensemble contrôleur précédent utilisant le microprocesseur MC68000 soit décrit en tant que forme de réalisation préférée, les spécialistes de la technique comprendront que les programmes suivants pourraient tout aussi aisément être utilisés dans la forme de réalisation décrite dans le brevet antérieur cité, moyennant leur compilation pour qu'ils travaillent avec le processeur de cette forme de réalisation. Les figures 3 et 4 représentent des dia- grammes pour une fonction qui exécute automatiquement un programme défini par l'utilisateur, à la fin de chaque balayage de l'analyseur de spectre. A titre de simplifi- cation, cette fonction est désignée sous le terme de "à la fin du balayage" ou ONEOS. La caractéristique ONEOS inclut en réalité deux fonctions séparées dans le temps. L'une est l'intro- duction d'une suite de commande à distance standards introduite dans l'analyseur de spectre par l'utilisateur. L'analyseur de spectre mémorise ces commandes en vue de leur utilisation ultérieure, et positionne un dra- peau en mémoire pour indiquer qu'une telle suite de com- mande a été mémorisée. L'autre fonction intervient en- suite à la fin de chaque balayage de l'analyseur de spec- tre, lorsque ce dernier accède à la suite de commande et exécute les commandes. Des exemples de ces suites de commande sont le contrôle de limite ou la reprogram- mation de la fréquence centrale de l'appareil. Toute commande valable de l'analyseur de spectre peut être introduite dans la suite de commandes. La figure 3 représente la séquence d'entrée de la suite de commandes. Tout d'abord l'utilisateur sélectionne un dispositif d'entrée, de façon typique le clavier ou un ordinateur à distance raccordé à l'ana- lyseur de spectre par l'intermédiaire du bus HP-IB, bien qu'il soit possible d'introduire tout aussi bien de tel- les suites de commande à partir du panneau frontal de l'analyseur de spectre. On introduit la suite de comman- des en introduisant tout d'abord une commande "ONEOS" suivie par une suite de commandes entre des guillemets doubles pour que l'analyseur de spectre fonctionne. La suite de commandes est ensuite mémorisée dans la mémoire de l'analyseur de spectre et un drapeau est positionné pour indiquer que cette suite de commandes a été intro- duites. Un exemple d'une telle suite de commandes est le suivant: ONEOS "MKPK HI; IF MA, LT, -30 THEN TEXT 'SIGNAL TOO LOW'; SRQ 1;ENDIF;" Cette suite de commande provoque l'exécution d'une recher- che d'un pic à marquer,puis le contrôle de l'amplitude que la marque a trouvé, pour voir s'il est inférieur à - 30 dBm. S il est inférieur à ce niveau, alors l'analyseur de spectre affiche sur l'écran le message "SIGNAL TOO LOW" (signal trop faible) pour alerter l'opé- rateur de cet état indésirable, si bien que l'opérateur peut prendre les dispositions appropriées. L'appareil produit également une demande de service par l'inter- médiaire de l'accès distant situé sur le bus HP-IB afin de notifier à un contrôleur que quelque chose fonctionne mal, de sorte qu'il peut délivrer une alarme ou prendre une autre disposition prédéterminée. La figure 4 est un organigramme de la pro- cédure servant à contrôler s'il existe une suite de com- mandes ONEOS devant être exécutée et à en déclencher l'exécution, si c'est le cas. Dans la programmation de l'analyseur de spectre, il existe un sous-programme qui fonctionne à tout moment et qui fait redémarrer le bala- yage, chaque fois que l'analyseur arrive à la fin d'un balayage. Ce sous-programme est désignéparDOEOSetestrepro- duit aux lignes 125 à 140 dans l'annexe II. Dans ce sous- programme, on effectue un contrôle pour voir si le dra- peau ONEOS a été positionné, pour indiquer qu'une com- mande ONEOS a été introduite. S'il a été introduit, on appelle une procédure désignée DOSOFTKEY(-1) (lignes 553-567 dans l'annexe II) et la suite de commandes est transmise à l'interpréteur de commande du bus HPIB, pour être exécutée comme si elle constituaitun enseiblequel- conque de commandespériphétiques.Lorsque l'exécution de la suite de commandes est achevée, le balayage suivant est alors déclenché. Ce programme se déroule alors sur une base continue. Il faut noter que la fonction ONEOS est utile non seulement dans des analyseurs de spectre, mais dans d'autres types d'appareils de mesure à fréquence de balayage. Un exemple serait des analyseurs automati- ques de réseaux, contenant des processeurs ou des contrô- leurs incorporés analogues aux contrôleurs de la forme de réalisation préférée. Une fonction exécutée par la présente forme de réalisation est la mise en place d'une marque sur une trace située sur le dispositif d'affichage de l'ana- lyseur de spectre, au niveau d'une amplitude spécifiée. Cette fonction de mise en place d'une marque d'amplitude est illustrée sur les organigrammes des figures 5A-5C -et le résultat de la fonction est illustré sur la figure 6. La fonction est appelée au moyen tout d'a- bord de la spécification d'une marque du type "amplitude" et ceci règle le mode de fonctionnement. Ensuite le ni- veau d'amplitude, sur lequel la marque doit être placée, est spécifié, et l'analyseur de spectre place la marque au niveau de cette amplitude sur la trace des données sur l'écran (s'il peut la trouver). S'il ne peut pas trouver une trace qui passe par cette amplitude, il dé- termine l'élément qui en est le plus rapproche, de sorte que si quelque chose est situé au-dessus ou au-dessous, 255991 0 il détecte respectivement le point le plus élevé ou le point le plus bas sur la trace. Ce programme de recherche pour la marque est désigné par MKASRCH dans les organigrammes et dans les listings du programme de soutien (voir lignes 107 et suivantes dans l'annexe I). Au début du sous-programme, certains paramètres, incluant un réseau désigné AVOID (voir lignes 155-209 dans l'annexe I), sont initialisés. Ce réseau spécifie les positions, qu'il faut éviter sur le dispositif d'affichage, afin que la marque ne soit pas positionnée au sommet d'autres marques qui existent déjà. Ensuite la trace affichée est extraite et intro- duite dans le tampon o elle peut continuer à être trai- tée. Une fois que ceci est accompli, certains paramètres initiaux de recherche sont initialisés. En particulier la position et l'amplitude de la marque actuelle ainsi que l'amplitude, qui est cherchée, sont réglées. Au début de la recherche, un test est effec- * tué dans le bloc de décision 510 pour déterminer si la marque doit réellement être déplacée ou si elle se trouve déjà au niveau de l'amplitude désirée. Si la réponse est oui, la recherche est effectuée et rien d'autre n'a besoin d'être effectué. Normalement ce n'est pas le cas, en sorte que le sous-programme de recherche à gauche et à droite de la position actuelle de la marque est déclenché. Son but est d'effectuer une recherche des deux côtés de la position actuelle de la marque pour voir si la trace intersecte le niveau d'amplitude désirée, à un endroit quelconque sur le dispositif d'affichage. Tout d'abord la recherche s'effectue dans une direction vers le bord de l'écran puis dans l'autre direction vers l'autre bord de l'écran, sauf si un point satisfaisant à la condition de recherche est trouvé avant que le bord de l'écran ne soit atteint. Le programme pour les sous-programmes de recherche à gauche et de recherche à droite est indiqué aux lignes 116 à 153 de l'annexe I. La recherche s'effec- tue sur une valeur de donnée à la fois. Une seule va- leur de donnée est extraite à la fois pour savoir si elle est supérieure ou inférieure à la valeur désirée. Le programme recherche quelque chose qui soit est égal à la valeur désirée, soit passe par la valeur désirée d'un point au suivant. Si la valeur de donnée est initia- lement supérieure à la valeur désirée, alors le programme recherche quelque chose qui est inférieur ou égal à la valeur désirée. Lorsque ce quelque chose est trouvé, c'est qu'alors la trace est passée par la valeur désirée entre ces deux points numérisés. Une fois qu'une valeur possible est trouvée, elle est mémorisée en vue de son utilisation ultérieure au cours de la procédure. Si la recherche à gauche a été couronnée de succès, mais que le point de donnée trouvé est une marque existante, cette valeur n'est pas mémorisée et la recherche à gauche se poursuit étant donné qu'il faut éviter des marques existantes. Une fois que la recherche à gauche est achevée, la recherche à droite est effec- tuée de la nme manière. Si deux positions possibles-ont été trouvées pour la marque, l'une à gauche et l'autre à droite de la position initiale d'une marque, on choisit la position qui est la plus proche de la position ini- tiale dans le domaine des fréquences. Si une seule po - sition possible a été trouvée, on choisit cette position en tant que position pour la marque. Si aucune position possible n'a été trouvée,alors le programme effectue un contrôle pour voir si la posi- tion actuelle de la marque est supérieure à la position désirée. Si c'est le cas, une recherche minimum est ef- fectuée pour déterminer l'élément le plus bas sur l'écran étant donné que ce sera le plus proche de la valeur dési- rée, du point de vue amplitude. De façon analogue, si l'amplitude actuelle de la marque n'est pas inférieure & l'amplitude désirée, une recherche de pic sera effec- tuée étant donné que tous les éléments sur l'écran ont alors une amplitude inférieure & l'amplitude désirée. La marque sera alors placée sur le point le plus élevé du dispositif d'affichage. Une fois que la position de la marque est repérée, la marque est enregistrée sur le dispositif d'affichage et le balayage suivant commence. Cette recher- che est effectuée à chaque fin de balayage, alors que la fonction est validée. La figure 6 illustre les résul- tats d'une opération de mise en place d'une marque d'am- plitude, avec une marque 602 placée au niveau spécifié de - 40 dBm sur les pans d'une trace de signal 604 sur le dispositif d'affichage. Les figures 7, 8A-8B et 9 illustrent une fonction de marque qui identifie le pic suivant sur le dispositif d'affichage comme étant soit à droite, soit à gauche de la position actuelle de la marque. Pour exé- cuter cette fonction, il existe fondamentalement deux sous-programmes dont l'un appelle l'autre. Le premier sous-programme est désigné sous le terme de pic à marquer (MKPK) et détermine tel type de recherche de pic doit être effectué. Il commence sur la ligne 71 de l'annexe I. Comme représenté sur la figure 7, des recherches de pics sont possibles pour le pic le plus élevé et pour le pic le plus élevé en second, ce qui ne sera pas décrit de façon plus détaillée ici, et pour le pic suivant situé à droite ou à gauche, ce qui sera décrit ci-après. Lorsque le sous-programme désiré est spé- cifié par l'utilisateur, le programme extrait les données correctes de la trace et les introduits dans un tampon dans lequel la recherche doit être effectuée, puis se branche sur le sous-programme de recherche approprié. Lorsque les fonctions suivantes de recherche à droite ou à gauche sont spécifiées, le premier sous-programme appelle le second sous-programme et lui transmet les paramètres appropriés pour lui indiquer dans quelle di- rection la recherche doit être effectuée. Une fois que la nouvelle position de la marque a été trouvée, cette marque est enregistrée sur le dispositif d'affichage. Le sous-programme du pic suivant, représen- té sur les figures 8A-8B et listé dans l'annexe I en partant de la ligne 34, utilise un certain nombre de paramètres. Ces derniers incluant la position de départ pour la recherche, la direction de la recherche, la lon- gueur du réseau dans lequel est effectuée la recherche, le seuil audessus ou au-dessous duquel les points de données doivent être ignorés, et un paramètre d'excur- sion qui décrit la hauteur d'un pic par rapport aux don- nées environnantes. Par exemple un pic pourrait être spécifié en tant que signal dans le réseau de données, qui est plus intense, d'au moins 6 dB, que les données de l'autre côté du pic, ce qui fournit une excursion de 6 dB pour chaque mesure. Ces paramètres sont spéci- fiés par l'utilisateur de sorte que ce dernier peut déci- der quelle valeur de pics il faut rechercher et o il faut les rechercher. Une fois que les valeurs initiales ont été positionnées, la recherche est déclenchée dans la direc- tion indiquée. Le but de la recherche est de trouver un point de données qui est plus élevé, d'une valeur égale au moins à la valeur de l'excursion, que les points situés des deux côtés de lui. Pour le but de la recherche, il existe trois variables que l'on utilise pour détermi- ner lorsque le moment o un pic a été trouvé: PEAK(pic), la valeur de courant la plus intense trouvée lors de la recherche; VALLEY1 (vallée), la valeur la plus faible trouvée sur le côté proche du PEAK; et VALLEY2, la valeur la plus faible trouvée sur le côté éloigné du PEAK. La recherche commence avec le sous-program- me de recherche de.VALLEY1, qui consiste à rechercher un point bas ou une vallée entre le point de départ et le pic qui doit être trouvé. La première valeur, qui est extraite du tampon de données, est alors conservée en tant que première valeur VALLEY1 dans le bloc 802. Ensuite un contrôle est effectué pour s'assurer que le point de donnée se situe dans les limites de l'ensemble des paramètres. Simultanément un contrôle est effectué pour savoir si un pic a été trouvé, et s'il l'a été, la procédure est arrêtée et la marque peut être placée sur le dispositif d'affichage à l'emplacement de ce point de données. Ensuite le point de données immédiatement suivant est extrait du tampon et est testé de la même manière pour savoir s'il se situe à l'intérieur des li- mites. Etant donné que l'appareil est encore dans le mode de recherche de VALLEY1, il effectue aussitôt après un contrôle pour voir si le point de donnée est plus bas que le point VALLEY1 actuellement mémorisé. Si c'est le cas, ce point devient le point VALLEY1 étant donné qu'il est plus bas, ce qui indique une pente des- cendante dans la direction de la recherche. Si, d'autre part, le point est plus élevé que le point VALLEY1 actuel, alors le point de donnée est mémorisé en tant que valeur pic et l'appareil passe au mode de recherche du PEAK. A la suite de cela, le point immédiatement suivant de donnée est extrait. Par conséquent, pour chaque point de donnée, un contrôle est tout d'abord effectué pour s'assurer que ce point se situe à l'intérieur des limites, puis une détermination a trois critères est effectuée pour savoir dans lequel des trois modes de recherche suivants 1' appareil se trouve: VALLEY1, VALLEY2 ou PEAK. Alors la poursuite du test des données est effectuée en fonc- tion du mode de recherche qui est utilisé. Une fois que l'appareil se trouve dans le mode de recherche PEAK, chaque nouveau point de donnée sera mémorisé en tant que PEAK tant qu'il est plus éle- vé que la valeur actuelle non mémorisée du PEAK. Lorsque l'on trouve un point de donnée plus bas que le PEAK, alors l'appareil effectue un contrôle pour voir si la différence entre VALLEY1 et PEAK est supérieure au para- mètre d'excursion. Si c'est le cas, alors l'appareil passe au mode de recherche VALLEY2, étant donné que la valeur actuelle de PEAK a été déterminée comme étant un pic lors de l'un des essais. Afin de qualifier un pic devant être marqué sur le dispositif d'affichage, il faut que la différence entre PEAK et VALLEY2 soit également supérieure au para- mètre d'excursion. Si c'est le cas avec le premier point de données une fois que le pic est trouvé, alors la re- cherche est terminée. Si ce n'est pas le cas, alors il faut tester des points successifs de données au moyen de la recherche de VALLEY2. Une fois que l'on a trouvé un point qui est suffisamment bas, la recherche est ter- minée et la marque peut être mise en place sur le dispo- sitif d'affichage. Si l'on trouve un point de donnée qui est plus élevé que le PEAK avant que la condition VALLEY 2 soit satisfaite, l'appareil passe à nouveau au mode de recherche de PEAK. Lorsque l'appareil est dans le mode PEAK, le point immédiatement suivant de données peut être plus bas que le PEAK, diminué du paramètre d'excursion, ce qui ne satisfait pas la première condition pour un pic réel. Comme on peut le voir d'après les blocs en aval du bloc 820 sur la figure 8b, l'appareil revient au mode de recherche de VALLEY 1 jusqu'à ce qu'un nouveau pic possible soit trouvé. Cette partie du sous-programmE permet à l'appareil d'éviter l'interprétation de petits bombements ou dents de scie sur le côté d'une trace en tant que pics, si la hauteur du bombement ne dépasse pas le paramètre d'excursion. Comme cela a été mentionné précédemment, une fois que l'on a trouvé un point de données qui satis- fait aux- conditions de recherche correspondant au fait que PEAK moins VALLEY1 et PEAK moins VALLEY2 sont tous deux supérieurs aux paramètres d'excursion, alors le point de donnée mémorisé en tant que PEAK est le point désiré, et une marque peut être placée en ce point sur le dispositif d'affichage. La figure 9 illustre le fonctionnement de la fonction de recherche du pic immédiatement suivant à droite. La marque commence sur le pic 910. Lorsque la fonction de recherche du pic immédiatement suivant à droite est effectuée, la marque est déplacée jusqu'au pic 911, à savoir le nouveau pic à droite du pic 910. On peut voir que si la fonction de recherche du pic immé- diatement suivant à droite est à nouveau mise en oeuvre, la marque sera placée sur le pic 912, tandis que si l'on utilisait la fonction de recherche du pic immédiatement suivant du brevet antérieur cité, la marque serait située, au lieu de cela, sur le pic 913. Il faut noter que, bien que la caractéris- tique de mise en place d'une marque d'amplitude et les caractéristiques de mise en place d'une marque sur le pic immédiatement suivant à droite et à gauche ont été décrites en liaison avec l'analyseur de spectre, il se- rait possible de les utiliser dans d'autres appareils à fréquence de balayage tels que des analyseurs de ré- seaux. En outre les caractéristiques de mise en place d'une marque sur le pic immédiatement suivant à droite et à gauche pourraient être adaptées de manière à repé- rer des vallées ou des points de minimum pour leur uti - lisation dans des analyseurs de réseaux. Les annexes I et II indiquées ci-après four- nissent les instructions de programmes pour la mise en oeuvre des fonctions décrites ci-dessus et représen- tées sur les figures. La majeure partie des programmes listés dans l'annexe II sont des programmes qui sont appelés par les programmes situés dans l'annexe I, lors- qu'ils sont en cours d'exécution. Ces programmes sont écrits selon le langage ALGOL et peuvent être compi- lés de manière à être utilisés sur n'importe quel proces- seur approprié. L'annexe III est une liste des compo- sants a circuits intégrés situés dans l'ensemble contré- leur représenté sur les figures lA-IF et 2A-2E. APPENDIX I 1 M68KL,L,P,"MRKRS" 2 BEGIN 4 EXTERNAL ARRAY NEWSTATE[O:11],MsTATE[0:38]1,MKBLK,TBUF,TRCD[0:11; INTEGER CONSTANT MERMODE: =30,MRKR:=28,MKRLVL:=29,AMKR:=26,AMLVL: =27, 6 LEVLIN:=15,THRESH:=16,FSTIM:=38; 7 INTEGER TABLE MKRDSP.L:=2050,2055,2155,2160; 8 EXTERNAL INTEGER MKPX,MKACT; 9 PROCEDURE AFILL(A,LENGTH,VAL); VALUE LENGTH,VAL; ARRAY A[*]; INTEGER LENGTH,VAL; EXTERNAL; 11 PROCEDURE LOADTRC(TADR,TLEN,BUF); VALUE TADR,TLEN; INTEGER TADR,TLEN; 12 ARRAY BUF[*]; EXTERNAL; 13 BYTE PROCEDURE TR662(A); VALUE A; DOUBLE A; EXTERNAL; 14 DOUBLE PROCEDURE TRCADRS(TRC,LEN); VALUE TRC; ALPHA TRC; INTEGER LEN; EXTERNAL; 16 DOUBLE PROCEDURE TRCSETUP(TRC,LEN); VALUE TRC; ALPHA TRC; INTEGER LEN; 17 EXTERNAL; 18 PROCEDURE UPDATEMR; EXTERNAL.L; 19 BOOLEAN PROCEDURE MKREL; EXTERNAL.L; INTEGER SUBROUTINE MKRTRC; EXTERNAL.L; 22 BYTE SUBROUTINE MKATST; ENTRY; 23 MKATST:=((RIGHT(MSTATE[MERMODE],8) AND 15)/5)=2; PROCEDURE MKRSAVE; ENTRY; 26 IF MSTATE[MKRMODE]<>0 THEN BEGIN 27 INTEGER POINTER MKPTR; 28 STPNTR(MKPTR,ADRS(MKBLK[3*(RIGHT(MSTATE[MKRMODEI,12) AND 3)])); 29 MKPTR:=MSTATE[MKRMODE]; MKPTR[1]:=MSTATE[MRKR]; 31 IF NOT MKATST THEN MEPTR[2]:=MSTATE[MKRLVL]; 32 END; 34 INTEGER PROCEDURE NXTPK(STRT,XINC,BUF,LEN,THR,XCR); VALUE STRT,XINC,LEN,THR,XCR; 36 INTEGER STRT,XINC,LEN,THR,XCR; ARRAY BUF[#]; 37 BEGIN INTEGER POINTER TRC=REGISTER 11; 38 INTEGER CONSTANT V1SRCH:=0,PKSRCH:=1,V2SRCH:=2,FOUND:=-!; 39 INTEGER NPY=REGISTER 7,NPX,VlY=REGISTER 6,PKY=REGISTER 5,PKX, V2Y=REGISTER h,MODE; 41 DOUBLE TADR=REGISTER 11; 42 PEX: =STRT; 43 VIY:=V2Y:=PKY:-NPY:=IF BUF[STRT] 44 MODE:=V1SRCH; NPX:=STRT+XINC; 46 WHILE NPX≥0 AND NPX 47 NPY:-=BUF[NPXI]; 48 IF NPY 49 CASE MODE OF BEGIN &vlsrc& IF NPY 51 ELSE IF NPY>PKY OR NPY>V1Y+XCR THEN BEGIN 52 PEX:=NPX; 53 PKY:=NPY; 54 MODE:=PKSRCH; END; _ 56 &pksrc& IF NPY>PKY THEN BEGIN PKY:=NPY; PKX:=NPX; END 57 ELSE IF NPY 58 ELSE IF NPY 21 2 5 2559910 APPENDIX I (suite) 59 BEGIN V2Y:=NPY; MODE:=V2SRCH; END ELSE IF NPY 62 ELSE IF NPY 63 ELSE IF NPY>PKY THEN 64 BEGIN PKY:=NPY; PKX:=NPX; MODE:=PKSRCH; END; END; 66 NPX:=NPX+XINC; 67 END; 68 NXTPK:=IF MODE=FOUND THEN PKX ELSE STRT; 69 END; 71 PROCEDURE MEPK(C); VALUE C; ALPHA C; ENTRY; 72 BEGIN BYTE POINTER BP=C; 73 INTEGER MRKRX,MRKRY,NEW,NP, PETHR, PKXCR,CNT,I; 74 IF BP[1]='H THEN LDKEY(@113) ELSE BEGIN 76 LOADTRC(MEIRTRC,1001.TBUF); 77 MRKRX: =MSTATE[MRKR]-i; 78 MRKRY:=MSTATE[MKRLVL 1; 79 PKTHER: -MSTATE[THRESHI; PBXCR: =AMPADC( "MKPX"); 81 IF BP[2]='H TEN BEGIN 82 NEW:=0; CNT:=0; 83 DO BEGIN NP:=NEW; NEW:=NXTPK(NP,1,TBUF,1001,PKTHR,PKXCR); 84 IF NP<>NEW AND NEW<>MRKRX THEN BEGIN I:=CNT; 86 WHILE 1>0 AND TBUF[TRCD[I-1]] 87 TRCD[I]:=TRCD[I-1]; 88 I:=I-1; 89 END; TRCD[I]:=NEW; 91 CNT:=CNT+I; 92 END; 93 END UNTIL NEW=NP; 94 I:=0; WHILE I MRRY OR TBUF[TRCD[I]l=MMY AND 96 TRCD[II≤MRKRX) DO I:=I+1; 97 IF I 98 MSTATE[MRR]: =MRPRX+i; 99 END ELSE MSTATE[MRKRmI:=NXTPK(MRRX, 101 IF BP[21='L THEN -1 ELSE 1, 102 TBUF,1001,PKTHR,PKXCR)+1; 103 UPDATEMXR; 104 END; END; 107 PROCEDURE MEASRCH; ENTRY; 108 IF MKATST TEN BEGIN 109 INTEGER I=REGISTER 7,J=REGISTER 6,MRKRY=REGISTER 5,SLVL=REGISTE 4; DOUBLE PBUF=REGISTER 9,RBUF=REGISTER 10; 111 INTEGER POINTER PBUFP=PBUF,RBUFP=RBUF; 112 ARRAY AVOID[0:3]; 113 INTEGER MRERX,ILAST, JLAST; 114 BYTE SRCH; 116 SUBROUTINE SLFT; 117 BEGIN 118 PBUF:=PBUF+2; APPENDI.A i (suite) 22. 119 SRCH: FALSE; 25 5 99 10 LOOPNl: ASSEMBLE(CMP -(PBUF),SLVL; DUNE I9LOOPN1); 121 IF ' THEN BEGIN 122 I:=I-1; 123 IF I>O THEN 124 LOOPI: ASSEMBLE( CMP -(PBUF),SLVL; DBGE I,LOOP1; SGE SRCH) END ELSE IF > THEN BEGIN 126 I:=I-1; 127 IF I>0 EN * 128 LOOP2: ASSEMBLE( CMP -(PBUF),SLVL; DBLE I,LOOP2; SLE SRCH); 129 END; IF SRCH AND ABS(PBUFP-SLVL)>ABS(PBUFP[1]-SLVL) THEN 131 PBUF:=PBUF+2; 132 I:=IF SRCH THEN ARIGHT(PBUF-ADRS(TBUF),I) ELSE -1; 133 END; SUBROUTINE SRGT; 136 BEGIN 137 SRCH:=FALSE; 138 J:=1000-J; 139 LOOPN2: ASSEMBLE(CMP (RBUF)+,SLVL; DBNE J,LOOPN2); IF c THEN BEGIN 141 J:=J-1; 142 IF J>O THEN 143 LOOP3: ASSEMBLE( CMP (RBUF)+,SLVL; DBGE J,LOOP3; SGE SRCH) 144 END ELSE IF > THEN BEGIN J:=J-1; 146 IF J>0O THEN i47 LOOP4: ASSEMBLE( CMP (RBUF)+,SLVL; DBLE J,LOOP4; SLE SRCH); 148 END; 149 RBUF:=RBUF-2; IF SRCH AND ABS(RBUFP[-1]-SLVL) 151 RBUF:=RBUF-2; 152 J:=IF SRCH THEN ARIGHT(RBUF-ADRS(TBUF),I) ELSE 1001; 153 END; SUBROUTINE SETAVOID; 156 IF I>0 TREN BEGIN 157 I:=I-1; 158 IF (RIGHT(MKBLK[I*3],8) AND 15)/5=2 THEN AVOID[I]:=MXBLKEI*3+11-1; 159 END; 16o 161 AFILL(AVOID,4,-1); 162 ILAST:-1; 163 JLAST:=1001; 164 - I:=(RIGT(MSTATE[MKMODE],12) AND 3); IF I->MKACT-1 THEN BEGIN 166 WHILE I>O DO SETAVOID; 167 I:=MRACT; 168 SETAVOID; 169 END; LOADTRC(MKRTRC,oo1001,TBUF); 171 SLVL:=MKBLK[3*(RIGHT(MSTATE[MKRMODE],12) AND 3)+21; 172 I:=J:=MRKRX:=MSTATE([MRKR]-1; 173 PBUF:-=RBUF:=ADRS(TBUF[I]); 174 MRKRY:=RBUFP; IF MRERY 176 WEILE I>O AND (I=AVOID OR I=AVOID(1l OR I=AVOID[2] OR I=AVOID(3]) 177 AND I->ILAST DO 178 BEGIN ILAST:=I; SLFT; IF I 6) J:J._S;5uze; = 23 2559910 179 WHILE J≤1000 AND(J=AVOID OR J=AVOID[1] OR J=AVOID[2] OR J=AVOID[3]) AND J'>JLAST 181 DO BEGIN JLAST:=J; SRGT; IF J>1000 THEN J:=JLAST; END; 182 IF I≥O AND J≤1000 TEN 1383 MRKRX:=(IF (MRERX-I 184 (J=AVOID OR J=AVOID[1] OR J=AVOID[2] OR J=AVOID[3])) AID NOT (I=AVOID OR I=AVOID[1] OR I=AVOID[2] OR I=AVOID[3])THEN I ELSE J) 186 ELSE IF I≥O THEN MRKRX:=I 187 ELSE IF J'=1000 THEN MRKRX:=J 188 ELSE BEGIN DOUBLE PBUF=REGISTER 9,PXPIT=REGISTER 10; 189 ASSEMBLE( LEA TBUF,PBUF); I:=1000; 191 IF SLVL>MRKRY THEN BEGIN 192 LABEL LOOPGNOPEAK; 193 J:=-32767; 194 LOOPG:. ASSEMBLE( CMP (PBUF)+,J; BGE NOPEAK; LEA -2(PBUF),PKPIT; MOVE (PKPIT),J; 196 NOPEAK: DBRA I,LOOPG); 197 END ELSE BEGIN 198 LABEL LOOPM,NOPIT; 199 J:=32767; LOOPM: ASSEMBLE( CMP (PBUF)+,J; BLE NOPIT; LEA -2(PBUF),PKPIT; 201 MOVE (PKPIT),J; 202 NOPIT: DBRA I,LOOPM); 203 END; 204 ASSEMBLE( LEA TBUF,PBUF; SUB PBUF,PKPIT); 205 MRKRX:=RIGCET(PKPIT,1); 206 END; 207 MSTATE[MRKRI:=MRERX+l; 208 MSTATE[MKRLVL]:=TBUF[MRKRX]; 209 END; 211 SUBROUTINE MRSPOT; EXTERNAL.L; 212 SUBROUTINE MKRAD; EXTERNAL.L; 213 PROCEDURE NEWMRKRS; ENTRY; 214 BEGIN INTEGER I,J; 215 INTEGER POINTER MKPTR; 216 SAVE(MSTATE[MKRMODE],MSTATE[MRR],MSTATE[MKRLVL]); 217 MKRSAVE; 218 FOR I:=1 TO 4 DO BEGIN 219 STPNTR(MKPTR,ADRS(MK3LK[(I-1)*3])); 220 J:=(RIGHT(MKPI'R,8) AND 15)/5; 221 IF MKACT'I AND MPTR'>0 AND (J=0 OR J=2) THEN BEGIN 222 MSTATE[MKRMODE]: MKKPTR; 223 MSTATE[MRKR]:=MKPTR(l]; 224 MSTATE[MERLVL]:=MKPTR[2]; 225 IF J=2 THEN MKASRCH 226 ELSE IF J=O THEN BEGIN 227 MKRAD; 228 MSTATE[MKRLVL]:=ARIGHT(LEFT(READ(ADRS(DSTRD):NOT FLAG),5),5); 229 END; 230 MKRSPOT; 231 MKRSAVE; 232 END; 233 END; 234 RESTORE(MSTATE[MERMODEI,MSTATE [MRR,MSTATE (MRLVLI); 235 END newmrkrs; 237 END$ 238 #EOF# 24 2559910 APPENDIX II I M68KL,P,"PAT 2" 2 BEGIN 3 GLOBAL INTEGER ARRAY MSTATE|0:381]; 4 BCDL LTEMP1,LTEMP2,LTEMP,XL,MANT,EEVAL; GLOBAL BCDL FSTEP=MSTATE [22,MKRFRQ,AZSPAN,CSIGNL, 6 CFREQ=MSTATE,SPAN=MSTATE [41,AMF=MSTATE[31], T FOFSET=MSTATE[181,EPVAL; 8 GLOBAL INTEGER XFLAG,DSPSIZ,PREFIX,EPEXP, 9 BLEDS=MSTATE[8],TLEDS=MSTATE[9],RFAT=MSTATE[10], SINDEX=MSTATE[36],STIM=MSTATE[37], 11 FSTIM=MSTATE[38],STRIG=MSTATE[14], 12 RLVL=MSTATE[11],RVBW=MSTATE[12],VIDC0N=MSTATE[131], 13 MR/R=MSTATE[281,MKRMODE=MSTATE [301,AMLVL=MSTATE (27], 14 AMKR=MSTATE[261],MKRLVL=MSTATE[29],KFLAG=MSTATE[351], ROFSET=MSTATE[17],THRESH=MSTATE[16],LEVLIN=MSTATE[15], 16 DACI,DAC2,DAC4,ALIM,ACNT,SRCEID,EFLAG,BITS1=EFLAG, 17 UFLAG,IF,IF2,GIN1,GIN2,SRQEN,RPGPTR,RPGSWP, 18 SCANSL,SATN,PLOCK,LKMSK,HPBC,CTIM,CTBASE; 19 GLOBAL BYTE M D=MKRMODE+I,MKRTYP=MRMODE; 21 PROCEDURE SETRCAD(A); VALUE A; INTEGER A; ENTRY; 22 & set trace address in 85662& 23 IF AC>O THEN 24 WRITE(ADRS(DSAD):NOT FLAG,LEFT(A-1,10)+1); 26 PROCEDURE LOADTRC(TADR,TLEN,BUF); VALUE TADR,TLEN; INTEGER TADR,TLEN; 27 ARRAY BUF[*]; ENTRY; 28 BEGIN 29 INTEGER CNT=REGISTER 5,DATA=REGI'STER 6; DOUBLE PTR=REGISTER 9; 31 SETRCAD(TADR); 32 PTR:=ADRS(BUF); 33 CNT:--TLEN-1; 34 LOOP: READ(ADRS(DSTRD):NOT FLAG,DATA); ASSEMBLE(LSL #5,DATA; ASR #5,DATA; MOVE DATA,(PTR)+; 36 DBRA CNT,LOOP); 37 END loadtrc; 39 BOOLEAN SUBROUTINE MKEL; ENTRY; MEREL:=MKMD MOD 3=1; 4o 41 BOOLEAN SUBROUTINE MRmROK; 42 MRKROK:=NOT(FSTIM 414 INTEîER TABLE MERDSP:=2050,2055,2155,2160; 46 INTEGER SUBROUTINE MRTRC; ENTRY; 47 MKRTRC:= CASE RIGaT(*MTYP,6) OF ( 48 IF TBIT(VIDCON,11) AND TBIT(TLEDS,1) OR 49 NOT TEST(TLEDS,O,e201) THEN 1 ELSE 2,1,2,4); o 51 SUBROUTINE MERAD; ENTRY; 52 IF MRKROK TEEN 53 WRITE(ADRS(DSAD):NOT FLAG,MRKR+1024*(MKRTRC-1)) 514 ELSE BEGIN SAVE(MRXR,MKRMODE,BLEDS);}EY(@114); RESTORE(MRKR,MKRMODE,BLEDS); 56 END MERAD; 58 SUBROUTINE MERSPOT; ENTRY; APPENDIX II (suite) 2591 59 BEGIN DSWRITE(MKRDSP[RIGHT(MKRTYP,4) AND 31,@2202); 61 DSITM(LIMIT(MRKR-h4,1000)); 62 DSITM(LIMIT(MKRLVL-4,1015)+2052); 63 END; INTEGER SUBROUTINE MKRDOUT; ENTRY; 66 MXRDOUT:=(MKRTfP AND 15) MOD 5; 68 PROCEDURE MKRON; ENTRY; 69 BEGIN LABEL EXIT; INTEGER I,KK; 71 IF MRKR=1023 THEN BEGIN MRKXR:=501; MKRFRQ:=CFREQ; END; 72 IF NOT TBIT(BLEDS,13) THEN BEGIN 73 CASE MKRDOUT OF BEGIN 74 BEGIN MKRFRQ:=CFREQ+DRIGHT(ROUND((MRKR-501)*SPAN,12),3); 76 IF MKREL THEN MKRFRQ:=MKRFRQ-AMF; END; 77 MIRFRQ:=DRIGHT(EXPSIX(SINDEX+24),3)* 78 (MLKRL+MKREL*(AMKR-1)-1); 79 MXRFRQ:=IF MKREL AND MRKR=AMKR THEN 1000000000 ELSE 1Q6/REAL(DRIGHT(EXPSIX(SINDEX+24),3)* 81 (MRKR+MKM L'(AM-i)-)); 82 MKFRQ:=52*(MRKR-i+MKREL*(AMKR-1)) / 83 REAL(DRIGHT(EXPSIX(SINDEX+24),3)); 84 BEGIN MKRFRQ:=CFPEQ+DRIGHT(ROUND((MRKR-501)*SPAN,12),3); MKRFRQ:=1 12/REAL(MKRFRQ)-(IF MKREL THEN 1@12/REAL 86 (CFREQ+DRIGHT(ROUND((AMKR-501)*SPAN,12),3)) ELSE 0); 87 END; 88 END; 89 END; IF MRKROK THEN MKRAD 91 ELSE BEGIN SAVE(MRKR,MKRMODE,BLEDS); KEY(@114); 92 RESTORE(MRR,MKRMODE,BLtDS); 93 IF KEYCODEt@113 OR K#5 THEN GO TO EXIT;END MKRAD; 94 IF (MKRTYP AND 15)/5=0 THEN BEGIN IF TBIT(BLEDS,3) THEN BEGIN SAVE(MRKR); 96 MPRR:=LIMIT(MRKR-17,968)+1; 97 MKRLVL: =O; MKRAD; 98 REPEAT 32 DO BEGIN 99 READ(ADRS(DSTRD):NOT FLAG,KKE); MXRLVL:=MKRLVL+ARIGHT(LEFT(EX,5),5); 101 END; 102 MKRLVL:=LIMIT(ARIGHT(MRLVL,5),1023); RESTORE(MRKR); 103 END ELSE BEGIN 104 MKRLVL:=ARIGHT(LEFT(READ(ADRS(DSTRD):NOT FLAG),5),5); END; IF TBIT(BLEDS,5) AND MKRLVL'(THRESH AND @177774) THEN 106 MKRLVL:=THRESH AND @177774; 107 END; 108 MKRSPOT; 109 IF K#3 THEN BEGIN READ(ADRS(DSRDSCAN):NOT FLAG,I); READ(ADRS(DSTRD):NOT FLAG,I); 111 WRITE(ADRS(DSLDMRKR):NOT FLAG,(IF (I AND @7777) 112 THEN MRKR ELSE 1001)+ 113 (IF NOT TBIT(KFLAG,2) THEN O ELSE 3072)); 114 BLKAD(17); READ(ADRS(DSTRD):NOT FLAG,I); IF (I AND @1777)=146 THEN BEGIN 116 NBLK(MKRMD); DSITM(146); NBLK(17); END; MMD; 117 IF NOT TBIT(BLEDS,13) THEN BEGIN BLKAD(MKRMD); 118 DSITM(IF TEST(IF1,@100000,@160000) AND APPENDIX II (suite) 2559910 119 MKRLVL IF NOT TBIT(BLEDS,13) OR NOT TBIT(UFLAG,6) AND K#2 121 OR SCANSL=O THEN RJUST(MKM,1040); 122 RJUST(17,1024); 123 EXIT: END MRKR ON; PROCEDURE DOEOS; ENTRY; 126 &eos& BEGIN INTEGER I,J,K; BCDL LTEMP1; 128 IF MKRMD#O AND NOT MKIS THEN 129 BEGIN MKASRCH; MKRON; MKRACT; END; %r'MRKRS; 131 IF TBIT(IOFLAG,14) THEN BEGIN 132 DOSOFTKEY(-1); & execute ONEOS command string & 133 END; 134 IF TBIT(TLEDS,10) AND NOT (TBIT(EFLAG,12) OR TBIT(XFLAG,9) OR TBIT(KFLAG,2) AND ACNT 136 THEN BEGIN UNCAL; 137 STRIG:=@20000; END ELSE BEGIN 138 IF NOT SREQ THEN BEGIN XFLAG:=XFLAG OR 6; GO TO RESET; END; 139 IF TBIT(XFLAG,5) THEN YIGSHFT; 1i40 TRIGR; END; END SCAN; 142 PROCEDURE DOMRKR; ENTRY; 143 & mrkr & IF MKRMD#tO THEN BEGIN 144 MKASRCH; MKRON; XFLAG:=SBIT(XFLAG,3); 146 IF TBIT(BLEDS,13) THEN MRKRCNTR; 147 IF (EFLAG AND 3)#0 THEN BEGIN 148 CSIGNL:=COUNTIF(EFLAG AND 3); 149 IF RPGPTR=18 THEN BEGIN PREFIX:=35+(EFLAG AND 3); * DSPITEM; ABLK.; END; END ELSE MKRACT; 151 XFLAG:=RBIT(XFLAG,3); 152 IF TBIT(XFLAG,13) AND NOT TBIT(XFLAG,9) 153 THEN STRIG:=@20000; 154 IF MKPAUSE>O THEN SETDLY(MKPAUSE*1000.0); IF TBIT(EFLAG,12) THEN BEGIN HPBC:=SBIT(HPBC,13); 156 IF TSCHK="TS" THEN BEGIN 157 TSCHK:=0; 158 AUXCA:=RHDF; 159 END; IOFLAG:=RBIT(IOFLAG,12); 161 EFLAG:=RBIT(EFLAG,12); END; 162 IF MRKR=1001 OR MKPAUSE=O AND NOT TBIT(TLEDS,10) 163 AND TBIT(XFLAG,13) THEN DOEOS; 164 END MRER; 167 INTEGER CONSTANT NEWLEN:=25; 168 GLOBAL INTEGER CONSTANT NEWLENG:-=NEWLEN; 169 DOUBLE TABLE SYMTABADRS:=%FF4006; GLOBAL INTEGER POINTER SYMTAB=SYMTABADRS; 171 GLOBAL INTEGER ARRAY NEWSTATE[0:NEWLEN]; 172 GLOBAL REAL MKPAUSE=NEWSTATE[19]; 173 GLOBAL INTEGER MKACT=NEWSTATE, 174 MKBLK=NEWSTATE[1], & through NEWSTATE([9] & MKFC=NEWSTATE[101], 176 MKNOISE=NEWSTATE[18], 177 MKPX=NEWSTATE [ 211, 178 MKTRACK=NEWSTATE [22], A NAe:.. (suite) 2559910 179 AMB=NEWSTAE[ll], -180 ANNOT=NEWSTATEt12], 181 DLE=NEWSTATEt13], 182 RAT=NEWSTATE[141], 183 MDS=NEWSTATE[15], 184 TDF=NEWSTATE[16], ThE=NEWSTATE[17]; 186 ARAY NEWSAVE[1:7,0:NEWLEN]; 188 EXTERNAL INTEGER ARRAY MSTATE[0:38]; 189 INTEGER CONSTANT MtMODE:=30,MRR:=28,MRLVL:=29,AMKR:=26,AMLVL-=27;' EXTERNAL INTEGER SYMLEN; 192 INTEGER CONSTANT SFTNEST:=10,SFTLIM:=12+5*SFTNEST; 193 GLOBAL INTEGER ARRAY SFTBLX[0O:SFTLIM]; GLOBAL INiúGER TABLE MNEM.L:="MB","WR",%0280,%00CD,%3004 196,"MB","RD",%0283,%00CA,%3004 197,"MW","RB",%0280,%00C7,%3004 198,"MR","DB",%0196,%oo00C5,%3004 199 "MW","R ",%0280,%00C2,%3003 ,"MR","D ",%0196,%00C0,%3003 201,"BW","R ",%0280,%00BD,%3003 202,"BR","D ",%0196,%00BB,%3003 203,"SN","GL","S ",%4000,49,%1005, 204 "S2",0,0,2 205,"CO","NT","S ",%4000,59,%1005, 206 "S1",0,0,2 207,"RC","LS",%4000,68,%1004, 208 "RC",0,0,2 209,"SA","VE","S ",%4000,78,%1005, 210 "SV",0,0,2 211,"ML",%4000,87,%1002, 212 "KS",", ",0,0,3 213, "RO","FF","SE","T ",%4000,99,%1007, 214 "KS","Z ",0,0,3 215,"FO","FF","SE","T ",%14000,11,%1007, 216 "XS","V ",0,0,3 217,"VB","O ",%0180,%00B9,%3003 218,"SR","Q ",%0180,%00BT,%3003 219,"RQ","S ",%0180,%00B5,%3003 220,"ID",%0083,%00B4,%3002 221,"ME","M ",%0098,%00B3,%3003 222,"TM",%0180,%OOB1,%3002 223,"DE","T ",%0180,%00AF,%3003 224,"MD","U ",%o0083,%00AE,%3003 225,"CL", "RA", "VG",%0080,%00AD,%3006 226,"TE","XT",%0180,%OOAB,%3004 227,"OP",%0083,%OOAA,%3002 228,"RE","V ",%0083,%00A9,%3003 229,"ER","R ",%0083,%00A8,%3003 230,"DO","NE",%0083,%00AT7,%3004 231,"CT',"M ",%0280,%00A4,%3003 232,"CT","A ",%0280,%OOA1,%3003 233,"AU","NI","TS",%0180,%009F,%3006 234,"T","E ",%1DC1,%0011,%4003 235,"TD", ' ",%1CD4,%0010,%4003 236,"MD","S ",%lBD4,%000F,%4003 237,"GR","AT",!.ACI,%OOOE,%4004 238,"DL"',"E ",%19C1,%OOOD,%4003 h O = o,O O C)Co H4O0 X 00H O O 0C O (0%O O O -U U o OcO O 0:t 0 00 0 0 C^ o0 a 0%0 0% (n oo 0Mo m: ole o r o t otri o oM el o MO [A)oonmenoooooooom)tz" co^t 2 - 2- r -O - r rgr - vt o, " tS t xS -,tbt 0i b b b%bpW H ^O OOilCo C ofenoo oo) mosOFO\ 00-COGOCOo o t Owtx=ro neF- cy\o tt Ccq N0000::: o oooo o oo. 0" O:c:oooooo 0 o o ooooooooo 0C 0000 0uO O C00O-D 00 O Q CO O.O O OO 0 L>-t-*H \0Iiz "..1...h...f...0 0- to of.o........-ou ' o o, 4o 0 et- * tf 0- 14 0't'1 OQCOt..o COt r00O--r 00 r IA2, - lm W-'o ob,....,- re> 0r > * bOOOtr...-, U - t F* * N1^**^.- ^^reO* ^ r s^ ^^r*^ ^*r4HU^ rs^ ^S: ^^U1^004 r * r 0: O-C. -0 ^- ^-, -ror.o c* -C'1ç--t *o *Ct- -- o. 4 CO.r r- ^ ^- C -I O - O * O O O O O O O I Nt>_ t.> OE \0.4 O O 0N0:t t it O O'O0 0 IW e:t totJ t 0 0 1 > O:0 ot O' gi >t 0P0lti 0 u - ' ta a:>co Oo 0 0 atO O C-- N Nul -N N NN N---- N-.. - N.... -- -- ---- - - 4 F -.100W Q'0 H N ('1.4 Lt p44 t- 40 N, 4 UIt t-t--tntat-ocoe tcctco'o--. 2559910' APPENDIX II -(suite) 2599 10 299 "; Oi,59 3GO0,"TR, MA "T ',%0180,%0015,%3006 01,"TR","DS","P ",%0280,%0012,%3005 302,"",Mi",%0180,%0010,%3004 303,"CL","RW",%0180,%000E,%3004 304,"BL",AN","K,%0o80,%000C,%3005 305,"VA",'VG",%4000,613,%oo04, 306 "KS","G ",0,0,3 307,"BX","C ",%4000,623,%!003, 308 "S","i ",0,o0,3 309,"BT","C,%4000,633,%1003, 310 "KS,"l ",0,0,3 311 "BM',"L ",%4000,643,%1003, 312 "BL","; ",0,0,3 313,"AX","B ",%4000,653,%1003, 314 "EX","; ",0,0,3 315,AP",B ",%4000,669,%1003, 316 "AD","D ","TR","A,","TR',"A,","TR","B;",0,0,16 317,"AM" "BP","L ",%ho000,694,%1005, 318 "SU","B ","TR","D,","TR","A,","TR","B;","AD" 319 "D ","TR","A,","TR","D,","DL","; ",0,0,31 320,"AM", "B ",%17C1l,%OOOB,%4003 321,"MK","Co","NT",%0080,%000B,%3006 322,"MX","MI","N ",%0080,%000A,%3005 323,"MX","OF","F ",%0180,%0008,%3005 324,"MX'","P ",%16D6,%FFFD,%4003 325,"MX","F ",%15DE,%FFFE,%4003 326,"MX","A ",%14DOFFFF,%4003 327,"MK","TR","AC","K ",%13C1,%oo006,%4007 3 8,"X"K,"rT","PE",%0180,%0006, %3006 329,"IX","TE","AC","E ",%0180,%004,%3007 330,"MK","ST","OP",%4000,763,%1006, 331 "KS","u ",0,0,3 332,"MK","SP",%4000,773,%l004, 333 "KS","O ",0,0,3 334,"MK","Ss",%4000,783,%1004, 335 "E3","; ",0,0,3 336,"MK","RL",%4000,793,%1004, 337 "E4","; ",0,0,3 338, "MK","RE","AD",%0180,%0002,%3006 339,"MK","PX"%D,%DO,%0015,%4004 340,"MK","PK",%0180,%0000,%3004 341,"MK","PA","US","E ",%OFD9,%0013,%4007 342,"MY","NO","IS","E ",%12C1,%0012,%4007 343,"MK","N ",%4000oo,832,%1003, 344 -Mt2",0,0,2 345, "M","FC" "R ", %4oo00,843,%1005, 346 "ES"," ",0,0,3 347,"Mia","FC",%OECI,%OooA,%4004 348,"MK","D ",%4000,857,%1003, 349 "M3",0,0,2 350, "MK","CF",%4000,867,%1004, 351 "E2","; ",0,0,3 352,"MX","AC","T ",%oDD6,%0000,%4005 353,"TP","'D ",%OAC0,%003F,%4003 354,"TR","C ",%09C0,%003F,%4003 355,"TR","B ",%08C0,%003F,%4003 356,"TR","A ",%07CO,%003F,%4003 357; 358 GLOBAL INTEGER CONSTANT MLEN:=893; APPENDIX II (suite) 25599 10 359 INTEGER CONSTANT HASHCODE:=13 360 GLOBAL INTEGER TABLE.ASHPTR.L:=0,6,15,23,29,36,40, 361 48,59,70,83,92,100,108; 362 GLOBAL INTEGER TABLE OLDCMDS.L:-"UP","T2","D3","DM", 363 "CV","A4","T3","SV","M1","LG","HD", GZ" "EE","DN" 364 "DA", "UR", "T4", "TA", "sw ", "oT", "M2", "DB", C1", "US", 365 "TB", "S", "M3", "MZ", "C2", "S2", "Mh, MA", "L0", "KS", 366 "I", "DD","PA", "I2", "DR", "CA" UV", "O1, "MC", "LL", 367 "GR", "FA",, "AT", "TS", "RI, O2, "OL", "FB", "El", 368 "EX","EK", "DT",,"B2","BL", "VB", "SP","SC", "R2","RL", 369 "PD", "03", "LN", "IB", "E2", "B3", "TH", "R3", "PR" "04", 370 "OA", "MS", "F", LB", "IP",'E3, "EH, "CR", B,"R4", 371 "PS, "MT", "HZ", E4, "DW", "CS", "CF", "AI", "TO", "SS", 372 "RB", "Z", "FS, "Di", "CT", "A2", "TI, "ST", "RC","PU", 373 "MV", "D2", "DL", "A3"; 374 GLOBAL BYTE TABLE KEYTAB.L:=85,119,163,47,66,101, 375 120,0,76,1,42,47,2,84,3,124,121,4,166,5,6,47,99, 376 32,7,116,8,35,102,117,9,10,109,115,60,11,12,62, 377 13,68,32,8,14,122,15,16,103,17,2,6,11,18,19,75, 378 105,29,20,104,108,21,22,35,4,23,2T,14,114,24,78, 379 106,25,7,26,9,27,38,28,29,160,81,5,65,107,0,165, 380 30,32,82,31,69,32,97,111,33,34,38,44,161,67,98, 381 118,35,36,28,38,162,37,100; 382 GLOBAL BYTE TABLE IMEDBITS.L:=127,173,229,58,167, 383 75,231,102,183,202,223,154,159,11; 384 GLOBAL DOUBLE TABLE SFLCVAL.L:=%18040028,%06120071, 385 %lB07005B,%28050019,%00230012,%00250015,%1207004D, 386 %00230013,%1207004F,%12070050,%11330011,%0003000F, 387 %29050021,%00250014,%0001007D,%290500A4,%09070058, 388 %O4.30049,%00230016,%0A070059,%00020024,%02070047, 389 %08070057,%0510005A,%0003000C,%0F100070,%29050022, 390 %002500tE,%12270010,%29030018,%0001007E,%2905001A, 391 %07070056,%OBO7004A,%01070046,%03090048,%19040029, 392 %0E10006E; 393 GLOBAL BYTE TABLE PARMTYPE.L:=0,3,1,3,2,3,3,3,4,3,5,6,7,3,8,3 394,9,3,10,3,1,11,3,12,13,3,14,3,3,15,3,3,3,16,3,3,25,17,', 3,3 395,18,3,3,3,19,3,3,25,20,3,3,25,21,3,3,3,22,3,3,3,23,3,3,3,24 396,3,22,25,3,3,3,26,3,3,27,3,3,28,3,3,3,29,3,3,30,3,3,25,31,3 397,3,32,3,3,33,22,22,22,22,3,34,3,3,3,35,3,3,16,36,3,3,37,3,3 398,3,38,3,25,39,3,40,3,41,3,42,3,43,3,44,3,45,25,25,25,25,46,3 399,47,3,48,29,16,49,3,29,50,3,22,51,3,52,22,3,53,3,3,54,22,55 400,3,56,3,22,57,3,25,58,59,60,61,62,3,63,64,65,3,66,3,67,68,69 4o0,22,70,22,71,22,72,22,73,22,22,74,24,75,24,22,76,24,77,24,22 402,78,24,22,79,24,3; 403 EXTERNAL LABEL MKPR,MKREAD,MKTRACE,MKTYPE,MKOFF,MKMIN 404,MKCONT,BLANK,CLRW,MXMH,TRDSP,TRMATH,TRSTAT,VIEW,MOV 405,ADD,AVG,CONCAT,DIVTRCLOGTRCEXP,MIN,MPY,MXM,SMOOTH 406,sSUB, SQRXCH,FFT,FFTKNL, FFTMPY, FFTCNV, TWNDOW,TRGRPH 407,COMPRESS, PDA,PDF, PEAKS, PWRBW,MEAN,VARIANCE,STDEV 408,SUM,SUMSQR,RMS,PLOT, ONEOS, ONSWP,DSPLY,VARDEF,TRDEF 409,DISPOSE,KEYDEF,FUNCDEFKEYEXC,AUNITS,CTA,CTM,DONE 410,ERR,REV,OP,TEXT,CLRAVG,MDU,DE1,TM,TMEM,ID,RQS,SRQ 411,VBOBRDBWRMRD,MWRMRDBMWRBMBRDMBWR; 412 GLOBAL DOUBLE TABLE PRCADRS. L: =ADRS (MKPK), ADRS (MEREAD) 413,ADRS(MKTRACE),ADRS(MKTYPE),ADRS(MKOFF),ADRS(MKMIN) 414,ADRS(MKCONT),ADRS(BLANK),ADRS(CLRW),ADRS (MXH),ADRS(TRDSP) 415,ADRS(TRMATH),ADRS (TRSTAT),ADRS (VIEW),ADRS(MOV),ADRS (ADD) 416,ADRS(AVG),ADRS(CONCAT),ADRS (DIV),ADRS(TRCLOG),ADRS(TRCEXP) 417,ADRS(MIN),ADRS(MPY),ADRS(MXM),ADRS(SMOOTH),ADRS(SUB) 418,ADRS(SQR),ADRS(XCH),ADRS (FFT),ADRS(FFTXNL),ADRS(FFTMPY) *À APPENDIX II 31sUite) 5 9-9 1 419,ADRS(FFTCNV),ADRS(TWNDOW),ADRS(TRORPH),ADRS'(COMPRESS) 420,ADiRS(PDA) DRS(PDF),ADRS(PEAKS),ADRS(PWRBW),ADRS(MEAN) 421,ADRS(VARI!ACE),ADRS(STDEV),ADRS(SM),ADRS(SUMSQR) h22,ADRS(RMS),ADRS(PLOT),ADRS(ONEOS),ADRS(ONSWP),ADRS(DSPLY) 423,ADRS(VARDEF),ADRS(TRDEF),ADRS(DISPOSE),ADRS(YDEF) 424,ADRS(FUNCDEF),ADRS(KEYEXC),ADRS(AUNITS),ADRS(CTA) 1425,ADRS(CTM),ADRS(DONE),ADRS(ER),ADRS(REV),ADRS(OP) 426,ADRS(TEXT),ADRS(CLRAVG), ADRS(MDU),ADRS(DET),ADRS(TM) 427,ADRS(MEM),ADRS(ID),ADRS(RQS),ADRS(SRQ),ADRS(VBO) 428,ADRS(BRD),ADRS(BWR),ADRS(MD),ADRS(MWR),ADRS(MRDB) 429,ADRS(MWRB),ADRS(MBRD),ADRS(MBWR); 430 GLOBAL BYTE TABLE PFXSCALE.L:=0,7,7,9,19,16,18,7, 431 - 77,7,7,7,0,5,16,16,0,16,7,7,7,7,7,7,4,4,5,5,0,16, 432 0,7,5,0,16,7,7,7,7,9,5,5,16,5,7; 434 INTEGER PROCEDURE SYMPTR(SYMTAB,PTR); VALUE PTR; INTEGER PTR; 435 ARRAY SYMTAB[*]; ENTRY; 436 SYMPTR:=PTR-2-RIGHT((SYMTAB[PTR] AND %FFF)+1,1); 438 INTEGER PROCEDURE NEWCMD(FLG,SYMTAB,SYMLEN,NAME); 439 VALUE FLG,SYMLEN; INTEGER FLG,SYMLEN; ARRAY SYMTAB,NAME[N]; 440O ENTRY; 441 IF SYMLEN>O THEN BEGIN LABEL FLOOP,AGAIN,LENCHE,SCOMP,SLOOP,EXIT; 442 INTEGER WORDCNT=REGISTER 2,WORDINIT=REGISTER 3,FLGBITS=REGISTER 1; 443 DOUBLE CBUF=REGISTER 10,SBUF=REGISTER 11; 444 WORDINIT:-RIGHT((FLG AND %FFF)-1,1); 445 FLGBITS:=FLG; 446 ASSEMBLE( 447 MOVE.L SYMTAB,SBUF; 448 MOVE SYMLEN,R6; 449 ADD R6,R6; 450 MOVE.L =HlAOO01AR5; Bits de drapeaux pour comparaison de symboles 451 FLOOP: MOVE O(R11,R6),RO; Extraction longueur 452 ROL #4,R0; Isolation des bits de drapeau 453 BTST RO,R5; Vérification du drapeau du symbole 454 BNE LENCHX; Saut si drapeau du symbole 455 LSR #4,RO; Isolation de la longueur du symbole 456 AGAIN: ADDQ #7,RO; Calcul du décalage jusqu'au symbole suivant 457 AND =HFFE,RO; Elimination des informations parasites 458 SUn RO,R6; Décrémentation du pointeur 459 BGT FLOOP; Essai du symbole suivant 460 MOVE #-1,R0; Positionnement du résultat non présent 461 BRA EXIT; 462 LENCHE: LSR #4,RO; Isolation de la longueur du symbole 463 CMP RO,R1; Vérification de la longueur 464 ENE AGAIN; Comparaison de la suite si = 465 SCOMP: MOVE R3,R2; Initialisation du compteur des symboles 466 MOVE.L NAME,R10; Initialisation cmdbuf ptr 467 LEA -6(R11,R6),R9; Initialisation du pointeur symtab 468 SUB R2,R9; A effectuer deux fois (adressage de multiplets) 469 SUB R2,R9; Maintenant pointage sur le début du symbole 470 SLOOP: CMPM (R9)+,(R10)+; Comparaison de mots *471 DBNE R2,SLOOP; 472 BNE AGAIN; Nouvel essai 473 MOVE R6,RO; Calcul de symtab indx 474 LSR #1,RO); 475 EXIT: END ELSE 'EWCMD:=-1; 1477 INTEGER PROCEDURE OLDCD(CMD); VALUE CMD; IâTEGER COE; 478 BEGIN INTEGER I,J,K,L; APPENDIX IIl (suite)-- 479 I:=CMD MOD HASHCODE; 480.J:=HASPTR[II; 481 K: =HAsHPITR[I+1]-J; 482 L:=SEARCH(OLDCMDS[J]=CND,K); 483 OLDCMD:=IF L-K THEN L+J ELSE -1; 484 END OLDCMD; 486 BCDL PROCEDURE PFVAL(CMD); VALUE CMD; INTEGER CMD; ENTRY; 487 BEGIN DOUBLE SVF; INTEGER SFLG=SVF,SVAL=SVF+2,J; 488 IF (J:=OLDCMD(CMD))≥0 AND 489 NOT TBIT(IMEDBITS[RIGHT(J,3)],J AND 7) THEN BEGIN 490 SVF:=SFLGVAL[(KEYTAB(J]]; 491 PFVAL:=IF NOT TEST(SFLG,2,30) THEN ACTVAL(RIGHT(SFLG,8)) ELSE 0; 492 END ELSE PFVAL:=0; 493 END pfval; 495 INTEGER PROCEDURE TVSRCH(SFLG,LENFLG); VALUE SFLG,LENFLG; 496 INTEGER SFLG,LENFLG; ENTRY; 497 BEGIN INTEGER J; 498 J:=SYMLEN; 499 WHILE J>O AND ((SYMTAB(J] AND %F000) SFLG) 500 DO J:=SYMPTR(SYMTAB,J)-1; 501 TVSRCH:=J; 502 END tvsrch - trace/variable/softkey search; 504 BYTE PROCEDURE TR662(A); VALUE A; DOUBLE A; ENTRY; 505 TR662:=A>0 AND A≤h; 507 DOUBLE PROCEDURE TRCADRS(TRC,LEN); VALUE TRC; ALPHA TRC; INTEGER LEN; 508 ENTRY; 509 BEGIN ARRAY NAME[0:12]; BYTE ARRAY NB[0:1]=NAME; 510 DOUBLE TABLE TADR.L:=1,2,4,ADRS(TRCD); 511 INTEGER SLEN,J,K; 512 SLEN:=LENGTH(TRC); 513 MOVE NB:=TRC; 514 NB[SLEN]:=32; 515 IF SLEN=3 AND NAME="TR" AND NB[2]≥'A AND NB[2]≤'D THEN BEGIN 516 TRCADRS:=TADR[NB[2- ' A]; 517 LEN:=1001; 518 END ELSE IF (J:=NEWCMD(SLEN,SYMTAB,SYMLEN,NAME))>O0 AND 519 TEST(SYMTAB[J],%1000,%F000) AND 520 TEST(SYMTAB[J-21,1,-1) AND 521 (K:--TVSRCH(SYMTAB[J-1],%5000))>0 THEN BEGIN 522 LEN:=SYfMTAB[K-l]; 523 TRCADRS:=-ADRS(SYMTAB[SYMFTR(SYMTAB,K)]); 524 END ELSE BEGIN 525 TRCADRS: =; 526 LEN:=0; 527 END; 528 ED TRCADRS; 530 PROCEDURE DOSTRING(I,SYMTAB); VALUE I; INTEGER I; ARRAY SYMTAB[I]; 531 ENTRY; 532 BEGIN DOUBLE SKADRS=SFTBLX[8]; 533 IF 1>0 THEN BEGIN 534 SFTBLK[12]:=SFTBLK[12]+1; 535 IF SFTBLK[12]≤SFTLIM THEN BEGIN 536 IF SFTBLK[12]>1 THEN 53? MOVE SFTBLK[SFTBLK[12]*5*31:SFTELK[7],+(5); 538 SFTBLK[7]:=SFTBLK[11]:=SYMTAB[I] AND %FFF; & length of key & A"PPENDIX i1 (suite) 33 5599 z55;99 10 539 1L]* SFTBIK 7]+1; 54O SrIi3LK[i10]:=0; 54 SsUt)RS: 2ADRS(SnMTAB[SYMPTR (YMTAB, I)]); 542 P. RSE (SfTBLK); 43!WILE SFTBLK[12]>0 AND SFTBLE[10]=SFTBLK[11] DO BEGIN 544 SFTBLK[12]:=SFTBLK[121]-1; 545 IF SFTBLK[12]>0 THEN 546 MOVE SFTBLK[7]:=SFTBLK[SFTBLK[121*5+8],+(5); 547 END; 548 IF SFTBLK[12]=0 THEN SQUEEZE(TVSRCH(1000,%2000)); 549 END ELSE DSMSG(AFB,"S0FTEY OVERFLOW"); 550 END ELSE DSMSG(AFB,"UNDEFINED SOFTKEY: "); 551 - END dostriag; 553 PROCEDURE DOSOFTKEY(N); VALUE N; INTEGER N; ENTRY; 554 BEGIN & search for key & 555 INTEGER K,TSAVE; 556 K:=TVSRCH(N,%2000); 557 IF K>O THEN BEGIN 558 IF -10 559 IF CMDLEN<>O THEN BACKUP(LASTBLK,CMDLEN); 560 CMDLEN:=0; 561 TSAVE:=TLEDS; 562 TLEDS:=RBIT(TLEDS,9); 563 END; 564 DOSTRING(K,SYMTAB); 565 IF TBIT(TSAVE,9) AND -10 566 END; 567 END dosoftkey; 569 PROCEDURE NEWPARM(PARM,FLG); VALUE PARM,FLG; BCDL PARM; INTEGER FLG; 570 BEGIN 571 INTEGER PARMI=PARM; 572 CASE RIGHT(FLG,8)-13 OF BEGIN 573 & mkact & 574 BEGIN 575 INTEGER POINTER MKPTR=REGISTER 9; 576 MKACT:=LIMIT(MKACT-1,3)+1; 577 MKRSAVE; 578 STPNTR(MKPTR,ADRS(NEWSTATE[MKACT*3-21)); 579 MSTATE[MERMODE]:= 580 TURN(MSTATE[MKRMODE],MKPTR,IF MKREL THEN %FFOO ELSE %FFFF); 581 MSTATE([MRKR]:=MKPTR[1]; 582 MSTATE[MKRLVLI:=MKPTR[2]; 583 MSTATEU[MERMODE]:=--TURN(MSTATE[MKRMODE],LEFT(U{ACT-1,12),%3000); 584 IF MSTATE[MKR]=O THEN MSTATE[MRER]:=501; 535 IF TEST(MSTATE[MKRMODE],O,%FF) THEN BEGIN 586 LDKEY('M); 587 END; 588 IF MKATST THEN MKASRCH; 589 UPDATEMER; 590 END activate marker; 592 & mkfc & 593 IF ANALYZER=8568 THEN BEGIN PUT(KEYBLK,@175); LDKEY(MKFC); END; 595 & mkpause & BEGIN PUT(EEYBLK,'s); LDEY('u); LDKEY('t); END; 597 & mkpt & COMMENT - MEPT - NOTHING TO DO; APPENDIX II (suite) 2559910 599 & mkpx & COMMENT - MEPX - NOTHING TO DO; 600o 6C1 & iknoise & BEGIN PIJT(KEYBLK,'s); LDKEY('L+(M O THEN BEGIN INTEGER RL,LG; 606 LG:=PFVAL("LG"); 607 RL:=PFVAL("RL"); 608 MSTATE[MERLVL]:= 609 NEWSTATE[MKACT*3]:=IF MKREL THEN 610 (IF LG=O THEN PARMI/10 ELSE PARMI/LG)+MSTATE[AMLVL] 611 ELSE (IF LG=O THEN PARMI/10 ELSE 612 (PARMI-RL)/LG+1000); 613 IF MKATST THEN MKASRCH; 614 UPDATEMXR; 61:5 END; 617 mkf & 618 BEGIN ARRAY TBLK[0:12]; 619 BCDL LTEMP--TBLK; 620 TBLK[6]:=o; 621 IF ANALYZER=8568 THEN BEGIN 622 LTEMP:=DRIGHT(PARM,2); 623 TBLK[5]:--TBLK[4h]:-18; 624 END ELSE BEGIN 625 LTEMP:=PARM; 626 TBLKf[4]:=10; 627 END; 628 DOENTRY(TBLK); 629 END; 631 & mkp & 632 BEGIN 633 MSTATE[MRER]:= 634 LIMIT(PARMI+(IF MKREL THEN MSTATE[AMKR] ELSE.0)-11000)+1; 635 UPDATEMXR; 636 END; 638 & amb & LDKEY(IF AMB THEN 'f ELSE 'c); 640 & anot & BEGIN PUT(EEYBLK, 's); LDKEY((ANNOT AND 1)+o); END; 64î 642 & dle & LDIEY((DLE AND 1)+'m); 644 & grat & BEGIN PUT(KEYBLK,'s); LDKEY((GRAT AND 1)'m); END; 646 & ods & COMMENT - MDS - NOTHING TO DO; 648 & tdf & COMMENT - TDF - NOTHING TO DO; 650 & the & LDEY((THE AND 1)+'o); 652 END of newparm case; 653 END newparm; 655 ENDS 656 #EOF# Z 00089DH szni unasss0ou V1Lús1itL úTIn 7O Z tLúStL - Zfln ISs-OlfV zoz 28Tg'"1aL - zz sNoIJ.anxaîNIaa unfl3oDaaG T9TúL ozi 09ILS 6FI YOI66 Sil 8Tn ZZ L V9z5atL VIn - SI-dH oz t TzUa EflbIUI3HdIUSd SVAd31NI 9'9ST"L LIn '7Lt -99SsiL> 9Qn SUNNO aa.13 SZSS3UIGVG :LúSIL SLIn NOISSIWSNVI 32G SaNOI! S3G SNOcNVI 4S'I4L -sE9n 9t t LSIL Y9n NOJNVI nG SNVNNOD gEOST*,. SlTn E L ZEOTS1V L VTTn OLI!/0! LJ z L 8gSLTS'L Lf sssssuav,a unsaoDnc 6ETS7L 8zn Pumne5oi 89î' QV 6n s3ssauv,OE unsQnoDa 6LLW' QL 66 SS Wl tn intn X 4 CD o o D vD % % O w >O w %D O %0 % H in th U i ULn tn UlfU l tn t N 4 NC4 J- av f r- r- r- r- HH H (c FQ: H C4C'8C Hr4. I o p DD ci D D PDPD w w o b H w O O- Z órc' k N'4 REVENDICATIONS 1. Appareil de mesure de fréquences de ba- layage, caractérisé en ce qu'il comprend: - des moyens d'entrée servant à recevoir un signal, - des moyens de mesure de fréquences de balayage raccor- dés aux moyens d'entrée pour produire un signal de me- sure en réponse & la réception d'un signal par les mo- yens d'entrée, - des moyens de traitement des signaux, raccordés aux moyens de mesure de fréquences variables pour produire et mémoriser une représentation numérique du signal de mesure, -des moyens d'affichage raccordés aux moyens de traite- ment des signaux pour réaliser l'affichage de signaux mémorisés sous la forme d'une trace de signal, - des moyens de commande d'une marque permettant à un utilisateur de demander qu'une marque soit placée sur la trace du signal représenté sur les moyens d'afficha- ge, au niveau d'une amplitude spécifiée, et - des moyens de production d'une marque, raccordés aux moyens de traitement des signaux, aucmoyensde commande de la marque et aux moyens d'affichage, afin de produi- re une marque sur la trace du signal au niveau de l'am- plitude spécifiée par le dispositif de commande de la marque ou en une position aussi rapprochée que possi- ble de cette amplitude. 2. Procédé pour la mise en place d'une mar- que sur une trace de signal d'une représentation numé- rique mémorisée d'un signal mesuré produit en tant que résultat d'une mesure d'une fréquence de balayage, carac- térisé en ce qu'il inclut les phases opératoires consis- tant à: - établir un niveau d'amplitude pour lequel la marque doit être placée sur la trace du signal, - comparer le niveau d'amplitude de la marque à l'ampli- tude de la représentation numérique mémorisée du si- gnal mesuré de manière à repérer la position présente sur la trace du signal et qui est la plus rapprochée de l'amplitude de la marque, et placer une marque sur la trace du signal dans la posi- tion repérée. 3. Appareil de mesure de fréquences de ba- layage, caractérisé en ce qu'il comprend: - des moyens d'entrée servant à recevoir un signal, - des moyens de mesure de fréquences variables, raccordés aux moyens d'entrée pour produire un signal de mesure en réponse à la réception d'un signal par les moyens d'entrée, - des moyens de traitement des signaux, raccordés aux moyens de mesure de fréquences variables pour produire et mémoriser une représentation numérique du signal de mesure, - des moyens d'affichage raccordés aux moyens de traite- ment des signaux pour l'affichage de signaux mémorisés sous la forme d'une trace de signal, ainsi que de. mar- ques en des emplacements sélectionnés sur la trace du signal, - des moyens de commande de marque permettant à un utili- sateur de demander qu'une marque soit placée sur la trace du signal, représentée sur les moyens d'afficha- ge, au niveau d'un pic de la trace du signal à droite ou à gauche de la position actuelle d'une marque, et - des moyens formant générateur de maraues, raccordés aux moyens de traitement des signaux, auxmoyensde com- mande de la marque et aux moyens d'affichage afin de produire une marque sur la trace de signal, au niveau d'un pic de cette trace, spécifié par les moyens de commande de la marque. 4. Procédé pour la mise en place d'une mar- que sur une trace de signald'une représentation numéri- que mémorisée d'un signal mesuré obtenu en tant que résultat d'une mesure de fréquences de balayage incluant les phases opératoires consistant à: spécifier la direction de recherche d'un pic dans la trace du signal vers la droite ou vers la gauche de la position actuelle d'une marque,pic sur lequel la mar- que doit être placée, - rechercher le premier pic possédant une hauteur prédé- terminée dans la direction spécifiée sur la trace du signal et mémoriser l'emplacement du pic, si l'on en a repéré un, et - placer une marque sur la trace du signal dans la posi- tion repérée.