Nanoreseau.net

This is an old revision of the document!
* NRDOS.MO5 version 3.5
* EXTCMD.ASM (Appel d'une commande externe)

************************************************************************************************************
* EXTCMD
* Cherche un fichier .MO5 ou .NRD sur le disque courant pour l'exécuter.
************************************************************************************************************
EXTCMD SET    *
       LDX    #FNMBF1
       LDA    #9
       LDB    #QMARK

ECLOOP DECA
       BEQ    ECFNOK

       CMPB   ,X+
       BNE    ECLOOP

       LDB    #135            ; NUMÉRO D'ERREUR
       JMP    ERRMSG

ECFNOK LDX    CNSGN+11
       LDY    #FNMBF1
       LDA    #9
       JSR    MEMCPY
       LDY    #MO5
       BSR    SEEKF
       BNE    ECNRD

       LDB    #CHBIN
       STB    CNSGN+3
       CLR    WORD_6425
       LDX    #CNSGN
       JSR    RESEAU

ECWAIT JMP    ECWAIT          ; ATTENDS LA PRISE EN CHARGE PAR LE SERVEUR

ECNRD  LDY    #NRD
       BSR    SEEKF
       BNE    ECFNE

       JSR    OPNNRD
       RTS

ECFNE  LDX    #FILENE 
       JSR    DSPSTR
       RTS
Retourner à la liste des fichiers