home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1104.lha / Programs / BorderSprites / BorderSprites.S < prev    next >
Encoding:
Text File  |  1995-07-17  |  1023 b   |  50 lines
  1. ; Bordersprites / Borderpointer
  2. ; This program is Public Domain, feel free to modify it!
  3.  
  4. ; exec.library
  5. _LVOCloseLibrary    EQU -414
  6. _LVOOpenLibrary    EQU -552
  7.  
  8. ; intuition.library
  9. _LVORemakeDisplay    EQU -384
  10.  
  11. ; gfxbase.i:
  12. GB_BP3BITS    EQU $1E3
  13.  
  14. START    MoveM.L    D1-D7/A0-A6,-(SP)
  15.  
  16.     Lea.L    GfxName(PC),A1
  17.     MoveQ    #39,D0    ; version 3.0 or better
  18.     Move.L    4.W,A6    ; get ExecBase
  19.     Jsr    _LVOOpenLibrary(A6)
  20.     Move.L    D0,A2    ; A2 is GraphicsBase
  21.     Beq.S    GfxFail
  22.  
  23.     Lea.L    IntName(PC),A1
  24.     MoveQ    #37,D0    ; version 3.0 or better
  25.     Jsr    _LVOOpenLibrary(A6)
  26.     Move.L    D0,D6
  27.     Beq.S    IntFail
  28.  
  29.     Eor.B    #$02,GB_BP3BITS(A2)    ; Set SPRTBORDER
  30.  
  31.     Move.L    D6,A6    ; Get IntuitionBase
  32.     Jsr    _LVORemakeDisplay(A6)
  33.  
  34.     Move.L    D6,A1
  35.     Move.L    4.W,A6    ; get ExecBase
  36.     Jsr    _LVOCloseLibrary(A6)
  37.  
  38. IntFail    Move.L    A2,A1
  39.     Jsr    _LVOCloseLibrary(A6)
  40.  
  41. GfxFail    MoveM.L    (SP)+,D1-D7/A0-A6
  42.     MoveQ    #0,D0    ; no return value, if wrong OS!
  43.     Rts
  44.  
  45.     Dc.B    '$VER: BorderSprites 1.0 (18.01.95)',10
  46.     Dc.B    'Made by Steffen Thorsen 1995',0
  47. GfxName    Dc.B    'graphics.library',0
  48. IntName    Dc.B    'intuition.library',0
  49.  
  50.     END