This has been transcribed to Sparc-kl.tkr

SWITCH_TO_KERNEL(d)
  SAVE_REGS(d)
    PUTAWAY_GLOBALS(d)
      save g y at d
    PUTAWAY_WINDOWS(d)
      save i's
      loop x in DIB
        SAVE_WINDOW(x)
          save l's & i's at x
      endloop
  SETUP_KERNEL_STACK
    stack top -> %sp = %o6
    0 -> %fp = %i6