00000000: 99 22 20 53 55 4D 41 20 41 4C 20 56 41 4C 4F 52 |." SUMA AL VALOR|
00000010: 20 44 45 20 12 59 92 20 50 4F 52 20 49 4E 54 45 | DE .Y. POR INTE|
00000020: 52 4D 45 44 49 4F 00 F0 2F 1F 06 99 22 20 4C 41 |RMEDIO../..." LA|
00000030: 20 4F 50 45 52 41 43 49 4F 4E 20 12 41 44 43 92 | OPERACION .ADC.|
00000040: 00 1F 30 22 06 99 22 11 1C D1 1F 50 45 52 4F 20 |..0".."....PERO |
00000050: 43 4F 4D 4F 20 12 41 44 43 92 20 46 55 4E 43 49 |COMO .ADC. FUNCI|
00000060: 4F 4E 41 20 53 4F 4C 4F 20 43 4F 4E 20 45 4C 00 |ONA SOLO CON EL.|
00000070: 4C 30 27 06 99 22 20 52 45 47 49 53 54 52 4F 20 |L0'.." REGISTRO |
00000080: 12 41 92 20 28 41 43 55 4D 55 4C 41 44 4F 52 29 |.A. (ACUMULADOR)|
00000090: 20 54 45 4E 45 4D 4F 53 20 51 55 45 00 8C 30 29 | TENEMOS QUE..0)|
000000A0: 06 99 22 20 54 52 41 4E 53 46 45 52 49 52 20 50 |.." TRANSFERIR P|
000000B0: 52 49 4D 45 52 4F 20 45 4C 20 56 41 4C 4F 52 20 |RIMERO EL VALOR |
000000C0: 44 45 20 1C 59 1F 20 20 20 20 20 20 20 20 41 4C |DE .Y. AL|
000000D0: 20 41 43 55 4D 55 4C 41 44 4F 52 2E 00 BD 30 2B | ACUMULADOR...0+|
000000E0: 06 99 22 11 1C D1 1F 45 53 54 4F 20 53 45 20 48 |.."....ESTO SE H|
000000F0: 41 43 45 20 43 4F 4E 20 12 54 59 41 92 20 59 20 |ACE CON .TYA. Y |
00000100: 53 4F 4C 4F 20 45 4E 54 4F 4E 43 45 53 00 EE 30 |SOLO ENTONCES..0|
00000110: 2C 06 99 22 20 48 41 52 45 4D 4F 53 20 4C 41 20 |,.." HAREMOS LA |
00000120: 41 44 49 43 49 4F 4E 20 43 4F 4E 20 12 41 44 43 |ADICION CON .ADC|
00000130: 20 24 32 32 92 2E 22 3A 8D 36 33 30 30 30 00 16 | $22..":.63000..|
00000140: 31 2D 06 99 22 13 11 2E 2C 20 42 34 43 44 20 39 |1-.."..., B4CD 9|
00000150: 38 20 20 20 20 20 20 20 12 1C 54 59 41 20 20 20 |8 ..TYA |
00000160: 20 20 20 20 20 22 00 44 31 2E 06 99 22 1F 2E 2C | ".D1..."..,|
00000170: 20 42 34 43 45 20 36 35 20 32 32 20 20 20 20 12 | B4CE 65 22 .|
00000180: 1F 41 44 43 20 24 32 32 20 20 20 20 22 3A 8D 36 |.ADC $22 ":.6|
00000190: 33 30 30 30 00 75 31 3B 06 99 53 44 24 22 1C D1 |3000.u1;..SD$"..|
000001A0: 1F 41 48 4F 52 41 20 54 45 4E 45 4D 4F 53 20 45 |.AHORA TENEMOS E|
000001B0: 4E 20 12 41 92 20 45 4C 20 42 59 54 45 20 42 41 |N .A. EL BYTE BA|
000001C0: 4A 4F 20 44 45 00 BD 31 40 06 99 22 20 4C 41 20 |JO DE..1@.." LA |
000001D0: 4E 55 45 56 41 20 44 49 52 43 43 49 4F 4E 20 27 |NUEVA DIRCCION '|
000001E0: 42 41 53 45 27 2C 20 45 53 20 44 45 43 49 52 2C |BASE', ES DECIR,|
000001F0: 20 20 20 20 20 45 4C 20 50 52 4F 58 49 4D 4F 20 | EL PROXIMO |
00000200: 12 4C 49 4E 4B 20 42 41 4A 4F 92 2E 22 00 E5 31 |.LINK BAJO.."..1|
00000210: 45 06 99 22 20 1C 47 55 41 52 44 41 52 45 4D 4F |E.." .GUARDAREMO|
00000220: 53 20 45 53 54 45 20 42 59 54 45 20 45 4E 20 27 |S ESTE BYTE EN '|
00000230: 58 27 2E 2E 22 00 FF 31 46 06 81 49 B2 31 A4 38 |X'.."..1F..I.1.8|
00000240: 3A 99 43 4C 24 3B 3A 82 3A 8D 36 33 30 30 30 00 |:.CL$;:.:.63000.|
00000250: 2F 32 47 06 99 22 13 11 11 11 2E 2C 20 42 34 44 |/2G.."....., B4D|
00000260: 30 20 41 41 20 20 20 20 20 20 20 12 54 41 58 20 |0 AA .TAX |
00000270: 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 00 | ":.63000.|
00000280: 5F 32 4A 06 99 53 44 24 22 11 11 11 11 11 D1 1F |_2J..SD$".......|
00000290: 41 48 4F 52 41 20 50 4F 4E 45 4D 4F 53 20 45 53 |AHORA PONEMOS ES|
000002A0: 54 45 20 56 41 4C 4F 52 20 45 4E 20 4C 41 22 00 |TE VALOR EN LA".|
000002B0: 86 32 54 06 99 22 20 44 49 52 45 43 43 49 4F 4E |.2T.." DIRECCION|
000002C0: 20 51 55 45 20 45 53 54 41 20 45 4E 20 24 32 32 | QUE ESTA EN $22|
000002D0: 2F 24 32 33 2E 22 00 AE 32 59 06 99 22 91 20 28 |/$23."..2Y..". (|
000002E0: 51 55 45 20 4D 4F 4D 45 4E 54 41 4E 45 41 4D 45 |QUE MOMENTANEAME|
000002F0: 4E 54 45 20 45 53 20 24 30 38 45 4C 20 44 49 53 |NTE ES $08EL DIS|
00000300: 43 4F 22 00 18 09 55 00 85 20 44 24 3A 44 B2 C3 |CO"...U.. D$:D..|
00000310: 28 44 24 29 00 23 09 56 00 8D 20 31 35 31 30 00 |(D$).#.V.. 1510.|
00000320: 2E 09 57 00 8D 20 32 30 30 30 00 39 09 59 00 8D |..W.. 2000.9.Y..|
00000330: 20 32 32 30 30 00 44 09 63 00 98 34 2C 54 24 3B | 2200.D.c..4,T$;|
00000340: 00 4E 09 64 00 98 34 2C 43 3B 00 5C 09 78 00 98 |.N.d..4,C;.\.x..|
00000350: 34 2C A3 5A 29 50 24 3B 00 69 09 8C 00 98 34 2C |4,.Z)P$;.i....4,|
00000360: A3 59 29 42 3B 00 76 09 A0 00 98 34 2C A3 58 29 |.Y)B;.v....4,.X)|
00000370: 44 24 00 80 09 83 03 43 B2 43 AA 31 00 88 09 84 |D$.....C.C.1....|
00000380: 03 82 20 53 00 92 09 B6 03 4A B2 4A AA 31 00 C3 |.. S.....J.J.1..|
00000390: 09 B8 03 99 22 93 22 3A 99 3A 99 22 51 55 49 45 |....".":.:."QUIE|
000003A0: 52 45 20 49 4D 50 52 49 4D 49 52 20 4F 54 52 41 |RE IMPRIMIR OTRA|
000003B0: 20 50 41 47 49 4E 41 20 3F 22 3A 85 20 51 24 00 | PAGINA ?":. Q$.|
000003C0: D9 09 BA 03 8B 51 24 B2 22 53 49 22 20 A7 20 89 |.....Q$."SI" . .|
000003D0: 20 36 31 30 30 00 EF 09 BC 03 8B 51 24 B2 22 4E | 6100......Q$."N|
000003E0: 4F 22 20 A7 20 8D 20 36 30 30 30 00 F9 09 BD 03 |O" . . 6000.....|
000003F0: 89 20 39 35 32 00 00 0A E8 03 A0 34 00 1C 0A DC |. 952......4....|
00000400: 05 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A |.. * * * * * * *|
00000410: 20 2A 20 2A 20 2A 20 2A 00 2D 0A E6 05 8B 43 B3 | * * * *.-....C.|
00000420: 39 A7 54 24 B2 22 20 20 22 00 46 0A F0 05 8B 43 |9.T$." ".F....C|
00000430: B1 39 20 AF 20 43 B3 31 30 30 20 A7 54 24 B2 22 |.9 . C.100 .T$."|
00000440: 20 22 00 4C 0A FA 05 8E 00 68 0A 0E 06 8F 20 2A | ".L.....h.... *|
00000450: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000460: 20 2A 20 2A 00 73 0A D0 07 59 B2 32 30 AB 50 00 | * *.s...Y.20.P.|
00000470: 85 0A D5 07 8B 20 42 B3 39 20 A7 20 59 B2 59 AA |..... B.9 . Y.Y.|
00000480: 33 00 9F 0A DA 07 8B 20 42 B1 39 20 AF 20 42 B3 |3...... B.9 . B.|
00000490: 31 30 30 20 A7 20 59 B2 59 AA 32 00 BC 0A DF 07 |100 . Y.Y.2.....|
000004A0: 8B 20 42 B1 31 30 30 20 AF 20 42 B3 31 30 30 30 |. B.100 . B.1000|
000004B0: 20 A7 20 59 B2 59 AA 31 00 C2 0A E4 07 8E 00 DE | . Y.Y.1........|
000004C0: 0A 34 08 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A |.4.. * * * * * *|
000004D0: 20 2A 20 2A 20 2A 20 2A 20 2A 00 E9 0A 98 08 58 | * * * * *.....X|
000004E0: B2 31 35 AB 44 00 EF 0A B6 08 8E 00 0B 0B FC 08 |.15.D...........|
000004F0: 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |. * * * * * * * |
00000500: 2A 20 2A 20 2A 20 2A 00 27 0B 88 13 98 34 3A 98 |* * * *.'....4:.|
00000510: 34 2C A3 36 30 29 22 50 41 47 49 4E 41 20 4E 27 |4,.60)"PAGINA N'|
00000520: 22 3B 4A 00 4C 0B 92 13 98 34 3A 98 34 2C A3 32 |";J.L....4:.4,.2|
00000530: 36 29 22 4C 49 53 54 41 44 4F 20 44 45 20 50 52 |6)"LISTADO DE PR|
00000540: 4F 47 52 41 4D 41 53 22 00 6E 0B 97 13 98 34 2C |OGRAMAS".n....4,|
00000550: A3 32 36 29 22 A3 A3 A3 A3 A3 A3 A3 20 A3 A3 20 |.26)"....... .. |
00000560: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 75 0B 9C 13 98 |.........".u....|
00000570: 34 00 B8 0B A1 13 98 34 2C 22 20 20 4E 27 20 20 |4......4," N' |
00000580: 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D | PROGRAM|
00000590: 41 53 20 20 20 20 20 20 20 20 20 20 42 4C 4F 51 |AS BLOQ|
000005A0: 55 45 53 20 20 20 20 20 20 20 20 20 20 44 49 53 |UES DIS|
000005B0: 43 4F 53 22 00 FB 0B A6 13 98 34 2C 22 20 20 A3 |COS"......4," .|
000005C0: A3 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 |. ....|
000005D0: A3 A3 A3 A3 A3 20 20 20 20 20 20 20 20 20 20 A3 |..... .|
000005E0: A3 A3 A3 A3 A3 A3 20 20 20 20 20 20 20 20 20 20 |...... |
000005F0: A3 A3 A3 A3 A3 A3 22 00 02 0C B0 13 98 34 00 08 |......"......4..|
00000600: 0C BA 13 8E 00 24 0C 0C 17 8F 20 2A 20 2A 20 2A |.....$.... * * *|
00000610: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000620: 00 53 0C 70 17 43 B2 43 AB 31 3A 98 34 3A 98 34 |.S.p.C.C.1:.4:.4|
00000630: 2C 22 54 4F 54 41 4C 20 44 45 20 50 52 4F 47 52 |,"TOTAL DE PROGR|
00000640: 41 4D 41 53 3D 20 22 3B 43 3A A0 20 34 3A 90 00 |AMAS= ";C:. 4:..|
00000650: 6F 0C 7A 17 8F 20 2A 20 2A 20 2A 20 2A 20 2A 20 |o.z.. * * * * * |
00000660: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 A0 0C D4 17 |* * * * * *.....|
00000670: 99 3A 99 22 43 4F 4C 4F 43 4F 20 4F 54 52 41 20 |.:."COLOCO OTRA |
00000680: 48 4F 4A 41 20 45 4E 20 4C 41 20 49 4D 50 52 45 |HOJA EN LA IMPRE|
00000690: 53 4F 52 41 20 3F 22 3A 85 20 48 24 00 B4 0C DE |SORA ?":. H$....|
000006A0: 17 8B 20 48 24 B2 22 53 49 22 A7 20 89 20 34 32 |.. H$."SI". . 42|
000006B0: 00 C4 0C E8 17 99 22 93 22 3A 89 20 36 31 30 30 |......".":. 6100|
000006C0: 00 00 00 |... |
." SUMA AL VALOR DE .Y. POR INTERMEDIO..
/..." LA OPERACION .ADC...0".."..Q.PERO
COMO .ADC. FUNCIONA SOLO CON EL.L0'.." R
EGISTRO .A. (ACUMULADOR) TENEMOS QUE..0)
.." TRANSFERIR PRIMERO EL VALOR DE .Y.
AL ACUMULADOR...0+.."..Q.ESTO SE H
ACE CON .TYA. Y SOLO ENTONCES..0,.." HAR
EMOS LA ADICION CON .ADC $22..":.63000..
1-.."..., B4CD 98 ..TYA ".D
1...".., B4CE 65 22 ..ADC $22 ":.6
3000.U1;..SD$".Q.AHORA TENEMOS EN .A. EL
BYTE BAJO DE..1@.." LA NUEVA DIRCCION '
BASE', ES DECIR, EL PROXIMO .LINK BA
JO.."..1E.." .GUARDAREMOS ESTE BYTE EN '
X'.."..1F..I.1.8:.CL$;:.:.63000./2G.."..
..., B4D0 AA .TAX ":.63000.
_2J..SD$".....Q.AHORA PONEMOS ESTE VALOR
EN LA"..2T.." DIRECCION QUE ESTA EN $22
/$23."..2Y..". (QUE MOMENTANEAMENTE ES $
08EL DISCO"...U.. D$:D.C(D$).#.V.. 1510.
..W.. 2000.9.Y.. 2200.D.C..4,T$;.N.D..4,
C;.\.X..4,.Z)P$;.I....4,.Y)B;.V. ..4,.X)
D$.....C.C.1...... S.....J.J.1.C....".":
.:."QUIERE IMPRIMIR OTRA PAGINA ?":. Q$.
Y....Q$."SI" . . 6100......Q$."NO" . . 6
000...... 952..... 4...... * * * * * * *
* * * *.-....C.9.T$." ".F....C.9 . C.1
00 .T$." ".L.....H.... * * * * * * * * *
* *.S.P.Y.20.P...U.. B.9 . Y.Y.3...Z..
B.9 . B.100 . Y.Y.2...... B.100 . B.1000
. Y.Y.1.B.......4.. * * * * * * * * * *
*.....X.15.D............ * * * * * * *
* * * *.'....4:.4,.60)"PAGINA N'";J.L...
.4:.4,.26)"LISTADO DE PROGRAMAS".N....4,
.26)"....... .. .........".U....4......4
," N' PROGRAMAS BLOQ
UES DISCOS"......4," ..
......... .......
......"......4.......$.... * * * * * * *
* * * *.S.P.C.C.1:.4:.4,"TOTAL DE PROGR
AMAS= ";C: 4:..O.Z.. * * * * * * * * *
* *. .T..:."COLOCO OTRA HOJA EN LA IMPRE
SORA ?":. H$...... H$."SI". . 42.D....".
":. 6100...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL