Differences

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

--- cmdp1.asm [2025/12/08 17:57] – created fool-duplex
+++ cmdp1.asm [2025/12/11 19:10] (current) – fool-duplex
@@ Line 1: / Line 1: @@
-[[code_source_de_menu.mo5|Retourner à la liste des fichiers]]
+[[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]
 <code>* NRDOS.MO5 version 3.5
@@ Line 5: / Line 5: @@
 ************************************************************************************************************
+* 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]]