L'Ordinateur Individuel n°45 février 1983
L'Ordinateur Individuel n°45 février 1983
  • Prix facial : 20 F

  • Parution : n°45 de février 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 254

  • Taille du fichier PDF : 257 Mo

  • Dans ce numéro : création artistique et informatique... tout un programme !

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 218 - 219  |  Aller à la page   OK
Pages suivantes >
218 219
7F25 Programme des minuscules accentuées 00010, MINUS 00020, CE PROGRAMME PERMET D'08TENIR LES MINUSCULES RCCENTUEES 00030, SUR L'IMPRIMANTE SEIKOSHA GP-80M 00040, BUTEUR JEAN-PHILIPPE HARCAUT 00050, COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 00060 00070 ORG 7F25H 00088 JAPRES LE DEPART AUTOMATIQUE DU PROGRAMME, 00090) 0A REMET 201,C'EST A DIRE RET,A L'ADRESSE 41E2s 7F133 ES 7F04 218000 7F87 222648 ? Fiel E1 7FB8 C9 01040, L8 COMMANDE "CLOSE" PERMET D'UTILISER LE PROGRAMME 01050, D'IMPRESSION DU BASIC 01060 CLOSE PUSH HL 01070 LD 4.,5813A 01080 LD (4826S),HL 01090 POP HL 01100 RET 01110, LA COMMANDE "OPEN" PERMET D'UTILISER LE NOUVEAU 01120, PROGRAMME D'IMPRESSION 7F29 3EC9 00100 CHARS LD A,201 7FEC ES 01130 OPEN l'USA HL 7F27 32E241 00110 LD (41E2s),A 7F8D 21507E 01140 LD AL,DEBUT 00120 ; ON PROTEGE LE PROGRAMME 7FC0 222640 01150 LD (40268),AL 00130, (AUTEUR. CHARBON PHILIPPE, CF. ORDINATEUR INDIVIDUEL) 7FC3 81 01160 POP HL 7F2A 31507F 00140 LD SP,DEBUT 7FC4 C9 01170 RET 7F20 ED738140 00100 LD (4081H),SP 81180, CE SOUS fROGI0mmc PERMET DE SAVOIR Si L'IMPRIMANTE 7F31 38 ee160 DEC SP 01190, EST PRETE 7F32 E073E848 00170 LD (40E8H),SP 7FC5 F3 01200 WRIT PUSH RF 7F36 21E841 00180 LD HL,41E8H 7FC6 C00103 01210 BOUCLE CALL 51,1A 7F39 3688 00190 LD (AL),184 7FC9 20FB 01220 JR NZ,BOUCLE 7F38 23 00200 INC HL 7FC8 FI 01230 POP AF 7F3C 3630 00210 LD (HL).53 7FCC C9 01240 RET 7F3E 23 00220 INC HL 01250, ADRESSE QUI CONTIENT 1 SI LE CRRACTERE PRECEDENT 7F3F 3630 00230 LD (HL),48 01260, ETRIT "0", 0 SINON 7E41 23 00240 INC HL 7FCD 00 01270 TEST DEFB 0 7F42 3600 00260 LD (HL),0 01280, LISTE DES CODES GRAPHIQUES OUI PERMETTENT D'IMPRIMER 7P44 23 00270 INC HL 01290, LES NOUVEAUX CARACTERES 7F45 3600 00280 LD (HL),0 7FCE 80 81300 LISTE DEFB 128 7F47 23 00290 INC HL 7FCF CO 01310 DEFB 197 7F48 3600 00380 LD (HL),0 7F00FC 01320 DEFB 232 7F4A 21E741 09310 LD AL,41E7H 7FD1 Ci 01330 DEFB 193 7F4D C35R1D 00321 JP 105AN 7E02 80 01340 DEFB 128 00330 ON REGARDE SI LE CARACTERE PRECEDENT ETRIT It'7FD3 88 01350 DEFB 184 7F50 3ACD7F 00340 DEBUT LD A,(TEST) 7E04 C6 01360 DEF8 198 7F53 FE01 00358 CP 1 7E01 05 01370 DEFB 197 7F35 281B 00360 JR 2,11PRES 7E06 C6 01380 DEFB 198 00370, ON ATTEND QUE L'IMPRIMANTE SOIT PRETE 7E07 138 01390 DEFB 184 7F57CDCS7F 00380 CRLL LIAIT 7FD0 88 01400 DEFB 184 00390, ON CHARGE LE CARACTERE A IMPRIMER DANS LE REGISTRE A 7E09 C2 01410 DEF8 194 7F5A 79 00400 LD A,C 7FDA CI 01420 CEPS 193 00410, ON REGARDE SI C'EST LE CARACTERE 11 OU 12 7F08 C2 01430 DEFB 194 7F58 FE08 e0420 CP OBH 7FDC 88 01440 DEFB 184 7FS0CR9F05 00430 JP 2,59FH 7FDD BC 01430 DEFB 188 W60 nec 00440 CP OCH 7FDE CI 01460 DEFB 193 7F62 CR9905 00450 JP 7 199H 7FDF C2 01470 DEFB 194 09468, 13.4,'EGF,RDI SI C'ESi L6 cHRACIERF "5" 7FE0 88 01480 DEFB 184 7E65 FE40 00470 CP'0'7FE1 CO 01490 DEFB 192 00480, SI OUI,ON VA A "PREPA" POUR LE SIGNALER 7FE2 80 01500 DEFB 128 7F67 2803 00490 JR Z PREPR 7FE3 06 01510 DEFB 198 013300, SINON ON REVIENT RU BASIC POUR L'IMPRESSION 7FE4 FD 01320 DEFB 253 7F69 C38400 01110 JP 384A 7FE1 C2 01530 DEFB (94 00520, ON MET 1 R L'ADRESSE'TEST" 7FE6 88 01540 DEFB 128 0e33e.SI LE CARACTERE PRECEDENT ETAIT I" 7FE7 A0 01550 DEFB 160 7FEC 3E01 00540 PREPR LD R,1 7FEB D6 01560 DEFB 214 7F6E 32G07F 00550 LD (TEST),R 7FE9 D5 01170 DEFB 213 7F71 C9 00168 RET 7FEA BE 01580 DEFB 190 00370, ON COMMENCE L'IMPRESSION Du CARACTERE spEcipt 7FEB CO 01590 DEFB 192 00380, ON REMET'TEST" A ZERO 7FEC R9 01600 DEFB 160 7F72 AF 80590 IMPRES XOR A 7FED 01 01610 DEFB 213 7F73 32C07F 00600 LD (TEST),R 7FEE D6 0162e DEFB 214 00610, ON VERIFIE QUE LE CARACTERE OUI SUIT "0" 7FEF BC 01630 DEFB 188 00620, EST BIEN UN CHIFFRE 7FF0 CO 01640 DEFB 192 7F76 79 00630 LD A,C 7FF1 88 01650 DEFB 184 7E77 D630 00640 51)E) 48 7FF2 D6 01660 DEFB 214 7F79 F8 00630 RET M 7FF3 05 01670 DEFB 213 7F7A FEOA 00660 CP 10 7FF4 D4 01680 DEFB 212 7F7C FO 00670 RET P 7FF5 88 01690 0EF8 136 OMO) 0N SAUVE LF REGISTRE Hl'ce,) 2) 7F7D ES 00699 PUSH HL 7FF7 D6 01710 DEFB 214 00700, ON CALCULE L'ADRESSE OU SE TROUVE LA PREMIERE DONNEE 7FF8 05 01720 DEFB 213 00710, CORRESPONDANT AU CARACTERE DESIRE ET ON LA MET 7FF9 D6 01730 DEFB 214 00720, DANS LE REGISTRE HL 7FFA 88 01740 DEFB 136 IF7E 210E7F 00730 LD AL.LISTE 7FEB 88 01750 DEFB 184 7F81 FE00 00740 88 CP B 7FEC 05 01760 DEFB 213 7F83 2008 00710 JR z.imp 7FFD D6 01770 DEFB 214 7F85 0603 00760 LD 8.1 7FFE D4 01780 DEFB 212 7E87 23 00770 AA INC HL 7FFF 88 01790 DEFB 136 7F88 10FD 08780 DJNZ RA 011308, CRERTION DE LA COMMANDE "OPEN" 7FEIA 30 00790 DEC A 4179 01810 ORG 41795 7F88 18E4 eue° JR 88 4179 C38C7F 01820 JP OPEN 00810, ON ATTEND QUE L'IMPRIMANTE SOIT PRETE 01830.CREATION DE LA COMMANDE'CLOSE" 7F0DC0C737f 00820 IMP CALL WRIT 4180 01840 ORG 4185H 00830, ON PASSE EN MODE GRAPHIQUE 4183 C3837F 01830 JP CLOSE 7F90 3E98 00840 LD A,8 01068, DEPRRT AUTOMATIQUE DU PROGRAMME 7F92 32E837 00030 LD (37E8H),A 41E2 01870 ORG 41E2H 00860, ON IMPRIME LE CARACTERE DESIRE 41E2 E9 01880 DEFB 0E9H 7F95 0605 00870 LD 8,5 01890, FIN DU PROGRAMME. LE POINT D'ENTREE EST "CHARS" 7F97 7E 00880 CC LD FI,(AL) 7E25 01900 END CHARS 7F98 CDC57F 00830 CALL WRIT mue TOTAL ERRORS 7F98 32E837 00900 LD (37E8H),A 7F9E 23 00910 INC HL IF9F 10F6 00920 DJAZ CC Caractères obtenus 7FA1 3E80 09930 LD R,128 7FA3 CDC17F 00940 CALL LIAIT 0 7FR6 32E837 00950 LD (37E9H),R 1'0 00961-JON REPASSE EN MODE CARACTERES STANDARDS 2, 0 IFF19 3EOF 970 LD A,15 3 7FA8 C0057F 00900 CRLL WAIT 4. I 7FAE 32E837 00990 LD (37E8H),R aime, ON RECUPERE LR VALEUR INITIALE DU REGISTRE HL 5. 1 6 7F81 El 01010 POP HL, é 01020, ON RETOURNE RU BASIC 0 7FB2 C9 01030 RET 9 L'Ordinateur Individuel 218rt 45 Février 83
les" ojucs du _IM A la recherche de minuscules accentuées Lorsqu'on imprime des textes, il est souvent regrettable, sur certaines imprimantes, de ne pas disposer de minuscules accentuées. Or ce problème peut facilement être résolu si l'on dispose d'une imprimante graphique. Le programme ci-contre est écrit pour un TRS-80 16Ko et une imprimante Seikosha GP-80M, mais les possesseurs d'un TRS-80 équipé d'unité de disquette, ou de la plupart des autres imprimantes qui ont des possibilités graphiques haute résolution, pourront sûrement l'adapter sans problème. Il suffit de connaître certaines des caractéristiques de l'imprimante GP-80M. Le caractère 8 permet de passer en mode graphique ; le caractère 15 aide à repasser en mode caractères standards. Un caractère graphique est obtenu à l'aide des codes 128 à 255 de la manière décrite ci-dessous : 1er point 2e point : caractère graphique 7e point Codage sur un octet : Mt ! itl 7e point 1er point : 0 ou 1. (les bits correspondant aux points devant être imprimés sont à 1). Les principaux commentaires sur la structuration du programme se trouvent dans le programme lui même ; quant à son utilisation, elle se limite à ces quelques commandes : OPEN : permet d'utiliser le nouveau programme d'impression. CLOSE : remet les pointeurs dans leur état initial et permet donc d'utiliser le programme d'impression du Basic. Après avoir effectué la commande OPEN, chaque fois que, par un LPRINT, on imprime un, suivi d'un chiffre de 0 à (sans espace entre le @ et le chiffre), on obtient à la place un caractère accentué ou le ï, suivant le chiffre. Exemple : LPRINT « @ 8tre » donnera être. Cette solution aide à ne perdre qu'un seul caractère, c'est-à-dire le @, que l'on peut d'ailleurs toujours obtenir, si on le désire, après un CLOSE (y penser notamment avant un LLIST). Le programme est placé exactement à la fin de la mémoire d'un modèle 16Ko (mais vous pouvez toujours le déplacer, si vous le désirez, en changeant le ORG initial). A la fin du chargement, le programme démarre automatiquement et se protège (il n'est donc pas nécessaire de répondre à la question Memory Size ?). Il ne vous restera donc plus, pour pouvoir utiliser agréablement ce programme, qu'à indiquer sur votre clavier numérique, par exemple avec des autocollants, les minuscules accentuées correspondantes. Jean Philippe Harcaut n'45 Février 83 219 Plus vite, encore plus vite ! Le programme n°4 du manuel d'utilisation de l'imprimante livrée avec le ZX- 80 propose un programme Basic permettant de sauvegarder le fichier d'affichage dans une chaîne dimensionnée (704 (d)). Outre le fait que ce programme se compose d'un peu plus de cent cinquante octets, il met environ vingt secondes pour son exécution en mode FAST. Il s'agissait donc d'aller beaucoup plus vite. Pour ce faire, voici une méthode réalisant le même travail, mais écrite en assembleur. La page écran est sauvegardée au-delà de RAMTOP, Tableau 1 SAUVEGARDE 16514 (d) 16517 (d) LD HL, (DFITE) LD DE, 32042 (d) 2A OC 40 11 2A 7D 16520 (d) LD BC, 726 (d) 01 D6 02 16523 (d) LD IR ED BO 16525 (d) RET C9 AFFICHAGE 16526 Id) LD HL, 2P42 (d) 21 2A 7D 16529 (d) LD DE, (DFILE) ED 5B OC 40 16533 (d) LD BC, 726 (d) 01 D6 02 16536 (d) LDIR ED BO 16538 (d) RET C9 SAUVEGARDE DANS AS 16514 (d) 16516 (d) Tableau 2 que l'on aura initialisée par. POKE 16388, 42. POKE 16389, 125. NEW. Ce programme est composé de deux sous-programmes, un pour la sauvegarde de la page écran, l'autre pour sa restauration à l'écran. Ces deux sous-programmes sont entièrement relogeables. On peut, par exemple, les implanter à la première ligne dans une REM (tableau 1). La sauvegarde de la page écran s'appelle par RAND USR 16514, alors que la restitution de la page écran s'appelle par RAND USR 16526. Cependant cette méthode ne permet pas de transférer sur cassette une page LD B, 22 (d) LD HL, (VARS) 16519(d) INC HL 23 16520 (d) INC HL 23 16521(d) INC HL 23 16522 (d) INC HL 23 16523 (d) INC HL 23 16524(d) EX DE, HL EB 06 16 2A 10 40 16525 (d) LD HL, (DFILE) 2A OC 40 16528 (d) INC DE 13 16529 (d) INC HL 7E 16531(d (CP 118 (d) FF 76 16533 (d) JR Z+3 28 03 16535 (d) LD (DE), A 12 16536 (d) JR - 10 (d) 18 F6 16538 (d) DJNZ-11 (d) 10 F5 16540(d) RET C9



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


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