2 # define call_push(x) \
3 lda $16, 0(x); /* copy x to first argument register */ \
4 jsr $26, GC_push_one; /* call GC_push_one, ret addr in $26 */ \
5 ldgp $gp, 0($26) /* restore $gp register from $ra */
12 ldgp $gp, 0($27) # set gp from the procedure value reg
13 lda $sp, -32($sp) # make stack frame
14 stq $26, 8($sp) # save return address
16 .frame $sp, 16, $26, 0
18 # call_push($0) # expression eval and int func result
20 # call_push($1) # temp regs - not preserved cross calls
29 call_push($9) # Saved regs
36 call_push($15) # frame ptr or saved reg
38 # call_push($16) # argument regs - not preserved cross calls
45 # call_push($22) # temp regs - not preserved cross calls
50 # call_push($26) # return address - expression eval
51 # call_push($27) # procedure value or temporary reg
52 # call_push($28) # assembler temp - not presrved
53 call_push($29) # Global Pointer
54 # call_push($30) # Stack Pointer
56 ldq $26, 8($sp) # restore return address
57 lda $sp, 32($sp) # pop stack frame
58 ret $31, ($26), 1 # return ($31 == hardwired zero)