home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / emulation / appemu / loadfont.asm < prev    next >
Encoding:
Assembly Source File  |  1994-06-29  |  455 b   |  53 lines
  1. ;.PAGE 'Load "apple" font'
  2. ;
  3. ;    Macros
  4. ;
  5. XLIB    MACRO
  6.     XREF    _LVO\1
  7.     ENDM
  8. JSRLIB    MACRO
  9.     JSR    _LVO\1(A6)
  10.     ENDM
  11. ;
  12. ;    Library calls
  13. ;
  14.     XLIB    OpenLibrary
  15.     XLIB    OpenDiskFont
  16. ;
  17. ;
  18. ;
  19.     LEA    FLibStrK(PC),A1
  20.     CLR.L    D0
  21.     MOVE.L    4,A6
  22.     JSRLIB    OpenLibrary
  23. ;
  24. ;
  25. ;
  26.     LEA    TxtAttr(PC),A0
  27.     move.l    D0,A6
  28.     JSRLIB    OpenDiskFont
  29. ;
  30. ;
  31. ;
  32.     CLR.L    D0
  33.     RTS
  34. ;
  35. ;
  36. ;
  37. TxtAttr    dc.l    FontNStrK
  38.     dc.w    8
  39.     dc.b    0
  40.     dc.b    0
  41. ;
  42. ;
  43. ;
  44. FLibStrK    dc.b    'diskfont.library',0
  45. ;
  46. ;
  47. ;
  48. FontNStrK    dc.b    'apple.font',0
  49. ;
  50. ;
  51. ;
  52.     END
  53.