mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-10 03:54:48 +00:00
22 lines
487 B
ArmAsm
22 lines
487 B
ArmAsm
|
.SPACE $PRIVATE$
|
||
|
.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
|
||
|
.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
|
||
|
.SPACE $TEXT$
|
||
|
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
|
||
|
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
|
||
|
.IMPORT $global$,DATA
|
||
|
.IMPORT $$dyncall,MILLICODE
|
||
|
.SPACE $TEXT$
|
||
|
.SUBSPA $CODE$
|
||
|
|
||
|
.align 4
|
||
|
.EXPORT GC_test_and_clear,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
|
||
|
GC_test_and_clear
|
||
|
.PROC
|
||
|
.CALLINFO FRAME=0,NO_CALLS
|
||
|
.ENTRY
|
||
|
ldcw,co (%r26),%r28
|
||
|
bv,n 0(%r2)
|
||
|
.EXIT
|
||
|
.PROCEND
|