home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 532.lha / NLDaemon / Source / NL-Stubs.a < prev   
Encoding:
Text File  |  1991-07-10  |  2.0 KB  |  50 lines
  1.         CSECT       text
  2.  
  3.         XREF        _cOpenWindow
  4.         XREF        _OldOpenWindow
  5.         XDEF        _aOpenWindow
  6.  
  7.         XREF        _cSetMenuStrip
  8.         XREF        _OldSetMenuStrip
  9.         XDEF        _aSetMenuStrip
  10.  
  11.         XREF        _cOpenScreen
  12.         XREF        _OldOpenScreen
  13.         XDEF        _aOpenScreen
  14.  
  15.  
  16. _aOpenWindow:
  17.         MOVE.L      _OldOpenWindow,A1      ; move old address to A1
  18.         JSR         (A1)                   ; JSR to old OpenWindow routine
  19.         MOVEM.L     D0-D7/A0-A6,-(SP)      ; save registers on stack
  20.         MOVE.L      D0,-(SP)               ; push Window pointer
  21.         JSR         _cOpenWindow           ; call our C OpenWindow
  22.         ADDQ.L      #4,SP                  ; pop the pointer
  23.         MOVEM.L     (SP)+,D0-D7/A0-A6      ; restore registers
  24.         RTS
  25.  
  26. _aSetMenuStrip:
  27.         MOVE.L      A2,-(SP)               ; save A2 for later
  28.         MOVEM.L     D0-D7/A0-A6,-(SP)      ; save registers on stack
  29.         MOVE.L      A1,-(SP)               ; push Menu pointer
  30.         MOVE.L      A0,-(SP)               ; push Window pointer
  31.         JSR         _cSetMenuStrip         ; call our C routine
  32.         ADDQ.L      #8,SP                  ; pop the pointers
  33.         MOVEM.L     (SP)+,D0-D7/A0-A6      ; restore registers
  34.         MOVE.L      _OldSetMenuStrip,A2    ; move old address to A2
  35.         JSR         (A2)                   ; JSR to old OpenWindow routine
  36.         MOVE.L      (sp)+,A2               ; restore contents of A2
  37.         RTS
  38.  
  39. _aOpenScreen:
  40.         MOVE.L      _OldOpenScreen,A1      ; move old address to A1
  41.         JSR         (A1)                   ; JSR to old OpenScreen routine
  42.         MOVEM.L     D0-D7/A0-A6,-(SP)      ; save registers on stack
  43.         MOVE.L      D0,-(SP)               ; push Screen pointer
  44.         JSR         _cOpenScreen           ; call our C OpenScreen
  45.         ADDQ.L      #4,SP                  ; pop the pointer
  46.         MOVEM.L     (SP)+,D0-D7/A0-A6      ; restore registers
  47.         RTS
  48.  
  49.         END
  50.