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

Remove all references to BPTR

Browse Source
This commit is contained in:
Alexander Noack
2025-12-18 17:58:00 +01:00
parent fe23d86f22
commit cc98ef24ab
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/sudoku.s
View File

@@ -100,7 +100,6 @@ TOSEN: POP P,D ;Restore the D register.
;Clobbers A. ;Clobbers A.
OUTSTR: PUSH P,B ;Save register B. OUTSTR: PUSH P,B ;Save register B.
PUSH P,D ;Save register D. PUSH P,D ;Save register D.
HRLI A,BPTR ;Ensure, A is a byte pointer.
OUT: ILDB B,A ;Load the next byte from A. OUT: ILDB B,A ;Load the next byte from A.
JUMPE B,OUTEX ;Exit the routine, if all bytes are done. JUMPE B,OUTEX ;Exit the routine, if all bytes are done.
MOVE D,PFLAGS ;Load the print flags. MOVE D,PFLAGS ;Load the print flags.
@@ -128,7 +127,7 @@ PFIELD: PUSH P,A ;Save the A register.
MOVE X,[440400,,FIELD] ;Store a bytepointer in X. MOVE X,[440400,,FIELD] ;Store a bytepointer in X.
PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return. PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
.IOT CHTTYO,[^J] ;Print a new line. .IOT CHTTYO,[^J] ;Print a new line.
MOVE A,[BPTR,,HLINE] ;Print a horizontal line. MOVE A,[440700,,HLINE] ;Print a horizontal line.
POPJ P,PUTLN POPJ P,PUTLN
MOVEI Y,011 ;Load the index register with 9. MOVEI Y,011 ;Load the index register with 9.
MOVEI B,174 ;Print a '|' symbol. MOVEI B,174 ;Print a '|' symbol.