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