Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/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
INS 4/2 ;05C2
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
INS 86/12 ;05C3
IFN FT68274,< ;[1427]
PUSHJ PP,CLHSUB ;[1427] GET USAGE OF DATA ITEM
> ;[1427]
INS 11/35 ;05C4
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 158534