Debug: Print file name

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

View File

@@ -27,8 +27,12 @@ START: MOVE P,[-PDLLEN,,PDL-1] ;Initialize the stack.
MOVE A,[440700,,WELCOME] ;Print the welcome message
PUSHJ P,PUTLN
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
MOVE A,[440600,,FNAME1] ;Print Filenname
PUSHJ OUTSTR
MOVE A,[440600,,FNAME2]
PUSHJ OUTSTR
; Load the files into field
MOVEI A,FIELD ;Store the address of field in C
PUSHJ P,IMPRTF ;Load the file