corrección de sub-etiquetas de Archivo y Consola

This commit is contained in:
sejo 2022-04-19 10:00:51 -05:00
parent cc42352771
commit d7ec8781fd
1 changed files with 5 additions and 5 deletions

View File

@ -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