home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 408.lha / NewLoadWB / NewLoadWB.S < prev   
Encoding:
Text File  |  1990-09-04  |  1.5 KB  |  76 lines
  1.  incdir "DevInc:"
  2.  include "intuition/intuition.i"
  3.  include "intuition/intuition_lib.i"
  4.  include "exec/memory.i"
  5.  include "exec/exec_lib.i"
  6.  include "libraries/dos_lib.i"
  7.  
  8.  CODE
  9.  
  10.     MOVE.L        D0,D7
  11.     MOVE.L        A0,A5
  12.     MOVE.L        $04,A6
  13.     MOVE.L        #IntuitionName,A1
  14.     MOVE.L         #33,D0
  15.     JSR        _LVOOpenLibrary(A6)    ; Open Intuition Library
  16.     MOVE.L        D0,IBase
  17.  
  18.     MOVE.L        #DosName,A1
  19.     MOVE.L         #33,D0
  20.     JSR        _LVOOpenLibrary(A6)    ; Open Dos Library
  21.     MOVE.L        D0,DosBase
  22.  
  23.     JSR        _LVOForbid(A6)
  24.     MOVE.L        IBase,A1
  25.     MOVE.W        #-204,A0
  26.     MOVE.L        #Windowpatch,A4
  27.     MOVE.L        A4,D0
  28.     JSR        _LVOSetFunction(A6)    ; Change offset to OpenWindow
  29.     MOVE.L        D0,OldOpenWindow    ; function.
  30.     JSR        _LVOPermit(A6)
  31.  
  32.     MOVE.L        #Command,D1
  33.     CLR.L        D2
  34.     CLR.L        D3
  35.     MOVE.L        DosBase,A6
  36.     JSR        _LVOExecute(A6)        ; Executes old 'LoadWB delay'
  37.     MOVE.L        $04,A6
  38.     JSR        _LVOForbid(A6)
  39.     MOVE.L        IBase,A1
  40.     MOVE.L        #-204,A0
  41.     MOVE.L        OldOpenWindow,D0
  42.     JSR        _LVOSetFunction(A6)    ; Resets offset to OpenWindow
  43.     JSR        _LVOPermit(A6)        ; function 
  44.  
  45.     MOVE.L        DosBase,A1
  46.     JSR        _LVOCloseLibrary(A6)    ; Close Dos Library
  47.  
  48.     MOVE.L        IBase,A1
  49.     JSR        _LVOCloseLibrary(A6)    ; Close Intuition Library
  50.  
  51.     MOVE.L        #$0,D0
  52.  
  53.     RTS
  54.  
  55. Windowpatch:                ; New Open Window Function
  56.     MOVE.L        nw_Flags(A0),D0
  57.     ORI.L        #WINDOWSIZING+WINDOWDRAG+WINDOWDEPTH,D0
  58.     MOVE.L        #BORDERLESS+BACKDROP,D1
  59.     NOT.L        D1
  60.     AND.L        D1,D0 
  61.     MOVE.L        D0,nw_Flags(A0)
  62.  
  63.     MOVE.L        OldOpenWindow,A1    
  64.     JSR        (A1)
  65.     RTS
  66.  
  67.     DATA
  68.  
  69. IntuitionName:        DC.B     "intuition.library",0 
  70. DosName:        DC.B    "dos.library",0
  71. IBase:            DC.L    0
  72. DosBase:        DC.L    0
  73. OldOpenWindow:        DC.L    0 
  74. Command:        DC.B    "C:LoadWB delay",0
  75.  
  76.