Fix type in IMPRTF
This commit is contained in:
@@ -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/
|
||||||
|
|||||||
Reference in New Issue
Block a user