home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks95 / MultiInstall.sit / MultiInstall / Source / return.cp < prev    next >
Text File  |  1995-06-24  |  549b  |  46 lines
  1. #include <events.h>
  2.  
  3. asm void main();
  4.  
  5. asm void main()
  6. {
  7.     tst.w  d0
  8.     bne notnull
  9.  
  10.     tst.w (a1)
  11.     beq null
  12.  
  13. notnull:
  14.     cmp.w  #mouseDown, (a1)
  15.     beq     disable
  16.     cmp.w  #keyDown, (a1)
  17.     bne    done
  18.  
  19. disable:
  20.     move.l 6(a1), d1
  21.     add.l  #0x7FFF0000, d1
  22.     move.l d1, 0xbbbbbbbb
  23.     bra done
  24.     
  25. null:
  26.     move.l 6(a1), d1
  27.     sub.l  0xbbbbbbbb, d1
  28.     sub.l  #30, d1
  29.     blt    done
  30.     move.l 6(a1), 0xbbbbbbbb
  31.     
  32.     move.w #3,(a1)
  33.     move.l #0x0000240D, 2(a1)
  34.     
  35.     move.w #1,d0
  36.     move.w d0,4(a7)
  37.     
  38. done:
  39.     move.l #0xaaaaaaaa, d1
  40.     beq    exit
  41.     move.l d1, -(sp)
  42. exit:
  43.     rts
  44.  
  45.     dc.l 0xcccccccc
  46. }