home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Runtime / System / DiskFont.asm < prev    next >
Encoding:
Assembly Source File  |  1990-04-08  |  935 b   |  47 lines
  1.  
  2. *    DiskFont.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1990 Patrick Quaid
  4.  
  5. *    These stubs allow PCQ Pascal programs that include the
  6. *    file DiskFont.i to use the diskfont.library.  Remember
  7. *    that you'll need to call OpenLibrary on DiskFontBase
  8. *    before calling any of these functions.
  9. *
  10.  
  11.     XREF    _DiskFontBase
  12.  
  13.     SECTION    DiskFontStubs
  14.  
  15.     XREF    _LVOAvailFonts
  16.     XDEF    _AvailFonts
  17. _AvailFonts
  18.     move.l    12(sp),a0
  19.     move.l    8(sp),d0
  20.     move.l    4(sp),d1
  21.     move.l    _DiskFontBase,a6
  22.     jmp    _LVOAvailFonts(a6)
  23.  
  24.     XREF    _LVODisposeFontContents
  25.     XDEF    _DisposeFontContents
  26. _DisposeFontContents
  27.     move.l    4(sp),a1
  28.     move.l    _DiskFontBase,a6
  29.     jmp    _LVODisposeFontContents(a6)
  30.  
  31.     XREF    _LVONewFontContents
  32.     XDEF    _NewFontContents
  33. _NewFontContents
  34.     move.l    8(sp),a0
  35.     move.l    4(sp),a1
  36.     move.l    _DiskFontBase,a6
  37.     jmp    _LVONewFontContents(a6)
  38.  
  39.     XREF    _LVOOpenDiskFont
  40.     XDEF    _OpenDiskFont
  41. _OpenDiskFont
  42.     move.l    4(sp),a0
  43.     move.l    _DiskFontBase,a6
  44.     jmp    _LVOOpenDiskFont(a6)
  45.  
  46.     END
  47.