!MACRO CDFSKP.TE
 --------------


GERSON GROSFELD
IMAGE PROCESSING UNIT, DCBD
NATIONAL CANCER INSTITUTE
BETHESDA, MD. 20014

3 OCTOBER 1975

PURPOSE
-------
TO LOCATE AND PRINT OUT ANY "JMS 45" INSTRUCTIONS IN THE
GIVEN FILE.

TWO PASSES ARE MADE ON THE FILE. ON THE FIRST, "JMS 45" IS
SEARCHED FOR. ON THE SECOND PASS, ITS MACHINE CODE "4045" IS
SEARCHED FOR. 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 "JMS 45"
        IF FOUND, PRINT PRECEEDING 10 LINES AND NEXT 2 LINES OF FILE
          (AND TWO CR/LF'S)
        IF NOT, GO TO [3.0]



[3.0] SEARCH FOR "4045"
   AFTER THE FIRST PASS, THE CODE MODIFIES ITSELF TO RE-OPEN
   THE FILE AND SEARCH FOR "4045" RATHER THAT "JMS 45".
        IF FOUND, SAME AS IN STEP [2.0]
        IF NOT FOUND, EXIT.





PROGRAM
-------
[0.0]
!HX1HKGYJ2SDEV:-4DG1J2SSTART!0,.KHX1M1!

[1.0]
START!ERDEV:Y!

[2.0]
!!INIT!
"JMS 45" PASS


<:_JMS 45"EOENDPASS'0L-10T2TL




>!

[3.0]
!!ENDPASS!HKG1JS!INIT!I0,0X1J2<JMS 454045>
S!ENDPASS!.,ZKI


DONE

EXHX2M2!

END
!