Use immediate addresses for file names

2025-11-18 21:12:17 +01:00
parent 88f54e3381
commit e6469bb1bc
1 changed files with 1 additions and 1 deletions
--- a/src/sudoku.s
+++ b/src/sudoku.s
@@ -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
-            A ? B ((SETZ))]
+            FNAME1 ? FNAME2 ((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.