Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - isam.c07
There is 1 other file named isam.c07 in the archive. Click here to see a list.
 REP 8/1	;07C1
	;COPYRIGHT (C) 1971, 1980 BY
 WIT
	;COPYRIGHT (C) 1971, 1983 BY
 REP 28/1	;07C2
	EDIT==206
 WIT
	EDIT==211
 INS 47/2	;07C3
	;.AUTOPATCH 6
	;.NOEDIT
	;.ENDA
	;
	;.AUTOPATCH 7
	;
	;.EDIT	207	FIX EDIT 205 TO WORK CORRECTLY.
	;		DMN, 21-APR-83,SPR 10-33524
	;		A:SRC ISAM
	;
	;.EDIT	210	Fix edit 204 to work correctly.
	;		RLF, 6-JUN-83,SPR 20-19241
	;		A:SRC ISAM
	;
	;.EDIT	211	Fix reading of COBOL labels on tape
	;;		containing packed ISAM file
	;		JEH, 22-JUN-83,SPR:10-33979
	;		A:SRC ISAM
	;
	;.ENDA
 REP 41/49	;07C4
	LAB.11:	PUSHJ	PP, @GETBYT	; GET NEXT CHAR
 WIT
	LAB.11:	TRO	SW,ONEBYT	;[211] TURN ON ONE BYTE AT A TIME SW
		PUSHJ	PP, @GETBYT	; GET NEXT CHAR
 INS 181/54	;07C5
		TRCN	TC,$ERA		;[207] IS THIS A MTA LABEL PROCESSING ERROR?
		JRST	LTCTS1		;[207] YES
 REP 185/54	;07C6
		TRCE	TC,$ERA		; IS THIS A MTA LABEL PROCESSING ERROR?
		JRST	START		; NO

 WIT
		JRST	START		; NO

	LTCTS1:				;[207]
 INS 25/57	;07C7
		MOVE	IM,OM		;[210] OM IS NOW IM FOR FILE BEING BUILT.
 SUM 226474