🚀 go-pugleaf

In article <20123@cup.portal.com> Bruce_Eric_Bowers@cup.portal.com writes:
>... it gurus when closing the intuition library.
>* Open the Intuition Library
>           MOVEA.L _AbsExecBase,A6      ;Load A6 With Address Of LVO Table
>           LEA     IntuitLibName(PC),A1 ;Set A1 To Point To Library Name
>           CLR.L   D0                   ;Set Library Version to "Any"
>           JSR     _LVOOpenLibrary(A6)  ;Open The Intuition Library
>           MOVEA.L D0,A6                ;Move Library Address to A6

	First, I don't know if you are aware, but moving a value into a
address register _DOESN'T_ set the condition codes.  I think you are safe
right now, with the current OS, since I seem to remember that the status is
loaded into D0 right before returning.  To be safe and nice to people, put
a TST.L D0 or some move to a data register before the BEQ Exit.

>           BEQ     Exit                 ;If Addr Was 0, OpenLibrary Failed
>* Close The Intuition Library
>           MOVEA.L _AbsExecBase,A6      ;Load A6 With Address Of LVO Table
>           LEA     IntuitLibName(PC),A1 ;Set A1 To Point To Library Name

	ACK! or should I say NAK!  8^)  When you close a library, you load 
_AbsExecBase into register A6 like you did, but you pass it the library base
that you received when opening the library.  (What was passed in D0.)  You
are trying to close a library thats base address is IntuitLibName, a nono.
   
>           JSR     _LVOCloseLibrary(A6) ;Close The Intuition Library
>IntuitLibName    DC.B   'intuition.library'
>                 DC.B   0

	Fix that and I think you will be alright.  Good luck.
 
>Thanks!  Bruce Bowers


-- 

--Brett S Bourbin, Instructional Computing Programs -- Univ of Maryland
            Computer Science Center, College Park, MD 20742
       INTERNET: brett@umd5.umd.edu  BIX: brettb  DELPHI: brettb