!MACRO CDF.TE ------------ GERSON GROSFELD IMAGE PROCESSING UNIT, DCBD NATIONAL CANCER INSTITUTE BETHESDA, MD. 20014 3 OCTOBER 1975 PURPOSE ------- TO LOCATE AND PRINT OUT ANY CDF INSTRUCTIONS IN THE GIVEN FILE. THE CODE "62X1" IS SEARCHED FOR, WHERE X IS ANY VALUE. THE INPUT FILE IS NOT ALTERED. OUTLINE ------- [0.0] INITIALIZE STANDARD TECO PREAMBLE: SEE DEC OS/8 HANDBOOK PG. 1-70 [1.0] OPEN FILE (READ ONLY) THE FILE NAME IS THE SECOND ARGUEMENT OF THE "MUNG" COMMAND (THE FIRST BEING THIS MACRO) [2.0] SEARCH FOR "62X1" IF FOUND, PRINT PRECEEDING 10 LINES (AND TWO CR/LF'S) IF NOT, EXIT PROGRAM ------- [0.0] !HX1HKGYJ2SDEV:-4DG1J2SSTART!0,.KHX1M1! [1.0] START!ERDEV:Y! [2.0] !:_621"ENONE FOUND EX'<0LL-11T:_621"E DONE EX' >! END !