!MACRO GUBED.TE
 --------------


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

3 OCTOBER 1975

PURPOSE
-------
TO DISABLE DUBUGGING CODE IN A FORTRAN II PROGRAM BY
INSERTING A "C@" IN FRONT OF EACH LINE OF THAT CODE.


OUTLINE
-------
[0.0] INITIALIZE
STANDARD TECO PREAMBLE: SEE DEC OS/8 HANDBOOK PG. 1-70

[1.0] OPEN FILE (EDIT BACKUP)
THE FILE NAME IS THE SECOND ARGUEMENT OF THE "MUNG" COMMAND
(THE FIRST BEING THIS MACRO) AND IS ASSUMED TO CONTAIN THE
PROPER TAGS AROUND THE CODE TO BE DISABLED, I.E. THE CODE
IS PRECEEDED WITH A COMMENT LINE CONTAINING AT LEAST ONE
ASTERISK FOLLOWED (NO SPACES) BY THE WORD "DEBUG", AND THE
CODE IS FOLLOWED BY A COMMENT LINE CONTAINING AT LEAST THREE
ASTERISKS IN A ROW.

[2.0] SEARCH FOR THE PREFIX TAG

	[2.1] IF NOT FOUND, CLOSE FILE AND EXIT;
		IF FOUND, NOTE POINTER POSITION OF NEXT LINE.

[3.0] SEARCH FOR SUFFIX TAG

	[3.1] IF FOUND, NOTE POSITION OF POINTER AND
		INSERT "C@" IN FRONT OF EACH LINE BETWEEN
		TAGS, THEN GO TO [2.0];
		IF NOT FOUND, ASSUME CODE CROSSES TECO 
		BUFFER, SO INSERT "C@" IN FRONT OF EACH
		LINE TO END OF BUFFER, DUMP CURRENT BUFFER,
		BRING IN NEXT BUFFER, SEARCH FOR SUFFIX TAG
		AND INSERT "C@" IN FRONT OF EACH LINE FROM
		BEGINNING OF BUFFER TO SUFFIX TAG, THEN
		GOTO [2.0]



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

[1.0]
START!EBDEV:Y!

[2.0]
!!HEAD!:N*DEBUG"EEX'L.UN!

[3.0]
!!TAIL!:S***"EOENDBUFFER'0LL.UMQNJ<.-QM"AONEXT'IC@L>!
!!ENDBUFFER!!QNJ<.-Z"AP0UNOAGAIN'IC@L>!

POINTERS
--------
!!AGAIN!OTAIL!
!!NEXT!OHEAD!


END!