home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Runtime / System / Graphics2.asm < prev    next >
Encoding:
Assembly Source File  |  1990-04-08  |  3.7 KB  |  217 lines
  1. *
  2. *    Graphics2.asm (of the PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4. *
  5. *    These are more glue routines for the graphics.library.  These
  6. *    are generally more in-depth, and probably more rarely used,
  7. *    than the routines in Graphics.asm.
  8. *
  9.  
  10.     XREF    _GfxBase
  11.  
  12.     XREF    _LVOAddAnimOb
  13.     XDEF    _AddAnimOb
  14. _AddAnimOb
  15.     move.l    4(sp),a2
  16.     move.l    8(sp),a1
  17.     move.l    12(sp),a0
  18.     move.l    _GfxBase,a6
  19.     jmp    _LVOAddAnimOb(a6)
  20.  
  21.     XREF    _LVOAddBob
  22.     XDEF    _AddBob
  23. _AddBob
  24.     move.l    4(sp),a1
  25.     move.l    8(sp),a0
  26.     move.l    _GfxBase,a6
  27.     jmp    _LVOAddBob(a6)
  28.  
  29.     XREF    _LVOAddVSprite
  30.     XDEF    _AddVSprite
  31. _AddVSprite
  32.     move.l    4(sp),a1
  33.     move.l    8(sp),a0
  34.     move.l    _GfxBase,a6
  35.     jmp    _LVOAddVSprite(a6)
  36.  
  37.     XREF    _LVOAndRectRegion
  38.     XDEF    _AndRectRegion
  39. _AndRectRegion
  40.     move.l    4(sp),a1
  41.     move.l    8(sp),a0
  42.     move.l    _GfxBase,a6
  43.     jmp    _LVOAndRectRegion(a6)
  44.  
  45.     XREF    _LVOAndRegionRegion
  46.     XDEF    _AndRegionRegion
  47. _AndRegionRegion
  48.     move.l    4(sp),a1
  49.     move.l    8(sp),a0
  50.     move.l    _GfxBase,a6
  51.     jmp    _LVOAndRegionRegion(a6)
  52.  
  53.     XREF    _LVOAnimate
  54.     XDEF    _Animate
  55. _Animate
  56.     move.l    4(sp),a1
  57.     move.l    8(sp),a0
  58.     move.l    _GfxBase,a6
  59.     jmp    _LVOAnimate(a6)
  60.  
  61.     XREF    _LVOAreaEllipse
  62.     XDEF    _AreaCircle
  63. _AreaCircle
  64.     move.w    4(sp),d2
  65.     move.w    d2,d3        ; set a = b
  66.     move.w    6(sp),d1
  67.     move.w    8(sp),d0
  68.     move.l    10(sp),a1
  69.     move.l    _GfxBase,a6
  70.     jmp    _LVOAreaEllipse(a6)
  71.  
  72.     XDEF    _AreaEllipse
  73. _AreaEllipse
  74.     move.w    4(sp),d3
  75.     move.w    6(sp),d2
  76.     move.w    8(sp),d1
  77.     move.w    10(sp),d0
  78.     move.l    12(sp),a1
  79.     move.l    _GfxBase,a6
  80.     jmp    _LVOAreaEllipse(a6)
  81.  
  82.     XREF    _LVOAttemptLockLayerRom
  83.     XDEF    _AttemptLockLayerRom
  84. _AttemptLockLayerRom
  85.     move.l    4(sp),a5
  86.     move.l    _GfxBase,a6
  87.     jmp    _LVOAttemptLockLayerRom(a6)
  88.  
  89.     XREF    _LVOBltBitMap
  90.     XDEF    _BltBitMap
  91. _BltBitMap
  92.     move.l    4(sp),a2
  93.     move.w    8(sp),d7
  94.     move.w    10(sp),d6
  95.     move.w    12(sp),d5
  96.     move.w    14(sp),d4
  97.     move.w    16(sp),d3
  98.     move.w    18(sp),d2
  99.     move.l    20(sp),a1
  100.     move.w    24(sp),d1
  101.     move.w    26(sp),d0
  102.     move.l    28(sp),a0
  103.     move.l    _GfxBase,a6
  104.     jmp    _LVOBltBitMap(a6)
  105.  
  106.     XREF    _LVOBltBitMapRastPort
  107.     XDEF    _BltBitMapRastPort
  108. _BltBitMapRastPort
  109.     move.w    4(sp),d6
  110.     move.w    6(sp),d5
  111.     move.w    8(sp),d4
  112.     move.w    10(sp),d3
  113.     move.w    12(sp),d2
  114.     move.l    14(sp),a1
  115.     move.w    18(sp),d1
  116.     move.w    20(sp),d0
  117.     move.l    22(sp),a0
  118.     move.l    _GfxBase,a6
  119.     jmp    _LVOBltBitMapRastPort(a6)
  120.  
  121.     XREF    _LVOBltMaskBitMapRastPort
  122.     XDEF    _BltMaskBitMapRastPort
  123. _BltMaskBitMapRastPort
  124.     move.l    4(sp),a2
  125.     move.w    8(sp),d6
  126.     move.w    10(sp),d5
  127.     move.w    12(sp),d4
  128.     move.w    14(sp),d3
  129.     move.w    16(sp),d2
  130.     move.l    18(sp),a1
  131.     move.w    22(sp),d1
  132.     move.w    24(sp),d0
  133.     move.l    26(sp),a0
  134.     move.l    _GfxBase,a6
  135.     jmp    _LVOBltBitMapRastPort(a6)
  136.  
  137.     XREF    _LVOBltPattern
  138.     XDEF    _BltPattern
  139. _BltPattern
  140.     move.w    4(sp),d4
  141.     move.w    6(sp),d3
  142.     move.w    8(sp),d2
  143.     move.w    10(sp),d1
  144.     move.w    12(sp),d0
  145.     move.l    14(sp),a0
  146.     move.l    18(sp),a1
  147.     move.l    _GfxBase,a6
  148.     jmp    _LVOBltPattern(a6)
  149.  
  150.     XREF    _LVOBltTemplate
  151.     XDEF    _BltTemplate
  152. _BltTemplate
  153.     move.w    4(sp),d5
  154.     move.w    6(sp),d4
  155.     move.w    8(sp),d3
  156.     move.w    10(sp),d2
  157.     move.l    12(sp),a1
  158.     move.w    16(sp),d1
  159.     move.w    18(sp),d0
  160.     move.l    20(sp),a0
  161.     move.l    _GfxBase,a6
  162.     jmp    _LVOBltTemplate(a6)
  163.  
  164.     XREF    _LVOChangeSprite
  165.     XDEF    _ChangeSprite
  166. _ChangeSprite
  167.     move.l    4(sp),a2
  168.     move.l    8(sp),a1
  169.     move.l    12(sp),a0
  170.     move.l    _GfxBase,a6
  171.     jmp    _LVOChangeSprite(a6)
  172.  
  173.     XREF    _LVOClearRectRegion
  174.     XDEF    _ClearRectRegion
  175. _ClearRectRegion
  176.     move.l    4(sp),a1
  177.     move.l    8(sp),a0
  178.     move.l    _GfxBase,a6
  179.     jmp    _LVOClearRectRegion(a6)
  180.  
  181.     XREF    _LVOClearRegion
  182.     XDEF    _ClearRegion
  183. _ClearRegion
  184.     move.l    4(sp),a0
  185.     move.l    _GfxBase,a6
  186.     jmp    _LVOClearRegion(a6)
  187.  
  188.     XREF    _LVOClipBlit
  189.     XDEF    _ClipBlit
  190. _ClipBlit
  191.     move.w    4(sp),d6
  192.     move.w    6(sp),d5
  193.     move.w    8(sp),d4
  194.     move.w    10(sp),d3
  195.     move.w    12(sp),d2
  196.     move.l    14(sp),a1
  197.     move.w    18(sp),d1
  198.     move.w    20(sp),d0
  199.     move.l    22(sp),a0
  200.     move.l    _GfxBase,a6
  201.     jmp    _LVOClipBlit(a6)
  202.  
  203.     XREF    _LVOCopySBitMap
  204.     XDEF    _CopySBitMap
  205. _CopySBitMap
  206.     move.l    4(sp),a0
  207.     move.l    _GfxBase,a6
  208.     jmp    _LVOCopySBitMap(a6)
  209.  
  210.     XREF    _LVODisownBlitter
  211.     XDEF    _DisownBlitter
  212. _DisownBlitter
  213.     move.l    _GfxBase,a6
  214.     jmp    _LVODisownBlitter(a6)
  215.  
  216.     END
  217.