* * $Id: lzlast.F,v 1.2 1996/04/18 16:13:37 mclareni Exp $ * * $Log: lzlast.F,v $ * Revision 1.2 1996/04/18 16:13:37 mclareni * Incorporate changes from J.Zoll for version 3.77 * * Revision 1.1.1.1 1996/03/06 10:47:14 mclareni * Zebra * * #include "zebra/pilot.h" FUNCTION LZLAST (IXSTOR,LGO) C- FIND LAST BANK IN THE LINEAR STRUCTURE STARTING WITH BANK AT LGO C- RETURN BANK-ADR AS VALUE #include "zebra/q.inc" C-------------- END CDE -------------- #include "zebra/q_jbyt.inc" #include "zebra/qstore.inc" LF = LGO IF (LF.EQ.0) GO TO 29 21 L = LQ(KQS+LF) IF (L.EQ.0) GO TO 29 LF = L GO TO 21 29 LZLAST = LF RETURN END * ================================================== #include "zebra/qcardl.inc"