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

Merge branch 'develop' of ssh://git.orca-central.de:10229/jali/PDP10Sudoku into develop

Browse Source
This commit is contained in:
Alexander Noack
2025-12-10 16:02:31 +01:00
parent b371e07c10 dfd415476d
commit 27a2a92be4
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/sudoku.s
View File

@@ -39,19 +39,18 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
PUSHJ P,GETJCL ;Read the command line. PUSHJ P,GETJCL ;Read the command line.
MOVE A,[BPTR,,LOADING] ;Print the loading message MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR PUSHJ P,OUTSTR
; 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 MOVEI A,001 ;Pretend the field name is SIXBIT
MOVEM A,PFLAGS ;Store flags in PFLAGS MOVEM A,PFLAGS ;Store flags in PFLAGS
MOVE A,[BPTR,,FNAME1] ;Load FNAME1 into the A MOVE A,[BPTR,,FNAME1] ;Load FNAME1 into the A
PUSHJ P,OUTSTR ;Print the name in a single line PUSHJ P,OUTSTR ;Print the name in a single line
MOVE A,[BPTR,,FNAME2] ;Now repeat with FNAME2 MOVE A,[BPTR,,FNAME2] ;Now repeat with FNAME2
PUSHJ P,PUTLN PUSHJ P,PUTLN
; Load the files into field
MOVEI A,FIELD ;Store the address of field in C
PUSHJ P,IMPRTF ;Load the file
PUSHJ P,PFIELD ;Print the loaded field.
JRST DONE ;Jump to the end of the program. JRST DONE ;Jump to the end of the program.
;Subroutine to read the JCL from DDT and get the command line parameters. ;Subroutine to read the JCL from DDT and get the command line parameters.
@@ -160,7 +159,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
? FNAME1 ? FNAME2 ((SETZ))] FNAME1 ? FNAME2 ((SETZ))]
.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.