Set printflag for sixbit parameters
This commit is contained in:
@@ -39,6 +39,8 @@ 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,[BPTR,,LOADING] ;Print the loading message
|
MOVE A,[BPTR,,LOADING] ;Print the loading message
|
||||||
PUSHJ P,OUTSTR
|
PUSHJ P,OUTSTR
|
||||||
|
MOVEI A,001 ;Swtich to SIXBIT
|
||||||
|
MOVEM A,PFLAGS ;Reset the print flag
|
||||||
MOVE A,[BPTR,,FNAME1] ;Read the parameter.
|
MOVE A,[BPTR,,FNAME1] ;Read the parameter.
|
||||||
PUSHJ P,OUTSTR ;Print the file name
|
PUSHJ P,OUTSTR ;Print the file name
|
||||||
MOVE A,[BPTR,,FNAME2] ;Print the second file name.
|
MOVE A,[BPTR,,FNAME2] ;Print the second file name.
|
||||||
|
|||||||
Reference in New Issue
Block a user