[[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]

<code>* NRDOS.MO5 version 3.5
* CMDP1.ASM (Commandes internes, première partie)

************************************************************************************************************
* SCREEN
* Exécute la commande SCREEN (change les couleurs de forme, fond et bord de l'écran)
************************************************************************************************************
SCREEN SET    *
       LDA    #3              ; 3 paramètres
       LDU    #COLORS

SCRLP  JSR    PRSINT          ; Décode un nombre entier    
       BEQ    SCREND
       BCS    SCREND
       
       CMPY   #16             ; Si supérieur à 15, on arrête là
       BCC    SCREND
       
       LDB    #ESC            ; Compose et envoie la séquence correspondante
       JSR    PCHAR
       CMPA   #1
       BEQ    SCRSKP
       
       LDB    #SPACE
       JSR    PCHAR

SCRSKP PSHS   A
       TFR    Y,D
       ADDB   ,U+
       JSR    PCHAR
       PULS   A
       DECA
       BNE    SCRLP

SCREND RTS

COLORS FCB    $40             ; Forme
       FCB    $50             ; Fond
       FCB    $60             ; Tour

************************************************************************************************************
* REM
* Exécute la commande REM (ignore la ligne, commentaire dans un script)
************************************************************************************************************
REM    SET    *
       CLR    CLTOGO          ; Ignore la fin de la ligne de commande
       RTS

</code>

[[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]