Micro Systèmes n°28 février 1983
Micro Systèmes n°28 février 1983
  • Prix facial : 18 €

  • Parution : n°28 de février 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 190

  • Taille du fichier PDF : 146 Mo

  • Dans ce numéro : dossier... bases de données et gestionnaires de fichiers.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 110 - 111  |  Aller à la page   OK
Pages suivantes >
110 111
4219 GOSUB'9980 4225 SLOW 4227 FOR F=1 TO 40 4228 IF INKEY$i> THEN GOTO 424 0 4229 NEXT F 4230 LET B=0 4231 FAST 4232 CLS 4235 IF I=LEN Z$±1 THEN COTO 400 0 4236 LET B=0 4238 GOTO 9992 4240 LET E$=E$(1 TO I-8)+E$iI+1 TO LEN E$) 4245 GOTO 4000 4250 GOTO 4000 7000 REM 7001 REM SAUVEGARDE 7005 CLS 7010 PRINT - 7020 PRINT AT 4,10, - 7030 PRINT "NOM DU ER ? 7040 INPUT P$ 7050 PRINT P$ 7060 PRINT -DATE ? JJ/MM/AA 7080 INPUT D$ 7090 PRINT D$ 7100 PRINT „ - VOULEZ VOUS CHIJNGE R ? « 7110 INPUT H$ 7120 IF H$=-0- THEN GOTO 7000 7130 CLS 7150 PRINT AT 4,10 ; " ATTENTTJ ENREGIe,TER 7200 PRINT, „,-ON VA DANS 5 SECONDES" 7300 PAUSE 90 7400 snue P$ 7500 CLS 7510 PRINT "FICHIER  : ",P$ 7520 PRINT "DU " ; D$ 7530 PAUSE 70 7600 GOTO 4000 9500 STOP 9599 REM 9600 9601 9602 9603 9950 REM 9951 R 9952 9953 9954 9956 9960 9962 9964 9966 9968 9970 T. ? " INPUT Z$ LET R$=A$+-, "-FZ$ RETURN REM REM IDENTIFICATION EMPLOYEU CLS PR/NT INPUT PRINT GOSUB PRINT GOSUB PRINT GOSUB PRINT - VOTRE NOM ? " VOTRE ADRESSE ? " 9600 "CODE POSTAL ET VILLE 9600 - VOTRE CODE A.P.E.-" 9600 "VOTRE N. DE S.I.P.E. 9971 INPUT Z$ 9973 9972LET PRINT "e'liaigr " i"1$ 9974 LET Z$.A$ 9975 GOSUB 9980 9976 PRINT,, "VOULEZ VOUS CHANGE Z ? " 9977 INPUT Z$ 9378 IF Z$="0" OR 1$="0" THEN GO TO 9950 9979 RETURN 9980 REM EDITION 9961 IF E$(LEN E$="/- THEN LET E$=E$(1 TO LEN E$-1) 9982 FOR I=K TO LEN Z$ 9983 LET B=B+1 9985 IF Z$(1)=-, - THEN GOTO 9994. 9986 IF Z$(1)=-/- THEN GOTO A 9991 PRINT Z$(1) ; 9992 NEXT I 9993 RETURN 9994 PRINT 9996 GOTO 9992 Suite de la fig. 4 110 - MICRO-SYSTEMES PC 1211 *12 k ROM dans pot e a ket * Cette augmentation de mémoire permet à ce pocket des programmes plus musclés.• Entièrement compatible avec l'imprimante et l'interface K 7.• Extension intégrée dans le boîtier. Modif. physique par nos soins exclusivement.• Garantie 1 an. Reprise des garanties en cours. DETAILS COMPLEMENTAIRES APPORTES PAR LA MODIF. * possibilités fichiers nettement améliorées, overlays plus importants.• traitements optimisés beaucoup plus rapides * utilisation possible de 2 magnétophones simultanés sans modification complémentaire. ▪ alimentation  : piles/secteur/accus ou batterie auto. affichage et impression programmable (réglage du contraste). * manuel d'utilisation en français, largement documenté. * systèmes d'entrées/sorties universels  : connection vidéo, modem, carte secteur et mini synthétiseur * retour de votre PC 1211 en Rec par nos soins. Faites parvenir votre PC 1 21 1 seul, avec votre règlement de 1500 F TTC en chèque (pas d'envoi contre remboursement (à  : P af3 Bou f5• os.. INTERFACES ›, N°PC 9, rue de Lalande NOM 33000 BORDEAUX Tél. (56) 91.55.08 Joindre carte de visite/adresse SERVICE-LECTEURS N°137
Une extension de l'Applesoft -à011111011MIIMMIMI L'instruction Ampersand (&) de l'Applesoft peut accomplir des miracles. Utilisée comme dérivateur d'instructions, elle permet d'ajouter de nouvelles commandes au Basic de l'Apple  : conversion hexadécimale, fonctions sonores, dump mémoire et manipulation de secteurs disques deviennent possibles en Basic. Cependant, pour être à même de faire fonctionner convenablement un tel système, il s'avère nécessaire de créer un interpréteur consacré à l'exécution de ces commandes. Afin de ne pas limiter les possibiliés de cet interpréteur, nous avons décidé de le rendre extensible  : vous pourrez ainsi rajouter aisément vos propres instructions. ogiciel SYSTEME E XTENSION de A. Andrieu &) interpréteur Ampersand (&) complet et extensible ajoute de nouvelles instructions fonctions à sonores,  : l'Applesoft dump mémire o et manipulations de secteurs disques. Ordinateur  : Ap le II + drive. Ass pem bleur Langage Le besoin de créer ses propres instructions lors de l'emploi d'un micro-ordinateur de type Apple Il conduit à l'écriture d'un interpréteur appelé par l'ordre Basic « Ampersand » (&), et dont le fonctionnement était illustré par deux exemples très simples (voir Micro-Systèmes n°25). Cet interpréteur, ainsi que les deux fonctions décrites et les tables d'adresses, ont été logés dans une zone mémoire de 8 K- octets située au dessus du DOS afin de pouvoir accepter les routines des ordres à venir et d'être raisonnablement inaltérable. Nous allons aujourd'hui nous intéresser à l'organisation de cette zone mémoire afin de la rendre évolutive sans modification des fonctions existantes. L'écriture par chaque utilisateur de nouvelles instructions correspondant à des tâches particulières nécessite davantage un catalogue de méthodes qu'un catalogue de fonctions. C'est pourquoi les exemples que nous donnerons ensuite ne se réclament pas d'un caractère d'universalité, mais sont plutôt des illustrations de l'emploi de certaines routines des langages résidents. Le programme complet dont le listing est donné figure 1 peut être divisé en plusieurs blocs, chacun étant repéré par le label de son point d'entrée. L'écriture du programme avec un assembleur symbolique (ici, Lisa version 1) permet, par un usage intensif des labels, de modifier ou d'étendre le listing, chaque assemblage rétablissant les valeurs correctes des adresses. Néanmoins, quelques points doivent être fixés, et cette contrainte impose une certaine architecture au programme. Février 1983 Des routines d'usage général L'ensemble de cette extension étant chargée par un BRUN (généralement depuis le programme HELLO), le bloc « SET.& » qui charge les valeurs correctes du vecteur « & » pour pointer à l'entrée de l'interpréteur, doit toujours être en tête du programme et se situe dans notre cas en $A000. Ensuite, le bloc « SAVEPZ » qui transfère la page zéro à la page $BF, permet de dégager de la place dans une zone mémoire où les modes d'adressage sont particulièrement intéressants, et préserve également les pointeurs du Basic. Toutefois, il convient de remarquer que le pointeur de texte en $B8 et $B9, utilisé par l'interpréteur, représente une position courante et devra être manipulé avant de sauver la page zéro. Le bloc « PRINT » concerne la sortie de caractères vers un périphérique (interne ou externe) et est d'un usage très général. Il peut être appelé par n'importe quel programme comme une sous routine avec le format d'entrée suivant  : JSR PRINT HEX VVHH STR « TEXTE » où VV représente la position verticale ($0 à $17), HH représente la position horizontale ($0 à $27) et « TEXTE » la phrase à afficher précédée du nombre de caractères. Le fonctionnement, et notamment le passage des paramètres, est le même que pour les programmes « SWEET 16 » ou « MEAN 14 », et est décrit par les commentaires du listing. On remarque que si les valeurs passées pour HTAB et VTAB sont 0800 P86 0800 0800 3 ; 0800 4 ; P.ANDRIEUX 0800 5 ; 8000 6 ORG $8000 8000 7 OBJ $0800 A000 8 8000 9 START EQU * 8000 10 8000 11 8000 12 ; ************************************* 8000 13 ; ***** DEFINITION DES ADRESSES ***** 8000 14  : *******************w**********w****** 8000 15 8000 16 ; 1) EN PAGE ZERO  : 8000 17 8000 18 8000 19 ZP EPZ $00 A000 20 CH EPZ $24 4000 21 CV EPZ $25 8000 22 CSW EPZ $76 8000 23 82L EPZ $8E 8000 24 MPCLO EPZ $4C 8000 25 MPCt-iI EPZ $4D 8000 26 LINUM EPZ $50 A000 27 LIMMIN EPZ $67 P000 28 LIMMAX EPZ $8F 8000 29 CHRGET EPZ $81 8000 30 ADi EPZ $FC P000 51 AD2 EPZ $FE A000 32  : 8000 33 ABSOLUES  : 8000 34 ; A000 35 A000 36 IN ECU $0200 P000 37 RUTS EQU $03D9 A000 38 VECTOR ECU $03F5 8000 39 ZONMEM EQU $BC00 8000 40 MEMO EDU $BC00 8000 41 MEM1 EQU $BC03 8000 42 TAMPON EQU $BC04 8000 47 INSTR EQU $BC04 8000 44 ADRSSE EQu SBC07 8000 45 COMPT EQU s6c09 A000 46 P EQU $BC34 8000 47 D EQU $BC35 8000 48 PERIOD EDU $BC3E A000 49 DUREE EQU $BC37 A000 50 INCR. EQU $8C7,4 A000 51 COUNT EQU $6C39 8000 52 DATA EQU $6000 8000 53 ZPBIb EQU $BE00 8000 54 TABLE EQU $BF00 8000 55 LOCTBL EQU $6F99 A000 56 KBD EQU $1,000 A000 57 KEYSTR EDU $6010 8000 58 SPKR EQU $6030 A000 59 FRMEVL EQU $6071, 8000 60 GTBYTC EQU A000 61 GETADR EQU $8752 8000 62 LINPRT EQU $ED24 Fig. I. — Le listing du programme. MICRO-SYSTEMES — 111



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 :


Micro Systèmes numéro 28 février 1983 Page 1Micro Systèmes numéro 28 février 1983 Page 2-3Micro Systèmes numéro 28 février 1983 Page 4-5Micro Systèmes numéro 28 février 1983 Page 6-7Micro Systèmes numéro 28 février 1983 Page 8-9Micro Systèmes numéro 28 février 1983 Page 10-11Micro Systèmes numéro 28 février 1983 Page 12-13Micro Systèmes numéro 28 février 1983 Page 14-15Micro Systèmes numéro 28 février 1983 Page 16-17Micro Systèmes numéro 28 février 1983 Page 18-19Micro Systèmes numéro 28 février 1983 Page 20-21Micro Systèmes numéro 28 février 1983 Page 22-23Micro Systèmes numéro 28 février 1983 Page 24-25Micro Systèmes numéro 28 février 1983 Page 26-27Micro Systèmes numéro 28 février 1983 Page 28-29Micro Systèmes numéro 28 février 1983 Page 30-31Micro Systèmes numéro 28 février 1983 Page 32-33Micro Systèmes numéro 28 février 1983 Page 34-35Micro Systèmes numéro 28 février 1983 Page 36-37Micro Systèmes numéro 28 février 1983 Page 38-39Micro Systèmes numéro 28 février 1983 Page 40-41Micro Systèmes numéro 28 février 1983 Page 42-43Micro Systèmes numéro 28 février 1983 Page 44-45Micro Systèmes numéro 28 février 1983 Page 46-47Micro Systèmes numéro 28 février 1983 Page 48-49Micro Systèmes numéro 28 février 1983 Page 50-51Micro Systèmes numéro 28 février 1983 Page 52-53Micro Systèmes numéro 28 février 1983 Page 54-55Micro Systèmes numéro 28 février 1983 Page 56-57Micro Systèmes numéro 28 février 1983 Page 58-59Micro Systèmes numéro 28 février 1983 Page 60-61Micro Systèmes numéro 28 février 1983 Page 62-63Micro Systèmes numéro 28 février 1983 Page 64-65Micro Systèmes numéro 28 février 1983 Page 66-67Micro Systèmes numéro 28 février 1983 Page 68-69Micro Systèmes numéro 28 février 1983 Page 70-71Micro Systèmes numéro 28 février 1983 Page 72-73Micro Systèmes numéro 28 février 1983 Page 74-75Micro Systèmes numéro 28 février 1983 Page 76-77Micro Systèmes numéro 28 février 1983 Page 78-79Micro Systèmes numéro 28 février 1983 Page 80-81Micro Systèmes numéro 28 février 1983 Page 82-83Micro Systèmes numéro 28 février 1983 Page 84-85Micro Systèmes numéro 28 février 1983 Page 86-87Micro Systèmes numéro 28 février 1983 Page 88-89Micro Systèmes numéro 28 février 1983 Page 90-91Micro Systèmes numéro 28 février 1983 Page 92-93Micro Systèmes numéro 28 février 1983 Page 94-95Micro Systèmes numéro 28 février 1983 Page 96-97Micro Systèmes numéro 28 février 1983 Page 98-99Micro Systèmes numéro 28 février 1983 Page 100-101Micro Systèmes numéro 28 février 1983 Page 102-103Micro Systèmes numéro 28 février 1983 Page 104-105Micro Systèmes numéro 28 février 1983 Page 106-107Micro Systèmes numéro 28 février 1983 Page 108-109Micro Systèmes numéro 28 février 1983 Page 110-111Micro Systèmes numéro 28 février 1983 Page 112-113Micro Systèmes numéro 28 février 1983 Page 114-115Micro Systèmes numéro 28 février 1983 Page 116-117Micro Systèmes numéro 28 février 1983 Page 118-119Micro Systèmes numéro 28 février 1983 Page 120-121Micro Systèmes numéro 28 février 1983 Page 122-123Micro Systèmes numéro 28 février 1983 Page 124-125Micro Systèmes numéro 28 février 1983 Page 126-127Micro Systèmes numéro 28 février 1983 Page 128-129Micro Systèmes numéro 28 février 1983 Page 130-131Micro Systèmes numéro 28 février 1983 Page 132-133Micro Systèmes numéro 28 février 1983 Page 134-135Micro Systèmes numéro 28 février 1983 Page 136-137Micro Systèmes numéro 28 février 1983 Page 138-139Micro Systèmes numéro 28 février 1983 Page 140-141Micro Systèmes numéro 28 février 1983 Page 142-143Micro Systèmes numéro 28 février 1983 Page 144-145Micro Systèmes numéro 28 février 1983 Page 146-147Micro Systèmes numéro 28 février 1983 Page 148-149Micro Systèmes numéro 28 février 1983 Page 150-151Micro Systèmes numéro 28 février 1983 Page 152-153Micro Systèmes numéro 28 février 1983 Page 154-155Micro Systèmes numéro 28 février 1983 Page 156-157Micro Systèmes numéro 28 février 1983 Page 158-159Micro Systèmes numéro 28 février 1983 Page 160-161Micro Systèmes numéro 28 février 1983 Page 162-163Micro Systèmes numéro 28 février 1983 Page 164-165Micro Systèmes numéro 28 février 1983 Page 166-167Micro Systèmes numéro 28 février 1983 Page 168-169Micro Systèmes numéro 28 février 1983 Page 170-171Micro Systèmes numéro 28 février 1983 Page 172-173Micro Systèmes numéro 28 février 1983 Page 174-175Micro Systèmes numéro 28 février 1983 Page 176-177Micro Systèmes numéro 28 février 1983 Page 178-179Micro Systèmes numéro 28 février 1983 Page 180-181Micro Systèmes numéro 28 février 1983 Page 182-183Micro Systèmes numéro 28 février 1983 Page 184-185Micro Systèmes numéro 28 février 1983 Page 186-187Micro Systèmes numéro 28 février 1983 Page 188-189Micro Systèmes numéro 28 février 1983 Page 190