Subversion Repositories filter_foundry

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

*------------------------------------------------------------------------------
*
*     Apple Macintosh Developer Technical Support
*
* Sample Control Panel Device and INIT Combination
*
*    Program:        INIT - CDEV
*   File:           INIT.a  -       Asm Source
*
*  Copyright © 1990 Apple Computer, Inc.
*        All rights reserved.
*
*------------------------------------------------------------------------------

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;    void a_SetA5Ref(A5Ref)
;
;              Simply takes the value passed in and saves it in "A5Storage". This
;            routine uses the C calling convetion, so it doesn't need to pull
;              and parameters off of the stack.
;
;    long a_GetA5Ref()
;
;           Returns the value stored in "A5Storage". This routine uses the C
;              callin convention, so the result is returned in D0.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

a_SetA5Ref              PROC    EXPORT
                         EXPORT  a_GetA5Ref

                            lea             A5Storage,A0                    ; get address of storage
                               move.l  4(sp),(A0)                              ; move value to save into it
                               rts                                                             ; return to caller

a_GetA5Ref
                         move.l  A5Storage,D0                    ; get result into D0
                           rts                                                             ; return to caller

A5Storage           ds.l    1                                               ; storage for A5 reference

                            ENDP

                          END