home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / alib / ieeetranlib.a < prev    next >
Encoding:
Text File  |  1990-05-30  |  748 b   |  40 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    _MathIeeeDoubTransBase
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    ieeetranname,A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_MathIeeeDoubTransBase(A4)
  18. i10
  19.  
  20.             section autoexit0,code
  21.  
  22.             move.l    _MathIeeeDoubTransBase(A4),D0
  23.             beq    l10
  24.             move.l    D0,A1
  25.             jsr    _LVOCloseLibrary(A6)
  26. l10
  27.  
  28.             section const,code
  29.  
  30. ieeetranname        dc.b    $6D,$61,$74,$68,$69,$65,$65,$65,$64,$6F,$75,$62
  31.             dc.b    $74,$72,$61,$6E,$73
  32.             dc.b    $2E,$6C,$69,$62,$72,$61,$72,$79,$00
  33.  
  34.             section libbss,bss
  35.  
  36. _IeeeDoubTransBase    ds.l    1
  37.  
  38.             END
  39.  
  40.