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 75: Línea 75:
 160 jr z,tmerge 160 jr z,tmerge
 170 jr errora 170 jr errora
-180 ; +180 ; 
-190 ; +190 ; 
-200 error6 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"
Línea 128: Línea 128:
 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 """
 780 jp nz,errora 780 jp nz,errora
 790 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
Línea 156: Línea 156:
 970 cp b 970 cp b
 980 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 
 +1030 ;
 1040 sintax inc hl 1040 sintax inc hl
-1050 ld a,<hl>" +1050 ld a,<hl> 
-1060 cp 13+1060 cp 13
 1070 jr z,pprog 1070 jr z,pprog
-1080 cp 202 i 'line'+1080 cp 202 ; 'line'
 1090 jr z,lprog 1090 jr z,lprog
-1100 cp 170 ¡ 'screens+1100 cp 170 ; 'screen$'
 1110 jr z,spant 1110 jr z,spant
-1120 cp 175 ¡ 'code'+1120 cp 175 ; 'code'
 1130 jr z,code 1130 jr z,code
 1140 JP ERRORC 1140 JP ERRORC
-1150  i +1150 ; 
-1160 pprog ret 1 1 70 ¡ +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,(hl) 1250 ld a,(hl)
-1260 cp+1260 cp ","
 1270 jp nz,errorc 1270 jp nz,errorc
 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, (hl)
 ¡330 cp "0" ¡330 cp "0"
 1390 jp nz,errorc 1390 jp nz,errorc
 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,errorc 1450 jp nz,errorc
-1460 ret 1470 ;+1460 ret 
 +1470 ;
 1430 nsint inc hl 1430 nsint inc hl
-1490 ld a,< hl)+1490 ld a, (hl)
 1500 cp 13 1500 cp 13
 1510 ret z 1510 ret z
-1520 cp 170 ¡ 'screens+1520 cp 170 ; 'screen$'
 1530 jr z,spant 1530 jr z,spant
-1540 cp 175 ¡ 'code' +1540 cp 175 ; 'code' 
-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,0 1610 numero ld de,0
 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,hl 1710 ex de,hl
 1720 call mult 1720 call mult
Línea 229: Línea 236:
 1770 ex de,hl 1770 ex de,hl
 1780 pop hl 1780 pop hl
-1790 jr crnum • 1800 ; +1790 jr crnum 
-1810 pres defu 0 1820 ;+1800 ; 
 +1810 pres defw 0 
 +1820 ;
 1830 mult add hl,hl 1830 mult add hl,hl
 1840 jp c,errorb 1840 jp c,errorb
Línea 241: Línea 250:
 1910 add hl,de 1910 add hl,de
 1920 jp c,errorb 1920 jp c,errorb
-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
 </code> </code>
  • 011/utilidades.1291406688.txt.gz
  • Última modificación: d/m/Y H:i
  • por miguel