Test the sixbit parameters

This commit is contained in:
2025-09-28 19:39:13 +02:00
parent 2179b4e871
commit 458e07b9ae

View File

@@ -42,6 +42,12 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
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
MOVEM A,PFLAGS
MOVE A,[BPTR,,FNAME1]
PUSHJ P,PUTLN
MOVE A,[BPTR,,FNAME2]
PUSHJ P,PUTLN
PUSHJ P,IMPRTF ;Load the file
PUSHJ P,PFIELD ;Print thee loaded field.