Debug: Print file name

This commit is contained in:
2026-01-11 16:10:42 +01:00
parent aed23b410e
commit 98c7d26b39

View File

@@ -29,6 +29,10 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
PUSHJ P,GETJCL ;Read the command line. PUSHJ P,GETJCL ;Read the command line.
MOVE A,[440700,,LOADING] ;Print the loading message MOVE A,[440700,,LOADING] ;Print the loading message
PUSHJ P,OUTSTR PUSHJ P,OUTSTR
MOVE A,[440600,,FNAME1] ;Print Filenname
PUSHJ OUTSTR
MOVE A,[440600,,FNAME2]
PUSHJ OUTSTR
; Load the files into field ; Load the files into field
MOVEI A,FIELD ;Store the address of field in C MOVEI A,FIELD ;Store the address of field in C
PUSHJ P,IMPRTF ;Load the file PUSHJ P,IMPRTF ;Load the file