diff --git a/src/SUDOKU.MID b/src/SUDOKU.MID index db98373..9f57746 100644 --- a/src/SUDOKU.MID +++ b/src/SUDOKU.MID @@ -101,11 +101,14 @@ PUTLN: PUSHJ P,OUTSTR ;Calls the OUTSTR subroutine POPJ P, ;before returning. ;Subroutine that reads the contents of the file into the buffer at FIELD -IMPRTF: .CALL [SETZ ? SIXBIT/OPEN/ [.UAI,,CHDSKI] ? A ? B ((SETZ))] +IMPRTF: .CALL [SETZ ? SIXBIT/OPEN/ + [.UAI,,CHDSKI] ? A ? B ((SETZ))] .LOSE %LSFIL ;Handle errors after opening the file - .CALL [SETZ ? SIXBIT/SIOT/ [,,CHDSKI] ? [BPTR,,C] ? [,,33] ((SETZ))] + .CALL [SETZ ? SIXBIT/SIOT/ + [,,CHDSKI] ? [BPTR,,C] ? [,,33] ((SETZ))] .LOSE %LSFIL - .CALL [SETZ ? SIXBIT/CLOSE/ [,,CHDSKI] ((SETZ))] + .CALL [SETZ ? SIXBIT/CLOSE/ + [,,CHDSKI] ((SETZ))] .LOSE %LSFIL POPJ P ;Return from the input subroutine, DONE: .LOGOUT 2, ;Exit point for the program.