Remove brackets from file name parameters in IMPRT function

This commit is contained in:
2025-09-28 17:58:20 +02:00
parent 46b43bacf0
commit 2179b4e871

View File

@@ -138,7 +138,7 @@ IMPRTF: PUSH P,A ;Save the A register.
MOVE X,[440400,,FIELD] ;Init a 4-bit byte pointer to FIELD.
.CALL [SETZ ? SIXBIT/OPEN/ ;Open a file descriptor.
[.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name
[A] ? [B] ((SETZ))]
A ? B ((SETZ))]
.LOSE %LSFIL ;Handle errors after opening the file
IMPRD: .IOT CHDSKI,A ;Read an ascii char into A.
JUMPL A,IMPREX ;If there was nothing read, exit.