COD. MAQ. 3
FILE INFORMATION
FILENAME(S): COD. MAQ. 3
FILE TYPE(S): PRG
FILE SIZE: 18K
FIRST SEEN: 2025-10-19 23:07:10
APPEARS ON: 1 disk(s)
FILE HASH
2cc431a94e81342a1ffb4b5f9f144954f0b80f27c3df30a62de86fb3ecc8dfa7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A04A | COD. MAQ. 3 | PRG | Bugjam - Argentina | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 00 00 8F 22 14 14 14 14 14 14 28 43 |..$...."......(C|
00000010: 29 20 31 39 38 33 20 48 4F 52 41 20 53 4F 46 54 |) 1983 HORA SOFT|
00000020: 57 41 52 45 00 31 08 01 00 8F 22 14 14 14 14 14 |WARE.1....".....|
00000030: 14 00 49 08 05 00 8F 20 53 41 56 45 22 4D 4C 33 |..I.... SAVE"ML3|
00000040: 2E 45 53 2E 4A 31 22 2C 38 00 66 08 0A 00 97 35 |.ES.J1",8.f....5|
00000050: 33 32 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 |3281,15:.53280,1|
00000060: 32 3A 99 22 90 22 00 6E 08 0B 00 99 22 93 00 9E |2:.".".n...."...|
00000070: 08 0C 00 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |...."...........|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 E2 |............."..|
000000A0: 08 0D 00 99 22 DD 20 12 1F 20 20 20 20 20 20 20 |....". .. |
000000B0: 43 4F 44 49 47 4F 20 20 4D 41 51 55 49 4E 41 20 |CODIGO MAQUINA |
000000C0: 20 36 35 31 30 20 20 20 20 20 20 20 1C 92 20 DD | 6510 .. .|
000000D0: 22 3A 4D 53 24 B2 22 42 49 45 4E 56 45 4E 49 44 |":MS$."BIENVENID|
000000E0: 4F 22 00 13 09 0E 00 99 22 1C AD C0 C0 C0 C0 C0 |O"......".......|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: BD 90 22 00 2C 09 1E 00 8D 36 30 30 30 30 3A 8D |..".,....60000:.|
00000120: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 5F 09 1F |63100:.63000._..|
00000130: 00 99 22 93 12 1C 20 20 20 4C 41 20 55 4E 49 44 |.."... LA UNID|
00000140: 41 44 20 4D 49 43 52 4F 20 50 52 4F 43 45 53 41 |AD MICRO PROCESA|
00000150: 44 4F 52 41 20 28 4D 50 55 29 20 20 20 20 22 00 |DORA (MPU) ".|
00000160: 89 09 20 00 99 22 11 1F 45 4E 20 45 4C 20 43 4F |.. .."..EN EL CO|
00000170: 4D 4D 4F 44 4F 52 45 2D 36 34 20 45 53 20 45 4C |MMODORE-64 ES EL|
00000180: 20 12 36 35 31 30 92 2E 22 00 B5 09 21 00 99 22 | .6510.."...!.."|
00000190: 11 45 4C 4C 41 20 28 45 4C 3F 29 20 4F 42 45 44 |.ELLA (EL?) OBED|
000001A0: 45 43 45 52 41 20 53 55 53 20 4F 52 44 45 4E 45 |ECERA SUS ORDENE|
000001B0: 53 2E 2E 2E 22 00 E3 09 22 00 99 22 11 53 4F 4C |S..."..."..".SOL|
000001C0: 4F 20 53 49 20 55 53 54 45 44 20 4C 45 20 48 41 |O SI USTED LE HA|
000001D0: 42 4C 41 20 45 4E 20 53 55 20 4C 45 4E 47 55 41 |BLA EN SU LENGUA|
000001E0: 4A 45 2E 00 0E 0A 23 00 99 22 11 45 53 20 44 45 |JE....#..".ES DE|
000001F0: 43 49 52 2C 20 45 4C 20 12 1C 20 4C 45 4E 47 55 |CIR, EL .. LENGU|
00000200: 41 4A 45 20 4D 41 51 55 49 4E 41 20 92 2E 00 39 |AJE MAQUINA ...9|
00000210: 0A 24 00 99 22 11 11 11 45 4E 20 45 53 54 41 20 |.$.."...EN ESTA |
00000220: 4C 45 43 43 49 4F 4E 20 41 50 52 45 4E 44 45 52 |LECCION APRENDER|
00000230: 45 4D 4F 53 20 41 4C 47 4F 00 54 0A 25 00 99 22 |EMOS ALGO.T.%.."|
00000240: 11 44 45 20 4C 45 4E 47 55 41 4A 45 20 4D 41 51 |.DE LENGUAJE MAQ|
00000250: 55 49 4E 41 00 5F 0A 27 00 8D 36 33 30 30 30 00 |UINA._.'..63000.|
00000260: 91 0A 28 00 99 22 93 1C 12 20 20 20 20 20 20 20 |..(.."... |
00000270: 20 20 20 20 20 20 45 4C 20 36 35 31 30 20 20 20 | EL 6510 |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 22 00 BE 0A 2D 00 99 22 11 11 1F D1 45 4C 20 36 |"...-.."....EL 6|
000002A0: 35 31 30 20 54 49 45 4E 45 20 55 4E 20 41 4C 47 |510 TIENE UN ALG|
000002B0: 55 4E 4F 53 20 52 45 47 49 53 54 52 4F 53 00 EA |UNOS REGISTROS..|
000002C0: 0A 32 00 99 22 20 49 4E 54 45 52 4E 4F 53 20 4C |.2.." INTERNOS L|
000002D0: 4F 53 20 43 55 41 4C 45 53 20 43 4F 4E 54 49 45 |OS CUALES CONTIE|
000002E0: 4E 45 4E 20 20 42 59 54 45 53 00 18 0B 3C 00 99 |NEN BYTES...<..|
000002F0: 22 20 43 4F 4E 20 49 4E 46 4F 52 4D 41 43 49 4F |" CON INFORMACIO|
00000300: 4E 20 44 45 20 24 30 30 20 41 20 24 46 46 20 28 |N DE $00 A $FF (|
00000310: 45 4E 20 48 45 58 29 2E 00 45 0B 41 00 99 22 11 |EN HEX)..E.A..".|
00000320: 11 11 D1 54 52 45 53 20 44 45 20 45 53 54 4F 53 |...TRES DE ESTOS|
00000330: 20 52 45 47 49 53 54 52 4F 53 20 53 45 20 4C 4C | REGISTROS SE LL|
00000340: 41 4D 41 4E 3A 00 6A 0B 42 00 99 22 20 12 20 27 |AMAN:.j.B.." . '|
00000350: 41 27 20 92 20 2C 20 12 20 27 58 27 20 92 20 45 |A' . , . 'X' . E|
00000360: 20 12 20 27 59 27 20 92 2E 22 00 97 0B 46 00 99 | . 'Y' .."...F..|
00000370: 22 11 11 11 D1 55 53 54 45 44 20 50 55 44 45 20 |"....USTED PUDE |
00000380: 43 41 52 47 41 52 20 4E 55 4D 45 52 4F 53 20 45 |CARGAR NUMEROS E|
00000390: 4E 20 45 53 54 4F 53 00 C4 0B 50 00 99 22 20 52 |N ESTOS...P.." R|
000003A0: 45 47 49 53 54 52 4F 53 2C 20 50 55 44 45 20 53 |EGISTROS, PUDE S|
000003B0: 55 4D 41 52 2C 20 52 45 53 54 41 52 2C 20 50 52 |UMAR, RESTAR, PR|
000003C0: 4F 42 41 52 00 EC 0B 5A 00 99 22 20 53 49 20 45 |OBAR...Z.." SI E|
000003D0: 53 20 43 45 52 4F 2C 20 43 4F 4D 50 41 52 41 52 |S CERO, COMPARAR|
000003E0: 20 4D 41 59 4F 52 20 51 55 45 20 3E 00 18 0C 64 | MAYOR QUE >...d|
000003F0: 00 99 22 20 4F 20 4D 45 4E 4F 52 20 51 55 45 20 |.." O MENOR QUE |
00000400: 3C 20 4F 54 52 4F 20 4E 55 4D 45 52 4F 20 45 54 |< OTRO NUMERO ET|
00000410: 43 2E 2C 20 45 54 43 2E 00 23 0C 6E 00 8D 36 33 |C., ETC..#.n..63|
00000420: 30 30 30 00 32 0C 78 00 99 22 93 22 41 24 58 24 |000.2.x.."."A$X$|
00000430: 59 24 00 59 0C 82 00 99 53 44 24 22 41 20 43 4F |Y$.Y....SD$"A CO|
00000440: 4E 54 49 4E 55 43 49 4F 4E 20 41 4C 47 55 4E 41 |NTINUCION ALGUNA|
00000450: 53 20 4F 52 44 45 4E 45 53 00 78 0C 8C 00 99 22 |S ORDENES.x...."|
00000460: 11 44 45 20 4D 49 20 52 45 50 45 52 54 4F 52 49 |.DE MI REPERTORI|
00000470: 4F 3A 22 3A 4D 38 B2 35 00 83 0C 96 00 8D 36 33 |O:":M8.5......63|
00000480: 32 30 30 00 93 0C A0 00 99 22 12 4C 44 41 20 23 |200......".LDA #|
00000490: 24 46 33 00 BE 0C AA 00 99 22 11 12 4C 92 4F 41 |$F3......"..L.OA|
000004A0: 12 44 92 20 43 41 52 47 55 45 20 45 4C 20 12 41 |.D. CARGUE EL .A|
000004B0: 92 43 55 4D 55 4C 41 44 4F 52 20 43 4F 4E 00 DF |.CUMULADOR CON..|
000004C0: 0C B4 00 99 22 11 45 4C 20 4E 55 4D 45 52 4F 20 |....".EL NUMERO |
000004D0: 46 33 20 45 4E 20 48 45 58 2E 2E 23 24 46 33 00 |F3 EN HEX..#$F3.|
000004E0: 07 0D BE 00 99 22 11 45 53 54 41 20 45 53 20 55 |.....".ESTA ES U|
000004F0: 4E 41 20 43 41 52 47 41 20 12 1C 49 4E 4D 45 44 |NA CARGA ..INMED|
00000500: 49 41 54 41 1F 92 2E 00 3F 0D C8 00 4D 53 24 B2 |IATA....?...MS$.|
00000510: 22 20 20 41 3D 23 24 46 33 20 20 22 3A 8D 36 33 |" A=#$F3 ":.63|
00000520: 33 30 30 3A 4E 24 B2 22 31 31 31 31 30 30 31 31 |300:N$."11110011|
00000530: 22 3A 8D 34 30 30 32 30 3A 8D 36 33 32 30 30 00 |":.40020:.63200.|
00000540: 68 0D D2 00 99 22 12 4C 44 58 20 23 24 41 42 22 |h....".LDX #$AB"|
00000550: 3A 4D 53 24 B2 22 20 20 58 3D 23 24 41 42 20 20 |:MS$." X=#$AB |
00000560: 22 3A 8D 36 33 33 30 30 00 88 0D DC 00 4E 24 B2 |":.63300.....N$.|
00000570: 22 31 30 31 30 31 30 31 31 22 3A 8D 34 30 30 36 |"10101011":.4006|
00000580: 30 3A 8D 36 33 32 30 30 00 C6 0D E6 00 99 22 12 |0:.63200......".|
00000590: 4C 44 59 20 23 24 44 44 22 3A 4D 53 24 B2 22 20 |LDY #$DD":MS$." |
000005A0: 20 59 3D 23 24 44 44 20 20 22 3A 8D 36 33 33 30 | Y=#$DD ":.6330|
000005B0: 30 3A 4E 24 B2 22 31 31 30 31 31 31 30 31 22 3A |0:N$."11011101":|
000005C0: 8D 34 30 30 38 30 00 05 0E F0 00 8D 36 33 32 30 |.40080......6320|
000005D0: 30 3A 99 22 12 54 41 58 22 3A 99 22 11 12 54 92 |0:.".TAX":."..T.|
000005E0: 52 41 4E 53 46 49 45 52 45 20 45 4C 20 43 4F 4E |RANSFIERE EL CON|
000005F0: 54 45 4E 49 44 4F 20 44 45 20 12 41 92 20 41 20 |TENIDO DE .A. A |
00000600: 12 58 92 2E 22 00 2F 0E FA 00 4D 53 24 B2 22 20 |.X.."./...MS$." |
00000610: 20 20 58 3D 41 20 20 20 20 22 3A 8D 36 33 33 30 | X=A ":.6330|
00000620: 30 3A 8D 34 30 31 34 30 3A 8D 36 33 32 30 30 00 |0:.40140:.63200.|
00000630: 76 0E 04 01 99 22 12 54 59 41 22 3A 99 22 11 12 |v....".TYA":."..|
00000640: 54 92 52 41 4E 53 46 49 45 52 45 20 45 4C 20 43 |T.RANSFIERE EL C|
00000650: 4F 4E 54 45 4E 49 44 4F 20 44 45 20 12 59 92 20 |ONTENIDO DE .Y. |
00000660: 41 20 12 41 92 2E 22 3A 4D 53 24 B2 22 20 20 20 |A .A..":MS$." |
00000670: 41 3D 59 20 20 22 00 8F 0E 0E 01 8D 36 33 33 30 |A=Y "......6330|
00000680: 30 3A 8D 34 30 32 34 30 3A 8D 36 33 32 30 30 00 |0:.40240:.63200.|
00000690: B6 0E 18 01 99 22 2E 2E 54 41 4D 42 49 45 4E 20 |....."..TAMBIEN |
000006A0: 45 58 49 53 54 45 20 12 54 58 41 92 20 59 20 12 |EXISTE .TXA. Y .|
000006B0: 54 41 59 92 2E 22 00 DA 0E 22 01 99 22 11 54 4F |TAY.."..."..".TO|
000006C0: 44 41 56 49 41 20 4D 41 53 92 3A 22 3A 8D 36 33 |DAVIA MAS.:":.63|
000006D0: 33 30 30 3A 8D 36 33 32 30 30 00 1F 0F 2C 01 99 |300:.63200...,..|
000006E0: 22 12 49 4E 58 92 22 3A 99 22 11 12 49 4E 92 43 |".INX.":."..IN.C|
000006F0: 52 45 4D 45 4E 54 41 20 45 4C 20 52 45 47 49 53 |REMENTA EL REGIS|
00000700: 54 52 4F 2D 12 58 92 20 45 4E 20 31 2E 22 3A 4D |TRO-.X. EN 1.":M|
00000710: 53 24 B2 22 20 20 58 3D 58 2B 31 20 20 20 22 00 |S$." X=X+1 ".|
00000720: 46 0F 36 01 8D 36 33 33 30 30 3A 4E 24 B2 22 31 |F.6..63300:N$."1|
00000730: 30 31 30 31 31 30 30 22 3A 8D 34 30 30 36 30 3A |0101100":.40060:|
00000740: 8D 36 33 32 30 30 00 89 0F 40 01 99 22 12 44 45 |.63200...@..".DE|
00000750: 58 92 22 3A 99 22 11 12 44 45 92 43 52 45 4D 45 |X.":."..DE.CREME|
00000760: 4E 54 41 20 45 4C 20 52 45 47 49 53 54 52 4F 2D |NTA EL REGISTRO-|
00000770: 12 58 92 20 45 4E 20 31 22 3A 4D 53 24 B2 22 20 |.X. EN 1":MS$." |
00000780: 20 58 3D 58 2D 31 20 20 22 00 B0 0F 4A 01 8D 36 | X=X-1 "...J..6|
00000790: 33 33 30 30 3A 4E 24 B2 22 31 30 31 30 31 30 31 |3300:N$."1010101|
000007A0: 31 22 3A 8D 34 30 30 36 30 3A 8D 36 33 32 30 30 |1":.40060:.63200|
000007B0: 00 DC 0F 54 01 99 22 54 41 4D 42 49 45 4E 20 45 |...T.."TAMBIEN E|
000007C0: 58 49 53 54 45 20 12 49 4E 59 92 20 59 20 12 44 |XISTE .INY. Y .D|
000007D0: 45 59 92 2E 22 3A 8D 36 33 32 30 30 00 11 10 5E |EY..":.63200...^|
000007E0: 01 99 4D 24 3A 4E 24 B2 22 31 30 31 31 30 31 30 |..M$:N$."1011010|
000007F0: 31 22 3A 50 50 B2 34 30 3A 8D 34 30 31 30 30 3A |1":PP.40:.40100:|
00000800: 99 4D 4C 24 22 24 31 32 33 34 22 3A 50 50 B2 34 |.ML$"$1234":PP.4|
00000810: 30 00 52 10 68 01 99 53 44 24 22 12 49 4E 43 20 |0.R.h..SD$".INC |
00000820: 24 31 32 33 34 92 22 3A 99 22 11 12 49 4E 43 92 |$1234.":."..INC.|
00000830: 52 45 4D 45 4E 54 41 20 4C 41 20 4C 4F 43 41 43 |REMENTA LA LOCAC|
00000840: 49 4F 4E 20 4D 45 4D 4F 52 49 41 20 24 31 32 33 |ION MEMORIA $123|
00000850: 34 22 00 89 10 72 01 4D 53 24 B2 22 20 20 4D 3D |4"...r.MS$." M=|
00000860: 4D 2B 31 20 20 22 3A 8D 36 33 33 30 30 3A 4E 24 |M+1 ":.63300:N$|
00000870: B2 22 31 30 31 31 30 31 31 30 22 3A 8D 34 30 31 |."10110110":.401|
00000880: 30 30 3A 8D 36 33 32 30 30 00 C7 10 7C 01 99 22 |00:.63200...|.."|
00000890: 12 44 45 43 20 24 31 32 33 34 92 22 3A 99 22 11 |.DEC $1234.":.".|
000008A0: 12 44 45 43 92 52 45 4D 45 4E 54 41 20 4C 41 20 |.DEC.REMENTA LA |
000008B0: 4C 4F 43 41 43 49 4F 4E 20 4D 45 4D 4F 52 49 41 |LOCACION MEMORIA|
000008C0: 20 24 31 32 33 34 22 00 FF 10 86 01 4D 53 24 B2 | $1234".....MS$.|
000008D0: 22 20 20 20 4D 3D 4D 2D 31 20 20 22 3A 8D 36 33 |" M=M-1 ":.63|
000008E0: 33 30 30 3A 4E 24 B2 22 31 30 31 31 30 31 30 31 |300:N$."10110101|
000008F0: 22 3A 8D 34 30 31 30 30 3A 8D 36 33 32 30 30 00 |":.40100:.63200.|
00000900: 2B 11 90 01 99 22 12 41 53 4C 92 22 3A 99 22 11 |+....".ASL.":.".|
00000910: 12 41 92 52 49 54 48 4D 45 54 49 43 20 12 53 92 |.A.RITHMETIC .S.|
00000920: 48 49 46 54 20 12 4C 92 45 46 54 00 56 11 9A 01 |HIFT .L.EFT.V...|
00000930: 99 22 11 4D 55 45 56 45 20 45 4C 20 12 41 92 43 |.".MUEVE EL .A.C|
00000940: 55 4D 55 4C 41 44 4F 52 20 41 20 4C 41 20 49 51 |UMULADOR A LA IQ|
00000950: 55 49 45 52 44 41 00 78 11 A4 01 99 22 11 55 4E |UIERDA.x....".UN|
00000960: 20 27 30 27 20 53 45 20 50 4F 4E 45 20 45 4E 20 | '0' SE PONE EN |
00000970: 45 4C 20 27 4C 53 42 27 00 9D 11 AE 01 99 22 11 |EL 'LSB'......".|
00000980: 59 20 45 4C 20 27 4D 53 42 27 20 43 41 45 20 45 |Y EL 'MSB' CAE E|
00000990: 4E 20 45 4C 20 27 43 41 52 52 59 27 2E 00 BD 11 |N EL 'CARRY'....|
000009A0: B8 01 99 22 11 D1 4C 53 42 3D 42 49 54 20 2D 20 |..."..LSB=BIT - |
000009B0: 53 49 47 4E 49 46 49 43 41 54 49 56 4F 00 DD 11 |SIGNIFICATIVO...|
000009C0: C2 01 99 22 11 D1 4D 53 42 3D 42 49 54 20 2B 20 |..."..MSB=BIT + |
000009D0: 53 49 47 4E 49 46 49 43 41 54 49 56 4F 00 F9 11 |SIGNIFICATIVO...|
000009E0: CC 01 4D 53 24 B2 22 20 20 41 3D 32 2A 41 20 20 |..MS$." A=2*A |
000009F0: 20 22 3A 8D 36 33 33 30 30 00 30 12 D6 01 99 43 | ":.63300.0....C|
00000A00: 24 3A 97 43 2C 34 39 3A 4E 24 B2 22 31 30 31 31 |$:.C,49:N$."1011|
00000A10: 31 30 31 30 22 3A 50 50 B2 35 30 30 3A 8D 34 30 |1010":PP.500:.40|
00000A20: 30 30 30 3A 8D 36 33 32 30 30 3A 50 50 B2 34 30 |000:.63200:PP.40|
00000A30: 00 3F 12 E0 01 99 43 43 24 3A 97 43 2C 33 32 00 |.?....CC$:.C,32.|
00000A40: 6A 12 EA 01 99 53 44 24 22 11 12 53 45 43 92 22 |j....SD$"..SEC."|
00000A50: 3A 99 22 11 12 53 45 92 54 20 45 4C 20 12 43 92 |:."..SE.T EL .C.|
00000A60: 41 52 52 59 20 42 49 54 2E 22 00 88 12 F4 01 99 |ARRY BIT."......|
00000A70: 22 11 54 4F 4D 41 20 45 4C 20 42 49 54 20 44 45 |".TOMA EL BIT DE|
00000A80: 20 41 43 41 52 52 45 4F 00 B6 12 FE 01 99 43 52 | ACARREO......CR|
00000A90: 24 3A 4D 53 24 B2 22 20 20 43 41 52 52 59 3D 31 |$:MS$." CARRY=1|
00000AA0: 20 22 3A 8D 36 33 33 30 30 3A 97 43 2C 34 39 3A | ":.63300:.C,49:|
00000AB0: 8D 36 33 32 30 30 00 F1 12 08 02 99 53 44 24 22 |.63200......SD$"|
00000AC0: 11 12 43 4C 43 92 22 3A 99 22 11 12 43 4C 92 45 |..CLC.":."..CL.E|
00000AD0: 41 52 20 12 43 92 41 52 52 59 20 42 49 54 2E 22 |AR .C.ARRY BIT."|
00000AE0: 3A 4D 53 24 B2 22 20 20 43 41 52 52 59 3D 30 20 |:MS$." CARRY=0 |
00000AF0: 22 00 23 13 12 02 99 22 11 12 42 4F 52 52 41 92 |".#...."..BORRA.|
00000B00: 20 45 4C 20 42 49 54 20 44 45 20 41 43 41 52 52 | EL BIT DE ACARR|
00000B10: 45 4F 3A 4D 53 24 3D 22 20 20 43 41 52 52 59 B2 |EO:MS$=" CARRY.|
00000B20: 30 20 22 00 45 13 1C 02 8D 36 33 33 30 30 3A 99 |0 ".E....63300:.|
00000B30: 43 52 24 3A 97 43 2C 34 38 3A 8D 36 33 32 30 30 |CR$:.C,48:.63200|
00000B40: 3A 99 43 43 24 00 7D 13 26 02 99 22 12 53 54 41 |:.CC$.}.&..".STA|
00000B50: 20 24 31 32 33 34 92 22 3A 99 22 11 12 53 54 92 | $1234.":."..ST.|
00000B60: 4F 52 45 20 20 28 47 55 41 52 44 45 29 20 45 4C |ORE (GUARDE) EL|
00000B70: 20 12 41 92 43 55 4D 55 4C 41 44 4F 52 00 BA 13 | .A.CUMULADOR...|
00000B80: 30 02 99 22 11 45 4E 20 45 4C 20 4C 55 47 41 52 |0..".EN EL LUGAR|
00000B90: 20 44 45 20 4D 45 4D 4F 52 49 41 20 24 31 32 33 | DE MEMORIA $123|
00000BA0: 34 22 3A 4D 53 24 B2 22 20 20 20 4D 3D 41 20 20 |4":MS$." M=A |
00000BB0: 20 20 22 3A 8D 36 33 33 30 30 00 DA 13 3A 02 4E | ":.63300...:.N|
00000BC0: 24 B2 22 31 30 31 31 31 30 31 30 22 3A 8D 34 30 |$."10111010":.40|
00000BD0: 31 38 30 3A 8D 36 33 30 30 30 00 0D 14 44 02 99 |180:.63000...D..|
00000BE0: 22 93 12 1C 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
00000BF0: 20 20 41 20 54 52 41 42 41 4A 41 52 20 20 20 20 | A TRABAJAR |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 36 14 | ".6.|
00000C10: 46 02 99 22 11 11 11 1F 41 48 4F 52 41 20 48 41 |F.."....AHORA HA|
00000C20: 52 45 4D 4F 53 20 55 4E 20 45 4A 45 52 43 49 43 |REMOS UN EJERCIC|
00000C30: 49 4F 20 51 55 45 00 5E 14 48 02 99 22 11 43 4F |IO QUE.^.H..".CO|
00000C40: 4E 53 49 53 54 49 52 41 20 45 4E 20 42 4F 52 52 |NSISTIRA EN BORR|
00000C50: 41 52 20 4C 41 20 50 41 4E 54 41 4C 4C 41 00 81 |AR LA PANTALLA..|
00000C60: 14 4A 02 99 22 11 28 45 4E 20 43 4F 44 49 47 4F |.J..".(EN CODIGO|
00000C70: 20 4D 41 51 55 49 4E 41 29 22 3A 8D 36 33 30 30 | MAQUINA)":.6300|
00000C80: 30 00 B1 14 62 02 99 22 93 1C 11 4C 44 41 20 23 |0...b.."...LDA #|
00000C90: 24 32 30 20 20 5F 43 41 52 47 41 20 41 20 43 4F |$20 _CARGA A CO|
00000CA0: 4E 20 23 24 32 30 3D 27 45 53 50 41 43 49 4F 27 |N #$20='ESPACIO'|
00000CB0: 2E 00 E0 14 6C 02 99 22 53 54 41 20 24 30 34 30 |....l.."STA $040|
00000CC0: 30 20 C9 22 3A 99 22 53 54 41 20 24 30 34 30 31 |0 .":."STA $0401|
00000CD0: 20 DD 5F 4C 4C 45 4E 41 20 4D 45 4D 4F 52 49 41 | ._LLENA MEMORIA|
00000CE0: 00 05 15 76 02 99 22 53 54 41 20 24 30 34 30 32 |...v.."STA $0402|
00000CF0: 20 DD 5F 50 41 4E 54 41 4C 4C 41 20 43 4F 4E 20 | ._PANTALLA CON |
00000D00: 23 24 32 30 2E 00 4A 15 80 02 99 22 2D 2D 2D 20 |#$20..J...."--- |
00000D10: 2D 2D 2D 2D 2D 20 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D |----- .---------|
00000D20: 2D 2D 2D 2D 2D 2D 2D 22 3A 99 22 53 54 41 20 24 |-------":."STA $|
00000D30: 30 37 46 46 20 CB 5F 59 20 42 4F 52 52 41 20 4C |07FF ._Y BORRA L|
00000D40: 41 20 50 41 4E 54 41 4C 4C 41 00 6F 15 8A 02 99 |A PANTALLA.o....|
00000D50: 22 11 11 1F D1 53 4F 4C 55 43 49 4F 4E 20 4C 41 |"....SOLUCION LA|
00000D60: 52 47 41 20 59 20 45 4E 47 4F 52 52 4F 53 41 00 |RGA Y ENGORROSA.|
00000D70: 96 15 8C 02 99 22 20 4E 4F 53 4F 54 52 4F 53 20 |....." NOSOTROS |
00000D80: 4E 45 43 45 53 49 54 41 4D 4F 53 20 43 4C 41 52 |NECESITAMOS CLAR|
00000D90: 41 4D 45 4E 54 45 00 B1 15 8E 02 99 22 20 55 4E |AMENTE......" UN|
00000DA0: 20 42 55 43 4C 45 20 43 4F 4D 4F 20 45 53 54 45 | BUCLE COMO ESTE|
00000DB0: 3A 00 C5 15 92 02 3A 99 22 11 11 11 4C 44 41 20 |:.....:."...LDA |
00000DC0: 23 24 32 30 22 00 03 16 94 02 99 22 1C 46 4F 52 |#$20"......".FOR|
00000DD0: 1F 20 58 3D 30 20 1C 54 4F 1F 20 23 24 33 46 46 |. X=0 .TO. #$3FF|
00000DE0: 22 3A 99 22 53 54 41 20 24 30 34 30 30 2B 58 22 |":."STA $0400+X"|
00000DF0: 3A 99 22 1C 4E 45 58 54 20 58 1F 22 3A 8D 36 33 |:.".NEXT X.":.63|
00000E00: 30 30 30 00 36 16 9E 02 99 22 93 12 1C 20 20 20 |000.6...."... |
00000E10: 20 20 20 20 20 20 42 55 43 4C 45 53 20 45 4E 20 | BUCLES EN |
00000E20: 43 4F 44 49 47 4F 20 4D 41 51 55 49 4E 41 20 20 |CODIGO MAQUINA |
00000E30: 20 20 20 20 20 22 00 65 16 A0 02 99 22 1C 42 45 | ".e....".BE|
00000E40: 47 49 4E 1F 20 4C 44 41 20 23 24 32 30 20 5F 4E |GIN. LDA #$20 _N|
00000E50: 4F 54 45 20 4C 41 20 45 54 49 51 55 45 54 41 20 |OTE LA ETIQUETA |
00000E60: 42 45 47 49 4E 00 A0 16 A8 02 99 22 20 20 20 20 |BEGIN......" |
00000E70: 20 20 4C 44 58 20 23 24 30 30 22 3A 99 22 42 55 | LDX #$00":."BU|
00000E80: 43 4C 45 20 53 54 41 20 24 30 34 30 30 2C 58 20 |CLE STA $0400,X |
00000E90: 5F 12 43 41 52 47 41 20 49 4E 44 45 58 41 44 41 |_.CARGA INDEXADA|
00000EA0: 00 CB 16 B2 02 99 22 20 20 20 5E 20 20 49 4E 58 |......" ^ INX|
00000EB0: 22 3A 99 22 20 20 20 DD 20 20 3F 43 4F 4D 50 41 |":." . ?COMPA|
00000EC0: 52 41 20 58 3D 23 24 33 46 46 3F 00 EA 16 B7 02 |RA X=#$3FF?.....|
00000ED0: 99 22 20 20 20 AD C0 20 53 49 20 4E 4F 2C 47 4F |." .. SI NO,GO|
00000EE0: 54 4F 20 27 42 55 43 4C 45 27 00 18 17 BC 02 99 |TO 'BUCLE'......|
00000EF0: 22 11 11 4E 4F 53 20 46 41 4C 54 41 4E 20 4C 41 |"..NOS FALTAN LA|
00000F00: 53 20 49 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 |S INSTRUCCIONES |
00000F10: 12 43 4F 4D 50 41 52 45 00 3D 17 C1 02 99 22 59 |.COMPARE.=...."Y|
00000F20: 20 12 56 41 59 41 20 41 92 20 45 4E 20 49 4E 47 | .VAYA A. EN ING|
00000F30: 4C 45 53 3A 20 27 42 52 41 4E 43 48 27 00 6D 17 |LES: 'BRANCH'.m.|
00000F40: C6 02 99 22 11 1C 11 4C 4F 20 51 55 45 20 4E 4F |..."...LO QUE NO|
00000F50: 53 4F 54 52 4F 53 20 4E 45 43 45 53 49 54 41 4D |SOTROS NECESITAM|
00000F60: 4F 53 20 41 52 52 49 42 41 20 45 53 3A 00 8C 17 |OS ARRIBA ES:...|
00000F70: CB 02 99 22 11 12 43 92 4F 4D 12 50 92 41 52 45 |..."..C.OM.P.ARE|
00000F80: 20 12 58 92 20 41 20 23 24 33 46 46 00 C5 17 D0 | .X. A #$3FF....|
00000F90: 02 99 22 59 20 12 42 92 52 41 4E 43 48 20 53 49 |.."Y .B.RANCH SI|
00000FA0: 20 12 4E 92 4F 20 45 53 20 12 45 92 20 49 47 55 | .N.O ES .E. IGU|
00000FB0: 41 4C 2E 2E 41 20 27 42 55 43 4C 45 27 22 3A 8D |AL..A 'BUCLE'":.|
00000FC0: 36 33 30 31 30 00 F8 17 DA 02 99 22 13 11 11 12 |63010......"....|
00000FD0: 42 45 47 49 4E 20 4C 44 41 20 23 24 32 30 20 20 |BEGIN LDA #$20 |
00000FE0: 20 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000FF0: 20 20 20 20 20 20 20 22 00 28 18 E4 02 99 22 12 | ".(....".|
00001000: 20 20 20 20 20 20 4C 44 58 20 23 24 30 30 20 20 | LDX #$00 |
00001010: 20 22 3A 99 22 12 42 55 43 4C 45 20 53 54 41 20 | ":.".BUCLE STA |
00001020: 24 30 34 30 30 2C 58 22 00 6F 18 EE 02 99 22 12 |$0400,X".o....".|
00001030: 20 20 20 5E 20 20 49 4E 58 20 20 20 20 20 20 20 | ^ INX |
00001040: 20 22 3A 99 22 12 20 20 20 DD 20 20 43 50 58 20 | ":.". . CPX |
00001050: 23 24 33 46 46 20 20 92 20 20 20 20 20 20 20 20 |#$3FF . |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001070: A0 18 F8 02 99 22 12 20 20 20 AD C0 20 42 4E 45 |.....". .. BNE|
00001080: 20 42 55 43 4C 45 20 20 92 20 20 20 20 20 20 20 | BUCLE . |
00001090: 20 20 20 20 20 20 20 20 22 3A 8D 36 33 32 30 30 | ":.63200|
000010A0: 00 D5 18 02 03 99 22 4E 4F 54 41 11 9D 9D 9D 9D |......"NOTA.....|
000010B0: B8 B8 B8 B8 91 3A 4E 55 4E 43 41 20 56 41 4D 4F |.....:NUNCA VAMO|
000010C0: 53 20 41 20 12 53 54 41 92 20 45 4E 20 12 24 30 |S A .STA. EN .$0|
000010D0: 37 46 46 92 22 00 03 19 0C 03 99 22 11 45 4E 20 |7FF."......".EN |
000010E0: 45 53 54 45 20 50 52 4F 47 52 41 4D 41 2E 2E 2E |ESTE PROGRAMA...|
000010F0: 45 4E 54 4F 4E 43 45 53 2E 2E 2E 22 3A 8D 36 33 |ENTONCES...":.63|
00001100: 30 31 30 00 2B 19 16 03 99 22 13 11 11 11 11 11 |010.+...."......|
00001110: 11 12 20 20 20 DD 20 20 43 50 58 20 23 24 34 30 |.. . CPX #$40|
00001120: 30 20 20 22 3A 8D 36 33 32 30 30 00 57 19 20 03 |0 ":.63200.W. .|
00001130: 99 22 53 45 20 50 55 45 44 45 20 43 4F 4D 50 41 |."SE PUEDE COMPA|
00001140: 52 41 52 20 12 43 50 58 20 23 24 4E 92 20 53 4F |RAR .CPX #$N. SO|
00001150: 4C 4F 20 53 49 20 4E 00 7C 19 2A 03 99 22 11 53 |LO SI N.|.*..".S|
00001160: 45 20 45 4E 43 55 45 4E 54 52 41 20 45 4E 54 52 |E ENCUENTRA ENTR|
00001170: 45 20 24 30 30 20 59 20 24 46 46 2E 00 AD 19 34 |E $00 Y $FF....4|
00001180: 03 99 22 11 43 41 4D 42 49 41 4D 4F 53 20 45 4E |..".CAMBIAMOS EN|
00001190: 54 4F 4E 43 45 53 20 45 4C 20 50 52 4F 47 52 41 |TONCES EL PROGRA|
000011A0: 4D 41 20 41 3A 22 3A 8D 36 33 30 31 30 00 CB 19 |MA A:":.63010...|
000011B0: 3E 03 99 22 93 11 11 12 42 45 47 49 4E 20 4C 44 |>.."....BEGIN LD|
000011C0: 41 20 23 24 32 30 20 20 20 92 22 00 FB 19 48 03 |A #$20 ."...H.|
000011D0: 99 22 12 20 20 20 20 20 20 4C 44 58 20 23 24 30 |.". LDX #$0|
000011E0: 30 20 20 20 22 3A 99 22 12 42 55 43 4C 45 20 53 |0 ":.".BUCLE S|
000011F0: 54 41 20 24 30 34 30 30 2C 58 22 00 14 1A 52 03 |TA $0400,X"...R.|
00001200: 99 22 12 20 20 20 20 20 20 53 54 41 20 24 30 35 |.". STA $05|
00001210: 30 30 2C 58 00 2D 1A 5C 03 99 22 12 20 20 20 20 |00,X.-.\..". |
00001220: 20 20 53 54 41 20 24 30 36 30 30 2C 58 00 46 1A | STA $0600,X.F.|
00001230: 66 03 99 22 12 20 20 20 20 20 20 53 54 41 20 24 |f..". STA $|
00001240: 30 37 30 30 2C 58 00 76 1A 70 03 99 22 12 20 20 |0700,X.v.p..". |
00001250: 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 22 | INX "|
00001260: 3A 99 22 12 20 20 20 20 20 20 43 50 58 20 23 24 |:.". CPX #$|
00001270: 46 46 20 20 20 92 00 98 1A 7A 03 99 22 12 20 20 |FF ....z..". |
00001280: 20 20 20 20 42 4E 45 20 42 55 43 4C 45 20 20 92 | BNE BUCLE .|
00001290: 22 3A 8D 36 33 30 30 30 00 C3 1A 84 03 99 53 44 |":.63000......SD|
000012A0: 24 22 11 11 11 11 22 3B 3A 81 54 B2 31 A4 31 30 |$"....";:.T.1.10|
000012B0: 3A 99 43 4C 24 3A 82 3A 99 53 44 24 22 11 11 11 |:.CL$:.:.SD$"...|
000012C0: 11 22 3B 00 EA 1A 8E 03 99 22 50 4F 44 45 4D 4F |.";......"PODEMO|
000012D0: 53 20 53 49 4D 50 4C 49 46 49 43 41 52 20 45 53 |S SIMPLIFICAR ES|
000012E0: 54 4F 20 55 4E 20 50 4F 43 4F 00 2A 1B 98 03 99 |TO UN POCO.*....|
000012F0: 22 11 53 49 20 43 4F 4E 54 41 4D 4F 53 20 44 45 |".SI CONTAMOS DE|
00001300: 20 12 41 52 52 49 42 41 20 41 42 41 4A 4F 92 22 | .ARRIBA ABAJO."|
00001310: 3A 99 22 11 44 45 20 58 3D 24 46 46 20 41 20 24 |:.".DE X=$FF A $|
00001320: 30 30 22 3A 8D 36 33 30 31 30 00 48 1B A2 03 99 |00":.63010.H....|
00001330: 22 13 11 11 12 42 45 47 49 4E 20 4C 44 41 20 23 |"....BEGIN LDA #|
00001340: 24 32 30 20 20 20 92 22 00 77 1B AC 03 99 22 12 |$20 .".w....".|
00001350: 20 20 20 20 20 20 4C 44 58 20 23 24 46 46 20 20 | LDX #$FF |
00001360: 20 22 3A 99 22 12 42 55 43 4C 45 20 53 54 41 20 | ":.".BUCLE STA |
00001370: 24 30 34 30 30 2C 58 00 90 1B B6 03 99 22 12 20 |$0400,X......". |
00001380: 20 20 20 20 20 53 54 41 20 24 30 35 30 30 2C 58 | STA $0500,X|
00001390: 00 A9 1B C0 03 99 22 12 20 20 20 20 20 20 53 54 |......". ST|
000013A0: 41 20 24 30 36 30 30 2C 58 00 C2 1B CA 03 99 22 |A $0600,X......"|
000013B0: 12 20 20 20 20 20 20 53 54 41 20 24 30 37 30 30 |. STA $0700|
000013C0: 2C 58 00 DC 1B D4 03 99 22 12 20 20 20 20 20 20 |,X......". |
000013D0: 44 45 58 20 20 20 20 20 20 20 20 22 00 15 1C DE |DEX "....|
000013E0: 03 99 22 12 20 20 20 20 20 20 42 4E 45 20 42 55 |..". BNE BU|
000013F0: 43 4C 45 20 20 92 22 3A 99 22 20 20 20 20 20 20 |CLE .":." |
00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D | ":.|
00001410: 36 33 30 30 30 00 40 1C DF 03 99 53 44 24 22 11 |63000.@....SD$".|
00001420: 11 11 11 22 3B 3A 81 54 B2 31 A4 31 30 3A 99 43 |...";:.T.1.10:.C|
00001430: 4C 24 3A 82 3A 99 53 44 24 22 11 11 11 11 22 3B |L$:.:.SD$"....";|
00001440: 00 6B 1C E3 03 99 22 11 11 11 43 4F 4D 4F 20 53 |.k...."...COMO S|
00001450: 45 20 48 41 20 48 45 43 48 4F 20 4C 41 20 43 4F |E HA HECHO LA CO|
00001460: 4E 45 58 49 4F 4E 20 12 42 4E 45 00 9F 1C E4 03 |NEXION .BNE.....|
00001470: 99 22 11 53 49 20 4E 4F 20 48 41 20 48 41 42 49 |.".SI NO HA HABI|
00001480: 44 4F 20 4E 41 44 41 20 51 55 45 20 12 43 4F 4D |DO NADA QUE .COM|
00001490: 50 41 52 41 52 92 3F 22 3A 8D 36 33 30 30 30 00 |PARAR.?":.63000.|
000014A0: D2 1C E8 03 99 22 93 12 1C 20 20 20 20 20 20 20 |....."... |
000014B0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 20 20 20 | BNE |
000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014D0: 20 22 00 00 1D ED 03 99 22 1F 11 56 45 41 20 55 | "......"..VEA U|
000014E0: 53 54 45 44 2C 20 12 1C 42 4E 45 1F 92 20 52 45 |STED, ..BNE.. RE|
000014F0: 56 49 53 41 20 45 4C 20 52 45 47 49 53 54 52 4F |VISA EL REGISTRO|
00001500: 00 29 1D F2 03 99 22 59 20 53 49 20 45 4C 20 52 |.)...."Y SI EL R|
00001510: 45 53 55 4C 54 41 44 4F 20 44 45 20 55 4E 41 20 |ESULTADO DE UNA |
00001520: 4F 50 45 52 41 43 49 4F 4E 00 57 1D FC 03 99 22 |OPERACION.W...."|
00001530: 41 52 49 54 4D 45 54 49 43 41 20 28 12 43 4F 4D |ARITMETICA (.COM|
00001540: 50 41 52 45 92 20 49 4E 43 4C 55 49 44 41 29 20 |PARE. INCLUIDA) |
00001550: 45 53 20 43 45 52 4F 00 75 1D 01 04 99 22 1C 4C |ES CERO.u....".L|
00001560: 41 20 43 4F 4E 45 58 49 4F 4E 20 53 45 20 45 46 |A CONEXION SE EF|
00001570: 45 43 54 55 41 00 9A 1D 06 04 99 22 11 11 1F 45 |ECTUA......"...E|
00001580: 4E 20 45 4C 20 50 41 52 20 44 45 20 49 4E 53 54 |N EL PAR DE INST|
00001590: 52 55 43 43 49 4F 4E 45 53 3A 00 DE 1D 10 04 99 |RUCCIONES:......|
000015A0: 22 11 12 43 50 58 20 23 24 46 46 20 22 3A 99 22 |"..CPX #$FF ":."|
000015B0: 12 42 4E 45 20 42 55 43 4C 45 22 3A 99 22 11 53 |.BNE BUCLE":.".S|
000015C0: 45 20 53 55 42 53 54 52 41 45 20 23 24 46 46 20 |E SUBSTRAE #$FF |
000015D0: 44 45 4C 20 56 41 4C 4F 52 20 44 45 20 58 00 FD |DEL VALOR DE X..|
000015E0: 1D 1A 04 99 22 11 59 20 12 1C 42 52 41 4E 43 48 |....".Y ..BRANCH|
000015F0: 1F 92 20 41 20 42 55 43 4C 45 20 53 49 00 27 1E |.. A BUCLE SI.'.|
00001600: 24 04 99 22 11 45 4C 20 52 45 53 55 4C 54 41 44 |$..".EL RESULTAD|
00001610: 4F 20 1C 4E 4F 1F 20 45 53 20 43 45 52 4F 21 22 |O .NO. ES CERO!"|
00001620: 3A 8D 36 33 30 30 30 00 47 1E 2E 04 99 22 93 12 |:.63000.G...."..|
00001630: 49 4E 58 20 20 20 20 20 20 22 3A 99 22 12 42 4E |INX ":.".BN|
00001640: 45 20 42 55 43 4C 45 00 73 1E 38 04 99 22 11 4C |E BUCLE.s.8..".L|
00001650: 41 20 43 4F 4E 45 58 49 4F 4E 20 41 20 42 55 43 |A CONEXION A BUC|
00001660: 4C 45 20 53 45 20 45 46 45 43 54 55 41 20 53 49 |LE SE EFECTUA SI|
00001670: 20 45 4C 00 A6 1E 42 04 99 22 52 45 53 55 4C 54 | EL...B.."RESULT|
00001680: 41 44 4F 20 44 45 20 1C 49 4E 43 1F 52 45 4D 45 |ADO DE .INC.REME|
00001690: 4E 54 41 52 20 1C 58 1F 20 12 4E 4F 92 20 45 53 |NTAR .X. .NO. ES|
000016A0: 20 43 45 52 4F 2E 00 C7 1E 4C 04 99 22 11 11 12 | CERO....L.."...|
000016B0: 44 45 43 20 24 31 32 33 34 22 3A 99 22 12 42 4E |DEC $1234":.".BN|
000016C0: 45 20 42 55 43 4C 45 00 EC 1E 56 04 99 22 11 41 |E BUCLE...V..".A|
000016D0: 51 55 49 20 43 4F 4E 45 43 54 41 4D 4F 53 20 41 |QUI CONECTAMOS A|
000016E0: 20 42 55 43 4C 45 20 53 49 20 41 4C 00 21 1F 60 | BUCLE SI AL.!.`|
000016F0: 04 99 22 1C 44 45 43 1F 52 45 4D 45 4E 54 41 52 |..".DEC.REMENTAR|
00001700: 20 24 31 32 33 34 20 45 4C 20 52 45 53 55 4C 54 | $1234 EL RESULT|
00001710: 41 44 4F 22 3A 99 22 4E 4F 20 45 53 20 43 45 52 |ADO":."NO ES CER|
00001720: 4F 00 4B 1F 6A 04 99 22 11 11 11 12 4E 4F 54 41 |O.K.j.."....NOTA|
00001730: 92 3A 20 12 43 50 58 92 20 20 49 4D 50 4C 49 43 |.: .CPX. IMPLIC|
00001740: 41 20 55 4E 41 20 52 45 53 54 41 00 74 1F 74 04 |A UNA RESTA.t.t.|
00001750: 99 22 28 50 41 52 41 20 56 45 52 20 53 49 20 45 |."(PARA VER SI E|
00001760: 4C 20 52 45 53 55 4C 54 41 44 4F 20 45 53 20 43 |L RESULTADO ES C|
00001770: 45 52 4F 29 00 A2 1F 7E 04 99 22 50 45 52 4F 20 |ERO)...~.."PERO |
00001780: 4E 4F 20 43 41 4D 42 49 41 20 4E 49 4E 47 55 4E |NO CAMBIA NINGUN|
00001790: 20 52 45 47 49 53 54 52 4F 21 22 3A 8D 36 33 30 | REGISTRO!":.630|
000017A0: 30 30 00 D5 1F 7F 04 99 22 93 1C 12 20 20 20 20 |00......"... |
000017B0: 20 20 20 20 20 20 20 20 4F 54 52 4F 20 45 4A 45 | OTRO EJE|
000017C0: 52 43 49 43 49 4F 20 20 20 20 20 20 20 20 20 20 |RCICIO |
000017D0: 20 20 20 20 22 00 F8 1F 80 04 99 22 1F 11 11 11 | "......"....|
000017E0: 11 41 48 4F 52 41 20 56 41 4D 4F 53 20 41 20 56 |.AHORA VAMOS A V|
000017F0: 4F 4C 56 45 52 20 4C 41 00 1A 20 82 04 99 22 1F |OLVER LA.. ...".|
00001800: 11 50 41 4E 54 41 4C 4C 41 20 41 4C 20 52 45 56 |.PANTALLA AL REV|
00001810: 45 53 22 3A 8D 36 33 30 30 30 00 47 20 92 04 99 |ES":.63000.G ...|
00001820: 22 93 11 11 50 41 52 41 20 45 53 54 4F 20 4E 45 |"...PARA ESTO NE|
00001830: 43 45 53 49 54 41 4D 4F 53 20 4D 49 52 41 52 20 |CESITAMOS MIRAR |
00001840: 45 4E 20 43 41 44 41 00 6E 20 9C 04 99 22 55 4E |EN CADA.n ..."UN|
00001850: 4F 20 44 45 20 4C 4F 53 20 4C 55 47 41 52 45 53 |O DE LOS LUGARES|
00001860: 20 44 45 20 4C 41 20 4D 45 4D 4F 52 49 41 00 92 | DE LA MEMORIA..|
00001870: 20 9E 04 99 22 50 41 4E 54 41 4C 4C 41 20 59 20 | ..."PANTALLA Y |
00001880: 52 45 56 49 53 41 52 20 45 4C 20 12 1C 4D 53 42 |REVISAR EL ..MSB|
00001890: 92 2E 00 BB 20 A6 04 99 22 11 1F 53 49 20 45 4C |.... ..."..SI EL|
000018A0: 20 4D 53 42 20 45 53 20 12 31 92 20 43 41 4D 42 | MSB ES .1. CAMB|
000018B0: 49 45 4C 4F 20 41 20 12 30 92 2E 00 E3 20 B0 04 |IELO A .0.... ..|
000018C0: 99 22 11 53 45 20 45 4C 20 4D 53 42 20 45 53 20 |.".SE EL MSB ES |
000018D0: 12 30 92 20 43 41 4D 42 49 45 4C 4F 20 41 20 12 |.0. CAMBIELO A .|
000018E0: 31 92 2E 00 0C 21 14 05 99 22 11 1C 28 45 4C 20 |1....!..."..(EL |
000018F0: 4D 53 42 20 44 45 54 45 52 4D 49 4E 41 20 53 49 |MSB DETERMINA SI|
00001900: 20 45 4C 20 43 41 52 41 43 54 45 52 00 2B 21 1E | EL CARACTER.+!.|
00001910: 05 99 22 45 53 54 41 20 45 4E 20 43 41 4D 50 4F |.."ESTA EN CAMPO|
00001920: 20 52 45 56 45 52 54 49 44 4F 29 00 48 21 23 05 | REVERTIDO).H!#.|
00001930: 99 22 11 11 1F 45 53 43 52 49 42 49 52 45 4D 4F |."...ESCRIBIREMO|
00001940: 53 20 41 48 4F 52 41 3A 00 86 21 28 05 99 22 11 |S AHORA:..!(..".|
00001950: 12 4C 44 41 20 24 30 34 30 30 2C 58 22 3A 99 22 |.LDA $0400,X":."|
00001960: 12 45 4F 52 20 23 24 38 30 20 20 20 92 1C 20 5F |.EOR #$80 .. _|
00001970: 5F 3F 3F 3F 22 3A 99 22 1F 12 53 54 41 20 24 30 |_???":."..STA $0|
00001980: 34 30 30 2C 58 22 00 B5 21 32 05 99 22 11 12 1C |400,X"..!2.."...|
00001990: 45 4F 52 1F 92 20 45 53 20 55 4E 20 12 4F 92 52 |EOR.. ES UN .O.R|
000019A0: 20 12 45 92 58 43 4C 55 53 49 56 4F 21 22 3A 8D | .E.XCLUSIVO!":.|
000019B0: 36 33 30 30 30 00 ED 21 3C 05 99 22 93 53 49 20 |63000..!<..".SI |
000019C0: 12 41 92 20 43 4F 4E 54 49 45 4E 45 20 12 1C 31 |.A. CONTIENE ..1|
000019D0: 30 31 31 30 31 30 31 1F 92 20 28 44 45 53 50 55 |0110101.. (DESPU|
000019E0: 45 53 20 44 45 20 12 4C 44 41 92 29 22 00 18 22 |ES DE .LDA.)".."|
000019F0: 46 05 99 22 11 12 45 4F 52 20 23 24 38 30 92 20 |F.."..EOR #$80. |
00001A00: 45 46 45 43 54 55 41 20 55 4E 20 4F 52 2D 45 58 |EFECTUA UN OR-EX|
00001A10: 43 4C 55 53 49 56 4F 22 00 3D 22 50 05 99 22 11 |CLUSIVO".="P..".|
00001A20: 43 4F 4E 20 12 1C 31 30 30 30 30 30 30 30 1F 92 |CON ..10000000..|
00001A30: 20 28 24 38 30 20 45 4E 20 48 45 58 29 00 5B 22 | ($80 EN HEX).["|
00001A40: 5A 05 99 22 11 59 20 52 45 53 55 4C 54 41 20 12 |Z..".Y RESULTA .|
00001A50: 1C 30 30 31 31 30 31 30 31 1F 92 00 7E 22 64 05 |.00110101...~"d.|
00001A60: 99 22 11 4E 55 45 53 54 52 4F 20 50 52 4F 47 52 |.".NUESTRO PROGR|
00001A70: 41 4D 41 20 53 45 52 41 20 41 48 4F 52 41 00 AF |AMA SERA AHORA..|
00001A80: 22 6E 05 99 22 11 12 42 45 47 49 4E 20 4C 44 58 |"n.."..BEGIN LDX|
00001A90: 20 23 24 46 46 20 20 20 22 3A 99 22 12 42 55 43 | #$FF ":.".BUC|
00001AA0: 4C 45 20 4C 44 41 20 24 30 34 30 30 2C 58 22 00 |LE LDA $0400,X".|
00001AB0: DF 22 78 05 99 22 12 20 20 20 20 20 20 45 4F 52 |."x..". EOR|
00001AC0: 20 23 24 38 30 20 20 20 22 3A 99 22 12 20 20 20 | #$80 ":.". |
00001AD0: 20 20 20 53 54 41 20 24 30 34 30 30 2C 58 22 00 | STA $0400,X".|
00001AE0: 0F 23 82 05 99 22 12 20 20 20 20 20 20 4C 44 41 |.#...". LDA|
00001AF0: 20 24 30 35 30 30 2C 58 22 3A 99 22 12 20 20 20 | $0500,X":.". |
00001B00: 20 20 20 45 4F 52 20 23 24 38 30 20 20 20 22 00 | EOR #$80 ".|
00001B10: 40 23 8C 05 99 22 12 20 20 20 20 20 20 53 54 41 |@#...". STA|
00001B20: 20 24 30 35 30 30 2C 58 22 3A 99 22 12 45 54 43 | $0500,X":.".ETC|
00001B30: 2E 20 45 54 43 2E 2E 48 41 53 54 41 2E 2E 92 22 |. ETC..HASTA..."|
00001B40: 00 59 23 96 05 99 22 12 20 20 20 20 20 20 53 54 |.Y#...". ST|
00001B50: 41 20 24 30 37 30 30 2C 58 00 90 23 A0 05 99 22 |A $0700,X..#..."|
00001B60: 12 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 |. DEX |
00001B70: 20 20 22 3A 99 22 12 20 20 20 20 20 20 42 4E 45 | ":.". BNE|
00001B80: 20 42 55 43 4C 45 20 20 22 3A 8D 36 33 30 30 30 | BUCLE ":.63000|
00001B90: 00 BD 23 AA 05 99 22 93 11 D1 45 53 54 4F 20 4E |..#..."...ESTO N|
00001BA0: 4F 20 56 41 20 41 20 46 55 4E 43 49 4F 4E 41 52 |O VA A FUNCIONAR|
00001BB0: 20 53 49 20 51 55 45 52 45 4D 4F 53 22 00 E2 23 | SI QUEREMOS"..#|
00001BC0: B4 05 99 22 20 49 52 20 44 45 20 24 30 34 30 30 |..." IR DE $0400|
00001BD0: 20 41 20 24 30 35 30 30 20 4F 20 41 20 24 30 4E | A $0500 O A $0N|
00001BE0: 30 30 00 08 24 BE 05 99 22 20 45 4E 20 56 45 5A |00..$..." EN VEZ|
00001BF0: 20 44 45 20 53 49 4D 50 4C 45 4D 45 4E 54 45 20 | DE SIMPLEMENTE |
00001C00: 41 20 24 30 37 30 30 2E 00 35 24 C8 05 99 22 11 |A $0700..5$...".|
00001C10: 1C D1 4E 45 43 45 53 49 54 41 4D 4F 53 20 55 4E |..NECESITAMOS UN|
00001C20: 20 42 55 43 4C 45 20 44 45 4E 54 52 4F 20 44 45 | BUCLE DENTRO DE|
00001C30: 20 4F 54 52 4F 00 53 24 D2 05 99 22 20 42 55 43 | OTRO.S$..." BUC|
00001C40: 4C 45 2E 20 41 4C 47 4F 20 43 4F 4D 4F 20 45 53 |LE. ALGO COMO ES|
00001C50: 54 4F 3A 00 8F 24 DC 05 99 22 1F 11 11 11 11 11 |TO:..$..."......|
00001C60: 20 20 20 20 20 4D 3D 24 30 34 30 30 22 3A 99 22 | M=$0400":."|
00001C70: 20 20 20 20 20 58 3D 4E 20 20 20 20 20 1F 52 5C | X=N .R\|
00001C80: 20 4E 20 45 4E 20 56 45 5A 20 44 45 20 33 22 00 | N EN VEZ DE 3".|
00001C90: C3 24 E6 05 99 22 1F 4C 50 31 20 20 59 3D 23 24 |.$...".LP1 Y=#$|
00001CA0: 46 46 22 3A 99 22 4C 50 32 20 20 4C 44 41 20 4D |FF":."LP2 LDA M|
00001CB0: 2B 59 22 3A 99 22 20 20 20 20 20 45 4F 52 20 23 |+Y":." EOR #|
00001CC0: 24 38 30 00 E4 24 E7 05 99 22 20 20 20 20 20 53 |$80..$..." S|
00001CD0: 54 41 20 4D 2B 59 22 3A 99 22 20 20 20 20 20 59 |TA M+Y":." Y|
00001CE0: 3D 59 2D 31 00 03 25 E8 05 99 22 20 20 20 20 20 |=Y-1..%..." |
00001CF0: 49 46 59 3C 3E 30 20 47 4F 54 4F 20 4C 50 32 20 |IFY<>0 GOTO LP2 |
00001D00: 22 3A 99 00 27 25 E9 05 99 22 20 20 20 20 20 49 |":..'%..." I|
00001D10: 46 58 3C 3E 30 20 47 4F 54 4F 20 4C 50 31 20 22 |FX<>0 GOTO LP1 "|
00001D20: 3A 8D 36 33 30 30 30 00 5B 25 EA 05 99 22 13 11 |:.63000.[%..."..|
00001D30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001D40: 11 11 22 A3 32 31 29 22 5F 12 4E 4F 20 46 55 4E |..".21)"_.NO FUN|
00001D50: 43 49 4F 4E 41 20 59 3D 30 92 21 00 85 25 EB 05 |CIONA Y=0.!..%..|
00001D60: 99 22 11 22 A3 32 31 29 22 5F 12 4E 4F 20 46 55 |.".".21)"_.NO FU|
00001D70: 4E 43 49 4F 4E 41 20 58 3D 30 92 21 13 22 3A 8D |NCIONA X=0.!.":.|
00001D80: 36 33 30 30 30 00 B4 25 EC 05 99 22 13 22 3B 3A |63000..%...".";:|
00001D90: 81 49 B2 31 A4 31 30 3A 99 43 4C 24 3A 82 3A 99 |.I.1.10:.CL$:.:.|
00001DA0: 22 13 4C 4F 20 43 41 4D 42 49 41 52 45 4D 4F 53 |".LO CAMBIAREMOS|
00001DB0: 20 41 3A 22 00 F2 25 ED 05 8D 36 33 30 31 30 3A | A:"..%...63010:|
00001DC0: 99 22 13 11 20 20 20 20 20 4D 3D 24 30 34 30 30 |.".. M=$0400|
00001DD0: 22 3A 99 22 20 20 20 20 20 58 3D 4E 22 20 20 20 |":." X=N" |
00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001DF0: 20 22 00 31 26 EE 05 99 22 12 4C 50 31 20 20 59 | ".1&...".LP1 Y|
00001E00: 3D 23 24 30 30 20 20 20 20 20 20 20 20 20 20 22 |=#$00 "|
00001E10: 3A 99 22 4C 50 32 20 20 4C 44 41 20 4D 2B 59 22 |:."LP2 LDA M+Y"|
00001E20: 3A 99 22 20 20 20 20 20 45 4F 52 20 23 24 38 30 |:." EOR #$80|
00001E30: 22 00 67 26 EF 05 99 22 20 20 20 20 20 53 54 41 |".g&..." STA|
00001E40: 20 4D 2B 59 22 3A 99 22 20 20 20 20 20 59 3D 59 | M+Y":." Y=Y|
00001E50: 2D 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |-1 |
00001E60: 20 20 20 20 20 20 22 00 A4 26 F0 05 99 22 20 20 | "..&..." |
00001E70: 20 20 20 49 46 20 59 3C 3E 30 20 47 4F 54 4F 20 | IF Y<>0 GOTO |
00001E80: 4C 50 32 20 22 3A 99 22 20 20 20 20 20 4D 3D 4D |LP2 ":." M=M|
00001E90: 2B 24 31 30 30 22 3A 99 22 20 20 20 20 20 58 3D |+$100":." X=|
00001EA0: 58 2D 31 22 00 DE 26 F1 05 99 22 12 20 20 20 20 |X-1"..&...". |
00001EB0: 20 49 46 58 3E 3D 30 20 47 4F 54 4F 20 4C 50 31 | IFX>=0 GOTO LP1|
00001EC0: 20 92 22 3A 8D 36 33 30 30 30 3A 99 22 13 11 11 | .":.63000:."...|
00001ED0: 11 11 11 11 11 11 11 11 11 11 22 43 4C 24 00 0E |.........."CL$..|
00001EE0: 27 F2 05 99 22 41 4C 20 50 52 49 4E 43 49 50 49 |'..."AL PRINCIPI|
00001EF0: 4F 20 4D 3D 4D 2B 30 30 2E 20 41 4C 20 45 46 45 |O M=M+00. AL EFE|
00001F00: 43 54 55 41 52 20 12 59 3D 59 2D 31 92 22 00 3D |CTUAR .Y=Y-1.".=|
00001F10: 27 F3 05 99 22 53 45 20 43 41 4D 42 49 41 1C 20 |'..."SE CAMBIA. |
00001F20: 59 3D 30 30 1F 20 50 4F 52 1C 20 59 3D 46 46 1F |Y=00. POR. Y=FF.|
00001F30: 2E 20 44 45 53 50 55 45 53 20 20 20 22 00 6D 27 |. DESPUES ".m'|
00001F40: F4 05 99 22 42 41 4A 41 4D 4F 53 20 44 45 1C 20 |..."BAJAMOS DE. |
00001F50: 4D 2B 46 46 1F 20 41 20 1C 4D 2B 46 45 1F 2E 2E |M+FF. A .M+FE...|
00001F60: 48 41 53 54 41 1C 20 4D 2B 30 31 1F 22 00 A2 27 |HASTA. M+01."..'|
00001F70: F5 05 99 22 50 41 52 41 4E 44 4F 20 41 51 55 49 |..."PARANDO AQUI|
00001F80: 20 44 45 4C 20 42 55 43 4C 45 20 59 21 20 20 20 | DEL BUCLE Y! |
00001F90: 20 20 20 20 20 20 20 20 20 20 20 22 43 4C 24 43 | "CL$C|
00001FA0: 4C 24 00 D4 27 F6 05 99 22 1F 45 4C 20 42 55 43 |L$..'...".EL BUC|
00001FB0: 4C 45 20 58 20 45 4D 50 49 45 5A 41 20 43 4F 4E |LE X EMPIEZA CON|
00001FC0: 20 58 3D 4E 20 59 20 43 41 44 41 20 12 1C 58 3D | X=N Y CADA ..X=|
00001FD0: 58 2D 31 22 00 08 28 F7 05 99 22 1F 52 45 44 55 |X-1"..(...".REDU|
00001FE0: 43 45 20 58 20 41 1C 20 4E 2D 31 2C 4E 2D 32 2C |CE X A. N-1,N-2,|
00001FF0: 2E 2E 32 2C 31 2C 30 20 12 1F 48 41 53 54 41 92 |..2,1,0 ..HASTA.|
00002000: 20 51 55 45 20 55 4E 22 00 3A 28 F8 05 99 22 12 | QUE UN".:(...".|
00002010: 58 3D 58 2D 31 92 20 41 44 49 43 49 4F 4E 41 4C |X=X-1. ADICIONAL|
00002020: 20 43 41 4D 42 49 41 20 58 20 41 20 1C 46 46 28 | CAMBIA X A .FF(|
00002030: 21 29 1F 20 51 55 45 20 20 22 00 72 28 F9 05 99 |!). QUE ".r(...|
00002040: 22 45 53 20 12 4E 45 47 41 54 49 56 4F 92 28 21 |"ES .NEGATIVO.(!|
00002050: 29 20 54 45 52 4D 49 4E 41 4E 44 4F 20 45 4C 20 |) TERMINANDO EL |
00002060: 42 55 43 4C 45 20 58 21 22 3A 99 3A 8D 36 33 30 |BUCLE X!":.:.630|
00002070: 30 30 00 B6 28 FA 05 99 22 13 11 11 11 11 11 11 |00..(...".......|
00002080: 11 11 11 11 11 11 22 43 4C 24 3A 99 22 12 4E 4F |......"CL$:.".NO|
00002090: 54 41 92 3A 20 20 20 20 20 20 20 20 20 20 20 20 |TA.: |
000020A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020B0: 20 20 20 20 20 22 00 E3 28 FB 05 99 22 4C 4F 53 | "..(..."LOS|
000020C0: 20 52 45 47 49 53 54 52 4F 53 20 44 45 4C 20 36 | REGISTROS DEL 6|
000020D0: 35 31 30 20 50 55 45 44 45 4E 20 43 4F 4E 54 45 |510 PUEDEN CONTE|
000020E0: 4E 45 52 00 18 29 FC 05 99 22 55 4E 20 4E 55 4D |NER..)..."UN NUM|
000020F0: 45 52 4F 20 43 4F 4D 50 52 45 4E 44 49 44 4F 20 |ERO COMPRENDIDO |
00002100: 45 4E 54 52 45 20 24 1C 30 30 1F 20 59 20 1C 24 |ENTRE $.00. Y .$|
00002110: 46 46 1F 2E 22 43 4C 24 00 5C 29 FF 05 99 22 45 |FF.."CL$.\)..."E|
00002120: 4C 20 44 45 43 52 45 4D 45 4E 54 4F 20 44 45 20 |L DECREMENTO DE |
00002130: 4C 41 20 4D 45 4D 4F 52 49 41 20 51 55 45 20 54 |LA MEMORIA QUE T|
00002140: 49 45 4E 45 20 20 20 1C 24 30 30 1F 20 52 45 53 |IENE .$00. RES|
00002150: 55 4C 54 41 20 1C 12 46 46 92 1F 2E 00 62 29 01 |ULTA ..FF....b).|
00002160: 06 3A 00 A0 29 02 06 99 22 41 4C 20 52 45 56 45 |.:..)..."AL REVE|
00002170: 53 2C 20 49 4E 43 52 45 4D 45 4E 54 41 4E 44 4F |S, INCREMENTANDO|
00002180: 20 12 1C 46 46 2B 31 92 1F 20 52 45 53 55 4C 54 | ..FF+1.. RESULT|
00002190: 41 20 12 1C 30 30 1F 92 22 43 4C 24 22 20 20 22 |A ..00.."CL$" "|
000021A0: 00 D3 29 03 06 99 22 46 49 4E 41 4C 4D 45 4E 54 |..)..."FINALMENT|
000021B0: 45 20 53 49 20 12 1C 4D 53 42 3D 31 1F 92 20 53 |E SI ..MSB=1.. S|
000021C0: 49 47 4E 49 46 49 43 41 20 51 55 45 20 20 20 20 |IGNIFICA QUE |
000021D0: 20 20 22 00 0D 2A 04 06 99 22 45 4C 20 4E 55 4D | "..*..."EL NUM|
000021E0: 45 52 4F 20 45 53 20 12 1C 4E 45 47 41 54 49 56 |ERO ES ..NEGATIV|
000021F0: 4F 20 92 21 20 20 20 20 20 20 20 20 20 20 20 20 |O .! |
00002200: 20 20 20 20 22 3B 3A 8D 36 33 30 30 30 00 2F 2A | ";:.63000./*|
00002210: 06 06 99 22 93 1C 54 52 41 54 45 4D 4F 53 20 41 |..."..TRATEMOS A|
00002220: 4C 47 4F 20 43 4F 4D 4F 20 45 53 54 4F 3A 22 00 |LGO COMO ESTO:".|
00002230: 61 2A 0E 06 99 22 11 12 1F 42 45 47 49 4E 20 4C |a*..."...BEGIN L|
00002240: 44 41 20 23 24 30 34 30 30 20 92 5F 1C 3F 20 23 |DA #$0400 ._.? #|
00002250: 24 30 34 30 30 20 4D 55 59 20 47 52 41 4E 44 45 |$0400 MUY GRANDE|
00002260: 22 00 8F 2A 13 06 99 22 1F 12 20 20 20 20 20 20 |"..*...".. |
00002270: 53 54 41 20 24 41 30 20 20 20 20 92 5F 1C 24 41 |STA $A0 ._.$A|
00002280: 30 20 54 49 45 4E 45 20 23 24 30 34 30 30 22 00 |0 TIENE #$0400".|
00002290: C0 2A 18 06 99 22 1F 12 20 20 20 20 20 20 4C 44 |.*...".. LD|
000022A0: 58 20 23 24 30 33 20 20 20 22 3A 99 22 12 4C 50 |X #$03 ":.".LP|
000022B0: 31 20 20 20 4C 44 59 20 23 24 30 30 20 20 20 22 |1 LDY #$00 "|
000022C0: 00 05 2B 22 06 99 22 12 4C 50 32 20 20 20 4C 44 |..+"..".LP2 LD|
000022D0: 41 20 28 24 41 30 29 2C 59 92 5F 1C 20 49 4E 44 |A ($A0),Y._. IND|
000022E0: 45 58 20 49 4E 44 49 52 45 43 54 4F 3F 22 3A 99 |EX INDIRECTO?":.|
000022F0: 22 1F 12 20 20 20 20 20 20 45 4F 52 20 23 24 38 |".. EOR #$8|
00002300: 30 20 20 20 22 00 4A 2B 2C 06 99 22 12 20 20 20 |0 ".J+,..". |
00002310: 20 20 20 53 54 41 20 28 24 41 30 29 2C 59 92 5F | STA ($A0),Y._|
00002320: 1C 20 49 4E 44 45 58 20 49 4E 44 49 52 45 43 54 |. INDEX INDIRECT|
00002330: 4F 21 22 3A 99 22 1F 12 20 20 20 20 20 20 44 45 |O!":.".. DE|
00002340: 59 20 20 20 20 20 20 20 20 22 00 8E 2B 36 06 99 |Y "..+6..|
00002350: 22 12 20 20 20 20 20 20 42 4E 45 20 4C 50 32 20 |". BNE LP2 |
00002360: 20 20 20 22 3A 99 22 12 20 20 20 20 20 20 49 4E | ":.". IN|
00002370: 43 20 24 41 30 20 45 4E 20 23 24 31 30 30 92 5F |C $A0 EN #$100._|
00002380: 1C 3F 3F 20 21 21 43 4F 4D 4F 20 3F 3F 22 00 D2 |.?? !!COMO ??"..|
00002390: 2B 40 06 99 22 1F 12 20 20 20 20 20 20 44 45 58 |+@..".. DEX|
000023A0: 20 20 20 20 20 20 20 20 22 3A 99 22 12 20 20 20 | ":.". |
000023B0: 20 20 20 42 50 4C 20 4C 50 31 20 20 20 20 92 5F | BPL LP1 ._|
000023C0: 1C 42 52 41 4E 43 48 20 4F 4E 20 50 4C 55 53 21 |.BRANCH ON PLUS!|
000023D0: 21 22 00 FF 2B 4A 06 99 22 11 12 1F 4C 44 41 20 |!"..+J.."...LDA |
000023E0: 28 24 41 30 29 2C 59 92 20 54 4F 4D 41 20 45 4C |($A0),Y. TOMA EL|
000023F0: 20 43 4F 4E 54 45 4E 49 44 4F 20 44 45 20 22 00 | CONTENIDO DE ".|
00002400: 34 2C 54 06 99 22 11 4C 41 20 4D 45 4D 4F 52 49 |4,T..".LA MEMORI|
00002410: 41 20 24 41 30 2C 20 41 47 52 45 47 41 20 1C 59 |A $A0, AGREGA .Y|
00002420: 1F 2C 20 59 20 45 53 54 4F 11 1C 9D 9D 9D 9D B8 |., Y ESTO.......|
00002430: B8 B8 B8 22 00 62 2C 59 06 99 22 1F 4E 4F 53 20 |...".b,Y..".NOS |
00002440: 44 41 20 4C 41 20 44 49 52 45 43 43 49 4F 4E 20 |DA LA DIRECCION |
00002450: 44 45 4C 20 42 59 54 45 20 51 55 45 20 53 45 52 |DEL BYTE QUE SER|
00002460: 41 22 00 8F 2C 5A 06 99 22 11 43 41 52 47 41 44 |A"..,Z..".CARGAD|
00002470: 4F 20 45 4E 20 45 4C 20 52 45 47 49 53 54 52 4F |O EN EL REGISTRO|
00002480: 20 1C 27 41 27 21 21 22 3A 8D 36 33 30 30 30 00 | .'A'!!":.63000.|
00002490: C2 2C 5E 06 99 22 93 1C 12 20 20 20 20 20 4E 55 |.,^.."... NU|
000024A0: 45 56 41 53 20 49 44 45 41 53 20 20 4E 55 45 56 |EVAS IDEAS NUEV|
000024B0: 4F 53 20 50 52 4F 42 4C 45 4D 41 53 20 20 20 20 |OS PROBLEMAS |
000024C0: 20 22 00 EA 2C 63 06 99 22 11 11 11 1F 44 45 4A | "..,c.."....DEJ|
000024D0: 45 4D 4F 53 20 45 4E 20 43 4C 41 52 4F 20 51 55 |EMOS EN CLARO QU|
000024E0: 45 20 4E 4F 53 4F 54 52 4F 53 00 0F 2D 64 06 99 |E NOSOTROS..-d..|
000024F0: 22 55 53 41 52 45 4D 4F 53 20 1C 24 41 30 1F 20 |"USAREMOS .$A0. |
00002500: 50 41 52 41 20 52 45 46 45 52 49 52 4E 4F 53 00 |PARA REFERIRNOS.|
00002510: 2F 2D 65 06 99 22 41 20 55 4E 20 4C 55 47 41 52 |/-e.."A UN LUGAR|
00002520: 20 45 4E 20 4C 41 20 4D 45 4D 4F 52 49 41 22 00 | EN LA MEMORIA".|
00002530: 5A 2D 66 06 99 22 11 59 20 41 20 1C 28 24 41 30 |Z-f..".Y A .($A0|
00002540: 29 1F 20 2D 45 4E 54 52 45 20 50 41 52 45 4E 54 |). -ENTRE PARENT|
00002550: 45 53 49 53 2D 20 50 41 52 41 00 9A 2D 67 06 99 |ESIS- PARA..-g..|
00002560: 22 52 45 46 45 52 49 52 4E 4F 53 20 41 4C 20 43 |"REFERIRNOS AL C|
00002570: 4F 4E 54 45 4E 49 44 4F 20 44 45 20 4C 41 22 3A |ONTENIDO DE LA":|
00002580: 99 22 4D 45 4D 4F 52 49 41 20 55 42 49 43 41 44 |."MEMORIA UBICAD|
00002590: 41 20 45 4E 20 24 41 30 2E 22 00 D6 2D 68 06 99 |A EN $A0."..-h..|
000025A0: 22 11 11 11 12 1C 20 56 45 41 4D 4F 53 20 4C 4F |"..... VEAMOS LO|
000025B0: 53 20 4D 4F 44 4F 53 20 44 45 20 44 49 52 45 43 |S MODOS DE DIREC|
000025C0: 43 49 4F 4E 41 4D 49 45 4E 54 4F 20 92 3A 22 3A |CIONAMIENTO .:":|
000025D0: 8D 36 33 30 30 30 00 09 2E 72 06 99 22 93 1C 12 |.63000...r.."...|
000025E0: 20 42 41 53 49 43 20 20 20 20 20 20 20 20 20 20 | BASIC |
000025F0: 20 20 20 20 41 53 53 45 4D 42 4C 45 52 20 20 20 | ASSEMBLER |
00002600: 20 20 20 20 20 20 20 20 22 00 26 2E 7C 06 99 22 | ".&.|.."|
00002610: 12 41 3D 35 92 22 A3 32 30 29 22 12 4C 44 41 20 |.A=5.".20)".LDA |
00002620: 23 24 30 35 92 22 00 4E 2E 86 06 99 22 11 1F D1 |#$05.".N...."...|
00002630: 4D 4F 44 4F 20 49 4E 4D 45 44 49 41 54 4F 2E 20 |MODO INMEDIATO. |
00002640: 45 4C 20 41 43 55 4D 55 4C 41 44 4F 52 22 00 6F |EL ACUMULADOR".o|
00002650: 2E 90 06 99 22 20 53 45 20 43 41 52 47 41 20 43 |...." SE CARGA C|
00002660: 4F 4E 20 45 4C 20 4E 55 4D 45 52 4F 20 35 22 00 |ON EL NUMERO 5".|
00002670: 90 2E 9A 06 99 22 11 1C 12 41 3D 4D 28 35 29 92 |....."...A=M(5).|
00002680: 22 A3 32 30 29 22 12 4C 44 41 20 24 30 35 92 22 |".20)".LDA $05."|
00002690: 00 B5 2E A4 06 99 22 11 1F D1 44 49 52 45 43 43 |......"...DIRECC|
000026A0: 49 4F 4E 20 41 42 53 4F 4C 55 54 41 2E 20 27 41 |ION ABSOLUTA. 'A|
000026B0: 27 20 53 45 22 00 D7 2E AE 06 99 22 20 43 41 52 |' SE"......" CAR|
000026C0: 47 41 20 43 4F 4E 20 45 4C 20 43 4F 4E 54 45 4E |GA CON EL CONTEN|
000026D0: 49 44 4F 20 44 45 22 00 F9 2E B8 06 99 22 20 4C |IDO DE"......" L|
000026E0: 41 20 4D 45 4D 4F 52 49 41 20 44 45 20 44 49 52 |A MEMORIA DE DIR|
000026F0: 45 43 43 49 4F 4E 20 35 22 00 1E 2F C2 06 99 22 |ECCION 5"../..."|
00002700: 11 1C 12 41 3D 4D 28 35 2B 58 29 92 22 A3 32 30 |...A=M(5+X).".20|
00002710: 29 22 12 4C 44 41 20 24 30 30 30 35 2C 58 00 4A |)".LDA $0005,X.J|
00002720: 2F CC 06 99 22 11 1F D1 44 49 52 45 43 43 49 4F |/..."...DIRECCIO|
00002730: 4E 20 12 49 4E 44 45 58 41 44 41 92 2E 20 45 4C |N .INDEXADA.. EL|
00002740: 20 43 4F 4E 54 45 4E 49 44 4F 00 73 2F D6 06 99 | CONTENIDO.s/...|
00002750: 22 20 44 45 4C 20 4C 55 47 41 52 20 28 35 2B 58 |" DEL LUGAR (5+X|
00002760: 29 20 53 45 20 43 41 52 47 41 4E 20 45 4E 20 27 |) SE CARGAN EN '|
00002770: 41 27 2E 00 9D 2F E0 06 99 22 11 1C 12 41 3D 4D |A'.../..."...A=M|
00002780: 28 4D 28 35 2B 58 29 29 92 22 A3 32 30 29 22 12 |(M(5+X)).".20)".|
00002790: 4C 44 41 20 28 24 30 30 30 35 2C 58 29 00 CA 2F |LDA ($0005,X)../|
000027A0: EA 06 99 22 1F 11 D1 49 4E 44 45 58 41 44 4F 20 |..."...INDEXADO |
000027B0: 12 49 4E 44 49 52 45 43 54 4F 92 2E 20 45 4C 20 |.INDIRECTO.. EL |
000027C0: 43 4F 4E 54 45 4E 49 44 4F 22 00 F2 2F F4 06 99 |CONTENIDO"../...|
000027D0: 22 20 44 45 4C 20 4C 55 47 41 52 20 28 35 2B 58 |" DEL LUGAR (5+X|
000027E0: 29 20 44 41 20 4C 41 20 44 49 52 45 43 43 49 4F |) DA LA DIRECCIO|
000027F0: 4E 22 00 20 30 FE 06 99 22 20 44 45 4C 20 42 59 |N". 0..." DEL BY|
00002800: 54 45 20 41 20 53 45 52 20 43 41 52 47 41 44 4F |TE A SER CARGADO|
00002810: 20 45 4E 20 27 41 27 2E 22 3A 8D 36 33 30 30 30 | EN 'A'.":.63000|
00002820: 00 53 30 08 07 99 22 93 1C 12 20 20 20 20 20 20 |.S0..."... |
00002830: 20 20 20 44 45 20 4E 55 45 56 4F 20 4E 55 45 53 | DE NUEVO NUES|
00002840: 54 52 4F 20 41 4D 49 47 4F 20 20 20 20 20 20 20 |TRO AMIGO |
00002850: 20 20 22 00 7B 30 12 07 99 22 11 11 12 41 3D 4D | ".{0..."...A=M|
00002860: 28 4D 28 35 29 2B 59 29 92 22 A3 32 30 29 22 12 |(M(5)+Y).".20)".|
00002870: 4C 44 41 20 28 24 30 35 29 2C 59 00 A3 30 1C 07 |LDA ($05),Y..0..|
00002880: 99 22 11 11 1F D1 12 49 4E 44 45 58 41 44 4F 20 |.".....INDEXADO |
00002890: 49 4E 44 49 52 45 43 54 4F 92 2E 20 50 52 49 4D |INDIRECTO.. PRIM|
000028A0: 45 52 4F 00 C8 30 26 07 99 22 53 45 20 45 58 54 |ERO..0&.."SE EXT|
000028B0: 52 41 45 20 45 4C 20 43 4F 4E 54 45 4E 49 44 4F |RAE EL CONTENIDO|
000028C0: 20 44 45 20 4C 41 20 22 00 E6 30 2B 07 99 22 4D | DE LA "..0+.."M|
000028D0: 45 4D 4F 52 49 41 20 44 45 20 44 49 52 45 43 43 |EMORIA DE DIRECC|
000028E0: 49 4F 4E 20 35 2E 00 05 31 2C 07 99 22 11 1C 4C |ION 5...1,.."..L|
000028F0: 55 45 47 4F 20 53 45 20 41 44 49 43 49 4F 4E 41 |UEGO SE ADICIONA|
00002900: 20 27 59 27 22 00 2A 31 30 07 99 22 11 1F 45 4C | 'Y'".*10.."..EL|
00002910: 20 52 45 53 55 4C 54 41 44 4F 20 44 41 20 4C 41 | RESULTADO DA LA|
00002920: 20 44 49 52 45 43 43 49 4F 4E 00 51 31 3A 07 99 | DIRECCION.Q1:..|
00002930: 22 44 45 4C 20 42 59 54 45 20 43 41 52 47 41 44 |"DEL BYTE CARGAD|
00002940: 4F 20 45 4E 20 27 41 27 2E 22 3A 8D 36 33 30 30 |O EN 'A'.":.6300|
00002950: 30 00 82 31 44 07 99 22 93 1C D1 12 49 4E 44 49 |0..1D.."....INDI|
00002960: 52 45 43 54 4F 92 1F 20 53 49 47 4E 49 46 49 43 |RECTO.. SIGNIFIC|
00002970: 41 20 51 55 45 20 56 41 4D 4F 53 20 41 20 55 4E |A QUE VAMOS A UN|
00002980: 41 22 00 AD 31 4E 07 99 22 20 44 49 52 45 43 43 |A"..1N.." DIRECC|
00002990: 49 4F 4E 20 45 4E 20 4C 41 20 4D 45 4D 4F 52 49 |ION EN LA MEMORI|
000029A0: 41 20 50 41 52 41 20 42 55 53 43 41 52 00 EB 31 |A PARA BUSCAR..1|
000029B0: 58 07 99 22 20 4C 41 20 44 49 52 45 43 43 49 4F |X.." LA DIRECCIO|
000029C0: 4E 20 44 45 4C 20 42 59 54 45 20 41 20 43 41 52 |N DEL BYTE A CAR|
000029D0: 47 41 52 53 45 20 45 4E 22 3A 99 22 20 45 4C 20 |GARSE EN":." EL |
000029E0: 41 43 55 4D 55 4C 41 44 4F 52 22 00 1B 32 62 07 |ACUMULADOR"..2b.|
000029F0: 99 22 11 1C D1 12 49 4E 44 45 58 41 44 4F 92 1F |."....INDEXADO..|
00002A00: 20 53 49 47 4E 49 46 49 43 41 20 51 55 45 20 41 | SIGNIFICA QUE A|
00002A10: 44 49 43 49 4F 4E 41 4D 4F 53 22 00 4B 32 6C 07 |DICIONAMOS".K2l.|
00002A20: 99 22 20 45 4C 20 43 4F 4E 54 45 4E 49 44 4F 20 |." EL CONTENIDO |
00002A30: 44 45 20 55 4E 20 52 45 47 49 53 54 52 4F 20 44 |DE UN REGISTRO D|
00002A40: 45 4C 20 12 36 35 31 30 92 20 22 00 63 32 71 07 |EL .6510. ".c2q.|
00002A50: 99 22 20 41 20 55 4E 41 20 44 49 52 45 43 43 49 |." A UNA DIRECCI|
00002A60: 4F 4E 22 00 96 32 76 07 99 22 11 11 D1 53 49 20 |ON"..2v.."...SI |
00002A70: 12 49 4E 44 45 58 41 4D 4F 53 92 20 59 20 4C 55 |.INDEXAMOS. Y LU|
00002A80: 45 47 4F 20 12 49 4E 44 49 52 45 43 54 4F 92 20 |EGO .INDIRECTO. |
00002A90: 53 45 52 41 3A 22 00 B2 32 80 07 99 22 1C 11 20 |SERA:"..2...".. |
00002AA0: 49 4E 44 45 58 41 44 4F 20 49 4E 44 49 52 45 43 |INDEXADO INDIREC|
00002AB0: 54 4F 00 D3 32 85 07 99 22 1F 20 43 4F 4D 4F 20 |TO..2...". COMO |
00002AC0: 45 4E 20 12 1C 4C 44 41 20 28 24 30 34 30 30 2C |EN ..LDA ($0400,|
00002AD0: 58 29 22 00 FF 32 8A 07 99 22 11 11 1F D1 53 49 |X)"..2..."....SI|
00002AE0: 20 50 52 49 4D 45 52 4F 20 45 53 20 12 49 4E 44 | PRIMERO ES .IND|
00002AF0: 49 52 45 43 54 4F 92 20 59 20 4C 55 45 47 4F 00 |IRECTO. Y LUEGO.|
00002B00: 16 33 8E 07 99 22 20 49 4E 44 45 58 41 44 4F 92 |.3..." INDEXADO.|
00002B10: 20 53 45 52 41 22 00 33 33 94 07 99 22 20 11 1C | SERA".33..." ..|
00002B20: 49 4E 44 49 52 45 43 54 4F 20 49 4E 44 45 58 41 |INDIRECTO INDEXA|
00002B30: 44 4F 92 00 59 33 99 07 99 22 20 1F 43 4F 4D 4F |DO..Y3..." .COMO|
00002B40: 20 45 4E 20 12 1C 4C 44 41 20 28 24 41 30 29 2C | EN ..LDA ($A0),|
00002B50: 59 22 3A 8D 36 33 30 30 30 00 7C 33 9E 07 4D 53 |Y":.63000.|3..MS|
00002B60: 24 B2 22 43 4C 41 52 4F 3F 21 2A 24 26 22 3A 8D |$."CLARO?!*$&":.|
00002B70: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 AF 33 A8 |63100:.63000..3.|
00002B80: 07 99 22 93 1C 12 20 20 20 20 20 20 20 20 20 20 |.."... |
00002B90: 41 4C 47 4F 20 53 4F 42 52 45 20 4C 41 20 4D 45 |ALGO SOBRE LA ME|
00002BA0: 4D 4F 52 49 41 20 20 20 20 20 20 20 20 20 22 00 |MORIA ".|
00002BB0: DC 33 B2 07 99 22 1F D1 4C 41 20 49 4E 53 54 52 |.3..."..LA INSTR|
00002BC0: 55 43 43 49 4F 4E 45 53 20 44 45 4C 20 36 35 31 |UCCIONES DEL 651|
00002BD0: 30 20 53 45 20 47 55 41 52 44 41 4E 00 09 34 BC |0 SE GUARDAN..4.|
00002BE0: 07 99 22 20 45 4E 20 4C 41 20 4D 45 4D 4F 52 49 |.." EN LA MEMORI|
00002BF0: 41 20 45 4E 20 31 2D 20 2C 20 32 2D 20 4F 20 33 |A EN 1- , 2- O 3|
00002C00: 2D 20 42 59 54 45 53 2E 22 00 39 34 C6 07 99 22 |- BYTES.".94..."|
00002C10: 11 12 1C 49 4E 58 92 3D 12 45 38 92 1F 20 54 49 |...INX.=.E8.. TI|
00002C20: 45 4E 45 20 53 4F 4C 4F 20 55 4E 20 42 59 54 45 |ENE SOLO UN BYTE|
00002C30: 20 44 45 20 4C 41 52 47 4F 00 66 34 D0 07 99 22 | DE LARGO.f4..."|
00002C40: 11 12 1C 20 4C 44 41 20 23 24 30 35 92 3D 12 41 |... LDA #$05.=.A|
00002C50: 44 20 30 35 92 1F 20 45 53 20 44 45 20 44 4F 53 |D 05.. ES DE DOS|
00002C60: 20 42 59 54 45 53 00 98 34 DA 07 99 22 11 12 1C | BYTES..4..."...|
00002C70: 4C 44 41 20 24 31 32 33 34 2C 58 92 3D 12 42 44 |LDA $1234,X.=.BD|
00002C80: 20 33 34 20 31 32 1F 92 20 54 49 45 4E 45 20 33 | 34 12.. TIENE 3|
00002C90: 20 42 59 54 45 53 2E 22 00 B4 34 E4 07 99 22 20 | BYTES."..4..." |
00002CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5E 5E | ^^|
00002CB0: 20 5E 5E 22 00 E3 34 EE 07 99 22 44 49 52 45 43 | ^^"..4..."DIREC|
00002CC0: 43 49 4F 4E 45 53 20 44 45 20 32 2D 42 59 54 45 |CIONES DE 2-BYTE|
00002CD0: 53 20 45 53 54 41 4E 20 45 4E 20 47 45 4E 45 52 |S ESTAN EN GENER|
00002CE0: 41 4C 22 00 0D 35 F8 07 99 22 41 4C 4D 41 43 45 |AL"..5..."ALMACE|
00002CF0: 4E 41 44 41 53 20 41 4C 20 52 45 56 45 53 20 45 |NADAS AL REVES E|
00002D00: 4E 20 4C 41 20 4D 45 4D 4F 52 49 41 22 00 3F 35 |N LA MEMORIA".?5|
00002D10: 02 08 99 22 50 52 49 4D 45 52 4F 20 12 1C 42 59 |..."PRIMERO ..BY|
00002D20: 54 45 20 42 41 4A 4F 1F 92 20 4C 55 45 47 4F 20 |TE BAJO.. LUEGO |
00002D30: 1C 12 42 59 54 45 20 41 4C 54 4F 92 2E 1F 22 00 |..BYTE ALTO...".|
00002D40: 59 35 0C 08 99 22 11 45 4E 54 4F 4E 43 45 53 20 |Y5...".ENTONCES |
00002D50: 41 4C 20 54 45 4E 45 52 3A 00 8D 35 16 08 99 22 |AL TENER:..5..."|
00002D60: 12 1C 4C 44 41 20 28 24 41 30 29 2C 59 92 3D 12 |..LDA ($A0),Y.=.|
00002D70: 41 31 20 43 41 92 1F 20 45 4C 20 36 35 31 30 20 |A1 CA.. EL 6510 |
00002D80: 56 41 20 41 20 54 4F 4D 41 52 20 44 45 00 B8 35 |VA A TOMAR DE..5|
00002D90: 20 08 99 22 1C 24 41 30 1F 20 45 4C 20 12 42 59 | ..".$A0. EL .BY|
00002DA0: 54 45 20 42 41 4A 4F 92 20 44 45 20 4C 41 20 44 |TE BAJO. DE LA D|
00002DB0: 49 52 45 43 43 49 4F 4E 00 DA 35 2A 08 99 22 59 |IRECCION..5*.."Y|
00002DC0: 20 44 45 1C 20 24 41 31 1F 20 45 4C 20 12 42 59 | DE. $A1. EL .BY|
00002DD0: 54 45 20 41 4C 54 4F 92 21 22 00 04 36 34 08 99 |TE ALTO.!"..64..|
00002DE0: 22 11 D1 41 53 45 47 55 52 45 53 45 20 44 45 20 |"..ASEGURESE DE |
00002DF0: 50 4F 4E 45 52 20 41 4D 42 4F 53 20 42 59 54 45 |PONER AMBOS BYTE|
00002E00: 53 20 45 4E 00 3E 36 3E 08 99 22 1C 24 41 30 2F |S EN.>6>..".$A0/|
00002E10: 41 31 20 1F 41 4E 54 45 53 20 44 45 20 45 46 45 |A1 .ANTES DE EFE|
00002E20: 43 54 55 41 52 20 12 1C 4C 44 41 20 28 24 41 30 |CTUAR ..LDA ($A0|
00002E30: 29 2C 59 92 21 21 22 3A 8D 36 33 30 30 30 00 71 |),Y.!!":.63000.q|
00002E40: 36 48 08 99 22 93 12 1C 20 20 20 20 20 20 20 20 |6H.."... |
00002E50: 20 20 20 20 20 20 56 4F 4C 56 41 4D 4F 53 20 41 | VOLVAMOS A|
00002E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002E70: 22 00 A3 36 52 08 99 22 11 12 1F 42 45 47 49 4E |"..6R.."...BEGIN|
00002E80: 20 4C 44 41 20 23 24 30 34 30 30 20 92 5F 1C 3F | LDA #$0400 ._.?|
00002E90: 20 23 24 30 34 30 30 20 4D 55 59 20 47 52 41 4E | #$0400 MUY GRAN|
00002EA0: 44 45 22 00 D0 36 5C 08 99 22 1F 12 20 20 20 20 |DE"..6\..".. |
00002EB0: 20 20 53 54 41 20 24 41 30 20 20 20 20 92 5F 1C | STA $A0 ._.|
00002EC0: 24 41 30 20 54 49 45 4E 45 20 23 24 30 34 30 30 |$A0 TIENE #$0400|
00002ED0: 00 01 37 66 08 99 22 1F 12 20 20 20 20 20 20 4C |..7f..".. L|
00002EE0: 44 58 20 23 24 30 33 20 20 20 22 3A 99 22 12 4C |DX #$03 ":.".L|
00002EF0: 50 31 20 20 20 4C 44 59 20 23 24 30 30 20 20 20 |P1 LDY #$00 |
00002F00: 22 00 46 37 70 08 99 22 12 4C 50 32 20 20 20 4C |".F7p..".LP2 L|
00002F10: 44 41 20 28 24 41 30 29 2C 59 92 5F 1C 20 49 4E |DA ($A0),Y._. IN|
00002F20: 44 45 58 20 49 4E 44 49 52 45 43 54 4F 3F 22 3A |DEX INDIRECTO?":|
00002F30: 99 22 1F 12 20 20 20 20 20 20 45 4F 52 20 23 24 |.".. EOR #$|
00002F40: 38 30 20 20 20 22 00 8B 37 7A 08 99 22 12 20 20 |80 "..7z..". |
00002F50: 20 20 20 20 53 54 41 20 28 24 41 30 29 2C 59 92 | STA ($A0),Y.|
00002F60: 5F 1C 20 49 4E 44 45 58 20 49 4E 44 49 52 45 43 |_. INDEX INDIREC|
00002F70: 54 4F 21 22 3A 99 22 1F 12 20 20 20 20 20 20 44 |TO!":.".. D|
00002F80: 45 59 20 20 20 20 20 20 20 20 22 00 CF 37 84 08 |EY "..7..|
00002F90: 99 22 12 20 20 20 20 20 20 42 4E 45 20 4C 50 32 |.". BNE LP2|
00002FA0: 20 20 20 20 22 3A 99 22 12 20 20 20 20 20 20 49 | ":.". I|
00002FB0: 4E 43 20 24 41 30 20 45 4E 20 23 24 31 30 30 92 |NC $A0 EN #$100.|
00002FC0: 5F 1C 3F 3F 20 21 21 43 4F 4D 4F 20 3F 3F 22 00 |_.?? !!COMO ??".|
00002FD0: 13 38 8E 08 99 22 1F 12 20 20 20 20 20 20 44 45 |.8...".. DE|
00002FE0: 58 20 20 20 20 20 20 20 20 22 3A 99 22 12 20 20 |X ":.". |
00002FF0: 20 20 20 20 42 50 4C 20 4C 50 31 20 20 20 20 92 | BPL LP1 .|
00003000: 5F 1C 42 52 41 4E 43 48 20 4F 4E 20 50 4C 55 53 |_.BRANCH ON PLUS|
00003010: 21 21 22 00 3D 38 98 08 99 22 11 1F 41 48 4F 52 |!!".=8..."..AHOR|
00003020: 41 20 50 4F 4E 44 52 45 4D 4F 53 20 24 30 34 30 |A PONDREMOS $040|
00003030: 30 20 45 4E 20 24 41 30 2F 24 41 31 22 00 74 38 |0 EN $A0/$A1".t8|
00003040: A2 08 99 22 43 4F 4E 20 1C 12 4C 44 41 20 23 24 |..."CON ..LDA #$|
00003050: 30 30 92 20 12 53 54 41 20 24 41 30 92 20 12 4C |00. .STA $A0. .L|
00003060: 44 41 20 23 24 30 34 92 20 12 53 54 41 20 24 41 |DA #$04. .STA $A|
00003070: 31 92 2E 22 00 A8 38 AC 08 99 22 11 1F 54 41 4D |1.."..8..."..TAM|
00003080: 42 49 45 4E 20 12 49 4E 43 20 24 41 30 20 50 4F |BIEN .INC $A0 PO|
00003090: 52 20 23 24 31 30 30 92 20 53 45 20 43 41 4D 42 |R #$100. SE CAMB|
000030A0: 49 41 20 50 4F 52 3A 22 00 D8 38 B6 08 99 22 12 |IA POR:"..8...".|
000030B0: 1C 49 4E 43 20 24 41 31 92 2E 2E 2E 1F 20 53 4F |.INC $A1..... SO|
000030C0: 4C 4F 20 4E 45 43 45 53 49 54 41 4D 4F 53 20 12 |LO NECESITAMOS .|
000030D0: 49 4E 43 92 20 45 4C 22 00 F8 38 C0 08 99 22 42 |INC. EL"..8..."B|
000030E0: 59 54 45 20 41 4C 54 4F 20 45 4E 20 27 31 27 21 |YTE ALTO EN '1'!|
000030F0: 22 3A 8D 36 33 30 30 30 00 2B 39 CA 08 99 22 93 |":.63000.+9...".|
00003100: 12 1C 20 20 20 20 20 20 43 41 4D 42 49 41 52 45 |.. CAMBIARE|
00003110: 4D 4F 53 20 4E 55 45 53 54 4F 20 50 52 4F 47 52 |MOS NUESTO PROGR|
00003120: 41 4D 41 20 41 3A 20 20 20 20 22 00 5D 39 D4 08 |AMA A: ".]9..|
00003130: 99 22 1F 12 42 45 47 49 4E 20 4C 44 41 20 23 24 |."..BEGIN LDA #$|
00003140: 30 30 20 20 20 92 22 3A 99 22 12 20 20 20 20 20 |00 .":.". |
00003150: 20 53 54 41 20 24 41 30 20 20 20 20 22 00 8D 39 | STA $A0 "..9|
00003160: DE 08 99 22 12 20 20 20 20 20 20 4C 44 41 20 23 |...". LDA #|
00003170: 24 30 34 20 20 20 22 3A 99 22 12 20 20 20 20 20 |$04 ":.". |
00003180: 20 53 54 41 20 24 41 31 20 20 20 20 22 00 BD 39 | STA $A1 "..9|
00003190: E8 08 99 22 12 20 20 20 20 20 20 4C 44 58 20 23 |...". LDX #|
000031A0: 24 30 33 20 20 20 22 3A 99 22 12 4C 50 31 20 20 |$03 ":.".LP1 |
000031B0: 20 4C 44 59 20 23 24 30 30 20 20 20 22 00 EE 39 | LDY #$00 "..9|
000031C0: F2 08 99 22 12 4C 50 32 20 20 20 4C 44 41 20 28 |...".LP2 LDA (|
000031D0: 24 41 30 29 2C 59 92 22 3A 99 22 12 20 20 20 20 |$A0),Y.":.". |
000031E0: 20 20 45 4F 52 20 23 24 38 30 20 20 20 22 00 1F | EOR #$80 "..|
000031F0: 3A FC 08 99 22 12 20 20 20 20 20 20 53 54 41 20 |:...". STA |
00003200: 28 24 41 30 29 2C 59 92 22 3A 99 22 12 20 20 20 |($A0),Y.":.". |
00003210: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 22 00 | DEY ".|
00003220: 4F 3A 06 09 99 22 12 20 20 20 20 20 20 42 4E 45 |O:...". BNE|
00003230: 20 4C 50 32 20 20 20 20 22 3A 99 22 12 20 20 20 | LP2 ":.". |
00003240: 20 20 20 49 4E 43 20 24 41 31 20 20 20 20 22 00 | INC $A1 ".|
00003250: 87 3A 10 09 99 22 12 20 20 20 20 20 20 44 45 58 |.:...". DEX|
00003260: 20 20 20 20 20 20 20 20 22 3A 99 22 12 20 20 20 | ":.". |
00003270: 20 20 20 42 50 4C 20 4C 50 31 20 20 20 20 92 22 | BPL LP1 ."|
00003280: 3A 8D 36 33 30 30 30 00 C3 3A 1A 09 99 22 13 11 |:.63000..:..."..|
00003290: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000032A0: 4E 4F 20 48 41 59 20 4E 45 43 45 53 49 44 41 44 |NO HAY NECESIDAD|
000032B0: 20 44 45 20 12 4C 44 59 20 23 24 30 30 92 20 43 | DE .LDY #$00. C|
000032C0: 41 44 41 00 02 3B 24 09 99 22 11 56 45 5A 20 51 |ADA..;$..".VEZ Q|
000032D0: 55 45 20 45 46 45 43 54 55 41 4D 4F 53 20 12 42 |UE EFECTUAMOS .B|
000032E0: 50 4C 20 4C 50 31 22 3A 99 22 11 59 3D 59 41 20 |PL LP1":.".Y=YA |
000032F0: 56 41 4C 45 20 43 45 52 4F 3A 22 3A 8D 36 33 30 |VALE CERO:":.630|
00003300: 31 30 00 39 3B 2E 09 99 22 13 11 11 11 11 11 11 |10.9;...".......|
00003310: 11 12 20 20 20 20 20 22 3A 99 22 12 42 55 43 4C |.. ":.".BUCL|
00003320: 45 22 3A 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |E":."...........|
00003330: 1D 1D 12 42 55 43 4C 45 22 00 5A 3B 33 09 99 22 |...BUCLE".Z;3.."|
00003340: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 42 55 43 |.............BUC|
00003350: 4C 45 22 3A 8D 36 33 30 30 30 00 81 3B 38 09 99 |LE":.63000..;8..|
00003360: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00003370: 11 11 22 3A 81 49 B2 31 A4 36 3A 99 43 4C 24 3A |..":.I.1.6:.CL$:|
00003380: 82 00 B6 3B 42 09 99 22 13 11 11 11 11 11 11 11 |...;B.."........|
00003390: 11 11 11 11 11 11 11 11 11 11 4E 4F 54 45 20 51 |..........NOTE Q|
000033A0: 55 45 20 12 1C 4C 44 58 20 23 24 30 33 92 20 1F |UE ..LDX #$03. .|
000033B0: 50 55 45 44 45 22 00 DA 3B 4C 09 99 22 11 56 41 |PUEDE"..;L..".VA|
000033C0: 52 49 41 52 20 45 4E 54 52 45 20 43 55 41 4C 51 |RIAR ENTRE CUALQ|
000033D0: 55 49 45 52 20 56 41 4C 4F 52 00 08 3C 56 09 99 |UIER VALOR..<V..|
000033E0: 22 11 44 45 20 12 1C 4C 44 58 20 23 24 30 31 92 |".DE ..LDX #$01.|
000033F0: 1F 20 41 20 12 1C 4C 44 58 20 23 24 38 30 92 2E |. A ..LDX #$80..|
00003400: 22 3A 8D 36 33 30 30 30 00 2F 3C 60 09 99 22 13 |":.63000./<`..".|
00003410: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003420: 22 3A 81 49 B2 31 A4 36 3A 99 43 4C 24 3A 82 00 |":.I.1.6:.CL$:..|
00003430: 70 3C 6A 09 99 22 13 11 11 11 11 11 11 11 11 11 |p<j.."..........|
00003440: 11 11 11 11 11 11 11 11 50 41 52 41 20 12 4C 44 |........PARA .LD|
00003450: 58 20 23 24 30 30 92 20 48 41 52 45 4D 4F 53 20 |X #$00. HAREMOS |
00003460: 45 4C 20 42 55 43 4C 45 20 58 20 53 4F 4C 4F 22 |EL BUCLE X SOLO"|
00003470: 00 A1 3C 74 09 99 22 55 4E 41 20 56 45 5A 2E 20 |..<t.."UNA VEZ. |
00003480: 50 41 52 41 20 12 4C 44 58 20 23 24 38 31 92 2C |PARA .LDX #$81.,|
00003490: 4F 20 53 55 50 45 52 49 4F 52 2C 12 44 45 58 92 |O SUPERIOR,.DEX.|
000034A0: 22 00 C8 3C 7E 09 99 22 44 45 4A 41 52 41 20 27 |"..<~.."DEJARA '|
000034B0: 4D 53 42 27 3D 31 20 45 4E 20 45 4C 20 52 45 47 |MSB'=1 EN EL REG|
000034C0: 49 53 54 52 4F 2D 58 22 00 F2 3C 88 09 99 22 52 |ISTRO-X"..<..."R|
000034D0: 45 53 55 4C 54 41 4E 44 4F 20 58 3C 30 2C 20 50 |ESULTANDO X<0, P|
000034E0: 4F 52 20 4C 4F 20 54 41 4E 54 4F 20 12 42 50 4C |OR LO TANTO .BPL|
000034F0: 92 22 00 1D 3D 92 09 99 22 12 4E 4F 92 20 4E 4F |."..=...".NO. NO|
00003500: 53 20 44 45 56 55 45 4C 56 45 20 41 20 27 42 55 |S DEVUELVE A 'BU|
00003510: 43 4C 45 27 21 22 3A 8D 36 33 30 30 30 00 44 3D |CLE'!":.63000.D=|
00003520: 9C 09 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00003530: 11 11 11 11 11 22 3A 81 49 B2 31 A4 36 3A 99 43 |.....":.I.1.6:.C|
00003540: 4C 24 3A 82 00 86 3D A6 09 99 22 13 11 11 11 11 |L$:...=...".....|
00003550: 11 11 11 11 11 11 11 11 11 11 11 11 11 4E 4F 54 |.............NOT|
00003560: 45 20 51 55 45 20 28 24 41 31 29 20 4E 4F 20 53 |E QUE ($A1) NO S|
00003570: 45 20 52 45 42 41 4C 53 41 20 1C 28 4F 56 45 52 |E REBALSA .(OVER|
00003580: 46 4C 4F 57 29 1F 00 BA 3D B0 09 99 22 44 45 53 |FLOW)...=..."DES|
00003590: 50 55 45 53 20 44 45 20 56 41 52 49 41 53 20 49 |PUES DE VARIAS I|
000035A0: 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 12 1C 49 |NSTRUCCIONES ..I|
000035B0: 4E 43 20 24 41 31 1F 92 2E 22 00 E0 3D BA 09 99 |NC $A1..."..=...|
000035C0: 22 91 43 4F 4D 4F 20 4C 41 20 4D 45 4D 4F 52 49 |".COMO LA MEMORI|
000035D0: 41 20 56 41 20 48 41 53 54 41 20 24 46 46 46 46 |A VA HASTA $FFFF|
000035E0: 00 0D 3E C4 09 99 22 1C 28 24 41 31 29 3C 3D 46 |..>...".($A1)<=F|
000035F0: 46 20 1F 53 45 52 41 20 53 49 45 4D 50 52 45 20 |F .SERA SIEMPRE |
00003600: 56 45 52 44 41 44 45 52 4F 2E 2E 2E 22 00 3E 3E |VERDADERO...".>>|
00003610: CE 09 99 22 41 20 4D 45 4E 4F 53 20 51 55 45 20 |..."A MENOS QUE |
00003620: 48 41 47 41 20 55 4E 20 45 52 52 4F 52 20 47 41 |HAGA UN ERROR GA|
00003630: 52 52 41 46 41 4C 22 3A 8D 36 33 30 30 30 00 6E |RRAFAL":.63000.n|
00003640: 3E D8 09 99 22 93 11 D1 50 41 52 41 20 49 4E 43 |>..."...PARA INC|
00003650: 52 45 4D 45 4E 54 41 52 20 4C 4F 53 20 43 4F 4E |REMENTAR LOS CON|
00003660: 54 45 4E 49 44 4F 53 20 44 45 20 4C 41 53 00 9D |TENIDOS DE LAS..|
00003670: 3E E2 09 99 22 20 44 49 52 45 43 43 49 4F 4E 45 |>..." DIRECCIONE|
00003680: 53 20 24 41 30 2F 24 41 31 20 45 4E 20 1C 24 30 |S $A0/$A1 EN .$0|
00003690: 31 30 30 1F 20 52 45 51 55 49 45 52 45 00 CA 3E |100. REQUIERE..>|
000036A0: EC 09 99 22 20 53 4F 4C 41 4D 45 4E 54 45 20 12 |..." SOLAMENTE .|
000036B0: 49 4E 43 20 24 41 31 92 2E 20 50 41 52 41 20 49 |INC $A1.. PARA I|
000036C0: 4E 43 52 45 4D 45 4E 54 41 52 00 F4 3E F6 09 99 |NCREMENTAR..>...|
000036D0: 22 20 45 4E 20 1C 24 30 30 30 31 1F 20 53 45 20 |" EN .$0001. SE |
000036E0: 48 41 43 45 20 44 45 20 45 53 54 41 20 4D 41 4E |HACE DE ESTA MAN|
000036F0: 45 52 41 3A 00 0C 3F 00 0A 99 22 11 1C 12 20 20 |ERA:..?..."... |
00003700: 20 20 20 2D 2D 2D 2D 2D 2D 2D 20 22 00 46 3F 0A | ------- ".F?.|
00003710: 0A 99 22 12 20 20 20 20 20 49 4E 43 20 24 41 30 |..". INC $A0|
00003720: 20 22 3A 99 22 12 20 20 20 20 20 42 4E 45 20 4E | ":.". BNE N|
00003730: 45 58 54 22 3A 99 22 12 20 20 20 20 20 49 4E 43 |EXT":.". INC|
00003740: 20 24 41 31 20 22 00 5C 3F 14 0A 99 22 12 4E 45 | $A1 ".\?...".NE|
00003750: 58 54 20 2D 2D 2D 2D 2D 2D 2D 20 22 00 7F 3F 1E |XT ------- "..?.|
00003760: 0A 99 22 11 D1 49 4E 43 20 24 41 30 1F 20 53 55 |.."..INC $A0. SU|
00003770: 4D 41 20 27 31 27 20 41 20 28 24 41 30 29 2E 00 |MA '1' A ($A0)..|
00003780: AD 3F 28 0A 99 22 20 43 4F 4E 54 49 4E 55 41 20 |.?(.." CONTINUA |
00003790: 4C 55 45 47 4F 20 41 20 4C 41 20 49 4E 53 54 52 |LUEGO A LA INSTR|
000037A0: 55 43 43 49 4F 4E 20 4E 45 58 54 2E 22 00 D7 3F |UCCION NEXT."..?|
000037B0: 32 0A 99 22 20 12 41 20 4D 45 4E 4F 53 20 51 55 |2.." .A MENOS QU|
000037C0: 45 20 53 45 20 52 45 42 41 4C 53 45 20 44 45 20 |E SE REBALSE DE |
000037D0: 46 46 20 41 20 30 30 00 08 40 3C 0A 99 22 11 D1 |FF A 00..@<.."..|
000037E0: 53 49 20 53 45 20 52 45 42 41 4C 53 41 20 41 20 |SI SE REBALSA A |
000037F0: 12 30 30 92 20 4C 41 20 4F 52 44 45 4E 20 1C 42 |.00. LA ORDEN .B|
00003800: 4E 45 20 4E 45 58 54 1F 00 2D 40 46 0A 99 22 20 |NE NEXT..-@F.." |
00003810: 4E 4F 20 53 45 20 43 55 4D 50 4C 49 52 41 2C 20 |NO SE CUMPLIRA, |
00003820: 50 4F 52 20 4C 4F 20 54 41 4E 54 4F 2C 00 57 40 |POR LO TANTO,.W@|
00003830: 50 0A 99 22 20 41 44 49 43 49 4F 4E 41 52 45 4D |P.." ADICIONAREM|
00003840: 4F 53 20 27 31 27 20 41 4C 20 42 59 54 45 20 41 |OS '1' AL BYTE A|
00003850: 4C 54 4F 20 43 4F 4E 00 72 40 5A 0A 99 22 20 12 |LTO CON.r@Z.." .|
00003860: 1C 49 4E 43 20 24 41 31 92 2E 22 3A 8D 36 33 30 |.INC $A1..":.630|
00003870: 30 30 00 9D 40 64 0A 99 22 93 11 D1 53 49 20 55 |00..@d.."...SI U|
00003880: 53 54 45 44 20 44 45 53 45 41 20 49 4E 43 52 45 |STED DESEA INCRE|
00003890: 4D 45 4E 54 41 52 20 45 4E 20 55 4E 22 00 C3 40 |MENTAR EN UN"..@|
000038A0: 6E 0A 99 22 20 56 41 4C 4F 52 20 44 49 53 54 49 |n.." VALOR DISTI|
000038B0: 4E 54 4F 20 41 20 24 30 30 30 31 20 4F 20 24 30 |NTO A $0001 O $0|
000038C0: 31 30 30 00 E4 40 73 0A 99 22 20 1C 28 12 49 4E |100..@s.." .(.IN|
000038D0: 43 20 24 41 30 92 20 4F 20 12 49 4E 43 20 24 41 |C $A0. O .INC $A|
000038E0: 31 92 29 22 00 0E 41 78 0A 99 22 20 1F 4E 45 43 |1.)"..Ax.." .NEC|
000038F0: 45 53 49 54 41 52 41 20 12 53 55 4D 41 52 92 20 |ESITARA .SUMAR. |
00003900: 45 4C 20 49 4E 43 52 45 4D 45 4E 54 4F 2E 00 38 |EL INCREMENTO..8|
00003910: 41 7D 0A 99 22 11 53 55 50 4F 4E 47 41 4D 4F 53 |A}..".SUPONGAMOS|
00003920: 20 51 55 45 20 51 55 45 52 45 4D 4F 53 20 53 55 | QUE QUEREMOS SU|
00003930: 4D 41 52 20 24 31 46 3A 00 5C 41 82 0A 99 22 1C |MAR $1F:.\A...".|
00003940: 11 12 4C 44 41 20 24 41 30 20 92 1F 5F 43 41 52 |..LDA $A0 .._CAR|
00003950: 47 45 20 42 59 54 45 20 42 41 4A 4F 00 86 41 8C |GE BYTE BAJO..A.|
00003960: 0A 99 22 1C 12 41 44 43 20 23 24 31 46 92 1F 5F |.."..ADC #$1F.._|
00003970: 53 55 4D 45 20 23 24 31 46 20 41 4C 20 42 59 54 |SUME #$1F AL BYT|
00003980: 45 20 42 41 4A 4F 00 A5 41 96 0A 99 22 1C 12 53 |E BAJO..A..."..S|
00003990: 54 41 20 24 41 30 20 92 5F 1F 44 45 56 55 45 4C |TA $A0 ._.DEVUEL|
000039A0: 56 41 4C 4F 22 00 C8 41 A0 0A 99 22 1C 12 4C 44 |VALO"..A..."..LD|
000039B0: 41 20 24 41 31 20 92 5F 1F 43 41 52 47 45 20 42 |A $A1 ._.CARGE B|
000039C0: 59 54 45 20 41 4C 54 4F 00 04 42 AA 0A 99 22 1C |YTE ALTO..B...".|
000039D0: 12 41 44 43 20 23 24 30 30 92 5F 53 55 4D 45 20 |.ADC #$00._SUME |
000039E0: 43 45 52 4F 28 3F 21 29 22 3A 99 22 12 1C 53 54 |CERO(?!)":."..ST|
000039F0: 41 20 24 41 31 20 92 5F 1F 44 45 56 55 45 4C 56 |A $A1 ._.DEVUELV|
00003A00: 41 4C 4F 22 00 2D 42 B4 0A 99 22 11 D1 45 4C 20 |ALO".-B..."..EL |
00003A10: 53 55 4D 41 52 20 23 24 31 46 20 50 55 45 44 45 |SUMAR #$1F PUEDE|
00003A20: 20 52 45 53 55 4C 54 41 52 20 51 55 45 00 58 42 | RESULTAR QUE.XB|
00003A30: BE 0A 99 22 20 45 4C 20 43 4F 4E 54 45 4E 49 44 |..." EL CONTENID|
00003A40: 4F 20 44 45 20 24 41 30 20 53 45 20 12 52 45 42 |O DE $A0 SE .REB|
00003A50: 41 4C 53 45 92 20 4C 4F 00 79 42 C8 0A 99 22 20 |ALSE. LO.yB..." |
00003A60: 51 55 45 20 4F 43 41 53 49 4F 4E 41 52 41 20 12 |QUE OCASIONARA .|
00003A70: 43 41 52 52 59 92 3D 31 2E 00 9E 42 CD 0A 99 22 |CARRY.=1...B..."|
00003A80: 20 45 4E 20 45 53 54 45 20 43 41 53 4F 20 53 45 | EN ESTE CASO SE|
00003A90: 20 53 55 4D 41 20 45 4C 20 43 41 52 52 59 00 C8 | SUMA EL CARRY..|
00003AA0: 42 D2 0A 99 22 20 41 20 28 24 41 31 29 20 43 4F |B..." A ($A1) CO|
00003AB0: 4E 20 12 4C 44 41 20 24 41 31 92 20 59 20 12 41 |N .LDA $A1. Y .A|
00003AC0: 44 43 20 23 24 30 30 22 00 0C 43 DC 0A 99 22 11 |DC #$00"..C...".|
00003AD0: 1C 4E 4F 54 41 11 9D 9D 9D 9D B8 B8 B8 B8 91 3A |.NOTA..........:|
00003AE0: 12 41 44 43 92 1F 20 53 49 47 4E 49 46 49 43 41 |.ADC.. SIGNIFICA|
00003AF0: 20 12 1C 41 44 92 1F 49 43 49 4F 4E 45 20 43 4F | ..AD..ICIONE CO|
00003B00: 4E 20 1C 12 43 92 1F 41 52 52 59 2E 00 17 43 E1 |N ..C..ARRY...C.|
00003B10: 0A 8D 36 33 30 30 30 00 4F 43 E6 0A 99 22 13 11 |..63000.OC..."..|
00003B20: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 81 |.............":.|
00003B30: 49 B2 31 A4 38 3A 99 43 4C 24 3A 82 3A 99 22 13 |I.1.8:.CL$:.:.".|
00003B40: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00003B50: 7E 43 F0 0A 99 22 D1 50 45 52 4F 2E 2E 2E 2E 20 |~C...".PERO.... |
00003B60: 45 4C 20 12 43 41 52 52 59 92 20 50 55 45 44 45 |EL .CARRY. PUEDE|
00003B70: 20 43 4F 4E 54 45 4E 45 52 20 12 31 92 22 00 AC | CONTENER .1."..|
00003B80: 43 FA 0A 99 22 20 41 4E 54 45 53 20 44 45 20 51 |C..." ANTES DE Q|
00003B90: 55 45 20 45 4D 50 49 45 43 45 20 45 53 54 45 20 |UE EMPIECE ESTE |
00003BA0: 50 52 4F 47 52 41 4D 41 21 21 21 22 00 DA 43 FF |PROGRAMA!!!"..C.|
00003BB0: 0A 99 22 11 54 45 4E 45 4D 4F 53 20 51 55 45 20 |..".TENEMOS QUE |
00003BC0: 4C 49 4D 50 49 41 52 20 28 43 4C 45 41 52 29 20 |LIMPIAR (CLEAR) |
00003BD0: 45 4C 20 43 41 52 52 59 3A 22 00 19 44 04 0B 99 |EL CARRY:"..D...|
00003BE0: 22 1C 53 49 45 4D 50 52 45 11 9D 9D 9D 9D 9D 9D |".SIEMPRE.......|
00003BF0: 9D B8 B8 B8 B8 B8 B8 B8 91 20 12 43 4C 43 92 1F |......... .CLC..|
00003C00: 20 41 4E 54 45 53 20 44 45 20 12 1C 41 44 43 92 | ANTES DE ..ADC.|
00003C10: 21 22 3A 8D 36 33 30 31 30 00 44 44 0E 0B 99 22 |!":.63010.DD..."|
00003C20: 13 11 11 11 11 11 11 11 12 90 43 4C 43 20 20 20 |..........CLC |
00003C30: 20 20 92 20 5F 20 5F 20 5F 20 5F 20 22 3A 8D 36 | . _ _ _ _ ":.6|
00003C40: 33 30 30 30 00 75 44 18 0B 99 22 93 50 41 52 41 |3000.uD...".PARA|
00003C50: 20 52 45 53 54 41 52 20 4F 20 12 53 55 42 53 54 | RESTAR O .SUBST|
00003C60: 52 41 45 52 92 20 12 23 24 31 46 92 20 48 41 52 |RAER. .#$1F. HAR|
00003C70: 45 4D 4F 53 3A 00 B0 44 22 0B 99 22 11 11 12 1C |EMOS:..D".."....|
00003C80: 4C 44 41 20 24 41 30 20 22 3A 99 22 12 53 42 43 |LDA $A0 ":.".SBC|
00003C90: 20 23 24 31 46 92 1F 5F 52 45 53 54 41 20 24 31 | #$1F.._RESTA $1|
00003CA0: 46 22 3A 99 22 1C 12 53 54 41 20 24 41 30 20 22 |F":."..STA $A0 "|
00003CB0: 00 EA 44 2C 0B 99 22 12 4C 44 41 20 24 41 31 20 |..D,..".LDA $A1 |
00003CC0: 22 3A 99 22 12 53 42 43 20 23 24 30 30 92 1F 5F |":.".SBC #$00.._|
00003CD0: 52 45 53 54 41 20 24 30 30 21 21 22 3A 99 22 12 |RESTA $00!!":.".|
00003CE0: 1C 53 54 41 20 24 41 31 20 22 00 33 45 36 0B 99 |.STA $A1 ".3E6..|
00003CF0: 22 11 4E 4F 54 41 11 9D 9D 9D 9D B8 B8 B8 B8 91 |".NOTA..........|
00003D00: 3A 12 53 42 43 92 20 1F 53 49 47 4E 49 46 49 43 |:.SBC. .SIGNIFIC|
00003D10: 41 20 1C 12 53 92 1F 55 12 1C 42 92 1F 53 54 52 |A ..S..U..B..STR|
00003D20: 41 45 52 20 43 4F 4E 20 12 1C 43 92 1F 41 52 52 |AER CON ..C..ARR|
00003D30: 59 2E 22 00 60 45 40 0B 99 22 11 1C 41 54 45 4E |Y.".`E@.."..ATEN|
00003D40: 43 49 4F 4E 1F 3A 43 4F 4E 20 12 53 42 43 92 20 |CION.:CON .SBC. |
00003D50: 48 41 59 20 51 55 45 20 54 45 4E 45 52 20 45 4C |HAY QUE TENER EL|
00003D60: 00 A2 45 4A 0B 99 22 11 43 41 52 52 59 3D 31 20 |..EJ..".CARRY=1 |
00003D70: 41 4E 54 45 53 20 44 45 20 45 4D 50 45 5A 41 52 |ANTES DE EMPEZAR|
00003D80: 21 21 22 3A 4D 53 24 B2 22 2A 3F 55 47 48 21 2A |!!":MS$."*?UGH!*|
00003D90: 3F 21 21 22 3A 8D 36 33 30 30 30 3A 8D 36 33 31 |?!!":.63000:.631|
00003DA0: 30 30 00 CC 45 54 0B 8D 36 33 30 31 30 3A 99 22 |00..ET..63010:."|
00003DB0: 13 11 11 12 90 53 45 43 20 20 20 20 20 92 20 5F |.....SEC . _|
00003DC0: 20 5F 20 5F 22 3A 8D 36 33 30 30 30 00 01 46 B8 | _ _":.63000..F.|
00003DD0: 0B 99 22 93 22 3A 4D 53 24 B2 22 12 20 20 41 44 |..".":MS$.". AD|
00003DE0: 49 4F 53 21 20 20 92 22 3A 8D 36 33 31 30 30 3A |IOS! .":.63100:|
00003DF0: 81 49 B2 31 A4 35 3A 8D 36 33 36 30 30 3A 82 3A |.I.1.5:.63600:.:|
00003E00: 80 00 0B 46 0F 27 89 39 39 39 39 00 35 46 40 9C |...F.'.9999.5F@.|
00003E10: 97 41 28 30 29 2C 33 32 3A 81 54 54 B2 31 A4 50 |.A(0),32:.TT.1.P|
00003E20: 50 3A 82 3A 81 49 B2 30 A4 36 3A 97 41 28 49 AA |P:.:.I.0.6:.A(I.|
00003E30: 31 29 2C 33 32 00 69 46 4A 9C 97 41 28 49 29 2C |1),32.iFJ..A(I),|
00003E40: C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 |.(.(N$,I.1,1)).4|
00003E50: 38 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 82 3A 97 |8:.TT.1.PP:.:.:.|
00003E60: 41 28 37 29 2C 34 38 3A 8E 00 89 46 54 9C 81 49 |A(7),48:...FT..I|
00003E70: B2 30 A4 37 3A 97 41 28 49 29 2C 31 36 30 3A 81 |.0.7:.A(I),160:.|
00003E80: 54 54 B2 31 A4 50 50 3A 82 00 A9 46 5E 9C 97 41 |TT.1.PP:...F^..A|
00003E90: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003EA0: 29 29 AA 34 38 3A 82 3A 8E 00 C9 46 68 9C 81 49 |)).48:.:...Fh..I|
00003EB0: B2 30 A4 37 3A 97 50 28 49 29 2C 31 36 30 3A 81 |.0.7:.P(I),160:.|
00003EC0: 54 54 B2 31 A4 50 50 3A 82 00 E9 46 72 9C 97 50 |TT.1.PP:...Fr..P|
00003ED0: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003EE0: 29 29 AA 34 38 3A 82 3A 8E 00 09 47 7C 9C 81 49 |)).48:.:...G|..I|
00003EF0: B2 30 A4 37 3A 97 58 28 49 29 2C 31 36 30 3A 81 |.0.7:.X(I),160:.|
00003F00: 54 54 B2 31 A4 50 50 3A 82 00 29 47 86 9C 97 58 |TT.1.PP:..)G...X|
00003F10: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003F20: 29 29 AA 34 38 3A 82 3A 8E 00 49 47 90 9C 81 49 |)).48:.:..IG...I|
00003F30: B2 30 A4 37 3A 97 59 28 49 29 2C 31 36 30 3A 81 |.0.7:.Y(I),160:.|
00003F40: 54 54 B2 31 A4 50 50 3A 82 00 69 47 9A 9C 97 59 |TT.1.PP:..iG...Y|
00003F50: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003F60: 29 29 AA 34 38 3A 82 3A 8E 00 89 47 A4 9C 81 49 |)).48:.:...G...I|
00003F70: B2 30 A4 37 3A 97 4D 28 49 29 2C 31 36 30 3A 81 |.0.7:.M(I),160:.|
00003F80: 54 54 B2 31 A4 50 50 3A 82 00 A9 47 AE 9C 97 4D |TT.1.PP:...G...M|
00003F90: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003FA0: 29 29 AA 34 38 3A 82 3A 8E 00 C9 47 B8 9C 81 49 |)).48:.:...G...I|
00003FB0: B2 30 A4 37 3A 97 50 28 49 29 2C 31 36 30 3A 81 |.0.7:.P(I),160:.|
00003FC0: 54 54 B2 31 A4 50 50 3A 82 00 DF 47 C2 9C 97 50 |TT.1.PP:...G...P|
00003FD0: 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A 8E 00 |(I),.(A(I)):.:..|
00003FE0: FF 47 CC 9C 81 49 B2 30 A4 37 3A 97 58 28 49 29 |.G...I.0.7:.X(I)|
00003FF0: 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 |,160:.TT.1.PP:..|
00004000: 15 48 D6 9C 97 58 28 49 29 2C C2 28 41 28 49 29 |.H...X(I),.(A(I)|
00004010: 29 3A 82 3A 8E 00 35 48 E0 9C 81 49 B2 30 A4 37 |):.:..5H...I.0.7|
00004020: 3A 97 59 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 |:.Y(I),160:.TT.1|
00004030: A4 50 50 3A 82 00 4B 48 EA 9C 97 59 28 49 29 2C |.PP:..KH...Y(I),|
00004040: C2 28 41 28 49 29 29 3A 82 3A 8E 00 6B 48 F4 9C |.(A(I)):.:..kH..|
00004050: 81 49 B2 30 A4 37 3A 97 4D 28 49 29 2C 31 36 30 |.I.0.7:.M(I),160|
00004060: 3A 81 54 54 B2 31 A4 50 50 3A 82 00 81 48 FE 9C |:.TT.1.PP:...H..|
00004070: 97 4D 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A |.M(I),.(A(I)):.:|
00004080: 8E 00 A1 48 08 9D 81 49 B2 30 A4 37 3A 97 41 28 |...H...I.0.7:.A(|
00004090: 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A |I),160:.TT.1.PP:|
000040A0: 82 00 B7 48 12 9D 97 41 28 49 29 2C C2 28 58 28 |...H...A(I),.(X(|
000040B0: 49 29 29 3A 82 3A 8E 00 D7 48 1C 9D 81 49 B2 30 |I)):.:...H...I.0|
000040C0: A4 37 3A 97 4D 28 49 29 2C 31 36 30 3A 81 54 54 |.7:.M(I),160:.TT|
000040D0: B2 31 A4 50 50 3A 82 00 ED 48 26 9D 97 4D 28 49 |.1.PP:...H&..M(I|
000040E0: 29 2C C2 28 58 28 49 29 29 3A 82 3A 8E 00 0D 49 |),.(X(I)):.:...I|
000040F0: 30 9D 81 49 B2 30 A4 37 3A 97 41 28 49 29 2C 31 |0..I.0.7:.A(I),1|
00004100: 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 23 49 |60:.TT.1.PP:..#I|
00004110: 3A 9D 97 41 28 49 29 2C C2 28 59 28 49 29 29 3A |:..A(I),.(Y(I)):|
00004120: 82 3A 8E 00 43 49 44 9D 81 49 B2 30 A4 37 3A 97 |.:..CID..I.0.7:.|
00004130: 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |M(I),160:.TT.1.P|
00004140: 50 3A 82 00 59 49 4E 9D 97 4D 28 49 29 2C C2 28 |P:..YIN..M(I),.(|
00004150: 59 28 49 29 29 3A 82 3A 8E 00 98 49 60 EA 52 24 |Y(I)):.:...I`.R$|
00004160: B2 22 B0 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 |."..............|
00004170: B2 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00004180: 9D 9D 9D 9D 9D DD A0 DD A0 DD A0 DD A0 DD A0 DD |................|
00004190: A0 DD A0 DD A0 DD 11 22 00 C7 49 61 EA 52 24 B2 |......."..Ia.R$.|
000041A0: 52 24 AA 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |R$."............|
000041B0: 9D 9D 9D 9D 9D AD C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000041C0: C0 B1 C0 B1 C0 BD 22 00 FE 49 62 EA 41 24 B2 22 |......"..Ib.A$."|
000041D0: 13 11 20 12 41 92 91 22 AA 52 24 3A 50 24 B2 22 |.. .A..".R$:P$."|
000041E0: 13 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000041F0: 1D 1D 1D 1D 1D 1D 12 50 92 91 22 AA 52 24 00 3C |.......P..".R$.<|
00004200: 4A 63 EA 58 24 B2 22 13 11 11 11 11 20 12 58 92 |Jc.X$."..... .X.|
00004210: 91 22 AA 52 24 3A 59 24 B2 22 13 11 11 11 11 1D |.".R$:Y$."......|
00004220: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004230: 1D 1D 1D 1D 12 59 92 91 22 AA 52 24 00 6A 4A 64 |.....Y..".R$.jJd|
00004240: EA 4D 24 B2 22 13 11 11 11 11 11 11 11 1D 1D 1D |.M$."...........|
00004250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004260: 1D 1D 12 4D 92 91 22 AA 52 24 00 8D 4A 65 EA 43 |...M..".R$..Je.C|
00004270: 52 24 B2 22 13 11 11 11 11 11 11 B0 C0 AE 11 9D |R$."............|
00004280: 9D 9D DD 1D DD 11 9D 9D 9D AD C0 BD 22 00 CD 4A |............"..J|
00004290: 66 EA 43 43 24 B2 22 13 11 20 12 41 92 DD 11 9D |f.CC$.".. .A....|
000042A0: 9D 9D 20 11 9D 20 11 9D 20 11 9D 20 11 9D 20 20 |.. .. .. .. .. |
000042B0: 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 20 20 91 | .... .... .|
000042C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 E8 4A | "..J|
000042D0: 67 EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 |g.WD.40:CRT.1024|
000042E0: 3A 99 C7 28 31 34 32 29 00 2E 4B 68 EA 81 49 B2 |:..(142)..Kh..I.|
000042F0: 30 A4 37 3A 41 28 49 29 B2 43 52 54 AA 57 44 AA |0.7:A(I).CRT.WD.|
00004300: 33 AA 32 AC 49 3A 50 28 49 29 B2 41 28 49 29 AA |3.2.I:P(I).A(I).|
00004310: 32 30 3A 58 28 49 29 B2 41 28 49 29 AA 33 AC 57 |20:X(I).A(I).3.W|
00004320: 44 3A 59 28 49 29 B2 58 28 49 29 AA 32 30 00 50 |D:Y(I).X(I).20.P|
00004330: 4B 69 EA 4D 28 49 29 B2 59 28 49 29 AA 33 AC 57 |Ki.M(I).Y(I).3.W|
00004340: 44 3A 82 3A 43 B2 43 52 54 AA 37 AC 57 44 AA 31 |D:.:C.CRT.7.WD.1|
00004350: 00 84 4B 6A EA 53 44 24 B2 22 13 11 11 11 11 11 |..Kj.SD$."......|
00004360: 11 11 11 11 22 3A 43 4C 24 B2 22 22 3A 81 49 B2 |....":CL$."":.I.|
00004370: 31 A4 57 44 AB 32 3A 43 4C 24 B2 43 4C 24 AA 22 |1.WD.2:CL$.CL$."|
00004380: 20 22 3A 82 00 A6 4B 6B EA 42 54 24 B2 22 13 22 | ":...Kk.BT$."."|
00004390: 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 24 |:.I.1.24:BT$.BT$|
000043A0: AA 22 11 22 3A 82 00 D9 4B 6C EA 43 24 B2 43 52 |.".":...Kl.C$.CR|
000043B0: 24 AA 22 13 11 B0 C0 B3 11 9D 9D 9D DD 11 9D DD |$.".............|
000043C0: 11 9D DD 11 9D DD 11 9D AB 11 1D 1D 1D 1D 5F 43 |.............._C|
000043D0: 41 52 52 59 20 42 49 54 22 00 09 4C 73 EA 4D 4C |ARRY BIT"..Ls.ML|
000043E0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D 1D |$.".............|
000043F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004400: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 13 4C 74 EA 50 50 |........"..Lt.PP|
00004410: B2 32 30 00 35 4C 93 EA 42 54 24 B2 22 13 22 3A |.20.5L..BT$.".":|
00004420: 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 24 AA |.I.1.24:BT$.BT$.|
00004430: 22 11 22 3A 82 00 7F 4C 94 EA 50 54 24 B2 22 1C |".":...L..PT$.".|
00004440: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D 9D |................|
00004450: 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D 1D |................|
00004460: 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00004470: 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 00 |..............".|
00004480: C7 4C 95 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D |.L..PT$.PT$."...|
00004490: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 A3 |................|
000044A0: A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D 9D |................|
000044B0: 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D 3D |.........=======|
000044C0: 3D 3D 3D 3D 3D A7 22 00 03 4D 96 EA 50 54 24 B2 |=====."..M..PT$.|
000044D0: 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |PT$."...........|
000044E0: 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000044F0: D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00004500: 9D 9D 22 00 3A 4D 97 EA 50 54 24 B2 42 54 24 AA |..".:M..PT$.BT$.|
00004510: 22 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00004520: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004530: 1D 22 AA 50 54 24 AA 22 1F 22 00 6A 4D 98 EA 4D |.".PT$.".".jM..M|
00004540: 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D |L$."............|
00004550: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004560: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 85 4D 99 EA 57 |........."..M..W|
00004570: 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 3A 99 C7 |D.40:CRT.1024:..|
00004580: 28 31 34 32 29 00 A9 4D 9A EA 57 32 B2 57 44 AD |(142)..M..W2.WD.|
00004590: 32 3A 57 33 B2 57 44 AB 31 3A 57 31 24 B2 CA 28 |2:W3.WD.1:W1$..(|
000045A0: C4 28 57 44 29 2C 32 29 3A 00 CB 4D 9B EA 57 32 |.(WD),2):..M..W2|
000045B0: 24 B2 CA 28 C4 28 57 32 29 2C 32 29 3A 57 33 24 |$..(.(W2),2):W3$|
000045C0: B2 CA 28 C4 28 57 33 29 2C 32 29 00 D1 4D C4 EA |..(.(W3),2)..M..|
000045D0: 8E 00 DE 4D 18 F6 99 42 54 24 43 4C 24 3B 00 14 |...M...BT$CL$;..|
000045E0: 4E 19 F6 99 42 54 24 22 12 1F 52 45 54 55 52 4E |N...BT$"..RETURN|
000045F0: 92 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 |. PARA CONTINUAR|
00004600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004610: 20 20 22 3B 00 2A 4E 1A F6 A1 5A 24 3A 8B 5A 24 | ";.*N...Z$:.Z$|
00004620: B3 B1 22 22 A7 36 33 30 30 32 00 3F 4E 1B F6 A1 |.."".63002.?N...|
00004630: 5A 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 30 33 00 |Z$:.Z$."".63003.|
00004640: 45 4E 1C F6 8E 00 52 4E 22 F6 99 42 54 24 43 4C |EN....RN"..BT$CL|
00004650: 24 3B 00 87 4E 23 F6 99 42 54 24 22 20 12 1C 20 |$;..N#..BT$" .. |
00004660: 20 20 20 20 20 52 45 54 55 52 4E 20 50 41 52 41 | RETURN PARA|
00004670: 20 56 45 52 20 4C 41 20 41 43 43 49 4F 4E 20 20 | VER LA ACCION |
00004680: 20 20 20 20 20 22 3B 00 9D 4E 24 F6 A1 5A 24 3A | ";..N$..Z$:|
00004690: 8B 5A 24 B3 B1 22 22 A7 36 33 30 31 32 00 B2 4E |.Z$.."".63012..N|
000046A0: 25 F6 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 |%..Z$:.Z$."".630|
000046B0: 31 33 00 B8 4E 26 F6 8E 00 D3 4E 7C F6 8D 36 33 |13..N&....N|..63|
000046C0: 36 30 30 3A 81 54 B2 31 A4 35 3A 99 50 54 24 4D |600:.T.1.5:.PT$M|
000046D0: 53 24 3B 00 E9 4E 7D F6 99 50 54 24 22 20 20 20 |S$;..N}..PT$" |
000046E0: 20 20 20 20 20 20 20 22 3B 00 F8 4E 7E F6 99 50 | ";..N~..P|
000046F0: 54 24 4D 53 24 3B 3A 82 00 FE 4E 7F F6 8E 00 09 |T$MS$;:...N.....|
00004700: 4F E0 F6 8D 36 33 30 30 30 00 2A 4F E1 F6 99 53 |O...63000.*O...S|
00004710: 44 24 3B 3A 81 54 B2 31 A4 31 30 3A 99 43 4C 24 |D$;:.T.1.10:.CL$|
00004720: 3A 82 3A 99 53 44 24 3B 3A 8E 00 3E 4F 44 F7 8D |:.:.SD$;:..>OD..|
00004730: 36 33 31 30 30 3A 8D 36 33 30 31 30 3A 8E 00 75 |63100:.63010:..u|
00004740: 4F 70 F8 97 35 34 32 39 36 2C 31 35 3A 97 35 34 |Op..54296,15:.54|
00004750: 32 37 38 2C 32 34 30 3A 97 35 34 32 37 36 2C 31 |278,240:.54276,1|
00004760: 37 3A 97 35 34 32 37 33 2C 31 30 30 AA 31 30 30 |7:.54273,100.100|
00004770: AC BB 28 30 29 00 99 4F 72 F8 81 49 58 B2 31 A4 |..(0)..Or..IX.1.|
00004780: 31 30 30 3A 82 3A 97 35 34 32 37 33 2C 30 3A 97 |100:.:.54273,0:.|
00004790: 35 34 32 39 36 2C 30 3A 8E 00 C7 4F D4 F8 97 35 |54296,0:...O...5|
000047A0: 34 32 39 36 2C 31 35 3A 97 35 34 32 37 38 2C 32 |4296,15:.54278,2|
000047B0: 34 30 3A 97 35 34 32 37 36 2C 31 37 3A 97 35 34 |40:.54276,17:.54|
000047C0: 32 37 33 2C 31 34 31 00 DC 4F D5 F8 A1 58 24 3A |273,141..O...X$:|
000047D0: 8B 58 24 B2 22 22 A7 36 33 37 30 31 00 17 50 D6 |.X$."".63701..P.|
000047E0: F8 97 35 34 32 37 33 2C 30 3A 99 22 93 53 41 56 |..54273,0:.".SAV|
000047F0: 45 22 C7 28 33 34 29 22 43 2E 4D 41 51 55 49 4E |E".(34)"C.MAQUIN|
00004800: 41 20 33 22 C7 28 33 34 29 22 3A 47 4F 54 4F 36 |A 3".(34)":GOTO6|
00004810: 33 37 30 30 22 3A 80 00 2D 50 FF F9 8D 36 30 30 |3700":..-P...600|
00004820: 30 30 3A 99 22 93 22 3A 89 31 36 33 30 00 00 00 |00:.".":.1630...|
..$...."......(C) 1983 HORA SOFTWARE.1..
..".......I.... SAVE"ML3.ES.J1",8.F....5
3281,15:.53280,12:.".".N...."......."...
....................................."..
....". .. CODIGO MAQUINA 6510
.. .":MS$."BIENVENIDO"......".......
..................................".,...
.60000:.63100:.63000._...."... LA UNID
AD MICRO PROCESADORA (MPU) "... .."..
EN EL COMMODORE-64 ES EL .6510.."...!.."
.ELLA (EL?) OBEDECERA SUS ORDENES..."...
"..".SOLO SI USTED LE HABLA EN SU LENGUA
JE....#..".ES DECIR, EL .. LENGUAJE MAQU
INA ...9.$.."...EN ESTA LECCION APRENDER
EMOS ALGO.T.%..".DE LENGUAJE MAQUINA._.'
..63000...(.."... EL 6510
"...-.."...QEL 6510 TIEN
E UN ALGUNOS REGISTROS...2.." INTERNOS L
OS CUALES CONTIENEN BYTES...<.." CON IN
FORMACION DE $00 A $FF (EN HEX)..E.A..".
..QTRES DE ESTOS REGISTROS SE LLAMAN:.J.
B.." . 'A' . , . 'X' . E . 'Y' .."...F..
"...QUSTED PUDE CARGAR NUMEROS EN ESTOS.
D.P.." REGISTROS, PUDE SUMAR, RESTAR, PR
OBAR...Z.." SI ES CERO, COMPARAR MAYOR Q
UE >...D.." O MENOR QUE < OTRO NUMERO ET
C., ETC..#.N..63000.2.X.."."A$X$Y$.Y....
SD$"A CONTINUCION ALGUNAS ORDENES.X...."
.DE MI REPERTORIO:":M8.5......63200... .
.".LDA #$F3......"..L.OA.D. CARGUE EL .A
.CUMULADOR CON......".EL NUMERO F3 EN HE
X..#$F3......".ESTA ES UNA CARGA ..INMED
IATA....?.H.MS$." A=#$F3 ":.63300:N$."
11110011":.40020:.63200.H.R..".LDX #$AB"
:MS$." X=#$AB ":.63300.....N$."1010101
1":.40060:.63200.F....".LDY #$DD":MS$."
Y=#$DD ":.63300:N$."11011101":.40080..
....63200:.".TAX":."..T.RANSFIERE EL CON
TENIDO DE .A. A .X.."./...MS$." X=A
":.63300:.40140:.63200.V....".TYA":."..
T.RANSFIERE EL CONTENIDO DE .Y. A .A..":
MS$." A=Y "......63300:.40240:.63200.
....."..TAMBIEN EXISTE .TXA. Y .TAY..".Z
."..".TODAVIA MAS.:":.63300:.63200...,..
".INX.":."..IN.CREMENTA EL REGISTRO-.X.
EN 1.":MS$." X=X+1 ".F.6..63300:N$."1
0101100":.40060:.63200...@..".DEX.":."..
DE.CREMENTA EL REGISTRO-.X. EN 1":MS$."
X=X-1 "...J..63300:N$."10101011":.4006
0:.63200...T.."TAMBIEN EXISTE .INY. Y .D
EY..":.63200...^..M$:N$."10110101":PP.40
:.40100:.ML$"$1234":PP.40.R.H..SD$".INC
$1234.":."..INC.REMENTA LA LOCACION MEMO
RIA $1234"...R.MS$." M=M+1 ":.63300:N$
."10110110":.40100:.63200.G.|..".DEC $12
34.":."..DEC.REMENTA LA LOCACION MEMORIA
$1234".....MS$." M=M-1 ":.63300:N$."
10110101":.40100:.63200.+....".ASL.":.".
.A.RITHMETIC .S.HIFT .L.EFT.V....".MUEVE
EL .A.CUMULADOR A LA IQUIERDA.X....".UN
'0' SE PONE EN EL 'LSB'......".Y EL 'MS
B' CAE EN EL 'CARRY'.......".QLSB=BIT -
SIGNIFICATIVO...B..".QMSB=BIT + SIGNIFIC
ATIVO...L.MS$." A=2*A ":.63300.0.V..C
$:.C,49:N$."10111010":PP.500:.40000:.632
00:PP.40.?....CC$:.C,32.J....SD$"..SEC."
:."..SE.T EL .C.ARRY BIT."......".TOMA E
L BIT DE ACARREO......CR$:MS$." CARRY=1
":.63300:.C,49:.63200......SD$"..CLC.":
."..CL.EAR .C.ARRY BIT.":MS$." CARRY=0
".#...."..BORRA. EL BIT DE ACARREO:MS$="
CARRY.0 ".E....63300:.CR$:.C,48:.63200
:.CC$.}.&..".STA $1234.":."..ST.ORE (GU
ARDE) EL .A.CUMULADOR...0..".EN EL LUGAR
DE MEMORIA $1234":MS$." M=A ":.633
00.Z.:.N$."10111010":.40180:.63000...D..
"... A TRABAJAR
".6.F.."....AHORA HAREMOS UN EJERCIC
IO QUE.^.H..".CONSISTIRA EN BORRAR LA PA
NTALLA...J..".(EN CODIGO MAQUINA)":.6300
0...B.."...LDA #$20 _CARGA A CON #$20='
ESPACIO'....L.."STA $0400 I":."STA $0401
._LLENA MEMORIA...V.."STA $0402 ._PANTA
LLA CON #$20..J...."--- ----- .---------
-------":."STA $07FF K_Y BORRA LA PANTAL
LA.O...."...QSOLUCION LARGA Y ENGORROSA.
....." NOSOTROS NECESITAMOS CLARAMENTE..
...." UN BUCLE COMO ESTE:.E...:."...LDA
#$20"......".FOR. X=0 .TO. #$3FF":."STA
$0400+X":.".NEXT X.":.63000.6...."...
BUCLES EN CODIGO MAQUINA ".E
. ..".BEGIN. LDA #$20 _NOTE LA ETIQUETA
BEGIN. ...." LDX #$00":."BUCLE STA
$0400,X _.CARGA INDEXADA.K...." ^ INX
":." . ?COMPARA X=#$3FF?......" ..
SI NO,GOTO 'BUCLE'......"..NOS FALTAN LA
S INSTRUCCIONES .COMPARE.=.A.."Y .VAYA A
. EN INGLES: 'BRANCH'.M.F.."...LO QUE NO
SOTROS NECESITAMOS ARRIBA ES:...K.."..C.
OM.P.ARE .X. A #$3FF.E.P.."Y .B.RANCH SI
.N.O ES .E. IGUAL..A 'BUCLE'":.63010...
Z.."....BEGIN LDA #$20 .
".(....". LDX #$00 ":.".BU
CLE STA $0400,X".O....". ^ INX
":.". . CPX #$3FF .
". ....". .. BNE BUCLE .
":.63200.U...."NOTA..........:NU
NCA VAMOS A .STA. EN .$07FF."......".EN
ESTE PROGRAMA...ENTONCES...":.63010.+...
."........ . CPX #$400 ":.63200.W. .
."SE PUEDE COMPARAR .CPX #$N. SOLO SI N.
|.*..".SE ENCUENTRA ENTRE $00 Y $FF....4
..".CAMBIAMOS ENTONCES EL PROGRAMA A:":.
63010.K.>.."....BEGIN LDA #$20 ."...H.
.". LDX #$00 ":.".BUCLE STA $0400
,X"...R..". STA $0500,X.-.\..".
STA $0600,X.F.F..". STA $0700,X.V
.P..". INX ":.". CPX #$
FF ....Z..". BNE BUCLE .":.63000
.C....SD$"....";:.T.1.10:.CL$:.:.SD$"...
.";......"PODEMOS SIMPLIFICAR ESTO UN PO
CO.*....".SI CONTAMOS DE .ARRIBA ABAJO."
:.".DE X=$FF A $00":.63010.H...."....BEG
IN LDA #$20 .".W....". LDX #$FF
":.".BUCLE STA $0400,X......". STA
$0500,X......". STA $0600,X.B.J.."
. STA $0700,X...T..". DEX
"......". BNE BUCLE .":."
":.63000.@....SD$"....";:.T
.1.10:.CL$:.:.SD$"....";.K...."...COMO S
E HA HECHO LA CONEXION .BNE......".SI NO
HA HABIDO NADA QUE .COMPARAR.?":.63000.
R...."... BNE
"......"..VEA USTED, ..BNE.. RE
VISA EL REGISTRO.)...."Y SI EL RESULTADO
DE UNA OPERACION.W...."ARITMETICA (.COM
PARE. INCLUIDA) ES CERO.U....".LA CONEXI
ON SE EFECTUA......"...EN EL PAR DE INST
RUCCIONES:......"..CPX #$FF ":.".BNE BUC
LE":.".SE SUBSTRAE #$FF DEL VALOR DE X..
....".Y ..BRANCH.. A BUCLE SI.'.$..".EL
RESULTADO .NO. ES CERO!":.63000.G...."..
INX ":.".BNE BUCLE.S.8..".LA CONEXI
ON A BUCLE SE EFECTUA SI EL...B.."RESULT
ADO DE .INC.REMENTAR .X. .NO. ES CERO..G
.L.."...DEC $1234":.".BNE BUCLE...V..".A
QUI CONECTAMOS A BUCLE SI AL.!.`..".DEC.
REMENTAR $1234 EL RESULTADO":."NO ES CER
O.K.J.."....NOTA.: .CPX. IMPLICA UNA RE
STA.T.T.."(PARA VER SI EL RESULTADO ES C
ERO)...~.."PERO NO CAMBIA NINGUN REGISTR
O!":.63000.U..."... OTRO EJE
RCICIO "......".....AHORA V
AMOS A VOLVER LA.. ..."..PANTALLA AL REV
ES":.63000.G ..."...PARA ESTO NECESITAMO
S MIRAR EN CADA.N ..."UNO DE LOS LUGARES
DE LA MEMORIA.. ..."PANTALLA Y REVISAR
EL ..MSB.... ..."..SI EL MSB ES .1. CAMB
IELO A .0.... ...".SE EL MSB ES .0. CAMB
IELO A .1....!..."..(EL MSB DETERMINA SI
EL CARACTER.+!..."ESTA EN CAMPO REVERTI
DO).H!#.."...ESCRIBIREMOS AHORA:..!(..".
.LDA $0400,X":.".EOR #$80 .. __???":."
..STA $0400,X"..!2.."...EOR.. ES UN .O.R
.E.XCLUSIVO!":.63000..!<..".SI .A. CONT
IENE ..10110101.. (DESPUES DE .LDA.)".."
F.."..EOR #$80. EFECTUA UN OR-EXCLUSIVO"
.="P..".CON ..10000000.. ($80 EN HEX).["
Z..".Y RESULTA ..00110101...~"D..".NUEST
RO PROGRAMA SERA AHORA.."N.."..BEGIN LDX
#$FF ":.".BUCLE LDA $0400,X".."X..".
EOR #$80 ":.". STA $0400,X".
.#...". LDA $0500,X":.". EOR #
$80 ".@#...". STA $0500,X":.".ETC
. ETC..HASTA...".Y#...". STA $0700,
X..# ..". DEX ":.". BNE
BUCLE ":.63000..#..."..QESTO NO VA A F
UNCIONAR SI QUEREMOS"..#..." IR DE $0400
A $0500 O A $0N00..$..." EN VEZ DE SIMP
LEMENTE A $0700..5$H.."..QNECESITAMOS UN
BUCLE DENTRO DE OTRO.S$R.." BUCLE. ALGO
COMO ESTO:..$..."...... M=$0400":."
X=N .R\ N EN VEZ DE 3".C$...".L
P1 Y=#$FF":."LP2 LDA M+Y":." EOR #
$80..$..." STA M+Y":." Y=Y-1..%.
.." IFY<>0 GOTO LP2 ":..'%..." I
FX<>0 GOTO LP1 ":.63000.[%..."..........
..........".21)"_.NO FUNCIONA Y=0.!..%..
.".".21)"_.NO FUNCIONA X=0.!.":.63000..%
...".";:.I.1.10:.CL$:.:.".LO CAMBIAREMOS
A:"..%...63010:.".. M=$0400":."
X=N" ".1&...".LP1 Y
=#$00 ":."LP2 LDA M+Y":."
EOR #$80".G&..." STA M+Y":." Y=Y
-1 "..&..." IF Y<
>0 GOTO LP2 ":." M=M+$100":." X=
X-1"..&...". IFX>=0 GOTO LP1 .":.630
00:."............."CL$..'..."AL PRINCIPI
O M=M+00. AL EFECTUAR .Y=Y-1.".='..."SE
CAMBIA. Y=00. POR. Y=FF.. DESPUES ".M'
..."BAJAMOS DE. M+FF. A .M+FE...HASTA. M
+01."..'..."PARANDO AQUI DEL BUCLE Y!
"CL$CL$.T'...".EL BUCLE X EMP
IEZA CON X=N Y CADA ..X=X-1"..(...".REDU
CE X A. N-1,N-2,..2,1,0 ..HASTA. QUE UN"
.:(...".X=X-1. ADICIONAL CAMBIA X A .FF(
!). QUE ".R(..."ES .NEGATIVO.(!) TERMIN
ANDO EL BUCLE X!":.:.63000..(...".......
......"CL$:.".NOTA.:
"..(..."LOS REGISTROS DEL 6
510 PUEDEN CONTENER..)..."UN NUMERO COMP
RENDIDO ENTRE $.00. Y .$FF.."CL$.\)..."E
L DECREMENTO DE LA MEMORIA QUE TIENE .
$00. RESULTA ..FF....B)..:. )..."AL REVE
S, INCREMENTANDO ..FF+1.. RESULTA ..00..
"CL$" ".S)..."FINALMENTE SI ..MSB=1.. S
IGNIFICA QUE "..*..."EL NUMERO ES .
.NEGATIVO .! ";:.63000./*
..."..TRATEMOS ALGO COMO ESTO:".A*..."..
.BEGIN LDA #$0400 ._.? #$0400 MUY GRANDE
"..*...".. STA $A0 ._.$A0 TIENE
#$0400"..*...".. LDX #$03 ":.".LP
1 LDY #$00 "..+"..".LP2 LDA ($A0),
Y._. INDEX INDIRECTO?":.".. EOR #$8
0 ".J+,..". STA ($A0),Y._. INDEX
INDIRECTO!":.".. DEY "..+6..
". BNE LP2 ":.". INC $A0 EN
#$100._.?? !!COMO ??".R+@..".. DEX
":.". BPL LP1 ._.BRANCH
ON PLUS!!"..+J.."...LDA ($A0),Y. TOMA EL
CONTENIDO DE ".4,T..".LA MEMORIA $A0, A
GREGA .Y., Y ESTO..........".B,Y..".NOS
DA LA DIRECCION DEL BYTE QUE SERA"..,Z..
".CARGADO EN EL REGISTRO .'A'!!":.63000.
B,^.."... NUEVAS IDEAS NUEVOS PROBL
EMAS "..,C.."....DEJEMOS EN CLARO QU
E NOSOTROS..-D.."USAREMOS .$A0. PARA REF
ERIRNOS./-E.."A UN LUGAR EN LA MEMORIA".
Z-F..".Y A .($A0). -ENTRE PARENTESIS- PA
RA..-G.."REFERIRNOS AL CONTENIDO DE LA":
."MEMORIA UBICADA EN $A0.".V-H.."..... V
EAMOS LOS MODOS DE DIRECCIONAMIENTO .:":
.63000...R.."... BASIC ASSE
MBLER ".&.|..".A=5.".20)".LDA
#$05.".N...."..QMODO INMEDIATO. EL ACUMU
LADOR".O...." SE CARGA CON EL NUMERO 5".
....."...A=M(5).".20)".LDA $05."......".
.QDIRECCION ABSOLUTA. 'A' SE".W...." CAR
GA CON EL CONTENIDO DE"......" LA MEMORI
A DE DIRECCION 5"../B.."...A=M(5+X).".20
)".LDA $0005,X.J/L.."..QDIRECCION .INDEX
ADA.. EL CONTENIDO.S/V.." DEL LUGAR (5+X
) SE CARGAN EN 'A'.../..."...A=M(M(5+X))
.".20)".LDA ($0005,X).J/..."..QINDEXADO
.INDIRECTO.. EL CONTENIDO"../..." DEL LU
GAR (5+X) DA LA DIRECCION". 0..." DEL BY
TE A SER CARGADO EN 'A'.":.63000.S0...".
.. DE NUEVO NUESTRO AMIGO
".{0..."...A=M(M(5)+Y).".20)".LDA ($05
),Y..0..."...Q.INDEXADO INDIRECTO.. PRIM
ERO.H0&.."SE EXTRAE EL CONTENIDO DE LA "
..0+.."MEMORIA DE DIRECCION 5...1,.."..L
UEGO SE ADICIONA 'Y'".*10.."..EL RESULTA
DO DA LA DIRECCION.Q1:.."DEL BYTE CARGAD
O EN 'A'.":.63000..1D.."..Q.INDIRECTO..
SIGNIFICA QUE VAMOS A UNA"..1N.." DIRECC
ION EN LA MEMORIA PARA BUSCAR..1X.." LA
DIRECCION DEL BYTE A CARGARSE EN":." EL
ACUMULADOR"..2B.."..Q.INDEXADO.. SIGNIFI
CA QUE ADICIONAMOS".K2L.." EL CONTENIDO
DE UN REGISTRO DEL .6510. ".C2Q.." A UNA
DIRECCION"..2V.."..QSI .INDEXAMOS. Y LU
EGO .INDIRECTO. SERA:"..2...".. INDEXADO
INDIRECTO.S2...". COMO EN ..LDA ($0400,
X)"..2..."...QSI PRIMERO ES .INDIRECTO.
Y LUEGO..3..." INDEXADO. SERA".33..." ..
INDIRECTO INDEXADO..Y3..." .COMO EN ..LD
A ($A0),Y":.63000.|3..MS$."CLARO?!*$&":.
63100:.63000..3..."... ALGO SOB
RE LA MEMORIA "..3...".QLA INSTR
UCCIONES DEL 6510 SE GUARDAN..4..." EN L
A MEMORIA EN 1- , 2- O 3- BYTES.".94F.."
...INX.=.E8.. TIENE SOLO UN BYTE DE LARG
O.F4P.."... LDA #$05.=.AD 05.. ES DE DOS
BYTES..4Z.."...LDA $1234,X.=.BD 34 12..
TIENE 3 BYTES."..4..." ^^
^^"..4..."DIRECCIONES DE 2-BYTES ESTAN
EN GENERAL"..5..."ALMACENADAS AL REVES E
N LA MEMORIA".?5..."PRIMERO ..BYTE BAJO.
. LUEGO ..BYTE ALTO...".Y5...".ENTONCES
AL TENER:..5..."..LDA ($A0),Y.=.A1 CA..
EL 6510 VA A TOMAR DE..5 ..".$A0. EL .BY
TE BAJO. DE LA DIRECCION.Z5*.."Y DE. $A1
. EL .BYTE ALTO.!"..64..".QASEGURESE DE
PONER AMBOS BYTES EN.>6>..".$A0/A1 .ANTE
S DE EFECTUAR ..LDA ($A0),Y.!!":.63000.Q
6H.."... VOLVAMOS A
"..6R.."...BEGIN LDA #$0400 ._.?
#$0400 MUY GRANDE".P6\..".. STA $A
0 ._.$A0 TIENE #$0400..7F..".. L
DX #$03 ":.".LP1 LDY #$00 ".F7P.."
.LP2 LDA ($A0),Y._. INDEX INDIRECTO?":
.".. EOR #$80 "..7Z..". STA
($A0),Y._. INDEX INDIRECTO!":.".. D
EY ".O7...". BNE LP2 ":."
. INC $A0 EN #$100._.?? !!COMO ??".
.8...".. DEX ":.". BPL
LP1 ._.BRANCH ON PLUS!!".=8..."..AHOR
A PONDREMOS $0400 EN $A0/$A1".T8..."CON
..LDA #$00. .STA $A0. .LDA #$04. .STA $A
1.."..8..."..TAMBIEN .INC $A0 POR #$100.
SE CAMBIA POR:".X8..."..INC $A1..... SO
LO NECESITAMOS .INC. EL"..8..."BYTE ALTO
EN '1'!":.63000.+9J.."... CAMBIARE
MOS NUESTO PROGRAMA A: ".]9T.."..BEGI
N LDA #$00 .":.". STA $A0 "..9
...". LDA #$04 ":.". STA $A1
"..9...". LDX #$03 ":.".LP1
LDY #$00 "..9...".LP2 LDA ($A0),Y."
:.". EOR #$80 "..:...". STA
($A0),Y.":.". DEY ".O:...".
BNE LP2 ":.". INC $A1 ".
.:...". DEX ":.". BPL L
P1 .":.63000.C:..."..................
NO HAY NECESIDAD DE .LDY #$00. CADA..;$.
.".VEZ QUE EFECTUAMOS .BPL LP1":.".Y=YA
VALE CERO:":.63010.9;..."......... "
:.".BUCLE":."..............BUCLE".Z;3.."
.............BUCLE":.63000..;8..".......
..........":.I.1.6:.CL$:...;B.."........
..........NOTE QUE ..LDX #$03. .PUEDE".Z
;L..".VARIAR ENTRE CUALQUIER VALOR..<V..
".DE ..LDX #$01.. A ..LDX #$80..":.63000
./<`..".................":.I.1.6:.CL$:..
P<J.."..................PARA .LDX #$00.
HAREMOS EL BUCLE X SOLO"..<T.."UNA VEZ.
PARA .LDX #$81.,O SUPERIOR,.DEX.".H<~.."
DEJARA 'MSB'=1 EN EL REGISTRO-X"..<..."R
ESULTANDO X<0, POR LO TANTO .BPL."..=...
".NO. NOS DEVUELVE A 'BUCLE'!":.63000.D=
...".................":.I.1.6:.CL$:...=.
.."..................NOTE QUE ($A1) NO S
E REBALSA .(OVERFLOW)...=..."DESPUES DE
VARIAS INSTRUCCIONES ..INC $A1..."..=...
".COMO LA MEMORIA VA HASTA $FFFF..>D..".
($A1)<=FF .SERA SIEMPRE VERDADERO...".>>
N.."A MENOS QUE HAGA UN ERROR GARRAFAL":
.63000.N>X.."..QPARA INCREMENTAR LOS CON
TENIDOS DE LAS..>..." DIRECCIONES $A0/$A
1 EN .$0100. REQUIERE.J>..." SOLAMENTE .
INC $A1.. PARA INCREMENTAR..>..." EN .$0
001. SE HACE DE ESTA MANERA:..?..."...
------- ".F?...". INC $A0 ":.".
BNE NEXT":.". INC $A1 ".\?...".NE
XT ------- ".?...".QINC $A0. SUMA '1' A
($A0)...?(.." CONTINUA LUEGO A LA INSTR
UCCION NEXT.".W?2.." .A MENOS QUE SE REB
ALSE DE FF A 00..@<..".QSI SE REBALSA A
.00. LA ORDEN .BNE NEXT..-@F.." NO SE CU
MPLIRA, POR LO TANTO,.W@P.." ADICIONAREM
OS '1' AL BYTE ALTO CON.R@Z.." ..INC $A1
..":.63000..@D.."..QSI USTED DESEA INCRE
MENTAR EN UN".C@N.." VALOR DISTINTO A $0
001 O $0100..@S.." .(.INC $A0. O .INC $A
1.)"..AX.." .NECESITARA .SUMAR. EL INCRE
MENTO..8A}..".SUPONGAMOS QUE QUEREMOS SU
MAR $1F:.\A..."...LDA $A0 .._CARGE BYTE
BAJO..A..."..ADC #$1F.._SUME #$1F AL BYT
E BAJO..A..."..STA $A0 ._.DEVUELVALO".HA
.."..LDA $A1 ._.CARGE BYTE ALTO..B...".
.ADC #$00._SUME CERO(?!)":."..STA $A1 ._
.DEVUELVALO".-B...".QEL SUMAR #$1F PUEDE
RESULTAR QUE.XB..." EL CONTENIDO DE $A0
SE .REBALSE. LO.YBH.." QUE OCASIONARA .
CARRY.=1...BM.." EN ESTE CASO SE SUMA EL
CARRY.HBR.." A ($A1) CON .LDA $A1. Y .A
DC #$00"..C..."..NOTA..........:.ADC.. S
IGNIFICA ..AD..ICIONE CON ..C..ARRY...C.
..63000.OC..."...............":.I.1.8:.C
L$:.:."...............".~C..."QPERO....
EL .CARRY. PUEDE CONTENER .1."..C..." AN
TES DE QUE EMPIECE ESTE PROGRAMA!!!".ZC.
..".TENEMOS QUE LIMPIAR (CLEAR) EL CARRY
:"..D...".SIEMPRE................ .CLC..
ANTES DE ..ADC.!":.63010.DD..."........
..CLC . _ _ _ _ ":.63000.UD...".PARA
RESTAR O .SUBSTRAER. .#$1F. HAREMOS:..D
".."....LDA $A0 ":.".SBC #$1F.._RESTA $1
F":."..STA $A0 "..D,..".LDA $A1 ":.".SBC
#$00.._RESTA $00!!":."..STA $A1 ".3E6..
".NOTA..........:.SBC. .SIGNIFICA ..S..U
..B..STRAER CON ..C..ARRY.".`E@.."..ATEN
CION.:CON .SBC. HAY QUE TENER EL..EJ..".
CARRY=1 ANTES DE EMPEZAR!!":MS$."*?UGH!*
?!!":.63000:.63100.LET..63010:.".....SEC
. _ _ _":.63000..F...".":MS$.". AD
IOS! .":.63100:.I.1.5:.63600:.:...F.'.9
999.5F@..A(0),32:.TT.1.PP:.:.I.0.6:.A(I.
1),32.IFJ..A(I),E(J(N$,I.1,1)).48:.TT.1.
PP:.:.:.A(7),48:...FT..I.0.7:.A(I),160:.
TT.1.PP:...F^..A(I),E(J(N$,I.1,1)).48:.:
..IFH..I.0.7:.P(I),160:.TT.1.PP:...FR..P
(I),E(J(N$,I.1,1)).48:.:...G|..I.0.7:.X(
I),160:.TT.1.PP:..)G...X(I),E(J(N$,I.1,1
)).48:.:..IG...I.0.7:.Y(I),160:.TT.1.PP:
..IG...Y(I),E(J(N$,I.1,1)).48:.:...G...I
.0.7:.M(I),160:.TT.1.PP:...G...M(I),E(J(
N$,I.1,1)).48:.:..IG...I.0.7:.P(I),160:.
TT.1.PP:...GB..P(I),B(A(I)):.:...GL..I.0
.7:.X(I),160:.TT.1.PP:...HV..X(I),B(A(I)
):.:..5H...I.0.7:.Y(I),160:.TT.1.PP:..KH
...Y(I),B(A(I)):.:..KH...I.0.7:.M(I),160
:.TT.1.PP:...H...M(I),B(A(I)):.:...H...I
.0.7:.A(I),160:.TT.1.PP:...H...A(I),B(X(
I)):.:..WH...I.0.7:.M(I),160:.TT.1.PP:..
.H&..M(I),B(X(I)):.:...I0..I.0.7:.A(I),1
60:.TT.1.PP:..#I:..A(I),B(Y(I)):.:..CID.
.I.0.7:.M(I),160:.TT.1.PP:..YIN..M(I),B(
Y(I)):.:...I`.R$."......................
.............. . . . . . . . ..".GIA.R$.
R$."..................................".
.IB.A$.".. .A..".R$:P$."................
.......P..".R$.<JC.X$."..... .X..".R$:Y$
."...........................Y..".R$.JJD
.M$."..............................M..".
R$..JE.CR$."........................".MJ
F.CC$.".. .A...... .. .. .. .. ....
.... . "..JG.WD.40:CRT.1024
:.G(142)..KH..I.0.7:A(I).CRT.WD.3.2.I:P(
I).A(I).20:X(I).A(I).3.WD:Y(I).X(I).20.P
KI.M(I).Y(I).3.WD:.:C.CRT.7.WD.1..KJ.SD$
."..........":CL$."":.I.1.WD.2:CL$.CL$."
":...KK.BT$.".":.I.1.24:BT$.BT$.".":..Y
KL.C$.CR$."..........................._C
ARRY BIT"..LS.ML$.".....................
................"..LT.PP.20.5L..BT$.".":
.I.1.24:BT$.BT$.".":..L..PT$.".........
........................................
..............".GL..PT$.PT$."...........
...N............M................=======
=====."..M..PT$.PT$."...............PO..
........PO................".:M..PT$.BT$.
"................................".PT$."
.".JM..ML$."............................
........."..M..WD.40:CRT.1024:.G(142)..M
..W2.WD.2:W3.WD.1:W1$.J(D(WD),2):.KM..W2
$.J(D(W2),2):W3$.J(D(W3),2).QMD....M...B
T$CL$;..N...BT$"..RETURN. PARA CONTINUAR
";.*N...Z$:.Z$.."".630
02.?N...Z$:.Z$."".63003.EN....RN"..BT$CL
$;..N#..BT$" .. RETURN PARA VER LA
ACCION ";..N$..Z$:.Z$.."".63012..N
%..Z$:.Z$."".63013..N&...SN|..63600:.T.1
.5:.PT$MS$;..N}..PT$" ";..N~..P
T$MS$;:...N....O...63000.*O...SD$;:.T.1
.10:.CL$:.:.SD$;:..>OD..63100:.63010:..U
OP..54296,15:.54278,240:.54276,17:.54273
,100.100..(0)..OR..IX.1.100:.:.54273,0:.
54296,0:..GOT..54296,15:.54278,240:.5427
6,17:.54273,141..OU..X$:.X$."".63701..PV
..54273,0:.".SAVE"G(34)"C.MAQUINA 3"G(34
)":GOTO63700":..-P...60000:.".":.1630...
> CLICK IMAGE PREVIEW FOR FULL MODAL