Micro Systèmes n°22 mar/avr 1982
Micro Systèmes n°22 mar/avr 1982
  • Prix facial : 18 F

  • Parution : n°22 de mar/avr 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 230

  • Taille du fichier PDF : 176 Mo

  • Dans ce numéro : David Em, artiste sur ordinateur... un voyage dans le monde de l'imaginaire.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 66 - 67  |  Aller à la page   OK
Pages suivantes >
66 67
Fig. 7. — Listing complet d'un désassembleur. Celui-ci est compatible avec le CBM 3032 de Commodore. La méthode exposée est suffisamment générale pour être utilisée aux détails d'implantation près, sur d'autres micro-ordinateurs. 10'REM PROGRAMME DE DESASSEMBLAGE 2Q PRINT"M" 30 PRINT" DESRSSEMBLAGE":PRINT 35 IM=0 40 INPUT"IMPRIMANTE (OUI OU NON)" ; Z$ 50 IF LEFT$(2$,1)<>"0" THEN 100 60 IM=1 70 OPEN1,4:PRINT#1 80 REM ******************************** 90 REM INIT ET CHOIX BASE ADRESSAGE 100 DIMTA$(256):DIMDA(56) 105 FOR I=1 TO 56:READDA(I):NEXTI 110 FOR 1=0 TO 255:READTAS(I):NEXT I 140 PRINT"M" 150 INPUT"BASE ADRESSAGE (0=DEC 1=HEXA)" ; B:FRINT 160 IF B>1 THEN 140 170 INPUT"ADRESSE INITIALE" ; ffl$, FRINT 180 INPUT"ADRESSE FINALE"AF$:PRINT 190 IF B=0 THEN 220 195 NIS=AIS 200 GOSUB 4500 REM CONV HEXA > DEC 205 RIS=NO$, NI$=RF$ 210 GOSUB 4500 215 AF$=NO$ 220 N=INT(VAL(AI$)):AF=INT(VAL(AF$)) 225 REM.0***************************** 230 REM PROG DESASSEMB 240 GOSUB 1000:REM LEC MEM 250 GOSUB 1100, REM RECH DANS TABLE 255 NI$=MID$(STR$(N).'):GOSUB 4530 265 P=VAL(MIDeTA$CCM. 6,1)):R=1 1'75 IF P<>0 THEN 300 280 PRINT N" "ZI$" "NOS" "Xie ERR" IF IM=0 THEN 290 285 FRINT#1,11" "NOS" "Xie ERR" 298 N=N+1:IF 11(=AF THEN 240 295 GOTO 6000 308 LBS=MIDeTAS(CM),7) 320 PRINT N" "ZIr "NOS" "Xie "LES 325 IF IM=0 THEN 350 330 PRINT#1,N" "NOS" "Xie "LB$ 350 R=R+1:IF RD.P THEN 290 360 N=N+1, IF N>AF THEN 6000 365 NIS=MIDS(STR$(N),2> 370 GOSUB 1000:REM LEC MEM 375 GOSUB 1100:REM RECH DANS TABLE 380 GOSUB 4530, REM CONV DEC EN HEXA 390 PRINT N" "ZI$" "NO$" "XIS:IF IM=0 THEN 400 395 FRINT#1,N" "NO$" "XI$ 400 GOTO 350 1000 REM ****************************** 1010 REM LECTURE MEMOIRE 1070 CM=PEEK(N) 1080 RETURN 1100 REM ****************************** 1110 REM RECHERCHE DANS TABLE 1120 XIS=MIDETAt(CM),4,2> 1130 2I=CM:21$=CHR$CZI>:GOSUB 1200 1170 RETURN 1200 REM ****************************** 1210 REM ALIGN ASCII 1220 IF ZI=13ORZI=17ORZI=19ORZI=20ORZI=141ORZI=147ORZI=157 THEN ZU=CHR$(32) 1230 FOR J=1 TO 56 1240 IF ZI=DA(J) THEN 1270 1250 NEXT 1260 RETURN 1270 ZIS=" "+Z1$ RETURN 1300 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 310 DATA 14,15,16,21,22.2,24,25,26,27,28,9,30,31,128,129,130,131 1320 DATA 132,133,134,135.136,137.138,139,140.142,143,144,145,146 1 330 DATA 148,149.150,151,152,153,154,155,156,158,159 1500 REM ********4********************* 4510 REM CONVERSION DEC EN HUA B=0 4515 REM CONVERSION HEXA EN DEC B=1 4520 IF 3=0 THEN 4530 4525 BI$="16":B0$="10":00TO 4540 4530 BI$="10":1:0$="16" 4540 Bl'1=VAL(BIS) 4550 DEC=0 Fe%=0 4560 I2-1=LEN(NI$) 66 — MICRO-SYSTEMES Mars-Avril 1982
4570 REM * DECIMAL +- BI * 4580 FOR J=L% TO 1 3TEP-1 4590 e:=ASC(MID$(NIS.J.1))-48 4600 IF K%>16 THEN 10:=K%-7 4605 IF er...›BI%-1 OR K%<0 THEN NO$=" 7 ? 1 ? "'RETURN 4610 DEC=DEC+K%*BMTPWR% 4620 PWR>:=PWR>l'NEXT J 4650 REM * BO *- DECIMAL * 4660 NO$=" "'H$="0123456789ABCDEF" 4670 IF DEC=0 THEN NO$=" 0":RETURN 4630 PWR%=LOG(DEC)/LOG(80%) 4690 FOR J=PWR% TO 0 STEP-1 4700 XX=INT(B0.0j).CH%=DEC/XX 4710 NO$=NO$+MIDS(H$,CH>141,1) 4720 DEC=INT(DEC-CHUXX) 4730 NEXT J 4740 RETURN 4990 REM ****************************** 4995 REM TABLE DES INSTRUCTIONS 5000 DATA 000001BRK,0010120RA (L.X).002020,003030.004040 5010 DATA 0050520RRL,006062ASLL.007070 5015 DATA 008081PHP EMSPSR S4-S-17.0090920RA # 5020 DATA 0100A1ASL A,0110B0.0120C0,0130D3ORA LL,0140E3ASL LL 5030 DATA 0150F0.016102BPL L (SI N=0].0171120RA (L).Y,018120.019130 5040 DATA 020140.0211520RAL.X.022162ASLL.X.023170,024181CLC (C4-0] 5050 DATA 0251930RA LL.Y.0261A0.0271B0.0281C0.0291D30RA LL.X 5055 DATA 0301E38SL LL.X 5360 DATA 0311F0.032203JSR LL,033212AND (L.X).034220.035230 5070 DATA 036242BITL.037252AND L 5080 DATA 038262ROLL.039270.040281PLP CS4-S+1 FSR#MS].041292AND # 5085 DATA 0422A1ROL.043280 5090 DATA 0442C3BIT LL.0452D3AND LL.0462E3ROL LL,0472F0 5100 DATA 048302BM1 L [SI N=17.049312AND (L).Y.050320.051330,052340 5110 DATA 053352ANDL.X.054362ROLL.X.055370.056381SEC [C4-1] 5120 DATA 057393AND LL.Y,0583A0,0593B0,0603C0.0613D3AND LL.X 5130 DATA 0623E3ROL LL.X.0633F0.064401RTI.065412EOR (L.X) 5140 DATA 066420.067430.068440.069452E0RL.070462LSR LA/71470 5150 DATA 072481PHA CMS+A S+S-1].073492EOR #.0744AILSR.0754B0 5155 DATA 0764C3JMP LL 5160 DATA 0774D3E0R LL.0784E3L3R LL.0794F0.080502BVC L (SI V=07 5170 DATA 081512E0R (L).Y.082520.083530.084540 5180 DATA 085552E0RL.X,086562LSRL.X.087570.086581CLI CI+e] 5130 DATA 089593EOR LL.Y.090580.091580.0925C0.0935D3E0R LL.X 5200 DATA 0945E3LSR LL.X,0955F0.096601RTS.097612ADC (L. X) 5210 DATA 098620.099630.100640,101652ADCL.102662R0RL,10367e 5220 DATA 104681PLA [84-S+1 A+MS],105692ADC #.1066A1R0R:107680 5230 DATA 1086C3JMP (LL).1096D3RDC LL.1106E3ROR LL.1116F0 5240 DATA 112702BVS L [SI V=1].113712ADC (L).Y.114720.115730.116740 5250 DATA 117752ADCL.X,118762RORL.X.119770.120781SEI (I4-1] 5260 DATA 121793ADC LL.Y.122780.123780.1247C0.1257D3ADC LL.X 5270 DATA 1267E3ROR LL.X.1277F0.128800.129812STA (L.X).130820 5280 DATA 131830,13284267YL.133852STAL.134862STXL.135870 5290 DATA 136881DEY.137890.1388A1TXA ZA € XL1398B0.1408C3STY LL 5300 DATA 1418D3STA LL.1428E3STX LL.1438F0,144902BCC L (SI C=0] 5310 DATA 145912STA (L).Y,146920.147930.1489429TYL.X 5320 DATA 149952STAL.X.150962STXL.4',151970.152981TYA EA4-Y] 5330 DATA 153993STA LL.Y.1549A1TXS ZS4-X].155980.1569C0.1579D3STA LL.X 5340 DATA 1589E0.1599F0.160A02LDY #,161Al2LDA (L.X)0162A22LDX # 5350 DATA 163A30.164A42LDYL.165A52LDAL.166A62LDXL,167A70 5360 DATA 168A81TAY• CYtA].169A92LDA #,170AA1TAX [X+A].171A80,172AC3LDY LL 5370 DATA 173AD3LDA LL.174RE3LDX LL.175AF0.176802BCS L [SI C=1] 5380 DATA 177B12LDA (L).Y.178820.1798300180842LDYL.X 5390 DATA 181a52LDRL.X.182B62LDXL.Y.1838700184881CLV IY4-0] 5400 DATA 185B93LDA LL.Y.186B81TSX IX4-31.1878B0,1888C3LDY LL.X 5410 DATA 189BD3LDA LL.X,1908E3LDX LL.Y.191BF0.192CO2CPY # 5420 DATA 193C12CMP (L.X).194C20,195C30.196C42CPYL.197C52CMP L 5430 DATA 198C62DECL.199C70 5440 DATA 200C81INY.201C92CMP #.202CA1DEX0203030.204CC3CPY LL 5450 DATA 205CD3CMP LL,206CE3DEC LL.207CF0.208D02BNE L [SI Z=0] 5460 DATA 209D12CMP .Y.210D20,211D30.212D40,213D52CMPL.X 5470 DATA 214D62DECL.X.215D70.216D81CLD" ri4,01,217D93CMP LL.Y 5480 DATA 218DA0.219080.220DC0.221DD3CMP LL.X.222DE3DEC LL.X 5490 DATA 223DF0.224E02CPX #.225E125BC (L.X) CA*-A-M-C-].226E20.227E30 5500 DATA 228E42CPXL.229E52SBC L CAMA-M-C-7.230E62INC Le231E70 5510 DATA 232E81INX,233E92SBC # U4-A-D-C-7,234EA1NOP.235EB0 5520 DATA 236EC3CPX LL.237ED3SBC LL (F4fi-M-C-7.238EE3IFIC LL 5530 DATA 239EF0.240F02BE0 L (SI Z=1],241F12SBC (L).Y CA+A-M-C-7 5535 DATA 242F20.243F30.244F40 5540 DATA 245F52SBCL.X CA+A-M-C-J.246F62INCL.X.247F70 5550 DATA 248F81SED [D4-1].249F93SBC LL.Y CA÷A-M-C-3,250FA0.251FB00252FC0 5560 DATA 253FD3SBC LL.X rA4-A-M-C-7.254FE3INC LL.X.255FF0 6000 CLOSE1:END READY. Mars-Avril 1982 MICRO-SYSTEMES - 67



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