Remove TOSIXB

2025-11-18 22:28:01 +01:00
parent a4b20bb390
commit fb52341375
1 changed files with 2 additions and 1 deletions
--- a/src/sudoku.s
+++ b/src/sudoku.s
@@ -52,6 +52,7 @@ GETJCL: PUSH  P,A                      ;Save the register A.
        MOVE  A,[JCL,,JCL+30]
        BLT   A,JCL+30
        .BREAK 12,[..RJCL,,JCL]        ;Request the JCL.
+        MOVE  A,[JCL]
        MOVE  A,[BPTR,,JCL]            ;Load the command parameters into A.
        MOVE  B,[BPTR,,FNAME1]         ;Pointer to the first file name.
        ;PUSHJ P,TOSIXB                 ;Transfer the first word into FNAME1