Differences

This shows you the differences between two versions of the page.

--- lookup.asm [2025/12/11 11:36] – fool-duplex
+++ lookup.asm [2025/12/29 18:22] (current) – fool-duplex
@@ Line 29: / Line 29: @@
 ************************************************************************************************************
 * LOOKUP
-* Recherche dans la table pointée par Y l'adresse d'exécution correspondant à l'atome fourni
+* Recherche dans la table pointée par Y l'adresse d'exécution correspondant à l'atome pointé par X.
 ************************************************************************************************************
 LOOKUP SET    *
@@ Line 38: / Line 38: @@
        LEAY   B,Y             ; Y pointe à la fin de la table
-LKLOOP:
+LKLOOP BSR    MTCHKW          ; Vérifie le mot clé courant
-       BSR    MTCHKW          ; Vérifie le mot clé courant
        BEQ    LKFND           ; On a une correspondance
@@ Line 48: / Line 47: @@
        BRA    LKEND           ; On n'a pas trouvé
-LKFND:
+LKFND  LDY    1,S             ; On récupère l'offset correspondant
-       LDY    1,S             ; On récupère l'offset correspondant
        LDB    -1,Y
        SUBB   ,S
@@ Line 58: / Line 56: @@
        ORCC   #4
-LKEND:
+LKEND  LEAS   3,S
-       LEAS   3,S
        RTS
 ************************************************************************************************************
 * MTCHKW
-* Compare l'atome fourni avec un mot clé
+* Compare l'atome fourni avec un mot clé. Y pointe sur le mot-clé, X sur l'atome.
 ************************************************************************************************************
 MTCHKW SET    *
@@ Line 70: / Line 67: @@
        LDA    #8              ; Seuls les 8 premiers caractères comptent
-MKLOOP:
+MKLOOP TSTA
-       TSTA
        BEQ    MKSKIP
@@ Line 90: / Line 86: @@
        BNE    MKEND2
-MKEND1:
+MKEND1 PULS   PC,X
-       PULS   PC,X
-MKSKIP:
+MKSKIP LDB    ,Y+             ; Ce n'est pas le bon mot-clé
-       LDB    ,Y+             ; Ce n'est pas le bon mot-clé
        BPL    MKSKIP          ; On saute le reste des caractères
-MKEND2:
+MKEND2 PULS   PC,X
-       PULS   PC,X
 </code>
 [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]