Next Previous

Retired Document

Important: This sample code may not represent best practices for current development. The project may use deprecated symbols and illustrate technologies and techniques that are no longer recommended.

PreCompletion.a

    CASE    ON

PreCompletion   PROC    EXPORT

    LINK    A6,#0               ; Link for the debugger.

    MOVEM.L A5,-(SP)            ; Preserve A5 register.

    MOVE.L  A0, -(SP)           ; Pass PB pointer as the parameter.

    MOVE.L  -8(A0),A5           ; Set A5 to passed value (ourA5).

    MOVE.L  -4(A0),A0           ; A0 = real completion routine address.

    JSR     (A0)                ; Transfer control to ourCompletion.

    MOVEM.L (SP)+,A5            ; Restore A5 register.

    UNLK    A6                  ; Unlink.

    RTS                         ; Return.

    STRING  ASIS                ; The debugger string.

    DC.B    $8D,'PreCompletion'

    DC.W    $0000

    STRING  PASCAL

    ENDP

END

Next Previous