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

Debug: Print FNAME1 and FNAME2 after being stored as SIXBIT

Browse Source
This commit is contained in:
Alexander Noack
2025-11-30 13:59:50 +01:00
parent fb52341375
commit f517803b0f
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/sudoku.s
View File

@@ -39,9 +39,18 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
PUSHJ P,GETJCL ;Read the command line.
MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR
MOVEI A,FIELD ;Store the address of field in C
PUSHJ P,IMPRTF ;Load the file
PUSHJ P,PFIELD ;Print the loaded field.
; Hold off loading the file, and instead, try to figure out, if they
; are stored as SIXBIT
;MOVEI A,FIELD ;Store the address of field in C
;PUSHJ P,IMPRTF ;Load the file
;PUSHJ P,PFIELD ;Print the loaded field.
MOVEI A,001 ;Pretend the field name is SIXBIT
MOVEM A,PFLAGS ;Store flags in PFLAGS
MOVE A,[BPTR,,FNAME1] ;Load FNAME1 into the A
PUSHJ P,PUTLN ;Print the name in a single line
MOVE A,[BPTR,,FNAME2] ;Now repeat with FNAME2
PUSHJ P,PUTLN
JRST DONE ;Jump to the end of the program.
@@ -55,9 +64,9 @@ GETJCL: PUSH P,A ;Save the register A.
MOVE A,[JCL]
MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
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.
;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,A ;Restore the A register.
POPJ P, ;Return from routine.