summaryrefslogtreecommitdiff
path: root/SCM/setjump.s
blob: b96fb054aa17e4f2ad1f4042faa32f22b244367f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
* setjmp on the Cray YMP does not save all registers.  Although this
* conforms to the ANSI standard, it is not sufficient for SCM garbage
* collection and continuations.
*
* This is a version of setjump for the Cray YMP that does save all non-
* temporary registers.  It might work for the XMP. It definitely will
* not work on the Cray 2.  I do not know if the setjmp on the Cray 2 will
* work with SCM or not.
*
* This has been tested under Unicos 6.1.
*
* --Radey Shouman <rshouman@chpc.utexas.edu>
*
            IDENT           SETJUMP
            ENTRY           setjump
setjump     =               *
            A1              1,A6
            A2              56
            A0              A1
            ,A0             T00,A2
            A0              A1+A2
            ,A0             B00,A2
            S1              0
            J               B00
*
            ENTRY           longjump
longjump    =               *
            A1              1,A6
            A0              A1
            A2              56
            T00,A2          ,A0
            A0              A1+A2
            B00,A2          ,A0
            S1              2,A6
            J               B00
            END
** Local Variables:
** tab-stop-list: (12 28 45)
** indent-tabs-mode: nil
** End: