Set printflag for sixbit parameters

This commit is contained in:
2025-09-07 15:15:05 +02:00
parent 67761eeaa4
commit d4363be3b4

View File

@@ -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.