fix JCL routine

2025-08-04 17:27:34 +02:00
parent 29587ce737
commit da209c9112
1 changed files with 1 additions and 2 deletions
--- a/src/SUDOKU.MID
+++ b/src/SUDOKU.MID
@@ -36,8 +36,7 @@ START:  MOVE  P,[-PDLLEN,,PDL-1]       ;Initialize the stack.
 ;Subroutine to read the JCL from DDT and get the command line parameters.
 ;Clobbers B.
 GETJCL: .BREAK 12,[..RJCL,,JCL]        ;Get the JCL
-        MOVE  B,[BPTR,,JCL]            ;Byte pointer to JCL
-        PUSHJ P,                       ;Return from routine.
+        POPJ  P,                       ;Return from routine.
 ;Subroutine to print a string of text on the output.
 ; Clobbers A and B.
 OUTSTR: HRLI  A,BPTR                   ;Ensure, A is a byte pointer.