gto.s 177 B

123456789101112131415
  1. .define .gto
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. !r0 contains descriptor addres
  9. .gto:
  10. lprd fp,8(r0)
  11. lprd sp,4(r0)
  12. movd 0(r0),tos
  13. ret 0