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 133: Línea 133:
 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
Línea 141: Línea 141:
 820 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.1291407295.txt.gz
  • Última modificación: d/m/Y H:i
  • por miguel