home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / c / checkaga.s < prev    next >
Text File  |  1995-02-27  |  272b  |  16 lines
  1.         CNOP    0,4
  2. Start:        bra.s    .real
  3.         dc.b    "CheckAGA V1.0 React"
  4.         CNOP    0,4
  5.     .real:    moveq    #0,d0
  6.         move.w    $dff07c,d1        ; Denise ID
  7.         cmp.b    #$f8,d1
  8.         bne.s    .noAA
  9.         move.w    $dff004,d1        ; Agnus ID
  10.         lsr.w    #8,d1
  11.         and.w    #$7f,d1
  12.         cmp.w    #$23,d1
  13.         bne.s    .noAA
  14.         moveq    #5,d0
  15.     .NoAA:    rts
  16.