Add a device to the input channel
This commit is contained in:
@@ -102,7 +102,8 @@ 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] ? A ? B ((SETZ))]
|
[.UAI,,CHDSKI] ? [SIXBIT/DSK] ;Mode, channel and device name
|
||||||
|
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/
|
||||||
[,,CHDSKI] ? [BPTR,,C] ? [,,33] ((SETZ))]
|
[,,CHDSKI] ? [BPTR,,C] ? [,,33] ((SETZ))]
|
||||||
|
|||||||
Reference in New Issue
Block a user