PDP-10 Archive: getitm.c06 from bb-bt99g-bb

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - getitm.c06

There is 1 other file named getitm.c06 in the archive. Click here to see a list.

 INS 5/2	;06C1
	;SMI	04-Mar-83	[1455] 68274 Fix conversion of statement after NOTE.
	;SMI	04-Mar-83	[1454] 68274 Fix backup over period.
 INS 8/67	;06C2
		SETZM	CVTCPF		;[1455] STOP COMMENTING
 INS 55/67	;06C3
		SETZM	CVTCPF		;[1455] STOP COMMENTING
 INS 1/72	;06C4
	;[1454]Here to test to see if the current character is a period, if it is
	;[1454] update CVTSCP ( pointer to start of clause )

		INTER.	CVTCFP		;[1454]
	CVTCFP:	CAIE	CH,"."		;[1454] CHARACTER A PERIOD?
		POPJ	PP,		;[1454] NO, EXIT
	CVTCF1:	ILDB	TD,CVTSCP	;[1454] GET NEXT CHARACTER
		CAIE	CH,"."		;[1454] IF PERIOD, STOP
		CAIN	CH,0		;[1454] IF NULL STOP
		POPJ	PP,		;[1454]
		JRST	CVTCF1		;[1454] REPEAT

 INS 24/72	;06C5
		SETZM	CVTBFL		;[1455]SET POINTER TO NOT LOOK AT PREVIOUS LINE
 SUM 209603