Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
forfmt.c14
There are no other files named forfmt.c14 in the archive.
REP 4/1 ;14C1
TV FORFMT FORMAT PROCESSOR,10(4233)
WIT
TV FORFMT FORMAT PROCESSOR,10(4242)
INS 309/1 ;14C2
4242 RJD 21-Jan-86
Correction to edit 4223. Move the check for FORMAT
descriptors using default widths so other descriptors
followed by a blank are not issued the warning.
INS 119/5 ;14C3
STAVDX: 0 ;[4242] VAX compatibility flagging
AFLAG+REFLAG ;[4242] FORMATS which can have defaults
0 ;[4242]
0 ;[4242]
REP 23/14 ;14C4
FMTNC: SKIPN T1,FMT.FW ;[4223] GET FORMAT WIDTH
PUSHJ P,DFLAG ;[4231] [4223] FLAG IF DEFAULT USED
WIT
FMTNC: SKIPE T1,FMT.FW ;[4242] [4223] GET FORMAT WIDTH
INS 87/14 ;14C5
MOVEI T2,VAXIDX ;[4242] Get VMS Compatibility Flags
TDNN T2,%FLIDX ;[4242] Are we doing VMS flagging?
POPJ P, ;[4242] No
MOVE T2,FMTSTA ;[4242] Yes. Get state again
TDNE T1,STAVDX(T2) ;[4242] Are we defaulting?
$ECALL CFD ;[4242] Yes, warn
SUM 109249