51488
|
1 .SPACE $PRIVATE$
|
|
2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
|
|
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
|
|
4 .SPACE $TEXT$
|
|
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
|
|
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
|
|
7 .IMPORT $global$,DATA
|
|
8 .IMPORT $$dyncall,MILLICODE
|
|
9 .SPACE $TEXT$
|
|
10 .SUBSPA $CODE$
|
|
11
|
|
12 .align 4
|
|
13 .EXPORT GC_test_and_clear,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
|
|
14 GC_test_and_clear
|
|
15 .PROC
|
|
16 .CALLINFO FRAME=0,NO_CALLS
|
|
17 .ENTRY
|
|
18 ldcw,co (%r26),%r28
|
|
19 bv,n 0(%r2)
|
|
20 .EXIT
|
|
21 .PROCEND
|