Fix type in IMPRTF

This commit is contained in:
2025-09-09 23:23:48 +02:00
parent 6e80ed9728
commit 75b5093574

View File

@@ -102,7 +102,7 @@ PUTLN: PUSHJ P,OUTSTR ;Calls the OUTSTR subroutine
;Subroutine that reads the contents of the file into the buffer at FIELD ;Subroutine that reads the contents of the file into the buffer at FIELD
IMPRTF: .CALL [SETZ ? SIXBIT/OPEN/ IMPRTF: .CALL [SETZ ? SIXBIT/OPEN/
[.UAI,,CHDSKI] ? [SIXBIT/DSK] ;Mode, channel and device name [.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name
A ? B ((SETZ))] A ? B ((SETZ))]
.LOSE %LSFIL ;Handle errors after opening the file .LOSE %LSFIL ;Handle errors after opening the file
.CALL [SETZ ? SIXBIT/SIOT/ .CALL [SETZ ? SIXBIT/SIOT/