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