rck.s 305 B

1234567891011121314151617181920
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define .rck
  4. ! descriptor address in bx
  5. ! value in ax, must be left there
  6. .rck:
  7. cmp ax,(bx)
  8. jl 2f
  9. cmp ax,2(bx)
  10. jg 2f
  11. ret
  12. 2:
  13. push ax
  14. .extern ERANGE
  15. .extern .error
  16. mov ax,ERANGE
  17. call .error
  18. pop ax
  19. ret