Micro Systèmes n°21 jan/fév 1982
Micro Systèmes n°21 jan/fév 1982
  • Prix facial : 18 F

  • Parution : n°21 de jan/fév 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 200

  • Taille du fichier PDF : 152 Mo

  • Dans ce numéro : initiation... le microprocesseur et son environnement.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 130 - 131  |  Aller à la page   OK
Pages suivantes >
130 131
00100 00200 00300 00400 000A 00500 0008 00600 0024 00700 00800 0000 00900 0005 01000 0020 01100 0009 01200 000A 01300 000F 01400 0010 01500 0014 01600 0015 01700 001A 01800 01900 0040 02000 02100 0000'02200 02300 02400 02500 tille MISE A L'HEURE DE L'HORLOGE 4 Septembre 1981 LE EQU OAH ; line feed CR EQU ODH ; carriage return DOL EQU WMBOOT EQU O ; warmboot BDOS EQU 5 ; point d'entree de BDOS CURREC EQU 32 ; current record (in FCB) PRINTS EQU 9 ; print string READCO EQU 10 ; rend console OPEN EQU 15 ; ouverture fichier CLOSE EQU 16 ; fermeture fichier READ EQU 20 ; lecture fichier sep. WRITE EQU 21 ; ecriture fichier sep. SETDMA EQU 26 ; set buffer address CLOCK EQU 040H ; Adresse du MM 58174 ASEG ORG 100H 02600 02700 ; Initialisation et mise n l'heure 02800 0100 31 0080 02900 REBUT  : LU SP.80H 0103 AF 03000 XOR A 0104 D3 40 03100 OUT (CLOCK),A 0106 D3 4E 03200 OUT (CLOCK+14).A 0108 D3 4F 03300 OUT (CLOCK+15).A 03400 03500 03600 03700 ; entree de la date 03800 010A 11 024A 03900 PHASE1  : LD DE.MSGDAT 010D CD 023F 04000 CALL DEMAND 0110 21 010A 04100 LU HL.PHASE1 0113 22 0348 04200 LD (REPRIZ).HL stock = 80h reset MM 58174 arreter l'horloge Pas d'interrupt. demander la date ; pour une ; eventuelle erreur Fig. 2. — Programme destiné à la mise à l'heure (et à la date) de l'horloge. 0116 21 034F 04300 0119 CD 0203 04400 011C 32 034A 04500 011F OE 48 04600 0121 CD 0223 04700 01'24 CD 0203 04800 0127 32 0348 04900 012A OE 4B 05000 012C CD 0223 05100 012F CD 0203 05200 0132 E6 03 05300 0134 47 05400 0135 3E 08 05500 05600 0137 28 03 05700 0139 1F 05800 013A 10 FD 05900 013C D3 4D 06000 013E 32 034C 06100 06200 06300 06400 0141 3A 0348 06500 0144 B7 06600 0145 28 04 06700 0147 FE 13 06800 0149 38 09 06900 0148 11 0298 07000 014E CD 023A 07100 0151 C3 010A 07200 0154 3A 034A 07300 0157 B7 07400 0158 28 F1 07500 015A FE 32 07600 015C 30 EU 07700 015E 0161 3A 0348 CB 67 07800 07900 0163 28 02 08000 0165 D6 06 0167 5F 08100 08200 0168 16 00 08300 016A 21 0338 08400 LD HLrENTREE+2 CALL CVDEC, LD (JOUR)rA LD CrCLOCK+8 CALL HOUT CALL. CVDEC LD (MOIS)rA LD CICLOCK+11 CALL.. HOUT CALL CVDEC AND 3 LD BrA LD APS JR ZrANON RRA LIJNZ $-1 ANON  : OUT (CLOCK+13).A LU (AN).M verification de la date LD A.(MOIS) OR A JR ZrMAUDAT CP 013H JR CrBONMOI MAUDAT  : LD DE.MSGER1 CALL VISU JP PHASE1 BONMOI  : LD Ar(JOUR) OR JR ZrMAUDAT CP 032H JR NCrMAUDAT BONJOU  : LU Ar(MOIS) BIT 4rA JR Zr$4-4 SUB 6 LU ErA LU Dr0 LU HLrTABMOI-1 HL -> zone lue conversion JOUR rangement -> horloge ; conversion MOIS -> horloge conversion ANNEE 0.1.2 ou 3 AN en B on SUPPOSe annee bissextile saut si vrai sinon. on met le bit indicateur => horloge ; MOIS en BCD ; MOIS = 0 MOIS < 13 -Mauvaise date- ; JOUR en BCD JOUR = 0 JOUR) = 32 MOIS en BCD si superieur n 10 il faut retirer 6 pour avoir le mois en binaire MOIS en DE table de duree+1 130 — MICRO-SYSTEMES Janvier-Février 1982
016D 19 08500 ADD H1_,DE ; des mois 016E 46 08600 LD Dr(HL) ; B = Nb de jours 016F B8 08700 CF'B ; du mois 0170 38 OB 08800 JRC,PHASE2 ; OK 0172 78 08900 LD A,E ; MOIS en A 0173 FE 02 09000 CF'2 ; fevrier ? 0175 20 D4 09100 JR NZ,MAUDAT ; non 0177 3A 034C 09200 LD A,(AN) ; fevrier irresulier 017A 87 09300 OR A ; si l'annee est 0178 20 CE 09400 JR NZ,MAUDAT ; bissextile 09500 09600 ; mise a Jour de l'annee dans TIME 09700 017D 11 0359 09800 PHASE2  : LD DE,FCB ; adresse du FCB 0180 OE OF 09900 LDC,OF'EN ; de -TIME.COM- 0182 CD 0005 10000 CALL BDOS ; ""Open"" 0185 3C 10100 INC A ; code retour + 1 0186 20 09 10200 JR NZ,BON ; OK 0188 11 0289 10300 LD DEATIMABS ; TIME absent 0188 CD 0238 10400 ADIEU  : CALL VISU ; helas ! 018E C3 0000 10500 JF'WMBOOT ; on n'y peut rien 0191 11 0380 10600 BON  : LD DErZONLEC ; indiquer a BDOS 0194 OE 1A 10700 LDC,SETDMA ; l'adresse buffer 0196 CD 0005 10800 CALL BDOS 0199 OE 14 10900 LDC,READ 0198 11 0359 11000 LD DE,FCB ; adresse FCB => DE 019E CD 0005 11100 CALL BDOS ; lire ""TIME"" 01A1. 87 11200 OR A ; lecture OK ? 01A2 11 0305 11300 LD DEFERRLEC ; erreur de lecture 01A5 20 E4 11400 JR NZ,ADIEU ; catastrophe ! 0187 32 0379 11500 LD (FCB+CURREC),A ; current record=0 01AA 2A 0355 11600 LD HL,(ENTREE+8) ; annee en ASCII 01AD 22 0382 11700 LD (ZONLEC+2),HL ; => TIME 0180 OF 15 11800 LDC,WRITE ; on doit 0182 11 0359 11900 LD DE,FCB ; maintenant 0185 CD 0005 12000 CALL BDOS ; re-ecrire le 0188 11 0320 12100 LD DE,ERRECR ; module TIME 0188 87 12200 OR A ; erreur ? 01BC 20 Cl) 12300 JR NZ,ADIEU ; Aie ! 018E 0E 10 12400 LDC,CLOSE 01C0 11 0359 12500 LD DE,FCB 01C3 CD 0005 12600 CALL BDOS ; fermer le fichier Fig. 2 (suite) Janvier-Février 1982 12700 12800 ; entree de l'heure 12900 0106 11 0266 01C9 CD 023F 01CC 21 017D 13200 LD HL,PHASE2 ; en cas d'erreur 01CF 22 034813300 LD ,HL 01112 21 034F13400 LD HL,ENTREE+2 ; HL -> zone lue 0185 CD 0203 13500 CALL CVDEC ; conversion HEURE 0188 FE 24 13600 CF'01DA 38 09 13700 JRC,BONHEU ; OK (< 24) 01DC 11 02AD 13800 MAUTIM  : LD DE,MSGER2 0111F CD 023A 13900 CALL VISU ; "Mauvaise heure- 01E2 C3 017D 14000 JF'PHASE2 01E5 OE 46 14100 BONHEU  : LDC,CLOCK+6 01E7 CD 0223 14200 CALL HOUT ; -> horlose O1EA CD 0203 14300 CALL CVDEC ; conversion MIN. 01ED FE 60 14400 CF'060H 01EF 30 El (14500 JR NC,MAUTIM ; erreur 01F1 OE 44 14600 LDC,CLOCN+4 01F3 CD 022314700 CALL HOUT ; -> horlose 14800 14900 ; attente du sisnal 13000 13100 LD CALL. DE,MSGHER DEMAND ; -Quelle heure ? - 15000 ; -Au top...- 01FC 3E 01 15300 LD Arl O1FE D3 4E 15400 OUT (CLOCK+14),A ; === » > start !!! 15500 0200 C3 0000 15600 JP WMBOOT ; retour a CP/M 15700 01F6 01F9 11 027F CD 023F 15100 15200 LD CALL DE,MSGSTA DEMAND 15800 ; 15900 16000 16100 ; conversion d'un sroupe de 2 chiffres en BCD 16200 0203 56 16300 CVDEC  : LD II, (HL) ; HL -> texte lu 0204 23 16400 INC HL 0205 5E 16500 LD E,(HL) 0206 23 16600 INC HL ; 2 car ASCII -> DE 0207 23 16700 INC HL ; sauter le -/- 0208 7A 16800 LD Ar D ; dizaines MICRO-SYSTEMES - 131



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


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