Debug: Print file name
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user