home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / PNL Libraries / Assembly / PreCompletion.a < prev    next >
Encoding:
Text File  |  1994-08-04  |  532 b   |  23 lines  |  [TEXT/MPS ]
  1. PreCompletion    PROC    EXPORT
  2.  
  3.     LINK    A6,#0                ; Link for the debugger.
  4.     MOVEM.L    A5,-(SP)            ; Preserve A5 register.
  5.     
  6.     MOVE.L    A0, -(SP)            ; Pass PB pointer as the parameter.
  7.     MOVE.L    -8(A0),A5            ; Set A5 to passed value (ourA5).
  8.     MOVE.L    -4(A0),A0            ; A0 = real completion routine address.
  9.     JSR        (A0)                ; Transfer control to ourCompletion.
  10.     
  11.     MOVEM.L    (SP)+,A5            ; Restore A5 register.
  12.     UNLK    A6                    ; Unlink.
  13.     RTS                            ; Return.
  14.     
  15.     STRING    ASIS                ; The debugger string.
  16.     DC.B    $8D,'PreCompletion'
  17.     DC.W    $0000
  18.     STRING    PASCAL
  19.     
  20.     ENDP
  21.     
  22.     END
  23.