;****************************************************************************
;	PROGRAM NAME   ISAM1.M68
;	PURPOSE        RETRIEVES RECORD AND BLOCK COUNTERS
;		       FROM ISAM INDEX FILES
;****************************************************************************
;Donated by Golden City Data Systems Pty Ltd
;	    36 Wattle Street,Bendigo Vic Australia
;           for use by AMUS Members
;
;
	VMAJOR=1.
	VMINOR=1.
	VSUB=1.
	VEDIT=68.


	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM
	OBJNAM 	ISAM1.SBR

DEFINE	STORAGE NAME,SIZE
	NAME=BEGIN
	BEGIN=BEGIN+SIZE
ENDM

BEGIN=0
STORAGE	DDB,150
STORAGE	RECORD,512.
STORAGE	IMPURE,4

	PAGE

START:	PHDR	-1,PV$RPD,PH$REE!PH$REU

	MOV	A0,IMPURE(A4)
	MOV	A4,A1
	CLR	D1
	MOVB	#150,D1
CLR.1:	CLRB	(A1)+
	SOB	D1,CLR.1

	MOV	4(A3),A2

	FSPEC	DDB(A4),IDX
	MOVW	#[IDX],DDB+12(A4)
	LEA	A2,RECORD(A4)
	MOV	A2,DDB+22(A4)
	MOVB	#100,DDB+1(A4)
	MOV	#512.,DDB+26(A4)


	LOOKUP	DDB(A4)
	JNE	ABORT

	OPENR	DDB(A4)
	READ	DDB(A4)
	CLOSE	DDB(A4)

	MOV	16(A3),A2
	MOV	RECORD+30(A4),D1
	DCVT	6,OT$MEM

	MOV	30(A3),A2
	MOV	RECORD+40(A4),D1
	DCVT	6,OT$MEM

	MOV	42(A3),A2
	MOV	RECORD+44(A4),D1
	DCVT	6,OT$MEM

	MOV	54(A3),A2
	MOVB	#0,@A2
	MOV	IMPURE(A4),A0
	RTN

ABORT:	MOV	54(A3),A2
	MOVB	#1,@A2
	MOV	IMPURE(A4),A0
	RTN

	END

.