Nº270 (10/2012)







  Download :
La petite surprise de l'été (voir couverture et page 4), c'est le résultat des devoirs de vacances de Fabrice F.! Et oui ! Il a de nouveau sévit ! Et cette fois encore, il nous a bien étonnés avec une innovation hi-tech : Connecter un Oric-1 avec une tablette Android par liaison Bluetooth. Si j'ai bien compris, les données du clavier sont alors transmises à un émulateur "EuphoricAndr" qui tourne sur la tablette. Résultat : on peut taper et exécuter des program¬mes et même jouer aux grands classiques... Bravo Fabrice!

Visu du 30 Juin : Suite et fin des Photos par Didier, Simon, Mathieu et André. Cassettes : Journal de transferts Carte Orea pour Oric Journal du soft : Basic Oric pourAndroid ! BasiX : La commande !ON

sommaire

Adresses CEO / Sommaire / Editorial   Page 2
Courrier Oricien   Page 3-5
Bonnes adresses   Page 5
BasiX : Commande !ON   Page 6
Aide Rush Hour, supplément n°15 (1/3)   Page 7-8
Divertissements mathématiques et logiques   Page 9
Photos de la Visu du 30 juin 2012 par Didier V.   Page 10-11
Le coin Sudoku Oric : Les grilles 1 à 6 de septembre   Page 12
Basicode : Votre ordinateur et les circuits accordés   Page 13-17
Journal de transferts : Décembre 2011 à juin 2012   Page 18-19
Brève : Carte Orea pour Oric   Page 20-21
Journal du Soft : Interprète Basic pour Android etc.   Page 22-23
Adaptation disquette de Teknis   Page 24-27
Oric en boîter ITX avec HxC emulator   Page 28-30
Photos de la Visu du 30 juin 2012 par Simon G.   Page 31
Photos de la Visu du 30 juin 2012 par Mathieu C.   Page 32-33
Photos de la Visu du 30 juin 2012 par André C.   Page 34
Le chat (adaptation de François S.)   Page 5
Dino : Devinettes, blagues etc.   Page 5, 7, 21, 22, 23 & 30


BasiX : Commande !ON
Par Yann L.

Nous poursuivons l'étude de l'extension BasiX avec la commande !ON qui se substitue à la classique commande ON du Basic.
!ON i GOTO exp1,exp2,…,expi : se rend à ligne Basic expi
!ON i GOSUB exp1,exp2,…,expi : se rend au sous-programme situé en ligne expi
L'expression expi peut être numérique ou alphanumérique. Dans ce dernier cas, elle devra être déclarée par la commande !DEF (voir programme de démonstration).

8605 JSR D8C8 ; prendre un entier dans X
8608 STX 60 ; sauver X en 60
860A PHA ; sauver le prochain caractère
860B CMP #9B ; s'agit-il du token 'GOSUB' ?
860D BEQ 8613 ; oui poursuivre en 8613
860F CMP #97 ; s'agit-il du token 'GOTO' ?
8611 BNE 8602 ; non alors ?SYNTAX ERROR
8613 DEC 60 ; faire X=X-1 pour se positionner sur la bonne expression expi
8615 BEQ 8624 ; si résultat nul, évaluer l'expression
8617 JSR 00E2 ; lit caractère suivant
861A BEQ 8622 ; si Z=1, fin d'instruction (sortir)
861C CMP #2C ; s'agit-il du délimiteur ',' ?
861E BNE 8617 ; non, alors reboucler
8620 BEQ 8613 ; oui, décrémenter X et prendre caractère suivant
8622 PLA ; récupérer prochain caractère
8623 RTS ; retour interpréteur
8624 JSR 00E2 ;
8627 LDA E9 ; placer correctement
8629 PHA ; TXTPTR et sauvegarder
862A LDA EA ; sur la pile
862C PHA ;
862D CF JSR CF17 ; évaluer l'expression (#28=#00 si numérique ou #FF si chaîne)
8630 PLA ;
8631 STA EA ; récupérer TXTPTR
8633 PLA ; sur la pile
8634 STA E9 :
8636 BIT 28 ; s'agit-il d'une chaîne ?
8638 BMI 8645 ; oui poursuivre en 8645
863A PLA ; récupérer le code du token
863B CMP #97 ; s'agit-il du token 'GOTO' ?
863D BNE 8642 ; non alors exécuter commande 'GOSUB'
863F JMP C9E5 ; commande 'GOTO'
8642 JMP C9C8 ; commande 'GOSUB'
8645 PLA ; récupérer le code du token
8646 CMP #9B ; s'agit-il du token 'GOSUB' ?
8648 BEQ 85E5 ; oui poursuivre en 85E5
864A BNE 85E3 ; token 'GOTO' en 85E3
85E3 BNE 8579 ; nouvelle commande !GOTO
85E5 LDA #03 ; nouvelle commande !GOSUB
85E7 JSR C437 ; vérifier place sur la pile (A contient la moitié du nombre d'octets à réserver)
85EA LDA EA ;
85EC PHA ; sauvegarder TXTPTR
85ED LDA E9 ; sur la pile
85EF PHA ;
85F0 LDA A9 ;
85F2 PHA ; sauvegarder n° ligne
85F3 LDA A8 ; sur la pile
85F5 PHA ;
85F6 LDA #9B ; sauvegarder token
85F8 PHA ; 'GOSUB'
85F9 JSR 00E8 ; prendre caractère suivant
85FC JSR 8579 ; nouvelle commande 'GOTO'
85FF JMP C8C1 ; exécuter une ligne
8602 JMP D070 ; ?SYNTAX ERROR

Programme de démonstration de la commande !ON
10 CLS:!GOSUB"INIT"
20 INPUT"NUMERO SOUS PROGRAMME ";N:PRINT
30 !ON N GOSUB"SP1","SP2","SP3"
40 END
100 !DEF"SP1"
110 PRINTM$(1)
120 RETURN
130 !DEF"SP2"
140 PRINTM$(2)
150 RETURN
160 !DEF"SP3"
170 PRINTM$(3)
180 RETURN
200 !DEF"INIT"
210 FORI=1TO3
220 M$(I)="BIENVENUE DANS LE S/P"+STR$(I)
230 NEXTI
240 RETURN
Dans le prochain article, les dernières commandes BasiX…


BROWSE

NUMEROS
 [272] - [271] - [270] [269] - [268] - [267] - [266] - [265] - [264] - [263] - [262] - [261] 

YEAR
2013 - 2012 - 2011 - 2010 - 2009 - 2008 - 2007 - 2006 - 2005 - 2004 - 2003 - 2002 - 2001 - 2000 - 1999 - 1998 - 1997 - 1996 - 1995 - 1994 - 1993 - 1992 - 1991 - 1990



Hosted By oric.org server www.oric.org V 2.6 CNIL ID : 872370 Write to Webmaster © 2000-2024 Built in 0.02 Seconds