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
|
||||
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))]
|
||||
.LOSE %LSFIL ;Handle errors after opening the file
|
||||
.CALL [SETZ ? SIXBIT/SIOT/
|
||||
|
||||
Reference in New Issue
Block a user