Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anterior Revisión previa Próxima revisión | Revisión previa | ||
011:utilidades [d/m/Y H:i] – [Listado ensamblador] miguel | 011:utilidades [d/m/Y H:i] (actual) – [Utilidades: Carga y almacenamiento de programas con velocidad variable (I)] miguel | ||
---|---|---|---|
Línea 5: | Línea 5: | ||
{{ : | {{ : | ||
- | --- // | + | --- // |
//El bricolaje de los sistemas TURBO. Comandos nuevos y más veloces para su ordenador.// | //El bricolaje de los sistemas TURBO. Comandos nuevos y más veloces para su ordenador.// | ||
Línea 134: | Línea 134: | ||
750 inc hl | 750 inc hl | ||
760 ld a, (hl) | 760 ld a, (hl) | ||
- | 770 cp " | + | 770 cp " |
780 jp nz, | 780 jp nz, | ||
790 inc hl | 790 inc hl | ||
Línea 141: | Línea 141: | ||
820 name ld b, | 820 name ld b, | ||
830 ld de, | 830 ld de, | ||
- | 840 pname ld a, | + | 840 pname ld a, |
- | 850 cp | + | 850 cp """ |
- | 860 jr z.cmp | + | 860 jr z,cmp |
- | 870 ld < de ),a | + | 870 ld (de),a |
880 inc hl | 880 inc hl | ||
890 inc de | 890 inc de | ||
900 djnz pname | 900 djnz pname | ||
910 ld a, | 910 ld a, | ||
- | 920 cp | + | 920 cp """ |
930 ret z | 930 ret z | ||
940 scf | 940 scf | ||
Línea 156: | Línea 156: | ||
970 cp b | 970 cp b | ||
980 ld a, | 980 ld a, | ||
- | 990 llena ld <de),a | + | 990 llena ld (de),a |
1000 inc de | 1000 inc de | ||
1010 djnz llena | 1010 djnz llena | ||
- | ¡020 ret ¡030 ; | + | 1020 ret |
+ | 1030 ; | ||
1040 sintax inc hl | 1040 sintax inc hl | ||
- | 1050 ld a,< | + | 1050 ld a,< |
- | 1060 cp 13 | + | 1060 cp 13 |
1070 jr z, | 1070 jr z, | ||
- | 1080 cp 202 | + | 1080 cp 202 |
1090 jr z, | 1090 jr z, | ||
- | 1100 cp 170 ¡ 'screens | + | 1100 cp 170 ; ' |
1110 jr z, | 1110 jr z, | ||
- | 1120 cp 175 ¡ ' | + | 1120 cp 175 ; ' |
1130 jr z, | 1130 jr z, | ||
1140 JP ERRORC | 1140 JP ERRORC | ||
- | 1150 i | + | 1150 ; |
- | 1160 pprog ret | + | 1160 pprog ret |
- | 1180 lprog ret 1190 ¡ | + | 1170 ; |
- | 1200 spam- ret 1210 ; | + | 1180 lprog ret |
+ | 1190 ; | ||
+ | 1200 spant ret | ||
+ | 1210 ; | ||
1220 code call numero | 1220 code call numero | ||
- | 1230 ld <dirt),de | + | 1230 ld (dirt),de |
1240 call comdat | 1240 call comdat | ||
1250 ld a, | 1250 ld a, | ||
- | 1260 cp | + | 1260 cp "," |
1270 jp nz, | 1270 jp nz, | ||
1280 call enum | 1280 call enum | ||
- | 1290 ld (lont).de | + | 1290 ld (lont),de |
1300 call comdat | 1300 call comdat | ||
- | 1310 ret 1320 ¡ | + | 1310 ret |
+ | 1320 ; | ||
1330 comdat ld a,d | 1330 comdat ld a,d | ||
1340 or e | 1340 or e | ||
1350 ret nz | 1350 ret nz | ||
1360 dec hl | 1360 dec hl | ||
- | 1370 ld a,< hl) | + | 1370 ld a, |
¡330 cp " | ¡330 cp " | ||
1390 jp nz, | 1390 jp nz, | ||
1400 inc hl | 1400 inc hl | ||
1410 ret | 1410 ret | ||
- | 1420 ¡ | + | 1420 ; |
1430 enum call numero | 1430 enum call numero | ||
1440 cp 13 | 1440 cp 13 | ||
1450 jp nz, | 1450 jp nz, | ||
- | 1460 ret 1470 ; | + | 1460 ret |
+ | 1470 ; | ||
1430 nsint inc hl | 1430 nsint inc hl | ||
- | 1490 ld a,< hl) | + | 1490 ld a, |
1500 cp 13 | 1500 cp 13 | ||
1510 ret z | 1510 ret z | ||
- | 1520 cp 170 | + | 1520 cp 170 |
1530 jr z, | 1530 jr z, | ||
- | 1540 cp 175 | + | 1540 cp 175 |
- | 1550 jr. z, lcode | + | 1550 jr z, lcode |
1560 jp errorc | 1560 jp errorc | ||
1570 ret | 1570 ret | ||
- | 1580 ¡ | + | 1580 ; |
- | 1590 lcode ret 1600 ; | + | 1590 lcode ret |
+ | 1600 ; | ||
1610 numero ld de, | 1610 numero ld de, | ||
1620 crnum inc hl | 1620 crnum inc hl | ||
Línea 220: | Línea 227: | ||
1680 sub 48 | 1680 sub 48 | ||
1690 push hl | 1690 push hl | ||
- | 1700 ld < pres),de | + | 1700 ld (pres),de |
1710 ex de, | 1710 ex de, | ||
1720 call mult | 1720 call mult | ||
Línea 229: | Línea 236: | ||
1770 ex de, | 1770 ex de, | ||
1780 pop hl | 1780 pop hl | ||
- | 1790 jr crnum | + | 1790 jr crnum |
- | 1810 pres defu 0 1820 ; | + | 1800 ; |
+ | 1810 pres defw 0 | ||
+ | 1820 ; | ||
1830 mult add hl, | 1830 mult add hl, | ||
1840 jp c, | 1840 jp c, | ||
Línea 241: | Línea 250: | ||
1910 add hl, | 1910 add hl, | ||
1920 jp c, | 1920 jp c, | ||
- | 1930 ret 1940 ¡ | + | 1930 ret |
- | 1950 baud defuj 1500 | + | 1940 ; |
+ | 1950 baud defw 1500 | ||
1960 cabec defb 0 | 1960 cabec defb 0 | ||
1970 dirt defw 0 | 1970 dirt defw 0 | ||
1980 lont defw 0 | 1980 lont defw 0 | ||
</ | </ |