;****************************************************************************
;       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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.