Test the parameters

This commit is contained in:
2025-09-28 20:25:26 +02:00
parent 458e07b9ae
commit 3dfa8cc98c

View File

@@ -37,17 +37,17 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
MOVE A,[BPTR,,WELCOME] ;Print the welcome message MOVE A,[BPTR,,WELCOME] ;Print the welcome message
PUSHJ P,PUTLN PUSHJ P,PUTLN
PUSHJ P,GETJCL ;Read the command line. PUSHJ P,GETJCL ;Read the command line.
MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR
MOVEI A,FNAME1 ;Store the first file name in A
MOVEI B,FNAME2 ;Store the second file name in B
MOVEI C,FIELD ;Store the address of field in C
MOVEI A,001 MOVEI A,001
MOVEM A,PFLAGS MOVEM A,PFLAGS
MOVE A,[BPTR,,FNAME1] MOVE A,[BPTR,,FNAME1]
PUSHJ P,PUTLN PUSHJ P,PUTLN
MOVE A,[BPTR,,FNAME2] MOVE A,[BPTR,,FNAME2]
PUSHJ P,PUTLN PUSHJ P,PUTLN
MOVE A,[BPTR,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR
MOVEI A,FNAME1 ;Store the first file name in A
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 PUSHJ P,IMPRTF ;Load the file
PUSHJ P,PFIELD ;Print thee loaded field. PUSHJ P,PFIELD ;Print thee loaded field.