home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32_Support / examples / warnifnotpal.asm < prev    next >
Encoding:
Assembly Source File  |  1996-03-17  |  920 b   |  52 lines
  1. *
  2. * warnifnotpal.asm -
  3. * returns WARN if not PAL
  4. *
  5. * blink from warnifnotpal.o to warnifnotpal library lib:amiga.lib
  6. *
  7.     INCLUDE    "exec/types.i"
  8.     INCLUDE    "exec/libraries.i"
  9.     INCLUDE    "exec/macros.i"
  10.     INCLUDE "graphics/gfxbase.i"
  11.     INCLUDE "dos/dos.i"
  12.  
  13.     section    text,code
  14.  
  15. startme:
  16.     movem.l    d2-d7/a2-a6,-(sp)
  17.  
  18.     move.l    4,a6            ;exec
  19.     lea    gname(pc),a1        ;graphics.library
  20.     moveq    #00,d0            ;any version
  21.  
  22.     JSRLIB    OpenLibrary
  23.     tst.l    d0
  24.     bne.s    okopen
  25.     moveq.l    #RETURN_FAIL,d2
  26.     bra.s    badopen
  27. okopen:
  28.     move.l    d0,a1            ;GfxBase (a0)
  29.     move.w    gb_DisplayFlags(a1),d0
  30.     andi.w    #PAL,d0
  31.     beq.s    notpal
  32.     moveq.l    #RETURN_OK,d2        ;is pal
  33.     bra.s    outahere
  34. notpal:
  35.     moveq.l    #RETURN_WARN,d2        ;not pal
  36. outahere:
  37.     move.l    4,a6            ;GfxBase still in a1
  38.     JSRLIB    CloseLibrary
  39. badopen:
  40.     move.l    d2,d0            ;move return code to d0
  41.     movem.l    (sp)+,d2-d7/a2-a6
  42.     rts
  43.  
  44.  
  45.     CNOP    0,2
  46.  
  47. verstag    DC.B    '$VER: warnifnotpal 40.1 (6.7.93)',0
  48.  
  49. gname    DC.B    'graphics.library',0
  50.  
  51.     end
  52.