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

Add a fixed directory name

Browse Source
This commit is contained in:
Alexander Noack
2025-10-03 18:05:07 +02:00
parent 1231eec31f
commit 56df53bfb6
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/sudoku.s
View File

@@ -37,14 +37,6 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
MOVE A,[BPTR,,WELCOME] ;Print the welcome message MOVE A,[BPTR,,WELCOME] ;Print the welcome message
PUSHJ P,PUTLN PUSHJ P,PUTLN
PUSHJ P,GETJCL ;Read the command line. PUSHJ P,GETJCL ;Read the command line.
MOVEI A,001
MOVEM A,PFLAGS
MOVE A,[BPTR,,FNAME1]
PUSHJ P,PUTLN
MOVE A,[BPTR,,FNAME2]
PUSHJ P,PUTLN
MOVE A,000
MOVEM A,PFLAGS
MOVE A,[BPTR,,LOADING] ;Print the loading message MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR PUSHJ P,OUTSTR
MOVEI A,FNAME1 ;Store the first file name in A MOVEI A,FNAME1 ;Store the first file name in A
@@ -146,7 +138,7 @@ IMPRTF: PUSH P,A ;Save the A register.
MOVE X,[440400,,FIELD] ;Init a 4-bit byte pointer to FIELD. MOVE X,[440400,,FIELD] ;Init a 4-bit byte pointer to FIELD.
.CALL [SETZ ? SIXBIT/OPEN/ ;Open a file descriptor. .CALL [SETZ ? SIXBIT/OPEN/ ;Open a file descriptor.
[.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name [.UAI,,CHDSKI] ? [SIXBIT/DSK/] ;Mode, channel and device name
A ? B ((SETZ))] A ? B ? 400000,,[SIXBIT/JALI/]]
.LOSE %LSFIL ;Handle errors after opening the file .LOSE %LSFIL ;Handle errors after opening the file
IMPRD: .IOT CHDSKI,A ;Read an ascii char into A. IMPRD: .IOT CHDSKI,A ;Read an ascii char into A.
JUMPL A,IMPREX ;If there was nothing read, exit. JUMPL A,IMPREX ;If there was nothing read, exit.