Set printflag for sixbit parameters

2025-09-07 15:15:05 +02:00
parent 67761eeaa4
commit d4363be3b4
1 changed files with 2 additions and 0 deletions
--- a/src/SUDOKU.MID
+++ b/src/SUDOKU.MID
@@ -39,6 +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,001                    ;Swtich to SIXBIT
+        MOVEM A,PFLAGS                 ;Reset the print flag
        MOVE  A,[BPTR,,FNAME1]         ;Read the parameter.
        PUSHJ P,OUTSTR                 ;Print the file name
        MOVE  A,[BPTR,,FNAME2]         ;Print the second file name.