jali/PDP10Sudoku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix JCL routine

Browse Source
This commit is contained in:
Alexander Noack
2025-08-04 17:27:34 +02:00
parent 29587ce737
commit da209c9112
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/SUDOKU.MID
View File

@@ -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. ;Subroutine to read the JCL from DDT and get the command line parameters.
;Clobbers B. ;Clobbers B.
GETJCL: .BREAK 12,[..RJCL,,JCL] ;Get the JCL GETJCL: .BREAK 12,[..RJCL,,JCL] ;Get the JCL
MOVE B,[BPTR,,JCL] ;Byte pointer to JCL POPJ P, ;Return from routine.
PUSHJ P, ;Return from routine.
;Subroutine to print a string of text on the output. ;Subroutine to print a string of text on the output.
; Clobbers A and B. ; Clobbers A and B.
OUTSTR: HRLI A,BPTR ;Ensure, A is a byte pointer. OUTSTR: HRLI A,BPTR ;Ensure, A is a byte pointer.