L'Ordinateur Individuel n°47 avril 1983
L'Ordinateur Individuel n°47 avril 1983
  • Prix facial : 20 F

  • Parution : n°47 de avril 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 262

  • Taille du fichier PDF : 243 Mo

  • Dans ce numéro : intelligence artificielle, robotique, insertion des handicapés... un assistant efficace.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 242 - 243  |  Aller à la page   OK
Pages suivantes >
242 243
Génération de REM de longueurs variables Quand on programme en assembleur, il est souvent nécessaire de disposer en première ligne d'une REM qui peut contenir l'ensemble d'une routine en langage 1 REM 1234567S01234567690123 45678901234567 2 REM 10 PRINT "ENTRER LE NOMBRE DE CARRCTERES SOUS LR FORME DU PRO DUIT DE DEUXN08IBRE5 < A 255- 110 INPUT Ni 120 INPUT N2 125 LET N=N11N2+2 130 POKE 165S0,INT (N/256) 140 POKE 16549,N-256$1NT (N/256 1 160 170 180 190 POKE RRND STOP REM 15518,N1 16520,N2 USil 16514 200 LET R=15514 210 LET C$=-21RD4016001E00D5E53 E3DcD2605E1D11020F41520EF3AR5403 2AR403R064032RB40C90000- 220 FOR X=1 TO LEN C$-1 STEP 2 22E POKE R+INT ((X-11/2),(CODE C$(X)-28*16+CODE C$(X+1)-28 230 NEXT X FRIRE RUN 200 PUIS SUPPRIMER LES LIGNES 190 R 230 VOUS OBTENEZ 1 REM EMRND- 2 STR$ FAST YXLN AS LPRINT SGN 14 PORE +4 LORD U WPNOM@RNDUUIRNDMQRNDTIIN 2 REM 10 PRINT "ENTRER LE NOMBRE DE CARACTERES SOUS LA FORME DU PRO DUIT DE DEUXNOMBRES A 255- 110 INPUT Ni 120 INPUT N2 125 LET N.N1*N2+2 130 POKE 16550,INT (N/256) 140 POKE 18549,N-258*INT (N/256 150 POKE 16518,N1 150 POKE 16520,N2 170 RAND USR 15514 130 STOP c = a2- RD ES 3E 1.D 40 32 Re 40 40 3D F4 AR Cg 16 CD 16 00 machine. Pour cela, cette REM doit être remplie au préalable par des caractères factices. Quand il faut moins de cinquante caractères, cela peut être fait manuellement, mais quand il en faut beaucoup plus, il vaut mieux automatiser la génération de cette REM. 00 26 20 -24 ; 00 1E 05 EF RE, 00 E1 3R 4-0 05 32 L Ordinateur Individuel 242 La routine (37 octets) 16514 LD HL 16557 (d) 21 AD 40 LDD,N1 16 00 LD E, N2 lE 00 Adresse d'implantation Nombre de caractères Nl.N2 N1 et N2 sont écrits par les POKE du Basic PUSH DE D5 PUSH HL E5 LDA, 61 (d) X 3E 3D Code du caractère X CAL DECALAGE CD 26 05 Appel de la routine en MEM POP HL El POP DE D1 DEC E 1D JR NZ - 12 (d) 20 F4 DEC D 15 JR NZ -17 (d) 20 EF LD A, (MEM1) 3A A5 40 LD (16554 (d)), A 32 AA 40 LDA, (MEM2) 3A A6 40 LD (16555 (d)), A 32 AB 40 RET C9 MEM I 00 MEM 2 00 programme initial programme final (à sauvegarder sur cassette) codes hexadécimaux mis dans la chaîne C$ dans le programme initial Correction de la longueur de la REM Valeurs écrites par les POKE du Basic Ce petit programme, dont une partie est écrite en langage machine, permet cette automatisation. Sauvegardez-le sur cassette et chargez-le pour générer la REM qu'il vous faut. La ligne 2 REM est indispensable, car elle va servir de matrice à la REM à créer. La routine en langage machine va insérer autant de caractères (ici un X) qu'il faut entre REM et la NEW- LINE de fin de ligne, grâce à une sous-routine de la MEM Sinclair très utile. Cette routine remonte tout à partir d'une adresse, d'un cran, en changeant les neuf pointeurs (DFILE, VARS, etc.). Pour utililiser le programme, si par exemple vous désirez une REM contenant 663 caractères factices, rentrez, par exemple, au premier INPUT la valeur 3, et au second la valeur 231. Le nombre de caractères doit être égal au produit de ces deux nombres (qui ne peuvent être supérieurs à 255). Jean-Marie Sebaux n 47 Avnl 83
Un programme écrit en BASIC anglais apparaîtra automatiquement dans sa version française La Programmation en Français leirCIAZ Aile2BASIC F Avant 10 PRINT « PETIT EXEMPLE 20 FOR I = 1 to 10 30 INPUT « UN NOMBRE » ; N 40 IF N = INT (N/2)* 2 THEN PRINT « NOMBRE PAIR » 50 NEXT I Après 10 AFFICHE « PETIT EXEMPLE » 20 POUR I = 1 à 10 30 DEMANDE "UN NOMBRE » ; N 40 SI N = ENT (N/2) *2 ALORS AFFICHE « NOMBRE PAIR » 50 REPETE I De même, le programme que vous écrivez en M2C2 BASIC F sera visible automatiquement dans sa version anglaise (APPLESOFT, BASIC SINCLAIR ou BASIC MICROSOFT) sur un système non modifié. Et maintenant en version CPM interpréteur M2C2 BASIC F qui accepte des SYNONYMES et des ABREVIATIONS : Facilite l'enseignement de la programmation et rend plus lisibles les programmes complexes écrits en anglais. Présentation APPLE II 48K français Pour 7590 FF H.T. APPLE II : version en Carte ROM, ou sur disque SINCLAIR ZX81 : échange de ROM et de clavier CP M : sur disque Manuel de 250 pages avec exemples élaborés Existe aussi en versions compatibles allemandes, espagnoles, italiennes, grecques et arabes FRANCEs.a.r. 27, Rue Madeleine Michelis Neuilly 92200 Tel. 738 13 72 FRANCErr 47 Avril 83 243 L'Ordinateur Individuel Réf érence 141 du service-lecteurs (page 69)



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


L'Ordinateur Individuel numéro 47 avril 1983 Page 1L'Ordinateur Individuel numéro 47 avril 1983 Page 2-3L'Ordinateur Individuel numéro 47 avril 1983 Page 4-5L'Ordinateur Individuel numéro 47 avril 1983 Page 6-7L'Ordinateur Individuel numéro 47 avril 1983 Page 8-9L'Ordinateur Individuel numéro 47 avril 1983 Page 10-11L'Ordinateur Individuel numéro 47 avril 1983 Page 12-13L'Ordinateur Individuel numéro 47 avril 1983 Page 14-15L'Ordinateur Individuel numéro 47 avril 1983 Page 16-17L'Ordinateur Individuel numéro 47 avril 1983 Page 18-19L'Ordinateur Individuel numéro 47 avril 1983 Page 20-21L'Ordinateur Individuel numéro 47 avril 1983 Page 22-23L'Ordinateur Individuel numéro 47 avril 1983 Page 24-25L'Ordinateur Individuel numéro 47 avril 1983 Page 26-27L'Ordinateur Individuel numéro 47 avril 1983 Page 28-29L'Ordinateur Individuel numéro 47 avril 1983 Page 30-31L'Ordinateur Individuel numéro 47 avril 1983 Page 32-33L'Ordinateur Individuel numéro 47 avril 1983 Page 34-35L'Ordinateur Individuel numéro 47 avril 1983 Page 36-37L'Ordinateur Individuel numéro 47 avril 1983 Page 38-39L'Ordinateur Individuel numéro 47 avril 1983 Page 40-41L'Ordinateur Individuel numéro 47 avril 1983 Page 42-43L'Ordinateur Individuel numéro 47 avril 1983 Page 44-45L'Ordinateur Individuel numéro 47 avril 1983 Page 46-47L'Ordinateur Individuel numéro 47 avril 1983 Page 48-49L'Ordinateur Individuel numéro 47 avril 1983 Page 50-51L'Ordinateur Individuel numéro 47 avril 1983 Page 52-53L'Ordinateur Individuel numéro 47 avril 1983 Page 54-55L'Ordinateur Individuel numéro 47 avril 1983 Page 56-57L'Ordinateur Individuel numéro 47 avril 1983 Page 58-59L'Ordinateur Individuel numéro 47 avril 1983 Page 60-61L'Ordinateur Individuel numéro 47 avril 1983 Page 62-63L'Ordinateur Individuel numéro 47 avril 1983 Page 64-65L'Ordinateur Individuel numéro 47 avril 1983 Page 66-67L'Ordinateur Individuel numéro 47 avril 1983 Page 68-69L'Ordinateur Individuel numéro 47 avril 1983 Page 70-71L'Ordinateur Individuel numéro 47 avril 1983 Page 72-73L'Ordinateur Individuel numéro 47 avril 1983 Page 74-75L'Ordinateur Individuel numéro 47 avril 1983 Page 76-77L'Ordinateur Individuel numéro 47 avril 1983 Page 78-79L'Ordinateur Individuel numéro 47 avril 1983 Page 80-81L'Ordinateur Individuel numéro 47 avril 1983 Page 82-83L'Ordinateur Individuel numéro 47 avril 1983 Page 84-85L'Ordinateur Individuel numéro 47 avril 1983 Page 86-87L'Ordinateur Individuel numéro 47 avril 1983 Page 88-89L'Ordinateur Individuel numéro 47 avril 1983 Page 90-91L'Ordinateur Individuel numéro 47 avril 1983 Page 92-93L'Ordinateur Individuel numéro 47 avril 1983 Page 94-95L'Ordinateur Individuel numéro 47 avril 1983 Page 96-97L'Ordinateur Individuel numéro 47 avril 1983 Page 98-99L'Ordinateur Individuel numéro 47 avril 1983 Page 100-101L'Ordinateur Individuel numéro 47 avril 1983 Page 102-103L'Ordinateur Individuel numéro 47 avril 1983 Page 104-105L'Ordinateur Individuel numéro 47 avril 1983 Page 106-107L'Ordinateur Individuel numéro 47 avril 1983 Page 108-109L'Ordinateur Individuel numéro 47 avril 1983 Page 110-111L'Ordinateur Individuel numéro 47 avril 1983 Page 112-113L'Ordinateur Individuel numéro 47 avril 1983 Page 114-115L'Ordinateur Individuel numéro 47 avril 1983 Page 116-117L'Ordinateur Individuel numéro 47 avril 1983 Page 118-119L'Ordinateur Individuel numéro 47 avril 1983 Page 120-121L'Ordinateur Individuel numéro 47 avril 1983 Page 122-123L'Ordinateur Individuel numéro 47 avril 1983 Page 124-125L'Ordinateur Individuel numéro 47 avril 1983 Page 126-127L'Ordinateur Individuel numéro 47 avril 1983 Page 128-129L'Ordinateur Individuel numéro 47 avril 1983 Page 130-131L'Ordinateur Individuel numéro 47 avril 1983 Page 132-133L'Ordinateur Individuel numéro 47 avril 1983 Page 134-135L'Ordinateur Individuel numéro 47 avril 1983 Page 136-137L'Ordinateur Individuel numéro 47 avril 1983 Page 138-139L'Ordinateur Individuel numéro 47 avril 1983 Page 140-141L'Ordinateur Individuel numéro 47 avril 1983 Page 142-143L'Ordinateur Individuel numéro 47 avril 1983 Page 144-145L'Ordinateur Individuel numéro 47 avril 1983 Page 146-147L'Ordinateur Individuel numéro 47 avril 1983 Page 148-149L'Ordinateur Individuel numéro 47 avril 1983 Page 150-151L'Ordinateur Individuel numéro 47 avril 1983 Page 152-153L'Ordinateur Individuel numéro 47 avril 1983 Page 154-155L'Ordinateur Individuel numéro 47 avril 1983 Page 156-157L'Ordinateur Individuel numéro 47 avril 1983 Page 158-159L'Ordinateur Individuel numéro 47 avril 1983 Page 160-161L'Ordinateur Individuel numéro 47 avril 1983 Page 162-163L'Ordinateur Individuel numéro 47 avril 1983 Page 164-165L'Ordinateur Individuel numéro 47 avril 1983 Page 166-167L'Ordinateur Individuel numéro 47 avril 1983 Page 168-169L'Ordinateur Individuel numéro 47 avril 1983 Page 170-171L'Ordinateur Individuel numéro 47 avril 1983 Page 172-173L'Ordinateur Individuel numéro 47 avril 1983 Page 174-175L'Ordinateur Individuel numéro 47 avril 1983 Page 176-177L'Ordinateur Individuel numéro 47 avril 1983 Page 178-179L'Ordinateur Individuel numéro 47 avril 1983 Page 180-181L'Ordinateur Individuel numéro 47 avril 1983 Page 182-183L'Ordinateur Individuel numéro 47 avril 1983 Page 184-185L'Ordinateur Individuel numéro 47 avril 1983 Page 186-187L'Ordinateur Individuel numéro 47 avril 1983 Page 188-189L'Ordinateur Individuel numéro 47 avril 1983 Page 190-191L'Ordinateur Individuel numéro 47 avril 1983 Page 192-193L'Ordinateur Individuel numéro 47 avril 1983 Page 194-195L'Ordinateur Individuel numéro 47 avril 1983 Page 196-197L'Ordinateur Individuel numéro 47 avril 1983 Page 198-199L'Ordinateur Individuel numéro 47 avril 1983 Page 200-201L'Ordinateur Individuel numéro 47 avril 1983 Page 202-203L'Ordinateur Individuel numéro 47 avril 1983 Page 204-205L'Ordinateur Individuel numéro 47 avril 1983 Page 206-207L'Ordinateur Individuel numéro 47 avril 1983 Page 208-209L'Ordinateur Individuel numéro 47 avril 1983 Page 210-211L'Ordinateur Individuel numéro 47 avril 1983 Page 212-213L'Ordinateur Individuel numéro 47 avril 1983 Page 214-215L'Ordinateur Individuel numéro 47 avril 1983 Page 216-217L'Ordinateur Individuel numéro 47 avril 1983 Page 218-219L'Ordinateur Individuel numéro 47 avril 1983 Page 220-221L'Ordinateur Individuel numéro 47 avril 1983 Page 222-223L'Ordinateur Individuel numéro 47 avril 1983 Page 224-225L'Ordinateur Individuel numéro 47 avril 1983 Page 226-227L'Ordinateur Individuel numéro 47 avril 1983 Page 228-229L'Ordinateur Individuel numéro 47 avril 1983 Page 230-231L'Ordinateur Individuel numéro 47 avril 1983 Page 232-233L'Ordinateur Individuel numéro 47 avril 1983 Page 234-235L'Ordinateur Individuel numéro 47 avril 1983 Page 236-237L'Ordinateur Individuel numéro 47 avril 1983 Page 238-239L'Ordinateur Individuel numéro 47 avril 1983 Page 240-241L'Ordinateur Individuel numéro 47 avril 1983 Page 242-243L'Ordinateur Individuel numéro 47 avril 1983 Page 244-245L'Ordinateur Individuel numéro 47 avril 1983 Page 246-247L'Ordinateur Individuel numéro 47 avril 1983 Page 248-249L'Ordinateur Individuel numéro 47 avril 1983 Page 250-251L'Ordinateur Individuel numéro 47 avril 1983 Page 252-253L'Ordinateur Individuel numéro 47 avril 1983 Page 254-255L'Ordinateur Individuel numéro 47 avril 1983 Page 256-257L'Ordinateur Individuel numéro 47 avril 1983 Page 258-259L'Ordinateur Individuel numéro 47 avril 1983 Page 260-261L'Ordinateur Individuel numéro 47 avril 1983 Page 262