URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [ld/] [testsuite/] [ld-m68hc11/] [far-hc11.s] - Blame information for rev 84

Go to most recent revision | Details | Compare with Previous | View Log


;;; Test 68HC11 FAR trampoline generation
;;; 2 trampolines are generated:
;;; - one for '_far_bar'
;;; - one for '_far_foo'
;;; 'far_no_tramp' does not have any trampoline generated.
;;;
        .sect .text
        .globl _start
_start:
start:
        lds     #stack
        ldx     #0xabcd
        pshx
        ldd     #0x1234
        ldx     #0x5678
        bsr     _far_bar        ; Call to trampoline generated code
        cpx     #0x1234
        bne     fail            ; X and D preserved (swapped by _far_bar)
        cpd     #0x5678
        bne     fail
        pulx
        cpx     #0xabcd         ; Stack parameter preserved
        bne     fail
        ldd     #_far_foo       ; Get address of trampoline handler
        xgdx
        jsr     0,x
        ldd     #_far_bar       ; Likewise (unique trampoline check)
        xgdy
        jsr     0,y
        ldaa    #%page(_far_no_tramp)
        ldy     #%addr(_far_no_tramp)
        bsr     __call_a16      ; No trampoline generated for _far_no_tramp
        clra
        clrb
        wai
fail:
        ldd     #1
        wai
        bra     start
        .global __return
__return:
        ins
        rts
 
        .sect .bank1,"ax"
        .globl _far_bar
        .far _far_bar           ; Must mark symbol as far
_far_bar:
        jsr     local_bank1
        xgdx
        jmp     __return
 
local_bank1:
        rts
 
        .sect .bank2,"ax"
        .globl _far_foo
        .far _far_foo
_far_foo:
        jsr     local_bank2
        jmp     __return
 
local_bank2:
        rts
 
        .sect .bank3,"ax"
        .globl _far_no_tramp
        .far _far_no_tramp
_far_no_tramp:
        jsr     local_bank3
        jmp     __return
 
local_bank3:
        rts
 
        .sect .text
        .globl __far_trampoline
__far_trampoline:
        psha                            ; (2) Save function parameter (high)
        ;; <Read current page in A>
        psha                            ; (2)
        ;; <Set currenge page from B>
        pshx                            ; (4)
        tsx                             ; (3)
        ldab    4,x                     ; (4) Restore function parameter (low)
        ldaa    2,x                     ; (4) Get saved page number
        staa    4,x                     ; (4) Save it below return PC
        pulx                            ; (5)
        pula                            ; (3)
        pula                            ; (3) Restore function parameter (high)
        jmp     0,y                      ; (4)
 
        .globl __call_a16
__call_a16:
        ;; xgdx                         ; (3)
        ;; <Read current page in A>     ; (3) ldaa _current_page
        psha                            ; (2)
        ;; <Set current page from B>    ; (4) staa _current_page
        ;; xgdx                         ; (3)
        jmp 0,y                          ; (4)
 
        .sect .page0
        .skip 100
stack:
 

Line No.	Rev	Author	Line
1	75	khays	`;;; Test 68HC11 FAR trampoline generation`
2			`;;; 2 trampolines are generated:`
3			`;;; - one for '_far_bar'`
4			`;;; - one for '_far_foo'`
5			`;;; 'far_no_tramp' does not have any trampoline generated.`
6			`;;;`
7			`.sect .text`
8			`.globl _start`
9			`_start:`
10			`start:`
11			`lds #stack`
12			`ldx #0xabcd`
13			`pshx`
14			`ldd #0x1234`
15			`ldx #0x5678`
16			`bsr _far_bar ; Call to trampoline generated code`
17			`cpx #0x1234`
18			`bne fail ; X and D preserved (swapped by _far_bar)`
19			`cpd #0x5678`
20			`bne fail`
21			`pulx`
22			`cpx #0xabcd ; Stack parameter preserved`
23			`bne fail`
24			`ldd #_far_foo ; Get address of trampoline handler`
25			`xgdx`
26			`jsr 0,x`
27			`ldd #_far_bar ; Likewise (unique trampoline check)`
28			`xgdy`
29			`jsr 0,y`
30			`ldaa #%page(_far_no_tramp)`
31			`ldy #%addr(_far_no_tramp)`
32			`bsr __call_a16 ; No trampoline generated for _far_no_tramp`
33			`clra`
34			`clrb`
35			`wai`
36			`fail:`
37			`ldd #1`
38			`wai`
39			`bra start`
40			`.global __return`
41			`__return:`
42			`ins`
43			`rts`
44
45			`.sect .bank1,"ax"`
46			`.globl _far_bar`
47			`.far _far_bar ; Must mark symbol as far`
48			`_far_bar:`
49			`jsr local_bank1`
50			`xgdx`
51			`jmp __return`
52
53			`local_bank1:`
54			`rts`
55
56			`.sect .bank2,"ax"`
57			`.globl _far_foo`
58			`.far _far_foo`
59			`_far_foo:`
60			`jsr local_bank2`
61			`jmp __return`
62
63			`local_bank2:`
64			`rts`
65
66			`.sect .bank3,"ax"`
67			`.globl _far_no_tramp`
68			`.far _far_no_tramp`
69			`_far_no_tramp:`
70			`jsr local_bank3`
71			`jmp __return`
72
73			`local_bank3:`
74			`rts`
75
76			`.sect .text`
77			`.globl __far_trampoline`
78			`__far_trampoline:`
79			`psha ; (2) Save function parameter (high)`
80			`;; <Read current page in A>`
81			`psha ; (2)`
82			`;; <Set currenge page from B>`
83			`pshx ; (4)`
84			`tsx ; (3)`
85			`ldab 4,x ; (4) Restore function parameter (low)`
86			`ldaa 2,x ; (4) Get saved page number`
87			`staa 4,x ; (4) Save it below return PC`
88			`pulx ; (5)`
89			`pula ; (3)`
90			`pula ; (3) Restore function parameter (high)`
91			`jmp 0,y ; (4)`
92
93			`.globl __call_a16`
94			`__call_a16:`
95			`;; xgdx ; (3)`
96			`;; <Read current page in A> ; (3) ldaa _current_page`
97			`psha ; (2)`
98			`;; <Set current page from B> ; (4) staa _current_page`
99			`;; xgdx ; (3)`
100			`jmp 0,y ; (4)`
101
102			`.sect .page0`
103			`.skip 100`
104			`stack:`
105

Browse

Tools

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [ld/] [testsuite/] [ld-m68hc11/] [far-hc11.s] - Blame information for rev 84