Remove Debug message, add missing comma
This commit is contained in:
@@ -43,8 +43,6 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
|
||||
MOVEI B,FNAME2 ;Store the second file name in B
|
||||
MOVEI C,FIELD ;Store the address of field in C
|
||||
PUSHJ P,IMPRTF ;Load the file
|
||||
MOVE A,[BPTR,,WELCOME]
|
||||
PUSHJ P,PUTLN
|
||||
PUSHJ P,PFIELD ;Print the loaded field.
|
||||
|
||||
JRST DONE ;Jump to the end of the program.
|
||||
@@ -156,7 +154,7 @@ IMPREX: .CALL [SETZ ? SIXBIT/CLOSE/ ;Close the file, before returning.
|
||||
.LOSE %LSFIL
|
||||
POP P,X ;Restore the X register.
|
||||
POP P,A ;Restore the A register.
|
||||
POPJ P ;Return from the input subroutine,
|
||||
POPJ P, ;Return from the input subroutine,
|
||||
DONE: .LOGOUT 2, ;Exit point for the program.
|
||||
WELCOME:ASCIZ /SUDOKU SOLVER v0.1/ ;Text of the welcome banner.
|
||||
LOADING:ASCIZ /LOADING / ;Load message.
|
||||
|
||||
Reference in New Issue
Block a user