From 56df53bfb6362347bfbb3b695417cb8f5d2e88d3 Mon Sep 17 00:00:00 2001
From: Jali <jali@orca-central.de>
Date: Fri, 3 Oct 2025 18:05:07 +0200
Subject: [PATCH] Add a fixed directory name

---
 src/sudoku.s | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/src/sudoku.s b/src/sudoku.s
index 20a2170..efa7433 100644
--- a/src/sudoku.s
+++ b/src/sudoku.s
@@ -37,14 +37,6 @@ START:  MOVE  P,[-PDLLEN,,PDL-1]       ;Initialize the stack.
         MOVE  A,[BPTR,,WELCOME]        ;Print the welcome message
         PUSHJ P,PUTLN
         PUSHJ P,GETJCL                 ;Read the command line.
-        MOVEI A,001
-        MOVEM A,PFLAGS
-        MOVE  A,[BPTR,,FNAME1]
-        PUSHJ P,PUTLN
-        MOVE  A,[BPTR,,FNAME2]
-        PUSHJ P,PUTLN
-        MOVE  A,000
-        MOVEM A,PFLAGS
         MOVE  A,[BPTR,,LOADING]        ;Print the loading message
         PUSHJ P,OUTSTR
         MOVEI A,FNAME1                 ;Store the first file name in A
@@ -146,7 +138,7 @@ IMPRTF: PUSH  P,A                      ;Save the A register.
         MOVE  X,[440400,,FIELD]        ;Init a 4-bit byte pointer to FIELD.
         .CALL [SETZ ? SIXBIT/OPEN/     ;Open a file descriptor.
             [.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name
-                A ? B ((SETZ))]
+                A ? B ? 400000,,[SIXBIT/JALI/]]
          .LOSE %LSFIL                  ;Handle errors after opening the file
 IMPRD:  .IOT  CHDSKI,A                 ;Read an ascii char into A.
         JUMPL A,IMPREX                 ;If there was nothing read, exit.