Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - forfmt.c13
There is 1 other file named forfmt.c13 in the archive. Click here to see a list.
 REP 4/1	;13C1
		TV	FORFMT	FORMAT PROCESSOR,10(4146)
 WIT
		TV	FORFMT	FORMAT PROCESSOR,10(4233)
 INS 298/1	;13C2
	4223	RJD	18-Sep-85
		Add code to flag for VAX incompatibility when formats with
		default widths are used.

	4231	RJD	14-Nov-85
		Correction to edit 4223.  Change CALL to PUSHJ P because
		CALL on TOPS-10 no longer assembles as a PUSHJ P.

	4233	RJD	18-Nov-85
		Check for a valid address for a format statement.

 INS 27/8	;13C3
		CAMG	T1,[MAXSEC,,-1]	;[4233]
		 CAIG	T1,.JBDA	;[4233] IS THIS AN ADDRESS?
		  $ACALL IFT		;[4233] NO
 REP 23/14	;13C4
	FMTNC:	SKIPE	T1,FMT.FW		;GET FORMAT WIDTH
 WIT
	FMTNC:	SKIPN	T1,FMT.FW		;[4223] GET FORMAT WIDTH
		 PUSHJ	P,DFLAG			;[4231] [4223] FLAG IF DEFAULT USED
 INS 38/14	;13C5
	DFLAG:	MOVEI	T2,VAXIDX		;[4223] Flag as a VAX incompatibility
		TDNE	T2,%FLIDX		;[4223] Any flags the same?
		 $ECALL	CFD			;[4223] Yes, Display the error message
		PJRST	%POPJ1			;[4223] End of Routine DFLAG

 SUM 163306