Fix output
This commit is contained in:
@@ -20,7 +20,7 @@ CHDSKI==2 ;Read channel for disk input.
|
||||
JCL: BLOCK 30 ;Reserve space for the command line.
|
||||
FNAME1: BLOCK 15 ;The first part of the file name.
|
||||
FNAME2: BLOCK 15 ;The second file name.
|
||||
FIELD: BLOCK 9 ;Reserve 9 words to
|
||||
FIELD: BLOCK 9 ;Reserve 9 words to store the grid.
|
||||
|
||||
;Print flags
|
||||
;Allows to change the beavihour of the OUTSTR and PUTLN subroutines.
|
||||
@@ -103,7 +103,7 @@ PUTLN: PUSHJ P,OUTSTR ;Calls the OUTSTR subroutine
|
||||
POPJ P, ;before returning.
|
||||
|
||||
IMPRTF: PUSH P,A ;Save the A register.
|
||||
.OPEN
|
||||
.OPEN CHDSKI,[.UOA,,]
|
||||
|
||||
DONE: .LOGOUT 2, ;Exit point for the program.
|
||||
WELCOME:ASCIZ /SUDOKU SOLVER v0.1/ ;Text of the welcome banner.
|
||||
|
||||
Reference in New Issue
Block a user