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

fix overlong labels 2

Browse Source
This commit is contained in:
Alexander Noack
2025-08-05 22:32:20 +02:00
parent 20f71a754d
commit 87562354b1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/SUDOKU.MID
View File

@@ -41,9 +41,9 @@ GETJCL: PUSH P,A ;Save the register A.
.BREAK 12,[..RJCL,,JCL] ;Request the JCL. .BREAK 12,[..RJCL,,JCL] ;Request the JCL.
MOVE A,[BPTR,,JCL] ;Load the command parameters into A. MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name. MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name.
PUSHJ TOSIXBIT ;Transfer the first word into FNAME1 PUSHJ TOSIXB ;Transfer the first word into FNAME1
MOVE B,[BPTR,,FNAME2] ;Pointer to the second file name. MOVE B,[BPTR,,FNAME2] ;Pointer to the second file name.
PUSHJ TOSIXBIT ;Transfer the second word into FNAME2 PUSHJ TOSIXB ;Transfer the second word into FNAME2
POP P,B ;Restore the B register. POP P,B ;Restore the B register.
POP P,A ;Restore the A register. POP P,A ;Restore the A register.
POPJ P, ;Return from routine. POPJ P, ;Return from routine.