Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobole.c08
There are 2 other files named cobole.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1374 on 9/23/83 at 8:29 AM by KILGORE                         
 WIT
	; UPD ID= 1613 on 5/17/84 at 9:53 AM by HOFFMAN                         
 REP 27/1	;08C2
	;V12A RELEASED  *****
	;NAME	DATE		COMMENTS
	;DMN	21-Jun-82	[1363] Fix errors in handling alphabet-name in SPECIAL-NAMES.

	;V12B RELEASED   *****
 WIT
	;NAME	DATE		COMMENTS

	;V13 RELEASED   *****
	;JEH	16-MAY-84	[1535] Adjust subscript count if error w/ ref. modifier
	;JEH	26-APR-84	[1522] Clean up EOP stack if error w/ ref. modifiers

	;V12B RELEASED  *****
	;DMN	21-Jun-82	[1363] Fix errors in handling alphabet-name in SPECIAL-NAMES.

	;V12A RELEASED   *****
 INS 39/16	;08C3
		TSWFZ	FERROR		;[1522] Error detected with modifiers?
		JRST	GBK.E1		;[1522] Yes, clear EOP stack
 INS 63/16	;08C4
		TXNE	W1,RFMLEN	;[1535] If length modifier triggered error,
		SUBI	TB,2		;[1535]  sub count includes ref modifiers
		SKIPGE	TB		;[1535]
		SETZ	TB,		;[1535]
		HRLM	TB,1(TA)	;[1535]
 INS 68/16	;08C5
		CAIE	W2,OPREFM	;[1522]
 SUM 119477