Retourner à la liste des fichiers
* 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