JPC n°18, octobre 1984
Contents
1. Journal au raris Gnapiuer JPC OCTOBRE 1984 NLIMERO 15 LAURENT ISTRIA 1 EDITORIAL PHILIPPE GUSZ 2 UMN MOT DU PRESIDENT JEAN MARTINELLI 3 PPC A LA RADIO PIEPRE ANTOINE 6 CREATION D UN XROM suite PHILIPPE GUAZ 8 ENTREE DE CARACIERES EN ALPEA JTAN PISRRE TOYRE 8 BIZARRERIE SUR EP41CX JEAN CLAUDE BECKER 10 QUE PEUT ON FAIRE AVEC UN MODULE 1 0 JEAN CLAUDE BECKER 10 PRG DIRE JEAN CLAUDE BECKER A PRGN ENVOIE DINIS CASTELAIN 13 PRCI CT COMMUNICATION TELEPHONIQUE GIL2ERT T SSERAND 14 TRADUCTION A LA GREC DU Pret UNPUS JEAN JACOUES MORTAU 16 PRG INTG JEAN JACQUES MOREAU 18 PRC LEC DANIEL JACOB 19 FONCTION DECODE PROGRANNES OLIVIER ARBEY 23 IMPRESSIONS SUR LE KHP110 DAVID MARTINET 25 PRG JPCLISTE MICHEL MARTINET 25 _ PRON VOLABEL PIERPE LANGLOIS 26 PRGN MUAGI OLIVIER ARBEY 26 POENE MACHINE PIERRE LANGLOIS ROT ROUTINE D INVERSION VIDEO _ PIERPE DAVID E27 FONCTION MSGS 26 PRG POLYCOPY PISPAT DAVID Les illustrations sont de PILOUSAN ee E Ent iat a TMI KEE ER EE SO par Pic Te BS GE a NL D pun j N Bel KSC KE VA oie EDITORIAL Ch res amies Chers amis Les sanglots longs des violons de 1 automne Elessent mon coeur d une langueur montone Verlaine Eh oui l automne est arriv avec lui ses frimas son ciel gris sa pluie fine ses journ es de neuf heures Atroce pareil A lui m me Mais heureux tes vous qui pou2. registre dans la boucle Incr mentation Adresse Piochage Codes Fin instruction 2 non Chargement Code en alpha E59F D cr mentation longueur instruction Instruction End non D cr mentation nombre de codes traiter OUI Identification nouvelle instruction EXCH AUTRE EXEMPLE Le PRGN Dr avec GTO compiles private utilisation du PREN PP apres listing nornal B1 LBL Pr 92 SEG 83 FEB A 84 ZER 1 03 KEG 86 AER Br 1 2 3 a2 VIEKS 89 TONE gt 18 RIN 11 ENE PRIVATE GI D GO MC s TON Fi KS al hot al IEN A 0 GJ CH sl P Pour des raisons d implantation je n ai pas utilis d instruction PORT DEP E568 et E56A mais un adressage direct Enfin pour les inconditionnels des choses bien faites il est toujours possible de rajouter une routine d impression d une en t te par exemple PRGM TRUC ainsi qu une routine contr lant la pr sence de la Printer avec affichage de NO PRINTER De toutes fa ons il ne tient qu eux d apporter les modifications souhait es Daniel JACOB 11 JPC n 18 page 21 J OO P WE N H HP 110 IMPRESSION SUR LE HP110 OLIVIER ARBEY JPCLISTE DAVID MARTINET VOLABEL MICHEL MARTINET NUAGE PIERRE LANGLOIS POEME MACHINE OLIVIER ARBEY ROUTINE D INVERSION VIDEO PIERRE LANGLOIS FONCTION MSG lt PIERRE DAVID POLYCOPY PIERRE DAVID JPE n 18 page 22 IMPRESSIONS SUR LE HF 110 Tl etait
3. ES89 810 R 3 ES A GAA AOC R ES8B 918 LIER ES8C 328 WRIT 12 b ESAN 08D ESBE 89E NCGO 2783 ES9F ES F 678 N C ALL ESLG ORE ACC ALL ES11 158 N C ALL ES12 BAE C ALL E513 138 LDI SEK ES14 038 ES15 28C R 13 E516 298 LIER A E517 88h H RC ES18 JIE 2AXC MS ES19 81F JC ESIC 83 ESIA 39C R 8 ESIB 108 LDER 7 ESIC BRE AOC ALL ES1D 2FC RER 13 ESIE 146 A A C 52 ESIF BAG ACC SEX E528 39C R 8 E521 858 G C Ri E522 051 E523 BB4 INCH 2014 E324 300 FSET 1 ES25 04F JC ES2E 99 E526 308 SETF 1 Esa 88E A 8 ALL E528 860 CH ALL 529 2FC RER 13 ES2A 11E A C MS ES2B 2FC RCR 13 ES2C 878 H C ALL ES2D 328 JNC ES12 1B ES2E 384 CLRF 1 ES2F 138 LII SEX E538 828 ES31 390 R 8 ES32 938 G C 8R E333 851 ES34 8B4 NCXA 2D14 F939 198 CR ALL ES36 ARE ACC ALL E537 629 CH ALL ES38 JEA RTH LPC E539 883 C ES3A 618 Pr E538 18 L ES3C 080 NOP ES3D 345 ESSE 048 NEU 1911 ES3F 36 ES48 88C PORT DEP ES41 F2 XQ E4F2 ES42 1AB A B C 6 E543 338 READ 126b ES44 BEG SLCT ES45 91C R 3 ES46 2E2 C 0 BR E347 AB JNC ESSC 15 E548 278 RAM SLCT E549 BAR ACC Re ES4A 933 READ ACT ES4B anG SLET P ES4C 39C R 8 E540 8h68 SLCT P ES4E 3DC R R 1 ES4F 3DC R R 1 E958 GE SLET H ESSI 192 A A 1 R ESS2 342 eg BR E953 3B JC ES4D 86 E554 2DC R 13 E555 852 C 8 P Q ESS6 BAE ACL ALL ESS B1C R 3 E558 18 LIER 7 ESSI BAE ACSC ALL ESSA 6E AB ALL ESSB 038 JNC E562 87 ESOC 266 C C 1 S amp ES
4. change les contenus des deux m moires comme X gt Y Le deuxi me DEVL remet les m moires leurs places 9 12 Envoie la cha ne en alpha vers la m moire 1 en l crivant partir de la position du p pointeur Pour stocker un groupe de chafnes il faut done faire XEQ A la premi re fois et XEQ a les autres fois Pas 15 16 Place l appareil en mode metteur Pas 17 19 Comme 95 7 en mode metteur Pas 21 22 Transfert une cha ne de la m moire 1 vers la boucle en commen ant au pointeur Pas 26 Envoie la cha ne jusqu au premier caract re fin de ligne retour chariot vers l appareil dont la position sur la boucle IL est plac e dans le registre 99 R9f doit contenir un nombre compris entre 1 et 36 Les donn s ne transitent pas par la m moire de la 41 Pas 29 39 Ram ne la cha ne vers le registre Alpha et l affiche Si ROO est nul Pour ramener un groupe de cha nes il faut donc faire XEQ E la premi re fois et XFO e les autres fois REMAROUE Attention A l indicateur 171 En mode metteur il vaut mieux le d sarmer En mode r cepteur il accrahera entre elles deux cha nes succ fives s il est arm et les traitera comme des cha nes s par es s il est d sarm EXTENDEDEMENT VOTRE Jean Clande BECKFR JP n 18 page 11 G1 LBL DIRE a Wee Catalogue normal Ia ENVOIE 03 FINDID 58 LBL 18 DIR B i pt A 94 SELECT 59 7 NAME TYPE REGS 83 i 68 DEYL ich FRSA 2 84 LISTER
5. DIRE Une remargue ce programme n est pas identique d DIR quand au r sultat obtenu 11 manque les indications de s curisation de privatisation et de d part automatique par contre il donne en plus le num ro d enregistrement de chaque fichier cf exemples Le programme m a t fourni par ETIENNE POUPE pour la table tra ante CANON banc d essai dans le num ro de juin 1984 et je me suis amus y rajouter un maximum d ordres suppl mentaires Pour les indications manquantes il n existe aucune instruction les donnant directement il faut lire et d co der chaque octet du catalogue de la bande individuellement C est possible avec le I O0 mais je n ai pas le temps de m en occuper Alors je lance un appel au peuple envoyez nous vos trouvailles COMMENTAIRE DES INSTRUCTIONS Pas 2 5 cherche un convertisseur et le s lectionne comme appareil principal Pas 8 23 affiche l en t te date heure et nom des rubriques Pas 25 29 cherche et place en alpha le nom du fichier dont le num ro d ordre est dans le registre 1 Si ce fichier n existe pas fin du catalogue va en LBL 19 Pas 39 FLTYPE place en X les deux lettres code du type du fichier Pas 35 41 et 44 49 accroche la valeur de X justifi e droite Pas 42 donne la longueur du fichier en octets pour les programmes et en registres pour les autres types de fichiers valeurs aberrantes pour les fichiers de tupe inconnu dd JPC
6. enregistrement 0 255 et y positionnent la bande 5040 SEND DATA 0 0 Les 2 octets de positionnement 5050 POSECRIT 5040 SEND DDL 3 Le volume label se trouve sur la piste 0 enregistresent 0 octets 2 7 DDL 3 positionne le pointeur d octet 5070 SEND DATA 2 Positionne le pointeur au d but du volume label 5080 SEND DDL 4 Ecriture partielle L enregistrement courant est copi dans la a moire tampon 0 et la bande revient au d but de s re enregistrement Les octets de donn es DAB resus reaplacent le contenu de la m moire en comaengant l emplacement du pointeur A la r ception d un octet de fin END celui ci est plac dans la a acire 0 et son contenu est crit sur la bande 5090 RETURN ETSTTIKOKSKSIT TE TISTYITTTITITT ISTTTTETTSTTTITI TT STTT T TT ITTIITEITEISSITTEISTTETSTTONTTTEITITEUKETTITTT TIT ITTISSTTTITSTETIT JPC n 18 page 32 Programme VOLABEL version optimis e 1000 DIM U T6 V C6 INTEGER D DISPLAY IS NULL ON ERROR GOTO 1010 amp RESTORE 10 1010 RESET HPIL RESTORE 10 D DEVADDR TAPE 1020 IF D 1 THEN DISP Pas de lecteur END ELSE GOSUB 1050 ON ERROR GOTO 1030 1030 LINPUT LABEL US V OFF ERROR IF V 4U THEN GOSUB 1040 1040 SEND DDL 7 UNL END 1050 GOSUB 1080 E SEND TALK D DDT O NLA ENTER LOOP USING 4A 3U SEND LISTEN D amp RETURN 1060 SEND MTA GOSUB 1090 U gt USTI LEN V J V SEND DATA U E1 5
7. micro informatique Vous trouverez ci joint un questionnaire que nous vous remercions de bien vouloir remplir tr s soigneusement et nous retourner le plus rapidement possible afin que nous puissions avoir les l ments n cessaires l atten tion de Jean MARTINELLI Dans cette attente et en esp rant que cette initiative vous s duira Nous vous prions d agr er Monsieur l expression de nos sentiments distingu s Jean MARTINELLI JPC n 18 page 3 R FM 78140 VELIZY TEL 946 38 38 NOUS EN AVONS Sont en vente au club Cartes magn tigues 150FF les 50 cartes Eproms 2716 et 2732 Vierges 55FF 3 10FF de port Programm es nous consulter convertisseurs HPIL 82166A 1650FF 3 10FF de port Livr s avec connecteur et manuel Le MLDL hollandais soci t ERAMCO 3860FF port 24k EPROM et 8k RAM de microcodes D lai 1 2 mois Commandes de la ZENROM et de la CCD ROM prix de souscription 1000FF envoyez nous 500FF minimum d arrhes VASM listing comment par HP des 3 premi res pages de la 41 150FF port manuel de service de la 41 50FF port Manuel technique du convertisseur 20FF port ACHATS GROUPES Nous envisageons de grouper les achats de ceux qui le d sirent afin d avoir des r ductions sur les mat riels HP et autres Faites nous savoir vos intentions et donnez nous des promesses fermes Pour l instant une commande de modules FORTH ASSEMBLEUR pour HP71B est en route COUR
8. riques E5 F Charge en alpha le 17 code de C 13 12 plus un espace avec rotation codes dans C RCR 12 JPE n 18 page 13 E4CO E4C 2DC R 13 E4Ci OBE DAC AS E4C2 3D8 LIER F E4C3 37E MAC MS E4C4 B4F JC E4CD 09 E4CS 184 CLRF 8 E4C6 OBE ACE MS E4C7 37C RER 12 E4C8 390 R 8 E4C9 182 A C OR E4CA 166 A A 1 SEX E4CB 230 RCR 2 E4CC 3E8 RIN E4CD 244 CLRF 9 E4CE 18C FSET 8 E4CF 107 JC E4EF 26 E4D8 218 SETDEC E4D1 17A A Ati X E4D2 268 SETHEZ E4D3 2DC R 13 E4D4 256 LIER 9 E405 31E PACE NS E4D6 BCF JC E4EF 19 E4D7 2DC R 13 E4D8 318 LIER C E4D9 JIE AXC NS E4DR B7F JC E4E9 8F E4DB 2DC R 13 E4DC 398 LB R E E4DD 37E 28 C NS E4DE 823 JNC E4E2 94 E4DF 20C R 13 E4E 358 LIER D E4El 37E PAC NS E4E2 058 JHC E4ED 88 E4E3 OBE ACC MS E4E4 2FC RCR 13 E4ES 31E 280 NS E4E6 823 JHC E4ER 84 E4E7 330 RCR 1 E4ES BE AOC NS E4E9 828 JHC E4EE 95 E4EA 198 SETF 8 E4EB 248 SETF 9 E4EC 3DB JHC E4E7 85 E4ED 166 A AH SAK E4EE 166 A AH SAK E4EF 166 A A 1 544 E4F OBE ACC MS E4F1 3E8 RIN E4F2 E4F2 B1C R 3 E4F3 278 READ 900 E4F4 158 M C ALL E4FS 2EA Cap EX E4F6 868 JHC E583 80 E4F 315 E4F8 998 2NCX0 2605 E4F9 2EA C 8 R lt E4FR 381 E4FB 86A NCGO B2EB E4FC 240 2FSET 9 E4FD SEF JC E4FR 83 E4FE 260 FSET 2 E4FF 043 JNC ESB 88 E588 305 E501 883 NCXQ 22F5 E562 868 ES83 BCC FSET 18 E584 3E7 JC ES88 84 E565 141 E5 6 A4 NC 2958 E587 BAE ACC ALL E588 338 READ 12 b
9. 58 CF 08 5 XOY STO 18 XC Y GTO 10 15 XOY Y GTO 11 2 25 STO 87 21 RCL 18 E 16 RDN X Y Rt STO 86 15 RCL 18 E KEN 20 8 RIN STO 89 RTH 225 LBl 18 E XY E STO 67 RCL 18 E 2 82 5 STO 88 RCL 18 2 4 STO 89 RTH 244 lBL 11 2 FRC 2 8 SF 88 25 RCL 18 FS 88 4 FS 08 CHS CF 98 2 ST0 87 16 RCL 18 E X Y 6 STO 88 5 RCL10 E 15 RIH X Y Rt STO 89 RTH 278eLBL 15 FIL PERDU 288 LBL 16 PROMPT NOUVEL ESSAI PROMPT GTO E END JPG ate pase 15 Cher president Suite notre entretien t l phonique je t envois le calcul d int grales qui est list plus loin Ce programme permet de calculer les int grales d finies et g n ralis es IL fait appel la m thode de guadrature de GAUSS LEGENDRE Nous ne nous contenterons ici que de donner les formules utilis es Pour une int grale d finie de bornes a et b p b a lt b a b a el E i 2 7 f x dx Y 5 2 Wi f BG Zi a i 1 Pour une int grale g n ralis e que l on aura pris soin de voir auparavant si elle est convergente b 24 Wi 2 f x dx e TZI 2 ia a 1 Ce programme est concu pour une HP41 mais on peut facilement l adapter un ordinateur comme le HP71B Il serait alors pr f rable d utiliser les z ros ce sont les Wi et les Zi d un p lynome de legendre de degr sup rieur A 24 Je donnerais ult rieurement la r f rence de la table qui donne une valeur pr cise de ces Wi et Zi pour des
10. Cuivre Chrome et Platine que vous pouvez allonger votre guise avec 1 Ur par exemple Pr t pour une transmutation Pierre LANGLOIS EE RER OF SO So ee a ae Se OD ae Os ET a OE Re ae POEME MACHINE Voici enfin arriv e la Pode Machine pour d rider les pauvres JPCistes de base accabl s par le s rieux de leur revue pr f r e L action de vous d rider d marre par un petit message de pr sentation des capacit s du JPE n 18 page 26 programme Qn enchaine ensuite apr s quelques initialisations avec la liste des DATA foraant le vocabulaire de base de la machine 11 comprend 39 verbes lignes 80 a 140 10 articles lignes 180 et 190 33 noas lignes 210 300 et 34 adjectifs lignes 320 400 Apr s le chargement du tableau T contenant ce vocabulaire se trouve la boucle lignes 440 500 d finissant les zones de tirage dans T pour chaque type de mot Enfin les lignes 5104 530 cosposent le sous progranse de tirage au sort d un act dans une des zones sp cifi es pr c demment Apr s cela vous de juger sur pi ces Olivier ARBEY P118 T164 A eer ere 2102022 me a 202 mene vm mn a on m ween ene EEE SS Routine d inversion vid o Cette routine peraet entre autres l inversion vid o d une zone de l cran graphique La variable A contient le codage de cette zone apr s l ex cution de la routine B contient le codage de cette a me zone en vid o inverse On prendra soin b
11. Heureuse Programmation Michel NARTINET EE TES sree dem EE ee m mia gag TS SS TESTS IIS SRE SSSR Ii PROGRAMME NUAGE Ceux pour qui la physique atomique est lettre sorte et que les niveaux atoaigues laissent indiff rents peuvent ne pas lire ce qui suit je les pardonne Par contre ceux qui une fois de teaps en tesps vont chercher au fond de leur tiroir une antique table de Mend l ieff en se demandant pourquoi la partie dont ils ont besoin est Se aa e e mm mm me zort Em aw Er wm ma oe nd mie Tee du ee en du ein aa we vu Se m wm mm san em ome me m em Fr ama em ama mm mr rr aaa eum me mo anan d chir e ceux l b nirons ce programme dont je ne suis pas l auteur Ne me demandez pas comment il marche JE NE SAIS PAS Rien qu en le regardant j attrape mal la t te Je me suis content de traduire un programme g nial de N Ludovic FLAHAUT crit pour FX702P La seule chose que je sais c est qu il sarche et parfaitesent en plus Vous lancez la serveilleuse s canique aussit t le programme vous demande le numero atomique de 1 l ment tudier el D s que vous avez r pondu une suite de chiffres et de lettres apparait incoapr hensible au profane qui repr sentent le d tail des couches lectroniques avec des lastiques l de l ment C est aussi simple que cela Entre les lignes 30 et 70 vous remarquerez un catalogue de quelques exceptions actuellement
12. J 61 PURDH BECKER PRSA 13 85 18 87 STO Bl 62 BEEP NSTRDJC DR S 49 BE DEYL 08 FIX 6 63 OFF COG IN PRS 285 87 DEVL 89 BATE MONSTRE NA S 336 18 CLA 64 LBL Op REDIT PRS 227 B3eLEL a 11 ABATE rt MSTRJIB DA 43 89 i Dt TRAIN HAS 336 19 BEYL 13 TIME 66 LBL BI TRAIN WAS 336 11 DUTA 14 FIX 4 67 PER PR 16 12 RTH 15 ATIME24 SUIVITR PR 4 16 CF 17 684LBL 82 DEC PR 18 13 LBL RAMENE 17 OUTA 69 zt DEFI ASS 208 14eLBL E 18 ANY TRAINS KA 336 15 65 19 FIX 7A LBL 83 TRAIN RAL A 336 16 SEND 2a CF 29 71 VENTE D WASA 336 17 4 2 WOM TYPE VENTE HASA 336 18 BET 22 ct LONE 724LBL f4 SICOB NAS 336 19 DENT 23 OUTA 73 H COURSE 7 264 LABYR 7 12858 201 BL e 24 LBL 11 74 Bi 85 FRACTIO 12386 211 25 AUTOIO 75 END RACIHER 3 2561 22 DENT 26 RCL 81 7 3586 23 REL 66 27 DIRA 24 K O 28 X 9 su 199 25 GTO 68 29 GTO 18 26 XFERCL 34 FLTYPE 2 1204 11 25 47 27 RIH Ji a TRE LUHG s kipa BECKER 34 RCL 8l En Ledit LT ji MORSTRE 37 INT EDIT 38 X R7 MSTRADE 39 XEG 64 TRAIHI 48 RBH TRAIME 41 AREL X FER 42 FLLENG SUIVITE rt BEC 44 ENTERT RFFIC 45 LOG TRA IM 46 IHT T AIH 47 VER IND X VEHTE D 48 RIH VENTE 49 ARCL A SICOE 59 MAHTO COURSE 51 FC 55 LABVE 77 52 AYIEM FRACTIO 77 33 FS 55 RACIMEG ZER E 34 GUTA THTEG 55 156 61 z ABCDEFGHI JKLMHOPORS TUNN 56 DEC REMARQUE LES FICHIERS KEG 57 10 11 22 SONT DES PROGRAM a 20 1BL 88 29 INA 38 AYIER 31 END TIET pa
13. Le r sultat xact est 3 4 0 75 A propos comparez avec le programme du m me nom du module MATH Et si vous n amp tes pas convaincus de la rapidit de mon programme essayez d obtenir par celui du module la m me pr cision S A On a J 1 x2 dx 1 x 1 1 4 1 1 3 4 Ex cutez maintenantles pas 1 et 2 puis tapez simplement 1 et R S On calcule f 1 x2 dx CUNA 1 lin x gt 1 x 1 1 f x O 1 1 e EES vers l o gt i x On trouve pratiquement 1 Voici un autre programme Assignez le une touche et d sormais vous n avez plus besoin d assigner vos propres programmes g p p D g 97LBL LEC A la demande NAME 1 38 99 STO a Tapez le nom de votre programmea ex cuter le nom 198 CLX pr cit apparait c t du NAME cause d une 181 RCL astuce de emprunt Wickes puis R S votre 182 X d programme s ex cute La pile n est pas pertub e 183 NAME Seul le registre Alpha est perdu 124 AUIEN 105 CLA Longue vie au club 106 STOP 197 X lt gt d 188 CLX 199 RCL a r e 110 ASTO t N N 111 GTO IND LIGNE 2 241 126 LIGNE98 242 4 128 208 BYTES 0 112 END P JEAN JACOUES MOREAU n 18 page 18 DECODAGE PROGRAMMES Dans un pr c dent JPC cf n 1f on y a pu lire un PROM DP en langage standard RPN permettant de lister tous les codes hexad cimaux d un PRGM en m moire Trouvant ce PRGM un peu long l ex cution je me suis munis de m
14. Un message Envoi Donn es Send DAta contenu dans l instruction ENTER suivant transf re le contenu de la a aoire 0 sur la boucle partir de la position du pointeur d octet La a eoire est transf r e jusqu ce qu un message Pas Pr t pour les donn es Not Ready for Data soit re u 3040 SEND NLA Le HP 1 se d clare r cepteur My Listen Address 3050 ENTER LOOP USING AA Le du format peraet au HP71 d envoyer au lecteur de cassette le message Pas Pr t pour les donn es NRD apr s r ception des 4 caract res du volume label 6A 3040 SEND LISTEN D 3070 RETURN EE E 4000 ECRITURE 4010 SEND MTA Le HP71 se d finit comme l aetteur de la boucle 4020 BOSUB POSECRIT 4030 U US gale b caract res blancs c est le volume label par d faut 4040 U 1 LEN V 1 V Pour n crire que le strict n cessaire et compl ter la cha ne par des blancs 4050 SEND DATA UST1 5 Envoi des 5 premiers caract res 4060 SEND END NUM USTOD Le dernier des 6 octets est envoy sous la forae d un octet de fin END byte pour enregistrer le contenu de la m acire taapon 0 sur la cassette voir DDL 4 4070 RETURN SE EE EE EE EE EE EE EE 5000 POSELECT 5010 SEND MTA Le HP71 se d finit comme l setteur de la boucle 5020 SEND LISTEN D Le lecteur devient r cepteur 5030 SEND DDL 4 Recherche les 2 octets de donn es DAta Byte suivants d finissent les nua ros de piste 0 ou 1 et d
15. n 18 page 18 Pas 59 affiche ou imprime une ligne Pas 59 7 DEVL rembobine enti rement la cassette identique la touche REWIND celle ci estt pr te tre enlev e REMARQUE on pourrait raccourcir le programme en rempla gant les labels f 5 par une boucle mais cel le ralen tirait encore alors qu il est d j assez lent AU PROGRAMME ENVOIE REMAROUE Ce programme consid re que la boucle IL est en mode manuel et que le lecteur de cassettes est appareil principal si se n est pas le cas mettre en X le N de l appareil sur la boucle et faire SELECT MANIO Le lecteur de cassettes dispose de deux m moires tampon de 256 octets chacune num rot es f et 1 et d un pointeur variant de 255 commun aux deux m moires Quand il pointe l octet i il pointe la fois les octets i e de chaque m moire Comme la m moire 4 et elle seule est dou e de r fle xes fort dangereux pour nous elle a parfois tendance d cider d exp dier tout son contenu sur la bande magn tique entre autres chaque fois qu elle es pleine le programme ne l utilise pas et veille la laisser intacte ne se servant que de la m moire 1 COMMENTAIRE DES INSTRUCTIONS Pas 93 doit contenir l adresse de l appareil sur la boucle Pas 4 LISTEN place l appareil en mode r cepteur lecteur Le voyant BUSY s allume et reste allum Pas 5 7 La s quence 19 DEVL place le pointeur et
16. une fois un HF 110 Cette histoire commence par un coffret de couleur beige pale de ANOX225x05 mm A l interieur se trouvent en vrac un ecran rabattable a cristaux liquides de 16 lignes de 80 caracteres 272 Ko de MEV un traitement de textes un tableur feuille de calcul du type VisiCalc ameliore un clavier QWERTY pour l instant un MODEM integre une interface HP IL j en passe La memoire vive est organisee suivant le principe du disque virtuel autrement dit une partie de cette memoire sert de zone de stockage de fichiers tandis que l autre est laissee a la discretion de l utilisateur Le tableur integre est le LOTUS 1 2 3 initialement ecrit pour 1 IBM PC comme on le voit HF n emploie pas n importe quoi sur ses engins quand il est fait appel a des sources exterieures Le traitement de textes vous en appreciez la souplesse en ce moment par la lecture de ces lignes Quand au HF IL c est lui qui a permis le branchement du HF110 a la HF 82905 et de lister cet article L ensemble fonctionne bien sur sur batterie rechargeable et une indication sous F A M Fersonal Application Manager le mode dans lequel se touve le 110 a l allumage et qui contient les menus principaux donne la charge exacte de la batterie en pourcentage Son autonomie est d environ 16 heures pour un temps de charge de 12h avec un modeste chargeur du type utilise pour HF41 Sous F A M on peut atteindre donc le MemoMaker le traitement de textes
17. valeurs de i allant au del de 100 Si le sus nom programme n utilise g un polynome de degr 24 c est parce qu au del on perdrait en arrondi ce que l on gagne en pr cision en un mot la 41 travaille avec trop peu de chiffres significatifs MODE D4EMPLOL BILBL INTG 24 02 25 STO N 1 Tapez Je programme INTG 03 CLX 26 CLX is les Wi et Zi qui seront ee dans les m moires 1 04 SF 25 27 STO 8 A 24 incluses et stock s en 5 SEEKPTA 28 SF B6 m moire tendue sous le nom 06 1 024 de fichier 97 FC 25 29LBL 01 08 RDTAX 3a 24 09 FS C 25 31 STO 3 A la demande de E NAMB e E 5 est entrezole nom de la fonction A int grer R S 12 AON 33 RCL IND 13 STOP 34 FS 06 49 Pour une int grale 14 AOFF 35 CHS g n ralis e allez au 6 15 ASTO 36 RCL sinon tapez a ENTER b 16 STOP 37 x puis XEQ a ou pressez a See Ze en mode USER IDLBL a Se 5 Au bout de quelques 18 XOY 40 XEQ IND temps la valeur s affiche 19 STO 2 41 DSE en X Retournez en 2 pour 28 42 RCL IND une autre fonction 21 2 43 x 22 7 44 ST Op 6 Tapez a puis XEQ b ou 23 STO 1 45 DSE pressez b en mode USER 46 GTO 03 allez en 5 JPC n 18 page 16 20 XEQ INTG voir les ex 42 FC C op 48 SF op Ne confondez pas les bornes a et b de la fonction 49 FC 06 qui sont des valeurs num riques et les labels a etib 50 GTO a1 ATTENTION En vue d un gain appr ciable en temps on 51 RCL J utilis
18. 1614 Il vous permet de lire et de modifier votre quise le Voluae Label se irouvant sur les cassettes num riques Une fois les instructions concat n es et les labels alphanum riques supprim s VOLABEL occupe un tout petit peu plus de 400 octets dans la a apire de votre HP71 Le Voluse Label est une cha ne de six caract res se trouvant au d but de la cassette Piste 0 enregistresent 0 et octets 247 Il repr sente le nom que vous avez donn au support magn tique lors de son initialisation et par lequel vous pouvez l adresser durant l ex cution JPE n 18 page 25 de vos programmes ou A partir de votre clavier L utilisation du programme est tr s siaple Une fois charg en m moire faites RUN Le programme vous affiche le Volume Label courant de la cassette Si vous modifiez la cha ne affich e celle ci sera r crite sur la bande avant le resbobinage final Deux listages vous sont propos s le premier avec des Labels alphanumerigues et sang instructions concat n es pour la bonne cospr hension du programe et le second optisis sais bien moins lisible Voila j esp re que ce programme vous sera utile Pour ce qui est de l HPIL j ai t ch de s appliquer le plus possible contrairement au programme DIALOGUE JPC juillet qui avait t fait en une matin e et avec un certain sanque de connaissances sur le module HPIL du HP71 Enfin cette erreur de jeunesse tant r par e je vous souhaite une
19. 3 END NUM USC61 1070 RETURN 1080 SEND NTA LISTEN D DDL 4 DATA 0 0 1090 SEND DDL 3 DATA 2 DDL 6 amp RETURN DUTOT TTT CITT TTT Progranae NUAGE calcul des niveaux n rgetiques d un atone 10 DESTROY A A E N P I STD 20 INPUT 7 52 amp 2 IP 2 A spdf Catalogue des exceptions 30 IF 2 29 THEN Z 18 GOSUB 70 DISP 4s1 3d10 8 END 40 IF 2 24 THEN 7518 GOSUB 70 DISP 4s1 345 END 30 IF 2 78 THEN 2 68 GOSUB 70 amp DISP 6s1 5d9 END 60 GOSUB 70 END 70 FOR E 1 TO 13 FOR N IP E 2 1 TO E Coeur du programme BO P 2 4 E N amp IF pap THEN P Z A 90 A A P DISP STR N ASIE N 1 E N 1 3STR P amp IF A Z THEN RETURN 100 NEXT N amp NEXT E LETTSSSKEITIITIITITSTESTTTSTT IT ITTISTSIIKISIIISSITT TTTETT TTITTTTITSTISTETTT TITT STTT STT STTTTIP TTTISTIE TEITETSITYTSTISTEITI Programme POEME g n rateur de vers POENE MACHINE 20 DELAY 1 1 30 DISP Voici la Poeme Machine 40 DISP 437580 vers distincts 50 OPTION BASE 0 60 DIM T 116 4 39 noas 80 DATA POIS VOIS VOLE LANCE 90 DATA PREND PORTE AINE PUNIS 100 DATA VEND LOVE JUGE ABRITE 110 DATA SALUE PINCE CASSE NORD 120 DATA AIDE MANGE CACHE SALIS 130 DATA JOUTE CLASSE SUIS SUCRE 140 DATA SUCE COMBAT SAIGNE SEME 150 DATA GARDE REDIGE ETALE EPIE 160 DATA EPOUSE JPE n 18 page 33 10 art
20. BRES DU CLUB AUTRES QUE RECHERCHEZ VOUS AU SEIN DU FFC PARIS CHAPTER 7 wema mene mama maa maan maan ae mane wran mmes mme sense me et E Sines tems date IR mawan maat mn mann re fries tates bawan e pote teem mem mem meme me sm aros mee steer ER vaan EE Sree stems re FE auma mina poms Pi FE awana teens E cues same ER Grune EH fis E mayan EN EN FC HOEY menon monet aina kaen tort E Stone menet Gigih MANGN dtr anal some tte E unt moe fuser sense sete mas A sists E tis pure sanan wema men ons watan be gama pores maen enced atan makua ka an Je souhaite adh rer au club FFC FARIS CHAPTER conform ment aux statuts de l association Au mieux de ma connaissance je declare avoir le droit de fournir tous les programmes et informations que je vous enverrai sans enfreindre des obligations de secret A l gard d autres personnes O organismes pour publication dans le journal de liaison sans obligations ni responsabilite d aucune sorte en cas d utilisation frauduleuse de la part des dirigeants di FFC FARIS CHAFTER DATE i i 1 1 1 01 1911 i SIGNATURE PRECEDEE DE LA MENTION LU ET AFPROUVE LE MONTANT DE LA COTISATION AU FFC FARIS CHAPTER S ELEVE o 58 B8FF L ABRONNEMENT FOUR UN AN AU JOURNAL J F C S ELEYE A 170 00FF PAIEMENT EFFECTUE LE 1 1 1 1 i ii i ii A L ORDRE DE FFC FARIS CHAPTER FAR E 3 CHEQUE BANCAIRE N awanane BANQUE L 3 CHEQUE POSTAL 3 VOLETS NP L J MANDAT LETTRE EVENTUELLEMENT JE M ABONNE A COMPTER DU i i i i i I 91 iLi JOIND
21. GOSUB DONNEES ELSE CFLAG 7 2110 IF FLAG 9 FLAG 7 AND NOT FLAG 7 THEN SFLAG 8 Ca va vous suivez 2120 IF A C6 61 THEN GOSUB LABEL ELSE CFLAG 4 2130 IF A C6 11 DEF FN THEN GOSUB FONCTION 2140 IF A 6 8 5UB OR FLAG 8 THEN GUSUB LIGNE 2150 IF A 4 6 THEN REMARQUE 2160 PRINT USING 8 19X 4D VAL A C1 41 2170 PRINT 4 5 2180 CFLAG 5 2190 IF A C6 9 END OR A THEN SFLAG 8 2200 NEXT 1 KEEN 2210 LABEL 2220 SFLAG 6 8 2230 RETURN amine cll eden hen ced eee ed O a me gan EE EE tn SRR SSS RASS RSS RSS SSI mmm STITTTILITTSSSTSTSSSSSSSSSSSSSSSEST 2240 DONNEES 2250 IF NOT FLAG 7 1 AND NOT FLAG 6 THEN SFLAG 8 2260 SFLAG 9 2270 RETURN 2280 FONCTION 2290 SFLAG 8 2300 A POS A On suppose pour un programme structur que lors d une fonction utilisateur aultiligne le DEF FN soit seul Dans ces conditions il n y a pas de sur la ligne 2310 RETURN 2320 LIGNE 2330 CFLAG 8 JPE n 18 page 38 2340 PRINT 2350 PRINT TAB 20 J sssS 322055SS5SS52252222EISSNSSS0SS 2360 1 1 2 F est la variable qui contient exactement le nombre de lignes list es 2370 RETURN 2380 REMARQUE 2390 IF NOT FLAG 5 1 AND AS 8 8 THEN PRINT TAB 23 2400 PRINT TAB 25 A 8 2410 GOTO 2200 2420 FIN 2430 END SUB ALT CC ECOR ECOLE CEE SCIE IEC TTT Programme VOLABEL modification du voluae label d une cassette SSITIISISSSSSSISISISSSISSSSSSSSs
22. L I 1 2 3 le tableur un logiciel permettant de gerer le 110 comme terminal en particulier l emploi du HF IL et le 5 E D employe par le 110 MS DOS soit en francais le systeme d exploitation de disquettes au standard MS DOS autorisant l utilisation de tous les logiciels ecris dans ce standard par exemple il conviendra de se procurer un bon interpreteur BASIC ou FORTRAN ou n importe quoi d autre mais un langage de programmation car le HF 110 n en a AUCUN en version de base sans oublier un lecteur de disguettes pour pouvoir lire celui ci car la version de base n en a pas non plus gt Quand je resus la bete une Seme application de base etait disponible une serie de tests de diagnostic interne mais celle ci disparut au premier MEMORY LOST cause par une main criminelle ayant reussi a atteindre le bouton d autodestruction pourtant bien dissimule Enfin c est la vie Le MODEM integre transforme le 110 en simili telephone de campagne ambulant pour assurer la communication entre 2 MODEMs il suffit simplement d arracher le fil de votre telephone et de le connecter a votre HF 110 dans la prise prevue a cet effet Les F T T apprecieront Un HF110 peut aussi vous servir de reveil matin un peu cher mais enfin grace a un fichier contenant les alarmes que vous lui specifies sonnerie affichage d un message demarrage d une fonction guelcongue Le clavier du monstre dispose d une ligne d
23. MPT STO 68 SF 27 TR BEDALE AVIEW FIX CF 29 1 686 STO 18 14eLBL 13 RCL 18 INT E STO 11 20 XEQ 99 E 24 1BL 12 RCL IND 11 KOY X Y GTO 13 DSE 11 CTO 12 STO IND 18 ISG 18 GTO 13 34eLBL C 35eLBL 28 RCL 81 XEQ 58 MONSTRE RCL 82 KEQ 21 FOSSE RCL 63 XEQ 21 RCL 64 ZER 21 OSSURIRE RCL 85 XEQ 21 RCL 86 KEG 21 S1 LBL 22 ARCLOI kr ARCL 87 F ARCL 88 ARCL 69 AVIEW RTH 62eLBL 21 RCL 87 XOY Zei DNIEN RCL 68 XOY X Y AYIEN RCL 89 X Y DNIEN TONE 57 RTH 764LBL A KEQ 14 FS 88 GTO 22 STO 61 GTO 89 82 LBL B ZER 14 MONSTRE HIEN FS 88 GTO 22 RCL 62 X Y GTO 11 ZER 58 3 XEG 99 DEBUSQUE AVIEW 7 RCL IND X STO 62 RCL 01 XEO 58 102 LBL 09 2 006 STO 18 RCL Bi 186 LBL 08 RCL IND 18 XOY X Y GTO IND 18 ISG 18 GTO 88 GTO 28 114 1BL 62 LE MINOTAURE TONE 8 AVIEN PSE VOUS DEVORE GTO 16 121eLBL 63 1224180 04 RAAARHHH AYIEW TONE 64 PSE DE PROFUNDIS GTO 16 129eLBL 65 130 LBL 86 GALERIE AYIEK 28 KEQ 99 E STO 81 MEHANT EN ARCL 81 AVIEW PSE CTO 09 143 LBL 11 TONE 19 BLESSE HMORTELLEMENT AYIEW TONE 18 MINOTAURE FYAINCU AVIEN BEEP PSE FIL d ARIANE H R S PROMPT RCL 81 KAN GTO 15 VIVA THESEUS GTO 16 162 L8L 14 CF 88 RCL 67 X Y RTN KOY RCL 68 X Y RTH XOY RCL 89 X Y RIN INCORRECT AYIEW SF RTH 179 LBL 99 RCL 88 9821 e 21137 FRC STO 88 INT RIN 196 LBL
24. ND ERRNC1061 THEN 250 ERRN 61 fichier s curis 240 IF NOT FLAG 10 1 THEN UNSECURE F GOTO 70 Sinon on arr te le programme et on affiche le message correspondant 250 CFLAG 10 260 DISP ERRN 270 END Kae n in i o v nn la t no n m n en ee Oem Nene Bree eee A SSS SSR SRS SSS SS SS SSS SSS SS SSS Sms 1000 SUB SETIMP 1010 ON ERROR GOTO 1030 Maximum de pr cautions 1020 RESTORE 10 1030 OFF ERROR 1040 RESET HPIL 1050 RESTORE 10 1060 PRINTER 15 PRINTER Compatible HP82905B HP2225B tallias Thinkjet 1070 CLEAR PRINTER 1080 ENDLINE CHR 13 Pour ne pas passer la ligne 1090 PRINT CHR 27 amp amp k25 Caract res coapress s 1100 PRINT CHR 27 amp amp 172paOfil 72 lignes par page 40 lignes de texte saut de perforations JPE n 18 page 29 1110 PWIDTH 132 1120 ENDLINE 1130 END SUB SE EE 2000 SUB LISTE 1 1 2010 DIM A E99 2020 INTEGER A A est utilis pour les fonctions utilisateurs A est vrai si monoligne faux si eultiligne 2030 CFLAG 5 6 7 8 9 ds Ara signifie Premi re ligne de remarque 6 Ara signifie La ligne pr c dente est un Label 7 Arm signifie Une ligne de DATA qui n est pas la presi re 8 Arm6 signifie II faut tirer un trait 9 Ara signifie Groupe de lignes DATA 2040 RESTORE 1 2050 ON ERROR GOTO EIN L erreur surviendra la fin du fichier EH 2040 DEBUT 2070 FOR 1 1 TO INF 2080 A 0 2090 READ 1 A 2100 IF A 6 9 DATA THEN
25. OF CLRG AS STO 82 DUREE TE 48 TOA FSec 41 TOR PROMPT ENTERT ENTERT 68 MOD 1E2 GIG LASTE 68 1 E2 HR STO 01 FERIE TONE AVIEW GETKEY CLR 42 X Y GTO 88 IHLEL 89 DATE DON amp Von GTO BB 6 KN GTO 81 GTO 87 98 LBL 83 BEEP REL Z STO 4 SF 64 RCL 88 z S70 ES GTO 89 TULEL BE SF 81 GTO 87 6241BL 81 14 TIME RY SF BE 67 LBL 67 6 KEO 65 FS ql ID FS 42 GTO Bl TRS 76 LBL 81 14 FS 82 XEO 85 FS 82 GTO AA 18 ZER 85 21 5 KEG 05 D i BL BA 23 XEQ 05 CTO BE 91 LBL 85 TIME HE XM7 RIH ROY S74LBL 68 STO 93 GTO IND X 198 LBL 18 1 GTO 94 193 1BL 21 f GTQ R 186 LBL 28 107eLBL 14 IRS LEL 23 eh GTO 84 111 LBL B6 112eLBL 38 GTO T STOPSH SF 63 35 GTO ris 18241BL 08 CLA XOF CLX STOP 70 CT END 114 LBL B4 RCL 82 STO BE PRET FC op PROMPT FC 88 GTO AI FCC 84 GTO T RCL 85 REL Aa 51 84 GTO T 138 LBL Bi ALLO ALLO AVIEH 6 SETSH RUNGU SF 98 PSE PSE 139 EL vir FIX 4 RILSK CLA AREL X HR SEL El ENTERT FRC X 87 610 88 1 En 81 per C 155 LBL 88 1574LBL 8i REL 46 RCL R FIX 2 ker ARCL H AVIER TONE 9 REL 83 TIME HR X34 GTO 83 FS 83 GTO 88 GETKEY 23 xey JPC n 18 page 13 TRADUCTION A LA GREC DU PRGM WUMPUS ALIAS THESEE livret de solutions GAMES de H P LBL A Vous permet repr sentant THESEE de vous rendre dans l une des grottes Adjacentes amp celle que vous occupez avec votre p e et lapel
26. OLOMBES MAUREPAS ELANCOURT STOTZHEIN TAVERNY LE PLESSI ROBINSON PARIS PARIS LAUSANNE SUISSE SUISSE AUSTRALIE PARIS CHARLEVIILE PARIS CHARTRES St MAUR LEVALLOIS PARIS JPE n 18 PPCPC n 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 page 36 OU IUBKRE FFE FARIS CHAPTER J ASSOCIATION REGIE PAR LA LOI DE 1901 ENREGISTREE A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82 3240 BULLETIN D ADHESION NOM ny oe a AAA ee Ome Aus E E ENEE PRENOM 101 11 1 1 1 100 10101 D TE DE NAISSANCE 11 141 113 411 ADRESSE Tot 1 a ks e S NING a A Kat Rodo a EN ee Sa Patele a s oho ha tt kakasta I E a L E E ae A S Koko Ce ett L NK NS K VE a ee KIL NS COMMUNE uk K E I KS K hole RLKN NII KOS CODE POSTAL tolu I Ut PAYS E a K a KAN TELEPHONE DOMICILE 1 1 1 1 00 0010100003 BUREAU 111 1100 aac EE EE INTERETS TE ATS UT D ESS NT Ta E U DU KS LL EE H L ai PATEREEL APC EN VOTRE FOSSES LON ss to sas s a IS dan n man menn min mum menen eee m aa E em EN meene een E anne tee erate tee me mama eee genes teers maine EN memme mana fasts fetes Sette Mens Sante vena eman mawa amen memea meee eee pth Outed saneh me mitts tious Greer re reves tener crust eue ones scent etre erste arses en sees e AN erase ett mana AUTRE MATERIEL MICRO INFORMATIGUE S COMMENT AVEZ VOUS CONNU PPC PARIS CHAPTER 7 EEN pants epa MAGAZINE AUTRE CLUE HF RELATIONS MEM
27. RE A VOTRE INSCRIFTION UNE ENVELOPFE TIMBREE A VOTRE ADRESSE VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A MR PHILIPPE GUEZ 56 RUE J J ROUSSEAU 75001 PARIS FRANCE JPC n 18 page 37
28. RIER DU COEUR Jean Pierre BONDU Domaine de Croix Marie 78121 CRESPIERES 056 54 00 vends 41CV XFCT TIME 2XMEM tous int gr s batterie chargeur 2200FF ou 1 41CV 1300FF 1 module quelquonque 300FF HPIL 400FF crayon optigue 400FF MLDL SCIP 1000FF 4k EPROM amp 4k RAM Prix de groupe si vous tes vraiment int ress s n h sitez pas A appeler une bonne surprise vous attend Alain BOCHET 4 rue Poirier 94160 St MANDE 374 24 57 vends HP41CV XFCT XMEM TIME LECTEUR DE CARTES HPIL ACCUS CHARGEUR 160 CARTES nombreux programmes doc Programmer HP41 synth tigue programming en francais au fond de la HP41 PRGM pour synt CODE DECODE KA CA KP d j sur cartes Doc d origine complete le tout en tr s bon tat Prix 3500FF Tel bureau 207 75 36 poste 45 JEE n 18 page 4 Jean Marc PRADELLES 5 7 Bd Edgard Quinet 75014 PARIS 322 13 84 Monsieur Ayant eu vocoordonn es par la soci t Hewlett Packard service du telephonne vert je m adresse vous dans 1 espoir de trouver une solution mon probl amp me Je suis propri taire d une HP41CV et j ai fait r cemment l acquisition des manuels d applications FLUID DYNAMICS AND HYDROLICS et HEATING VENTILATING AND AIR CONDITIONNING J prouve de grosses difficult s a trouver les concordances avec les quations et unit americaines et faire tourner ces programmes Je voudrais donc savoir si par l in
29. SI Bit R 3 ESSE 159 LB R 7 ESSF 278 RAM SLCT Ep GEE C lt 7B ALL E561 936 READ BT E562 978 N C ALL E363 04E C 8 ALL E564 278 RAM SLCT E365 089 C N ALL E566 346 248 SEX E567 GIF JC ES6A 83 E568 381 E569 398 2HCX0 E4CB En 83 ES6B 394 7HCXG ESF ES6C 196 A A 1 SN ER 190 FSET 8 ES6E 82B JHC ES73 85 ES6F DIE A MS E578 240 2FSET 9 E371 843 JNC E579 08 E572 17E A A 1 M5 E573 GEE CB ALL ES74 BIL R 3 E575 262 C C 1 ER ES76 BEE CB ALL ES77 202 7B 8 ER ES78 377 JC ES66 12 ES79 ORE ACC ALL ESZA GAS WRIT 20 ES7B BEE COB ALL ES7C E8 WRIT 3 X ES7D 261 ESTE 188 NCXG 6298 EE 345 E58 848 2NCX0 1811 E581 B8 READ 26 E582 ORE ACC ALL E583 9F3 READ 3 X E584 35E 2920 NS E585 381 E586 642 NCG0 19E8 E587 1BE A A 1 NS E583 SSE 20 8 MS E589 29F JC ESSC 2D ESSA 188 SETF 8 ES8B 248 SETF 9 ES8C 283 JHC ESSC 38 Ed4CAO IDENTIFICATION INSTRUC TION E4F2 RECHERCHE ADRESSE ESAF CHARGENENT CODE EN ALPHA LPC LIST PROGRAM S CODES 5 EXEMPLES CB 88 F4 06 54 45 40 F3 54 45 40 18 6 6B F4 4E 4F 40 3F OC SE 86 AG SD 1B 48 Ae f AG 54 7E 9F 59 CA 04 89 8e en AB 08 C6 BA FZ 88 54 DA Bi 77 SF 78 SF 76 85 36 ES Bi 76 SF 75 DA 01 FS 9F 86 85 88 08 AR BA BA AB BA BA BE 68 CO Ba 49 CE 08 Fe 08 58 52 43 41 54 9C 88 AI 1D FS 58 52 4F 40 3F 8E 5 64 Bi 42 F6 4E 4F 28 52 4F 4D 96 73 7E 89 0 FS 58 52 43 41 54 n 18 page 20 LPC Organigramme Recherche Adresse E4F2 Insertion 1
30. Sssssssrssitllssssessssssssssassanan 1000 INIT 1010 DIM U 41 V I4 US ancien volume label V nouveau volume label 1020 INTEGER D D adresse du lecteur de cassette sur la boucle d interface 1030 ON ERROR GOTO 1060 Si la boucle est en contition d erreur RESTORE 10 n est pas ex cutable La s quence d instructions suivante RESTORE IG RESET HPIL et RESTORE 10 est donc indispensable pour l initialisation correcte de la boucle dans tous les cas 1040 RESTORE 10 1050 RESET HPIL 1040 RESTORE 10 1070 DISPLAY 15 NULL Lorsqu un p riph rique est d clar DISPLAY 15 le HP74 envoie tout moment UNL pour n adresser que ce p riph rique 1080 D DEVADDR 2167 1090 IF D 1 THEN DISP Pas de lecteur END 1100 GOSUB LECTURE 1110 ON ERROR GOTO 1120 Ce test perset de ne pas interrompre le programme lors de L introduction d une cha ne sup rieure 6 caract res 1120 LINPUT VOLUME LABEL U V Attention le programme peraet d crire n iaporte quel voluse label 1130 OFF ERROR 1140 IF V U THEN GOSUB ECRITURE EE sete sr wt anan an ee ee eee eee ren cme 0 20 an ana an SS aa 2000 FIN 2010 SEND DDL 7 Rembobine la cassette 2020 SEND UNL Le lecteur devient non r cepteur 2030 END 3000 LECTURE JPC n 18 page 31 3010 GOSUB POSELECT 3020 SEND TALK D Le lecteur devient 1 metteur de la boucle Le HP71 le pr pare pour l envoi de donn es 3030 SEND DDT 0 Envoi m moire 0
31. T ES LE pri q HS MOD A Qi PR 4 a E slan J ER 05 04 061 04 097 kol 0153 ssi See Ee 01 15 Ge x 2 Tix Torx JETXI ISIN COS TAN JASN ACS ATAN DEC 1161 04 47 lo SC KE d ed EE 29107 23 esjos selen Z71o1 281901 29101 alaa 3 X ABS FACT x30 x gt 0 TUWAE Ae Xm07 PINT FRC FOR JRO HMS HR RND 0CT 01 32 _ N Sai 1 37 01 long ne 142 ro 01 44 0145 0 46 01 47 CI Lies JAT PRON Xa 1 XPY J SGN ES MEAN 5DEV AMIEN GD 01 48 0449 S 5001 54 be E sl ess lerena en ch solo1 6140 SR dd E A isi fant Sie op RCL CO RCL OF 2 100 32 00 33 370 60 510 01 S RQ 11 ROL 12 3 13 RCL 13 20 45 00 46 510 Ste RA 15 00 47 57045 0 3 00 62 20 61 L Sg 1001 7 Ot 1101 E 1110 lai 1111 qe cC00 5001 KN 0011 Er A Ges Ga SE 9111 b TEES VER 9 az PEE Se Leg 249 pes gt ap Lenz Le SS oz SE aerch 02 162 Lez 244 Se me AoT awil X25 351 Te iste 031672 MIOS CE ns sin TON ara Wise Et KEES 13 32 102 54 gies 2 58 02 3 eae SM SE EN AE k WA LAN kaba Ge A SE SPARE Rom 03 53 Foret low TIELT ae 9 IP Rom 03 53 lt 1005 J IO ASIA 11 Attention eelte fa
32. TO UE Sous prograase VIDEO inversion video pour une chaine de caract res Pierre Langlois Soisy le 8 ao t 1984 ot a o a ee n 2 a n a mmm 0 D S NTT EE JPC n 18 page 34 1000 SUB INV A B 1020 B 1030 FOR 1 1 TD LENGAH 1040 B B amp CHR 255 NUN A LI1 1050 NEXT 1 1060 END SUB HILL IO UO OTTO TTT TO TTT TTT TTT Fonction NS6 m ssage correspondant un code d erreur a m mot ote an an aaa M i m E EE SS En an n n a n Qu n n a an ee E 10 DEF FNM N 20 AS DTHS MOD N 1000 3 amp DTH MOD N 1000 4 4J amp DTHS N DIV 1000 SI amp DTH IN DIV 1000 4 4 30 POKE 2F7E4 As 40 FNN ERRN 50 END DEF Hitt tt TTT EELER Programme POLYCOPY transmission simultanee de fichiers 10 DIN F 1 RESET HPIL RESTORE 10 SFLAG 24 ON ERROR GOTO 50 20 INPUT Fichier F IF F THEN CFLAG 24 LOCAL RESTORE 10 END 30 REMOTE SEND IFC CND 154 53 MTA 40 OUTPUT sLOOP COPY LOOP TO amp F COPY FS TO LOOP GOTO 20 50 FOR 1 1 TO 20 OUTPUT LOOP NEXT I DISP ERRN BEEP GOTO 10 TITELE TT E DEET OTT ET UTC JPE n 18 page 35 JACOUES MORIN ALAIN BOCHET LAURENT GUEZ PAUL CARLES JEAN CLUCHET JEAN PHILIPPE JARNET CHRISTIAN BERTHIER CHANTAL BERTHIER ROBERT BAYLE JEAN CALESTREME YVES COUTELIER GILLES TANGUY ADRIEN FLORENT FREDERIC ALTERMANN NICOLAS HINDIE ERIC GENGOUX JACOUES GESLIN PHILIPPE ROMASCANO MILAN STOJANO
33. VIE JONH MC GHECHIE LAURENT FERRIER ALBERT TORCHET MICHEL LECHEVALLIER CHRISTIAN BACOUET OLIVIER ARBEY ALAIN DULPHY DANIEL LEVEUGLE INTERETS PROFESSION STATISTIQUES FINANCES ELECTRO 4 RUE D ANVERS 68100 TOPOMETRIE COMPTABILITE JEUX 4 RUE POIRIER 94160 INFORMATICIEN 41 RUE DU FAUBOURG DU TEMPLE 75010 MATHEMATIQUES ELECTRONIQUE 10 CITE VERTE 94370 INGENIEUR 191 RUE D ALESIA 75014 ANALISTE MICROCODES 12 RUE DU VAL D OSNE 94410 INGENIEUR MARKETING HP FRANCE 2 AVE DU LAC 91040 INGENIEUR HP FRANCE LYCEEN 19 RUE DE LA PAIX 92270 INGENIEUR 3 ALLEE DES ACACIAS 78310 ETUDIANT INFORMATIQUE 5 IMPASSE DES COUDRAY 78310 INGENIEUR TP 35 RUE DE BENFELD 67140 ETUDIANT MATHEMATIQUES LOISIRS 20 RUE OCTAVE DUBOIS 95150 ROM HINDIE BAEL 1 18 RUE DES SOURCES 92350 CONTROLEUR DE GESTION ET RESPON PRO INFO 8 RUE DE FURSTENBERG 75006 CINEMA PROFESSIONNEL 10 RUE KUSS 75013 PPC L GRAND VENNES 39 1010 PPC SCHWEIZ PPC TN SECURITE INFORMATIOUE 72 74 AVENUE PARMENTIER 75011 CUISINISTE DIRECTEUR PROFESSIONNEL 5 RUE DES MESANGES 08000 INGENIEUR MATHEMATIQUES FINANCES BP 237 75564 PARIS CEDEX 12 CHIMISTE 1 TERTRE St EMAN TUDIANT SPE 34 AVENUE DE LA REPUBLIQUE 94100 INGENIEUR PROBLEMES D ECHEC 16 RUE PASTEUR 92300 28000 24 RUE D ALLERAY 75015 PROFESSIONNEL LOISIRS PPC ne VILLE MULHOUSE St MANDE PARIS SUCY EN BRIE PARIS St MAURIQ EVRY BOIS C
34. Wii JA La pa SF 17 REG A ABCTE Md A SS Lat Pet G 17 TM Sd G Ra L ee te a ATI IO DI Lt A FGHIJ AEG a Ea TI L An E On LHHOP Lo REG a Ti T aRST H 0 KEG a Dn On INS E CF 17 XEB a Ts Y KEG a pa DNK REQ a Fit Ped Pere AAA er KA Lit ta Y TOA A A Cat te A ad fad at Ferre GIL fs Lt ha 13 TAN ta EN ee at a YZ DEJA PUBLIES DANS IPC Ke XEO JPC n 18 page 12 PROGRAMME CT Calcule le prix d une communication t l phonique le module TIME Un annuaire t l phonique pour d terminer la dur e de la taxe de base en fonction de la destination de votre appel Si la take de base venait augmenter changer le 65 du pas 05 Affectez HI la touche SIN 23 Dur e TB SEC Entrez la dur e de la taxe de base heure pleine en fonction de la destination de 1 appel en secondes 12 24 N cessite FERIE Si oui appuyez sur O touche 42 Si non appuyez sur n importe quelle touche RS par exemple ou laissez faire soyez patient PRET Composez votre n de t l phone Quand votre correspondant d croche appuyez sur RAS Le PGM boucle environ toutes les 12 et affiche le temps coul depuis le d but de la communication et le prix En cas de changement de tarif en cours de communication celui ci est indiqu par un BEEP Quand vous raccrochez appuyez sur SIN B1 LEL CT CLA K
35. a HP 41C de ma Printer et bien s r de mon MLDI Et ce n est que quelques heures plus tard que la routine LPC List Program s Codes sortait de mes ateliers Avec cette routine en microcodes le listing des codes hexa est imprim la m me vitesse qu un listing normal voir m me plus vite Ceux qui ont pu essayer le PRGM DP se rendront compte de la diff rence Son mode d emploi positionner la Printer sur MAN puis faire LPC nom du PRGM d coder Si l entr e alphanum rique est nulle c est le PRGM o le pointeur est positionn qui sera d cod Pour ceux que cela int resse l organigranme est donn ci dessous permettant de comprendre le fonctionnement de la routine les sous routines appell es par la routine principale LPC pourront tre ventuellement utilis es bon escient Eco Identification instruction Identifie l instruction dont le 1 code se trouve dans C 13 12 et renvoie en A 2 4M la longueur de cette instruction hexa comptabilise chaque appel le nombre d instructions dans A 12 3 dec les instruction END et IBL alphanum rique ont t consid r es comme deux instructions les flag 8 et 9 permettent de distinguer les deux cas F8 1 F9 2 partie du END F8 F9 1 H E IBL alphanum rique F8 1 F9 1 19 END ou IBL alpha Spa Positionne le pointeur sur le 1 octet du programme registre b dont le nom se trouve dans le registre Q cod l envers ou l un de ses IBL alphanum
36. ble n est pas dos rmoletement Suite au coup de fil d un honorable membre vous trouverez ci apr s Un programme vous permettant en mode programme dtajouter APPEND des caract res alphanum riques une chaine d j xistante et contenant au plus 21 caract res BiLBL ECA 82 AON 03 CHAINE 94 STOP 95 FC C 23 206 CLA Si vous utilisez souvent le SCHIFT il vous est possible d ajouter SF 7 entre les lignes 13 et 14 A 1 x cution de ECA on vous demande une entr e ceci peut tre chang en fonction de vos besoins c est votre chaine primitive Les lignes 7 12 font l tude du registre d et stocke les drapeaux 49 55 B LBL B1 dans les drapeaux Y 15 qui eux peuvent tre chang s 08 XO d et test s selon les besoins Les drapeaux 45 entr e 29 xo E de donn es 47 SHIFT et 48 ouverture du mode ALPHA 18 ROOK se retrouvent respectivement en Op 97 et 08 11 XO La fin du programme sert la remise en tat de 12 XO d votre HP41 13 SF 05 14 SF 08 Le registre d autre drapeaux que 45 47 et 48 15 XO d le registre ALPHA et la pile registres Y Z et T 16 XO et le LASTX ne sont pas perdus 17 pgx Le registre X est mis ja Se L Eaves 17 R APPEND 28 RCL N p s 21 XO d 22 RO E 23 XO J P 24 KON 25 RDN 26 STEANKERIE SUR HPALCX 27 KO 28 CLX 29 AVIEW END Essaye
37. e 15 touches de fonctions dont 4 utilisees pour le curseur JPE n 18 page 23 et 8 Comme menu simplifie En conclusion un peu plus qu une belle becane mais gui me semble handicapee dans sa version de base par l absence de lecteur de disquettes indispensable vu le prix du HF110 environ 35 000 FF et l impossibilite de le programmer dans cette configuration Olivier ARBEY F118 T164 ET voici LA GRAND SPECTACLE DE N PRESTIDIGITATION TAR Pu B mo Corssimo Y NOUVELLE HPMO JPC n 18 page 24 PROGRANNE JPCLISTE Chers gentils aembres Comme vous avez pu le constater dans les pr c dents JPC les listages sont pr sent s de sani re structur e Ceux ci ont t faits l aide du program e que nous vous fournissons ce mois ci Nous l avons noaa JPCLISTE Partis d une simple id e d utilitaire rapide nous somees arriv s un programme complet incluant la totalit des instructions qu il est n c ssaire de aettre en valeur afin de clarifier les programmes Quelques r gles sont cependant n c ssaires si l on veut bien utiliser ce programme Tout d abord structurez bien vos programmes JPCLISTE ne les structurera pas votre place Ne concat nez pas trop vos lignes Les programmes destin s la parution sont saut execption clairs afin que n iaporte qui puisse les comprendre Si vous voulez que vos Labels DATA DEF FN et autres SUB soient a
38. e des codes et lire entre les lignes Alors se dessine le tableau joint des XROM MM l 92 3 Y ce qui permet en combinant indirections fonctions XROM l 2 63 09 de cr er le reste On remarque dans ce tableau sous certains XROM des STO fonctions global etc En effet apr s la manipulation de cr ation avec le CRIC dans le programme ceux ci sont suivis parfois de STO fonctions etc Voila je vous ai soumis le total de mes cogitations maintenant serait il possible qu un autre membre du club puisse approfondir techniquement ce sujet x le XROM 93 49 A 63 est fonction du nombre de lettres mises apr s l indirection AMICALEMENT JEAN PIERRE TOYRE ERRATUM Sur la page 20 du n 16 JPC lire au 19 9x16 au lieu de 11x16 pour la conversion de 9 dans le nombre D89B JPE n 18 page 6 ka ae eee pete fre jojon jaka kalan IND34 IND35 IND36 IND37 1ND38 IND39 ND 32 18033 LGL 01131 02 J131 93 LEL 94 90 1131 5 vii m 62 003100 of oe os 2006 LL 103131 41434 12 1031 13 LL 14 00 10160 44 00 42 0043 00 44 00 45 LL 0e 13h 97 US 281130 09 00 07 00 08 Sos a STO C9 APRETI LROM RG 02 RG 03 2004 RC DS o9 S 00 35 BAN er 7100 5943 09 1 4 STO 021510 934510 041579 05550 961510 Es 08 510 99 510 10 STO 11157 en so oa 51 Jen 00 53 joo 54 ES EE 09 58 00 sala Sch r 4 X lt Y JAPA XS
39. e les registres alpha M N O P L emploi 52 RCL op du registre P impose certaines restrictions quand on 53 x introduit une fonction Ainsi on ne peut introduire 54 RTN de nombre dans la programmation de la fonction les lignes seront avantageusement remplac es SSLBL b KE par nn KA X E 29 RCL 2 N x x gt 58 STO N a 59 CLX S 68 STO Ba avec 29 stock en m moire 25 61 SF 26 62LBL 13 63 24 64 STO Carte de donn es 2 pistes en m moires 1 24 en X 1 024 puis XEQ RDTAX H 000000000 6SLBL 14 8 812341238 66 RCL IND H 3995187220 67 FS 96 8028531389 68 CHS H 974728556 69 SIGN H 844277439 70 FS B6 H 938274552 71 CHS 8 859298585 72 ST L 8 886415527 23 ST Xx D 873346481 74 LASTX 2 820081986 25 STO H 086199162 76 2 740124192 77 N 0 097618652 78 H 648893652 79 XEQ IND H 187444270 89 DSE 0 545421471 81 RCL IND H 115585668 82 x H 433793508 83 RCL H 121678473 84 X H 315042680 85 7 H 125837456 86 ST 20 0 191118868 87 DSE H 127938195 88 GTO 14 H 064056893 89 FC C 96 30 SF 06 91 FC 06 92 GTO 13 iLBL FF 93 RCL BB Ex cutez le pas 3 toujours du 82 17 94 2 mode d emploi a la demande de 83 X 2 95 x nom tapez FF puis R S Tapez a 194 END 96 RTN l arr t 1 ENTER 4 puis XEQ a P JPC n 18 page 17 EXEMPLES Apr s avoir effectu le pas 1 du mode d emploi entrez la fonction 4 On obtient 1 x dx 0 7500000002 1
40. elui de tous clubs loi de 1901 dont la comptabilit est saine est celui du financement Le co t du papier augmente le nombre de page augmente la qualit augmente et nous avons r ussi a garder la p riodicit de 10 numeros par an au prix de bien des efforts Aussi apr s en avoir longuement discut avec les membres du bureau nous nous voyons dans l obligation d augmenter le montant de la cotisation et le prix du journal l unit d sormais celui du journal l unit sera de 35FF l abonnement restera 200FF jusqu la fin du SICOB de septembre A partir du num ro d octobre 250FF et ceci jusqu la fin janvier petit cadeau de fin d ann e pour les r abonnement A partir du numero de f vrier 85 il sera de 300FF avec un tarif tudiant Enfin n oubliez pas le prochain SICOB de printemps ou nous esp rons avoir le m me stand que l an dernier Nous sommes actuellement la recherche d interfaces et de moniteurs VIDEO pour l animation Esp rant que vous comprendrez et approuverez cet appel je vous souhaite tous une heureuse programmation PHILIPPE To page 2 DIVERS VELIZY le 19 Septembre 1984 Monsieur RFM va proposer partir du lundi 24 Septembre une mission ax e sur la micro informatique L une des rubriques que nous allons d velopper est susceptible de vous int resser Tous les jours du lundi au vendredi 17 h 30 nous diffuserons la fiche signal tique d un club
41. eur cette instruction est ignor e par la machine PHILIPPE JAN ni 18 page 9 QUE PEUT ON FAIRE AVEC UN MODULE EXTFNDED 1 0 J utilise beaucoup un tout petit nombre de ses fonctions pour la commande de mes automatismes pr sents et A venir Mais ce module comporte bien d autres fonctions cf JPC Ne de Aussi pour ceux qui veulent le rentabiliser et pour ceux qui h sitent se le procurer voici r unis dans deux pro grammes comment s quelques exemples de ses possibilit es lorsqu il est associ un lecteur de cassettes HP 82161 Le premier programme DIRE permet de faire imprimer le catalogue d une cassette par une imprimante ou une table tracante interfac e IL par un convertisseur HP82166A En effet l instruction normale DIR est inop rante car la 41 consid re l imprimante comme un vulgaire conver tisseur et n arrive plus se faire ob ir d elle Pour ceux qui n ont pas encore vu fonctionner ce genre d impri mante rassurez vous c est peu pr s le seul cas ou il y a des probl mes Le deuxi me programme lui ENVOIE RAMENE permet de cr er un tampon Buffer de 256 octets de m moire vive pour y stocker une ou plusieurs chafnes alphanum riques et les r cup rer ensuite Mais contrairement au module HP IL DEVELOPPEMENT cette zone m moire n est pas pr lev e sur la MEV de la 41 mais sur celle du lecteur de cassettes D o 6 joie 1 4 de Koctets de m moire vive r cup r t PROGRAMME
42. faut C est l qu est l astuce car celle du HP71 vaut 21 11 suffit de d clarer r cepteur le p riph rique d adresse 21 et d envoyer le fichier Mais il peut donc y avoir plus d un HP71 sur la boucle et ils se sentiront tous concern s par le TAD 21 Talk Address 21 m ne s ils sont plus de 0 Plus de probl mes d adressage tendu il n y a plus d adressage Je vous laisse m diter ce petit programme e mm mu em me mmm me me me me me ne me me ue mm mn o rm em aa mn ve me me me ve me ve eu mu me optimis et je vous dis Heureuse Programeation avec 5000 71 sur la atae boucle Pierre DAVID JPG n 18 page 28 Programe JPCLISTE listage structur6 de programmes BASIC 10 DIM PAIR LC OFF 20 INPUT Fichier 5F 30 INPUT Nombre 1 N 40 CFLAG 10 Le flag 10 est ara si le fichier est s curis 50 CALL SETIMP On positionne 1 iaprimante 60 ON ERROR GOTO ERREUR 70 TRANSFORM F INTO TEXT 80 OFF ERROR 90 ASSIGN 1 TO FS 100 FOR J 1 TON 110 DISP J Le nua ro de l exeaplaire en cours 120 PRINT TAB 20 PROGRAMME amp F 130 PRINT 140 PRINT 150 CALL LISTE 1 1 Listage propresent dit 160 IF NOD 1 2 60 THEN PRINT EHR 12 Bi 1 le nombre de lignes du listage toabe sur une fin de page on n en saute pas une inutilement 170 NEXT J 180 ASSIGN H TO 190 TRANSFORM F INTO BASIC 200 IF FLAG110 0 THEN SECURE F 210 END 220 ERREUR 230 IF ERRNC761 A
43. fectivement mon retour de vacances j ai voulu faire le point des articles qui nous restent Beaucoup de membres nous font des compliments sur les articles et leur niveau d inter t BRAVO AUX REDACTEURS Mais ils semblent oublier que c est l effectif de 150 membres qui permet de garder vie notre journal Notre pr tention tous est de l amener un niveau de qualit comparable celui des revues professionnelles La seule diff rence est le manque vident de publicit que nous nous refusons d y ins rer Nous avions fait le calcul il n y a pas si longtemps qu un article par membre et par trimestre nous permettait d avoir une revue d paisseur tr s appr ciable Suivez mon conseil reprenez les JPC examinez les et posez vous une seule question qu ai je fait pour la vie de mon club et de son journal Cherchez le nombre d articles que vous avez crit et je vous le demande REAGISSEZ Quand nous avons cr le club nous pensions que son journal serait le d but d une troite collaboration entre les membres Mais je m aper ois que ce sont toujours les m mes noms qui reviennent J attends donc vos impressions non seulementsur cette demande mais aussi sur tous les appels que nous avons fait depuis la cr ation du PPC PC d autre part la recherche aupr s de divers imprimeurs du meilleur rapport qualit prix nous a permis d atteindre une qualit tr s appr ciable et celle cine fera qu augmenter Le seul probl me c
44. icles 180 DATA MON TON SON NOTRE VOTRE 190 DATA CE LE UN DU LEUR TT o bi EE A A _ EE MMM EE e 33 verbes 210 DATA LION CHAT CHIEN LAPIN 220 DATA CLOU HEROS VIN SUCRE 230 DATA TIGRE NUAGE TRAIN BERET 240 DATA GIVRE GESTE CRANE DRAP 250 DATA COEUR FRERE GAGE BALON 260 DATA FREIN FILON FAUVE CANAL 270 DATA CABLE BANC BARON BARIL 280 DATA BATON CHAMP LINGE LIVRE 290 DATA POIDS PACHA NABAB NABOT 300 DATA MAJOR MAIRE COUDE EH ETH E a m n mit n mi l Ee EE EE E A TN A EE ASS SS SSSA SALT ORS ASMA SILAS SSSR SSS TSS SSS SSS SSS 320 DATA LENT SNOB FOU VIDE 330 DATA SEC VERT CUIT AIGU 340 DATA DUR DOU SALE VELU 350 DATA BRUN BLEU NOIR BLANC 360 DATA NEUF PALE KAKI FORT 370 DATA FLOU CHIC MOU IDIOT 380 DATA MORDU SOBRE RIANT ROUGE 390 DATA POETE NUET PETIT SOURD 400 DATA PERDU TRAHI am cs man m a oi s n n nyi n mp ia n am 0 ame a D ot ee Oe On m ee ME 20 a 20 n s TT SO IT EE E KN Ng a SSSR SRE aana aa 410 FOR A 0 TO 115 420 READ T A 430 NEXT A 440 B 33 DESTROY C DESTROY AS 450 GOSUB 520 460 D 10 GOSUB 510 470 D 39 GOSUB 510 480 D 34 amp GOSUB 510 490 DISP A 500 GOTO 440 510 C C B B D 520 A A amp T INT RND1B C amp 530 RETURN HOTT OT
45. ien s r de disensionner correctesent la variable qui recevra le contenu de BS avant d appeler la routine Pierre LANGLOIS eee EE EE EE EE FONCTION MS6 ma me me mu aa me Me nn et me es eem mm me reen em me oc wem was ne Em mn me Me mes en uen zem mn es en em un mm mu ee ms un Du mu me me ns mm m Pour les pauvres h res qui ne disposent pas de l adairable fichier EDLEX j ai cr cette fonction utilisateur qui simule la fonction M56 Pour afficher le message correspondant a un nua ro tapez FNN inua ro du message Simplement Sans autre formalit6 Quelques mots propos des messages d erreur Pour les messages standards leur nua ro varie de 1 a 97 ainsi que quelques autres r partis un peu partout Pour les messages des modules ou des fichiers LEX pr sents en a moire il y aun num ro le LEX ID qui est multipli par 1000 avant d tre ajout au nus ro de l erreur proprement dite Par exemple l erreur nua ro 2 du module MATHS LEX ID 02 est cod e 2002 FN 2002 donne Not square signifiant par exemple qu on essaie de calculer le d terminant d une matrice non carr e Si le fichier FRALEX traducteur des sessages d erreur est pr sent il faut rajouter 1000 aux nua ros d erreur standard ou 128 aux non standard Le programme utilise une adresse dans la a moire du HP71 qui contient le num ro de la derni re erreur ERRN 11 suffit de placer l le
46. is en valeur aettez les en premi re position ou mieux seuls sur la ligne Vous n avez pas vous soucier des tirets pour s parer les parties de vos chefs d oeuvre si des SUB ou DEF FN sont plac s bon escient JPCLISTE s en chargera pour vous De abee ne vous souciez pas des tirets devant les remarques qui doivent obligatoiresent tre critent avec des au lieu de REN Fa tes galesent attention les nua ros de ligne sont enlev s c est dire qu il peut rester quelques trous apr s un RENUMBER par exemple Pensez y cela fait toujours mauvais effet L utilisation se fait sans trop de probl se mn oz ms rm me mm nu Pm mmm rm ut mn rm mm mm me me un me me me mn ee mn saran de compr hension du soins nous l esp rons Apr s avoir fait RUN le programe demande le nom du fichier lister Ensuite il vous desande le nombre d exeaplaires d sir s Attention s il ne vous reste pas suffisament de place dans votre HP71 Le TRANSFORM peut chouer JPCLISTE est pr vu pour fonctionner avec du papier 12 format sensiblement A4 Si votre papier est de taille diff rente il vous faudra aodifier les lignes 140 et 1100 Voila a vous d crire vos programmes afin de les livrer la sagacit des lecteurs de JPC Heureuse Programmation et Bient t Pierre DAVID et Michel MARTINET PROGRAMME VOLABEL Ce programme s adresse encore aux possesseurs du lecteurs de cassettes HP82
47. numero voulu puis d ex cuter la fonction ERRNS et le tour est jou ERR 2F7E4 est cette adresse ERRL amp 2F7EC est la ligne o est survenue l erreur CURRL 2F7E8 courante est le num ro de la ligne Voil aijotez bien ces quelques morceaux choisis d IDS JPE n 18 page 27 A bientat Pierre DAVID Sorrento er e ea ag anan ken o m man a q t A a PROGRAMME POLYCOPY SEELEN E aaa m E n mn aa gag RSS SSS SSSR ASS RSS DIAZ Le aois dernier je vous proposais le programme POLYCOPY Depuis il a maigri D environ 500 octets voil qu il passe a 218 Quel coup de baguette magique lui ai je donc ass n Eh bien c est une petite phrase perdue dans la page 220 du sanuel de L HPIL IL est crit D configuration Adresse Auto en anglais AAU Auto Address Unconfigure et en face Adresse gale 21 Jargon eyst rieux que tout cela ee direz vous Vous avez raison j expligue tout contr leur HPIL digne de ce nom configure la boucle d interface Pour ce faire il envoie un message AAU avant la configuration puis un message AAD 1 Auto ADdress 1 qui signifie le premier p riph rique prend l adresse 1 le deuxi ae l adresse 2 etc jusqu 30 Pour 960 c est une autre histoire L adresse 0 est r serv e pour le contr leur sauf exception Mais voilas entre AAU et AAD 1 la boucle n est pas configur e et les p riph riques ont leur adresse par d
48. ote de fil de soie offerte par Ariane fille de Minos roi de Cr te LBL Bs Vous permet de livrer Bataille au minotsure en laissant le fil di Ariene dans la caverne d o vous Partez pour venir la reprendre ensuite 1 Le monstre g te dama la caverne choisie la lutte s engage vous lui arrschez une corne avec laquelle veus lui defoncez le er me 2 Le monstre n est pas l il ehange alors de g te et va dans une grotte adjaeente selle o il se trouvait il peut tres bien se tapir dans l embre el vous evier laiss le fil d Ariane 2777 LBL C Vous permet de visualiser les dangers qui vous enteurent la Case e veus tes et les eases adjacentes la votre EBL D D but du jeu L annenee d essuaire s laisse pr sumer l xistence de galeries menant d autres cavernes par des lsbyrinthes trep treits peur le passage du menstre L annence de fesse s n est pas a prendre la l g re EXEMPLE en mede USER ALER DEDALE 67 1 7 15 FOSSE 13 28 6 14 67 1 7 15 OSSURIRE 7 16 8 6 GALERIE MEHANT EN 18 18 11 19 17 11 MONSTRE Lit 18 12 18 12 HONSTRE DEBUSQUE Lit 18 12 18 REG RUK AEG A KEO ZER A REG R AEG A KED E 2 3 als elz el oholnfiafielialisfiehrfrefie 2o MINOTAURE TIT TTT TTT i EAA EE E BEES SSES Se ER RR LS MAA AAA JPC n 18 page 14 CAT 1 END 648 BYTES PRP 08 29 89 08 B1 LBL D CLX am 7 PRO
49. term diaire de votre association vous disposez de l quivalent en francais de ces programmes Ou si vous pouvez me mettre en contact avec des personnes susceptibles de pouvoir m aider dans la programmation de ces manuels En vous remerciant par avance je vous prie d agreer Monsieur mes salutations distingu es J M PRADELLES Plusieur membres m ont demand qui a r alis un interfacage entre une 41 et un ordinateur APPLE Si possible sans convertisseur JPC n 18 page D HP a1 CREATION D UN XROM suite PIERRE ANTOINE ENTREE DE CARACTERES EN ALPHA PHILIPPE GUEZ BIZARRERIE SUR HP41CX JEAN PIERRE TOYRE OUE PEUT ON FAIRE AVEC UN EXT I O JEAN CLAUDE BECKER PRGM DIRE JEAN CLAUDE BECKER PRGM ENVOIE JEAN CLAUDE BECKER PRGM CT COMMUNICATION TELEPHONIOUE DENIS CASTELAIN TRADUCTION A LA GREC DU PRGM WUMPUS GILBERT TISSERAND PRGM INTG JEAN JACOUES MOREAU PRGM LEC EXECUTION AUTOMATIQUE JEAN JACQUES MOREAU EEN ae oOoOANoaahwnrre PETIT THEATRE DES MICROCODES DECODAGE PROGRAMMES DANIEL JACOB CREATION D UN XROM suite Si vous avez essay de cr er des XROM vous vous amp tes tout de suite appergu que l on ne peut programmer que ceux de la 8 ligne du 1 tableau soit XRGZ1 95 9 13 17 21 25 29 car cette ligne est en relation directe avec le 2 tableau Mais les indirections 32 39 comportent 4 possibilit s il faut donc se retourner vers la tabl
50. vez occuper vos longues soir es aid s pour cela par votre fid le calcula teur HF Mais revenons 4 des choses plus terre a terre Farlons de l Assembl e G n rale elle se tiendra probablement fin octobre ou d but novembre Nous vous tiendrons avis s par courrier Le SICOF a eu lieu alea jacta fuit A l heure et au jour o cet article est crit nous n avons bien entendu aucun renseignement sur les nouveaux materiels pr sent s Avez vous vu les disquettes HF IL et la video graphique de FFC FARIS 7 A propos de la HF 41 les possesseurs sont pri s de bien vouloir nous faire parvenir des programmes N oubliez pas que c est vous et vous seul qui faites votre journal Sans vous le journal ne contiendrait que cet editorial et pour rester dans les normes il eut t n cessaire de poursuivre trop avant cette nuit Nous essayons une nouvelle pr sentation de la rubrique 71B Le mois dernier nous avions trois colonnes la une ce mois ci nous vous en propo sons deux et attendons vos remarques et suggestions Merci pour le Bureau Laurent ISTRIA JPE n 18 page 1 UN MOT DU PRESIDENT Il m arrive rarement de prendre la plume ce titre mais je pense qu il est bon quelquefois de vous rappeler mon xistance Je pourrais d buter ma lettre comme dans l ditorial les sanglots longs Mais j ai juste quelques raproches vous faire Ef
51. z d x cuter un programme XXXXXXX s il n xiste pas dans la m moire la HP41CX affiche NONEXISTE Par contre apr s avoir x cut le programme ci joint la HP41 n affiche pas NONEXISTENT POURQUOI Marche suivre 19 Affectez a a IN x 64 TANG 2 Apr s avoir lanc le PRGM avec l affichage indigue READY 3 ENTER un chiffre du type x 64 voir tableau joint x 64 x 32 x 16 x 8 x 4 ou x 2 Appuyez sur x 64 l affichage indique un chiffre JPE n 18 page 8 49 Faites maintenant XEQ 92 99 GTO 2 99 STO g2 99 RCL P2 99 5 Th oriquement la cas elle redonne 6 Refaire le 4 la HP affiche BILBL 11 82 FIX 2 12 3 CLRG 13 04 CLX 14 05 READY 15 06 AVIEN 16 87 STOP 17 18 O8LBL X764 19 29 STO op 20 18 FRC R ponse du Dr JPC ou haine ALPHA 1 7 chiffres ou lettres ou ou ou HP affiche 190 x STO 81 12 ENTER FRC xO GTO 8a ROY iga iq ig NONEXISTENT seulement dans ce le r sultat affich pr c demment NONEXISTENT 21 22 23 24 25 26 27 28 29 STO 61 LBL 09 RCL BB INT STO BB SF 25 RCL 22 RCL 1 AMICALEMENT JEAN PIERRE TOYRE 30 64 31 x 32 25 4 33 64 34 35 x 36 END L IGNE18 KO code 99 Quand vous armez le drapeau 25 ERROR IGNORE et que le pointeur passe sur une instruction qui provoque un message d err
Download Pdf Manuals
Related Search