home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / misc / tinytools.lzh / NOREQ / NOREQ.ASM next >
Encoding:
Assembly Source File  |  1990-10-10  |  282 b   |  22 lines
  1.  
  2.     INCLUDE    "/include/init.i"
  3.  
  4. ; No sys funcs so no stack needed.
  5.  
  6.     STACK    100
  7.  
  8. ; Be done with it
  9.  
  10.     MOVE.L    $4.W,A6
  11.     MOVE.L    ThisTask(A6),A0
  12.     MOVEQ    #-1,D0
  13.     CMP.L    pr_WindowPtr(A0),D0
  14.     BNE.S    NotYetInhibited
  15.     MOVEQ    #0,D0
  16. NotYetInhibited:
  17.     MOVE.L    D0,pr_WindowPtr(A0)
  18.     MOVEQ    #0,D0
  19.     RTS
  20.  
  21.     END
  22.