corrección de sub-etiquetas de Archivo y Consola
This commit is contained in:
parent
cc42352771
commit
d7ec8781fd
|
@ -48,17 +48,17 @@ podemos usar una estructura como la siguiente, donde el nombre del archivo y la
|
|||
#00ff .Archivo/largo DEO2 ( intentará leer 255 bytes )
|
||||
|
||||
( establecer la dirección de los datos a leer y hacer lectura )
|
||||
;archivo/datos .Archivo/lectura DEO2
|
||||
;archivo/datos .Archivo/leer DEO2
|
||||
|
||||
( comprobar el byte éxito y saltar según corresponda )
|
||||
Archivo/éxito DEI2 #0000 EQU2 ,&fallo JCN
|
||||
|
||||
&éxito
|
||||
LIT 'Y .Consola/escribir DEO
|
||||
LIT 'Y .Consola/escribe DEO
|
||||
RTN
|
||||
|
||||
&fallo
|
||||
LIT 'N .Consola/escritura DEO
|
||||
LIT 'N .Consola/escribe DEO
|
||||
RTN
|
||||
|
||||
@archivo
|
||||
|
@ -100,11 +100,11 @@ el siguiente programa escribirá "hola" y una nueva línea (0a) en un archivo ll
|
|||
.Archivo/éxito DEI2 #0006 NEQ2 ,&fallo JCN
|
||||
|
||||
&éxito
|
||||
LIT 'Y .Consola/escribir DEO
|
||||
LIT 'Y .Consola/escribe DEO
|
||||
RTN
|
||||
|
||||
&fallo
|
||||
LIT 'N .Consola/escribir DEO
|
||||
LIT 'N .Consola/escribe DEO
|
||||
RTN
|
||||
|
||||
@archivo
|
||||
|
|
Loading…
Reference in New Issue