Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cleanc.c05
There are 2 other files named cleanc.c05 in the archive. Click here to see a list.
INS 20/1 ;05C1
;SMI 27-OCT-82 [1427] 68274 Gives warning SHOULD BE UNSIGNED INTEGER
; when data item is an unsigned integer.
;SMI 15-OCT-82 [1417] FIX 68274 CONVERSION OF WRITE
;DMN 12-MAR-82 [1340] 68274 converter does not flag JUSTIFIED clause
; in VALUE
;JEH 02-FEB-82 [1335] Declare DATAB entries for all indexes if
; REPORT SECTION is scanned for their use by REPORT
; WRITER stmts
INS 62/1 ;05C2
ENTRY CLNHLD ;[1335]
INS 4/2 ;05C3
PUSH PP,TA ;[1417]
MOVE TA,FILLOC ;[1417] GET LOCATION OF FILE ENTRY
CAMN TA,FILNXT ;[1417] ANY FILTAB ENTRIES ?
JRST CLNAC2 ;[1417] NO
HRRZI TA,SZ.DEV ;[1417] SET UP ABSOLUTE ADDRESS TO FILTAB
ADDM TA,FILTBL## ;[1417]
HRRZI TA,CD.FIL*1B20+1 ;[1417]
CLNACC: HRLZM TA,CURFIL ;[1417]
PUSHJ PP,LNKSET ;[1417]
HRRM TA,CURFIL ;[1417]
LDB TB,FI.ACC ;[1417] GET FILE ACCESS MODE
CAIE TB,%%ACC ;[1417] ACCESS SPECIFIED ?
JRST CLNAC1 ;[1417] YES
HRRZI TB,%ACC.S ;[1417] NO, ASSUME SEQUENTIAL
DPB TB,FI.ACC ;[1417] STORE ACCESS MODE
CLNAC1: LDB TA,FI.NXT ;[1417] GET NEXT FILTAB ENTRY
JUMPN TA,CLNACC ;[1417] FINISHED ?
CLNAC2: POP PP,TA ;[1417] YES
REP 32/2 ;05C4
JRST [ SKIPN RPTRPT ; [415] END OF HLDTAB ANY REPORT CF TO DO?
WIT
JRST [SKIPE BLDIX## ;[1335] IF JUST BUILDING INDEXES,
POPJ PP, ;[1335] EXIT
SKIPN RPTRPT ; [415] END OF HLDTAB ANY REPORT CF TO DO?
INS 39/2 ;05C5
SKIPE BLDIX ;[1335] IF JUST BUILDING INDEXES,
JRST CLNHLL ;[1335] LOOP BACK
INS 86/12 ;05C6
IFN FT68274,< ;[1427]
PUSHJ PP,CLHSUB ;[1427] GET USAGE OF DATA ITEM
> ;[1427]
INS 11/35 ;05C7
IFN FT68274,<
LDB TC,DA.JST ;[1340]
MOVEI DW,E.768 ;[1340]
SKIPE TC ;[1340] SKIP IF NO "JUSTIFIED" CLAUSE
PUSHJ PP,WARN ;[1340] OTHERWISE WARN USER OF DIFFERENCE
>
SUM 74386