home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff398.lzh / DClock / DClockAux.asm < prev    next >
Assembly Source File  |  1990-11-01  |  2KB  |  62 lines
  1. * DClockAux.asm ************************************************************
  2. *
  3. *    DClockAux.asm ---------    Assembly language sub-routines for
  4. *                DClock-Handler.
  5. *
  6. *    Author ----------------    Olaf 'Olsen' Barthel, MXM
  7. *                Brabeckstrasse 35
  8. *                D-3000 Hannover 71
  9. *
  10. *                Federal Republic of Germany
  11. *
  12. *    This program truly is in the PUBLIC DOMAIN. Written on a cold
  13. *    and damp September evening, hoping the next morning would  be
  14. *    better.
  15. *
  16. *    Compiled using Aztec C 5.0a, CygnusEd Professional 2 & ARexx.
  17. *
  18. ****************************************************************************
  19.  
  20.         SECTION    DClockAux,CODE
  21.  
  22.         ; Imported symbols
  23.  
  24.         XREF    _ModifiedDisplayBeep
  25.         XREF    _ModifiedCloseWBench
  26.         XREF    _OldCloseWBench
  27.         XREF    _OldDisplayBeep
  28.  
  29.         ; Exported symbols
  30.  
  31.         XDEF    _NewDisplayBeep
  32.         XDEF    _NewCloseWBench
  33.  
  34. *------------------------------------------------------------------------------
  35.  
  36.         DS.L    0
  37.  
  38. _NewDisplayBeep:MOVEM.L    D2-D7/A0-A6,-(SP)    ; Save most registers
  39.  
  40.         JSR    _geta4#            ; Tickle the base register
  41.         JSR    _ModifiedDisplayBeep    ; Call our magic creation
  42.  
  43.         MOVEM.L    (SP)+,D2-D7/A0-A6    ; Restore registers
  44.         RTS
  45.  
  46. *------------------------------------------------------------------------------
  47.  
  48. _NewCloseWBench:MOVEM.L    D2-D7/A2-A6,-(SP)    ; Save most registers
  49.  
  50.         JSR    _geta4#            ; Tickle the base register
  51.         JSR    _ModifiedCloseWBench    ; Call our magic creation
  52.  
  53.         MOVE.L  _OldCloseWBench,A1    ; Remember old routine
  54.  
  55.         MOVEM.L    (SP)+,D2-D7/A2-A6    ; Restore registers
  56.  
  57.         JMP    (A1)            ; Jump to old routine...
  58.  
  59. *------------------------------------------------------------------------------
  60.  
  61.         END
  62.