home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / c / killchiprev.s < prev    next >
Text File  |  1995-02-27  |  1KB  |  63 lines

  1. exec_i        = 1
  2. intuition_i    = 1
  3.  
  4.         INCDIR    "DH0:Source/"
  5.         INCLUDE    "Includes.i"
  6.  
  7.  
  8. start:        bra.s    .real
  9.         dc.b    "Kill AA-ChipRevBits $VER: 1.0 React",0
  10.         CNOP    0,4
  11.     .real:    BaseReg    VarBase,a5
  12.         lea    VarBase(pc),a5
  13.         move.l    4.W,a6
  14.         lea    GfxName(a5),a1
  15.         jsr    OpenOldLibrary(a6)
  16.         move.l    d0,Gfx(a5)
  17.         beq.s    .err
  18.  
  19.         lea    IntName(a5),a1
  20.         jsr    OpenOldLibrary(a6)
  21.         move.l    d0,Int(a5)
  22.         beq.s    .err
  23.  
  24.         jsr    Forbid(a6)
  25.         jsr    DisAble(a6)
  26.  
  27.         move.l    Gfx(a5),a0
  28.         move.b    $ec(a0),d0        ; ChipREvBits
  29.  
  30.         ;bclr    #0,d0        ; No Big Blits/Hires Agnus
  31.         bclr    #1,d0        ; No Hires Denise
  32.         bclr    #2,d0        ; No AA_Alice
  33.         bclr    #3,d0        ; No AA_Lisa
  34.         move.b    d0,$ec(a0)    
  35.  
  36.         move.l    Int(a5),a6
  37.         jsr    ReMakeDisplay(a6)
  38.  
  39.         move.l    4.W,a6
  40.         jsr    Enable(a6)
  41.         jsr    PerMit(a6)
  42.  
  43.     .err:    move.l    4.W,a6
  44.         move.l    Gfx(a5),d0
  45.         beq.s    .nGfx
  46.         move.l    d0,a1
  47.         jsr    CloseLibrary(a6)
  48.     .nGfx:    move.l    Int(a5),d0
  49.         beq.s    .nInt
  50.         move.l    d0,a1
  51.         jsr    CloseLibrary(a6)
  52.     .nInt:    moveq    #0,d0
  53.         rts
  54.  
  55.         
  56. VarBase:
  57. GfxName:    dc.b    "graphics.library",0
  58. IntName:    dc.b    "intuition.library",0
  59.         CNOP    0,4
  60. GFX:        dc.l    0
  61. Int:        dc.l    0
  62.  
  63.