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

Make sure to store SIXBIT in six-bit-wide bytes

Browse Source
This commit is contained in:
Alexander Noack
2025-12-18 17:53:19 +01:00
parent 4f98ceccb2
commit fe23d86f22
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/sudoku.s
View File

@@ -12,7 +12,6 @@ P=17 ;Define P as the stack pointer.
PDLLEN==30 ;Set the size of the stack to 30 words.
PDL: BLOCK PDLLEN ;Reserve the stack memory
BPTR==440700 ;Define a byte pointer, easier to write...
CHTTYO==1 ;Define a channel for TTY output.
CHDSKI==2 ;Read channel for disk input.
@@ -34,16 +33,16 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
.LOSE %LSFIL ;Gobble up any errors.
MOVEI A,000 ;Initialize the print flag
MOVEM A,PFLAGS ;to print ASCII
MOVE A,[BPTR,,WELCOME] ;Print the welcome message
MOVE A,[440700,,WELCOME] ;Print the welcome message
PUSHJ P,PUTLN
PUSHJ P,GETJCL ;Read the command line.
MOVE A,[BPTR,,LOADING] ;Print the loading message
MOVE A,[440700,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR
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
MOVE A,[440600,,FNAME1] ;Load FNAME1 into the A
PUSHJ P,OUTSTR ;Print the name in a single line
MOVE A,[BPTR,,FNAME2] ;Now repeat with FNAME2
MOVE A,[440600,,FNAME2] ;Now repeat with FNAME2
PUSHJ P,PUTLN
; Load the files into field
MOVEI A,FIELD ;Store the address of field in C
@@ -60,11 +59,10 @@ GETJCL: PUSH P,A ;Save the register A.
MOVE A,[JCL,,JCL+30]
BLT A,JCL+30
.BREAK 12,[..RJCL,,JCL] ;Request the JCL.
MOVE A,[JCL]
MOVE A,[BPTR,,JCL] ;Load the command parameters into A.
MOVE B,[BPTR,,FNAME1] ;Pointer to the first file name.
MOVE A,[440700,,JCL] ;Load the command parameters into A.
MOVE B,[440600,,FNAME1] ;Pointer to the first file name.
PUSHJ P,TOSIXB ;Transfer the first word into FNAME1
MOVE B,[BPTR,,FNAME2] ;Pointer to the second file name.
MOVE B,[440600,,FNAME2] ;Pointer to the second file name.
PUSHJ P,TOSIXB ;Transfer the second word into FNAME2
POP P,B ;Restore the B register.
POP P,A ;Restore the A register.
@@ -159,7 +157,7 @@ IMPRTF: PUSH P,A ;Save the A register.
MOVE X,[440400,,FIELD] ;Init a 4-bit byte pointer to FIELD.
.CALL [SETZ ? SIXBIT/OPEN/ ;Open a file descriptor.
[.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name
FNAME1 ? 400000,,FNAME2]
%CLIN,,FNAME1 ? 400000,,FNAME2]
.LOSE %LSFIL ;Handle errors after opening the file
IMPRD: .IOT CHDSKI,A ;Read an ascii char into A.
JUMPL A,IMPREX ;If there was nothing read, exit.