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