Nasium Lse issueshttps://framagit.org/nasium-lse/nasium-lse/-/issues2015-10-20T19:52:01Zhttps://framagit.org/nasium-lse/nasium-lse/-/issues/500040 vérifier SI 1=1 ALORS SINON AFFICHER 'NON';; 2015-10-20T19:52:01ZPascal J. Bourguignon00040 vérifier SI 1=1 ALORS SINON AFFICHER 'NON';; *Created by: Pascal J. Bourguignon*
Sur Siris, l'instruction vide existe, alors ;; et ALORS SINON sont possible.
*Created by: Pascal J. Bourguignon*
Sur Siris, l'instruction vide existe, alors ;; et ALORS SINON sont possible.
https://framagit.org/nasium-lse/nasium-lse/-/issues/400039 vérifier page 28 paramètres et déclarations manuel siris2015-10-20T19:52:00ZPascal J. Bourguignon00039 vérifier page 28 paramètres et déclarations manuel siris*Created by: Pascal J. Bourguignon*
*Created by: Pascal J. Bourguignon*
https://framagit.org/nasium-lse/nasium-lse/-/issues/300038 vérifier RETOUR EN = RETOUR + ALLER EN vs. FAIRE POUR2015-10-20T19:51:59ZPascal J. Bourguignon00038 vérifier RETOUR EN = RETOUR + ALLER EN vs. FAIRE POUR*Created by: Pascal J. Bourguignon*
et tester:
```
ERREUR EN LIGNE 20 : NUMERO DE LIGNE INEXISTANT 20
PRET
LISTER A PARTIR DE 1
1 Y_&RAC(3,20);AFFICHER Y
2 Y_&RAC(-3,20);AFFICHER Y
3 TERMINER
20 AFFICHER 'Pas de racine ré...*Created by: Pascal J. Bourguignon*
et tester:
```
ERREUR EN LIGNE 20 : NUMERO DE LIGNE INEXISTANT 20
PRET
LISTER A PARTIR DE 1
1 Y_&RAC(3,20);AFFICHER Y
2 Y_&RAC(-3,20);AFFICHER Y
3 TERMINER
20 AFFICHER 'Pas de racine réelle.'
21 TERMINER
100 PROCEDURE &RAC(ARG,ERRE) LOCAL ARG,ERRE
101 SI ARG<0 ALORS RETOUR EN ERRE
102 RESULTAT RAC(ARG)
```https://framagit.org/nasium-lse/nasium-lse/-/issues/200033 specificités T-1600 / Mitra-15 / Siris2015-10-20T19:51:58ZPascal J. Bourguignon00033 specificités T-1600 / Mitra-15 / Siris*Created by: Pascal J. Bourguignon*
T-1600: fonctions SH, CH, TH, SGN, UN et ZER.
Mitra-15: instruction SUPPRIMER pour supprimer un fichier donnée.
T-1600: 10 ALLER EN @+3 -> aller en 13
Mitra-15: 10 I_@50 ; 20 ALLER EN I -...*Created by: Pascal J. Bourguignon*
T-1600: fonctions SH, CH, TH, SGN, UN et ZER.
Mitra-15: instruction SUPPRIMER pour supprimer un fichier donnée.
T-1600: 10 ALLER EN @+3 -> aller en 13
Mitra-15: 10 I_@50 ; 20 ALLER EN I -> aller en 50
renumérotage tient compte de @50.
Voir aussi les autres limitations; par exemple sur les fichiers. Un
fichier Mitra-15/T-1600 avait des blocks de 256 octets (Mitra-15
pouvant écrire les chaines sur plusieurs blocks). Les fichiers
implémentés par nasium ont des blocs de 1024 octets.
Sur Siris 7/Siris 8, on avait un compilateur LSE.
Différence lexicales:
```
Mini Siris
^ ---> **
_ ---> <-
[ ---> (/
] ---> /)
```
1 à 4 cartes;
colonnes 1-4 pour le numéro de ligne,
colonnes 5-80 pour le texte de la ligne,
jusqu'à 3 cartes continuation sans rien dans les colonnes 1-4.
Commentaires: * ou #
Lire: les données sont sur flot continu de cartes.
les chaînes doivent être quotées: 'UNE ''CHAINE''' (comme en lisp avec READ).
Procédure externes: module avec seulement des procédures -> bibliothèque
programme référençant des procédures externe => édition de lien
```
LSE-MITRA-15 LSE-T1600 LSE-UNIX LSE-SIRIS
------------------------ ----------------- -------------- -------------- --------------
commandes: ------------------------------ -------------- --------------
IDentification
DRoits
BOnjour
ADieux
PRendre etat console
------------------------------ -------------- --------------
TA implementé pas encore on pourrait avoir
UT implementé pas encore un autre format.
ENCODER:
Sur Mitra-15, fonctionne comme APpeler: le programme courant est
effacé et remplacé par le programme chargé.
Sur T-1600 (et unix), ENcoder remplace ligne par ligne, sans
effacer le reste du programme courant.
------------------------ ----------------- -------------- -------------- --------------
fonctions: ENV(nom)
ARG(i[,r]) -- pas encore implémenté
LISP(e,p,r) -- debugging
DAT() -> hh*mm*ss*cc jj*mm*aa
EXS(x) = e^x
------------------------ ----------------- -------------- -------------- --------------
extensions:
fonction ATT()
fonction DIS(secteur) -- non implémenté
fonction ETL(a,b)
fonction OUL(a,b)
fonction OUX(a,b)
fonction XIT(ea)
------------------------ ----------------- -------------- -------------- --------------
code caractères ASCII ASCII Unicode EBCDIC
longueur identificateur 5 5 8
numéro de ligne 1-250 1-255 1-65535 1-9999
max longueur de ligne 80 80 65535
max longueur nom fichier 5 5 5 ? 4 !
max répetition format ? 62 ? pas implémenté
taille bloc fichier 256 256 1024 (par défault) 1024 (par défaut)
longueur clé 2 2 2 4
------------------------ ----------------- -------------- -------------- --------------
sémantique @ I_@50 = ligne ALLER EN @+3 pas implémenté
------------------------ ----------------- -------------- -------------- --------------
longueur chaine max 65536 256 65536
------------------------ ----------------- -------------- -------------- --------------
EQC max code 128 256 cl:char-code-limit
eg. 1114112 avec unicode
------------------------ ----------------- -------------- -------------- --------------
AFFICHER[Fn.m,En.m]VE,TA non oui oui
------------------------ ----------------- -------------- -------------- --------------
PAUSE EN LIGNE 000 x x
TERMINE EN LIGNE 000 x x
PAUSE x
TERMINE x
------------------------ ----------------- -------------- -------------- --------------
instructions
FAIRE POUR DEBUT FIN
instruction vide.
format P pour page.
------------------------ ----------------- -------------- -------------- --------------
```
Mentionné: T-1600: $ signifie quelque chose.
Annoncé: Mitra-15: procédures externes rangées sur disque &init(t,l,c,i) &lir(c) &max(t,l,c) &min(t,l,c)
https://framagit.org/nasium-lse/nasium-lse/-/issues/100049 UTILISATION DISQUE A PARTIR DE2015-10-20T19:51:56ZPascal J. Bourguignon00049 UTILISATION DISQUE A PARTIR DE*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
```
UTILISATION DISQUE A PARTIR DE [nofic[,(P|D|T)]]
```*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
```
UTILISATION DISQUE A PARTIR DE [nofic[,(P|D|T)]]
```