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

Debug: Convert parameters into SIXBIT

Browse Source
This commit is contained in:
Alexander Noack
2025-12-16 13:25:51 +01:00
parent ef8ddfb6a9
commit 963e74b1e4
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/sudoku.s
View File

@@ -39,7 +39,7 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
PUSHJ P,GETJCL ;Read the command line. PUSHJ P,GETJCL ;Read the command line.
MOVE A,[BPTR,,LOADING] ;Print the loading message MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR PUSHJ P,OUTSTR
MOVEI A,000 ;Pretend the field name is SIXBIT MOVEI A,001 ;Pretend the field name is SIXBIT
MOVEM A,PFLAGS ;Store flags in PFLAGS MOVEM A,PFLAGS ;Store flags in PFLAGS
MOVE A,[BPTR,,FNAME1] ;Load FNAME1 into the A MOVE A,[BPTR,,FNAME1] ;Load FNAME1 into the A
PUSHJ P,OUTSTR ;Print the name in a single line PUSHJ P,OUTSTR ;Print the name in a single line
@@ -63,9 +63,9 @@ GETJCL: PUSH P,A ;Save the register A.
MOVE A,[JCL] MOVE A,[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,CPSTR ;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,CPSTR ;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.