011:utilidades

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Ambos lados, revisión anterior Revisión previa
Próxima revisión		 Revisión previa
011:utilidades [d/m/Y H:i] – [Listado ensamblador] miguel011:utilidades [d/m/Y H:i] (actual) – [Utilidades: Carga y almacenamiento de programas con velocidad variable (I)] miguel
Línea 5: Línea 5:
 {{ :011:utilidades.jpg|}} {{ :011:utilidades.jpg|}}
  
---- //Paco MARTIN y José Mario DIAZ//+--- //Paco Martín y José María Diaz//
  
 //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 58: Línea 58:
  
 <code ASM> <code ASM>
-10 org 60000 +10 org 60000 
-20 ld hl,(23645) +20 ld hl,(23645) 
-30 inc hl +30 inc hl 
-40 ld a, (hl) +40 ld a, (hl) 
-50 cp 234 ; 'rem' +50 cp 234 ; 'rem' 
-60 jr nz,errora +60 jr nz,errora 
-70 inc hl +70 inc hl 
-80 ld a, (hl)  +80 ld a, (hl)  
-90 cp 248 ; 'save' +90 cp 248 ; 'save' 
-100 jr z,tsave +100 jr z,tsave 
-110 cp 239 ; 'load' +110 cp 239 ; 'load' 
-120 jr z,tload +120 jr z,tload 
-130 cp 214 ; 'verify' +130 cp 214 ; 'verify' 
-140 jr z,tveryf +140 jr z,tveryf 
-150 cp 213 ; 'merge' +150 cp 213 ; 'merge' 
-160 jr z,tmerge +160 jr z,tmerge 
-170 jr errora +170 jr errora 
-180 ; +180 ; 
-190 ; +190 ; 
-200 err0r6 rst 8 +200 error6 rst 8 
-210 defb 5 ¡ 'number too big' +210 defb 5 ; 'number too big' 
-220 j +220 ; 
-230 errora rst 3 +230 errora rst 8 
-240 defb 9 ; argumento invalido. +240 defb 9 ; 'argumento invalido' 
-250 ; +250 ; 
-260 ¡ +260 ; 
-270 errorb rst 8 +270 errorb rst 8 
-280 defb 10 ; 'integer out of range' +280 defb 10 ; 'integer out of range' 
-290 i +290 ; 
-300 errorc rst 8 +300 errorc rst 8 
-310 defb 11 ¡ 'nonsense in basic' +310 defb 11 ; 'nonsense in basic' 
-320 ; +320 ; 
-330 errorf rst 8 +330 errorf rst 8 
-340 defb 14 ¡ 'invalid filename' +340 defb 14 ; 'invalid filename' 
-350 errorr rst 8 +350 errorr rst 8 
-360 defb 26 ¡ 'tape loading error' +360 defb 26 ; 'tape loading error' 
-370 ; +370 ; 
-380 tmerge call baudio +380 tmerge call baudio 
-390 call name +390 call name 
-400 inc hl +400 inc hl 
-410 i_d a, < hl) +410 ld a, (hl) 
-420 cp 13 +420 cp 13 
-430 jr nz,errorc +430 jr nz,errorc 
-440 ret +440 ret 
-450 ; +450 ; 
-460 tveryf call baudio +460 tveryf call baudio 
-470 call name +470 call name 
-480 call nsint +480 call nsint 
-490 ret +490 ret 
-500 tsave call baudio +500 tsave call baudio 
-510 call name +510 call name 
-520 jr c,errorf +520 jr c,errorf 
-530 call sintax +530 call sintax 
-540 ret +540 ret 
-550 j +550 ; 
-560 tload call baudio +560 tload call baudio 
-570 call name +570 call name 
-530 call nsint +530 call nsint 
-590 ret +590 ret 
-600 ; +600 ; 
-610 baudio call numero +610 baudio call numero 
-620 push hl +620 push hl 
-630 cp "t" +630 cp "t" 
-640 jp nz,errorc +640 jp nz,errorc 
-650 ld hl,799 +650 ld hl,799 
-660 sbc hl,de +660 sbc hl,de 
-670 jp nc,errorb +670 jp nc,errorb 
-680 and a +680 and a 
-690 ld hl,5000 +690 ld hl,5000 
-700 sbc hl,de +700 sbc hl,de 
-710 jp c.err0r6 +710 jp c,err0r6 
-720 ld de,c pres) +720 ld de, (pres) 
-730 ld < baud),de +730 ld (baud),de 
-740 pop hl +740 pop hl 
-750 inc hl +750 inc hl 
-760 ld a, < hl) +760 ld a, (hl) 
-770 cp +770 cp """ 
-7s0 jp nz,errora +780 jp nz,errora 
-7»0 inc hl +790 inc hl 
-800 ret +800 ret 
-810 ; +810 ; 
-320 name ld b,10 +820 name ld b,10 
-830 ld de,cabec*i +830 ld de,cabec+i 
-840 pname ld a,(hl) +840 pname ld a,(hl) 
-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,(hl) +910 ld a,(hl) 
-920 cp +920 cp """ 
-930 ret z +930 ret z 
-940 scf +940 scf 
-950 ret +950 ret 
-960 cmp ld a,9 +960  cmp ld a,9 
-970 cp b +970 cp b 
-»80 ld a,32 +980 ld a,32 
-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 
-1040 sintax inc hl +1030 ; 
-1050 ld a,<hl>" +1040  sintax inc hl 
-1060 cp 13 +1050 ld a,<hl> 
-1070 jr z,pprog +1060 cp 13 
-1080 cp 202 i 'line' +1070 jr z,pprog 
-1090 jr z,lprog +1080 cp 202 ; 'line' 
-1100 cp 170 ¡ 'screens +1090 jr z,lprog 
-1110 jr z,spant +1100 cp 170 ; 'screen$' 
-1120 cp 175 ¡ 'code' +1110 jr z,spant 
-1130 jr z,code +1120 cp 175 ; 'code' 
-i 140 JP ERRORC +1130 jr z,code 
-1150 i +1140 JP ERRORC 
-1160 pprog ret 1 1 70 ¡ +1150 ; 
-1180 lprog ret 1190 ¡ +1160  pprog ret 
-1200 spam- ret 1210 ; +1170 ; 
-1220 code call numero +1180  lprog ret 
-1230 ld <dirt),de +1190 ; 
-1240 call comdat +1200  spant ret 
-1250 ld a,(hl) +1210 ; 
-1260 cp +1220  code call numero 
-1270 jp nz,errorc +1230 ld (dirt),de 
-1280 call enum +1240 call comdat 
-1290 ld (lont).de +1250 ld a,(hl) 
-1300 call comdat +1260 cp "," 
-1310 ret 1320 ¡ +1270 jp nz,errorc 
-1330 comdat ld a,d +1280 call enum 
-1340 or e +1290 ld (lont),de 
-1350 ret nz +1300 call comdat 
-1360 dec hl +1310 ret 
-1370 ld a,< hl) +1320 ; 
-¡330 cp "0" +1330  comdat ld a,d 
-1390 jp nz,errorc +1340 or e 
-1400 inc hl +1350 ret nz 
-1410 ret +1360 dec hl 
-1420 ¡ +1370 ld a, (hl) 
-1430 enum call numero +¡330 cp "0" 
-1440 cp 13 +1390 jp nz,errorc 
-1450 jp nz,errorc +1400 inc hl 
-1460 ret 1470 ; +1410 ret 
-1430 nsint inc hl +1420 ; 
-1490 ld a,< hl) +1430  enum call numero 
-1500 cp 13 +1440 cp 13 
-1510 ret z +1450 jp nz,errorc 
-1520 cp 170 ¡ 'screens +1460 ret 
-1530 jr z,spant +1470 ; 
-1540 cp 175 ¡ 'code' +1430  nsint inc hl 
-1550 jr. z, lcode +1490 ld a, (hl) 
-1560 jp errorc +1500 cp 13 
-1570 ret +1510 ret z 
-1580 ¡ +1520 cp 170 ; 'screen$' 
-1590 lcode ret 1600 ; +1530 jr z,spant 
-1610 numero ld de,0 +1540 cp 175 ; 'code' 
-1620 crnum inc hl +1550 jr z, lcode 
-1630 ld a,(hl) +1560 jp errorc 
-1640 cp 58 +1570 ret 
-1650 ret nc +1580 ; 
-1660 cp 48 +1590  lcode ret 
-1670 ret c +1600 ; 
-1680 sub 48 +1610  numero ld de,0 
-1690 push hl +1620  crnum inc hl 
-1 700 ld < pres),de +1630 ld a,(hl) 
-1710 ex de,hl +1640 cp 58 
-1720 call mult +1650 ret nc 
-1730 ld d,0 +1660 cp 48 
-1740 ld e,a +1670 ret c 
-1750 add hl,de +1680 sub 48 
-1760 jp c,errorb +1690 push hl 
-1770 ex de,hl +1700 ld (pres),de 
-1780 pop hl +1710 ex de,hl 
-1790 jr crnum • 1800 ; +1720 call mult 
-1810 pres defu 0 1820 ; +1730 ld d,0 
-1830 mult add hl,hl +1740 ld e,a 
-1840 jp c,errorb +1750 add hl,de 
-1850 ld d,h +1760 jp c,errorb 
-i860 ld e,l +1770 ex de,hl 
-1870 add hl,hl +1780 pop hl 
-1880 jp c,errorb +1790 jr crnum 
-1890 add hl,hl +1800 ; 
-1900 jp c,errorb +1810  pres defw 0 
-1910 add hl,de +1820 ; 
-1920 jp c,errorb +1830  mult add hl,hl 
-1930 ret 1940 ¡ +1840 jp c,errorb 
-1950 baud defuj 1500 +1850 ld d,h 
-1960 cabec defb 0 +i860 ld e,l 
-1970 dirt defw 0 +1870 add hl,hl 
-1980 lont defw 0+1880 jp c,errorb 
 +1890 add hl,hl 
 +1900 jp c,errorb 
 +1910 add hl,de 
 +1920 jp c,errorb 
 +1930 ret 
 +1940 ; 
 +1950  baud defw 1500 
 +1960  cabec defb 0 
 +1970  dirt defw 0 
 +1980  lont defw 0
 </code> </code>
  • 011/utilidades.1291406202.txt.gz
  • Última modificación: d/m/Y H:i
  • por miguel