Home

Magazine Pom`s : la collection

Contents

1. W sur la disquette le contenu du buffer On indiquera les num ros de piste et secteur comme dans l op lecture Edition d un secteur I J K M d placent le curseur res pectivement vers le haut la gauche la droite le bas Le rang de l octet est affich sur la ligne sup rieure autorise la modification de l octet se trouve le curseur Selon le mode d affichage on pourra ainsi entrer un caract re ASCII ou une va leur hexadecirnale T en mode ASCII commute l criture en normal inverse ou clignotant Le symbole 7 en bas droite de l cran refiete cet tat Les caract res inverses ou clignotants ne seront visi bles que si le filtre est supprim se reporter la commande Y7 Thierry Le Tallec RETURN pennet la saisie d un texte ou de valeurs hexad cimales la vol e Dans les modes mixtes et hexa tous les octets modifi s appa raissent en inverse jusqu l criture ou la lecture d un secteur de la dis quette ESC sort de ce mode de saisie restitue l ancienne valeur en cas d erreur X annule toutes les modifications d un buffer P autorise le choix de la page m moire qui sert de buffer L adresse de ce dernier est indiqu e en clair au bas de l cran On en changera en donnant directement l adresse au cla vier Par d faut le buffer est en 4000 A noter qu il est galement possible de changer l
2. 22 02 PENCOLORCHCOLOR MQUETO CTURTLEX 1919 FOR I 1 TO 2 DO BEGIN PAS ROUND XTIC DX i IF 2 THEN PAS PAS X m ROUNO CFXCXINTER2 9 Y m ROUNDCFYCYINTERO 1 REPEAT PENCOLOR NONE MO ETOXOX 2 PENCOLOR CHCOLOR MOVETOCX Y 2 X X PAS UNTIL NOTCX IN 0 2791 END FOR 1 1 2 DO BEGIN PAS ROOUND YTIC DY IF 52 THEN PAS PAS Y sw ROUND CFE YCYTNT ER 2j X i ROUNW FXCXINTER REPEAT PENCOLOR NONE MGUETOCX 2 YO PENCOLOR HCOCOR MOUETOCX 2 Y Y Y PAS UNTIL NOT XY IN 0 191 NO END BEGIN INITIiALISATIONS SCALE 0 279 0 191 PDIR 0 PENCUHITED PENUP 0 140 9 ENC Pom s n 15 Ecriture en paqe haute r solution Introduction La possibilit qu offre l Apple Il d uti liser des pages graphiques sur 280 x 192 points est tr s souvent mise contribution pour visualiser de facon synth tique des r sultats num riques ou autres sous fonne de graphes r seaux diagrammes etc Malheureusement il n existe pas d instruction Applesoft permettant d crire dans les pages graphiques et d apporter simplement des commen taires titres valeurs sur nos travaux HAIFA Pom s 5 et DOS TOOL KIT Apple sont des utilitaires pennettant d crire en page graphique gr ce des POKEs mais au prix d une tabu lation de type TEXT Le but de cet article est de montr
3. 2 4 Coupez copiez collez tout simpiement Qi Epistole poss de les fonctions de mailing et calcul iniegres Permet de r diger lettres rapporis CITrCU aires mais aussi factures devis budgets etc iu 1 387 94 87 NOVEMBRE DECEMBRE 1984 Sommaire Page Langage Niveau Mat riel Editorial par Herve Thiriez 9 Mobby Disk par Thieny Le Tallec 7 A P T Fleuves de France par Joseph Pino 17 B T le c Mouse Paint par Guy Lapautre 20 T Gestion de fichiers par RWTS et DOS 3 3 par G rard Michel 21 B A MT Le cahier Macintosh par Herv Thiriez 32 T Macintesh Les routines ROM du Macintosh par Jean Luc Bazanegue 33 B M T Macintesh Les caract res programmables sur imprimantes Apple par Apple Seedrin 36 T Un diteur de formes et curseurs par 5 43 B MT Macintosh Les logiciels pour Macintosh 49 T Macintosh Omnis 2 l essai par Guy Lapautre 50 Initiation l assembleur 5 par Gerard Michel 53 A T e HPGRAPH par Nicolas Monsarrat 59 P M T Ecriture en page haute r solution par Erick Ringot 61 B A MT Disk Check Up par Alexandre Avrane 66 A PT Bibliographie par Alexandre Duback 71 Les nouvelles disquettes de Pom s 72 Micro Informations par Jean Miche Gour vitch 73 Courier des lecteurs par
4. 0 VARPTR F 0 Cette instruction combine Call Pain tRect et Call Ceci permet de remplir un rectangle sans modifier le motif affect au crayon Les coor donn es du rectangle sont dans le ta bleau R 6 et le motif se trouve dans le tableau Rectangles aux angles arrondis Call FrameRoundRect VARPTR R9 0 AX AY Trace le contour d un rectangle aux angles arrondis Les coordonn es du rectangle sont dans le tableau Les caract ristiques de l arrondi sont d termin es par AX axe horizontal d une ellipse et AY axe vertical Si AX et AY sont gaux larrondi est un arc de cercle Les instructions PaintRoundRect EraseRoundRect InvertRoundRect et FilRoundRect fonctionnent de la m me fa on que PaintRect Erase Rect etc avec en plus les valeurs AX et AY pour les arrondis Ellipses Call FrameOval VARPTR R 0 Trace le contour d une ellipse inscrite dans un rectangle fictif dont les coor donn es se trouvent dans le tableau R 9 0 EE EE sns did Si R 2 R 0 est gal R 3 R96 1 l instruction trace le contour d un cercle Les instructions PaintOval EraseO InvertOval et FillOval sont comparables PaintRect EraseRect etc mise part leur action sur des ellipses au lieu de rectangles Arcs de cercles Call FrameArc 0 Trace l arc d un cercle fait il s agit plut t d un arc d
5. adresse SHAPE 61 Le programme HGRECR LIB Le programme source est list ci apres Le code objet donn dans 1 r capitulation relogeable int gre la table ASCIISET celle ci suivant la routine d criture proprement dite longue de 168 octets Commentaires Lignes 48 59 n cessaires au cal cul de l adresse de a table puisque le programme est relogeable Ce der nier consulte la pile du microproces seur pour connaitre sa propre adresse En ajoutant la longueur de la routine on obtient l adresse de la table situ e sa suite Cette adresse est vers e en TABLE et TABLE 1 g n ralement libres Lignes 63 66 on empile l chelle et la couleur en cours afin de les sauvegarder Lignes 72 83 on saisit dans le texte du Basic le nom de la variable alphanum rique crire Le nombre de caract res est port en LONCH l adresse de la chaine en ADRCH et ADRCH 1 Lignes 87 92 lignes 96 97 saisie des coordonn es du premier carac tere Noter que X occupe 2 octets PXH et PXL et Y un seul PY Lignes 101 102 les caracteres se dessinent l chelle 1 Ligne 104 Y sert de compteur de caracteres Lignes 106 109 le caract re cou rant est empil Lignes 113 119 efface avant d crire en dessinant un carr forme num ro 63 de couleur noire Lignes 124 129 on recupere le code ASCII du caractere sur la pile et on calc
6. 44 FE 91 10A0 4C 03 12 AS 07 85 18 A0 11E8 18 A 00 91 18 84 FE 10 8 00 81 05 ED 81 1A 11F0 A6 D DO 06 EG 86 1E 4C s 1080 85 07 84 F8 1 DO 11F8 D8 10 AD E7 13 DO 04 20 Sua ei 0B GS 19 re Qi go DO gs 9 ASF8 18 65 ED 29 02 1200 OE 11 40 20 OE 12 aD EZ J 10 HD 3E 90 D 10 0 AB 81 1A DO E6 18 AS 1208 13 FO F4 4C 9D 11 AS 09 20185 08 Du 3S EB DO FA DE DD 10C8 18 CS F9 90 E6 D 4C 1210 85 10 AO 00 EZ 13 81 SBD FI Da 1000 06 12 AD E7 13 FO 27 5 1218 1C 85 EF 85 FD C8 81 1C 2028 18 9D 4E 91 AS IA EZ IA 1008 1E FO 03 20 OE 12 AD EZ 1220 EA 14 C9 FF FO 21 9030 04 ea A5 18 18 45 19 AB 10 0 13 FO 18 D 14 2 00 1228 EGO 14 E 14 AS 10 2038 81 08 9D SF 90 CO ED 10 14 CS 07 80 03 EE 1230 85 81 FO 13 EZ 040 08 9D SF 90 A2 00 01 E SAE E LOR Coss 2d48 0B Do gr A 01 85 10 20 10F8 13 90 03 4C 7F 11 AS ED 1240 E4 FD 05 4C 9050 A2 00 AS 18 18 65 19 69 r RCM ibi a l248 De OD FA IS 10799 FD 058 02 ad Hl Od DO AC 40 1108 20 OE 11 4C 11 A6 FF 1250 02 A8 DO OF E 10 1110 A5 1F 90 90 03 5 FC 1258 AS 10 CS FA 90 03 4C 1118 90 00 03 EB 86 FF AS 19 1260 12 00 00 FO ED AD EZ 13 1120 A2 09 9D EB 14 20 12 1268 FO AD 81 1C 85 FD 81 gt 1128 A EC E0 10 D0 04 amp 1270 1 14 C FF R capit
7. TXA PHA sauvegarde dans la pile des registres A X et Y CL les interruptions IRQ sont de nou veau autoris es D terminaton du p riph rique ayant provoqu linterruption en testant par exemple le contenu d adresses affect es chaque peripherique connect JSR ADR ADR est l adresse de d but des rou tines de service du p riph rique qui lui permettent d effectuer son travail Ces routines doivent veiller resti tuer l issue de leur ex cution par un ultime RTS un contenu de pile identique celui que l on avait avant JSR ADR SEI PL A TAY PLA restauration des registres A X Y tels qu ils taient lors du d but de notre routine de gestion des interruptions CLI RTI reprise du programme interrompu Si une nouvelle interruphon se pro duit avant la fin du premier cycle alors que l on vient de d terminer le p riph rique par exemple appelons cela le stade SO le processeur nous ram ne au d but de la routine ci dessus et on empile le contexte de 50 On traite ensuite la seconde in terruption pus on recupere le contexte de SO Le nous renvoie l instruction qui suit SO et l on re prend ainsi le traitement de la pre mi re interruption avant de r cup rer le contexte initial et de retrouver un RTI qui nous reporte cette fois la suite du programme de d part Lorsquune routine de ce type est utilis e pour g rer des interruptions
8. 1010 A 1 64 A 2 S4L 64M SARESTORE 100FOR 1 TO 34 READ O I NEXTF 1 4F 2 4F 1 1020 LINE 3S8 3 458 93 30 BF LINE C3S8 3 458 93 8 LINEC360 9 4856 91 B L INE 360 940 460 94 1030 LINE 33S 110 482 274 30 BF LINE 33S 110 482 274 B LINE 337 112 480 272 BLINE 337 27S 484 275S 10 40 CALL PENSIZE 2 2 LINE 4S9 S 459 93 LINE 483 111 483 274 1050 CALL PENNORMAL RESTORE 90FOR 128 TO 272 STEP 16LINEC337 1 480 1 CALL MOVETO 342 1 A4 READ W iF 1 272 THEN PRINT W ELSE PRINT W 1060 NEXT CALL SETCURSOR V ARPTR C 1 IF E THEN 1110 1070 GOSUB 2150 GOSUB 1850247 1080 GOSUB 19S0 IF A THEN 950 ELSE OPEN 1 1 2 6 1090 INPUT I L tIF L 1 OR L264 OR Hct OR 154 THEN ERROR 57 1100 1 19 NV16FOR I 1 TO MFOR Jel INPUT I ACI 2 4 J 2 NEXT NEXT CLOSE 108 92 5 3 3 5 7 5 7 20 LINE 3 3 L S 7 M S 7 B GOSUB 1830 LINE S M S 8 L S 9 M S 8 1120 CALL PENSI2E 2 2 LINE L S 8 4 L 5 8 M S 7 CALL PENNORMAL IF E THEN 1140 1130 PUT S S 324 274 A OR PUT L376 21 A 1140 IF M S4 THEN R 1 129 GOSUB 2130 1150 IF L 64 THEN R 1 161 GOSUB 2130 1160 IF M I THEN RC 1 145 GOSUB 2130 1170 IF L THEN R I 177 GOSUB 2130 1180 W INKEYS IF W lt 0 THEN 1270 ELSE iF NOT MOUSE O THEN 1180 1190 P MOUSE 1 0 OUSE 2 iF MOUSE O 1 THEN IF P 337 AND Px481 AND 0 gt 113 AND 04274 THEN N Q 114 M16 GOTO 1280 1200 I PO
9. 11050 IF B THEN E 1 1 THEN NC 11060 IF lt gt 13 THEN 11030 11070 POKE 16302 0 ON 1 GOSUB 1000 4000 5000 2000 30 00 6000 12000 GET GOTO 10 000 12000 HOME TEXT END Assembleur Toolkit 1000 20 58 FF 48 DEBUT JSR RETURN 1003 BA 49 TSX SOURCE FILE HGRECR 1004 CA 50 DEX 0000 1 E RINGOT LE 2 6 84 1005 CA 51 DEX 0000 Occ ec ce ceu 1006 9A 52 TXS 1007 18 53 CLC 0000 3 ECRITURES DE CHAINES 1008 68 54 PLA 0000 4 EN PAGE HAUTE RESOLUT 1007 67 A 55 ADC LONG ION 1008 85 54 STA TABLE 0000 5 j 1000 58 57 PLA 0000 HGRECR LIB RELOGEABL 100 59 00 58 ADC 0 E 1010 85 CF 59 STA TABLE 1 0000 7 1012 60 1012 1 1 3 SAUUEGARDE ENVIR 0000 8 ONNEMENT HAUTE RESOLUTION 0000 9 MODE D EMPLOI 1012 62 0000 10 1012 45 E4 3 LDA HCOLOR 0000 11 SYNTAXE CALL ADR 1014 48 64 PHA CH X Y 1015 45 EZ 55 LDA SCALE 0000 12 1017 48 amp amp PHA 0000 13 CH 2UARIABLE ALPHANU 1018 67 MERIQUE 1018 68 lt 4 gt SAISIE ARGUMENTS 0000 14 iX ASSCISSE 1019 9 0000 DRD NNEE 1018 70 4 1 EXPRESSION EDIT 0000 16 3 NEXT OBJECT FILE IS HGRECR OBJ 10185 71 0 1013 20 BE DE 72 JSR CHKCOM 1000 7 ORG 1000 1018 20 OF JSR PTRGET POUR ASSEMBLAGE SEULEMENT 1000 18 101E 20 C DD 74 JSR CHKSTR e 1000 19 lt 1 gt ROUTINES ROM 1021 0 00 29 LOY 0 1000
10. 1950 Carte contr leur 400 Disquettes grande marque les 10 220 CARTE LANGAGE 1 bte disq 500 CARTE 80 COLONNES pour 750 avec kit inverse et minuscules accentu es CARTE 128 K 1600 Interface parall le pour EPSON cable cess 400 Microbuffer 32 K 1400 Garte BY 600 Carte Communication 650 VENTILATEUR EXTERNE 300 JOYSTICK LUXE pr cisez M ou lle 200 Accelerator Applicard Carte 8088 etc nous consulter MONITEUR PHILIPS 12 Vert 1000 ASCII Express Professlonnal amsn 1200 amp beaucoup d autres programmes PROMOTION SUR NOS IMPRIMANTES IMPRIMANTE Graphique avec interface parall le et cable Dar 3500 Prix modifiables sans pr avis stock limit APPLE ll est une marque d pos e de APPLE COMPUTER INC BON DE COMMANDE i retourner MACSI 125 rue AMELOT 75011 PARI NOM Prenom Qu REGLEMENT JOINT rue Lode postal Vile T l Mat riel poss d Signature Cheque TOTA C C P Pc 14 gratuit Mandat lettre omes Ed Achat 3000 F Le cadeau ditari tous les possesseurs de VIC 20 Commodore 64 Apple Il et TI 994A ST A d 3 lt s hi n fi X y i 3 Avec Atarisoft d cou
11. 2 CF DERNIER SECTEUR EN URAC 20 IC 2 06 STATUT C LES CLASSEMENT 0 10 21 LU D LONGUEUR UTILE DE LA CLE 22 P EPZ EB P S PI Pom s n 15 54 S1 LDA 1 INITIALI SATION PARAMETRES POUR RUTS LDX STA LOA STA LDA BNE 8 IOB X cCT 1 2CTP 1 IC S7 RIEN N EST CLASSE LDA NE STA LDA STA STA LOX SERVIRA STX LDA STA INX LDA 2 1 NON CLASSE ZCCP 1 0 S 8 POUR LA SUITE CMINT ZCC 2 1 DES PISTES CLASSEES STA JSR LDY LDX BNE CPX INY STY LDX BEQ 52 INX 63 STX INC LDX JMP 550 INC FIN DE ZONE SS LDA STA INX I0B X RWTS P 5 S1 SFC 550 62 0 5 5 ZCCP 1 89 64 2 eCCP 1 SZC IC 1 gt 0DEBUT 20 CMINT lt D0 LECTURE POINTEUR PASSAGE AU PREMIER SECTEUR DU VRAC CPX L DES SECTEURS SUIUANTS 10 CALCU 27 7 BNE 54 AU BLOC SUIVANT 78 INY 133 LDA 2 1 79 STY P 134 CMP 52 DERNI ER 80 LDX 0 BLOC 81 56 STX S 135 512 SNON 82 JMP S8 136 INC IC OUI gt 83 57 LDA 80 ON ARRIU FINIR LE URAC S IL EN RESTE E LA SI RIEN N EST CLASSE 137 JMP S270 84 STA P PREMIER 138 513 LDA CMINT SECTEUR URAC 0 0 0 PLUS DE URAC 85 STA 5 139 BEQ S131 86 58 LDA 2 jLECTURE 140 LDA 0 DES SECTEURS DE CLES EN URAC
12. Listing 6 0300 A2 EO LOX E0 0302 TXS 0303 29 58 FF JSR s FFS8 0304 TSX 0307 B6 06 STX 06 0309 BD 00 81 LDA 0100 X 030C 85 07 STA 07 030E DEX 030F BD 01 LDA 0100 X 0312 85 08 STA 08 0314 40 LDX 40 0316 TXS 0317 00 0318 00 BRK 0319 00 BRK 031A 00 BRK 0318 00 BRK 031C 00 BRK 031D 00 BRK 031 00 3000 0319 A 05 40 Y DB P 30 5 3 6 8 0006 EO 03 0008 05 108 1E7 0108 F BE 00 00 30 30 31 05 01E0 03 30 00 00 00 00 00 OA On initiaise le pointeur de pile 0 on ex cute le JSR FF58 puis on r cup re la valeur de S et on la stocke en 6 On lit ensuite la pre miere position libre et on la stocke en 7 En d cr mentant X la pile se remplit vers le bas on lit ensuite l octet qui se trouve au dessus de la premiere position libre et on le range en Puis on initialise S 40 afin de pr server les valeurs que nous avons nous m mes empi l es en d autres termes on remonte le sommet de la pile loin de l endroit que nous avons manipul et on stoppe le programme par un BRK standard de l Apple On trouve ainsi aux adresses 6 8 EO le pointeur de pile est bien revenu sa valeur intiale SEO apr s le RTS de l adresse FF58 03 octet haut de l adresse de tour du JSR 05 octet bas de l adresse de tour du JSR diminu de 1 En lisant le contenu de la pile entre les adre
13. puisque l on arrive ici lissue du cycle dinterruption ex cut par le processeur On r empile aussit t cette m me valeur PHA afin de pr server l organisation de la pile Lignes 4 6 les trois ASL am nent le bit 4 de l accumulateur en position de bit 7 On a donc pour bit de poids fort ou bit de signe l indica teur B du registre d tat au moment du ou de l IRQ Ligne 7 test du bit de signe de l ac cumulateur Si celui ci est 1 cela signifie que l indicateur B tait Y 54 et branchera FA4C Si le bit de signe est l indicateur B tait le test BMI choue et on passe l instruction suivante Ligne 8 nous sommes dans le cas dune interruption IRQ et l on saute l adresse contenue 3FE 3FF adresse devant correspondre au d but de la routine de gestion des in terruptions IRQ si elle existe Si l Ap ple est mis sous tension sans DOS le vecteur 3FE 3FF ne conduit nulle part si le DOS boot il conduit FF65 soit au moniteur L encore c est au programmeur d sirant exploiter les IRQ quil appar tient de mettre en 3FE 3FF l adresse de sa routine de gestion des interruptions routine du type de celle pr sent e plus haut Lignes 9 15 nous sommes dans le cas d un recupere le regis tre detat PLP on sauve les regis tres en 45 49 JSR FF4C rou tne de la ROM du moniteur on
14. un WESTC RP T l phone Editorial Pour les possesseurs du Macintosh une bonne et une mauvaise nouvelle la fois La bonne nouvelle le Macintosh 512K est amv La mauvaise nouvelle il en co te 10000 hors taxe prix public par rapport au 128 la m moire vous revient moins cher en mangeant du poisson Pour le logiciel itou la bonne nouvelle est repr sent e par l annonce de 480 logiciels la mauvaise tant que l on constate d s pr sent du retard par rapport aux dates annonc es dans le dossier de presse Apple du Sicob H est vrai que la mise au point d un logiciel sur un quipement poss dant les fonctionnalit s du Macintosh nest pas une sin cure Enfin fid les notre promesse nous d veloppons dans ce num ro un cahier Macintosh dans lequel nous essaierons de vous fournir comme pour l Apple des programmes et des remarques vous apportant plus que la simple lecture des documentations Quant la ligne Apple compatibilit relanve du c voir s 13 fait qu aujourd hui i se vend encore un e pour c trompent ainsi toutes les pr visions d Apple Comme le disent les sages asiatiques la pr vision est un art difficile surtout quand elle porte sur l avenir R sultat il faut faire la queue pour acheter e alors qu change sans probl me un ch que contre c pr t emporter L quipe de Pom s vient de s enrichir de deux personnes D ici la fin de l ann e nous esp rons do
15. 50 NEXT 60 CALL BACKPAT VARPTR F O 70 CES L instruchon CLS est indispensable car si elle est omise cran demeure inchang Pour replacer l cran dans son tat initial il suffit de relancer le programme apr s modification de la liane 20 20 DATA 0 0 0 0 Gestion du Curseur Cali SetCursor VARPTR C 0 Si vous etes las de voir le curseur en forme de l che vous pouvez cr er le v tre Pour cela il vous faudra d abord d finir un tableau de 34 va riables entieres indices O 33 ou 1 34 avec OPTION BASE 1 que nous appellerons Les variables C 5 0 15 sont utiis es pour d finir la forme du cur seur dans une qrile de 16 16 points chaque ligne horizontale de 16 points tant affect e une variable Les variables 16 31 d fi nissent le masque curseur qui permet une superposition ce qui est affich l cran En effet si un des points du curseur n est pas mas qu l op ration logique XOR exclusif ou encore l un ou l autre mais pas les deux est effectu e entre le point concem du curseur et celui occupant la m me position sur l cran La variable C 32 indique la posi tion verticale du point chaud par rap port au coin sup rieur gauche de la grille 16 16 Le point chaud corres pond aux valeurs retourn es par MOUSE 1 6 Jean Luc Bazaneque La variable C 5 33 indique la posi tion horizontale du point chaud tou Jours par rappo
16. 653 OUTCHAR CHP 0 654 BGE OUTCH2 655 BIT filter 656 BPL DUTCH2 657 ORA 30 658 H EO 659 BLT OUUTCH1 660 AND 8Z10111111 661 OUTCHI CMP 662 BGE OUTCHZ2 663 W 664 OUTCH2 STY YSAVI 665 LOY CH 666 STA BASL Y 667 668 LOY YSAV1 669 RTS 670 AST 32 671 GETBYTE STA df tuval valeur par d faut 672 STY CHtemp ition dans la ligne 673 GETBYTI CHtemp 674 STA CH 675 82 676 STA dignum ct gt res par octet 677 LDA 0 678 STA val e la valeur 3 z lt ro 679 LOA dfltval 680 JSR PRBYTE a valeur d faut 681 LOY CHtemp 682 STY CH 683 NXTOIOG LOY 684 BASL Y ffre sur 1 685 chiffre 686 JSR GETKEY e touche 687 STA BASL Y e chiffre 688 CMP 88 gt 689 BEQ GETSYTI commence 690 CMP CR 691 BEd GETBYT3 vient tout de suite 692 CMP 0 chiffre hexa 0 F 693 60000 694 BAONUM JSR SOUND Pom s n 15 range 1 et la pos deux jrnitialiS affiche 1 alrt un ch jm mOF se sattend un saffiche backspace gt re sOUI return 2 jou gt re steste 5 Sinon so 695 696 697 698 699 700 201 702 203 704 705 706 207 708 OT 710 vd 712 13 714 PRA 716 CA 745 FLY 720 721 726 223 724 729 228 fure 723 730 Ral 4 733 734 236 137 738 137 740 741
17. 75491 Paris Cedex 10 7 Nom Adresse p T WS S a MT Code postal 1111 Pays Veuillez m abonner pour 10 num ros au prix avantageux 160 F au lieu de 200 F Je fais ainsi une conomie de 40 F sur le prix de vente au num ro Je joins mon r glement indispensable libell Belgique 1330 FB Suisse 50 FS Canada 30 C lt autres pays 210 Un diteur de secteurs MOBBY DISK Le programme le plus utile en cas d op ration malheureuse sur dis quette est certainement l diteur de secteurs ou DISK ZAP permet l affichage l cran et la modification des codes hexad cimaux contenus sur la disquette est ainsi possible intervenir directement au niveau des secteurs pour recouvrer un fi chier DELET une disquette qui ne BOOTe plus ou pour rendre co h rent un enregistrement qui corn porte une erreur L int r t de ce type de programme ne se limite pas la remise en tat des secteurs il de vient par exemple possible de suivre pr cis ment le travail du DOS Parmi les plus connus on peut citer INSPECTOR WATSON et surtout DISKFIXER Ce dernier aurait ma pr f rence mais il lui manque certai nes options de WATSON telles que le d sassemblage et le choix de la page m moire diter tait int ressant de tenter de faire tenir en moins de 2K les principales fonctions En effet le possesseur de carte EPROM peut alors avoir en perman
18. cartez l aide du Font Mover les pollces Seattle de la disquette Multiplan les mettant dans un flchier Caract res afin de pouvoir les r cuperer plus tard Vous obtlendrez alors 20 lignes et 7 colonnes l cran au prix d une baisse de la lisibilit Quand vous sortez de Muitiplan apr s avoir copi plus de 50 cellules par exemple pour les transf rer MacWrite le message Enregistre ment dun important presse papier s affiche S il y a plus de 100 cellules copier 11 faut cliquer pour demander lenregistrement des va j k I mn o p qr H UJ K w SS leurs format es et des valeurs non format es cest automatique pour moins de 100 cellules Dans un cas comme dans l autre validez lenre gistrement avec OK 3 Tabulation numerique Lorsque vous copiez plusieurs colonnes de valeurs de Multiplan vers MacWrite vous pouvez r aligner les valeurs avec la tabulation num rique le triangle point Bien entendu e vous poeeedez un Multiplan US point de d cimali sation avec un MacWrite fran ais virgule de d cimalisation le cadrage ne se fera pas avant que vous ayez chang les en Si 1 premiere colonne contient des valeurs num riques celles ci ne seront pas tabul es Pour atteindre cet objectif 11 conviendra d ajouter pr alablement une colonne blanche la Zone copier vers MacWrite De d utilisation vous sont propos s dans nombreux autres trucs Muitiplan po
19. condenserons cette routine nous Utilisation du sous programme Elle impose quelques servitudes e chargement de la table de formes ASCILSET une adresse choisie pr ciser cette adresse au systeme pr ciser ECHELLE 1 ROTA TION 0 protection de la table et de la page graphique utilis e Plusieurs cartes d occupation de la RAM sont possibles selon la taille du programme Basic et la page graphi que utilis e Si AD est l adresse de chargement de la table alors AD 256 et AL AD 256 x AH d si gnent respectivement les adresses haute et basse et il faut pr ciser POKE 232 AL76 POKE 233 Si l on utilise une autre table de formes ces deux instructions doivent tre r ex cut es chaque criture en page HGR Il faut donc compl ter notre routine et nous en profitons pour en donner une version compacte 1 AD PEEK 115 PEEK 116 256 IF PEEK AD 63 THEN 1 000 2 AD AD 755 3 PRINT CHR 4 BLOAD ASCII SET A A0 AD GOTO 1000 99 REM ROUTINE EN BASIC 100 NS LEN CHS REM LONGUEUR 110 FOR IS 1 TO NS 120 A NIDS CH 1S 1 REM EXTR ACTION 130 CS ASC A RB CODE 140 SS CS 31 RE4 NUMERO SHAPE 150 HCOLOR 0 63 AT XS YS REM EFFACE 160 HCOLOR 3 DRAW SS AT XS YS REM ECRIT 170 XS XS 4 REM DECALAGE Erick Ringot 18 NEXT 15 190 RETURN 199 REM EN UNE LIGNE 200 SCALE 1
20. fier sil ny a pas d autres cl s pos sibles e O adresse de d but de la table IOB pour RWTS e AA longueur des informations annexes qui seront galement sto ck es dans la table e DT adresse de d but de la table DCB pour RWTS e RWTS adresse de la routine d appel de RWTS voir manuel du DOS 33 pour l utilisation de RWTS e num ro du secteur courant sur lequel on lit ou crit commande pour RWTS soit 1 pour une lecture et 2 pour cri ture Fonctionnement du programme Le programme mampule un fichier de donn es DON acces direct dont la longueur des enregistrements est fix e 100 Il commence par une phase d initialisation suivie de sous routines et l essentiel des traitements r alis s porte sur la gestion de la table de r f rence et du fichier Fi chiers et programmes sont en outre plac s sur la m me disquette qui ne sera donc exploitable que si le DOS a d j t charg partir d une autre disquette Lignes 2 13 initialisation On d finit la valeur des diff rentes adres ses qui assurent le passage de para metres entre le programme Applesoft et la routine machine de recherche de cl ADR CLE ASYO LC On fixe galement ladresse d implanta tion de la routine AR Cette der niere est relogeable ceci pr s quelle utilise des tableaux ADR CLE et ASYO dont on veut pouvoir faire varier la taille et l adresse de d but en fonction des besoins mais dont
21. gt ON DEJA CHERCHE 87 LDX 141 BEG 5130 PLUS 88 STA IOB X PETITE CLE DU URAC 89 JSR RUTS 142 S129 JSR 90 LDY P 143 S130 CMINT PLUS DE 91 LDX S URAC SI CMINT 72 PFT 144 5131 23 BNE S 145 LOS LUT LM 1 SI 94 CPX SFT LUT LU 95 BEQ S10 144 LDX 0 27 JMP S5 148 CMP LU 98 510 INC ZCTP 1 M A J P 49 BCS S14 77 LDA 2 151 514 LDY SYC COMPARAI 1070 STA SZT SON CLE CLASSE A 101 LDA 0 152 5140 LDA ACCP YY PLUS E 102 STA SXC PETITE DU URAC va 103 STA P ECRITURE 153 CMP CMINT X A PARTIR DE PISTE amp SECTEUR 0 154 BCC 5131 CLASSEE 104 STA S lt URAC 105 STA SYB 155 JMP 520 106 LDA 2 COMMANDE 156 5131 LDA LC SIL FAUT ECRITURE POUR RUTS LC 5 OCTETS CLE EN 107 STA 157 CEC COMPTANT 108 LDX LE 0 QUI MARQUE LA FIN 109 STA IOB X 158 ADC 5 DU BLOC 110 POST 15 CUG LET BEQ S100 160 ADC SY8 112 JMP 527 RIEN N E 141 516 SIE Y AD ST CLASSE E LA PLACE SUR LE SECTEUR 113 S100 LOA 2CC 1 EXAMEN 162 JSR 5132 ECRIT LE PARTIR DU DEBUT DE SECTEUR PASSE AU SUIVANT 114 STA 2CCP 1 LA ZONE 163 JMP 516 DES CLES CLASSEES 143 S132 LDX SXC 115 912 LDY 0 IERE CLE 145 LDA SFC POIDS D UN BLOC lt 295 OCTETS RT ADRESSE DU BLOC 116 LDA C2DCPO Y 166 STA CLEMAX X 112 11 STA LC LONGUEUR 167 LDA SYCO POSITION TOTALE DE LA CLE DANS LE BLOC 118 IN Y 168 INX 11 LDA lt 2 169 STA CLEMAX X 120 STA LU LONGUEUR 178 UTILE 171 STX SXC M
22. l impnmante En effet l Ap plesoft positionne toujours le bit de poids fort des octets 1 ce qui inter dit d envoyer des caract res de contr le inf neurs 128 le langage machine pour envoyer tous les caract res voulus Le code concern sera POK une adresse donn e par le programme Basic puis repris par une petite routine du type 300 AD0703 LDA 307 303 20EDFD JSR FDED 306 68 5 Dans cet exemple le code aura t pr alablement POK l adresse San Francisco Toronto Cairo 12 Los Angeles Pour la m me raison le programme Editeur de formes et curseurs enregistr sur la disquette a subi une petite modification par rapport la version hist e afin qu il soit compatible avec le nouveau syst me Pour nos lecteurs qui utilisent version 1 1 du Finder et ne desirent pas acqu rir la disquette signalons qu il suffit de remplacer ie TextFont 1 de la ligne 170 par un Call TextFont 2 la routine se fera ensuite par un CALL 768 Vous trouverez ci apres un petit pro gramme illustrant cette m thode De pilus certaines interfaces intercep tent le code CTRL CHR3 9 comme code de commande ce qui emp che de l ut liser dans la d finition d un caract re programmable Dans ce cas il est donc n cessaire de neutraliser l inter face par un PRINT CHR 9 Z sur la carte Super S ne par exemple afin de recouvrer l usage du code 9 On prendra soin alors d e
23. l utilisateur de choi sir lui m me les caract res de contr le des commandes Disquette Macintosh Prix 150 francs Avec le d veloppement du dossier Macintosh il tait in vitable que nous vous proposions aussi une dis quette Macintosh Cette dis quette comporte les programmes pu blies dans les num ros 14 et 15 ainsi que le programme Disk Copy copie rapide de disquettes avec un seul lecteur et la police de caracteres Cairo gr ce laquelle vous pouvez vous exprimer en images voir le ca hier Macintosh Jusqu saturation de cette disquette nous y mettrons automatiquement teus les program mes de Pom 5 ainsi que de pe tites surprises utilitaires polices de caracteres Disquette Pascal Prix 80 francs Suite aux requ tes de nombreux lec teurs nous avons regroup dans une disquette unique tous les program mes Pascal publi s dans depuis le d but Cela vous vitera de transf rer les programmes du DOS 3 3 vers le Pascal Les fichiers TEXT sont au recto de la disquette et les fichiers CODE au verso ainsi il n y aura pas de pro bl me de compilation Pom s n 15 Apple quoi de neuf Apr s un Macintosh de 512K n quatre mois avant terme que pr pare t on chez Appie Les meilleurs limiers de la presse micro informati que am ricaine sont sur le coup Pour l heure le silence de rigueur Cupertino laisse libre cours
24. son adresse doit etre stockee en 3FC 3FD S il s agit de g rer des IRQ l adresse doit etre implant e en 3FE 3FF comme le montrera le paragraphe suivant BREAK et simulation d interruptions L instruction de break BRK 00 pro dut des effets semblables ceux dune interruption IRQ ce en quoi ele ressemble une interruption lo giciel mais avec deux diff rences Le processeur empile la valeur du compteur ordinal augment e de 2 comme si l instruction BRK occu pait deux octets Le bi du registre d tat est mis 1 alors qu il est dans le cas dune interruption avant sauve garde Ensuite comme dans le cas d une IRQ on saute ladresse contenue en FFFE FFFF ce qui nous am ne donc sur un Apple 11 ou la routine commen ant FA40 qui il appartiendra de faire le distin guo entre et IRQ Cette routine est list e ci dessous et nous allons en faire l analyse Listing 1 Faa0 85 45 STA 45 FA42 amp 8 PLA FA43 48 PHA FA44 ASL FA45 ASL FA46 DA ASL FA4 7 30 03 FA4C Fa49 amp C FE 03 JMP 03FE FA4C 28 FA4D 20 4C JSR FASO 68 PLA FASi 85 93 FAS3 68 PLA FAS4 85 3B STA 3 FAaSe C FO 03 JMP 03F 0 Ligne 1 on stocke laccumulateur en 45 Lignes 2 et 3 on recupere dans cumulateur le sommet de la pile PLA c est dire le registre d tat au moment du ou de
25. toutes les supputations C t Macintosh on pr voit des lec teurs de disquettes double face la capacit passerait de 400 800K D autre part le plus exasp rant des probl mes de Macintosh la lenteur est partiellement au syst me d ex ploitation qui figure sur chaque dis quette programme fait d avoir sur la disquette une partie du syst me est par contre un avantage car on peut ais ment en changer pour par exemple adapter un programme un clavier AZERTY Les projets en cours consisteraient donc int grer les svstemes au Macintosh pour en d barrasser la disquette et obtenir ainsi un acc s plus rapide aux infor mations Une fois r solus les proble mes de capacit et de vitesse Apple pourrait dit on se pencher sur l adaptation de la couleur au Mac C t Apple Il on attend pour la fin de l ann e les nouveaux accessoires du c et notamment l cran cris taux liquides disposant de 295 lignes d affichage Si on ne l a pas vu plus t t c est simplement que son fabri cant le Japonais Sharp a subi un re tard de six mois dans la mise au point de cet accessoire Pour le e on reste muet Cupertino sur les d veloppements du processeur 65816 qui permettrait de le convertir en une machine 16 bits Probl mes de mise au point ou approche du d noue ment D autres tudes portent sur la capa cit des lecteurs de disquettes Au moment IBM parvient stocker 12 Mo sur u
26. 00 0 121 INV GROSSIERS SOFTWARE 80 122 ASC Mobby Disk 54 CHtemp ED 123 INV 02 05 84 SS base EE 124 BRK Se vfst EF 125 JSR MSGAT 57 bufptr 126 0 2 58 SBUF 200 127 LST OFF 69 EBUF 4000 128 DO FRANCAIS 50 129 LST ON 61 WNDTOP 22 130 ASC Piste Secteur 2 WNDBTM 23 JOctet Vol 63 CH 24 131 LST DOFF 64 25 132 ELSE 65 BASL 28 133 LST DON 66 BASH 29 134 ASC Track Sector 67 GBASL 26 Brte Volume 68 GBASH 27 135 5 DFF 8 n 15 1 36 FIN 205 JMP GETCMD 13 LST ON 206 AST 32 138 BRK 207 CMOTBL ASC I monte curseur 137 LOY 839 208 ASC J curseur 9 gauche 140 LDA 209 ASC curseur 3 droite 141 1 STA 480 trace 3 1 210 ASC M descend curseur 19 de pointiil s 211 ASC Y f ltre onoff 142 STA 580 212 ASC NRM INV ou FLS 143 STA 5650 Y 213 ASC G Asci 144 214 ASC H jhexa 145 BPL TI 215 ASC B mixte 146 JSR MSGAT 214 ASC jlire un secteur 147 DFB 0 21 21 2 ASC Uu crire un secteu 148 ASC Buffer 0000 E 149 BRK 213 ASC X restore buffer 1 S0 JSR MSGAT 21 ASC de drive 151 DFB 33 21 220 ASC 9 quitter 152 ASC Drive 221 ASC P change de page 153 8RK 222 ASC page 154 JSR 223 ASC 2 suivante 155 STY temp 224 ASC restore un octet 156 STA temp 1 225 ASC salsie d un
27. 140 FOR J amp 0 TO 53 150 FOR K amp 1 TO 2 s 160 FOR L 3 TO 6 60 INPUT 1 F amp IX 1 Programme de cr ation des fichiers Xt et XP utilis s par le programme principal 10 DATA 24 155 32 0 88 0 1 40 0 262 0 515 0 1025 32768 2048 16384 4096 24576 8192 z 20 DATA 12288 16384 6144 249 1024 16135 512 263 0 r 263 0 263 0 263 0 263 0 263 0 Y 263 0 263 0 263 0 51 1 0 127 0 0 0 0 0 0 0 0 0 0 0 zi 0 0 0 0 0 0 0 0 0 0 32 0 104 0 40DATA 184 0 312 0 568 0 1080 0 2104 0 4159 1024 2 8192 1792 16384 1792 32768 1792 50 DATA 16384 1 792 8192 1792 4159 256 2111 256 1080 0 568 0 312 0 184 0 120 0 56 0 60 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8224 8192 22616 22528 29556 70 DATA 29696 18183 7680 8962 15360 4484 30720 2248 4096 5233 8192 8739 4096 80 DATA 16647 26624 113 1024 16135 512 547 0 1 137 12768 2296 16384 4580 24576 90 DATA 9158 12288 18311 6144 2892 29696 24227 24064 15623 15360 2559 2048 127 100 DATA 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0 28 0 22 0 19 0 17 32768 16 16284 110 DATA 16 24576 16 12288 32768 61 44 32768 2072 32768 1536 22768 3840 32768 120 DATA 7680 16 15260 16268 30720 16 4096 17 8192 19 16384 23 32768 31 0 22 0 4 130 DATA 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 508 0 263 0 263 0 263 0 263 0 263 0 140 DATA 263 0 263 0 263 0 263 0 263 0 249 2048 16384 7680 8192 15360 4096 30720 150 DATA 2048 4096
28. 20 8 85 10 F2 68 1 29 8318 12 20 58 5 95 8450 24 a4 35 60 95 19 94 ED 9599 60 91 29 2 32 86 06 9320 AS F8 85 38 A2 10 96 8asg 5 ED 85 24 A 02 95 18 8590 AD 00 CO 30 0 CA OO Fg 8329 06 20 DO F8 A4 2F 81 450 00 85 1 5 19 20 DA 8599 C 06 00 80 10 CO AA 9330 99 F3 05 88 10 F8 20 S3 8469 FD A4 ED 84 24 A4 24 81 85 40 60 EO 80 OC A6 1E EO 8338 F 85 84 38 C 06 DO 8470 28 85 07 20 55 95 91 28 85 8 2F 00 07 C9 CO 80 03 49 9340 00 CO 10 F8 20 S8 8478 C9 89 FO DE C 80 FO 8580 CO 50 25 1E 60 2 2F 95 9348 85 2 01 C9 90 FO 06 DO 8480 C9 80 80 OC 20 22 86 a5 8589g 00 90 11 01 10 F8 2 8350 06 A 04 95 25 A4 EB 00 8488 07 4 24 91 28 4 60 84 85 0 16 86 22 85 23 A 01 20 9359 OD 38 5 ES 10 O6 8490 C 90 OA C 90 85 95 FE A 00 85 06 20 8350 5 EE 49 80 95 EE AS EE 9499 80 E9 E 06 29 OF 8500 5 28 85 26 5 29 85 8369 95 06 AS 25 20 S8 F8 20 84A0 85 07 AS 1A OA 3509 27 A 16 20 58 F8 20 SE 8370 88 93 E6 25 AS 25 C 14 4Aa 05 07 85 1 18 DO 04 85E0 FD AO O0 81 26 C9 20 80 8378 DO FO A 02 20 58 F8 O 8480 5 1 38 40 E 24 4 24 5 02 69 CO 60 80 02 0 9380 04 01 O 07 20 86 93 AQ 8488 A 0 91 28 4C 60 84 5 e5F0 80 AO 80 02 59 40 C 8388 05 01 0 13 20 86 83 a5 84C0 1B C9 02 DO 04 5 19 85 95Fg FF 00 02 A 0 20 ED 8390 0 10
29. 60 8410 07 AS 07 C9 08 DO 85 8548 60 AO 00 89 00 02 91 FA 8419 EF 2 03 4C 4 F9 2 FF 8550 C9 DO 38 60 20 A 95 BONJOUR LES PRIX NOS PRIX SONT F Carte langage 400 Speech card 320 Carte 128 k ram 1550 Carte horloge 500 Carte 80 colonnes 700 Joystick 165 Interface s rie 520 Ventilateur 280 Super s rie 1000 Contr leur de drive auto switch 13 16 370 Interface parall le 380 Microdrive 3 1900 Grappler buffer 16 k 1350 Moniteur vert 12 950 Carte modem 2200 Disquettes 5 1 4 SF S D par 1 boite 140 boite Carte Z 80 410 Disquettes 5 1 4 S F D D par 1 boite 175 boite Wildcard 400 AU DESSUS NOUS CONSULTER Carte bleue et eurocard accept es Vente par correspondance nous consulter Computer 3 vI 3 rue Papillon 75009 Paris T l 523 51 15 metro Poissonniere ouverture du lundi au samedi de 10 h 19 h 30 16 Pom s n 15 L Enseignement Assist par Ordina teur est la mode actuelle ment Pom s n chappe pas la ten dance en vous pr sentant ici un programme d ducation sur les fleu ves et rivieres de France Le programme E A O FLEUVES est Les fleuves de France 1 5000000 sur laquelle clignote le trac dun fleuve den fournir le nom exact Pas d affolement Le programme ne vous demande que 10 noms avant de sarreter et dafficher votre score Joseph Pino Le programme est tres simple et ne necessite aucun commentaire particu lie
30. 742 243 244 245 246 747 24B 249 750 251 loz 733 754 799 256 Fiera 798 797 nne LOA temp 1 PGCUp2Se chiffre origine LDY CH STA BASL Y ile remet sur 1 lt JMP NXTDI G set va att endre autre chose 560000 CMP 9 1 BLY 60001 BLT BADNUM CMP BGE BADNUM SBC 6 50001 AND 0 45 le chi ffre est valabie STA temp 1 ASL ASL ASL ASL ORA temp i I it 9 la droite de val STA val DEC dignum BNE GETBYT2 set passe au chiffre suivant LOA val SEC RTS GETBYT2 INC LOY CH STA BASL Y JMP NXTDIG GETBYT3 LOA dignum 2 BNE GETBYT4 LOA dfltual STA val srevient la valeur par d faut GETBYT4 LOA CHtemp STA CH LOA val JSP PRBYTE LDA val SEC RTS AST 32 GORUTS HO STA VOLUME LOA STA USRBUF 1 LDY 8I IOB gt IO0B JSR RUTS SAUBUF JSR SOUND LST OFF DO FRANCAIS LST JSR MSGBTM ASC Erreur 4 BRK LOA CMOCODE 2 BEQ MRERR JSR MSGOUT ASC lecture BRK RETRY JSR MSGOUT o c oo 13 14 260 261 762 263 264 7629 266 267 268 269 220 vo TE 773 774 fa 9 776 278 PE b d 280 781 282 283 784 785 786 787 788 789 290 FA TIR 793 794 293 BRG E RTO FAT 800 801 802 803 804 805 806 807 808 809 810 811 812 gis 814 815 81
31. 8020 20 13 06 14 17 01 12 8120 OC 82 14 82 20 82 26 82 8220 60 A 00 AQ 02 DO OA A 8028 05 A0 CD CF C2 C2 09 8128 2C 82 36 82 68 82 48 85 8228 00 0 01 DO 04 AS EE AG 8030 AD C4 C BE 0 30 8130 AB 82 85 82 BE 82 6F 82 8230 00 85 EE 84 EB 38 60 20 B038 32 2F 30 35 2F 38 34 00 8138 73 82 CE 82 DE 82 08 82 8238 44 82 A Ol 80 OC Ol 20 8040 20 4F 86 02 DO C9 8140 77 82 BE 82 OC 83 38 AS 8240 06 84 38 60 A9 02 20 58 8048 04 C5 AO A4 AO 0 8148 ES EF 4C 61 81 A4 8248 F8 A0 07 AD 04 01 20 54 8050 CS 04 CS 05 02 A0 A4 8150 88 98 4C 61 81 4 8250 84 C 24 80 EF 80 04 01 8058 A0 A0 AF CF C3 04 CS 04 8158 98 4C 61 B 18 AS 65 8258 A0 13 AD 05 01 20 54 84 8060 0 4 0 0 F 06 CF 8160 EF 48 00 20 74 81 69 8260 10 90 4 90 05 01 38 8058 AE A0 4 AO AO 00 AO 27 8158 85 20 F 81 A 80 20 8268 60 20 44 82 A 02 DO CC 8070 A AD 80 04 99 80 05 8170 74 81 18 60 48 38 AS 8270 C 38 60 E F8 38 60 g078 50 06 10 F4 20 4F 9179 ES EE 85 05 A4 EB DO 13 8278 05 01 10 OF A BO 8080 86 00 15 C2 05 C C 8180 AA 10 06 20 51 4C 7 8280 05 01 CE 04 01 10 05 A9 9088 02 0 A4 80 8188 81 4A 4 4A AS 06 29 8288 22 80 04 O1 4C 34 82 AC 8070 20 4F 86 21 15 C4 02 C 8190 07 10 09 4A 4A 44 44 AA 8290 05 01 CO 10 OO OF 80 8 06 CS 0 00 20 03 84 8198 AS 06 29 OF 85 04 SA
32. 9 x Utilitaire de lecture lt criture de 79 INSTOSP DO disques B0 PRBLNK F94A 10 PCABJ F953 11 EPROM KBD 0 RAM 82 INIT F82F 1 EPROM 83 TABV FBSB 12 DO EPROM 84 BASCALC 1 ORG 800 85 FCS8 14 ELSE 86 CLREOL FC9C 15 ORG 8900 87 CROUT 16 FIN PRBYTE FDDA LZ 89 COUT 18 constantes 90 SETNORM FE84 17 91 OUTPORT 95 PR n 20 LST OFF 92 21 FRANCAIS KBD 108 100 22 DO FRANCAIS 94 SLOT 108 1 23 LST ON 95 DRIVE 108 2 24 trackpos 7 95 VOLUME I DB 3 25 sectpos 19 97 TRACK 108 4 26 bytepos 29 98 SECTOR 108 5 27 volpos 38 99 USRBUF 108 8 28 LST OFF 108 CMOCODE 10 12 29 ELSE 01 ERRCODE IDB 13 30 LST ON 102 VOLFND 108 14 31 tracKpos 7 103 SLOTFND IOB 15 32 sectpos 18 104 DRUFND 108 14 33 bYtepos 27 105 34 volpos 33 106 35 LST OFF 107 TR 36 FIN 108 AST 32 37 57 ON 109 LDX FF 38 bufpos 8 110 TXS sinitialis 39 CR 80 EON EE AU ctp D 3 84 111 STX mask caractdre E m 20 s normaux 42 ESC 78 i12 STX filter sfiltre en poe service 44 temp 96 1123 INX 45 Cur CH 08 114 STX byte do EU Es 208 115 STX display affichage 47 dfitval 19 UR 48 val 116 STX base adresse d 49 dignum 18 DE 50 mask 1E 117 AST 32 51 byte tB TITLE JSR S2 display 09 119 JSR HOME I hexa 2 ASCII 1 20 JSR MSGQUT 53 filter
33. AI AI j 64 NEXT 130 GOSUB 2170 RESTORE FOR 1 1 TO 4 P I ONEXT CALL BACKPAT VARPTR P 1 XCLS LINE 44 30 444 86 B LINE 1 48 102 340 246 B 150 104 338 122 140 FOR 14128 TO 224 STEP 24LINE 320 1 335 1 15 B LINE 335 1 320 1 15 LINEC335 1 15 320 1 LINE C322 1 2 333 1 13 B LINE 323 1 3 332 1 12 30 8F NEXT LINE 150 247 340 247 150 LINE 46 87 446 87 CALL PENSIZE 2 2 49 35 439 81 LINE 341 103 341 246 LINE 445 31 445 86 160 GOSUB 1790 CALL PENPAT VARPTR P 1 CALL PENSIZE 4 4 P 1 31 P 2 45 P 3 86 P 4 444 CALL FRAMERECT VARPTR P 1 CALL PENNORMAL 170 CALL TEXTFONT 1 CALL TEXTSIZE 24 CALL TEXTFACE I CALL MOVETO 64 66 PRINT Pom s CALL TEXTMODE 1 CALL TEXTSIZE 14 CALL TEXTFACE O CALL TEXTFONT S CALL MOVETO 192 62 PRINT Editeur de formes et curseurs 180 CALL TEXTSIZE 12 CALL TEXTFONT O FOR 1 118 238 STEP 24CALL 152 1 W PRINT W NEXT 190 R 1 40 R 2 54 R 3 77 R 4 1 49 CALL INVERTROUNORECT VARPTR R 1 18 18 R 1 106 R 2 152 R 3 121 R 4 337 200 FOR 1 1 TO 34READ D I NEXT CALL SETCURSOR VARPTR O 1 CALL SHOWCURSOR PUT 420 226 Q 210 w INKEY IF Wo THEN 230 ELSE IF MOUSE O O THEN 240 ELSE i 1 i 1F 50 THEN CALL NVERTRECT VARPTR R 1 1 0 220 GOTO 210 230 N ASC W IF lt 49 OR N gt S3 THEN 210 ELSE N N 48 GOTO 260 240 IF MOUSE 1 321 OR MOUSE 1 gt 33
34. Avrane et A Duback 75 Langage B asic A ssembieur P ascal B signifie relatif au BASIC Niveau D butant nnel T ous signifie programme utilisable par les d butants mais dont la compr hension esi de niveau Prefessiennel Les annonceurs Apple p 38 39 ATARI p 80 ATBA Computer p 16 Club Apple 37 Dynamite Computer p 45 GMS 70 Hello p 51 Light p 31 LIST p 6 Maxi p 79 PeachTree 4041 P S L p 42 Soft Express p 4 SYBEX p 76 T l compo p 67 Version Soft p 2 Editions MEV 64 70 rue des Chantiers 78000 Versailles Directeur de la publication Herve Thinez hnpnrmerie Rosay 9430 Vincennes Imprim en France B p t l gal 4 trimestre 1984 Pom s n 15 3 i s t Till mamana VENTE PAR CORRESPONDANCE X LOGICIELS POUR APPLE fonctionnent sur et e le C figurant c t d un nom indique que le programme est garanti fonctionner sur JEUX Prix ARCADE AEEOO 1 DROL Broderbund 350 00 AFEOO1 gt ZAXXON Dataso t 380 00 AGE001 MINIT MAN Penguin 200 00 AGE002 BOUNCING KAMUNGAS Penguin 300 00 AJEOO1 NIGHT MISSION PINBALL Sublogic 350 00 AREOO2 AQUATRON Sierra 300 00 AEEO02 SPARE CHANGE Broderbund 350 00 AVEOO 1 WAY OUT Sirius 270 00 AWEOO 1 C THE HEIST Micro F
35. CHR 27 C O L 15 16 1 R 1 W OOO LPRINT largeur 271 hauteur M 4 M 2 L 15 N16 octets LPRINT 1560 FOR 1 TO ItFOR J 1 TOO IFR 1 AND P gt 1 5 ELSE O P 1570 LPRINT TAB Q USING A 1 4 2 1 1 4 2 X f LEFT W A LENCY Y LPRINT TAB Q 7 X R R 1 1580 IF R 33 THEN R 1 PsP 14LPRINT CHR 27 r CHR C31 CHR G31 79 31 727 CHR 27 c Pom sn 15 1590 NEXT NEXT PUT 328 2 4 M PSET CALL SETCURSOR VARPTR C CI GOTO 1180 1600 Enregistrer forme 1610 GOSUB 2150 GOSUB 1850 1620 GOSUB 19501 A THEN 1340 ELSE OPEN 07 1 7 6 PRINT 1 L MO L 15 NT6 FOR 1 1 TO MFOR J 1 TOO PRINT 1 A CE 1 4 J 2X NEXT NEXT CLOSE 1630 OPEN clip FOR OUTPUT AS 1 LEN 6 PRINT 1 4 M 2 L 15 N t6 octets CLOSE GOTO 1340 1640 Grille forme 1650 IF F THEN F O ELSE F 1660 GOSUB 1830 60 0 1180 1670 D caler 1680 CALL INITCURSO0RP 3700 80 R 434 5 272 GOSUB 1850 PUT 391 99 I 1690 IF MOUSE 0 lt gt 1 THEN 1690 ELSE P OUSEK 1 Q OUSE 2 F lt 386 OR P 418 OR Q 96 OR 0 gt 255 THEN 1690 ELSE N 0 96 N32 1700 R 1 97 32 N R 2 387 R 3 R 1 31 R 4 418 FOR 1 0 TO 3 CALL INVERTRECT VARPTR R 1 FOR D 0 TO 20 NEXT NEXT ON N GOTO 1730 1740 1750 1760 1710 P 376 0 22 1720 GOSUB 2190 60 0 1690 1730 P 377 0 21 6QTO 1720 1740 PUT 370 80 M PSET GOSUB 2170 CALL SETCURSOR VARPTR C CI GOTO 1350 1750 P 379 Q 21 G
36. La complexit La ligne de commandes n est pas tr s simple interpr ter et le recours l cran S OS relativement fre quent Mais surtout TOUTES les caracteris tiques des rubriques sont entrer sous forme de codes un caract re sauf la longueur Les asse2 classi ques C pour caract res ou N pour num riques sont simples interpr ter Mais f ou J pour les index selon leur nature les codes de protection de calcul sont pratiquement im possibles retenir par coeur nest par exemple pas vident que l attribut N2VE concerne une rubrique calcul e nu m rique 2 d cimales acceptant des valeurs n gatives et r put e vide si la valeur calcul e est gale O exem ple du manuel de r f rence Les formules de calculs et de v rifica tion tr s pr cieuses certes utilisent de nombreuses fonctions quon ne trouve quen programmation Par exemple LEN pour le nombre de caract res d une chaine ou pour une concat natron de cha nes ou encore une formulation dalgebre logique tr s particuli re utilisant les signes et amp et ceci des la lecon 4 du quide p dagogique simplifi noter que dans d autres cas on em ploie OU et ET en toutes lettres La gestion de fichiers La puissance La multiplicit des d tails utilisables dans la cr ation des structures per met de nombreux contr les au ni veau de la saisie Le logiciel permet par exemple e de ne pas
37. T L PHONE AGG003 TRANSYLVANIA US Penguin 400 00 AGGOOS PENSATE US Penguin 430 00 001 RUN FOR THE MONEY US Scarb 460 00 BAG002 MAC GAMMON US T L FHONEZ BAGOO3 MAC CHECKERS amp REVERSI US T L PHONEZ UTILITAIRES TABLEUR ABGOO2 MULTIPLAN US Microsoft TELEPHONEZ GRAPHIQUE ABGOOS MICROSOFT CHART US 1 300 00 LANGAGE ABG006 MICROSOFT BASIC US 1 400 00 FICHIER ACGOO PFS FILE US Software Publ 1 250 00 IMPRESSION ACGOO2 PFS REPORT US Software Publ 1 250 00 FICHIE R AYGOO 1 FILEVISION US Telos 2 000 00 Teus nos prix sont valables dens la timite des stocks disponibles Nuus n encaissons r glement que lors de l expedition de vetre commande Toute commande non exp di e saus un d lai maximum de 15 jours sera cemboursable sur vetre demande Tous nos enveis sent recommantd s Apple est une marque d pos e Apple Computer Inc Macintosh est licence chez Apple Cempuler Inc 24 rue d Anueill 15011 Paris 572 55 15 D SIGNATION R F RENCE NOMBRE Participation aux frais de port et d emballage TOTAL Signature obligatoire pour paiement O Paiement Bar ch que joint par carte de cr dit CCP Pala ment par Carte bieue VISA Atri r t 24 d Armaill 75017 Paris 1 5 2 55 1 5 Bate d expiration OM PRENOM _ oo O Je d sire seulement recever votre catalogue Joindre deux timbres tarif lettre normal i Code postal
38. Vous trouverez ci apr s la r capitulation des op rations effectuer sur le programme source original pour cette implantation e Remplacer la s quence Suite Ins tructions par celle publi e dans le Pom s 14 e Supprimer les lignes 579 612 La ligne 573 devient BNE E ERR La ligne 271 devient PLUME HEX 00 Dans la ligne 138 T10 remplace T 11 Supprimer Supprimer Supprimer la ligne 55 Assembler le nouveau source ainsi constitu l adresse 886E es lignes 134 137 es lignes 65 90 Disque 64K Pom s 14 Il faut rajouter un code D9 la fin de la recapitulation du programme AUTO RWAUXINITOBJ en 50 FF Disques virtuels 16K et 64K Si vous poss dez deux lecteurs de disquettes vous pouvez en fabn quer un troisi me en vitant de mettre le disque virtuel en lieu et place de votre lecteur 2 Il suffit pour cela de d signer le disque virtuel comme lecteur et de faire ad mettre au DOS l existence de ce lec teur La routine de gestion du lecteur virtuel tant charg e les POKESs sui vants r alisent l op ration 1 Disque 1615 e 48825 3 43355 3 2 Disque 64K e PORE 483723 e POKE 43355 3 11 DISQUETTES HAIFA cus Ch Poms neS 55 00 F seek Pommes sant 1940 00 F MUSIC m E Foms arlok 80 00 F DISK MANAGER cf Pomsn 11 a 45000
39. les pistes 0 1 et 2 de la disquette contiennent le DOS et ne sont plus accessibles pour la sauvegarde de fi chiers ou programmes En fait cette pr sence du DOS sur toutes les disquettes consttue un luxe inutile Plus particuli rement en matiere de gestion de fichiers on peut utiliser fr quemment une dis quette Programmes qui se place dans le lecteur 1 et assure galement le boot du syst me et une dis quette r serv e plus sp cialement la sauvegarde des fichiers plac e dans le lecteur 2 Sur cette seconde disquette le DOS ne repr sente quune perte de place pour le sto ckage des informations De m me si l on n emploie qu une seule disquette pour programmes et fichiers et si l on ne dispose que d un seul lecteur il est toujours possible de charger le DOS en m moire partir d une autre disquette rempla cee imm diatement apr s par celle n cessaire aux traitements li serait donc possible d exploiter les 3 pistes prot g es du DOS pour y stocker des informations utiles la gest on de fichiers nous vous propo sons d y placer la table de r f rence des enregistrements d un gros fichier de donn es Notons de suite que ceci ne perturbera pas le fonctionne ment du DOS pour le maniement de programmes ou fichiers sur la m me disquette puisque les pistes 0 1 et 2 sont de toute facon consid r es comme Occupees lissue de INIT Poms n 15 on ne risque donc pas de les cra ser cou
40. sauve octet bas du compteur ordi nal empil lors du BRK en 3A PLA STA et l octet haut en 3B PLA STA 3B puis on saute l adresse contenue 3F6 3FI En standard c est dire lorsque vous mettez l Apple sous tension 3F0 3F1 contiennent 59 un conduit donc finalement la routine commencant en 5 qui affiche le contenu des registres l cran et passe en mode moniteur stoppant ainsi le d roulement du programme en cours Lorsque vous utilisez le break sous la forme que lui ont donn e les concepteurs de l Apple il peut sur tout vous servir lors de la mise au point de vos propres routines en lan gage machine En effet si tout ne se passe pas conform ment vos esp rances vous ins rez un dans le programme source en assembleur soit un code OO dans le programme objet l endroit qui vous semble te plus significatif et vous en relancez l ex cution En arrivant au le syst me stoppe le programme et affi che les registres ce qui vous permet d en examiner le contenu ainsi que celui des adresses que vous utilisez afin de v rifier sil correspond aux valeurs que vous aviez pr vues lors de l tude de votre programme Cela facilite bien souvent le diagnostic des erreurs Afin d illustrer le m canisme des in terruptions et surtout celui des re tours dinterruptions dont le break peut assurer une certaine simulation nous allons maintenant revectori
41. 05 Os 38 0940 08 20 AD OO CO 10 0 28 05 04 03 02 01 39 38 3 OAF0 32 33 34 35 35 37 38 0968 0B C9 98 DO 07 8 10 CO 0430 36 35 34 33 32 31 30 OAFB 39 01 02 03 94 05 04 30 0970 FO 32 FO BC AF OA AO 50 0A38 CS C4 89 B8 87 0E00 31 32 8D 13 30 8D 05 31 0978 20 D 03 80 10 AC 78 05 0Q40 85 85 B4 82 SF 0808 80 03 32 80 14 33 SD OS 0980 88 89 17 OA AC 54 OA CS 0448 50 5 SF SF SF SF 53 0810 34 8D 15 35 12 55 8D 0988 C8 71 28 DO C2 AD SO 04 50 01 50 01 00 00 OO 1 0818 20 3 80 20 38 SD 20 3 0990 AB 89 47 DA 0458 00 20 00 00 01 00 00 60 0820 3D 20 01 85 20 02 8D 20 0998 DO EA EE 54 OA AD S4 0A20 01 OO 01 EF D8 04 09 13 0828 03 SD 20 04 20 OS 8D 0 A0 C 23 90 6 2 1E BD 15 0 58 0B 20 03 08 05 03 08 2D 0830 20 05 00 CS CE C2 CF P2 0948 08 FO 06 90 00 06 DO 0A70 15 10 8D 8D AO C3 CF DO 0838 CS 00 220000020002 Pom sn 15 69 Tout ce que VOUS avez toujours voulu savoir Apple AC Et be de Te Apple et GMS c est une rencontre Apple c est toute une gamme d ordi nateurs personnels pour profession nels LApple et son jeune frere compact Apple Zc Ils sont tr s s rieux pour la FORMAT Iu f fa F gestion la tenue des stocks ou le trai tement de texte Et puis il y a Macintosh et sa souris On clique sur la souris on appelle le progr
42. 10 TO 170 STEP 6 CALL HM 1 150 NEXT 1045 RETURN 1995 REM SYNTAXE 2000 A SYNTAXE DE L INSTRUCTION CALL HM 5 100 20 HPLOT 90 TO 250 30 2005 A CALL ADR CH C L CALL H1 4 50 50 2010 A ADR ADRESSE DE CHARG EMENT DE LA ROUTINE CALL HM A 10 100 2015 4 AS VARIABLE ALPHANU MERIQUE ECRIRE CALL HM AS 10 110 2020 A C COLONNE DU PREMI ER CARACTERE CALL 4 10 1 20 2025 LIGNE D ECRITURE CALL 4 10 130 2 RETURN 2995 REM POLICE 3000 REM A CARACTERES DISPONIB LES CALL HM 100 20 HPL OT 90 30 TO 250 30 3005 HCOLOR 3 FOR I O TO HPLOT 30 w 1 0 TO 30 w 1 191 NEXT HPLOT 0 0 TO 240 0 HPLOT 0 2 0 TO 240 20 HPLOT 0 191 TO 24 0 191 3010 A CARACTERES DISPONIBLES FOR I 1 TO LEN A C MIDS CAS I I COLL H4 C 250 8 w 1 NEXT 3015 A FOR f O TO 3 CALL 10 60 1 10 NEXT A FOR 1 TO 3 4 40 60 1 10 NEXT 3020 FOR 1 1 TO 42 3025 N STR 2 4 CHR I 31 QZ 1 1 Z 4 RA 1 1 4 w G ZX X 10 60 RA Y 30 10 Z 3030 CALL CALL HM AS X 30 Y 3035 NEXT Pom s n 15 3040 RETURN 3995 REM HISTOGRAME 4000 HCOLOR 3 HPLOT 10 10 TO 10 150 TO 260 150 4010 FOR I 0 TO 3 Y 150 RND 1 w 140 STR 150 YZ y X1 0 50 w 1 X2 XI 5 0 HPLDT X1 150 TO X1 Y7 TO X2 Y T
43. 169 141 17 envoyez nous une E3 et abonnez vous sans Pom s n 15 7050 7060 7070 7080 7090 7100 8000 8010 8020 8030 8040 8100 9000 9010 10000 24 1 145 172 147 172 147 174 153 173 199 170 159 171 155 173 161 174 160 176 168 180 177 178 178 176 1 80 176 181 171 183 172 188 167 18 9 164 DATA 191 165 195 162 195 154 185 1 53 182 147 184 140 179 134 185 13 0 185 125 180 118 182 115 180 104 175 104 169 109 0 0 180 104 176 101 171 104 169 109 169 101 180 8 8 182 83 181 80 185 80 187 77 188 27251925385 197 45 195 45 188 44 185 42 1 81 44 176 41 174 43 171 36 169 36 164 36 159 34 156 36 147 29 146 245 2141 27 137 27 137 20 1325 17 13 1 19 130 16 128 14 127 14 125 15 123 145 122 9 119 10 116 7 115 95 0 O 9 DATA 147 82 144 72 137 67 135 60 1 31 58 123 62 118 63 111 56 112 52 107 48 102 49 95 42 83 38 0 0 DATA 141 140 139 141 136 139 136 1 32 138 132 141 124 137 115 136 10 5 122 93 121 88 119 86 120 83 116 78 104 72 94 82 85 84 79 86 76 8 6 70 82 67 83 65 84 58 83 53 87 4 9 87 0 0 89 188 86 189 83 180 86 179 9 2 176 96 170 94 164 90 157 85 155 79 153 79 152 79 150 74 146 70 1 46 65 135 0 0 200 101 194 106 191 106 183 110 180 104 0 0 169 109 167 110 163 122 154 118 156 118 1 SO DATA 119 150 125 149 127 151 136 1 51 138 150 142 148 148 148 154 15 2 159 150 160 148 162 148 165 144 168 141 171 0 0 144 168 145 172 0 0 148 165 153 173 0 0
44. 18 8298 00 AE 04 01 E8 EO 23 00 B0A0 06 85 07 40 10 8l 06 99 B1A0 69 04 85 09 20 58 F8 AS 2 0 02 A2 00 04 01 C 05 B0AB 00 01 88 10 F C8 BC 08 8148 06 18 A4 14 88 2 8 01 4C 82 AD 02 01 49 8080 01 84 40 FB 20 8180 FO 25 69 04 68 20 01 8280 03 80 02 01 38 60 20 2 8088 51 80 20 74 81 20 9188 82 91 28 84 08 9288 F8 20 58 FC 4C 65 FF A9 80 0 86 AD BE 00 20 CC 80 B1CO 91 28 60 69 04 65 05 AB 82C0 15 20 58 F8 AS F8 0 08 80C8 90 5 80 E8 20 55 85 A0 81C3 68 20 01 82 91 28 84 82 8 20 54 84 85 38 60 A4 8000 17 88 30 11 09 01 DO 8100 08 C8 C8 ZA 91 28 60 69 8200 8 00 02 91 FA 4C 02 8008 F3 98 0 8 B 1 81 48 8108 05 08 84 08 68 AA 10 OF 8208 83 20 DF 82 4C D 82 AS BOEO 89 18 81 48 60 C 90 81E0 2 02 28 29 7F 09 40 82E0 09 20 58 fB A4 81 Pom s n 15 mE 15 82E9 A4 08 84 24 A6 EO 02 8420 81 D 00 02 F0 02 2 8559 2C 10 C 90 FO 55 C 82F0 0 09 20 55 85 20 95 8428 86 32 20 DA 4C 94 8550 98 00 06 A2 A 87 9g2Fg 4 FE 92 20 54 84 4 8430 FE A AO C9 0 80 12 24 8568 80 40 4 24 81 29 48 a 9300 91 94 ED 20 51 93 8438 10 OE 09 80 EO 90 8520 20 85 80 F7 07 9 8309 AS ED 4C 61 81 A 04 95 8440 02 29 BF C9 0 80 02 A 8578 DF 20 85 30 07 68 48 8310 22 A 14 85 23 20 S8 FC 8448 DF 84 35 A4 24 91 28 E 8580
45. 2 On peut aussi depiacer dupiquer faire sumetries Il existe enfin des forictions permettant de travailler au niveau du point ou de Controler la pesition du dessin dans ia page d utiliser une arille peur certains traces et bien entendu des fonctions de gestion de disque Une lacune l absence d une fonction Catalogue on ne sait jamais ce quil y a sur un disque Le fonction impression EXIGE l imprimante Image iriter Pour une autre imprimante il faut transiter par ie disque Un produit bien agreable malgre queiques lacunes La version etudiee fonctionne sur les modeles II II vre et c Pom s n 15 Gestion de fichiers par RWTS et Poms a d j consacr plusieurs arti cles aux m thodes de gestion de fi chier en DOS 33 et apres une lon que pose dans cette s rie nous vous en proposons un autre un peu plus complexe dans sa mise en oeuvre mais qui devrait vous fournir du moins lesp rons nous un syst me relatvement rapide et souple pour g rer de gros fichiers de donn es sur disquettes 140 Principes g neraux ll est de notori t publique ue le DOS se charge en m moire partir dune disquette lorsque lon met lApple sous tension ou que lon boote chaud par PR 6 par exemple L implantation du DOS sur une dis quette r sulte de maniere g n rale de son initialisation par la commande INIT A l issue de cette op ration
46. 2 IF 1 THEN 2 0 240 GOTO 100 800 UTAB HTAB 20 PRINT MODIFI CATION 810 IF R 0 THEN 2 N EXISTE PAS POKE 34 9 HOME TEXT GOSUB 75 GOTO 100 815 UTAB 12 1 FOR 1 0 TO 6 INPUT ZYS I NEXT IF LEN 2 4 gt 1 OR LEN 2 529 gt 1 OR LEN 2 60202 gt 1 THEN BI 5 820 GOSUB 8 SB PEEK ASYO RI 1 840 FOR I 4 TO 6 BU SB L I 4 ASC ZY I NEXT C 2 GOSUB 65 GOTO 100 900 UTAB 8 HTAB 20 PRINT CONSUL TAT I ON 4 IF R 0 THEN 810 910 UTAB 22 2 2 SUR UNE TOUCHE 60508 75 GOTO 100 250 8 HTA8 20 PRINT ANNULA TION s IF R 0 THEN 810 955 PL PL 1 PtZX PL A 960 SB PEEK 5 0 RI 1 980 BU SB 0 C 2 60508 65 z GOTO 100 2000 PRINT DI CLOSE PRINT D OP FP PRINT D URITE FP PRINT NZ PRINT NF PRINT TT PRINT 00 PRINT IC FOR I 0 TO 2 PRINT N I NEXT PRINT 0 CLOSE 2010 PRINT D OPEN PL PRINT D U RITE PL PRINT PL FOR 1 s I TO PL PRINT PLZCI 1 NEXT PRINT O CLOSE 2999 END 3000 N 0 3010 C I1 GOSUB 65 5 2 3020 LI BU SB 2 IF L 1 gt THEN 3050 29 3030 N N 1 IF N lt NZ THEN PC PF INT TT 16 5 010 TT 16 PF POKE 30 PC 3040 GOTO 2000 31 SC 206 207 5 3050 L2 PEEK BU SB 12 2 F IF PEEK BU SB 0 THEN 50 CALL 4096 FOR I 0
47. 20 2F RE 50 110 GOSUB 65900 120 PRINT OK END 63900 REM ROUTINE 65905 REM APPLESOFT DE S H LAM 63910 YE Y N DOCS 623920 FOR I 1 TO Y 65950 511 I ASC i MIDSs NEXT 3 POKE 72 0 CALL 14 950 RETURN 4 m 2 E 2 Les POKEs que vous utilisez pro voquent en effet RUN lors du RESET Toutefois le RESET d connecte les entrees sorties du DOS CALL 1002 au d but de votre programme r soudra votre probl me Cependant i est bon de pr ciser quun RESET dans un programme qui travaille sur disquette n est pas prudent surtout en cours d criture Je recherche un logiciel d astrologie professionnelle exploitable sur Apple e Je sais qu il en existe un en fran cais Pouvez vous me le confirmer Jo l Moreau 7 rue J 44100 Nantes Peut tre un lecteur peut il nous r pondre J ai fond New Delhi une soci t sp cialis e dans la recherche acousti que et l ethnomusicologie qui utilise de facon intensive les micro ordina teurs Apple entre autres Je voudrais signaler tous ceux que ces domai nes int ressent que je compte fonder la branche europ enne de cette acti vit d ici un an environ Dans cette perspective jinvite ces personnes me contacter Bernard Bel ISTAR 113 Jorbagh New Delhi 110003 Inde Je commercialise un logiciel de d co dage des missions radiot l graphie RTTY a
48. 239 ASC m SLOT 285 ELSE 240 MSGSLOT ASC e 286 ASC ENCORE 241 ASC DRIUE 287 FIN 242 FIN 288 OF8 0 243 MSGDRIUE ASC 1 289 END R capitulation 0980 F5 85 4B A2 26 20 C2 09 0 28 09 02 C C8 D4 DB 0988 02 FO B 20 58 FC 4C 0A80 00 O Bl 8 Bs 84 Ae 09C0 ER 03 BE CP 09 D2 09 04888 AO C CC CS D8 Ci CE Ca 0900 20 93 FE 20 8 A2 OE 09 8 9 A8 DO 05 AD 80 04 49 0 90 D2 CS AO D D2 0908 20 4 F BD 65 0A FO 05 0900 Ot 8D 80 06 A 06 20 AB 0A9 8 CS 8D BD AO D3 CC D4 0910 20 FG FD E8 DO FS A2 88 0 D8 FC AD OO CO 10 EE 8 10 0AA0 DF DF B DF DF A0 A0 0918 20 C2 09 80 15 FG OE 48 09 0 CO 48 A 0 D 00 06 8D OAA8 AO 0 C4 D2 C9 D CS 8A 0920 09 80 8D OA 68 09 8 10 CO 68 C9 98 FO 16 C9 08 80 OF DF 81 DF DF 80 D 20 0928 8D 51 OA A2 9 20 09F0 8D FG 11 EO 80 90 CB C9 0488 20 10 09 13 14 05 20 20 0930 C2 09 80 70 FO OC C 03 09F8 90 C 88 BO C3 9D OACO 20 20 20 20 20 20 20 20 0938 80 FS 8D 52 QA 09 80 BD 00 80 05 29 OF 18 0 00 00 0AC8 20 31 31 31 31 31 31 31 0940 82 A 00 8D 54 OA 8D 0A08 OE OD OC 08 OA 09 08 0 OADO 31 31 31 31 31 31 31 31 0948 53 0A A0 FF O6 04 EE 0Q10 06 05 04 03 02 01 OF 46 OADO 31 32 32 32 80 20 20 30 0950 06 OA AC 06 OA CO 10 80 0818 45 44 43 42 41 79 78 77 OAEO 31 32 33 34 35 36 37 38 0958 41 89 07 0A 8D 55 69 0Q20 76 75 74 23 72 71 70 06 39 01 02 03 04
49. 487 488 489 490 491 492 493 494 495 476 497 498 499 500 501 502 503 904 505 505 99 908 PRYSET DEC SECTOR slit le se cteur BPL PRVI LDA H F STA SECTOR DEC TRACK SPL PRV1 LOA 22 STA TRACK PRUI JMP ROSECTI AST 32 NXTSCT LDY SECTOR 106 le se cteur suivant INY CPY 1 BNE NXT1 LOY 40 LOX TRACK INX CPX 23 SNE 0 NXTO STX TRACK NXT 1 STY SECTOR JMP RDSECTI AST 32 CHGORU LOA DRIVE de dr ve ER 03 STA DRIVE SEL RTS AST 32 QUIT JSR INIT 17 cran et quitte programme JSR HOME JMP FF 5 AST 32 CHGBtUF LOA 821 JSR TABU LOA bufptr 1 LOY bufpos JSR GETBYTE STA bufptr i SEC RTS AST 32 URICHNG LDY srestore octet ol est le curseur SBUF Y STA fbufptr ri JMP _ CHGBYT 4 AST 32 JSR permet 17 dition du buffer JMP CHGDATA AST 32 CHGBYT LOA cur C permet 17 dition d un octet JSR TAB LOY byxte LOA bufptr Y LOY COPE STY CH LDX display mode mi xt CPX 2 ASCI I BNE CHGBYT2 non gt sa ute JSR GETKEY JSR DOMASK JMP mm E ames dm ET ANS de ee pf 309 510 SI 512 513 S14 915 316 az 518 519 220 521 522 223 524 525 526 Det 528 229 530 531 532 933 534 535 536 937 538 237 540 541 542 543 544 545 946 947 948 949 550
50. 6340 6350 6360 6370 6380 6390 6400 6410 6420 6430 6440 6450 6460 6470 6480 TO 102 93 TO 94 84 TO 93 82 RET URN AS CHARENTE HPLOT 19 106 TO 117 116 TO 05 116 TO 104 112 TO RN AS DORDOGNE HPLOT 54 1139 TO 153 122 TO 20 135 TO 110 133 TO URN AS VEZERE 120 TO 137 124 TO 137 129 TO 129 TO 128 135 RETURN AS ISLE HPLOT 134 117 TO 130 1 20 TO 127 128 TO 124 128 TO 121 1 31 TO 111 131 TO 110 135 RETURN AS l OT HPLOT 172 142 TO 163 14 9 TO 155 140 TO 142 144 TO 130 14 3 TO 128 145 TO 123 144 TO 119 14 7 RETURN AS TRUYERE 7 139 TO 165 134 9 140 RETURN AS TARN HPLOT 47 TO 162 152 TO 96 TO 140 158 TO 92 RETURN AS AVEYRON HPLOT 162 147 TO 15 8 145 TO 154 147 TO 146 146 TO 14 5 151 TO 135 152 RETURN AS ARIEGE HPIOT 141 186 TO 143 185 TO 142 182 TO 139 180 TO 139 171 TO 136 169 TO 136 165 RETUR N A9 SAVE HPLOT 122 173 TO 127 1 69 TO 134 159 RETURN AS GERS HPLOT 120 172 TO 123 1 67 TO 124 158 TO 123 155 TO 125 1 90 RETURN AS BAISE 172 TO 120 168 TO 119 148 TO 1 TO 1 RETU 129 112 114 118 98 111 TO 1 TO 1 RET 199 119 139 135 105 130 HPLOT 147 120 TO 142 134 TO 16 TO 15 HPLOT 170 137 TO 158 135 173 145 TO 157 154 TO 135 152 TO 165 1 145 1 130 1 HPLOT 118 176 TO 117 RETURN AS ADOUR HPLOT 115 178 TO 115 175 TO 114 172 TO 113 163 TO 108 159 TO 95 160 TO 94 164 TO
51. 80 80 72 36 32754 32759 32713 2085 1987 1057 963 508 0 0 0 32 112 112 120 60 32766 1 32767 4095 2047 2047 1023 508 0 0 0 6 0 40 DATA e Point chaud 2 e Enregistrer 3 e imprimer 4 e Curseur 5 e e Grille 7 e Quitter 50 DATA 512 512 512 512 512 1792 520 1792 512 512 512 912 S12 60 DATA 16382 16385 20473 20485 20485 20485 20485 20485 20473 16385 16385 20605 16385 12282 8194 Pom s n 15 I6382 16382 32767 32767 28679 28679 28679 28679 28679 32767 32767 32767 32767 32767 16382 16382 16382 5 8 70 DATA 32768 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1 80 DATA La posit on du point chaud n tant pas tablie les valeurs assum es sont X 0 90 DATA Effacer f Ajouter ligne 2 Supprimer tigne 3 Ajouter colonne 4 Supprimer colonne 5 Imprimer 6 Enregistrer 7 Grille 8 Quitter 9 D caler 100 DATA 8184 16380 32766 1 16381 10021 14253 9509 12213 9509 16381 1 32766 16380 8184 0 8184 0 0 32766 32766 32766 32766 32766 32766 32766 32766 32766 0 0 8184 0 7 7 110 OPEN i 1 XL 6 FOR I 1 TO 312 INPUT 1 I I NEXT CLOSE OPEN i 1 XP 6 FOR 1 1 TO 218 INPUT 1 0 1 NEXTCLOSE RESTORE 70 FOR I TO 16 READ H I NEXT FOR i 3 TO 9 FI 1 NEXT WV VouleZ vous H 16 WIDTH Ipt 17 255 120 CALL TEXTFONT O CALL MOVETO 2 12 PRINT 6 et JLB GET 3 3 99 12 M LINE 3 3 99 12 30 BF J 0 Bl 501874LAlsVARPTR H 1 4FOR 1 1 TO 10 FOR J 0 TO 13POKE B J PEEK AI
52. 84 2360 00 ABCbase 10 84 3320 00 MacStock nos 10 84 1779 00 PfsFile Report Sonotec MacLedger Logicie MacCash Logiciel P C 2609 00 Minifact Idees informatique NC 3 Thinktank Gamic 1957 00 Mega Merge Feeder NC Word Microsoft France 2336 00 4 Parts Cr ation A C I MacCrypt CE R IA PolyFiche Polygone Mac agende Gamic 5 Mac Terminal Apple 11 84 990 00 Telemac Mediatec 11 84 NC Telemac Mediatec 11 84 NC Mac Tell Mello 11 84 NC Macphone CERLA 11 84 NC 5 Hicrosoft France 6 5 Chart 7 Agatha 1411 00 CD soft MacDent Dag informatique x C M G DoctorMac JSR Informetique Transfu 8 0 Transfu labo serv Inpharmez 8 x MacJack Answare MacSlots Feeder 09 84 24 00 Jeux de mots Hello 11 84 NC Sargon Ill Sonotec 11 84 NC MacManager Feeder 10 84 700 00 Reversi RC 1 informatique 11 84 NC Boulede silicium Hyperlog 09 84 475 00 Run for the money Feeder 09 84 993 00 Mac Feeder 09 84 522 00 Transylvania Feeder 09 84 540 00 compte Polygone 10 84 295 00 MacProject Apple MacExpert Answare Slide 61 1 R alisations Da Vinci Gamic Fichiers cod s Carnet d adresses Gestion d un cabinet dentaire 00 BlackJack
53. AND 1 0 O AND 0 0 mode 12 Tous les points constituant la ligne sont dabord invers s puis sont superpos s aux points definis sant le fond 1 0 1 mode 13 Double op ration loqique NOT et OR Les points constituant la ligne sont d abord invers s comme avec 12 et sont ensuite trait s comme avec mode 9 NOT 1 1 1 NOT OR 1 1 NOT 1 OR 0 0 NOT O OR O 1 mode 14 La m thode emplov e est la m me que pour l argument pr c dent mise part l op ration logique OR ici remplac e par NOT TXOR NOT 0 XOR 1 NOT 1 XOR 0 0 NOT 0 XOR 0 1 mode 15 Le second op rateur logique est cette fois un AND NOT 1 AND 1 NOT 0 AND 1 NOT 1 AND O NOT 0 AND O Afi de mettre en vidence une des possibit s de cette routine nous vous proposons un petit exemple qui affi che un texte estomp la mani re des menus du Mac 10 CLS 20 OIM F 3 JO FOR 1 0 TO 3 40 F amp CKR S amp HSSAA SO NEXT 60 CALL PENPAT VARPTRIF amp CO 70 CALL TEXTFONT O 80 CALL PENFIODE 1 1 90 CALL PENSIZE 1 12 100 PRINT Caracteres estomp s 1 10 LINE 2 2 1 40 2 120 GOTO 120 0 1 0 0 Call GetPen 0 Cette routine retourne la position courante du crayon dans 0 coordonn e verticale et P 1 coordonn e horizontale Call Get pen permet aussi de savoir sera affich avec PRINT ou WRITE le prochain texte ou nombre Avec OP
54. CALL SETCURSOR VARPTR C 1 fF E THEN 410 360 GOSUB 2150 60508 1850 3702 7 380 GOSUB 1950 iF A THEN N 940 ELSE OPEN 717 1 2 6 390 FOR 1 3 TO 18 INPUT I A NEXT FOR 193 TO 18 INPUT 1 B 1 NEXT INPUT 1 VU CLOSE IF V AND H OR U AND H THEN ERROR 57 400 PUT 108 92 M PSET PUT 148 228 A PUT 172 228 B8 PUT 28 60 155 187 A OR PUT 180 60 307 187 B OR 8 1 410 W sINKEY IF W lt gt THEN SSO ELSE IF MOUSE O 1 THEN 410 420 Ps OUSE Q MOUSE 2 IF P gt 340 AND P 460 AND 0 28 AND 0 lt 196 THEN N 0 4 24 GOT0 560 430 I POINT P Q AND 1 440 IF Q 61 OR 02187 THEN 410 450 IF gt 28 AND P 156 THEN 510 460 IF P 181 OR P gt 307 THEN 410 470 WHILE OUSE 0 lt 0 Rs HOUSE 1 1 72 8 S MOUSE 2 52 8 1F R 1 AND H OR S 1 AND THEN 500 480 J R 8 173 K S 8 S3 S S 2 IF 1 THEN PUT J K F PRESET 5 5 AND NOT H R ELSE PUT J K F PSET B S B S OR H R 490 PUT 72 228 8 PSET 500 WEND GOTO 410 510 WHILE MOUSE O 0 R MOUSE T 20 8 S MOUSE 2 52 8 IF R 1 AND H OR 5 1 AND H THEN 540 520 J R 8 21 K S 8 53 S S 2 IF 1 THEN PUT J K F PRESET A S A S AND NOT H R ELSE PUT J K F PSET A S A S OR 530 PUT 148 228 A PSET 540 WEND GOTO 410 550 N ASC W 48 IF N lt 1 OR N 7 THEN 410 560 R 1 S 24 N R 2 341 R 3 R 1 23 R 4 460 FOR 1 0 TO 21 CALL INVERTRECT VARPTR R 1 FOR D 0 TO 5 ON GOTO 570 630 700 790 840 880 910
55. LSR 391 CHP H 1F 392 BNE ROLMSKI 379 LDA 394 ROLHSK1 STA mask 395 RTS 396 32 39 SETASCII LOA 0 CLI 825 398 LOY 2 397 BNE 400 SETHEXA LOA 0 CH 401 LOY 1 402 SNE 403 SETMIXT LOA base xte 404 LOY 0 405 SETMODE STA base 406 STY display 407 SEI 408 RTS 409 AST 32 410 RDSECT JSR GETPRMS 411 ROSECTI LOA 81 412 SETRUTS STA CMDCODE 413 JSR GORWTS 413 SEC 415 RTS 416 41 GETPRMS 2 418 JSR TAB 419 LOY trackpos 420 LOA TRACK 421 JSR m ro de piste 422 CHP 36 stes 423 GETPRHMS 424 STA TRACK 425 GETPRMS2 LOY sectpos 425 LOA SECTOR 427 JSR GETBYTE miro de secteur 428 16 cteurs 429 BGE GETPRMS2 430 STA SECTOR 431 SEE 432 RTS 433 AST 32 434 URSECT JSR GETPRMS 435 LOA 2 436 BNE SETRUTS 437 AST 32 438 PRUBUF D C B tptrei page dente 439 SEC 440 RIS 441 AST 32 442 NXTBUF INC bufptr 1 page suivante 443 SEC 444 RTS 445 AST 32 Pom s n 15 smet ocu mode jmode VTAB 2 SHTAB n attend 36 HTAB n sattend max 16 buffer buffer ern AS he nu nu Se i l 446 447 448 449 450 451 452 453 454 455 456 457 458 459 440 461 452 463 464 465 466 467 468 459 420 471 472 473 474 425 47 422 493 479 480 481 482 483 484 485 485
56. PLUS DE VRAC LA CLE URAC SUIVANTE 375 LOA 2 320 CLG 376 STA 2 1 BLOC DE 321 ADC LCT2 LA PETITE DEFINITIVE 322 ADC 2 377 LDY SYM SMARQUE L 323 TAY RECLASSEMENT DE CLE 324 C2 ED 2 Y 378 DES 325 BNE C3 329 LDA 326 INC 2CTP 1 FIN BLOC 480 STA 2CTP Y PASSE AU BLOC SUIVANT 381 c13 RTS i 327 LDA 2 1 382 RUTS LDX 4 328 CHP S2T DERNI ER 383 BLOC DEJA TRAITE 384 STA IOB X 329 NON 255 330 JMP C12 OUI gt ON LA PLUS S IL EN RESTE 331 LDY 0 22 re BEQ C2 388 LDA IOB 389 LDY IOB 333 C3 LDA CMINT 390 JSR 309 334 5 ON TOU 391 RTS 2 392 CMIN DES SFF 22 mus a 393 CMINT DFS FF CONTI ENT TOUJOURS PETITE CLE URAC WE ZCTP Y mde DFS 1 sss 395 SYM DFS 1 POSITION 22 7 Tunt DANS SON ar M 3 1 in toda ILE PETITE CLE DU URAC 397 LUT2 DFS 1 LONG UT 342 BEQ ILE D UNE CLE DU URAC 343 STA LUT2 398 SY DFS 1 POINTEUR 344 LDX 0 DANS UN BLOC DE VRAC 345 STX LH LM 1 SI 399 IOB HEX 0146002089000 LUT2 gt LUT 400 ADR DCB 346 CMP LUT 401 HEX 000000000100FE46002 347 BCS C9 402 DCB HEX 0001EFD8 348 INC LM 403 DCM INT 349 C9 LON A CIPY 404 END 350 CLE A 30 Pem sn 15 R capitulation REC OBJ 1090 EC 85 FE A9 02 85 1E A2 1108 81 44 FE 91 18 E FE 1098 OC 9D 14 AS 06 FO 03 11 0 A4 81
57. R 204 S 262 GOSUB 1880 750 LPRINT CHR 27 r CHR 31 CHR 31 CHR 31 757 CHR 24 CHR 27 760 W 000 FOR 3 TO 8 UPRINT TAB 26 USINO FEES YeHEXSCACD X 7 LEFT W 4 LEN Y Y LPRINT 35 73 USING 55 B 1 Y HEXS BCI X LEFT W 4 LENCY t LPRINT TAB 81 X NEXT 770 LPRINT LPRINT LPRINT TAB 26 Point chaud U y VPUT 270 224 MPSET CALL SHOWCURSOR GOTO 410 780 Curseur 790 IF G 0 THEN 810 ELSE A 1 FOR 3 TO 18 IF A I THEN A 0 800 NEXT IF A THEN 410 810 IF G THEN 6 0 C 33 V C 34 UFOR 1 1 TO 16 1 2 1 17 032 1 14 NEXT ELSE G 1 GOSUB 2170 820 CALL SETCURSOR VARPTR C 1 GOTO 410 830 Effacer curseur 840 GOSUB 2150 GOSUB 1850 CALL MOVETO 124 24 PRINT WV effacer 7 GOSUB 1920 G0SUB 2070 850 IF D THEN 670 ELSE PUT 108 92 M PSET LINE 28 60 156 188 30 BF LINE 180 60 308 188 30 BF LINE 140 220 196 2S2 30 BF FOR 123 TO 18 Al 0 B 1 O NEXT IF F THEN GOSUB 1810 860 U 0 V 0B 0 GOTO 410 870 Grille curseur 880 IF F THEN F O ELSE F 1 8906050 1810GOT0 410 900 Quitter curseur forme 910 930 920 N 0 930 GOSUB 2150 GOSUB 1850 GOSUB 1920 CALL MOVETO 124 116 PRINT WV quitter GOSUB 2070 IF D THEN IF THEN 670 ELSE 1340 940 IF NTHEN ERASE 8 950 ERASE A CALL HIDECURSORGOTO 130 960 Reprendre forme 970 E O GOTO 1000 980 Creer forme 990 E 1000DIMA 218
58. RETURN AS RHIN HPLOT 240 72 TO 227 72 TO 227 60 TO 230 48 TO 235 40 TO 238 33 10 2375722 TO 233 17 TO 22 8 19 TO 225 12 TO 222 10 TO 217 4 TO 216 0 RETURN AS s ILL HPLOT 225 73 TO 224 72 TO 225 58 TO 227 56 TO 228 50 TO 230 48 RETURN AS MOSELLE HPLOT 218 66 TO 216 67 TO 203 50 TO 206 47 TO 205 44 TO 206 34 TO 209 31 TO 215 24 TO 220 20 TO 225 12 RETURN AS MEURTHE HPLOT 218 59 TO 215 58 TO 207 50 206 47 RETURN AS MEUSE HPLOT 200 65 TO 199 6 4 TO 200 50 TO 192 35 TO 192 32 T 189 27 TO 187 28 TO 184 23 TO 1 86 17 TO 187 12 TO 197 6 TO 139 0 RETURN ESCAUT HPLOT 165 22 TO 163 22 TO 165 15 TO 168 15 T0O 168 12 TO 167 9 TO 165 6 TO 173 0 RETUR N REM CARTE DE FRANCE DATA 115 5 100 10 100 20 102 23 99 22 98 25 93 28 86 29 80 33 78 37 83 38 74 42 61 40 59 36 60 34 59 32 54 34 50 32 51 39 54 43 54 54 5 7 56 51 57 51 54 49 54 48 57 46 55 41 54 37 57 33 50 26 50 24 53 18 92 7 54 7 58 13 58 14 61 8 61 13 63 13 65 7 65 11 67 12 69 11 71 14 72 15 69 25 75 27 74 30 75 28 76 29 78 32 78 32 76 36 78 33 79 34 81 39 80 38 86 41 86 44 84 49 87 44 86 43 89 46 90 43 95 47 103 37 108 DATA 58 116 55 122 60 124 63 128 6 5 135 61 128 57 124 54 143 57 141 98 144 56 145 55 144 53 146 49 1 69 46 172 44 172 51 180 63 185 69 185 71 187 82 187 82 184 100 190 100 193 105 195 117 195 120 193 125 195 DATA 1225 192 123 191 123 180 125 1 78 129 1795 130 176 139
59. ROT 0 POKE 232 647 POKE 233 4 FOR 15 1 TO LEN CH HCOLOR 0 DRA 63 AT XS YS HCOLOR 3 ORAH ASC MIDS CH 19 1 31 AT XS YS XS XS 6 NEXT RETURN 999 REM PROG PPAL 1000 HGR 1001 ARX AD 256 AL7 AD 256 x POKE 232 00 POKE 233 Z 1010 HCOLOR 3 1020 21 CALL 958 INPUT CHAINE CH IF CHS lt THON INPUT LIGNE YS INPUT COL ONE XS 60508 200 6070 102 0 La solution en langage machine Le principe reste le m me Le programme est articul autour de la routine DRAW l adresse ROM F601 qui dessine une forme conte nue dans la zone m moire dont l adresse haute est vers e dans le re gistre Y et l adresse basse dans le re gistte X le parametre de rotation z ro tant contenu dans Faccurmu lateur L utilisation de cette routine n cessite donc de connaitre l adresse de cha cune des formes Structure des tables de forines Le calcul de l adresse absolue de la forme num ro i sopere de la facon suivante soit SHAPE l adresse de d but de table on verse cette adresse en page z ro dans deux octets cons cutifs aux adresses TABLE et TABLE 1 on verse dans laccumulateur le num ro i de la forme dessiner L adresse relative de cette fonne est contenue dans les octets SHAPE 2i et SHAPE Zi 1 que l on atteint par adres sage indirect index On obtient l adresse absolue en aioutant cette adresse relative
60. Vends Apple c tat neuf encore sous garantie cause double emploi avec moniteur et stand moniteur Prix 11 700 F Possibilit de souris et second lecteur T l phone 956 80 poste 643 Vends Apple Plus avec moniteur Sanyo vert deux lecteurs et un contr leur DOS 3 3 carte communi cation asynchrone CCS et carte langage 16K Prix 10 000 F TTC Vends machine crire imprimante Olympia ESWIe6 KSR interface s rie Excellent tat Prix 8 000 F TTC Achat 14 587 F Bruno Lemaire T l 3 956 80 00 Vends Apple 1 Plus avec moniteur Philips ocre deux lecteurs et un contr leur DOS 3 3 carte langage Microsoft carte RVB en option Prix Te 952 59 3T Pom s n 15 Courrier des Lecteurs L utilitaire dAPPLESOFT TOOLKIT comporte un bug effet il est impossible d obtenir la liste des variables fonction amp XREF si la pr gramme analys contient des DATAs L addition des deux lignes BASIC ci dessous au programme LOADAPA autorise la r f rence croi s e dans tous les cas 115 HI 115 256 HINE RI PEEK 116 315 PBKE HI 32 POKE Hl 2 PEEK HI 1170 POKE HI 1170 81 256 POKE PEEK 1171 PD KE HI 1171 H 256 PEEK Hl 120 POKE 3 201 POKE H I 4 0 POKE HI 5 94 Yvan KOENIG avenue du stade 06220 VALLAURIS Je suis en train d crire un pro gramme gestionnaire de fichiers et deux probl mes se posent
61. avec une graduation tous les sur l axe x x et une tous les YTIC sur l axe y y Cette proc dure sert notamment lors du trac de courbes Instructions de trace PEN COLOR SCREENCOLOR Cette instruction permet de choisir une couleur parmi les couleurs du Pascal Exemple PEN GREEN Par d faut la couleur choisie est le WHITE PENUP Cette proc dure comme son nom l indique l ve la plume c est dire que les prochaines intructions CMOVE CDRAW PLOT RPLOT et IPLOT seront juste un d placement sans trac PDIR ALPHA REAL Cette proc dure est lune des plus puissantes du Basic graphique HP Elle r alise une rotation des axes de l angle ALPHA suivant le sens trigo nom trique ALPHA est exprim en radians et peut tre n gatif Toutes les instructions de trac sont r alis es dans le rep re sp cifi par SCALE et PDIR PDIR O la valeur par d faut correspond un rep re orthogonal classique On trouvera un exemple dutilisation de cette instruction dans le programme ROSE disponible sur la disquette daccompagnement PLOT X Y REAL MODE INTEGER Cette instruction r alise un d place ment ou un trac jusqu au point de coordonn es X Y Le MODE est un param tre ob issant aux r gles suivantes s il est pair la plume descend PENDOWN et une ligne sera engendr e S il est impair la plume monte PENUP et un d placement sera effectu Si MODE est positif la plume
62. cran sur lequel sont superpo s s les caracteres Le principe est peu pr s le m me que celui utilis dans le tableau de pour choisir l aspect du bureau Les points et off blanc sont d termin s par l tat des 64 bits contenus dans un tableau de 4 variables entieres que nous avons arbitrairement baptis F 5 dans notre exemple Loctet de poids fort de la variable dindice repr sente la pre miere ligne de 8 points l octet de poids faible repr sente la seconde ligne de 8 points l octet de poids fort de la variable dindice 1 repr sente la troisi me ligne etc Notons que dans le cas d une utilisation de lins tuchon OPTION BASE 1 les indices doivent tre compris entre 1 et 4 inclus au lieu de 3 Prenons un exemple concret nous voulons que l cran ou plut t ta fe netre de sortie pour employer la terminologie Mac soit rempli du motif suivant Poids faible de F 0 Mesa fort de F 0 F O F 1 F amp 2 3 Pour obtenir motif nous devons affecter nos quatre variables les va leurs binaires 10011001 01000010 00100100 10011001 10011001 00100100 01000010 10011001 soit en hexad cimal amp 119942 amp 112499 amp H9924 amp H4299 Dans un programme parmi les multi ples solutions possibles nous pour rions trouver 10 DIMF 3 20 DATA amp H9942 amp H2499 85H9924 amp H4299 JO FOR 1 0 TO 3 40 READ FX
63. d in terruption NMI toutefois que ce soit pour un programme utilisateur ou pou le travail d un p riph rique donn Dans une routine de gestion des interruptions destin e aux divers p riph riques en particulier l emploi de SE permet de sauvegarder les re gistres non directement empil s par le processeur accumulateur et regis tres X et Y ou de modifier ventuel lement le vecteur IRQ voir plus loin sans craindre larrv e et la prise en compte d une nouvelle inter ruption qui etterait la confusion dans le syst me En effet apr s l ex cution des routi nes de setvice du p riph rique ayant demand l interruption on doit pou voir reprendre le programme inter rompu exactement l endroit il a t stopp et dans le m me contexte ce qui suppose que l on puisse bien sauvegarder tous les registres au moyen de la pile notamment afin de les r cup rer ensuite en fin de rou tne de gestion des interruptions Un autre signal IRQ ventuel doit rester par cons quent ignor au moins jus qu l ach vement de cette sauve garde Si le signal persiste durant que lindicateur est 1 il sera pris en compte son tour d s que le mas que sera lev par instruction sui vante e CLI 58 met l indicateur 1 Apr s l ex cution de CLI tout signal IRQ est pris en compte et lance un nouveau cycle d interruption Rien ninterdit de traiter les demandes d interruption d un p riph rique alors m
64. de l cran SCALE YMAX REAL Cette proc dure d finit les bornes de l cran le point plac en bas gau che a pour coordonn es XMIN YMIN et le point situ en haut droite Tout l cran est utilis il y a donc un certain apla tissement des figures SCALE est fix pat d faut lechelle r elle de l cran soit SCALE 0 279 0 191 SHOW XMIN XMAX YMIN YMAX REAL Cette proc dure d finit un carr dans lequel seront trac s les dessins Par exemple si l on fait un SHOW 3 14 3 14 1 1 la zone dans laquelle les dessins seront trac s sera 3 14 3 14 314 3 14 Cette instruction est utile pour obtenir pat exemple des trac s de cercles qui ne soient pas ovales c est dire compress s L cran utilisable en coordonn es r elles est donc 0 LOOO LIMIT XMIN XMAX YMIN REAL Cette proc dure est l quivalent HP de l instruction VIEWPORT du TUR TLEGRAPHICS mais ici les coor donn es sont dans le format sp cifi pat SCALE Par d faut LIMIT est fix aux memes valeurs que SCALE Instructions AXES et FRAMES FRAME est une instruction sans pa ram tres qui permet de mettre un cadre autour de l cran Pom s n 15 AXES XTIC YTIC XINTER YINTER REAL Comme son nom l indique cette ins truction permet de tracer des axes sut l cran Les axes se croisent au point XINTER YINTER et sont gra du s
65. de 128K de dessiner l cran sur plusieurs fen tres de surcroit Le tout pour un canon 50 dollars seulement Enfin derniere conquete de la souris Summergames dEpyx presente tout simplement les jeux olympiques Epreuves de natation de saut la perche de tir etc On choisit la na tionalit 18 pays possibles des concurrents avec la souris on joue avec le m me instrument Apr s cha que victoire Apple vous joue hvmne national du gagnant et cal cule la moyenne des m dailles obte nues Graphiques et couleurs ex traordiriaires v m me une c r monie d ouverture Plus classique Papyrus est la version francisee d Homeword un traitement de textes avec ic nes Certes ce nest pas le plus sophistiqu des traitements de textes Pourtant sa facilit d emploi en fait un logiciel hors du commun D abord parce qu on peut pour chaque action choisir un ic ne sur lequel on se d place avec le curseur Mais heureusement des codes per mettent aux clavistes exp riment s de court circuiter ces ic nes et de ga gner en rapidit Un bon point En suite ce traitement de textes permet d afficher l cran le texte tel qu il sera imprim Cest suffisamment rare pour meriter un second bon point Enfin lorsqu on lui tape un ac cent circonflexe suivi d une voyelle il vous affiche l cran la voyelle avec son accent circonfiexe Bravo Si on ajoute que Papyrus permet dins rer dans un texte
66. dispa raissent donc de la table de r f rence e Le classement est termin lorsque 0C NEXT l on a ainsi transf r dans le buffer et r crit sur disquette dans des secteurs class s toutes les cl s qui taient d j class es et toutes les nouvelles cl s pr c demment sto ck es en vrac Conclusion Ce syst me de gestion de fichiers nous semble pr senter des points po sitifs qui peuvent justifier son emploi dans certaines de vos applications Moyennant un reclassement p ro dique de la table de r f rence les temps dacces aux enregistrements sont tr s acceptables m me sur des fichiers de taille cons quente Avant de commencer travail ler il n est pas n cessaire d attendre que se charge en m moire partir d un fichier important une table de r f rence sous forme de tableau Ap plesoft La lecture des fichiers an nexes FP et PL ne repr sente plus qu un d lai d attente minime La m moire centrale n est pas en combr e par la table de r f rence des enregistrements d o gain de place pour vos programmes et r duc des probl mes de nettoyage m moire En revanche lexploitation de cette m thode dans vos traitements est sans doute plus complexe qu une gestion uniquement r alis e sous DOS 33 Applesoft Nous esp rons cependant que l analyse du pro gramme de d monstration dont les parties principales peuvent tre repri ses quelques adaptati
67. du Pas cal est n cessaire avant d en aborder la lecture en particulier ce livre ne commence pas son exploration l o se terminent les manuels d Apple mais bien au del D s la premi re page 11 part d fricher l allocation m moire de linterpr teur p code puis enchaine gaillardement vers une tude ethnologique des variables en Pascal Apr s quelques conseils pour acc l rer les programmes ce manuel pro pose plusieurs utilitares en assem bleur pour la mise au point des proc dures puis fournit une tude d taill e de chaque instruction ma chine du p code Enfin les routines de linterpr teur sont d cortiqu es et quelques derni res astuces de pro grammation achevent le tout Cet ensemble represente ma connaissance le manuel le plus d tail sur le fonctionnement interne du Pascal ll est certainement dom mage quil manque d approche p ul u T 1 Li 2 3 a 3 5 s 71 dagogique mais ses 450 pages bien tass es pourront viter certains de faire un stage de perfectionnement l Universit de San Diego Visicalc Applications de Stanley Trost traduit par Jean Pierre Loison chez Sybex 274 Pages 148 FF Enfin une traduction bien faite cela vaut le coup detre soulign le travail tant trop souvent effectu par des t cherons mal pay s jivre sadresse aux utilisateurs de Visicalc d j comp tents et leur apporte
68. ellipse ins crit dans un carr fictif ou un rectan gle dont les coordonn es se trou vent dans le tableau R96 AD correspond l angle de d part et A l angle de l arc par rapport AD les valeurs tant donn es en degr s Les arguments sup rieurs 360 sont ignor s r gt q J gt b TE ER 39 36 hi ieie per De a 29 2 EE ll T rnis PaintArc EraseArc InvertArc et Fil IArc fonctionnent comme PaintRect etc tout en utilisant le syst me an gulaire de FrameArc C u sujet de Tarticle Les routines en ROM Comme nous le signalons dans le paragraphe Gestion du texte ia routine Call FextFont peut donner des r sultats diff rents selon la version du dossier systeme Les choses allant tr s vite nous sommes d j amen 4 vous indiquer les modifications apporter pour le nouveau dossier syst me Finder version 1 1 utilise pour la disquette Pom s Chicago Geneve New York Monaco Venice London Athens JOUE O Caracteres programmables sur imprimantes Apple Apple Seedrin Sur les impnmantes s rie Image Wri ter ou parallele DMP la d finition de caract res programmables pose des probl mes caracteres soulign s li s la facon dont l Applesoft envoie les codes
69. index es soient toujours tres rapides alors que les tris et les recherches de type R ne le soient quere m me pour des fi chiers relativement modestes pour 50 enregistrements un tri ou une cherche simple durent environ 40 se condes Synthese Nous avons crit en exerque PUIS SANT COMPLEXE Les fonctions de cr ation Cr ation de structure de fichiers for mats d tats mots de passe sont to talement hors de port e de lutilisa teur d butant s agissant dun utilisateur confirm de micro informa tique il n est pas vident quil ny ait Jamais de blocages au niveau dune codification tr s pouss e ou de luti lisation de Ialgebre logique ou de v ritables l ments de programma tion Mais celui qui aura la capacit et le courage daller jusqu au bout sera r compens par des performances exceptionnelles surtout avec une configuration muscl e Les fonctions de gestion La gestion de fichier et l dition d tats sont plus accessibles moyen nant deux pr cautions des lors quil s agit de n ophytes 1 Limiter leur travail aux cas ou TOUS les parametres sont bien d fi nis compris tns et s lections et aux options fondamentales de ges tion en excluant la mise au point de tableaux de s lection par exemple 2 Les munir d une documentation synth tique dune part sur les commandes du logiciel quils devront utiliser d autre part sur la codification adopt e ceci n est
70. moi 1 Je voudrais que mon programme puisse me dire tout moment combien de secteurs restent libres sur la disquette comment faire 2 J aurais galement voulu que le RESET agisse comme un RUN La routine de RUN tant implant en D566 j ai converti ce nombre en d cimal et j en ai pok les poids fort et faible aux adresses 1010 et 1011 POKE 1010 102 et POKE 1011 213 suivi de CALL 1169 Ceci prevo que bien un RUN chaque RESET mais les ordres du DOS s affichent alors l cran et ne fonctionnent plus Comment y rem dier Olivier LEDOUX 135 12 rue du Gal Leclerc 59790 RONCHIN 1 Dans le Pom s 2 en page 17 figu rent diff rentes modifications du DOS en particulier le patch n ces saire pour obtenir le nombre de sec teurs disponibles dans le CATALOG Vous trouverez ci dessous le listing qui r alise la modification ll suffit alors d initialiser votre disquette avec ce nouveau DOS 19 REM 14 144 14 144 4 t b 14 4 4 4 14 4 1414 14 bein SECTEURS LIBRES CHAQUE da 20 REM da CATALOG sa balaak ala ala akasia aia 14 104 104 14 14 104 4 44 50 Alexandre Duback 35 LIST 10 20 100 Y ASS4 5B RDC 00 BE B amp 800 22 20 4n F9 00 85 40 B5 amp i Ce 18 B9 F2 85 FO OE OA S0 FB EE 40 D 2 41 8 12 90 FD 28 DO 9 A6 40 AS 41 AC 00 EO CO 20 DO 07 20 ES5 20 2F RE 5 20 24 ED
71. octe 157 LOY 15 t 158 MOVIOB LOA temp Y 225 DF8 CR saisie 159 srecopie 1 une chaine OB en zone connue 227 HEX 8B secteur p 160 DEY r c den t 161 BPL MOVIOB 228 HEX 95 secteur s 162 INY uluant 1 3 STY USRBUF 229 OFB ctrI1_D d sassemb 164 STY bufptr le le buffer 165 LDA gt 230 SUBTBL DA UP I 166 STA bufptr 1 231 DA LEFT 167 232 RIGHT 1 168 URMSTRT JSR PRBUF 233 DA DOWN 1 169 LDA 80 234 FILTER 1 170 JSR PSNBRAC affiche 235 DA ROLMASK 1 es 23o DA SETASCII 1 171 MAIN JSR MSGBTM 237 SETHEXqm 1 172 ASC meo 238 SETHIXT 1 173 8RK 239 DA RDSECT t74 JSF GETCMD 240 WRSECT 1 175 BCC MAIN attend co 241 RSTBUF 1 mmande suivante 242 CHGORUV 1 176 BCS URMSTRT SEF AI ITI 243 DA QUIT 1 CI CEDAR Sa 244 DA CHGEUF t 245 DA PRUBUF 1 178 GETCMD JSR 244 DA NXT8UF 1 179 LOY SUBT8L CHDTBL 2 UNCHNG 1 180 CMDSRCH DEY ed E is AA 249 DA CHGDATA I 182 CMOTBL Y 250 DA PRUSCT I 183 BNE CHDSRCH 251 NXTSCT 1 184 TYA 252 DA X DISASM 185 ASL 253 AST 32 186 254 UP SEC 187 LOA SUBTBL 1 Y 255 LOA byte 254 SBC 946 190 PHA 258 191 RTS 299 LEFT byte 192 NOUTFND CMP 0 250 193 BLT BADCMD 261 TYA 173 E 252 JMP PSNBYT 195 BADCMD 243 Ds 264 RIGHT LOY byte 197 STA temp 255 INY 158 LOA bufptr i 224 TYA 199 A PE 267 JMP PSNBYT 200 ORO temp 268 212
72. processeur cest dire que quel que soit l ordi nateur tudi le d but du traitement d une interruption sera celui indiqu ci dessus si c est un ordinateur cons truit autour d un 6502 Ce qui se passe ensuite d pend par contre de ce que les concepteurs de la machine ont mis aux adresses FFFE FFFF et FFFA FFFB En ce qui concerne les Apple 1 et lie on trouve en FFFE FFFF les valeurs 40 Une IRQ branche donc finalement sur une routine d butant en FA40 sur laquelle nous reviendrons un peu plus loin En FFFA FFFB on lit FB 03 et une NM nous am nera donc en 3FB Si vous mettez votre Apple sous tension sans charger le DOS vous ne trouverez rien de significatif cette adresse mais si vous boo tez le DOS vous y trouverez 4C 65 FF ou encore JMP FF65 c est dire un saut dans le moniteur C est videmment au programmeur de p riph riques qui entend utiliser les interruptions NMI qu il appartient en fait de mettre aux adresses 3FB 3FC 3FD un JMP l adresse de sa routine de gestion des interrup honS sa m paana Initiation assembleur 5 G rard Michel Instructions de l assembleur li es aux interruptions e SEI 78 met l indicateur 1 1 Les interruptions IRQ qui pourraient ar iver apr s l ex cution de SE se ront donc masqu es et ignor es Ceci peut servir pour garder la prio rt dans l utilisation des ressources du microprocesseur sauf en cas
73. seconde routine ou rentrez la directement en m moire et lancez en l ex cution 2000G partir du moniteur ou CALL 8192 partir du Basic Sauf erreur de frappe vous devriez obtenir le r sultat escompte Cela vous donnera une petite id e de la fa on dont les interruptions peuvent d tourner l usage du proces seur au profit de p riph riques et permettre n anmoins une reprise correcte du d roulement des pro grammes interrompus Listing 3 2000 20 58 FC JSR FC58 2003 00 BRK 2004 LDA HSC 2005 00 2007 20 FO FD JSR FDFO 200A 00 BRK 2008 50 RTS Une instruction qui ne fait rien Sil ne s agit que de disposer d une instruction transparente dans un pro gramme il nest pas vraiment n ces saire ce serait m me plut t inutile de revectoriser le BRK comme ci dessus car le 6502 vous offre en standard une telle instruction NOP EA NOP ne r alise aucun traitement ne modifie aucun registre aucune adresse et se contente de r clamer un peu de temps pour son ex cu tion Elle n en est pas totalement inu tile pour autant e Lorsque vous testez une routine qui vous pose probleme vous tes amen bien souvent dans un pre mier temps du moins travailler directement au niveau du code objet en mode moniteur Si vous remplacez une mstruction par une autre plus courte comportant moins d octets ou si vous voulez effacer une petite s quence d ins tructions qui vous semb
74. sensi blement le m me que celui de Call PenMode pour le crayon avec des possibilit s moins tendues mode 0 les caract res sont super pos s ce qui se trouve sur l cran identique Call PenMode 8 mode l op ration logique OR identique PenMode 9 mode 2 op ration logique identique Call PenMode 10 mode 3 les caract res sont affi ch s en blanc et ne sont donc par faitement lisibles que sur un fond noir Rectangles Call FrameRect VARPTR R 0 Trace le contour d un rectangle dont les coordonn es sont situ es dans les quatre variables enti res du tableau R 0 c t sup rieur e R 1 c t qauche e 2 c t inf rieur e R 3 c t droit L aspect du trac est conditionn par les instructions Call PenMode Call PenSize et Call PenPat Si pour ces instructions nous conservons les va leurs par d faut Call FrameRect donne le m me r sultat que LINE X1 Y 1 X2 Y2 B Cali PaintRect VARPTR R 0 Remplit un rectangle dont les coor donn es se trouvent dans le tableau R avec le motif initialis par l ins truction Call PenPat Call EraseRect 0 Efface la partie de l cran comprise dans un rectangle dont les coordon n es se trouvent dans le tableau Call InvertRect VARPTR R 0 Inverse l tat des pointe situ s l in t rieur d un rectangle NOT Cali FilIRect
75. simplement les num ros de slot et de drive conte nant la disquette v rifier puis le nombre de tentatives de lecture pour chaque secteur s affiche Dans tous les cas RETURN valide la saisie ESC annule l op ration en cours Pour mieux appr cier l ex cution du programme ouvrez l g rement et quelques instants la porte du lecteur et observez le r sultat Le fichier DISK CHECK UP S contient le source en Big Mac Le fonctionnement interne du pro gramme repose sur l examen de l adresse 578 RETRYCNT utilis e par RWTS Quelques derniers conseils Ce programme est destin pr venir les probl mes d usure il na malheu reusement pas faculte de savoir que vous DOSerez un lectro aimant c t de vos disquettes demain matin ou que celles ci vont tre emprunt es par votre petit dernier pour cons truire son ch teau de cartes D autre part si vous d cidez de contr ler l aide de ce programme l ensemble de votre biblioth que ne vous arr tez pas apr s avoir v rifi les quelques disquettes les plus utili Pom s n 15 s es si celles ci taient r ellement s r au moment o vous en avez ra illusoire il d tecte les ennuis latents us es il est probable que vous auriez pidement besoin mais n emp che pas leur apparition d j eu des ennuis Les probl mes ce n est ni un anti moustiques ni un comme disait Murphy ne survien Conclusion traitement contre la rouille nent que sur les disq
76. 0 1400 Supprimer ligne 1410 LINE 376 20 M 439 20 M 30 GET 376 21 439 74 A GET 3 V 6 U 9 V 7 MPUT 3 V 1 M PSET GOSUB 1790 1420 RC I e V R 2 3 RGO R CI 6R CA 2330 CALL FILLRECT VARPTRER 1 VARPTR P I LINE S V 3 U 9 V 3 M M T CALL MOVETO 342 1 40 PRINT Ajouter ligne GOTO 1160 1450 Ajouter colonne 1440 GET U 1 3 U 7 V 8 MPUT U 6 3 M PSET LINE U 6 S U 10 V S 30 BF CALL PENSIZE 2 2 LINE U 13 4 U 13 V 7 CALL PENNORMAL CALL MOVETO 342 188 PRINT 74 Supprimer colonne 1450 L L 1 1F F THEN LINE U 10 S U 10 V S FOR 1 1 TO M I LINE U S I S U 10 I S NEXT 1460 11SC 1470 Supprimer colonne 1480 LINE 37S L 2t 37S L 74 30GET 376 21 439 74 A GET U 6 3 U 7 V 8 E PUT U 1 3 MPSET GOSUB 1790 R 1 3 R 2 U 3 R 3 lt V 9 R 4 R 2 10 1490 CALL FILLRECT VARPTR R I D VARPTR P 1 CALL PENSIZE 2 2 LINE U 3 4 U 3 V 7 L L T CALL MOVETO 342 1 72 PRINT 73 Ajouter colonne CALL PENNORMAL GOTO 1170 1500 Imprimer forme 1510 GOSUB 2150 6050 1850 CALL MOVETO 124 124 PRINT WV imprimer 27 GOSU8 920 GOSUB 2070 1520 IF D THEN 1340 ELSE PUT 108 92 M PSET 1530 CALL SETCURSOR VARPTR O 1 P 328 Q 21 4 R 488 S 262 GOSU8 1850 CALL MOVETO 333 241 PRINT Impression P 3 0 P R L S 7SsM S 7 W1 FOOOO0 LPRINT CHR 24 GOSUB 1880 1540 LPRINT CHR 24 CHR 31 1 3580 2 458 5 93 GOSUB 1880 1550 LPRINT CHR G1 71 CHR 24
77. 0 00 85 00 1150 2 00 OC 38 2 96 1018 20 DE 20 20 6 1088 OO CS OO CD OO DS OO 1158 17 4D 2E 24 00 60 BF 1020 DD 0 81 83 85 O08 C8 10CO E2 00 EA 00 EE OO OO 1160 AE 17 76 65 OD 14 07 1028 83 85 06 C8 81 83 85 10 8 F OO OO 08 01 13 01 1168 00 08 24 05 00 92 1030 0 20 DE 20 05 El 5 1000 10 01 28 01 32 01 01 1120 24 9 026 00 92 1038 85 E0 A5 0 85 El 20 1008 48 01 51 01 SC 01 67 01 1178 24 O OO 3C 4C 1040 6 86 E2 9 01 85 E 10 0 68 01 70 01 79 01 81 01 1180 1E 16 3F 17 OD OD DE 1048 00 98 48 B1 06 48 A 10E8 BA 01 94 01 1 01 AD 01 1188 07 00 20 8D ZZ 31 1050 00 85 E4 A 3F 20 S58 FF 10 0 B Of C4 Of DO 01 DO 01 1190 05 00 89 F 04 00 4C 1058 50 26 A F 85 E4 68 38 10 8 01 2 01 01 07 02 1198 11 35 00 12 05 0 1060 E 20 58 FF 50 1 18 1100 02 02 25 02 31 02 11A0 D DA 1E 06 OO OC 25 1068 5 EO 06 85 EO DO 02 1108 30 02 4 02 53 02 5 02 1108 17 36 2E 1E OE 20 OC 1070 6 68 A8 C8 C4 98 DO 1110 5 02 ZZ 02 80 02 88 02 1180 24 07 00 24 BC 96 31 1 1028 Di 68 85 E 68 85 4 60 1118 96 02 2 02 E 02 87 02 1 88 20 04 00 65 E4 17 95 1080 CA SA OA A8 81 CE 1120 C2 02 Ca 02 D1 02 D 02 11C0 2 20 25 00 25 OC 3C Porn s n 15 pues k Le 11 87 92 15
78. 1 892 893 894 ROKI KEYFOUND BLINK 8LINK1 BLINK2 DOHASK change e s DHSK1 DMSK2 HARDCOPY KARDO LEDY LDA PHA LDA JSR STA JSR 8HI PLA PHA JSR 8PL PLA RTS STA L DX STX BMI DEX BNE DEC BNE STA TAX RTS pas LDX FLS ou CPX BNE CMP EOR RTS AND RTS AST LDX LDA STA page z ro HARD1 HARD2 rmai DEX 8PL LDX STX STX LDA JSR LDA STA JSR LDA STA LDA JSR JSR LDY LDA CMP ADC CH BASL Y Hn DOMASK 7F7 2g BLINK KEYFOUND BLINK RDKI BASL Y BSL Y 50 temp KBD BLINK2 BLINKI temp BLINKI1 KBDSTRE ES DMSK1 mask INU H 7F DMSK2 DMSK2 co mask 32 2F 10B 17 X HARDO 22 WNDTOP WNDBTM 1 QUTPORT 0 temp BASCALC BASL GBASL BASH GBASH 22 TABU CROUT 0 GBASL Y 20 NOINU C0 sminuscule sour gt ne snon test sauve PR 1 sUTAB 22 sinverse OUi gt no Pom s n 5 895 NOINV 60 flashing 1931 TAY 932 3 DEY 896 BGE 5 933 ONE 53 89 ORA 80 soui no 934 BIT SPKR 935 DEX 898 NOFLS 8 40 scaractire 936 BNE 51 de controle 937 RTS 899 NOCTRL 938 AST 32 900 AOC 40 Oui gt no 939 MSG8TM JSR MSGAT rma 1 940 DFB 0 23 0 901 NOCTRL s imprima 941 JSR CLREOL nte n aime pas celui 19
79. 1025 8192 515 16384 263 32768 143 0 94 0 60 0 8 0 64 54 8 2 160 DATA 2047 8192 4 4 6144 6144 6 12 8192 1024 6 12 18201 11776 6 12 17573 4608 5 170 DATA 16276 18212 28160 2 16280 17572 512 1 16 10009 4608 2 8 4096 1024 232712 180 DATA 6143 2048 4 17500 10240 0 4 7940 4096 24576 4 8324 0 28672 30 16463 1 190 DATA 2048 106 16458 16382 25600 479 8351 28676 28160 691 8327 22519 2304 200 DATA 1377 16 11246 1152 2772 27 27174 1088 5504 16256 13605 22560 1 1008 0 C 44 0FOR 1 TO 866 50 7 1 forme lt Pour charger et afficher partir de e e plus petit programme ne sera RIGHT STR CS 1 votre programme une forme ainsi utilis qu une seule fois afin de 60 FOR J amp 1 TO 218 constitu e cr er les fichers XP et XL qui se 141 FIRR IR rent ensuite appel s par le pro ds ule 10 Chargement et affichage gramme principal Cette solution 90 CLOSE d une forme constitu e nest peut tre pas la plus simple partir de quatre formes mais simposait puisque la m 100 NEXT 64 54 moire disponible sur un 128Ko ne 110 permettait pas Jlint gration des DATA dans le programme princi pal Le programme principal doit tre entr tel quel il ne faut pas ajou ter quoi que ce soit si vous ne 70 NEXT voulez pas obtenir un splendide 170 PRINT 1 FISCIX KX 8 AL 80 CLOSE Memory full B autre part lors i80 NEXT 90 PUT O 10 de la premi re sauveqarde il est 1
80. 18 E8 14E8 01 40 02 OO 00 1080 4C 53 10 E 10 5 10 11 E4 EF DO F5 84 FE AD 14F0 00 FC 14 00 00 00 00 01 1088 A 00 85 FF 85 ee 1100 EZ 14 18 6 EF 85 CE AB 14F8 00 FE 40 02 00 01 EF O8 VOUS PROGRAMMEZ SUR APPLE II VOUS VOULEZ GAGNER DU TEMPS VOUS CHERCHEZ A AMELIORER VOS CAPACITES LIGHT EST FAIT POUR VOUS 0 om LIGHT est un ensemble de puissants logiciels d aide la programmation concu pour mieux g rer les fichiers et les disquettes mise jour d un catalogue g n ral tat des secteurs libres sur un disque faciliter l exploration et l exploitation des disquettes acces direct lecture criture des secteurs transfert et recherche des s quences d octets acc l rer l analyse de vos programmes en Basic recherche des tokens et des suites d sign es en Binaire impression en d sassembl de s quences d octets pistage en tout ou partie du d roulement banc d essais dans Poms n 13 POUR EN SAVOIR PLUS SUR M adresse demande une documentation complete sans engagement de sa aux Annees Nouvelles 70 rue du Javelot 75013 Paris Poms n 15 3l Nous vous avions promis un cahier Macintosh dans chaque num ro de Pom s Volc le premier de ces cahlers Vous y trouvere2 outre les remarques de cette page un article sur les ROMs du Mac un article sur la programmation de ses curseurs et enfin page 49 un tableau a
81. 20 1023 1 83 76 LDA CUARPNT 0083 21 VARPNT EQU 93 Y LONGUEUR POINTE SUR LA LONGUEUR 1023 83 03 77 STA LONCH w DEBE 22 CHKCOM EQU DEBE 1027 C8 8 INY UERIFIE PRESENCE UIRGULE 1028 81 83 79 LDA lt VARPNT DDSC 23 CHKSTR EQU DD C Y jADRESSE BASSE SUERIFIE LA PRESENCE D UNE CHAIN 1024 85 06 80 STA ADRCH 102C C3 81 INY DFE3 24 PTRGET EQU DFE3 102D 81 83 82 LDA VARPNT SAISIT UNE VARIABLE Y 3ADRESSE HAUTE E105 25 GETINT EQU 105 102F 85 07 83 STA ADRCH 1 SAISIT UN ENTIER SUR 2 OCTETS 1031 84 amp 5 26 GTBYTC EQU E6FS 1031 85 4 2 5 155 SAISIT UN ENTIER SUR 1 OCTET 1031 86 F 60 1 27 DRAW EQU Fs01 1031 20 87 JSR CHKCOM 1034 20 05 EI 88 JSR GETINT F411 28 5 EQU 96 411 19027 45 At 39 LDA FACLO 1039 85 EQ 90 PXL FF58 29 RETURN EQU FF58 1038 A5 A0 91 LDA FACHO INSTRUCTION RTS 1030 85 Et 92 STA PXH 1000 30 t03F 93 1000 31 lt 22 5 103F 94 4 3 0RDONNEE 1000 32 1 103F 95 0040 33 FACMO 00 60 103F 20 F5 E 96 JSR GT8YTC 00641 34 FACLO EQU 41 1042 86 E2 7 7 STX PY 00 0 35 PXL EQU SEQ 1044 98 00 E1 36 PXH EQU 1044 99 lt 5 gt ECPITURE DE LA CH 00E2 37 PY EQU 2 AINE 00 38 TABLE EQU 1044 100 ET CF 1044 49 01 101 LDA 9 00E4 39 HCOLOR EQU 4 1046 85 E 102 STA SCALE 00 40 SCALE EQU ECHELLE 0006 41 ADRCH EQU 06 1048 103 0008 42 LONCH EQU 08 1048 40 00 104 LDY 0 1
82. 20 58 FF JSR FF58 C 24 TSX C 25 00 0 LDA 0100 Ca28 ASL C629 0n ASL 52 ASL C628 ASL amp 2 85 26 STA 2B C 2E mA TAX 2 BD CO LDA C08E X 532 BD 8c LDA C08C X BD 8A CO LOA COSA X C 38 BD 89 CD LDA 08 C63B5 AO 50 LDY 50 C 3D BD 80 CO LDA C080 X C62i l adresse FF58 situ e dans la ROM du moniteur contient la valeur 60 c est dire le code de l instruction RTS Un JSR FF58 nous ram ne donc imm diatement la suite du JSR mais entre temps l adresse de retour diminu e de 1 a t d pos e au sommet de la pile dans l ordre octet haut octet bas En l occurence on avait donc 23 au sommet de la pile et C6 en dessous adresse de retour C624 soit C623 apr s d duction de 1 avant le RTS de l adresse FF58 Le RTS d pile cette adresse dans le compteur ordinal et augmente le pointeur de pile de 2 mais aussi longtemps que nempile rien dautre les deux octets du sommet de la pile sont toujours les m mes Le registre S pointe sur la position se trouve C6 pour indiquer que cest la premiere position libre mais il y a encore pour linstant cette position C6 et 23 la position sup rieure 624 on transfere la valeur du pointeur de pile dans le registre X par TSX C625 l instruction LDA 100 X permet de charger laccu mulateur avec le contenu de la pre mi re posit
83. 20 96 83 AD OE 84C8 1 AS ED 85 24 5 1A 20 8400 C8 CO 28 DO DE 5 06 AS 8398 01 A0 25 20 86 83 AD 02 8400 DA FD AS 1A 38 60 A 00 3408 02 Co 17 90 Ci 20 8E FD 83Aa0 01 CO 10 01 DO 02 09 80 8408 80 03 01 AS F8 90 09 01 8610 A 00 20 S FE 2 2F BO 8348 09 30 80 F7 06 A 15 20 84 0 ao 00 A 01 20 D 03 90 8618 11 01 95 00 10 F8 4C 8380 58 F8 AS F8 0 08 84 24 84 54 20 22 95 20 3C 86 CS 9620 S5 85 A2 80 49 80 8 9389 FD OO 84 24 84 F2 F2 ES F5 F2 80 E4 00 8528 88 DO FD 2C 30 CO 8 69 07 A A4 20 ED FD AS 06 8garg AD oc 01 C 02 FO 2E 20 8630 80 Aa 88 DO FO 2C 30 CO 93C8 20 O FO 20 31 84 20 31 8500 45 8 5 A0 EC ES F4 8538 CA DO E 60 20 86 00 9300 94 4 06 81 A FO 3509 F5 F2 ES 00 20 45 86 AC 8640 17 00 20 9C 68 85 06 9309 1E CA FO 09 20 33 94 20 8510 AO EF FS F E5 9 48 68 85 07 AG OO FO 12 69 83E0 31 94 4C ES 93 20 1E 94 9519 ES El E AO 00 8650 85 05 68 85 07 AO 01 81 83bEg E 06 E 07 AS 07 C 10 8520 20 55 85 C9 09 FO 8658 06 85 24 81 06 20 58 93F0 DO DF 95 EF 4C 9C FC 49 3529 CF FO 8 38 60 20 45 86 8 amp amp 0 F8 81 06 FO 06 20 EO 20 1E 84 20 31 94 A4 24 8530 A7 5 F2 E F4 FS F2 8668 FD 4C 61 86 19 98 55 05 8400 A 20 18 65 07 85 24 59 3539 ES 00 4 OC 85 0 00 81 3670 A8 AS 07 69 00 48 98 48 8409 20 33 94 84 24 E 06 E 8540 FA 99 00 02 C8 DO F8 38 8578
84. 20 OC 24 00 1100 27 OC OC 36 36 F5 1108 00 38 27 2 20 FS AA 11E0 36 1E 04 00 AD F 11EB 24 25 OC 35 00 11 0 0 0 77 92 36 05 11F8 00 E7 64 20 15 15 F 1200 2C 00 E7 64 20 35 1208 36 77 1 17 3F 04 00 08 210 16 06 00 08 16 05 00 1218 91 2 1 0 0 06 1220 00 38 67 89 85 3F 3F 04 1228 00 93 62 1230 06 00 OC 3F 17 95 1238 0 16 05 00 30 2E 2C 24 1240 1C 3F 17 36 36 OE 2D 25 1248 00 37 6E 0 24 67 4 1250 1E 1E 2E 00 3F 24 2C 1258 20 15 OE 8E 3F 27 2C 1260 00 B 2 24 24 1268 2D 15 06 00 09 36 1E JF 1270 27 24 24 2 20 15 00 1278 39 87 24 24 24 20 20 1280 96 92 3F 04 00 39 87 1 1288 24 24 24 20 20 06 00 11 1290 35 3F 24 24 0C 20 1298 35 00 28 20 24 FC 18 36 12 0 36 36 40 21 24 00 52 3A 1248 67 24 24 3C 20 06 00 98 1280 72 20 24 24 00 73 1288 OE 15 OF 23 24 24 09 12C0 1E 1E 06 00 8 12 3F 12C8 24 24 24 05 00 EO 1C 36 1200 36 36 4D 25 24 24 06 1208 00 56 24 24 24 DF 12E0 2E 1E 36 2E 00 92 E 24 12 8 24 OC 20 15 36 36 17 05 l2F0 00 65 38 36 2E IE 12 8 36 05 00 15 IF 3F 20 1300 24 64 20 15 36 36 00 77 DISK Alexandre Mieux vaut pr venir que gu rir pa rait il et que celui d entre vous qui n a Jamais vu le message O ERROR appara
85. 252 ADE ECT 204 INX 263 STA 205 INY 264 TAY 205 LUT2 265 ZCTP Y TRANSFER 207 BNE S17 T DE 55 208 LDY SYB 266 LOY SYB DANS LE 209 LDX 0 BLOC 210 S18 LDA TRANSFER 267 STA BUF Y T DANS LE BUFCER 269 INC SYB 211 STA lt BUF Y 259 LDY 212 INX 270 INY 213 INY 271 LDA lt ZCTP Y 214 CPX LUT2 272 LDY SYB 215 BNE S18 273 STA BUF Y 215 LDA 0 MARQUE L 224 INY FIN PROVISOIRE DU SECTEUR 275 LDA 0 FIN DU B 27 STA SUF Y UFFER 218 STA PFC 274 STA BUF Y 219 STY SYB 277 STY SYB 220 JMP 519 PASSAGE 278 LDX CLE CLASSEE SUIVANTE 277 BNE 526 IL NE RE 221 520 BEQ S21 STE QUE DU URAC 222 JHP S23 280 INX 223 S21 INX OCTET 281 STX PFC SI GHALE LASSE OCTET VRAC QU IL FAUDRA CHERCHER LA 224 INY 282 JMP S129 SNOUUELLE 225 LOA LM PETITE CLE DU URAC 226 BNE S22 CLE URA 283 S26 CMINT C EST LA PLUS COURTE 284 BNE 827 IL PEUT 227 CPX LU FIN DE L ENCORE RESTER DU VRAC CLE LA PLUS COURTE 285 528 JSR S132 jECRIT DE 228 BEQ S210 RNIER SECTEUR ET SORT 229 JMP S140 gt 28 5 UITE COMPARAISON 2854 927 JSR RPT CHERCHE 230 S210 JMP S131 PETITE CLE DU URAC 231 S22 CPX LUT FIN DE L 288 5270 LDA CMINT CLE LA PLUS COURTE 289 BEQ S28 PLUS DE 232 BEQ S23 VRAC gt FIN 233 JMP S140 NON gt 5 290 623 TRAITEHE UITE COMPARAISON NT BUFFER 234 S23 LOA LET LA CLE 291 RPT 2CT 1 VER BLOC URAC EST LA PLUS D
86. 3 634 639 num ro de piste LDA SECTOR LOY hHsectpos JSR DSPBYT e numro de secteur LDA byte LOY bytepos JSR DSPBYT e rang de octet VOLFND LOY volpos JSR DSPBYT e de volume LOA DRIVE DRLEND SNE INUDRU ORA 50 INMDR ORA 530 STA eF7 e drive en service LDA 21 JSR TABU LDA buf ptr i LOY bufpos adresse du buffer DSPBYT STY CH JMP PREY TE PRLINE LOY 0 STY CH STY temp l dans la ligne LDA JSR COUT LDA temp JSR PRBYTE l adresse JSR QUTSPACE JSR OUTSPACE HEXASC LDY temp LOA bufptr Y LOX display mode d atfichage BEQ MIXTE DEX SEG HEXA JSR OUTCHAR JSR OUTSPACE JMP ASCII HEXA JSR DUTBYTE ASCII INC temp temp i LDA temp i CMP 15 BNE HEXASC STA lt JMP CLREOL MIXTE PHA IXTE JSR DUTBYTE JSR OUTSPACE LOY CH LDA 32 ADC temp 1 STA CH PLA JSR OUTCHAR STY CH H INC temp octet suivant INC temp 1 affiche 1 affiche 1 affiche raffiche 1 21 affiche sposi tion saffiche teste le MODE M sauve CH restore spointe l compte Ju Pom s n 15 squ 3 B fors 636 temp l 637 CMP 638 HEXASC 639 STA vfst 640 LOX 3 641 JMP PRBLNK 642 643 OUTBYTE W FF 644 LOA bufptr Y 645 SBUF Y 646 NORMAL 647 3F 648 NORMAL STX INUFLG 649 JSR PRBYTE 650 JMP SETNORM 651 652 OUTSPACE
87. 325 227 328 329 330 331 332 333 334 3393 33 337 338 339 340 341 342 343 344 345 346 347 348 349 350 33l 392 353 354 355 356 257 358 359 360 361 362 363 364 365 366 367 368 369 370 371 172 373 374 3723 376 378 3 9 380 3B1 382 JSR STA 1Jue gt INY STY INY TXA STA vue RTS PRBR3 ADC e marge ADC res par TAY PLA le code JSR STA live gt INY STY INY INY TXA STA lt RTS PRBR4 ADC marge TAY STY octet 5 e le curseur PLA le code FLASHIT hing TAX BPL LDX FLASHI LDA tire cran AND ORA STA rgnoter INY DEX SNE RTS STY LOY JMP NOF LASH JSR OFB LOA JMP SHOWSYT BRACKETS TAX Am ys os EMI LOA TAX RTS LDA LOX RTS AST BRACK BRACKETS BASL Y met ou cur CH BASL Y smet ou en mode mixt temp 3 caract sr cupire BRACKETS CBASL Y met ou en BASL Y met ou en 5 smode hexa cur CH positionn ri cupJre 00 normal 80 flas NOFLASH H2 BASL D Y ar AC 8 2F E430 CBASL Y le fait c FLASH1 CH byte OUTBYTE MSGAT bxtepos Se byte PRBYTE A 80 gt BRACK pe i A 00 gt gt 240 8 lt 40 32 6 n 15 383 FILTER LOA filter 1 le filtre 384 EOR 80 385 STA filter 386 SEE 387 RTS 388 AST 32 389 ROLMASK LOA mask 390
88. 4 THEN 210 ELSE AsMOUSE 2 250 IF A 128 AND A 143 THEN Ns1 ELSE IF gt 152 AND A 167 THEN N ELSE IF 1776 AND A 191 THEN N 3 ELSE IF 200 AND A 215 THEN N 4 ELSE IF 2224 AND lt 239 THEN 5 ELSE 210 260 P 1 105 24 NP 2 321 P 3 P 1 1 4P 4 7 335 Pom sn 15 FOR 1 0 TO 21 CALL INVERTRECT VARPTR P 1 FOR 0 0 TO 50 NEXT NEXT GOSUB 1790 CALL BACKPAT VARPTR P CLS ON 290 990 280 970 270 CALL HIDECURSOR WIDTH lpt 1 7 96 GOSUB 2150 60508 1860 CALL TEXTFONT 6 CALL TEXTSIZE I B CALL MOVETO 132 145 PRINT Retour au bureau SYSTEM 280 E 0 G010 300 290 E i 300 DIM A 18 B 18 LINE 338 26 461 197 30 BF 130 210 204 262 20 310 FOR 1 26 TO 178 STEP 1S2 LINE I 26 1 132 190 30 BF 1 26 1 132 190 B LINE I 2 28 1 4130 52 B LINE I 2 54 1 130 58 BF LINE I 2 191 1 134 191 CAILL PENSIZE 2 2XLINE CI 133 27 1 133 190 CALL PENNORMAL NEXT 320 F 1 60SUB 1810 CALL MOVETO 68 44 PRINT Curseur CALL MOVETO 220 44 PRINT Masque 330 LINE C340 28 460 196 8 LINE 338 26 462 198 8 FOR 1252 TO 196 STEP 24 LINE 340 1 460 0 CALL MOVETO 348 1 8 READ W PRINT W NEXT 340 LINEC340 199 464 199 LINEC132 212 202 260 B LINE 130 210 204 262 B LINE 132 263 206 263 CALL PENSIZE 2 2 LINE 205 21 1 205 262 LiNE 463 27 463 198 CALL PENNORMAL 350 F 1 7 F 2 7 U 0 V 0 6 0 1 16 4 2 16 1 16 B 2 16
89. 540 REH 51 550 PRINT CLHRS lt 27 CHR 36 300 775 49 CALL 768 560 PRINT CHR 40 Pom sn 15 Pour tous les passionn s de l ordinateur personnel les branch s et ceux qui le sont mains Apple lanc le Club Apple Enfin un club avec des id es et des services pour comprendre pour gagner pour s vader Le Club Apple cest l esprit Apple x i de la passion x EHE Pour en savoir plus sur le Club Apple le fruit de la passion et conna tre tous les avantages que nous r servons aux membres du club d coupez d s aujourd hui le bon et retournez le Club Apple avenue de l Oc anie ZA de Courtabceuf BP 131 Les Ulis cedex 91944 Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club Nom _ Prenom Adresse es S S _ Code postal Apple Ura Inc est le ceo de t marque Mary ush Il tait temps qu un capitaliste KARL MARX IDASKAPITAL fasse une r volution N apprenez plus devenir une machine Apple a invent Macintosh cc PEACHTREE LA COMP UE C EN EST PRES La comptabilite c est long complique fastidieux cela tait vrai avant Mac Accounting Avec Mac Accounting le nouveau logiciel de comptabilite de Peachtree finis les livres de caisse en deux exem plaires fi
90. 56 5 ASYO 256 w HS HD 256 HL moire et compare chaque octet d une cl l octet de m me rang de la cl recherch e Elle ne passe la cl suivante en consid rant que la comparaison a chou que si un octet diff re test BNE ou si tous les octets sont identiques mais avec une diff rence entre la longueur des deux cl s compar es Routine de classement Elle se charge de la lecture en m moire de tous les secteurs de cl s class es ou non Le pnncipe utilis en alors le suivant e Rechercher la plus petite cl du vrac la mettre dans une zone part et signaler le fait en rempla cant sa longueur par FF dans son enregistrement e Prendre la premi re cl class e et la comparer la plus petite du vrac Les donn es de la plus petite des deux sont copi es dans le buf fer allou la constitution de sec teurs class s D s que ce buffer est plein on l crit sur la disquette en notant la toute derniere cl qu il contient et on passe au secteur suivant en repartant au d but du buffer e Si la pius petite est une cl clas s e on refait ensuite la comparai son avec la cl class e suvante Si cest la cl vrac qui a t mise dans le buffer on va chercher la nouvelle plus petite cl du vrac et on reprend la comparaison avec la meme cl class e A l occasion de ces op ratons les cl s annul es ne sont pas prises en compte et ne sont jamais re port es dans le buffer Elles
91. 570 RESTORE 60FOR TO 34READ D 1 NEXT R 1 30 R 2 30 R 3 S1 4 155 CALL INVERTRECT VARPTR R 1 CALL SETCURSOR VARPTR D 1 580 IF MOUSE O 1 THEN Ps OUSE 170 USE 2 U P 28 N8 V 0 60 N8 IF U AND H OR V AND H 0 THEN 600 S90 GOTO 580 600 P 1 60 8 V P 2 28 8 UP 3 P 1 8 P 4 P 2 8 FOR 1 0 TO 21 CALL INVERTRECT VARPTR P 1 FOR D O TO 50NEXTNEXT CALL INVERTRECT VARPTR R 1 IF G THEN C 33 6 C 34 6 ELSE C 33 V C 34 U 610 B 1 CALL SETCURSOR VARPTR C CT1 GOTO 410 620 Enregistrer 630 IF B THEN 650 ELSE GOSUB 21506G0SUB 1850 GOSUB 1920 RESTORE 80 FOR 1 116 TO 164 STEP 16 CALL MOVETO 124 1 READ W PRINT WNEXT GOSUB 2070 540 IF D THEN 670 650 GOSUB 2150 IF THEN GOSUB 1850 ELSE GOSUB 1860 660 GOSUB 1950 IF A THEN 670 ELSE OPEN O 1 2 6 FOR I 3 TO 8 PRINT I ACD NEXT FOR 1 3 TO 18 PRINT 1 B ID NEXT PRINT 1 V U CLOSE 670 PUT 108 92 M PSET 680 IF MOUSE O O THEN 680 ELSE 410 690 Imprimer 700 GOSUB 2150 GOSUB 1850 CALL 124 124 PRINT WV imprimer GOSUB 1920 5050 2070 710 IF D THEN 670 ELSE PUT 108 92 M PSET 720 CALL HIDECURSOR P 2700 224R 470S 272 GOSUB 18SO CALL 290 251 PRINT Impression P 260 PR 1S8 S 190 W1 F000 1 LPRINT CHR 24 GOSUB 1880 730 LPRINT CHR 24 CHR 27 r CHR C31 CHR 31 CHR 27 f P 178 0 26 R gt 3105 190w1 F0280 GOSUB 1880 740 LPRINT CHR 24 CHR C31 3 00017 1300 210
92. 6 817 818 819 820 821 822 823 824 825 826 ASC JSR CHP BEQ CMP 8EQ SEC RTS JSR ASC BRK JMP LST EKSE LST JSR ASC SRK BEQ JSR ASC 8RK JSR ASC BRK JSR CMP SEU SEC RIS JSR ASC BRK JMP FIN CST AST SAVBUF LDY SAL BUF 1 LDA e buffer de STA de INY BNE SEC RTS AST RSTBUF LDy RSTBUF1 LDA e buffer de STA le buffer de INY BNE SEC RTS AST JSR 8IT BEQ 17 CMP aNE LDX TXS JMP WRERR RETRY WRERR buffer GE T KE Y GE TCP pie start GETRTS RTS y nouvel essai 2 GETKEY g Y GORUTS GORUTS MSGOUT RETRY OFF ON MSGBTM campo dt en CMDCODE 2 URERR MSGOUT read MSGOUT tu petro a GETKEY uy GORUTS MSGOUT jr i te RETRY ON 32 0 D y travail SBUF Y dans fe auvegarde jFecopie 1 SAVBUF 1 di 0 SBUF Y sauvegarde bufptr Y travail srecopie dans RSTBUF1 32 RDKE Y KBDSTRB 8ctri P HARDCSP Y ME CER CO 4ESC GETRTS H FF jescape 2 URMSTRT OUI gt 827 828 829 830 831 832 E33 834 835 835 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 958 859 860 861 862 863 864 865 866 867 868 869 870 871 872 823 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 89
93. 9 POKE IO 8 LB 10 12 C CALL RWTS RETURN 75 PRINT IFAJERSE PRINT ZM NORMAL GET 2 PRINT RETURN 80 1 GOSUB 65 CALL AR R RES BL PEEK ABL RI 0 0 IF R 0 AND CCS N N gt AND lt NZ THEN R 1 RETURN 81 IFR 0 THEN RETURN 82 IF NZ AND IC lt 2 OR TT AND gt 02 THEN BL 0 83 J 2 RI PEEK ADR J 256 PEEK ADR J 1 GOSUB 90 2 EST CE LE BON GOSUB 95 IF 0 O THEN RI RI 1 0 1 RETURN 84 RI RI 1 IF RI lt R 1 THEN 83 85 IF 2 N ND AND N lt gt NZ THEN R 1 RETURN 86 R R BL RETURN 90 PRINT D READ DON R A FOR 1 0 TO 6 INPUT 2Y 4I2 NEXT PRINT RUS PRINT UTAB 12 FOR 1 TO 6 PRINT 52Y 1 5 CALL 868 PRINT NEXT PRINT RETURN 95 PRINT INVERSE PRINT 2 NORMAL INPUT 09 IF O 0 THEN 06 N 96 RETURN 98 PRINT DS MRITE DON R FOR I 0 TO 6 PRINT ZYS I NEXT PRINT DS PR O RETURN 100 HOME PRINT 1 CREATION PRINT 2 MODIFICATION PRINT CONSULTATION PRINT 4 ANN ULATION PRINT 5 LISTE PRINT 6 FIN PRINT INPUT VOTR E CHOIX 5CH IF CH lt ORC H gt THEN 100 110 IF CH 2000 115 IF CH 5 THEN 3000 120 10 1 INPUT CLE 3 2 IF 2 THEN 100 125 2C 2 IF LEN 2 gt 250 AA THEN 120 130 L LEN 2 POKE LC L FOR 1 1 TOL P
94. 90 165 TO 89 164 RETURN AS AUDE HPLOT 147 185 TO 151 1 72 TO 165 173 RETURN AS HERAULT HPLOT 170 151 TO 17 3 156 TO 169 165 TO 169 170 RETU RN AS GARD HPLOT 173 148 TO 178 1 49 TO 181 155 TO 187 155 TO 188 1 97 RETURN AS ARDECHE HPLOT 179 139 TO 18 4 141 TO 182 145 TO 188 149 RETU RN AS SAONE HPLOT 207 62 TO 205 6 9 TO 205 72 TO 197 80 TO 196 85 T O 191 89 TO 189 92 TO 191 97 TO 1 88 110 TO 190 112 TO 190 114 RET URN AS DOUBS HPLOT 2210 91 TO 220 7 8 TO 218 78 TO 218 75 TO 205 84 T O 197 89 TO 191 89 RETURN AS AIN HPLOT 208 92 TO 203 93 TO 196 113 RETURN AS ISERE HPLOT 221 120 TO 218 117 TO 215 118 TO 214 115 TO 211 118 TO 207 122 TO 204 126 TO 202 124 TO 194 131 TO 191 131 RETURN AS ARC HPLOT 223 122 TO 214 12 29 TO 212 123 TO 211 118 RETURN Pom sn 15 6490 6500 6510 6520 6530 6540 6550 6560 6570 6580 6590 7000 7010 7020 7030 7040 vous etes dans la 6 et oubliez d acheter Pom g AS DRAC HPLOT 213 136 TO 211 1 38 TO 203 133 TO 204 126 RETURN AS DROME HPLOT 204 142 TO 200 140 TO 199 136 195 138 190 137 RETURN AS DURANCE HPLOT 218 132 TO 21 7 134 TO 217 138 TO 213 143 TO 21 0 142 TO 208 145 TO 210 150 TO 20 7 159 TO 201 161 TO 190 155 RETU RN s VERDON HPLOT 218 147 TO 218 156 TO 210 159 TO 207 159 RETUR N AS VAR HPLOT 221 147 TO 222 15 4 TO 228 154 TO 228 162
95. 90 NEXT 1006070 100 n cessaire de mettre la fen tre de 200 NEXT Sortie sa taille maximum pour 210 NEXT La saisie du programme dott s effec viter un ventuel scrolling lors 220 CLOSE tuer en deux temps de l ex cution 210 DATA 6802 20336 13824 0 3465 24840 27648 21824 1732 15852 21525 21 1346 42 220 DATA 22208 0 21155 1 0240 0 866 1 22528 0 674 17477 2287 21840 354 30583 230 DATA 201 40 5 20898 30583 21504 0 1346 30583 28672 0 450 30583 12288 0 386 240 DATA 30583 12624 1 20866 30583 6149 21844 770 30583 2048 0 514 24695 2560 250 DATA 0 2562 8087 1192 2 23549 31463 1026 2184B 1026 8261 512 0 3074 32747 260 DATA 808 2 26620 3 386 10888 12293 11 194 16456 24584 2049 100 32732 16374 270 DATA 7173 60 32729 32760 3585 24 7965 10 1797 9 14 8 897 9 14 8 257 4 28 5 280 DATA 11 4 24796 4 3 226 24776 8190 32747 791 20829 6146 8261 7176 4354 1795 2900ATA 30183 24576 8320 194 24673 16383 16257 2525 300 OPEN 707 1 XL FOR 1 TO 31 Z READ N PRINT 1 N NEXT CLOSE 310 OPEN 07 1 FOR I amp 1 TO 218READ NX PRINT N NEXT CLOSE END Programme Principal 10 CLEAR 22000 1024CALL HIOECURSOR ON ERROR GOTO 2210 DEFINT A V DEFSTR W Z OPTION BASE 1 DIM C 34 D 34 RCA PCAD 1604 HC 16 E 18 F 9 I 312 0 554 0 218 20 DATA Voulez vous e Creer un curseur 2 e Cr er une forme 3 e Reprendre un curseur 4 e Reprendre une forme 5 e Quitter JO DATA 32
96. 942 202 BNE PRINT 943 MSGOUT PLA 903 LDA HW 944 STA temp 904 PRINT JSR COUT 945 PLA 905 INY 946 STA 1 906 CPY 40 lign 947 LDY 0 948 MSGNXT 907 HARD2 non gt co 949 ntinue 950 MSGAT PLA 908 INC temp 951 STA temp 909 LDA temp 952 PLA 910 CMP 23 953 STA temp 1 911 BLT HARD1 954 LOY 1 912 JSR CROUT 955 LDA temp Y 913 0 956 STA CH 914 JSR OUTPORT 957 INY 915 LOX 4 2F 958 LDA lt temp Y 916 HARD3 LDA 108 17 959 JSR TABU 5 21 STA 0 X srestore 1 960 MSGNXT INY y a page 2 961 LDA temp Y 918 DEX 962 BEQ MSGEND T 919 BPL HARD3 963 JSR COUT 920 JMP GETKEY 964 JMP MSGNXT 92 AST 32 965 MSGEND CUC 922 SOUND LDX 80 66 TYA i 923 51 TXA 967 ADC temp r 924 EOR 80 968 TAY 925 TAY 969 LDA temp 1 926 S2 DEY 970 AOC 0 927 BNE 52 971 PHA 928 BIT SPKR 972 TYA 929 TXA 973 PHA 930 ADC 80 974 RTS 2 81E8 91 28 00 F4 60 84 R capitulation 55 22 22 Es 42 12 81F0 24 Ad 4C 1E 84 20 4F 80F8 F8 38 60 20 22 86 4C CC giF8 84 10 02 00 AS 4C DA 8000 A2 FF JA 86 1E 86 EC 8100 80 C CA CB CD 09 04 C 8200 FD 30 04 9 0 e 60 8008 86 86 EB 86 EE 20 2F 8108 C8 C2 02 07 C4 01 00 8208 A 7E 2 7 60 AS 49 8010 20 58 FC 20 45 86 07 8110 BC BE AD 80 88 95 84 8210 80 85 EC 38 60 AS 1E 44 8018 12 OF 13 13 09 05 12 13 8118 45 91 40 81 54 81 58 81 8218 C9 IF DO 02 A FF 85 1E
97. 991 224 993 554 555 556 297 558 959 560 541 562 563 554 565 956 557 558 569 970 94 S72 974 CHGBYT2 JSR GETBYTE CHGBYT3 byte STA lt bufptr Y range la nouvelle valeur CHGBYT4 INY STY CHtemp JSR PRBUF LDA CHtemp JMP PSNBYT AST 32 DI SASM LDA 4 sd sassemb le buffer STA WNDTOP LDA 20 STA UNDBTM JSR HOME LDA 18 18 JSR TABY LDA bufptr STA PCL LDA bufptr 1 STA PCH DISO 1 DIS STX temp 152 JSR INSTDSP LOY LENGTH 0153 LDA 2 STA 5 DE Y 0153 JSR PCADJ STA PCL STY DEC temp DIS2 DIS4 LDA KBD BPL 0154 JSR GETCP LOX 1 CR DISO BNE 0151 AST 32 PRBUF affiche 1 contenu du buffer STA CV 4 LDY display mode mi xt e 2 BNE PRBUFO inOn gt sa ute SEC LDA byte soui d lt termine la demi page SBC base BPL PRBUFO LDA base EOR 9 80 change de demi page s besoin STA base PRBUFO base STA temp PRBAuF1 LDA CV JSR TABY JSR PRLINE INC CO CU CMP 20 BNE PRBUF1 SHOUPRMS LDA 2 VTAB 2 JSR TABU LDA TRACK LOY trackpos USR DSPBYT saffiche 1 37 976 37 578 379 580 581 582 S83 584 585 586 587 288 58 3990 292 993 594 379 59 or 593 9297 600 601 602 603 604 605 606 60 608 509 610 611 612 613 614 615 15 517 618 619 620 621 22 623 624 625 525 627 628 629 630 631 632 63
98. A J P 121 INY SSYE POIN OINTEUR DE CLEMAX SUR LE IER CARACTERE 172 LDA 1 ECRIT LE 122 SIY SYC DE LA CL SECTEUR CLASSE QUE E 173 LDX L ON VIE 123 EDA 2 6 SY NT DE CONSTITUER 124 BNE S13 wes 174 STA 108 CLE ANNULEE 75 JSR RuTS 125 519 LDA SYC SAUTE 176 LDX S PASSAGE A LA CLE SUIVANTE SECTEUR SUIVANT 126 EX INX 1 27 ADC LC 178 CPX 10 123 ADC 2 1 79 BNE S15 129 TAY 180 INC P 130 LDA CCCP 181 LDX 0 131 BNE 511 S T 182 S15 STX S LE BLOC EST FINI 183 LOY 0 RAZ POIN 132 INC 2CCP 1 PASSAGE TEUR DU BUFFER Porn s n 15 184 STY SYB 237 CLC 185 RTS 238 ADC SYB 186 S16 LDY SY8 s RECOPIE 239 BCC S24 LES DONNEES DE LA CLE 240 JSR S132 187 LC DANS LE 241 S24 LDY SYB M A J SUFFER OINTEURS DE CLEMAX 188 STA 242 LOA LCT 139 243 STA BUF Y 1 90 ADC 2 244 INY 171 STA LUT2 LONGL EUR 245 LDA LUT TOTHLE ADRESSE 246 STA BUF Y 192 247 LDA SYM 193 LDA LU 248 STA SYCO 194 STA RUF Y 249 2TPP 195 INY 250 STA SEC 196 STY SYB M A J 291 INY OINTEURS DE CLEMAX POUR 252 LOX 9 197 LDY SYC LE CAS 0 253 S2S CMINT X TRANSFER U CETTE CLE SERAIT LA T DELA EEE 198 STY SYCO DERNIERE 254 STA BUF Y DU SECTEUR EN COURS 299 INX 199 LDA 2 1 DE CONST 254 INY ITUTI ON 257 CPX LCT 200 STA SFC 258 BNE 525 201 LDX 0 259 STY SYB 202 S1 LOA 2 TRANSFER 250 LDA SYM T INTERMEDIAIRE 241 CL 203 STA CMIN X
99. AIGUILLAGE IF gt 40 THEN 2 40 GOTO 8 O40 N GOSUB 6010 6020 6030 6040 605 0 6060 6070 6080 6090 6100 6110 6 120 6130 6140 6150 6160 6170 6180 6190 6200 6210 6220 6230 6240 62 50 6260 6270 6280 6290 6300 6310 6320 6330 6340 6350 6360 6370 638 0 6390 6400 RETURN ON N2 GOSUB 6410 6420 6430 6440 64 50 6460 6470 6480 6490 6500 6510 6520 6530 6540 6550 6560 6570 658 0 6590 RETURN REM VOIR HGR2 SANS EFFACER POKE TX O POKE HI 0 RETURN 10 PRINT un touche GET WS RETURN Inutile de vous p les autres num ros de Porm g sont encore disponibles avec leurs disquettes IMPRESSIONS SUR MousePaint est avant tout un logiciel realisation de dessins fonctionnant sous controle de la souris Un crayon permet de fare du dessin mai levee si on peut dire la main est posee sur la souris ce n est pas toujours tres simple mais avec un peu d habitude Et en cas d erreur i u la resseurce somme On peut egalement travailler par taches avec brosse On peut aussi vaporiser des petits nuages Bien sur on peut ecrire en dispese de plusieurs types de caracteres Mats pas de caracteres accentues Bes formes predefinies permettent de tracer des figures geometriques vides OU pleines avec decors varies Mais on ne peut pas remplir apres ceup _ OS
100. AND CHECKEYI CLC CHECKEY2 RTS SECTPTR DFB SECTABL DFB 47500001111 1 thru 7 0 0 0 9 8 Pom s n 15 27 6 5 4 3 2 1 244 ASC X 199 245 DFB CR CR 200 TBLUALUE s 246 INJ PISTE 11 201 FLS FEDCBA9 876543210 fT111111111111222 202 IN FEDCBA A9876543210 247 DFB CR 203 ASC FEDCBA BZ65432 248 INV 01 23452Z8 aBCDEF01 204 TBLSTAT 23455 789A8CDEF012 205 FLS Pp T 957 249 206 250 IN SO 207 108 251 DFB CR 208 DFB 1 252 INV El 209 IOBSLOT DFB 6 10 253 210 IOBORIUE DFB 1 254 INV C2 211 IOBUVOL DFB 0 255 212 IOBTRACK 0 256 INA T3 213 IOBSECTR DF8 0 257 214 DA 258 IN Eq 215 DA 2000 259 OF8 CR 215 DFB 9 0 250 INU Uus 217 DF8 1 261 218 IOB STAT DFB 0 262 INV R 219 DFB 0 263 DFB CR 221 DFB 1 265 222 OCT 0 1 266 INY 8 223 DA DBEF 267 DFB 224 268 INU 9 225 561 26 DFB 226 INV DISK CHECK UP 270 INY 227 DF8 CR CR 271 228 00 LOUCASE 2 2 IN B 229 Asc Copyright C 1984 273 OFB Alexandre Aurane 274 IET 230 ELSE 275 DFB 231 ASC COPYRIGHT C 1984 276 INU ALEXANDRE AURANE 277 OFB 232 FIN 278 IN E 233 DF8 CR CR 279 DFB CR 234 DO LOWCASE 289 IN F 235 asc Slot 281 DFB 0 236 MSGSLOT ASC 6 282 237 asc Drive 283 MSG2 DO LOUCASE 238 ELSE 284 ASC Encore
101. DBSTAG cf Pomsn 11 450 00 F JEUX CL Pom STR 12 80 00 F JEUXB IO RS 80 00 F BASICIUM ss cf Poms r 13 150 00 F DEMO CX SYSTEME 64K cf Pomsn 13 5500F DEMO JANE 64K cf Poms 12 5500F E P E rues VPE cf ce num ro 150 00 F MACINTOSH ap cL num ro 150 00 F PASCAL Cf CO numero cats 80 00 F RECUEILS N 1 recueil des revues 1 4 a 130 00 F Disquettes d accompagnement des num ros 4 150 00 F N 2 recueil des revues 5 8 130 00 F Disquettes d accompagnement des num ros 5 8 19000 ANCIENS NUMEROS REVUES 4 y Bo Rae 35 00 F REVUES TIO 11 12 13 14 15 teurs A 40 00 F DISQUETTES 1 2 2 j 4 5 6 7 8 9 10 11 2 13 14 15 55 00 F ABONNEMENTS POUR 6 NUMEROS partir du n ABONNEMENT SANS DISQUETTES 200 00 F ABONNEMENT AVEC DISQUETTES 48000 F TOTAL ouppl ment exp dition par avion MONTANT DU REGLEMENT Fk koi k k s544EP 4H PS P EC Ces tarifs comprennent l envoi postal en France metropolitaine et Suisse voie aerienne except e Envoyez ce bon et votre r glement Editions MEV 64 70 rue des Chantiers 78000 VERSAILLES Nom Adresse 78 Pom s n 15 Lecteur de disquette 5 1 4 half size
102. EN S T 1 NEXT GOTO 5020 530 TEXT HOME VTAB 2 HTAB 3 PRINT 5050 NEXT 5 Vous avez bien repondu EX 5060 VTAB 24 HTAB 10 PRINT 5 22 ois 10 PRINT PRINT HTAB RETURN 5 PRINT Voulez vous recommence 6000 REM QUESTIONS r OzOUID GET WS IF WS OQ THEN RUN 6010 AS s SOMME HPLOT 165 24 TO 161 2 940 14 15 PRINT AU REVOIR 7 TO 160 22 TO 150 24 TO 142 18 Pom s n 15 6020 6030 6040 6050 6060 6070 6080 6090 6100 6110 6120 6130 6140 6150 6160 6170 6180 6190 6200 6210 6220 6230 6240 6250 6260 RETURN AS s EURE HPLOT 129 53 TO 138 57 TO 140 53 TO 137 49 TO 138 46 TO 134 40 TO 135 37 RETURN AS LOING HPLOT 164 74 TO 159 7 2 TO 157 67 TO 158 64 TO 156 61 T 158 58 RETURN AS YONNE HPLOT 175 85 TO 174 8 4 TO 172 84 TO 169 77 TO 171 74 T 169 67 TO 165 65 TO 165 60 TO 1 63 57 RETURN AS ARMANCON HPLOT 184 82 TO 18 2 78 TO 183 77 TO 174 66 TO 169 6 7 RETURN AS AUBE HPLOT 193 72 TO 183 61 TO 181 955 TO 174 592 TO 171 93 R ETURN AS MARNE HPLOT 196 68 TO 195 6 8 TO 195 654 TO 192 63 TO 191 52 T O 185 51 TO 179 43 TO 169 41 TO 1 63 45 TO 162 44 TO 154 49 TO 152 47 RETURN AS OISE HPLOT 177 22 TO 168 24 TO 163 29 TU 161 31 TO 158 33 TO 147 42 RETURN AS AISNE HPLOT 192 45 190 4 9 IO 185 93 TO 178 31 TO 173 39 T O 164 35 TO 158 33 RE
103. ER CARACTERE 003F 43 CARRE EQU 63 1044 105 0006 44 TRANS EQU 6 1044 98 106 WRITE TYA 3TRANSLATION CURSEUR EMPILAGE 1000 45 1038 48 107 PHA 1000 46 lt 3x gt ADRESSE TABLE DE NUMERO CARACTERE FORMES 104C B1 06 108 LDA CADRCH Y 1000 47 104 48 109 PHA gt 467 Fr PY Me marry A Ne 4 4 1255660006 pe 4 9 64 Pom s n 15 104 110 1079 68 150 PLA 104 111 5 1 UN CARRE 1074 85 E 151 STA SCALE 104F 112 107C 68 232 PLA 104F A9 00 113 LDA 8 08 107D 85 E4 153 STA HCOLOR 107F 154 1051 85 E4 114 STA HCOLOR 10 7F 60 155 RTS CBULEUR NOIRE 2001 RETOUR BASIC 1053 A7 115 LDA CARRE 1080 156 1055 20 S8 FF 116 JSR RETURN 1080 157 lt 7 gt PROCEDURE DE TRAC 1058 50 26 937 8UC DESSIN E DE FORME 105A A9 7F 118 LDA 8 7F 1080 158 COULEUR BLANCHE 1080 8A 159 DESSIN TSX 105 85 E4 119 STA HCOLOR PROGRAMME 105E 120 1081 CA 1 60 DEX 10SE 121 5Z2ZDESSINE LE CARAC RELOGEASLE TERE 1082 CA 161 DEX 105E 122 SCF POM S 7 105 123 1083 94 1 42 5 105 58 124 PLA PAGE 27 105F 38 125 SEC 1094 163 1084 0 144 ASL 1060 E9 IF 124 SBC IF DOUBLE LE NUMERO CALCUL NUMERO FORME 1085 A8 165 TAY 1062 272 1086 81 CE 1 66 LDA TABLE Y 1062 20 58 FF 128 JSR RETURN ji S8 INDEX FORME 1065 50 19 129 BYC DESSIN 1088 18 147 1067 130 1089 65 CE 163 ADC TA8LE 1067 131 5 3 TRANSLATIO
104. Echecs 9 niveaux de complexit Plans d architecture Langege d intelligence artificielle Le plus r pendu Trois versions Pascal Interpr t Basic pescalien Pascal compil Les informations en images Integre calcuis graphisme texte Structure des fiches veriable Tri multi cr teres Main street file en francais Expression multiforme Gestion de stocks Organise2 votre systeme Comptabilit Livre de caisse Facturation simplifi e Traitement d id es Personnalisation per ie dessin Sur l imprimante comme l cran Adresses Emploi du temps EmutationTTY DEC VT100 Emuletion IBM 3270 Emulation minitei Minitel intelligent Composeur t tephonique Graphisme en trois dimensions D cisionnel graphique Repr sentation graphique Gestion d un cabinet dentaire Pour m decins g n ralistes Donn es m dicales Laboratoires d auelyses m dicales Gestion d une pharmacie Deux jeux differents R serv aux enfants Jeu de r le Strategte Votre autoportrait Aventure Aventure Jeu t l vis Ptanificatlondes projets Syst me expert Bibliotheques de dessins langages 2 gestion et comptabilite 3 traitement de textes 4 organisation 5 communication 6 graphisme 7 m decine 8 jeux 9 divers Poms n 15 ren D 49 50 Omnis 2 l essai Guv
105. En hexad cimal un octet permet de repr senter des valeurs comprises entre OO et FF 255 mais en DCB du fait des combinai sons limin es on ne peut repr sen ter que les nombres entre OO et 99 Employer la notation DCB permet tout d abord de retrouver notre sys teme d cimal classique avec lequel nous avons normalement plus de communaut de langage qu avec lhexad cimal ainsi si l on ajoute 1 09 on trouvera 10 et non Par contre cela suppose que soient bien limin es dans les calculs les com naisons illicites sous peine de gre incoh rences dans les r sultats Le processeur 6502 dispose d un mode de calcul en DCB dans lequel il se charge lui m me de limiter les combinaisons de bits aux seuls chif fres d cimaux Pour s lectionner ce mode il suffit de mettre l indicateur DCB du registre d tat 1 au moyen de l instruction SED F8 n revient au syst me hexad cimal nature en mettant cet indicateur au moyen de linstruction r ciproque CLD D8 Vous trouverez ci dessous un petit exemple d addition en DCB dont nous vous laissons conduire l analyse l aide des pr cisions suivantes Avant de faire appel des routi nes du syst me moniteur ou Basic 4 lu 2 e 9 jen 55 il est touJours prudent de revenir lhexad cimal car ces routines sont pr vues pour fonctionner avec des va
106. F US lt 0 THEN SOO CT NORMAL PRINT SPCC 102 140 VTAB 9 1 PRINT Apprenez le EX EX 1 GOTO 2040 nom des fleuves de FRANCE et de 2040 VTAB 1 28 PRINT Note E leura affluents en vous amusant X 7 T RETURN x REM aaan TRACER LA CARTE eee 150 PRINT SPC 40 PRINT Vous t aperez au clavier le nom du cour 3010 GOSUB 9000 HCOLOR 3 XO 40O YO d eau qui clignote sur la carte S FOR I 1 TO 9 READ X Y HPLOT X XO Y YO 160 PRINT PRINT Je vous demande 3020 READ X Y IF X AND Y THEN HPLOT 10 noms et je vous donne les 10 TO X XO Y YO GOTO 3020 reponses PRINT 3O3O NEXT RETURN 170 PRINT Si vous repondez 4000 REM san FAIRE CLIGNOTER se Comme nom en page HGR2 pour 1 carte 4010 GOSUB 8000 HCOLORs 3 GOSUB 8000 180 PRINT PRINT Tapez C pour voir IF PEEK gt 127 THEN POKE la carte complete GOSUB 10000 B O RETURN IF WS C THEN GOTO 1010 4020 HCOLOR GOTO 4010 SOO REM DEBUT eee 9000 REM en TIRER AU SORT 510 TEXT HOME VTAB 1 HTAB 4 INVER 5010 NQ 59 REM SE PRINT NOMS NORMAL H Nbre Questions GR2 GOSUB 3000 GOSUB 5000 GOS UB 4000 FOR T 1 TO 9 GOSUB 20 5020 N INT RND 412 NQ 1 GOSUB 10000 GOSUB 3000 GOSU N B 5000 GOSUB 4000 NEXT SO3O IF T O THEN 5060 520 GOSUB 2000 GOSUB 10000 GOSUB SOOO 9040 FOR S O TOT 1i IF N NCS TH GOSUB 10000
107. I SGUETTE CLEMAX EQU 300 STOCK D ERNIERE CLEZCHAQUE SECTEUR SAC EPZ POINTEUR DANS LA ZONE CLEMAX ADRESSE DE L ENREGI STREMENT 50 STA ADR X 51 INY 52 INX 53 LOA INB Y 24 STA ADR X 55 LDX 0 56 57 LOA INB Y 58 BNE S2 jSI lt gt 0 gt RESTE DES CLES EXAMINER 5 LOA 1 31 DES CL ES POSSIBLES EST EN FIN BUFFER 60 STA ABL s AUTRES P OSSIBLES SUR SECTEUR SUIVANT 61 RTS 52552 LDX 0 PASSAGE LA CLE SUIVANTE 63 LDA SY DANS LE BUFFER 4 CLC 65 LT2 6 ADC 2 TAY 8 LOA BNE S2 70 RTS 71 ADR DFS 10 ADRESSES DES ENREGI STREMENTS 22 CLE DFS FF CLE RECH ERCHEE 23 SYO DFS B POSITION S DES CLES POSSIBLES 24 INF 7S END Programme CLAS SCE 1 JF HF FEE E 3E JE JE JE XE X e JE JE JE D JE E JE JE Je EE X ROUTINE DE RECLASSEMENT 4 LISA 1 5 5 CODE CLAS OBJ 7 y X 3 3E E JE JE E JE JE E JE JE JE E E JE JE JC C EC E EC E OE E E 8 9 ORG 1000 10 OBJ 800 11 2CC EP2 65 OEBUT 20 NE CLES CLASSEES ZET 2 8 DEBUT 20 NE CLES URAC 13 BUF 2 18 ADRESSE DU BUFFER 14 2CCP EPZ 14 DEBUT 20 NES TRAVAIL 15 2 EPZ 1C 0 14 2 1E PFC SFC PISTEZSECTEUR DU 1 SFC 2 1F DERNIER SECTEUR CLASSE 18 PFT 2 s PFT SFT PISTE SECTEUR DU 19 SFT
108. INT LOAD F19 PRINT POKE 103 PEEK 175 P 104 PEEX 1762 PRINT LOAD F28 PRINT CALL 37500 65 PRINT CALL979 REM PATCH A AVRANE 90 PRINT Det CLOSE PRINT Daj EXEC DIF Pomsn 15 N D L R 1 Plusieurs lecteurs nous ont signal quils avaient r solu les probl mes concernant la copie sur imprimante des crans de pr sentation des dis quettes Pom s La solution adopt e consiste alors toujours envoyer l imprimante les codes permettant de supprimer l affichage simultan l cran Nous n avions peut tre pas assez in sist sur ce point dans les num ros pr c dents mais il est certain que si l interface dont vous disposez affiche l cran en m me temps qu elle en voie les caract res l imprimante l cran ainsi recopi est simultan ment modifi et ne peut correspon dre l cran original Si tel est votre cas il suffit donc de rajouter un PRINT du code de contr le supprimant cet affichage sur votre mat riel dans la ligne du pro gramme MENU des disquettes qui appelle la routine de hard copy g n ralement la ligne 70 Cette ins truction PRINT code de contr le doit venir juste avant le CALL 37989 2 Plusieurs lecteurs nous ont par ail leurs retourn des disquettes d trui tes la suite dune fausse manoeu vre sur laquelle il peut tre bon dinsister un instant En l occurrence les personnes concern es ont tape EXEC Fichier alors qu
109. INT P P MOD 5 0 0 MOD 5 0 AND 1 1210 IF P 5 OR P 5L S S OR 0 5 OR 0 gt 5 gt 5 THEN 1180 1220 Po nts forme 1230 WHILE MOUSE 0 0 R MOUSE 1 NS S MOUSE 2 NS IF R 1 OR RL OR S 1 OR S M THEN 1260 1240 J R S 1 K S S LT R 15 316 2 8 S 1 4 T IF 1 THEN PUTCJ K F PRESET A S A S AND NOT H R CI6 T 3 ELSE PUT J K F PSET A S A S OR H R 16 T 3 1250 PUT 376 21 A PSET 1260 WEND GOTO 1180 1270 N ASC W 48 1F N lt O OR N 9 THEN 1180 1280 IF N 1 AND 54 OR N 2 AND 1 OR N 3 AND L 64 OR N 4 AND L 1 THEN 1180 ELSE 13 16 N Poms 15 R 2 338 R 3 R 1 15 4 480 1290 FOR 0 3CALL INVERTRECT VARPTR R FOR Ds0 TO 50 NEXT NEXT U L S V M SON N GOTO 1370 1410 1440 480 1510 1610 1650 920 1680 1300 Effacer forme 1310 GOSUB 2150GOSUB 18S0 CALL MOVETO 124 124 PRINT WV effacer GOSUB 1920 GOSUB 2070 1320 F D THEN 1340 ELSE 108 92 5 5 5 5 5 5 5 50 362 7 454 89 30 FOR 1 3 TO 218 A I O NEXT IF F GOSUB 1830 1330 GOTO 1180 1340 108 92 5 1350 IF MOUSE 0 O THEN 1350 ELSE 1180 1360 Ajouter ligne 1370 GET 3 V 1 U 9 V 7 MPUT 3 V 6 M PSET LINE S V 6 U 5S V 10 30 BF LINE S V 1 3 U 9 V 13 CALL MOVETO 342 156 72 Supprimer ligne 1380 M M 1 1F F THEN LINE S V 10 U S V 10 FOR 1 1 TO L LLINE GI S V S I S V 10 NEXT 1390 GOTO 114
110. Lane War rnaton Cheshire WA2 8PR GB Version Soft 68 rue Castagnary 75015 Paris T l 530 0528 Froggy Software 33 avenue Phi lippe Auguste 75011 Paris Polaroid France 4 rue J P Tim baud B P 47 78391 Bois dArcy Cedex T l 3 460 6166 Shift Editions 27 rue du G n ral Foy 75008 Paris Pom s n 15 Utilisateur d AppleWriter sur une Oki84 je ne parviens pas imprimer le L Oki84 ne semble en effet pas reconna tre le caract re de d placement gauche Ctri H utilisable avec les autres imprimantes Jean Marie Hasquenoph Chelles Avec les Oki le backspace ne fonc tionne pas Par contre sur mon Oki 92 ce devrait tre la m me chose pour une 84 j obtiens comme vous venez de le voir un en appuyant sur un tr ma non suivi d une lettre Pour tester toutes les possibilites de caracteres de votre imprimante cr ez un fichier avec toutes les touches de votre clavier en mode normal puis Shift puis Ctrl puis Ctrl Shift et enfin Esc Vous aurez peut tre des surprises avec votre imprimante dans ce cas enlevez ce qui plante limpri mante mais cette recherche syst matique peut vous permettre de trouver des solutions des proble mes tels que le pr c dent 77500 Vends Apple Plus avec carte lan gage 16K joystick paddles moni teur et deux lecteurs de disquettes Prix 15 500 F d battre Avrane 124 quai Louis Bl riot 75016 Paris
111. Lapautre Cet essai a t r alis sur un Apple ile muni de deux lecteurs de disques souples Notre impression g n rale sur ce logiciel de gestion de fichiers tient deux mots PUISSANT COMPLEXE Premier contact Enfin un bon Guide P dagogique Ne parlons pas de ses qualit s p da gogiques proprement dites on a d j fait mieux il manque en particulier certains fac simile d cran Mais il s pare TRES NETTEMENT l essentiel d crit dans un quide p dagogique simplifi les options ou fonctionnali t s plus complexes r unies dans un quide p dagogique avanc et les d tails suppl mentaires d usage moins courant mentionn s seulement dans le manuel de r f rence Exemple dont beaucoup pourraient sinspirer De nombreux logiciels proposent au jourdhui une disquette Tutorial pour les tous premiers pas Compte tenu de la complexit d Omnis 2 sur laquelle nous reviendrons cette solu tion aurait peut etre pu tre retenue Les disques Regrettons une ambiguit d s le d part apr s avoir montr le danger de travailler avec les disques origi naux on explique comment faire des copies des disques Program et Utili ties au passage pourquoi pas Pro gramme et Utilitaires 2 Mais on ex plique aussi que le disque Boot ou System m me remarque suscepti ble pourtant des m mes avanies que les autres n est pas copiable ll y a l de quoi perturber grandement un n ophyte Ce nest que b
112. N DU C 1088 48 1 69 PHA URSEUR 108C C8 170 INY 1067 132 1080 81 1741 LDA KTA8SLE Y 1057 18 133 CLC SMSB INDEX FORME 1068 AS EO 134 LOA PXL 108F 65 CF 172 ADC TA8LE 1 1060 4569 06 1 35 ADC TRANS 1091 48 1 73 PHA 106C 85 EO 136 STA PXL 1092 174 105E DO 02 13 BNE SUITE 1092 A6 EO 175 LDX PXL 1070 5 El 138 INC PXH 1094 44 174 LDY PXH 1072 139 1096 AS 2 177 LDA PY 1022 140 5 4 SUIVAN 1098 20 11 F4 173 JSR 5 109B 68 179 PLA 1072 141 109C A8 180 TAY 1072 68 142 SUITE PLA 102D 68 181 PLA DEPILE LE NUMERO CARACTERE 109 182 1023 8 143 TAY 109F A9 00 183 0 1074 8 144 3 ROTATION NULLE CARACTERE SUIVANT 10A 1 20 01 F 184 JSR DRAW 1075 C4 08 145 CPY LONCH 1964 185 EST CE FINI 2 10A4 2C 58 FF 186 8IT RETURN 1077 00 D1 144 BNE WRITE 10A 7 60 187 RTS NON ON CONTINUE 18 188 1079 147 10 8 18 SHAPE 1079 148 46 RESTITUTION ENVIR 0046 190 LONG EQU SHAPE DEB ONNEMENT HAUTE RESOLUTION 1079 149 1088 18 65 CE 48 65 1128 58 49 02 00 52 22 20 24 HGRECR LIB 1090 CF 48 46 EO 4 El AS E2 1130 2C 00 08 24 36 06 00 1098 20 11 F4 68 A8 68 An A9 1138 67 OC 6C BE 2D 1E 1000 20 58 FF CA CA 18 10 0 00 20 01 amp 2C 58 60 1140 2E 1E FE 2C OO E 25 1008 68 69 46 85 CE 68 00 1048 3F 00 80 OO 84 OO 84 OO 1148 15 F5 15 1F 15 77 1010 85 CF AS E4 48 A5 E 48 1080 90 00 9
113. O X2 150 CALL 50 1 20 4 5 4015 ST 1 1 FOR L Y TO 1 50 STEP 5 77 2 Z7 FOR XI 2 STA TO X2 2 STEP STA 1 HPLOT C L NEXT NEXT NEXT 4020 A HI S T O G R A M H E CALL 4 50 160 4700 RETURN 4995 REM RESEAU 5000 HCOLOR 5005 FOR 1 TO 10 FOR J I TO 10 5010 R RND 10 IF R B AND R gt 2 THEN HPLOT X lt I YI TO X lt JY 5020 NEXT NEXT 5030 FOR I 1 TO 10 CALL HM R CI X 1 Y lt I NEXT 5040 A RE S E U CALL 44 180 10 5100 RETURN 5995 REM DEMO AUTO 6000 1 6005 POKE 16302 0 ON GOSUB 1000 4000 5000 2000 3000 6010 FOR 1 1 TO 1000 IF PEEK K 127 THEN RETURN 6011 NEXT 6015 B B 1 IF gt 5 THEN B 1 6020 GOTO 6005 9999 REM JHENU PPAL 10000 TEXT NORMAL HOME S 16336 KS 1636B K 163 10010 GOTO 11000 10020 FOR I 1 40 PRINT NEXT RETURN 10030 INVERSE PEEK S PEEK S PEEK S PEEK S 10040 VTA8 10 I PRINT MSCI NORMAL RETURN 11000 GOSUB 10020 PRINT DEMONSTR ATION ECRITURES PRINT EN PA GE GRAPHIQUE HAUTE RESOLUT ION GOSUB 10020 11010 10 FOR I 0 TO NC PRINT M CI NEXT 11020 I 0 11030 GOSUB 10030 POKE KS 0 WAIT K 1 28 POKE KS 0 A PEEK K GOSUB 10040 11040 IF 21 THEN 1 1 IF 1 NC 1 THEN I O I
114. OKE CLE 1 1 ASC MIDS 2 1 122 NEXT 200 IF NZ THEN R 0 P 0 S 0 GOTO 600 210 CI IC 1 ON CI GOTO 300 400 500 300 GOSUB 50 IF N lt NZ THEN 31 0 305 TT C 1 GOSUB 65 R 0 GOTO 600 310 GOSUB 80 IF R 0 THEN 305 315 IF Q 1 THEN 600 320 N N 1 GOTO 310 400 GOSUB 50 IF N gt 2 THEN 440 410 650508 80 IF O 1 THEN 600 420 IFR 0 THENN 2 1 GOTO 440 430 N N 1 GOTO 410 440 GOSUB 80 IF O 1 THEN 600 450 IF N TT THEN 400 460 N N 1 GOTO 440 Pom sn 15 500 0 GOTO 440 600 650 800 900 950 650 8 20 PRINT CREATI ON IF O 1 THEN 800 660 UTA8 12 HTAB 1 FOR I O 6 INPUT 2Y I NEXT IF LEN ZY 4 gt 1 OR LEN ZYS 5 gt 1 OR LEN 2 62 gt 1 THEN 66 0 670 IF PL K lt gt O THEN A PLX PL PL PL I GOTO 690 680 NF NF IA NF 690 GOSUB 8 700 LT L AA IF OO LT 5 lt NN 1 THEN 720 IF gt NN THEN 255 AND TT lt 710 TT x TT 1 00 0 MS PLUS DE PLACE GOSUB 5 NN 1 GOTO 100 715 TT C 1 GOSUB 65 220 2 BU 00 POKE ZB LT POKE cB I U FOR 1 1 TO L POKE ZB 1 I PEEK CLE 1 1 s NEXT z FOR I 4 TO POKE 2B L I 2 ASC cZY CI NEXT 225 POKE 28 LT 2 INT A 256 y POKE 28 LT 3 0 256 INT A 256 POKE ZB LT 4 0 230 OO OO LT 4 C 2 GOSUB SzIC 1
115. OTO 1720 1760 376 0 20 60 0 720 1770 Sous programmes 1780 Backpat Penpat 1790 FOR 1 1 TO 4 1 amp 1800 Grille curseur 1810 C 30 OR 1228 TO 180 STEP 152 FOR J I TO 1 128 STEP 8 LINE CJ 60 J 18B C NEXT FOR J 60 TO 188 STEP 8 LINE CI J 1 128 J C NEXT NEXT RETURN 1820 Grille forme 1830 30 OR F J L S S K M S 5 FOR 1 5 TO J STEP S LINE I S CI K C NEXT FOR 1 5 TO K STEP S LINE S 1 J D CNEXT RETURN 1840 Cadre message 1850 GET P Q R S M 1860 LINECP Q R S 30 8F LINE P Q R S B CALL PENSIZE 2 2 YLINE P 2 0 2 R 2 5 2 8 CALL PENNORMAL RETURN 1870 Impression 1880 LPRINT CHR 27 gt CHR 27 CHR 27 T1 4 W sSTR R P 1XY SPACE A LEN W W 0 S Q 1 T 0 7 IF O 7 THEN T T 1 1890 FOR 1 1 J P TO RN O FOR K 0 TOO 0 1 1 27 K Q IF OS THEN 1900 ELSE IF POINT J 0 AND 1 THEN N N OR 15 1900 NEXT W W CHR N NEXT LPRINT CHR 27 W1 CHR 27 767 Y WNEXT RETURN 1910 OK Annuler 1920 CALL MOVETO 228 156 PRINT OK CALL MO VETO 308 156 PRINT Annuier R 1 140 R 2 196 R 3 164 R 4 276 CALL FRAT ROUNDRECT VARPTR R 1 12 12 1930 R 2 292 R 4 372 CALL FRAT ROUNDRECT VARPTR R 1 12 12 CALL PENSIZE 2 2 R 1 1 36 R 2 1 92 R 3 168 R 4 280 CALL FRAMEROUNDRECT VARPTR R 1 20 20 47 CALL PENNORMAL RETURN 2100 IF ASC w o13 AND ASC w o3 THEN 2070 ELSE D 0 1940 S
116. PE La mode ac tuelle est plut t d utiliser les touches POMME Ne prenons pas parti Les touches POMME pr sentent lavantage tant non classiques de servir assez normalement tout ce qui nest pas entr e de donn es Mais elles sont sp cifiques des ver sions e et c et d autres comman des doivent bien tre adopt es pour les versions ant rieures de l Apple ff n existe pas de commande ou du moins n en avons nous pas rencon tr e dont on ne puisse pas sortir si on y est entr par m garde Voil qui est rassurant Seule la frappe inop portune de Q dans le menu sus tem peut renvoyer hors du pro gramme Ce nest pas bien grave aucune donn e n tant alors perdue La cr ation d une structure de fichier La puissance On peut peu pres tout faire dans ce domaine quil sagisse de la pr sentation des crans e de la d finition des rubriques des nombreuses options de format qui leur sont associ es des modes de contr le des en tr es de la d finition des rubriques cal cul es On peut aussi alors que cest un point faible de nombreux logiciels de gestion de fichiers modifier la snruc ture de fichiers existants sans perte d informations Au prix toutefois de nombreuses jongleries avec les dis ques Regrettons seulement la limitation une ligne de l en semble nom d cran contenu la limitation 7 caract res du nom de rubrique
117. PEN PL PRINT D UR 35 NZ NZ 1 TT TT I ITE PL PRINT 0 PRINT 0 PRINT 40 PC INT NZ Z 162 5 NZ 16 D CLOSE PRINT D PRMWO Programme REC SCE 23752 STA LT2 24 INY T 2 EE 3 jx RECHERCHE D UNE CLE 2 STY POSITION p DEBUT DE CLE 5 8 8 29 50 LDA CLE X COMPARAI 8 36 INB Y 9 ORG 9000 ae ns 10 OBJ 800 Disc LONGUEUR 3r DE MR A CLE 2 12 INS EPZ 8 jaDRESSE DU BUFFER hm 2 ie Re GUEUR ede CLE DU BUFFER dcus B DE LA CLE LUE DANS LE BUFFER 2 14 LT2 2 19 LONGUEUR 22 Pos TOTALE CLE LUE DANS BUFFER 55 vb 15 RES EPZ 16 RESULTAT p s ee RECHERCHE NBRE CLES POSSIBLES e t SY EP2 18 SPOSITION CLE TROUUEE DAMS BUFFER Pm he 17 ABL EP2 10 DRAPEAU 25 FIN DE BUFFER 18 LDX 0 44 TAX 2 45 LDA SY 1 STX RES 20 STX ABL 46 GLC 21 LOY HO 4 ADC LT2 CLE DU BUFFER 48 TAY 22 LDA INB Y 49 LOA INB Y STOCKAGE Pom s m 15 STE SECTEUR POUR RWTS S 2 ED LONGUEUR TOTALE DE LA CLE ZTPP EPZ EE LCT 2 LONG TO TALE PETIT CLE DU VRAC SZC 2 F9 POINTEUR FIN ZONE CLASSEE S2T EPZ FA POINTEUR FIN ZONE VRAC SYC EPZ FB POINTEUR DEBUT CLE DANS BLOC CLASSE SYCO EPZ FC POSITION GRANDE CLE DANS SON BLOC LCT2 EPZ FD LONG TO TALE D UNE CLE DU VRAC SYB EPZ FE POINTEUR DANS BUFFER RECOPIE D
118. ROUNDRECT V ARPTR R 1 12 12 PUT POS D 7 3 144 E PRESET PRINT 2 2 C C 1 CALL FOVETO 124 124 GOTO 1980 2220 IF ERR 74 THEN PRINT Volume inconnu I GOTO 2290 2020 X INKEY IF X THEN 2040 ELSE IF 0 6 1 THEN 2230 IF ERR 64 THEN PRINT Nom incorrect GOTO 2290 2020 2240 IF ERR 61 THEN PRINT Disquette satur e GOTO 2290 2030 P MOUSE 1 Q MOUSE 2 IF lt 292 OR gt 371 OR Q 140 OR 5250 IF ERR 70 THEN PRINT Disquette prot g e GOT0 2290 Q 163 THEN 2020 ELSE 2050 2260 IF ERL 390 OR ERL 1090 OR ERL 100 THEN PRINT 2040 IF ASC X O 13 AND ASC X lt gt 3 THEN 2020 Lecture Impossible GOTO 2280 2050 108 Q 92 G0SUB 1860 RETURN 2270 IF ERR 53 THEN PRINT Fichier introuvable 2060 Saiste OK Annuler 2280 GOSUB 2020 IF ERL 380 OR ERL 390 THEN RESUME 380 2070 w INKEYS IF wo THEN 2100 ELSE IF MOUSE 0 1 ELSE RESUME 1080 THEN 2070 2290 GOSUB 20201 660 THEN RESUME 660 ELSE IF 2080 P FOUSE 1 Q FOUSE 2 IF Q 140 OR Q gt 163 THEN 2070 ERL 380 THEN RESU 380 ELSE IF ERL 1620 THEN 2090 IF 195 AND P 276 THEN D 0 GOTO 2110 ELSE IF P gt 291 RESUME 1620 ELSE RESUME 1080 AND P 372 THEN D I1 GOTO 21 10 ELSE 2070 54 rue de Dunk Rn cup 7 09 SURPRIS LES PRIX ni Metro Gare du Nord 100 m PRIX T T C POUR APPLE ET COMPATIBLES Diskettes U S 5 1 4 SF SD 139 F boite 10 exp min 5 boites Port 27 F Diskettes 5 1 4 SF DD 170 F boite 10 exp min 5 boites Port 27 F Lecteur diskett
119. S NN la derni re cl de chaque secteur class 0 contiendra DU PONT si DUPONT est la derni re cl stock e dans le secteur et ainsi de suite Si l on cherche une cl quel conque XXXXXX on lira en m moire le dernier secteur S pour e quel lt NS S Si aucun secteur class ne r pond cette condition on cherchera alors 56 quence dans les secteurs de vrac et de m me si l on ne trouve pas dans le secteur class potentiel S Fichiers manipul s Notre syst me de table de r f rence ne peut g rer qu un seul fichier de donn es par disquette Par contre d autres fichiers de toutes sortes peu vent etre utilis s conjointement en DOS 3 3 standard En particulier deux petits fichiers annexes sont n cessaires la gestion du syst me Un fichier contenant les parame tres de la table de r f rence der nier secteur class 2 dernier secteur en vrac TT derni re adresse attribu e un enregistre ment NF premier octet libre dans le secteur de vrac en cours OO statut de la table vis vis du classement qui vaut si tout est class 1 si on a la fois du vrac et du class 2 si nen n est class Ce fichier est baptis FP Un fichier contenant les adresses ventuellement lib rees par des annulations denregistrements et baptise PL Analyse du programme de d monstration s agit dun programme classique de gestion de fichier permettan
120. SEC 270 LDA byte 203 RTS 271 ADC vfst 204 SADCMD JSR SOUND 222 7c Pom sn 15 9 273 PSNBYT PHA 274 LDA 0 279 JSR PSNBRAC ciens gt p 226 PLA STA byte 2798 JSR SHOUBYT 279 LOA 30 280 JER PSNBRAC Ouveaux gt lt 2B1 CLC 282 RTS 283 284 PSNBRAC PHA 285 NXTBRAC SEC 286 LDA byte 287 SBC base la demi page 288 STA temp 28 LOY display 290 NXTBRI ute 2921 ste la demi 292 SAMEPAG 293 JSR PRBUF demi page besoin 294 JMP NXTBRAC 295 SAMEPAG LER 2 296 LSR 4 8 caicule ligne 597 LSR 298 TAX E 299 LDA temp t 300 07 osition dans la tigne 301 BPL 2 uJour s 302 NXTBR1 L SR 303 LSR 304 LSR 16 modes et H 305 LSR 306 307 LDA temp 308 ANS osition dans 1 ligne 309 NXTBR2 STA temp 310 TXA ligne 311 CLC 312 4153 STA curCU 314 JSR TABU 319 temp position dans la ligne 316 ASL Caract res par octet 317 318 LOY display 2 319 BEQ PRBRS ute 320 DEY 321 BEQ PRBR4 ute 322 ADC 4 I marge 4 323 TAY 324 PLA le code 10 sefface atfiche dCtermine mode mixt gt sa 3001 gt te ichange de sdivise sreste p saute to sdivise pa sreste p sr Ccup re r lt cup2re double 2 mode mixt jou gt mode hexa jou gt sa mode ASCI 329
121. STROSE EXIT START jmp 48 108 4108 GORWTS DU31 3 RETRYCNT 01 30 T8LUALUE Y IOBTRACK CBASL Y DU20 2 mp 126 127 128 129 130 131 132 133 134 135 136 137 138 1 39 140 14I 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 152 158 159 140 161 162 163 164 165 166 167 168 169 170 NZ I 173 174 125 176 177 178 179 1 181 182 183 184 185 186 187 188 189 190 171 192 193 194 195 196 197 198 DU31 3 LDA LSR LSR LSR LSR TAY LDA BNE 093179 INC LDA CMP BCC I OB STAT TBLSTAT Y DU31 2 4mp e 1 OBTRACK I OBTRACK 23 DU2 I Autre disque ou quitte EXIT LDX LOOPEXIT LDA BEQ STA INX BNE STA LDX JSR 8CS JSR JMP LOOPX 0 LOOPX 1 BYE 430 MSG2 30 X LOOPX 0 SYMBOL 80 X LOOPEXIT TRAP 438 GETKEY BYE GOSTART HOME DOS Saisie touche curseur special 2 x EL STX SCREENI STX SCREEN2 BNE PUTKEY J mp WAITKEY LDA SYMBOL SCREENI 2 EOR 91 PUTKEY STA SYMBOL SCREEN2 2 LOA 6 JSR WAIT LDA KEYBOARD BPL WAITKEY STA STRO8E PHA LDA 8LANK STA SYM80t 80 X STA STROBE PLA ESC BEQ CHECKEY2 BEQ CHECKEY1 CPX 80 GETKEY CMP 1 GETKEY CMP 9 BCS GETKEY STA SYMOBOL S S 00 X
122. T X Y REAL MODE INTEGER PROCEDURE LIMIT OQ MIN X MA X YM IN YMAX REALO 1 PROCEDURE SCALE OXMIN XMAX YMIN MAX REAL PROCEOURE SHOU MIN WAX YMIN Y MAX REALO PROCEDURE AXES XT IC YT IC XINTER YINTER REAL IMPLEMENTATI ON M VAR COSAL SINAL CURX CURY Lr PX PY OX DY REAL HCOLOR 1 SCREENCOLOR PENDOUN 800LEAN LXMIN L YMIN LY 4AX INTEGER FUNCTION FX X REAL BEGIN FX ROUND lt X P X5 DX ENO FUNCTION FY Y REAL INTEGER BEGIN FY ROLNDKEY PY 0Y END j b m E PROCEDURE FRAME UAR DX OY INTEGER BEGIN TURTLEX OY TURTLEY PENCOLOR NONE MOVETOCCXMIN LYMIN PENCOLOR CHCOLOR MOVETOCUXHMAX LYMIND MOVETOCUMAX LY 1920 HIM UETOCUXMIN L YTWAX MOUETFOCUQOTIN L YMIN PENCOLOR NONE MOVE TOC OX OY END PROCEDURE PENUP BEGIN PENOOWN FALSE END j PROCEOURE POIR BEGIN COSAL COS ALPHA SIMAL SINCALPHA ENO PROCEOURE PEN BEGIN HCOLOR COLOR PENDOUN TRUE END PROCEDURE CMOVE BEGIN CURX X a Y PENCOLOR NONE MOUETOCFXOX EYCY22 ENO PROCEDURE CDRA BEGIN CURX w X CURY Y PENCOLORCHCOLOR MOUETOCEXCX2 FYCYO ENO PROCEOURE PLOT BEGIN CASE OF l sBEGIN IF PENDOUNsSFALSE THEN CHOUE X Y CORAM Y PENOOLPY TRUE END 2 018 GIN 60 comme GRID quadril que DIGITIZE de sauvegarde sur ROSE li ser
123. TION BASE 1 i faut utiliser les indi ces 1 et 2 au lieu deO et 1 Call HidePen Inhibe le crayon Tout se passe comme si les instructons graphiques taient ignor es Call ShowPen Redonne son efficacit au crayon Call PenNormal Le crayon reprend les caract risti ques qui lui sont donn es au mo ment de linitialisation valeurs par d faut Call PenSize 1 1 Call Pen Mode 8 etc Call MoveTo X Y D place le crayon sans tracer de ligne la pesition horizontale X et la position verticale Y Pom s n 15 Call Move XR YR D placement relatif de XR points par rapport la position horizontale ac tuelle du crayon et de YR points par rapport la position verticale Ainsi si la position courante est X 100 et Y 100 l instruction Call 10 10 reporte le crayon l emplacement X 110 Y 90 Les instructions Call MoveTo et Call Move peuvent aussi tre utilis es pour d terminer la position des pro chains caracteres affich s par PRINT ou WRITE Call LineTo X Y Trace une ligne entre la position cou rante du crayon et les coordonn es X horizontale et Y verticale Call Line XR YR Trace une ligne entre la position cou rante du crayon et les coordonn es relatives XR et YR voir Call Move Gestion du texte Call TextFont police Autorise le choix de la police de ca ract res Les indications fournies ci dessous sont valables avec un dos sier sys
124. TO NZ NS I SB SB Li d GOTO 3020 NEXT 3055 FOR 1 O TO L2 1 29 Z 60 PEEK 235 5 PEEK 236 CHR PEEK BU SB 129 NEXT NZ w 16 S 1 FOR 256 w PEEK BU SB Li 0 TO 2 PEEK 768 2 I PEEK BU SB 1 I UTAB SY PEEK 769 2 I B 10 1 PRINT 2 CALL B 256 SY J 0 1 PEEK lt 868 PRINT 58 SB L1 4 B 2 AA 3060 GOSUB 0 GET 2 IF 2 S 70 NSCID N CI PEEK THEN 2000 J I IF J lt L THEN 7 3070 PRINT GOTO 3020 0 80 NEXT TT NZ 1 11 0 00 0 PRINT PRINT D OPEN FP PRINT D WRITE PRINT NZ PRINT Programme CLAS NF PRINT TT PRINT 00 PRINT II FOR 0 TO NZ PRINT NS HIME 4095 12 NEXT PRINT D CLOSE PRINT 7 DIM N 47 D PRMWO 10 D CHR 40 PRINT D BLOAD C LAS OBJ PRINT D OPEN PRINT 0 READ FP INPUT 2 00 11 FOR 1 0 TO 2 INPUT N Programme INIT 12 NEXT PRINT D CLOSE AA 3 20 IF 11 0 THEN END 5 NN 47 25 NZ NZ 1 TT 10 D CHR 4 PRINT D INIT H 30 38400 256 w NZ AN AC ELLO PRINT D OPEN PRINT NZ 256 POKE 6 0 POKE D URITE PRINT 1 PRINT 7 256 POKE 8 0 9 A 0 PRINT 0 PRINT 0 PRINT 2 N 256 POKE 24 0 POKE 25 21 Z FOR 1 O TO NN PRINT POKE 214 11 1 2 NEXT 33 POKE 26 0 POKE 28 0 20 PRINT D O
125. TURN AS ORNE HPLOT 120 51 TO 117 49 TO 113 49 TO 110 44 TO 114 37 R ETURN AS RANCE TO 87 57 TO AS AULNE HPLOT 79 57 TO 83 58 88 52 RETURN HPLOT 65 53 TO 62 58 TO 59 58 TO 54 56 RETURN AS BLAVET HPLOT 68 55 TO 72 59 TO 72 63 TO 67 69 RETURN AS VILAINE HPLOT 103 60 TO 90 62 TO 88 71 TO 79 75 RETURN AS MAINE HPLOT 108 75 TO 8 RETURN AS MAYENNE HPLOT 114 54 TO 113 55 TO 110 54 TO 107 56 TO 105 62 TO 106 70 TO 108 75 RETURN AS SARTHE HPLOT 124 52 TO 122 54 TO 116 56 TO 116 60 TO 119 67 TO 111 69 TO 108 75 RETURN AS LOIR HPLOT 133 58 TO 136 60 TO 134 68 TO 130 70 TO 122 72 TO 118 72 TO 108 75 RETURN AS NIEVRE HPLOT 165 80 TO 162 88 RETURN AS ARROUX HPLOT 182 86 TO 1278 93 TO 176 100 RETURN AS ALLIER HPLOT 171 135 167 128 TO 165 115 TO 168 109 TO 166 97 TO 161 93 TO 162 88 RETURN AS CHER HPLOT 153 112 TO 155 1 O7 TO 155 97 TO 150 92 TO 149 86 TO 145 82 TO 125 79 RETURN AS INDRE HPLOT 150 100 TO 146 99 TO 144 94 TO 142 92 TO 135 90 TO 129 83 TO 120 83 TO 119 81 RE TURN AS VIENNE HPLOT 147 117 TO 143 116 TO 136 112 TO 134 114 TO 126 112 TO 126 100 TO 124 96 TO 124 87 TO 118 84 TO 116 81 RETURN AS CREUSE HPLOT 148 113 TO 148 z109 TO 140 101 TO 140 99 TO 137 97 TO 131 95 TO 127 88 TO 124 87 RETURN SEVRE NANTAISE 1O 7 2 HPLOT 103 96 dA 18 6270 6280 6290 6300 6310 6320 6330
126. U URAC 239 CLC STOCKAGE od STA 2 1 DANS BUFFER AVEC CHANGEMENT 293 LDY 0 236 ADC 85 PREALABL RAZ INOI E DE SECTEURR SI NECESSAIRE CATEUR RESTE DU VRAC 20 7 Pom s n 15 20 293 STY EMINT ON CHERC ETE ANNULEE HE UNE 1ERE PETITE POSSIBLE 351 CHP COMPAR 295 C5 EDO Seb DES DEBUT CL AVEC PETITE POTENTIELLE E URAC DU BLOC 352 BEQ C 295 STA LCT 353 BCS SCMINT IN 297 STA LCT2 FERIEUR ON LA GARDE 298 INY 354 C11 LDY SY ON CHANG 299 LOR seo TE E LE CMINT 300 INY 355 LDA lt 2CTP Y 301 SY 356 LDX ZCTP 1 302 CHP FF CLE 357 STX 2 DEJA RECLASSEE 2 358 LDX LUT2 303 PEG C1 35 STX LUT 304 C1000 STA LUT 340 LDX LCT2 305 STA LUT2 341 STX TG T 306 LDA 2 1 362 JME 65 307 STA 2 1 DE 363 OCTET LA PETITE POTENTIELLE MINT OCTET CLE COMPAREE 308 LDA 2 364 INY 309 BEQ LA CLE 345 LDA LM ETE ANNLLEE 366 BNE C10 310 C STY SYM 367 CPX LUT FIN DE 311 LDX 0 LA 1ERE PLUS COURTE UT lt LUT2 CLE NON ANNULEE NON RECLASSEE 358 BNE C9 312 CO STA CMINT X QUE L ON 349 JMP 3001 gt 0 TROUVE EST TRANSFEREE N GARDE CMINT 313 INY DANS CHI 370 C10 CPX LUT2 sFIN DE L NT PLUS COURTE LUT2 lt LUT 314 INX 371 BEQ C11 OUI gt 0 315 LCT2 N CHANGE CHINT 316 C1 372 JMP C9 317 LDA ZCTP Y 373 C12 LDA 318 JMP CO 374 BEQ C13 SIL N Y 319 LDA SY PASSAGE
127. Z 1 si on est la toute premi re utilisation du pro gramme voir plus loin l initialisation d une disquette fichier Inutile donc de chercher dans ce cas et le pre mier secteur de vrac constituer est le secteur O de la piste O Lignes 300 500 appel et ex ploitation de la sous routine 80 86 en fonction du statut du systeme vis vis du classement IC Aux num ros de lignes pr s cette partie pour rait tre utilis e sans changements dans tout autre programme Lignes 700 740 mise en place des l ments d une nouvelle cl dans le secteur de vrac courant Les trois octets d informations an nexes sont donn s par les trois der niers l ments du tableau ZY Pom s n 15 On calcule d abord la longueur totale LT Chaque cl occupe LT octets plus 2 pour les deux longueurs sto ck es plus 2 pour l adresse de l en registrement elle sera en outre suivie dun 0 lors de son entr e dans le secteur de marquer la fin des donn es utiles pour ce dernier Il faut donc LT 5 octets libres dans le sec teur courant pour y mettre notre nouvelle cl ce que l on v rifie tout d abord Si tel n est pas le cas il faut ouvrir un nouveau secteur de vrac dans la mesure le nombre de pistes disponibles le permet lignes 710 et 715 On peut ensuite POKEr les octets et mettre jour la position du premier octet libre dans le secteur OO Par pr caution le secteur ainsi modifi est aussi
128. a page du buffer sans passer par la commande P en utili sant les signes et gt respecti vernent pour diminuer ou augmenter de 100 D sassembleur CTRL D provoque le d sassemblage de la page buffer La barre d espace ment fait progresser d une ligne la touche RETURN d une page cran 12 lignes ESC sort du mode d sassembleur Hard copy d cran CTRL P vous donne une copie irn primante sortie parall le de l cran les caract res inverses et clignotants tant recod s avant impression Cette commande suppose que votre impri mante est connect e dans le slot 1 Q permet de quitter le programme et rend la main au niveau du moniteur NDLR une version en EPROM est disponible pour les lecteurs poss dant une carte RAM EPRONM 5 PARALLELES Vous pouvez cet gard prendre contact avec l auteur Mr Le Tallec 69 rue Sauveur Tobelem 13007 MAR SEILLE SI vous n tes pas encore abonn Porn 5 penzie Woo en uo Source Big s M MEE 70 INUFLG 32 1 3t 3 EE 3E E 3E EE EE EE XE 0 E 3 E EE EXE EXE XE XE 71 YSAV1 35 2 x 72 PCL 3A 3 Mobbxr Disk 7 38 4 n 74 RWTS 3D9 5 Thierry Le Tallec 75 GETIOB 3E3 76 KBD C000 Z 33 3 3 3 3 9 3 9 3 9 3 3 3E 3E 3E 9E 3E 9E 9E 3E 9E 3 9 9 9E 9E 3E 9E 9E 77 KBDSTR 010 8 78 SPKR 030
129. aiste nom fichier 2110 RETURN 1950 CALL 124 124 PRINT Nom du fichier 2 2120 Caract res estomp s CALL MOVETO 308 124 PRINT Annuier R 1 108 2130 GOSUB 1790 CALL PENPAT VARPTR P I R 2 292 R 3 132 R 4 372 CALL PENFODE R 2 338 R 3 R 1 1S R 4 479 CALL FRAPEROUNDRECT V ARP TR R I 12 1 2 CALL PAINTRECT VARPTR R 1 16 140 380 164 CALL PENNORMAL RETURN 1960 E 1 E 2 l6 FOR 3 TO 18 ECD 5 NEXT 2140 Coordonn es cadre message CALL TEXTFONT 4 FOR 1 TO 4 P I ONEXT 2150 P 108 0 92R 388 S 180 RETURN CALL BACKPAT VAAPTR P 1 C LEN Z 2160 Curseur 1970 CALL MOVETO 124 156 PRINT 2 2170 RESTORE SOFOR 1 1 TO 3 READ 1980 X INKEY IF Xo THEN 2000 ELSE IF MOUSE 0 O 1 THEN FOR 1 14 TO 32 33 6 34 6 A A IF A lt 30 THEN 1980 ELSE 2180 D calage PUT POS I 7 5 144 E A 0 GOTO 1980 2190 GET P 0 P lt L 1 0 1 0 376 21 0 1990 P MOUSE 1 Q FDUSE 2 iF P 292 OR P gt 371 OR Q 108 OR PUT S S L S 4 M S 4 0 PSET Q 131 THEN 1980 ELSE A CALL TIBKTFONT O RETURN GET 376 21 439 74 A G0SUB 1830 RETURN 2000 IF X CHR 13 THEN A 0 CALL TEXTFONT O RETURN ELSE 2200 Erreurs IF X CHR 8 THEN IF C O THEN 1980 ELSE C C 1 2210 CLOSEGOSUB 1860 CALL MOVETO 324 156 PRINT Z LEFT S CXLINECII 7 141 379 16 35 30 BF GOTO 1970 RCI 2140R 2 9292 RG 8164R 4 9372 2010 IF 2 56 THEN 1980 ELSE CALL FRAPE
130. ait tr s facile d ajouter lage de l cran les instructions de disque d crans graphiques GLOAD quelques instructions HP qui lui saisie automatique sur l cran graphi et GSTORE IF PENDOUN FAaLSE THEN CHOUE X Y CORAMCX Y 31PENDOUR FALSE END 2 BEGIN PEJNOOLP FALGSGE CHOUECOX Y END 1 BEGIN PENDOUN TRUE CORAWCX Y PROCEDURE RPLOT AR OCURX OCURY XCART YCART REAL BEGIN OCURX CURX OCURY CURY XCART m CURX XeCOSAL Y SINAL i YCART CURY X SINAaL Y COSAL PLOT XCART YCART MODE CURX OCURX CURY m OCURY PROCEOURE IPLOT VAR XCART YCART REAL BEGIN XCART CURX X COSAL Y SINHAL YCART CURY X SINAL Y COSAL PLOT XCART YCART MODE ENO PROCEDURE LIMIT BEGIN LXMIN ULYMIN FY YMIN FXOT AX LMAX m FYCYMAX ULEWPORTCLX MIN WOX LYMIN LY AX PROCEDURE SCALE BEGIN PX XMIN PY YMIN OX 279 0 XMAX XMIN DY 91 YMAX YMIN LIMITOXMIN XMAX YMIN YMAX END PROCEDURE SHOW BEGIN IF YMINCOXMIN THEN XMIN ELSE IF gt THEN XMAX TMAX ELSE MAX PX XMIN PY YIN DX m 191 XMAX XMIND DY OX LIMITOXMIN XhIAX Y MIN YP3AX0 END PROCEOURE AXES VAR I X Y PAS INTEGER BEGIN PENCOLOR NORE ROUND FYCYINTER gt PENCOLOR HCOLOR MOLETO 279 TURTLEY PENCOLOR NONE
131. amme Tout un menu est affi ch par symboles les l ments sont w 7 Informatique GMS 212 214 avenue Daumesnil 75012 Paris simples et les combinaisons infinies Enfin il v a GMS une quipe de pro fessionnels qui vous accueilleront et vous conseilleront personnellement Alors tout ce que vous avez toujours voulu savoir 345 28 52 Apple t UX S GUE1 A CAY2AC amp CAMARO La r putation de vient elle de faire un saut quantitatif La presse micro informatiqiae devient elle folle Nous ne savons quelle en est la cause principale mais nous avons recu depuis le d but du mois de sep tembre une vingtaine de livres nou veaux portant pour la plupart d en tre eux explicitement sur l Apple Nous avons donc d effectuer une s lection les autres ouvrages tant purement cites la fin de la biblio graphie Experiences d Intelligence Artifi cielle en Basic John Krutch Editions Eyrolles 119 pages Le plus surprenant avec l Intelligence Artificielle Drononcez pour faire dans le vent c est que personne n y est indiff rent les uns y voient l une des plaies d Egypte les autres y devi nent le point de d part du futur d or Ce livre tente de d mythifier ce sujet et propose au lecteur de se lancer imm diatement dans les travaux pra tiques en ex cutant quelques pro grammes en Basic Comme Fan nonce le titre il ne pas d tre exhaustif mais de d
132. an cais mais pour lui faire dire peu pr s correctement l write on the blackboard il faut crire Aille raillte onn ze blakbaurde Nous reparle rons de cette carte Un cran portable pour le c Apr s avoir d j prouv son origina lit avec le StaduP un Apple portable l E F a pr sent au Sicob un moniteur portable pour avec une batterie incorpor e d une auto nomie d environ 4 heures Certes cet cran est sensiblement plus volu mineux que le c mais il comporte une batterie ce qui ne sera pas le cas de l cran plat du c toujours at tendu en France Prix 2 590 FF HT Voir la photo de couverture de ce num ro 73 74 Des programmes une souris ll n aura pas fallu attendre tres long temps pour voir apparaitre des pro grammes utilisant la souris quipant le e et le c pour Version Soft le cr ateur d Epistole pr sente ainsi VersionCalc le pre mier tableur souris pour le ll pos sede une fonction graphique et per met de cumuler des tableaux et des graphiques Le tout s effectuant avec la souris et des menus qui rappellent furieusement ie Macintosh Attention l utilisation de ce logiciel sur e meme avec une souris peut pro duire des effets surprenants Dazzle Draw de Broderbund pr sente un cran rappelant lui aussi le Macintosh et permet condition de disposer d une souris ou d un joys tick d une tablette Koala etc et
133. ans la construction du double switch de doubler la capacit de leurs disquet Jean Michel Gour vitch tes ll d coupe automatiquement au bon endroit l encoche qui permet au lecteur d accepter la disquette pour enregistrement Attention il vaut mieux v rifier ensuite la surface de la deuxieme face avec un utilitaire genre Locksmith et ne pas l utiliser pour des informations capitales la garantie du fabricant de disquettes ne s applique pas au verso Des yeux pour le Macin tosh BIP distribue la cam ra de digitalisa tion Microneye vendue 5 300 FF HT avec son interface et son logiciel Cette cam ra digitalise une image qui doit tre contrast e et la trans forme en image MacPaint donc mo difiable loisir Elle fonctionne aussi la lumi re artificielle et linfra rouge On peut reprendre un docu ment de la taille d une photo diden tit Parfait pour une utilisation avec le gestionnaie de fiches MacBase de Contr le X qui permet de mettre des images dans les fiches Des yeux pour tous Palette limageur lectronique cou leur Polaroid permet d obtenir des diapositives instantan es ou des photos papier partir de nombreux logiciels courants TGS D cisionnel Graphique Visiplot etc ou d ima ges num ris es Des cordes vocales pour Apple Ediciel vient de sortir la premi re carte de synth se vocale en langue fran aise pour Apple le Porte Pa role Non seulement elle parle fr
134. automati que Sensible Speller de Sensible Software contenant 80000 mets sur un seul disque une performance sur 143K C est malheureusement en anglais et il reste encore inventer un de ces logiciels de correction en francais Le Sensible Speller fonc tionne avec la plupart des program mes de traitement de textes et co te quelques 125 dollars Le programme Spelling Handler de ALS Sunnyvale Californie fait encore mieux avec 90 mots Jeux d aventures Enfin deux jeux d aventure de cr a tion francaise et Para noiak Du niveau des Jeux d aven ture am ricains selon les criteres du sc nario des graphiques et du son Edit s par Froggy Software et distri bu s par Shift Editions Fonctionnent sur 11 Plus e et c Prix 350 FF piece Imprimante marguerite Kardex vient de sortir une machine crire imprimante marguerite co nomique 5 000 FF HT prix public conseill 355 offrant de nom breuses possibilit s Elle fonctionne en parall le mais on peut acqu rir un boitier pour la connexion s rie avec un buffer de 2K 1 500 FF HT ou 4K 1 700 FF HT Une margue rite est fournie d origine mais 9 autres sont disponibles Vitesse d im pression 14 cps Trois pas decri t rer IO et I5 Un mod le r cent 385 vous offre pour 1 000 FF HT de plus des caract res gras un espacement pro portionnel et une impression bidirec tionnelle Deux logicie
135. changera d tat apr s lex cution du PLOT sinon avant son ex cution Par exemple MODE 1 r alise soit un trac soit un d placement selon l tat anteneur de la plume puis baisse la plume le prochain PLOT sera donc un trac MODE 2 ou MODE effectue un trac ou un d placement puis l ve la plume le prochain PLOT sera un d placement MODE 2 l ve la plume puis effectue le d pia HPGRAPH Nicolas Montsarrat cement MODE 1 baisse la plume et effectue le trac CMOVE X Y REAL Correspond l instruction MOVE HP qui n a pas pu tre transcrite sous le m me nom puisqu une pro c dure MOVE existe d j dans le TORTLEGRAPHICS Elle r alise l quivalent dun PLOT X Y 2 CDRAW X Y REAL Correspond jinstruction DRAW HP Elle r alise l quivalent d un PLOT X Y 1 IPLOT X Y REAL MODE INTEGER Cette proc dure effectue un d place ment ou un trac suivant le MODE en coordonn es relatives les coor donn es d origine sont les coordon n es du dernier PLOT CDRAW CMOVE ou RPLOT Exemple trac d un carr de centre 0 0 et de cote de longueur 60 SCALE 60 60 60 60 CMOVE 30 30 IPLOT 6O 0 1 IPLOT O 60 1 IPLOT 60 0 1 IPLOT O 60 1 RPLOT X Y REAL MODE INTEGER Cette instruction est galement une des instructions clefs du Basic graphi que HP Elle r alise un trac ou un d placement relatif mais contraire men
136. cions donc tous ensemble Thieny Le Tallec qui par le biais de l une de ses contributions nous a donn l id e de cette m thode pour illustrer les bienfaits de la gestion de pile notre table de codes afficher mais ORG 300 JSR FCSS SOURCE LISA 1 5 JSR 50 HEX 5 0 100 JSR SU CDCSD3D3A0B200 RTS TSX LDA 101 X STA 6 LDA 102 X STA 7 LDY 1 INC 101 Recapitulation 72 js iie 0300 20 58 FC 20 18 03 CD CS LDA 6 Y U3 0g DS DS Li t 5 AU Bl 00 BEO S1 0310 20 18 03 CD 5 03 D3 0 JSR FDFO 0318 B2 00 amp 0 BD 01 01 BS IN Y 0320 06 BD 02 01 85 07 0 01 ONE S3 0328 FE 01 01 DO 03 FE 02 01 JSR FC 2 0330 B1 06 FO 06 20 FO FD CS RTS 0338 DO EE 20 62 60 db Tiehu iep Ea n a A Tw ys ES NM 58 Porisn l5 HPGRAPH est un ensemble de cedures et de fonctions Pascal per mettant de simuler une partie des puissantes instructions graphiques du Hewlett Packard HP 9845 Ces in tructions se retrouvent galement sur les micros HP HP 85 et 87 Elles ont t d finies sous la ferme d une INTRINSIC UNIT Pascal Il faut donc la placer dans la SYSTEM LIBRARY pour pouvoir utiliser Tout programme utilisant les proc dures HPGRAPH doit commencer comme suit PROGRAM xxxx 5 option Swapping USES TURTLEGRAPHICS TRANSCEND HPGRAPH Voyons maintenant les instructions possibles Definition du format
137. copro priete paye facturation permet tane dintroduire les differences instructions et astices d utilisation Lelivre 176pages 90 00 FF La disquette d accompagne ment 195 00 Pour Apple IL Il plus He Dos3 3 version 48 K ou plus Disquette maitresse Visicak indispensabie P S I DIFFUSION BP86 77402Lagny S MarneCedex FRANCE T l phone 6 006 44 35 P S I BENELUX S avenue de I3 Ferme Rose 1180 Bruxelles BELGIQUE 2 345 08 50 P S I SUISSE Case postale Route neuve 1701 Fribourg SUISSE l Tel 03712 3 48 28 L 1756 64 ar Pascal UCSD sur Apple l por Jacques Rouavit et Poteice Girard L ordinateur Apple li le langage Pascal et le systeme d exploitation UCSO forment a eux seuls le plus peut ensemble de micro in ormatu que professionnelle Une premere partie de cet cuvrage esc consacr e al etude de ces trois elerme nts Sont ensuite abord s les pregrammes de mise en route Enfin les cypes et ins tructions Pascal UCSD sont tudies ce qur permettra au lecteur de se rendre compte de la richesse mais la facilite d emploi du Pascal 232 pages 110 00 Gestion fichiers et de peripheriques pour Apple Il Pascal por Herv Haut Ce livre propose un moyen rapide et facile pour g rer les fichiers et les p riph riques sur Apple De la ges tion de biblioth que l utilisation des p riph riques l auteur propose
138. d place le sommet de la pile en dessous de l adresse de retour du JSR 030 Le fait de revenir alors de la routine par un JMP 0308 ne perturbe pas le d roulement du pro gramme car ayant fait sauter une adresse de retour il n y a pas r elle ment plus de JSR que de RTS Annulez maintenant la manipulation du pointeur de pile en tapant en mode moniteur 30E EA EA EA EA ce qui remplace les instructions pr c dentes pat des NOP Relancez la routine et vous verrez cette fois 5 affi cher deux A en FLASH au lieu d un En voici l explication Au JSR 030C l adresse 307 est empil e Comme il n y pas de RTS dans la routine 30C et ue l on revient par JMP 3308 l adresse 307 constitue toujours le sommet de la pile La routine d butant en FDF8 se termine par un RTS Le processeur r cupere le sommet de la pile soit 30A apres le JSR FDFO et l utilise comme base de l adresse de retour on revient en 30B En 30B on trouve un RTS Le processeur reprend encore le som met de la pile et tombe cette fois sur 307 ui y est remont lorsque 30A a t d pil On revient de ce fait 308 ce qui provoque laffi chage dun deuxi me caract re c t du premier Le m canisme des RTS se fait ensuite normalement puisquil plus d adresse exc dentaire dans la pile Gestion de tables Supposons que vous ayez plusieurs tables d octets g rer lint rieur d un programme
139. de nombreux tableaux comment s et accompagn s de listes permettant de les reconstituer Ciefs pour Visicalc Jean Louis Marx et Alam Thibault Edi tions du PSI 101 pages 100 FF Clefs pour Multiplan par Jean Louis Marx et Alan Thibault Edi tions du PSI 127 Pages 100 FF Ces deux ouvrages comptent parmi les seuls que nous connaissions en langue francaise dans lequels l utili sateur peut trouver un certain nom bre de trucs d utilisation I s agit douvrages de r f rence o toutes les commandes sont analys es dans l ordre alphab tique et comment es en d tail Nous conseillons utilisation de ces Clefs pour se renseigner sur telle ou telle commande ou trouver la r ponse une question pr cise Memento Multiplan par P Bon net et MT Dinh chez Edimicro 108 pages 78 FF Nous retrouvons ici les m mes objec tfs que dans les deux ouvrages pr c dents mais on du mal voir ce que ce livre apporte de plus que la documentation du programme Multi plan Reportez vous donc aux ouvra ges pr c dents The Visicalc Applications Book for the Apple par Jack Grush chez Reston Publishing Pren tice Hall 16 45 Ce livre anglais comporte une premiere partie dapprentissage de suvie de six exemples ap profondis suivi de r glements ana lyse financi re d entreprise pr vision plan tr sorerie et gestion de porte feuille Ouvrage bien fait malhe
140. de r f rence Pour disposer de N pistes faites un POKE 44723 4 avant la commande INIT puis POKE 44723 12 juste apr s pour r tablir le standard du DOS Pour N pistes le dernier secteur de cl s accessible sera NN 16 N 1 Classement des cl s L essentiel du travail est r alis par une routine machine appel e CALL 4096 par le programme Applesoft baptis CLAS Ce programme fournit la routine les param tres n cessai res e AC adresse m moire partir de laquelle seront charg s se quence tous les secteurs de cl s class es AN adresse partir de laquelle seront charg s en s quence tous les secteurs de vrac adresse du buffer qui sera utilis pour reconstituer les secteurs clas s s et ies crire sur disquette est POK e en 24 poids faible et 25 poids fort e statut par rapport au classe ment mixte class vrac ou rien de class est POK en 214 e PC et SC donnent l adresse sur disquette du dernier secteur de cl s class es tandis que PF et SF donnent le m me renseignement pour le dernier secteur de vrac Au retour de la routine le pro gramme r cup re les param tres du syst me reclass et constitue notam ment le tableau N des derni res cl s de chaque secteur Tel qu il vous est pr sent le pro gramme suppose que la disquette fi chier se trouve dans le lecteur 56 02 au moment de son lancement Si vous voulez l utiliser a
141. dot Si ge social et abonnements Editens MEV 64 70 rue des Chantiers 78000 Versailles T l 3 951 24 43 R daction et courrier des lecteurs 59 bd de Glatigny 78000 Versailles Regle publicitaire Force 7 Anne Jeurdan 5 piace du Colonel Fabien 75010 Pans Tel 1 24022 01 Diffusion N M P P Sophie Marriez T l 1 24022 Q1 Composition T lecempe 13 15 avenue du Petit Parc 94360 Vincennes T l 328 1806 Impression Rosay 47 avenue de Paris 94300 Vincennes T l 328 18 63 Pom s n 15 5 E OB li ESS OSEE E ENS EN s ED programmer un ordinateur est devenu pour vous un loisir un plaisir une passion sachez que LIST a t cr e pour vous LIST vous aide tirer davantage de votre mat riel vous perfectionner dans la conception des programmes qui tourneront Sur votre machine LIST vous initie aux langages informatiques et s lectionne les mellleurs livres pour progresser LIST vous informe de l actualit et vous fournit trucs astuces et id es pour mieux programmer Pour tre s r de ne rater aucun num ro et pour recevoir LIST chez vous abonnez vous l ordre de LIST n Sj LE JOURNAL DES AMATEURS 4 DE PROGRAMMATION f i 1 F Lr _ BULLETIN P D ABONNEMENT 5 aretourner LIST service abonnement gt 5 place du Colonel Fabien
142. e La d finition de ce qui est autoris ou interdit chacun est assez simple mais longue mettre en oeuvre ne serait ce que parce quon descend ce qui est parfois pr cieux au ni veau de la rubrique l mentaire en lecture et en criture Quand lensemble est cr son utili sation ne pose aucun probl me Les utilitaires 15 sont tres complets m me s ils ne sont pas toujours tr s simples utili ser nous avons d ja voqu ce pro bl me propos de la modification de structure des fichiers lls permettent outre les classiques copies destructions initialisations compactages de faire communi quer Omnis 2 avec d autres logiciels par linterm diaire de fichiers au for mat BIF et ce dans les deux sens Un autre utilitaire permet des conver sions entre Pascal et le DOS 3 3 Capacite et performances Seules limites de capacit rencon tr es ce sont celles de Apple avec deux disquettes en fait un dis que dur simpose Que faire par exemple avec cette pauvre configuration de 1310068 blocs par fichier ou de 9600 rubri ques dans un format d tat Seule limitation inh rente au logiciel d ja signal e 79 caracteres par ru brique y compris le cas ch ant le nom d cran Ne disposant que d une version bri d e au niveau de 50 enregistre ments nous n avons pu faire aucun essai de performances sur gros fi chier l semble que les recherches de type T sur rubriques
143. e destinee aux personnes qui ne connaissent pas la programma tion en Pascal ou qui n ont pas le temps de programmer elles mernes et qui desirent utiliser directement les multiples pos sibilites de Microbook Tous les programmes proposes dans le livre sont pr sents dans chacune des disquettes exceptes les ordres pour imprimante Sugnature pour paemeni per aeda Bote d expratior 65 nvenue Hilkide Robol Montr ol Westmount MAROC Qu bec H32IW CANADA NN T 7 23725 T l 5141935 1314 3 rue Ghuzzo M PRENOM Au Maroc Canada i wa Editeur de formes et curseurs Pom s Le Basic Microsoft du Macintosh au torise l emploi d instructions graphi ques tr s puissantes C est le cas de PUT qui peut tre utilis e de deux manieres diff rentes transfert d une matrice de points stock e par GET dans un tableau de variables trans fert d une matrice de points cr e par le programmeur La seconde so lution est sans doute celle qui sera le plus souvent retenue puisqu elle per met de concevoir des formes tres pr cises point par point Etant don n e la haute r solution du Macin toch la conception d une forme l aide d une feuille de papier quadril l e demande beaucoup de patience ce qui nous a amen crire cet uti litaire Les formes ou curseurs cr s avec l diteur sont bien s r destin s tre utlis s par v
144. e et donc vers l octet qui se trouve au dessus de ladresse qui nous int resse On stocke cette adresse en 6 7 pour qu elle puisse nous servir ensuite d adresse de base dans un indexage indirect par Y Ligne 13 on initalise Y 1 pour tenir compte du fait que l adresse plac e en 6 7 ne correspond pas exactement l adresse du d but de cette adresse diminu e de 1 Lignes 14 16 incr mentation de l adresse de retour situ e au som met de la pile Il sagit en effet de ne pas revenir de notre routine SO l adresse qui suit JSR SO d but de la table mais l adresse qui suit le marquant la fin des codes Lignes 17 et 18 lecture d un code dans la table Si c est 00 on passe en 51 fait afficher un RE TURN JSR FC62 et nous amene en fin de routine RTS Si l adresse de retour a bien t augment e l interieur m me de la pile on doit alors reprendre le programme princi pal l instruction qui suit la table des codes Lignes 19 21 affichage du ca ractere JSR FDFO et passage au suivant INY BNE S3 Avec un tel systeme l ajout de nou veaux messages en cours de d ve loppement du programme ne pose gu re de problemes ii suffit d ins rer l endroit voulu dans le programme source un JSR 50 suivi du mes sage afficher sans se pr occuper de ladresse laquelle commencera la table des codes des caracteres l issue de l assemblage final Remer
145. e Fichier n tait autre quun fichier source en assembleur sauv sous format TEXT Pr cisons donc que tout fichier TEXT pr c d dun T au catalogue nest pas pour autani un fichier EXECuta ble En particulier il ne faut JAMAIS faire un EXEC d un fichier source d assembleur La revue pr cise tou jours quelles sont les op rations per mettant de mettre en reute un pro gramme en langage machine et la pr sentation des disquettes rappelle galement quoi correspondent les diff rents fichiers et comment il faut les utiliser En suivant ces indications vous viterez souvent de d truire vos disquettes Precisions et errata Moniteur Etendu du Pom s 8 A lissue d un long d bat il semble que la seule solution simple pour r soudre le petit probl me du buffer d entr e dans ce programme passe par une modification du programme Source comme suit Ligne 160 LDX 0 au lieu de LDX 1 soit 8D5F 00 dans le code objet Ligne 163 au lieu de INY soit 8D66 EA dans l objet Ins rer une ligne 897 INC CH avant la ligne 897 originale JSR Bloc notes du Pom s 13 A la ligne 2540 il convient de rem placer 1217 par Li21 pour que la fonction de destruction des fichiers fonctionne normalement ICARE Pom s 14 La liste des modifications publi e dans le Pom s 14 concernant ladap tation du programme Tortue du Poms 6 en vue de son int gration au logiciel ICARE tait malheureuse ment incompl te
146. e compteur ordinal L adresse de l instruction qui suit un JSR est donc adresse du JSR 3 et elle correspond l en droit o l on doit revenir apres le d roulement d une sous routine se ter minant par RTS Cette adresse de retour est d pos e au sommet de la pile mais elle cor respond en fait l adresse r elle di mnuee de 1 soit adresse du JSR 2 car l ex cution de RTS augmente de 1 le compteur ordinal le proces seur prend les deux octets du som met de la pile pour les mettre dans le compteur ordinal augmente ce der nier de et passe ensuite l instruc tion dont l adresse lui est donn e par la nouvelle valeur du compteur Nous allons voir comment cette inte raction entre JSR et la pile est utilis e par les cartes d interface pour d ter miner le slot dans lequel elles se trouvent et savoir ainsi quelles adres ses de travail leur sont r serv es par l Apple Prenons l exemple dun contr leur de disquette DOS 3 3 dont le listing Pom s n 15 ci dessous reproduit un court extrait de la ROM Notez bien que l adresse de depart C621 provient du fait que le contr leur se trouve dans le slot 6 au moment de cette liste Les ROMs de l interface sont con ues de telle facon qu elles puissent fonction ner quel que soit le slet dans lequel on les installe et si le contr leur tait dans le slot 5 par exemple on trou verait exactement la m me chose partir de l adresse C521 Listing 5 621
147. eaucoup plus tard en abordant la lecture du Manuel de R f rence quon est avis d avoir commander au four nisseur un double de ce disque Les disques sont comme nous venons de le voir au nombre de trois Chaque application si minime soit elle n cessite de son c t deux disques la librairie les explica tons concernant la d nomination de ce disque ne sont pas tr s convain cantes et le disque data donn es ne serait pas plus mal Donc aucun travail possible sans un minimum de cinq disques avec les quels on doit jongler dans deux lec teurs De quoi d courager complete ment un d butant Comprenons bien que ce n est pas une critique du logi ciel mais de la facon dont les choses sont pr sent es La complexit est la rancon de la puissance et on peut dire qu Omnis 2 n est pas fait pour etre utilis normalement par un ama teur sur une configuration Apple e avec deux disques souples On peut pourtant lire dans le quide pedagogi que le on 1 Ce Guide Pedagogi que part de lhypoth se que vous navez pas ou peu d exp rience quant l utilisation d un micro ordi nateur Dans cette hvpoth se l opinion de l auteur de ces lignes qui n engage ue lui est abstenez vous de d bu ter avec Omnis 2 et commencez par vous familiariser avec la micro infor matique en utilisant un logiciel moins performant mais plus simple Les commandes principales Elles utilisent de facon syst matique la touche ESCA
148. ecifie lui meme les modeles des etats de sortie et leur contenu Bref un outil simple et performant Mac Ledger est le second module de Mac Accounting c est la partie comptabilit generale format du Journal est standard et peut tre utilise aussi bien pour les comptes fournisseurs que peur les comptes clients L utilisateur definit lui m me le format des fiches comptables qui se selectionnent facilement l aide de la souris Mac Intesh Les operations saisies peuvent etre analysees par type de produit par territeire par vendeur ou par toute autre variable definie par l utilisateur Les cr ances sont analys es sur trois p riodes ce qui facilite contr le et r ajustement En r sume le complement indispensable de Mac Cash Pomsn 15 Dernier avantage Mac Accounting a ete con u en fran ais et peut tre utilise par n importe quel utilisateur en moins de trente minutes Le doute n est plus permis avec Mac Intosh et Mac Accounting la comptabilit devient si simple que c est presque un peche Peachtree est distribue par Logiciel PC 113 bd Fereire 75017 Paris Tel 763 62 88 MY EA al lm 41 alliance SANS MAUX DE 5 avec les livres PSI La pratique de l Appie ll tome Nicole Breoud Pouliquen Cet ouvrage pr sente lessp cilicit s du Bas Applesoft a parur d une description du mat nel et du logiciel du systeme Apple Les techniques de programmation de comp
149. ence port e de la main un utiitaire dont l usage se r v le fr quent sans devoir le charger depuis la disquette vous de juger si le jeu en valait ia chandelle Notez que la version publi e ici fonc tionne en RAM et n a donc besoin d aucune extension particuli re Apr s avoir entr et sauvegard le code objet le programme se lance simplement par BRUN DISK Examinons les commandes Modes d affichage B s lectionne le mode d affichage mixte dans lequel le contenu du buf fer est affich simultan ment hexad cimal et ASCII C est le mode d affichage par d faut En rai son des dirnensions de l cran seule une moiti du buffer est affich e on acc de la deuxi me moiti en d placant le curseur au del des limites de la fen tre H affiche le contenu du buffer en hexad cimal seulement affiche en ASCII seulement commute le filtre permettant de n afficher que les caract res en ASCII normal Pom s n 15 Lecture criture D commande drive le changement de R permet la lecture d un secteur le curseur se positionne alors sur le nu m ro de la piste indiquer en hexa d cimal Si le num ro en cours convient faire simplement RETURN Le curseur passe alors au num ro de secteur que l on contr le de la m me mani re Les fl ches gauche et droite commandent la lecture des secteurs pr c dent et suivant i E L
150. ent cor respondant 2 octets Gestion de la table de r f rence Pour utiliser les pistes du DOS il faut y acc der directement par la c lebre routne RWTS qui permet de lire ou d crire un secteur quelconque de la disquette soit 256 octets La table de r f rence sera donc d coup e en un certain nombre de sec teurs 48 3 16 au max mum si l on utilise les trois pistes du DOS num rotes de 0 47 Nous appelerons NN le num ro du dernier secteur de cl exploitable DOS 3 3 G rard Michel L appel RWTS se fera partir du programme Applesoft de traitement tandis quune petite routine en as sembleur s occupera de la recherche d une cl donn e lint rieur d un secteur de cl s charg en m moire dans un bu fer Une telle recherche est toujours plus rapide lorsque les cl s sur lesquelles elle porte sont class es dans un ordre quelconque en l occurrence dans l ordre des codes ASCII des caracte res composant la cl En revanche les op rations de classement sont g n ralement longues en regard des d lais d attente acceptables dans le cours de l exploitation normale du fi chier et il est donc pr f rable de les s parer de cette derniere On peut ainsi se trouver un instant donn avec deux types de secteurs de cl s es secteurs de cl s class es dans lesquels la recherche sera plus ra pide Nous appelerons NZ le nu m ro du dernier secteur de cl s class es avec NZ c
151. entrer deux fois le m me num ro de code si celui ci doit tre unique e de contr ler qu on entre bien Mr Mme ou Mlle et d autre e de v rifier quun code postal comporte 5 chiffres ni 4 ni 6 Pom s n 15 Apple tell comprend carte e d faut Jusqua pr sent votre Minitel IMPRESSION l imprimante de votre Apple est exploit e pour sortir les copies papier dont vous avez besoin lorsque VOUS consultez un serveur STOCKAGE les disquettes de votre sont utilisees pour enregistrer les pages dont la con Texte ploitation locaie ult rieure AUTOMATISME linteligence de votre Apple est mobiis e pour accomplir linterrogation automatique du serveur que vous avez EHE _ appel tation CIBDAONIQUE orientation MANS dans votre applice d interrogat sont par lutiiisateur sans aucun language de programmation gr ce au mode d apprentissage d Apple Tell E venernent du C jernier S SICOB salu par toute la pres Apple e arr t a HELLO Informatique ne ce Mel AH rep dd tell un modem qui fait d un simple Apple un Minitel Intelligent TE 3 e 01 Cc omo sem le af rs om e Enfi sans DOI plus uwmporiant 7 JONC TION entre le mond2 ext rieur et les outils standards de votre Apple dans Apple wriler Visicalc Multiplan PFS Quick File etc et application
152. equiert pas d argument reinitialise le curscur en forme de fl che Si le r sultat de l exemple pr c dent est toujours en m mere vous pouvez r tablir le cur seur d origine en entrant cette ins truction en mode imm diat Cali HideCursor Apr s ex cution le curseur est invisi ble bien que toujours pr sent Call ShowCursor Visualise nouveau le curseur Call ObscureCursor Le curseur devient invisible comme avec Call HideCursor mais r appa rait d s qu un d placement de la souris est d tect Gestion du crayon Les routines d crites dans ce para graphe conditionnent le r sultat ob tenu apres ex cution de toutes les instructions du Basic Microsoft pro pres cr er des graphismes LINE CIRCLE mais aussi apr s tion des routines graphiques en ROM Call FrameRect Call FillRect etc Call PenSize iargeur hauteur D termine les dimensions du crayon ou traceur Les valeurs par d faut sont gales 1 pour la largeur et la hauteur Lorsque lon trace une ligne la lar geur du trait est report e vers la droite par rapport aux coordonn es horizontales alors que la hauteur est report e vers le bas par rapport aux coordonn es verticales En revanche pour les figures ferm es un rectan gle par exemple ou un arc de cer cle les dimensions sont respect es et l paisseur du trait est report e t rieur de la figure Call PenPat 0 Cet
153. er comment crire des mots l cran tout en profitant de la haute r solu tion Principe L instruction DRAW l Applesoft permet de dessiner des formes conte nues dans une table Les formes sont d finies par l utilisateur et peuvent parfaitement repr senter l alphabet les chiffres et caracteres sp ciaux Ecrire un mot revient donc dessi ner l une derri re l autre de telles formes Une table ASCILSET de 755 octets est propos e ici Elle contient 63 formes repr sentant les 62 caracteres de codes ASCII 32 94 d finis dans une matrice classique de 5 x 7 plus un carr plein dont nous verrons l utilit ult rieurement La solution en Basic Methode Soit crire en page haute r solution une chaine de caract res contenue dans la variable CH la ligne YS partir de la colonne XS La m tho dologie est la suivante NS longueur de CH Pour IS allant de 1 NS caractere 15 CS code ASCII de SS CS 31 Effacer un carr en XS YS e la forme No SS en XS Incr menter XS et 15 5115 lt NS retourner en 3 OM o0 9n Sous programme Applesoft Les parametres d appel sont Poms n 15 e CH chaine crire e YS ligne d criture e XS lere colonne Les vanables locales sont S indice du caract re A caract re courant CS code ASCII e SS forme courante En sortie XS est modifi Dans le paragraphe suivant
154. era prise en compte par le processeur que si l indicateur bit 2 de son registre d tat est O En mettant cet indica teur 1 soit partir d un pro gramme utilisateur soit dans une routine d interface d une carte de p riph rique on peut donc masquer Pom s n 15 tous les signaux IRQ qu pourraient arriver au processeur Jusqu ce que l on ait remis le bit O Par contre quelle que soit ia valeur de ce bit l une interruption de type NMI sera toujours prise en compte et provo quera l arr t de toute autre op ra tion m me s il s agit du travail d un p riph rique ayant d j interrompu le processeur par les lignes IRQ ou NMI Dans un cas comme dans J autre lorsquarrive une interruption le pro cesseur commence par achever l ins truction en cours J d pose ensuite au sommet de la pile le contenu du compteur ordinal dans l ordre octet haut octet bas rappelons que le compteur ordinal est un registre sur 16 bits qui contient toujours l adresse de la prochaine instruction ex cu ter puis il empile galement le regis tre d tat apr s en avoir mis le bit 4 indicateur B S il s agit dune IRQ il saute alors l adresse contenue dans les m moi res FFFE et FFFF en d autres termes il charge le compteur ordinal avec le contenu de FFFE FFFF Si cest une NMI en revanche il saute Jadresse contenue en FFFA FFFR Notons bien que ces op rations sont programm es dans le
155. es pour APPLE m con Japonais entr direct Carte wilcard d plombage Carte communication Carte IEEE 488 Carte copieur Eprom Carte A D D A 12bit Carte horloge Carte synth tiseur de voix Corte m moire langage 16 Rom Corte m moire 128 K Carte drive 13 16 sect Carte 80 colonnes Carte impn mante parall le Carte impn mante Buffer 32 K Carte musique Carte RGB Prise TV Secam Carte 6522 Via Port pour une corte Ventilo 10 W super silencieux Carte s rie Carte super s rie Carte Z80 CP M Joystick de luxe 2 2E 2C Port Urgent ajouter 5 50 F NOUVEAU Pince sp ciale pour diskettes 100000 trous min port 13 F 69 F Ordinateur multicompotible Forth Basic CP M MS Dos CP M86 crivez nous vous enverrons une liste plus compl te de nos articles Revendeurs contactez nous Notre devise DYNAMIT COMPUTER MOINS CHER QUE MOI TU MEURS Pom s n 15 Logiciels Distributeur Prix TTC ws Pascal UCSD Bus 10 84 7000 00 1 Prologli Prologia 1 85 NC Basic Microsoft Microsoft France 06 84 1694 00 Mac Forth 08 84 MFI 1589 00 Macintosh Pascal Apple 11 84 1306 00 Macintosh Basic Apple 12 84 1430 00 2 FileVision Apple 10 84 2360 00 CX MacBase Controie X 10 84 2953 00 File Microsoft France 10 84 2396 00 Overvue Apple 10 84 4150 00 AD MacFichier Answare 08
156. giciels disponibles sur Apple et donc la possibilit de se tromper il choisit parfois un autre mat riel o il n existe qu un seul pro gramme sil ny en a qu un cest quil est bon Ce livre se propose daider le futur acheteur sv retrouver parmi la ga laxie de progiciels disponibles sur Apple Seuls les produits de grande diffusion en France sont abord s ceux ci sont pr sent s en quatre fa milles 1 les tableurs Visicalc et Multiplan 2 les traitements de texte Apple Writer Ka Texte WordS tar MailMerge et Plume 1l 3 les gestionnaires de fiches Visifile PFS File Report Visidex L Organisa teur Omnis dBase l et CX Base 200 4 les autres Factor AppleWorld Graphor Visitrend Visplot PFS Graph et Typing Tutor On remarque donc de grands sents DB Master Magic Window etc Les nouveaux produits appa rus depuis quelques mois Jane Apple Works Epistole manquent galement mais tout va si vite Chacun des logiciels est evalu de mani re identique selon une dizaine de crit res decumentation perfor mance limpression secunte etc que le lecteur deit par la suite pon d rer selon l importance qu il leur at tache Cas rare dans ce type de comparatif la configuration minimum n cessaire chaque produit est pr cis ment d taillee ce qui a tout de m me une certaine importance si envisage d utiliser dBase ll par exemple Certainement utile aux gestion
157. ion libre de la pile sans modifier le pointeur de pile bien sur et l on r cup re ainsi C6 dans lac cumulateur C628 62 apr s quatre d calages gauche ASL le contenu de laccumulateur devient 60 Cette valeur sera ensuite transf r e dans le registre X et elle permettra dacc der aux adresses r serv es une carte dinterface plac e dans le slot 6 Le travail effectu par cette routine Pom s n 15 peut vous Daraitre inutile puisque nous savons depuis le d part que la carte se trouve dans le slot 6 et quil suffisait donc de charger X avec 60 pour obtenir le m me r sultat Mais le programmeur qui a d ve lopp les routines de la ROM du contr leur ne pouvait savoir dans quel slot vous alliez le mettre et vou lait en outre que ces routines fonc tionnent ind pendamment de ce slot si vous utilisez le slot 5 le registre X devra 50 au lieu de 60 Etant donn que la ROM est crite une fois pour toutes et que l on ne peut remplacer LDX 60 par LDX 50 lorsqu on l utilise la solution consiste donc employer un m canisme JSR RTS pour aller lire ensuite ia pile et savoir si l on a envoy le JSR partir d une adresse C6nn C5nn C nn ou autre Pour d tailer un peu plus ce sys t me vous trouverez ci apr s la liste et le compte rendu d ex cution d une petite routine utilisant le m me principe et permettant de v rifier concretement le contenu de la pile
158. it avec DMI La version 2 du Disk Manager place enfin partir de ce num ro 1 version 1 dont l exp rience prouv qu elle n tait h las pas exempte de bugs Afin de ne pas l ser les ache teurs de la premi re version Poms offre gratuitement la seconde version tout acheteur de la premi re ren voyez apr s en avoir fait une copie de s curit la disquette originale re ue de Pom s et une enveloppe au format 23 16 avec votre adresse et timbr e 3 50 francs Vous recevrez gratuitement la nouvelle version Editeur plein cran De Leyo Prix 150 francs Cette disquette contient un excellent programme pour diter un pro 72 disquettes de Pom sg gramme Basic en plein cran Vous listez votre programme Basic le fai sant d filer tout instant en marche avant ou en marche arriere l arr tant quand vous voulez Vous effectuez les changements directement sur l ensemble de l cran les comman des tant lanc es comme dans le Program Line Editor Pom s 1 par des touches de contr le Les commandes sont nombreuses d but de programme fin de pro gramme marche avant marche ar ere destruction insertion entr e de caracteres de contr le effacement de fin de ligne acces aux commandes DOS recherche de cha nes Les ca racteres de contr le dans les instruc tions apparaissent en inverse Une particulant que nous appr cions beaucoup un programme sp cifique permet
159. itre sur son cran me Jette la premiere pierre Les disquettes courantes sont th ori quement certifi es pour une dur e utile d une soixantane dheures Mais comme personne n a le courage de d clencher un chronom tre chaque appel au DOS il est bien dif ficile d en valuer l tat d usure Le programme DISK CHECK UP v rife les disquettes initialisees DOS 3 3 Pascal ProDOS CP M MEM DOS et autres syst mes dex ploitation de l Apple reposant sur la PROM 16 secteurs et son standard de formatage physique 1 indique l tat physique de vos disquettes Mais la diff rence des utilitaires qui fournissent la liste des secteurs illisi bles et ventuellement quelques m thodes pour les r cup rer en partie ce programme donne lavance une indication sur l int grit physique de vos disquettes et leur usure En revanche l int grit logique en parti culier les pointeurs utilis s par le sys t me dexploitahon pour relier le di rectorv aux fichiers n est bien entendu pas contr l e Fonctionnement du DOS Le DOS de l Apple est un animal pa tient et bien dress pour calmer la tension nerveuse de son utilisateur il ne lui fournit le dramatique message dl O ERROR qu apr s avoir vaine ment tent 96 fois de lire le secteur demand Plus exactement il essaie d abord 4 fois puis s il n est pas en core parvenu obtenir correctement le secteur il recalibre le bras de lec ture cest le br
160. le dou teuse vous aurez besoin dune instruction valide ne provoquant pas la colere du processeur mais transparente pour boucher les trous Vous remplirez donc ces derniers avec des codes EA nous en verrons un petit exemple plus loin e NOP ne fait rien certes mais elle est pas moins trait e par le processeur ce qui lui prend n ces sairement un peu de temps NOP permet donc d ins rer des d lais dans l ex cution d un programme aux endroits voulus pour ralentir un affichage l cran par exem ple ou ne pas affoler la mecani que des lecteurs de disquettes Le d cimal code binaire Autre indicateur du registre d tat laiss de c t dans le Pom s 13 le bit 3 ou indicateur d cimal code bi naire DCB en abr g m rite maintenant quelques d veloppe ments Le DCB est une technique de repr sentation des nombres correspondant une version tronqu e de l hexad cimal puisque l on ne repr sentera que les chiffres d cimaux 9 au lieu de O F en hexad cimal Comme toujours revenons un peu au binaire pour clarifier les choses Sur quatre bits on peut coder les va leurs comprises entre 0000 et 1111 soit 15 en d cimal ou encore F selon la notation hexad cimale Si l on se bome coder les chiffres d cimaux on utilise les combinai sons 0000 0 1001 9 mais pas les suivantes 1010 1111 qui ne correspondent pas des chiffres d cimaux
161. les adresses ont t donn es de mani re absolue l assemblage de la routine C est pourquoi la ligne 13 22 remet dans le code machine aux droits o elles doivent appara tre les adresses r elles correspondant ADR CLE et ASYO Dans notre exemple les trois ta bleaux sont la suite les uns des autres partir de l adresse 9100 et l on suppose quil n y aura pas plus de 8 homonymes par secteur ADR occupe 16 octets soit 2 par adresse retenue et ASY en prend 8 A la ligne 4 on fixe ladresse de la table IOB et on la constitue en reco piant celle du DOS qui d bute en 47080 Pour que la table soit coh rente il faut donc que ie dernier lec teur utilis juste avant cette copie soit bien celui dans lequel se trouve la disquette du fichier Ensuite on indi que dans la table IOB l adresse de notre table DCB et on POKE dans cette derniere les valeurs attendues pour nos lecteurs 140K En ligne 5 on implante l adresse 768 la routine d appel RWTS Les valeurs 148 et qui suivent respecti vement 169 code de LDA et 160 code de LDY correspondent au poids fort et au poids faible de l adresse de d but de la table IOB ID Dans notre exemple le poids fort vaut 94 soit 148 en d cimal et le poids faible vaut O Vous auriez donc modifier ces deux valeurs si vous vouliez modifier l adresse de la table JOB est possible d employer toute cette partie dinitialisation en modifiant l impla
162. leurs hexa et l on obtient souvent des r sultats bizarres st l on s y bran che en mode DCB Ceci explique la pr sence de CLD avant le premier JSR FDDA FDDA est une routine du moni teur qui affiche le contenu de laccu mulateur sur deux chiffres FD8E envoie un RETURN et FDIB attend la frappe d une touche au clavier S vous lancez cette routine partir du moniteur par 300G par exem ple vous verrez s afficher 0001 puis le curseur Apres avoir tap une tou che vous verrez 0002 et amsi de suite jusqu 9999 si vous en avez la patience Apres 9999 on repart 0006 Notez que le calcul passe de 0009 0010 puis 0011 de 0019 0020 puis 0021 Listing 4 0300 A9 00 LDA s00 0302 85 07 STA 07 0304 85 045 STA 06 0305 SED 0307 18 CLC 0308 5 0 LDa 06 030A 69 01 ADC X 01 030C a5 06 STA 06 030E AS 07 LDA 307 0310 69 00 ADC Ws00 0312 BS 07 STA 07 0314 08 CLO 0315 20 FD JSR FDDA 0318 AS 06 LDA 906 031A 20 DA FD JSR FDDA 031D 20 FD JSR FO8E 0320 20 1B FO JSR FD1B 0323 06 03 JMP 0306 Le mode DCB peut ainsi servir juste ment faire un affichage simple d un compteur en d cimal en vous vi tant davwir convertir les r sultats avant de les afficher En ce qui concerne les additions le processeur peut m me vous r server d agr ables surprises Remplacez par exemple le 00 de l adresse 301 par OF et relan cez la routine vous verrez apparai t
163. lications uti lisant les fichiers l ouvrage com par une presentation concise et illustr e des commandes du Sys teme d Exploitation Disque et des instructions du Basic Applesoft Les retructions des fichiers sequentiels et a acces direct sont ensuite d cri tes aisi que leur utilisacion Des m thodes pratiques souvent mal connues montrent comment utiliser au mieux des fichiers acc s direct acc s index liste inverse Une vingtaine de Programmes illustrent l utilisation de ces techniques le livre 176 pages 90 00 FF La disquette d accompagne ment 95 00 FF Pour Apple ll Il plus Dos 33 version 48 K ou plus Muitiplan pour Apple ll plus et e por Herve Thiriez Multiplan est un progiciel qu per met de g rer piusieurs tableaux simultan ment cet ouvrage sera pour les possesseurs d ordinateurs Apple ll Plus ou un v ritable guide d utilisation de Multiplan gr ce des exemples progressifs de nom breux cas d application gestion de portefeuilles de feuille de pase imp ts tableaux de bord etc Le livre 216 pages 100 00 FF La disquette d accompagne ment 95 00 FF Pour Apple Il plus lle Dos 33 version 64 K ou plus Disquette maitresse Multiplan indispensable Visicalc sur Apple bor Herv Thiriez Apres une pr sentation progressi ve du modele Visicalc l ouvrage etudie de nombreux cas d application feuille d mpot gestion de
164. lisation possible dans une biblio theque g r e par l ampersand 25 HM HM 923 HM PRINT CHRS 4 BLOADHGRECR LIB A HM REM NEU HIMEM 30 DATA EXEMPLE gt GANTT EXEMPL E gt 5 EXEMPLE gt RESEAU SYNTAXE INSTRUCTION POLICE CARACTERES DEMO AUTO RETOUR BASIC NC 6 DIM H NC FOR I O TO NC READ M 1 NEXT 15 PEEK 115 256 w PEEK 35 DATA TERRASSEMENTS FONDAT ION 1162 REM HIHEM S RESEAUX MURS EXTERIEURS 20 IF PEEK HM 32 AND PEEK CLOISONS PLANCHER COUVER M 1 88 THEN 30 TURE FUMISTERIE MENUISERIE 62 Pom s n 15 S ENDUITS PEINTURES DIM G 10 FOR I O TO 10 READ G C12 NEXT 40 10 30 30 60 50 80 100 150 170 200 50 100 30 160 40 120 140 60 80 150 FOR 1 1 TO 10 READ X I NEXT FOR 1 1 TO 10 READ NEXT 45 DATA PARIS MARSEILLE LYON BORDEAUX LILLE TOULOUSE STRASBOURG RENNES ORLEAN S LENS LE PUY FOR I 1 TO 10 READ R XI NEXT 60 GOTO 10000 995 REM EXEMPLE 1000 1 1005 FOR 1 O TO 10 1010 Y 10 I 1D 1015 CALL HM G 125 10 Y 1020 100 15 w 1 RND 1 10 X2 200 RND 1 79 1025 FOR J TO 3 HPLOT X1 J Y TO X2 J Y NEXT 1030 NEXT 1035 A UN EXEMPLE D EMPLOI CALL 4 50 130 1040 4 DIAGRAMME GANTT FOR 1
165. ls un peu particuliers Le Biofeedback de Synapse comporte un bandeau placer sur le front contenant des capteurs et me sure le niveau de stress de l utilisa teur de l Apple Le r sultat s affiche sur l cran en courbes et graphiques Un stress qui commencera avec l achat prix 150 dollars Le Smarthome de Cyberlynx per met lui dautomatiser un apparte ment et de le contr ler avec l Appie ic En se servant de la souris et avec des ic nes on contr le l lectri cit et jes sytemes d alarmes antivols Prix 499 dollars Adresses Alpha Systemes 29 bd Gam betta 38000 Grenoble T l 76 43 19 97 B I P 13 rue Duc 75018 Paris T l 255 4463 Broderbund Software 17 Paul Drive San Rafael 94903 USA Cascade Graphics Development 185 lower Richmond Rich mond Surrey GB Contr le X Tour Maine Montpar nasse 33 avenue du Maine 75755 Pans Cedex 15 T l 538 0887 Cyberlynx 4828 Sterling Drive Boulder CO 80301 USA Ediciel Matra Hachette 22 rue la Bo tie 75008 Paris T l 260 0032 193 rue de Javel 75015 Paris T l 828 0601 Kardex 201 rue Carnot 94120 Fontenay sous Bots Sensible Software 24011 Seneca Oak Park 48237 USA Synapse 5221 Central Avenue Richmond CA 94804 USA Trac System Corp 444 North 3rd Street suite 201 Sacramento CA 94814 USA U Microcomputers Winstanley Industnal Estate Long
166. me de d monstration En outre il sera bon de pr voir une boucle d attente avant l criture ou la lecture des secteurs de cl s par RWTS car le passage trop rapide d un lecteur lautre peut g n rer des erreurs du type VO ERROR dans notre programme de d mons tration l ajout d une boucle FOR Z 1 TO 100 NEXT la fin de la ligne 65 ferait l affaire Par ailleurs si les secteurs sont nom breux et les cl s longues il peut ne pas v avoir assez de place sous le HIMEM 4095 pour constituer le ta bleau sans craser le programme de classement ll faudrait alors modi fier ce dernier afin d crire les derni res cl s de chaque secteur dans le fi chier FP au fur et mesure de leur obtention plut t que de les regrou per dabord dans un tableau en m morire Routines en assembleur Nous vous laissons le soin d en conduire une analyse d taill e l aide des commentaires qu elles comportent et nous bornerons ici indiquer leurs principes g n raux de fonctionnement Routine de recherche dans un secteur Afin d appliquer la meme d marche aux cl s class es ou en vrac la rou tne n utilise aucun algorithme de re cherche Elle traite en s quence toutes les cl s du secteur lu m Programme TEST 1 9 4096 1 2 AR 9 w 4096 ADR 9 4096 25 6iCLE ADR 16 ASY0 CLE INT KASYO 256 15 INT ADR 13 256240 ADR 256 HD HL INT CLE 256 LL CLE 2
167. me que le processeur est d j uti lis par un autre p riph rique Lors que le second rend la main on re prend le travail du premier l endroit o il tait stopp et lorsque celui ci est galement termin on retrouve le programme de d part Ce meca nisme ne doit pas poser de proble mes si le contexte est correctement sauvegard chaque interruption e RTI 40 retour d interruption L ex cution de cette instruction consiste pour le processeur transf rer dans le registre d tat le sommet de la pile puis charger le compteur n f T ES DEE h 2 H 53 i 4 Lu r EE ordinal avec les deux octets qui se trouvent leur tour au sommet de la pile Si l organisation de cette der ni re pas t perturb e durant le traitement de linterruption on re prend donc l endroit compteur or dinal o se trouvait lors de la prise en compte de l interruption avec le m me registre d tat Nous verrons par la suite comment la pile intervient dans la manipulation du compteur ordinal mais afin d il lustrer ces m canismes voici un exemple simplifi de routine de ges des interruptions notez bien que lorsqu on arrive cette routine le re gistre d tat et le compteur ordinal ont d ja t empil s par le proces SEI on masque les interruptions IRQ qui pourraient survenir
168. montrer quil nest pas n cessaire de disposer d un ordinateur de grande puissance et de maitriser un langage sp cialis type LISP pour aborder ce theme Les sujets pr sent s sont vari s m thodes d valuation des programmes de jeu de dames ou d echecs mini max alpha beta r solution d analo gies Socrate est un homme tous les hommes sont mortels donc g n rateur de po sies cr ation de quelques alexandrins malheureuse ment souvent tr s svbillins voire de romans policiers Le livre termine ces exp riences en exposant les m canismes du c l bre programme DOCTOR parfeis diffus en France sous le nom de FREUD lordinateur engendre les ques tions d un psychanaliste en fonction des r ponses pr c dentes du patient humain Les programmes inclus sont tr s structur s de maniere faciliter les modifications 15 sont destin s l on gine au Basic du TRS 0 mais une annexe permet une traduction en Applesoft il est cependant dommage qu ils naient pas t traduits en fran 20 progiciels outils pour l Apple par Jean Louis Marx amp Alam Thi bault Editions du PSI 243 payes SIRE Un des probl mes de l Apple c est Pom s n 15 Biblioaraphie Alexandre Avrane et Alexandre Duback ne souiiez pas la richesse de sa bi blioth que de logiciels En effet le client potentie a souvent la crainte de choisir un programme qui ne lui conviendrait pas et devant le nom bre de pro
169. naires d sireux de choisir rapidement un progiciel ce livre aurait cependant mente detre toff par l analyse de quelques produits suppl mentaires Applesoft Basic for the Apple Il lle par Lois Graff amp Lany Joel Goldstein chez R J Brady Co 328 pages 2075 Voici un excellent livre d initiation l Applesoft clair pr cis et avec de nombreux programmes exercices Mais son probl me vous l avez de vin c est la langue l anglais est ra rement le favori des d butants en in formatique D autre part i existe d j de nombreux ouvrages similai res parus en France Cependant ce livre n est pas sans in t r t m me pour les anglophobes car il apprend au lecteur analyser un probl me et structurer la solu tion au lieu de se pr cipiter devant le clavier pour taper quelques centai nes de lignes mal comprises Parall lement les instructions du Basic Applesoft et du BOS 3 3 sont tudi es malheureusement certaines telles que WAIT HIMEM 5 et l amp sont volontairement igner es Une carte de r f rence plastifiee est Jointe P Source a quide to the Apple Pascal System par Randall Hyde chez Reston Publishing Prentice Hall 462 pages 24 95 D butants s abstenir Ce livre n est pas un guide d initiation au Pascal sur Apple mais sadresse aux pro grammeurs systemes d sirant connai tre leur machine sur le bout de leurs 16 doiats Une excellente connaissance
170. nc qu il nous faudra moins de trois mois pour r pondre votre courrier Ceci dit ne prenez pas 5 pour une entreprise de conseil gratuite certains lecteurs nous envoient des questions qui resemblent plut t un cahier des charges et pour lesquelles la r ponse demanderait une v ntable intervention de conseil C est trop Une derni re remarque certains contributeurs dont nous admirons la fluencv nous envoient des programmes dont tous les commentaires sont r dig s en anglais amenant les lecteurs croire que nous reproduisons honte des programmes am ricains S il vous plait envovez donc des contributions enti rement en francais Enfin ultime bonne nouvelle Olivier Herz est de retour du Japon avec toujours de l hexad cimal plein la t te Gageons que l auteur de Haifa du H Basic et de de stntaxe nous r serve encore quelques surprises Herv Thiriez Photo de couverture cran avec batterie incerper e peur Apple c fabrique per IEF ver Micro Informations La forme du moniteur n est pas d finitive Ont coilabore ce num ro Alexandre Avrane Jearr Luc Bazanegue Alexandr Duback Jean Michel wurewtch Guy Lapautre Thierry Le Tallec G rard Michel Nicolas Monsanat Jeseph Pino Erick Ringot Herv Thiriez R dacteurs Alexandre Avrane G rard Michel Directeur de la pubiicatien r dacteur en chef Herv Thinez Dessin Laurent Bi
171. nd selon la position de la t te En cons quence seul le secteur de la piste doit th oriquement pr senter un nombre non n gligeable d acc s Les valeurs obtenues sur les autres secteurs de la piste z ro et sur les 1308 15 15 DF 23 24 24 2C 2D 1310 15 06 00 E 64 20 15 1318 97 15 F 3F 1C 04 00 24 1320 1F 28 2D F5 92 33 2E 00 1328 92 E 24 24 09 36 36 1330 BE 05 00 2 1 1C 24 24 1338 40 31 36 06 00 F 1E 1340 24 24 24 40 31 36 1348 07 00 OC OC FC 18 76 16 1350 17 4 09 E4 04 00 1358 C 09 F 06 36 05 00 OC 1360 OC 7 92 17 2E 2D 1368 25 00 24 2C 5 02 33 2E 1370 20 00 1C 56 4 OE 06 1378 00 24 3C B 52 31 3F 1380 00 25 36 20 25 24 1388 3F 36 36 20 20 25 24 24 1390 36 36 36 20 20 1398 20 05 00 85 autres pistes doivent normalement tre tr s faibles elles d pendent non seulement de l usure physique de la disquette mais galement de la cle de traduction entre num ro de sec teur logique et secteur physique cest un param tre interne utilis lors de linitialisation d une disquette Dans tous les cas ces valeurs doivent tre inf rieures 16 pour indiquer une qualit correcte Ex cution du programme Le programme se lance par un sim ple BRUN DISK CHECK UP M et se charge en 900 ll n cessite que le DOS 33 soit charg en m moire ventuellement sur la carte langage L utilisateur indique
172. ne disquette de 5 pouces 1 4 la mini capacit du lec teur du l 143K devient probl ma tique On peut donc s attendre tr s prochainement voir cette capacit augmenter notablement La difficult consiste seulement maintenir la compatibilit avec les disquettes exis tantes En atiendant voici des nou veaut s pour tous les Apples Moniteur couleur La nouveaut de l automne c est aux Etats Unis le nouveau moniteur couleur sorti par Apple le moniteur 100 Esth tiquement il ressemble beaucoup au moniteur monochrome du e Son cran est inclinable de la m me facon mais cette fois un petit moteur se charge de l op ration le tube est beaucoup plus lourd et il suffit de presser une touche pour que l cran sincline vers le haut ou vers Pom s n 15 Micro informations le bas Pour faire fonctionner ce mo niteur il faut bien s r disposer d une carte couleur ou d une carte Chat Mauve Ce moniteur est vendu aux Etats Unis un prix respectable 600 dol lars soit pas beaucoup moins de 6000 Francs au cours actuel du billet vert L explication d Apple il sagit d un des rares moniteurs couleur fournir en texte la qualit d un moni teur monochrome particuli rement en 80 colonnes On peut d sormais se contenter d un seul moriteur pour les jeux les graphiques ou les activi t s professionnelles En 80 colonnes un switch permet de choisir la cou leur de l affichage bleu jaune etc Un bout
173. nis les bons de caisse finis les carbones termin es les mises a jour qui font perdre du temps Mac Accounting est un programme comptable deve loppespecialement par Peachtree pour le Mac Intosh Et dans le domaine particulier de la comptabilite la competence de Peachtree n est plus a prouver Avec plus de 100 000 utilisateurs dans le monde entier Peachtree possede une tres large exp rience des besoins des petites et moyennes entreprises en matiere de comptabilit Sp cialement tudie pour un utilisateur n ayant aucune connaissance infor 40 matique prealable Mac Accounting est con u pour etre le plus proche des systemes manuels avec l exactitude et la rapidit des solutions informatiques Un comptable reconnait imm diatement les pages dun journal de caisse ou du Grand Livre c est exactement ce qu if retrouvera sur l cran du Mac Intosh lorsqu il utilisera Mac Accounting Mac Cash est le premier des deux program mes qui constituent Mac Accounting C est un livre de caisse sur ecran Ideal pour les PME ses carac teristiques parlent d elles m mes Lataille du journal le titre des colonnes la periode comptable et les formats mon taires sont d finis par l utilisateur Mac Cash accepte jusqu cinq taux de taxe huit colonnes d analyse des prix hors taxes sa mise Jour est automatique au fur et a mesure de la Pom s n 15 DEVIENT SI SIMPLE F UN PECHE saisie des operations enfin l utilisateur sp
174. ns grand nsque pour l affi chage direct en d cimal des r sultats de calculs simples mais au del pru dence La pile suite et fin Depuis le Pom 12 nous avons sou vent parl de la pile du microproces seur sans rentrer dans le d tail de son organisation car cela n tait pas n cessaire pour la manipulation des instructions pr sent es cette occa sion ll nous suffisait de savoir que lon peut d poser quelque chose son sommet y reprendre ensuite et que le processeur l utilisait galement pour m moriser ladresse de retour apres un JSK Nous avons vu plus haut le r le qu elle joue en outre dans les m canismes de break et d interruptions En fait elle fournit souvent la solution de bien des pro blemes de programmation d s lors que lon sait plus pr cis ment comment elle fonctionne et nous allons donc faire plus ample connais sance avec elle La pile est une zone de stockage de 256 octets qui se trouve en m moire aux adresses 100 256 IFF 511 cest la page 1 de la m moire RAM de l Apple Premi re remarque la pile se situe donc dans une zone m moire qui vous est tout aussi accessible que la zone de travail de lApplesoft ou des adresses comme 6 ou 7 que nous avons souvent utilis es pour nos routines Cons quence ne POKEz jamais quelque chose entre 256 et 511 sans mesurer pr cis ment lavance les risques de cette entreprise 56 Pour g rer sa zone de stockage le 6502 dis
175. ntation selon les besoins ll suffit pour cela de donner les valeurs qui vous conviennent aux variables concern es AR ADR CLE ASYO BU IO et les deux octets correspon dant l adresse IO dans les DATA de la routine d appel RWTS Lignes 15 et 20 lecture des deux fichiers annexes et branche ment au programme de traitement qui d bute la ligne 100 Lignes 50 et 60 recherche du secteur class dans lequel la cl cher ch e pourrait ventuellement se trou ver Si la cl est sup rieure toutes celles d j class es N correspond au premier secteur de vrac soit NZ 1 Lignes 65 et 70 conversion du num ro de secteur en adresse physi que sur disquette piste P secteur S puis lecture du secteur en m moire Lignes 80 86 sous pro gramme d appel la routine machine de recherche et exploitation de ses r sultats Lecture du secteur GOSUB 65 et appel par CALL AR En retour on a le r sultat de la re cherche R et la valeur de l indica teur de fin de secteur BL PEEK ABL Si ZC qui contient la cl cherch e est gal la derni re Pom s n 15 cl du secteur N N et que la re cherche donne malgr cela un r sul tat nul R20 c est que cette cl N N t annul e depuis le der nier reclassement Dans la mesure une cl identique pourrait se trouver au d but du secteur class suivant on met R 1 afin d aller examiner celui ci voir
176. nvoyer les instructions de neutralisation en tout d but de programme et de ne jamais repasser par elles pour viter de les voir simpnmer de facon intempes l est donc n cessaire de passer par 307 775 en d cimal et l appel de tive 3 P 310 REH Exemple d utilisation 320 SpCcification de la largeur du caract gt re 10 REM CHARGEMENT DE LA ROUTINE EN DEC 330 REM 768 340 PRINT CHR 809 20 DATA 123 7 3 32 237 253 96 350 REM 30 FOR I 1 TO 7 READ A 767 I 360 REM ENVOI DU CODAGE DU CARACTERE A NEXT 370 REM 40 REM CONNECTE L IMPRIMeNTE 380 DATA 8 20 34 65 65 55 55 34 34 20 8 5S0 PRINT 4 20 34 65 55 65 60 REH 390 FOR I 1 TO 16 READ A POKE 775 90 REH CREATION DU CARACTERE CALL 768 NEXT 120 400 REM 130 REM SELECTIONE L LARGEUR MAXIMALE 410 REM FIN DU CODAGE 16 POINTS 420 REM 1 40 REM 430 PRINT 4 150 PRINT CHRS 272 CHR 43 440 REM 160 REM 450 REH SELECTION DU JEU DE CAR 170 REM DEBUT DU CHARGEMENT DU CARACTER ACTERES PROGRAMMABLES E 450 180 REH 470 PRINT 270 CHR 39 190 PRINT 270 CHR 73 480 REM 200 490 IMPRESSION DU CARACTERE 230 SEQUENCE EXECUTER POUR CHAQUE 500 CARACTERE 510 PRINT 1 1 1 1 1 1 1 1 1 2680 REM 1 1 1 1 1 1 1 1 1 1 T 270 REH DEFINITION D UN CARACTERE D 520 E CODE ASCII DEC 49 530 REM RETOUR AU JEU DE CARACTERES NOR 280 MAL 290 REM Envoi 9 l imprimante du code
177. ochures saisis sur votre APPLE sont envoy s directement sur notre photocom poseuse Nous vous vitons ainsi le co t et le temps de la saisie supple mentaire que n cessite le traitement traditionnel de a photocompo sition avant l impression des documents si Vous le d sirez nous pou Vons galement nous charger de l impression et du brochage NOTRE R F RENCE LA REVUE POM S THECOMD f 19 63 O ETAN GESTON OE ERS 011015 venue du Peit MATERIE 1 O DE DONNEES RAUEM NT DE TEXTES 94300 NCENAES Pom s n 15 67 111 11 114 115 116 117 118 119 120 121 122 123 124 125 DU11 2 LOA MSGI X BEQ DUI2 JSR COUTA INX BNE DV11 2 Jmp Demande slot drive format DU 1 2 LDX B BO JSR GETKEY BCS GOEXIT SEQ DUI2 1 PHA ORA W9 80 STA MSGSLOT PLA ASL ASL ASL ASL STA IOBSLOT 091271 LOX 23 80 1 27 2 JSR GETKEY GOEXIT BCS EXIT DU2 O 3 BCS DV12 2 STA IOBORIUE ORA 8 80 STA MSGDRIUE Boucle sur les pistes z zr r DU2 0 LDA 0 STA IOBTRACK STA IOBUOL Boucle sur LOA BPL STA BEQ GOSTART 8EQ 092073 LOY JSR 8CS LOY DE Y INY INY STA BNE 093172 les secteurs SECTPTR SECTPTR SECTPTR 16 DUI SECTABL Y I OBSECTR 8 carry 0 BASCALC set bas 0 15 last KEYSOARD 092073 ESC DU20 3
178. ompris entre et NN Des secteurs de cl s en vrac plac s la suite des premiers dans lesquels les nouvelles cl s ont t stock es simplement dans l ordre chronologique de leur en tr e machine La recherche sera videmment plus lente sur ces secteurs mais on vite ainsi d imposer l utilisateur un d lai de classement chaque nouvel enregistrement La variable TT contiendra le num ro du dernier secteur de vrac TT est donc compris entre NZ 1 et NN Des que TT atteint NN 1 la capacit de stockage des cl s est satur e Un petit programme ind pendant des programmes de traitement pro prement dits permettra l utilisateur de reclasser les ci s en vrac l int rieur des cl s class es et de reconsti tuer une table de r f rence compo s e uniquement de secteurs de cl s class es Cette op ration sera par cons quent r alis e sur l initiative de l utilisateur avant de proc der un listage du fichier par exemple ou des que les temps de recherche sont trop d t rior s par le nombre de cl s en vrac explorer En ce qui concerne les cl s class es et dans la mesure o la recherche porte sur un secteur la fois il est bon de savoir si possible quel est 2 celui quil faut charger de pr f rence en m moire c est dire celui dans lequel on aurait une chance de trou ver la cl qui nous int resse Pour ce faire on conservera dans un tableau N
179. on permet de passer du mo nochrome la couleur Disques durs Pour disposer d un stockage de don n es ou de prograrnmes accessibles rapidement le disque dur est la solu tion Les prix commencent baisser sensiblement Ainsi le modele pr sent par la firme britannique Dering propose une capacit de 10 Mo pour un prix de 1095 Livres soit environ 14300 F Pas cher l octet Cote clavier Vous pouvez rem dier la faible ca pacit du buffer du clavier de l Apple e il vous suffit dintercaler le Type Ahead Buffer TAB1 de Trac Sys tems Corp entre votre clavier et sa prise sur la carte m re Pour seule ment 45 dollars Et si l on pouvait se passer carr ment du clavier Pourquoi ne pas entrer les donn es en donnant de la voix C est possible avec le Voice Input Module de Cascade Graphics Il suf fit de parler pour que enregistre ment des instructions se fasse Vous dites Catalog et la disquette affiche son contenu l cran Le syst me se compose d une carte d un casque d un micro et de logiciels ll peut tre utlis sur l Apple Il mais aussi sur le lie il faut dans ce cas enlever quel ques circuits Principal d faut il ne supporte que la VO c est dire l an glais et peut se r v ler sourcilleux sur la prononciation La pince tierce Enf n un petit instrument vendu 69 francs permet ceux qui ont puis les charmes de la pince tierc et qui ne veulent pas se lancer d
180. ons pres pour d autres programmes vous permettra de trouver dans cet article une aide efficace pour vos probl mes de fi chiers DATA 169 148 16 0 0 32 217 3 96 10 D 47 CHRS 42 01 CHR 4 OBJ A AR RUS D1 DIM N GNND POKE R 21 LL POKE AR 22 H L POKE S9 LD POKE AR 60 HD POKE 66 10 POKE A CHR 13 PRINT D BLOAD REC PR 0 NN R 67 HD POKE R 42 15 POKE 3 LC 6 BU 9 4096 J w 256 HB INT BU 25 LB BU 2 56 w 8 LB HB 4 RES 26 ABL 29 10 9 4096 256 w 4 3 FOR I O 1 6 POKE IO I PEEK 47080 I NEXT IDT 10 17 DH INT DT 256 DL DT 256 DH POKE IO 6 01 POKE IO 7 0 H IO 17 0 POKE IO 1 8 1 POKE IO 19 239 IO 20 216 5 POKE IO 3 0 RUTS 768 FOR I 0 7 READ OC RUTS I sss 24 AR 43 HS PRINT D OPEN PRINT D REA INPUT NZ NF TT 00 1C FOR I 0 TO NZ INPUT 1 NEXT PRINT D CLOSE DIM 20 TEXT HOME PRINT D OPEN PL PRINT D READ PL INPUT Pt FOR 1 TO PL INPUT PLZCID NEXT PRINT O S CLOSE PRINT D OPEN DON L100 PRINT RUS 15 D FP 20 100 50 FOR 0 TO NZ IF 2 lt NSC THEN N 1 1 2 NEXT RETURN Pom s n 15 60 NEXT N NZ 1 RETURN 65 P INT N 160 S N 16 P 70 IO 4 POKE IO 5 5 POKE IO
181. ormes pour en constituer une plus grande Les trois petits program mes suivants r alisent le regroupe ment de quatre formes baptisees formel formed et ceci dans diff rentes configurations 10 Transformation de 4 formes de 64 54 points en une forme de 64 points horizontal par 216 points vertical 20 OPTION BASE 1 30 DIM 4 218 4 I t TO 4 50 OPEN T 1 forme RIGHT STR S 1 60 FOR J amp 1 TO 218 70 INPUT 1 FIR IR JR 80 NEXT CLOSE 100 NEXT 1 10 1 F 120 PRINT 1 64 216 130 FOR I 1 704 140 FOR J 3 TO 218 150 PRINT 1 FIR IR JR 160 NEXT 170 NEXT 180 CLOSE 10 Transformation de quatre formes 64 54 points en une forme de 256 points horizontal par 54 points vert cal 20 OPTION BASE 1 3ODIMFI 4 218 40 FOR 1 TO 4 50 OPEN 1 FORME RIGHT STR 1 FOR J l 70218 70 INPUT 1 FI U J 80 NEXT 90 CLOSE 100 NEXT 170 OPEN o 1 120 PRINT 256 54 130 FOR J 0 TO 53 I4OFOR amp TO 4 150 2706 160 PRINT LFIR IR JR A44KR t70 NEXT 180 NEXT 190 NEXT 200 CLOSE e m LI 10 Transformation de 4 formes de 64 54 points en une forme de 128 points horizontal par 108 points vertical 20 OPTION BASE 1 30 DIMFIR 4 218 40 FOR 1 TO 4 20 8 43 20 OPTION BASE 1 30 DIM FR 866 AOOPEN 1 1 F 120 PRINT 1 128 108 130 FOR I amp O TO 2 STEP 2
182. os propres program mes Deux cas se pr sentent 1 Vous d sirez que votre pro gramme contienne la d finition des formes ou curseurs sous forme de DATA Dans ce cas choisissez Fop tion Imprimer qui vous fournit une copie des fenetres significatives ainsi que tous les codes n cessaires la constitution de la liste de DATA en d cimal et hexad cimal Le sous programme de copie d cran est assez lent puisqu crit en Basic mais cette solution nous parait plus l gante que lemploi du classique LCOPY De plus sous pro gramme pourra tre ult rieurement remplac pas son quivalent en lan gage machine 2 Vous destrez que le curseur ou la forme soit stock e sur disquette afin de charger sa d finition directement depuis votre programme Pour cela il faut employer l option Enregis Cette derni re solution est notre avis la meilleure puisquil n est pas n cessaire decnre les valeurs sous formes de DATA ce qui permet un gain de temps non n gligeable et conomise de la place en m morre tres important avec un 128Ko Le chargement de la d finition d un curseur partir de votre programme ne pose pas de probl me puisque le nombre d octets requis est invariable voir l article Les routines en ROM Par exemple pour charger un curseur baptis pr alablement curseur qui a dit que nous man quons d imagination on peut utili ser un segment de programme qui ressemblerai
183. osition et d animation de dessins et graphi ques color s y sont expliqu es l aide d exemples illustratifs d exercices r solus 128 pages 80 00 FF La pratiquede l Apple Il tome 2 par Nicole Br aud Pouliquen Ce second volume de la pratique de l Apple Il est consacr au Syst me d exploitation disque la gesuon des fichiers l impression aux imprimantes b cate horloge Appleclodc De nombreux exemples de programmes illustrent les fonc uons et les commandes d crites 120 pages 80 00 FF La pratique de l Apple ll tome 3 pos Nicole Breaud Pouliquen et Oonie j ean David Ce volume est une initiation a la programmation en langage machine 6502 dont le jeu d instructions est expliqu et utilis L assembleur symbolique etses logicielsconnexes y sont decrits L interacuon avec le Basic et avec le sysceme y est etudi e 176 pages 90 00 FF Clefs pour l Apple por Nicole Breaud Pouliquen Un livre de relerence dans la collec uon Mementos destin se trou ver en permanence cote de l ordi nat eur Apple Son but est l acces rapide a l infocmauon syntaxe des commandes codes caracteres Nies sages d erreurs codes machine adresses utiles comporte egale ment un recueil de 25 trucs utiles les Comment 144 pages 100 00 FF Pom SMER DIFFUSION SCE Inc L Apple et ses fichiers par Jacques Boisgonter Pour apprendre progressivement ja programmation des app
184. otons toutefois le m me sot risme de la ligne de commande L utilisation des formats de recherche nest pas toujours vidente Remar quons au passage que les signes lt et gt veulent dire tant t strictement plus petit ou plus grand tant t inf rieur ou sup rieur ou gal Exemple du guide p dagogique avanc pour un format de mise jour multiple INBCLE UPP CON MID NOM 1 3 INITS Si ce n est pas de la programmation qu est ce que Les etats On pourrait ce sujet faire les m mes tvpes de remarques que dans les paragraphes pr c dents tant pour la puissance que pour la complexit Ne lassons pas le lecteur et conten tons nous de deux remarques impor tantes Puissance outre les classiques pro ductions d tats et d tiquettes Omnis 2 possede un systeme tres as tucieux de production de lettres per sonnalis es Complexit les codes de contr le d imprimante tels que le nombre de caract res par pouce le souligne ment tant inclus dans la d finition de l tat un changement d impri mante n cessite une r vision compl te de toutes les structures d tats qui ont t d finies seules les options g n rales telles que longueur de la ligne nombre de lignes par page sont trait es part Les mots de passe Un syst me ing nieux et tr s complet de cl s d acces 4 niveaux plus le Maitre qui dit bien son nom peut tre mis en plac
185. pas sp cial Omnis mais d autant plus important que les contr les sont nombreux et sophistiqu s Nous sommes plus r serv s sur la possibilit de faire mettre en oeuvre par nimporte qui les fonctions de gestion de disque y compris les sau vegardes En resume Un logiciel de tout premier plan mieux adapt une configuration comportant un disque dur capable de satisfaire les plus exigeants et de constituer un outil complet pour une application dont la gestion de fichier constitue l essentiel Mais un logiciel ne pas mettre entre toutes les mains Ce n est pas un re proche on peut mettre entre toutes les mains ou peu pres une voi ture de s rie mais pas une formule 1 ni un 60 tonnes Saharien Le repro che irait au fait que la documentation et aussi la publicit tendent mini miser exag r ment ce fait Ne soyez pas un si vous poss dez un lisez Pom s Pom s n 15 Ce cinqui me article marquera la fin de notre revue de d tail des instruc tions de l assembleur du processeur 6502 qui quipe votre Apple 1 ou e Comme dans tout feuilleton moderne qui se respecte nous aurons droit quelques flash backs sur des l ments importants de la vie du h ros la pile et le registre d tat en l occur rence dont nous avons jusqu pr sent laiss certains aspects dans l om bre Le dictionnaire tant ainsi compl t vous pourrez d sormais parler le 6502 courammen
186. plus loin les lignes 360 500 En ligne 82 on limine les cas o Bi pourrait donner une indication fausse c est dire si l on a examin le dernier secteur class alors que tout est class ou si l on a examin le dernier secteur de vrac s il y en a C0 Les lignes 83 et 84 correspondent la lecture et l affichage GOSUB 90 de tous les enregistrements dont la cl est gale celle que l on cher che chaque affichage on de mande l utilisateur EST CE LE BON une r ponse affirmative confirme que lon a bel et bien trouv ce que Oz 1 indiquera par la suite Si aucun enregistrement n est le bon on prend en compte comme en 80 l ventualit d une annulation de la derniere cl du secteur ligne 85 A l issue de la ligne 86 R sera nul ou non selon que BL vaudra ou non BL gt signifie toujours qu un ho monyme peut encore se trouver au d but du secteur suivant celui que l on vient d examiner Ligne 90 lecture et affichage d un enregistrement du fichier DON dadresse Ligne 95 pose une question r ponse O ou Ligne 98 criture d un enregistre ment du fichier DON d adresse A Lignes 120 130 introduction de la cl au clavier puis POKEs aux adresses n cessaires pour la routine machine La longueur de la cl est quelconque la seule r serve pr s qu elle ne doit pas exc der les capa cit s du syst me de gestion des cl s Ligne 200 N
187. pose d un pointeur baptis S qui au contraire de la pile elle m me est un registre interne au m me ntre que l accumulateur ou le compteur ordinal par exemple pointeur correspond un octet peut donc varier de 255 0 FF et indique toujours la premiere position libre dans la pile cest dire son sommet Particularite du sommet il s l ve vers le bas car la pile se rem plit de l adresse 1FF vers ladresse 100 et non l inverse Lorsque la pile est totalement vide le pointeur de pile S content FF et le premier octet empile le sera l adresse 75100 valeur de S soit 1FF Apr s cet empilage S contient FE et la prochaine valeur empiler le sera ladresse 1FE Chaque fois que empile un octet diminue de 1 et chaque fois que lon depile un octet 5 augmente de 1 l n existe pas d instructions pour ma nipuler directement ce pointeur de pile du type LBS ou STS mais on peut n anmoins le faire par linter m diaire du registre X gr ce aux ins tructions e TSX BA copie le contenu du pointeur de pile dans X sans chan ger la valeur de S e TXS 9A copie le contenu de X dans le pointeur de pie JSR RTS et pile Une instruction JSR suivie de l adresse de la sous routine concer n e occupe toujours 3 octets par exemple JSR Bl 20 00 Bl et JSR FDED 20 ED FD Avant d ex cuter une instruction le proces seur calcule l adresse de l instruction suivante et la range dans l
188. r Le plus sera de rentrer toutes les BATA si vous n avez pas la disquette de Poms Une petite colle avant de commen p A savez vous se treuvent le crit entierement en Basic donc faci Pour les imbattables il restera la pos Blavet Bf la Truvere P AP E lement modifiable et propose par sibilit d augmenter le nombre de tir dune carte de France au feuves disponibles 60 actuellement E Programme E A O Fleuves t PRINT END 1000 REM TOUTE LA CARTE LN M CE Mu s s s 1010 HGR2 GOSUB 3000 FOR N 1 TO 59 b GOSUB 8000 NEXT G ARDEN DRE Sons DT 1020 WS RESTORE N O N2 Oz FOR NORMAL PRINT SPC 38 INVERS I O TO 9 N I O NEXT GOTO E PRINT NORMAL PRINT SOO j E 0 GEOGRAPHIE CM2 FLEUV ES INVERSE PRINT N e EMEN sss ORMAL PRINT SPC 38 INVERSE 2010 TEXT VTAB 2 1 HTAB 1 PRI gt PRINT 5 41 NORMAL PRIN NT T HTAB 3 PRINT H T TAB 3 INPUT RS IF RS 7 120 CLAVIER 49152 49168 TXTCL THEN GOSUB 9000 GOSUB 4000 GOT R 49232 HISCR 49237 VTAB 10 O 2010 HTAB 1 PRINT Voulez vous que 2020 TEXT VTAB 2 1 HTAB 1 PRI lques explications VTAB 12 NT T 4 PRINT AS SPC 20 B 18 PRINT N VTAB 12 HTA gt IF RS AS THEN T es 2 lt 20 95 1 19 INVERSE PRINT EXA 130 I
189. r pour des raisons videntes il n est pas possible dentrer CTRL V dans un texte par le moyen habituel On donc pr vu sur la disquette un fichier CONTROLV contenant le seul ca ract re CTRL V pour pouvoir l ins rer dans un texte qui peut servir de glossaire v toutefois un moyen qui vite les acc s r p t s la dis quette H suffit utiliser n importe quel autre symbole la place CTRL V par exemple En fin travail on remplacera toutes les par es CTRL V en utilisant la commande CTRL B puis CTRL F x CIRL Va effet linstruction CTRL F n interpr te pas le CTRL V mais se contente l ins rer Daniel HIRST 13090 AIX Je vous propose un petit programme Basic compl mentaire de la routine de comparaison de programmes Basic de G rard Michel publi e dans le Pom s 11 BIF OBJ Ce programme demande les noms des programmes comparer et cr e un fichier EXEC dont il lance f ex cution pour r aliser la comparaison G rard Hisleur 38320 Evbens 10 HOME HTAB 5 INVERSE ARAISGN DE FICHIERS BASIC 20 VTAB 7 1 PRINT FICHIER 1 30 10 HTAB 1 PRINT FICHIER 2 40 3 VTAB 7 13 INPUT jF 1 SO 10 HTAB 13 INPUT F29 60 D CHRO 44 UNERR 70 PRINT De DELETE DIF EXEC PRINT CONP 70 216 0 PRINT 06 OPEN DIF EXEC PRINT D96 WRITE DIF EXEC 80 PRINT BLOAD DIF OBJ PR
190. r entre chaque param tre CH variable alphanum rique contenant la chaine crire H colonne du premier caractere V ligne d criture H et V sont des expressions num ri ques 4 Limitations e ne doit contenir que des ca racteres dont le code ASCII est compris entre 32 et 94 pas de ca ract res de contr le notamment e n y a pas de v rification de la longueur du mot attention 5 Possibilit s On peut changer la police de carac t res utiliser des minuscules des al phabets trangers ou sp ciaux ll suffit pour cela de remplacer la table existante par une autre la suite du programme La forme num ro 63 doit tre un carr plein Voir HGRECR DEM pour un exem ple d application Etude comparative Occupation m moire La ligne Basic condens e n occupe que 96 octets comparer aux 168 octets de la routine en langage ma chine Toutefois on n a pas pris en compte les variables auxiliaires que n cessite le Basic Vitesse d ex cution Le test consistant crire les 1000 premiers nombres l aide des deux proc d s donne BASIC 1 minute 14 secondes MACHINE 53 secondes ce qui est loquent Comparaison qualitative BASIC tient en une ligne e modifie les parametres HGR n cessite un indice de boucle et des transferts de chaine MACHINE syntaxe condens e pas de modifcation des variables Basic esth tique du programme uti
191. re 1516 1517 Le processeur a comg tout seul votre erreur et converti votre en 15 DCB Les soustractions en revanche n Of pas les m mes garanties Trans formons notre programme d addition en programme de soustraction en remplacant CLC 18 par SEC 38 et les deux ADC 69 par des SBC E9 Si l on commence par LDA 00 tout se passe bien et le calcul donne 9009 9998 9997 Si commence LDA OF par contre on obtient OFOE OFOD OFOC Le processeur va calculer ainsi en hexad cimal jusqu ce que le contenu de loctet revienne dans les chiffres d cimaux on a par exemple OF02 OFO1 OFOO OE99 OE98 Le r sultat densemble n est donc pas particulierement coh rent Outre les pr cautions d emploi quil r clame le DCB pr sente un incon venient au niveau de la consomma tion en m moire Deux octets per mettent de coder les nombres jusqu 65535 FFFF en hexadeci mal mais jusqu 9999 seulement en DCB Quelle que soit la valeur maximale que lon d sire repr sen ter il faudra toujours plus doctets pour le fare en DCB qu en hexad cimal Citons rapidement dautres petits problemes relatifs au DCB l limina tion des combinaisons de bits illicites apres des d calages ou des rotations la dispantion de la notion de bit de Finalement tout cela ne fait pas la notation DCB un syst me particu lierement sympathique Vous pouvez l utiliser sa
192. rs de traitement Par un appropri l adresse 44723 voir Pom s 11 on peut m me pro t ger ainsi plus de trois pistes pour la sauvegarde d une table de r f rence et nous y reviendrons ult rieurement Organisation de la table de r f rence Nous stockerons dans cette table trois types d informations La cl d acc s identifiant chaque enregistrement du fichier de don n es et permettant d y acc der di rectement le nom d un client un num ro de dossier La longueur de cette cl sera fixe born e ou quelconque au choix du program De plus les homonymes plusieurs cl s identiques seront accept s e Des informations annexes sous forme d un certain nombre d oc tets pouvant servir de crit res pour des recherches rapides dans la table num ro de d partement codification de situation de fa mille L adresse de l enregistrement cor respondant la cl dans le fichier de donn es dernier est un fi chier acces direct DOS 3 3 stan dard Dans la table de r f rence cette adresse occupera deux octets ceci autorise des adresses de 65535 ce qui est plus que suffi sant Un l ment de la table de r f rence se pr sentera donc de la fa on sui vante Longueur totale cl informa tons annexes 1 octet Longueur de la cl seule 1 octet Cl d acc s octets Informations annexes N2 octets Adresse de l enregistrem
193. rt au coin sup rieur gauche Pour illustrer le fonctionnement de cette routine nous allons cr er un curseur ayant la forme d un Curseur EEn E Ll DENDER DENEN ma m LE C 15 Point chaud 22 5 33 7 n Masque end 100 DIM 55 110 REM 120 REM Data pour 1 d finition du curseur 130 REM 140 DATA amp H7FFC amp H8002 amp H9FF2 amp HAOOA 150 DATA amp HAOOA amp HA00A amp HA00A amp HAOOA 160 DATA amp H9FF2 5H8002 amp H8002 amp H90F2 170 DATA amp H8002 amp HSFF 4 amp 4004 amp H FFC 180 REM 190 REM Data pour la d finition du masque 200 REM 210 DATA amp H7FFC amp HFFFE amp HFFFE amp HEOOE 220 DATA amp HEOOE amp HEOCE amp HEOOE amp HEOOE 230 DATA amp HFFFE amp HFFFE amp HFFFE amp HFFFE Poms n 15 3d ET Le ET Tus apais pt 1 240 DATA amp HFFFE amp H7FFC amp H7FFC amp H7FFC 250 REM 260 REM Data pour la position du point chaud 270 REM 280 DATA S7 290 REM 300 FOR 1 0 TO 33READ CR I amp NEXT 310 CALL SETCURSOR VARPTR C amp O Note la routine SetCursor nest pas prot g e contre les passages de para metres invalides il faut donc etre tres prudent surtout en ce qui concerne la position du point chaud si l on ne veut pas planter le Macintosh Cali InitCursor Cette instruction qui ne r
194. s personnelles comptabilit suivi de commandes fichier devient possible CARACTERISTIQUES GENERALES m me dans rend acce COUIleurs e C TT ible Apple2 Apple Apple 2e 48 une sque Enfichable i e ransparenc Yr Ville Code postal 600 half duplex 300 tull duplex a standards CCITT et BELL Qu Cette caract ristique unique Do rien E incorporation des donn es ssibles tes serveurs amp B HB od G RB o P w v s o9 Mama 4444 gt m NM B w w w b 9 9 b P b T e b 4d b d 0 mm 79 o e soni 3 i Tim 52 e de choisir l ordre d entr e des ru briques et pas forc ment celui de leur apparition sur l cran Attention d avoir sous la main une liste des contr les effectu s sous peine de courir le risque de ne Jamais remplir une fiche par exem ple en sentetant a mettre M pour Monsieur au lieu de Mr Tr s nombreuses possibilit s gale ment dans le domaine de 1 recher che du tri de la s lection Possibili t s fort int ressantes de mise jour et de suppression multiple de reco pie de donn es d un enregistrement sur un autre Tr s utile fonction de hardcopie d cran etc La complexit Elle est moins grande dans l exploita tion que dans la cr ation N
195. ser le cest a dire modifier le contenu de 3F0 3F1 pour qu il ne conduise plus FA59 mats une routine que nous implanterons nous m mes et qui puisquil sagit dun exercice de style rendra simple Pom s n 15 ment BRK transparent En d autres termes nous ferons en sorte que au milieu d un programme nexerce plus aucune action sur son d roulement sinon au niveau des temps d ex cution et permette le passage l instruction suivante Cette routine list e ci dessous d bute l adresse 300 Listing 2 0300 LDX 0302 A4 3B LOY 38 0304 DEX 0305 10 01 SPL 0308 0307 88 0308 98 TYA 0389 4B PHA 030A TXA 0308 48 PHA 030C AS 48 LDA 48 030E 48 PHA 030F 20 3F FF JSR X FF3F 0312 40 RTI Lignes 1 et 2 nous arriverons tou jours en 300 apr s tre pass par FA40 qui stocke le compteur ordi nal en 3A 3B On peut donc le r cup rer ici octet bas dans le registre X et octet haut dans le registre Y Lignes 3 5 pour reprendre le pro gramme en cours celui dans lequel on a ins r un break l instruction qui suit BRK il faut rectifier la valeur de ce compteur ordinal en le dimi nuant de 1 decr mentation de tet bas puis de foctet haut si n ces saire Lignes 6 9 on empile le compteur ordinal rectifi dans lordre octet haut octet bas Lignes 10 et 11 le passage en SFA40 a galement provoqu la sau vegarde d
196. sses 108 1 7 on peut v rfier la pr sence de 63 a l adresse 1E0 S 0 et de 7057 l adresse 1DF S DF ce constituait bien le sommet de la pile avant RTS Manipulation du pointeur de pile Nous en avons vu un exemple ci dessus initialisation ou 40 En changeant la valeur du pointeur de pile on modifie l endroit o sont empil s les octets par la suite et l on modifie galement les valeurs lues lorsque le processeur d pile quelque chose Cela est vrai qu il sag sse de d piler dans l accumulateur par PLA par exemple ou quil sagisse de l adresse de retour dun JSR La routine suivante utilise la manipu lation du pointeur de pile pour r ali ser l quivalent d un POP en langage machine L exemple choisi na quune valeur d monstrative car le traitement effectu ne n cessite nulle ment complication Listing 7 0300 20 58 FC JSR s FCS8 0303 LDA 0305 20 OC 03 JSR 030C 0308 20 FO FD JSR SFDFO 0309 560 RTS 030C 29 7F AND 7F 030E TSX 030F EB INX 2 310 INX 0311 JA TXS OE 4C 03 JMP 0308 La routine effectue un HOME puis affiche un A en mode FLASH La partie qui nous concerne se situe dans la sous roubne d butant en 30C On met le bit 7 de l accumulateur 0 pour modifier le code cran auquel il correspond et on augmente ensuite le pointeur de pile de 2 TSX INX INX TXS Par cette op ration on
197. t Les interruptions et le BREAK Lorsque nous avons abord le regis tre d tat du microprocesseur dans le Pom s 13 certains indicateurs n ont fait l objet que d une mention som maire f el fut le cas pour le bit 2 in dicateur baptis comme Interrup tion et pour le bit 4 indicateur B comme Break R parons d s main tenant cette injustice Interruptions du 6502 Nous devrons nous limiter sur ce point un expos quelque peu th o rique car les signaux dinterruption ne peuvent tre envoy s simplement au microprocesseur par le biais d un programme lls viennent en effet des p riph riques connect s lunit centrale via les cartes d interface et les slots qui sont reli s au proces seur En r sum un p riph rique de mande ainsi au 6502 de stopper l ex cution du programme en cours et de travailler momentan ment pour lui afin de lui transmettre les don n es dont il a besoin pour s acquitter de sa propre t che ou de recevoir les donn es qu il est charg de four nir l ordinateur Le terme interrup ne signifie donc pas que le pro cesseur sarr te bien s r mais qu il cesse de travailler pour l un et se met au service de l autre On distingue deux types d interrup tions cest dire deux lignes reli es deux broches diff rentes du 6502 les interruptions masquables dites IRQ et les interruptions non mas quables ou prioritaires dites NMI Une interruption IRQ ne s
198. t Pom s 15 10 Chargement et modification du curseur standard 20 DIMCR 33 30 1 curseur 40 FOR I 0 TO 33 50 INPUT 1 C9 195 60 NEXT 70 CLOSE 80 CALL SETCURSOR VARPTR C 0 90 GOTO 90 La taille des formes cr es avec l di teur peut varier de 1 1 64 54 points il faut donc connaitre le nom bre doctes n cessaires leur repr sentation On peut utiliser la formule 4 NY lt 2 INT NX 15 16 mais cela oblige faire le calcul et noter le r sultat sur un papier que lon ne retrouvera pas forc ment Une autre solution consiste quitter le programme retour au bu reau juste apr s avoir enregistr une forme car lors de l enregistrement le nombre d octets requis est transf r dans le presse papier et peut tre coll dans la fen tre d information de la forme Lorsque on utilise des tableaux de variables enti res le nombre indiqu doit tre divis par deux pour charger une forme de 64 par 54 points 436 octets baptis e forme toujours autant d imagina tion on peut utiliser 10 Chargement et affichage d une forme 64 54 20 OPTION BASE 1 JODIMF amp 218 40 OPEN t 1 forme 50 FOR 1 TO 218 60 INPUT 1 F I 70 NEXT 80 CLOSE 90 PUT 10 10 F 100 100 Nous avons vu pr c demment que la taille maximale autoris e par l diteur est de 64 54 points mais il est par faitement possible de regrouper plu sieurs f
199. t IPLOT le point origine ne vatie pas apr s le RPLOT Ce point ongine est la derniere position de la plume apr s une instruction PLOT CDRAW CMOVE FRAME AXES ou IPLOT Le MODE ob it aux regles habituelles Un exemple trac d un carr de centre 0 0 et de c t de longueur 60 dans le rep re d fini par SCALE SCALE 50 50 50 50 0 0 RPLOT 30 30 2 RPLOT 30 30 1 RPLOT 30 30 1 RPLOT 30 30 1 30 30 1 Conclusion L unit graphique HPGRAPH est for m e de proc dures ais ment compr hensibles permettant de tra duire facilement en Pascal des pro grammes graphiques d origine HP Ils permettent galement d crire soi m me facilement tous les program mes n cessitant des formatages d cran et des rotations d axes ll est malheureusement assez lent par rap port aux intructions Basic d HP en viron une fois et demi plus lent que EE SS WS 59 sur le HP 85 pour le trac de la manquent Programme HPGRAPH eS Sev UNIT HPGRAPH INTRINSIC CODE 16 DATA 17 INTERFACE C N Monsarrat septembre 1984 USES TURTLEGRAP HICS TRANSCEND PROCEOURE FRAME PROCEDURE PENUP PROCEDURE PEN COLOR SCREENCOLOR PROCEDURE PDIR ALPHA REAL j PROCEDURE CMOUE CX Y REALD PROCEDURE X Y REAL PROCEDURE PLOT X YiREAL MODE INTEGER 1 PROCEDURE RPLOT X Y REAL MODE INTEGER PROCEDURE IPLO
200. t me standard les arguments pouvant donner des r sultaw diffe rents avec les versions futures ou avec un dossier bidouille Chicago New York Geneve Monaco Venice London Athens San Francisco Toronto NO JO JI B O Call TextFace aspect D termine l aspect du texte La rou tine utilise les 7 bits de poids faible de l argument de la mani re sui vante e bit O 1 gras e bit 1 2 italique bit 2 4 soulign e bit 3 8 relief e bit 4 16 ombre e bit 5 32 espacement normal des caracteres bit 6 64 espace plus important entre les caract res Ainsi l argument 7 1 2 4 cor respond gras soulign itali que affiche des caract res stan dards Call textSize taille La hauteur des caract res affich s est par d faut de 12 points Cette instruction affecte aux caracteres une hauteur en fonction de l argument n 15 Une valeur n gative inhibe l affi chage O redonne aux caract res leur taille par d faut e plante le e 2 et plus indiquent la hauteur des caract res ll est possible de donner aux caract res une hauteur de 3 ou 300 points mais la lisibilit n est pas tr s bonne elle est m me franchement mau vaise De mani re g n rale il vaut mieux s en tenir aux tailles recom mand es par MacPaint et MacWrite Call TextMode mode Le but de cette instruction est
201. t t recopi sur disquette C22 GOSUB 65 Lignes 820 et 840 modification dans la table de r f rence SB donne la position dans le buffer du premier caract re de la cl s lectionn e posi tion qui a t indiqu e par la routine machine On remplace donc les in formations annexes ventuellement modifi es avant de r crire le sec teur Ligne 980 pour marquer l an nulation d une cl on remplace son premier caract re par un ce qui garantit qu elle ne sera pas retrouv e par la routine de recherche Par contre sa disparition effective de la table ne sera r alis e qu l issue du reclassement Lignes 2000 2999 fin et sor tie du programme Lignes 3000 3070 liste et affii chage des enregistrements dont les cl s sont actuellement class es On lit successivement les secteurs depuis N26 jusqu 2 sauf si l utilisa teur arr te avant Dans chacun de ces secteurs on r cup re les don n es de chaque cl non annul e BU SB lt gt 0 on lit l en registrement correspondant et on l af fiche l cran Programmes annexes Initialisation d une disquette fichier Vous pouvez utiliser un programme comparable au programme INIT list ci apr s afin de donner aux param tres du syst me les valeurs correctes pour une toute premi re utilisation C est dans un tel programme que vous pouvez par ailleurs r server plus de 3 pistes pour votre table
202. t la cr a tion la modification la consultation l annulaton et la liste d enregistre ments Son tude nous aidera comprendre la mise en oeuvre du systeme Principales variables e adresse de d but de la rou tine en langage machine de re cherche dans un secteur e ADR adresse de d but de la zone o la routine machine sto ckera les adresses des enregistre ments dont a cl correspond celle que l on cherche e CLE adresse du d but de la zone o le programme POKEra la cl recherch e e ASYO adresse du d but de la zone la routine machine sto ckera les positions dans le secteur des cl s correspondant celle que l on cherche e BU adresse du d but du buffer en m moire utilis par RWTS pour lire ou cnre un secteur e C adresse o sera POKee la longueur de la cl cherch e e RES r sultat de la recherche soit silon pas trouv et le nom bre de cl s gales celle cherch e dans le cas contraire e ABL indicateur de fin de secteur positionn par la routine machine Si on trouve effectivement une cl au moins correcte mais que celle ci est galement la derni re dun secteur la routine mettra 1 dans l adresse correspondant ABL En effet dans les cl s clas s es rien n interdit que l on ait un MARTIN par exemple la fin du secteur 3 mais aussi d autres MARTIN au d but du secteur 4 Si ABL vaut l il faudra donc exa miner le secteur suivant pour v ri
203. te instruction fonctionne exacte ment de la m me facon que Call 34 BackPat une nouvelle explication se rait donc superflue Cali Penmode mode Call Penmode deterrrine le comper tement des instructions ou routines graphiques par rapport ce qui est d j affich l cran mode Il sagit du mode normal les points constituant la ligne ou la figure qu ils soient on ou off masquent ce qui se trouve sur l ecran mode 9 L op ration logique OR OU est r a lis e entre la ligne ou la figure et le fond Autrement dit les points on du fond et de la ligne sont affich s Bans le petit tableau plac ci des sous la premi re colonne de chiffres repr sente les points de la ligne af ficher 1 point on 0 point eff la seconde colonne repr sente les points d j pr sents l cran et la troisi me indique le r sultat de l op ration 1 OR 12 1 ORO 1 O OR 1 1 OORO 0 mode 10 Ce mode autorise une op ration logi que de type XOR OU exclusit Les points on du fond et de la ligne sont affich s sauf si un point on de la ligne correspond un point du fond Dans ce cas le point r sultant est blanc 1 1 0 1 XOR O j 0 1 1 0 XOR 0 0 mode 11 Op ration logique ANB ET Les points r sultant de l op ration sont uniquement si les points corres pondants de la ligne et du fond sont on 1 AND 1 1 1 AND 0 0
204. telles par exemple des tables contenant les codes des caracteres de messages afficher l cran Malheureusement vous ne savez pas exactement combien de 0300 1 0300 2058 2 0303 201803 0306 CDCSD3 8 030 D3C 1C7 030C C560B1 030F 00 0310 201503 3 0313 CD ESDS3 0316 D3A082 031 00 031A 60 2 031B 50 031C BD0101 gt 031F B506 10 0321 BD0201 11 0324 8507 12 0326 A001 I3 325 RETI 13 S3 0328 0003 15 0320 FE0201 16 0330 106 7 552 0332 006 18 0234 20FOFD 1 gt 0337 20 0338 DOEE 21 0334 2062FC 22 Sd 033D 60 23 ces tables vous seront n cessaires ni quels endroits elles se trouveront dans le programme Comme tou jours plusieurs solutions sont envisa geables pour r soudre les probl mes de programmation que pose cette si tuation L une d elle consiste l en core utiliser la pile comme le mon tre le programme suivant que nous allons analyser Ligne 4 elle correspond aux codes cran du message MESSAGE 1 suivis d un pour en marquer la fin Ligne 5 codes cran de MESS 2 suivis de L affichage se fera chaque fois par un JSR 50 plac avant les codes composant le message Lignes 8 12 on transf re le poin teur de pile dans X pour lire les deux octets du sommet de la pile c est dire l adresse de retour du JSR 50 diminu e de 1 On prend pour adresses de base 101 et 102 au lieu de 100 et 101 puiswue S pointe vers la premiere position libr
205. thecaire Les emplois de Microbook sont multiples il peut etre utilise pour quasiment toutes les applications ou le stockage et la recherche de don nees est importante Les program mes etam cres longs i est recom mand d acheter egalement la dis querte d Xcompagnerment en deux versions l une compil e l autre code source Le livre 248 pages 135 00 FF ESC SQ LIE T AC OMF AGNEMEN Microbook Que donnees par Ted Los volume MIC RI Apple Il Il plus e e u c avec systeme disquette simple face compi lee donc modifiabie Prix 195 00 FF ajouter B FF 75 FB par Praw in SUISSE frars de Dort sur 150 FS Paement gn FF par Carte VISA a PSI DIFFUSION ureQuement paemenisup rieur a 90 F F LES 5 7 Je d sire recevor le catalogue P S gratuit x Microbook baw de donnee bou A enl bar Ted Lewis rolume SOURCE et wolume Apple ll Il plus e et c avec sys teme Pascal disquette 2 faces enre gistrees Prix 295 00 FF Le systeme Pascal ainsi que les consi gnes d utilisation des programmes contenus dansle livre sont indispen sables Cette disquette existe en deux versions l une double face destinee aux passionnes dela programmation en Pascal qui pourront directement pro grammer dans ce langage et developper et etendre a leur gre les facultes du systeme La seconde compil e simple fac
206. u prix de 600 francs l aide d un r cepteur BLU il est pos sible de d coder les messages en trois vitesses les sauvegarder sur dis quette et les visualiser sur cran ou imprimante Les r sultats obtenus sont tout fait satisfaisants et jinvite les personnes int ress es m crire Monsieur Guedi Michel 34 rue Pierre Curie 93138 Noisy le Sec 75 1211 44124124 4224122 4128811 111111114242 111111111124 111114144124 12112444242 111111111414 002000000060 111111111412 LI L 1111 111141422 11111114114 442111111244 121112414124 111111111141 121212144 10 CONGRES EXPOSITION DE MICRO INFORMATIQUE DU 16 AU 19 FEVRIER 1985 PALAIS DES CONGR S PORTE MAILLOT PARIS EXPOSITION PROGICIELS BUREAUTI QUE TELEMATIQUE ROBOTIQUE INTERCONNEXIONS PERIPHERIQUES ACCESSOIRES CONFERENCES SYST MES VERS UN NOUVEAU STANDARD COMPRENDRE LA T LEMATIQUE L AVENIR DU GRAPHI UN D UNE VALEUR DE 100F DONNE ACC S A TOUTES LES CONFERENCES CATALOGUE D TAILLE SUR SIMPLE DEMANDE SYBEX propos des trucs pour Apple Wri ter et e de Thiriez dans le Pom s 12 j ajoute queleues mots sur la commande CTRL V Il est vrai que le glossaire la version in terpr te les caract res de contr le comme en mode direct if est donc n cessaire les faire pr c der CTRL V dans le glossaire O
207. u registre d tat au mo ment du break l adresse 48 va donc le relire et le d poser au sommet de la pile Cette derniere pr sente maintenant la m me confi quration qu lissue d une interrup tion Ligne 12 FF3F est le d but d une routine du moniteur qui recharge les registres avec les valeurs lues en 45 48 le passage en FA40 a permis la sauvegarde de ces memes registres dans ces m mes adresses On re trouve ainsi le contenu des registres au moment du break dans le pro gramme initial Ligne 13 avec l instruction RTI on simule un retour dinterruption et la pile ayant t correctement reconfi gur e on doit retourner au pro gramme principal juste apr s lins truction BRK Pour mettre cette routine en m vous pouvez la charger tir de la disquette d accompagnement ou la rentrer directement en mode moniteur en tapant CAPE 15 300 A6 3A A4 40 Pour en faire la nouvelle routine de Pom s n 15 break il faut ensuite en donner l adresse 3F6 3F1 Passez mode meniteur si vous n y tes pas d j et tapez 3F0 00 03 La routine list e ci dessous nous ser vira de test En principe elle doit ex cuter un HOME et afficher un A en haut et gauche de l cran Etant donn que nous avons mis des BRK entre chaque instruction cela ne sera effectivement possible que si notre routine 300 rend bien le transparent Pour le v rifier chargez cette
208. uettes que vous Ce programme ne doit pas induire nuilisez quasiment jamais et bien une impression de s curit qui serait Assembleur Big Mac 26 2v LN 80 1 LST OFF oS ESC 9B 2 29 BLANK 3 333 33 EEEE 30 4 DISK CHECK UP 31 SASL 28 Cj 3t 3 JE 3E 3E E E E E E DEDE D E 32 TRAP 4B 33 GORUTS 309 2 Copyright CJ 1984 Avrane 34 pos 3EA 8 35 RETRYCNT 578 9 M A J 14 07 84 36 SYMBOL 590 10 Creation 09 05 84 37 KEYBOARD C000 11 38 STROBE 010 12 w programme v lt rifie 39 PRBL2 F94a 13 w l int grit physique de toute 40 BASCALC FBC1 14 disquette formatte 16 secteurs 41 HOME FC58 15 affichant le nombre d essais 42 WAIT 16 requis par RUTS pour lire 43 COUTO FDFO 17 chacun de ses secteurs 44 SETUID 9 18 45 ORG 900 19 Affichage des rsultats 4 21 et SL flash sinon pour e 48 w 22 premier calibrage 49 START JSR SETUID 23 Code et S si i o error S0 JSR HOME 24 51 LDX 14 25 LOUCASE l 52 JSR PRBL2 set x 0 LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO INFORMATIQUE PAR T L PHONE ou O DONNEZ NOUS VOTRE DISQUETTE LU 255 TRANSMETTEZ NOUS VOS TEXTES Les textes de Vos articles catalogues annuaires ou Br
209. uit vibrant et tres d sagr able car souvent annonciateur de catastrophe pour effectuer nou veau 48 tentatives Controles effectues Le programme demande au DOS dobserver l ensemble de la disquette et rel ve pour chaque secteur le nombre de tentatives infructueuses Normalement ce nombre doit tre tr s faible il saffiche en hexad cimal 0 1 F en mode normal pour la plage de valeurs 1 16 en inverse pour 17 32 en flash pour 33 48 Les valeurs 1 et 2 sont affich es par un simple point afin daerer l cran Toute autre valeur affich e en mode normal donc inf rieure 16 n est pas inqui tante imm diate ment En revanche si le programme affiche des secteurs en inverse ou en fash il devient urgent de faire une copie de la disquette Le programme ne se pr occupe pas des valeurs su p rieures 48 car celles ci ont d clench le recalibrage du bras de lec ture et il est alors fortement d conseili de continuer utiliser la disquette 51 la tentative de lecture se solde par un chec complet un est affich en flash Th oriquement un secteur est ob tenu avec succes apres 8 tentatives en moyenne en effet une piste contient 16 secteurs et la t te de lec ture peut se trouver nimporte quelle position sur la piste N an moins et afin d acc l rer le temps d ex cution le programme est mi de mani re minimiser le nom bre de lectures en g rant le secteur dema
210. ulation CLAS OBJ 5 ea az co 54 EC ao 00 vue nd d CO EY 1138 FE 60 A4 FE A3 ED 91 18 1280 14 CD 14 80 03 EE E6 1140 18 69 02 80 E 14 AS 1288 14 1C FO OD EZ 13 1000 A 01 A2 OC 9D EG 14 AS 1148 07 91 18 84 FE A4 1290 FO 18 80 85 AC EA 14 81 1006 7107 65 Dp DO 33 AS 1150 84 FC AS 18 1F 2 00 1298 A 10 86 EE E 14 1010 07 85 18 00 85 85 1158 81 1 90 12 EB C8 EC 12A0 EB 14 A 86 EF 4C 1018 EC 42 08 BE EZ 13 AS 04 1160 E 14 DO F4 4 FE 2 00 12 8 36 12 EO AD 6 14 DO 1020 90 14 E8 5 18 90 1168 D 12 91 10 E8 C8 EC 1280 08 14 DO 4C 49 13 20 DILE AEB ASE 1170 E 14 DO F4 A9 00 91 18 2BB 12 EC E 14 FO 06 4 89 1030 ES 1500 IE FO 1178 85 04 FE 4 8 10 FO 12C0 12 AD EZ 13 FO AS EE 1038 EO 00 07 84 EG A2 1180 03 4C 90 11 C8 AD E 12C8 85 10 AC EZ 14 A9 FF 1048 42 09 4C 24 10 6 18 A5 1190 F4 10 4C FE 10 E8 14 12D8 E8 14 E8 05 EC 9D E8 14 1050 18 85 F E8 EO 10 00 05 1198 FO 03 4C F4 10 AS EF 18 12E0 A 14 AO EB 20 09 03 60 1058 84 E8 2 00 86 EC 4C 1 1Q0 69 05 10 45 FE 90 03 20 1060 68 10 A 00 85 EC 11Q8 OE 11 A4 FE AS EF 91 18 1068 AS 10 2 09 90 14 20 1180 AD E8 14 91 18 AD E TABLES 1070 12 A4 A EC C4 CE 1188 14 85 FC AS EE 85 1F 1078 00 04 E4 CF FO 05 6 10 11 0 A2 00 OD EZ 13 91
211. ule le num ro de forme cor respondant en deduisant 1F soit 31 puis on la dessine Lignes 133 138 le d calage du caract re suivant s obtient en incr mentant l abscisse X de la quantit Programme de d monstration ZTRANS ici fix e 6 Lignes 142 146 on r cup re le num ro du caractere sur la pile on l incr mente et on v rifie si la chaine a enti rement t crite ou non Lignes 150 155 on restitue cou leur et chelle en cours Fin de rou tine Lignes 159 162 modification classique du pointeur de pile dans les programmes relogeables Lignes 164 173 calcul de l adresse absolue de la forme dessi ner cette adresse est empil e provi soirement Lignes 175 178 positionnement du curseur l cran Lignes 179 184 dessine la forme Lignes 186 187 fin de proc dure Lignes 189 190 c est lassem bleur qui calcule pour nous 1 lon gueur de la routine sympa Remarques HGRECR LIB ne modifie ni l chelle ni la couleur en cours dans le pro gramme Basic l est compatible avec une autre table de formes puisqu il n utilise pas les adresses E8 E9 232 233 Utilisation 1 Charger selon la taille du pro gramme Basic et la page utili s e la routine HGRECRLIB en m moire adresse AD 2 Prot ger page graphique et rou tine par LOMEM et ou HIMEM 3 Syntaxe CALL AD CH H V la virgule sert de s parateu
212. un 410 00 GUMBALL Broderbund 310 00 AJEOO2 FLIGHT SIMULATOR Il Sublogic 550 00 AUEOO SUMMER GAMES Epyx 410 00 AEE004 CHOPLIFTER Broderbund 340 00 1 MINER 2048ER Micro Fun 400 00 OILS WELL Sierra 300 00 AGEOO4 THE SPY STRIKES BACK Penguin 200 00 STRATEGIE PROF TOURNAMENT GOLF Strategic 400 00 1 SARGON III Hayden 470 00 AME002 BATTLE OF NORMANDY Strategic 400 00 AVENTURE AHEO01 MASGUERADE Phoenix 350 00 AIEOO 1 LEGACY OF LLYLGAMYN Sir Tech 400 00 AREO001 DARK CRYSTAL Sierra 380 00 UTILITAIRES IMPRESSION 1 SIDEWAYS Funk 620 00 EDIT BASIC ADE001 C G PLE Beagle Bros 600 00 TABLEUR ABEOO2 MULTIPLAN Microsoft 1750 00 COMMUNIC 1 ASCII EXPRESS THE PRO United 1 200 00 uniquement 80 ORGANISATION 1 THINK TANK US Living Videotex T L PHONEZ TABLEUR ANFOO 1 TK SOLVER US Software Arts 3 700 00 et e uniquement ao FICHIER ACFOO PFS FILE US Software Publ 1 250 00 IMPRESSION ACFOO2 PFS REPORT US Software Publ 1 250 00 FICHIER ASFOO1 HOME CATALOGER US Continental 520 00 lt w 2 Macintosh JEUX ARCADE BAG001 MAC VEGAS US Rouletle Poker Blackjack Keno TELEPHONEZ Baccarat Machine sous Craps s STRATEGIE 001 SARGON III US Hayden TELEPHONEZ AXGOO 1 MILLIONAIRE US Blue Chip 680 00 2 BARON US Blue Chip T L PHONEZ AXGOOS TYCOON US Blue Chip
213. un document qui se trouve d ja enregistr sur dis quette Macwrite le premier traite ment de texte du Macintosh ne le fait pas directement qu il permet les caract res gras soulign s l efface ment des mots et des lignes et peut E gt m me automatiquement num roter des paragraphes indent s on peut 5 estimer satisfait du bilan Tout au plus peut on lui reprocher en saisie de textes certaine confusion l cran Lorsqu on change de carac teres passage en soulign gras etc et quil faut revenir au carac tere normal ce passage sinscrit en clair l cran ainsi que les RE TURNs que pour taper sim plement une petite lettre ce pro gramme na guere de concurrent D autant quil ne co te que 850 francs Fortement recommand Parmi les programmes int gr s si gnaler Magic Officed lt qui comprend un traitement de textes un tableur des graphiques et un dic tionnaire de correction le tout claire ment pr sent en tiroirs desseers avec des possibilit s de couper coller entre documents Bien mieux pr sent qu Appleworks mais il ne lui manque que Juickfile il ny a pas de gestionnaire de fiches Depuis peu the Team de U Micro computers offre un traitement de textes un gestionnaire de fiches des possibilites de calcul et un graphisme Le tout fonctionnant en Pascal pour Apple ll Plus eet A remarquer encore le logiciel de correction d orthographe
214. un ensemble de programmes utili taires crits en Pascal Un expose des techniques les plus labor es d atteindre niveau sul fisant pour utiliser les methodes de programmation mises en oeuvre 76 pages 95 00 FF Les bases de donnees sur Apple Il por Miche Keller L objet de cet ouvrage est d aider le lecteur faire un choix parn les nombreux logiciels existants sur Apple Quatre de ces logiciels sont s lectionn s ici PFS ec PFS Report DB Master CX BASE 200 DBASE il Pour chacun on trouve une des cnpuon d taill e du logiGellui m me ete ses proc dures de moe en route de cr auon de fichier de susie des donnees de maintenance et d edi tion L auteur termine etude par l expose des avantages et des irconv nients inherents a chaque logiciel 144 pages 85 00 FF Microbook base de donnees pour Apple 11 por Ted Le ws Microbook e t un systeme de ges uon de donn es et un outil de d veloppement de programmes con u pourtransformer l Apple ll en Envoye ce accompagne oe v DIFFUSION iU peur la Belgique 4 I BENELUX pour a menl per cheque joi un outil de classement de fichiers de collecte et de recherche d infor mations et de traitemenc de don nees C est un ensemble de pro grammes ecrits en Pascal qui fat de l ordinateur un v ritable biblio
215. ur Macintosh qui doit para tre aux Editions du PSI la fin d cembre Cet ouvrage a t r alis partir de la version 102 de Fultiplan en version fran aise ao t 1984 t UU u H Uy Z ON RB d LMN OPURS T U U WHY 2 EET us E OM J 2 34 5 6 78901 pt sm er EXE Police Caire Tableau provenant de Hac the Knife from the fon Pomsn 15 Les Routines en ROM du Macintosh Le Basic Microsoft donne acces 41 routines situ es dans la m moire lecture seule du Macintosh Malheu reusement le manuel d utilisation de linterpr teur indique seulement la syntaxe des instructions ce qui est loin d tre suffisant pour une unlisa tion optimale De plus le manuel propose pour obtenir de plus amples informations une consultation du QuickDraw Programmer s Guide qui n est pas accessible l utilisateur du Macintosh Devant cet tat de fait nous avons pense devoir vous fournir la docu mentation qui aurait normalement d tre jointe au manuel dutilisation du Basic Microsoft Avant d entrer dans le vif du sujet il convient de signaler que cet article nest pas un remake du Quick Draw Programmers quide nous navons jamais eu entre les mains document Cali BackPat 0 Cette instruction permet de d finir une matrice de 8 8 points ou pixels qui d termine l apparence du fond de l
216. ureu sement les exemples ne sont pas forc ment transposables lenviron nement francais Autres titres dBase Il sans embuches par G Ongoneff Eyrolles 176 pages 115 FF Du style avec Wordstar par R B White Jr Eyrolles 232 pages 150 FF Forth pour micros par J M de Geeter Eyrolles 192 pages 90 FF L art des bases de donn es par S Miranda et J M Busta Evrolles 248 paqes 180 FF Les syst mes de gestion de bases de donn es par J Akota Evrolles 320 pages 170 FF The Apple personal computer for beginners par Seamus Dunn et Valerie Morgan Prentice Hall 251 Pages 812 95 Handbook of Appiesoft Basic for the Apple Il and e par Roy Earl Myers et David Schneider Prentice Hall 321 pages 16 45 Apple programming for learning and teaching over 50 applica tion programs par Frederick Bell Reston Prentice Hall 305 pages 22 05 Le Basic bien programm par A P Stephenson MicroDunod 120 pages 65 FF Basic Microsoft et Basic ANSI par M Maiman MicroDunod 165 pages 40 FF PEERS Les nouvelles Alexandre Duback Pom s vous pr sente aujourd hui trois nouvelles disquettes un diteur plein cran la version 2 du Disk Ma nager enfin et une disquette Macin tosh la premiere d une longue s rie Saviez vous que les disquettes de Pom s sont les disquettes les plus vendues en France Disk Manager version 2 Prix 450 francs Echange gratu
217. vec les renseignements 65 plus r cents sur les logiciels du Macintosh Politique ditoriale Nous nous sommes longuement interrog s sur la politique suivre pour nos articles dans le cahier du Nous avons finalement d cid de maintenir au niveau du Macintosh la politique de qualit de Pom s qui a toujours refus le nivellement vers le bas Nous partirons donc du principe que les lecteurs de Poms auront lU les modes d emploi du et des logiciels quiis utilisent et quii est donc inutile de leur proposer des explications qu ne feralent que r sumer la documen tation Contenu de la disquette Mac Nous vous proposons en outre d s ce num ro une disquette Macintosh dans laque vous trouverez le programme Disk qui permet de r aliser une copie de disquettes en quatre passages labcdefgh FE OI RB C Dt F 6 AAA A ASA NN NN NAN NN NNN l AHIE ARR RAR PR AAY avec seulement le lecteur int gr du Mac e la police de caract res Cairo dont vous pouvez voir les signes en bas de page e les programmes du publi s dans les num ros 14 15 de Pom s Nous ajouterons 2 la disquette au fur et mesure les programmes des num ros suivants ains que quelques surprises suppl mentaires Que nous vous laissons d couvrir Multiplan sur Macintosh Ius compact Pour avoir plus de lignes et de colonnes l cran
218. vec une dis quette dans le lecteur 56 rajou tez POKE 5357 1 apres le charge ment de la routine CLAS OB A noter que le fonctionnement de la routine machine suppose que l on puisse charger tous les secteurs de cl s en m me temps dans la m moire centrale Le buffer utilis juste au dessus de la routine elle meme va de 1500 15FF soit 5376 5631 Le nombre maximum de sec teurs autoris est donc INT 38400 5631 256 soit 128 de O 127 ou encore 8 pistes compl tes ce qui fait d j beaucoup bien qu il soit de savoir combien d oc tets sont perdus la fin de chaque secteur du fait quon ne peut pas toujours y stocker un nombre rond de cl s Si on suppose par exemple que toutes les cl s sont format es 15 caract res plus 4 octets dinfor mations annexes ce qui repr sente donc 15 44 44 octets par l ment de la table on pourrait g rer par ce sys t me un fichier de plus de 1400 en registrements si la place disponible sur le reste de la disquette le permet Sur ce dernier point ajoutons encore que bien que cela soit sans doute moins pratique rien ne s opppose ce que la disquette du fichier de don n es se trouve dans lecteur et celle de sa table de r f rence dans un autre Dans ce cas il faut sonqer appeler le lecteur contenant la dis quette table avant de recopier la table JOB du DOS dans le pro gramme de traitement voir ligne 4 du program
219. vrez 15 des plus grandes stars d Atari M me si vous n avez pas d ordinateur Atari Atarisolt vous permet d sormais de d couvrir les programmes Atari les plus c l bres Pac Man Centip de Jungle Hunt P le Position Galaxian Miss Pac Man Joust Moon Patrol ATARISOFT Dig Dug Donkey Kong Robotron 2084 Defender Stargate

Download Pdf Manuals

Related Search

Related Contents

Istruzioni per l`uso per il regolatore di assetto fari universale Hella  Bedienungsanleitung  COMPACT REFRIGERATOR-FREEZER  取扱説明書  

Copyright © All rights reserved. Failed to retrieve file