csb2.s 372 B

1234567891011121314151617181920212223242526272829
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .define .csb2
  3. .sect .text
  4. .csb2:
  5. !bx, descriptor address
  6. !ax, index
  7. mov dx,(bx)
  8. mov cx,2(bx)
  9. 1:
  10. add bx,4
  11. dec cx
  12. jl 4f
  13. cmp ax,(bx)
  14. jne 1b
  15. mov bx,2(bx)
  16. 2:
  17. test bx,bx
  18. jnz 3f
  19. .extern ECASE
  20. .extern .fat
  21. mov ax,ECASE
  22. push ax
  23. jmp .fat
  24. 3:
  25. jmp bx
  26. 4:
  27. mov bx,dx
  28. jmp 2b