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

Remove SIXBIT conversion from GETJCL

Browse Source
This commit is contained in:
Alexander Noack
2025-11-18 22:00:39 +01:00
parent 95f1a56fa2
commit a4b20bb390
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/sudoku.s
View File

@@ -54,9 +54,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 P,TOSIXB ;Transfer the first word into FNAME1 ;PUSHJ P,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 P,TOSIXB ;Transfer the second word into FNAME2 ;PUSHJ P,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.