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

Format code

Browse Source
This commit is contained in:
Alexander Noack
2025-08-04 00:36:40 +02:00
parent 7aa07cdf9a
commit ecbce807e5
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/SUDOKU.MAC
View File

@@ -22,14 +22,14 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
MOVE A,[BPTR,,HELLO] ;Load A with a byte pointer to HELLO. MOVE A,[BPTR,,HELLO] ;Load A with a byte pointer to HELLO.
PUSHJ P,OUTSTR ;Print the out string. PUSHJ P,OUTSTR ;Print the out string.
JRST DONE ;Jump to the end of the program. JRST DONE ;Jump to the end of the program.
OUTSTR: HRLI A,BPTR ;Ensure, A is a byte pointer. OUTSTR: 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.
.IOT CHTTYO,B ;Print a character. .IOT CHTTYO,B ;Print a character.
JRST OUT ;Jump back to print the next character. JRST OUT ;Jump back to print the next character.
OUTEX: .IOT CHTTYO,[^M] ;Print carriage return and OUTEX: .IOT CHTTYO,[^M] ;Print carriage return and
.IOT CHTTYO,[^J] ;newline characters. .IOT CHTTYO,[^J] ;newline characters.
POPJ P, ;Return from the subroutine. POPJ P, ;Return from the subroutine.
DONE: .LOGOUT 2, ;Exit point for the program. DONE: .LOGOUT 2, ;Exit point for the program.
HELLO: ASCIZ /HELLO WORLD/ ;Define example string. HELLO: ASCIZ /HELLO WORLD/ ;Define example string.
END START END START