Add a device to the input channel

2025-09-09 23:21:23 +02:00
parent 6122aaf515
commit 6e80ed9728
1 changed files with 2 additions and 1 deletions
--- a/src/SUDOKU.MID
+++ b/src/SUDOKU.MID
@@ -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
 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
        .CALL [SETZ ? SIXBIT/SIOT/
                [,,CHDSKI] ? [BPTR,,C] ? [,,33] ((SETZ))]