iaar.s 303 B

123456789101112131415161718
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define .iaar
  4. .iaar:
  5. pop cx
  6. pop dx
  7. cmp dx,2
  8. .extern .unknown
  9. jne .unknown
  10. pop bx ! descriptor address
  11. pop ax ! index
  12. sub ax,(bx)
  13. mul 4(bx)
  14. pop bx ! base address
  15. add bx,ax
  16. push cx
  17. ret