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