Artifact
b7ca43ba91132a7c9024fb616068d28eb1e871bd:
0000: 3b 20 54 72 61 6d 70 6f 6c 69 6e 65 20 66 6f 72 ; Trampoline for
0010: 20 68 70 70 61 20 43 50 55 0a 0a 3b 0a 3b 20 43 hppa CPU..;.; C
0020: 6f 70 79 72 69 67 68 74 20 31 39 39 37 20 42 72 opyright 1997 Br
0030: 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c 62 72 75 uno Haible, <bru
0040: 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e 0a 3b 0a no@clisp.org>.;.
0050: 3b 20 54 68 69 73 20 69 73 20 66 72 65 65 20 73 ; This is free s
0060: 6f 66 74 77 61 72 65 20 64 69 73 74 72 69 62 75 oftware distribu
0070: 74 65 64 20 75 6e 64 65 72 20 74 68 65 20 47 4e ted under the GN
0080: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0090: 20 4c 69 63 65 6e 63 65 0a 3b 20 64 65 73 63 72 Licence.; descr
00a0: 69 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 ibed in the file
00b0: 20 43 4f 50 59 49 4e 47 2e 20 43 6f 6e 74 61 63 COPYING. Contac
00c0: 74 20 74 68 65 20 61 75 74 68 6f 72 20 69 66 20 t the author if
00d0: 79 6f 75 20 64 6f 6e 27 74 20 68 61 76 65 20 74 you don't have t
00e0: 68 69 73 0a 3b 20 6f 72 20 63 61 6e 27 74 20 6c his.; or can't l
00f0: 69 76 65 20 77 69 74 68 20 69 74 2e 20 54 68 65 ive with it. The
0100: 72 65 20 69 73 20 41 42 53 4f 4c 55 54 45 4c 59 re is ABSOLUTELY
0110: 20 4e 4f 20 57 41 52 52 41 4e 54 59 2c 20 65 78 NO WARRANTY, ex
0120: 70 6c 69 63 69 74 20 6f 72 20 69 6d 70 6c 69 65 plicit or implie
0130: 64 2c 0a 3b 20 6f 6e 20 74 68 69 73 20 73 6f 66 d,.; on this sof
0140: 74 77 61 72 65 2e 0a 3b 0a 0a 09 2e 63 6f 64 65 tware..;....code
0150: 0a 09 2e 49 4d 50 4f 52 54 20 24 67 6c 6f 62 61 ...IMPORT $globa
0160: 6c 24 2c 44 41 54 41 0a 09 2e 49 4d 50 4f 52 54 l$,DATA...IMPORT
0170: 20 24 24 64 79 6e 63 61 6c 6c 2c 4d 49 4c 4c 49 $$dyncall,MILLI
0180: 43 4f 44 45 0a 09 2e 63 6f 64 65 0a 0a 09 2e 61 CODE...code....a
0190: 6c 69 67 6e 20 34 0a 09 2e 45 58 50 4f 52 54 20 lign 4...EXPORT
01a0: 74 72 61 6d 70 5f 72 2c 45 4e 54 52 59 2c 50 52 tramp_r,ENTRY,PR
01b0: 49 56 5f 4c 45 56 3d 33 2c 41 52 47 57 30 3d 47 IV_LEV=3,ARGW0=G
01c0: 52 2c 41 52 47 57 31 3d 47 52 0a 09 2e 6c 61 62 R,ARGW1=GR...lab
01d0: 65 6c 20 74 72 61 6d 70 5f 72 0a 09 2e 50 52 4f el tramp_r...PRO
01e0: 43 0a 09 2e 43 41 4c 4c 49 4e 46 4f 20 46 52 41 C...CALLINFO FRA
01f0: 4d 45 3d 30 2c 4e 4f 5f 43 41 4c 4c 53 0a 09 2e ME=0,NO_CALLS...
0200: 45 4e 54 52 59 0a 3b 20 54 68 65 20 63 6c 6f 73 ENTRY.; The clos
0210: 75 72 65 20 70 6f 69 6e 74 65 72 20 69 73 20 61 ure pointer is a
0220: 6c 72 65 61 64 79 20 69 6e 20 72 65 67 69 73 74 lready in regist
0230: 65 72 20 25 72 31 39 2e 0a 3b 20 4d 6f 76 65 20 er %r19..; Move
0240: 3c 64 61 74 61 3e 20 69 6e 74 6f 20 72 65 67 69 <data> into regi
0250: 73 74 65 72 20 25 72 32 39 0a 09 6c 64 77 20 30 ster %r29..ldw 0
0260: 28 30 2c 25 72 31 39 29 2c 25 72 32 39 0a 3b 20 (0,%r19),%r29.;
0270: 4d 6f 76 65 20 3c 61 64 64 72 65 73 73 3e 20 69 Move <address> i
0280: 6e 74 6f 20 72 65 67 69 73 74 65 72 20 25 72 32 nto register %r2
0290: 31 2e 0a 09 6c 64 77 20 34 28 30 2c 25 72 31 39 1...ldw 4(0,%r19
02a0: 29 2c 25 72 32 31 0a 3b 20 4a 75 6d 70 20 74 6f ),%r21.; Jump to
02b0: 20 69 74 2e 0a 09 62 62 2c 3e 3d 2c 6e 20 25 72 it...bb,>=,n %r
02c0: 32 31 2c 33 30 2c 74 72 61 6d 70 5f 72 5f 32 0a 21,30,tramp_r_2.
02d0: 09 64 65 70 69 20 30 2c 33 31 2c 32 2c 25 72 32 .depi 0,31,2,%r2
02e0: 31 0a 09 6c 64 77 20 34 28 30 2c 25 72 32 31 29 1..ldw 4(0,%r21)
02f0: 2c 25 72 31 39 0a 09 6c 64 77 20 30 28 30 2c 25 ,%r19..ldw 0(0,%
0300: 72 32 31 29 2c 25 72 32 31 0a 09 2e 6c 61 62 65 r21),%r21...labe
0310: 6c 20 74 72 61 6d 70 5f 72 5f 32 0a 09 6c 64 73 l tramp_r_2..lds
0320: 69 64 20 28 30 2c 25 72 32 31 29 2c 25 72 31 0a id (0,%r21),%r1.
0330: 09 6d 74 73 70 20 25 72 31 2c 25 73 72 30 0a 09 .mtsp %r1,%sr0..
0340: 62 65 2c 6e 20 30 28 25 73 72 30 2c 25 72 32 31 be,n 0(%sr0,%r21
0350: 29 0a 09 6e 6f 70 0a 09 2e 45 58 49 54 0a 09 2e )..nop...EXIT...
0360: 50 52 4f 43 45 4e 44 0a PROCEND.