home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / alib / ieeelib.a < prev    next >
Encoding:
Text File  |  1990-05-30  |  716 b   |  39 lines
  1.  
  2.             ;   autoinit if you ever reference MathIeeeDoubBasBase
  3.             ;
  4.             ;   can't use pc-relative between different code sections
  5.             ;   and cannot put string in autoinit section!
  6.  
  7.             xdef    _MathIeeeDoubBasBase
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    ieeename,A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_MathIeeeDoubBasBase(A4)
  18. i10
  19.  
  20.             section autoexit0,code
  21.  
  22.             move.l    _MathIeeeDoubBasBase(A4),D0
  23.             beq    l10
  24.             move.l    D0,A1
  25.             jsr    _LVOCloseLibrary(A6)
  26. l10
  27.  
  28.             section const,code
  29.  
  30. ieeename        dc.b    $6D,$61,$74,$68,$69,$65,$65,$65,$64,$6F,$75,$62,$62,$61,$73
  31.             dc.b    $2E,$6C,$69,$62,$72,$61,$72,$79,$00
  32.  
  33.             section libbss,bss
  34.  
  35. _IeeeDoubBasBase    ds.l    1
  36.  
  37.             END
  38.  
  39.