gto.s 131 B

12345678
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define .gto
  4. .gto:
  5. mov bp,4(bx)
  6. mov sp,2(bx)
  7. jmp (bx)