home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Runtime / System / Text.asm < prev    next >
Encoding:
Assembly Source File  |  1990-04-08  |  1.9 KB  |  114 lines
  1.  
  2. *    Text.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1990 Patrick Quaid
  4.  
  5. *    These stubs implement the routines defined in Graphics.i.
  6. *    Note that we are referencing something called _GfxBase.
  7. *    This is the variable defined in Graphics.i that's supposed
  8. *    to hold the library.  This is why you have to open the graphics
  9. *    library and put a valid pointer in GfxBase before using these
  10. *    routines.
  11. *
  12. *    These routines try to save all registers except d0,d1,a0
  13. *    and a1.
  14.  
  15.     XREF    _GfxBase
  16.  
  17.     SECTION    Text
  18.  
  19.     XREF    _LVOAddFont
  20.     XDEF    _AddFont
  21. _AddFont
  22.     move.l    4(sp),a1
  23.     move.l    _GfxBase,a6
  24.     jmp    _LVOAddFont(a6)
  25.  
  26.     XREF    _LVOAskFont
  27.     XDEF    _AskFont
  28. _AskFont
  29.     move.l    4(sp),a0
  30.     move.l    8(sp),a1
  31.     move.l    _GfxBase,a6
  32.     jmp    _LVOAskFont(a6)
  33.  
  34.     XREF    _LVOAskSoftStyle
  35.     XDEF    _AskSoftStyle
  36. _AskSoftStyle
  37.     move.l    4(sp),a1
  38.     move.l    _GfxBase,a6
  39.     jmp    _LVOAskSoftStyle(a6)
  40.  
  41.     XREF    _LVOClearEOL
  42.     XDEF    _ClearEOL
  43. _ClearEOL
  44.     move.l    4(sp),a1
  45.     move.l    _GfxBase,a6
  46.     jmp    _LVOClearEOL(a6)
  47.  
  48.     XREF    _LVOClearScreen
  49.     XDEF    _ClearScreen
  50. _ClearScreen
  51.     move.l    4(sp),a1
  52.     move.l    _GfxBase,a6
  53.     jmp    _LVOClearScreen(a6)
  54.  
  55.     XREF    _LVOCloseFont
  56.     XDEF    _CloseFont
  57. _CloseFont
  58.     move.l    4(sp),a1
  59.     move.l    _GfxBase,a6
  60.     jmp    _LVOCloseFont(a6)
  61.  
  62.     XREF    _LVOOpenFont
  63.     XDEF    _OpenFont
  64. _OpenFont
  65.     move.l    4(sp),a0
  66.     move.l    _GfxBase,a6
  67.     jmp    _LVOOpenFont(a6)
  68.  
  69.     XREF    _LVORemFont
  70.     XDEF    _RemFont
  71. _RemFont
  72.     move.l    4(sp),a1
  73.     move.l    _GfxBase,a6
  74.     jmp    _LVORemFont(a6)
  75.  
  76.     XREF    _LVOSetFont
  77.     XDEF    _SetFont
  78. _SetFont
  79.     move.l    4(sp),a0
  80.     move.l    8(sp),a1
  81.     move.l    _GfxBase,a6
  82.     jmp    _LVOSetFont(a6)
  83.  
  84.     XREF    _LVOSetSoftStyle
  85.     XDEF    _SetSoftStyle
  86. _SetSoftStyle
  87.     move.l    4(sp),d1
  88.     move.l    8(sp),d0
  89.     move.l    12(sp),a1
  90.     move.l    _GfxBase,a6
  91.     jmp    _LVOSetSoftStyle(a6)
  92.  
  93.     XREF    _LVOText
  94.     XDEF    _GText
  95.     XDEF    _Text
  96. _GText
  97. _Text
  98.     move.l    _GfxBase,a6
  99.     move.l    4(sp),d0
  100.     move.l    8(sp),a0
  101.     move.l    12(sp),a1
  102.     jmp    _LVOText(a6)
  103.  
  104.     XREF    _LVOTextLength
  105.     XDEF    _TextLength
  106. _TextLength
  107.     move.l    _GfxBase,a6
  108.     move.l    12(sp),a1
  109.     move.l    8(sp),a0
  110.     move.l    4(sp),d0
  111.     jmp    _LVOTextLength(a6)
  112.  
  113.     END
  114.