Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/isam.c12
There are 2 other files named isam.c12 in the archive. Click here to see a list.
 REP 28/1	;12C1
	ISMEDT==212	;EDIT LEVEL
 WIT
	ISMEDT==213	;EDIT LEVEL
 INS 76/2	;12C2
	;.ENDA
	;.AUTOPATCH 10
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 11
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 12
	;
	;.EDIT 213	Fix the INPUT file LOOKUP failure to put IF1LB+3 into TB
	;;		so that the error code can be used.
	;		MJC,26-AUG-85,SPR:20-20804
	;		A:SRC ISAM
	;
	;.ENDA
 REP 22/13	;12C3
		  PUSHJ	PP,LOOKF	;WHAT HAPPENED?
 WIT
		  PUSHJ	PP,IFLOKF	;[213]WHAT HAPPENED?
 INS 40/55	;12C4
	IFLOKF:	HRRZ	TB,IF1LB+3	;[213]GET INPUT FILE LOOKUP ERROR CODE
 SUM 50518