From 88f54e3381363165af84c2f77c673293c0cf15b7 Mon Sep 17 00:00:00 2001
From: Jali <jali@orca-central.de>
Date: Wed, 29 Oct 2025 21:49:57 +0100
Subject: [PATCH] Change calls according to Lars Brinkhoff

---
 src/sudoku.s | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/sudoku.s b/src/sudoku.s
index 07554b1..66743b7 100644
--- a/src/sudoku.s
+++ b/src/sudoku.s
@@ -39,8 +39,8 @@ START:  MOVE  P,[-PDLLEN,,PDL-1]       ;Initialize the stack.
         PUSHJ P,GETJCL                 ;Read the command line.
         MOVE  A,[BPTR,,LOADING]        ;Print the loading message
         PUSHJ P,OUTSTR
-        MOVEI A,[BPTR,,FNAME1]         ;Store the first file name in A
-        MOVEI B,[BPTR,,FNAME2]         ;Store the second file name in B
+        MOVEI A,[%CLIN,,FNAME1]         ;Store the first file name in A
+        MOVEI B,[%CLIN,,FNAME2]         ;Store the second file name in B
         MOVEI C,FIELD                  ;Store the address of field in C
         PUSHJ P,IMPRTF                 ;Load the file
         PUSHJ P,PFIELD                 ;Print the loaded field.
@@ -139,7 +139,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
-            %CLIMM,,FNAME1 ? %CLIMM,,FNAME2 ((SETZ))]
+            A ? B ((SETZ))]
          .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.