diff --git a/src/sudoku.s b/src/sudoku.s index d35128c..3b1c8b3 100644 --- a/src/sudoku.s +++ b/src/sudoku.s @@ -138,10 +138,10 @@ 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 - A ? B ((SETZ))] + [A] ? [B] ((SETZ))] .LOSE %LSFIL ;Handle errors after opening the file IMPRD: .IOT CHDSKI,A ;Read an ascii char into A. - JUMPE A,IMPREX ;If there was nothing read, exit. + JUMPL A,IMPREX ;If there was nothing read, exit. CAIGE A,060 ;Is A >= '0' then skip, JUMPA IMPRD ;else read the next char. CAILE A,071 ;If A <= '9', then skip.