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
14GC_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
22